Sub RefreshMSEGStg()

    Dim retCode
    Dim fieldList
    
    DoCmd.SetWarnings False
    
    Dim aFilter(4)
    aFilter(1) = "WERKS = '9541'"
    aFilter(2) = " AND (BWART LIKE '1%' or BWART LIKE '2%' or BWART LIKE '5%')"
    aFilter(3) = " AND BUDAT_MKPF between '" & formatSAPDate(now - 30) & "' AND '" & formatSAPDate(now) & "'"
    aFilter(4) = " AND MATNR in ('111P5050','111P0001-002')"
    
    fieldList = "MANDT,MBLNR,MJAHR,ZEILE,BWART,MATNR,WERKS,LGORT,CHARG,INSMK,ZUSTD,SOBKZ,LIFNR,SHKZG,WAERS,DMBTR,BNBTR,BUALT,SHKUM,MENGE,MEINS,ERFMG,ERFME,EBELN,EBELP,KOSTL,BUKRS,LGNUM,LGTYP,LGPLA,BESTQ,BWLVS,TBNUM,TBPOS,XBLVS,PRCTR,SAKTO,VFDAT,BUSTM,BUSTW,HSDAT,ZUSTD_T156M,VGART_MKPF,BUDAT_MKPF,CPUDT_MKPF,CPUTM_MKPF,USNAM_MKPF,XBLNR_MKPF,TCODE2_MKPF,SGTXT,GRUND"
    
    retCode = transferSAPTableDataToAccess("MSEG", fieldList, aFilter, "Stg - MSEG", True)
    
    DoCmd.SetWarnings True

End Sub

Sub extractFBL1_OpenItems()
    ' Base definitions
    Dim curReportInfo As reportInfoType
    Dim session
    
    ' Definitions for parameters
    Dim dIncludeList As New Dictionary
    
    curReportInfo.TCode = "FBL1N"
    
    Set session = InitSAP(curReportInfo)
    
    ' Vendor account
    dIncludeList.Add "1000000", "1000000"
    dIncludeList.Add "1000001", "1000001"
    dIncludeList.Add "1000002", "1000002"
    dIncludeList.Add "1000003", "1000003"
    dIncludeList.Add "1000004", "1000004"
    dIncludeList.Add "1000005", "1000005"
    dIncludeList.Add "1000006", "1000006"
    dIncludeList.Add "1000007", "1000007"
    dIncludeList.Add "1000008", "1000008"
    dIncludeList.Add "1000009", "1000009"
    dIncludeList.Add "1000010", "1000010"
    dIncludeList.Add "1000011", "1000011"
    dIncludeList.Add "1000012", "1000012"
    setParam curReportInfo.params, "Vendor account", pIncludeDict:=dIncludeList
    setParam curReportInfo.params, "Company code", "0141"
    
    setGUIValues curReportInfo
    executeTransaction
    exportData curReportInfo
    exitToHomeScreen

End Sub