1. CLICK HERE TO JOIN WHATSAPP CHANNEL FOR TDL PROGRAMS

Invoice value not showing

Discussion in 'Free Source Codes' started by Jenny, Aug 25, 2018.

    
  1. Jenny

    Jenny Active Member


    Untitled.jpg
     
    Jenny, Aug 25, 2018
    #1


  2. Sudhish Singh

    Sudhish Singh New Member


    send code
     
    Sudhish Singh, Aug 25, 2018
    #2


  3. Jenny

    Jenny Active Member


    Code:
    /*
Objective(s) -
- This code demonstrates the alteration of Invoice Printing format
- Default Invoice Format is overridden with a New Format
*/

[#Form: Comprehensive Invoice]

;;option attribute contains the form name with logical condition
;;optional forms will execute if the condition is trure

Option: Global Invoice : @@IsSales ;;;@@IsSales is a system formula. System formula can be defined once and can be reused

[#Form: Simple Printed Invoice]

Option: Global Invoice : @@IsSales

[!Form : Global Invoice]

;;By default Form Global Invoice inherit all the details of simple printed invoice hence delete is used to remove the existing parts
;;of simple printed invoice

Delete : Parts
Delete : Bottom Parts
Delete : PageBreak

;;Formatting the form

Space Bottom: 0
Space Left : 0.25 inch
Space Right : 0

;;Addtion of new parts in the form

Add : Parts : Global Invoice Top Part
Add : Parts : Global Invoice Body Part
Add : Bottom Parts : Global Invoice Bottom Part

[Part: Global Invoice Top Part]

Lines : Global Name,Global CmpName, Global VCHDate, Global PartyName, Global PartyAdd1 ,+
Global ColumnTitles

;;Repeat attribute is used to display address in multi lines. It report on collection partyaddress

Repeat : Global PartyAdd1 : PartyAddress


[Line: Global Name]
Fields : Global Name

[Line: Global CmpName]
Fields : Global CmpName

[Field: Global Name]
Use : Name Field
Set as : "QUOTATION"
FullWidth : Yes
Align : Centre

[Field: Global CmpName]
Use : Name Field
Set as : @@CMPMailNAme ;;;setting the company name using system formula
FullWidth : Yes
Align : Centre

[Line: Global VCHDate]
Fields : Short Prompt, Global VCHDate
Right Fields: Simple Prompt, Global VCHNo

;;In line itself the field can be defined with default values using the below syntax

Local: Field: Short Prompt : Set as : "Quotation Date : "
Local: Field: Simple Prompt : Set as : "Quotation No : "

[Field: Global VCHDate]

Use : Short Date Field
Set as : $Date ;;setting the date storage value to a field

[Field: Global VCHNo]
Use : Short Name Field
Set as : $VoucherNumber ;;setting the voucher number storage value

[Line: Global PartyName]
Fields : Short Prompt, Global PartyName, Global ContactName
Local: Field: Short Prompt : Set as : "Party Name: "


[Field: Global PartyName]
Use : Name Field
Set as : $PartyLedgerName ;;setting the party ledger name value to the field

[Field: Global ContactName]
Use : Name Field
Info: "Kind Attention :"
Set as :$$EITNDField

[Line: Global PartyAdd1]
Fields : Global PartyAdd1
[Field: Global PartyAdd1]
Use : Name Field
Set as : $Address
Indent : 10

[Line: Global Column Titles]
Use : IE Details
Local: Field: Default : Lines : 2
Local: Field: Default : Type : String
Local: Field: Default : Style : Normal Bold
Local: Field: IE SrNo : Set as : "Sr No"
Local: Field: IE SiName : Set as : "Item Description"
Local: Field: IE SiName1 : Set as : "Sub Qty"
Local: Field: IE SiName2 : Set as : "Sub Rate"
Local: Field: IE SiName3 : Set as : "Sub Amt"
Local: Field: IE HSN : Set as : "HSN/SAC"
Local: Field: IE Qty : Set as : "Qty"
Local: Field: IE Rate : Set as : "Rate"
Local: Field: IE Per : Set as : "Per"
Local: Field: IE Amount : Set as : "Amount"

;;Border attribute is used to provide border to the lines
Border : Column Titles

[Part: Global Invoice Body Part]

;;Two parts are defined inside a part

Parts : IE Details, LE Details

;;vertical attribute is used to allign the parts vertically

Vertical : Yes

;;Scroll attribute is used to make the lines scroll vertically

Scroll : Vertical
Common Border: Yes

[Part: IE Details]

Lines : IE Details
Repeat : IE Details : Inventory Entries
Total : IE Qty, IE Discount, IE Amount

[Line: IE Details]

Fields : IE SrNo, IE SiName,IE SiName1,IE SiName2,IE SiName3
Right Fields : IE HSN,IE Qty, IE Rate,IE Per, IE Amount
Explode : Item Desc : $$NumItems:UserDescription > 0 ;;;$$NumItems is a used defned functions which can be
;;;used for counting purposes. It takes collection name as parameter

[Part: Item Desc]

Lines : Item Desc
Repeat : Item Desc : UserDescription

[Line: Item Desc]

Fields : Item Desc

[Field: Item Desc]
Use : Name Field
Width : 40
Indent : 8
Set as : $UserDescription + " "+ $$String:$JapDesc+ " "+$$String:$JapDesc1+ " "+$$String:$JapDesc2
Style : Normal Italic

[Field: IE SrNo]
Use : Short Name Field
Set as : $$Line
Border : Thin Left
Width : 4

[Field: IE SIName]
Use : Name Field
Set as : $StockItemName
Border : Thin Left
FullWIdth : Yes
Style : Normal

[Field: IE SIName1]
Use : Name Field
Set as :""
Width : 5
Style : Normal

[Field: IE SIName2]
Use : Name Field
Set as : ""
Width : 5
Style : Normal

[Field: IE SIName3]
Use : Name Field
Set as : ""
Width : 5
Style : Normal

[Field: IE HSN]
Use : Name Field
Set as : $GSTHSNCode:StockItem:$StockItemName
Border : Thin Left
Align : Right
Width : 8

[Field: IE Qty]
Use : Number Field
Set as : $BilledQty
Border : Thin Left
Format : "NoSymbol"
Align : Right
Width : 6

[Field: IE Rate]
Use : Rate Price Field
Set as : $Rate
Border : Thin Left
Width : 6

[Field: IE Per]
Use         : Rate Units Field
Width       : @@VCHRateUnitsWidth
Style       : Normal Bold 
Storage     : Rate
Skip On     : @@HasInvSubAlloc OR $$IsEmpty:$BilledQty OR (NOT @@DoEditAll AND $$IsValidPriceLevel:$PriceLevel AND @@StdVchFldSkipCond)
SubForm     : VCHFOREX Rate : @@HasMultiCurrencyRate
Inactive    : $$IsEnd:$StockItemName OR @@NoBaseUnits
Option      : VCH POSRateUnit       : @@IsPOSInvoice
Border : Thin Left Right

[Field: IE Amount]
Use : Amount Field ;;;Field will display amount value
Set as : $Amount
Border : Thin Left Right
Format : "NoComma, NoZero"
Width : 10

[Part: LE Details]
Lines : LE Details
Repeat : LE Details : Ledger Entries
Scroll : Vertical

[Line: LE Details]
Use : IE Details
Local: Field: IE SrNo : Set as : ""
Local: Field: IE SiName : Set as : $LedgerName
Local: Field: IE SiName1 : Set as : ""
Local: Field: IE SiName2 : Set as : ""
Local: Field: IE SiName3 : Set as : ""
Local: Field: IE HSN : Set as : $GSTHSNCode:StockItem:$StockItemName
Local: Field: IE Qty : Set as : ""
Local: Field: IE Rate : Set as : $$String:$RateOfInvoiceTax + "%" ;;function $$String used for conversion
Local: Field: IE Per : Set as : ""
Local: Field: IE Amount : Set as : $Amount
Local: Field: IE SiName : Align : Right
Local: Field: IE Qty : Format : "NoZero"
Local: Field: IE Rate : Inactive : $RateOfInvoiceTax = 0
Local: Field: IE Rate : Type : String
Remove if : $LedgerName = $PartyLedgerName

;; Empty attribute is used to avoid printing of party ledger name in the invoice

[Part: Global Invoice Bottom Part]

Lines : Global Total Line, Global AmtInWords, Global ForCmp, Global AuthSign

[Line: Global Total Line]

Use : IE Details
Local: Field: Default : Style : Normal Bold
Local: Field: IE SrNo : Set as : ""
Local: Field: IE SiName : Set as : "Totals"
Local: Field: IE Qty : Set as : $$Total:IEQty ;;funtion total is used to take total of a particular field, here(IEQty)
Local: Field: IE Rate : Set as : ""
Local: Field: IE Amount : Set as : $$Total:IEAmount
Border : Totals

[Line: Global AmtInWords]

Fields : Short Prompt, Global AmtInWords
Local: Field: Short Prompt : Set as : "Amount in words : "

[Field: Global AmtInWords]

Use : Name Field
Set as : $$InWords:$Amount + " Only" ;;;Inwords function is used to convert neumaric value into words
FullWidth : Yes
Style : Small

[Line: Global ForCmp]

Right Fields: Global ForCmp

[Field: Global ForCmp]

Use : Name Field
Set as : "For " + @@CMPMailNAme
Align : Right
Width : 0

[Line: Global AuthSign]

Right Fields: Global AuthSign
Space Top : 2

[Field: Global AuthSign]

Use : Name Field
Set as : "Authorised Signatory"
Width : 0
Align : Right

;; End-
     
    Jenny, Aug 25, 2018
    #3


  4. Prema75

    Prema75 New Member


    Jenny Mam,

    Try this

    [Field: Global ContactName]
    Use : Name Field
    Set as : $$LocaleString:"Kind Attention : " + $$String:$EITNDField;; use $ before your udf name
    ;Info: "Kind Attention :"
    ;Set as :$$EITNDField;; $$ is for Function

    [Field: IE SIName1]
    Use : Name Field
    Set as :"Sub qty"; give your udf name for ex.$abcdef
    Width : 5
    Style : Normal

    [Field: IE SIName2]
    Use : Name Field
    Set as : "Sub Rate"
    Width : 5
    Style : Normal

    [Field: IE SIName3]
    Use : Name Field
    Set as : "Sub Amount"
    Width : 5
    Style : Normal
     
    Prema75, Aug 26, 2018
    #4


  5. Jenny

    Jenny Active Member


    In default invoice how to add that field:
    [Field: Global ContactName]
    Use : Name Field
    Set as : $$LocaleString:"Kind Attention : " + $$String:$EITNDField;; use $ before your udf name
    ;Info: "Kind Attention :"
    ;Set as :$$EITNDField;; $$ is for Function
     
    Jenny, Aug 27, 2018
    #5


  6. Prema75

    Prema75 New Member


    Jenny Mam,

    I modified few things

    /*
    Objective(s) -
    - This code demonstrates the alteration of Invoice Printing format
    - Default Invoice Format is overridden with a New Format
    */

    [#Form: Comprehensive Invoice]

    ;;option attribute contains the form name with logical condition
    ;;optional forms will execute if the condition is trure

    Option: Global Invoice : @@IsSales ;;;@@IsSales is a system formula. System formula can be defined once and can be reused

    [#Form: Simple Printed Invoice]

    Option : GST InvoiceAnalysis
    Option : GST Simple Invoice : @@IsGSTOnAppl AND (@@IsSales OR @@IsPurchase OR @@IsDebitNote OR @@IsCreditNote OR @@IsDelNote)

    [!Form : Global Invoice]

    ;;By default Form Global Invoice inherit all the details of simple printed invoice hence delete is used to remove the existing parts
    ;;of simple printed invoice

    Delete : Parts

    Delete : PageBreak

    ;;Formatting the form

    Space Bottom: 0
    Space Left : 0.25 inch
    Space Right : 0

    ;;Addtion of new parts in the form

    Add : Parts : Global Invoice Top Part
    Add : Parts : Global Invoice Body Part
    Add : Parts : Global Invoice Bottom Part;, EXPINV SignOff
    Delete : BottomParts : EXPINV Totals

    [Part: Global Invoice Top Part]

    Lines : Global Name,Global CmpName, Global Address, Global VCHDate, Global PartyName, Global PartyAdd1, +
    Global ColumnTitles

    Border : Column Titles
    Border : Thin Left Right
    ;;Repeat attribute is used to display address in multi lines. It report on collection partyaddress

    Repeat : Global PartyAdd1 : PartyAddress


    [Line: Global Name]
    Fields : Global Name
    Border : Column Titles

    [Line: Global CmpName]
    Fields : Global CmpName
    Border : Column Titles


    [Line: Global Address]
    Fields : Global Address
    Border : Column Titles

    [Field: Global Name]
    Use : Name Field
    Set as : "QUOTATION"
    FullWidth : Yes
    Align : Centre

    [Field: Global CmpName]
    Use : Name Field
    Set as : @@CMPMailNAme
    FullWidth : Yes
    Align : Left

    [Field: Global Address]
    Use : Name Field
    Set as : @@CMPAddress
    FullWidth : Yes
    Align : Left
    Width : @@MediumWidth + 5
    Style : Normal

    [Line: Global VCHDate]
    Fields: Short Prompt, Global VCHDate
    Right Fields: Simple Prompt,Global VCHNo

    ;;In line itself the field can be defined with default values using the below syntax

    Local: Field: Short Prompt : Set as : "Quotation Date : "
    Local: Field: Simple Prompt : Set as : "Quotation No : "
    Border : Column Titles
    [Field: Global VCHDate]

    Use : Short Date Field
    Set as : $Date ;;setting the date storage value to a field

    [Field: Global VCHNo]
    Use : Short Name Field
    Set as : $VoucherNumber ;;setting the voucher number storage value

    [Line: Global PartyName]
    Fields : Short Prompt, Global PartyName, Global ContactName
    Local: Field: Short Prompt : Set as : "Party Name: "


    [Field: Global PartyName]
    Use : Name Field
    Set as : $PartyLedgerName ;;setting the party ledger name value to the field
    Width : @@NameWidth + 17

    [Field: Global ContactName]
    Use : Name Field
    Set as : $$LocaleString:"Kind Attention : " + $$String:$DND;; use $ before your udf name
    ;Info: "Kind Attention :"
    ;Set as :$$DND;; $$ is for Function

    [Line: Global PartyAdd1]
    Fields : Global PartyAdd1


    [Field: Global PartyAdd1]
    Use : Name Field
    Set as : $Address
    Indent : 10
    Width : @@NameWidth + 17
    Style : Normal

    [Line: Global Column Titles]
    Use : IE Details
    Local: Field: Default : Lines : 2
    Local: Field: Default : Type : String
    Local: Field: Default : Style : Normal Bold
    Local: Field: IE SrNo : Set as : "Sr No"
    Local: Field: IE SiName : Set as : "Item Description"
    Local: Field: IE SiName1 : Set as : "Sub Qty"
    Local: Field: IE SiName2 : Set as : "Sub Rate"
    Local: Field: IE SiName3 : Set as : "Sub Amt"
    Local: Field: IE HSN : Set as : "HSN/SAC"
    Local: Field: IE Qty : Set as : "Qty"
    Local: Field: IE Rate : Set as : "Rate"
    Local: Field: IE Per : Set as : "Per"
    Local: Field: IE Amount : Set as : "Amount"

    ;;Border attribute is used to provide border to the lines
    Border : Column Titles

    [Part: Global Invoice Body Part]

    ;;Two parts are defined inside a part

    Parts : IE Details, LE Details

    ;;vertical attribute is used to allign the parts vertically

    Vertical : Yes

    ;;Scroll attribute is used to make the lines scroll vertically

    Scroll : Vertical
    Common Border: Yes

    [Part: IE Details]

    Lines : IE Details
    Repeat : IE Details : Inventory Entries
    Total : IE Qty, IE Discount, IE Amount

    [Line: IE Details]

    Fields : IE SrNo, IE SiName,IE SiName1,IE SiName2,IE SiName3
    Right Fields : IE HSN,IE Qty, IE Rate,IE Per, IE Amount
    Explode : Item Desc : $$NumItems:UserDescription > 0 ;;;$$NumItems is a used defned functions which can be
    ;;;used for counting purposes. It takes collection name as parameter

    [Part: Item Desc]

    Lines : Item Desc
    Repeat : Item Desc : UserDescription

    [Line: Item Desc]

    Fields : Item Desc

    [Field: Item Desc]
    Use : Name Field
    Width : 40
    Indent : 8
    Set as : $UserDescription + " "+ $$String:$JapDesc+ " "+$$String:$JapDesc1+ " "+$$String:$JapDesc2
    Style : Normal
    Size : 4

    [Field: IE SrNo]
    Use : Short Name Field
    Set as : $$Line
    Border : Thin Left
    Width : 4

    [Field: IE SIName]
    Use : Name Field
    Set as : $StockItemName
    Border : Thin Left
    FullWIdth : Yes
    Style : Normal

    [Field: IE SIName1]
    Use : Name Field
    Set as :""
    Width : 4
    Style : Normal
    Border : Thin Left
    Size : 4

    [Field: IE SIName2]
    Use : Name Field
    Set as : ""
    Width : 4
    Style : Normal
    Border : Thin Left
    Format : Decimal : 2
    Size : 4

    [Field: IE SIName3]
    Use : Name Field
    Set as : ""
    Width : 4
    Style : Normal
    Border : Thin Left
    Format : Decimal : 2
    Size : 4

    [Field: IE HSN]
    Use : Name Field
    Set as : $GSTHSNCode:StockItem:$StockItemName
    Border : Thin Left
    Align : Right
    Width : 8

    [Field: IE Qty]
    Use : Number Field
    Set as : $BilledQty
    Border : Thin Left
    Format : "NoSymbol"
    Align : Right
    Width : 5

    [Field: IE Rate]
    Use : Rate Price Field
    Set as : $Rate
    Border : Thin Left
    Width : 5

    [Field: IE Per]
    Use : Rate Units Field
    Width : @@VCHRateUnitsWidth
    Style : Normal Bold
    Storage : Rate
    Skip On : @@HasInvSubAlloc OR $$IsEmpty:$BilledQty OR (NOT @@DoEditAll AND $$IsValidPriceLevel:$PriceLevel AND @@StdVchFldSkipCond)
    SubForm : VCHFOREX Rate : @@HasMultiCurrencyRate
    Inactive : $$IsEnd:$StockItemName OR @@NoBaseUnits
    Option : VCH POSRateUnit : @@IsPOSInvoice
    Border : Thin Left Right

    [Field: IE Amount]
    Use : Amount Field ;;;Field will display amount value
    Set as : $Amount
    Border : Thin Left Right
    Format : "NoComma, NoZero"
    Width : 10

    [Part: LE Details]
    Lines : LE Details
    Repeat : LE Details : Ledger Entries
    Scroll : Vertical

    [Line: LE Details]
    Use : IE Details
    Local: Field: IE SrNo : Set as : ""
    Local: Field: IE SiName : Set as : $LedgerName
    Local: Field: IE SiName1 : Set as : ""
    Local: Field: IE SiName2 : Set as : ""
    Local: Field: IE SiName3 : Set as : ""
    Local: Field: IE HSN : Set as : $GSTHSNCode:StockItem:$StockItemName
    Local: Field: IE Qty : Set as : ""
    Local: Field: IE Rate : Set as : $$String:$RateOfInvoiceTax + "%" ;;function $$String used for conversion
    Local: Field: IE Per : Set as : ""
    Local: Field: IE Amount : Set as : $Amount
    Local: Field: IE SiName : Align : Right
    Local: Field: IE Qty : Format : "NoZero"
    Local: Field: IE Rate : Inactive : $RateOfInvoiceTax = 0
    Local: Field: IE Rate : Type : String
    Remove if : $LedgerName = $PartyLedgerName

    ;; Empty attribute is used to avoid printing of party ledger name in the invoice

    [Part: Global Invoice Bottom Part]

    Lines : Global Total Line,Global AmtInWords;, Global ForCmp, Global AuthSign
    Border : Thin Bottom

    [Line: Global Total Line]

    Use : IE Details
    Local: Field: Default : Style : Normal Bold
    Local: Field: IE SrNo : Set as : ""
    Local: Field: IE SiName : Set as : "Total"
    Local: Field: IE HSN : Set as : ""
    Local: Field: IE Qty : Set as : $$Total:IEQty ;;funtion total is used to take total of a particular field, here(IEQty)
    Local: Field: IE Rate : Set as : ""
    Local: Field: IE Amount : Set as : $$Total:IEAmount
    Border : Totals

    [Line: Global AmtInWords]

    Fields : Short Prompt, Global AmtInWords
    Local: Field: Short Prompt : Set as : "Amount in words : "
    Border : ThinLeftRight

    [Field: Global AmtInWords]

    Use : Name Field
    Set as : $$InWords:$Amount + " Only" ;;;Inwords function is used to convert neumaric value into words
    FullWidth : Yes
    Style : Small

    [Line: Global ForCmp]

    Right Fields: Global ForCmp

    [Field: Global ForCmp]

    Use : Name Field
    Set as : "For " + @@CMPMailNAme
    Align : Right
    Width : 0

    [Line: Global AuthSign]

    Right Fields: Global AuthSign
    Space Top : 2

    [Field: Global AuthSign]

    Use : Name Field
    Set as : "Authorised Signatory"
    Width : 0
    Align : Right

    ;; End-
     
    Prema75, Aug 27, 2018
    #6


  7. Jenny

    Jenny Active Member


    Thank you for support me but please can u some other changes...below image Untitled.jpg
     
    Jenny, Aug 27, 2018
    #7


  8. Devaki

    Devaki Member


    [#Form: Comprehensive Invoice]

    ;;option attribute contains the form name with logical condition
    ;;optional forms will execute if the condition is trure

    Option: Global Invoice : @@IsSales ;;;@@IsSales is a system formula. System formula can be defined once and can be reused

    [#Form: Simple Printed Invoice]

    Option: Global Invoice : @@IsSales

    [!Form : Global Invoice]

    ;;By default Form Global Invoice inherit all the details of simple printed invoice hence delete is used to remove the existing parts
    ;;of simple printed invoice

    Delete : Parts
    Delete : Bottom Parts
    Delete : PageBreak

    ;;Formatting the form

    Space Bottom: 0
    Space Left : 0.25 inch
    Space Right : 0

    ;;Addtion of new parts in the form

    Add : Parts : Global Invoice Top Part
    Add : Parts : Global Invoice Body Part
    Add : Bottom Parts : Global Invoice Bottom Part

    [Part: Global Invoice Top Part]

    Lines : Global Name,Global CmpName, Global VCHDate, Global PartyName, Global PartyAdd1, PartyGSTIN ,+
    Global ColumnTitles

    ;;Repeat attribute is used to display address in multi lines. It report on collection partyaddress

    Repeat : Global PartyAdd1 : PartyAddress


    [Line: Global Name]
    Fields : Global Name

    [Line: Global CmpName]
    Fields : Global CmpName

    [Field: Global Name]
    Use : Name Field
    Set as : "QUOTATION"
    FullWidth : Yes
    Align : Centre

    [Field: Global CmpName]
    Use : Name Field
    Set as : @@CMPMailNAme ;;;setting the company name using system formula
    FullWidth : Yes
    Align : Centre

    [Line: Global VCHDate]
    Fields : Short Prompt, Global VCHDate
    Right Fields: Simple Prompt, Global VCHNo

    ;;In line itself the field can be defined with default values using the below syntax

    Local: Field: Short Prompt : Set as : "Quotation Date : "
    Local: Field: Simple Prompt : Set as : "Quotation No : "

    [Field: Global VCHDate]

    Use : Short Date Field
    Set as : $Date ;;setting the date storage value to a field

    [Field: Global VCHNo]
    Use : Short Name Field
    Set as : $VoucherNumber ;;setting the voucher number storage value

    [Line: Global PartyName]
    Fields : Short Prompt, Global PartyName, Global ContactName
    Local: Field: Short Prompt : Set as : "Party Name: "


    [Field: Global PartyName]
    Use : Name Field
    Set as : $PartyLedgerName ;;setting the party ledger name value to the field

    [Field: Global ContactName]
    Use : Name Field
    Info: "Kind Attention :"
    Set as :$$EITNDField

    [Line: Global PartyAdd1]
    Fields : Global PartyAdd1
    [Field: Global PartyAdd1]
    Use : Name Field
    Set as : $Address
    Indent : 10


    [Line: PartyGSTIN]

    Fields : Simple Prompt, Name Field
    Local : Field : Simple Prompt: Set as : "Party GSTNo.:"
    Local : Field : name Field : Set as : $PARTYGSTIN:Ledger:$LedgerName
    Local: Field: Simple Field: Full Width: Yes



    [Line: Global Column Titles]
    Use : IE Details
    Local: Field: Default : Lines : 2
    Local: Field: Default : Type : String
    Local: Field: Default : Style : Normal Bold
    Local: Field: IE SrNo : Set as : "Sr No"
    Local: Field: IE SiName : Set as : "Item Description"
    Local: Field: IE SiName1 : Set as : "Sub Qty"
    Local: Field: IE SiName2 : Set as : "Sub Rate"
    Local: Field: IE SiName3 : Set as : "Sub Amt"
    Local: Field: IE HSN : Set as : "HSN/SAC"
    Local: Field: IE Qty : Set as : "Qty"
    Local: Field: IE Rate : Set as : "Rate"
    Local: Field: IE Per : Set as : "Per"
    Local: Field: IE Amount : Set as : "Amount"

    ;;Border attribute is used to provide border to the lines
    Border : Column Titles

    [Part: Global Invoice Body Part]

    ;;Two parts are defined inside a part

    Parts : IE Details, LE Details

    ;;vertical attribute is used to allign the parts vertically

    Vertical : Yes

    ;;Scroll attribute is used to make the lines scroll vertically

    Scroll : Vertical
    Common Border: Yes

    [Part: IE Details]

    Lines : IE Details
    Repeat : IE Details : Inventory Entries
    Total : IE Qty, IE Discount, IE Amount

    [Line: IE Details]

    Fields : IE SrNo, IE SiName,IE SiName1,IE SiName2,IE SiName3
    Right Fields : IE HSN,IE Qty, IE Rate,IE Per, IE Amount
    Explode : Item Desc : $$NumItems:UserDescription > 0 ;;;$$NumItems is a used defned functions which can be
    ;;;used for counting purposes. It takes collection name as parameter

    [Part: Item Desc]

    Lines : Item Desc
    Repeat : Item Desc : UserDescription

    [Line: Item Desc]

    Fields : Item Desc

    [Field: Item Desc]
    Use : Name Field
    Width : 40
    Indent : 8
    Set as : $UserDescription + " "+ $$String:$JapDesc+ " "+$$String:$JapDesc1+ " "+$$String:$JapDesc2
    Style : Normal Italic

    [Field: IE SrNo]
    Use : Short Name Field
    Set as : $$Line
    Border : Thin Left
    Width : 4

    [Field: IE SIName]
    Use : Name Field
    Set as : $StockItemName
    Border : Thin Left
    FullWIdth : Yes
    Style : Normal

    [Field: IE SIName1]
    Use : Name Field
    Set as :""
    Width : 5
    Style : Normal

    [Field: IE SIName2]
    Use : Name Field
    Set as : ""
    Width : 5
    Style : Normal

    [Field: IE SIName3]
    Use : Name Field
    Set as : ""
    Width : 5
    Style : Normal

    [Field: IE HSN]
    Use : Name Field
    Set as : $GSTHSNCode:StockItem:$StockItemName
    Border : Thin Left
    Align : Right
    Width : 8

    [Field: IE Qty]
    Use : Number Field
    Set as : $BilledQty
    Border : Thin Left
    Format : "NoSymbol"
    Align : Right
    Width : 6

    [Field: IE Rate]
    Use : Rate Price Field
    Set as : $Rate
    Border : Thin Left
    Width : 6

    [Field: IE Per]
    Use : Rate Units Field
    Width : @@VCHRateUnitsWidth
    Style : Normal Bold
    Storage : Rate
    Skip On : @@HasInvSubAlloc OR $$IsEmpty:$BilledQty OR (NOT @@DoEditAll AND $$IsValidPriceLevel:$PriceLevel AND @@StdVchFldSkipCond)
    SubForm : VCHFOREX Rate : @@HasMultiCurrencyRate
    Inactive : $$IsEnd:$StockItemName OR @@NoBaseUnits
    Option : VCH POSRateUnit : @@IsPOSInvoice
    Border : Thin Left Right

    [Field: IE Amount]
    Use : Amount Field ;;;Field will display amount value
    Set as : $Amount
    Border : Thin Left Right
    Format : "NoComma, NoZero"
    Width : 10

    [Part: LE Details]
    Lines : LE Details
    Repeat : LE Details : Ledger Entries
    Scroll : Vertical

    [Line: LE Details]
    Use : IE Details
    Local: Field: IE SrNo : Set as : ""
    Local: Field: IE SiName : Set as : $LedgerName
    Local: Field: IE SiName1 : Set as : ""
    Local: Field: IE SiName2 : Set as : ""
    Local: Field: IE SiName3 : Set as : ""
    Local: Field: IE HSN : Set as : $GSTHSNCode:StockItem:$StockItemName
    Local: Field: IE Qty : Set as : ""
    Local: Field: IE Rate : Set as : $$String:$RateOfInvoiceTax + "%" ;;function $$String used for conversion
    Local: Field: IE Per : Set as : ""
    Local: Field: IE Amount : Set as : $Amount
    Local: Field: IE SiName : Align : Right
    Local: Field: IE Qty : Format : "NoZero"
    Local: Field: IE Rate : Inactive : $RateOfInvoiceTax = 0
    Local: Field: IE Rate : Type : String
    Remove if : $LedgerName = $PartyLedgerName

    ;; Empty attribute is used to avoid printing of party ledger name in the invoice

    [Part: Global Invoice Bottom Part]

    Lines : Global Total Line, Global AmtInWords, Global ForCmp, Global AuthSign

    [Line: Global Total Line]

    Use : IE Details
    Local: Field: Default : Style : Normal Bold
    Local: Field: IE SrNo : Set as : ""
    Local: Field: IE SiName : Set as : "Totals"
    Local: Field: IE Qty : Set as : $$Total:IEQty ;;funtion total is used to take total of a particular field, here(IEQty)
    Local: Field: IE Rate : Set as : ""
    Local: Field: IE Amount : Set as : $$Total:IEAmount
    Border : Totals

    [Line: Global AmtInWords]

    Fields : Short Prompt, Global AmtInWords
    Local: Field: Short Prompt : Set as : "Amount in words : "

    [Field: Global AmtInWords]

    Use : Name Field
    Set as : $$InWords:$Amount + " Only" ;;;Inwords function is used to convert neumaric value into words
    FullWidth : Yes
    Style : Small

    [Line: Global ForCmp]

    Right Fields: Global ForCmp

    [Field: Global ForCmp]

    Use : Name Field
    Set as : "For " + @@CMPMailNAme
    Align : Right
    Width : 0

    [Line: Global AuthSign]

    Right Fields: Global AuthSign
    Space Top : 2

    [Field: Global AuthSign]

    Use : Name Field
    Set as : "Authorised Signatory"
    Width : 0
    Align : Right

    ;; End-
     
    Devaki, Aug 27, 2018
    #8


  9. Devaki

    Devaki Member


    Party GSTIN added
     
    Devaki, Aug 27, 2018
    #9


  10. Devaki

    Devaki Member


    [#Form: Comprehensive Invoice]

    ;;option attribute contains the form name with logical condition
    ;;optional forms will execute if the condition is trure

    Option: Global Invoice : @@IsSales ;;;@@IsSales is a system formula. System formula can be defined once and can be reused

    [#Form: Simple Printed Invoice]

    Option: Global Invoice : @@IsSales

    [!Form : Global Invoice]

    ;;By default Form Global Invoice inherit all the details of simple printed invoice hence delete is used to remove the existing parts
    ;;of simple printed invoice

    Delete : Parts
    Delete : Bottom Parts
    Delete : PageBreak

    ;;Formatting the form

    Space Bottom: 0
    Space Left : 0.25 inch
    Space Right : 0

    ;;Addtion of new parts in the form

    Add : Parts : Global Invoice Top Part
    Add : Parts : Global Invoice Body Part
    Add : Bottom Parts : Global Invoice Bottom Part

    [Part: Global Invoice Top Part]

    Lines : Global Name,Global CmpName, Global VCHDate, Global PartyName, Global PartyAdd1, PartyGSTIN ,+
    Global ColumnTitles

    ;;Repeat attribute is used to display address in multi lines. It report on collection partyaddress

    Repeat : Global PartyAdd1 : PartyAddress


    [Line: Global Name]
    Fields : Global Name

    [Line: Global CmpName]
    Fields : Global CmpName

    [Field: Global Name]
    Use : Name Field
    Set as : "QUOTATION"
    FullWidth : Yes
    Align : Centre

    [Field: Global CmpName]
    Use : Name Field
    Set as : @@CMPMailNAme ;;;setting the company name using system formula
    FullWidth : Yes
    Align : Centre

    [Line: Global VCHDate]
    Fields : Short Prompt, Global VCHDate
    Right Fields: Simple Prompt, Global VCHNo

    ;;In line itself the field can be defined with default values using the below syntax

    Local: Field: Short Prompt : Set as : "Quotation Date : "
    Local: Field: Simple Prompt : Set as : "Quotation No : "

    [Field: Global VCHDate]

    Use : Short Date Field
    Set as : $Date ;;setting the date storage value to a field

    [Field: Global VCHNo]
    Use : Short Name Field
    Set as : $VoucherNumber ;;setting the voucher number storage value

    [Line: Global PartyName]
    Fields : Short Prompt, Global PartyName, Global ContactName
    Local: Field: Short Prompt : Set as : "Party Name: "


    [Field: Global PartyName]
    Use : Name Field
    Set as : $PartyLedgerName ;;setting the party ledger name value to the field

    [Field: Global ContactName]
    Use : Name Field
    Info: "Kind Attention :"
    Set as :$$EITNDField

    [Line: Global PartyAdd1]
    Fields : Global PartyAdd1
    [Field: Global PartyAdd1]
    Use : Name Field
    Set as : $Address
    Indent : 10


    [Line: PartyGSTIN]

    Fields : Simple Prompt, Name Field
    Local : Field : Simple Prompt: Set as : "Party GSTNo.:"
    Local : Field : name Field : Set as : $PARTYGSTIN:Ledger:$LedgerName
    Local: Field: Simple Field: Full Width: Yes



    [Line: Global Column Titles]
    Use : IE Details
    Local: Field: Default : Lines : 2
    Local: Field: Default : Type : String
    Local: Field: Default : Style : Normal Bold
    Local: Field: IE SrNo : Set as : "Sr No"
    Local: Field: IE SiName : Set as : "Item Description"
    Local: Field: IE SiName1 : Set as : "Sub Qty"
    Local: Field: IE SiName2 : Set as : "Sub Rate"
    Local: Field: IE SiName3 : Set as : "Sub Amt"
    Local: Field: IE HSN : Set as : "HSN/SAC"
    Local: Field: IE Qty : Set as : "Qty"
    Local: Field: IE Rate : Set as : "Rate"
    Local: Field: IE Per : Set as : "Per"
    Local: Field: IE Amount : Set as : "Amount"

    ;;Border attribute is used to provide border to the lines
    Border : Column Titles

    [Part: Global Invoice Body Part]

    ;;Two parts are defined inside a part

    Parts : IE Details, LE Details

    ;;vertical attribute is used to allign the parts vertically

    Vertical : Yes

    ;;Scroll attribute is used to make the lines scroll vertically

    Scroll : Vertical
    Common Border: Yes

    [Part: IE Details]

    Lines : IE Details
    Repeat : IE Details : Inventory Entries
    Total : IE Qty, IE Discount, IE Amount

    [Line: IE Details]

    Fields : IE SrNo, IE SiName,IE SiName1,IE SiName2,IE SiName3
    Right Fields : IE HSN,IE Qty, IE Rate,IE Per, IE Amount
    Explode : Item Desc : $$NumItems:UserDescription > 0 ;;;$$NumItems is a used defned functions which can be
    ;;;used for counting purposes. It takes collection name as parameter

    [Part: Item Desc]

    Lines : Item Desc
    Repeat : Item Desc : UserDescription

    [Line: Item Desc]

    Fields : Item Desc

    [Field: Item Desc]
    Use : Name Field
    Width : 40
    Indent : 8
    Set as : $UserDescription + " "+ $$String:$JapDesc+ " "+$$String:$JapDesc1+ " "+$$String:$JapDesc2
    Style : Normal Italic

    [Field: IE SrNo]
    Use : Short Name Field
    Set as : $$Line
    Border : Thin Left
    Width : 4

    [Field: IE SIName]
    Use : Name Field
    Set as : $StockItemName
    Border : Thin Left
    FullWIdth : Yes
    Style : Normal

    [Field: IE SIName1]
    Use : Name Field
    Set as :""
    Width : 5
    Style : Normal

    [Field: IE SIName2]
    Use : Name Field
    Set as : ""
    Width : 5
    Style : Normal

    [Field: IE SIName3]
    Use : Name Field
    Set as : ""
    Width : 5
    Style : Normal

    [Field: IE HSN]
    Use : Name Field
    Set as : $GSTHSNCode:StockItem:$StockItemName
    Border : Thin Left
    Align : Right
    Width : 8

    [Field: IE Qty]
    Use : Number Field
    Set as : $BilledQty
    Border : Thin Left
    Format : "NoSymbol"
    Align : Right
    Width : 6

    [Field: IE Rate]
    Use : Rate Price Field
    Set as : $Rate
    Border : Thin Left
    Width : 6

    [Field: IE Per]
    Use : Rate Units Field
    Width : @@VCHRateUnitsWidth
    Style : Normal Bold
    Storage : Rate
    Skip On : @@HasInvSubAlloc OR $$IsEmpty:$BilledQty OR (NOT @@DoEditAll AND $$IsValidPriceLevel:$PriceLevel AND @@StdVchFldSkipCond)
    SubForm : VCHFOREX Rate : @@HasMultiCurrencyRate
    Inactive : $$IsEnd:$StockItemName OR @@NoBaseUnits
    Option : VCH POSRateUnit : @@IsPOSInvoice
    Border : Thin Left Right

    [Field: IE Amount]
    Use : Amount Field ;;;Field will display amount value
    Set as : $Amount
    Border : Thin Left Right
    Format : "NoComma, NoZero"
    Width : 10

    [Part: LE Details]
    Lines : LE Details
    Repeat : LE Details : Ledger Entries
    Scroll : Vertical

    [Line: LE Details]
    Use : IE Details
    Local: Field: IE SrNo : Set as : ""
    Local: Field: IE SiName : Set as : $LedgerName
    Local: Field: IE SiName1 : Set as : ""
    Local: Field: IE SiName2 : Set as : ""
    Local: Field: IE SiName3 : Set as : ""
    Local: Field: IE HSN : Set as : $GSTHSNCode:StockItem:$StockItemName
    Local: Field: IE Qty : Set as : ""
    Local: Field: IE Rate : Set as : $$String:$RateOfInvoiceTax + "%" ;;function $$String used for conversion
    Local: Field: IE Per : Set as : ""
    Local: Field: IE Amount : Set as : $Amount
    Local: Field: IE SiName : Align : Right
    Local: Field: IE Qty : Format : "NoZero"
    Local: Field: IE Rate : Inactive : $RateOfInvoiceTax = 0
    Local: Field: IE Rate : Type : String
    Remove if : $LedgerName = $PartyLedgerName

    ;; Empty attribute is used to avoid printing of party ledger name in the invoice

    [Part: Global Invoice Bottom Part]

    Lines : Global Total Line, Global AmtInWords, Global ForCmp, Global AuthSign

    [Line: Global Total Line]

    Use : IE Details
    Local: Field: Default : Style : Normal Bold
    Local: Field: IE SrNo : Set as : ""
    Local: Field: IE SiName : Set as : "Totals"
    Local: Field: IE Qty : Set as : $$Total:IEQty ;;funtion total is used to take total of a particular field, here(IEQty)
    Local: Field: IE Rate : Set as : ""
    Local: Field: IE Amount : Set as : $$Total:IEAmount
    Border : Totals

    [Line: Global AmtInWords]

    Fields : Short Prompt, Global AmtInWords
    Local: Field: Short Prompt : Set as : "Amount in words : "

    [Field: Global AmtInWords]

    Use : Name Field
    Set as : $$InWords:$Amount + " Only" ;;;Inwords function is used to convert neumaric value into words
    FullWidth : Yes
    Style : Small

    [Line: Global ForCmp]

    Right Fields: Global ForCmp

    [Field: Global ForCmp]

    Use : Name Field
    Set as : "For " + @@CMPMailNAme
    Align : Right
    Width : 0

    [Line: Global AuthSign]

    Right Fields: Global AuthSign
    Space Top : 2

    [Field: Global AuthSign]

    Use : Name Field
    Set as : "Authorised Signatory"
    Width : 0
    Align : Right

    ;; End-
     
    Devaki, Aug 27, 2018
    #10


  11. Devaki

    Devaki Member


    GSTIN Added
     
    Devaki, Aug 27, 2018
    #11


  12. Jenny

    Jenny Active Member


    Thanx
     
    Jenny, Aug 27, 2018
    #12


Share This Page