PROBLEM FOR TALL PRIME OF SALESMAN

Discussion in 'Free Source Codes' started by Sanjay Manna, Jun 11, 2021.

    
  1. Sanjay Manna

    Sanjay Manna Member


    DEAR SIR, PLEAE INTRUCTION ME FOR THIS CODE

    [#Part : CMP TallyShopFeatures Left]
    Add : Line : At End : CMP EnableSalesmanTable
    [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 : 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
    [#Part: VCHTitle2left]
    Option : MS VCHSalesman :mad:@IsSales
    [!Part :MS VCHSalesman]
    Add : Line:AtEnd:MS VCHSalesman

    [Line : MS VCHSalesman]

    Field : Medium Prompt,MS VCHSalesman

    Local : Field:Medium Prompt:Info:"Salesman:"
    Local : Field:Medium Prompt:Width: 5% Page

    [Field : MS VCHSalesman]
    Use : Name Field
    Set as : $MSVCHSalesman
    Storage : MSVCHSalesman
    Style : Normal
    Width : 7% Page
    [System : UDF]
    MSVCHSalesman :String :365
    [#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
    ;;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

    [#Part: CMP COLBasics]
    Add : Line:AtEnd: SMSShow RefDate

    [Line : SMSShow RefDate]
    Fields : Medium Prompt,SMSShow RefDate
    Local : Field : Medium Prompt : Info : $$LocaleString:"Show Salesman ?" ;;; String displayed
    Columnar Register Configuration
    [Field: SMSShow RefDate]
    Use : Logical Field
    Modifies: MSShowSalesman

    [Variable: MSShowSalesman]
    Type : Logical
    Persistent : Yes

    [System : Variable]
    MSShowSalesman:""

    [#Line : DSP ColVchTitle]

    Add : Fields : After : DBC VchNo : MS Salesman

    Local : Field : Default : Style : Small Italic

    Local : Field : MS Salesman : Set As : "Sales Man"

    [#Line : DSP ColVchDetail]
    Add : Field : After : DBC VchNo: MS Salesman

    [Field : MS Salesman]

    Use : Name Field
    SetAs : $MSVCHSalesman
    Width : 13% Page
    Border : Thin Left
    Style : Small
    Invisible : NOT ##MSShowSalesman


    [#Line : DSP ColVchTotal]
    Add : Field : After : DBC VchNo : MS SalesEmpty
    Local : Field : MS Salesman : Invisible : Yes

    [Field : MS SalesEmpty]
    Use : Name Field
    SetAs : ""
    Width : 13% Page

    [#Collection : Columnar Filtered Vouchers of Company]
    Fetch : MSVCHSalesman

    [#Collection: Columnar Vouchers of Ledgers]
    Fetch : MSVCHSalesman
    [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,PQRP
    artyVchType
    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
    [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
     

    Attached Files:



  2. Sanjay Manna

    Sanjay Manna Member


    #AMIT JI PLEASE PROVIDE ME FOR SOLUTION
     


  3. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    This SALESMAN module must be the most COPIED TDL in this forum..........

    You are better advised to contact the original developer for solutions, as I do not have the relevant tally data to try and troubleshoot this module.
     


  4. Sanjay Manna

    Sanjay Manna Member


    TALLY ERP APPLICABLE BUT NOT SUPPORT FOR PRIME, SIR, OBIOUSLY COPIED BUT I HAVE MODIFIED THE VOUCHER SCREEN IN SALEMAN BUT NOT FILTER
     


  5. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Copying is okay for learning and modification...that is not the issue.

    This...[#Part : CMP TallyShopFeatures Left] is not in PRIME, hence not working. You need to replace this with a appropriate PART of Prime and it will work.

    Regarding Filter....working or not..... one needs data to try and see, why not working and so find a solution.

    And request you.... kindly stop using ALL CAPS ....... type in normal sentence.
     


  6. Sanjay Manna

    Sanjay Manna Member


    upload_2021-6-11_14-5-56.png
     


  7. Sanjay Manna

    Sanjay Manna Member


    I COLLECTED FROM THERE
     


  8. Sanjay Manna

    Sanjay Manna Member


    AND ITS WORKING, SO, I USED AS YOUR INFORMATION I WILL TRY IT REMOVE ALL CAPS
     


  9. Sanjeev S

    Sanjeev S Active Member


    Yes. It will work in ERP. Try changing

    [#Part: EI BaseInfo]
    Option: HPSalesmanName: $$IsSales:##SVVoucherType OR $$IsDelNote:##SVVoucherType
    [!Part: HPSalesmanName]
    Add: Line: HPSalesmanName
    [Line: HPSalesmanName]
    Add: Field: HPSalesmanNameTitle
    Add: Field: VCHSalesmanName

    to .......

    [#Form: VCHBasic InvoiceMode]
    Option: HPSalesmanName: $$IsSales:##SVVoucherType OR $$IsDelNote:##SVVoucherType

    [!form: HPSalesmanName]
    Add : Part : after : EI SalesCurrBalanceInfo : HPSalesmanName

    [Part : HPSalesmanName]
    Line: HPSalesmanName

    [Line: HPSalesmanName]
    Field: HPSalesmanNameTitle, VCHSalesmanName


    You will get Salesman option while entry. Rest will work I suppose
     


  10. Sanjay Manna

    Sanjay Manna Member


    ERROR
     



  11. :):) Replace the part [#Part: EI BaseInfo] to [#Part: Ei consignee] for use in :):) TALLY PRIME
     


Share This Page