Obs de CT-e Globalizado e Documentos de CT-e Redespacho e Multimodal

[José S. Simione]

Olá,

Estou ajustando o sistema para emissão do CT-e 3.00 e tive que adicionar um novo campo para Observações de CT-e Globalizado.

Foi adicionado o campo 'ObsGlobalizado' no DataSet "cdsIdentificacao".

E o no momento de setar as informações foi Alterado de:

if indGlobalizado = tiSim then
   FieldByName('indGlobalizado').AsString  := 'Sim'
else
   FieldByName('indGlobalizado').AsString  := 'Não';

Para:

if indGlobalizado = tiSim then
   begin
      FieldByName('indGlobalizado').AsString  := 'Sim';
      if (Trim(FCTe.infCTeNorm.infGlobalizado.xObs) <> '') then
         FieldByName('ObsGlobalizado').AsString  := FCTe.infCTeNorm.infGlobalizado.xObs;
   end
else
   FieldByName('indGlobalizado').AsString  := 'Não';

Efetuei outra alteração referente aos Documentos Originários que não eram informados em CT-e de Redespacho Intermediário e Vinculado e Multimodal. Porem segundo manual da SeFaz a inserção desses dados é opcional, sendo assim, devido a uma solicitação de um cliente, alterei a unit 'pcteCTeW' de:

procedure TCTeW.GerarInfCTeNorm;
var
 versao: String;
begin
  if (CTe.Ide.tpCTe = tcNormal) or (CTe.Ide.tpCTe = tcSubstituto) then
  begin
    Gerador.wGrupo('infCTeNorm', '#252');

    if (CTe.infCTe.versao >= 3) and (CTe.ide.modelo = 67) then
    begin
      GerarinfServico;
      GerarinfDocRef;
      GerarInfSeg;
    end
    else begin
      GerarinfCarga;

      if (CTe.Ide.tpServ <> tsIntermediario) and (CTe.Ide.tpServ <> tsMultimodal)
       then GerarInfDoc;

      if CTe.infCTeNorm.docAnt.emiDocAnt.Count > 0
       then GerarDocAnt;

      if CTe.infCTe.versao = 2 then
        GerarInfSeg;
    end;
...

Para:

procedure TCTeW.GerarInfCTeNorm;
var
 versao: String;
begin
  if (CTe.Ide.tpCTe = tcNormal) or (CTe.Ide.tpCTe = tcSubstituto) then
  begin
    Gerador.wGrupo('infCTeNorm', '#252');

    if (CTe.infCTe.versao >= 3) and (CTe.ide.modelo = 67) then
    begin
      GerarinfServico;
      GerarinfDocRef;
      GerarInfSeg;
    end
    else begin
      GerarinfCarga;
      GerarInfDoc;

      if CTe.infCTeNorm.docAnt.emiDocAnt.Count > 0
       then GerarDocAnt;

      if CTe.infCTe.versao = 2 then
        GerarInfSeg;
    end;
...

As Units alteradas estão em anexo e me mantenho a disposição para esclarecimentos.

 

Att

José S. Simione

ACBrCTeDACTEFR.pas

pcteCTeW.pas

[José S. Simione]

A alteração referente aos Documentos Transportados na UNIT  pcteCTeW pode ignorar por hora, estou verificando com a SeFaz, pois a uma discrepância nas informações do Manual. 

Acontece que o campo cita essas informações como Opcionais nesses casos, porem existe uma validação que apresenta uma Rejeição nesses casos.

Separei os pontos que estou questionando a SeFaz, assim que me retornarem eu posto aqui. 

Segue em anexo.

 

Editado 7 Março, 2017 por José S. Simione

[Juliomar Marchetti]

Boa tarde

contribuição adicionada ao svn!

acho que faltaria adicionar o fr3 a informação correto?

[José S. Simione]

Estou ajustando o fr3 e validando outros pontos, provavelmente terei mais alteração para passar, vou compor tudo e assim que tiver tudo ok posto aqui.

 

att

José S. Simione

[José S. Simione]

O fr3 que estou trabalhando vai compor muitas mudanças referentes ao CT-e 3.00, como a remoção de algumas informações da DACTe e do XML, isso requer mudanças em outras UNITs. Creio que vai fugir do assunto do tópico.

Devo abrir outro tópico para isso?