Manufacturing Voucher won't generate

Hello experts, I'm a noob here. I'm trying to achieve a auto manufacturing journal entry on sales voucher submit. I've collected code from various threads here. problem is, after passing the sales entry for some reason the manufacturing voucher doesn't generate. Could someone point me in the right direction please?

Code:

[#Form :Sales Color]
    Add : On : At End : Form Accept : Yes : CALL :CreateAutoMfgVoucher

[Function : CreateAutoMfgVoucher]
    Action 001 : Query Box : " Do you want to post \n Auto Manufacturing Voucher" : Yes : No
    Action 002 : If : $$LastResult=Yes
    Action 003 : CALL : MultipleEntryManuJrnlFunc
    Action 004 : END if

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

[Collection:MultipleEntryManuJrnlColl]
Source Collection : ..
Walk : INVENTORYENTRIESIN  ;;;;MultipleItemEntryAggr
Fetch : *.*,*
Compute : FinItemNew : $StockitemName
Compute: FinQtyNew  : $ActualQty
Compute: MfgGodown : $VoucherSourceGodown      ;;;;   $VoucherDestinationGodown
Compute: VarStockitem: $VchReceiptdr ;;;; $VoucherDestinationGodown

[Collection:MultipleEntryManuJrnlColl1]
Source Collection : MultipleEntryManuJrnlColl
Walk : MultiComponentItemList   
By:    StockItemname
Fetch : FinItemNew,FinQtyNew
Fetch : *.*,*
Fetch    : ComponentListName, ComponentBasicQty
Fetch    : MultiComponentItemList.StockitemName, MultiComponentItemList.GodownName
Fetch    : MultiComponentItemList.ActualQty, MultiComponentItemList.AddlCostAllocPerc, MultiComponentItemList.NatureofItem
Filter : WithSameProdName

[System:Formulae]
WithSameProdName:$FinItemNew=##FinItemVar

[Function: MultipleEntryManuJrnlFunc]
Variable : FinItemVar : String
Variable : FinItemQtyVar : String
Variable : ManufactGdwnVar: String
Variable : VarStockName:String
Variable : RawMaterialVar : String
Variable : RawMaterialQtyVar : String

Action :000 : Walk Collection : MultipleEntryManuJrnlColl

Action :001 : Set : FinItemVar : $FinItemNew
Action :002 : Set : FinItemQtyVar : $FinQtyNew
Action :003 : Set : ManufactGdwnVar:$MfgGodown
Action :004: Set:VarStockName:$VchReceiptdr
Action :005 : Log:##FinItemVar
Action :006 : Log:##FinItemQtyVar
Action :007 : Log:##ManufactGdwnVar
Action :008: Log:##VarStockName

Action :009 : NEW OBJECT : Voucher
Action :010 : SET VALUE : VoucherTypeName : ManufacturingJournal
Action :011 : Set Value: VoucherNumber : 100
Action :012 : SET VALUE : Date : $Date ;;;;;#DateforVoucherLine;##SVCurrentDate#DateforVoucherLine;##SVCurrentDate
Action :013 : SET VALUE : IsInvoice : "No"
Action :014 : SET VALUE : PERSISTEDVIEW : "Multi Consumption Voucher View";##SVViewName
Action :015 : Set Value : DESTINATIONGODOWN : "Main Location"
Action :016 : Set Value : VOUCHERDESTINATIONGODOWN : "Main Location"
Action :017 : Set Value : VOUCHERSOURCEGODOWN : "Main Location"
Action :018 : Set Value : DIFFACTUALQTY : "No"
Action :019 : Set Value : ISMSTFROMSYNC : "No"
Action :020 : Set Value : ASORIGINAL : "No"
Action :021 : Set Value : AUDITED : "No"
Action :022 : Set Value : FORJOBCOSTING : "No"
Action :023 : Set Value : ISOPTIONAL : "No"
Action :024 : Set Value : EFFECTIVEDATE : $Date ;;#DateforVoucherLine

Action :025 : Insert Collection object : INVENTORYENTRIESIN;inventoryentriesin
Action :026 : Set target : INVENTORYENTRIESIN
Action :027 : SET VALUE : STOCKITEMNAME : $$String:##FinItemVar
Action :028 : Set Value : BOMNAME : $$String:""
Action :029 : Set Value : Godownname : ##ManufactGdwnVar
Action :030 : Set Value : ACTUALQTY : $$TgtObject:$$AsQty:##FinItemQtyVar
Action :030a : Set Value : BILLEDQTY : $$TgtObject:$$AsQty:##FinItemQtyVar

Action :031 : Set Value : ISDEEMEDPOSITIVE : "Yes"
Action :032 : Set Value : ISLASTDEEMEDPOSITIVE : "Yes"
Action :033 : Set Value : ISSCRAP : "No"
Action :034 : Set Value : Rate : $$AsRate:""

Action :035 : INSERT COLLECTION OBJECT : BATCHALLOCATIONS
Action :036 : Set Value : GODOWNNAME : "Main Location"
Action :037 : Set Value : BATCHNAME : "Primary Batch"
Action :037a : Set Value : DYNAMICCSTISCLEARED : "No"
Action :038 : Set Value : ACTUALQTY : $$TgtObject:$$AsQty:##FinItemQtyVar
Action :039 : Set Value : BILLEDQTY : $$TgtObject:$$AsQty:##FinItemQtyVar
Action :040 : SET TARGET : ....

Action :041 : Walk Collection : MultipleEntryManuJrnlColl1

Action :042 : insert collection object : INVENTORYENTRIESOUT;InventoryEntriesOut
Action :043 : Set TARGET : INVENTORYENTRIESOUT
Action :044 : Set : RawMaterialVar : $RawMaterialName
Action :045 : Set : RawMaterialQtyVar : $RawMaterialQty
Action :046 : Log:##RawMaterialVar
Action :046a : Log:##RawMaterialQtyVar
Action :047 : SET VALUE : STOCKITEMNAME : ##RawMaterialVar
Action :048 : SET VALUE : ACTUALQTY : -$$TgtObject:$$AsQty:##RawMaterialQtyVar
Action :049 : SET VALUE : BilledQty : -$$TgtObject:$$AsQty:##RawMaterialQtyVar ;($actualQty *## SSFunctonAutoJrnlNumToCal)

Action :050 : Set Value : ISDEEMEDPOSITIVE : "No"
Action :051 : Set Value : ISLASTDEEMEDPOSITIVE : "No"
Action :052 : Set Value : ISAUTONEGATE : "No"
Action :053 : Set Value : ISCUSTOMSCLEARANCE : "No"
Action :054 : Set Value : ISTRACKCOMPONENT : "No"
Action :055 : Set Value : ISTRACKPRODUCTION : "No"
Action :056 : Set Value : ISPRIMARYITEM : "No"
Action :057 : Set Value : ISSCRAP : "No"

Action :058 : INSERT COLLECTION OBJECT : BATCHALLOCATIONS
Action :059 : Set Value : GODOWNNAME : "Main Location"
Action :060 : Set Value : BATCHNAME : "Primary Batch"
Action :060a : Set Value : DYNAMICCSTISCLEARED : "No"
Action :061 : Set Value : ACTUALQTY : $$TgtObject:$$AsQty:##RawMaterialQtyVar
Action :062 : Set Value : BILLEDQTY : $$TgtObject:$$AsQty:##RawMaterialQtyVar

Action :063 : End Walk
Action :064 : Set Target : ..
Action :065 : End Walk
Action :066 : Save Target
Action :067 : Return

 

have you get new code?

 

The Collection which you have created is created is wrong
Please share the code along with sample data on vijayshetye9919@gmail.com

will try to check