project QadFinancials > class BMfgLocation > method CreateLocation

Description

Create Location Records


Parameters


icSiteinputcharacterSite
icLocationinputcharacterLocation
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BMfgLocation.UpdateQuantity


program code (program1/bmfglocation.p)

/*Creates a Location Record if it does not exist*************  */
/* Input Parameters                                             */
/*      icSite          Site                                    */
/*      icLocation      Location                                */
/****************************************************************/

assign oiReturnStatus = -98.
/* load data in inventory master temp table*/

<M-1 run AddDetailLine
   (input  'loc_mstr':U (icTable), 
    input  '':U (icParentRowid), 
    output viFcReturnSuper (oiReturnStatus)) in BMfgLocation>

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


assign tloc_mstr.loc_site  = icSite
       tloc_mstr.loc_loc   = icLocation
       tloc_mstr.loc_date  = today
       tloc_mstr.loc_perm  = no.
       
/*Get Inventory Status*/ 
<Q-3 run SiteForInventoryStatusLoc (all) (Read) (NoCache)
   (input vcDomainCode, (Domain)
    input icSite, (Site)
    output dataset tqSiteForInventoryStatusLoc) in BMfgSite >
find first tqSiteForInventoryStatusLoc no-error.     

if available tqSiteForInventoryStatusLoc
then assign tloc_mstr.loc_status = tqSiteForInventoryStatusLoc.tcsi_status.

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