Cross Segmento - TOTVS Backoffice Linha Protheus - ADVPL - TIBrowse não abre Pagina Corretamente

Tempo aproximado para leitura: 00:05:00 min

Dúvida
Após alteração da URL por parte do prefeitura de Curitiba, não é mais possível carregar a URL pela TIBrowser. No Internet Explorer funciona normalmente

Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) – ADVPL – A partir da versão P1217

Solução

Executar o programa de exemplo disponível no final deste documento.
Por padrão o componente TIBrowser utiliza sempre o Internet Explorer no modo de compatibilidade do IE7. A única maneira de mudar isso é alterar o registro do Windows (https://msdn.microsoft.com/en-us/library/ee330730.aspx#browser_emulation seguir procedimento da seção Browser Emulation).

Conforme o documento do MSDN citado acima descreve, o administrador da estação deve seguir os seguintes passos para alterar para a versão 11 do Internet Explorer usado em “Browser Emulation”:

1. Abra o registro do Windows (tecla de atalho “Windows” + R, digite regedit e tecle <Enter>)
2. Navegue até a chave HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION ou HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION (durante os testes, em algumas situações, somente a alteração na chave a partir de HKEY_CURRENT_USER surtiu efeito, então é importante testar nas duas HKEY_CURRENT_USER e HKEY_LOCAL_MACHINE)
3. Clique no menu Editar > Novo > Valor DWORD (32-bits)
4. Digite o valor exe e tecle <Enter>
5. Clique com o botão direito sobre o valor smartclient.exe e selecione ..
6. Em Base selecione Decimal e em Dados do valor digite 11000 e clique em OK
7. O resultado final deverá ficar como na imagem a seguir:
8. Se necessário repita a operação para a chave HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION
9. Teste o componente TIBrowse, agora ele deverá estar emulando com Internet Explorer 11.
10. 

Exemplo utilizado na customização:

#include 'protheus.ch'
#include 'parmtype.ch'
#include "totvs.ch"

User Function TiBrowseHTTPS()

DEFINE DIALOG oDlg TITLE "Visualizador de NFS-e" FROM 0,0 TO 768,1024 PIXEL

oTIBrowser := TIBrowser():New(0,0,515,385,"https://isscuritiba.curitiba.pr.gov.br/NotaCuritibana/NotaRPS/AutenticidadeNota/Default.aspx?doc=XXXXXXXXX&num=XXXXXX&cod=XXXXXXX",oDlg )

ACTIVATE DIALOG oDlg CENTERED

Return

Saiba mais: 
Classe TIBrowser