1. CLICK HERE TO JOIN WHATSAPP CHANNEL FOR TDL PROGRAMS

Voucher Customization TDL- Help Needed

Discussion in 'Tally Developer' started by rinku55, Jul 3, 2018.

    
Tags:
  1. rinku55

    rinku55 New Member


    • Sir I have written following TDL,But i am not getting Cheque number and also Jr Asst /Sr Asst name getting twice.And i Dont want IOB Bank heading on top of the voucher, instead i want Head Office on top of the voucher,Please delete the Cheque print time & Date.

      Finally under Bottom a separate Receipt column should be required,that represent Receiver signature,Date and Cheque number.
    I want the voucher as above mentioned.
    • Please help me tally experts.Provide me a TDL -^-


    [#Form: Payment Color]

    Delete : Print
    Add : Print : Payment Voucher

    [Report : Payment Voucher]
    Object : Voucher
    Filtered : Yes
    Print : VCHPrintConfigure

    [Form : Payment Voucher]
    Parts : PYVCHCOmpanyAddr, SMTDate, SMTTime, VoucherType, PaymentFrom, ChqDetail, TopHeadings, VoucherDetails, CheckedBy, VCHTotalAmount
    Width : ##PPRWidth inch
    Height : ##PPRHeight inch
    Space Top : ##PPRSpaceTop inch

    Width : 190 mms
    HorizontalAlign : Centre


    [Part: PYVCHCOmpanyAddr]

    Part : PRCT CompanyDetails1
    HorizontalAlign : Centre
    Border : Thick Cover

    [Part : PRCT CompanyDetails1]

    Parts : PRCT Image1, PRCT Company Addr1 , Empty
    Local : Part : Empty : Width : if @@IsLogoEnabled then 15% Else 10% Page
    Local : Part : EXPSMP Image : Height : If ($$InExportMode And $$IsSysNameEqual:HTML:##SVExportFormat) then 15% else 10% Page
    Local : Part : EXPSMP Image : Invisible : NOT @@IsLogoEnabled

    [Part: PRCT Image1]

    Part : Empty, EXPSMP Image
    Vertical: Yes


    Local : Line : Empty : Local : Field : Simple Field : Set as : ""
    Invisible : NOT @@IsLogoEnabled

    [Part : PRCT Company Addr1]

    Lines : PRCT Company1
    Local : Field : Simple Field : Align : Centre
    Local : Field : Simple Field : FullWidth : Yes
    SpaceBottom : 0.1
    Option : PRCTAddr1 : ##PrintWithCompanyName AND ##PrintWithAddress

    [!Part: PRCTAddr1]

    Add : Lines : PRCTAddr1
    Repeat : PRCT Addr1 : Company Address
    Option : PRCT CMA CompanyAddress1 : NOT ($$IsSysNameEqual:primary:##SVAddressToPrint OR $$IsEmpty:##SVAddressToPrint)

    [!Part: PRCT CMA CompanyAddress1]

    Delete : Repeat
    Add : Repeat : PRCTAddr1 : Company Multi Address Print

    [Line: PRCT Company1]

    Fields : Simple Field
    Local : Field : Simple Field : Set as : @@CmpMailName
    Local : Field : Simple Field : Style : INSTITUTE ; Normal Bold
    Local : Field : Simple Field : PrePrinted: Yes
    Invisible : NOT ##PrintWithCompanyName

    Option : PRCT CMA CompanyName1 : NOT ($$IsSysNameEqual:primary:##SVAddressToPrint OR $$IsEmpty:##SVAddressToPrint)

    [!Line: PRCT CMA CompanyName1]

    Local : Field : Simple Field : Set as : $(Company, ##SVCurrentCompany).MultiAddressList[1, @@IsSameCmpAddrType].MailingName

    [Line: PRCT Addr1]

    Fields : Simple Field
    Local : Field : Simple Field : Set as : $Address
    Local : Field : Simple Field : Border : Thin Bottom : $$Line = $$NumItems
    Local : Field : Simple Field : PrePrinted: Yes

    [Part : SMTDate]
    Lines : SMDate
    HorizontalAlign : Left
    Border: Thick Left Right

    [Line : SMDate]
    Fields : Simple Prompt, SystDate
    RightFields : Info Field, VCHNo
    Local : Field : Simple Prompt: Info: "Date "
    Local : Field : Simple Prompt: Style : StyleAllText
    Local : Field : Info Field : Info : "Voucher No. : "
    Local : Field : Info Field : Style : StyleAllText

    [Field : SystDate]
    Set as : $$MachineDate
    Style : StyleAllTextBold

    [Field : VCHNo]
    Set as : $VoucherNumber
    Style : StyleAllTextBold

    [Part : SMTTime]
    Lines : SMTTimeLine
    HorizontalAlign : Left
    Border: Thick Left Right

    [Line : SMTTimeLine]
    Fields : Simple Prompt, SystTime
    RightFields : Info Field, VCHDated
    Local : Field : Simple Prompt : Info: "Time "
    Local : Field : Simple Prompt : Style : StyleAllText
    Local : Field : Info Field : Info : "Dated : "
    Local : Field : Info Field : Style : StyleAllText

    [Field : SystTime]
    Set as : $$MachineTime
    Style : StyleAllTextBold

    [Field : VCHDated]
    Set as : $Date
    Style : StyleAllTextBold

    [Part : VoucherType]
    Lines : VoucherTypeLine
    HorizontalAlign : Center
    Border: Thick Left Right

    [Line : VoucherTypeLine]
    Fields : Info Field
    Local : Field : Info Field : Info: "Payment Voucher"
    Local : Field : Info Field : Style : StyleHeadingI


    [Part : PaymentFrom]
    Lines : PaymentFromLine
    HorizontalAlign : Center
    Border: Thick Left Right

    [Line : PaymentFromLine]
    Space Top: 2
    Fields : PMTFrom

    [Field : PMTFrom]
    Set as : $$CollectionField:$LedgerName:($$NumItems:AllLedgerEntries):AllLedgerEntries ;;"Explore Busy (YouTube Channel)"
    Style : StyleHeadingI

    [Part : ChqDetail]
    Lines : ChqDetailLine
    HorizontalAlign : Right
    Border: Thick Left Right

    [Line : ChqDetailLine]
    Fields : Info Field, ChqNum
    Local : Field : Info Field : Info: "Cheque # "
    Local : Field : Info Field : Style : StyleAllText

    [Field : ChqNum]
    Set as : $$Number:$DueDateOfPymt
    Style : StyleAllTextBold


    [Part : TopHeadings]
    Lines : TopHeadingsLine
    HorizontalAlign : Center
    Border: Thick Left Right

    [Line : TopHeadingsLine]
    Fields : PartyTitle, PartyDr

    [Field : PartyTitle]
    Fields : Info Field
    Local : Field : Info Field : Info: "Particulars"
    Local : Field : Info Field : Style : StyleAllTextNormal
    Local : Field : Info Field : Width : 60
    Border : BlueBorderXThin

    [Field : PartyNarration]
    Fields : Info Field
    Local : Field : Info Field : Info: "Narration"
    Local : Field : Info Field : Style : StyleAllTextBold
    Local : Field : Info Field : Width : 40
    Border : BlueBorderXThin

    [Field : PartyDr]
    Fields : Info Field
    Local : Field : Info Field : Info: "Debit"
    Local : Field : Info Field : Style : StyleAllTextBold
    Local : Field : Info Field : Width : 10
    Local : Field : Info Field : Align : Center
    Border : BlueBorderXThin

    [Part : VoucherDetails]
    Space Top: 1.5
    Line : PartyDetailsAll, PartyLedNarr
    Repeat : PartyDetailsAll : AllLedgerEntries
    Border: Thick Left Right

    [Line : PartyDetailsAll]
    Lines : PartyName, BlankLineI

    [Line : PartyName]
    Field : PartyLedName, PartyDrAmount
    Explode : PartyLedNarrPart : yes

    [Part : PartyLedNarrPart]
    Line : PartyLedNarr
    Repeat : PartyLedNarr : LedgerEntries

    [Line : PartyLedNarr]

    Fields : Short Prompt, PartyLedNarration
    Local : Field : Short Prompt : Info : $$LocaleString:"Narration" + ":"
    Local : Field : Short Prompt : PrePrinted : Yes
    SpaceBottom : 1
    Space Top : 2


    [Field : PartyLedName]
    Set as : $LedgerName
    Width : 69
    Space Left : 1
    Style : StyleAllTextBold

    [Field : PartyDrAmount]
    Set as : if $$IsDr:$Amount then $$AsDrAmt:$Amount else ""
    Align : Right
    Width : 11
    Style : StyleAllText


    [Field : PartyLedNarration]
    Set as : $Narration
    Width : 69
    Line : if $$StringLength:$Narration > 120 then 2 else 1
    Style : StyleAllTextNarration

    [Line : BlankLineI]
    Fields : Simple Field
    Local : Field : Simple Field : Set as : " "
    Local : Field : Simple Field : Style : StyleAllTextBold
    Local : Field : Simple Field : Align : Right
    Local : Field : Simple Field : Width : 69

    [Line : BankNarrLine]
    Field : BankNarrField
    [Field : BankNarrField]
    Set as : $Narration
    Width : 69
    Space Left : 1
    Style : StyleAllText

    [Part : VCHTotalAmount]
    Space Top: 2
    Line : TotalWordsLine
    Width : 190 mms
    ;Border: Thick Left Right
    Space Bottom: 1
    Border: Thick Left Right Double Bottom

    [Line : TotalWordsLine]
    Fields : Info Field
    RightFields : TotalPaidFig
    Local : Field : Info Field : Info: "Paid "+$$InWords:(($$CollectionField:$Amount:($$NumItems:AllLedgerEntries):AllLedgerEntries)+00000)+" Only." ;;"Paid "+$$String:$Amount+" Only."
    Local : Field : Info Field : Style : StyleAllTextBold
    Local : Field : Info Field : Width : 69
    Border : BlueBorderXThin

    [Field : TotalPaidFig]
    Set as : $$CollectionField:$Amount:($$NumItems:AllLedgerEntries):AllLedgerEntries ;;$Amount
    Width : 23
    Align : Right
    Style : StyleAllTextBold
    Border : BlueBorderXThin

    [Part : CheckedBy]
    Lines : CheckedByUserLine
    Space Top : 3
    HorizontalAlign : Center
    Border: Thick Left Right

    [Line : CheckedByUserLine]
    Fields : Info Field, PreparedByLine, CheckedByLine, VerifiedByLine, ApprovedByLine, ReceivedByLine
    Local : Field : Info Field : Info:
    Local : Field : Info Field : Style : StyleAllTextSmall
    Local : Field : Info Field : Width : 17
    Local : Field : Info Field : Space Left : 1
    ;;Local : Field : Info Field : Border : Thin Bottom
    ;;Local : Field : Info Field : Border : Thin Top Bottom
    Border: Thick Left Right

    [Field : PreparedByLine]
    Fields : Info Field
    Local : Field : Info Field : Info: "Prepared:Jr Asst/Sr Asst"
    Local : Field : Info Field : Style : StyleAllText
    Local : Field : Info Field : Width : 18
    Local : Field : Info Field : Space Left : 1

    [Field : CheckedByLine]
    Fields : Info Field
    Local : Field : Info Field : Info: "Checked By : Supdt /Sr Acctt"
    Local : Field : Info Field : Style : StyleAllText
    Local : Field : Info Field : Width : 18
    Local : Field : Info Field : Space Left : 1


    [Field : VerifiedByLine]
    Fields : Info Field
    Local : Field : Info Field : Info: "Verified By : A S/ Accts Officer"
    Local : Field : Info Field : Style : StyleAllText
    Local : Field : Info Field : Width : 18
    Local : Field : Info Field : Space Left : 1


    [Field : ApprovedByLine]
    Fields : Info Field
    Local : Field : Info Field : Info: "Approved By : Secy & GM(F) "
    Local : Field : Info Field : Style : StyleAllText
    Local : Field : Info Field : Width : 18
    Local : Field : Info Field : Space Left : 1



    [Field : ReceivedByLine]
    Fields : Info Field
    Local : Field : Info Field : Info: "Received By : ___________ "
    Local : Field : Info Field : Style : StyleAllTextBold
    Local : Field : Info Field : Width : 18
    Local : Field : Info Field : Space Left : 1


    [Border : BlueBorderXThick]
    Top : thick
    Bottom : Thick
    Right : Thick
    Left : Thick
    Color : "Blue"
    Print Fg: "Blue"

    [Border : BlueBorderXThin]
    Top : thin
    Bottom : thin
    Right : thin
    Left : thin
    Color : "Blue"
    Print Fg: "Blue"

    [Border: Thick Left Right Double Bottom]

    Left : Thick
    Right : Thick
    Bottom : Thick, Double

    [Style : StyleGSName]
    Font: "Cooper Black"
    Height : 12


    [Style : StyleAllTextSmall]
    Font: "Calibri"
    Height : 8

    [Style : StyleAllText]
    Font: "Calibri"
    Height : 10

    [Style : StyleAllTextNarration]
    Font: "Calibri"
    Height : 8

    [Style : StyleAllTextBold]
    Font: "Calibri"
    Height : 10
    Bold : Yes

    [Style : StyleHeadingI]
    Font: "Verdana"
    Height : 10
    Bold : Yes
     
    Last edited: Aug 21, 2018
    rinku55, Jul 3, 2018
    #1


  2. svn

    svn Member


    IN INV1 THERE IS LOST SOME SPACE . WHAT CAN I DO ?
     

    Attached Files:

    svn, Jul 9, 2020
    #2


Share This Page