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.

[Rafael Cruz]

Up