FabioMachado

Boa Noite, estou tentando instalar o ACBrNFeDANFeQR no XE3 pq o meu fastreport ta dando problema igual ao relatado pelo amigo Ilsouza. Porem na hora de compilar o pacote do Acbr da o seguinte erro: [dcc32 Fatal Error] ACBrNFeDanfeQRpkg.dpk(79): E2202 Required package 'QR5RunDXE2' not found Alguem ja contornou isso?

Boa noite, estou tento um problema com a emissão do Danfe com o fastreport no XE3. Sem falar que não tem nada no meu sistema com a string "dados_endereco".

Ola, o log do ecf é o seguinte: -- 10:38:08:230 LeituraXSerial( Linhas ) TX -> [sTX][4][NUL][FS]Ea[NUL] 10:38:08:588 RX <- [NUL][NUL][NUL][NUL] MARIA CELIA QUEIROZ PORTELA-ME RUA INACIO MAGALH[195]ES,328-CENTRO BOA VISTA-RR 3623-9185 [ETX]CNPJ: -- 10:38:08:635 NumCupom TX -> [sTX][4][NUL][FS][30]:[NUL] Bematech EnviaComando_ECF: ACK = 32 Falha: 1 10:38:10:772 RX <- ----------------- ERRO ----------------- Erro ao enviar comandos para a Impressora Bematech ---------------------------------------- -- 10:38:13:268 FechaRelatorio TX -> [sTX][4][NUL][FS][NAK]1[NUL] 10:38:13:424 RX <- -- 10:38:13:424 FechaNaoFiscal( ) TX -> [sTX][ENQ][NUL][FS]"[LF]H[NUL] 10:38:13:580 RX <- Já o erro não tenho como ver pelo tratamento.

Boa tarde, estou com um problema meio estranho aqui. Tenho dois terminais com impressoras iguais (MP 2100 th fi); quando eu vou abrir o caixa e pegar os dados da impressora uma desses duas impressoras me retorna um erro e não consigo abrir o caixa. o erro acontece na chama: if Application.MessageBox('Deseja abrir caixa de hoje?', 'Atenção', MB_ICONQUESTION + MB_YESNO) = mrYes then begin {Tenho que capturar os dados da redução Z antes de qualquer coisa para pegar os valores finais do operador anterior} DadosZ(rValorBruto, rSuprimento, rSangria, rAcrescimo, rCancelamento, rDesconto, rVendaLiquida); EmiteLeituraX; // o erro ocorre aqui que é seguinte função. AtualizaValoresECF; procedure TfrmPrincipal.EmiteLeituraX; var cLinhas : TStringList; cRelatorio, cNomeArquivo : String; txtArquivo : TextFile; i : Integer; begin lblMensagem.Caption := 'Aguarde. Gerando Leitura X'; Application.ProcessMessages; cLinhas := TStringList.Create; frmPrincipal.ecfImpressora.LeituraXSerial(cLinhas); cRelatorio := ''; cNomeArquivo := NomeArquivo('..\rel\LMX'); AssignFile(txtArquivo, cNomeArquivo); Rewrite(txtArquivo); for i := 0 to cLinhas.Count-1 do begin cRelatorio := cRelatorio + cLinhas + #13; WriteLn(txtArquivo, cLinhas + #13); end; CloseFile(txtArquivo); cLinhas.Free; frmMenuFiscal.Grava_RelatorioECF('Leitura X', cRelatorio); LeituraX; try cLinhas.Free; except end; end; Os caminhos estão corretos as funções estão corretas, tanto que em um desses terminais funciona que é uma maravilha não da nenhum erro. Hoje fiz o seguinte, pequei a impressora que não da problema e coloquei no terminal que da o problema e ela funcionou direitinho. Mandei chamar a assistência técnica da impressora que esteve la com o software dele e disse que não tinham nenhum problema. Alguem ja teve alguma problema desses?

Boa tarde, alguem sabe o pq desses dois erros? A impressora utilizada é a MP 2100 e 400 th fi

