project QadFinancials > class BMfgLocation > method UpdateQuantity

Description

Updating Location


Parameters


icSiteinputcharacterSite
icLocationinputcharacterLocation
icPartinputcharacterPart
icLotSerialinputcharacterLot Serial
icLotReferenceinputcharacterLot Reference
itExpirationDateinputdateExpiry Date
icTransactionTypeinputcharacterTransaction Type
itEffectiveDateinputdateEffective Date
idQuantityinputdecimal
iiBMfgLocationDetInstanceIDinputinteger
ihBMfgLocationDetHandleinputhandle
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program1/bmfglocation.p)

/*Updates the quantity in location master                   */
/*  Input Parameters                                        */
/*              TransactionType     Transaction Type        */
/*                EffectiveDate       Effective Date        */
/*                Part                Part                  */
/*                Site                Site                  */
/*                Location            Location              */
/*                LotSerial           Lot Serial            */
/*                LotReference        Lot reference         */
/*                ExpirationDate      Expiry Date           */
/*                Ref_Site            Reference site        */
/*                Quantity            Base quantity         */
/*                BMfgLocationDetInstanceID                 */
/*                BMfgLocationDetHandle                     */
/************************************************************/

if icSite     = ? then assign icSite     = '':U.
if icLocation = ? then assign icLocation = '':U.

assign oiReturnStatus = -98.

<M-19 run LoadLocation
   (input  icSite (icSite), 
    input  icLocation (icLocation), 
    output viFcReturnSuper (oiReturnStatus)) in BMfgLocation>
if viFcReturnSuper = -4
then do:
    <M-18 run CreateLocation
       (input  icSite (icSite), 
        input  icLocation (icLocation), 
        output viFcReturnSuper (oiReturnStatus)) in BMfgLocation>
end.

if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper <  0 then return.

/* create records for update of locatin det */
create tLocationDetInfo.
assign tLocationDetInfo.tcDomain            = vcDomainCode
       tLocationDetInfo.tcLocation          = icLocation
       tLocationDetInfo.tcLotReference      = icLotReference
       tLocationDetInfo.tcLotSerial         = icLotSerial
       tLocationDetInfo.tcPart              = icPart
       tLocationDetInfo.tcSite              = icSite
       tLocationDetInfo.tcTransactionType   = icTransactionType
       tLocationDetInfo.ttEffectiveDate     = itEffectiveDate
       tLocationDetInfo.ttExpirationDate    = itExpirationDate
       tLocationDetInfo.tdQuantity          = idQuantity.

/* Return */
if oiReturnStatus = -98 then assign oiReturnStatus = 0.