andrefaria

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.

Bom dia; Pelo PosPrinter, nao consegui resolver. Para solucionar o problema, Instalei o driver Windows da impressora, e mandei imprimir pelo Fortes DANFECE Fortes.

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 ?

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 ?

Boa tarde Juliana, em contato com Daniel, o mesmo autorizou o meu login correto, ja estou conseguindo baixar.

Bom dia, participei do dia do acbr, mas não consigo baixar o conteudo, como devo proceder ?

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 ?

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

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 ?

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.

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;

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;

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 ?

Bom dia, precisa dar algum use para funcionar, o meu delphi não esta encontrando a stipiEntradaIsenta , e as outras tambem

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,

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

Blz, vou testar Mas com relação ao perfil, registro 0300 do perfil, que não grava da maneira que enviamos ?

Pessoal, esta dando esse erro quando tento instalar pelo Instalador oficial, segue log CodeGear Delphi for Win32 compiler version 18.5 Copyright (c) 1983,2007 CodeGear C:\Comp2007\ACBr\Fontes\ACBrDFe\ACBrNFSe\PCNNFSe\pnfsNFSeW_ABRASFv1.pas(55) Error: E2137 Method 'GerarIdentificacaoRPS' not found in base class C:\Comp2007\ACBr\Fontes\ACBrDFe\ACBrNFSe\PCNNFSe\pnfsNFSeW_ABRASFv1.pas(56) Error: E2137 Method 'GerarRPSSubstituido' not found in base class C:\Comp2007\ACBr\Fontes\ACBrDFe\ACBrNFSe\PCNNFSe\pnfsNFSeW_ABRASFv1.pas(58) Error: E2137 Method 'GerarPrestador' not found in base class C:\Comp2007\ACBr\Fontes\ACBrDFe\ACBrNFSe\PCNNFSe\pnfsNFSeW_ABRASFv1.pas(59) Error: E2137 Method 'GerarTomador' not found in base class C:\Comp2007\ACBr\Fontes\ACBrDFe\ACBrNFSe\PCNNFSe\pnfsNFSeW_ABRASFv1.pas(60) Error: E2137 Method 'GerarIntermediarioServico' not found in base class C:\Comp2007\ACBr\Fontes\ACBrDFe\ACBrNFSe\PCNNFSe\pnfsNFSeW_ABRASFv1.pas(62) Error: E2137 Method 'GerarServicoValores' not found in base class C:\Comp2007\ACBr\Fontes\ACBrDFe\ACBrNFSe\PCNNFSe\pnfsNFSeW_ABRASFv1.pas(63) Error: E2137 Method 'GerarListaServicos' not found in base class C:\Comp2007\ACBr\Fontes\ACBrDFe\ACBrNFSe\PCNNFSe\pnfsNFSeW_ABRASFv1.pas(64) Error: E2137 Method 'GerarValoresServico' not found in base class C:\Comp2007\ACBr\Fontes\ACBrDFe\ACBrNFSe\PCNNFSe\pnfsNFSeW_ABRASFv1.pas(66) Error: E2137 Method 'GerarConstrucaoCivil' not found in base class C:\Comp2007\ACBr\Fontes\ACBrDFe\ACBrNFSe\PCNNFSe\pnfsNFSeW_ABRASFv1.pas(67) Error: E2137 Method 'GerarCondicaoPagamento' not found in base class C:\Comp2007\ACBr\Fontes\ACBrDFe\ACBrNFSe\PCNNFSe\pnfsNFSeW.pas(139) Fatal: F2063 Could not compile used unit 'pnfsNFSeW_ABRASFv1.pas' Compilation failure Erro ao compilar o pacote "ACBr_NFSe.dpk". Abortando... Ocorreram erros na compilação dos pacotes. Alguem sabe como resolver ?

Opa Juliomar, obg pela resposta, eu acabei de testar e realmente estou conseguindo agora salvar o PDF, mas não estou conseguindo enviar email, estou usando a seguinte instrucao, a mesma que uso para NFe : ACBrNFCe.NotasFiscais.Items[0].EnviarEmail(vTo1, 'Emissao de NFCe ' + qLojaNFNOMEFANTASIA.AsString, vMensagem, true, sCC);

Boa tarde; Coloquei em produção a NFCe com PosPrinter, mas essa dobradinha não gera PDF, nem enviar email. Como devo proceder para se desejado pelo cliente eu poder salvar o PDF e enviar email, assim como na NFe ? Agradeço antecipadamente; []s Andre Faria

Acredito que não foi removida não, foi uma propriedade que eu solicitei e ela existe, e sempre que atualizo da esse erro, preciso toda vez remover o ACBr e chamar instalador novamente para voltar a funcionar.

