Private Sub Button1_Click
Dim data As String
Dim data_list As List
Dim lineas_registro As List
Dim requestSoapXML As String
lineas_registro.Initialize
data_list.Initialize
data_list = File.ReadList(File.DirApp, "data.csv")
lineas_registro.Add("Matnr|OnHand")
File.WriteList(File.DirApp, "existencia_inventario.csv", lineas_registro)
Log("Process Started")
For i = 0 To 10 ' data_list.Size -1
Dim j As HttpJob
Dim material_numero As String
Dim item_list As List
item_list.Initialize
j.Initialize("", Me)
j.Username = "myuser"
j.Password = "mypassword"
item_list = Regex.Split(",",data)
lineas_registro.Clear
material_numero = item_list.Get(0)
requestSoapXML = File.ReadString(File.DirApp, "request.xml")
requestSoapXML = requestSoapXML.Replace("$MATERIAL$",material_numero)
requestSoapXML = requestSoapXML.Replace("$CENTRO$","2002")
j.PostString ("http://myipaddress.com:8102/sap/bc/srt/rfc/sap/zdsd_mm_existencia_preventa/300/zdsd_mm_existencia_preventa/zdsd_mm_existencia_preventa", requestSoapXML)
j.GetRequest.SetContentType("text/xml")
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Log(j.GetString)
j.Release
End If
Next
Log("Process Finished")
ExitApplication
End Sub