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.