Campos para MDFe no Plus

Janio · 3 Julho, 2016

Ola a todos,

No manual do ACBrMonitor Plus não consta a sintaxe com os campos a preencher do comando MDFe.CriarMDFe, por exemplo!

Onde posso encontrar?

Janio

nebrio · 4 Julho, 2016

Janio · 5 Julho, 2016

Beleza, Obrigado!

Os arquivos ini do topico mencionado não são validos ou são modelos genéricos.

Preciso de um arquivo ENT.TXT valido para que possa servir de modelo para mim, tendo em vista que o que estou gerando aqui está dando trocentos erros.

Alguém pode disponibilizar?

Janio

Juliomar Marchetti · 5 Julho, 2016

Não tenho nenhum, mas tu pode pegar um xml válido e enviar o comando ao monitor que ele gera um ini pra ti poder ver como deveria ser gerado!

Janio · 6 Julho, 2016

Juliomar,

O comando MDFe.MDFetoTxt("C:\harbour32\sistemas\SysLoja\mdfe.xml", "mdfeTXT.txt") gerou um TXT com o mesmo conteúdo do xml, e não em formato INI. Reinstalei a ultima versão do ACBrNfeMonitor (0.9.05.2) que eu tinha aqui pra ver se o problema era com o PLUS, porem, deu o mesmo resultado!

AcbrMonitorPLUS 0.3.04.5

mdfeTXT.txt

mdfe.xml

Juliomar Marchetti · 6 Julho, 2016

boa noite

o comando é MDFe.lermdfe(arquivoxml)

Janio · 6 Julho, 2016

Blza, Juliomar! Funcionou!

So to achando meio estranho pq alguns campos do xml não constam no INI! Os campos referentes ao proprietário do veículos, dados do motorista, etc, não constam no INI, por exemplo!

Queria so saber se isso eh normal ou eh algo a ser implementado!

Sai.txt

mdfe.xml

Juliomar Marchetti · 6 Julho, 2016

pode ser falta de implementação!

este xml é válido? vou conferir ele pra resolver

Janio · 7 Julho, 2016

Sim. O xml eh válido sim. Foi emitido em ambiente de producao

janio

nebrio · 8 Julho, 2016

Amigos @Janio @Juliomar Marchetti

Desculpe...revisando...

Editado 8 Julho, 2016 por nebrio
Revisando

nebrio · 8 Julho, 2016

Não estava implementado mesmo, fiz as alterações para a modalidade Rodoviario mas não fiz para as demais...

@Janio

@Juliomar Marchetti

segue o código da procedure GerarMDFeINI se alguém puder dar uma olhada e subir para o SVN... hora que der implemento o resto..

function GerarMDFeIni( XML : WideString ) : WideString;
var
  I, j, y : Integer;
  sSecao : String;
  INIRec : TMemIniFile;
  IniMDFe : TStringList;
  LocMDFeR : TMDFeR;
