Informação de pagamento duplicando iformação

[ivo]

Olá

Estou tentando enviar nfe mas a tag pag está duplicando informação e recebo mensagem de erro. Segue abaixo como estou informando os dados, a tela do xml duplicada e a mensagem de erro. Podem me ajudar?

with ACBrNFe1.NotasFiscais.Add.NFe do
begin
  Ide.indPag := ipPrazo;
  Pag.Add.tPag := fpDinheiro;
  Pag.Add.vPag := DMPrint.IBQNFeTLINST.Value;
end;

Mensagem de erro: 
"Nota(s) não confirmadas:
38003->851-Rejeicao: Soma do valor das parcelas difere do Valor Liquido da fatura.
 

 

[RicardoVoigt]

7 minutos atrás, ivo disse:

Pag.Add.tPag := fpDinheiro;
  Pag.Add.vPag := DMPrint.IBQNFeTLINST.Value;

Ai está o erro... .Add 2x...

faça assim

with pag.add do
begin
  tPag := fpDinheiro;
  vPag := DMPrint.IBQNFeTLINST.Value;
end;

Att

Ricardo

[ivo]

Valeu RicardoVoigt. Agora entendi. Era isso mesmo. Mas ainda continuo recebendo a msg: 
Nota(s) não confirmadas:
38003->851-Rejeicao: Soma do valor das parcelas difere do Valor Liquido da fatura.

 

Abaixo esta parte do xml.

Quote

-<total>

-<ICMSTot>

<vBC>48870.40</vBC>

<vICMS>5864.46</vICMS>

<vICMSDeson>0.00</vICMSDeson>

<vFCP>0.00</vFCP>

<vBCST>82297.77</vBCST>

<vST>8949.13</vST>

<vFCPST>0.00</vFCPST>

<vFCPSTRet>0.00</vFCPSTRet>

<vProd>48870.40</vProd>

<vFrete>0.00</vFrete>

<vSeg>0.00</vSeg>

<vDesc>0.00</vDesc>

<vII>0.00</vII>

<vIPI>0.00</vIPI>

<vIPIDevol>0.00</vIPIDevol>

<vPIS>317.62</vPIS>

<vCOFINS>1466.08</vCOFINS>

<vOutro>0.00</vOutro>

<vNF>57819.53</vNF>

</ICMSTot>

</total>

-<transp>

<modFrete>0</modFrete>

-<transporta>

<CNPJ>79946976000101</CNPJ>

<xNome>CDC CARGAS E LOG.LTDA - PAGO</xNome>

<IE>251824357</IE>

<xEnder>ROD.BR 101 - KM 121,5 - N 9435</xEnder>

<xMun>ITAJAI</xMun>

<UF>SC</UF>

</transporta>

-<vol>

<qVol>5</qVol>

<esp>PALLET(S)</esp>

<marca>ALCON/LABCON</marca>

<pesoL>885.800</pesoL>

<pesoB>1123.500</pesoB>

</vol>

</transp>

-<cobr>

-<dup>

<nDup>1</nDup>

<dVenc>2018-09-07</dVenc>

<vDup>57819.53</vDup>

</dup>

</cobr>

-<pag>

-<detPag>

<indPag>1</indPag>

<tPag>01</tPag>

<vPag>57819.53</vPag>

</detPag>

</pag>

 

[ivo]

Opa. Descobri o problema. Faltou informar o grupo cobrança.

with cobr.Fat do
        begin
          nFat := DMPrint.IBQNFeNNFNST.AsString;
          vOrig := DMPrint.IBQNFeTLINST.Value;
          vLiq := DMPrint.IBQNFeTLINST.Value;
        end;

Vlw.

[Felipe E. Resende Mesquita]

26 minutos atrás, ivo disse:

Opa. Descobri o problema. Faltou informar o grupo cobrança.

with cobr.Fat do
        begin
          nFat := DMPrint.IBQNFeNNFNST.AsString;
          vOrig := DMPrint.IBQNFeTLINST.Value;
          vLiq := DMPrint.IBQNFeTLINST.Value;
        end;

Vlw.

Obrigado por reportar.