Dear all,

Hi, I'm using Report Operation Completed for processing production item. So 1 Production Order can be used by multiple production. eg, PO=1000, actual production 1=100, 2=500 and 3=400.

I'm have a problem with shortage.

How to block Report Operation Complete when item was shortage. So user can't typing quantity of complete or reject.

Please, I need the solution A.S.A.P.


Thanks & regards,

Iwan Kurniawan

Dears,

Please I need solution.

I just create an application by vb. but not function.

stpapi.find is not working.


Please I need it .

Thanks & regards,

Iwan K

Sub Find()
SessionName = "tisfc0530m000"
'clear obj
baanObj.ParseExecFunction("ottstpapihand", "stpapi.clear(" & Chr(34) & SessionName & Chr(34) & ")")
FieldName = "tisfc010.pdno"
FieldValue = Trim(txtWO.Text)
'baanObj.ParseExecFunction("ottstpapihand", "stpapi.put.field(" & Chr(34) & SessionName & Chr(34) & "," & Chr(34) & FieldName & Chr(34) & "," & Chr(34) & FieldValue & Chr(34) & ")")
baanObj.ParseExecFunction("ottstpapihand", "stpapi.put.field(" & Chr(34) & SessionName & Chr(34) & "," & Chr(34) & FieldName & Chr(34) & ",str$(" & FieldValue & "))")

FieldName = "tisfc010.opno"
FieldValue = "10"
'baanObj.ParseExecFunction("ottstpapihand", "stpapi.put.field(" & Chr(34) & SessionName & Chr(34) & "," & Chr(34) & FieldName & Chr(34) & "," & Chr(34) & FieldValue & Chr(34) & ")")
baanObj.ParseExecFunction("ottstpapihand", "stpapi.put.field(" & Chr(34) & SessionName & Chr(34) & "," & Chr(34) & FieldName & Chr(34) & ",str$(" & FieldValue & "))")

'baanObj.ParseExecFunction("ottstpapihand", "stpapi.form.command(" & Chr(34) & SessionName & Chr(34) & ", 5, " & Chr(34) & "exec.user.0" & Chr(34) & ", " & Chr(34) & ErrMessage1 & Chr(34) & ")")
tFind = baanObj.ParseExecFunction("ottstpapihand", "stpapi.set.view(" & Chr(34) & SessionName & Chr(34) & ")")
tFind = baanObj.ParseExecFunction("ottstpapihand", "stpapi.find(" & Chr(34) & SessionName & Chr(34) & ")")
tFind = baanObj.ParseExecFunction("ottstpapihand", "stpapi.change.view(" & Chr(34) & SessionName & Chr(34) & ")")
If tFind = 1 Then
FieldName = "tisfc010.pdno"
FieldValue = ""
baanObj.ParseExecFunction("ottstpapihand", "stpapi.get.field(" & Chr(34) & SessionName & Chr(34) & "," & Chr(34) & FieldName & Chr(34) & "," & Chr(34) & FieldValue & Chr(34) & ")")
MsgBox(FieldValue)
baanObj.ParseExecFunction("ottstpapihand", "stpapi.end.session(" & Chr(34) & SessionName & Chr(34) & ")")
Else
MsgBox("Data Not found")
End If

End Sub