#Include %occInclude
 
 
	 Set DoAll=1
Inv
	;-------------------------------------------------------------------------
	; AUTOMATIC OBJECT CREATOR: EWMS.Inventory
	;-------------------------------------------------------------------------
	Write "Automatic object creation: EWMS.Inventory",!
	Write "-----------------------------------------",!
	
	New SQLGCW
	Set SQLGCW=##class(EWMS.SQLGCWrapper).%New()
	Quit:('SQLGCW.Connect())
	Quit:('SQLGCW.AllocateStatement())
	
	New InventoryObj,Status,DeleteOld,CreatedID
	Set DeleteOld=0
	
	;-------------------------------------------------------------------------
	Set CreatedID="9999999C||00000001||31243           ||                              ||0000000000||0000000000"
	Do:(DeleteOld) ##class(EWMS.Inventory).%DeleteId(CreatedID)
	If '##class(EWMS.Inventory).%ExistsId(CreatedID) Do
	. Do ##class(EWMS.Inventory).New("9999999C","00000001",31243,,,,.CreatedID,SQLGCW)
 
	Set InventoryObj=##class(EWMS.Inventory).%OpenId(CreatedID)
	Set InventoryObj.ExpDay="0000-00-00-00.00.00       "
	;Set InventoryObj.InsertTime="2002-10-23-14.16.53.000000"
	Set InventoryObj.IsFull=0
	Set InventoryObj.LocM=4
	Set InventoryObj.QtyBlock=0
	Set InventoryObj.QtyInBox=0
	Set InventoryObj.QtyPcs=10
	Set InventoryObj.QtyRes=0
	Write "Saving '"_CreatedID_"'..."
	Set Status=InventoryObj.%Save()
	If $$$ISERR(Status) Do 
	. Write "Error ("_$$ParseStatus^vhLib(Status)_")",!
	Else  Do 
	. Write "Ok.",!
	Do InventoryObj.%Close()
	;-------------------------------------------------------------------------      
	Set CreatedID="9999999E||00000002||31243           ||                              ||0000000000||0000000000"
	Do:(DeleteOld) ##class(EWMS.Inventory).%DeleteId(CreatedID)
	If '##class(EWMS.Inventory).%ExistsId(CreatedID) Do
	. Do ##class(EWMS.Inventory).New("9999999E","00000002",31243,,,,.CreatedID,SQLGCW)
	
	Set InventoryObj=##class(EWMS.Inventory).%OpenId(CreatedID)
	Set InventoryObj.ExpDay="0000-00-00-00.00.00       "
	;Set InventoryObj.InsertTime="2002-10-23-14.16.53.000000"
	Set InventoryObj.IsFull=1
	Set InventoryObj.LocM=4
	Set InventoryObj.QtyBlock=0
	Set InventoryObj.QtyInBox=0
	Set InventoryObj.QtyPcs=20
	Set InventoryObj.QtyRes=0
	Write "Saving '"_CreatedID_"'..."
	Set Status=InventoryObj.%Save()
	If $$$ISERR(Status) Do 
	. Write "Error ("_$$ParseStatus^vhLib(Status)_")",!
	Else  Do 
	. Write "Ok.",!
	Do InventoryObj.%Close()
	;-------------------------------------------------------------------------      
	Set CreatedID="9999999E||00000001||36028           ||                              ||0000000000||0000000000"
	Do:(DeleteOld) ##class(EWMS.Inventory).%DeleteId(CreatedID)
	If '##class(EWMS.Inventory).%ExistsId(CreatedID) Do
	. Do ##class(EWMS.Inventory).New("9999999E","00000001",36028,,,,.CreatedID,SQLGCW)
	
	Set InventoryObj=##class(EWMS.Inventory).%OpenId(CreatedID)
	Set InventoryObj.ExpDay="0000-00-00-00.00.00       "
	;Set InventoryObj.InsertTime="2002-10-23-14.16.53.000000"
	Set InventoryObj.IsFull=1
	Set InventoryObj.LocM=4
	Set InventoryObj.QtyBlock=0
	Set InventoryObj.QtyInBox=0
	Set InventoryObj.QtyPcs=40
	Set InventoryObj.QtyRes=0
	Write "Saving '"_CreatedID_"'..."
	Set Status=InventoryObj.%Save()
	If $$$ISERR(Status) Do 
	. Write "Error ("_$$ParseStatus^vhLib(Status)_")",!
	Else  Do 
	. Write "Ok.",!
	Do InventoryObj.%Close()
	;-------------------------------------------------------------------------              
	Set CreatedID="9999999K||00000001||36028           ||                              ||0000000000||0000000000"
	Do:(DeleteOld) ##class(EWMS.Inventory).%DeleteId(CreatedID)
	If '##class(EWMS.Inventory).%ExistsId(CreatedID) Do
	. Do ##class(EWMS.Inventory).New("9999999K","00000001",36028,,,,.CreatedID,SQLGCW)
	
	Set InventoryObj=##class(EWMS.Inventory).%OpenId(CreatedID)
	Set InventoryObj.ExpDay="0000-00-00-00.00.00       "
	;Set InventoryObj.InsertTime="2002-10-23-14.16.53.000000"
	Set InventoryObj.IsFull=1
	Set InventoryObj.LocM=4
	Set InventoryObj.QtyBlock=0
	Set InventoryObj.QtyInBox=0
	Set InventoryObj.QtyPcs=40
	Set InventoryObj.QtyRes=0
	Write "Saving '"_CreatedID_"'..."
	Set Status=InventoryObj.%Save()
	If $$$ISERR(Status) Do 
	. Write "Error ("_$$ParseStatus^vhLib(Status)_")",!
	Else  Do 
	. Write "Ok.",!
	Do InventoryObj.%Close()
	;-------------------------------------------------------------------------              ANDER PRODUCT
	Set CreatedID="9999999M||00000001||36028           ||                              ||0000000000||0000000000"
	Do:(DeleteOld) ##class(EWMS.Inventory).%DeleteId(CreatedID)
	If '##class(EWMS.Inventory).%ExistsId(CreatedID) Do
	. Do ##class(EWMS.Inventory).New("9999999M","00000001",36028,,,,.CreatedID,SQLGCW)
	
	Set InventoryObj=##class(EWMS.Inventory).%OpenId(CreatedID)
	Set InventoryObj.ExpDay="0000-00-00-00.00.00       "
	;Set InventoryObj.InsertTime="2002-10-23-14.16.53.000000"
	Set InventoryObj.IsFull=1
	Set InventoryObj.LocM=4
	Set InventoryObj.QtyBlock=0
	Set InventoryObj.QtyInBox=0
	Set InventoryObj.QtyPcs=50
	Set InventoryObj.QtyRes=0
	Write "Saving '"_CreatedID_"'..."
	Set Status=InventoryObj.%Save()
	If $$$ISERR(Status) Do 
	. Write "Error ("_$$ParseStatus^vhLib(Status)_")",!
	Else  Do 
	. Write "Ok.",!
	Do InventoryObj.%Close()
 
	Do SQLGCW.DropStatement()
	Do SQLGCW.Disconnect()
	Do SQLGCW.%Close()
	
	Quit:('$G(DoAll))
Loc
	;-------------------------------------------------------------------------
	; AUTOMATIC OBJECT CREATOR: EWMS.Locations
	;-------------------------------------------------------------------------
	Write "Automatic object creation: EWMS.Locations",!
	Write "-----------------------------------------",!
 
	New LocationsObj,Status,DeleteOld
	Set DeleteOld=0
 
	Do:(DeleteOld) ##class(EWMS.Locations).%DeleteId("4||2||4||5||1||9999999M")
	If '##class(EWMS.Locations).%ExistsId("4||2||4||5||1||9999999M") Do
	. Set LocationsObj=##class(EWMS.Locations).%New()
	. Set LocationsObj.inserttime="2002-10-24-11.19.45.000000"
	. Set LocationsObj.locg=2
	. Set LocationsObj.locid="9999999M"
	. Set LocationsObj.locm=4
	. Set LocationsObj.locx=4
	. Set LocationsObj.locy=5
	. Set LocationsObj.locz=1
	. Set LocationsObj.state=2
	. Write "Saving '4||2||4||5||1||9999999M'..."
	. Set Status=LocationsObj.%Save()
	. If $$$ISERR(Status) Do 
	..  Write "Error ("_$$ParseStatus^vhLib(Status)_")",!
	. Else  Do 
	..  Write "Ok.",!
	. Do LocationsObj.%Close()
	Else  Do
	. Write "Object '4||2||4||5||1||9999999M' already exists.",!
 
	Do:(DeleteOld) ##class(EWMS.Locations).%DeleteId("4||2||1||1||1||9999999K")
	If '##class(EWMS.Locations).%ExistsId("4||2||1||1||1||9999999K") Do
	. Set LocationsObj=##class(EWMS.Locations).%New()
	. Set LocationsObj.inserttime="2002-10-23-16.48.04.000000"
	. Set LocationsObj.locg=2
	. Set LocationsObj.locid="9999999K"
	. Set LocationsObj.locm=4
	. Set LocationsObj.locx=1
	. Set LocationsObj.locy=1
	. Set LocationsObj.locz=1
	. Set LocationsObj.state=2
	. Write "Saving '4||2||1||1||1||9999999K'..."
	. Set Status=LocationsObj.%Save()
	. If $$$ISERR(Status) Do 
	..  Write "Error ("_$$ParseStatus^vhLib(Status)_")",!
	. Else  Do 
	..  Write "Ok.",!
	. Do LocationsObj.%Close()
	Else  Do
	. Write "Object '4||2||1||1||1||9999999K' already exists.",!
 
	Do:(DeleteOld) ##class(EWMS.Locations).%DeleteId("4||2||1||2||1||9999999E")
	If '##class(EWMS.Locations).%ExistsId("4||2||1||2||1||9999999E") Do
	. Set LocationsObj=##class(EWMS.Locations).%New()
	. Set LocationsObj.inserttime="2002-10-23-16.44.48.000000"
	. Set LocationsObj.locg=2
	. Set LocationsObj.locid="9999999E"
	. Set LocationsObj.locm=4
	. Set LocationsObj.locx=1
	. Set LocationsObj.locy=2
	. Set LocationsObj.locz=1
	. Set LocationsObj.state=2
	. Write "Saving '4||2||1||2||1||9999999E'..."
	. Set Status=LocationsObj.%Save()
	. If $$$ISERR(Status) Do 
	..  Write "Error ("_$$ParseStatus^vhLib(Status)_")",!
	. Else  Do 
	..  Write "Ok.",!
	. Do LocationsObj.%Close()
	Else  Do
	. Write "Object '4||2||1||2||1||9999999E' already exists.",!
 
	Do:(DeleteOld) ##class(EWMS.Locations).%DeleteId("4||2||9||4||1||9999999C")
	If '##class(EWMS.Locations).%ExistsId("4||2||9||4||1||9999999C") Do
	. Set LocationsObj=##class(EWMS.Locations).%New()
	. Set LocationsObj.inserttime="2002-10-23-14.16.53.000000"
	. Set LocationsObj.locg=2
	. Set LocationsObj.locid="9999999C"
	. Set LocationsObj.locm=4
	. Set LocationsObj.locx=9
	. Set LocationsObj.locy=4
	. Set LocationsObj.locz=1
	. Set LocationsObj.state=2
	. Write "Saving '4||2||9||4||1||9999999C'..."
	. Set Status=LocationsObj.%Save()
	. If $$$ISERR(Status) Do 
	..  Write "Error ("_$$ParseStatus^vhLib(Status)_")",!
	. Else  Do 
	..  Write "Ok.",!
	. Do LocationsObj.%Close()
	Else  Do
	. Write "Object '4||2||9||4||1||9999999C' already exists.",!
 
	Quit:('$G(DoAll))
	
Car
	;-------------------------------------------------------------------------
	; AUTOMATIC OBJECT CREATOR: EWMS.Carriers
	;-------------------------------------------------------------------------
	Write "Automatic object creation: EWMS.Carriers",!
	Write "----------------------------------------",!
	
	New SQLGCW
	Set SQLGCW=##class(EWMS.SQLGCWrapper).%New()
	Quit:(SQLGCW=$$$NULLOREF) 
	Quit:('SQLGCW.Connect())
	Quit:('SQLGCW.AllocateStatement())
 
	New CarriersObj,Status,DeleteOld,CreatedID
	Set DeleteOld=0
 
	Set CreatedID="9999999C||00000000"
	Do:(DeleteOld) ##class(EWMS.Carriers).%DeleteId(CreatedID)
	If '##class(EWMS.Carriers).%ExistsId(CreatedID) Do
	. Do ##class(EWMS.Carriers).NewSaveAndClose("9999999C","00000000",.CreatedID,SQLGCW)
	
	Set CarriersObj=##class(EWMS.Carriers).%OpenId(CreatedID)
	Set CarriersObj.IsFull="0"
	Set CarriersObj.LocM=4
	Write "Saving '"_CreatedID_"'..."
	Set Status=CarriersObj.Save(SQLGCW)
	If $$$ISERR(Status) Do 
	. Write "Error ("_$$ParseStatus^vhLib(Status)_")",!
	Else  Do 
	. Write "Ok.",!
	Do CarriersObj.%Close()
	;-------------------------------------------------------------------------
	Set CreatedID="9999999E||00000000"
	Do:(DeleteOld) ##class(EWMS.Carriers).%DeleteId(CreatedID)
	If '##class(EWMS.Carriers).%ExistsId(CreatedID) Do
	. Do ##class(EWMS.Carriers).NewSaveAndClose("9999999E","00000000",.CreatedID,SQLGCW)
	
	Set CarriersObj=##class(EWMS.Carriers).%OpenId(CreatedID)
	Set CarriersObj.IsFull="0"
	Set CarriersObj.LocM=4
	Write "Saving '"_CreatedID_"'..."
	Set Status=CarriersObj.Save(SQLGCW)
	If $$$ISERR(Status) Do 
	. Write "Error ("_$$ParseStatus^vhLib(Status)_")",!
	Else  Do 
	. Write "Ok.",!
	Do CarriersObj.%Close()
	;-------------------------------------------------------------------------
	Set CreatedID="9999999K||00000000"
	Do:(DeleteOld) ##class(EWMS.Carriers).%DeleteId(CreatedID)
	If '##class(EWMS.Carriers).%ExistsId(CreatedID) Do
	. Do ##class(EWMS.Carriers).NewSaveAndClose("9999999K","00000000",.CreatedID,SQLGCW)
	
	Set CarriersObj=##class(EWMS.Carriers).%OpenId(CreatedID)
	Set CarriersObj.IsFull="0"
	Set CarriersObj.LocM=4
	Write "Saving '"_CreatedID_"'..."
	Set Status=CarriersObj.Save(SQLGCW)
	If $$$ISERR(Status) Do 
	. Write "Error ("_$$ParseStatus^vhLib(Status)_")",!
	Else  Do 
	. Write "Ok.",!
	Do CarriersObj.%Close()
	;-------------------------------------------------------------------------
	Set CreatedID="9999999M||00000000"
	Do:(DeleteOld) ##class(EWMS.Carriers).%DeleteId(CreatedID)
	If '##class(EWMS.Carriers).%ExistsId(CreatedID) Do
	. Do ##class(EWMS.Carriers).NewSaveAndClose("9999999M","00000000",.CreatedID,SQLGCW)
	
	Set CarriersObj=##class(EWMS.Carriers).%OpenId(CreatedID)
	Set CarriersObj.IsFull="0"
	Set CarriersObj.LocM=4
	Write "Saving '"_CreatedID_"'..."
	Set Status=CarriersObj.Save(SQLGCW)
	If $$$ISERR(Status) Do 
	. Write "Error ("_$$ParseStatus^vhLib(Status)_")",!
	Else  Do 
	. Write "Ok.",!
	Do CarriersObj.%Close()
	
	Do SQLGCW.DropStatement()
	Do SQLGCW.Disconnect()
	Do SQLGCW.%Close()
	
	Quit