cte 3.00

[broribeiro]

Boa tarde, estou tentando alimentar os campos abaixo mas está retornando a seguinte rejeição:

 

 case cbDtPrevEntrega.ItemIndex of
      0: compl.Entrega.TipoData := StrToTpDataPeriodo(okConversao, IntToStr(0));
      1: compl.Entrega.TipoData := StrToTpDataPeriodo(okConversao, IntToStr(1));
      2: compl.Entrega.TipoData := StrToTpDataPeriodo(okConversao, IntToStr(2));
      3: compl.Entrega.TipoData := StrToTpDataPeriodo(okConversao, IntToStr(3));
      4: compl.Entrega.TipoData := StrToTpDataPeriodo(okConversao, IntToStr(4));
    end;
    case cbDtPrevEntrega.ItemIndex of
      0: begin
        compl.Entrega.semData.tpPer := tdSemData;
      end;

Envio CTe
tpAmb: 1
verAplic: 
cStat: 0
cUF: 0
xMotivo: 
cMsg: 0
xMsg: 
Recibo: 
Protocolo: 
Chave: 
XML: 
----------------------------------------------------------------------------------------------------
Falha na validação dos dados do Conhecimento: 1

'0' violates enumeration constraint of '1 2 3'.
The element '{http://www.portalfiscal.inf.br/cte}tpPer' with value '0' failed to parse.

Algum dica de como posso fazê-lo corretamente ?

Atenciosamente, 

    Bruno 

[Italo Giurizzato Junior]

Boa noite Bruno,

Estude o fragmento TXT (AliementarComponente.TXT) que esta disponível na pasta: ...\Exemplos\ACBrDFe\ACBrCTe 

[broribeiro]

Bom dia , refiz a parte do código conforme a orientação e deu certo. 

// Tratando as Datas
    compl.Entrega.TipoData := StrToTpDataPeriodo(okConversao, IntToStr(cbDtPrevEntrega.ItemIndex));
    case cbDtPrevEntrega.ItemIndex of
      0: begin
        compl.Entrega.semData.tpPer := tdSemData;
      end;
       1: begin
        compl.Entrega.comData.tpPer := tdNaData;
        compl.Entrega.comData.dProg := EditDtEntrega.Date;
      end;
      2: begin
        compl.Entrega.comData.tpPer := tdAteData;
        compl.Entrega.comData.dProg := EditDtEntrega.Date;
      end;
      3: begin
        compl.Entrega.comData.tpPer := tdApartirData;
        compl.Entrega.comData.dProg := EditDtEntrega.Date;
      end;
      4: begin
        compl.Entrega.noPeriodo.tpPer := tdNoPeriodo;
        compl.Entrega.noPeriodo.dIni := EditDtEntrega.Date;
        compl.Entrega.noPeriodo.dFim := EditDtEntregaFim.Date;
      end;
    end;

      // Tratando as Horas
    compl.Entrega.TipoHora := StrToTpHorarioIntervalo(okConversao, IntToStr(cbDtPrevEntrega.ItemIndex));
    case cbDtPrevEntrega.ItemIndex of
      0: begin
        compl.Entrega.semHora.tpHor := thSemHorario;
      end;
      1: begin
        compl.Entrega.comHora.tpHor := thNoHorario;
        compl.Entrega.comHora.hProg := StrToTime(EditHrEntrega.Text);
      end;
      2: begin
        compl.Entrega.comHora.tpHor := thAteHorario;
        compl.Entrega.comHora.hProg := StrToTime(EditHrEntrega.Text);
      end;
      3: begin
        compl.Entrega.comHora.tpHor := thApartirHorario;
        compl.Entrega.comHora.hProg := StrToTime(EditHrEntrega.Text);
      end;
      4: begin
        compl.Entrega.noInter.tpHor := thNoIntervalo;
        compl.Entrega.noInter.hIni := StrToTime(EditHrEntrega.Text);
        compl.Entrega.noInter.hFim := StrToTime(EditHrEntregaFim.Text);
      end;
    end;

Obrigado, fica a dica para quem passar por isso.

[Ges-tec Sistemas]

Boa tarde,

atualizei o acbr, minha duvida e o exemplo de CTe que esta no svn esta correto? teria um com exemplo que creio eu seria original?

Obrigado.

 

[Juliomar Marchetti]

está .

sim é ele mesmo mete ficha e vai usando

testa que tem o ambiente de testes.