Bom dia, sobre a homologação do PAF-ECF, vcs não sabem que teria o software simulador das bombas? ja que o produto fisico é muito caro.

anfm funcionou com o G. Agora aproveitando o tópico existe algum comando para que a impressora retorno as etiquetas após o avanço?

Mesmo passando um ean8 valido, e agora valido mesmo. a impressora continua suprimindo a informação passada. Enviei o seguinte codigo: 78900011 Ela imprimiu: 07890002

Agora ta funcionando que é um blz, atualizei o ACBr, excluindo tudo e baixando tudo de novo, utilizei a função para geração e a validação funfo. A todos meu muito obrigado.

marcelo_sp, como ficou então a função de geração do EAN8?

marcelo_sp, atualizei a mais ou menos uma semana.

Boa tarde, depois de conseguir resolver o problema da geração do EAN8, pensei que conseguiria resolver o problema da impressora Argox 214plus. Acontece o seguinte, eu passo para a impressora os comandos de impressão assim: ImprimirTexto(orNormal,1,1,2,70,38,linha1,1); ImprimirTexto(orNormal,1,1,2,40,38,linha2,1); ImprimirBarras(orNormal,'C','2','2',5,238,codigobarras,65); a impressora imprimir tudo inclusive o codigo de barras, porém, ela suprimi parte do codigo que eu enviei, exemplo eu passo na variável codigobarras o valor 78900019, que é um EAN8 válido, e a impressora só imprimi 07890002. Ja testei a mudança do tipo do codigo de barras substituindo o 'C' por diversas outras opções, o que acarreta na não impressão do codigo de barras e a expulsão de diversas etiquetas, ja rosetei a impressora mais continua a mesma coisa: Opções testadas: 0 1 1E 2 2C 2D 2G 2M 2U 3 3C 9 E30 E32 E35 E80 E82 E85 K P UA0 UA2 UA5 UE0 UE2 UE5

Descobrimos o problema.

Agora valido blz, EAN13 e o EAN8 não testei os outros.

Eu uso tortoise, atualizo toda semana e essa semana mesmo tive que re-instalar tudo do zero pois fui obrigado a formatar o computador. Vou testar a post do marcelo_sp.

Bom dia eu havia postado um topico desta mesma questão em delphi/pascal mais descobri que não era eu que estava gerando o codigo errado. Fiz uma rotina para gerar o ean8 porem no validador não validava então achei que eu estava errado. porém os ean8 gerados por uma rotina semelhando colocado no topico tambem não validão pelo menos da maneiro que estou fazendo. exemplo. Caso o usuário não coloque o código de barras, o meu sistema vai gerar um a partir do código sequencia do sistema. ou seja. o produto com codigo 20 vira no ean13 0000000000208 e isso valida direitinho. ja no ean 8 o codigo 20 vira 00000204 e isso não valida. Eu estou usando a seguinte rotina para validar: if Trim(Edit9.Text)<>EmptyStr then begin ACBrValidador1.TipoDocto:=docGTIN; ACBrValidador1.Documento:=Edit9.Text; if ACBrValidador1.Validar then begin end else begin Edit9.Clear; Edit9.Text:=''; Edit9.SetFocus; end; end; O que estou fazendo de errado?

marcelo_sp muito obrigado, valeu pelos fontes. Eu havia feito uma rotina semelhante para gerar o ean8 porem no validador não validava então achei que eu estava errado. porém os ean8 gerados na sua rotina também não validão pelo menos da maneiro que estou fazendo. exemplo. Caso o usuário não coloque o código de barras, o meu sistema vai gerar um a partir do código sequencia do sistema. ou seja. o produto com codigo 20 vira no ean13 0000000000208 e isso valida direitinho. ja no ean 8 o codigo 20 vira 00000204 e isso não valida. Eu estou usando a seguinte rotina para validar: if Trim(Edit9.Text)<>EmptyStr then begin ACBrValidador1.TipoDocto:=docGTIN; ACBrValidador1.Documento:=Edit9.Text; if ACBrValidador1.Validar then begin end else begin Edit9.Clear; Edit9.Text:=''; Edit9.SetFocus; end; end; O que estou fazendo de errado?

