Create Vouchar type By Default in TDL File

Sir ,
i want to create separate Vouchar type MONY RECEIPT By default in my tdl file it is possible ?
if yes please suggest hint / sample code ( if available) for it .

 

Hello,

Call a function at company startup with this kind

[Function : NewVchType]
220: STARTBLOCK
221: NEW OBJECT : VoucherType
222: SET VALUE : Name : "Room Order"
223: SET VALUE : Parent : $$VchTypeSalesOrder
224: SET VALUE: Numbering Method: $$SysName:Automatic
225: CREATE TARGET
230: END BLOCK

 

it ' s not working suggest me how ?

[System : Events]

CmpStartEvent: Load Company : "VHCYPE" : Call : NewVchType

[Function : NewVchType]

220: STARTBLOCK
221: NEW OBJECT : VoucherType
222: SET VALUE : Name : "Room Order"
223: SET VALUE : Parent : $$VchTypeSalesOrder
224: SET VALUE: Numbering Method: $$SysName:Automatic
225: CREATE TARGET
230: END BLOCK

;End of file

 

Its not like it

plz use

[System : Events]
CmpStartEvent: Load Company : TRUE : Call : NewVchType

 

Thanks Sir for HELP

 

Thanks to the admin, who start this great place to help out TDL developer community.
thnx again admin almighty GOD

 

yes its true thing THANKS A LOOOOT TO THE ADMIN OF TDL Xperts.com