Anyone can test this code please?
I try to put values in html fields but I have some insues, combobox fields don't work, I miss something?
Thanks in advance.
#Include "FiveWin.Ch"
Function Main()
Local hWnd, oWndWeb, oActiveX, cUrl
Set Century on
Set Date To British
Set Epoch to 1960
DEFINE WINDOW oWndWeb From 10,10 To 51,115 TITLE "DARE"
oActiveX = TActiveX():New( oWndWeb, "Shell.Explorer" )
oWndWeb:oClient = oActiveX
cUrl:="http://www.sefaz.go.gov.br/dare/espontaneo/default.asp?cadastrado=true"
oActiveX:Do( "Navigate2", cUrl)
oWndWeb:center()
While oActiveX:Busy
syswait(.2)
End
oActiveX := oActiveX:Document()
oActiveX:All:Item("CCE",0):Value := "104110643"
oActiveX:All:Item("TipoTributo",0):Focus()
oActiveX:All:Item("TipoTributo",0):Value := "01"
oActiveX:All:Item("Receita",0):Focus()
oActiveX:All:Item("Receita",0):Value := "108 - ICMS Normal"
oActiveX:All:Item("CondicaoPagamento",0):Value := "4111 - Espontâneo"
oActiveX:All:Item("Referencia",0):Value := "001 - Dia 1"
oActiveX:All:Item("Mes",0):Value := "Dezembro"
oActiveX:All:Item("DataVencimento",0):Value := Dtoc(Date())
oActiveX:All:Item("DataPagamento",0):Value := Dtoc(Date())
oActiveX:All:Item("Ano",0):Value := "2013"
oActiveX:All:Item("Parcela",0):Value := "1"
oActiveX:All:Item("Valor",0):Value := "93,00"
oActiveX:All:Item("Info",0):Value := "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
ShowWindow(hWnd, 1 ) //SW_MAXIMIZE=3 SW_NORMAL=1 SW_MINIMIZE=6
ACTIVATE WINDOW oWndWeb
Return .t.