begin
 INIRec := TMemIniFile.create( 'MDFe.ini' );
 FrmACBrMonitor.ACBrMDFe1.Manifestos.Clear;
 if FilesExists(XML) then
    FrmACBrMonitor.ACBrMDFe1.Manifestos.LoadFromFile(XML)
 else
  begin
    LocMDFeR := TMDFeR.Create(FrmACBrMonitor.ACBrMDFe1.Manifestos.Add.MDFe);
    try
       LocMDFeR.Leitor.Arquivo := ConvertStrRecived( XML );
       LocMDFeR.LerXml;
       FrmACBrMonitor.ACBrMDFe1.Manifestos.Items[0].XML := LocMDFeR.Leitor.Arquivo;
       FrmACBrMonitor.ACBrMDFe1.Manifestos.GerarMDFe;
    finally
       LocMDFeR.Free;
    end;
  end;

 with FrmACBrMonitor do
  begin
   try
      with ACBrMDFe1.Manifestos.Items[0].MDFe do
       begin
         INIRec.WriteInteger('ide', 'cUF', Ide.cUF);
         INIRec.WriteString( 'ide', 'tpEmit', TpEmitenteToStr(Ide.tpEmit));
         INIRec.WriteString( 'ide', 'mod', Ide.modelo);
         INIRec.WriteInteger('ide', 'serie', Ide.serie);
         INIRec.WriteInteger('ide', 'nMDF', Ide.nMDF);
         INIRec.WriteInteger('ide', 'cMDF', Ide.cMDF);
         INIRec.WriteString( 'ide', 'modal', ModalToStr(Ide.modal));
         INIRec.WriteString( 'ide', 'dhEmi', DateToStr(Ide.dhEmi));
         INIRec.WriteString( 'ide', 'tpEmis', TpEmisToStr(Ide.tpEmis));
         INIRec.WriteString( 'ide', 'procEmi', procEmiToStr(Ide.procEmi));
         INIRec.WriteString( 'ide', 'verProc', Ide.verProc);
         INIRec.WriteString( 'ide', 'UFIni', Ide.UFIni);
         INIRec.WriteString( 'ide', 'UFFim', Ide.UFFim);
         INIRec.WriteString( 'ide', 'dhIniViagem', DateToStr(Ide.dhIniViagem));

         for i := 0 to ide.infMunCarrega.Count -1 do
         begin
           sSecao := 'CARR' + IntToStrZero(I+1, 3);

           with ide.infMunCarrega.Items[i] do
           begin
             INIRec.WriteInteger(sSecao, 'cMunCarrega', cMunCarrega);
             INIRec.WriteString(sSecao, 'xMunCarrega', xMunCarrega);
           end;
         end;

         for i := 0 to ide.infPercurso.Count -1 do
         begin
           sSecao := 'PERC' + IntToStrZero(I+1, 3);

           with ide.infPercurso.Items[i] do
           begin
             INIRec.WriteString(sSecao, 'UFPer', UFPer);
           end;
         end;

         INIRec.WriteString('emit', 'CNPJ', Emit.CNPJ);
         INIRec.WriteString('emit', 'IE', Emit.IE);
         INIRec.WriteString('emit', 'xNome', Emit.xNome);
         INIRec.WriteString('emit', 'xFant', Emit.xFant);

         INIRec.WriteString( 'emit', 'xLgr', Emit.enderEmit.xLgr);
         INIRec.WriteString( 'emit', 'nro', Emit.enderEmit.nro);
         INIRec.WriteString( 'emit', 'xCpl', Emit.enderEmit.xCpl);
         INIRec.WriteString( 'emit', 'xBairro', Emit.enderEmit.xBairro);
         INIRec.WriteInteger('emit', 'cMun', Emit.enderEmit.cMun);
         INIRec.WriteString( 'emit', 'xMun', Emit.enderEmit.xMun);
         INIRec.WriteInteger('emit', 'CEP', Emit.enderEmit.CEP);
         INIRec.WriteString( 'emit', 'UF', Emit.enderEmit.UF);
         INIRec.WriteString( 'emit', 'fone', Emit.enderEmit.fone);
         INIRec.WriteString( 'emit', 'email', Emit.enderEmit.email);

         case Ide.modal of
           moRodoviario:  begin
                            INIRec.WriteString('Rodo', 'RNTRC', Rodo.RNTRC);
                            INIRec.WriteString('Rodo', 'CIOT', Rodo.CIOT);
                            INIRec.WriteString('Rodo', 'tpRod', TpRodadoToStr(Rodo.veicTracao.tpRod));
                            INIRec.WriteString('Rodo', 'tpCar', TpCarroceriaToStr(Rodo.veicTracao.tpCar));
                            INIRec.WriteString('Rodo', 'UF', Rodo.veicTracao.UF);

                            if (Rodo.veicTracao.placa <> '') then
                                begin
                                  INIRec.WriteString('veicTracao', 'clInt', Rodo.veicTracao.cInt);
                                  INIRec.WriteString('veicTracao', 'placa', Rodo.veicTracao.placa);
                                  INIRec.WriteString('veicTracao', 'RENAVAN', Rodo.veicTracao.RENAVAM);
                                  INIRec.WriteInteger('veicTracao', 'tara', Rodo.veicTracao.tara);
                                  INIRec.WriteInteger('veicTracao', 'capKG', Rodo.veicTracao.capKG);
                                  INIRec.WriteInteger('veicTracao', 'clInt', Rodo.veicTracao.capM3);
                                end;

                              if ( Rodo.veicTracao.prop.CNPJCPF <> '') then
                              begin
                                INIRec.WriteString('prop','CPFCNPJ',Rodo.veicTracao.prop.CNPJCPF);
                                INIRec.WriteString('prop','RNTRC',Rodo.veicTracao.prop.RNTRC);
                                INIRec.WriteString('prop','xNome',Rodo.veicTracao.prop.xNome);
                                INIRec.WriteString('prop','IE',Rodo.veicTracao.prop.IE);
                                INIRec.WriteString('prop','UF',Rodo.veicTracao.prop.UF);
                                INIRec.WriteString('prop','tpProp',TpPropToStr(Rodo.veicTracao.prop.tpProp));
                                end;

                              for y := 1 to Rodo.veicTracao.condutor.Count -1 do
                                begin
                                sSecao := 'condutor'+IntToStrZero(y+1,3);
                                IniRec.WriteString(sSecao,'CPF',Rodo.veicTracao.condutor.Items[y].CPF);
                                IniRec.WriteString(sSecao,'xNome',Rodo.veicTracao.condutor.Items[y].xNome);
                                end;

                          end;
           moAereo:       begin
                            // Implementar
                          end;
           moAquaviario:  begin
                            // Implementar
                          end;
           moFerroviario: begin
                            // Implementar
                          end;
         end;

         for i := 0 to infDoc.infMunDescarga.Count -1 do
         begin
           sSecao := 'DESC' + IntToStrZero(I+1, 3);

           with infDoc.infMunDescarga.Items[i] do
           begin
             INIRec.WriteInteger(sSecao, 'cMunDescarga', cMunDescarga);
             INIRec.WriteString(sSecao, 'xMunDescarga', xMunDescarga);

             for j := 0 to infDoc.infMunDescarga.Items[i].infCTe.Count -1 do
             begin
               sSecao := 'infCTe' + IntToStrZero(I+1, 3) + IntToStrZero(J+1, 3);

               with infDoc.infMunDescarga.Items[i].infCTe.Items[j] do
               begin
                 INIRec.WriteString(sSecao, 'chCTe', chCTe);
                 INIRec.WriteString(sSecao, 'SegCodBarra', SegCodBarra);

                 // Implementar infUnidTransp - Lista
               end;
             end;

             for j := 0 to infDoc.infMunDescarga.Items[i].infNFe.Count -1 do
             begin
               sSecao := 'infNFe' + IntToStrZero(I+1, 3) + IntToStrZero(J+1, 3);

               with infDoc.infMunDescarga.Items[i].infNFe.Items[j] do
               begin
                 INIRec.WriteString(sSecao, 'chNFe', chNFe);
                 INIRec.WriteString(sSecao, 'SegCodBarra', SegCodBarra);

                 // Implementar infUnidTransp - Lista
               end;
             end;

             for j := 0 to infDoc.infMunDescarga.Items[i].infMDFeTransp.Count -1 do
             begin
               sSecao := 'infMDFeTransp' + IntToStrZero(I+1, 3) + IntToStrZero(J+1, 3);

               with infDoc.infMunDescarga.Items[i].infMDFeTransp.Items[j] do
               begin
                 INIRec.WriteString(sSecao, 'chMDFe', chMDFe);

                 // Implementar infUnidTransp - Lista
               end;
             end;

           end;
         end;

         INIRec.WriteInteger('tot', 'qCTe', tot.qCTe);
         INIRec.WriteInteger('tot', 'qNFe', tot.qNFe);
         INIRec.WriteInteger('tot', 'qMDFe', tot.qMDFe);
         INIRec.WriteFloat( 'tot', 'vCarga', tot.vCarga);
         INIRec.WriteString( 'tot', 'cUnid', UnidMedToStr(tot.cUnid));
         INIRec.WriteFloat( 'tot', 'qCarga', tot.qCarga);

          for i := 0 to lacres.Count - 1 do
          begin
            sSecao := 'lacres' + IntToStrZero(I+1, 3);
            with lacres.Items[i] do
            begin
              INIRec.WriteString(sSecao, 'nLacre', nLacre);
            end;
          end;

          for i := 0 to autXML.Count - 1 do
          begin
            sSecao := 'autXML' + IntToStrZero(I+1, 3);
            with autXML.Items[i] do
            begin
