Exemplo em VB6 do ACBrLibPIXCD

[buzz]

Olá.

Alguém teria algum exemplo em VB6 da utilização da ACBrLibPIXCD?

E também todos os "Declares" para utilização em VB6?

Muito grato e parabéns pelo trabalho de todos os envolvidos!

[Juliana Tamizou]

Boa tarde,

Esta sendo escrito na sprint atual, porém você pode se basear em outras libs para entender o funcionamento e seguir o manual para realizar a implementação quanto aos métodos a serem usados.

At.

[antonio.carlos]

5 horas atrás, buzz disse:

Olá.

Alguém teria algum exemplo em VB6 da utilização da ACBrLibPIXCD?

E também todos os "Declares" para utilização em VB6?

Muito grato e parabéns pelo trabalho de todos os envolvidos!

Subi um programa exemplo para o SVN - At revision: 31823
Caso VB6 for sua linguagem nativa, fique a vontade para validar e sugerir correções 

Conheça ACBrPRO

[buzz]

Obrigado, pessoal!

 

[Marcos Pereda]

boa tarde , estou testando o exemplo do SVN, e quando vai chamar a linha abaixo ele fecha tudo ( inclusive a IDE do VB6 ) , sem mensagem de erro na tela.

retorno = PIXCD_GerarQRCodeEstatico(AValor, AinfoAdicional, ATxId, buffer, bufferLen)

seguem abaixo as ultimas linhas do log gerado : 

07/03/24 17:40:53:051 - PIXCD_GerarQRCodeEstatico(0,,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 )
07/03/24 17:40:53:051 - Travar
07/03/24 17:40:53:056 - Destravar
07/03/24 17:40:53:061 -    SetRetorno(-10, Access violation)

 

Essa mensagem de Access violation se refere aos meus códigos de acesso junto ao itau ?

ou é pelo fato de não ter criado um projeto no itau, eu acessei o post abaixo : 

diz que tem que criar um projeto, isso ainda é válido ? pq no meu acesso ao portal dev do itau não achei a opção de criar projeto.

grato

 

Marcos

 

[Marcos Pereda]

Estimados, reparei que naquele post anterior "como solicitar as credenciais para o pix ... " que existe um programa de teste em "...\trunk2\Exemplos\ACBrPIXCD\".

porém, tem somente os fontes, será que existe um binário já compilado ? 

 

[Elias César]

Olá @Marcos Pereda, 

O comando "PIXCD_GerarQRCodeEstatico" não depende das credenciais do PSP, pois não faz acesso nenhum à API...
Resumidamente ele apenas desenha um QRCode com a Chave Pix. Seria como se estivesse fazendo uma transação pix manual pelo seu app do banco, informando apenas a Chave.

Temos um exe do demo compilado em Lazarus através desse link:

 

[Diego Foliene]

16 horas atrás, Marcos Pereda disse:

07/03/24 17:40:53:051 - PIXCD_GerarQRCodeEstatico(0,,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 )
07/03/24 17:40:53:051 - Travar
07/03/24 17:40:53:056 - Destravar
07/03/24 17:40:53:061 -    SetRetorno(-10, Access violation)

Por favor, como você fez a chamada no método?

O log demonstra que não foram passados para ele os parâmetros correspondentes.

O comando PIXCD_GerarQRCodeEstatico tem a estrutura:

PIXCD_GerarQRCodeEstatico(Valor, InformacoesAdicionais, TxId);

[Marcos Pereda]

Obrigado @Diego Foliene, eu basicamente peguei o exemplo do svn disponibilizadop pelo @antonio.carlos  e rodei 

a linha em questão é esta e estão sendo passados os valores normalmente : 

retorno = PIXCD_GerarQRCodeEstatico(AValor, AinfoAdicional, ATxId, buffer, bufferLen)

coloquei para catpurar o erro e a mensagem que retorna agora é esta 

desde já agradeço,

 

Marcos

Editado 8 Março por Marcos Pereda

[Diego Foliene]

18 minutos atrás, Marcos Pereda disse:

Obrigado @Diego Foliene, eu basicamente peguei o exemplo do svn disponibilizadop pelo @antonio.carlos  e rodei 

a linha em questão é esta e estão sendo passados os valores normalmente : 

retorno = PIXCD_GerarQRCodeEstatico(AValor, AinfoAdicional, ATxId, buffer, bufferLen)

coloquei para catpurar o erro e a mensagem que retorna agora é esta 

desde já agradeço,

 

Marcos

Obrigado pela análise.

Foi criada a #TK-5185 para análise do caso e parecer por parte da equipe de consultores.

[Marcos Pereda]

Obrigado, eu dei uma olhada no declare 

Private Declare Function PIXCD_GerarQRCodeEstatico _
                Lib "ACBrPIXCD32.dll" (ByVal AValor As Long, _
                                       ByVal AinfoAdicional As String, _
                                       ByVal ATxId As String, _
                                       ByVal buffer As String, _
                                       ByRef bufferLen As Long) As String

