Problem in Storing Cash Denomination values

Discussion in 'Requests' started by Amit Kamdar, Apr 9, 2018.

    
  1. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Hi All Experts,

    Below is the code that I picked from "cashdenomalloc.500" from Default TDLs in Tally Developer. Am trying to store Cash Denominations in RECEIPT VOUCHER for payments received in Cash. Tried many things but am unable to store the number of denominations.

    After I enter the denominations break-up and next time I go to display voucher...the denominations comes up blank. Hence there is no stored values.

    Also the conditions for difference and "over denominations" is also not working.

    Can anyone see and tell me where is it wrong...in the code.

    Thanks in Advance.
    Amit Kamdar




    ;; Sri Ganeshji : Sri Balaji : Sri Pitreshwarji : Sri Durgaji : Sri Venkateshwara
    [#Field:Vch DrAmt]
    Add : Sub Form : Cash Denos : @OpenCashDenosSubForm
    OpenCashDenosSubForm : $$IsReceipt:##SVVoucherType AND $$IsLedOfGrp:mad:@BankName:$$GroupCash AND (If ($$InCreateMode OR $$InAlterMode OR $
    $InDuplicateMode) Then "Yes" Else NOT ##ShowBankAllocDetails) AND NOT ($$NumItems:BankAllocations > 1)
    ;; Below sub-form is used to enter the Cash Deno Details
    [Report: Cash Denos]
    Form : Cash Denos
    Set : RefreshDenoMethod : ""

    [Form: Cash Denos]

    Part : Cash Denos Head, Cash Denos ;;
    Vertical Align : Center
    Horizontal Align : Center
    Width : 20% Screen
    Background : @@SV_DAYBOOK
    No Confirm : No
    ; On : Form Accept : Yes : SET : RefreshDenoMethod : $UniqueReferenceNumber

    [Part: Cash Denos Head]

    Lines : CD Bank Ledger Name , CD Allocation Amount
    Horizontal Align : Center
    Space Bottom : 1

    [Line: CD Bank Ledger Name]

    Field : CD Bank Ledger Name
    [Field: CD Bank Ledger Name]

    Use : Name Field
    Full Width : Yes
    Info : $LedgerName
    Align : Center

    [Line: CD Allocation Amount]

    Fields : Simple Prompt, ;CD Allocation Amount
    Local : Field : Simple Prompt : Set as : $$LocaleString:"Denos for : Rs. " + $$LocaleString:$Amount
    Local : Field : Simple Prompt : fullWidth : yes
    Local : Field : Simple Prompt : Align : Centre
    Local : Field : Simple Prompt : Background : Black
    Local : Field : Simple Prompt : Color : Yellow
    [Part: Cash Denos]

    Lines : Cash Denos Title, Deno Details, Cash Denos Total, Cash Denos Pending Amount
    Total : DenoAmount
    Common Border : Yes
    ; Delete : Space Bottom

    [Line: Cash Denos Title]

    Fields : Cash Denos Title
    Right Field : Cash Denos Amount Title
    Border : Column Titles
    [Field: Cash Denos Title]

    Use : Name Field
    Width : 21
    Align : Center
    Info : $$LocaleString:"Denos"
    Border : Thin Right
    [Field: Cash Denos Amount Title]

    Use : Name Field
    Full Width : Yes
    Align : Right
    Info : $$LocaleString:"Amount"

    [Line: Deno Details]

    Lines : Deno 2000x, Deno 1000x, Deno 500x, Deno 100x, Deno 50x, Deno 20x, Deno 10x, Deno 5x, Deno 2x, Deno 1x, Deno Others
    [Line: Deno 2000x]

    Fields : Deno Index, Deno Count 2000x, Deno Running Total
    Right Field : Deno Amount
    Local : Field : Deno Index : Info : $$LocaleString:"2000 X"
    ; Local : Field : Deno Count 2000x : Set as : $$StringWordEx:$CashDeno:"-":11
    Local : Field : Deno Amount : Set as : $$AsAmount:#DenoCount2000x * 2000
    ; Remove If : $$IsEmpty:#DenoRunningTotal

    [Line: Deno 1000x]

    Fields : Deno Index, Deno Count 1000x, Deno Running Total
    Right Field : Deno Amount
    Local : Field : Deno Index : Info : $$LocaleString:"1000 X"
    ; Local : Field : Deno Count 1000x : Set as : $$StringWordEx:$CashDeno:"-":1
    Local : Field : Deno Amount : Set as : $$AsAmount:#DenoCount1000x * 1000
    ; Remove If : $$IsEmpty:#DenoRunningTotal

    [Line: Deno 500x]

    Fields : Deno Index, Deno Count 500x, Deno Running Total
    Right Field : Deno Amount
    Local : Field : Deno Index : Info : $$LocaleString:"500 X"
    ; Local : Field : Deno Count 500x : Set as : $$StringWordEx:$CashDeno:"-":2
    Local : Field : Deno Amount : Set as : $$AsAmount:#DenoCount500x * 500
    ; Remove If : $$IsEmpty:#DenoRunningTotal

    [Line: Deno 100x]

    Fields : Deno Index, Deno Count 100x, Deno Running Total
    Right Field : Deno Amount
    Local : Field : Deno Index : Info : $$LocaleString:"100 X"
    ; Local : Field : Deno Count 100x : Set as : $$StringWordEx:$CashDeno:"-":3
    Local : Field : Deno Amount : Set as : $$AsAmount:#DenoCount100x * 100
    ; Remove If : $$IsEmpty:#DenoRunningTotal

    [Line: Deno 50x]

    Fields : Deno Index, Deno Count 50x, Deno Running Total
    Right Field : Deno Amount
    Local : Field : Deno Index : Info : $$LocaleString:"50 X"
    ; Local : Field : Deno Count 50x : Set as : $$StringWordEx:$CashDeno:"-":4
    Local : Field : Deno Amount : Set as : $$AsAmount:#DenoCount50x * 50
    ; Remove If : $$IsEmpty:#DenoRunningTotal

    [Line: Deno 20x]

    Fields : Deno Index, Deno Count 20x, Deno Running Total
    Right Field : Deno Amount
    Local : Field : Deno Index : Info : $$LocaleString:"20 X"
    ; Local : Field : Deno Count 20x : Set as : $$StringWordEx:$CashDeno:"-":5
    Local : Field : Deno Amount : Set as : $$AsAmount:#DenoCount20x * 20
    ; Remove If : $$IsEmpty:#DenoRunningTotal

    [Line: Deno 10x]

    Fields : Deno Index, Deno Count 10x, Deno Running Total
    Right Field : Deno Amount
    Local : Field : Deno Index : Info : $$LocaleString:"10 X"
    ; Local : Field : Deno Count 10x : Set as : $$StringWordEx:$CashDeno:"-":6
    Local : Field : Deno Amount : Set as : $$AsAmount:#DenoCount10x * 10
    ; Remove If : $$IsEmpty:#DenoRunningTotal

    [Line: Deno 5x]

    Fields : Deno Index, Deno Count 5x, Deno Running Total
    Right Field : Deno Amount
    Local : Field : Deno Index : Info : $$LocaleString:"5 X"
    ; Local : Field : Deno Count 5x : Set as : $$StringWordEx:$CashDeno:"-":7
    Local : Field : Deno Amount : Set as : $$AsAmount:#DenoCount5x * 5
    ; Remove If : $$IsEmpty:#DenoRunningTotal

    [Line: Deno 2x]

    Fields : Deno Index, Deno Count 2x, Deno Running Total
    Right Field : Deno Amount
    Local : Field : Deno Index : Info : $$LocaleString:"2 X"
    ; Local : Field : Deno Count 2x : Set as : $$StringWordEx:$CashDeno:"-":8
    Local : Field : Deno Amount : Set as : $$AsAmount:#DenoCount2x * 2
    ; Remove If : $$IsEmpty:#DenoRunningTotal

    [Line: Deno 1x]

    Fields : Deno Index, Deno Count 1x, Deno Running Total
    Right Field : Deno Amount
    Local : Field : Deno Index : Info : $$LocaleString:"1 X"
    ; Local : Field : Deno Count 1x : Set as : $$StringWordEx:$CashDeno:"-":9
    Local : Field : Deno Amount : Set as : $$AsAmount:#DenoCount1x
    ; Remove If : $$IsEmpty:#DenoRunningTotal

    [Line: Deno Others]

    Fields : Deno Index, Deno Count Others, Deno Running Total
    Right Field : Deno Amount Others
    Local : Field : Deno Index : Info : $$LocaleString:"Others"
    ; Local : Field : Deno Count Others : Set as : 0
    Local : Field : Deno Amount : Set as : $$AsAmount:$$StringWordEx:$CashDeno:"-":10
    ; Remove If : $$IsEmpty:#DenoRunningTotal
    [Line: Cash Denos Pending Amount]

    Use : Cash Denos Total
    Border : Thin Bottom
    Local : Field : Cash Denos Total Title : Info : $$LocaleString:"Difference"
    Local : Field : Cash Denos Total Title : Delete : Wide Spaced
    Local : Field : Cash Denos Total Title : Delete : Style
    Local : Field : Cash Denos TotalAmt : Set as : #CDAllocationAmount - ($$Total:DenoAmount + #DenoAmountOthers)
    Local : Field : Cash Denos TotalAmt : Skip : Yes

    [Line: Cash Denos Total]

    Fields : Cash Denos TotalTitle
    Right Field : Cash Denos TotalAmt
    Border : Totals

    ;; Below report is used as subform to accept cash Denos in case use default for bank allocations is set to yes and contra is in double entry mode

    [Report: Cash Denos LE]

    Title : $$LocaleString:"Cash Denos"
    Form : Cash Denos LE

    [Form: Cash Denos LE]

    Part : Cash Denos Head, Cash Denos
    Vertical Align : Center
    Horizontal Align : Center
    Width : 30% Screen
    Background : @@SV_DAYBOOK
    Local : Line : Deno Details : Local : Field : Default : Delete : Set by Condition

    Local : Field : Deno Count 2000x : Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $$StringWordEx:
    ($BankAllocations[1].CashDeno):"-":11
    Local : Field : Deno Count 1000x : Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $
    $StringWordEx:($BankAllocations[1].CashDeno):"-":1
    Local : Field : Deno Count 500x : Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $
    $StringWordEx:($BankAllocations[1].CashDeno):"-":2
    Local : Field : Deno Count 100x : Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $
    $StringWordEx:($BankAllocations[1].CashDeno):"-":3
    Local : Field : Deno Count 50x : Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $
    $StringWordEx:($BankAllocations[1].CashDeno):"-":4
    Local : Field : Deno Count 20x : Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $
    $StringWordEx:($BankAllocations[1].CashDeno):"-":5
    Local : Field : Deno Count 10x : Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $
    $StringWordEx:($BankAllocations[1].CashDeno):"-":6
    Local : Field : Deno Count 5x : Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $
    $StringWordEx:($BankAllocations[1].CashDeno):"-":7
    Local : Field : Deno Count 2x : Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $
    $StringWordEx:($BankAllocations[1].CashDeno):"-":8
    Local : Field : Deno Count 1x : Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $
    $StringWordEx:($BankAllocations[1].CashDeno):"-":9
    Local : Field : Deno Amount Others: Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $$AsAmount:($
    $StringWordEx:($BankAllocations[1].CashDeno):"-":10)
    ; On : Form Accept : ($$InAlterMode OR $$InDuplicateMode) AND ($$NumItems:BankAllocations = 1) : Call : SaveCashDenomUnderBank1
    ;; Below report is used as subform to accept cash Denos in case use default for bank allocations is set to yes and contra is in single entry mode

    [Report: Cash Denos Total]

    Title : $$LocaleString:"Cash Denos"
    Form : Cash Denos Total

    [Form: Cash Denos Total]

    Part : Cash Denos Head, Cash Denos
    Vertical Align : Bottom
    Horizontal Align : Center
    Width : 28% Screen
    Background : @@SV_DAYBOOK
    Local : Line : Deno Details : Local : Field : Default : Delete : Set by Condition
    Local : Line : Deno Details : Local : Field : Default : Delete : Storage
    Local : Field : Deno Count 2000x : Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $$StringWordEx:
    ($BankAllocations[1].CashDeno):"-":11
    Local : Field : Deno Count 2000x : Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $$StringWordEx:
    ($BankAllocations[1].CashDeno):"-":11
    Local : Field : Deno Count 1000x : Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $
    $StringWordEx:($BankAllocations[1].CashDeno):"-":1
    Local : Field : Deno Count 500x : Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $
    $StringWordEx:($BankAllocations[1].CashDeno):"-":2
    Local : Field : Deno Count 100x : Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $
    $StringWordEx:($BankAllocations[1].CashDeno):"-":3
    Local : Field : Deno Count 50x : Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $
    $StringWordEx:($BankAllocations[1].CashDeno):"-":4
    Local : Field : Deno Count 20x : Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $
    $StringWordEx:($BankAllocations[1].CashDeno):"-":5
    Local : Field : Deno Count 10x : Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $
    $StringWordEx:($BankAllocations[1].CashDeno):"-":6
    Local : Field : Deno Count 5x : Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $
    $StringWordEx:($BankAllocations[1].CashDeno):"-":7
    Local : Field : Deno Count 2x : Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $
    $StringWordEx:($BankAllocations[1].CashDeno):"-":8
    Local : Field : Deno Count 1x : Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $
    $StringWordEx:($BankAllocations[1].CashDeno):"-":9
    Local : Field : Deno Amount Others: Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $$AsAmount:($
    $StringWordEx:($BankAllocations[1].CashDeno):"-":10)
    ;; Below switch is given since while passing the first voucher the Ledger selected in the field ACLSFixedLed is the Last ledger entry but second voucher
    onwards it is the first, in create mode.
    Switch : FirstLedgerName : Deno Count Contra First : #ACLSFixedLed = $LedgerEntries[1].LedgerName
    Switch : FirstLedgerName : Deno Count Contra Last : #ACLSFixedLed != $LedgerEntries[1].LedgerName

    ; On : Form Accept : ($$InAlterMode OR $$InDuplicateMode) AND ($$NumItems:BankAllocations = 1) : Call : SaveCashDenomUnderBank1

    [!Form: Deno Count Contra First]

    Local : Field : Deno Count 2000x : Storage : DenoCount2000x : All Ledger Entries : First : @@IsVchCashBankAcctRE
    Local : Field : Deno Count 1000x : Storage : DenoCount1000x : All Ledger Entries : First : @@IsVchCashBankAcctRE
    Local : Field : Deno Count 500x : Storage : DenoCount500x : All Ledger Entries : First : @@IsVchCashBankAcctRE
    Local : Field : Deno Count 100x : Storage : DenoCount100x : All Ledger Entries : First : @@IsVchCashBankAcctRE
    Local : Field : Deno Count 50x : Storage : DenoCount50x : All Ledger Entries : First : @@IsVchCashBankAcctRE
    Local : Field : Deno Count 20x : Storage : DenoCount20x : All Ledger Entries : First : @@IsVchCashBankAcctRE
    Local : Field : Deno Count 10x : Storage : DenoCount10x : All Ledger Entries : First : @@IsVchCashBankAcctRE
    Local : Field : Deno Count 5x : Storage : DenoCount5x : All Ledger Entries : First : @@IsVchCashBankAcctRE
    Local : Field : Deno Count 2x : Storage : DenoCount2x : All Ledger Entries : First : @@IsVchCashBankAcctRE
    Local : Field : Deno Count 1x : Storage : DenoCount1x : All Ledger Entries : First : @@IsVchCashBankAcctRE
    Local : Field : Deno Amount Others: Storage : DenoAmountOthers: All Ledger Entries :First : @@IsVchCashBankAcctRE
    [!Form: Deno Count Contra Last]

    Local : Field : Deno Count 2000x : Storage : DenoCount2000x : All Ledger Entries : Last : @@IsVchCashBankAcctRE
    Local : Field : Deno Count 1000x : Storage : DenoCount1000x : All Ledger Entries : Last : @@IsVchCashBankAcctRE
    Local : Field : Deno Count 500x : Storage : DenoCount500x : All Ledger Entries : Last : @@IsVchCashBankAcctRE
    Local : Field : Deno Count 100x : Storage : DenoCount100x : All Ledger Entries : Last : @@IsVchCashBankAcctRE
    Local : Field : Deno Count 50x : Storage : DenoCount50x : All Ledger Entries : Last : @@IsVchCashBankAcctRE
    Local : Field : Deno Count 20x : Storage : DenoCount20x : All Ledger Entries : Last : @@IsVchCashBankAcctRE
    Local : Field : Deno Count 10x : Storage : DenoCount10x : All Ledger Entries : Last : @@IsVchCashBankAcctRE
    Local : Field : Deno Count 5x : Storage : DenoCount5x : All Ledger Entries : Last : @@IsVchCashBankAcctRE
    Local : Field : Deno Count 2x : Storage : DenoCount2x : All Ledger Entries : Last : @@IsVchCashBankAcctRE
    Local : Field : Deno Count 1x : Storage : DenoCount1x : All Ledger Entries : Last : @@IsVchCashBankAcctRE
    Local : Field : Deno Amount Others: Storage : DenoAmountOthers: All Ledger Entries :Last : @@IsVchCashBankAcctRE

    [#Object: Ledger Entry]
    Storage : DenoCount2000x : Number
    Storage : DenoCount1000x : Number
    Storage : DenoCount500x : Number
    Storage : DenoCount100x : Number
    Storage : DenoCount50x : Number
    Storage : DenoCount20x : Number
    Storage : DenoCount10x : Number
    Storage : DenoCount5x : Number
    Storage : DenoCount2x : Number
    Storage : DenoCount1x : Number
    Storage : DenoAmountOthers : Amount

    [System: Formula]

    DenoAllocationError : $$LocaleString:"Total Amount cannot \n be greater than the \n Allocated Amount!"
    DenoTotalError : $$LocaleString:"Total Amount cannot \n be less than the \n Allocated Amount!"
    NoDenoError : $$LocaleString:"No Denos \n have been entered."
    BlankCDSError : $$LocaleString:"No Denos entered. \n Blank Cash Deposit Slip \n will be printed!"
    AccumulatedCDSNotification : $$LocaleString:"Details entered here will not get updated in the voucher!"
    CashDenosMismatch : $$LocaleString:"Incorrect Cash Denos. \n Enter valid Denos \n to save the voucher. "
    [Variable: RefreshDenoMethod]

    Type : String
    [System: Variable]

    RefreshDenoMethod : ""

    /*
    Below function is used to generate the Cash Deno String to be stored under Bank Allocations
    Cash Deno is being saved as a string in one storage, instead of using a sub-collection, by clubbing the note count
    in a string, separated by a "-" with the amount of "Others" appended at the end.
    */
    [Function: AppendCashDeno]

    Returns : String
    Variable: CashDeno : String
    Variable: CDOthersAmount: String

    0010 : SET : CDOthersAmount : If $$IsEmpty:$DenoAmountOthers Then "0" Else $DenoAmountOthers
    0020 : SET : Cash Deno : $$String:$DenoCount1000x + "-" + $$String:$DenoCount500x + "-" + $$String:$DenoCount100x + "-" + $$String:
    $DenoCount50x + "-" + $$String:$DenoCount20x + "-" + $$String:$DenoCount10x + "-" + $$String:$DenoCount5x + "-" + $$String:$DenoCount2x + "-" + $$String:
    $DenoCount1x + "-" + ##CDOthersAmount +"-"+$$String:$DenoCount2000x
    0030 : RETURN: ##CashDeno
    /*
    Below function is used to save cash Deno under bank allocations in case use default for bank allocations is set to yes.
    */

    ;[Function: SaveCashDenomUnderBank1]

    ; Variable: CashDeno : String
    ; Variable: CDOthersAmount: String

    ; 0010 : SET : CDOthersAmount : If $$IsEmpty:$DenoAmountOthers Then "0" Else $DenoAmountOthers
    ; 0020 : SET : Cash Deno : $$String:$DenoCount1000x + "-" + $$String:$DenoCount500x + "-" + $$String:$DenoCount100x + "-" + $$String:
    $DenoCount50x + "-" + $$String:$DenoCount20x + "-" + $$String:$DenoCount10x + "-" + $$String:$DenoCount5x + "-" + $$String:$DenoCount2x + "-" + $$String:
    $DenoCount1x + "-" + ##CDOthersAmount+"-"+$$String:$DenoCount2000x
    ; 0030 : SET TARGET : BankAllocations[1]
    ; 0040 : SET VALUE : CashDeno : ##CashDeno
    ; 0045 : SET VALUE : TransactionType : $$SysName:Cash
    ; 0050 : SET TARGET : ..
    ; 0060 : RETURN

    [Field: Deno Index]
    Width : 12
    Align : Right
    Skip : Yes
    Border : Thin Left

    [Field: Deno Count 2000x]

    Use : Number Field
    Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $$StringWordEx:$CashDeno:"-":11
    Width : 8
    Align : Right
    Max : @@MaxNameWidth
    Format : "NoZero, NoDecimal"
    Storage : DenoCount2000x
    Control : DenoAllocationError : #DenoRunningTotal > #CDAllocationAmount
    Validate : $$Value = $$Round:$$Value:1 AND NOT $$IsNegative:$$Value

    [Field: Deno Count 1000x]

    Use : Number Field
    Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $$StringWordEx:$CashDeno:"-":1
    Width : 8
    Align : Right
    Max : @@MaxNameWidth
    Format : "NoZero, NoDecimal"
    Storage : DenoCount1000x
    Control : DenoAllocationError : #DenoRunningTotal > #CDAllocationAmount
    Validate : $$Value = $$Round:$$Value:1 AND NOT $$IsNegative:$$Value
    Skip : #DenoRunningTotal = #CDAllocationAmount AND $$PrevLine:#DenoRunningTotal = #CDAllocationAmount

    [Field: Deno Count 500x]

    Use : Number Field
    Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $$StringWordEx:$CashDeno:"-":2
    Width : 8
    Align : Right
    Max : @@MaxNameWidth
    Format : "NoZero, NoDecimal"
    Storage : DenoCount500x
    Control : DenoAllocationError : #DenoRunningTotal > #CDAllocationAmount
    Validate : $$Value = $$Round:$$Value:1 AND NOT $$IsNegative:$$Value
    Skip : #DenoRunningTotal = #CDAllocationAmount AND $$PrevLine:#DenoRunningTotal = #CDAllocationAmount

    [Field: Deno Count 100x]

    Use : Number Field
    Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $$StringWordEx:$CashDeno:"-":3
    Width : 8
    Align : Right
    Max : @@MaxNameWidth
    Format : "NoZero, NoDecimal"
    Storage : DenoCount100x
    Control : DenoAllocationError : #DenoRunningTotal > #CDAllocationAmount
    Validate : $$Value = $$Round:$$Value:1 AND NOT $$IsNegative:$$Value
    Skip : #DenoRunningTotal = #CDAllocationAmount AND $$PrevLine:#DenoRunningTotal = #CDAllocationAmount

    [Field: Deno Count 50x]

    Use : Number Field
    Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $$StringWordEx:$CashDeno:"-":4
    Width : 8
    Align : Right
    Max : @@MaxNameWidth
    Format : "NoZero, NoDecimal"
    Storage : DenoCount50x
    Control : DenoAllocationError : #DenoRunningTotal > #CDAllocationAmount
    Validate : $$Value = $$Round:$$Value:1 AND NOT $$IsNegative:$$Value
    Skip : #DenoRunningTotal = #CDAllocationAmount AND $$PrevLine:#DenoRunningTotal = #CDAllocationAmount

    [Field: Deno Count 20x]

    Use : Number Field
    Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $$StringWordEx:$CashDeno:"-":5
    Width : 8
    Align : Right
    Max : @@MaxNameWidth
    Format : "NoZero, NoDecimal"
    Storage : DenoCount20x
    Control : DenoAllocationError : #DenoRunningTotal > #CDAllocationAmount
    Validate : $$Value = $$Round:$$Value:1 AND NOT $$IsNegative:$$Value
    Skip : #DenoRunningTotal = #CDAllocationAmount AND $$PrevLine:#DenoRunningTotal = #CDAllocationAmount

    [Field: Deno Count 10x]

    Use : Number Field
    Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $$StringWordEx:$CashDeno:"-":6
    Width : 8
    Align : Right
    Max : @@MaxNameWidth
    Format : "NoZero, NoDecimal"
    Storage : DenoCount10x
    Control : DenoAllocationError : #DenoRunningTotal > #CDAllocationAmount
    Validate : $$Value = $$Round:$$Value:1 AND NOT $$IsNegative:$$Value
    Skip : #DenoRunningTotal = #CDAllocationAmount AND $$PrevLine:#DenoRunningTotal = #CDAllocationAmount

    [Field: Deno Count 5x]

    Use : Number Field
    Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $$StringWordEx:$CashDeno:"-":7
    Width : 8
    Align : Right
    Max : @@MaxNameWidth
    Format : "NoZero, NoDecimal"
    Storage : DenoCount5x
    Control : DenoAllocationError : #DenoRunningTotal > #CDAllocationAmount
    Validate : $$Value = $$Round:$$Value:1 AND NOT $$IsNegative:$$Value
    Skip : #DenoRunningTotal = #CDAllocationAmount AND $$PrevLine:#DenoRunningTotal = #CDAllocationAmount

    [Field: Deno Count 2x]

    Use : Number Field
    Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $$StringWordEx:$CashDeno:"-":8
    Width : 8
    Align : Right
    Max : @@MaxNameWidth
    Format : "NoZero, NoDecimal"
    Storage : DenoCount2x
    Control : DenoAllocationError : #DenoRunningTotal > #CDAllocationAmount
    Validate : $$Value = $$Round:$$Value:1 AND NOT $$IsNegative:$$Value
    Skip : #DenoRunningTotal = #CDAllocationAmount AND $$PrevLine:#DenoRunningTotal = #CDAllocationAmount

    [Field: Deno Count 1x]

    Use : Number Field
    Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $$StringWordEx:$CashDeno:"-":9
    Width : 8
    Align : Right
    Max : @@MaxNameWidth
    Format : "NoZero, NoDecimal"
    Storage : DenoCount1x
    Control : DenoAllocationError : #DenoRunningTotal > #CDAllocationAmount
    Validate : $$Value = $$Round:$$Value:1 AND NOT $$IsNegative:$$Value
    Skip : #DenoRunningTotal = #CDAllocationAmount AND $$PrevLine:#DenoRunningTotal = #CDAllocationAmount

    [Field: Deno Count Others]

    Use : Number Field
    Width : 8
    Align : Right
    Max : @@MaxNameWidth
    Format : "NoZero, NoDecimal"
    Control : DenoAllocationError : #DenoRunningTotal > #CDAllocationAmount
    Skip : Yes

    [Field: Deno Amount Others]

    Use : Amount Forex Field
    Set by Condition : ($$InAlterMode OR $$InDuplicateMode) AND NOT $$IsEdited : $$AsAmount:($$StringWordEx:$CashDeno:"-":10)
    Set Always : Yes
    Storage : DenoAmountOthers
    Control : DenoAllocationError : If $$CompanyBaseCurrency = $$Currency:$$Value Then $$Total:DenoAmount + $$Value >
    #CDAllocationAmount Else No
    Validate : NOT $$IsNegative:$$Value AND (If $$IsEmpty:$$Value Then Yes Else $$CompanyBaseCurrency = $$Currency:$$Value)
    Skip : #DenoRunningTotal = #CDAllocationAmount AND $$PrevLine:#DenoRunningTotal = #CDAllocationAmount
    Notify : NoDenoError : $$IsEmpty:#CashDenosTotalAmt
    [Field: Deno Running Total]

    Type : Amount : Forced
    Set as : If #DenoIndex = $$LocaleString:"2000x" Then #DenoAmount Else ( If #DenoIndex = $$LocaleString:"Others" Then $$PrevLineField
    + #DenoAmountOthers Else (If $$IsEmpty:#DenoAmount Then $$PrevLineField Else (#DenoAmount + $$PrevLineField)))
    Set Always : Yes
    Invisible : Yes
    Skip : Yes
    Width : 10
    [Field: Deno Amount]

    Use : Amount Field
    Set Always : Yes
    Skip : Yes
    [Field: Cash Denos TotalTitle]

    Use : Name Field
    Width : 21
    Align : Center
    Info : "Total"
    Wide Spaced : Yes
    Border : Thin Left Right

    [Field: Cash Denos TotalAmt]

    Use : Amount Field
    Set as : $$Total:DenoAmount + #DenoAmountOthers
    Modifies : CashDenoTotalAmt : Yes
    Set Always : Yes
    Read only : Yes
    Control : DenoTotalError : $$Value < #CDAllocationAmount AND NOT $$IsEmpty:$$Value
    Control : DenoAllocationError : $$Total:DenoAmount + #DenoAmountOthers > #CDAllocationAmount
    [System:UDF]
    CashDeno:Amount:6215
    DenoAmount:Amount:6220
    DenoCount2000x : Number : 6221
    DenoCount1000x : Number : 6222
    DenoCount500x : Number : 6223
    DenoCount100x : Number : 6224
    DenoCount50x : Number : 6225
    DenoCount20x : Number : 6226
    DenoCount10x : Number : 6227
    DenoCount5x : Number : 6228
    DenoCount2x : Number : 6229
    DenoCount1x : Number : 6230
    DenoAmountOthers : Number : 6231
    [Collection:DenoAmount]
    Type:DenoAmount: Voucher
    Fetch:Amount
    Child Of:##SVCurrentCompany
    Object:Voucher
    [Collection:CashDeno]
    Type:CashDeno: Voucher
    Fetch:Number
    Child Of:##SVCurrentCompany
    Object:Voucher



    ;;End Of File
     


  2. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Let it be finished first....then I might work on a print solution.
     


  3. Jaydeep Shah

    Jaydeep Shah Member


    sir, final tdl is ready? solved?
     


  4. Jenny

    Jenny Active Member



    ;================================= START OF CASH DENOMINATIONS - Tally Table ==========================


    [#Field:Vch DrAmt]
    Add : Sub Form : Notes Breakup : @OpenNotesBreakupSubForm

    OpenNotesBreakupSubForm : $$IsReceipt:##SVVoucherType AND $$IsLedOfGrp:mad:@BankName:$$GroupCash

    [Report: Notes Breakup]
    Form : Notes Breakup

    [Form: Notes Breakup]
    Part : Notes Breakup Head, Notes Breakup
    Vertical Align : Center
    Horizontal Align : Center
    Width : 20% Screen
    Background : @@SV_DAYBOOK
    No Confirm : No

    [Part: Notes Breakup Head]
    Lines : Cash Bank Ledger Name , Cash Allocation Amount
    Horizontal Align : Center
    Space Bottom : 0.5

    [Line: Cash Bank Ledger Name]
    Field : Cash Bank Ledger Name

    [Field: Cash Bank Ledger Name]
    Use : Name Field
    Full Width : Yes
    Info : "Ledger: " + $$String:$LedgerName
    Align : Center
    Color : Blue
    Style : Large Bold

    [Line: Cash Allocation Amount]
    Fields : Simple Prompt, Cash Allocation Amount
    Local : Field : Simple Prompt : Set as : $$LocaleString:"Notes Break-up for : Rs. "
    Local : Field : Simple Prompt : fullWidth : yes
    Local : Field : Simple Prompt : Align : Centre
    Local : Field : Simple Prompt : Background : Black
    Local : Field : Simple Prompt : Color : Yellow

    [Field: Cash Allocation Amount]
    Use : Amount Field
    Align : Left
    Info : $Amount
    Background : Black
    Color : Yellow

    [Part: Notes Breakup]
    Lines : Notes Breakup Title, Deno Details, Notes Breakup Total, Notes Breakup Total2, Notes Breakup Pending Amount
    Total : DenoAmount
    Common Border : Yes
    ; Delete : Space Bottom

    [Line: Notes Breakup Title]
    Fields : Notes Breakup Title
    Right Field : Notes Breakup Amount Title
    Border : Column Titles

    [Field: Notes Breakup Title]
    Use : Name Field
    Width : 21
    Align : Center
    Info : $$LocaleString:"Currency-wise"
    Border : Thin Right
    Color : Blue

    [Field: Notes Breakup Amount Title]
    Use : Name Field
    Full Width : Yes
    Align : Right
    Info : $$LocaleString:"Amount"
    Color : Blue

    [Line: Deno Details]
    Lines : Deno 2000x, Deno 1000x, Deno 500x, Deno 200x, Deno 100x, Deno 50x, Deno 20x, Deno 10x, Deno 5x, Deno 2x, Deno 1x, Deno Others

    [Line: Deno 2000x]
    Fields : Deno Index, Deno Count 2000x, Deno Running Total
    Right Field : Deno Amount
    Local : Field : Deno Index : Info : $$LocaleString:"2000 x"
    Local : Field : Deno Index : Color : Blue
    Local : Field : Deno Index : Style : Normal Bold
    Local : Field : Deno Amount : Set as : $$AsAmount:#DenoCount2000x * 2000

    [Line: Deno 1000x]
    Fields : Deno Index, Deno Count 1000x, Deno Running Total
    Right Field : Deno Amount
    Local : Field : Deno Index : Info : $$LocaleString:"1000 x"
    Local : Field : Deno Index : Color : Blue
    Local : Field : Deno Index : Style : Normal Bold
    Local : Field : Deno Amount : Set as : $$AsAmount:#DenoCount1000x * 1000

    [Line: Deno 500x]
    Fields : Deno Index, Deno Count 500x, Deno Running Total
    Right Field : Deno Amount
    Local : Field : Deno Index : Info : $$LocaleString:"500 x"
    Local : Field : Deno Index : Color : Blue
    Local : Field : Deno Index : Style : Normal Bold
    Local : Field : Deno Amount : Set as : $$AsAmount:#DenoCount500x * 500

    [Line: Deno 200x]
    Fields : Deno Index, Deno Count 200x, Deno Running Total
    Right Field : Deno Amount
    Local : Field : Deno Index : Info : $$LocaleString:"200 x"
    Local : Field : Deno Index : Color : Blue
    Local : Field : Deno Index : Style : Normal Bold
    Local : Field : Deno Amount : Set as : $$AsAmount:#DenoCount200x * 200

    [Line: Deno 100x]
    Fields : Deno Index, Deno Count 100x, Deno Running Total
    Right Field : Deno Amount
    Local : Field : Deno Index : Info : $$LocaleString:"100 x"
    Local : Field : Deno Index : Color : Blue
    Local : Field : Deno Index : Style : Normal Bold
    Local : Field : Deno Amount : Set as : $$AsAmount:#DenoCount100x * 100

    [Line: Deno 50x]
    Fields : Deno Index, Deno Count 50x, Deno Running Total
    Right Field : Deno Amount
    Local : Field : Deno Index : Info : $$LocaleString:"50 x"
    Local : Field : Deno Index : Color : Blue
    Local : Field : Deno Index : Style : Normal Bold
    Local : Field : Deno Amount : Set as : $$AsAmount:#DenoCount50x * 50

    [Line: Deno 20x]
    Fields : Deno Index, Deno Count 20x, Deno Running Total
    Right Field : Deno Amount
    Local : Field : Deno Index : Info : $$LocaleString:"20 x"
    Local : Field : Deno Index : Color : Blue
    Local : Field : Deno Index : Style : Normal Bold
    Local : Field : Deno Amount : Set as : $$AsAmount:#DenoCount20x * 20

    [Line: Deno 10x]
    Fields : Deno Index, Deno Count 10x, Deno Running Total
    Right Field : Deno Amount
    Local : Field : Deno Index : Info : $$LocaleString:"10 x"
    Local : Field : Deno Index : Color : Blue
    Local : Field : Deno Index : Style : Normal Bold
    Local : Field : Deno Amount : Set as : $$AsAmount:#DenoCount10x * 10

    [Line: Deno 5x]
    Fields : Deno Index, Deno Count 5x, Deno Running Total
    Right Field : Deno Amount
    Local : Field : Deno Index : Info : $$LocaleString:"5 x"
    Local : Field : Deno Index : Color : Blue
    Local : Field : Deno Index : Style : Normal Bold
    Local : Field : Deno Amount : Set as : $$AsAmount:#DenoCount5x * 5

    [Line: Deno 2x]
    Fields : Deno Index, Deno Count 2x, Deno Running Total
    Right Field : Deno Amount
    Local : Field : Deno Index : Info : $$LocaleString:"2 x"
    Local : Field : Deno Index : Color : Blue
    Local : Field : Deno Index : Style : Normal Bold
    Local : Field : Deno Amount : Set as : $$AsAmount:#DenoCount2x * 2

    [Line: Deno 1x]
    Fields : Deno Index, Deno Count 1x, Deno Running Total
    Right Field : Deno Amount
    Local : Field : Deno Index : Info : $$LocaleString:"1 x"
    Local : Field : Deno Index : Color : Blue
    Local : Field : Deno Index : Style : Normal Bold
    Local : Field : Deno Amount : Set as : $$AsAmount:#DenoCount1x

    [Line: Deno Others]
    Fields : Deno Index, Deno Count Others, Deno Running Total
    Right Field : Deno Amount Others
    Local : Field : Deno Index : Info : $$LocaleString:"Others"
    Local : Field : Deno Index : Color : Blue
    Local : Field : Deno Index : Style : Normal Bold
    Local : Field : Deno Amount : Set as : $$AsAmount:#DenoAmountOthers

    [Line: Notes Breakup Pending Amount]
    Use : Notes Breakup Total
    Border : Thin Bottom
    Local : Field : Notes Breakup Total Title : Info : $$LocaleString:"Difference"
    Local : Field : Notes Breakup Total Title : Color : Red
    ; Local : Field : Notes Breakup Total Title : Delete : Wide Spaced
    ; Local : Field : Notes Breakup Total Title : Delete : Style
    Local : Field : Notes Breakup TotalAmt : Set as : #CashAllocationAmount - ($$Total:DenoAmount + #DenoAmountOthers)
    Local : Field : Notes Breakup TotalAmt : Color : Red
    Local : Field : Notes Breakup TotalAmt : Skip : Yes

    [Line: Notes Breakup Total]
    Fields : Notes Breakup TotalTitle
    Right Field : Notes Breakup TotalAmt
    Border : Totals

    [Line: Notes Breakup Total2]

    Fields : Notes TotalTitle
    Right Field : Notes TotalNo
    Border : Totals

    [System: Formula]

    DenoAllocationError : $$LocaleString:"Total Amount cannot \n be greater than the \n Allocated Amount!"
    DenoTotalError : $$LocaleString:"Total Amount cannot \n be less than the \n Allocated Amount!"
    NoDenoError : $$LocaleString:"No Currency break-up \n have been entered."
    BlankCashSError : $$LocaleString:"No Currency entered. \n Blank Cash Deposit Slip \n will be printed!"
    AccumulatedCashSNotification : $$LocaleString:"Details entered here will not get updated in the voucher!"
    NotesBreakupMismatch : $$LocaleString:"Incorrect Notes Breakup. \n Enter valid Denominations \n to save the voucher. "

    [Field: Deno Index]

    Width : 12
    Align : Right
    Skip : Yes
    Border : Thin Left

    [Field: Deno Count 2000x]

    Use : Number Field
    Width : 8
    Align : Right
    Max : @@MaxNameWidth
    Format : "NoZero, NoDecimal"
    Storage : DenoCount2000x
    Control : DenoAllocationError : #DenoRunningTotal > #CashAllocationAmount
    Validate : $$Value = $$Round:$$Value:1 AND NOT $$IsNegative:$$Value

    [Field: Deno Count 1000x]

    Use : Number Field
    Width : 8
    Align : Right
    Max : @@MaxNameWidth
    Format : "NoZero, NoDecimal"
    Storage : DenoCount1000x
    Control : DenoAllocationError : #DenoRunningTotal > #CashAllocationAmount
    Validate : $$Value = $$Round:$$Value:1 AND NOT $$IsNegative:$$Value
    Skip : #DenoRunningTotal = #CashAllocationAmount AND $$PrevLine:#DenoRunningTotal = #CashAllocationAmount

    [Field: Deno Count 500x]

    Use : Number Field
    Width : 8
    Align : Right
    Max : @@MaxNameWidth
    Format : "NoZero, NoDecimal"
    Storage : DenoCount500x
    Control : DenoAllocationError : #DenoRunningTotal > #CashAllocationAmount
    Validate : $$Value = $$Round:$$Value:1 AND NOT $$IsNegative:$$Value
    Skip : #DenoRunningTotal = #CashAllocationAmount AND $$PrevLine:#DenoRunningTotal = #CashAllocationAmount

    [Field: Deno Count 200x]

    Use : Number Field
    Width : 8
    Align : Right
    Max : @@MaxNameWidth
    Format : "NoZero, NoDecimal"
    Storage : DenoCount200x
    Control : DenoAllocationError : #DenoRunningTotal > #CashAllocationAmount
    Validate : $$Value = $$Round:$$Value:1 AND NOT $$IsNegative:$$Value
    Skip : #DenoRunningTotal = #CashAllocationAmount AND $$PrevLine:#DenoRunningTotal = #CashAllocationAmount

    [Field: Deno Count 100x]

    Use : Number Field
    Width : 8
    Align : Right
    Max : @@MaxNameWidth
    Format : "NoZero, NoDecimal"
    Storage : DenoCount100x
    Control : DenoAllocationError : #DenoRunningTotal > #CashAllocationAmount
    Validate : $$Value = $$Round:$$Value:1 AND NOT $$IsNegative:$$Value
    Skip : #DenoRunningTotal = #CashAllocationAmount AND $$PrevLine:#DenoRunningTotal = #CashAllocationAmount

    [Field: Deno Count 50x]

    Use : Number Field
    Width : 8
    Align : Right
    Max : @@MaxNameWidth
    Format : "NoZero, NoDecimal"
    Storage : DenoCount50x
    Control : DenoAllocationError : #DenoRunningTotal > #CashAllocationAmount
    Validate : $$Value = $$Round:$$Value:1 AND NOT $$IsNegative:$$Value
    Skip : #DenoRunningTotal = #CashAllocationAmount AND $$PrevLine:#DenoRunningTotal = #CashAllocationAmount

    [Field: Deno Count 20x]

    Use : Number Field
    Width : 8
    Align : Right
    Max : @@MaxNameWidth
    Format : "NoZero, NoDecimal"
    Storage : DenoCount20x
    Control : DenoAllocationError : #DenoRunningTotal > #CashAllocationAmount
    Validate : $$Value = $$Round:$$Value:1 AND NOT $$IsNegative:$$Value
    Skip : #DenoRunningTotal = #CashAllocationAmount AND $$PrevLine:#DenoRunningTotal = #CashAllocationAmount

    [Field: Deno Count 10x]

    Use : Number Field
    Width : 8
    Align : Right
    Max : @@MaxNameWidth
    Format : "NoZero, NoDecimal"
    Storage : DenoCount10x
    Control : DenoAllocationError : #DenoRunningTotal > #CashAllocationAmount
    Validate : $$Value = $$Round:$$Value:1 AND NOT $$IsNegative:$$Value
    Skip : #DenoRunningTotal = #CashAllocationAmount AND $$PrevLine:#DenoRunningTotal = #CashAllocationAmount

    [Field: Deno Count 5x]

    Use : Number Field
    Width : 8
    Align : Right
    Max : @@MaxNameWidth
    Format : "NoZero, NoDecimal"
    Storage : DenoCount5x
    Control : DenoAllocationError : #DenoRunningTotal > #CashAllocationAmount
    Validate : $$Value = $$Round:$$Value:1 AND NOT $$IsNegative:$$Value
    Skip : #DenoRunningTotal = #CashAllocationAmount AND $$PrevLine:#DenoRunningTotal = #CashAllocationAmount

    [Field: Deno Count 2x]

    Use : Number Field
    Width : 8
    Align : Right
    Max : @@MaxNameWidth
    Format : "NoZero, NoDecimal"
    Storage : DenoCount2x
    Control : DenoAllocationError : #DenoRunningTotal > #CashAllocationAmount
    Validate : $$Value = $$Round:$$Value:1 AND NOT $$IsNegative:$$Value
    Skip : #DenoRunningTotal = #CashAllocationAmount AND $$PrevLine:#DenoRunningTotal = #CashAllocationAmount

    [Field: Deno Count 1x]

    Use : Number Field
    Width : 8
    Align : Right
    Max : @@MaxNameWidth
    Format : "NoZero, NoDecimal"
    Storage : DenoCount1x
    Control : DenoAllocationError : #DenoRunningTotal > #CashAllocationAmount
    Validate : $$Value = $$Round:$$Value:1 AND NOT $$IsNegative:$$Value
    Skip : #DenoRunningTotal = #CashAllocationAmount AND $$PrevLine:#DenoRunningTotal = #CashAllocationAmount

    [Field: Deno Count Others]

    Use : Number Field
    Width : 8
    Align : Right
    Max : @@MaxNameWidth
    Format : "NoZero, NoDecimal"
    Control : DenoAllocationError : #DenoRunningTotal > #CashAllocationAmount
    Skip : Yes

    [Field: Deno Amount Others]

    Use : Amount Forex Field
    Set Always : Yes
    Storage : DenoAmountOthers
    Control : DenoAllocationError : If $$CompanyBaseCurrency = $$Currency:$$Value Then $$Total:DenoAmount + $$Value > #CashAllocationAmount Else No
    Validate : NOT $$IsNegative:$$Value AND (If $$IsEmpty:$$Value Then Yes Else $$CompanyBaseCurrency = $$Currency:$$Value)
    Skip : #DenoRunningTotal = #CashAllocationAmount AND $$PrevLine:#DenoRunningTotal = #CashAllocationAmount
    Notify : NoDenoError : $$IsEmpty:#NotesBreakupTotalAmt

    [Field: Deno Running Total]

    Type : Amount : Forced
    Set as : If #DenoIndex = $$LocaleString:"2000x" Then #DenoAmount Else ( If #DenoIndex = $$LocaleString:"Others" Then $$PrevLineField + #DenoAmountOthers Else (If $$IsEmpty:#DenoAmount Then $$PrevLineField Else (#DenoAmount + $$PrevLineField)))
    Set Always : Yes
    Invisible : Yes
    Skip : Yes
    Width : 10

    [Field: Deno Amount]

    Use : Amount Field
    Set Always : Yes
    Skip : Yes





    [Field: Notes Breakup TotalTitle]

    Use : Name Field
    Width : 21
    Align : Center
    Info : "Total"
    Wide Spaced : Yes
    Border : Thin Left Right

    [Field: Notes Breakup TotalAmt]

    Use : Amount Field
    Set as : $$Total:DenoAmount + #DenoAmountOthers
    Modifies : CashDenoTotalAmt : Yes
    Set Always : Yes
    Read only : Yes
    Control : DenoTotalError : $$Value < #CashAllocationAmount AND NOT $$IsEmpty:$$Value
    Control : DenoAllocationError : $$Total:DenoAmount + #DenoAmountOthers > #CashAllocationAmount


    [Field: Notes TotalTitle]

    Use : Name Field
    Width : 21
    Align : Center
    Info : "# of Notes"
    ; Wide Spaced : Yes
    Border : Thin Left Right
    Color : Blue

    [Field: Notes TotalNo]

    Use : Name Field
    Set as : $$LocaleString:($DenoCount2000x + $DenoCount1000x + $DenoCount500x + $DenoCount200x +$DenoCount100x + $DenoCount50x + $DenoCount20x + $DenoCount10x + $DenoCount5x + $DenoCount2x + $DenoCount1x) + " Nos"
    Set Always : Yes
    Read only : Yes
    Color : Blue
    Skip : Yes
    Align : Right

    [System:UDF]

    CashDeno : Amount : 6215
    DenoAmount : Amount : 6220

    DenoCount2000x : Number : 6230
    DenoCount1000x : Number : 6231
    DenoCount500x : Number : 6232
    DenoCount200x : Number : 6241
    DenoCount100x : Number : 6233
    DenoCount50x : Number : 6234
    DenoCount20x : Number : 6235
    DenoCount10x : Number : 6236
    DenoCount5x : Number : 6237
    DenoCount2x : Number : 6238
    DenoCount1x : Number : 6239
    DenoAmountOthers: Amount : 6240




    ;================================= END OF CASH DENOMINATIONS - Tally Table ==========================




    ;================================= START OF ADDITIONAL FIELDS IN RECEIPT VOUCHER ==========================

    [#Form: Receipt Color] ;;VCH ReceiptDetails]
    Local : Part : VCH Narration : Add : Line : Before : VCH NarrPrompt : NotesBreakupTitle1
    Local : Part : VCH Narration : Add : Line : After : NotesBreakupTitle1 : NotesBreakupDetails


    [Line : NotesBreakupTitle1]
    Fields: N2000, N1000, N500, N200, N100, N50, N20, N10, N5, N2, N1, Nothers
    Local : Field : Default : Background : White
    Local : Field : Default : Color : Blue

    [Field: N2000]
    Use : Name Field
    Width : 4
    Align : Center
    Style : Tiny
    Set As : "2000x"
    Set Always : Yes
    Skip : Yes
    Border : Thin Box

    [Field: N1000]
    Use : Name Field
    Width : 4
    Align : Center
    Style : Tiny
    Set As : "1000x"
    Set Always : Yes
    Skip : Yes
    Border : Thin Box

    [Field: N500]
    Use : Name Field
    Width : 4
    Align : Center
    Style : Tiny
    Set As : "500x"
    Set Always : Yes
    Skip : Yes
    Border : Thin Box

    [Field: N200]
    Use : Name Field
    Width : 4
    Align : Center
    Style : Tiny
    Set As : "200x"
    Set Always : Yes
    Skip : Yes
    Border : Thin Box

    [Field: N100]
    Use : Name Field
    Width : 4
    Align : Center
    Style : Tiny
    Set As : "100x"
    Set Always : Yes
    Skip : Yes
    Border : Thin Box

    [Field: N50]
    Use : Name Field
    Width : 4
    Align : Center
    Style : Tiny
    Set As : "50x"
    Set Always : Yes
    Skip : Yes
    Border : Thin Box

    [Field: N20]
    Use : Name Field
    Width : 4
    Align : Center
    Style : Tiny
    Set As : "20x"
    Set Always : Yes
    Skip : Yes
    Border : Thin Box

    [Field: N10]
    Use : Name Field
    Width : 4
    Align : Center
    Style : Tiny
    Set As : "10x"
    Set Always : Yes
    Skip : Yes
    Border : Thin Box

    [Field: N5]
    Use : Name Field
    Width : 4
    Align : Center
    Style : Tiny
    Set As : "5x"
    Set Always : Yes
    Skip : Yes
    Border : Thin Box

    [Field: N2]
    Use : Name Field
    Width : 4
    Align : Center
    Style : Tiny
    Set As : "2x"
    Set Always : Yes
    Skip : Yes
    Border : Thin Box

    [Field: N1]
    Use : Name Field
    Width : 4
    Align : Center
    Style : Tiny
    Set As : "1x"
    Set Always : Yes
    Skip : Yes
    Border : Thin Box

    [Field: Nothers]
    Use : Name Field
    Width : 4
    Align : Center
    Style : Tiny
    Set As : "Others"
    Set Always : Yes
    Skip : Yes
    Border : Thin Box

    [Line : NotesBreakupDetails]
    Fields : A2000, A1000, A500, A200, A100, A50, A20, A10, A5, A2, A1, Aothers
    Local : Field : Default : Style : Tiny
    Local : Field : Default : Border: Thin Box

    [Field: A2000]
    Use : Number Field
    Width : 4
    Align : Center
    Set As : $$CollectionField:$DenoCount2000x:($$NumItems:AllLedgerEntries):AllLedgerEntries
    Set Always : Yes
    Skip : Yes
    Format : "NoZero, NoDecimal"

    [Field: A1000]
    Use : Number Field
    Width : 4
    Align : Center
    Set As : $$CollectionField:$DenoCount1000x:($$NumItems:AllLedgerEntries):AllLedgerEntries
    Set Always : Yes
    Skip : Yes
    Format : "NoZero, NoDecimal"

    [Field: A500]
    Use : Number Field
    Width : 4
    Align : Center
    Set As : $$CollectionField:$DenoCount500x:($$NumItems:AllLedgerEntries):AllLedgerEntries
    Set Always : Yes
    Skip : Yes
    Format : "NoZero, NoDecimal"

    [Field: A200]
    Use : Number Field
    Width : 4
    Align : Center
    Set As : $$CollectionField:$DenoCount200x:($$NumItems:AllLedgerEntries):AllLedgerEntries
    Set Always : Yes
    Skip : Yes
    Format : "NoZero, NoDecimal"

    [Field: A100]
    Use : Number Field
    Width : 4
    Align : Center
    Set As : $$CollectionField:$DenoCount100x:($$NumItems:AllLedgerEntries):AllLedgerEntries
    Set Always : Yes
    Skip : Yes
    Format : "NoZero, NoDecimal"

    [Field: A50]
    Use : Number Field
    Width : 4
    Align : Center
    Set As : $$CollectionField:$DenoCount50x:($$NumItems:AllLedgerEntries):AllLedgerEntries
    Set Always : Yes
    Skip : Yes
    Format : "NoZero, NoDecimal"

    [Field: A20]
    Use : Number Field
    Width : 4
    Align : Center
    Set As : $$CollectionField:$DenoCount20x:($$NumItems:AllLedgerEntries):AllLedgerEntries
    Set Always : Yes
    Skip : Yes
    Format : "NoZero, NoDecimal"

    [Field: A10]
    Use : Number Field
    Width : 4
    Align : Center
    Set As : $$CollectionField:$DenoCount10x:($$NumItems:AllLedgerEntries):AllLedgerEntries
    Set Always : Yes
    Skip : Yes
    Format : "NoZero, NoDecimal"

    [Field: A5]
    Use : Number Field
    Width : 4
    Align : Center
    Set As : $$CollectionField:$DenoCount5x:($$NumItems:AllLedgerEntries):AllLedgerEntries
    Set Always : Yes
    Skip : Yes
    Format : "NoZero, NoDecimal"

    [Field: A2]
    Use : Number Field
    Width : 4
    Align : Center
    Set As : $$CollectionField:$DenoCount2x:($$NumItems:AllLedgerEntries):AllLedgerEntries
    Set Always : Yes
    Skip : Yes
    Format : "NoZero, NoDecimal"

    [Field: A1]
    Use : Number Field
    Width : 4
    Align : Center
    Set As : $$CollectionField:$DenoCount1x:($$NumItems:AllLedgerEntries):AllLedgerEntries
    Set Always : Yes
    Skip : Yes
    Format : "NoZero, NoDecimal"

    [Field: Aothers]
    Use : Number Field
    Width : 4
    Align : Center
    Set As : $$CollectionField:$DenoAmountOthers:($$NumItems:AllLedgerEntries):AllLedgerEntries
    Set Always : Yes
    Skip : Yes
    Format : "NoZero, NoDecimal"




    ;================================ END OF ADDITIONAL FIELDS IN RECEIPT VOUCHER ==========================


    ;================================ START OF ADDITIONAL FIELDS IN PAYMENT VOUCHER ========================

    [#Field:Vch CrAmt]
    Add : Sub Form : Notes Breakup : @OpenNotesBreakupSubForm

    OpenNotesBreakupSubForm : $$IsPayment:##SVVoucherType AND $$IsLedOfGrp:mad:@BankName:$$GroupCash

    [#Form: Payment Color]
    Local : Part : VCH Narration : Add : Line : Before : VCH NarrPrompt : NotesBreakupTitle1
    Local : Part : VCH Narration : Add : Line : After : NotesBreakupTitle1 : NotesBreakupDetails

    ;================================ END OF ADDITIONAL FIELDS IN PAYMENT VOUCHER =========================
     
    Manjunath Koparde likes this.


  5. Devaki

    Devaki Member


    Amit kamdar sir, how you picked "cashdenomalloc.500" from Default TDLs in Tally Developer. Please guide me, i already downloaded and installed the tally developer 9, now i am trying to understand the code.
     


  6. Jenny

    Jenny Active Member


    Press "Ctrl+D" And Serach "cashdenomalloc"
     


  7. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Is this not working?? Any reason you have quoted my text???

    Anyway this is old code.....and revised code was made, which works on payment and elsewhere too.
     


  8. Jenny

    Jenny Active Member


    this file work properly
     

    Attached Files:



  9. Jenny

    Jenny Active Member


    In payment part its working
     


  10. Jenny

    Jenny Active Member


    sorry for that i quoted your text....
     


  11. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    As per the Code...it should be working with RECEIPT...........not payment.
     


  12. Jenny

    Jenny Active Member


    its working "RECEIPT & "PAY Untitled1.jpg Untitled1.jpg MENT" Also. just see in my screen short
     


  13. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Glad to know...enjoy...
     


  14. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Introduce the fields in your print report.
     


  15. nasir

    nasir Member


    hi sir ji
     


  16. Jay kumar tailor

    Jay kumar tailor Well-Known Member



  17. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    If you are seeing the small boxes, then it is already enabled.
     


  18. Jay kumar tailor

    Jay kumar tailor Well-Known Member


    small boxes ?:mad:

    read carefully first.

    i say "showing table only before vch narration."

    means

    "Other Things Are Not Working Properly."
     
    Last edited: Sep 11, 2018


  19. Jay kumar tailor

    Jay kumar tailor Well-Known Member


    it is not working in single Entry Mode.
    :)
     


  20. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Good.........not working properly for you.......... then should not use it. :)
     


  21. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    READ Carefully....... "IF you...." If has been used. And your question was "how to enable this" so the answer was to that question only.
     
    Jaydeep Shah likes this.


  22. Jay kumar tailor

    Jay kumar tailor Well-Known Member


    please
    dont argue

    focus to make it better.

    why i should not use ?

    please dont post anything that you say " should not use."
     


  23. Jay kumar tailor

    Jay kumar tailor Well-Known Member


    Try single entry mode First.
     


  24. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    My version is working........... which version you have downloaded or copied i do not know.

    My versions is working for single entry and double entry and also for Payment, Receipt and Cash Journals as well. It also has a toggle button to activate/deactivate as per needs. And the same has been incorporated in Printing of Payment Advice and Formal Receipt.

    The version posted by someone earlier is an very old version and same should be used for betterment or changes as per user's need. Feel free to improvise.

    My intention is to make people focus on learning, to make TDLs.
     
    Jaydeep Shah likes this.


  25. Jay kumar tailor

    Jay kumar tailor Well-Known Member


    In the same way also.


    Also distributing free TDL'S in my city for education.
    :)
     
    Last edited: Sep 11, 2018


Share This Page