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
.jpg)
कोई टिप्पणी नहीं:
एक टिप्पणी भेजें