Bom dia; Alguem tem essa tabela tipo em excel ? Queria ja incluir essa informação na minha tabela de NCM, e não consigo pegar ela em .PDF

Não entendi o que voce perguntou sobre a legislação do SEF II, independente da legislação, estou escolhendo uma configuração, e esta salvando no bloco 0030 outra configuração. Para simular, é so ir no demo, em delphi, e mandar gerar um arquivo qualquer, segue perfil gerado agora, e informacoes do Perfil que usei no demo : REG_030.ini

Bom dia; No demo não tem o inventario, não tem o bloco H feito, tive que fazer pessoalmente, segue codigo do meu bloco h. with ACBrSEF2.Bloco_H do begin with RegistroH001New do begin IND_DAD := icContConteudo; with RegistroH020New do begin IND_DT := 0; if (FormatDateTime('dd/mm', edtDataInventario.Date) <> '31/12') then IND_DT := 3; DT_INV := edtDataInventario.Date; VL_ESTQ := 0; stat1.Panels[0].Text := 'Inventario - Reg H030'; ProgressBar1.Position := 0; qInventario.first; vvalor := 0; while not qInventario.eof do begin with RegistroH030New do begin IND_POSSE := 0; COD_PART := inttostr(dml.qLojasIDLOJA.AsInteger + 100000); IND_ITEM := 0; //mercadoria propria para revenda COD_NCM := strtoint(qInventarioCLASSIFICACAO_NCM.AsString); COD_ITEM := qInventarioIDPRODUTO.AsString; UNID := copy(qInventarioDESCRICAO_UNIDADE.AsString, 1, 10); VL_UNIT := qInventarioCUSTO_DATA.AsCurrency; QTD := qInventarioESTOQUE_FISCAL.AsCurrency; VL_ITEM := RoundABNT(VL_UNIT * QTD, 2); VL_ESTQ := VL_ESTQ + VL_ITEM; end; qInventario.next; ProgressBar1.StepIt; end; VL_ESTQ_NC := VL_ESTQ; with RegistroH040New do begin IND_POSSE := 0; VL_SUB_POSSE := VL_ESTQ; end; with RegistroH050New do begin IND_ITEM := 0; VL_SUB_ITEM := VL_ESTQ; end; stat1.Panels[0].Text := 'Inventario - Reg H060'; ProgressBar1.Position := 0; vvalor := 0; qInventario.first; vncm := qInventarioCLASSIFICACAO_NCM.AsString; while not qInventario.eof do begin if (qInventarioESTOQUE_FISCAL.AsCurrency > 0) then begin vvalor := vvalor + RoundABNT(qInventarioESTOQUE_FISCAL.AsCurrency * qInventarioCUSTO_DATA.AsCurrency, 2); end; qInventario.next; ProgressBar1.StepIt; if (qInventario.Eof) or (qInventarioCLASSIFICACAO_NCM.AsString <> vncm) then begin with RegistroH060New do begin COD_NCM := strtoint(vncm); VL_SUB_NCM := vvalor; end; vncm := qInventarioCLASSIFICACAO_NCM.AsString; vvalor := 0; end; end; end; end; end; ACBrSEF2.WriteBloco_H;

Bom dia Juliomar; Eu usei o demo como base para desenvolvimento, adaptando somente para pegar os dados do meu banco de dados. La o bloco H não esta codificado, fiz a minha codificação, mas em nenhum momento eu escrevo o bloco E, ate o momento so estou usando para inventario. Olha so tambem sobre o perfil 0030, no exemplo foi gerado : |0030|0|5|0|0|0|1|1|1|1|0|1|1|1|1|1|1|1| Depois do |5| é sobre o ISS e eu escolhi 9, e saiu 0, segue reg.ini, deveria ser : |0030|0|5|9|2|1|1|1|1|1|9|1|1|0|1|1|1|1| cbbIND_ED=0- Digitação de dados cbbIND_ARQ=5- Livros de resultados e obrigações cbbPRF_ISS=9- Não obrigado a escriturar cbbPRF_ICMS=2- Sim, com regime integral de escrituração e apuração normal do imposto cbbPRF_RIDF=1- Não cbbPRF_RUDF=1- Não cbbPRF_LMC=1- Não cbbPRF_RV=1- Não cbbPRF_RI=1- Não cbbIND_EC=9- Não obrigado a escriturar cbbIND_ISS=1- Não cbbIND_RT=1- Não cbbIND_ST=1- Não cbbIND_AT=1- Não cbbIND_IPI=1- Não cbbIND_RI=1- Não cbbIND_ICMS=0- Sim