Duvidas nos campos Tag de Pagamento no MDFe

[Jhonlenon Ribeiro]

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?

[BigWings]

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';
[...]

 

[Jhonlenon Ribeiro]

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;

[BigWings]

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...

[BigWings]

5 minutos atrás, BigWings disse:

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

Enviei correção para o repositório, rev. 19476.

Favor atualizar os fontes e testar novamente.

[Jhonlenon Ribeiro]

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

[BigWings]

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.

[Jhonlenon Ribeiro]

Situação Resolvido...obrigado pelo a ajuda.....eu tava procurando uma informação mais ou encontrei será que no MDF-e eu posso emitir com mais um produto predominante tipo uns 2 ou 3?

[Jhonlenon Ribeiro]

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 23 Março, 2020 por JHONLENON

[Italo Giurizzato Junior]

Bom dia Jhonlenon,

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

Veja o diagrama abaixo:

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

Já mais vai conter as 3 tags.

[Jhonlenon Ribeiro]

Obrigado Italo Jurisato Junior era isso mesmo...pode encerrar o tópico

[Italo Giurizzato Junior]

Obrigado por reportar.

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