Correção no Cte- OS

[Walter Nilander Lemes]

 

procedure TCTeW.GerarInfCTeNorm;

   

não estava gravando as informações do procedimento  GerarInfCTeSub para Ct-e OS  nesta faixa da rotina

if (CTe.ide.modelo = 57) then
    begin
      if CTe.infCTe.versao >= 2 then
        GerarPeri;

      GerarVeicNovos;
      GerarCobr;
      GerarInfCTeSub;

      if (CTe.infCTe.versao >= 3) and (Trim(CTe.infCTeNorm.infGlobalizado.xObs) <> '') then
        GerarInfGlobalizado;

      if CTe.infCTe.versao >= 3 then
        GerarInfServVinc;
    end;

 

não estava gravando as informações do procedimento  GerarInfCTeSub para Ct-e OS então foi preciso

fazer a alteração abaixo quando  Ct-e for modelo 67 (Ct-e OS).

 

 

 

    if (CTe.ide.modelo = 57) or (CTe.ide.modelo = 67) then
    begin
      if CTe.infCTe.versao >= 2 then
        GerarPeri;

      GerarVeicNovos;
      GerarCobr;
      GerarInfCTeSub;

      if (CTe.infCTe.versao >= 3) and (Trim(CTe.infCTeNorm.infGlobalizado.xObs) <> '') then
        GerarInfGlobalizado;

      if CTe.infCTe.versao >= 3 then
        GerarInfServVinc;
    end;

 

 

Obrigado,

espero que suba esta modificação.

 

 

[Juliomar Marchetti]

Boa noite

favor anexar a unit alterada.

[Italo Giurizzato Junior]

Bom dia Walter,

Mas com essa alteração, corre-se o risco de gerar os dados referente a produtos perigosos e veículos novos, sendo que no CT-e OS isso não existe.

Não sei se os seus fontes estão atualizados, pois logo apos o IF que você postou temos:

    if CTe.ide.modelo = 67 then
    begin
      GerarInfCTeSub;

      if CTe.Ide.tpServ = tsTranspValores then
      begin
        Gerador.wCampo(tcEsp, '#', 'refCTeCanc', 44, 44, 0, OnlyNumber(CTe.infCTeNorm.refCTeCanc), DSC_CHCTE);
        if OnlyNumber(CTe.infCTeNorm.refCTeCanc) <> '' then
          if not ValidarChave(CTe.infCTeNorm.refCTeCanc) then
            Gerador.wAlerta('#', 'refCTeCanc', DSC_REFNFE, ERR_MSG_INVALIDO);
      end;

      GerarCobr;
    end;
 

[Walter Nilander Lemes]

Boa tarde Italo, voce tem razão neste ponto e tambem deu problema no ctee os normal ficou saindo uma observação no cte. Baixei uma atualização e deu certo, como você disse.

muito obrigado.