Tally Chapter 138 TDL for Monthly Distach Item & Party wise By Rajiv Mishra Computer Class



 few lines are missing here. Watch the lesson Video for complete code.


 : Y : Display : STQueryCSknl : NOT $$IsEmpty:$$SelectedCmps 


[Report: STQueryCSknl]

Use : DSP Template

Form : STQueryCSknl

Title : "Month Wise Dispatch"

PrintSet : Report Title : "Month Wise Item Wise Total sales"

 Variable : SV Print Orientation : String

 Variable : ETNETNPartyMatInNameLed : String

Set : ETNETNPartyMatInNameLed : ""


 Variable : ETNETNPartyMatInItemNameLedItem : String

Set : ETNETNPartyMatInItemNameLedItem : ""


[Form: STQueryCsKnl]

Use : DSP Template

Parts : DB Title, STQueryCSknl

Delete : Buttons : ExplodeFlag

Delete : Bottom Buttons : DSPAutoColumns, BudgetAnalysis, ReportConfig

Local: Line : DB Title : Local : Field : Name Field: Set as : "Month Wise Item Wise Total Sales"

background : White

 Button :Print Button,Export Button,ETNETNPartyMatIn,ETNETNPartyMatInItem

 Set Always : SV Print Orientation : "Landscape"





[Button : ETNETNPartyMatInItem]

Key : Alt+I

Title : Stock Item

Action : Alter:ETNETNPartyMatInItemNameLedItem

[Report: ETNETNPartyMatInItemNameLedItem]

Form : ETNETNPartyMatInItemNameLedItem

[Form : ETNETNPartyMatInItemNameLedItem]

Part: ETNETNPartyMatInItemNameLedItem

 

[Part :ETNETNPartyMatInItemNameLedItem]

Line: ETNETNPartyMatInItemNameLedItem

 

[Line : ETNETNPartyMatInItemNameLedItem]

Field: ETNETNmyfield,ETNETNPartyMatInItemNameLedItem

[Field :ETNETNPartyMatInItemNameLedItem]

Use : name Field

Table : ETNETN Stock Item  ME

Show Table : Always

Variable:ETNETNPartyMatInItemNameLedItem

Modifies : ETNETNPartyMatInItemNameLedItem


 [Field :ETNETNmyfield]

Use : name Field

Table : ETNETN Stock Item  new

Show Table : Always

storage : ETNETNmyme

 [system : udf]

ETNETNmyme : string : 8654


[Collection: ETNETN Stock Item  new]

    Type: Stock Item

     

    BelongsTo: Yes

Fetch  : Name, Parent


Format : $Parent,30


 






[Collection: ETNETN Stock Item  ME]

    Type: Stock Item

     

    BelongsTo: Yes

   Filter :ETNETN jobi1


[System:formula]


ETNETNjobi1:$$IsEqual:$parent:$$LocaleString:#ETNETNmyfield






; select ledger starts from here


 

 

[Button : ETNETNPartyMatIn]

Key : Alt+V

Title : Select Ledger

Action : Alter:ETNETNPartyMatInNameLed

[Report: ETNETNPartyMatInNameLed]

Form : ETNETNPartyMatInNameLed

[Form : ETNETNPartyMatInNameLed]

Part: ETNETNPartyMatInNameLed

[Part :ETNETNPartyMatInNameLed]

Line: ETNETNPartyMatInNameLed

[Line : ETNETNPartyMatInNameLed]

Field: ETNETNPartyMatInNameLed

[Field :ETNETNPartyMatInNameLed]

Use : name Field

Table : ETNETN My Ledger

Show Table : Always

Variable:ETNETNPartyMatInNameLed

Modifies : ETNETNPartyMatInNameLed



[Collection: ETNETN My Ledger]

    Type: Ledger

    ChildOf: $$GroupSundryDebtors

    BelongsTo: Yes




[Part: STQueryCSknl]

Lines : STQueryCSknlT, STQueryCSknl

Repeat : STQueryCSknl : SItemCollCSknl

Scroll : both

Common Borders : Yes

Total : OpQtyCSknl, InQtyCSknl, ConsQtyCSknl, ProdQtyCSknl, OutwQtyCSknl, ClosQtyCSknl,qtyoct,qtynov,qtydec,qtyjan,qtyfeb,qtymar,QTYTOTAL


[Line: STQueryCSknlT]

