Boa Tarde
Cenário: Delphi /ACBR
São Paulo
Durante a madrugada eu tentava enviar e não funcionava erro 905, as 10:30 normalizou para mim.
Tenho passado a seguintes instruções:
if tblNFCabCodCpg.Value <> 1 then
begin
Cobr.Fat.nFat := tblNFCondNumNFi.Text; // Numero da Fatura;
Cobr.Fat.vOrig := tblNFCabValTotPro.Value; // Valor da Fatura;
Cobr.Fat.vDesc := tblNFCabValDes.value; // Desconto;
Cobr.Fat.vLiq := tblNFCabValTotNFi.value; // Valor da Fatura;
tblNFCond.First;
While not tblNFCond.Eof do
begin
with Cobr.Dup.Add do
begin
nDup := tblNFCondNumDpl.Value; // Numero da Fatura
dVenc := tblNFCondDatVen.value; // Data do Vencimento
vDup := tblNFCondValPar.value; // Valor das Parcela;
end;
tblNFCond.Next;
End;
end;
** Mesmo com o valor zero para o vDesc a Tag é gerada.
** lembrar que o nDup segue o formato de 3 dígitos 001/002 / 003