1. CLICK HERE TO JOIN WHATSAPP CHANNEL FOR TDL PROGRAMS

can anyone help me on this invoice format

Discussion in 'Requests' started by bikash agarwal, Mar 30, 2018.

    
Tags:
  1. bikash agarwal

    bikash agarwal Member


    can anyone help me in this TDL Code

    i want to add. letter head, hsn code and gst summary ... o_Oo_Oo_O
    please any one can help out there :eek::eek::eek:


    ---------------------------------------


    [Part : AMains]
    Use : STDInvoiceTop

    [#Form : Sales Color]
    Delete : Print : Printed Invoice
    Print : AComInv
    [Report : AComInv]
    Use : STDInvoice
    Object : Voucher
    Form : AComInv
    Filtered : Yes
    PrintSet : ReportTitle : "TAX INVOICE"
    [Form : AComInv]
    Parts : AMains, AInvTitle, AInvBuy, AInvBody, AInvDetails
    Bottom Parts : AInvBott, AInvTerms
    Space Top : 17% Page
    Space Bottom : 2% Page
    Space Left : 8% Page
    Space Right : 5% Page

    Page Break : AClPgBr, AOpPgBr
    [Part : AClPgBr]
    Lines : AClPgBr
    [Line : AClPgBr]
    Right Fields : Info Field
    Local : Field : Info Field : Info : "..... Continued ..."
    Border : Thin Box
    Space Top : 1
    Space Bottom : 0.5
    [Part : AOpPgBr]
    Parts : AInvTitle, AInvBuy, AInvBody
    Vertical : Yes


    [Part : AInvTitle]
    Lines : AInvTitle
    [Line : AInvTitle]
    Fields : AInvTIN, Simple Field, AInvCopy
    Local : Field : Simple Field : Set As : "TAX INVOICE"
    ;;@@InvTitle + @@ExtraPageNo
    Local : Field : Simple Field : Style : Large Bold
    Local : Field : Simple Field : Align : Centre
    Local : Field : Simple Field : FullWidth : Yes
    [Field : AInvTIN]
    Use : Name Field
    Set As : "" ;;"TIN : " + $VATTINNumber:Company:##SVCurrentCompany
    Style : Small Bold
    [Field : AInvCopy]
    Use : Name Field
    Style : Small Bold
    Align : Right
    Set As : If $$SetNo = 1 Then @Original Else +
    If $$SetNo = 2 Then $$LocaleString:"(Duplicate)" Else +
    If $$SetNo = 3 Then $$LocaleString:"(Triplicate)" Else +
    If $$SetNo = 4 Then $$LocaleString:"(Quadruplicate)" Else $$LocaleString:"(Extra Copy)"
    Original : If ##SVPrintCopies > 1 Then If @@IsIndianVATVch AND $IsTaxInvoice:VoucherType:$VoucherTypeName Then $$LocaleString:"Original - Buyer's Copy" +
    Else $$LocaleString:"(Original)" Else ""

    [Part : AInvBuy]
    Parts : ABuyer, AInvNoDt
    Vertical : No
    Border : Thin Box

    [Part : ABuyer]
    Lines : ABuyT, ABuyer, ABuyAdd, ABuyTax
    Repeat : ABuyAdd : Buyer Address
    Width : 55% Page
    [Line : ABuyT]
    Field : Info Field
    Local : Field : Info Field : Info : "To,"
    Local : Field : Info Field : Style : Small Serif
    [Line : ABuyer]
    Field : Simple Field
    Local : Field : Simple Field : Set As : $BuyerName
    Local : Field : Simple Field : Style : Normal Bold
    Local : Field : Simple Field : FullWidth : Yes
    [Line : ABuyAdd]
    Field : Simple Field
    Local : Field : Simple Field : Set As : $BuyerAddress
    Local : Field : Simple Field : Style : Normal
    Local : Field : Simple Field : FullWidth : Yes
    [Line : ABuyTax]
    Field : Simple Prompt, Simple Field
    Local : Field : Simple Prompt : Info : "TIN No."
    Local : Field : Simple Prompt : Invisible : $$IsEmpty:mad:@BuyerTaxNum
    Local : Field : Simple Field : Set As : @@BuyerTaxNum
    Space Top : 1

    [Part : AInvNoDt]
    Lines : AInvNoDt, APONoDt, ADCNoDt, AThru, APymtTerms, AGTMrp
    Width : 45% Page
    Border : Thin Left
    [Line : AInvNoDt]
    Fields : Short Prompt, Short Name Field, Simple Prompt, Short Date Field
    Local : Field : Short Prompt : Info : "Invoice No. "
    Local : Field : Short Name Field : Set As : $VoucherNumber
    Local : Field : Short Name Field : Style : Large Bold
    Local : Field : Simple Prompt : Info : "Date "
    Local : Field : Short Date Field : Set As : $Date
    Local : Field : Short Date Field : Style : Large Bold
    Space Top : 0.25
    Space Bottom : 0.25
    [Line : APONoDt]
    Fields : Short Prompt, Short Name Field, Simple Prompt, Short Date Field
    Local : Field : Short Prompt : Info : "Purchase Order No. "
    Local : Field : Short Name Field : Set As : $PurchaseOrderNo
    Local : Field : Simple Prompt : Info : "Purchase Order Date"
    Local : Field : Short Date Field : Set As : $OrderDate
    Space Top : 0.25
    Space Bottom : 0.25
    [Line : ADCNoDt]
    Fields : Short Prompt, Short Name Field
    Local : Field : Short Prompt : Info : "P.O Value "
    Local : Field : Short Name Field : Set As : $ShipDeliveryNote
    Local : Field : Short Name Field : Style : Normal Bold
    Space Top : 0.25
    Space Bottom : 0.25
    [Line : AThru]
    Fields : Simple Prompt, Simple Field
    Local : Field : Simple Prompt : Info : "Way Bill No."
    Local : Field : Simple Field : Set As: $ShipDocumentNo
    Local : Field : Simple Field : Style : Large Bold
    Space Top : 0.25
    Space Bottom : 0.25
    [Line : APymtTerms]
    Fields : Simple Prompt, Simple Field
    Local : Field : Simple Prompt : Info : "Salesman / BDO Name "
    Local : Field : Simple Field : Set As: $VCHsalesman
    Local : Field : Simple Field : Style : Large Bold
    Space Top : 0.25
    Space Bottom : 0.25
    ;;-------------------------------------------------------------- Altered Here ---------------------------------------------
    ;; Incase You want to print the MRP Value of the goods in this line
    ;;-------------------------------------------------------------------------------------------------------------------------
    [Line : AGTMrp]
    Fields : Simple Prompt, Simple Field
    Local : Field : Simple Prompt : Info : "Total MRP "
    Local : Field : Simple Field : Set As: "Rs. " + $$String:mad:@GTotalMRP + "/-" ;;($$CollectionField:$AMRP:StockItem:$StockItemName:1:LedgerEntries) * ($$CollectionField:$BilledQty:1:LedgerEntries)
    Local : Field : Simple Field : Style : Large Bold
    Space Top : 0.25
    Space Bottom : 0.25
    ;;-------------------------------------------------------------------------------------------------------------------------
    ;; Correction ends here
    ;;-------------------------------------------------------------------------------------------------------------------------



    [Part : AInvBody]
    Lines : AInvBody
    Common Border : Yes
    Sroll : Vertical
    Float : No
    Border : Thin Box
    [Line : AInvBody]
    Space Top : 0.25
    Space Bottom : 0.25
    Fields : AInvSNoT, AInvDescT
    Right Fields : AInvVATT, AInvactQtyT, AInvUnitT, AInvRateT, AInvValueT
    Local : Field : Default : Style : Small Serif
    Local : Field : Default : Align : Centre
    [Field : AInvSNoT]
    Info : "S No"
    Width : 4% Page

    [Field : AInvDescT]
    Info : "Description / Particulars"
    FullWidth : Yes
    Border : Thin Left

    [Field : AInvVATT]
    Info : "HSN Code"
    Width : 10% Page
    BOrder : Thin Left
    [Field : AInvactQtyT]
    Info : "Quantity"
    Border : Thin Left
    Width : 16% Page

    [Field : AInvUnitT]
    Info : "Unit"
    Border : Thin Left
    Width : 6% Page
    [Field : AInvRateT]
    Info : "Rate (Rs.)"
    Border : Thin Left
    Width : 12% Page

    [Field : AInvValueT]
    Info : "Amount (Rs.)"
    Border : Thin Left
    Width : 15% Page


    [Part : AInvDetails]
    Parts : AInvPart, AAccPart
    Vertical : Yes
    CommonBorder : Yes
    Scroll : Vertical
    Float : No
    Border : Thin Left Right
    [Part : AInvPart]
    Lines : AInvLines, AInvSubTot
    Repeat : AInvLines : Inventory Entries
    Totals : AInvactQty, AInvValue
    [Line : AInvLines]
    Fields : AInvSNo, AInvDesc
    Right Fields : AInvVAT, AInvactQty, AInvUnit, AInvRate, AInvValue
    Local : Field : Default : Style : Normal
    [Field : AInvSNo]
    Set As : $$Line
    Width : 4% Page

    [Field : AInvDesc]
    Set As : $StockItemName + "-- " + $UserDescription
    FullWidth : Yes
    Lines : 1
    Border : Thin Left

    [Field : AInvVAT]
    Use : Number Field
    Set As : $$GetGSTItemDetails
    Format : "NoZero, Percentage"
    Align : Centre
    Width : 10% Page
    Border : Thin Left
    [Field : AInvactQty]
    Use : Qty Primary Field
    Set As : $ActualQty
    Format : "NoSymbol"
    Align : Right
    Border : Thin Left
    Width : 16% Page

    [Field : AInvUnit]
    Use : Rate Units Field
    Set As : $Rate
    Align : Centre
    Border : Thin Left
    Width : 6% Page
    [Field : AInvRate]
    Use : Rate Price Field
    Set As : $Rate
    Border : Thin Left
    Width : 12% Page

    [Field : AInvValue]
    Use : Amount Field
    Set As : $Amount
    Border : Thin Left
    Width : 15% Page
    [Line : AInvSubTot]
    Fields : AAccSNo, AAccDesc
    Right Fields : AAccVAT, AAccactqty, AAccUnit, AAccRate, AInvSubTot
    Local : Field : AAccDesc : Set As : ""
    Space Top : 0.5
    Space Bottom : 2
    [Field : AInvSubTot]
    Use : AInvValue
    Set As : $$Total:AInvValue
    Style : Normal Bold
    Border : Thick Top

    [Part : AAccPart]
    Lines : AAccLines
    Repeat : AAccLines : Ledger Entries
    Total : AAccAmt
    [Line : AAccLines]
    Fields : AAccSNo, AAccDesc
    Right Fields : AAccVAT, AAccactQty, AAccUnit, AAccRate, AAccAmt
    [Field : AAccSNo]
    Use : AInvSNo
    Set As : ""

    [Field : AAccDesc]
    Set As : $LedgerName
    FullWidth : Yes
    Align : Right

    [Field : AAccVAT]
    Use : AInvVAT
    Set As : ""
    [Field : AAccactQty]
    Use : AInvactQty
    Set As : ""

    [Field : AAccUnit]
    Use : AInvUnit
    Set As : ""
    [Field : AAccRate]
    Use : AInvRate
    Type : Number
    Set As : $RateOfInvoiceTax
    Format : "NoZero, Percentage, Decimals:2"
    [Field : AAccAmt]
    Use : AInvValue
    Set As : $Amount



    [Part : AInvBott]
    Parts : AInvTotal,
    Vertical : Yes
    Border : Thin Box

    [Part : AInvTotal]
    Lines : AInvTotal, AInWordsT, AInWords
    [Line : AInvTotal]
    Fields : AAccSNo, AAccDesc
    Right Fields : AAccVAT, AAccactQty, AAccUnit, AAccRate, AInvTotal
    Local : Field : Default : Style : Normal Bold
    Local : Field : AAccSnO : Set As : "E.& O.E"
    Local : Field : AAccDesc : Set As : "Grand Total"
    Local : Field : AAccactQty : Set as : $$Total:AInvactQty
    Border : Thick Top Bottom
    Space Bottom : 0


    [Field : AInvTotal]
    Use : AInvValue
    Set As : #AInvSubTot + $$Total:AAccAmt
    [Line : AInWordsT]
    Fields : Info Field
    Local : Field : Info Field : Info : "Rupees in Words"
    Local : Field : Info Field : Style : Small Serif

    [Line : AInWords]
    Fields : Simple Field
    Local : Field : Simple Field : Set As : $$InWords:#AInvTotal + " Only"
    Local : Field : Simple Field : Style : Normal Bold
    Local : Field : Simple Field : FullWidth : Yes
    Local : Field : Simple Field : Lines : 0
    Space Top:0.6
    Space Bottom:0.4




    [Part : AInvTerms]
    Lines : ATerms, ATerm1, ATerm2, ATerm3, ATerm4
    Border : Thin Box
    [Line : ATerms]
    Fields : Info Field
    Right Field : Simple Field
    Space Top:0.6
    Space Bottom:0.4
    Local : Field : Info Field : Info : "Terms & Conditions:"
    Local : Field : Info Field : Style : Small Serif Bold
    Local : Field : Info Field : FullWidth : Yes
    Local : Field : Simple Field : Set As : "For " + @@CmpMailName
    Local : Field : Simple Field : Style : Normal Bold
    [Line : ATerm1]
    Fields : Info Field
    Local : Field : Info Field : Info : "1.Goods once sold will not be taken back."
    Local : Field : Info Field : Style : Small Serif
    Local : Field : Info Field : FullWidth : Yes
    [Line : ATerm2]
    Fields : Info Field
    Local : Field : Info Field : Info : "2.Interest @ 24% p.a. will be charged if the bill is not paid on due date."
    Local : Field : Info Field : Style : Small Serif
    Local : Field : Info Field : FullWidth : Yes
    [Line : ATerm3]
    Fields : Info Field
    Local : Field : Info Field : Info : "3.Cheque bounce charges will be Rs.300/- only."
    Local : Field : Info Field : Style : Small Serif
    Local : Field : Info Field : FullWidth : Yes
    [Line : ATerm4]
    Fields : Info Field, Simple Field
    Local : Field : Info Field : Info : "4.Subjected to Hyderabad Jurisdiction Only"
    Local : Field : Info Field : Style : Small Serif
    Local : Field : Info Field : FullWidth : Yes
    Local : Field : Simple Field : Set As : "Authorised Signatory"

    -----------:D:D

    thanks

    letter head size will be ------------ :D 19 x 4 centimeters or 8 x 1.5 inches

    letter head size will be ------------ :D 19 x 4 centimeters or 8 x 1.5 inches

    "zika jpg "attached for letterhead

    i want it to be displayed as "tollyrequired.jpg" ...... made for graphical demonstration


    thanks in advace to all the veiwers ...:D:D
     

    Attached Files:

    bikash agarwal, Mar 30, 2018
    #1


  2. anbhuselvan

    anbhuselvan Member


    issue list
     

    Attached Files:

    anbhuselvan, May 3, 2018
    #2


  3. HVPatel

    HVPatel Active Member


    for Header Image, you have to add Top Part as Graphic Part (see default example of how image part code done)
    for insert HSN code column in invoice, find out body party repeat line for inventory, and modify that repeat line add a new field.
    for GST summary you can use default part given in GST comprehensive invoice.
     
    HVPatel, May 5, 2018
    #3


Share This Page