Ct-e Ferroviario

[Leandro_Silva]

procedure TCTeW.GerarFerrov;
begin
  Gerador.wGrupo('ferrov', '#01');
  Gerador.wCampo(tcStr, '#02', 'tpTraf', 01, 01, 1, TpTrafegoToStr(CTe.infCTeNorm.ferrov.tpTraf), DSC_TPTRAF);

  if CTe.infCTeNorm.ferrov.tpTraf <> ttProprio then
  begin
    Gerador.wGrupo('trafMut', '#03');
    Gerador.wCampo(tcStr, '#04', 'respFat', 01, 01, 1, TrafegoMutuoToStr(CTe.infCTeNorm.ferrov.trafMut.respFat), DSC_RESPFAT);
    Gerador.wCampo(tcStr, '#05', 'ferrEmi', 01, 01, 1, TrafegoMutuoToStr(CTe.infCTeNorm.ferrov.trafMut.ferrEmi), DSC_FERREMI);
    Gerador.wGrupo('/trafMut');
  end;

  Gerador.wCampo(tcStr, '#06', 'fluxo ', 01, 10, 1, CTe.infCTeNorm.ferrov.fluxo, DSC_FLUXO);

  Gerador.wCampo(tcStr, '#07', 'idTrem', 01, 07, 0, CTe.infCTeNorm.ferrov.idTrem, DSC_IDTREM);

  if CTe.infCTeNorm.ferrov.vFrete > 0 then
    Gerador.wCampo(tcDe2, '#08', 'vFrete', 01, 15, 1, CTe.infCTeNorm.ferrov.vFrete, DSC_VFRETE);

  GerarFerroEnv;
  GerardetVag;

  Gerador.wGrupo('/ferrov');
end;

Tive que fazer umas alterações na unit pcteCTeW

quando Tipo de Tráfego for proprio, não tem necessidade de mandar os dados  do "trafMut"

e neem o valor do frete, fazendo isso consegui transmitir o CTe.

 

 

 

[Juliana Tamizou]

Bom dia.

Por favor anexe a unit alterada.

Att.

[Leandro_Silva]

5 minutos atrás, Juliana Tamizou disse:

Bom dia.

Por favor anexe a unit alterada.

Att.

Tudo bem.

pcteCTeW.pas

[Italo Giurizzato Junior]

Bom dia Leandro,

Primeiramente quero agradecer pela contribuição.

Segundo, os seus fontes estão desatualizados.

Terceiro tinha muito mais alterações a serem feitas para deixar a rotina que gera o XML para o modal ferroviário ficar em conformidade com o manual segundo a versão vigente.

Aproveitei e fiz todas as alterações necessárias.

Favor atualizar todos os fontes de todas as pastas, reinstale a suíte ACBr e faça novos testes.