Use : STQueryCSknl

Local : Field : Default : Type : String

Local : Field : Default : Align : Center

Local : Field : Default : color : Blue

Local : Field : Default : background :Yellow

Local : Field : Default : Lines : 0

Local : Field : ItemNameCSknl : Align : Left

Local : Field : ItemNameCSknl : Set as: "ITem Name"

Local : Field : OpQtyCSknl : Set as: "APR"

Local : Field : InQtyCSknl : Set as: "MAY"

Local : Field : ConsQtyCSknl : Set as: "JUN"

Local : Field : ProdQtyCSknl : Set as: "JUL"

Local : Field : OutwQtyCSknl : Set as: "AUG"

Local : Field : ClosQtyCSknl : Set as: "SEP"

Local : Field : qtyoct : Set as: "OCT"

Local : Field : qtynov : Set as: "NOV"

Local : Field : qtydec : Set as: "DEC"

Local : Field : qtyjan : Set as: "JAN"

Local : Field : qtyfeb : Set as: "FEB"

Local : Field : qtymar : Set as: "MAR"

Local : Field : qtyTOTAL : Set as: "TOTAL"

Border : column titles

 


[Line: STQueryCSknl]

Fields : ItemNameCSknl, OpQtyCSknl, InQtyCSknl, ConsQtyCSknl +

, ProdQtyCSknl, OutwQtyCSknl, ClosQtyCSknl,qtyoct,qtynov,qtydec,qtyjan,qtyfeb,qtymar

right field : qtytotal

Repeat : ClosQtyCSknl

Option : AlterOnEnter


[Field: ItemNameCSknl] 

 Set As : $Stockitem

 

 Display : Item Monthly Summary

 Variable  : StockitemName

 Border: thin Left right

width : if $$inprintmode then 18 else 36

Style : Normal


[Field: OpQtyCSknl] 

Use : Qty Primary Field

Style : Normal

Format : "No Zero"

Set as : $QtyApr

Border : Thin Left Right

Width : if $$inprintmode then 7 else 8

;Scroll : Yes

;Display : Stock Summary


[Field: InQtyCSknl]  

Use : OpQtyCSknl

Set As : $QtyMay

Border : Thin Right

Style : Normal

Width : if $$inprintmode then 7 else 8

[Field: ConsQtyCSknl] 

Use : InQtyCSknl

Set As : $QtyJun

Border : Thin Right

Style : Normal

Width : if $$inprintmode then 7 else 8


[Field: ProdQtyCSknl] 

Use : InQtyCSknl

Set As : $QtyJul

Border : Thin Right

Style : Normal

Width : if $$inprintmode then 7 else 8

[Field: OutwQtyCSknl] 

Use : InQtyCSknl

Set As : $QtyAug

Border : Thin Right

Style : Normal

Width : if $$inprintmode then 7 else 8

[Field: ClosQtyCSknl]  

Use : InQtyCSknl

Set As : $QtySep

Border : Thin Right

Style : Normal

Width : if $$inprintmode then 7 else 8

[Field: qtyoct] 

Use : InQtyCSknl

Set As : $Qtyoct

Border : Thin Right

Style : Normal

Width : if $$inprintmode then 7 else 8

[Field: qtynov] 

Use : InQtyCSknl

Set As : $Qtynov

Border : Thin Right

Style : Normal

 Width : if $$inprintmode then 7 else 8


[Field: qtydec] 

Use : InQtyCSknl

Set As : $Qtydec

Border : Thin Right

Style : Normal

Width : if $$inprintmode then 7 else 8

[Field: qtyjan] 

Use : InQtyCSknl

Set As : $Qtyjan

Border : Thin Right

Style : Normal

Width : if $$inprintmode then 7 else 8


[Field: qtyfeb] 

Use : InQtyCSknl

Set As : $Qtyfeb

Border : Thin Right

Style : Normal

Width : if $$inprintmode then 7 else 8

[Field: qtymar] 

Use : InQtyCSknl

Set As : $Qtymar

Border : Thin Right

Style : Normal

Width : if $$inprintmode then 7 else 8


[Field: qtytotal] 

Use : InQtyCSknl

Set As : $QtyTotal

Border : Thin Right

Style : Normal bold

Width : if $$inprintmode then 7 else 8


[Collection: Voucher CollectionCSknl]

