RenatoRicci

Sim, Paygo continua rodando.. Eu acabei refatorando meu código para inicializar a DLL apenas no inicio da aplicação e des-inicializar no final como voce havia sugerido.. Com isto acabou aqueles problemas de travamento.. Creio que da forma que eu estava fazendo antes, ou seja.. inicializando e desinicializando a cada processo, em algum momento estava ocorrendo um atropelamento de processos.. pois o pinpad demora alguns segundos para processar e liberar a comunicação.. Com a inicialização única no inicio do programa, acabou os problemas.. obrigado.. Renato

Olá @Pedro Frayman.. tudo bem! Obrigado.. Pedro.. mas chamando o método .DesInicializar, já libera a porta USB não? Olá José, não temos parceria TEF com o Projeto ACBr.. Na época nosso parceiro que revende nosso sistema negociou direto com a Paygo. Obrigado.

Olá Juliomar @Juliomar Marchetti.. de fato.. na versão anterior, eu inicializava o TEF no inicio da aplicação e desinicializava quando encerrava a aplicação.. Mas acontecia de por ventura da aplicação travar por algum processo interno, como falha na conexão de rede por exemplo, ai o usuário fechava o exe (no gerenciador de tarefas) e abria novamente, com isto, o FormClose da minha aplicação não era disparado e o TEF continuava preso. Com isto, na época mudamos a rotina para que a cada operação de tef, ou seja, ao finalizar a venda, caso o operador de caixa selecionasse alguma forma de pagamento que tinha tef habilitado, o sitema chamava a opção Inicializar, e no final da venda, era chamado a opção desinicializar. Este fluxo funciona (ou pelo menos funcionava) na dll antiga e nunca tivemos problemas quanto a isto. Depois que atualizamos para a nova DLL (4.1.43.1) para poder re-homologar o exe, passamos a perceber este travamento.. Ai veio minha dúvida.. não sei se está relacionado a nova DLL, ou se está relacionado ao hardware em sí, pelo fato do pinpad ter ficado alguns anos parado, ou até mesmo se tem relação com Warsaw..(apesar de que estamos utilizando a opção isDebug aqui em ambiente de homologação e apontando para a dll da pasta DEBUG). Só achei estranho esporadicamente a porta serial ficar aberta do nada e a tela do pinpad permanecer acesa.. Como se tivesse algo preso.. A tela só apaga se eu echar o exe e abrir novamente. Se não fechar o exe, mesmo chamando o método .DesInicializar, o pinpad não desocupa..

