I don’t give an error as is.
the issue here is that the field or inputs are not filled when I do the POST like in other URLS.
So that is my code:
dim e as integer
dim d as new UploadCURL
d.OptionURL = "https://wbc2.burodecredito.com.mx:8474/rceonline-pm/pages/datos-generales.xhtml"
'j_idt8:Siguiente
d.OptionVerbose = True
d.CollectOutputData = true
d.CollectHeaderData = true
'Persona Fisica con actividad empresarial
d.FormAdd(d.kFormCopyName,"j_idt8", d.kFormCopyContents, "j_idt8")
d.FormAdd(d.kFormCopyName,"j_idt8:nombreEmpresa", d.kFormCopyContents, "Constructora y Edificadora 2013 SA de CV")
d.FormAdd(d.kFormCopyName,"j_idt8:rfcEmpresa", d.kFormCopyContents, "CED130828")
d.FormAdd(d.kFormCopyName,"j_idt8:homoclaveEmpresa", d.kFormCopyContents, "MJ8")
d.FormAdd(d.kFormCopyName,"j_idt8:appatLegal", d.kFormCopyContents, "MUNOZ")
d.FormAdd(d.kFormCopyName,"j_idt8:apmatLegal", d.kFormCopyContents, "GONZALEZ")
d.FormAdd(d.kFormCopyName,"j_idt8:primerNombreLegal", d.kFormCopyContents, "JUAN")
d.FormAdd(d.kFormCopyName,"j_idt8:segundoNombreLegal", d.kFormCopyContents, "ANTONIO")
d.FormAdd(d.kFormCopyName,"j_idt8:email", d.kFormCopyContents, "ggarcia@cye2013.net")
d.FormAdd(d.kFormCopyName,"j_idt8:confirmacionEmail", d.kFormCopyContents, "ggarcia@cye2013.net")
d.FormAdd(d.kFormCopyName,"j_idt8:telefono", d.kFormCopyContents, "5567985969")
d.FormAdd(d.kFormCopyName,"j_idt8:calle", d.kFormCopyContents, "CALZADA DE TLALPAN 476")
d.FormAdd(d.kFormCopyName,"j_idt8:codigoPostal", d.kFormCopyContents, "08200")
d.FormAdd(d.kFormCopyName,"j_idt8:estado", d.kFormCopyContents, "CDMX,6000090")
d.FormAdd(d.kFormCopyName,"j_idt8:ciudad", d.kFormCopyContents, "CIUDAD DE MEXICO")
d.FormAdd(d.kFormCopyName,"j_idt8:municipio", d.kFormCopyContents, "IZTACALCO")
d.FormAdd(d.kFormCopyName,"j_idt8:colonia", d.kFormCopyContents, "VIADUCTO PIEDAD")
d.FormAdd(d.kFormCopyName,"j_id1:javax.faces.ViewState:0", d.kFormCopyContents, "6350429936611248702:166684178122360578")
d.FormAdd(d.kFormCopyName,"j_idt8:Siguiente", d.kFormCopyContents, "j_idt8:Siguiente")
d.FormFinish
e=d.Perform
ListBox1.AddRow "Result: "+str(e)
ListBox1.AddRow d.GetInfoContentType
Result.text = d.OutputData.DefineEncoding(Encodings.UTF8)
'HTMLViewer1.LoadPage d.OutputData, nil
Dim f as FolderItem = GetTemporaryFolderItem
HTMLViewer1.LoadPage Result.text, f