Stock Item List with Part No on Same Line

Code:

/*.................Created by MBA..................*/
/*.................Item List to Appear with Part No and  Closing Balance.................*/

[Collection:List of StockItem With All Details]
    Title       : $$LocaleString:"List of Stock Items"
    Type        : Stock Item
    Fetch       : Name
    Use     : List of Stock Items
    Format  : @@Partno     
    Format  : @@VchStkItmBalance   : "Base"
    Report      : Stock Item
    Variable    : SStockItem
    Trigger     : SStockItem
    IsODBCTable : Yes
     With Alias  : No
   
    [System:Formula]
        Partno: $Partno
       




[#Field: VCHACC StockItem]

        Table       : List of Stockitem With All Details,EndofList
        Delete:Table       : Vch Stock Item Extract, EndofList        : NOT ##VCHStkCommonTable AND NOT @@IsPOSInvoice
        Delete:Table       : List of ExtractStockItems, EndOfList  : ##VCHStkCommonTable AND NOT @@IsPOSInvoice
        Delete:Table       : List of POSStockItems, EndOfList      : @@IsPOSInvoice

/*        Sub Form    : STKVCH BatchAllocations    : @@BatchesSrcColl AND (@@IsExciseSupplementaryInv AND NOT $$IsEnd:$$Value) OR (NOT @@IsPOSInvoice AND NOT $$IsEnd:$StockItemName AND ($$IsTrackingOn OR @@HasBatchWise OR +
                                                   $$IsMultiGodownOn OR @@IsOrdersOn OR @@IsJoborderVouchers OR @@IsStkCostTrackingON))
                                                 


        Sub Form    : STKVCH POS BatchAllocations: (@@IsPOSInvoice AND NOT $$IsEnd:$StockItemName AND (@@HasBatchWise)) AND +
                                                  @@BatchesSrcColl
               
        Sub Form    : ExciseCN TrackDetails          : NOT ((@@IsExciseSupplementaryInv AND NOT $$IsEnd:$$Value) OR (NOT @@IsPOSInvoice AND NOT $$IsEnd:$StockItemName AND ($$IsTrackingOn OR @@HasBatchWise OR $$IsMultiGodownOn OR @@IsOrdersOn OR @@IsJoborderVouchers OR @@IsStkCostTrackingON))) +
                                                 AND (@@IsExciseSalesTrackCreditNote AND NOT $$IsEnd:$StockItemName)
       
        Keys        : PrevLedItem, RepeatLedItem

        Set as      : $$Value
        Option    : WithCommonTable               : ##VCHStkCommonTable
        Option    : VCHStockItemTypeClass            : $$InCreateMode AND @@ClassUsed

        Option    : ExciseMfgr StockItem            : @@IsExciseSupplementaryInv
 
    */
   

            [#Line: EI ColumnOne]
                Add:Field:After:VCH ItemTitle:VCH ItemPartnoTitle
                [Field:VCH ItemPartnoTitle]
                             Use         : Name Title Field
                            Width       : @@VCHShortNameWidth
                            Set as      : $$LocaleString:"Part No"
                            Style       : Normal Bold
                            Space Left: 13 % Screen
[#Line: CI InvInfo]
    
                Add:Field:After:VCHStockItem:VCH ItemPartno
                [Field:VCH ItemPartno]
                            
                            Set as:$partno:Stockitem:$stockitemname
                            Width:@@VCHShortNameWidth
                            Skip:Yes
                    [#Line: EI InvInfo]
                        Add:Field:After:VCHStockItem:VCH ItemPartno
                       


;;alhumdilah