Jump to content

Promoção 25 Anos de Delphi
25% de desconto em todas as versões

Saiba mais

Ganhe o curso Tributação NF-e para Desenvolvedores

Assinando o SAC Anual este mês
botao.png

 

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba Mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

andrefaria

Membros
  • Content Count

    58
  • Joined

  • Last visited

Everything posted by andrefaria

  1. Boa tarde, Segue codigo dml.ACBrValidador1.Documento := RemovePontos(dtsPessoasINSCRICAO_ESTADUAL.AsString); dml.ACBrValidador1.Complemento := dtsPessoasUF.AsString; dml.ACBrValidador1.TipoDocto := docInscEst; if not dml.ACBrValidador1.Validar then begin MessageBox(0, pchar('Erro teste Inscrição Estadual. Pode haver rejeição na emissão DFe !!!'), 'Erro', MB_ICONSTOP or MB_OK or MB_TASKMODAL); PageControlDados.ActivePageIndex := 0; end;
  2. Bom dia; O Validador esta informando que não é valido a inscricao de Brasilia/DF 731282500175 que é da Caixa Economica Federal, CNPJ 00.360.305/0001-04, foi feito a consulta pelo site : https://dfe-portal.svrs.rs.gov.br/Nfe/Ccc
  3. Bom dia; Para emissão aqui para Natal/RN estava usando a configuracao ACBrNFSe1.Configuracoes.Geral.SSLLib := libCapicomDelphiSoap; Estava funcionando ate a ultima atualizacao do ACBr, mas agora fica dando erro quando vai ACBrNFSe1.SSL.CarregarCertificado; de "Nao pode usar dadosPFX, usar ArquivoPFX ou Numero de Serie", so que estou usando ArquivoPFX, ate semana passa estava funcionando ACBrNFSe1.Configuracoes.Certificados.ArquivoPFX := qLojaNFCERTIFICADO_CAMINHO.AsString; ACBrNFSe1.Configuracoes.Certificados.Senha := qLojaNFCERTIFICADO_SENHA.AsString; Como configurar os parametros corretamente ?
  4. No valor total ja estava com 2 casas, e mesmo assim esta extrapolando. No unitario, tentei com 2, mas nao tive sucesso, e este cliente realmente precisava de 4 casas.
  5. Bom dia Juliana; Nunca trabalhei com Fortes, e não sei bem como programar para o mesmo, mas segue arquivo modificado : ACBrNFeDANFeRLPaisagem.dfm
  6. Bom dia; Estou com um cliente que emite produtos com valores acima de R$ 1.000.000,00 no valor unitario, e esta cortando na impressao do Fortes. Gostaria de saber se é possivel mudar o tamanho das colunas para adequar esta realidade, ou diminuir o tamanho da fonte.
  7. Bom dia, Devido a um problema tecnico, tenho em um cliente um MDFe que foi enviado, e não consegui salvar o XML, e não estou mais conseguindo regerar este XML identico ao enviado. Não consigo criar outro MDFe pois informa que este veiculo ja esta em outro MDFe aberto. Estou querendo baixar o XML deste MDFe, ou cancelar o mesmo para criar outro, sem usar o XML. Como proceder ?
  8. Tentei no windows 7 atualizado, e windows 10 atualizado tambem. O certificado é valido, é oficial da minha empresa, e uso ele diariamente para emissão de NFe/NFCe. O CNPJ/I.M. da minha empresa também ja emite NFS, mas manualmente pelo site, mas ja pedi e tenho a liberação do ambiente de homologação para testes.
  9. Segue anexado a imagem de alguns erros, usando WinCrypt e openSSL Quando usa SSLType diferente de LT_SSLv2 : Quando usa SSL_Type igual LT_SSLv2 :
  10. Bom dia pessoal; Não estou conseguindo fazer o demo comunicar com o provedor de Natal/RN. Alguem poderia me ajudar e me dizer como configurar o ACBrNFSe Demo para conseguir se comunicar ? Atualmente tentei todas as opções, usando o XE8, por WinCrypt e openSSL mas nao comunica. Agradeço antecipadamente.
  11. Bom dia; Pelo PosPrinter, nao consegui resolver. Para solucionar o problema, Instalei o driver Windows da impressora, e mandei imprimir pelo Fortes DANFECE Fortes.
  12. Bom dia pessoal; Estou com uma impressora termica Diebold IM453HU e não consegui fazer com que a mesma imprimisse nenhum codigo de barras, nem mesmo as formatações, pelo PosPrinterTeste.exe, atualizei a ultima versão SVN, e testei com todos os tipos, inclusive com posEscEpson e a propria posDielbold e não consegui, com isso a NFCe não formata e nem imprime o QRCode. Alguem pode me dar uma ajuda de como resolver este problema ?
  13. Boa tarde, e feliz 2019. Criei um programa console em linux ubuntu 32 18.04 desktop, com lazarus 2.0 rc3. Esta funcionando tudo certinho. Mas quando subo este mesmo executavel para um servidor ubunto 64 server 18.04, na digital ocean, o mesmo não roda, da uma mensagem -bash ... No such file or directory Basicamente acesso dois servidores, um firebird e outro mysql, no desktop 32bits, tudo funciona perfeitamente acessando os servidores, mas no servidor 64 na digital ocean não executa. Seria necessario compilar para 64 bits ? Pode ser por causa dos client que são para 64, como eu posso colocar os client para 32 para esta aplicacao ?
  14. Boa tarde Juliana, em contato com Daniel, o mesmo autorizou o meu login correto, ja estou conseguindo baixar.
  15. Bom dia, participei do dia do acbr, mas não consigo baixar o conteudo, como devo proceder ?
  16. Boa tarde pessoal; Apos a atualização da semana passada, sempre que vou validar um uma NFe modelo 55, antes de assinar e enviar, esta dando erro de XMLParseDoc. Comentei o codigo de validação, e esta enviando e recebendo normalmente, mas o processo de validação não é necessario ?
  17. Boa tarde; Eu tive essa necessedade,, e fiz uma pequena alteração no ACBrDANFEESCPOS.pas nesta procedure : procedure TACBrNFeDANFeESCPOS.GerarPagamentos; var i: Integer; Troco: Real; begin // Total := 0; FPosPrinter.Buffer.Add('<c>' + PadSpace('FORMA DE PAGAMENTO | VALOR PAGO R$', FPosPrinter.ColunasFonteCondensada, '|')); for i := 0 to FpNFe.pag.Count - 1 do begin if (FormaPagamentoToDescricao(FpNFe.pag.Items[i].tPag) = 'Dinheiro') then begin FPosPrinter.Buffer.Add('<c>' + ACBrStr(PadSpace(FormaPagamentoToDescricao(FpNFe.pag.Items[i].tPag) + '|' + FormatFloatBr(FpNFe.pag.Items[i].vPag + vTroco), FPosPrinter.ColunasFonteCondensada, '|'))); end else begin FPosPrinter.Buffer.Add('<c>' + ACBrStr(PadSpace(FormaPagamentoToDescricao(FpNFe.pag.Items[i].tPag) + '|' + FormatFloatBr(FpNFe.pag.Items[i].vPag), FPosPrinter.ColunasFonteCondensada, '|'))); end; end; Troco := IIf(FpNFe.pag.vTroco > 0, FpNFe.pag.vTroco, vTroco); if Troco > 0 then FPosPrinter.Buffer.Add('<c>' + PadSpace('Troco R$|' + FormatFloatBr(Troco), FPosPrinter.ColunasFonteCondensada, '|')); end; Segue anexado ACBrNFeDANFeESCPOS.pas
  18. Bom dia; Não sei como poderia fazer isso na minha aplicação, pois eu mando imprimir atravez do load do XML que recebo apos a transmissão, ja com protocolo, se eu mandar o fpDinheiro maior, é rejeitado, se eu mandar certo, e quando for imprimir alterar o XML, vou estar corrompendo o mesmo, pois a assinatura vai ficar invalida. Ou existe outro meio que não conheco ?
  19. Opa Andre; Mas foi isso que fiz no codigo, estou fazendo isso ja a uns 3 meses, mas sempre que atualizo, tenho que fazer a alteração novamente no ACBr Segue codigo que eu modifico if (UpperCase(FormaPagamentoToDescricao(FpNFe.pag.Items[i].tPag)) = 'DINHEIRO') then FPosPrinter.Buffer.Add('<c>' + ACBrStr(PadSpace(FormaPagamentoToDescricao(FpNFe.pag.Items[i].tPag) + '|' + FormatFloatBr(FpNFe.pag.Items[i].vPag + FpNFe.pag.vTroco), FPosPrinter.ColunasFonteCondensada, '|'))) else FPosPrinter.Buffer.Add('<c>' + ACBrStr(PadSpace(FormaPagamentoToDescricao(FpNFe.pag.Items[i].tPag) + '|' + FormatFloatBr(FpNFe.pag.Items[i].vPag), FPosPrinter.ColunasFonteCondensada, '|'))); O Codigo anterior não temo if de dinheiro, segue como é originalmente FPosPrinter.Buffer.Add('<c>' + ACBrStr(PadSpace(FormaPagamentoToDescricao(FpNFe.pag.Items[i].tPag) + '|' + FormatFloatBr(FpNFe.pag.Items[i].vPag), FPosPrinter.ColunasFonteCondensada, '|'))); O que meus clientes reclamam, é que na forma original, sai por exemplo, que o cliente pagou uma conta de R$ 45,00, sai, total dos produtos R$ 45,00, se pagar com uma nota de R$ 50,00, vai sair impresso , dinheiro R$ 45,00 e troco R$ 5,00, se pagar com uma nota de R$ 100,00, sai dinheiro R$ 45,00 e troco R$ 55,00. E o que vemos na maioria dos outros sistema de supermercado é sair tipo Total produtos R$ 45,00 (que ja sai em todos os casos correto), Dinheiro R$ 100,00 e Troco R$ 55,00, por isso fiz a modificação nos fontes do ACBr. Mas se não for possivel colocar no SVN por algum motivo, sem problemas, fico fazendo a alteração aqui mesmo sempre que atualizar.
  20. Pessoal, Despresem o codigo acima, faltou um pequeno comando, segue corrigido agora procedure TACBrNFeDANFeESCPOS.GerarPagamentos; var i: Integer; Troco: Real; begin // Total := 0; FPosPrinter.Buffer.Add('<c>' + PadSpace('FORMA DE PAGAMENTO | VALOR PAGO R$', FPosPrinter.ColunasFonteCondensada, '|')); for i := 0 to FpNFe.pag.Count - 1 do begin if (UpperCase(FormaPagamentoToDescricao(FpNFe.pag.Items[i].tPag)) = 'DINHEIRO') then FPosPrinter.Buffer.Add('<c>' + ACBrStr(PadSpace(FormaPagamentoToDescricao(FpNFe.pag.Items[i].tPag) + '|' + FormatFloatBr(FpNFe.pag.Items[i].vPag + FpNFe.pag.vTroco), FPosPrinter.ColunasFonteCondensada, '|'))) else FPosPrinter.Buffer.Add('<c>' + ACBrStr(PadSpace(FormaPagamentoToDescricao(FpNFe.pag.Items[i].tPag) + '|' + FormatFloatBr(FpNFe.pag.Items[i].vPag), FPosPrinter.ColunasFonteCondensada, '|'))); end; Troco := IIf(FpNFe.pag.vTroco > 0, FpNFe.pag.vTroco, vTroco); if Troco > 0 then FPosPrinter.Buffer.Add('<c>' + PadSpace('Troco R$|' + FormatFloatBr(Troco), FPosPrinter.ColunasFonteCondensada, '|')); end;
  21. Bom dia; Eu notei que diversos estabelecimentos colocam, somente na impressão do danfe NFCe,, o valor total em dinheiro, e não o que vai no XML, diversos supermercados grandes aqui usam esse procedimento, fiz essa pequena mudança, que esta em produção a um certo tempo, acredito que deva ser de interesse para todos procedure TACBrNFeDANFeESCPOS.GerarPagamentos; var i: Integer; Troco: Real; begin // Total := 0; FPosPrinter.Buffer.Add('<c>' + PadSpace('FORMA DE PAGAMENTO | VALOR PAGO R$', FPosPrinter.ColunasFonteCondensada, '|')); for i := 0 to FpNFe.pag.Count - 1 do begin if (UpperCase(FpNFe.pag.Items[i].tPag) = 'DINHEIRO') then FPosPrinter.Buffer.Add('<c>' + ACBrStr(PadSpace(FormaPagamentoToDescricao(FpNFe.pag.Items[i].tPag) + '|' + FormatFloatBr(FpNFe.pag.Items[i].vPag + FpNFe.pag.vTroco), FPosPrinter.ColunasFonteCondensada, '|'))) else FPosPrinter.Buffer.Add('<c>' + ACBrStr(PadSpace(FormaPagamentoToDescricao(FpNFe.pag.Items[i].tPag) + '|' + FormatFloatBr(FpNFe.pag.Items[i].vPag), FPosPrinter.ColunasFonteCondensada, '|'))); end; Troco := IIf(FpNFe.pag.vTroco > 0, FpNFe.pag.vTroco, vTroco); if Troco > 0 then FPosPrinter.Buffer.Add('<c>' + PadSpace('Troco R$|' + FormatFloatBr(Troco), FPosPrinter.ColunasFonteCondensada, '|')); end;
  22. Boa tarde pessoal, Sei que o topico é antigo, mas começou a acontecer comigo esporadicamente, sempre reiniciando volta ao normal, muitas vezes ate saindo de todos os módulos e chamando novamente o sistema da certo, mas gostaria de consertar definitivamente, alguém ja conseguiu ? Eu tenho uma desconfiança, meu sistema tem 2 módulos, um de frente de caixa e outro de retaguarda, suspeito que possa ser tipo o retaguarda emitiu, usando os schemas, mas tipo o frente de caixa foi emitir também e é como se o retaguarda tivesse "prendido" os schemas somente para ele. Alguem do ACBr poderia confirmar, e s sim, como evitar ?
  23. Bom dia, precisa dar algum use para funcionar, o meu delphi não esta encontrando a stipiEntradaIsenta , e as outras tambem
  24. Pessoal, vi agora que o site do IBGE mudou, e não funciona mais com o www, então na unit ACBRIBGE.pas mudei a linha : const CIBGE_URL = 'http://www.ibge.gov.br/home/geociencias/areaterritorial/area.php' ; para const CIBGE_URL = 'http://ibge.gov.br/home/geociencias/areaterritorial/area.php' ; e voltou a funcionar, Atualizei do trunk2 ontem,
  25. Boa tarde pessoal; Hoje começou um problema em um cliente, que quando vendo na Cielo com MasterCard, o codigo de autorização esta vindo com letras, tipo R50608, e o componente não esta se comportando bem. Segue imagem do que é impresso, foi excluido algumas linhas : CIELO MASTERCARD POS=42038882 DOC=202325 AUT=R50608 VENDA A CREDITO CIELO MASTERCARD 1a VIA - ESTABELECIMENTO DOC=202325 AUT=R50608 25/07/16 18:14 ONL-C VENDA A CREDITO VALOR: 5,02 TRANSACAO AUTORIZADA COM SENHA Agradeço antecipadamente []s Andre Faria
×
×
  • Create New...