Hey,
I am having trouble linking multiple tables in 4GL. These are the fields and tables that I want to link.
Name |
Field Name |
Table Reference |
Work Order Number |
MFGNUM |
MFGITM |
Product Label |
YPRODLBL |
ITMMASTER |
Product Package Label |
YPRODPCKLBL |
ITMMASTER |
Shipping Box Label |
YSHIPBOXLBL |
ITMMASTER |
QA/Tote Label |
YQATOTELBL |
ITMMASTER |
Compounding Date |
REFPER |
STOLOT |
UBD Lead Time |
TCLCOD |
ITMMASTER |
So far, I have this in the code for the linking, and it is pulling MFGNUM, ITMREF, and ITMDES1. Everything else is not populating.
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
If clalev([F:MFI])=0 Local File MFGITM [MFI] : Endif
If clalev([F:ITM])=0 Local File ITMMASTER [ITM] : Endif
If clalev([F:STA])=0 Local File STOALL [STA] : Endif
If clalev([F:STL])=0 Local File STOLOT [STL] : Endif
Local Char MFGNUM(15), ITMREF(20), ITMDES1(100), YPRODLBL(30), YPRODPCKLBL(30), YSHIPBOXLBL(30), YQATOTELBL(30), TCLCOD(5)
Link [STA] With [MFI]MFI0=[STA]VCRNUM;[STA]VCRLIN,
& [ITM]ITM0=[MFI]ITMREF,
& [STL]STL0=[STA]ITMREF;[STA]LOT;[STA]SLO
& As [LNK]
For[LNK]
MFGNUM=[F:MFI]MFGNUM
ITMREF=[F:MFI]ITMREF
ITMDES1=[F:ITM]ITMDES1
YPRODLBL=[F:ITM]YPRODLBL
YPRODPCKLBL=[F:ITM]YPRODPCKLBL
YSHIPBOXLBL=[F:ITM]YSHIPBOXLBL
YQATOTELBL=[F:ITM]YQATOTELBL
TCLCOD=[F:ITM]TCLCOD
REFPER=[F:STL]REFPER
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Please advise me on how to get the other fields to populate on my screen as I THINK there is a problem with the linking.
Thank You!