Solutions with TDL

Discussion in 'Tally Developer' started by tdlexperts, Feb 9, 2012.

         
  1. gaurav gangh

    gaurav gangh New Member


    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]
    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
    ;============================== 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
     


  2. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Use this..........$$IsSales:##SVVoucherType
     


  3. gaurav gangh

    gaurav gangh New Member


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


  4. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    in your code....it is Voucherclass not Vouchertype...........
     


  5. gaurav gangh

    gaurav gangh New Member


    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
     

    Attached Files:



  6. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    POS is also sales voucher, but the POS Invoice Report is different. You need to find the appropriate report and then incorporate your salesman field there too.
     


Share This Page