Hi Everybody:

Excuseme but I don't have enough expertise of using AFS.

I made a test script from VB, I created a form and capture some data and then made a buttom that call a rutine.

The process runs ok, but when I login to Baan and go to the Maintain Sales Orders, the process can´t create any record.

Bellow is the script.


What must I do bad?.


Thanks.



Wilson


Private Sub CommandButton1_Click()
' Correr_sesion_de_baan Macro
'

Dim ssql As String
Dim erreur As String
Dim errmess As String
Dim baanobj As Object
Dim seriew As String
Dim clientew As String
Dim tordenw As String
Dim fechaw As String
Dim fechaw1 As String
Dim refew As String
Dim monew As String
Dim fpagow As String
Dim paisw As String
Dim idiomaw As String
Dim ciudadw As String

Dim i As Integer
Dim error As String

cRow = 4
cColumn = 3
dRow = 4
dColumn = 4

do_update = "1"
seriew = serie.Value
clientew = Cliente.Value
tordenw = Torden.Value
fechaw = FechaOrden.Value
fechaw1 = FechaEntrega.Value
refew = Referencia.Value
monew = Moneda.Value
fpagow = FormaPago.Value
paisw = Pais.Value
idiomaw = Idioma.Value
ciudadw = Ciudad.Value


Set baanobj = CreateObject("Baan4.Application.sun_bogota")
' baanobj.Timeout = 30
' baanobj.ParseExecFunction "otcmcszonas", "zonas.put.tcmcs045.creg(seriew)"
'baanobj.Quit



ssql = "stpapi.put.Field(" & Chr(34) & "tdsls4101m000" & Chr(34) & ", " & Chr(34) & "tdsls040.orno" & Chr(34) & ", " & Chr(34) & seriew & Chr(34) & ")"
erreur = baanobj.ParseExecFunction("ottstpapihand", ssql)
ssql = "stpapi.put.Field(" & Chr(34) & "tdsls4101m000" & Chr(34) & ", " & Chr(34) & "tdsls040.cuno" & Chr(34) & ", " & Chr(34) & clientew & Chr(34) & ")"
erreur = baanobj.ParseExecFunction("ottstpapihand", ssql)
ssql = "stpapi.put.Field(" & Chr(34) & "tdsls4101m000" & Chr(34) & ", " & Chr(34) & "tdsls040.cotp" & Chr(34) & ", " & Chr(34) & tordenw & Chr(34) & ")"
erreur = baanobj.ParseExecFunction("ottstpapihand", ssql)
ssql = "stpapi.put.Field(" & Chr(34) & "tdsls4101m000" & Chr(34) & ", " & Chr(34) & "tdsls040.odat" & Chr(34) & ", " & Chr(34) & fechaw & Chr(34) & ")"
erreur = baanobj.ParseExecFunction("ottstpapihand", ssql)
ssql = "stpapi.put.Field(" & Chr(34) & "tdsls4101m000" & Chr(34) & ", " & Chr(34) & "tdsls040.prdt" & Chr(34) & ", " & Chr(34) & fechaw1 & Chr(34) & ")"
erreur = baanobj.ParseExecFunction("ottstpapihand", ssql)
ssql = "stpapi.put.Field(" & Chr(34) & "tdsls4101m000" & Chr(34) & ", " & Chr(34) & "tdsls040.refa" & Chr(34) & ", " & Chr(34) & refew & Chr(34) & ")"
erreur = baanobj.ParseExecFunction("ottstpapihand", ssql)
ssql = "stpapi.put.Field(" & Chr(34) & "tdsls4101m000" & Chr(34) & ", " & Chr(34) & "tdsls040.ccur" & Chr(34) & ", " & Chr(34) & monew & Chr(34) & ")"
erreur = baanobj.ParseExecFunction("ottstpapihand", ssql)
ssql = "stpapi.put.Field(" & Chr(34) & "tdsls4101m000" & Chr(34) & ", " & Chr(34) & "tdsls040.cpay" & Chr(34) & ", " & Chr(34) & fpagow & Chr(34) & ")"
erreur = baanobj.ParseExecFunction("ottstpapihand", ssql)
ssql = "stpapi.put.Field(" & Chr(34) & "tdsls4101m000" & Chr(34) & ", " & Chr(34) & "tdsls040.ccty" & Chr(34) & ", " & Chr(34) & paisw & Chr(34) & ")"
erreur = baanobj.ParseExecFunction("ottstpapihand", ssql)
ssql = "stpapi.put.Field(" & Chr(34) & "tdsls4101m000" & Chr(34) & ", " & Chr(34) & "tdsls040.clan" & Chr(34) & ", " & Chr(34) & idiomaw & Chr(34) & ")"
erreur = baanobj.ParseExecFunction("ottstpapihand", ssql)
ssql = "stpapi.put.Field(" & Chr(34) & "tdsls4101m000" & Chr(34) & ", " & Chr(34) & "tdsls040.ccit.o" & Chr(34) & ", " & Chr(34) & ciudadw & Chr(34) & ")"
erreur = baanobj.ParseExecFunction("ottstpapihand", ssql)