//              if CNPJCPF <> '' then
                INIRec.WriteString(sSecao, 'CNPJCPF', CNPJCPF)
//              else if CPF <> '' then
//                     INIRec.WriteString(sSecao, 'CNPJCPF', CPF);
            end;
          end;

         INIRec.WriteString('infAdic', 'infAdFisco', infAdic.infAdFisco);
         INIRec.WriteString('infAdic', 'infCpl', infAdic.infCpl);
       end;
   finally
      IniMDFe := TStringList.Create;
      INIRec.GetStrings(IniMDFe);
      INIRec.Free;
      Result := StringReplace(IniMDFe.Text,sLineBreak+sLineBreak,sLineBreak,[rfReplaceAll]);
      IniMDFe.Free;
   end;

  end;

end;

Juliomar Marchetti · 8 Julho, 2016

Anexe ele!

edite e exclua e anexe para que possa ser feito o merge!

Jose Carlos Barbosa · 8 Julho, 2016

Nébrio segue um TXT caso ainda precise de ajuda...

Manife.TXT

nebrio · 8 Julho, 2016

Anexo.

Desculpe mas não exclui o código que coloquei na mensagem acima....srsrs

DoACBrMDFeUnit.pas

Juliomar Marchetti · 8 Julho, 2016

No svn a contribuição!

Entrar

Sobre nós...

Campos para MDFe no Plus

Recommended Posts

Janio

nebrio

Janio

Juliomar Marchetti

Janio

Juliomar Marchetti

Janio

Juliomar Marchetti

Janio

nebrio

nebrio

Juliomar Marchetti

Jose Carlos Barbosa

nebrio

Juliomar Marchetti

Crie uma conta ou entre para comentar

Criar uma conta

Entrar

Links Rápidos

Links Rápidos

ACBr Pro

SOBRE

Sobre nós...

Informação Importante

	Juliomar Marchetti	skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br