FabioMachado

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

Cara se eu utilizar o componente só poderei imprimir um código de barras valido? Fiz um monte de testes aqui com diversos dos tipos e caso não seja um código de barras valido simplesmente não imprimi. Isso é do Componente ou é configuração da Impressora?

Bom dia, estou fazendo um programinha para imprimir etiquetas de códigos de barras nas impressoras com padrão PPLA ou B e estou usando o ACBrETQ. Até o momento funcionou blz, porém ficou uma duvida. Temos vários tipos de códigos de barras, Código 128 UCC, Código 128(A,B,C automático), EAN-13(EAN/JAN-13) e por ai vai. depois de conseguir implementar e testar com alguns códigos validos percebi que a impressora não gera códigos não validas de eu estiver usando o padrão E30. ai a duvida. Qual padrão utilizar tendo em vista que muita gente prefere codificar os produtos com um código internet tipo 30 ou ainda utilizar a referência do produto. Neste caso qual o melhor padrão a ser utilizado?

Baixei o instalador do ACBrMonitor e rodei ele ai o problema de classe não registrada acabou.

É eu faço a leitura linha por linha mesmo. e eu aguardo a criação do arquivo faço a leitura e depois apago ele. Bom agora é só continuar implementando então, e muito obrigado, ajudou muito mesmo.

Cara eu consegui utilizar o monitor sem alterar as funções de geração da chave. Mais muito me interesse a função Gerarchave descrita anteriormente. Se alguem tem um exemplo de utilização dessa função, poderia postar ai pra gente, por favor.

É agora é dar continuidade. Kiko Fernandes, como vc faz para pegar as informações retornadas pelo ACBrNFeMonitor. Eu sei do arquivo de retorno, eu já faço a leitura dele, mais tem um meio mais fácil e que seja mais garantido? Eu estava pensando em jogar o conteúdo do arquivo dentro de um memo e la eu ler as informações. Tem alguma dica?

Funcionou!!!!! blz. Vou dar continuidade aos testes.

Cara eu to usando assim e tem dado certo. var i, j, k, n : integer; Nota, Node, NodePai, NodeItem: TTreeNode; NFeRTXT: TNFeRTXT; begin PageControl1.Pages[9].TabVisible:=True; PageControl1.Pages[9].Enabled:=true; PageControl1.ActivePageIndex:=9; OpenDialog1.FileName := ''; OpenDialog1.Title := 'Selecione a NFE'; OpenDialog1.DefaultExt := '*.XML'; OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Arquivos TXT (*.TXT)|*.TXT|Todos os Arquivos (*.*)|*.*'; if OpenDialog1.Execute then begin ACBrNFe1.NotasFiscais.Clear; //tenta TXT ACBrNFe1.NotasFiscais.Add; NFeRTXT := TNFeRTXT.Create(ACBrNFe1.NotasFiscais.Items[0].NFe); NFeRTXT.CarregarArquivo(OpenDialog1.FileName); if NFeRTXT.LerTxt then NFeRTXT.Free else begin NFeRTXT.Free; //tenta XML ACBrNFe1.NotasFiscais.Clear; try ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); except ShowMessage('Arquivo NFe Inválido'); exit; end; end; for n:=0 to ACBrNFe1.NotasFiscais.Count-1 do begin with ACBrNFe1.NotasFiscais.Items[n].NFe do begin Nota := trvwNFe.Items.Add(nil,infNFe.ID); trvwNFe.Items.AddChild(Nota,'ID= ' +infNFe.ID); Node := trvwNFe.Items.AddChild(Nota,'procNFe'); trvwNFe.Items.AddChild(Node,'tpAmb= ' +TpAmbToStr(procNFe.tpAmb)); trvwNFe.Items.AddChild(Node,'verAplic= ' +procNFe.verAplic); trvwNFe.Items.AddChild(Node,'chNFe= ' +procNFe.chNFe); trvwNFe.Items.AddChild(Node,'dhRecbto= ' +DateTimeToStr(procNFe.dhRecbto)); trvwNFe.Items.AddChild(Node,'nProt= ' +procNFe.nProt); trvwNFe.Items.AddChild(Node,'digVal= ' +procNFe.digVal); trvwNFe.Items.AddChild(Node,'cStat= ' +IntToStr(procNFe.cStat)); trvwNFe.Items.AddChild(Node,'xMotivo= ' +procNFe.xMotivo); ..... e depois de carregar as informações e pego elas assim; begin dados.CDS_PRODUTOS.Append; dados.CDS_PRODUTOSCODIGO.Value:=funcoes.RetornaCodigo('produtos'); dados.CDS_PRODUTOSDESCRICAO.Value:=Prod.xProd; dados.CDS_PRODUTOSREFERENCIA.Value:=referencia; dados.CDS_PRODUTOSCODIGO_BARRAS.Value:=Prod.cEAN; dados.CDS_PRODUTOSID_FORNECEDOR.Value:=dados.CDS_NOTASID_FORNECEDOR.Value; dados.CDS_PRODUTOSUNIDADE.Value:=Prod.uCom; dados.CDS_PRODUTOSVAL_CUSTO.Value:=Prod.vUnCom; dados.CDS_PRODUTOSREF_FORNECEDOR.Value:=Prod.cProd; dados.CDS_PRODUTOSCLASSIFICACAO_FISCAL.Value:=Prod.NCM; dados.cds_produtos.Post; dados.CDS_PRODUTOS.ApplyUpdates(0); end;