Olá alguem poderia me dar uma luz? Temos uma integração com TEF Paygo através da lib PGWebLib.dll. Recentemente atualizamos a DLL para a última versão para poder re-homologar nossa aplicação(dll 4.1.43.1). Nos testes, notamos que em certos momentos, o PINPAD para de responder.. e fica com a tela acesa. Neste momento a aplicação demora a processar o comando enviado, neste exemplo de log abaixo, eu tinha acabado de fazer uma transação de pagamento e depois chamei uma rotina administrativa, neste momento, o pipad travou.. fui olhar no log, e constava nas últimas linhas o retorno: PP_iOpen - Erro na abertura da porta serial (06). Não consegui diagnosticar.. Visto que na última operação de pagamento foi chamado a instrução ACBrTEFAPI1.DesInicializar para liberar o pinpad. Não sei se é problema de hardware, visto que utilizamos o PINPAD pela última vez a uns 2 anos atráz, quando fizemos a primeira homologação com a Paygo. Engraçado é que ele funciona normalmente.. e repentinamente ocorre esses erros de comunicação.. Alguem já passou por este problema? ***Obs.: PINPAD Gertec PPC 930 - Lazarus 3.4 x32 11:23:33:249 select = 1 11:23:33:249 RX[000001] 11:23:33:255 PWSRV_iSendConfirmation OK 11:23:33:260 [w32_fil] iComputeCRC_FromFile - Arquivo vazio! iFileNum=[52] - PRINCIPAL 11:23:33:262 [PGWebLib.c] PWSRV_iVerifyAndSendConfirmation iRet (0) 11:23:33:262 [PWServer.c] #### PP_iClose ... 11:23:33:637 [PWServer.c] #### PP_iClose - FIM = [0] 11:23:33:637 [MODEMFUNCS] Disconnect 11:23:33:637 [PINpad.c] PP_EndComand (fConfirm=1)... 11:23:33:637 [PINpad.c] PP_EndComand - Thread ainda ativa! 11:23:37:705 [PGWebLib.c] PW_End 11:23:48:090 [PGWebLib.c] Num da Instancia [3] 11:23:48:545 [PGWebLib.c] PW_Init(): Ultima limpeza: 29/03/2025 10:29:26) 11:23:48:545 [PW_Pinpad] PP_iOpen CommPort (06) 11:23:48:929 [PW_Pinpad] PP_iOpen - PP_Open_=[33] 11:23:48:929 [PW_Pinpad] PP_iOpen Error #3! 33 11:23:49:052 [PGWebLib.c] PW_iInit <0> 11:23:49:052 [PGWebLib.c] PW_iNewTransac (bOper=0xFC)... 11:23:49:052 [PGWebLib.c]PGW_iCheckAndUpdateCertificate 11:23:49:052 [PGWebLib.c] NewTransac iRet[0] iNextTimer[1] CertUpdateTime[250401] 11:23:49:052 [MODEMFUNCS] Disconnect 11:23:49:053 [PGWebLib] - PP_iGetInfo - PP_iOpen(06) 11:23:49:053 [PW_Pinpad] PP_iOpen CommPort (06) 11:23:49:053 [PW_Pinpad] PP_iOpen - PP_Open_=[30] 11:23:49:053 [PW_Pinpad] PP_iOpen - Erro na abertura da porta serial (06) 11:23:49:053 [PW_Pinpad] PP_iOpen - PP_Open_(01) 11:24:09:163 [PW_Pinpad] PP_iOpen - PP_Open_=[31] #2 11:24:09:163 [PW_Pinpad] PP_iOpen - PP_Open_(02) 11:24:33:205 [PW_Pinpad] PP_iOpen - PP_Open_=[31] #2 11:24:33:205 [PW_Pinpad] PP_iOpen - PP_Open_(03) Obrigado, Renato

Olá Juliomar, eu até encontrei o tópico seguinte: Mas mesmo informando: MultaValorFixo := true; CodigoMulta := cmValorFixo; PercentualMulta := 2.00; o boleto sai com impressão errada. Sai R$2,00. Já se eu informar: MultaValorFixo := false; CodigoMulta := cmPercentual; PercentualMulta := 2.00; Ai o valor impresso no boleto sai correto. 2%. Creio que ao informar o percentual, e voce setar a propriedade MultaValorFixo := true e CodigoMulta := cmValorFixo; o sistema deveria converter o percentual passado na propriedade PercentualMulta para o valor equivalente. Igual eu mencionei no primeiro tópico. Att., Renato

Olá amigos, creio que a função GerarMensagemPadraoMulta esteja errada.. Vejam por favor: Tenho um boleto que eu informo o percentual da multa desejada na propriedade PercentualMulta, no caso 2%. E tambem informo a própriedade MultaValorFixo = TRUE; Na impressão do boleto está saindo como R$2,00 de forma errada, já que deveria calcular os 2% em cima do valor do documento. Fui ver como está no fonte do AcbrBoleto e está comentado a linha que faz o cálculo, veja o else: O exemplo acima está imprimindo o boleto conforme imagem a seguir.. Veja está saindo R$2,00 e não o valor correto que deveria ser 0,25 centavos(não está convertendo o percentual em $$). Alterando aquele bloco comentado acima para: if not ATitulo.MultaValorFixo then AValorMulta := ATitulo.PercentualMulta else AValorMulta := RoundABNT((ATitulo.PercentualMulta / 100) * ATitulo.ValorDocumento,2); e o resultado foi o que se espera.. convertendo para R$ da maneira correta. Por favor analisem para ver se é um bug, ou se aquelas linhas comentadas foram realmente comentadas por causa de algum outro problema. Obrigado, Renato Ricci

