Tally Chapter 133 TDL for Salesman Wise Sales & Profit Report by Rajiv Mishra computer class


 Few lines of the code is missing here. Pls watch the full video for complete vode




[Line: CMP EnableSalesmanTable]

Field: Medium Prompt, CMP EnableSalesmanTable

Local: Field: Medium Prompt: Info: "Enable Salesman ? "



;;Invisible: NOT $$MODAdvInventory or NOT $IsInvoicingOn

Space Top: 1


[Field: CMP EnableSalesmanTable]

Use: Logical Field

Storage: EnableSalesman

Set as: If $$IsEmpty:$$Value then "No" else $$Value

Sub Form: SmReport: $$Value = "Yes"


[#Menu: Gateway Of Tally]


Add : Item : Sales Person Report : Menu : Salesman Menu


[Menu: Salesman Menu]

Add : Item : Sales Person Name : Alter : Salesman Name

Add : Item : Blank

Add : Item : Salesman Sales Report : Display : SmReport

Add : Item : Blank



[Report: Salesman Name]

Form : Salesman Name

Object : Company


[Form: Salesman Name]

Part : FormSubTitle, Saleman

;Button : Delete All, Remove Line, Restore Line, Restore All,Report Operations

FullWidth : No

Height : 90% Screen

Background : Light Yellow

SpaceRight : 0.5

SpaceLeft : 1.5

Local : Field : Form SubTitle : Info : $$LocaleString:"Salesman Name"

Option : Small Size Form



[Part: Saleman]

Lines : CMP Salesman

Repeat : CMP Salesman:mydbsalesman

Break on: $$IsEmpty:$SalesmanName

Scroll : Vertical

Height : 90% Screen


[Line: CMP Salesman]

Fields : Multi SNo, CMPSalemanName

Local : Field : Default : Delete : Border


[Field: CMPSalemanName]

Use : Short Name Field

Storage : SalesmanName

Unique : Yes



[System: UDF]

mydbsalesman : Aggregate: 999

SalesmanName : String : 1000 ;: Yes


[Collection : SalesmanNameCollection]

Type : mydbsalesman : Company

Childof : ##SVCurrentCompany

Format : $SalesmanName, 10

Title : Salesman Name



[#Part: EI BaseInfo]

Option: HPSalesmanName: $$IsSales:##SVVoucherType OR $$IsDelNote:##SVVoucherType


[!Part: HPSalesmanName]

Add: Line: HPSalesmanName


[Line: HPSalesmanName]

Add: Field: HPSalesmanNameTitle

Add: Field: VCHSalesmanName


[Field: HPSalesmanNameTitle]

Info : "Salesman: "

Width: 10




[Field: VCHSalesmanName]

Use : Name Field

Storage : VCHSalesmanName

Set as : $VCHSalesmanName

Width : 25

Table : SalesmanNameCollection, not applicable

Show Table: Always

Key : Create SalesmanName


[Key: Create SalesmanName]

Key :Alt + C

Action: CREATE: SalesmanName


[System: UDF]

VCHSalesmanName:String:375

 



TDLLic : $$CmpUserName:CompanyUsersCollection <> ÒadminÓ 

;; Limiting based on Company Users

[Report: SmReport]

Use : DSP Template

Form : PQRReport

Title : "Salesman Report"

Set : SVFromDate : $$MonthStart:##SVCurrentDate

Set : SVToDate : $$MonthEnd:##SVCurrentDate

Set : SalesManChqVar : "Full"

Set : SalesManName : ""


[Form: PQRReport] 

Use : DSP Template

Parts : PQRReport

Height : 100% screen

Width : 100% screen

Delete : Buttons: ExplodeFlag

Background:  Light Yellow

;Delete : Bottom Buttons: DSPAutoColumns, RelReports,BudgetAnalysis, ReportConfig

Bottom Toolbar Buttons : BottomToolBarBtn1, BottomToolBarBtn6, BottomToolBarBtn7, BottomToolBarBtn8, BottomToolBarBtn9, BottomToolBarBtn10, BottomToolBarBtn11, BottomToolBarBtn12, 

Add: Button: Salesmanfilter


[Part: PQRReport]

Lines:PQRTitile,PQRBody

BottomLines : PQRBody Total

Repeat : PQRBody:PQRSalesManVouchersColl

CommonBorder: Yes

Scroll : Vertical

Total:PQRPartyAmount,PQRVCHGP




[Line: PQRTitile]

Use:PQRBody

Local : Field : Default : Type : String

Local : Field : Default : Style : Tiny Bold

Local : Field : Default : Align : Centre

Local : Field : Default : set as : $$LocaleString:"S. No"

Local : Field : PQRPartyDate : Set as: $$LocaleString:"Date"

Local : Field : PQRPartyVchNo : Set as: $$LocaleString:"Vch No."

Local : Field : PQRPartyName : Set as: $$LocaleString:"Party Name"

Local : Field : PQRPartySalesMan: Set as: $$LocaleString:"SalesMan"

Local : Field : PQRVCHGP: Set as: $$LocaleString:"GrossProfit"

Local : Field : PQRVCHGPPER: Set as: $$LocaleString:"Profit%"

Local : Field : PQRPartyVchType : Set as: $$LocaleString:"Vch Type" 

Local : Field : PQRPartyAmount : Set as: $$LocaleString:"Amount"


Border : Flush Totals


[Line: PQRBody]

Field:PQRSno, PQRPartyDate,PQRPartyVchNo,PQRPartyName,PQRPartySalesMan,PQRVCHGP,PQRVCHGPPER,PQRPartyVchType

RightField:PQRPartyAmount 

Border :Thin Bottom


[Field:PQRSno]

Set as : $$Line

Width : 1.5 cm 

Align : Center

Border : Thin Left Right


[Field: PQRPartyDate]

Set as : $Date

Width : 9% Screen

Align : Right

;Style : Tiny

Border : Thin Left 


[Field: PQRPartyVchNo]

Set as : $VoucherNumber

Width : 9% Screen

Align : Center

;Style : Tiny

Border : Thin Left 


[Field: PQRPartyName]

Use : Name Field

Set as : $PartyLedgerName

Border : Thin Left 

Width : 38% Screen

Align : Left

;Style : Tiny

Variable: LedgerName

Display : Ledger Vouchers


[Field: PQRPartySalesMan]

Use :Name Field

Set as :$VCHSalesmanName

Border : Thin Left 

Width : 12% Screen

Align : Left

;Style : Tiny

Key : Create SalesmanName


[Field: PQRVCHGP]

Use :Amount Forex Field

Set as :$GrossProfit

Border : Thin Left 

Width : 10% Screen

Align : Left

;Style : Tiny

Key : Create SalesmanName


[Field:PQRVCHGPPER]

use : amount field

width: 10% Screen

Border:thin left

align: right

set as: $GROSSPROFIT/$GROSSREVENUE*100


[Field: PQRPartyVchType]

Set as : $VoucherTypeName

Border : Thin Left 

;Width : 15% Screen

Align : Left

;Style : Tiny


[Field: PQRPartyAmount]

Use : Amount Forex Field

Set as : $GROSSREVENUE

Border : Thin Left

;Width : 15% Screen

Align : Right

;Style : Tiny

Format : "No Zero,DrCr,Symbol," + ##ShowForex



[Line: PQRBody Total]

Use:PQRBody

Local : Field : Default : Type : String

Local : Field : Default : Style : Tiny Bold

Local : Field : Default : Align : Centre

Local : Field : PQRSno : Set as: ""

Local : Field : PQRPartyDate : Set as: ""

Local : Field : PQRPartyVchNo : Set as: ""

Local : Field : PQRPartyName : Set as: "TOTAL"

Local : Field : PQRPartyName : Align : Centre 

Local : Field : PQRPartySalesMan: Set as: ""

local : field : PQRVCHGP :set as: $$Total:pqrvchgp

local : field : PQRVCHGPPER :set as: $$Total:pqrvchgp/$$Total:PQRPartyAmount*100

Local : Field : PQRPartyVchType : Set as: ""

Local : Field : PQRPartyAmount : Set as: $$Total:PQRPartyAmount

Border : Flush Totals







[Button:SalesmanFilter]

Key : Alt+S

Action : Execute : SalesmanFilter

Title : Salesman Name


[Report:SalesmanFilter]

Form : SalesmanFilter

;Set : SalesmanName : ""

Set : SalesManChqVar : "Filter"


[Form:SalesmanFilter]

Part : SalesmanFilter

No Confirmation : Yes


[Part:SalesmanFilter]

Line : SalesmanFilter


[Line:SalesmanFilter]

Field : Medium Prompt,SalesmanFilter

Local : Field : Medium Prompt : Set as : "Select Salesman Name: "


[Field:SalesmanFilter]

Table : SalesmanNameCollection,EndOfList

ShowTable : Always

Use : Name Field

Width : 20

Border : Thin Box

Variable : SalesmanName

Modifies : SalesmanName





[Collection: PQRSalesManVouchersColl]

Type : Voucher

Fetch : Date, VoucherNumber, VoucherTypeName,LedgerName,PartyLedgerName,VCHSalesmanName,GrossProfit,GROSSREVENUE, LedgerEntries.*

Filter : PQRSaleManVouchers

Filter : SalesManFilter


[System:UDF]

EnableSalesman : Logical : 1000



Commission : Number : 1001



[Variable:SalesManName]

Type : String


[Variable:SalesManChqVar]

Type : String


[System:Variable]

SalesManName : ""

SalesManChqVar : ""




[System: Formula]

;PQRSaleManVouchers: $$IsSales:$VoucherTypeName OR $$IsDelNote:$VoucherTypeName

PQRSaleManVouchers: $$IsSales:$VoucherTypeName

SalesManWise : $VCHSalesmanName=@@SAlesManEOL

SalesManFull : $VCHSalesmanName=$VCHSalesmanName

SAlesManEOL : if $$IsEndOfList:##SalesManName then $VCHSalesmanName Else ##SalesManName

SalesManFilter : if ##SalesManChqVar="Filter" Then @@SalesManWise Else @@SalesManFull 

 


टिप्पणियाँ

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

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