OFF TOPIC - Como gerar QrCode
only...@uol.com.br
|
Boa tarde amigos,
Preciso da ajuda dos mais experientes, um cliente que usa nosso sistema a muito tempo agora pediu para colocar
QrCode nos boletos assim os locatários poderão pagar através de PIX, o problema é que não tenho a menor idéia
de como isso funciona, por isso recorro aos amigos pedindo que me ajudem por favor.
Toda ajuda será bem vinda, agradeço desde já a atenção dos amigos.
Laercio.
MFCobole 4.0.07
Flexus SPII
Flexus Formprint | ||
|
|
Amauri Soares de Oliveira
Wandrey - Unimake
%203142-1010&e=wandrey@unimake.com.br)
--
You received this message because you are subscribed to the Google Groups "UniNFe" group.
To unsubscribe from this group and stop receiving emails from it, send an email to uninfe+un...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/uninfe/CACtBdb%3DnwRTpxaSkO%2B7tra0QU4vpGN8X%2By-HgJMHHehmL266xw%40mail.gmail.com.
Rubens Aluotto - Raiser Informática
JOSE CARLOS
To view this discussion on the web visit https://groups.google.com/d/msgid/uninfe/ecb493d4-2f42-4f7d-beb6-6bdb22f2334fn%40googlegroups.com.
JOSE CARLOS
Compras - Faetec
Boa Noite
Tenho em VB.Net e este que monta via WebService em VB.
Dim URL As String, sImage As String
Dim strVcard as String
Dim nomeDoc as String, iDown As Boolean
‘//Monta o QRCODe da NFS-e
strVcard = "texto que você deseja para montar o QrCode mais a chave da NFS-e ->" & sChave
URL = BASE_URL
'-------------------------------------------------------------
'Substitui a palavra Texto pelo conteúdo da variável strVcard
'--------------------------------------------------------------
URL = Replace(URL, "Texto", UrlEncode(strVcard))
'-----------------------------------------------------------------
'Gera o nome exclusivo para a imagem, que será gerada e armazenada
'na pasta imagens
'-----------------------------------------------------------------
sImage = lngNrNfse & ".jpg"
'----------------------------------------------------------------
'Gera a etiqueta e baixa da página WEB para a pasta local imagens
'----------------------------------------------------------------
iDown = DownloadArquivo(URL, "C:\Siga30\Arquivos\31725361000129\NFS\QRCODE\" & sImage)
Private Function DownloadArquivo(URL As String, LocalFilename As String) As Boolean
On Error GoTo ER_DOWNLOAD
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then
DownloadArquivo = True
Else
DownloadArquivo = False
End If
Exit_Erro:
Exit Function
ER_DOWNLOAD:
MsgBox "Erro no Download do Arquivo: " & Err.Number & vbCrLf & Err.Description, vbCritical, strApp
Resume Exit_Erro
End Function
Sucesso.
Abraços
Elcio Pauli
De: uni...@googlegroups.com [mailto:uni...@googlegroups.com] Em nome de JOSE CARLOS
Enviada em: quinta-feira, 14 de julho de 2022 13:25
Para: uni...@googlegroups.com
Assunto: Re: [uninfe] OFF TOPIC - Como gerar QrCode
Wandrey
Tenho interesse também a línguagem que utilizo e VISUAL FOX.
Em qui, 14 de jul de 2022 14:18, Rubens Aluotto - Raiser Informática <suporte...@gmail.com> escreveu:
Boa tarde Wandrey,
Pegando o embalo, a nós também interessa isso!
Se possível se puderem nos passar, agradecemos !
No nosso caso, a linguagem é Harbour.
Abraços
Em quinta-feira, 14 de julho de 2022 às 13:59:10 UTC-3, wan...@unimake.com.br escreveu:
Qual linguagem vc trabalha?
Em qui., 14 de jul. de 2022 às 13:43, Amauri Soares de Oliveira <aso.siste...@gmail.com> escreveu:
Boa tarde,
Eu também estou com o mesmo problema, você conseguiu a solução ?
Se sim, poderia compartilhar pra me ajudar também ?
Att.
Amauri S. Oliveira
ASO Sistemas
Em sex., 4 de fev. de 2022 às 17:53, only...@uol.com.br <only...@uol.com.br> escreveu:
Boa tarde amigos,
Preciso da ajuda dos mais experientes, um cliente que usa nosso sistema a muito tempo agora pediu para colocar
QrCode nos boletos assim os locatários poderão pagar através de PIX, o problema é que não tenho a menor idéia
de como isso funciona, por isso recorro aos amigos pedindo que me ajudem por favor.
Toda ajuda será bem vinda, agradeço desde já a atenção dos amigos.
Laercio.
MFCobole 4.0.07
Flexus SPII
Flexus Formprint
Livre de vírus. www.avast.com.
--
You received this message because you are subscribed to the Google Groups "UniNFe" group.
To unsubscribe from this group and stop receiving emails from it, send an email to uninfe+un...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/uninfe/CACtBdb%3DnwRTpxaSkO%2B7tra0QU4vpGN8X%2By-HgJMHHehmL266xw%40mail.gmail.com.
--
You received this message because you are subscribed to the Google Groups "UniNFe" group.
To unsubscribe from this group and stop receiving emails from it, send an email to uninfe+un...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/uninfe/ecb493d4-2f42-4f7d-beb6-6bdb22f2334fn%40googlegroups.com.
--
You received this message because you are subscribed to the Google Groups "UniNFe" group.
To unsubscribe from this group and stop receiving emails from it, send an email to uninfe+un...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/uninfe/CAG0FUY5pc1pntmNx6igqkkHOPk_UEawsaQFnsHerwwrEogcjtw%40mail.gmail.com.