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.

Daniel Garcia-Gil wrote:Hello

you should use the option value in html select, not use the "description" or text

example the select "mes" the option dezembro the value is "12"

Code (fw): Select all Collapse

oActive:All:Item("Mes",0):Value := "12"

it's wrong too

Code (fw): Select all Collapse

oActive:All:Item("CondicaoPagamento",0):Value := "4111 - Espontâneo"

should use the option value... is "4111"

Code (fw): Select all Collapse

oActive:All:Item("CondicaoPagamento",0):Value := "4111"

the format date is yyyy-mm-dd

Code (fw): Select all Collapse

SET DATE FORMAT "yyyy-mm-dd"

after finish the fill field

Code (fw): Select all Collapse

Set Date To British

The combo dont work cause invoque onchange and loads data from database. How I can simulate combobox on change method in activex. I think this is a solution. Thanks.