so achei esquisito o valor ser long, mas mudando para double da type mismatch .. 

e pelo que vi deveria ser double mesmo 

https://acbr.sourceforge.io/ACBrLib/PIXCD_GerarQRCodeEstatico.html

[Marcos Pereda]

oi @Diego Foliene, consegui arrumar, o problema estava no declare 

 

Private Declare Function PIXCD_GerarQRCodeEstatico _
                Lib "ACBrPIXCD32.dll" (ByVal AValor As Double, _
                                       ByVal AinfoAdicional As String, _
                                       ByVal ATxId As String, _
                                       ByVal buffer As String, _
                                       ByRef bufferLen As Long) As Long

 

o retorno estava string, mudei para long, e o valor de long passei para double 

também precisa ajustar o tipo da variavel Avalor na função abaixo

Public Function GerarQRCodeEstatico(ByVal AValor As Double, ByVal AinfoAdicional As String, ByVal ATxId As String) As String

rodei e retorno o pix copia e cola

obrigado, agora vou testar os outros 

[antonio.carlos]

28 minutos atrás, Marcos Pereda disse:

oi @Diego Foliene, consegui arrumar, o problema estava no declare 

 

Private Declare Function PIXCD_GerarQRCodeEstatico _
                Lib "ACBrPIXCD32.dll" (ByVal AValor As Double, _
                                       ByVal AinfoAdicional As String, _
                                       ByVal ATxId As String, _
                                       ByVal buffer As String, _
                                       ByRef bufferLen As Long) As Long

 

o retorno estava string, mudei para long, e o valor de long passei para double 

também precisa ajustar o tipo da variavel Avalor na função abaixo

Public Function GerarQRCodeEstatico(ByVal AValor As Double, ByVal AinfoAdicional As String, ByVal ATxId As String) As String

rodei e retorno o pix copia e cola

obrigado, agora vou testar os outros 

@Marcos Pereda Obrigado pela analise e ajuda na solução 
Commit At revision: 32833

[Marcos Pereda]

por nada, seguem os arquivos que alterei caso queiram subir ao svn, pelo que vi todos os declares estavam retornando string, onde o correto é long

Estou testando agora o PIXCD_CriarCobranca com o ini anexo, mas da erro -10, erro no ini, sem detalhar qual é o problema do ini, eu entrei na documentação https://acbr.sourceforge.io/ACBrLib/ACBrLibPIXCD.html, e aqui tem exemplos de inis ( onde peguei o ini de exemplo como base para criar o meu ) , mas não tem uma documentação completa, onde posso encontrar a documentação atualizada ? 

grato

Marcos

FrmMain.frm FrmMain.frx ACBrPIXCD.cls incluir.ini

[Diego Foliene]

Boa tarde!

Muito obrigado pela contribuição.

52 minutos atrás, antonio.carlos disse:

Commit At revision: 32833

Nesta linha o @antonio.carlosestá dizendo que as alterações foram enviadas ao SVN.

Por favor, queira atualizar seus fontes e realizar novo teste.

[Marcos Pereda]

5 hours ago, Elias César said:

Olá @Marcos Pereda, 

O comando "PIXCD_GerarQRCodeEstatico" não depende das credenciais do PSP, pois não faz acesso nenhum à API...
Resumidamente ele apenas desenha um QRCode com a Chave Pix. Seria como se estivesse fazendo uma transação pix manual pelo seu app do banco, informando apenas a Chave.

Temos um exe do demo compilado em Lazarus através desse link:

 

Obrigado , com o exe deu certinho a geraçao do pix, quer dizer que nao tenho problema com os certificados

[Marcos Pereda]

2 hours ago, Diego Foliene said:

Boa tarde!

Muito obrigado pela contribuição.

Nesta linha o @antonio.carlosestá dizendo que as alterações foram enviadas ao SVN.

Por favor, queira atualizar seus fontes e realizar novo teste.

Obrigado, atualizei os fontes e rodou sem travar, porém ainda não consegui acertar o ini para usar em PIXCD_CriarCobranca, vou continuar tentando, caso não consiga abro um outro tópico.

2 hours ago, Diego Foliene said:

Boa tarde!

Muito obrigado pela contribuição.

Nesta linha o @antonio.carlosestá dizendo que as alterações foram enviadas ao SVN.

Por favor, queira atualizar seus fontes e realizar novo teste.

Obrigado, atualizei os fontes e rodou sem travar, porém ainda não consegui acertar o ini para usar em PIXCD_CriarCobranca, vou continuar tentando, caso não consiga abro um outro tópico.

[Diego Foliene]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

Aqui tem o Modelo PIXCD.INI - Criar Cobrança Imediata para que possa se basear.