[Dúvida sobre dados do emitente (estabelecimento fantasia 2)]

4 minutos atrás, Daniel Simoes disse:

Quem Informa o Emitente é o SAT... Veja a coluna 1 (Origem) na Especificação Técnica do SAT

Primeiramente, muito obrigado pelo rápido retorno.

Esses dados são preenchidos pelo aparelho, mas na ativação também não foi informado isso. Por acaso ele busca do cadastro da empresa na SEFAZ ?

[Dúvida sobre dados do emitente (estabelecimento fantasia 2)]

Boa tarde pessoal...

Desculpem a ignorância, mas realmente não consegui entender como alterar o nome e o endereço do emitente...

abaixo seguem únicas informações que achei, quais são os demais campos ?

        // emitente
        Config.emit_CNPJ      := SatHomologacaoEmitenteCnpj;
        Config.emit_IE        := SatHomologacaoEmitenteIE;
        if trim(SatHomologacaoEmitenteIM)<>''
          then Config.emit_IM := SatHomologacaoEmitenteIM;

[Quais Os Tipos De Cod Barras Para Zebra Epl ?]

Olá pessoal, sei que o assunto é antigo, mas estou precisando da tabela de tipos para PPLA e vi que estava no caminho  https://acbr.svn.sourceforge.net/svnroot/acbr/tools/Argox/  mas esse URL não existe mais.

Onde posso encontrar agora ?

Obrigado pela atenção.

[Problemas com DIFAL depois de atualização SVN]

Em 08/07/2016 at 08:47, Juliomar Marchetti disse:

Senão migrou por favor migre o quanto antes!

 

Em 08/07/2016 at 08:35, Dercide Alvarez disse:

A Trunk1 não é mais atualizada desde o ano passado.

 

Dercide.

Migrei.... obrigado !!

[Problemas com DIFAL depois de atualização SVN]

Pessoal, boa tarde...

O Difal não foi implementado no ACBR Trunk 1 ?

Não consigo inserir os campos...

Alguém pode ajudar por favor ?

[Erro Ao Instalar O Acbr]

boa tade, reativando o post...

onde consigo o instalador do fortes reporte para o trunk 1 ?

[Ultima Versão funcional Trunk 1]

1 minuto atrás, Juliomar Marchetti disse:

Está no svn e tem um tópico ou melhor anuncio a página principal do fórum explicando o que foi feito!

http://www.projetoacbr.com.br/forum/announcement/18-mudan%C3%A7as-no-projeto-acbr-como-um-todo-e-exclus%C3%A3o-do-trunk1/

sugiro ler

Excelente, muito obrigado !!!!

[Ultima Versão funcional Trunk 1]

Bom dia amigos,

Sei que substituíram o Trunk pelo Trunk2 e que isso gerou diversas melhorias, porem ainda não adequei meu código para ele e preciso ainda usar o Trunk.

Onde consigo a ultima versão funcional do Trunk, uma vez que o mesmo foi removido do SVN ?

[Compatibilidade com equipamentos SAT]

Em 31/03/2016 at 07:27, Sérgio Assunção disse:

O ACBrSAT já foi testado com praticamente todos os aparelhos existentes no mercado.

Aqui temos nosso PDV em produção com aparelhos da Elgin, Tanca, Gertec, Dimep e Bematech.

O que muda entre os modelos é exatamente a dll usada por cada aparelho (fornecida pelos fabricantes).

No demo do ACBrSAT você vai deparar com o path da dll, e entender que no SAT as funções foram padronizadas.

Sobre a consultoria, você pode abrir um novo tópico na área dos classificados.

Sérgio, muito obrigado pelo retorno.

Vou passar essa informação ao cliente, mas me diz uma coisa, você tem preferencia por alguma das marcas ?! Seja por preço, facilidade de compra e de suporte, garantia, etc.

[Compatibilidade com equipamentos SAT]

Prezados, bom dia.

Gostaria de saber quais equipamentos SAT são compatíveis com o componente ACBR-SAT e qual o mais indicado por vocês, com relação a custo beneficio.

Estou precisando desenvolver a integração no meu sistema, gostaria de saber também se alguém pode me dar uma consultoria sobre o assunto. 

 

Att. Fábio Salviano

[NOVO LAYOUT]

Boa noite.

Obrigada pela contribuição, porém como pode ser visto no tópico abaixo a lista de geradores de relatórios suportados pelo ACBr foi reduzida a fim de facilitar a manutenção dos mesmos.

http://www.projetoacbr.com.br/forum/announcement/8-fortes-report-community-edition/

