Denis Zago

Boa Tarde Ítalo. Por não conter mais a tag forPag no XML da versão 3.0 +, acaba que saindo sempre como PAGO na impressão da CT-e, me baseando nisso eu precisei fazer uma alteração no ACBrCTeDACTeRLRetrato para que saísse correto. Arquivo: C:\ACBr\Fontes\ACBrDFe\ACBrCTe\DACTE\Fortes\ACBrCTeDACTeRLRetrato.pas Linha: 1177 Adicionado: if FCTe.infCTe.versao >= 3 then begin if FCTe.vPrest.vRec <= 0 then begin FCTe.Ide.forPag := fpPago; end else if FCTe.vPrest.vRec = FCTe.vPrest.vTPrest then begin FCTe.Ide.forPag := fpAPagar; end else begin FCTe.Ide.forPag := fpOutros; end; end; Apenas adicionei uma condição para a nova regra intereferindo apenas na versão 3.0 +, onde... vRec = 0 : PAGO vRec = vTPrest : A PAGAR vRec <> vTPrest AND vRec > 0 : OUTROS ACBrCTeDACTeRLRetrato.pas

Bom Dia Juliomar, Obrigado, tudo certo.

Olá Boa Tarde Italo Assim como citado acima, na versão 3.0 por não ser mais informado acaba saindo na impressão do CT-e a Data Prevista Entrega como '30/12/1899' Para não influenciar no uso da versão anterior que ainda utiliza o campo eu acabei adicionado apenas um "IF" na data para que saia em branco quando não informada ao invés do valor mencionado acima. "Fontes\ACBrDFe\ACBrCTe\DACTE\Fortes\ACBrCTeDACTeRLRetrato.pas" Linha 2017 do arquivo acima... Como é hoje: rllDtPrevEntrega.Caption := FormatDateTime('DD/MM/YYYY', dPrev); O que fiz: if ( dPrev <> StrToDate('30/12/1899') ) then rllDtPrevEntrega.Caption := FormatDateTime('DD/MM/YYYY', dPrev); ----------------------------------------------------------------------------------------------------------------------------------------------------------- Não sei se é algo considerado válido para uma alteração nos fontes mas no meu caso foi necessário, se haver uma solução mais inteligente ou algo já existente para correção desse caso e puder me informar agradeço. ACBrCTeDACTeRLRetrato.pas