project QadFinancials > class BMfgLocationDet > method LoadLocationDet

Description

Parameters

Internal usage

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.