ssql = "stpapi.put.Field(" & Chr(34) & "tdsls4101m000" & Chr(34) & ", " & Chr(34) & "tdsls040.corg" & Chr(34) & ", " & Chr(34) & Str$(4) & Chr(34) & ")"
erreur = baanobj.ParseExecFunction("ottstpapihand", ssql)
ssql = "stpapi.put.Field(" & Chr(34) & "tdsls4101m000" & Chr(34) & ", " & Chr(34) & "tdsls040.fcrt" & Chr(34) & ", " & Chr(34) & Str$(1) & Chr(34) & ")"
erreur = baanobj.ParseExecFunction("ottstpapihand", ssql)
ssql = "stpapi.put.Field(" & Chr(34) & "tdsls4101m000" & Chr(34) & ", " & Chr(34) & "tdsls040.cvyn" & Chr(34) & ", " & Chr(34) & Str$(2) & Chr(34) & ")"
erreur = baanobj.ParseExecFunction("ottstpapihand", ssql)
ssql = "stpapi.put.Field(" & Chr(34) & "tdsls4101m000" & Chr(34) & ", " & Chr(34) & "tdsls040.futo" & Chr(34) & ", " & Chr(34) & Str$(2) & Chr(34) & ")"
erreur = baanobj.ParseExecFunction("ottstpapihand", ssql)
ssql = "stpapi.put.Field(" & Chr(34) & "tdsls4101m000" & Chr(34) & ", " & Chr(34) & "tdsls040.bkyn" & Chr(34) & ", " & Chr(34) & Str$(2) & Chr(34) & ")"
erreur = baanobj.ParseExecFunction("ottstpapihand", ssql)
ssql = "stpapi.put.Field(" & Chr(34) & "tdsls4101m000" & Chr(34) & ", " & Chr(34) & "tdsls040.scom" & Chr(34) & ", " & Chr(34) & Str$(2) & Chr(34) & ")"
erreur = baanobj.ParseExecFunction("ottstpapihand", ssql)
ssql = "stpapi.put.Field(" & Chr(34) & "tdsls4101m000" & Chr(34) & ", " & Chr(34) & "tdsls040.rats(1)" & Chr(34) & ", " & Chr(34) & "1" & Chr(34) & ")"
erreur = baanobj.ParseExecFunction("ottstpapihand", ssql)
ssql = "stpapi.put.Field(" & Chr(34) & "tdsls4101m000" & Chr(34) & ", " & Chr(34) & "tdsls040.rats(2)" & Chr(34) & ", " & Chr(34) & "1" & Chr(34) & ")"
erreur = baanobj.ParseExecFunction("ottstpapihand", ssql)
ssql = "stpapi.put.Field(" & Chr(34) & "tdsls4101m000" & Chr(34) & ", " & Chr(34) & "tdsls040.rats(3)" & Chr(34) & ", " & Chr(34) & "1" & Chr(34) & ")"
erreur = baanobj.ParseExecFunction("ottstpapihand", ssql)
ssql = "stpapi.put.Field(" & Chr(34) & "tdsls4101m000" & Chr(34) & ", " & Chr(34) & "tdsls040.ratf(1)" & Chr(34) & ", " & Chr(34) & "1" & Chr(34) & ")"
erreur = baanobj.ParseExecFunction("ottstpapihand", ssql)
ssql = "stpapi.put.Field(" & Chr(34) & "tdsls4101m000" & Chr(34) & ", " & Chr(34) & "tdsls040.ratf(2)" & Chr(34) & ", " & Chr(34) & "1" & Chr(34) & ")"
erreur = baanobj.ParseExecFunction("ottstpapihand", ssql)
ssql = "stpapi.put.Field(" & Chr(34) & "tdsls4101m000" & Chr(34) & ", " & Chr(34) & "tdsls040.ratf(3)" & Chr(34) & ", " & Chr(34) & "1" & Chr(34) & ")"
erreur = baanobj.ParseExecFunction("ottstpapihand", ssql)

baanobj.ParseExecFunction "ottstpapihand", "stpapi.insert(" & Chr(34) & "tdsls4101m000" & Chr(34) & "," & do_update & "," & Chr(34) & "errmess" & Chr(34) & ")"
ssql = "stpapi.get.mess.code(" & Chr(34) & "tdsls4101m000" & Chr(34) & ")"
erreur = baanobj.ParseExecFunction("ottstpapihand", ssql)

errmess = Val(baanobj.ReturnValue)
If baanobj.error = 0 Then
MsgBox "Registro " & codigo & " añadido"
End If
erreur = baanobj.ParseExecFunction("ottstpapihand", "stpapi.end.session(" & Chr(34) & "tdsls4101m000" & Chr(34) & "," & Chr(34) & "errmess" & Chr(34) & ")")
End Sub

Do you get any error from the stpapi.insert? You can search on this forum for how to handle errors in the VB code. I can't help much with VB coding since I do everything in baan.

Also if you have source code you can put tdsls4101m000 in debug mode. Then when your VB code launches the session you can see what is happening.