Tdl Help

Discussion in 'Tally.ERP 9' started by PRAPTI, May 4, 2019.

    
  1. PRAPTI

    PRAPTI Member


    In the following tdl , I want to print narration but its not getting print , how to add narration to it??
    Code:
    [#Part: VTYP BehaviourMain]
    Option  : VTYP BehaveMain OTS VchTypeConfirm : @@IsOTSVchType
    [!Part : VTYP BehaveMain OTSVchTypeConfirm]
      Add   : Line  : After : VTYP PrintSave :VTYP OTS VchTypeConfirm
      
    [Line   : VTYP OTS VchTypeConfirm]
    Field  : Long Prompt, Logical Field
    Local  : Field : Long Prompt  : Set as  : "Print GST Format ?"
    Local  : Field : Long Prompt  : Width  : @@LongWidth
    Local  : Field : Logical Field : Storage  : OTSVchTypeConfirm1
    
    [System : Formula]
    IsOTSVchType   : $$IsSales:$Parent
    IsOTSNewAllow   : $OTSVchTypeConfirm1:VoucherType:$VoucherTypeName
    [System : UDF]
    OTSVchTypeConfirm1 : Logical  : 1781
    [#Form : Sales Color]
    Option: OTSSalesOTS Color: @@IsOTSNewAllow
    [!Form:OTSSalesOTS Color]
    Delete   : Print
    Add   : Print : STC GST INVOICE OTS
    [Report :STC GST INVOICE OTS]
    Use           : Printed Invoice
    Delete: Form        : Printed Invoice
    Form     : STC GST INVOICE OTS
    [Line:OTSBlog]
    Field: Name Field
    Local: Field: Name Field: Set as: "Follow us on :- VISHESH GYAN ON YOUTUBE "
    Local: Field: Name Field: Full Width: Yes
    Local: Field: Name Field: Align: Center
    Space Top: 1
    [Form:STC GST INVOICE OTS]
    Space Left: 0.50 Inch
    Space Bottom: 0.50 Inch
    Space Right: 0.50 Inch
    Space Top:0.50 Inch
    Part: OTS Opening Page Break, OTS Invoice Body
    Bottom Part:OTS GST analisys Bankdetails ledgerentries, OTSInvoiceAmtwordandamount, OTSSingnatureClosingBalanceTerms,OTSJuri;;OTS Invoice Total, OTS Sing Off, OTS Terms, OTS Age, OTS Juridiction
    Page Break : ClOTS Page Break, OTS Opening Page Break
    [Part:ClOTS Page Break]
    Lines  : GIOTS ClPgBrk
    
    [Line: GIOTS ClPgBrk]
      Fields  : Simple Field
      Local: Field: Simple Field : Set As : "Continued..."
      Local: Field: Simple Field : FullWidth : Yes
      Local: Field: Simple Field : Align  : Right
      Border  : Full Thin Top
    
    
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
    [Style: P9]
    Font: Calibri (Body)
    Height: 9
    [Style:P10]
    Font:Calibri (Body)
    Height:10
    
    [Style:P9B]
    Use:P9
    Bold : Yes
    [Style:P9Bold]
    Use: P9
    Bold: Yes
    [Style: Parth CMP Name]
    Font: Vivaldi
    Height:20
    Bold : Yes
    Italic:Yes
    
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    [Part: OTS Opening Page Break]
    Part: OTS Invoice Title, OTS CMP Details, OTS Leading Details, OTS Coloumn Titles
    Vertical: Yes
    [Part:OTS Invoice Title]
    Line:OTS Invoice Title
    [Line:OTS Invoice Title]
    Field: Simple Field,Simple Prompt
    Right Field:Name Field
    Local: Field: Simple Field: Set as: "TAX INVOICE"
    Local: Field: Simple Field: Style: Large Bold Italic
    Local: Field: Simple Field: Space Left: 38
    Local: Field: Simple Field: Full Width: Yes
    Local: Field: Name Field: Set as:If @@GetCopyNum = 1 Then "ORIGINAL FOR RECIPIENT" Else +
                If @@GetCopyNum = 2 Then $$LocaleString:"DUPLICATE FOR TRANSPOTER" Else +
                 If @@GetCopyNum = 3 Then $$LocaleString:"TRIPLICATE FOR SUPPLIER " Else +
                 If @@GetCopyNum = 4 Then $$LocaleString:"EXTRA COPY" Else $$LocaleString:"EXTRA COPY"
    
              ;;
    [Part:OTS CMP Details]
      Part: OTS CMP Name Details
    [Part: OTS CMP Name Details]
    Line: OTS CMP Name, OTS CMP Address, OTS CMP Contact Details
    [Line: OTS CMP Name]
    Field: Name Field
    Local: Field: Name Field: Set as: @@CmpMailName
    Local: Field: Name Field: Style:Parth CMP Name
    Local: Field: Name Field: Full Width: Yes
    [Line:OTS CMP Address]
    Field: Name Field
    Local: Field: Name Field: Set as: $$FullList:CompanyAddress:$Address
    Local: Field: Name Field: Full Width: Yes
    Local: Field: Name Field: Style:P9
    Local: Field: Name Field: Line:0
    [Line:OTS CMP Contact Details]
    Field: Medium Prompt, Simple Field, Simple Prompt, Name Field
    Local: Field: Medium Prompt: Set as: "Contact No"
    Local: Field: Medium Prompt: Style: P9B
    Local: Field: Simple Field: Style: P9
    Local: Field: Simple Field: Set as: $PhoneNumber:Company:##SVCurrentCompany +"  "+ $MobileNumbers:Company:##SVCurrentCompany
    [Part:OTS Leading Details]
    Left Part: OTS Customer Details
    Right Part: OTS Invoice Details
    Border: Thick Cover
    [Part:OTS Customer Details]
    Line:OTS Customer Details Title, OTS Customer Name, OTS Customer Address, OTS Customer State Name, OTS Customer GST No
    Width: 70% Page
    [Line:OTSProductdetails]
    Field: Name Field
    Local: Field: Name Field: Set as: "Tally Sales & Services, Customization,Integration, Web Developement, Customized Software, Android App Development"
    Local: Field: Name Field: Full Width: Yes
    Local: Field: Name Field: Align: Center
    Space Top: 1
    [Line:OTS Customer Details Title]
    Field: Simple Field
    Local: Field: Simple Field : Set as: "Details for Buyer (Billed & Shipped To )"
    Local: Field: Simple Field: Style:P9B
    Local: Field: Simple Field: Full Width: Yes
    [Line:OTS Customer Name]
    Field: Simple Field
    Local: Field: Simple Field: Set as: @@SimpleOtherPartyName
    Local: Field: Simple Field: Style: P9B
    Local: Field: Simple Field: Full Width: Yes
    Space Top:1
    [Line:OTS Customer Address]
    Field: Simple Field
    Local: Field: Simple Field: Set as: $$FullList:BasicBuyerAddress:$BasicBuyerAddress
    Local: Field: Simple Field: Style: P9
    Local: Field: Simple Field: Full Width: Yes
    Local: Field: Simple Field: Line:0
    [Line:OTS Customer State Name]
    Field: Simple Field
    Local: Field: Simple Field: Set as: "State Name"+"  :  "+ $StateName +"  "+ "Code :"+"  "+ $$getgststatecode:@StateName
    Local: Field: Simple Field: Local Formula:StateName : If NOT ($$IsEmpty:$StateName OR $$IsSysName:NotApplicable:$StateName) Then $StateName Else $LedStateName:Ledger:@PartyName
    Local: Field: Simple Field: Full Width: Yes
    Local: Field: Simple Field: Style: P9
    [Line:OTS Customer GST No]
    Field: Simple Field
    Local: Field: Simple Field: Set as: "GSTIN No : " +"  "+ $PartyGSTIN
    Local: Field: Simple Field: Full Width: Yes
    Local: Field: Simple Field: Style: P9
    [Part:OTS Invoice Details]
    Line: OTS Invoice No, OTS Invoice Date, OTS PO No
    Width: 30% Page
    Border: Thin Left
    [Line:OTS Invoice No]
    Field: Medium Prompt,Simple Field
    Local: Field: Medium Prompt: Set as: "Invoice No"
    Local: Field: Medium Prompt: Style: P9B
    Local: Field: Medium Prompt: Width: 15
    Local: Field: Simple Field: Set as: $VoucherNumber
    Local: Field: Simple Field: Style: P9
    Local: Field: Simple Field: Full Width: Yes
    Space Top:1
    [Line:OTS Invoice Date]
    Field: Medium Prompt, Simple Field
    Local: Field: Medium Prompt: Set as: "Dated"
    Local: Field: Medium Prompt: Style: P9B
    Local: Field: Medium Prompt: Width: 15
    Local: Field: Simple Field: Set as: $Date
    Local: Field: Simple Field: Style: P9
    Local: Field: Simple Field: Full Width: Yes
     
    [Line:OTS PO No]
    Field: Medium Prompt, Simple Field
    Local: Field: Medium Prompt: Set as: "Vechile No. : "
    Local: Field: Medium Prompt: Style: P9B
    Local: Field: Simple Field: Set as:@@EIBasicShippedBy
    Local: Field: Medium Prompt: Width: 15
    Local: Field: Simple Field: Style: P9
    Local: Field: Simple Field: Full Width: Yes
     
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    [Part:OTS Coloumn Titles]
    Line:OTS Invoice Body Title,OTS Invoice Body Title1
    Border: Thick Cover
    Common Border: Yes
    
    [Part: OTS Invoice Body]
    Part:OTS Invoice Body Coloumns
    Vertical: Yes
    Border: Thin Cover
    [Part:OTS Invoice Body Title]
    Line:OTS Invoice Body Title,OTS Invoice Body Title1
    Common Border: Yes
    [Line:OTS Invoice Body Title]
    Use: OTS Invoice Body Coloumns
    Local: Field: Default: Type: String
    Local: Field: Default: Style: P9B
    Local: Field: Default: Align: Center
    Local: Field:OTS SrNo: Set as: "Sr "
    Local: Field:OTS Item Description: Set as: "Item"
    
    Local: Field:OTS HSN Code: Set as: "HSN "
    
    Local: Field:OTS Billed Qty: Set as: "Billed"
    Local: Field: OTS Rate: Set as: "Rate"
    Local: Field:OTS Discount: Set as: "Dis"
    Local: Field:OTS Gross Amt: Set as: "Gross"
    Local: Field:OTS GST Per: Set as: "GST"
    Local: Field:OTS CGST Rate: Set as: "CGST"
    Local: Field: OTS CGST Amt: Set as: "CGST"
    Local: Field:OTS SGST Rate: Set as: "SGST"
    Local: Field:OTS SGST Amt: Set as: "SGST "
    Local: Field:OTS IGST Rate: Set as: "IGST"
    Local: Field:OTS IGST Amount: Set as: "IGST"
    Local: Field:OTS Item Total: Set as: "Total"
    Border: Thin Top
    Space Top: 0.25
    [Line:OTS Invoice Body Title1]
    Use: OTS Invoice Body Coloumns
    Local: Field: Default: Type: String
    Local: Field: Default: Style: P9B
    Local: Field: Default: Align: Center
    Local: Field:OTS SrNo: Set as: "No"
    Local: Field:OTS Item Description: Set as: "Description"
    Local: Field:OTS HSN Code: Set as: "Code"
    Local: Field:OTS Billed Qty: Set as: "Qty"
    Local: Field: OTS Rate: Set as: ""
    Local: Field:OTS Discount: Set as: "%"
    Local: Field:OTS Gross Amt: Set as: "Amount"
    Local: Field:OTS GST Per: Set as: "%"
    Local: Field:OTS CGST Rate: Set as: "%"
    Local: Field: OTS CGST Amt: Set as: "Amt"
    Local: Field:OTS SGST Rate: Set as: "%"
    Local: Field:OTS SGST Amt: Set as: "Amt"
    Local: Field:OTS IGST Rate: Set as: "%"
    Local: Field:OTS IGST Amount: Set as: "Amt"
    Local: Field:OTS Item Total: Set as: ""
    Border: Thin Bottom
    Space Bottom: 0.25
    [Part:OTS Invoice Body Coloumns]
    Line:OTS Invoice Body Coloumns
    Repeat:OTS Invoice Body Coloumns:Inventory Entries
    Scroll: Vertical
    Float: No
    Common Border: Yes
    [Line:OTS Invoice Body Coloumns]
    Left Field: OTS SrNo, OTS Item Description
    Right Field: OTS HSN Code,OTS Billed Qty, OTS Rate, OTS Discount, OTS Gross Amt, OTS GST Per,OTS CGST Rate, OTS CGST Amt, OTS SGST Rate, OTS SGST Amt,OTS IGST Rate, OTS IGST Amount, OTS Item Total
    Space Top: 0.15
    Explode     : EI DescExplosion       : NOT $$IsEmpty:$StockItemName AND ##PRNWithItemDesc AND NOT $$IsEmpty:$BasicUserDescription
    Local: Field:OTS SrNo: Width: 3
    Local: Field:OTS HSN Code: Width: 7
    
    Local: Field:OTS Billed Qty: Width: 7
    Local: Field: OTS Rate: Width: 7
    Local: Field:OTS Discount: Width: 3
    Local: Field:OTS Gross Amt: Width: 7
    Local: Field:OTS GST Per: Width: 3
    Local: Field:OTS CGST Rate: Width: 3
    Local: Field: OTS CGST Amt: Width: 7
    Local: Field:OTS SGST Rate: Width: 3
    Local: Field:OTS SGST Amt: Width: 7
    Local: Field:OTS IGST Rate: Width:3
    Local: Field:OTS IGST Amount: Width:7
    Local: Field:OTS Item Total: Width: 8
    Local: Field:OTS SrNo: Border: Thin Right
    Local: Field:OTS Part No: Border: Thin Left
    Local: Field:OTS HSN Code: Border: Thin Left
    Local: Field:OTS MRP Qty: Border: Thin Left
    Local: Field:OTS Shipped:Border: Thin Left
    Local: Field:OTS Billed Qty: Border: Thin Left
    Local: Field: OTS Rate: Border: Thin Left
    Local: Field:OTS Discount: Border: Thin Left
    Local: Field:OTS Gross Amt: Border: Thin Left
    Local: Field:OTS GST Per: Border: Thin Left
    Local: Field:OTS CGST Rate: Border: Thin Left
    Local: Field: OTS CGST Amt: Border: Thin Left
    Local: Field:OTS SGST Rate: Border: Thin Left
    Local: Field:OTS SGST Amt: Border: Thin Left
    Local: Field:OTS IGST Rate: Border: Thin Left
    Local: Field:OTS IGST Amount: Border: Thin Left
    Local: Field:OTS Item Total: Border: Thin Left
    
    [Field: OTS Sr NO]
    Use: Simple Field
    Set as: $$Line
    Format: "No Zero"
    Style:P9
    Align: Center
    [Field:OTS Item Description]
    Use: Simple Field
    Set as: if NOT $$IsSysName:$StockItemName then @@InvItemName else ""
    Style: P9
    Full Width: Yes
    ;Line:0
    
    [Field:OTS HSN Code]
    Use: Simple Field
    Set as: $GSTItemHSNCodeEx
    Style:P9
    [Field:OTS Billed Qty]
    Use: Qty Primary Field
    Set as: $BilledQty
    Style:P9
    [Field:OTS Rate]
    Use:  Rate Price Field
    Set as: $Rate
    Style:P9
    [Field:OTS Discount]
    Use: Number Field
    Set as: ""
    Set as: $Discount
    Format      : "NoZero,Percentage"
    Style:P9
    [Field:OTS Gross Amt]
    Use:Amount Forex Field
    Set as: $Amount
    Style:P9
    [Field:OTS GST Per]
    Use: Number Field
    Set as: If NOT $GSTIsTransLedEx Then "" Else $GSTClsfnIGSTRateEx
    Format      : "NoZero,Percentage"
    Set Always: Yes
    Style:P9
    
    [Field:OTS CGST Rate]
    Use: Number Field
    Set as: If NOT $GSTIsTransLedEx Then "" Else $GSTClsfnIGSTRateEx /2
    Format      : "NoZero,Percentage"
    Set Always: Yes
    Style:P9
    Invisible: If @@IGST > 0 then yes else no
    
    [Field:OTS CGST Amt]
    Use: Amount Field
    Set as: $Amount * #OTSCGSTRate / 100
    Style:P9
    Set Always: Yes
    Invisible: If @@IGST > 0 then yes else no
    [Field:OTS SGST Rate]
    Use: Number Field
    Set as: If NOT $GSTIsTransLedEx Then "" Else $GSTClsfnIGSTRateEx /2
    Format      : "NoZero,Percentage"
    Set Always: Yes
    Style:P9
    Invisible: If @@IGST > 0 then yes else no
    [Field:OTS SGST Amt]
    Use: Amount Field
    Set as: $Amount * #OTSSGSTRate / 100
    Style:P9
    Set Always: Yes
    Invisible: If @@IGST > 0 then yes else no
    [Field:OTS IGST Rate]
    Use: Number Field
    Set as: If NOT $GSTIsTransLedEx Then "" Else $GSTClsfnIGSTRateEx
    Format      : "NoZero,Percentage"
    Set Always: Yes
    Style:P9
    Invisible: If @@SGST > 0 then yes else no
    [Field:OTS IGST Amount]
    Use: Amount Field
    Set as: $Amount * #OTSIGSTRate / 100
    Style:P9
    Set Always: Yes
    Invisible: If @@SGST > 0 then Yes else no
    [Field:OTS Item Total]
    Use: Amount Field
    Set as: #OTSGrossAmt + #OTSCGSTAmt + #OTSSGSTAmt
    Set Always: Yes
    Style:P9
    [Line:OTS Invoice Body Coloumns Total]
    Use: OTS Invoice Body Coloumns
    Local: Field: Default: Type: String
    Local: Field: Default: Style: P9B
    Local: Field: Default: Align: Center
    Local: Field:OTS SrNo: Set as: ""
    Local: Field:OTS Item Description: Set as: "TOTAL"
    Local: Field:OTS HSN Code: Set as: ""
    Local: Field:OTS MRP Qty: Set as: ""
    Local: Field:OTS Billed Qty: Set as: ""
    Local: Field: OTS Rate: Set as: ""
    Local: Field:OTS Discount: Set as: ""
    Local: Field:OTS Gross Amt: Set as: $$CollAmtTotal:InventoryEntries:$Amount
    Local: Field:OTS GST Per: Set as: ""
    Local: Field:OTS CGST Rate: Set as: ""
    Local: Field: OTS CGST Amt: Set as: $$FilterAmtTotal:LedgerEntries:CGST1:$Amount
    Local: Field:OTS SGST Rate: Set as: ""
    Local: Field:OTS SGST Amt: Set as: $$FilterAmtTotal:LedgerEntries:SGST1:$Amount
    Local: Field:OTS Item Total: Set as: $Amount
    Border: Thin Top Bottom
    Space Bottom: 0.25
    Space Top: 0.25
    
    [System: Formula]
    SGST        :$$FilterAmtTotal:LedgerEntries:SGST1:$Amount
    SGST1        :$Name:Ledger:$LedgerName Contains $$LocaleString:"SGST"
    CGST        :$$FilterAmtTotal:LedgerEntries:CGST1:$Amount
    CGST1        :$Name:Ledger:$LedgerName Contains $$LocaleString:"CGST"
    IGST        :$$FilterAmtTotal:LedgerEntries:IGST1:$Amount
    IGST1        :$Name:Ledger:$LedgerName Contains $$LocaleString:"IGST"
    Round        :$$FilterAmtTotal:LedgerEntries:Round1:$Amount
    Round1        :$Name:Ledger:$LedgerName Contains $$LocaleString:"Round"
    [Part:OTS GST analisys Bankdetails ledgerentries]
    Left Part:VCH GST AnalysisDetails
    Right Part: OTSBankDetails, OTSLedgerEnteries
    Border: Thick Cover
    Common Border:Yes
    
    [#Part:VCH GST AnalysisDetails]
    Delete:Border   : Thin Box
    [#Part:VCH GST AnalysisDetails]
    Width:50% Page
    [Part:OTSBankDetails]
    Use:EXPINV BankDetails
    Border: Thick Left
    [#Line: EXPINV BankTitle]
                 
                        Fields      : Simple Field
                        Local       : Field : Simple Field    : Set as    : $$LocaleString:"Company's Bank Details"                           ;;; To Display Company's Bank Details
                        Local       : Field : Simple Field     : Full Width: Yes
         Local       : Field : Simple Field     : Style:P9B
         Space Top:0.5
         Space Bottom:0.25
        
    [#Line: EXPINV BankName]
    
                        Fields      : Medium Prompt, EXPINV BankName
                        Local       : Field : Medium Prompt     : Set as  : $$LocaleString:"Bank Name :"                                      ;;; To Display Bank Name
                        Local       : Field : Medium Prompt     : Width     : 18% Page
         Local  : Field : Medium Prompt  : Style:P9B
         Local  : Field:EXPINV BankName:Style:P9
    
                    [#Line: EXPINV BankAccNo]
    
                        Fields      : Medium Prompt, EXPINV BankAccountNo
                        Local       : Field : Medium Prompt    : Set as    : $$LocaleString:"A/c No. :"                                        ;;; To Display A/c No.
                        Local       : Field : Medium Prompt     : Width     : 18% Page
         Local  : Field : Medium Prompt  : Style:P9B
         Local  : Field:EXPINV BankAccountNo:Style:P9
    
        [#Line: EXPINV BankBranchInfo]
    
                        Fields      : Medium Prompt, EXPINV BankBranchName
                        Local       : Field : Medium Prompt    : Set as    : $$LocaleString:"Branch & IFS Code :"                              ;;; To Display Branch & IFS Code
                        Local       : Field : Medium Prompt     : Width     : 18% Page
         Local  : Field : Medium Prompt  : Style:P9B
         Local  : Field:EXPINV BankBranchName:Style:P9
    
    
    [Part:OTSLedgerEnteries]
    Line:OTSLedgerEnteries
    Repeat:OTSLedgerEnteries:Ledger Entries
    Border: Thick Left
    Common Border: Yes
    ;Scroll: Vertical
    Float: No
    [Line:OTSLedgerEnteries]
    Field: OTSLedgerName, OTSLedgerPercentage,OTSPercentageSing, OTSLedgerAmount
    Remove if: $LedgerName = $PartyLedgerName
    [Field:OTSLedgerName]
      Set as  : if ##SATCSDetails AND @@TaxLedgerHasTCS then $$LocaleString:"TCS : Income Tax" else +
             if NOT $$IsSysName:$LedgerName then $LedgerName else ""  ;;; used to print on invoice
       
            Style:P9B
            Align       : Right
            FullWidth   : Yes
      AbatementVal: If $$Number:$STXAbatementRate = 0 Then $$String:"0" Else $$String:$STXAbatementRate
      LedNarr  : (@@IsSales AND ##SALedgerNarr) OR (@@IsPurchase AND ##PULedgerNarr) AND $$Filtercount:LedgerEntries:LedgerNarrFltr > 0
      Option  : LeftAlignField : @@AcctsInvoice
      Width:8.7
    
    [Field:OTSLedgerPercentage]
    Use         : Rate Price Field
        Type        : Number
        Align       : Right
        Format      : "NoZero,Decimals:-1"
        Style:P9
    Set as      : if ##SATCSDetails AND @@TaxLedgerHasTCS AND NOT $$IsSysName:$TDSRateName:Ledger:$LedgerName then @@TCSITTaxRate else +
          $BasicRateOfInvoiceTax
        Inactive    : $$IsSysName:$LedgerName
        Invisible   : NOT @@InvWithRate
    Border: Thick Left
    Width: 4
    
    [Field:OTSPercentageSing]
    Set as:if $$IsEmpty:$BasicRateOfInvoiceTax then "" else "%"
    Set By Condition : @@TaxLedgerHasTCS AND NOT ($$IsSysName:$TDSRateName:Ledger:$LedgerName) : If $$IsEmpty:@@TCSITTaxRate Then "" Else "%"
        Inactive    : $$IsSysName:$LedgerName
        Invisible   : NOT @@InvWithRate
    Width: 2
    Style:P9
    
    [Field:OTSLedgerAmount]
    Use         : Amount Forex Field 
    Set as      : $$SignedAmount:$Amount:@@VchOpposite
    Border: Thick Left
    Align: Right
    Width: 8
    Style:P9
    [Part:OTSInvoiceAmtwordandamount]
    Left Part: OTSAmountinWord
    Right Part:OTSInvoiceAmount
    Border: Thick Cover
    Common Border: Yes
    [Part:OTSAmountinWord]
    Line:OTSAmountinWord
    [Line:OTSAmountinWord]
    Field: Medium Prompt, Name Field
    Local: Field: Medium Prompt: Set as: "Amount In Words"
    Local: Field: Medium Prompt:Style:P9B
    Local: Field: Name Field: Set as:$$InWords:$Amount +"  "+ "Only."
    Local: Field: Name Field: Full Width: Yes
    Local: Field: Name Field: Line:0
    Local: Field: Name Field:Style:P9
    Space Top:0.25
    Space Bottom:0.25
    
    [Part:OTSInvoiceAmount]
    Line:OTSInvoiceAmount
    [Line:OTSInvoiceAmount]
    Field: Name Field, Amount Field
    Local: Field: Name Field: Set as: "Invoice Total"
    Local: Field: Name Field: Border: Thick Left
    Local: Field: Name Field: Width:26.5
    Local: Field: Name Field: Align: Right
    Local: Field: Name Field: Style:P9B
    Local: Field: Amount Field: Set as: $Amount
    Local: Field: Amount Field: Width:8
    Local: Field: Amount Field: Border: Thick Left
    Local: Field: Amount Field: Style:P9B
    Space Top:0.25
    Space Bottom:0.25
    [Part:OTSSingnatureClosingBalanceTerms]
    Left Part: OTSTermsandClosing
    Right Part: OTSCustomer Signature, OTSSignature
    Border:Thick Box
    [Part:OTSTermsandClosing]
    Part: OTSTermsPart
    Vertical:Yes
    Width:50% Page
    [Part:OTSTermsPart]
    Line:OTSTermsPart
    Border: Thick Bottom
    [Line:OTSTermsPart]
    Field: Name Field
    Local: Field: Name Field:Set as: "GOODS ONCE SOLD WILL NOT BE TAKEN BACK OR EXCHANGED"
    Local: Field: Name Field: Style: P9
    Local: Field: Name Field: Align: Center
    Local: Field: Name Field: Full Width: Yes
     
    [Part:OTSCustomer Signature]
    Line: For OTSCustomer Signature, OTSAcceptance
    Border: Thick Left
    [Line:For OTSCustomer Signature]
    Field: Name Field
    Local: Field: Name Field: Set as: "For"+" "+@@SimpleOtherPartyName
    Local: Field: Name Field: Full Width: Yes
    Local: Field: Name Field: Style: P9B
    Local: Field: Name Field: Align: Center
    Space Top:0.5
    [Line:OTSAcceptance]
    Field: Name Field
    Local: Field: Name Field: Set as: "I received goods in good condition and I have read the terms & condition. I agree with it."
    Local: Field: Name Field: Full Width: Yes
    Local: Field: Name Field: Style: P9
    Local: Field: Name Field: Line:0
    Space Top:3
    
    [Part:OTSSignature]
    Line: ForOTSSignature, OTSAuthorised
    Border: Thick Left
    Width:36.5
    [Line:ForOTSSignature]
    Field: Name Field
    Local: Field: Name Field: Set as: "For"+" "+@@CmpMailName
    Local: Field: Name Field: Full Width: Yes
    Local: Field: Name Field: Style: P9B
    Local: Field: Name Field: Align: Center
    Space Top:0.5
    [Line:OTSAuthorised]
    Field: Name Field
    Local: Field: Name Field: Set as: "Proprietor/Manager"
    Local: Field: Name Field: Full Width: Yes
    Local: Field: Name Field: Style: P9B
    Local: Field: Name Field: Align: Center
    Space Top:3
    [Part:OTSJuri]
    Line:OTS Juridiction
    [Line:OTS Juridiction]
    Field: Name Field
    Local: Field: Name Field: Full Width: Yes
    Local: Field: Name Field: Set as: "SUBJECT TO BAREILLY JURISDICTION"
    Local: Field: Name Field: Align: Center
     


  2. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Define your field for narration........

    there is no field for narration.............
     


  3. PRAPTI

    PRAPTI Member


    How??And I want it in the blank space on the left bottom.
     


  4. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    You must observe and learn from the code.....

    Add your field at the position that you want..... and in that field ....... Set As : $Narration
     


  5. Murali.R

    Murali.R Member


    Mr.PRAPTI
    your code is ready

    [#Form : Sales Color]
    Delete : Print
    Add : Print : nInvA
    [#Form : Credit Note Color]
    Delete : Print
    Add : Print : nInvA

    [Report :nInvA]
    Use : Printed Invoice
    Delete: Form : Printed Invoice
    Form : nInvA

    [Form:nInvA]
    Width : 8.27 INCH
    Height : 11.69 INCH
    Space Top: 0.50 INCH
    Space Bottom: 0.50 INCH
    Space Left: 0.50 INCH
    Space Right: 0.50 INCH

    Part: KA Opening Page Break, KA Invoice Body
    Bottom Part: nGSTanalisysBankdetailsledgerentries,MyNarrationPart,KA Invoice Total, KA Goods Sold
    Page Break : ClKA Page Break, KA Opening Page Break

    [Part:ClKA Page Break]
    Lines : GIKA ClPgBrk
    [Line: GIKA ClPgBrk]
    Fields : Simple Field
    Local: Field: Simple Field : Set As : "Continued..."
    Local: Field: Simple Field : FullWidth : Yes
    Local: Field: Simple Field : Align : Right
    Border : Full Thin Top
    [Part: KA Opening Page Break]
    Part: KA Invoice Title, KA CMP Details, KA Coloumn Titles
    Vertical: Yes

    [Part:KA Invoice Title]
    Line:KA Invoice Title

    [Line:KA Invoice Title]
    Field: Simple Field
    Right Field:Name Field
    Local: Field: Simple Field: Set as: if @@IsCreditNote then "Credit Note" else "TAX INVOICE"
    Local: Field: Simple Field: Style: Large Bold
    Local: Field: Simple Field: Space Left: 35
    Local: Field: Simple Field: Full Width: Yes
    Local: Field: Name Field: Set as:If @@GetCopyNum = 1 Then "ORIGINAL FOR RECIPIENT" Else +
    If @@GetCopyNum = 2 Then $$LocaleString:"DUPLICATE FOR SUPPLIER" Else +
    If @@GetCopyNum = 3 Then $$LocaleString:"TRIPLICATE FOR TRANSPOTER" Else +
    If @@GetCopyNum = 4 Then $$LocaleString:"EXTRA COPY" Else $$LocaleString:"EXTRA COPY"

    [Part:KA CMP Details]
    Left Part: DMICash CMP Name Details,KA Customer Details
    Border: Thick Cover
    Height: 45 mms
    [Part:DMICash CMP Name Details]
    Line: KA CMP Name, KA CMP Address,KA Invoice No, KA Invoice Date, KA Invoice ShippedBy
    Width: 50% Page
    Border: Thick Right


    [Line: KA CMP Name]
    Field: Name Field
    Local: Field: Name Field: Set as: @@CmpMailName
    Local: Field: Name Field: Style:parth CMP Name Cash
    Local: Field: Name Field: Full Width: Yes

    [Style: Parth CMP Name Cash]
    Font: Adobe Garamond Pro Bold
    Height:20
    Bold: Yes

    [Line:KA CMP Address]
    Field: Name Field
    Local: Field: Name Field: Set as: $$FullList:CompanyAddress:$Address
    Local: Field: Name Field: Full Width: Yes
    Local: Field: Name Field: Line:0
    Local: Field: Name Field: Style:p9
    Local: Field: Name Field: Border: Thick Bottom
    Space Bottom:0.50
    [Line:KA Invoice No]
    Field: Medium Prompt,Simple Field
    Local: Field: Medium Prompt: Set as: if @@IsCreditNote then "Cr.Note No :" else "Invoice No :"
    Local: Field: Medium Prompt: Style: P9B
    Local: Field: Medium Prompt: Width: 15
    Local: Field: Simple Field: Set as: $VoucherNumber
    Local: Field: Simple Field: Style: P9
    Local: Field: Simple Field: Full Width: Yes
    Space Top:0.10
    Space Bottom:0.25

    [Line:KA Invoice Date]
    Field: Medium Prompt, Simple Field
    Local: Field: Medium Prompt: Set as: "Dated"
    Local: Field: Medium Prompt: Style: P9B
    Local: Field: Medium Prompt: Width: 15
    Local: Field: Simple Field: Set as: $Date
    Local: Field: Simple Field: Style: P9
    Local: Field: Simple Field: Full Width: Yes
    Space Bottom:0.25

    [Line:KA Invoice ShippedBy]
    Field: Medium Prompt, Simple Field
    Local: Field: Medium Prompt: Set as: "Transport By :"
    Local: Field: Medium Prompt: Style: P9B
    Local: Field: Medium Prompt: Width: 15
    Local: Field: Simple Field: Set as: $BasicShippedBy
    Local: Field: Simple Field: Style: P9
    Local: Field: Simple Field: Full Width: Yes


    [Part:KA Customer Details]
    Line:KA Customer Details Title, KA Customer Name, KA Customer Address, KA Customer State Name, KA Customer GST No, KA Customer Contact
    Width: 50% Page
    Border: Thick Right

    [Line:KA Customer Details Title]
    Field: Simple Field
    Local: Field: Simple Field : Set as: "Details for Buyer (Billed & Shipped To )"
    Local: Field: Simple Field: Style:p9B
    Local: Field: Simple Field: Full Width: Yes
    Local: Field: Simple Field: Border: Thick Bottom
    Space Top:0.25
    Space Bottom:0.25

    [Line:KA Customer Name]
    Field: Simple Field
    Local: Field: Simple Field: Set as: @@SimpleOtherPartyName
    Local: Field: Simple Field: Style: P9B
    Local: Field: Simple Field: Full Width: Yes
    Space Top:0.25

    [Line:KA Customer Address]
    Field: Simple Field
    Local: Field: Simple Field: Set as: $$FullList:BasicBuyerAddress:$BasicBuyerAddress
    Local: Field: Simple Field: Style: P9
    Local: Field: Simple Field: Full Width: Yes
    Local: Field: Simple Field: Line:0

    [Line:KA Customer State Name]
    Field: Simple Field
    Local: Field: Simple Field: Set as: "State Name"+" : "+ $StateName +" "+ "Code :"+" "+ $$getgststatecode:mad:StateName
    Local: Field: Simple Field: Local Formula:StateName : If NOT ($$IsEmpty:$StateName OR $$IsSysName:NotApplicable:$StateName) Then $StateName Else $LedStateName:Ledger:mad:PartyName
    Local: Field: Simple Field: Full Width: Yes
    Local: Field: Simple Field: Style: P9

    [Line:KA Customer GST No]
    Field: Simple Field
    Local: Field: Simple Field: Set as: "GSTIN No : " +" "+ $PartyGSTIN +" "+" PAN No :"+" "+$IncomeTaxNumber:Ledger:$BasicBuyerName
    Local: Field: Simple Field: Full Width: Yes
    Local: Field: Simple Field: Style: P9

    [Line:KA Customer Contact]
    Field: Simple Field
    Local: Field: Simple Field: Set as: "Contact Details :"+" "+ @@VchContactNo
    Local: Field: Simple Field: Style: P9
    Local: Field: Simple Field: Full Width: Yes

    [Part:KA Coloumn Titles]
    Line:KA Invoice Body Title
    Border: Thick Cover
    Common Border: Yes
    [Part: KA Invoice Body]
    Part:KA Invoice Body Coloumns
    Vertical: Yes
    Border: Thin Cover

    [Part:KA Invoice Body Title]
    Line:KA Invoice Body Title
    Common Border: Yes

    [Line:KA Invoice Body Title]
    Use: KA Invoice Body Coloumns

    Local: Field: Default: Type: String
    Local: Field: Default: Style: P9B
    Local: Field: Default: Align: Center

    Local: Field:KA SrNo: Set as: "Sr "
    Local: Field:KA Item Description: Set as: "Item"

    Local: Field:KA Billed Qty: Set as: "Billed Qty"
    Local: Field: KA Rate: Set as: "Rate"
    Local: Field:KA Gross Amt: Set as: "Amount"

    Border: Thin Top
    Space Top: 0.25

    [Part:KA Invoice Body Coloumns]
    Line:KA Invoice Body Coloumns
    Repeat:KA Invoice Body Coloumns:Inventory Entries
    ; Bottom Line: KA Invoice Body Coloumns Total
    Scroll: Vertical
    Float: No
    Common Border: Yes

    [Line:KA Invoice Body Coloumns]
    Left Field: KA SrNo, KA Item Description,
    Right Field: KA Billed Qty, KA Rate, KA Gross Amt
    Space Top: 0.25

    Local: Field:KA SrNo: Width: 2
    Local: Field:KA Item Description: Width:30
    Local: Field:KA Billed Qty: Width: 15
    Local: Field: KA Rate: Width: 15
    Local: Field:KA Gross Amt: Width: 10.3

    Local: Field:KA SrNo: Border: Thin Right

    Local: Field:KA Billed Qty: Border: Thin Left
    Local: Field: KA Rate: Border: Thin Left
    Local: Field:KA Gross Amt: Border: Thin Left

    [Field: KA Sr NO]
    Use: Simple Field
    Set as: $$Line
    Format: "No Zero"
    Style:p9
    Align: Center

    [Field:KA Item Description]
    Use: Simple Field
    Set as: $StockItemName
    Style: P9
    ; Full Width: Yes
    Line:1
    [Field:KA Billed Qty]
    Use: Qty Primary Field
    Set as: $BilledQty
    Style:p9

    [Field:KA Rate]
    Use: Rate Price Field
    Set as: $Rate
    Style:p9

    [Field:KA Gross Amt]
    Use:Amount Forex Field
    Set as: $Amount
    Style:p9
    [Part:nGSTanalisysBankdetailsledgerentries]
    Left Part:VCH GST AnalysisDetails
    Border: Thick Cover
    Common Border:Yes
    [Part:MyNarrationPart]
    Lines : VCH SingleNarr
    Local : Style : Default : Height : @@SmallSize
    [#Line: VCH SingleNarr]
    Border: Thin Top Leftright
    Local : Field : VCH Narration : Lines : 2

    [Part:KA Invoice Total]
    Right Part: KA Ledger Entries
    Left Part: KA Invoice Sing Off
    Border: Thick Box

    [Part:KA Ledger Entries]
    Line:nGrossTotal,KA Ledger Entries
    Repeat:KA Ledger Entries:Ledger Entries
    Float: No
    Common Border: Yes
    Bottom Line: KA Invoice Total

    [Style:nStyleGross]
    Font:"Calibri"
    Height:10
    Bold:Yes
    [Line:nGrossTotal]
    Field: nGrossTotalTitle, nGrossTotalAmt
    Border: thick Bottom
    Height:5 mms
    [Field:nGrossTotalTitle]
    Use: Simple Field
    Set as:"GROSS TOTAL"
    Style: nStyleGross
    Width:20.7
    ;Border: Thick Bottom

    [Field:nGrossTotalAmt]
    Use: Amount Field
    Set as: $$CollAmtTotal:InventoryEntries:$Amount
    Style: nStyleGross
    Width:10
    Border: Thin Left

    [Line: KA Ledger Entries]
    Remove if : $LedgerName = $PartyLedgerName
    Field: KA Ledger Name, KA Ledger Amount
    Space Top: 0.5
    Border: Thin Bottom

    [Field: KA Ledger Name]
    Use: Simple Field
    Set as: $LedgerName
    Style:p9B
    Width: 20.7
    Border: Thin Left

    [Field:KA Ledger Amount]
    Use: Amount Field
    Set as: $Amount
    Style:p9B
    Width: 10
    Border: Thin Left
    Align: Right
    [Line:KA Invoice Total]
    Field: KA Invoice Total Title, KA Invoice Total Amt
    Space Bottom:0.25

    [Field:KA Invoice Total Title]
    Use: Simple Field
    Set as:"INVOICE TOTAL"
    Style: Large Bold
    Width:20.7

    [Field:KA Invoice Total Amt]
    Use: Amount Field
    Set as: $Amount
    Style: Large Bold
    Width:10
    Border: Thin Left
    [Part:KA Invoice Sing Off]
    Part: KA Amount In Word and Declaration, KA Invoice Sing Off Part
    Vertical: Yes

    [Part:KA Amount In Word and Declaration]
    Line: KA Amount In Word

    [Line:KA Amount In Word]
    Field: Simple Field
    Local: Field: Simple Field: Set as: "AMOUNT IN WORDS :" +" "+ $$InWords:$Amount
    Local: Field: Simple Field: Full Width: Yes
    Local: Field: Simple Field: Style: P9B
    Local: Field: Simple Field: Line:0

    [Part:KA Invoice Sing Off Part]
    Left Part: nBankDetails
    Right Part: For KA
    Border: thick Top
    [Part:nBankDetails]
    Line:nInvBankNameLine,nInvBranchLine,nInvACNoLine,nInvIFSCLine
    [Line: nInvBankNameLine]

    Fields : Medium Prompt,Name Field
    Local : Field : Medium Prompt : Set as : $$LocaleString:"Bank Name :"
    Local : Field : Medium Prompt : Style:p9B
    Local : Field : Medium Prompt : Width : 30 mms
    Local : Field : Name Field :Set as: "ABC BANK"
    Local : Field : Name Field :Style:p9
    Local : Field : Name Field :Align:Left
    Local : Field : Name Field : Width : 50 mms
    Space Top:0.50
    ;Space Bottom:0.25

    [Line: nInvBranchLine]
    Space Top:0.25
    ;Space Bottom:0.25
    Fields : Medium Prompt,Name Field
    Local : Field : Medium Prompt : Set as : $$LocaleString:"Branch Name :" ;;; To Display Bank Name
    Local : Field : Medium Prompt : Width :30 mms; 18% Page
    Local : Field : Medium Prompt : Style:p9B
    Local : Field : Name Field :Set as: "ABC BRANCH"
    Local : Field : Name Field :Style:p9
    Local : Field : Name Field :Align:Left
    Local : Field : Name Field : Width :50 mms

    [Line: nInvACNoLine]
    Space Top:0.25
    ;Space Bottom:0.25
    Fields : Medium Prompt,Name Field
    Local : Field : Medium Prompt : Set as : $$LocaleString:"A/c No. :" ;;; To Display A/c No.
    Local : Field : Medium Prompt : Width : 30 mms
    Local : Field : Medium Prompt : Style:p9B
    Local : Field : Name Field :Set as: "123456789"
    Local : Field : Name Field :Style:p9
    Local : Field : Name Field :Align:Left
    Local : Field : Name Field : Width : 50 mms

    [Line: nInvIFSCLine]
    Space Top:0.25
    ;Space Bottom:0.25
    Fields : Medium Prompt,Name Field
    Local : Field : Medium Prompt : Set as : $$LocaleString:"IFS Code :" ;;; To Display Branch & IFS Code
    Local : Field : Medium Prompt : Width : 30 mms
    Local : Field : Medium Prompt : Style:p9B
    Local : Field : Name Field :Set as: "ABC123456"
    Local : Field : Name Field :Style:p9
    Local : Field : Name Field :Align:Left
    Local : Field : Name Field : Width : 50 mms

    [Part:For KA]
    Line: For KA,
    Bottom Line:KA Authorised Signatory
    Border: Thick Left

    [Line: For KA]
    Field: Simple Field
    Local: Field: Simple Field: Set as: "For" +" "+ @@CmpMailName
    Local: Field: Simple Field: Full Width: Yes
    Local: Field: Simple Field: Style: P9B
    Local: Field: Simple Field: Align: Center
    Space Top: 1

    [Line:KA Authorised Signatory]
    Field: Simple Field
    Local: Field: Simple Field: Set as: "Authorized Signatory"
    Local: Field: Simple Field: Full Width: Yes
    Local: Field: Simple Field: Style: P9B
    Local: Field: Simple Field: Align: Center
    ;Space Top:3
    Space Bottom:0.50
    [Part:KA Goods Sold]
    Line:KA Juridiction

    [Line:KA Juridiction]
    Field: Simple Field
    Local: Field: Simple Field: Set as: "ABC Jurisdiction"
    Local: Field: Simple Field: Align: Center
    Local: Field: Simple Field: Full Width: Yes
    Local: Field: Simple Field: Style: P9B


    ;;Happy Coding, Enjoy....
     


  6. PRAPTI

    PRAPTI Member


    Hey , I dont want to change the bill format . I only want to add narration to it.Please tell me how to do that..
     


  7. Sanjjaypal

    Sanjjaypal New Member


    Add
    OTSNarrationPart in Form >>> Bottom Part

    Add
    Part: OTSNarrationPart
    With Line & Style
     


  8. svn

    svn Member


    can any one help on this
    [Field:MY Guest]
    Use: name Field
    Style: O9
    Set as: $BUYERNAME
    align : center
     

    Attached Files:



Share This Page