Falha Na Unit Pctectew - Ct-E 2.00

[Fernando Dutra]

Boa Tarde Pessoal, tudo bem?

 

Efetuando testes achei duas falhas na procedure "GerarAereo". Os acertos descrevo abaixo. Espero estar ajudando. Obrigado!

 

 

  //Código Antigo

  Gerador.wCampo(tcStr, '#03', 'nOCA      ', 14, 14, 0, CTe.infCTeNorm.aereo.nOCA, DSC_NOCA);

  Gerador.wCampo(tcStr, '#03', 'nOCA      ', 11, 11, 0, CTe.infCTeNorm.aereo.nOCA, DSC_NOCA); // Agora são 11 dígitos

  

  // Código Novo

  Gerador.wCampo(tcInt, '#13', 'cInfManu', 02, 02, 0, CTe.infCTeNorm.aereo.natCarga.cinfManu, DSC_CINFMANU);

  Gerador.wCampo(tcInt, '#13', 'cInfManu', 01, 02, 0, CTe.infCTeNorm.aereo.natCarga.cinfManu, DSC_CINFMANU); // Pode ser 1 ou dois caracteres

[Italo Giurizzato Junior]

Boa tarde Fernando,

 

Alterações realizadas, favor atualizar os fontes e testar.

 

Muito obrigado pela colaboração.

[Fernando Dutra]

Boa Tarde Ítalo, tudo bem?

 

Teria como fazer o mesmo acerto que fizemos acima, no arquivo "pcteCTeW_V104.inc". Ele está com o mesmo problema. Espero ter ajudado. Obrigado!

 

 

procedure TCTeW.GerarAereo;  // M

begin

  Gerador.wGrupo('aereo', '#01');

  Gerador.wCampo(tcInt, '#02', 'nMinu   ', 09, 09, 0, CTe.Aereo.nMinu, '');

  Gerador.wCampo(tcStr, '#03', 'nOCA    ', 14, 14, 0, CTe.Aereo.nOCA, '');

  Gerador.wCampo(tcDat, '#04', 'dPrev   ', 10, 10, 1, CTe.Aereo.dPrev, '');

  Gerador.wCampo(tcStr, '#05', 'xLAgEmi ', 01, 20, 0, CTe.Aereo.xLAgEmi, '');

  Gerador.wCampo(tcStr, '#06', 'IdT     ', 01, 14, 0, CTe.Aereo.IdT, '');

 

  Gerador.wGrupo('tarifa', '#07');

  Gerador.wCampo(tcStr, '#08', 'CL     ', 01, 02, 1, CTe.Aereo.tarifa.CL, '');

  Gerador.wCampo(tcStr, '#09', 'cTar   ', 01, 04, 0, CTe.Aereo.tarifa.cTar, '');

  Gerador.wCampo(tcDe2, '#10', 'vTar   ', 01, 15, 1, CTe.Aereo.tarifa.vTar, '');

  Gerador.wGrupo('/tarifa');

 

  if (CTe.Aereo.natCarga.xDime<>'') or (CTe.Aereo.natCarga.cinfManu<>0) or

     (CTe.Aereo.natCarga.cImp<>'')

   then begin

    Gerador.wGrupo('natCarga', '#11');

    Gerador.wCampo(tcStr, '#12', 'xDime   ', 05, 14, 0, CTe.Aereo.natCarga.xDime, '');

    //Gerador.wCampo(tcInt, '#13', 'cInfManu', 02, 02, 0, CTe.Aereo.natCarga.cinfManu, ''); Código Antigo

    Gerador.wCampo(tcInt, '#13', 'cInfManu', 01, 02, 0, CTe.Aereo.natCarga.cinfManu, ''); // Código Novo

    Gerador.wCampo(tcStr, '#14', 'cIMP    ', 03, 03, 0, CTe.Aereo.natCarga.cIMP, '');

    Gerador.wGrupo('/natCarga');

   end;

 

  Gerador.wGrupo('/aereo');

end;

[Italo Giurizzato Junior]

Boa tarde Fernando,

 

Alteração feita e disponibilizada.

[Fernando Dutra]

Bom Dia Ítalo, tudo bem?

 

Obrigado!