Why Repeat behaves differently here???

Discussion in 'Tally Developer' started by Vishal1419, Aug 10, 2015.

    
  1. Vishal1419

    Vishal1419 New Member


    I open a subform in which I enter serial numbers like below:
    [​IMG]

    Now I explode it on existing line of StockItem in Purchase voucher, but it does not get displayed as expected:

    [​IMG]

    Then:
    [​IMG]

    Then:
    [​IMG]

    Here is the code to get above mentioned error:

    I have 6 files in total in my project:
    1. Serial Number and Warranty.txt

    Code:
    [Include: Enabling Serial Number and Warranty.txt]
    [Include: Altering Field Definitions.txt]
    [Include: Displaying Serial Number in Voucher.txt]
    
    2. Enabling Serial Number and Warranty.txt

    Code:
    [#Part: CMP InvFeat Left]
        Add    :    Line    :    Before    :    CMP ActualQty    :    CMP SNWrntyOn
       
        [Line: CMP SNWrntyOn]
            Fields      : Medium Prompt, CMP SNWrntyOn
            Local       : Field : Medium Prompt : Info  : $$LocaleString:"Maintain Serial Number and Warranty ?"
            Space Top   : 0.4
           
            [Field    :    CMP SNWrntyOn]
                Use         : Logical Field
                Storage     : IsSNWrntyOn
                Set as      : $$Value
                Set always  : Yes
                Skip on     : NOT $IsInventoryOn
    
    [System: UDF]
        IsSNWrntyOn        :    Logical    :    20001
    
    
    3. Enabling Serial Number And Warranty in Master Stock Item.txt

    Code:
    [#Part: STKI Basic Features]
        Add    : Part    :    Before    :    STKI Batch    :    prtSTKI SN
       
        [Part:    prtSTKI SN]
            Line    :    lnSTKI SN
           
            [Line:    lnSTKI SN]
                Fields      : Medium Prompt, fldSTKI SN
                Local       : Field : Medium Prompt : Set as    : If $$IsSysName:$BaseUnits then "" else $$LocaleString:"Use Serial Numbers and Warranty ?"
                Invisible   : NOT $IsSNWrntyOn:Company:##SVCurrentCompany           
                Space Top    : 0.5
    
                [Field: fldSTKI SN]
                    Use         : Logical Field
                    ;Type        : Logical : Forced
                    Storage     : IsSTKISNWrntyOn
                    Set as      : $$Value
                  ;SetVal        : If $$IsEmpty:$IsBatchWiseOn:StockGroup:$Parent OR NOT $IsBatchWiseOn:StockGroup:$Parent Then No else Yes   
                   ;Set it on groups and make required changes
                    Set always  : Yes
                    Inactive    : $$IsSysName:$BaseUnits
                   ;Skip on     : if $$InCreateMode then No Else $ItemBatchesExist
                   ;Option      : MSTKI BatchableOption : ##MVInMultiMode
    
    [System: UDF]
        IsSTKISNWrntyOn        :    Logical    :    20002
    
    [System:Formula]
        frmlISSTKISNWrntyOn    :    $IsSTKISNWrntyOn
    
    4. Altering Field Definitions.txt

    Code:
    [Include: Enabling Serial Number And Warranty in Master Stock Item.txt]
    
    [#Field: STKI OpBal]
        Sub Form    :    rptSerialNumber     : $IsSTKISNWrntyOn AND ((NOT ($IsBatchWiseOn Or $$IsMultiGodownOn) ) And (NOT $$IsEmpty:$OpeningBalance))
        Sub Form    :    STKBATCHAllocation  : ($IsBatchWiseOn OR $$IsMultiGodownOn) AND (NOT $$IsEmpty:$OpeningBalance)
       
    [#Field: STKALLOC Qty]        ;This variable is for showing Quantity Field in Batch in Stock Item Opening Balance
        Sub Form    :    rptSerialNumber     : $$Owner:$IsSTKISNWrntyOn
    
    [#Field: VCH BilledQty]
        Sub Form    :    rptSerialNumber        : $IsSTKISNWrntyOn:StockItem:$StockItemName
       
    [#Field: VCHBATCH BilledQty]
        Sub Form    :    rptSerialNumber        : $IsSTKISNWrntyOn:StockItem:$StockItemName
    
    
    5.Serial Number Sub Form.txt

    Code:
    [Report    :    rptSerialNumber]
        Form    :    frmSerialNumber
       
        [Form    :    frmSerialNumber]
            Parts    :    prtSerialNumberTitle, prtSerialNumberBody
    
            [Part    :    prtSerialNumberTitle]
                Line    :     lnSerialNumberTitle
               
                [Line    :    lnSerialNumberTitle]
                    Field    :    fldSerialNumberTitle
                   
                    [Field    :    fldSerialNumberTitle]
                        Info    :    "Serial Numbers"
               
            [Part    :    prtSerialNumberBody]
                Line    :    lnSerialNumberBody
                Repeat    :    lnSerialNumberBody    :    collSerialNumber
                Scroll    :    Vertical
                Break On:    if ($VoucherTypeName = "Purchase" or $VoucherTypeName = "Sales") then +
                                ($$Line > $$Number:$$Owner:$BilledQty) or ($$IsEmpty:$collSerialNumber) +
                            else +
                                ($$Line > $$Number:$$Owner:$OpeningBalance) or ($$IsEmpty:$collSerialNumber)
           
                [Line    :    lnSerialNumberBody]
                    Field    :    fldSerialNumberBody
                    Indent  :     If $$InPrintMode Then 6 Else 2
           
                    [Field    :    fldSerialNumberBody]
                        Use     :     Name Field
                        Style   :     Small Italic
                        Storage    :    collSerialNumber
    ;                    Set as    :    if ($VoucherTypeName = "Purchase" or $VoucherTypeName = "Sales") then +
    ;                                    $collSerialNumber:StockItem:StockItem +
    ;                                else +
    ;                                    ""
                        Unique    :    Yes
       
    [System: UDF]
        collSerialNumber:    String    :    20001   
       
    [Collection: collSerialNumber]
        Type: String
    
    
    6. Displaying Serial Number in Voucher.txt

    Code:
    [Include: Serial Number Sub Form.txt]
    [#Line: EI InvInfo]
        Explode    :    prtSerialNumberBody    :    $IsSTKISNWrntyOn:StockItem:$StockItemName
    
     

    Attached Files:

    • 1_2.jpg
      1_2.jpg
      File size:
      6.5 KB
      Views:
      129
    • 2_2.jpg
      2_2.jpg
      File size:
      19.7 KB
      Views:
      125
    • 3.jpg
      3.jpg
      File size:
      23.2 KB
      Views:
      123
    • 4.jpg
      4.jpg
      File size:
      73.3 KB
      Views:
      120
    Last edited: Aug 10, 2015


  2. NAGARAJKMAR SUBRAMANIAN

    NAGARAJKMAR SUBRAMANIAN Active Member


    ok, I will Chk it n Update u
     


  3. Vishal1419

    Vishal1419 New Member


    Sir, Please check my code if you get time
     


  4. Vishal1419

    Vishal1419 New Member


    To, Nagrajkumar Subramanian

    Sir, Have you checked my code?
     


Share This Page