Share
Report
555Hi,
I'm trying to call Customer Maintenance screen from Project Maintenance Screen.
project maintenance screen code:
Private Sub Screen_Click()
Dim CustomerID As String
CustomerID = Trim(GetObjectValue("ccustomer"))
Call ApplSetParmValue("PRMSECTION_VBRDT", "CustomerID", CustomerID)
serr = Launch("AR\0826000.exe", True, True, 0)
End Sub
Customer Maintenance Code:
Private Sub Form1_Load()
Dim CustomerID As String
CustomerID = ApplGetParmValue("PRMSECTION_VBRDT", "CustomerID")
If Len(Trim(CustomerID)) > 0 Then
Call SetObjectValue("ccustid", Trim(CustomerID))
' Call SetBufferValue("bCustomer.CustId",Trim(CustomerID))
' Call DispFields("Form1", "ccustid")
' Call CallChks("Form1", "ccustid")
End If
End Sub
In customer maintenance screen i get the customerid value.but can't load all other values.
Here have tried SetObjectValue and SetBufferValue but Error only came "Data must be Entered in this field" ,it asks other fields ,how can i load other fields depend on custId field.
if i check this line then also same error Call CallChks("Form1", "ccustid").
Genius Please help me
*This post is locked for comments
All responses (
Answers (
