Erro ao gerar qrcode para o estado da paraiba

[joab]

existe uma falha ao gerar a url do qrcode para o estado da paraiba

na funcao NotaUtil.GetURLQRCode da unit ACBrNFeUtil a url base do estado é 'https://www5.receita.pb.gov.br/atf/seg/SEGf_AcessarFuncao.jsp?cdFuncao=FIS_1410'
ao final da funcao são acrescentados os parametros a essa url em 'Result := urlUF + '?' + sEntrada + cIdToken+ '&cHashQRCode=' + cHashQRCode;'
como na url base já existe uma '?' e outra é adicionada, a url resultante fica inválida.

temporariamente resolvi assim:
  if Pos('?', urlUF) > 0 then
    Result := urlUF + '&' + sEntrada + cIdToken+ '&cHashQRCode=' + cHashQRCode
  else
    Result := urlUF + '?' + sEntrada + cIdToken+ '&cHashQRCode=' + cHashQRCode;

o erro ocorre apenas para esse estado já que é o único que tem a url base já com um parametro ('?cdFuncao=FIS_1410').

Editado 28 Junho, 2015 por joab

[Italo Giurizzato Junior]

Bom dia,

Muito obrigado pela colaboração, já esta disponível a sua alteração.

[mrcsroberto]

Fiz a atualização dos componentes mas o erro continuou. Joab você testou em homologação?

 

[joab]

mrcsroberto, 

para ambiente de homologação, usando o trunk1, ate antes da ultima atualização dos webservices, estava funcionando.

apos a atualização que exige a tag '<infNFeSupl><qrCode>' no xml não esta mais funcionando, mas outras questões estão envolvidas.

o primeiro erro que obtive foi um retorno da sefaz criticando a falta da tag '<infNFeSupl><qrCode>'

fiz algumas alterações nos fontes e consegui colocar a tag no xml com a informação do qrcode e o erro mudou, agora informando que a url não era válida.

depois consegui descobrir que colocando a url seguindo a regra que informei no primeiro post não funciona.

embora a url esteja correta para impressão do danfe, a sefaz não consegue validar, então coloquei a url antiga e deu certo.

deve ser algum erro da sefaz na hora de validar.

 

no trecho de codigo no primeiro post que fiz 

if Pos('?', urlUF) > 0 then
    Result := urlUF + '&' + sEntrada + cIdToken+ '&cHashQRCode=' + cHashQRCode
  else
    Result := urlUF + '?' + sEntrada + cIdToken+ '&cHashQRCode=' + cHashQRCode;

basta deixar assim:

Result := urlUF + '?' + sEntrada + cIdToken+ '&cHashQRCode=' + cHashQRCode;

o qrcode do danfe sai errado mas o xml é enviado com sucesso.

você pode bolar uma lógica para o danfe e outra para colocar na tag ate que eles corrijam a validação.

lembrando que você vai precisar alterar os fontes para incluir a tag '<infNFeSupl><qrCode>'. 

ate a minha ultima atualização há umas 3 semanas, não lembro bem, o trunk1 não tinha isso e acredito que não terá uma vez que o administrador do acbr ja avisou que não atualizará mais o trunk1.

o trunk2 nao testei ainda, nao estou podendo fazer a migracao agora.

 

[mrcsroberto]

Obrigado pelas informações.
Uso o trunk2 em ambiente de homologação e apesar desta regra o erro da sefaz permanece. 
Vou realizar mais uma bateria de testes e postar o resultado ou a correção.