Olá comunidade, não sei se esta é a maneira correta para enviar sugestões/melhorias.. Segue em anexo alteração no arquivo ACBrSATExtratoESCPOS.pas para respeitar a propriedade ImprimeMsgOlhoNoImposto. O Efeito da alteração é apenas visual. ACBrSATExtratoESCPOS.pas

Olá @Juliomar Marchetti.. obrigado por responder.. por ser certificado em nuvem (NEOID), creio que o cliente não tenha o PFX.. no caso voce quer dizer: ir lá no gerenciador do windows e exportar o PFX do certificado?

Olá amigos.. estamos tentando assinar um XML através de um certificado em núvem fornecido pela SERPRO e estamos obtendo o seguinte erro: ACBrNFe.Configuracoes.Geral.SSLLib := libWinCrypt; ACBrNFe.Configuracoes.Geral.VersaoDF := ve400; ACBrNFe.Configuracoes.Certificados.NumeroSerie := 'XXXXXX' ACBrNFe.Configuracoes.Certificados.Senha := 'XXXX'; ACBrNFe.SSL.CarregarCertificado; o metodo ACBrNFe.SSL.CertTipo está retornando: tpcDesconhecido e ao assinar, está retornando o seguinte erro: ACBrNFe.NotasFiscais.Assinar; GetCSPProviderParamDWord. Erro: 0000007F Temos outros clientes com certificado Certsign e o mesmo está assinando normalmente. Este da serpro é o primeiro que pegamos.. Alguem já passou por esta situação? Obrigado Renato

Por hora vou deixar comentado meu codigo.. Ainda preciso testar/homologar com calma a versão 2.0.12 no nosso sistema.. Agradecido!

Boa tarde meus caros.. sinto abrir este tópico novamente.. Utilizo Lazarus v 2.0.8 FPC 3.0.4 e o WriteBOM não é reconhecido.. No meu caso também consegui compilar com sucesso depois de comentar a linha //Result.WriteBOM := False; ou então até mesmo apenas comentado a diretiva no cabeçalho do arquivo: //{$IFDEF FPC} // {$DEFINE HAS_BOM} //{$ENDIF} No caso comentando a diretiva FPC não precisou comentar a linha do Result abaixo...

Olá, estamos utilizando layout cnab240 e precisando implementar o campo C010(Identificação da Distribuição) para identificar a distribuição do boleto e não encontrei essa implementação no layout do Santander.. Encontrei apenas no banco do brasil algo parecido.. Alguém chegou a implementar este registro no layout do Santander e poderia compartilhar a unit? Obrigado. Renato

Olá.. o método que eu estava tendo problema na época é o OnGetNumeroSessao.. e não no OnGetCodigoAtivacao... meu método OnGetCodigoAtivacao está assim: begin f_executa_query('select sat_codigo_ativacao from tab_sat where sat_id = ' + IntToStr(getIdSATEstacao)); if v_ro_query.IsEmpty then begin ShowMessage('Nenhum Sat Cadastrado/Definido para esta estação de trabalho'); abort; end; Chave := ansistring(v_ro_query.FieldByName('sat_codigo_ativacao').AsString); end;

Perfeito André! Salvou meu dia! Abraço meu amigo. Renato

Olá amigos, alguém poderia me informar se o valor retornado pelo aparelho SAT referente a PIS e COFINS é correto? Estou enviando o XML conforme abaixo, por exemplo: base de cálculo do PIS 1000.00 com 0.6500 e o aparelho sat está me retornando a tag VPIS = 650.00, ou seja.. dá a entender que o valor calculado pelo sat retornou 650 reais.. é assim mesmo ou o sat está calculando errado? xml enviado ao sat: <PIS> <PISAliq> <CST>01</CST> <vBC>1000.00</vBC> <pPIS>0.6500</pPIS> </PISAliq> </PIS> valor retornado: <PIS> <PISAliq> <CST>01</CST> <vBC>1000.00</vBC> <pPIS>0.6500</pPIS> <vPIS>650.00</vPIS> </PISAliq> </PIS> Obrigado Renato