[#Menu: Gateway of Tally]

Add : Item : Before : @@locStockSummary : Godown Stock Report : Execute :

GDStockReportVKY

[Report: GDStockReportVKY]

[Form: GDStockReportVKY]

Part : GDStockReportVKY
On : Form Accept : Yes : Form Accept
On : Form Accept : Yes : Display : GDStockReport
Background : @@SV_UNYELLOW

[Part: GDStockReportVKY]

Line : GDStockReporVKYoup,GDStockReportCat,GDStockReportItem

[Line: GDStockReporVKYoup]

Field : Medium Prompt,GDStockReporVKYoup

Local : Field : Medium Prompt : Set As : "Stock Group : "

[Field: GDStockReporVKYoup]

Use : Name Field

Table : GDStockReporVKYoup,ALLSysNames
Show Table : Always
Modifies : GDStockReporVKYoup

[Line: GDStockReportCat]

Field : Medium Prompt,GDStockReportCat

Local : Field : Medium Prompt : Set As : "Stock Category : "

[Field: GDStockReportCat]

Use : Name Field

Table : GDStockReportCat,ALLSysNames
Show Table : Always
Modifies : GDStockReportCat

[Line: GDStockReportItem]

Field : Medium Prompt,GDStockReportItem

Local : Field : Medium Prompt : Set As : "Stock Item : "

[Field: GDStockReportItem]

Use : Name Field

Table : GDStockReportCollALL,ALLSysNames
Show Table : Always
Modifies : GDStockReportItem

[Collection: GDStockReporVKYoup]

Title : "Stock Groups"

Type : Stock Group
 Format : $Name,30

[Collection: ALLSysNames]

List name : $$SysName:AllItems

[Collection: GDStockReportCat]

Title : "Stock Category"

Type : Stock Category
Format : $Name,30

[Variable: GDStockReporVKYoup]

Type : String
Persistent : Yes

[Variable: GDStockReportCat]

Type : String
Persistent : Yes

[Variable: GDStockReportItem]

Type : String
Persistent : Yes

[System: Variable]

GDStockReporVKYoup : ""
GDStockReportCat : ""
GDStockReportItem : ""

;;-- GDStockReport

[Report: GDStockReport]

Title : "Godown Stock Report"

PrintSet : ReportTitle : "Godown Stock Report - (Stock Group : "
+ ##GDStockReporVKYoup + " , Category : " + ##GDStockReportCat +" )"
Variable : DoSetAutoColumn,DSPRepeatCollection,GDName
Repeat : GDName
Set : DSPRepeatCollection:GDNameColl
Set : DoSetAutoColumn : Yes

[Form: GDStockReport]

Part : DSP ReportTime, DSP CompanyName, DSP CompanyAddress, DSP

GSTCmpRegnNo, DSP ReportTitle, DSP PageNo,
GDStkRepTTL,GDStockReportTTL,GDStockReport
Bottom Part : GDStockReportBTM
Option : Set Auto Vch Option : ##DoSetAutoColumn AND $
$SetAutoColumns:GDName
Background : @@SV_UNYELLOW
Buttons : PrintButton, ExportButton, UploadButton, MailButton,Change
Period,ChgVariable

Page Break : ClosPgBrk,OPnPgBrk

 [Part: ClosPgBrk]

Line : ClosPgBrk

[Line: ClosPgBrk]

Border : Thin Top

Right Field : Simple Field
Local : Field : Simple Field : Set As : "Continue.... "

[Part: OPnPgBrk]

Part : DSP ReportTime, DSP CompanyName, DSP CompanyAddress, DSP

GSTCmpRegnNo, DSP ReportTitle, DSP PageNo, GDStkRepTTL,GDStockReportTTL

Vertical : Yes

[!Form: Set Auto Vch Option]

[Part: GDStkRepTTL]

Line : GDStkRepTTL
Invisible : $$InPrintMode

[Line:GDStkRepTTL]

Field : Name Field

Right Field : Simple Field
Local : Field : Name Field : Set As : "Godown Item
Report - (Stock Group : " + ##GDStockReporVKYoup + " , Category : " +
##GDStockReportCat +" )"
Local : Field : Name Field : Width : 50 % Page
Local : Field : Simple Field : Set As : "From " + $
$String:##SVFromDate + " to " + $$String:##SVCurrentDate

[Part: GDStockReportTTL]

Line : GDStockReportTTL
Border : Column titles

[Line: GDStockReportTTL]

Field : GDStockReport,GDStockPartNo,StockGDName
Repeat : StockGDName
Local : Field : StockGDName : Set As : ##GDName
Local : Field : Default : Type : String
Local : Field : Default : Style : Small Bold
Local : Field : GDStockReport : Set As : "Item Name"
Local : Field : GDStockPartNo : Set As : "Part No."
Local : Field : Default : Align : Center

[Part: GDStockReport]

Line : GDStockReport
Repeat : GDStockReport :GDStockReportColl
Scroll : Vertical
Total : StockGDName
CommonBorder: Yes
 Float : No

Option : GDStockReportALL : ##GDStockReporVKYoup = $

$SysName:AllItems and ##GDStockReportCat = $$SysName:AllItems
Option : CatStockReportALL : ##GDStockReporVKYoup != $
$SysName:AllItems And ##GDStockReportCat != $$SysName:AllItems
Option : CatStockReportALL2 : ##GDStockReporVKYoup = $
$SysName:AllItems And ##GDStockReportCat != $$SysName:AllItems

[!Part: GDStockReportALL]

Repeat : GDStockReport :GDStockReportCollALL

[!Part: CatStockReportALL]

Local : Collection : GDStockReportColl : Add : Filter : IsSameCat

[!Part: CatStockReportALL2]

Repeat : GDStockReport :GDStockReportCollALL

Local : Collection : GDStockReportCollALL : Add : Filter :
IsSameCat

[Line: GDStockReport]

Field : GDStockReport,GDStockPartNo,StockGDName
Repeat : StockGDName
Local : Field : Default : Style : Small
Empty : $Name != ##GDStockReportItem And ##GDStockReportItem !=
$$SysName:AllItems

[Field: GDStockReport]

Use : Name Field

Set As : $Name
Width : 30
Quick Search: yes

[Field: GDStockPartNo]

Use : Name Field

Set As : $PartNo
Width : 10

Border : Thin Left

[Field: StockGDName]

Type : Quantity
Width : 18
Set As : $$GodownItemValue:##GDName:$Name:$ClosingBalance
Type : Quantity
Align : Right
Border : Thin Left

[Part: GDStockReportBTM]

Line : GDStockReportBTM
Border : Totals
 [Line: GDStockReportBTM]

Field : GDStockReport,GDStockPartNo,StockGDName
Repeat : StockGDName
Local : Field : GDStockReport : Set As : "Total"
Local : Field : Default : Style : Small Bold
Local : Field : StockGDName : Type : Quantity
Local : Field : StockGDName : Set As : $$Total:StockGDName
Local : Field : Default : Align : Center

[Collection: GDStockReportColl]

Type : StockItem
Child of : ##GDStockReporVKYoup
Belongs to : yes
Filter : IsEmptyBalance
Fetch : ClosingBalance

[System: Formulae]

IsEmptyBalance : Not $$IsEmpty:$ClosingBalance

[Collection: GDStockReportCollALL]

Title : "List of items"

Use : Alias Collection
Type : StockItem
; Format : $Name,30
Filter : IsEmptyBalance

[Collection: GDStockReportCollCat]

Type : StockItem
Child of : ##GDStockReporVKYoup
Filter : IsSameCat
Filter : IsEmptyBalance

[System :Formula]

IsSameCat : $Category = ##GDStockReportCat Or $

$IsBelongsToCategory:##GDStockReportCat
IshaveStk : Not $$IsEmpty:$ClosingBalance

[Collection: GDNameColl]

Type : Godown
Compute : GDName : $Name
Filter : IshaveStk

[Variable: GDName]

Type : String
Repeat : ##DSPRepeatCollection

[Button : ChgVariable]

Title : "Change Filter"

 Key : Alt + 1
Action : Execute : ChgVariable

[Report: ChgVariable]

[Form: ChgVariable]

Part : GDStockReportVKY
Background : @@SV_UNYELLOW
On : Form Accept : Yes : Form Accept
On : Form Accept : Yes : RefreshTDL