marciost
Membros-
Total de ítens
117 -
Registro em
-
Última visita
Últimos Visitantes
1.620 visualizações
marciost's Achievements
-
Obter o payload (url) a partir do qrcode lido
marciost replied to marciost's tópico in Dúvidas sobre PIX
function TForm1.ExtrairURLChave(pQRCode: String): String; begin with TACBrBRCode.Create do begin // Todo o QRCode AsString := pQRCode; // Somente a parte que tem a chave/url AsString := ID[cID_MerchantAccountInformation]; // Aqui busca a chave ou url if ID[cID_PixKey] <> '' then Result := ID[cID_PixKey] else Result := ID[cID_URL]; Free; end; end; Aqui já melhorado.... -
Obter o payload (url) a partir do qrcode lido
marciost replied to marciost's tópico in Dúvidas sobre PIX
var BRCode : TACBrBRCode; EMVList: TACBrEMVList; begin BRCode := TACBrBRCode.Create; try // Aqui passa todo o QRCode BRCode.AsString := Edit1.Text; EMVList := TACBrEMVList.Create; try // Aqui pego somente o bloco onde fica a URL ou chave EMVList.AsString := BRCode.ID[cID_MerchantAccountInformation]; // Aqui trato se tem chave ou URL if EMVList.ID[cID_PixKey] <> '' then Edit2.Text := EMVList.ID[cID_PixKey] else Edit2.Text := EMVList.ID[cID_URL] finally EMVList.Free; end; finally BRCode.Free; end; Pessoal, para quem precisar, de maneira geral isso funciona. Melhor seria se tivesse uma chamada mais pronta, mas isso ai meio que quebra o galho. Alguém tem sugestão melhor? -
Obter o payload (url) a partir do qrcode lido
marciost replied to marciost's tópico in Dúvidas sobre PIX
Não seria ler o QRCode, isso está lido, já tenho a string com a representação. O que eu queria ver é se existe algum método onde eu passo essa string e ele me devolve a url do payload; -
Boa tarde Gostaria de ver se é possível com os componentes obter a url do payload e inclusive ler esse payload para obter dados como beneficiário, valor e vencimento.
-
Consegui confirmação de teste em produção de outra empresa que tem clientes em Novo Hamburgo. Ficou OK.
-
Boa tarde Fiz o teste em ambiente de homologação e deu certo. Somente teremos notas em produção lá pelo dia 10, então se alguém puder fazer o teste e postar aqui o feedback... Mas ficou tudo OK em homologação.
-
Ítalo, fiz o teste e funcionou certinho somente passando um linebreak mesmo (#$D#$A). Veja: Visualização da nota: PDF da nota: XML enviado: Alteração no IPM.Provider.pas:
-
Pelo jeito é o provedor que está com problema no recebimento de lotes, é um erro de SQL se olharmos o retorno que consegui pegar. Já avisei o provedor. Acho que a alteração que fiz na TACBrNFSeProviderIPM204 deve ter funcionado, mas não consegui confirmar por causa do erro que o provedor está retornando em homologação. Assim que eu tiver retorno deles eu testarei novamente. erro em homologação.txt
-
Ítalo, fiz o teste mas não deu certo. Dei uma olhada na unit e na verdade tem que ser feito na procedure Configuracao da TACBrNFSeProviderIPM204, isso porque essa classe não herda de TACBrNFSeProviderIPM e sim de TACBrNFSeProviderABRASFv2. Fiz esse ajuste no arquivo: E a XML parece ter ficado correto: Mas obtive o erro "XML declaration allowed only at the start of the document". Esse mesmo erro eu já havia tido com a tua alteração. Então acho que é no provedor, pois o XML da tua alteração não tinha mudança alguma. Vou voltar as alterações depois e testar novamente.