Tally Chapter 194 TDL for Due Sales Order List in List of Stock By Rajiv Mishra Computer Class

 

Few lines are missing here.

Pls Watch the full video to get full coding.

Type : Ledger Sales Orders

Child Of : #EIConsignee ;; ##LedgerName

Filter : PositiveClosingBalance

Cleared : No

/*[Collection: PendingLedSalesClearedOrderDetails]

Type : Ledger Sales Orders

Child Of : ##LedgerName

Filter : PositiveClosingBalance

Cleared : Yes

*/

[Collection: PendLedSOsSrc]

Collection : PendLedSODetails ;; PendingLedSalesPendingOrderDetails ;; , PendingLedSalesClearedOrderDetails

[Collection: PendLedSODetailsSrc]

Source Collection : PendLedSOsSrc ;; PendingLedSalesOrdersSrc

By : Parent : $Parent

Aggr Compute : InwardQty : Sum : If @@ForOrderPeriod Then ($SaleOrderQty ) Else $$InitValue:"Quantity"

Aggr Compute : InwardValue : Sum : If @@ForOrderPeriod Then ($SaleOpeningActualValue) Else $$InitValue:"Amount"

Aggr Compute : ClosingBalance : Sum : $ClosingBalance

Aggr Compute : ClosingValue : Sum : $ClosingValue

Compute : IsOpeningColl : No

;;---------------------------------------------

;;2

[Collection: LedSOPendDetails]

Type : Ledger Sales Orders

Child Of : #EIConsignee ;; ##LedgerName

Cleared : No

Filter : PositiveClosingBalance

Parm Var : SVToDate : Date : @@OpeningOrderToDate

[Collection: OpenLedPendSOSrc]

Collection : LedSOPendDetails ;; LedSalesPendingOrderDetails

Parm Var : SVToDate : Date : @@OpeningOrderToDate

[Collection: OpenLedPendSODetailsSrc]

Source Collection : OpenLedPendSOSrc ;; OpeningLedPendingSalesOrdersSrc

By : Parent : $Parent

Aggr Compute : OpeningBalance : Sum : $ClosingBalance

Aggr Compute : OpeningValue : Sum : $ClosingValue

Compute : IsOpeningColl : Yes

;;---------------------------------------------

[Collection: SOLedgerDetailsExtract]

Source Collection : PendLedSODetailsSrc, OpenLedPendSODetailsSrc ;; PendingLedSalesOrderDetailsSrc, OpeningLedPendingSalesOrderDetailsSrc

Source Var : svOpeningBalance : Quantity : If $IsOpeningColl Then $OpeningBalance Else $$InitValue:"Quantity"

Source Var : svOpeningValue : Amount : If $IsOpeningColl Then $OpeningValue Else $$InitValue:"Amount"

Source Var : svInwardQty : Quantity : If $IsOpeningColl Then $$InitValue:"Quantity" Else $InwardQty

Source Var : svInwardValue : Amount : If $IsOpeningColl Then $$InitValue:"Amount" Else $InwardValue

Source Var : svClosingBalance : Quantity : If $IsOpeningColl Then $$InitValue:"Quantity" Else $ClosingBalance

Source Var : svClosingValue : Amount : If $IsOpeningColl Then $$InitValue:"Amount" Else $ClosingValue

Source Var : svOutwardQty : Quantity : $$NettQty:($$NettQty:##svOpeningBalance:##svInwardQty):$$Negative:##svClosingBalance

Source Var : svOutwardValue : Amount : $$NettAmount:($$NettAmount:##svOpeningValue:##svInwardValue):$$Negative:##svClosingValue

By : Parent : $Parent

Aggr Compute : OpeningBalance : Sum : ##svOpeningBalance

Aggr Compute : OpeningValue : Sum : ##svOpeningValue

Aggr Compute : InwardQty : Sum : ##svInwardQty

Aggr Compute : InwardValue : Sum : ##svInwardValue

Aggr Compute : OutwardQty : Sum : ##svOutwardQty

Aggr Compute : OutwardValue : Sum : ##svOutwardValue

Aggr Compute : ClosingBalance : Sum : ##svClosingBalance

Aggr Compute : ClosingValue : Sum : ##svClosingValue

Search Key : $Parent

;;=============================================================

;;Table for Stock Item cl.bal., SO Pending & salable (cl.bal - SOPending) in entry level

[#Field: VCH StockItem]

Option : VCH StockItem Inv : @@IsSales OR @@IsDelNote OR @@IsSalesOrder ;; NOT @@IsStockJrnl

[!Field : VCH StockItem Inv]

Delete : Tables

Show Table : Always

Width : 35

; Add : Table : Varna P S Items, End of List

Add : Table : STK Groups Items, End of List ;;: $$Line > 1

Dynamic : ""

[collection:Stk Groups Items]

Title : "Stock Items"

Type:StockItem

;; childof:#STKGroupField

Format : $$Name, 30

Format : $ClosingBalance : "Base"

Format : $SOPend : "Base"

Format : $SOSalb : "Base"

Sub Title : $$LocaleString:"Name"

Sub Title : $$LocaleString:"Cl.Bal."

Sub Title : $$LocaleString:"SO Pending"

Sub Title : $$LocaleString:"Salable"

Title : $$LocaleString:"Stock Item List"

[#Object : StockItem]

SOPend : $SOtotal ;; $$CollQtyTotal:OrderStockItemChildOfStockGroup:$OrderClQty ;; $$CollQtyTotal:JSSOPendSameOrder:$SODue ;; $$CallSOBal ;; $$FilterAmtTotal:JSItemSOPend:IsSameItem:$Amount ;; $$CollQtyTotal:JSItemSOPend:$ClosingBalance ;; $SOPending

SOSalb : $ClosingBalance - $SOPend

[System : Formula]

IsSameItem : $StockItemName = "JS - 234" ;; Contains "234"

[Function : CallSOBal]

; Parameter : Itm : String

Variable : Par : Quantity

01b : Set : Par : $$AsQty:"0"

01 : Walk Collection : JS SO Pend SameOrder

02 : Set : Par : ##Par + $ClosingBalance

; 03 : LOG : "Par : " + ##Par

04 : END Walk

05 : Return : ##Par

[Collection : JS SO Pend SameOrder]

Type : Sales Orders

Cleared : No

Child OF : "JS - 234" ;; $name ;; ##Itm ;; $StockItemName ;; $$ExplodeOwner:#PSOPendStkName ;; $Parent ;; $$ExplodeOwner:$Name ;; $..StockItemName ;; $$ExplodeOwner:#PSOPendStkName

; BelongsTo : Yes

; Filter : SamePurcOrd ;; , SamePurcItem

Fetch : *.*, *

[Collection : JS Item SO Pend]

Type : Sales Orders

Cleared : No

Child OF : $StockItemname ;;$Name ;; ##StockItemName ;; #JSItemMISItemName ;; $$ExplodeOwner:#PSOPendStkName ;; $Parent ;; $$ExplodeOwner:$Name ;; $..StockItemName ;; $$ExplodeOwner:#PSOPendStkName

; BelongsTo : Yes

; Filter : SameGod

Fetch : *.*, *