Validação incorreta dos campos xOrig e xDes na Previsão do fluxo da carga

wmrodrigo · 28 Novembro, 2018

Bom dia,

Ao efetuar alguns testes de CT-e's em ambiente de homologação, ocorreram inconsistências com os campos da Previsão do fluxo da carga.

O campo "#64" - xOrig e o campo "#67" - xDest estão com tamanho divergente do especificado no Manual da CT-e V 3.00 e retornam alerta ao validar o XML.

Para sanar a inconsistência foi efetuada alteração no arquivo acbr/code/trunk2/Fontes/ACBrDFe/ACBrCTe/PCNCTe/pcteCTeW.pas (em anexo) nas linhas 650 e 662 na procedure TCTeW.GerarFluxo.

procedure TCTeW.GerarFluxo;
var
  i: Integer;
begin
  if (trim(CTe.Compl.fluxo.xOrig) <> '') or (CTe.Compl.fluxo.pass.Count > 0) or
     (trim(CTe.Compl.fluxo.xDest) <> '') or (trim(CTe.Compl.fluxo.xRota) <> '') then
  begin
    Gerador.wGrupo('fluxo', '#063');
    Gerador.wCampo(tcStr, '#064', 'xOrig ', 01, 60, 0, CTe.Compl.fluxo.xOrig, DSC_XORIG);

    for i := 0 to CTe.Compl.fluxo.pass.Count - 1 do
    begin
      Gerador.wGrupo('pass', '#065');
      Gerador.wCampo(tcStr, '#066', 'xPass ', 01, 15, 1, CTe.Compl.fluxo.pass[i].xPass, DSC_XPASS);
      Gerador.wGrupo('/pass');
    end;

    if CTe.Compl.fluxo.pass.Count > 990 then
      Gerador.wAlerta('#065', 'pass', DSC_PASS, ERR_MSG_MAIOR_MAXIMO + '990');

    Gerador.wCampo(tcStr, '#067', 'xDest ', 01, 60, 0, CTe.Compl.fluxo.xDest, DSC_XDEST);
    Gerador.wCampo(tcStr, '#068', 'xRota ', 01, 10, 0, CTe.Compl.fluxo.xRota, DSC_XROTA);
    Gerador.wGrupo('/fluxo');
  end;
end;

Na imagem em anexo é possível verificar a divergência.

pcteCTeW.pas