1,270
Hi
I am trying to set the value of a text box placed on the sales order form, that I refer to as the Permission number text box, to appear in the Manufacturer number text box which is in the the bin/lot/serial form.
In other words, what I am trying to achieve is to have the same information in one text box to appear in another text box from a different form.
Any help would be appreciated if someone could point me in the right direction.
Thanks
Lisa
*This post is locked for comments
To set a value to other control you can use SetObjectValue or SetBufferValue. If the control is part of a grid you can use the MUpdate, MFirts, MNext functions.
Example SetObjectValue:
Dim sOrdNbr As String
Dim sInvcDate As String
Dim FechaSQL As Sdate
Call GetBufferValue("bSOShipHeader.OrdNbr", sOrdNbr)
Call GetBufferValue("bSOShipHeader.InvcDate", sInvcDate)
FechaSQL.val = sInvcDate
If FechaSQL.val = 0 Then
Call GetSysDate(FechaSQL)
sInvcDate = DateToStr(FechaSQL)
Else
sInvcDate = DateToStr(FechaSQL)
End If
If Trim(sOrdNbr) = "" Then
serr2 = SetObjectValue("corddate_0", sInvcDate)
Else
serr2 = SetObjectValue("cdatecancelled_0", sInvcDate)
End If
Example SetBufferValue:
Dim FechaSQL As Sdate
Dim sFechaFactura As String
Call GetBufferValue("bSOShipHeader.InvcDate", sFecha)
If Trim(sFecha) = "" Then
Call GetSysDate(FechaSQL)
Else
FechaSQL.val = sFecha
End If
sFecha = DateToStr(FechaSQL)
Call SetBufferValue("bSOShipHeader.InvcDate", sFecha)
Example Update Grid field:
Private Sub ccustid_0_Chk(ChkStrg As String, retval As Integer)
MH_xFECustContact_Row = MGetRowNum(MH_xFECustContact)
serr1 = MFirst(MH_xFECustContact, MH_xFECustContact_Flag)
Do Until serr1 = NOTFOUND
Call ObtieneCamposLlave
serr_xFECustContact = SqlFetch1(CSR_xFECustContact, "xsp_xFECustContact_All" & SParm(bxFECustContact.CustID) & SParm(bxFECustContact.ContactID), txFECustContact, LenB(txFECustContact))
If serr_xFECustContact = 0 Then
bxFECustContact.EnviarCfdi = txFECustContact.EnviarCfdi
Call MUpdate(MH_xFECustContact)
End If
Call MUpdate(MH_xFECustContact)
serr1 = MNext(MH_xFECustContact, MH_xFECustContact_Flag)
Loop
Call msetrownum(MH_xFECustContact, MH_xFECustContact_Row)
Call MDisplay(MH_xFECustContact)
End Sub
Stay up to date on forum activity by subscribing. You can also customize your in-app and email Notification settings across all subscriptions.
#1
André Arnaud de Cal...
291,253
Super User 2024 Season 2
#2
Martin Dráb
230,188
Most Valuable Professional
#3
nmaenpaa
101,156
Share
Report
All responses (
Answers (