Make Payment sheet.

Discussion in 'Tally Developer' started by Ajitsinh Babariya, Mar 7, 2013.

    
  1. Ajitsinh Babariya

    Ajitsinh Babariya New Member


    Dear Experts,​
    I want to generate payment sheet for bank from payment voucher.

    Means when i make payment sheet, i want to add one option PAYMENT SHEET, as like payment advice.

    Payment sheet format:
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    Dt. xx.xx.xxxx

    To,
    The Bank Manager,
    BANK NAME FROM PAYMENT VOUCHER

    Sub: Transfer of payment by CHQ. NO. FROM PAYMENT VOUCHER.

    Dear Sir,


    We are enclosing herewith our Cheque Number FROM PAYMENT VOUCHER dated FROM PAYMENT VOUCHER for amount Rs. FROM PAYMENT VOUCHER in words Rupees FROM PAYMENT VOUCHER

    We request you to kindly transfer the amount as per the following details

    Sr No. Party Name Bank Account No. Amount Rs.
    xx ABCDE XXXXXXXXXXX XXXXX.XX


    Thanking you.
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

    Now i requesting you to help me for preparing its TDL.


    Thanks.​
     


  2. Nirav Merchant

    Nirav Merchant Active Member


    Hi I have this code which prints - a formal Letter ( It was on Pre -printed stationery ) above Chq Printing
    ;; Kinldy follow the code and add the required Text - as u mentioned above and arrange my fields with that will definately help you

    [#Form : Payment Color]
    Add : Print : CheqPrint


    ;;;;****** PrintingPart

    [Report : CheqPrint]
    use : Voucher
    Add : Form : CheqPrint


    [Form : CheqPrint]

    Parts : Toppart,Middlepart
    BOTTOM PART : Bottompart
    Height : 300 mms
    Width : 203 mms
    Space Top : 0 mms
    Space Bottom : 0 mms
    Space Left : 0 mms
    Space Right : 0 mms

    [Part : toppart]
    parts : headpart,partypart
    Height : 100 mms
    Width : 203 mms
    Vertical : Yes

    [Part : Headpart]
    Line : cEmptyLine, newno line
    Width : 203 mms
    height : 40 mms


    [Line : cemptyLine]
    Field : EmptyField
    Height : 30 MMS

    [Field : EmptyField]
    Set as : " "

    [Line : NewNo Line]
    field : Newnofld

    [Field : Newno Fld]
    Use : Name Field
    Fullwidth : yes
    set as : "New No : "
    Style : Normal Bold
    align : centre
    WIDTH : 203 MMS


    [Part : PartyPart]
    Part : Leftpart,RightPart
    Vertical : yes
    Height : 60 mms
    Width : 203 mms

    [Part : Leftpart]
    Lines : partyname,paddress
    Repeat : paddress : party address
    Height : 40 mms
    Width : 203 mms
    ;;Space top : 2 mms

    [Line : Partyname]
    Field : Partyfield
    ;;Height : 8 mms

    [Field : partyField]
    Set as : $LedgerName
    Space left : 20 mms
    align : left
    Style : Large Bold
    Full width : yes

    [Line : PAddress]
    field : PartyAdd
    ;;Height : 8 mms

    [Field : partyadd]
    Set as : $Address ;;:Ledger Name:$LedgerName: All Ledger Entries : First
    Space left : 20 mms
    Align : Left
    Style : nORMAL BOLD
    Full width : yes

    [Part : RightPart]
    Lines : Chqdetails ;;Vdate,ChqNum,Refer
    Height : 20 mms
    WidtH : 203 mms
    SPACE TOP : 4 MMS


    [line : chqdetails]
    Field : Chqnumberdet, Chq date, Chqamount

    [Field : Chqnumberdet]
    use : name field
    align : left
    set as : ($$StringPart:$Narration:9:6)
    space left : 65 mms
    style : Normal Bold
    width : 100 mms

    [Field : Chq Date]
    Use : Name Field
    Align : left
    width : 30 mms
    space left : 11 mms
    set as : ($$StringPart:$Narration:20:8)
    style : Normal Bold

    [Field : Chqamount]
    Use : Amount Field
    width : 40 mms
    align : right
    space right : 5 mms
    set as : #TOTFLD ;;$amount
    Format : "Nosymbol"


    [Line : Vdate]
    Field : Vdate
    Height : 9 mms

    [Field : Vdate]
    Set as : $$String:$Date:UniversalDate
    Space Left : 60 mms
    Align : left
    Style : Normal Bold

    [Line : chqnum]
    Field : Chenum
    Height : 8 mms


    [Field : Chenum]
    Set as : $Narration
    Space left : 60 mms
    Align : Left
    Style : NOrmal Bold

    [Line : Refer]
    Field : refer
    Height : 7 mms

    [Field : refer]
    Set as : $VoucherNumber
    Space left : 60 mms
    align : left
    Style : Normal Bold

    ;; MIDDLE PART
    ;==================================================================


    [Part : middlepart]
    PART : BILLPART ;;;, TOTPART
    BOTTOM PART : BOTTOMBLNKPART
    HEIGHT : 110 MMS
    WIDTH : 203 MMS
    VERTICAL : YES

    [PART : BILLPART]
    PART : BILLDET
    BOTTOM PART : TOTPART
    HEIGHT : 85 MMS
    VERTICAL : YES

    [PART:BILLDET]
    Lines : billall
    Repeat : Billall : Bill Allocations : aLL Ledger Entries : First
    Scroll: Vertical
    Height : 78 mms
    Width : 203 mms
    space top : 9 mms
    Space Left : 7 mms
    ;;space right : 7 mms
    SPACE BOTTOM : 2 MMS
    total : netbilamt

    [Line : BillAll]
    Fields : BillNM, Bildate, BilAmt
    Right Fields : Cdadj, Tdsadj, netBilAmt
    ;;Height : 8 mms

    [Field : BillTy]
    Set as : $BILLType
    Space Left : 20 mms
    Align : Left
    Style : Normal Bold

    [Field : BillNm]
    Use: short Name Field
    Set as: $Name
    Space right : 2 mms
    Width : 13 mms
    Align : RIGHT
    Style : Normal Bold

    [Field : Bildate]
    Use : Short Name Field
    Set as : $$string:$date:shortdate
    width : 25 mms
    Style : Normal Bold
    align : left

    [Field : BilAmt]
    Use : Amount Forex Field
    Set as : $Amount
    space right : 5 mms
    Align : right
    Width : 34 mms
    Format : "NoSymbol"
    Style : Normal bold

    [Field : netBilAmt]
    Use : Amount Forex Field
    Set as : $Amount - $othamount - $tdsamount1
    space right : 5 mms
    Align : right
    Width : 34 mms
    Format : "NoSymbol"
    Style : Normal Bold

    [Field : CDadj]
    use : amount field
    set as : $othamount
    align : right
    space right : 5 mms
    format : "Nozero, Nosymbol"
    width : 42 mms
    Style : Normal Bold

    [Field : tDsadj]
    use : amount field
    set as : $tdsamount1
    align : right
    space right : 5 mms
    format : "Nozero, Nosymbol"
    width : 42 mms
    Style : Normal Bold

    [part : totpart]
    line : totline
    ;;Height : 12 mms
    width : 203 mms
    ;;SPACE TOP : 5 MMS
    FLOAT : NO

    [Line : totline]
    Right Field : totfld

    [Field : totfld]
    Use : Amount Field
    Set as : $$total:netbilamt
    style : Large Bold
    Width : 34 mms
    Align : right
    Space right : 5 mms

    [part : bottomblnkpart]
    line : bottomblnkline
    ;;HEIGHT : 24 MMS


    [Line : Bottomblnkline]
    use : cemptyLine
     


  3. Ajitsinh Babariya

    Ajitsinh Babariya New Member


    Thanks but its get error while loading in tally.

    Error Message: PATH (129): error T0009: duplicate description name Field - 'VDate' -
    src\Company\Data Verification 900(765) : is previous declaration
     


  4. Joharfchhil

    Joharfchhil Member


    CHANGE THE NAME OF THE FIELD (VDATE) TO ANY OTHER NAME
     


  5. Joharfchhil

    Joharfchhil Member


    VDATE IS REPEATED IN PROGRAM 4 TIMES SO REPLACE ALL 4
     


  6. Nirav Merchant

    Nirav Merchant Active Member


    Thanks Joharfchhil
     


  7. GOURAV JAIN

    GOURAV JAIN Member


    Sir it show error...

    Error in TDL
    'Part:Bottompart'
    could not find description
     


  8. Joharfchhil

    Joharfchhil Member


    In [Form: Cheq Print] make BOTTOM PART as comment, just try it.
     


  9. Ajitsinh Babariya

    Ajitsinh Babariya New Member


    Thank you sir,

    But i think there is some misundersanding.

    Please find following coding:

    [#Part :Led Contact]
    Add: Lines : Bank Ac,Bankname,IFSCno

    [Line : Bank Ac]
    Fields : Medium prompt, Bank Ac

    Local :field : Medium prompt :Set as : ” Bank Account Number :”

    [line :Bankname]
    Field : Medium prompt,bank name
    Local : Field : medium prompt : Set as :” Name of bank:”

    [Line :IFSCno]
    Field :medium prompt, IFSCno
    local :Field : medium prompt : Set as : ” IFSC Code No:”

    [Field : Bank Ac]
    use : Name Field
    Storage : BankDt

    [Field : bank name]
    Use : Name Field
    Storage :bankname

    [Field : IFSCno]
    Use : Name Field
    Storage : IFSC

    [System : UDF]
    BankDt : String : 1001

    [System : UDF]
    bankname: String :1002

    [System : UDF]
    IFSC : String:1003


    Now i want to use above field (Bank Ac) in printing of PAYMENT SHEET

    Please find attached format in pdf.

    thanks
     

    Attached Files:



Share This Page