Ir para conteúdo
  • Cadastre-se

dev botao

Duvidas nos campos Tag de Pagamento no MDFe


Ver Solução Respondido por BigWings,
  • Este tópico foi criado há 1466 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Moderadores
16 minutos atrás, JHONLENON disse:

Boa tarde, não estou conseguindo achar os campos da Tag Pagemento e Produto Predominante no MDF-e..alguém já fez pra mim dá uma luz?

MDFe := ACBrMDFe1.Manifestos.New.MDFe;

// produto predominante
MDFe.prodPred.tpCarga := tcGranelSolido;
[...]

// pagamentos
infPag := MDFe.rodo.infANTT.infPag.New;
infPag.xNome := 'responsável pelo pagamento';
[...]

 

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

Estou tentando assim mais não gera a tag no xml..... //-----------Dados de Pagamento do Frete no MDF-e----------------------------
    with rodo.infANTT.infPag.Add do
    begin
      xNome            := Trim(txt_nome_resp_pagamento.Text);
      CNPJCPF          := Trim(txt_cpf_cnp_resp.Text);
      idEstrangeiro    := txt_estrangeiro.Text;
     
      vContrato        :=0;
      indPag           :=TIndPag(1);;
    end;

Link para o comentário
Compartilhar em outros sites

  • Moderadores
8 minutos atrás, JHONLENON disse:

Estou tentando assim mais não gera a tag no xml..... //-----------Dados de Pagamento do Frete no MDF-e----------------------------

Lendo o código, só vai gerar o grupo de pagamentos se você informar também RNTRC, CIOT, vale pedágio ou contratante:

Unit pmdfeMDFeW.pas, linha 420:

    if (MDFe.Rodo.infANTT.RNTRC <> '') or
       (MDFe.Rodo.infANTT.infCIOT.Count > 0) or
       (MDFe.Rodo.infANTT.valePed.disp.Count > 0) or
       (MDFe.rodo.infANTT.infContratante.Count > 0) then
    begin
      Gerador.wGrupo('infANTT', '#02');
      Gerador.wCampo(tcStr, '#02', 'RNTRC', 08, 08, 0, OnlyNumber(MDFe.Rodo.infANTT.RNTRC), DSC_RNTRC);
      GerarInfCIOT;
      GerarValePedagio;
      GerarInfContratante;
      GerarInfPag;
      Gerador.wGrupo('/infANTT');
    end;

 

Talvez falte incluir a condição referente ao pagamento...

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores
13 horas atrás, JHONLENON disse:

Valeu pela ajuda..estou quase finalizando só idEstrangeiro  que estou passando assim idEstrangeiro         := 'Nao'; e dá erro na validação do xml...na hora de compilar não dá erro

Qual o erro?

Se o responsável não é estrangeiro, ou seja, tem CPF ou CNPJ, você deve informar essa tag em branco.

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

Bom dia....pode fechar o topico.....só não entendi porque a latitude e longitute não gera a tag...vou deixar o codigo como eu fiz pra gerar a tag pagamento e produto predominante....

//-----------Dados de Pagamento do Frete no MDF-e---------------------------
    with rodo.infANTT.infPag.Add do
    begin
      xNome                 := Trim(txt_nome_resp_pagamento.Text);
      CNPJCPF               := Trim(txt_cpf_cnp_resp.Text);
      idEstrangeiro         := '';//txt_estrangeiro.Text;

      case txt_tipo_componente.ItemIndex of  //------TIPO_COMP é uma variavel do TComp 
        0: begin
             TIPO_COMP := tcValePedagio;
           end;

        1: begin
             TIPO_COMP := tcImpostos;
           end;

        2: begin
             TIPO_COMP := tcDespesas;
           end;

        3: begin
             TIPO_COMP := tcOutros;
           end;
      end;

      with Comp.Add do
      begin
        tpComp              := TIPO_COMP;
        vComp               := txt_valor_componente.Value;
        xComp               := txt_descricao_componente.Text;
      end;

      vContrato             :=txt_valor_contrato.Value;
      indPag                :=TIndPag(txt_formapagto.ItemIndex);

      if txt_formapagto.ItemIndex = 1 then //----Condição para Gerar as Parcelas caso for aprazo
      begin
        with infPrazo.Add do
        begin
          nParcela := StrToInt(txt_nrpcela.Text);
          dVenc    := StrToDate(txt_vencimento.Text);
          vParcela := txt_valor_parcela.Value;
        end;
      end;

      infBanc.codBanco      :=infoToString(txt_numero_banco.Text);
      infBanc.codAgencia    :=infoToString(txt_numero_agencia.Text);
      infBanc.CNPJIPEF      :=txt_cnpj_inst_pagto.Text;
    end;
    //----------------Produto Predominante--------------------------------------
    if txt_carga_pred.ItemIndex = 0 then
    begin
      if txt_descricao_produto.Text = '' then
      begin
        if Application.MessageBox('Atenção...descrição do produto predominante está vazia','Sistema', MB_OK) = IDOK then
        Abort;
      end;

      if txt_tipo_carga.ItemIndex =-1 then
      begin
        if Application.MessageBox('Atenção...tipo de carga predominante está vazia','Sistema', MB_OK) = IDOK then
        Abort;
      end;

      prodPred.tpCarga                 := TCarga(txt_tipo_carga.ItemIndex);
      prodPred.xProd                   := txt_descricao_produto.Text;
      prodPred.cEAN                    := txt_codbarras.Text;
      prodPred.NCM                     := txt_ncm.Text;
      if txt_ind_lotacao.ItemIndex = 0 then //--------Condição para gerar local de carga e descarga
      begin
        prodPred.infLocalCarrega.CEP           := StrToIntDef(txt_cep_carrega.Text,0);
        prodPred.infLocalCarrega.latitude      := StrToFloatDef(txt_latitude_carrega.Text,0);
        prodPred.infLocalCarrega.longitude     := StrToFloatDef(txt_longitude_carrega.Text,0);
        prodPred.infLocalDesCarrega.CEP        := StrToIntDef(txt_cep_descarrega.Text,0);
        prodPred.infLocalDesCarrega.latitude   := StrToFloatDef(txt_latitude_descarrega.Text,0);
        prodPred.infLocalDesCarrega.longitude  := StrToFloatDef(txt_longitude_descarrega.Text,0);
      end;
    end;

 

Editado por JHONLENON
Link para o comentário
Compartilhar em outros sites

  • Consultores

Bom dia Jhonlenon,

As tags Latitude e Longitude não são geradas porque você informou o CEP, simples assim.

Veja o diagrama abaixo:

CEP.jpg

Dentro dos grupos infLocalCarrega e infLocalDescarrega ou contem o CEP ou contem a latitude e longitude.

Já mais vai conter as 3 tags.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Consultores

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1466 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.