Jump to content

andrefaria

Membros
  • Content Count

    52
  • Joined

  • Last visited

Community Reputation

2 Neutral

About andrefaria

  • Rank
    Membro
  • Birthday 03/18/1969

Contact Methods

  • Skype
    andre_engematica

Profile Information

  • Sexo
    Masculino
  • Localização
    Natal / RN

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. 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 ?
  2. 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.
  3. 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 :
  4. 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.
  5. Bom dia; Pelo PosPrinter, nao consegui resolver. Para solucionar o problema, Instalei o driver Windows da impressora, e mandei imprimir pelo Fortes DANFECE Fortes.
  6. 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 ?
  7. 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 ?
  8. Boa tarde Juliana, em contato com Daniel, o mesmo autorizou o meu login correto, ja estou conseguindo baixar.
  9. Bom dia, participei do dia do acbr, mas não consigo baixar o conteudo, como devo proceder ?
  10. 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 ?
  11. 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
  12. 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 ?
  13. 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.
  14. 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;
  15. 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;
×
×
  • Create New...