Order List In Sales

I want tdl code for
During the invoice entry "list of stock item table" display show in center of Voucher and add the sub title in list of stock item table "StdPKG" & "Saleable Qty","Closing Qty" Show Table Good Width And Height
Please Mail me To kopardemanjunath@gmail.com
Thank You.
Please Any One Help This...

 

Thank You For Your Reply Sir

 

Thank You For Your Reply Sir

 

I HAVE TDL CODE FOR ORDER LIST IN SALES HERE THE TDL CODE WORKING WELL BUT I WANT CHANGE THE TDL CODE REMOVE "SO PENDING'' & "SALEABLE" AND I WANT TO PUT "GST RATE" & "HSN/SAC" PLEASE SUGGESTS CODE AND FEED BACK.


;;15.02.12

[#Collection: InvSalesOrders]
Compute : VchAmt : $$CollectionField:$Amount:1:LedgerEntries
Format : $VchAmt, 10

[#Line: EI OrderDetails]
Add : Fields : At End : EI OrderAmt
[Field: EI OrderAmt]
Use : Amount Field
Set as : If NOT $$TableObj:EIOrder:$$IsOrder Then "" Else $$TableObj:EIOrder:$VchAmt
Storage : OrderAmt
Set always : Yes
Inactive : $$IsSysName:$BasicPurchaseOrderNo
Invisible : Yes

[System : UDF]
OrderAmt : Amount : 7900

[#Part: EI OrderDetails]
Add : Bottom Lines : EI TotalOrderAmt, EI TotalPendingSalesOrder
[Line : EI Total OrderAmt]
Fields : Medium Prompt, EI TotalOrderAmt
Local : Field : Default : Color : RED

Local : Field : Medium Prompt : Info : $$LocaleString:"Total Order Amt. :"
[Field : EI TotalOrderAmt]
Use : Amount Field
Set As : $$CollAmtTotal:InvoiceOrderList:$OrderAmt ;; VchAmt
Set Always : Yes
Skip Forward : Yes
[Line : EI TotalPendingSalesOrder]
Fields : Medium Prompt, EI TotalPendingSalesOrder
Local : Field : Default : Color : RED

Local : Field : Medium Prompt : Info : $$LocaleString:"Total Pending Order Amt. :"
[Field : EI TotalPendingSalesOrder]
Use : Amount Field
Set As : $$CollAmtTotal:SOLedgerDetailsExtract:$ClosingValue ;; $$CollectionField:$ClosingValue:3:SOLedgerDetailsExtract ;; SalesOrderLedgerDetailsExtract ;; TotalSOLedDetailExtract ;; SalesOrderLedgerDetailsExtract ;; $$CollectionField:$ClosingBalance:1:TotalPartyPendingSO ;; $$CollAmtTotal:TotalPartyPendingSO:$ClosingBalance ;; OrderAmt ;; VchAmt
Set Always : Yes
Skip Forward : Yes


;;----------------------------------------
;;1

[Collection: PendLedSODetails]
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 : *.*, *

 

Sir please reply full code...