1. CLICK HERE TO JOIN WHATSAPP CHANNEL FOR TDL PROGRAMS

party wise sale value help!

Discussion in 'Free Source Codes' started by Rohit001, Mar 6, 2020.

    
Tags:
  1. Rohit001

    Rohit001 Member


    [#Menu:GATEWAY OF TALLY]
    Add:Item:MYREPORT:Display:CUSTOMERSALEREPORT
    [Report:CUSTOMERSALEREPORT]
    Use:DSP TEMPLATE
    Form:CASHSALEREPORTNIK
    Set : SVFromDate: ##SVCurrentDate
    Set : SVToDate : ##SVCurrentDate
    Set : FilterPartyNameGWLWCUSTOMER : ""
    [Form:CASHSALEREPORTNIK]
    Use:DSP TEMPLATE
    Height:100% SCREEN
    Width:100% SCREEN
    Part:CASHSALEREPORTtitleNIK,CASHSALEREPORTbodyNIK,CSBOTTOMTITLENIK
    Button:EXPLODEFLAG,BtnPartyNameGWLWFilterCUSTOMER
    [Part:CASHSALEREPORTtitleNIK]
    Line:CASHSALEREPORTtitleNIK,KCUSTOMER
    Background:YELLOW
    [Line:kCUSTOMER]
    Right Field : Name Field
    Left Field : Short Prompt,SMSfilterRptCUSTOMER
    Local : Field : Name Field : Info : @@DSPDateStr
    Local : Field : Name Field : Width : 60
    Local : Field : Name Field : Align : Right
    Local : Field : Short Prompt : Set as: "Party Name:"
    [Field:SMSfilterRptCUSTOMER]
    Use : Simple Field
    Style : Normal
    Set as : @CSITEMNAMENIK
    Set Always : Yes
    CSITEMNAMENIK : If $$IsEndOfList:##FilterPartyNameGWLWCUSTOMER or ##FilterPartyNameGWLWCUSTOMER="" Then "" Else ##FilterPartyNameGWLWCUSTOMER

    [Button:BtnPartyNameGWLWFilterCUSTOMER]
    Key : F5
    Action : Execute : Dispatch DetailsWiseCUSTOMER
    Title : PARTY NAME

    [Report:Dispatch DetailsWiseCUSTOMER]
    Form : Dispatch DetailsWiseCUSTOMER

    [Form:Dispatch DetailsWiseCUSTOMER]
    Part : Dispatch DetailsWiseCUSTOMER
    Space Left : 2 mms
    Space Right : 2 mms

    [Part:Dispatch DetailsWiseCUSTOMER]
    Line : Dispatch DetailsWiseCUSTOMER

    [Line:Dispatch DetailsWiseCUSTOMER]
    Field : Medium Prompt,Dispatch DetailsWiseCUSTOMER
    Local : Field : Medium Prompt : Set as : "Select Party Name:"
    Space Bottom : 2 mms

    [Field:Dispatch DetailsWiseCUSTOMER]
    Table : filterledgerCUSTOMER,EndOfList
    ShowTable : Always
    Use : Name Field
    Width : 20
    Border : Thin Box
    Variable : FilterPartyNameGWLWCUSTOMER
    Modifies : FilterPartyNameGWLWCUSTOMER

    [Collection: filterledgerCUSTOMER]
    Type: Ledger
    ChildOf: $$GroupSundryDebtors
    BelongsTo: Yes

    [System:Formula]
    SMSFilterCUSTOMER : $Name=@@PartyLedgerWise
    PartyLedgerWise : If $$IsEndOfList:##FilterPartyNameGWLWCUSTOMER or ##FilterPartyNameGWLWCUSTOMER="" Then $Name Else ##FilterPartyNameGWLWCUSTOMER
    [Variable: PartyNameGWLWCUSTOMER]
    Type : String
    Repeat : ##DSPRepeatCollection

    [Variable:FilterPartyNameGWLWCUSTOMER]
    Type : String

    [System:Variables]
    FilterPartyNameGWLWCUSTOMER : ""

    [Line:CASHSALEREPORTtitleNIK]
    Field:CASHSALEREPORTtitleNIK
    Right Field: uni date field;;
    Space Bottom:.5
    Local:Field:uni date field:Set as:##SVCURRENTDATE;;DATE FIELD2
    Local:Field:uni date field:Width:10;;;DATE FIELD3

    [Field:CASHSALEREPORTtitleNIK]
    Use:name field
    Indent:6
    Set as:"CUSTOMER WISE SALE REPORT"
    Full Width:Yes
    Style:HEADER TITLE
    Align:Center
    Color:red
    Border:THICK BOTTOM
    Wide Space:Yes;
    Line:1.5;;;0
    [#Style:HEADER TITLE]
    Height:grow 20%


    [Part:CASHSALEREPORTbodyNIK]

    Line:CASHSALETITLELINENIK,CASHSALEDETAILLINENIK
    Repeat:CASHSALEDETAILLINENIK:CASHSALECOLLNIK
    Scroll:Vertical
    Common Border:Yes
    Total:CSPARTYSALENIK
    Total:CSTOTALBILLAMTNIK
    Background:GREEN



    [Collection:CASHSALECOLLNIK]
    Type:VOUCHER:LEDGERS
    Child Of:$$GroupSundryDebtors
    Belongs To:Yes

    COMPUTE:$$CollAmtTotal:InventoryEntries:$Amount
    Fetch:Credit Totals,debit Totals
    Filter : NOTIsOptionalVoucher,SMSFilterCUSTOMER
    [Line:CASHSALETITLELINENIK]
    Field:CS SNONIK, CS PARTYNAMENIK,CS PARTYSALENIK,CS TOTALBILLAMTNIK
    Local:Field:CS SNONIK:Info:"Sr NO"

    Local:Field:CS PARTYNAMENIK:Set as:"CUSTOMER NAME"
    Local:Field:CS PARTYSALENIK:Info:"SALE VALUE"
    Local:Field:CS TOTALBILLAMTNIK:Info:"BILL AMOUNT"
    Border:Flush Column Titles
    Local:Field:DEFAULT:Color:BLUE

    [Line:CASHSALEDETAILLINENIK]
    Field:CS SNONIK, CS PARTYNAMENIK,CSPARTYSALENIK,CS TOTALBILLAMTNIK


    [Field:CS SNONIK]
    Use:NUMBER FIELD
    Set as:$$Line

    Border:THIN LEFT

    [Field:CS PARTYNAMENIK]
    Use:NAME FIELD
    Set as:$Name
    Display:Voucher
    Border:THIN LEFT
    Width:45
    [Field:CS PARTYSALENIK]
    Use:Amount FIELD
    Set as: $$CollAmtTotal:InventoryEntries:$Amount
    Width:20
    Format:"DrCr,Nozero,"
    Border:THIN LEFT
    [Field:CS TOTALBILLAMTNIK]
    Use:AMOUNT FIELD
    Set as:$debitTotals
    Format:"DrCr,Nozero,"
    Border:THIN LEFT
    Width:15

    [PART:CSBOTTOMTITLENIK]
    Bottom Line:cashsalebottomlineNIK
    Background:YELLOW
    Height:5% SCREEN
    [Line:cashsalebottomlineNIK]
    Field:cstotalTITLEflNIK
    Right Field:CSPARTYSALETOTNIK,cstotalVALUEflNIK
    Border: THIN TOP BOTTOM

    [Field:cstotalTITLEflNIK]
    Set as:"TOTAL"
    Style:LARGE BOLD
    Color:BLUE
    Align:Center
    Width:23
    Border:THIN LEFT


    [Field:CSPARTYSALETOTNIK]
    Use:Amount Field
    Set as:$$Total:CSPARTYSALENIK
    Style:LARGE BOLD
    Space Right:1.25
    Space Left:2.20
    Width:21
    Format:"CrDr"
    Color:BLUE
    Border:THIN LEFT

    [Field:cstotalVALUEflNIK]
    Use:Amount Field
    Set as:$$Total:CSTOTALBILLAMTNIK
    Style:LARGE BOLD
    Space Right:1.25
    Space Left:6.20
    Color:BLUE
    Format:"CrDr"
    Width:23
    Border:THIN LEFT
     
    Rohit001, Mar 6, 2020
    #1


  2. FreeLance Tech

    FreeLance Tech Member


    [#Menu:GATEWAY OF TALLY]

    Add:Item:MYREPORT:Display:CUSTOMERSALEREPORT

    [Report:CUSTOMERSALEREPORT]

    Use:DSP TEMPLATE
    Form:CASHSALEREPORTNIK
    Set : SVFromDate: ##SVCurrentDate
    Set : SVToDate : ##SVCurrentDate
    Set : FilterPartyNameGWLWCUSTOMER : ""

    [Form:CASHSALEREPORTNIK]

    Use:DSP TEMPLATE
    Height:100% SCREEN
    Width:100% SCREEN
    Part:CASHSALEREPORTtitleNIK,CASHSALEREPORTbodyNIK
    Button:EXPLODEFLAG,BtnPartyNameGWLWFilterCUSTOMER

    [Part:CASHSALEREPORTtitleNIK]

    Line:CASHSALEREPORTtitleNIK,KCUSTOMER
    Background:YELLOW

    [Line:kCUSTOMER]

    Right Field : Name Field
    Left Field : Short Prompt,SMSfilterRptCUSTOMER
    Local : Field : Name Field : Info : @@DSPDateStr
    Local : Field : Name Field : Width : 60
    Local : Field : Name Field : Align : Right
    Local : Field : Short Prompt : Set as: "Party Name:"

    [Field:SMSfilterRptCUSTOMER]

    Use : Simple Field
    Style : Normal
    Set as : @CSITEMNAMENIK
    Set Always : Yes
    CSITEMNAMENIK : If $$IsEndOfList:##FilterPartyNameGWLWCUSTOMER or ##FilterPartyNameGWLWCUSTOMER="" Then "" Else ##FilterPartyNameGWLWCUSTOMER

    [Button:BtnPartyNameGWLWFilterCUSTOMER]

    Key : F5
    Action : Execute : Dispatch DetailsWiseCUSTOMER
    Title : PARTY NAME

    [Report:Dispatch DetailsWiseCUSTOMER]

    Form : Dispatch DetailsWiseCUSTOMER

    [Form:Dispatch DetailsWiseCUSTOMER]

    Part : Dispatch DetailsWiseCUSTOMER
    Space Left : 2 mms
    Space Right : 2 mms

    [Part:Dispatch DetailsWiseCUSTOMER]

    Line : Dispatch DetailsWiseCUSTOMER

    [Line:Dispatch DetailsWiseCUSTOMER]

    Field : Medium Prompt,Dispatch DetailsWiseCUSTOMER
    Local : Field : Medium Prompt : Set as : "Select Party Name:"
    Space Bottom : 2 mms

    [Field:Dispatch DetailsWiseCUSTOMER]

    Table : filterledgerCUSTOMER,EndOfList
    ShowTable : Always
    Use : Name Field
    Width : 20
    Border : Thin Box
    Variable : FilterPartyNameGWLWCUSTOMER
    Modifies : FilterPartyNameGWLWCUSTOMER

    [Collection: filterledgerCUSTOMER]

    Type : Ledger
    ChildOf : $$GroupSundryDebtors
    BelongsTo : Yes

    [System:Formula]

    SMSFilterCUSTOMER : $Name=@@PartyLedgerWise
    PartyLedgerWise : If $$IsEndOfList:##FilterPartyNameGWLWCUSTOMER or ##FilterPartyNameGWLWCUSTOMER="" Then $Name Else ##FilterPartyNameGWLWCUSTOMER

    [Variable: PartyNameGWLWCUSTOMER]

    Type : String
    Repeat : ##DSPRepeatCollection

    [Variable:FilterPartyNameGWLWCUSTOMER]
    Type : String

    [System:Variables]
    FilterPartyNameGWLWCUSTOMER : ""

    [Line:CASHSALEREPORTtitleNIK]
    Field:CASHSALEREPORTtitleNIK
    Right Field: uni date field;;
    Space Bottom:.5
    Local:Field:uni date field:Set as:##SVCURRENTDATE;;DATE FIELD2
    Local:Field:uni date field:Width:10;;;DATE FIELD3

    [Field:CASHSALEREPORTtitleNIK]
    Use:name field
    Indent:6
    Set as:"CUSTOMER WISE SALE REPORT"
    Full Width:Yes
    Style:HEADER TITLE
    Align:Center
    Color:red
    Border:THICK BOTTOM
    Wide Space:Yes;
    Line:1.5;;;0
    [#Style:HEADER TITLE]
    Height:grow 20%


    [Part:CASHSALEREPORTbodyNIK]

    Line:CASHSALETITLELINENIK,CASHSALEDETAILLINENIK
    Bottom Line : CASHSALEDETAILLINENIKTota
    Repeat:CASHSALEDETAILLINENIK:SalesPartyWiseColletion
    Scroll:Vertical
    Common Border:Yes
    Total:CSPARTYSALENIK
    Total:CSTOTALBILLAMTNIK
    Background:GREEN



    [Collection:CASHSALECOLLNIK]

    Type : VOUCHERS : VoucherType
    Child Of : $$VchTypeSales
    Belongs To : Yes

    [Collection : SalesPartyWiseColletion]

    Source Collection : CASHSALECOLLNIK

    Walk : InventoryEntries
    By : ParttLedgername : $PartyLedgerName
    Aggr Compute: Amount : Sum : $$AsAmount:$Amount
    Format : $ParttLedgername, 10

    [#Field : Vchnarration]

    Table : SalesPartyWiseColletion

    ;Filter : NOTIsOptionalVoucher,SMSFilterCUSTOMER

    [Line:CASHSALETITLELINENIK]

    Field :CS SNONIK, CS PARTYNAMENIK,
    Right Field : CS PARTYSALENIK,CS TOTALBILLAMTNIK
    Local:Field:CS SNONIK:Info:"Sr NO"

    Local:Field:CS PARTYNAMENIK:Set as:"CUSTOMER NAME"
    Local:Field:CS PARTYSALENIK:Info:"SALE VALUE"
    Local:Field:CS TOTALBILLAMTNIK:Info:"BILL AMOUNT"
    Border:Flush Column Titles
    Local:Field:DEFAULT:Color:BLUE

    [Line:CASHSALEDETAILLINENIK]

    Field:CS SNONIK, CS PARTYNAMENIK,
    Right Field : CSPARTYSALENIK,CS TOTALBILLAMTNIK


    [Field:CS SNONIK]

    Use : NUMBER FIELD
    Set as : $$Line
    Border : HIN LEFT

    [Field:CS PARTYNAMENIK]

    Use : NAME FIELD
    Set as : $ParttLedgername
    Display : Voucher
    Border : THIN LEFT
    Width : 45

    [Field:CS PARTYSALENIK]

    Use :Amount FIELD
    Set as : $Amount
    Width :20
    ;Format :"DrCr,Nozero,"
    Border:THIN LEFT

    [Field:CS TOTALBILLAMTNIK]
    Use:AMOUNT FIELD
    Set as:$debitTotals
    Format:"DrCr,Nozero,"
    Border:THIN LEFT
    Width:15


    [Part : CASHSALEDETAILLINENIKTota]

    Line : CASHSALEDETAILLINENIKTota

    [Line : CASHSALEDETAILLINENIKTota]

    Field :CS SNONIK, CS PARTYNAMENIK,
    Right Field : CS PARTYSALENIK,CS TOTALBILLAMTNIK
    Local: Field : CS SNONIK : Info : ""
    Local: Field : CS PARTYNAMENIK : Info : "Total"
    Local:Field:CS PARTYNAMENIK :Set as : $$Total:CSPARTYNAMENIK
    Local:Field:CS PARTYSALENIK :Set as : $$Total:CSPARTYSALENIK
    Border : THin Top Bottom
     
    FreeLance Tech, Mar 6, 2020
    #2


  3. Rohit001

    Rohit001 Member



    Sir thank you but in this my bill amount value of party is not shown please help sir
     
    Rohit001, Mar 6, 2020
    #3


  4. FreeLance Tech

    FreeLance Tech Member


    [#Menu:GATEWAY OF TALLY]

    Add:Item:MYREPORT:Display:CUSTOMERSALEREPORT

    [Report:CUSTOMERSALEREPORT]

    Use:DSP TEMPLATE
    Form:CASHSALEREPORTNIK
    Set : SVFromDate: ##SVCurrentDate
    Set : SVToDate : ##SVCurrentDate
    Set : FilterPartyNameGWLWCUSTOMER : ""

    [Form:CASHSALEREPORTNIK]

    Use:DSP TEMPLATE
    Height:100% SCREEN
    Width:100% SCREEN
    Part:CASHSALEREPORTtitleNIK,CASHSALEREPORTbodyNIK
    Button:EXPLODEFLAG,BtnPartyNameGWLWFilterCUSTOMER

    [Part:CASHSALEREPORTtitleNIK]

    Line:CASHSALEREPORTtitleNIK,KCUSTOMER
    Background:YELLOW

    [Line:kCUSTOMER]

    Right Field : Name Field
    Left Field : Short Prompt,SMSfilterRptCUSTOMER
    Local : Field : Name Field : Info : @@DSPDateStr
    Local : Field : Name Field : Width : 60
    Local : Field : Name Field : Align : Right
    Local : Field : Short Prompt : Set as: "Party Name:"

    [Field:SMSfilterRptCUSTOMER]

    Use : Simple Field
    Style : Normal
    Set as : @CSITEMNAMENIK
    Set Always : Yes
    CSITEMNAMENIK : If $$IsEndOfList:##FilterPartyNameGWLWCUSTOMER or ##FilterPartyNameGWLWCUSTOMER="" Then "" Else ##FilterPartyNameGWLWCUSTOMER

    [Button:BtnPartyNameGWLWFilterCUSTOMER]

    Key : F5
    Action : Execute : Dispatch DetailsWiseCUSTOMER
    Title : PARTY NAME

    [Report:Dispatch DetailsWiseCUSTOMER]

    Form : Dispatch DetailsWiseCUSTOMER

    [Form:Dispatch DetailsWiseCUSTOMER]

    Part : Dispatch DetailsWiseCUSTOMER
    Space Left : 2 mms
    Space Right : 2 mms

    [Part:Dispatch DetailsWiseCUSTOMER]

    Line : Dispatch DetailsWiseCUSTOMER

    [Line:Dispatch DetailsWiseCUSTOMER]

    Field : Medium Prompt,Dispatch DetailsWiseCUSTOMER
    Local : Field : Medium Prompt : Set as : "Select Party Name:"
    Space Bottom : 2 mms

    [Field:Dispatch DetailsWiseCUSTOMER]

    Table : filterledgerCUSTOMER,EndOfList
    ShowTable : Always
    Use : Name Field
    Width : 20
    Border : Thin Box
    Variable : FilterPartyNameGWLWCUSTOMER
    Modifies : FilterPartyNameGWLWCUSTOMER

    [Collection: filterledgerCUSTOMER]

    Type : Ledger
    ChildOf : $$GroupSundryDebtors
    BelongsTo : Yes

    [System:Formula]

    SMSFilterCUSTOMER : $Name=@@PartyLedgerWise
    PartyLedgerWise : If $$IsEndOfList:##FilterPartyNameGWLWCUSTOMER or ##FilterPartyNameGWLWCUSTOMER="" Then $Name Else ##FilterPartyNameGWLWCUSTOMER

    [Variable: PartyNameGWLWCUSTOMER]

    Type : String
    Repeat : ##DSPRepeatCollection

    [Variable:FilterPartyNameGWLWCUSTOMER]
    Type : String

    [System:Variables]
    FilterPartyNameGWLWCUSTOMER : ""

    [Line:CASHSALEREPORTtitleNIK]
    Field:CASHSALEREPORTtitleNIK
    Right Field: uni date field;;
    Space Bottom:.5
    Local:Field:uni date field:Set as:##SVCURRENTDATE;;DATE FIELD2
    Local:Field:uni date field:Width:10;;;DATE FIELD3

    [Field:CASHSALEREPORTtitleNIK]
    Use:name field
    Indent:6
    Set as:"CUSTOMER WISE SALE REPORT"
    Full Width:Yes
    Style:HEADER TITLE
    Align:Center
    Color:red
    Border:THICK BOTTOM
    Wide Space:Yes;
    Line:1.5;;;0
    [#Style:HEADER TITLE]
    Height:grow 20%


    [Part:CASHSALEREPORTbodyNIK]

    Line:CASHSALETITLELINENIK,CASHSALEDETAILLINENIK
    Bottom Line : CASHSALEDETAILLINENIKTota
    Repeat:CASHSALEDETAILLINENIK:SalesPartyWiseColletion
    Scroll:Vertical
    Common Border:Yes
    Total: CS PARTYSALENIK, CS TOTALBILLAMTNIK
    Background:GREEN



    [Collection:CASHSALECOLLNIK]

    Type : VOUCHERS : VoucherType
    Child Of : $$VchTypeSales
    Belongs To : Yes
    Fetch : Amount

    [Collection : SalesPartyWiseColletion]

    Source Collection : CASHSALECOLLNIK

    By : ParttLedgername : $PartyLedgerName
    Aggr Compute: SalesAmount : Sum : $$CollAmtTotal:InventoryEntries:$AMount
    Aggr Compute: NetAmount : Sum : $$AsAmount:$Amount

    [#Field : Vchnarration]

    Table : SalesPartyWiseColletion

    ;Filter : NOTIsOptionalVoucher,SMSFilterCUSTOMER

    [Line:CASHSALETITLELINENIK]

    Field :CS SNONIK, CS PARTYNAMENIK,
    Right Field : CS PARTYSALENIK,CS TOTALBILLAMTNIK
    Local:Field:CS SNONIK:Info:"Sr NO"

    Local:Field:CS PARTYNAMENIK:Set as:"CUSTOMER NAME"
    Local:Field:CS PARTYSALENIK:Info:"SALE VALUE"
    Local:Field:CS TOTALBILLAMTNIK:Info:"BILL AMOUNT"
    Border:Flush Column Titles
    Local:Field:DEFAULT:Color:BLUE

    [Line:CASHSALEDETAILLINENIK]

    Field:CS SNONIK, CS PARTYNAMENIK,
    Right Field : CSPARTYSALENIK,CS TOTALBILLAMTNIK


    [Field:CS SNONIK]

    Use : NUMBER FIELD
    Set as : $$Line
    Border : HIN LEFT

    [Field:CS PARTYNAMENIK]

    Use : NAME FIELD
    Set as : $ParttLedgername
    Display : Voucher
    Border : THIN LEFT
    Width : 45

    [Field:CS PARTYSALENIK]

    Use :Amount FIELD
    Set as : $SalesAmount
    Width :20
    ;Format :"DrCr,Nozero,"
    Border:THIN LEFT

    [Field :CS TOTALBILLAMTNIK]
    Use :AMOUNT FIELD
    Set as :$NetAmount
    Border :THIN LEFT
    Width :15


    [Part : CASHSALEDETAILLINENIKTota]

    Line : CASHSALEDETAILLINENIKTota

    [Line : CASHSALEDETAILLINENIKTota]

    Field :CS SNONIK, CS PARTYNAMENIK,
    Right Field : CS PARTYSALENIK,CS TOTALBILLAMTNIK
    Local: Field : CS SNONIK : Info : ""
    Local: Field : CS PARTYNAMENIK : Info : "Total"
    Local:Field:CS PARTYSALENIK :Set as : $$Total:CSPARTYSALENIK
    Local:Field:CS TOTALBILLAMTNIK :Set as : $$Total:CSTOTALBILLAMTNIK
    Border : THin Top Bottom
     
    FreeLance Tech, Mar 7, 2020
    #4
    Frz likes this.


  5. Rohit001

    Rohit001 Member



    Sir,thankyou report is working but the the new transaction of voucher not created they cant save bill..please solve it sir
     
    Rohit001, Mar 7, 2020
    #5


  6. Rohit001

    Rohit001 Member


    Thankyou soo much sir..problm resolved
     
    Rohit001, Mar 7, 2020
    #6


  7. udaya

    udaya Active Member


    Very Nice...... Freelance Tech !!!!!!!!
     
    udaya, Mar 9, 2020
    #7


  8. nasir

    nasir Member


    RESPECTED BY USING THIS METHODE CAN WE FETCH UDF FIELDS ON A SINGLE FORM LIKE TENANT AGREEMENT
     
    nasir, Mar 11, 2020
    #8


  9. FreeLance Tech

    FreeLance Tech Member


    Please share example code
     
    FreeLance Tech, Mar 11, 2020
    #9


Share This Page