Att.

Por gentileza, reconsidere...

Esse layout pode ser muito utili para toda a comunidade que utiliza o QuickReport e posso ficar responsável por qualquer manutenção necessária nesse código.

Trata-se de um layout simples, confira no anexo, que já atende ao padrão dos bancos e esta dentro de uma UNIT que já trabalha com o QuickReport.

As Units AcbrBoletoFCQuickFR contam agora com o Filtro de PDF para salvar na visualização.

Posso também arcar com o custo de adiciona-lo, pois me pouparia o retrabalho de adequar o fonte do ACBR toda vez que eu baixar a atualização.

ACBrBoletoFCQuickFr.dfm

ACBrBoletoFCQuickFr.pas

ACBrBoleto.pas

boleto.PDF

[NOVO LAYOUT]

Boa tarde

Montei um novo layout para boleto do QuickReport onde o mesmo permite a inclusão de um grande texto onde coloco o demonstrativo da cobrança.

Por favor, alguém poderia adicionar esse novo layout para o SVN ? Ele já foi aprovado e esta em uso no Santander.

Seguem Units atualizadas.

agradeço pela atenção.

ACBrBoleto.pas

ACBrBoletoFCQuickFr.dfm

ACBrBoletoFCQuickFr.pas

[Layout Lfatura]

Bom dia...

 

Estou precisando de um layout que possibilite um longo texto de detalhamento da cobrança, onde teríamos o recibo do sacado mais resumido na parte superior, depois um longo espaço para texto e por ultimo o boleto propriamente dito.

Seria essa minha descrição o lFatura que vocês falam ?

Vou desenvolve-lo usando esse parametro, vcs veem algum problema ?

Passo os fontes assim que estiver pronto.

[Boleto Bradesco Sendo Protestado]

Bom dia...

 

Acredito que tenha a ver com o campo Titulo.Carteira, onde você deve informar o código da carteira contratada no banco.

Essa carteira é o que determina se será com registro ou sem, se será com protesto ou sem.

Veja qual valor você esta colocando no campo e qual valor o banco determina que seja colocado para a forma como você deseja trabalhar.

[Nao ha suporte para criptografia 24 " Resolvido "]

Tive o mesmo problema aqui e consegui resolver instalando o certificado digital com um setup que eu baixei do site da Valid.

 

Faça o download do arquivo no link a seguir: http://www.validcertificadora.com.br/upload/downloads/validcertificadora.exe

 

Clique na opção instalar e selecione o tipo de certificado A1, irá abrir um instalado, basta informar o tipo do cerificado, o local e senha do certificado que a instalação irá ser concluída. Após terminar tente enviar que deve funcionar.

 

O instalar .exe que é baixado no site da Valid não funcionou, diz que instalou o certificado mas não instala.

Aqui funcionou, espero que ajude vocês também. 

Segui esses passos e deu tudo certo, MUITO OBRIGADO !!!

[Etiqueta Com Inf Nutricional]

Por favor,

não faça posts duplicados.

Temos regras conforme pode ver neste  Em especial a "3.1 - Não faça flooding".

Crie um tópico novo para uma dúvida nova conforme as regras, em especial a "2.2 - Permaneça no assunto". 

Desculpe, trata-se de desespero...

Prazo vencido e código aparentemente ok, mas não da o resultado esperado...

Vontade de jogar impressora pela janela... kkkkk

Pode me ajudar ?

[Etiqueta Com Inf Nutricional]

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 ???

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

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]

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]

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]

seguem anexos conforme orientado.

ACBrBoletoFCQuickFr dfm.txt

ACBrBoletoFCQuickFr pas.txt

ACBrBoletoFCQuickFr dfm.txt

ACBrBoletoFCQuickFr pas.txt

[Gerar Pdf Com Quick Não Estava Funcioncionando]

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;

 

[Gerar Pdf Com Quick Não Estava Funcioncionando]

Sugiro também a adição das seguintes linhas no create do form

 

630 :   QRLabel2.Caption := BoletoFC.SoftwareHouse ;

631 :   QRLabel91.Caption := BoletoFC.SoftwareHouse ;

[Gerar Pdf Com Quick Não Estava Funcioncionando]

Ainda tenho problemas com envio de boleto por e-mail e geração do arquivo em PDF.

Essas adequações, incluindo a diretiva, ainda não foram colocadas no SVN ?

Tem previsão de quando vai colocar ?

 

Agradeço pela atenção...

[Erro Ao Enviar O Boleto Por E-Mail]

Segue Unit.

ACBrBoleto.pas