DACTE Fortes

[Lucas G. dos Santos]

Olá,

Estou com dúvida quanto a impressão do campo obsCont quando o CT-e é da modalidade aéreo.

Vi que tem um tópico antigo que cita esse detalhe, mas sem reposta.(

)

Na época o tópico cita a impressão no QuickReport. Hoje no Fortes tem o mesmo código.

Fiz uma pesquisa sobre isso e não consegui encontrar a resposta, então recorri ao fórum.

Existe algum motivo para não imprimir a observação quando a modalidade é aéreo?

Desde já agradeço.

[Juliomar Marchetti]

Só se existir uma cláusula bloqueando.

Chegou a debugar?

se possível anexar um xml com esse modal pois não emito o mesmo.

[Lucas G. dos Santos]

No fonte tem a condição para não imprimir no caso do aéreo.

No arquivo ACBrCTeDACTeRLRetrato.pas linha 2341.

Está assim:

  if FCTe.Ide.modal <> mdAereo then
  begin
    for i := 0 to (FCTe.Compl.ObsCont.Count - 1) do
      with FCTe.Compl.ObsCont.Items do
      begin
        rlmObsExcEmitente.Lines.Add(StringReplace(xCampo, '&lt;BR&gt;', #13#10, [rfReplaceAll, rfIgnoreCase]) + ': ' +
          StringReplace(xTexto, '&lt;BR&gt;', #13#10, [rfReplaceAll, rfIgnoreCase]));
      end;
  end;
 

A minha dúvida é se isso está correto. Não encontrei nada que justifique essa condição, por isso pedi ajuda.

Segue o arquivo 41161226052418000136570010000000061018100002-cte.xml. 

[Juliomar Marchetti]

Pra dizer isso só lendo o manual!

em uma rápida olhada não fala nada se pode ou não pode.

se sugere mudanças favor anexar aqui o fonte.

[Lucas G. dos Santos]

Acredito que se está no XML autorizado e protocolado, não tem problema em ser impresso.

Apenas comentei a linha com a condição que não permitia imprimir.

ACBrCTeDACTeRLRetrato.pas

Editado 6 Janeiro, 2017 por lucas.gabriel

[Juliomar Marchetti]

Pergunta já que trabalha com Aquaviário

viu o código comentado acima desse trecho?

if FCTe.Ide.modal = mdAereo
   then begin
    rlmObsExcEmitente.Lines.Add( 'O transporte coberto por este conhecimento se rege pelo código brasileiro de aeronáutica. '+
                  'O expedidor/remetente aceita como corretas todas as especificações impressas neste conhecimento,' );
    rlmObsExcEmitente.Lines.Add( 'certificando que os artigos perigosos descritos pela regulamentação da ICAO foram devidamente '+
                  'informados e acondicionados para transporte aéreo.' );
   end;

isso é necessário?

[Lucas G. dos Santos]

Acho que você se referiu ao aéreo.

Não encontrei nada sobre. Eu tinha visto esse código comentado e não acho que seja necessário.

Eu acredito que qualquer observação que deva sair na DACTE tem que constar no XML autorizado.

Por isso, no arquivo eu removi a linha com a condição de não imprimir.

Obrigado.

 

[Juliomar Marchetti]

procedure TfrmDACTeRLRetrato.rlb_16_DadosExcEmitenteBeforePrint(Sender: TObject; var PrintIt: Boolean);
var
  i: integer;
begin
  inherited;
  PrintIt := RLCTe.PageNumber = 1;

  rlmObsExcEmitente.Lines.BeginUpdate;
  rlmObsExcEmitente.Lines.Clear;
  rlmObsFisco.Lines.Clear;
  (*
  if FCTe.Ide.modal = mdAereo
   then begin
    rlmObsExcEmitente.Lines.Add( 'O transporte coberto por este conhecimento se rege pelo código brasileiro de aeronáutica. '+
                  'O expedidor/remetente aceita como corretas todas as especificações impressas neste conhecimento,' );
    rlmObsExcEmitente.Lines.Add( 'certificando que os artigos perigosos descritos pela regulamentação da ICAO foram devidamente '+
                  'informados e acondicionados para transporte aéreo.' );
   end;
*)
//  if FCTe.Ide.modal <> mdAereo then
//  begin
    for i := 0 to (FCTe.Compl.ObsCont.Count - 1) do
      with FCTe.Compl.ObsCont.Items[i] do
      begin
        rlmObsExcEmitente.Lines.Add(StringReplace(xCampo, '&lt;BR&gt;', #13#10, [rfReplaceAll, rfIgnoreCase]) + ': ' +
          StringReplace(xTexto, '&lt;BR&gt;', #13#10, [rfReplaceAll, rfIgnoreCase]));
      end;
//  end;

  rlmObsExcEmitente.Lines.Text := StringReplace(rlmObsExcEmitente.Lines.Text, ';', #13, [rfReplaceAll]);
  rlmObsExcEmitente.Lines.EndUpdate;

 

o trecho que tu comentou, acima dele tem outro.

sabe maiores informações ?

[Danilo Ziza]

Boa noite Srs.

Segue em anexo um pequeno ajuste no DACTE Fortes ref. ao alinhamento das informações de documentos originários, espero que este seja o lugar correto pra postar isso.

ACBrCTeDACTeRLRetrato.pas

[Lucas G. dos Santos]

Eu vi que o trecho acima já estava comentado.

Não sei dizer se é correto, mas se for necessário o usuário pode informar no campo obsCont que vai imprimir da mesma forma.

O único detalhe é observar a quantidade de caracteres que nesse campo é de 160 ou pode usar o campo xObs que tem 2000 posições.

Nesse caso fica a critério do usuário informar ou não conforme a necessidade.

Obrigado.

[Juliomar Marchetti]

No svn subi as duas mudanças

favor testarem

[Lucas G. dos Santos]

Atualizado e testado, tudo certo com as duas modificações Juliomar, muito obrigado.