Job Work Voucher & Report Out of Memory Issue.

Discussion in 'Requests' started by zakirhossain_diu, May 18, 2019.

         
Tags:

  1. Code:
    ; can anybody check How i can improve performance at report level.
    ;Sometimes I am getting out of memory msg. at Report report level.
    
    ;Voucher Type level
    ;[#Part: VTYP BehaviourMain]
    ;    Add : Lines :After:VTYP PrintSave:Processing Type
      
    [#Part: VTYP Behaviour]
        Add : Lines :After:VTYP UseforJobWorkIn:Processing Type
    ;           Lines        : VTYP EffDate, VTYPOptional, VTYP CommonNarr, VTYP EachNarr, VTYP AsMfgJrnl, +
        ;                      VTYP UseforJobWork, VTYP UseforJobWorkIn, VTYP AllowConsumption, VTYP UseExciseMfgr, VTYP ExciseMfgrUnit, VTYP UseExciseSupplementary, +
        ;                      VTYP UseExciseGoodsTransfer, VTYP TraderInvoice, MSTSortPosition
    
        [Line: Processing Type]
            Fields     : Long Prompt, Processing Type
            Local    : Field : Long Prompt : Info : $$LocaleString:"Processing Type ?"
               Invisible: Not $$IsCmpOwner
            Local    : Field : Default :Inactive : NOT ($$IsJobOrderOut:$Parent OR $$IsJobMaterialIssue:$Parent Or $$IsJobMaterialReceive:$Parent)
            Invisible    : NOT @@IsJobOrderEnabled
            Space Top: .25
      
        [Field: Processing Type]
                Use         : Name Field
                Storage     : ProcessingType
                Show Table    : Always
                Table        : List of Processing Type
          
              
    
    [Table: List of Processing Type]
        List Name: $$LocaleString:"Knitting", $$LocaleString:"Dying", $$LocaleString:"Printing"
      
    [System: Udf]
        ProcessingType: String: 10001
      
    ;;=================Cost Center Name for Job work Out Order Voucher
    
    [#Line: EI Consignee]
        Option:Job_Work_Out_With_Cost_Center:$$IsJobOrderOut:$VoucherTypeName
           
    [!Line: Job_Work_Out_With_Cost_Center]
                Add: Fields: After:INVMailName: Blankfld, Job_Work_Out_Cost_Center_Title, Job_Work_Out_Cost_Center_List ;, EI Lot No Title, EI Lot No
         
    [Field: Blankfld]
        Set as: ""
        Width: 5
        Skip: Yes
      
    [Field: Job_Work_Out_Cost_Center_Title]
        Use        : Medium Prompt
        Info      : $$LocaleString:"Cost Center :"
        Width    : 12
        Border    : Thin Box
        Style    : Normal Bold
          
      
    [Field: Job_Work_Out_Cost_Center_List]
        Use            : Short Name Field
        Table        : Job_Work_Out_Cost_Center
        Show Table    : Always
        Width        : 15
        Border        : Thin Box
        Storage        : JobWorkOutWithCostCenter
        Alignment    : Center
      
    [Collection: Job_Work_Out_Cost_Center]
        Title                : "List of Cost Centers"
        Type                 : Cost Centre
        Format               : $Name,25
        Method               : Cost Centre Name : $Name
      
    [System: UDF]
        JobWorkOutWithCostCenter        :    String    :    20002
        JobMaterialOutWithCostCenter    :    String    :     20003
        JobMaterialInWithCostCenter        :    String    :     20004
        JobMaterialInLOTTable            :    String    :    20005
      
    
      
        ;;;cost Center Name for Material Out Transaction, Cost Center Collection from JOB WORK OUT ORDER Only
    [#Line: EI Consignee]
        Option:Job_Material_Out_With_Cost_Center:$$IsJobMaterialIssue:$VoucherTypeName
      
    [!Line: Job_Material_Out_With_Cost_Center]
        Add: Fields: After:INVMailName: Blankfld, Job_Work_Out_Cost_Center_Title, Job_Material_Out_Cost_Center_List ;, EI Lot No Title, EI Lot No
      
    [Field: Job_Material_Out_Cost_Center_List]
        Use            : Short Name Field
        Table        : Job_Material_Out_Cost_Center, None ;Job_Work_Out_Cost_Center, None ;Job_Material_Out_Cost_Center ;VCHJobOrderRecievable ;Job_Material_Out_Cost_Center, VCHJobOrderIssuable ;
        Show Table    : Always
        Width        : 15
        Border        : Thin Box
        Storage        : JobMaterialOutWithCostCenter
        Alignment    : Center
        Dynamic        :""
      
    [Collection: Job_Material_Out_Cost_Center]
       /*Primary item name is shown in list of orders table which appears in Stock Item Allocation screen for Material Out  */
    ;[#Collection: VCHJobOrderIssuable]
        Title               : $$LocaleString:"Cost Center List for Selected Party JWOO"
        Sub Title            : $$LocaleString:"Cost Center", $$LocaleString:"Order Name", $$LocaleString:"Due On", $$LocaleString:"Balance", $$LocaleString:"Order Type" ;,$$LocaleString:"Primary Item Name",
        Source Collection   : Pending Issuable Job Orders, Pending Issuable SubJob Orders
        Fetch               : Name, OrderDueDate, FinalBalance, GodownName, TrackLedger, BatchName, BilledQty, +
                              OrderPreclosureQty, Rate, Discount, Amount, OrderType,ParentItem, JobWorkOutWithCostCenter
      
        Format                : $JobWorkOutWithCostCenter, 10  
        Format                 : $Name, 10
        Format              : $OrderDueDate, 6      : Universal Date
        Format              : $FinalBalance, 8      : Base
        ;Format                 : $ParentItem, 12
        Format              : @@JOBOrderIssueTypeFormat, 20
      
        Client Only         : Yes
        Keep Source            : ....
        Search Key: $Name
    
    
        ;[#Field: EI Order]
    ;;==================Material In Form (Cost Center Collection from Material Issued only)
    
    [#Line: EI Consignee]
            Option:Job_Material_In_With_Cost_Center:$$IsJobMaterialReceive:$VoucherTypeName
      
    [!Line: Job_Material_In_With_Cost_Center]
        Add: Fields: After:INVMailName: Blankfld, Job_Work_Out_Cost_Center_Title, Job_Material_In_Cost_Center_List, Blankfld2, Job_Material_In_LOT_No_Title, Job_Material_In_LOT_No
      
    [Field: Job_Material_In_Cost_Center_List]
        Use            : Short Name Field
        Table        :Material Issued With Cost Center, None ;Ledger In Sub Orders Extract ;Inwards Orders ;All In Sub Orders ;Ledger In Sub OrdersX ;My Voucher Rep Collection ;VCHJobOrderRecievable ;Job_Material_In_Cost_Center ;VCHJobOrderRecievable ;Job_Material_Out_Cost_Center, VCHJobOrderIssuable ;VCHJobOrderRecievable ;
        ;JobworkTransferIn UnClearedSrcs ;
        Show Table    : Always
        Width        : 15
        Border        : Thin Box
        Storage        : JobMaterialInWithCostCenter
        Alignment    : Center
        Dynamic        :""
    
    [Collection : Material Issued With Cost Center]
        Title               : $$LocaleString:"Material Issued With Cost Center"
        Sub Title           : $$LocaleString:"Cost Center", $$LocaleString:"Issued On", $$LocaleString:"Issue No.", $$LocaleString:"Issued To", $$LocaleString:"Issued By"
        ;Type : Vouchers
        Source Collection: My Voucher Rep CollectionSrc
        Fetch : BasicPurchaseOrderNo, Name, BatchName, TrackLedgerAlias, Date,Amount,VoucherTypeName,PArtyLedgerName,VoucherNumber,JobMaterialOutWithCostCenter, FinalBalance, OriginalQty, BilledQty, *
        Filter: SamePartynm ;, MaterialOutonly ;, NotOrder ;, MaterialOutonly
        Filter    : IsMTOUsedByJobWrkOUTNotAsIn
        Format: $JobMaterialOutWithCostCenter, 10
        Format: $Date, 10 : Universal Date
        Format: $VoucherNumber, 10
        Format: $PArtyLedgerName, 20
        Format: $VoucherTypeName, 10
        Format: $Amount, 10
        Format: $OriginalQty, 5
        Format: $Name, 10
        Format: $BatchName, 10
        Format: $TrackLedgerAlias, 10
        Format: $PArtyLedgerName, 10
        Format: $BasicPurchaseOrderNo, 10 ; reference number from Material Out Vch, can be filtered like if material in vch ref contains this. this will not work in case partial material in happen
        Format              : $BilledQty, 8     ; : Base
        Search Key: $Name
      
    
    [Collection: JobWrkInFGPartyOrderSrcS]
      
        Use            : JobWrkOutOrders
      
        Fetch        : LedgerEntries.MasterID, LedgerEntries.IsVCHOfStockJrnl, LedgerEntries.Date, LedgerEntries.CurLangVoucherTypeName
        Fetch        : LedgerEntries.VoucherTypeName, LedgerEntries.VoucherNumber
        Fetch        : TrackLedgerAlias, StkItemParentAlias, StkItemParentPNAlias, StkItemParentPNName, StkItemParentDesc
    
        Sort        : Default        : $Name
      
        Filter        : IsJobInOrder
        Format: $Name, 10
        Format: $VoucherNumber, 10
        Format: $PArtyLedgerName, 20
        Format: $VoucherTypeName, 10
        Format: $Amount, 10
    
    [#Report: Mattranfoutvchregister]
    
      
    [Collection : My Voucher Rep CollectionSrc]
        Type : Vouchers
        Child Of: $$VchTypeJobMaterialIssue ;"Material Out";$$IsJobMaterialReceive ;:##SVVoucherType ;@@IsJobMaterialRcpt ;$$IsJobOrderOut ;:##SVVoucherType ;$$IsJobMaterialReceive
        Belongs To: Yes
        ;Filter: abcx
    ;    Filter: NotOrder
    Fetch: LedgerEntries.JobMaterialOutWithCostCenter, VouchertypeName
    [Collection : Lot No of Material Issued With Cost Center]
        Title               : $$LocaleString:"Material Issued With Cost Center"
        Sub Title           : $$LocaleString:"Cost Center", $$LocaleString:"Issued On", $$LocaleString:"Issue No.", $$LocaleString:"Issued To", $$LocaleString:"Issued By"
        ;Type : Vouchers
        Source Collection: My Voucher Rep CollectionSrc
        Fetch : BasicPurchaseOrderNo, Name, BatchName, TrackLedgerAlias, Date,Amount,VoucherTypeName,PArtyLedgerName,VoucherNumber,JobMaterialOutWithCostCenter, FinalBalance, OriginalQty, BilledQty, *
        Filter: SamePartynm ;, MaterialOutonly ;, NotOrder ;, MaterialOutonly
        Filter    : IsMTOUsedByJobWrkOUTNotAsIn
        Format: $JobMaterialOutWithCostCenter, 10
        Format: $Date, 10 : Universal Date
        Format: $VoucherNumber, 10
        Format: $PArtyLedgerName, 20
        Format: $VoucherTypeName, 10
        Format: $Amount, 10
        Format: $OriginalQty, 5
        Format: $Name, 10
        Format: $BatchName, 10
        Format: $TrackLedgerAlias, 10
        Format: $PArtyLedgerName, 10
        Format: $BasicPurchaseOrderNo, 10 ; reference number from Material Out Vch, can be filtered like if material in vch ref contains this. this will not work in case partial material in happen
        Format              : $BilledQty, 8     ; : Base
        Search Key: $Name
      
    [System : Formula]
        MaterialOutonly: $VouchertypeName="Material Out" ;$$IsJobMaterialReceive:$VoucherTypeName ;  
        SamePartynm:#EIConsignee=$PArtyLedgerName
        NotOrder: Not  $$IsJobOrderOut:$Parent=$$ReqObject:$VouchertypeName ;@@IsJobOrderOut
        abcx:$$VchTypeJobMaterialIssue:$VoucherTypeName
    [Field: Blankfld2]
        Use: Blankfld
      
    [Field: Job_Material_In_LOT_No_Title]
        Use        : Medium Prompt
        Info      : $$LocaleString:"Lot No.:"
        Width    : 8
        Border    : Thin Box
        Style    : Normal Bold
       
    [Field: Job_Material_In_LOT_No]
        Use: Short Name Field
        Table:Job_Material_In_LOT_Table
        Show Table    : Always
        Width        : 8
        Border        : Thin Box
        Storage        : JobMaterialInLOTTable
        Alignment    : Center
      
    [Table:Job_Material_In_LOT_Table]
        Title               : $$LocaleString:"Material Issued With Voucher No"
        Sub Title           : $$LocaleString:"Voucher No.", $$LocaleString:"Cost Center", $$LocaleString:"Issued On", $$LocaleString:"Issued To", $$LocaleString:"Issued By"
        Source Collection: My Voucher Rep CollectionSrc
        Fetch : Date,Amount,VoucherTypeName,PArtyLedgerName,VoucherNumber,JobMaterialOutWithCostCenter, BilledQty, *
        Filter: SamePartynm
        Format: $VoucherNumber, 10
        Format: $JobMaterialOutWithCostCenter, 10
        Format: $Date, 10 : Universal Date
        Format: $PArtyLedgerName, 20
        Format: $VoucherTypeName, 10
        Format: $BilledQty, 10
        Filter    : IsMTOUsedByJobWrkOUTNotAsIn  
    
    ;[#Field: VchBatchCostProfitalln]
    
    [#Field: EI Order]
      
    [#Report: Job Work Out Register Report]
      
    [#Collection: JobworkTransferIn UnClearedSrc]
         ParmVar             : pvAccountName          : String : $$AccountName
        Parmvar                : pvPartyLedgerName         : String : $$BaseOwner:$PartyLedgerName
    
    ;    Type        : In Sub Orders
        Type        : IN Orders
        Fetch        : Name, Date, OrderType, PArtyLedgerName
        Fetch        : LedgerEntries.*
        Cleared        : No
        Compute        : JobMaterialReceivVchType    : $LedgerEntries[1].VoucherTypeName
        Format: $Name, 10
        Format: $Date, 10
        Format: $OrderType, 10
      
    ;;;;;;;;;;;;;
    
    [#Menu: Gateway of Tally]
        Add         : Key Item : After    : @@locquite: "Knitting Issue Report" : K : Display : Knitting_Issue_Report  
      
    [Report:Knitting_Issue_Report]
        Use            : DSP Template
        Title        : $$LocaleString:"Knitting Issue Voucher Register"
    
        Form        : Knitting Issue Voucher Register
        Variable    : DSPGodownName
        Set            : SVFromDate            : $$MonthStart:##SVCurrentDate
        Set         : SVTodate                : $$MonthEnd:##SVCurrentDate
        Set            : JobworkSingleLineItem    : No
        Set            : JobworkRegisterReport    : Yes
        Print Set    : Report Title            : $$LocaleString:"Material Movement Register"
        PrintSet    : Report SubTitle        : ""
      
        Fetch Object: Godown : ##DSPGodownName : ExciseMailingName, Address, ExciseRegNumber, ExciseRange
      
        Set        : ABSCostCenter        : ""
      
      
    [Form        : Knitting Issue Voucher Register]
        Use            : DSP Template
        Height        : 100% Page
        Width        : 100% Page
        Space Top   : If $$InPrintMode Then ##SVSpaceTop  Else 0.05 inches
        Space Bottom: If $$InPrintMode Then 0.5 Else 0 inches
        Space Left  : If $$InPrintMode AND $$InPixelMode Then 0.5  Else 0 inches
        Space Right : If $$InPrintMode AND $$InPixelMode Then 0.25 Else 0 inches
        Parts       : DSP AccTitles,BWRFilter, JobworkAnnexureIV ReportTitle,  ABS JobWorkAnnexureIV MultiLineDetls;ABS JobWorkAnnexureIV Detls ;JobworkAnnexureIV Title,
    
        Delete        : Bottom  Button
        Add            : Buttons    : PrintButton, ExportButton, UploadButton, MailButton, ChangePeriod, ChangeCompany, CstCtrfltbutton, LotNumberfltButton ;, ProcessTypeButton
        Delete        : Page Break
        Add            : Page Break    : DSP ClPageBreak, DSP JWAnnexure OpPageBreak
        Bottom Part    : Empty  
    
        Bottom Button: JobWorkAnnexureIV PrintConfig
        Local        : Part    : Empty             : Invisible    : NOT $$InPrintMode
        Background    : @@SV_UNGREEN
      
        Option        : Small Size Form  
    
        Local        : Line    : JobworkAnnexureIV ReportTitle    : Local    : Field    : Simple Field    : Set as    : $$LocaleString:""
    
    
    [Part:BWRFilter]
        Line        : RPTBrokerFilter, ABS LotNumberFilt
      
    [Line:RPTBrokerFilter]
        Right Field    : Name Field
        Left Field    : Short Prompt,Cost CenterFilter
        Local        : Field    : Name Field    : Info    : ""
        Local        : Field    : Name Field    : Width    : 50
        Local        : Field    : Name Field    : Align    : Right
        Local        : Field    : Short Prompt    : Set as: "Cost Center:"
        Local        : Field    : Short Prompt    :  Width    : 20
                                                            
    [Field:Cost CenterFilter]
        Use                : Simple Field
        Style            : Normal Bold
        Set as            : @ABSCCName
        Set Always        : Yes
        ABSCCName    : If $$IsEndOfList:##ABSCostCenter or ##ABSCostCenter="" Then "Show All" Else ##ABSCostCenter
        Width: 30
      
    [Line:ABS LotNumberFilt]
        Right Field    : Name Field
        Left Field    : Short Prompt,LotNumberFilter
        Local        : Field    : Name Field    : Info    : ""
        Local        : Field    : Name Field    : Width    : 50
        Local        : Field    : Name Field    : Align    : Right
        Local        : Field    : Short Prompt    : Set as: "Lot Number:"
        Local        : Field    : Short Prompt    :  Width    : 20
    
    
    [Field:LotNumberFilter]
        Use                : Simple Field
        Style            : Normal Bold
        Set as            : @ABSLotName
        Set Always        : Yes
        ABSLotName    : If $$IsEndOfList:##ABSLotNumber or ##ABSLotNumber="" Then "Show All" Else ##ABSLotNumber
        Width: 30
      
    [Line:ProcessTYpe]
        Right Field    : Name Field
        Left Field    : Short Prompt,ProcessTYpe
        Local        : Field    : Name Field    : Info    : ""
        Local        : Field    : Name Field    : Width    : 50
        Local        : Field    : Name Field    : Align    : Right
        Local        : Field    : Short Prompt    : Set as: "Process Type:"
        Local        : Field    : Short Prompt    :  Width    : 20
    
    
    [Field:ProcessTYpe]
        Use                : Simple Field
        Style            : Normal Bold
        Set as            : @ProcessTYpes
        Set Always        : Yes
        ProcessTYpes    : If $$IsEndOfList:##ABSProcessTYpe or ##ABSProcessTYpe="" Then "Show All" Else ##ABSProcessTYpe
        Width: 30
    
    
    [Part: ABS JobWorkAnnexureIV MultiLineDetls]  
        Line        : ABS JobWorkAnnexureIV Title1, ABS JobWorkAnnexureIV Detls
        Repeat        : ABS JobWorkAnnexureIV Detls : ABS JobworkAnnexureIV Extract
        Bottom Line    : JobWorkAnnexureIV Total  
        Scroll        : Vertical
        CommonBorder: Yes
        Local        : Field    : Default    : Style    : Normal
      
        [Line: ABS JobWorkAnnexureIV Title1]
            Field    :  ABS JWAnnexureIV DateofDesp, ABS JWAnnexureIV SlNo, ABS JWAnnexureIV DelChalanNo, +
                      ABS JWAnnexureIV ItemDescription, JWAnnexureIV IssueQty, +
                      ABS Vch Date, ABS Rec VchNo, ABS CCName, JWAnnexureIV ReceivedItem, JWAnnexureIV ReceivedQty,+
                      ABS JWAnnexureIV JobworkerDelChalanNo, MTO VchTypeName, JWAnnexureIV VchTypeName, Isissuedqty, +
                      JWAnnexureIV NameAddrofJobworker
                                      
            Field    : JWAnnexureIV SetDocReport
            ;Border    : Thin Top
            Local    : Field    : ABS JWAnnexureIV DateofDesp        : Set as    : $$LocaleString:"Date"
            Local    : Field    : ABS JWAnnexureIV SlNo                : Set as    : $$LocaleString:"Lot No"
            Local    : Field    : ABS JWAnnexureIV DelChalanNo        : Set as    : $$LocaleString:"Voucher No"      
            Local    : Field    : ABS JWAnnexureIV ItemDescription    : Set as    : $$LocaleString:"Item Delivered"
            Local    : Field    : JWAnnexureIV IssueQty            : Set as    : $$LocaleString:"Qty Delivered"
            Local    : Field    : JWAnnexureIV ReceivedQty        : Set as    : $$LocaleString:"Quantity Received from Job Worker"
            Local    : Field    : JWAnnexureIV ReceivedItem        : Set as    : $$LocaleString:"Goods Received"
            Local    : Field    : ABS JWAnnexureIV JobworkerDelChalanNo: Set as    : $$LocaleString:"Job Worker's Delivery Challan No, and Date" + " " + $$StringWord:2:$$LocaleString:"Job Worker's Delivery Challan No. and Date"
            Local    : Field    : ABS JWAnnexureIV JobworkerDelChalanNo: Invisible: Yes
            Local    : Field    :JWAnnexureIV NameAddrofJobworker: Set as    : $$LocaleString:"Job Worker"
          
            Local    : Field    : Default            : Type        : String
            Local    : Field    : Default            : Align        : Center
            Local    : Field    : Default            : Style        : Small Bold
            Local    : Field    : Default            : Line: 3
          
            Local: Field: JWAnnexureIV VchTypeName: Set as:$$LocaleString:"Processing Type"
      
            Local: Field: MTO VchTypeName: Set as:$$LocaleString:"Vch Type"
      
            Local: Field: Isissuedqty: Set as: $$LocaleString:"Isissued qty"
            Local: Field: Isissuedqty: Invisible: Yes
            Local: Field: ABS Vch Date: Set as:$$LocaleString:"Received Date"
            Local: Field: ABS Rec VchNo: Set as:$$LocaleString:"RecVchNo"
            Local: Field: ABS CCName: Set as: $$LocaleString:"Cost Center Name"
            Border: Thin Top Bottom
    
        [Line: ABS JobWorkAnnexureIV Detls]
    
            Field    : ABS JWAnnexureIV DateofDesp, JWAnnexureIV OrderNo, JWAnnexureIV LineNumber, ABS JWAnnexureIV SlNo, ABS JWAnnexureIV DelChalanNo, +
                       ABS JWAnnexureIV ItemDescription, JWAnnexureIV IssueQty,  +
                      ABS Vch Date, ABS Rec VchNo, ABS CCName, JWAnnexureIV ReceivedItem, JWAnnexureIV ReceivedQty, +
                      ABS JWAnnexureIV JobworkerDelChalanNo, MTO VchTypeName, JWAnnexureIV VchTypeName, Isissuedqty, JWAnnexureIV NameAddrofJobworker
                    
            Local    : Field    : Default        : Style : Small
            Local: Field: ABS JWAnnexureIV DateofDesp : Skip: No
            Local: Field: ABS JWAnnexureIV DateofDesp : Fixed: No
            Remove if: Not #JWAnnexureIVVchTypeName="Knitting"
          
      
    
    [Collection: Abs JobworkTransferOUT UnClearedSrc]
    
        Type        : Out Sub Orders
        Fetch        : Name, Date, OrderType, JobMaterialOutWithCostCenter, VoucherTypeName, JobMaterialInLOTTable, JobMaterialInWithCostCenter
        Fetch        : LedgerEntries.*
        Cleared        : No
        Search Key: $Name
    
      
    [Collection: ABS JobworkTransferOUT ClearedSrc]
    
        Type        : Out Sub Orders
        Fetch        : Name, Date, OrderType, JobMaterialOutWithCostCenter, VoucherTypeName, JobMaterialInLOTTable, JobMaterialInWithCostCenter
        Fetch        : LedgerEntries.*
        Cleared        : Yes
        Search Key: $Name
      
    
    [Collection: ABS JobworkTransferOUT Src]
      
        Collection    : ABS JobworkTransferOUT UnClearedSrc, ABS JobworkTransferOUT ClearedSrc
      
    [Collection: ABS JobWorkTransferOut Extract]
      
        Source Collection    : ABS JobworkTransferOUT Src
    
        Walk                : LedgerEntries, Inventory EntriesOut, Batch Allocations
      
        By                    : OrderNumber        : If ($OrderNo = $$Owner:$$Owner:$$Owner:$Name) Then $OrderNo Else ""
    ;    ;;Group by voucher number if it is not empty else group by voucher id
        By                    : VoucherNumber        : If @@IsJobMaterialTransferOutVch AND NOT $$Owner:$$Owner:$IsForJobWorkIn Then (If NOT $$IsEmpty:$VoucherNumber Then $VoucherNumber Else $MasterID) Else ""
        By                    : StockItemName        : If @@IsJobMaterialTransferOutVch AND $StockItemName = $$Owner:$$Owner:$$Owner:$Parent Then $StockItemName Else ""
        By                    : ParentItem        : $ParentItem
        By                    : ExciseUnitName    : $ExciseUnitName
    
        Compute                : OrdDate            : $$Owner:$$Owner:$$Owner:$Date
        Compute                : GodownName        : $GodownName
        Compute                : PartyName            : $PartyLedgerName
        Compute                : VchDate            : $Date
        Compute                : NatureofProcess    : $AdditionalNarration  
        Compute                : IsJobworkerVchType: $$Owner:$$Owner:$IsForJobWorkIn
        Compute                : Reference            : $$Owner:$$Owner:$JWDelNoteRef  
        Compute                : BuyerAddress        : $$Owner:$$Owner:$TraderVchBasicBuyerAddress
        Compute                : VchTypeOrder        : $$LocaleString:"A" ;; + $$String:$VchDate
        Compute                : VoucherTypeName    : $VoucherTypeName
        Compute                : JobMaterialOutWithCostCenters    : $$CollectionFieldByKey:$JobWorkOutWithCostCenter:$OrderNumber:ABSJobworkTransferOUTClearedSrc;JobMaterialOutWithCostCenter
        Compute                :BatchName:$BatchName
    
        ;;To compute the voucher Number
        Compute                : MasterVoucherNo    : If NOT $$IsEmpty:$VoucherNumber Then $VoucherNumber Else ""
    
        Source Var            : srcvOrderNo        : String     : $Name
        Source Var            : srcvOrderid        : Number     : $OrderID
        Source Var            : srcvStockItemName    : String     : $Parent
      
        Aggr Compute        : IssueQty            : SUM    : $$GetMOutQty:##srcvOrderNo:##srcvOrderid:##srcvStockItemName 
        Aggr Compute        : ScrapQty            : SUM    : 0
    ;
        Filter                : NONEmptyOrder, JWAnnexExciseFilter
        Search Key: $BatchName
      
    [Collection: ABS Jobwork Transfer In Extract]  
        Source Collection    : JobworkTransferIn Src
    
        Walk                : LedgerEntries, Inventory Entries, Batch Allocations
    
        By                    : OrderNumber        : If ($OrderNo = $$Owner:$$Owner:$$Owner:$Name) Then $OrderNo Else ""
        ;;Group by voucher number if it is not empty else group by voucher id
        By                    : VoucherNumber        : If @@IsJobMaterialTransferInVch AND NOT $$Owner:$$Owner:$IsForJobWorkIn Then (If NOT $$IsEmpty:$VoucherNumber Then $VoucherNumber Else $MasterID) Else ""
        By                    : StockItemName        : If @@IsJobMaterialTransferInVch AND $StockItemName = $$Owner:$$Owner:$$Owner:$Parent Then $StockItemName Else ""
        By                    : ParentItem        : $ParentItem
        By                    : ExciseUnitName    : $ExciseUnitName
    
        Compute                : OrdDate            : $$Owner:$$Owner:$$Owner:$Date
        Compute                : GodownName        : $GodownName
        Compute                : PartyName            : $PartyLedgerName
        Compute                : VchDate            : $Date
        Compute                : NatureofProcess    : $AdditionalNarration  
        Compute                : IsJobworkerVchType: $$Owner:$$Owner:$IsForJobWorkIn
        Compute                : Reference            : $$Owner:$$Owner:$JWDelNoteRef  
        Compute                : BuyerAddress        : $$Owner:$$Owner:$TraderVchBasicBuyerAddress
        Compute                : VchTypeOrder        : $$LocaleString:"B" ;; + $$String:$VchDate
        ;;To compute the master voucher number as voucher number, if the voucher number is not empty, else as empty
        Compute                : MasterVoucherNo    : If NOT $$IsEmpty:$VoucherNumber Then $VoucherNumber Else ""
        Compute                : VoucherTypeName    : $VoucherTypeName
    
        Source Var            : srcvOrderNo        : String     : $Name
        Source Var            : srcvOrderID        : Number     : $OrderID
        Source Var            : srcvStockItemName    : String     : $Parent
    
        Aggr Compute        : ReceivedQty        : SUM    : $$GetMInQty:##srcvOrderNo:##srcvOrderID:##srcvStockItemName
    
        Filter                : NONEmptyOrder, JWAnnexExciseFilter
      
    [Collection: ABS JobworkTransferInSub UnClearedSrc]
    
        Type        : In Sub Orders
        Fetch        : Name, Date, OrderType, JobMaterialOutWithCostCenter
        Fetch        : LedgerEntries.*
        Cleared        : No
    
      
    [Collection: ABS JobworkTransferInSub ClearedSrc]
    
        Type        : In Sub Orders
        Fetch        : Name, Date, OrderType, JobMaterialOutWithCostCenter
        Fetch        : LedgerEntries.*
        Cleared        : Yes
    
      
    [Collection: ABS JobworkTransferInSub Src]
      
        Collection    :  ABS JobworkTransferInSub ClearedSrc, ABS JobworkTransferInSub UnClearedSrc
    
    [Collection: ABS Jobwork Transfer InSub Extract]
      
        Source Collection    : ABS JobworkTransferInSub Src
    
        Walk                : LedgerEntries, Inventory EntriesIn, Batch Allocations
    
        By                    : OrderNumber        : If ($OrderNo = $$Owner:$$Owner:$$Owner:$Name) Then $OrderNo Else ""
        ;;Group by voucher number if it is not empty else group by voucher id
        By                    : VoucherNumber        : If @@IsJobMaterialTransferInVch AND NOT $$Owner:$$Owner:$IsForJobWorkIn Then (If NOT $$IsEmpty:$VoucherNumber Then $VoucherNumber Else $MasterID) Else ""
        By                    : StockItemName        : If @@IsJobMaterialTransferInVch AND $StockItemName = $$Owner:$$Owner:$$Owner:$Parent Then $StockItemName Else ""
        By                    : ParentItem        : $ParentItem
        By                    : ExciseUnitName    : $ExciseUnitName
    
        Compute                : OrdDate            : $$Owner:$$Owner:$$Owner:$Date
        Compute                : GodownName        : $GodownName
        Compute                : PartyName            : $PartyLedgerName
        Compute                : VchDate            : $Date
        Compute                : NatureofProcess    : $AdditionalNarration  
        Compute                : IsJobworkerVchType: $$Owner:$$Owner:$IsForJobWorkIn
        Compute                : Reference            : $$Owner:$$Owner:$JWDelNoteRef  
        Compute                : BuyerAddress        : $$Owner:$$Owner:$TraderVchBasicBuyerAddress
        Compute                : VchTypeOrder        : $$LocaleString:"B"
        ;;To compute the master voucher number as voucher number, if the voucher number is not empty, else as empty
        Compute                : MasterVoucherNo    : If NOT $$IsEmpty:$VoucherNumber Then $VoucherNumber Else ""
    
        Source Var            : srcvOrderNo        : String     : $Name
        Source Var            : srcvOrderID        : Number     : $OrderID
        Source Var            : srcvStockItemName    : String     : $Parent
    
        Aggr Compute        : ScrapQty            : SUM    : $$GetMInScrapCoByQty:##srcvOrderNo:##srcvOrderID:##srcvStockItemName
    
        Filter                : NONEmptyOrder, JWAnnexExciseFilter
    
    
    [Collection: ABS JobworkAnnexureIV Extract]
    
        Source Collection    : ABS JobWorkTransferOut Extract, ABS JobworkTransferIn Extract, ABS Jobwork Transfer InSub Extract
    
        By                    : OrderNumber        : $OrderNumber
        By                    : VoucherNumber        : $VoucherNumber
        By                    : StockItemName        : $StockItemName
        By                  : VchTypeOrder      : $VchTypeOrder  
        ;
        Compute                : OrdDate            : $OrdDate
        Compute                : VchDate            : $VchDate
        Compute                : JobWorkerAddress    : $BuyerAddress
        Compute                : IssueUoM            : $IssueUoM
        Compute                : PartyName            : $PartyName
        Compute                : NatureofProcess    : $NatureofProcess
        Compute                : Reference            : $Reference
        Compute                : MasterVoucherNo    : $MasterVoucherNo
        Compute                : VoucherTypeName    : $VoucherTypeName
        Compute                : JobMaterialOutWithCostCenters    : $$CollectionFieldByKey:$JobWorkOutWithCostCenter:$OrderNumber:ABSJobworkTransferOUTClearedSrc;$JobMaterialOutWithCostCenter
        Compute                : JobMaterialInWithCostCenters:$JobMaterialInWithCostCenter
      
    
        Aggr Compute        : IssuedQty            : SUM : If $$IsEmpty:$IssueQty Then $$AsQty:0 Else $IssueQty
        Aggr Compute        : ReceivedQty        : SUM : If $$IsEmpty:$ReceivedQty Then $$AsQty:0 Else $ReceivedQty
        Aggr Compute        : ScrapQty            : SUM : If $$IsEmpty:$ScrapQty Then $$AsQty:0 Else $ScrapQty  
    
        Filter                : JWAnnexureDateFilter, BWRFilterX, LotFilter
        Sort                : @@Default            : $OrdDate, $OrderNumber, $VchDate, $VchTypeOrder
    
        Keep Source            : ().
        Client Only            : Yes
        Option : Dummyrefresh : ##ABSCostCenter OR ##ABSLotNumber
    
    [!Collection : Dummyrefresh]
      
    [System: Formula]
        BWRFilterX        : $JobMaterialOutWithCostCenters=@@BrokerWiseY
        BrokerWiseY:    If Not $$IsEmpty:##ABSCostCenter Then ##ABSCostCenter else  $JobMaterialOutWithCostCenters
      
        LotFilter        : $OrderNumber=@@LotFilterX
        LotFilterX:    If Not $$IsEmpty:##ABSLotNumber Then ##ABSLotNumber else  $OrderNumber
    
        ProcessTYpe        : #JWAnnexureIVVchTypeName=@@ProcessTYpeX
        ProcessTYpeX:    If Not $$IsEmpty:##ABSProcessTYpe Then ##ABSProcessTYpe else  #JWAnnexureIVVchTypeName ;$ProcessingType
      
    
    [Collection: ABS JobworkTransferIn UnClearedSrc]
    
        Type        : In Sub Orders
        Type        : IN Orders
        Fetch        : Name, Date, OrderType, JobMaterialOutWithCostCenter, VoucherTypeName, JobMaterialInLOTTable, JobMaterialInWithCostCenter
        Fetch        : LedgerEntries.*
        Cleared        : No
        Compute        : JobMaterialReceivVchType    : $LedgerEntries[1].VoucherTypeName
      
    [Collection: ABS JobworkTransferIn ClearedSrc]
    
        Type        : In Sub Orders
        Type        : IN Orders
        Fetch        : Name, Date, OrderType, JobMaterialOutWithCostCenter, VoucherTypeName, JobMaterialInLOTTable, JobMaterialInWithCostCenter
        Fetch        : LedgerEntries.*
        Cleared        : Yes
        Filter        : IsJobInOrderType  
        Compute        : JobMaterialReceivVchType    : $LedgerEntries[1].VoucherTypeName
      
    [Collection: ABS JobworkTransferIn Src]
      
        Collection    :  ABS JobworkTransferIn ClearedSrc, ABS JobworkTransferIn UnClearedSrc
    
    
    [Field: ABS Vch Date]
        Use: Uni date Field
        Set as: If #Isissuedqty ="Receive" then $VchDate else ""
        Border: Thin Left
        Width: 10
      
    [Field:ABS Rec VchNo]
        Use: Short Name Field
        Set as: $MasterVoucherNo
        Border: Thin Left  
      
    [Field:    ABS CCName]
        Use: Short Name Field
        Set as: $JobMaterialOutWithCostCenterS
        Border: Thin Left  
      
    [System: Formula]
        Mykey:#JWAnnexureIVSlNo
      
    [Field: MTO VchTypeName]   
        Use            : Name Field
        Set as        : $VoucherTypeName
        Alignment: Center
        Style: Small
        Border: Thin Left
        Width: 10
      
    [Field: Isissuedqty]
        Use: Name Field
        Set as: if #JWAnnexureIVIssueQty>0 then "ISSUE" else "Receive"
        Width: 8
        Invisible: Yes
      
    [Field: JWAnnexureIV VchTypeName]  
        Use            : Name Field
        Set as: $$CollectionFieldByKey:$ProcessingType:#MTOVchTypeName:ListofVchTypesX
        Alignment: Center
        Style: Small
        Border: Thin Left
        Width: 10
      
      
    [Field: Abs JWAnnexureIV SlNo]
        Use            : Name Field  
        Set as        : If ($$Line = 1 OR $OrderNumber != $$PrevObj:$OrderNumber) Then $OrderNumber Else $OrderNumber
        Width        : 10
        Border: Thin Left
    
      
    [Field:    ABS JWAnnexureIV DateofDesp]
      
        Use            : Uni Date Field                              
        Set as        : If #Isissuedqty ="ISSUE" then $VchDate else ""
        Width        : 8
        Align        : Left
        Fixed        : Yes
        Border        : Thin Left
      
    [Field: ABS JWAnnexureIV DelChalanNo]
    
        Use            : Name Field                              
        Set as        : $MasterVoucherNo
        Width        : 12
        Border        : Thin Left
    
      
    [Field: ABS JWAnnexureIV ItemDescription]
    
        Use            : Name Field                              
        Set as        : If $VchTypeOrder = $$LocaleString:"B" Then $ParentItem Else $StockItemName
        Width        : 20
        Scroll      : Yes  
        Border        : Thin Left
          
    [Field: ABS JWAnnexureIV JobworkerDelChalanNo]
    
        Use            : Name Field                  
        Set as        : If $VchTypeOrder = $$LocaleString:"B" Then $Reference Else +
                      If $VchTypeOrder = $$LocaleString:"B" AND $OrderNumber != $$PrevObj:$OrderNumber Then $Reference Else ""
        Width        : 15
        Line        : 0
        Scroll      : Yes  
        Border        : Thin Left
        Invisible: Yes
      
                    [Collection: List of VchTypesX]
    
                        Type        : Voucher Type
                        Title       : $$LocaleString:"List of Types"
                        BelongsTo      : Yes
                        WithAlias   : Yes
                        Format      : $$Name, 20
                        FullHeight  : Yes
                        Align       : Centre
                        Set as      : $Name
                        Fetch       : Name, ProcessingType
                        Client Only    : Yes
                        Search Key: $Name
    ;;;Filter of Report
    [Button:CstCtrfltbutton]
        Key        : F5
        Action    : Execute : ABSCostCenterWise
        Title    : Cost Center Wise
      
    [Report:ABSCostCenterWise]
        Form    : ABSCostCenterWise
      
    [Form:ABSCostCenterWise]
        Part    : ABSCostCenterWise
        Space Left    : 2 mms
        Space Right    : 2 mms
    
    [Part:ABSCostCenterWise]
        Line    : ABSCostCenterWise
    
    [Line:ABSCostCenterWise]
        Field    : Medium Prompt,ABSCostCenterWise
        Local    : Field    : Medium Prompt    : Set as    : "Select Cost Center Name:"
        Space Bottom    : 2 mms
      
    [Field:ABSCostCenterWise]
        Table        : Job_Work_Out_Cost_Center ;,EndOfList
        Use            : Name Field
        Width        : 20
        Border        : Thin Box
        Variable    : ABSCostCenter
        Modifies    : ABSCostCenter
      
    [Button:LotNumberfltButton]
        Key        : F6
        Action    : Execute : ABS LotWise
        Title    : Lot Number Wise
      
    [Report:ABS LotWise]
        Form    : ABS LotWise
      
    [Form:ABS LotWise]
        Part    : ABS LotWise
        Space Left    : 2 mms
        Space Right    : 2 mms
    
    [Part:ABS LotWise]
        Line    : ABS LotWise
    
    [Line:ABS LotWise]
        Field    : Medium Prompt,ABS LotWise
        Local    : Field    : Medium Prompt    : Set as    : "Select Lot Number:"
        Space Bottom    : 2 mms
      
    [Field:ABS LotWise]
        ;Table        : Job_Work_Out_Cost_Center,EndOfList
        Set as:""
        Use            : Name Field
        Width        : 20
        Border        : Thin Box
        Variable    : ABSLotNumber
        Modifies    : ABSLotNumber
      
      
    [Button:ProcessTypeButton]
        Key        : F7
        Action    : Execute : ABS Process Type
        Title    : Processing Type
      
    [Report:ABS Process Type]
        Form    : ABS Process Type
      
    [Form:ABS Process Type]
        Part    : ABS Process Type
        Space Left    : 2 mms
        Space Right    : 2 mms
    
    [Part:ABS Process Type]
        Line    : ABS Process Type
    
    [Line:ABS Process Type]
        Field    : Medium Prompt,ABS Process Type
        Local    : Field    : Medium Prompt    : Set as    : "Select Process Name:"
        Space Bottom    : 2 mms
      
    [Field:ABS Process Type]
        Table        : List of Processing Type ;,EndOfList
        Use            : Name Field
        Width        : 20
        Border        : Thin Box
        Variable    : ABSProcessTYpe
        Modifies    : ABSProcessTYpe
      
    
    [Variable:ABSCostCenter]
        Type    : String
    [Variable: ABSLotNumber]
        Type: String
        Persistent: No
    [Variable: ABSProcessTYpe]
        Type: String
    [System:Variables]
        ABSCostCenter    : ""
        ABSLotNumber    : ""
        ABSProcessTYpe :""
     

    Attached Files:



Share This Page