How To Explode Inventory and it's Subform From Voucher

1) Voucher Image



2) Inventory Subform Image



3) Report Image



4) Source Code

[Report : Production Scedule Report]
Form : Production Scedule Report

[Form : Production Scedule Report]
Use : DSP Template
Use : Day Book
Part : PrShReport
Height : 100 % screen
Width : 100 % screen
Background : @@SV_dashBoard


[Part : PrShReport]
Part : PrShReportTit, PrShReportBody
Vertical : Yes

[Part : PrShReportTit]
Line : PrShReportTit

[Line : PrShReportTit]
Field : Name Field
Local : Field : Name Field : Set as : "Production Schedule Report"
Local : Field : Name Field : Full Width : Yes
Local : Field : Name Field : Align : Center
Local : Field : Name Field : Background : @@SV_COSTCATEGORY
Border : Thin Top bottom

[Part : PrShReportBody]
Line : PrShReportBodyTit, PrShReportBody
Repeat : PrShReportBody : PrShReportBodyCollSrc;PrShReportBodyColl
Scroll : Vertical
Vertical : Yes
Common Border : Yes
Float : No

[Line : PrShReportBodyTit]
Delete : Explode
Use : PrShReportBody

Local : Field : Default : Type : String
Local : Field : Default : Delete : Storage
Local : Field : Default : Background : @@SV_VchType
Local : Field : Default : Color : White
Local : Field : Default : Skip : Yes
Local : Field : Default : Line : 0

Local : Field : Name Field : Info : "Sr. No."
Local : Field : Name Field2 : Set as : "Vch No."
Local : Field : Short Date Field : Set as : "Date"
Local : Field : RepProdShMach : Info : "Machine"
Local : Field : RepProdShJob : Info : "Job"
Local : Field : RepProdShQty : Info : "Qty Kg"
Local : Field : RepProdShSize : Info : "Size"
Local : Field : RepProdShSpeed : Info : "Speed Mt/min"
Local : Field : RepProdShOper : Info : "Operator"
Local : Field : RepProdShRem : Info : "Remarks"

[Line : PrShReportBody]
Field : Name Field, Name Field2, Short Date Field, RepProdShMach, RepProdShJob
Field : RepProdShQty, RepProdShSize, RepProdShSpeed, RepProdShOper
Right Field : RepProdShRem

Local : Field : Name Field : Set as : $$Line
Local : Field : Name Field : Width : 20 mms
Local : Field : Name Field2 : Set as : $voucherNumber
Local : Field : Name Field2 : Width : 20 mms
Local : Field : Short Date Field : Set as : $Date
Local : Field : Short Date Field : Width : 30 mms
Local : Field : Short Date Field : Align : Left


Explode : RepProdShJobExplod : Yes

[Part : RepProdShJobExplod]
Line : RepProdShJobExplod
Repeat : RepProdShJobExplod :inventoryEntriesIn ;ProdSheduleBodyColl; RepProdSheduleBodyColl
Scroll : Vertical
Vertical : Yes
Float : No


[Line : RepProdShJobExplod]
Delete : Explode
Use : PrShReportBody

Local : Field : Name Field : Info : ""
Local : Field : Name Field2 : Set as : ""
Local : Field : Short Date Field : Set as : ""
Local : Field : RepProdShMach : Info : $StockItemName
Local : Field : RepProdShJob : Info : $ProdShJob
Local : Field : RepProdShQty : Info : ""
Local : Field : RepProdShSize : Info : ""
Local : Field : RepProdShSpeed : Info : ""
Local : Field : RepProdShOper : Info : ""
Local : Field : RepProdShRem : Info : ""
Explode : RepProdShJobExplod2 : Yes

[Part : RepProdShJobExplod2]
Line : RepProdShJobExplod2
Repeat : RepProdShJobExplod2 rodSheduleBodyColl; RepProdSheduleBodyColl
Scroll : Vertical
Vertical : Yes
Float : No

[Line : RepProdShJobExplod2]
;Delete : Explode
Use : RepProdShJobExplod;PrShReportBody

Local : Field : Name Field : Info : ""
Local : Field : Name Field2 : Set as : ""
Local : Field : Short Date Field : Set as : ""
Local : Field : RepProdShMach : Info : $StockItemName
Local : Field : RepProdShJob : Set as : $ProdShJob
Local : Field : RepProdShQty : Info : $ProdShQty
Local : Field : RepProdShSize : Info : $ProdShSize
Local : Field : RepProdShSpeed : Info : $ProdShSpeed
Local : Field : RepProdShOper : Info : $ProdShOper
Local : Field : RepProdShRem : Info : $ProdShRem


[Field : RepProdShMach]
Use : Name Field
Set as : $stockItemName
Width : 40 mms

[Field : RepProdShJob]
Use : Name Field
Full Width : Yes

[Field : RepProdShQty]
Use : Number Field

[Field : RepProdShSize]
Use : Name Field

[Field : RepProdShSpeed]
Use : Number Field

[Field : RepProdShOper]
Use : Name Field
Width : 30 mms

[Field : RepProdShRem]
Use : Name Field


[Collection : PrShReportBodyCollSrc]

Type : Voucher
;Child Of : @@SelectProdShced
Fetch : InventoryEntriesIn.*, InventoryEntriesIn.StockItemName.ProdSheduleBodyColl
Fetch : InventoryEntriesIn.ProdSheduleBodyColl
fetch : VoucherTypeName,VoucherNumber
FETCH : Date,StockItemName
Fetch : ProdShJob, ProdShQty, ProdShSize, ProdShSpeed, ProdShOper, ProdShRem
Fetch : InventoryEntriesIn.BasicUserDescription
Compute : cvFirstInvName : ($InventoryEntriesIn[1].StockItemName)

Filter : PrShFilter

[System : Formulae]

PrShFilter : $voucherTypeName=@@SelectProdShced
;
;[Collection : PrShReportBodyColl]
;
; Source Collection : PrShReportBodyCollSrc
; ;Walk : InventoryEntriesOut
; Fetch : InventoryEntries.*, InventoryEntriesIN.StockItemName.ProdSheduleBodyColl
;
; fetch : VoucherTypeName,VoucherNumber
; FETCH : Date,StockItemName
;
;[Collection : RepProdSheduleBodyColl]
; Source Collection : PrShReportBodyColl
; Walk : ProdSheduleBodyColl
; Fetch : ProdShJob, ProdShQty, ProdShSize, ProdShSpeed, ProdShOper, ProdShRem

 

Still not working this