Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

Embrati

Membros Pro
 Perfil  Explorar Conteúdo

  • Total de ítens

    59

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Embrati

    Componente Para Impressoras De Código De Barras (Zebra, Argox, Etc)

    em Dúvidas Gerais sobre o ACBr

    Postado

    Olá,

     

    Estou tentando criar um modelo de impressão de etiquetas para óticas onde utilizo uma etiquetas que tem uma parte que passa pela haste, volta e é colada entre duas partes dobráveis da etiqueta.

    No desenho abaixo, a linha vertical no centro mostra onde ela é dobrada e a linha horizontal a esquerda mostra a parte que envolve a haste do óculos, volta e depois é colada entre as duas partes dobradas. A etiqueta é autoadesiva.

                                       -----------------------------

                                       |                |                   |

     ---------------------------|                |                   |

                                       |                |                   |

                                       -----------------------------

     

    Outro detalhe é que essa parte da etiqueta que envolve a haste passa pelo sensor de GAP, então não posso usa-lo pois não representa inicio e fim da etiqueta.

     

    Abaixo segue código que adicionei a um botão no exemplo do componente ACBrEtq:

     

      AtivarACBrETQ;
     
      with ACBrETQ do begin
        ImprimirTexto(orNormal, 1, 1, 1,  0, 155, 'XXXXXXXXXXXXXXXXXXXXXXX');
        ImprimirTexto(orNormal, 1, 1, 1,  7, 155, 'XXXXXXXXXXXXXXXXXXXXXXX');
        ImprimirTexto(orNormal, 1, 1, 1, 14, 155, 'XXXXXXXXXXXXXXXXXXXXXXX');
        ImprimirTexto(orNormal, 1, 1, 1, 21, 155, 'XXXXXXXXXXXXXXXXXXXXXXX');
        ImprimirTexto(orNormal, 1, 1, 1, 28, 155, 'XXXXXXXXXXXXXXXXXXXXXXX');
        ImprimirTexto(orNormal, 1, 1, 1, 35, 155, 'XXXXXXXXXXXXXXXXXXXXXXX');
     
        ImprimirTexto(orNormal, 1, 1, 1,  0, 257, 'XXXXXXXXXXXXXXXXXXXXXXX');
        ImprimirTexto(orNormal, 1, 1, 1,  7, 257, 'XXXXXXXXXXXXXXXXXXXXXXX');
        ImprimirTexto(orNormal, 1, 1, 1, 14, 257, 'XXXXXXXXXXXXXXXXXXXXXXX');
     
        ImprimirBarras(orNormal, '2', '5', '2', 21, 257, '0123456789', 15, becNAO);
     
        Imprimir(StrToInt(eCopias.Text), StrToInt(eAvanco.Text));
     
        Desativar;
      end;  
     
    Temos uma Argox OS-214 Plus novinha, já a reiniciei diversas vezes, uso padrao PPLB e o problema é que nenhum valor que eu coloque em Avanço da certo. O avança é sempre de 7mm.
     
    Alguém pode me ajudar POR FAVOR ???

    Acbretq Não Imprime Caracter Especial

    em Dúvidas Gerais sobre o ACBr

    Postado

    Olá,

     

    Estou tentando criar um modelo de impressão de etiquetas para óticas onde utilizo uma etiquetas que tem uma parte que passa pela haste, volta e é colada entre duas partes dobráveis da etiqueta.

    No desenho abaixo, a linha vertical no centro mostra onde ela é dobrada e a linha horizontal a esquerda mostra a parte que envolve a haste do óculos, volta e depois é colada entre as duas partes dobradas. A etiqueta é autoadesiva.

                                       -----------------------------

                                       |                |                   |

     ---------------------------|                |                   |

                                       |                |                   |

                                       -----------------------------

     

    Outro detalhe é que essa parte da etiqueta que envolve a haste passa pelo sensor de GAP, então não posso usa-lo pois não representa inicio e fim da etiqueta.

     

    Abaixo segue código que adicionei a um botão no exemplo do componente ACBrEtq:

     

      AtivarACBrETQ;
     
      with ACBrETQ do begin
        ImprimirTexto(orNormal, 1, 1, 1,  0, 155, 'XXXXXXXXXXXXXXXXXXXXXXX');
        ImprimirTexto(orNormal, 1, 1, 1,  7, 155, 'XXXXXXXXXXXXXXXXXXXXXXX');
        ImprimirTexto(orNormal, 1, 1, 1, 14, 155, 'XXXXXXXXXXXXXXXXXXXXXXX');
        ImprimirTexto(orNormal, 1, 1, 1, 21, 155, 'XXXXXXXXXXXXXXXXXXXXXXX');
        ImprimirTexto(orNormal, 1, 1, 1, 28, 155, 'XXXXXXXXXXXXXXXXXXXXXXX');
        ImprimirTexto(orNormal, 1, 1, 1, 35, 155, 'XXXXXXXXXXXXXXXXXXXXXXX');
     
        ImprimirTexto(orNormal, 1, 1, 1,  0, 257, 'XXXXXXXXXXXXXXXXXXXXXXX');
        ImprimirTexto(orNormal, 1, 1, 1,  7, 257, 'XXXXXXXXXXXXXXXXXXXXXXX');
        ImprimirTexto(orNormal, 1, 1, 1, 14, 257, 'XXXXXXXXXXXXXXXXXXXXXXX');
     
        ImprimirBarras(orNormal, '2', '5', '2', 21, 257, '0123456789', 15, becNAO);
     
        Imprimir(StrToInt(eCopias.Text), StrToInt(eAvanco.Text));
     
        Desativar;
      end;  
     
    Temos uma Argox OS-214 Plus novinha, já a reiniciei diversas vezes, uso padrao PPLB e o problema é que nenhum valor que eu coloque em Avanço da certo. O avança é sempre de 7mm.
     
    Alguém pode me ajudar POR FAVOR ???

    Impressora Não Obedece Propriedade Avanço

    em Dúvidas Gerais sobre o ACBr

    Postado

    Olá,

     

    Estou tentando criar um modelo de impressão de etiquetas para óticas onde utilizo uma etiquetas que tem uma parte que passa pela haste, volta e é colada entre duas partes dobráveis da etiqueta.

    No desenho abaixo, a linha vertical no centro mostra onde ela é dobrada e a linha horizontal a esquerda mostra a parte que envolve a haste do óculos, volta e depois é colada entre as duas partes dobradas. A etiqueta é autoadesiva.

                                       -----------------------------

                                       |                |                   |

     ---------------------------|                |                   |

                                       |                |                   |

                                       -----------------------------

     

    Outro detalhe é que essa parte da etiqueta que envolve a haste passa pelo sensor de GAP, então não posso usa-lo pois não representa inicio e fim da etiqueta.

     

    Abaixo segue código que adicionei a um botão no exemplo do componente ACBrEtq:

     

      AtivarACBrETQ;
     
      with ACBrETQ do begin
        ImprimirTexto(orNormal, 1, 1, 1,  0, 155, 'XXXXXXXXXXXXXXXXXXXXXXX');
        ImprimirTexto(orNormal, 1, 1, 1,  7, 155, 'XXXXXXXXXXXXXXXXXXXXXXX');
        ImprimirTexto(orNormal, 1, 1, 1, 14, 155, 'XXXXXXXXXXXXXXXXXXXXXXX');
        ImprimirTexto(orNormal, 1, 1, 1, 21, 155, 'XXXXXXXXXXXXXXXXXXXXXXX');
        ImprimirTexto(orNormal, 1, 1, 1, 28, 155, 'XXXXXXXXXXXXXXXXXXXXXXX');
        ImprimirTexto(orNormal, 1, 1, 1, 35, 155, 'XXXXXXXXXXXXXXXXXXXXXXX');
     
        ImprimirTexto(orNormal, 1, 1, 1,  0, 257, 'XXXXXXXXXXXXXXXXXXXXXXX');
        ImprimirTexto(orNormal, 1, 1, 1,  7, 257, 'XXXXXXXXXXXXXXXXXXXXXXX');
        ImprimirTexto(orNormal, 1, 1, 1, 14, 257, 'XXXXXXXXXXXXXXXXXXXXXXX');
     
        ImprimirBarras(orNormal, '2', '5', '2', 21, 257, '0123456789', 15, becNAO);
     
        Imprimir(StrToInt(eCopias.Text), StrToInt(eAvanco.Text));
     
        Desativar;
      end;  
     
    Temos uma Argox OS-214 Plus novinha, já a reiniciei diversas vezes, uso padrao PPLB e o problema é que nenhum valor que eu coloque em Avanço da certo. O avança é sempre de 7mm.
     
    Alguém pode me ajudar POR FAVOR ???

    Gerar Pdf Com Quick Não Estava Funcioncionando

    em ACBrBoleto

    Postado

    Não tenho autorização no forum para enviar, seguem procedures atualizadas.

     

     

    uses
      SysUtils, StdCtrls, Classes, Graphics, Controls, Forms, Dialogs, ACBrBoleto,
      QRMultiExport, QRCtrls, QuickRpt, ExtCtrls, QRExport, ACBrBarCode,
      {$IFDEF Delphi7}QRPDFFilt,{$ENDIF}QRWebFilt;
     
    procedure TACBrBoletoFCQuickFr.FormCreate(Sender: TObject);
    begin
       fBoletoFC := TACBrBoletoFCQuick(Owner) ;  // Link para o Pai
       txtSwHouse.Caption := BoletoFC.SoftwareHouse ;
       QRLabel2.Caption := BoletoFC.SoftwareHouse ;
       QRLabel91.Caption := BoletoFC.SoftwareHouse ;
       ACBrBarCode1.Width := imgBarra.Width ;
       ACBrBarCode1.Height:= imgBarra.Height ;
       ACBrBarCode1.Ratio:=3;
       ACBrBarCode1.Modul:=1;
    end;
     
    procedure TACBrBoletoFCQuick.Imprimir;
    var
      frACBrBoletoQuick : TACBRBoletoFCQuickFr;
      RLLayout: TQuickRep;
      //MultiExport : TQRMultiExport ;
      FiltroExportacao: TQRPAbstractExportFilter;
      //HTMLFilter  : TQRHTMLDocumentFilter ;
    begin
      inherited Imprimir;    // Executa verificações padroes
     
      frACBrBoletoQuick := TACBrBoletoFCQuickFr.Create(Self);
      try
         with frACBrBoletoQuick do
         begin
            case LayOut of
               lCarne  : RLLayout:= BoletoCarne;
               lPadraoEntrega  : RLLayout:= LayoutPadraoEntrega;
            else
               RLLayout := LayoutBoleto;
            end;
     
            RLLayout.PrinterSettings.Copies := NumCopias ;
     
            case Filtro of
              fiPDF  :
                begin
                  {$IFDEF Delphi7}
                  FiltroExportacao := TQRPDFDocumentFilter.Create(NomeArquivo);
                  try
                    TQRPDFDocumentFilter(FiltroExportacao).CompressionOn := true;
                    RLLayout.ExportToFilter(FiltroExportacao);
                  finally
                    FiltroExportacao.Free;
                  end;
                  {$ENDIF}
    //               MultiExport := TQRMultiExport.Create(self);
    //               try
    //                  MultiExport.Report       := RLLayout ;
    //                  MultiExport.ExportFormat := qrxPDF ;
    //                  MultiExport.FileName     := NomeArquivo ;
    //                  MultiExport.ShowDialog   := MostrarSetup ;
    //                  MultiExport.DPI          := 300 ;
    //                  MultiExport.DoExport ;
    //               finally
    //                  MultiExport.Free ;
    //               end ;
                end ;
     
              fiHTML :
                begin
                   (*  Codigo abaixo comentado pois  não funciona...
                   HTMLFilter := TQRHTMLDocumentFilter.Create( NomeArquivo );
                   try
                      RLLayout.ExportToFilter( HTMLFilter );
                   finally
                      HTMLFilter.Free ;
                   end ;
                   *)
                   raise Exception.Create( ACBrStr('Exportação para HTML não implementada no QuickReport') ) ;
                end ;
            else
              begin
                if MostrarPreview then
                   RLLayout.PreviewModal
                else
                 begin
                   if MostrarSetup then
                      RLLayout.PrinterSetup ;
     
                   if (RLLayout.Tag = 0) then
                      RLLayout.Print;
                 end ;
              end
            end ;
         end ;
      finally
         frACBrBoletoQuick.Free ;
      end;
    end;
     

    Erro Ao Enviar O Boleto Por E-Mail

    em ACBrBoleto

    Postado

    Galera, boa tarde...

     

    Abaixo segue correção para envio do boleto via e-mail.

    O erro acontece quando o sistema é executado na área de trabalho através de atalho.

    Acontece que a variável NomeArquivo recebe somente o nome do arquivo sem o caminho, então o sistema utiliza a pasta de execução para gerar o PDF, ou seja, a área de trabalho, mas na hora de anexar o sistema não localiza o arquivo gerado.

    Com esta correção o funcionamento fica perfeito.

     

     

    *** ERRADO ***

     

        if (EnviaPDF) then
        begin
          ACBrBoletoFC.DirArqPDF_HTML:=ExtractFilePath(Application.ExeName);
          ACBrBoletoFC.NomeArquivo :='boleto.pdf';
           NomeArq:=ExtractFilePath(Application.ExeName)+'boleto.pdf';
           GerarPDF;
           m.AddPartBinaryFromFile(NomeArq, p);
     
        end else
         begin
          ACBrBoletoFC.DirArqPDF_HTML:=ExtractFilePath(Application.ExeName);
          ACBrBoletoFC.NomeArquivo :='boleto.html';
           NomeArq:=ExtractFilePath(Application.ExeName)+'boleto.html';
           GerarHTML;
           m.AddPartBinaryFromFile(NomeArq, p);
         end;
     
    *** CERTO ***

    if (EnviaPDF) then

        begin

          ACBrBoletoFC.DirArqPDF_HTML:=ExtractFilePath(Application.ExeName);

          NomeArq := ExtractFilePath(Application.ExeName)+'boleto.pdf';

          ACBrBoletoFC.NomeArquivo := NomeArq;

          GerarPDF;

          m.AddPartBinaryFromFile(NomeArq, p);

     

        end else

         begin

          ACBrBoletoFC.DirArqPDF_HTML:=ExtractFilePath(Application.ExeName);

          NomeArq := ExtractFilePath(Application.ExeName)+'boleto.html';

          ACBrBoletoFC.NomeArquivo := NomeArq;

          GerarHTML;

          m.AddPartBinaryFromFile(NomeArq, p);

         end;

     

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.