Hi,
If you wanna pass data to the other screen you can use something like this:
--Pasa valores de una pantalla a otra
--Pantalla origen
Dim sCustID As String
Call GetBufferValue("bCustomer.CustID", sCustID)
If Trim(sCustID) <> "" Then
Call Edit_Save
Call ApplSetParmValue(PRMSECTION_VBRDT, "CustID", Trim(sCustID))
Call ApplSetParmValue(PRMSECTION_VBRDT, "ShipToID", "DEFAULT")
serr1 = Launch("xUsr_Screen\xFE0200.exe", True, True, 0)
Call Edit_Cancel
End If
--SL 7
Call ApplSetParmValue(PRMSECTION_VBRDT, "BatNbr", bxINPedidoInterCoH.BatNbr)
Call CallApplicWait("xUsr_Screen\xIN1900.exe", String.Empty)
Call Edit_Cancel()
--Pantalla destino
Option Explicit
Dim sCustID As String
Dim sShipToID As String
Private Sub Form1_Display()
If Trim(sCustID) <> "" Then
Call SetObjectValue("cCustID_0", Trim(sCustID))
Call SetObjectValue("cShipToID_0", Trim(sShipToID))
End If
End Sub
Private Sub Form1_Load()
sCustID = ApplGetParmValue(PRMSECTION_VBRDT, "CustID")
sShipToID = ApplGetParmValue(PRMSECTION_VBRDT, "ShipToID")
o
Dim custId as String = trim(ApplGetParmValue(PRMSECTION_VBRDT, "CustID"))
IF String.IsNullOrEmpty(custid) = false then
call setobjectvalue("txtCustID_0", custiID)
end if
End Sub
