Erro ao popular Grupo Pagamento NFe 4.0

[Antonio Carlos L]

Caros, a tabela de Pagamento possui um ÚNICO lançamento em dinheiro no valor exato da nota e o xml é gerado ( e autorizado em homologação ) da seguinte forma

 

O código responsável por popular essas informações é este abaixo,  foi feito Debug , está sendo varrido UMA única vez.

O exemplo do demo ainda esta na versão 3.0 por isso não tentei reproduzir testei por ele, o controle de versão do SVN indica 13858

Existe um problema no componente ?

        DM.cdsPAG.First;
        while not DM.cdsPAG.Eof do
              begin
                       pag.Add.tPag := RetornaTipoPag(DM.cdsPAG.FieldByName('YA02_TPAG').AsString);

                       if  DM.cdsPAG.FieldByName('YA03_VPAG').AsCurrency > 0  then  pag.Add.vPag := DM.cdsPAG.FieldByName('YA03_VPAG').AsCurrency;

                       if (( pag.Add.tPag = fpDinheiro) and ( dm.cdsPAG.FieldByName('YA09_VTROCO').AsCurrency > 0 )) then  pag.vTroco := dm.cdsPAG.FieldByName('YA09_VTROCO').AsCurrency;

                       if (( pag.Add.tPag = fpCartaoCredito ) or ( pag.Add.tPag = fpCartaoDebito )) then
                         begin
                             case bTef of
                                True  : begin
                                                pag.Add.tpIntegra := tiPagIntegrado;
                                                pag.Add.CNPJ      := DM.cdsPAG.FieldByName('YA05_CNPJ').AsString;
                                                pag.Add.tBand     := RetornaBandeira(DM.cdsPAG.FieldByName('YA06_TBAND').AsString);
                                               pag.Add.cAut      := DM.cdsPAG.FieldByName('YA07_CAUT').AsString;
                                            end;
                               False : begin
                                               pag.Add.tpIntegra := tiPagNaoIntegrado;
                                               //  pag.Add.cAut := DM.cdsPag65.FieldByName('YA07_CAUT').AsString;
                                           end;
                             end;
                        end;
                       DM.cdsPAG.Next;
              end;

[Fabrício G. Araújo]

Pelo que percebi na sua codificação foi você mesmo que deu Add várias vezes, inclusive no seus IFs, assim criando várias formas de pagamento.

[Juliomar Marchetti]

26 minutos atrás, fabricio.syncode disse:

Pelo que percebi na sua codificação foi você mesmo que deu Add várias vezes, inclusive no seus IFs, assim criando várias formas de pagamento.

Exatamente . matou a charada. usou with do código e não se ateve ao que ele estava fazendo

1 hora atrás, Antonio Carlos L disse:

Caros, a tabela de Pagamento possui um ÚNICO lançamento em dinheiro no valor exato da nota e o xml é gerado ( e autorizado em homologação ) da seguinte forma

 

O código responsável por popular essas informações é este abaixo,  foi feito Debug , está sendo varrido UMA única vez.

O exemplo do demo ainda esta na versão 3.0 por isso não tentei reproduzir testei por ele, o controle de versão do SVN indica 13858

Existe um problema no componente ?

        DM.cdsPAG.First;
        while not DM.cdsPAG.Eof do
              begin
                       pag.Add.tPag := RetornaTipoPag(DM.cdsPAG.FieldByName('YA02_TPAG').AsString);

                       if  DM.cdsPAG.FieldByName('YA03_VPAG').AsCurrency > 0  then  pag.Add.vPag := DM.cdsPAG.FieldByName('YA03_VPAG').AsCurrency;

                       if (( pag.Add.tPag = fpDinheiro) and ( dm.cdsPAG.FieldByName('YA09_VTROCO').AsCurrency > 0 )) then  pag.vTroco := dm.cdsPAG.FieldByName('YA09_VTROCO').AsCurrency;

                       if (( pag.Add.tPag = fpCartaoCredito ) or ( pag.Add.tPag = fpCartaoDebito )) then
                         begin
                             case bTef of
                                True  : begin
                                                pag.Add.tpIntegra := tiPagIntegrado;
                                                pag.Add.CNPJ      := DM.cdsPAG.FieldByName('YA05_CNPJ').AsString;
                                                pag.Add.tBand     := RetornaBandeira(DM.cdsPAG.FieldByName('YA06_TBAND').AsString);
                                               pag.Add.cAut      := DM.cdsPAG.FieldByName('YA07_CAUT').AsString;
                                            end;
                               False : begin
                                               pag.Add.tpIntegra := tiPagNaoIntegrado;
                                               //  pag.Add.cAut := DM.cdsPag65.FieldByName('YA07_CAUT').AsString;
                                           end;
                             end;
                        end;
                       DM.cdsPAG.Next;
              end;

 

[Antonio Carlos L]

Oi Fabricio, obrigado pelo seu retorno.

Quer dizer que ao fazer  (    pag.Add.tPag :=     )  ou (     pag.Add.tPag =     )  o resultado é o incremento, não é apenas leitura  ? 

 

[Antonio Carlos L]

Oi Juliomar obrigado pela resposta,  

