Alteracao Pcnnfertxt E Pcnlayouttxt

[Fabiano-Objetiva]

pcnNFeRTXT.pas:

 

Troca do tipo do campo na versao 3.10 de tcDat para tcDatHor.

 

if (nfe.infNFe.Versao < 3.10) then

     begin

       (*B09*)NFe.ide.dEmi := LerCampo(tcDat, 'dEmi');

      (*B10*)NFe.ide.dSaiEnt := LerCampo(tcDat, 'dSaiEnt');

     (*B10a*)NFe.ide.hSaiEnt := LerCampo(tcHor, 'hSaiEnt');

 

     end

    else

     begin

       (*B09*)NFe.ide.dEmi := LerCampo(tcDatHor, 'dhEmi');

              NFe.Ide.dSaiEnt := LerCampo(tcDatHor, 'dhSaiEnt');

     end;

 

pcnLayoutTXT.pas:

 

Incluído indFinal e indPres.

 

    LoadLayout('<B01>     B|cUF¨|cNF¨|NatOp¨|indPag¨|mod¨|serie¨|nNF¨|dhEmi¨|dhSaiEnt¨|tpNF¨|idDest¨|cMunFG¨|tpImp¨|tpEmis¨|CDV¨|tpAmb¨|finNFe¨|indFinal¨|indPres¨|procEmi¨|verProc¨|dhCont¨|xJust¨');

 

pcnLayoutTXT.pas

pcnNFeRTXT.pas

[Fabiano-Objetiva]

Boa tarde.

 

As Alterações acima serão comitadas ?

 

 

Aguardo retorno

 

Fabiano Hoffmann

[André Ferreira de Moraes]

Já existe o seguinte código na unit pcnNFeR.pas

    if NFe.infNFe.Versao >= 3 then
     begin
      (*B09*) NFe.ide.dEmi    := Leitor.rCampo(tcDatHor, 'dhEmi');
      (*B10*) NFe.ide.dSaiEnt := Leitor.rCampo(tcDatHor, 'dhSaiEnt');
     end
    else
     begin
      (*B09*) NFe.ide.dEmi    := Leitor.rCampo(tcDat, 'dEmi');
      (*B10*) NFe.ide.dSaiEnt := Leitor.rCampo(tcDat, 'dSaiEnt');
      (*B10a*)NFe.ide.hSaiEnt := Leitor.rCampo(tcHor, 'hSaiEnt');
     end;

E a alteração na unit pcnLayoutTXT.pas foi comitada.

[André Ferreira de Moraes]

Desculpe, tinha visto no arquivo errado, foi corrigido e enviado ao SVN.

[Fabiano-Objetiva]

ok. 

 

Obrigado

[isaacnborges]

Boa tarde.

Nosso sistema utiliza a leitura por arquivos texto.

Estava verificando os fontes das units pcnLayoutTXT e observei que a função CarregarLayoutTXT

está lendo corretamente os campos da versão da 3.10 da NF-e.

 

A questão é que utilizamos a unit pcnNFeRTXT, existe a procedure LerRegistro, e nessa rotina não consta a leitura das tags 'I50' e 'I52' para a leitura dos novos campos que a Sefaz disponibiliza.

I50|nDraw

I52|nRE¨|chNFe¨|qExport

 

E nessa mesma procedure, a leitura da tag 'I18', existe um trecho comentado que também se refere a novos campos criados.

{           NFe.Det.Prod.DI[j].tpViaTransp := StrToindIEDest(ok, LerCampo(tcStr, 'tpViaTransp'));

           NFe.Det.Prod.DI[j].vAFRMM := LerCampo(tcStr, 'vAFRMM');

           NFe.Det.Prod.DI[j].tpIntermedio := StrToindIEDest(ok, LerCampo(tcStr, 'tpIntermedio'));

           NFe.Det.Prod.DI[j].CNPJ := LerCampo(tcStr, 'CNPJ');

           NFe.Det.Prod.DI[j].UFTerceiro := LerCampo(tcStr, 'UFTerceiro'); }

 

Atualizei os fontes hoje e gostaria de saber se por enquanto é isso mesmo ou se será revisado.

 

Obrigado.

[isaacnborges]

Boa tarde.

Alguma posição quanto a questão acima.

 

 

Obrigado.