error close DIALOG
Posted: Sun Oct 25, 2009 12:59 pm
When I close the DIALOG without closing the WINDOWS of an error, how to get you close to the DIALOG Program also close, or not happen the error.
Code: Select all
#INCLUDE "FIVEWIN.CH"
FUNCTION MAIN()
LOCAL oDlg
DEFINE DIALOG oDlg ;
FROM 1, 1 TO 10, 30
ACTIVATE DIALOG oDlg CENTERED ON INIT(PortalNFe())
RETURN NIL
///////////////////////////////////////////////////////////////////////////////
FUNCTION PortalNFe()
///////////////////////////////////////////////////////////////////////////////
Local oActiveX,oWndNfe
DEFINE WINDOW oWndNfe FROM 3, 2 TO 26, 98 TITLE "Portal Nacional da Nota Fiscal Eletrônica" //OF oWnd//of ofld
oActiveX = TActiveX():New( oWndNfe, "Shell.Explorer" )
oWndNfe:oClient = oActiveX
oActiveX:Do( "Navigate", "https://www.nfe.fazenda.gov.br/portal/FormularioDePesquisa.aspx?tipoconsulta=completa" )
ACTIVATE WINDOW oWndNfe
EndDialog()
RETURN nil
///////////////////////////////////////////////////////////////////////////////