Valor string inválido para TpcteRetira: "

[cueiogordo]

Boa tarde

Ao tentar importar um CTeOS, recebo o retorno Valor string inválido para TpcteRetira: ".

Fazendo pelo Exemplo, o erro não ocorre. Notei que no exemplo, ele nao executa a funcao "StrToTpRetira" dessa linha (*B27*)CTe.Ide.retira   := StrToTpRetira(ok, Leitor.rCampo(tcStr, 'retira'));

Ja no meu sistema, ele executa a Funcao.

Segue XML para Analise.

        DM.ACBrCTE.Conhecimentos.Clear;
        DM.ACBrCTE.Conhecimentos.LoadFromFile('d:\XML.xml');
        DM.ACBrCTeDACTeRL.Impressora := GetDefaultPrinterName;
        DM.ACBrCTeDACTeRL.PathPDF :=  ExtractFilePath(Application.ExeName) + '\Temp\' + s_chave +  '.pdf';
        DM.ACBrCTe.Conhecimentos.Imprimir;
 

XML.xml

[Italo Giurizzato Junior]

Bom dia Bruno,

Favor atualizar todos os fontes de todas as pastas, reinstale o ACBr e faça novos testes.

[cueiogordo]

Bom dia

Problema Solucionado.

Grato pelo retorno.

[Alexandre de Paula]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.