Type : Vouchers : VoucherType

 Child of : $$VchTypeSales

 Belongs to : yes

 Fetch  : Date,All Inventory Entries

;Filter : zerovaluefilter

Filter : PartyFilterMatLedETNETN

 


[Collection: SItemCollCSknl]

Source Collection : Voucher CollectionCSknl

Walk : All Inventory Entries

By : Stockitem : $StockItemName  

Aggr Compute : Qtyapr : Sum : If @@CSknlSaleVr and @@dateapr Then $BilledQty Else 0

Aggr Compute : Qtymay : Sum : If @@CSknlSaleVr and @@datemay Then $BilledQty Else 0

Aggr Compute : Qtyjun : Sum : If @@CSknlSaleVr and @@datejun Then $BilledQty Else 0

Aggr Compute : Qtyjul : Sum : If @@CSknlSaleVr and @@datejul Then $BilledQty Else 0

Aggr Compute : Qtyaug : Sum : If @@CSknlSaleVr and @@dateaug Then $BilledQty Else 0

Aggr Compute : Qtysep : Sum :If @@CSknlSaleVr and @@datesep Then $BilledQty Else 0

 Aggr Compute : Qtyoct : Sum :If @@CSknlSaleVr and @@dateoct Then $BilledQty Else 0

Aggr Compute : Qtynov : Sum :If @@CSknlSaleVr and @@datenov Then $BilledQty Else 0

Aggr Compute : Qtydec : Sum :If @@CSknlSaleVr and @@datedec Then $BilledQty Else 0

Aggr Compute : Qtyjan : Sum :If @@CSknlSaleVr and @@datejan Then $BilledQty Else 0

Aggr Compute : Qtyfeb : Sum :If @@CSknlSaleVr and @@datefeb Then $BilledQty Else 0

Aggr Compute : Qtymar : Sum :If @@CSknlSaleVr and @@datemar Then $BilledQty Else 0

Aggr Compute : Qtytotal : Sum :If @@CSknlSaleVr Then $BilledQty Else 0

Sort : @@SortAlphaIncr : $partyledgername

 filter : PartyFilterMatItemETNETN


[System: Formula]

; zerovaluefilter : $AllLedgerEntries.BillAllocations.Amount <> ""

 PartyFilterMatLedETNETN: $Ledgername = ##ETNETNPartyMatInNameLed or $$IsSysName:##ETNETNPartyMatInNameLed

 PartyFilterMatItemETNETN:$StockItem = ##ETNETNPartyMatInItemNameLedItem or $$IsSysName:##ETNETNPartyMatInItemNameLedItem


CSknlPurc Vr : $$IsPurchase:$VoucherTypeName

CSknlSale Vr : $$IsSales:$VoucherTypeName

CSknlStock Jrnl Vr : $$IsStockJrnl:$VoucherTypeName

dateapr   : $$MonthOfDate:$date>=4 and $$MonthOfDate:$date<=4 

datemay : $$MonthOfDate:$date>=5 and $$MonthOfDate:$date<=5

datejun   : $$MonthOfDate:$date>=6 and $$MonthOfDate:$date<=6

datejul    : $$MonthOfDate:$date>=7 and $$MonthOfDate:$date<=7

dateaug  : $$MonthOfDate:$date>=8 and $$MonthOfDate:$date<=8

datesep  : $$MonthOfDate:$date>=9 and $$MonthOfDate:$date<=9

 dateoct  : $$MonthOfDate:$date>=10 and $$MonthOfDate:$date<=10

datenov  : $$MonthOfDate:$date>=11 and $$MonthOfDate:$date<=11

datedec  : $$MonthOfDate:$date>=12 and $$MonthOfDate:$date<=12

datejan  : $$MonthOfDate:$date>=1 and $$MonthOfDate:$date<=1

datefeb  : $$MonthOfDate:$date>=2 and $$MonthOfDate:$date<=2

datemar  : $$MonthOfDate:$date>=3 and $$MonthOfDate:$date<=3

टिप्पणियाँ

इस ब्लॉग से लोकप्रिय पोस्ट

Tally Chapter 153 TDL for Custom List of Stock Item By Rajiv Mishra Computer Class

Tally Chapter 105 TDL for Receipt contra Payment BULK Entry by Rajiv Mishra Computer Class

TDL CODE for New Column in Invoice by Rajiv Mishra Computer class