Ja olhei, mais só encontrei as funções de validação.

Boa galera, estou procurando uma função para gerar os EAN8 pois preciso imprimir etiquetas muito pequenas que só cabe se o EAN8. Ja procurei aqui no forum e na internet e não localizei.

Gostaria de saber como anda o desenvolvimento desse componente.

Queria pedir desculpas e dizer que fui preguissoço mesmo. Como eu poderia passar um cpf ao invés do cnpj. Foi mal

Bom dia, galera. Eu estou usando ao ACBr para imprimir etiquetas de códigos de barras nas impressoras nos padrões 1 etiqueta por linha ou 3 etiquetas por linha e tudo funciona que é uma blez, porém hoje surgiu a necessidade de imprimir aquelas etiquetas de joalheria e eu não encontrei nenhum exemplo. a Pergunta é alguem ai ja fez esse tipo de etiqueta? Tem como disponibilizar o exemplo? Desde ja obrigado.

Ola bom dia, por um problema no computador eu tive que formata-lo e depois re-instalar tudo e compilar os módulos o módulo que emite o boleto bancário passou a apresentar essa mensagem e não da continuidade. Ja verifiquei as informações no banco, a rotina que retira os pontos, traços e nada. observei que essa mensagem é gerado no ACBr Validador, porém me parece que era pra ser uma mensagem interna ou algo assim. Como é que faz pra retirar essa mensagem.

A solução que arrumei foi essa: Gerar um código de barras valido a partir do codigo desejado. dgt_verificador:=CalculaDigEAN13(LRPAD(CDS_produtosCODIGO.AsString,12,'0','L')); codigobarras:=LRPAD(CDS_produtosCODIGO.AsString,12,'0','L')+dgt_verificador; // dica tirada de um site na internet function CalculaDigEAN13(Cod:String):String; function Par(Cod:Integer):Boolean; begin Result:= Cod Mod 2 = 0; end; var i,SomaPar,SomaImpar:Integer; begin SomaPar:=0;SomaImpar:=0; for i:=1 to 12 do if Par(i) then SomaPar:=SomaPar+StrToInt(Cod) else SomaImpar:=SomaImpar+StrToInt(Cod); SomaPar:=SomaPar*3;i:=0; while i < (SomaPar+SomaImpar)do Inc(i,10); Result:=IntToStr(i-(SomaPar+SomaImpar)); end;

Boa tarde, estou tentando descobrir se é o componente ou a impressora que só quer imprimir o código de barras valido. Os campos texto funcionam blz, porém o código de barras só se for valido EAN. Estou usando assim: ImprimirTexto(orNormal, 2, 1, 3, 25, 37, linha1); ImprimirTexto(orNormal, 2, 1, 1, 95, 40, linha2); ImprimirBarras(orNormal, tipo_cod_bar, '2', '2', 120, 40, codigobarras, 080, becSIM); ImprimirTexto(orNormal, 2, 1, 3, 25, 380, linha1); ImprimirTexto(orNormal, 2, 1, 1, 95, 380, linha2); ImprimirBarras(orNormal, tipo_cod_bar, '2', '2', 120, 390, codigobarras, 080, becSIM); ImprimirTexto(orNormal, 2, 1, 3, 25, 730, linha1); ImprimirTexto(orNormal, 2, 1, 1, 95, 730, linha2); ImprimirBarras(orNormal, tipo_cod_bar, '2', '2', 120, 740, codigobarras, 080, becSIM); Onde tem itp_cod_bar é um campo string que recebe a configuração conforme tabela abaixo e em nenhuma opção consegui imprimir o código de barras não valido: 0 1 1E 2 2C 2D 2G 2M 2U 3 3C 9 E30 E32 E35 E80 E82 E85 K P UA0 UA2 UA5 UE0 UE2 UE5