TAG cMP com valor errado

[Luciano Ramos Palandi]

Pessoal, por favor, preciso de ajuda para corrigir o valor que esta sendo gravado na TAG cMP, na venda estou gravando o código da forma de pagamento em um campo varchar(OP_PG01), quando gero o XML faço da seguinte maneira: cMP:= dm.clientdataset.fieldbyname('op_pg01').value;, se eu fizer um pagamento em Dinheiro(01),depois que o XML esta pronto a TAG cMP aparece assim <cMP>02</cMP> como se eu estivesse escolhido Cheque(02), desde já grato.

[Sérgio Assunção]

2 horas atrás, Luciano Ramos Palandi disse:

Pessoal, por favor, preciso de ajuda para corrigir o valor que esta sendo gravado na TAG cMP, na venda estou gravando o código da forma de pagamento em um campo varchar(OP_PG01), quando gero o XML faço da seguinte maneira: cMP:= dm.clientdataset.fieldbyname('op_pg01').value;, se eu fizer um pagamento em Dinheiro(01),depois que o XML esta pronto a TAG cMP aparece assim <cMP>02</cMP> como se eu estivesse escolhido Cheque(02), desde já grato.

Com certeza isso é um erro na sua rotina.

Se possível, descreva parte do código onde você manipula o pagamento e também o XML enviado ao SAT.

[Luciano Ramos Palandi]

Bom dia Sérgio, gravo as forma de pagamento na tabela da seguinte forma:

 if dm.CD_VENDA.FieldByName('forma_01').AsString = '' then
     begin
      dm.CD_VENDA.Edit;
      dm.CD_VENDA.FieldByName('pg_01').AsString:= CodPG;
      dm.CD_VENDA.FieldByName('forma_01').AsString:= FormaPG;
      dm.CD_VENDA.FieldByName('valor_01').AsString:= editvalor.Text;
      dm.CD_VENDA.Post;
     end

  caso a forma_01 estiver livre e assim por diante...

Para repassar os valores para o XML faço da seguinte forma:

 if dm.CD_VENDA.FieldByName('pg_01').AsString <> '' then
    begin
    with Pagto.Add do
    begin
      cMP := dm.CD_VENDA.FieldByName('pg_01').Value;
      vMP := dm.CD_VENDA.FieldByName('valor_01').AsCurrency;
    end;
    end;

Na tabela de pagamentos, o campo esta sendo preenchido corretamente..., quando passo para o XML o valor fica incorreto.

 

[Luciano Ramos Palandi]

Sergio,

realizando testes hoje, percebi que quando passo o código de pagamento de minha tabela para o componente, ele esta incrementando em 1 valor a mais..., porque sera?