I have this message when open url on my hmg application
Código: Selecionar todos
Procedure Http()
cAddress := "https://www.piecesauto.com/fr/recherche ... 1878085741"
If len(Alltrim(ARTICLE->LIEN_HTTP)) >0
DEFINE WINDOW Win_http ;
AT 95,0 ;
WIDTH 1024 ;
HEIGHT 620 ;
ICON 'Solex.ICO' ;
MODAL
@ 0,0 ACTIVEX Test ;
WIDTH 1000 ;
HEIGHT 580 ;
PROGID "shell.explorer.2"
Win_http.Test.Object:Navigate(cAddress)
END WINDOW
ACTIVATE WINDOW Win_http
endif
Return