[#Menu: Gateway of Tally]

	Add : Key Item : Object Map Samples : J : Menu: TSPL Object Map


[Menu: TSPL Object Map]
	
	Title		: "Object Map"
	
	Key Item	: Stock Item Creation						: S : Display 	: TSPL Object Map Stock Item Creation
	
	
	
[Report: TSPL Object Map Stock Item Creation]
	
	Title			: $$LocaleString:"Stock Item Creation using Object Map"
	Form			: TSPL Object Map Stock Item Creation
	
[Form: TSPL Object Map Stock Item Creation]
	
	
	Part			: Form Sub Title
	Local	: Field	: FormSubTitle	: Info	: "Object Map Demo - Stock Item"
 
	Add				: Button		: Object Map								;; Added Button
 
	Height			: 100% Screen
	Width			: 100% Screen

[Button: Object Map]
	
	Title  : $$LocaleString:"Create Stock Item"
	Key	   : F5
	Action : Alter: TSPL Object Map
	



		
[Report: TSPL Object Map]
			
	Form	: TSPL Object Map
	Object	: Stock Item
	
[Form: TSPL Object Map]
				
	Part  : Form Sub Title, TSPL Object Map Stock Item Creation part
	Local : Field	: FormSubTitle	: Info		: "Create Stock Item"
	Width : 20% Page
	
	On	  :  Form Accept	: Yes	: Call		: Object Map Function 
	
[Function: Object Map Function]
	
	01: New Object: Stock Item
	02: Execute Object Map :  TSPL Object Map Stock Item Creation
	03: Create Target
	04: Do If: $$LastResult = "Yes" : Msg Box: "Success" : "Stock Item created"
	05: Do If: $$LastResult = "No"  : Msg Box: "Remark"  : "Stock Item already exist" 
	
[Object Map :  TSPL Object Map Stock Item Creation]
	
	Set as	: Name 			: $StockItemNameUDF			; Used as storages at '[Field: TSPL Object Map Stock Item Field]'
	Set as	: Parent		: $ParentNameUDF			; Used as storages at '[Field: TSPL Object Map Parent Field]'

[Part: TSPL Object Map Stock Item Creation part] 												
		
	Line: TSPL Object Map Stock Item Name Line, TSPL Object Map Parent Name Line
		
	[Line: TSPL Object Map Stock Item Name Line]
			
		Field: Long Prompt, TSPL Object Map Stock Item Field
		
		Local	: Field	: Long Prompt : Info	: "Stock Item Name"
		
		[Field: TSPL Object Map Stock Item Field]
			
				Use		: Name Field
				Storage : StockItemNameUDF
				
	[Line: TSPL Object Map Parent Name Line]
		
		Field: Long Prompt, TSPL Object Map Parent Field
		
		Local	: Field : Long Prompt : Info : "Parent Name "
		
		[Field: TSPL Object Map Parent Field]
			
			Use			: Name Field
			Storage		: ParentNameUDF
			Table		: Object Map Parent Collection, Primary
			Show Table	: Always

[Collection: Object Map Parent Collection]
		
	Title	: "List of Stock Group"
	Type	: Stock Group
	Align	: Center
	Fetch	: Name, Parent

[System: UDF]
		
	StockItemNameUDF	: String	: 9006
	ParentNameUDF		: String    : 9007