Solutions with TDL

I have a code for salesman wise reporting, but that is only working on sales voucher, i want the salesman option in the pos voucher also, can any one help me with the code?
[#Part: CMP AccFeat RIGHT]
Add: Line: CMP EnableSalesmanTable
[Line: CMP EnableSalesmanTable]
Field: Medium Prompt, CMP EnableSalesmanTable
Local: Field: Medium Prompt: Info: "Enable Salesman ? "
Local: Field: Long Prompt: Info: "Enable Broker wise Report.?:"
;;Does not work in Tally ERP 9
;;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 : Salesman : Menu : SalesmanMenu
[Menu: SalesmanMenu]
Add : Item : Salesman Master : 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 : @@SV_CHEQUE
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
;=============== During Sales Voucher Entry=============
[#Part: EI BaseInfo]
Option: HPSalesmanName: $$Issales:##SVVoucherCLASS OR $$IsDelNote:##SVVoucherType OR $$isPOS:##VOUCHERCLASS
[!Part: HPSalesmanName]
Add: Line: HPSalesmanName
[Line: HPSalesmanName]
Add: Field: HPSalesmanNameTitle
Add: Field: VCHSalesmanName
[Field: HPSalesmanNameTitle]
Info : "Salesman: "
Width: 10
;;This is where the User will input the "Salesman"
[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
;;================= Report Code start from here=====================
;====================================================Salesman sales Report==================================================
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: @@SV_RELEASEDLEAFGREEN_PL; Very Light Green
;Delete : Bottom Buttons: DSPAutoColumns, RelReports,BudgetAnalysis, ReportConfig
Bottom Toolbar Buttons : BottomToolBarBtn1, BottomToolBarBtn6, BottomToolBarBtn7, BottomToolBarBtn8, BottomToolBarBtn9, BottomToolBarBtn10, BottomToolBarBtn11, BottomToolBarBtn12,
Add: Button: Salesmanfilter
[Part: PQRReport]
LinesQRTitile,PQRBody
BottomLines : PQRBody Total
Repeat : PQRBodyQRSalesManVouchersColl
CommonBorder: Yes
Scroll : Vertical
TotalQRPartyAmount,PQRVCHGP
[Line: PQRTitile]
UseQRBody
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]
FieldQRSno, PQRPartyDate,PQRPartyVchNo,PQRPartyName,PQRPartySalesMan,PQRVCHGP,PQRVCHGPPER,PQRPartyVchType
RightFieldQRPartyAmount
Border :Thin Bottom
[FieldQRSno]
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
[FieldQRVCHGPPER]
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]
UseQRBody
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: $$Totalqrvchgp
local : field : PQRVCHGPPER :set as: $$Totalqrvchgp/$$TotalQRPartyAmount*100
Local : Field : PQRPartyVchType : Set as: ""
Local : Field : PQRPartyAmount : Set as: $$TotalQRPartyAmount
Border : Flush Totals
;============================== Filter ===================================
[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
;================================================================================================
;===================================== Collections =================================================
[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

 

with this it is working on sales only and not on pos

 

sir,
i have changed it to vouchertype but still its working only on sales voucher and the salesman option is not visible on pos voucher i am attaching screenshots of both the voucher type. Please help me regarding this

 

I want All Type Vouchar Authorisation TDL Required for Tally ERP9 Purpose. Please Provide me on E-Mail : amar.kolpyak@gmail.com as soon as possible

 

sir i want addtional column tdl in sale invoice
my imail id saishrisai14@gmail.com

 

Dear sir

I want a User Wise Voucher Type Entry Report in TDL — meaning:
For each user, show how many vouchers of each type (Sales, Purchase, Payment, etc.) they have entered.


Example output:

User Name Voucher Type No. of Vouchers

Admin Sales 24

User1 Payment 7

User2 Receipt 5


The issue, where error massage is showing "Part: User Wise Voucher Type Entry Body" cannot find the repeated line,

The code is

[#Menu: Gateway of Tally]
Add : Key Item : Before : @@locQuit : Customized Report : Z : Menu : Customized report : $$IsAccountingOn:$$CurrentCompany
Add : Item : Before : Customized Report : User Wise Voucher Type Entry Report : M : Display : User Wise Voucher Type Entry Report
[Menu: Customized report]
Key Item : User Wise Voucher Type Entry Report : M : Display : User Wise Voucher Type Entry Report
;[System: UDF]
; From Date UDF : Date : 10001
; To Date UDF : Date : 10002
[Report: User Wise Voucher Type Entry Report]
Form : User Wise Voucher Type Entry
Title : "User Wise Voucher Type Entry Report"
[Form: User Wise Voucher Type Entry]
Part : User Wise Voucher Type Entry Filter, User Wise Voucher Type Entry Body
Width : 100% Page
Height : 100% Page
[Part: User Wise Voucher Type Entry Filter]
Line : Filter Line
[Line: Filter Line]
Fields : From Date Field, To Date Field
[Field: From Date Field]
Use : Date Field
Storage : From Date UDF
Set As : $$If:$$IsEmpty:$FromDateUDF:$FromDateUDF
Modifies : From Date UDF
[Field: To Date Field]
Use : Date Field
Storage : To Date UDF
Set As : $$If:$$IsEmpty:$ToDateUDF:$ToDateUDF
Modifies : To Date UDF
[Part: User Wise Voucher Type Entry Body]
Line : Header Line
Repeat : UserVoucherType Line : UserVoucherType Collection
Line : GrandTotal Line
Scroll : Vertical
[Line: Header Line]
Fields : User Name Title, Voucher Type Title, Voucher Count Title
Local : Field : Default : Style : Bold
Border : Thin Bottom
[Line: UserVoucherType Line]
Fields : User Name Field, Voucher Type Field, Voucher Count Field
Local : Field : User Name Field : Set As : $$Str:$CreatedBy
Local : Field : Voucher Type Field : Set As : $$Str:$VoucherTypeName
Local : Field : Voucher Count Field : Set As : $$Str:$VoucherCount
[Line: GrandTotal Line]
Fields : Blank Field, Total Label Field, Grand Total Field
Border : Thin Top
[Field: User Name Title]
Set As : "User Name"
Width : 30% Page
[Field: Voucher Type Title]
Set As : "Voucher Type"
Width : 40% Page
[Field: Voucher Count Title]
Set As : "No. of Vouchers"
Width : 20% Page
Align : Right
[Field: User Name Field]
Use : Name Field
Set : $UserName
Width : 30% Page
[Field: Voucher Type Field]
Use : Name Field
Set : $VoucherType
Width : 40% Page
[Field: Voucher Count Field]
Use : Number Field
Set : $$Total:$VoucherCount
Width : 20% Page
Align : Right
[Field: Blank Field]
Set As : ""
Width : 30% Page
[Field: Total Label Field]
Set As : "Grand Total"
Width : 40% Page
Style : Bold
[Field: Grand Total Field]
Use : Number Field
Set : $$Total:$VoucherCount
Width : 20% Page
Align : Right
Style : Bold
[Collection: UserVoucherType Collection]
Source Collection : Voucher
Walk : Voucher
By : CreatedBy : $CreatedBy
By : VoucherType : $VoucherTypeName
Aggr Compute : VoucherCount : Sum
Filter : DateFilter
[System: Formulae]
FromDate : $FromDateUDF
ToDate : $ToDateUDF
DateFilter : ($Date >= @@FromDate) AND ($Date <= @@ToDate)