Eu não usei WITH ,  if (( pag.Add.tPag = fpDinheiro)   apenas achei que ao usar = ao invés de := estaria lendo como se faz como uma property

Então para ler seria algo do tipo if pag.Items.tPag

 

[Antonio Carlos L]

Caros Fabricio e Juliomar , refiz os testes , mudei a forma de ler e mesmo tendo diminuído, continuou a gerar com duplicidade.

Para evitar dúvidas, usei o Exemplo , veja abaixo :

 

Fiz a seguinte mudança no código, como pode ver esta sendo inserido uma UNICA vez ,  o controle de versão do SVN indica 13858

Se eu não faço a chamada mais de uma vez, não teria porque estar sendo gerado em duplicidade

 

[Fabrício G. Araújo]

Você chamou novamente duas vezes (tem dois Add), para uma forma de pagamento seria:

  with ACBrNFe1.NotasFiscais.Add.NFe do

      with pag.Add do
       begin
         tPag := fpDinheiro;
         vPag := 100;
       end;

ou

var

    Pagamento: TpagCollectionItem;

   ...

    Pagamento := NotaF.NFe.pag.Add;
    Pagamento.tPag := fpDinheiro;
    Pagamento.vPag := 100;

[Antonio Carlos L]

23 minutos atrás, fabricio.syncode disse:

Você chamou novamente duas vezes (tem dois Add), para uma forma de pagamento seria:

  with ACBrNFe1.NotasFiscais.Add.NFe do

      with pag.Add do
       begin
         tPag := fpDinheiro;
         vPag := 100;
       end;

ou

var

    Pagamento: TpagCollectionItem;

   ...

    Pagamento := NotaF.NFe.pag.Add;
    Pagamento.tPag := fpDinheiro;
    Pagamento.vPag := 100;

Ok Fabricio, entendi agora quando mostrou o tipo.

Obrigado

[Lincoln Antunes]

Bom dia amigos, no caso de uma nota de simples remessa ou de mostruário, como eu informaria, por que  tentei e sempre da o erro que o total da forma de pagmento difere do total da nota fiscal.

Estou informando  sem pagamento, mas pelo que olhei no manual, sem pagamento é somente para devolucao, ajustes e nota complementar.

[Antonio Carlos L]

Lincoln, mesmo uma nota de simples remessa, onde o valor seja muito reduzido, vai haver um total, eu optaria por selecionar OUTROS o que muitos já faziam anteriormente. 

[BigWings]

4 horas atrás, Lincoln Antunes disse:

Bom dia amigos, no caso de uma nota de simples remessa ou de mostruário, como eu informaria, por que  tentei e sempre da o erro que o total da forma de pagmento difere do total da nota fiscal.

Estou informando  sem pagamento, mas pelo que olhei no manual, sem pagamento é somente para devolucao, ajustes e nota complementar.

O manual diz que em notas de ajuste e devolução é obrigatório usar tPag = 90 (sem pagamento). Isso não quer dizer que o tipo de pagamento sirva somente pra essas finalidades.

Pode haver notas com finalidade normal onde não há pagamento, como você exemplificou.

Entendo que, não havendo nenhum tipo de compensação financeira na operação, o correto é informar tPag = 90 (sem pagamento).

3 horas atrás, Antonio Carlos L disse:

Lincoln, mesmo uma nota de simples remessa, onde o valor seja muito reduzido, vai haver um total, eu optaria por selecionar OUTROS o que muitos já faziam anteriormente. 

Antes havia apenas as opções de pagamento à vista, a prazo ou outros. Não havia a opção "nenhum", ou "sem pagamento". Informando tPag como 99 (outros), entendo que houve algum pagamento, e esse tipo não se enquadra em nenhuma outra opção disponível.

[Aurino]

Boa Tarde Pessoal

Ao emitir a NFCe na versão 4.0 gerando troco está gerando o erro abaixo.
Estou emitindo normalmente com desconto e com várias formas de pagamento mas ao gerar troco, apresenta a mensagem de erro.
O que pode ser?

NFC-e com somatório dos pagamentos diferente do total da Nota Fiscal

O que há de errado e segue parte do XML para análise.

<total>
  <ICMSTot>
    <vBC>0.00</vBC>
    <vICMS>0.00</vICMS>
    <vICMSDeson>0.00</vICMSDeson>
    <vFCPUFDest>0.00</vFCPUFDest>
    <vFCP>0.00</vFCP>
    <vBCST>0.00</vBCST>
    <vST>0.00</vST>
    <vFCPST>0.00</vFCPST>
    <vFCPSTRet>0.00</vFCPSTRet>
    <vProd>7.50</vProd>
    <vFrete>0.00</vFrete>
    <vSeg>0.00</vSeg>
    <vDesc>2.00</vDesc>
    <vII>0.00</vII>
    <vIPI>0.00</vIPI>
    <vIPIDevol>0.00</vIPIDevol>
    <vPIS>0.00</vPIS>
    <vCOFINS>0.00</vCOFINS>
    <vOutro>0.00</vOutro>
    <vNF>5.50</vNF>
    <vTotTrib>0.30</vTotTrib>
  </ICMSTot>
</total>
<transp>
  <modFrete>9</modFrete>
</transp>
<pag>
  <detPag>
    <tPag>01</tPag>
    <vPag>5.00</vPag>
  </detPag>
  <detPag>
    <tPag>03</tPag>
    <vPag>2.50</vPag>
    <card>
      <tpIntegra>2</tpIntegra>
    </card>
  </detPag>
  <vTroco>2.00</vTroco>
</pag>

 

[Antonio Carlos L]

Para qual UF o erro se apresenta ?

Editado 3 Novembro, 2017 por Antonio Carlos L

[Aurino]

UF: MA;

[Antonio Carlos L]

Voce já tentou informar o grupo de recebimento no valor exato ?