Group Name & Amount Bold & Underline

Discussion in 'Free Source Codes' started by SHREYASH PATIL, Jul 17, 2023.

    

  1. I am currently printing this report through this tdl but I need to alter the code to make the MAIN group like Bank OD Ac and its Amount bold and underline please guide me.
    upload_2023-7-17_19-50-42.png


    Code
    [#Field: BSMainAmt]

    Style : if $IsPLObject then @PLStyle else +
    if $$IsOdd:$$Column then "Normal" else "Normal"
    PLStyle : if $$IsOdd:$$Column then "Normal" else "Normal"

    Border: Thick Right : $$ExplodeLevel =0
    [#Border:Thick RIGHT]
    Left:Thick
    Right:Thick

    [#Field: BSSubAmt]

    Style : if ($IsInwardTrack OR $IsOutwardTrack) then "normal" else +
    if (@@IsWkgCapItem) then @@DSPAccSmallBoldStyle else +
    if $$IsOdd:$$Column then "normal" else "Small"

    Border: Thick Right : $$ExplodeLevel =0
    [#Border:thick RIGHT]
    Left:Thick
    Right:Thick



    [#Field: BSName]

    Local : Field : DSPDispName : Style : if ($IsInwardTrack OR $IsOutwardTrack) then "normal bold" else +
    if ($IsWkgCapLine) then "normal Bold" else +
    if (@@IsWkgCapItem) then @@DSPSmallBold else +
    if (($$ExplodeLevel = 0) AND $IsLedgerProfit) then "normal bold" else +
    if $$ExplodeLevel = 0 then @@DSPSmallBold else "normal"



    Local : Field : DSPDispName : PrintStyle : if ($IsInwardTrack OR $IsOutwardTrack) then "Normal bold" else +
    if ($IsWkgCapLine) then "Normal Bold" else +
    if (@@IsWkgCapItem) then @@DSPNrmlBold else +
    if (($$ExplodeLevel = 0) AND $IsLedgerProfit) then "Normal Bold" else +
    if $$ExplodeLevel = 0 then @@DSPNrmlBold else "normal"

    [#Line:BSDetail]
    Local:Field:bsname:Border:thick Center

    [#Field: DSP VchNarr]


    Style : small

    [#Field: DSP CompanyName]

    Align :Center

    [#Field: DSP CompanyAddress]

    Align : Center


    [#Field: DSP ReportPeriod]

    visible : NOT $$IsCommon:SVFromDate OR NOT $$IsCommon:SVToDate OR NOT ##PrintReportPeriod
    Set as : @@DSPDateStr
    Width : 0
    FullWidth : Yes
    Align : Center
    PrintStyle : bold
     



  2. He also wants a full border
     


  3. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    From screenshot it is apparent you are drawing vertical border ........ vertical and horizontal border will not exist together, unless you define it as a WHOLE ...e.g. Border : thin Box

    For underline border you can use conditional .....
    Border : Full thin bottom : NOT $$IsLedger
     



  4. sir i am new in this field pls tell me if it is possible......
    Or can that group and its amount be bolded
     


  5. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    I have given the solution and explanation in previous post. You must learn to understand the various basic codes.

    As for Bold ..... give condition in Style attribute.
    Style : If $$IsLedger then "Normal" else "normal bold"
     



  6. Thank You Amit Sir
     



  7. dear Sir
    I Want to above Code Bold Group Name With Underline
     


  8. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    1st -- there is no code attached.
    2nd - solution has already been given in previous post.

    So what is the issue now. You must try and learn a little bit of coding and its implementation.
     



  9. [#Menu : Gate Way of Tally]
    Add:Item:after : @@locDisplayMoreReports : blank
    Add:Key Item:After:mad:@locDisplayMoreReports:"Change Vch No" : E :Alter :VCHnoRefNo

    [Report: VCHnoRefNo]
    Form : VCHnoRefNo
    Multi Objects : VCHnoRefNocoll
    Title : "Voucher No As Reference No"
    Set:SVfromdate:
    Set:SVtodate:
    Variable:svtodate, Svfromdate
    [Form: VCHnoRefNo]
    Parts : Form SubTitle, VCHnoRefNo
    Local: Field: Form SubTitle : Set As : "Press CTRL+A to Except"
    Button: Change period
    [Part: VCHnoRefNo]
    Lines : VchRefT, VchRefD
    Repeat : VchRefD : VCHnoRefNocoll
    Scroll : Vertical
    Common Border : Yes

    [Line: VchRefT]
    Use : VchRefD
    Local : Field : Default : Type : String
    Local : Field : Default : Delete : Storage
    Local : Field : Default : Line : 0
    Local : Field : Default : Align : Center
    Local : Field : VchRefD Party : Info : "Party"
    Local : Field : VchRefD No : Info : "Voucher Number"
    Local : Field : VchRefD Date : Info : "Voucher Date"
    Local : Field : VchRefD Type : Info : "Voucher Type Name"
    Local : Field : VchRefD Narration : Info : "Narration"
    Border : Column Titles
    ;;---------------------------------------------------------------------------------------------------------
    [Line: VchRefD]
    Fields : VchRefD Date, VchRefD Party, VchRefD REF, VchRefD No, VchRefD Type, VchRefD Narration
    Local : Field : Default : Style: Normal
    [Field: VchRefD Date]
    Use : Uni Date Field
    Storage : Date
    skip : yes
    Width : 10% page
    [Field: VchRefD Party]
    Use : Name Field
    Storage : Partyledgername
    Border : Thin Left
    Skip : Yes
    Width : 20% page
    [Field: VchRefD REF]
    Use : Short Name Field
    Storage : reference
    Border : Thin Left Right
    Width : 15% page
    [Field: VchRefD No]
    Use : Short Name Field
    Set as : #VchRefDREF
    Storage : VoucherNumber
    Border : Thin Left Right
    Set Always : Yes
    Width : 15% page
    [Field: VchRefD Type]
    Use : Name Field
    Storage : VoucherTypeName
    Skip : Yes
    Width : 10% page
    [Field: VchRefD Narration]
    Use : Name Field
    Storage : Narration
    Border : Thin Left
    Skip : Yes
    Width : 30% page
    ;;---------------------------------------------------------------------------------------------------------
    [Collection: VCHnoRefNocoll]
    Type:vouchers:vouchertype
    Child Of: $$VchTypePurchase
    ;Filter: novch

    [System:Formulae]
    novch : $$IsEmpty:$vouchernumber
     



  10. i want this TDL For all Voucher Type can it Possible
     


Share This Page