Xml Não Gera Data Prevista

[Rafael Cruz]

Olá, amigos, estou finalizando o código do CT-e mas encontrei um problema.

Quando gero o xml e importo no emissor, mesmo que eu tenha preenchido, a data e a hora prevista (Guia Dados Complementares > Previsão de Entrega) vem com itemindex 0 (Sem data prevista). Li o manual e de acordo ao que entendi, programei da seguinte forma:

 

case PrevisaoData.ItemIndex of

        0: compl.Entrega.semData.tpPer  := tdSemData;

    1,2,3: begin

             compl.Entrega.comData.tpPer  := tdNaData;

             compl.Entrega.comData.dProg  := InicioData.Date;

           end;

        4: begin

             compl.Entrega.comData.tpPer  := tdNoPeriodo;

             compl.Entrega.noPeriodo.dIni := InicioData.Date;

             compl.Entrega.noPeriodo.dFim := FimData.Date;

           end;

 

*PrevisaoData = meu combobox

*InicioData = primeiro campo de data

*FimData = segundo campo de data

 

Aguardarei algum auxílio, obrigado.

[Italo Giurizzato Junior]

Boa tarde Rafael,

 

Não entendi isso: "Quando gero o xml e importo no emissor..."

 

importo no emissor????

[Rafael Cruz]

Importo no emissor de CT-e pra testar se está tudo ok

[Italo Giurizzato Junior]

Rafael,

 

Qual é a garantia que o programa emissor disponibilizado pela SEFAZ esta atualizado com as últimas NT publicadas?

 

O componente possui um mecanismo de validação do XML gerado, neste caso basta você utilizar os schemas que encontram-se na pasta schemas que esta dentro da pasta que contem o programa exemplo do ACBrCTe.

[Rafael Cruz]

Hum.. Tudo bem, só achei estranho o fato de apenas essa parte da tag não ter dado certo, nem no arquivo xml em si, ele fica com o "tpper" sempre 0, independente de como estiver no combobox do form.

 

Obrigado, Ítalo

[Italo Giurizzato Junior]

Rafael,

 

Na sua rotina acrescente essa linha:

 

   compl.Entrega.TipoData := StrToTpDataPeriodo(okConversao, IntToStr(PrevisaoData.ItemIndex));

 

   case PrevisaoData.ItemIndex of

        0: compl.Entrega.semData.tpPer  := tdSemData;

    1,2,3: begin

             compl.Entrega.comData.tpPer  := tdNaData;

             compl.Entrega.comData.dProg  := InicioData.Date;

           end;

        4: begin

             compl.Entrega.comData.tpPer  := tdNoPeriodo;

             compl.Entrega.noPeriodo.dIni := InicioData.Date;

             compl.Entrega.noPeriodo.dFim := FimData.Date;

           end;

Acredito que Isso vai resolver o seu problema.

[Rafael Cruz]

E o que eu tenho que declarar pra "okconversao" não dar o erro de ''Undeclared Identifier"?

Desculpe o incômodo...

Editado 5 Agosto, 2013 por Rafael Cruz

[Italo Giurizzato Junior]

Bom dia Rafael,

 

OkConversao é apenas uma variável do tipo Boolean.

 

Declara ela em Private do seu form por exemplo.

[Rafael Cruz]

Obrigado, Ítalo, deu certo!