Auto batch create in purchase

Dear Experts

Please help me the tdl
Thanks in advance

[#Field: VCHACC StockItem]
Add:Sub Form:Before:STKVCH BatchAllocations:batch creation details:NOT $$IsEnd:$StockItemName AND (@@HasBatchWise) and @@IsEnableCreateAutoBatch And @@IsEnableVoucherBatchCreation


[System:Formulae]
IsEnableCreateAutoBatch:$IsAutoBatchCreation:Compa ny:##SvCurrentCompany
IsEnableVoucherBatchCreation:$IsAutoBatchCreation: VoucherType:$VoucherTypeName


[#Part: CMP InvFeat Left]
Add:Lines:Before:CMP ActualQty:CMP Auto Batch Creation

[Line:CMP Auto Batch Creation]
Fields : Medium Prompt, CMP Auto Batch Creation
Local : Field : Medium Prompt : Info : $$LocaleString:"Auto Batch Creation ?"
Space Top : 0.4

[Field:CMP Auto Batch Creation]
Use:Logical Field
Storage:IsAutoBatchCreation


[#Part: VTYP Behaviour]
Add:Lines:After:VTYP EachNarr:VTYP Batch Creation


[Line:VTYP Batch Creation]
Fields : Long Prompt, VTYP Batch Creation
Local : Field : Long Prompt : Info : $$LocaleString:"Enable Auto Batch Creation ?"

[Field:VTYP Batch Creation]
Use:Logical Field
Storage:IsAutoBatchCreation


[Report:batch creation details]
Form:batch creation details
Title:"Batch Creation"


[Form:batch creation details]
Part:batch creation details
Width:40 % page
On:Form Accept:yes:Call:BatchFill



[Part:batch creation details]
Lines:form subtitle
Lines:Select Godown Details
Lines:select prefixes details
Lines:starting batch details
Lines:total batch quantities
Lines:Each Batch Quantities
Lines:rate of batch details
Local:Field:form subtitle:set as:"Batch Details"

[Line:Select Godown Details]
Field:long prompt,Select Godown Details
Local:Field:long prompt:set as:"Select Godown"

[Field:Select Godown Details]
Use:name field
Storage:Godown Name
Table : Stockable Godown VchExtract

[Line:select prefixes details]
Field:long prompt,select prefixes details
Local:Field:long prompt:set as:"Prefix"

[Field:select prefixes details]
Use:name field
Storage:batchprefixes

[Line:starting batch details]
Field:long prompt,starting batch details
Local:Field:long prompt:set as:"Starting Batch"

[Line:total batch quantities]
Field:long prompt, total batch quantities
Local:Field:long prompt:set as:"Batch Quantities"

[Line:Each Batch Quantities]
Field:long prompt,Each Batch Quantities
Local:Field:long prompt:set as:"Each Batch Quantities"


[Line:rate of batch details]
Field:long prompt,rate of batch details
Local:Field:long prompt:set as:"Batch Rate"

[Field:starting batch details]
Use:number FIELD
Storage:StartingBatch
Full Width:yes

[Field:total batch quantities]
Use:numberFIELD
Storage:Batch Quantities
Full Width:yes

[Field:Each Batch Quantities]
Use:Number Field
Storage:EachBatchQty



[Field:rate of batch details]
Use:RATE FIELD
Storage:rate of batch
Full Width:yes

[System:UDF]
batchprefixes:String:206
StartingBatch:number:207
Batch Quantities:Number:208
rate of batch:Rate:209
IsAutoBatchCreation:Logical:205
EachBatchQty:Number:210


[Function:BatchFill]
Variable:startingbatchnumber:number
Variable:batchquantity:number
Variable:batchrateforitem:rate
Variable:counter1:number
Variable:batchprefix:string
Variable:EachBatchQty:Number


00:Set:counter1:1
01:Set:startingbatchnumber :$StartingBatch
02:Set:batchquantity :$BatchQuantities
03:Set:batchrateforitem :$rateofbatch
04:Set:batchprefix :$batchprefixes
05:Set:EachBatchQty :If $$IsEmpty:$EachBatchQty Then "1" Else $EachBatchQty
;37 : SET TARGET :BatchAllocations
45 : WHILE : (##counter1


Please help me admin

 

What problem are u having?

 

Not batch create

 

Hello.. Any solution??

 

do yo

Do You find any solutions???

 

Instead this which code we use....