Alguem exemplo de utilização dessa função?

O mesmo ocorreu com um arquivo gerado direto do emissor nacional gratuito de nota valida, transmitida e aceita pela sefaz. Agora o Bicho pegou. Alguem que usa o ACBrNFeMonitor tem um arquivo enviado que posso disponibilizar pra gente para conferencia? Resolveu o problema mesmo. Agora o ACBrNFeMonitor me mostrou um monte de outros erros que eu fiquei a ver na navios pois como o emissor nacional importou e o ACBrNFeMonitor deu esse monte de erros? Bom agora voltamos a prancheta, rrsrsrs mais se alguem quiser da uma olhada. Topico onde tem o link da versão 0.7.1c viewtopic.php?f=6&t=4678&start=10 Dados do Arquivo: NOTAFISCAL|1| A|2.00|NFe14120207198515000197550010000000491000098117| B|14|00009811|Venda de mercadorias|0|55|001|000000049|2012-03-01|2012-03-01||1|1400100|1|1|7|2|1|0|2.8||| C|Livre Serviços e Consultoria Ltda - ME|Livre|240124084||||1| C02|07198515000197| C05|Av.: Mario Homem de Melo|2216/09||MECEJANA|1400100|Boa Vista|RR|69301030|1058|BRASIL|09536233152| E|LIVRE SERVICOS E CONSULTORIA LTDA|240124084||[email protected]| E02|07198515000197| E05|AV. MARIO HOMEM DE MELO|2216|LT 09|MECEJANA|1400100|BOA VISTA|RR|69303350|1058|BRASIL|36233152| H|1|| I|1|088698687369|CARTUCHO DE TINTA HP 78|96081000||5102|UND|1.0000|150.0000000000|150.00|088698687369|UND|1.0000|150.0000000000|||||1||| M| N| N10d|2|102| Q| Q04|07| S| S04|07| W| W02|0.00|0.00|0.00|0.00|150.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|150.00| X|9| Erros retornados pelo ACBrNFeMonitor: ERRO: Falha na validação dos dados da nota 0 TAG: ID:B02/cUF(Código do UF (Unidade da Federação)) - Conteúdo inválido. TAG: ID:B04/natOp(Descrição da Natureza da Operação) - Nenhum valor informado. TAG: ID:B09/dEmi(Data de emissão) - Nenhum valor informado. TAG: ID:B12/cMunFG(Código do Município FG) - Conteúdo inválido. TAG: ID:C02-C02a/CNPJ-CPF(CNPJ/CPF) - Nenhum valor informado. TAG: ID:C03/xNome(Razão Social ou Nome) - Nenhum valor informado. TAG: ID:C06/xLgr(Logradouro) - Nenhum valor informado. TAG: ID:C09/xBairro(Bairro) - Nenhum valor informado. TAG: ID:C10/cMun(Código do Município) - Conteúdo inválido. TAG: ID:C11/xMun(Nome do Município) - Nenhum valor informado. TAG: ID:C12/UF(Sigla da UF) - Nenhum valor informado. TAG: ID:C12/UF(Sigla da UF) - Conteúdo inválido. TAG: ID:E06/xLgr(Logradouro) - Nenhum valor informado. TAG: ID:E09/xBairro(Bairro) - Nenhum valor informado. TAG: ID:E10/cMun(Código do Município) - Conteúdo inválido. TAG: ID:E11/xMun(Nome do Município) - Nenhum valor informado. TAG: ID:E12/UF(Sigla da UF) - Nenhum valor informado. TAG: ID:E12/UF(Sigla da UF) - Conteúdo inválido. '00' violates enumeration constraint of '11 12 13 14 15 16 17 21 22 23 24 25 26 27 28 29 31 32 33 35 41 42 43 50 51 52 53'. The element '{http://www.portalfiscal.inf.br/nfe}cUF' with value '00' failed to parse.

