Impressão Evento CTeOS

[Cleonir]

Na impressão do evento do CTeOS no FortesReport, não esta saindo os dados do tomador.

É necessário fazer uma verificação no Modelo

Se for CTeOS os dados do tomador é preciso pegar assim FCTe.toma.xNome  por exemplo.

Fiz um case para resolver isso ficando assim no BeforePrint da Banda do Tomador...

case FCTe.Ide.modelo of
      57://CTe
      begin
        if FCTe.Ide.Toma4.xNome = '' then
        begin
          case FCTe.Ide.Toma03.Toma of
            tmRemetente:
            begin
              rllRazaoTomador.Caption := FCTe.Rem.xNome;
              rllCNPJTomador.Caption := FormatarCNPJouCPF(FCTe.Rem.CNPJCPF);
              rllEnderecoTomador.Caption := FCTe.Rem.EnderReme.xLgr + ', ' + FCTe.Rem.EnderReme.nro;
              rllBairroTomador.Caption := FCTe.Rem.EnderReme.xBairro;
              rllCEPTomador.Caption := FormatarCEP(FCTe.Rem.EnderReme.CEP);
              rllMunTomador.Caption := FCTe.Rem.EnderReme.xMun + ' - ' + FCTe.Rem.EnderReme.UF;
              rllFoneTomador.Caption := FormatarFone(FCTe.Rem.fone);
              rllInscEstTomador.Caption := FCTe.Rem.IE;
            end;
            tmExpedidor:
            begin
              rllRazaoTomador.Caption := FCTe.Exped.xNome;
              rllCNPJTomador.Caption := FormatarCNPJouCPF(FCTe.Exped.CNPJCPF);
              rllEnderecoTomador.Caption := FCTe.Exped.EnderExped.xLgr + ', ' + FCTe.Exped.EnderExped.nro;
              rllBairroTomador.Caption := FCTe.Exped.EnderExped.xBairro;
              rllCEPTomador.Caption := FormatarCEP(FCTe.Exped.EnderExped.CEP);
              rllMunTomador.Caption := FCTe.Exped.EnderExped.xMun + ' - ' + FCTe.Exped.EnderExped.UF;
              rllFoneTomador.Caption := FormatarFone(FCTe.Exped.fone);
              rllInscEstTomador.Caption := FCTe.Exped.IE;
            end;
            tmRecebedor:
            begin
              rllRazaoTomador.Caption := FCTe.Receb.xNome;
              rllCNPJTomador.Caption := FormatarCNPJouCPF(FCTe.Receb.CNPJCPF);
              rllEnderecoTomador.Caption := FCTe.Receb.EnderReceb.xLgr + ', ' + FCTe.Receb.EnderReceb.nro;
              rllBairroTomador.Caption := FCTe.Receb.EnderReceb.xBairro;
              rllCEPTomador.Caption := FormatarCEP(FCTe.Receb.EnderReceb.CEP);
              rllMunTomador.Caption := FCTe.Receb.EnderReceb.xMun + ' - ' + FCTe.Receb.EnderReceb.UF;
              rllFoneTomador.Caption := FormatarFone(FCTe.Receb.fone);
              rllInscEstTomador.Caption := FCTe.Receb.IE;
            end;
            tmDestinatario:
            begin
              rllRazaoTomador.Caption := FCTe.Dest.xNome;
              rllCNPJTomador.Caption := FormatarCNPJouCPF(FCTe.Dest.CNPJCPF);
              rllEnderecoTomador.Caption := FCTe.Dest.EnderDest.xLgr + ', ' + FCTe.Dest.EnderDest.nro;
              rllBairroTomador.Caption := FCTe.Dest.EnderDest.xBairro;
              rllCEPTomador.Caption := FormatarCEP(FCTe.Dest.EnderDest.CEP);
              rllMunTomador.Caption := FCTe.Dest.EnderDest.xMun + ' - ' + FCTe.Dest.EnderDest.UF;
              rllFoneTomador.Caption := FormatarFone(FCTe.Dest.fone);
              rllInscEstTomador.Caption := FCTe.Dest.IE;
            end;
          end;
        end
        else
        begin
          rllRazaoTomador.Caption := FCTe.Ide.Toma4.xNome;
          rllCNPJTomador.Caption := FormatarCNPJouCPF(FCTe.Ide.Toma4.CNPJCPF);
          rllEnderecoTomador.Caption := FCTe.Ide.Toma4.EnderToma.xLgr + ', ' + FCTe.Ide.Toma4.EnderToma.nro;
          rllBairroTomador.Caption := FCTe.Ide.Toma4.EnderToma.xBairro;
          rllCEPTomador.Caption := FormatarCEP(FCTe.Ide.Toma4.EnderToma.CEP);
          rllMunTomador.Caption := FCTe.Ide.Toma4.EnderToma.xMun + ' - ' + FCTe.Ide.Toma4.EnderToma.UF;
          rllFoneTomador.Caption := FormatarFone(FCTe.Ide.Toma4.fone);
          rllInscEstTomador.Caption := FCTe.Ide.Toma4.IE;
        end;
      end;
      67://CTeOS
      begin
        rllRazaoTomador.Caption := FCTe.toma.xNome;
        rllCNPJTomador.Caption := FormatarCNPJouCPF(FCTe.toma.CNPJCPF);
        rllEnderecoTomador.Caption := FCTe.toma.EnderToma.xLgr + ', ' + FCTe.toma.EnderToma.nro;
        rllBairroTomador.Caption := FCTe.toma.EnderToma.xBairro;
        rllCEPTomador.Caption := FormatarCEP(FCTe.toma.EnderToma.CEP);
        rllMunTomador.Caption := FCTe.toma.EnderToma.xMun + ' - ' + FCTe.toma.EnderToma.UF;
        rllFoneTomador.Caption := FormatarFone(FCTe.toma.fone);
        rllInscEstTomador.Caption := FCTe.toma.IE;
      end;
    end;

[Juliomar Marchetti]

Boa tarde

poderia anexar as alterações ?

[Cleonir]

Boa tarde Juliomar.

O problema é que não tenho o Lazarus para compilar e postar o .lfm

ACBrCTeDAEventoRLRetrato.dfm

ACBrCTeDAEventoRLRetrato.pas

[Juliomar Marchetti]

Boa noite

está no svn a contribuição

houve somente mudanças no .pas no dfm não eram necessários.