¿cómo puedo obtener el navegador por defecto sea el chorme google y no el Internet Explorer?
- Code: Select all Expand view
FUNCTION NFe_ChecaPortal( f_cChave, f_nPortal ) // VEM DE DBMANUT.PRG
LOCAL oOle, oOleDoc := Array(2)
Default f_nPortal := 1, f_cChave := ""
oOle:= CreateObject("InternetExplorer.Application") // Como hago para Google Chrome? ó el navegador por defecto?
oOle:Visible := .T. // Apresenta o Browser
oOle:ToolBar := .F. // Desativa a barra de ferramentas
oOle:StatusBar := .F. // Desativa a barra de status
oOle:MenuBar := .F. // desativa a barra de menu
If f_nPortal == 1
oOle:Navigate2("http://www.nfe.fazenda.gov.br/portal/consulta.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8=")
Else
oOle:Navigate("http://nfe.fazenda.sp.gov.br/ConsultaNFe/consulta/publica/ConsultarNFe.aspx") // Abre o site
EndIf
// Maximiza o Internet explorer
hWnd:=oOle:hWnd
ShowWindow(hWnd, 3 ) //SW_MAXIMIZE=3 SW_NORMAL=1 SW_MINIMIZE=6
BringWindowToTop(hWnd)
WHILE oOle:Busy
SysWait(.5)
END
If f_nPortal == 1 // Portal Nacional
oOle := oOle:Document()
oOle:All:Item("ctl00$ContentPlaceHolder1$txtChaveAcessoCompleta",0):Value := f_cChave
Else // portal de Sao Paulo
oOle := oOle:Document()
oOle:All:Item("ctl00$ContentMain$tbxIdNFe"):Value := f_cChave
EndIf
RETURN( .T. )
Gracias, saludos.
