Description
Location Detail
Parameters
icSite | input | character | Site |
icLocation | input | character | Location |
icPart | input | character | Part |
icLotSerial | input | character | Lot Serial |
icLotReference | input | character | Lot Reference |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program1/bmfglocationdet.p)
/*Loads the records in temp table where domain,site and location match*/
assign oiReturnStatus = -98.
<Q-3 run LocationDetailBySiteLoc (all) (Read) (NoCache)
(input vcDomainCode, (Domain)
input icSite, (Site)
input icLocation, (Location)
input icPart, (Part)
input icLotSerial, (LotSerialNumber)
input icLotReference, (LotReference)
output dataset tqLocationDetailBySiteLoc) in BMfgLocationDet >
find tqLocationDetailBySiteLoc where
tqLocationDetailBySiteLoc.tcld_domain = vcDomainCode and
tqLocationDetailBySiteLoc.tcld_site = icSite and
tqLocationDetailBySiteLoc.tcld_loc = icLocation and
tqLocationDetailBySiteLoc.tcld_part = icPart and
tqLocationDetailBySiteLoc.tcld_lot = icLotSerial and
tqLocationDetailBySiteLoc.tcld_ref = icLotReference no-error.
if not available tqLocationDetailBySiteLoc
then do:
assign oiReturnStatus = -4.
return.
end.
<M-2 run DataLoad
(input tqLocationDetailBySiteLoc.tc_rowid (icRowids),
input ? (icPkeys),
input ? (icObjectIds),
input ? (icFreeform),
input Yes (ilKeepPrevious),
output viFcReturnSuper (oiReturnStatus)) in BMfgLocationDet>
if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0 then return.
find tld_det where
tld_det.ld_domain = vcDomainCode and
tld_det.ld_site = icSite and
tld_det.ld_loc = icLocation and
tld_det.ld_part = icPart and
tld_det.ld_lot = icLotSerial and
tld_det.ld_ref = icLotReference no-error.
if not available tld_det
then do:
<M-4 run SetMessage
(input 'Invalid Record':U (icMessage),
input '':U (icArguments),
input '':U (icFieldName),
input '':U (icFieldValue),
input 'S':U (icType),
input 3 (iiSeverity),
input '':U (icRowid),
input 'QadFin-5724':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BMfgLocationDet>
assign oiReturnStatus = -1.
return.
end.
if oiReturnStatus = -98 then assign oiReturnStatus = 0.