Resolveu o problema mesmo. Agora o ACBrNFeMonitor me mostrou um monte de outros erros que eu fiquei a ver na navios pois como o emissor nacional importou e o ACBrNFeMonitor deu esse monte de erros? Bom agora voltamos a prancheta, rrsrsrs mais se alguem quiser da uma olhada. Topico onde tem o link da versão 0.7.1c viewtopic.php?f=6&t=4678&start=10 Dados do Arquivo: NOTAFISCAL|1| A|2.00|NFe14120207198515000197550010000000491000098117| B|14|00009811|Venda de mercadorias|0|55|001|000000049|2012-03-01|2012-03-01||1|1400100|1|1|7|2|1|0|2.8||| C|Livre Serviços e Consultoria Ltda - ME|Livre|240124084||||1| C02|07198515000197| C05|Av.: Mario Homem de Melo|2216/09||MECEJANA|1400100|Boa Vista|RR|69301030|1058|BRASIL|09536233152| E|LIVRE SERVICOS E CONSULTORIA LTDA|240124084||[email protected]| E02|07198515000197| E05|AV. MARIO HOMEM DE MELO|2216|LT 09|MECEJANA|1400100|BOA VISTA|RR|69303350|1058|BRASIL|36233152| H|1|| I|1|088698687369|CARTUCHO DE TINTA HP 78|96081000||5102|UND|1.0000|150.0000000000|150.00|088698687369|UND|1.0000|150.0000000000|||||1||| M| N| N10d|2|102| Q| Q04|07| S| S04|07| W| W02|0.00|0.00|0.00|0.00|150.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|150.00| X|9| Erros retornados pelo ACBrNFeMonitor: ERRO: Falha na validação dos dados da nota 0 TAG: ID:B02/cUF(Código do UF (Unidade da Federação)) - Conteúdo inválido. TAG: ID:B04/natOp(Descrição da Natureza da Operação) - Nenhum valor informado. TAG: ID:B09/dEmi(Data de emissão) - Nenhum valor informado. TAG: ID:B12/cMunFG(Código do Município FG) - Conteúdo inválido. TAG: ID:C02-C02a/CNPJ-CPF(CNPJ/CPF) - Nenhum valor informado. TAG: ID:C03/xNome(Razão Social ou Nome) - Nenhum valor informado. TAG: ID:C06/xLgr(Logradouro) - Nenhum valor informado. TAG: ID:C09/xBairro(Bairro) - Nenhum valor informado. TAG: ID:C10/cMun(Código do Município) - Conteúdo inválido. TAG: ID:C11/xMun(Nome do Município) - Nenhum valor informado. TAG: ID:C12/UF(Sigla da UF) - Nenhum valor informado. TAG: ID:C12/UF(Sigla da UF) - Conteúdo inválido. TAG: ID:E06/xLgr(Logradouro) - Nenhum valor informado. TAG: ID:E09/xBairro(Bairro) - Nenhum valor informado. TAG: ID:E10/cMun(Código do Município) - Conteúdo inválido. TAG: ID:E11/xMun(Nome do Município) - Nenhum valor informado. TAG: ID:E12/UF(Sigla da UF) - Nenhum valor informado. TAG: ID:E12/UF(Sigla da UF) - Conteúdo inválido. '00' violates enumeration constraint of '11 12 13 14 15 16 17 21 22 23 24 25 26 27 28 29 31 32 33 35 41 42 43 50 51 52 53'. The element '{http://www.portalfiscal.inf.br/nfe}cUF' with value '00' failed to parse.