PC SOFT
DEPOT EN LIGNE
POUR WINDEVWEBDEV ET WINDEV MOBILE

Vitrine PIX - WEBDEV 2024
Publié par mmendonca
- Non classée
Nouveautés



Description
Vitrine Pix é uma plataforma digital personalizada que funciona como uma vitrine virtual, onde você pode centralizar e compartilhar suas informações de pagamento Pix de forma prática e visualmente atraente.

Ao criar uma Vitrine Pix, você fornece informações como nome, cidade e sua chave Pix. Em seguida, a plataforma gera um link exclusivo que pode ser compartilhado com seus clientes. Esse link reúne em um só lugar todas as informações necessárias para pagamentos Pix, incluindo a chave Pix, QR Code para pagamento e a função Pix Copia e Cola.

A ideia é proporcionar uma experiência prática, eficiente e personalizada, facilitando que seus clientes acessem suas informações de pagamento Pix de maneira rápida, tornando a experiência de transação mais fácil e profissional, semelhante a como uma vitrine física destaca produtos, mas neste caso de forma digital para pagamentos.


Código de Geração PIX:

PROCEDURE procGerarQrCodePIX(m_sChave, m_cyValor, m_sNomeBeneficiario, m_sCidade, psIdentificado is string = "")


sRandomID is string

IF psIdentificado = ""
sRandomID = NoAccent(GeneratePassword(20))
ELSE
sRandomID = psIdentificado
END

sRandomLinha is string = "05" + NoSpace(NumToString(Length(sRandomID),"02d")) + sRandomID
sQRCode is string
sQRCode = "" +
"00" + "0201" + // Fixo
"26" + NoSpace(NumToString(22 + Length(m_sChave),"02d")) + // Quantidade de caracteres a serem colocados na "linha"
"0014BR.GOV.BCB.PIX" + // valor fixo
"01" + NoSpace(NumToString(Length(m_sChave),"02d")) + m_sChave +
"52" + "040000" + // Fixo
"53" + "03986" + // Fixo. 53 = ID, 03 = qtd. caracteres, 986 = R$
"54" + NumToString(Length(NoSpace(NumToString(m_cyValor,"12.2f"))),"02d") + NoSpace(NumToString(m_cyValor,"12.2f")) +
"58" + "02BR" + // Fixo
"59" + NoSpace(NumToString(Length(m_sNomeBeneficiario),"02d")) + m_sNomeBeneficiario +
"60" + NoSpace(NumToString(Length(m_sCidade),"02d")) + m_sCidade +
"62" + NoSpace(NumToString(Length(sRandomLinha),"02d")) + sRandomLinha +
"6304"

sQRCode += CalcularCRC(sQRCode)
//<<
RESULT sQRCode

INTERNAL PROCEDURE CalcularCRC(LOCAL psQRCode is string): string
nTamanho is int = Length(psQRCode)
nPoly is 2-byte unsigned int = 0x1021
wCRC is 2-byte unsigned int = 0xFFFF
NC is 2-byte unsigned int = 0

FOR i = 1 _TO_ Length(psQRCode)
wCRC = BinaryXOR(wCRC, Asc(psQRCode[[i]]) bitLeftShift 8)
NC = 0

FOR j = 0 TO 7
IF (wCRC & 0x8000) THEN
wCRC = (wCRC bitLeftShift 1) || 0x1021
ELSE
wCRC = wCRC bitLeftShift 1
END
END
END

RESULT IntToHexa(wCRC)[[5 TO ]]
END
Illustrations, copies d'écran
none
none
Avis des utilisateurs
(Pour noter la ressource, cliquez sur Ecrire un avis)
Aucun avis ou commentaire ? Soyez le premier !
A PROPOS
EVALUATION :
00Aucune évaluation
TELECHARGEMENTS :
18
PUBLIÉE :
18 novembre 2024
VERSION :
CONCERNE :
WEBDEV
Version minimale : 2024
TAILLE :
9,4 Mo
DU MÊME DÉVELOPPEUR