modGlobals

modGlobals

Option Compare Database Option Explicit #Const DEBUG_MODE = 1 #Const PROD_MODE = 0 #Const APP_MODE = DEBUG_MODE Public Const msMODULE As String = "modGlobals" Public Enum ACTION_MODE     navigate = 0     AddNew = 1     Update     Delete     cancellation End Enum Public Enum MaintenanceTables     TBL_TalentType = 1     TBL_JobStatus     TBL_Language End Enum Public Enum FeedHistoryDetail     ID = 0     COB_Date     StartTime     EndTime     RecordCount     ElapsedTime     DateCreated     UserCreated     DateModified     UserModified     FeedStatus End Enum Public Enum DailyWorkDetail     ID = 0     ClientID     ClientName     DailyWorkStatus     ApprovedDate     Approver     CollateralBalance     EquityBalance     DailyWorkCalculationID     IMRequirement End Enum Public Enum SentDailyWork     ID = 0     BatchID     BatchTime     ClientID     ClientName     Status     DailyWorkId End Enum Public Enum SecurityUserQueue     ID = 0     EmployeeName     UserAccessLevel     UserAccessLevelDescription     TransactionType     TransactionTypeDescription     ApprovedDate     Approver     DateCreated     UserCreated     DateModified     UserModified End Enum      Public Enum DailyWorkStatus     Pending = 1     Approved     HoldBack     AwaitingApproval End Enum ' what is this used for Public Enum SentDailyWorkStatus     Pending = 1     Approved     HoldBack     AwaitingApproval    'new     All End Enum Public Enum SentDailyWorkFilter     Pending = 1     Approved     HoldBack     AwaitingApproval    'new     Sent     All End Enum Public Enum UserRole     ReadOnly = 1     System = 2     NewBusiness = 3     MarginAnalyst = 4     MarginAnalystsSupervisor = 5     Admin = 8     SuperAdmin = 10 End Enum Public Enum SecurityObject     FeedAutoImport = 1     FeedManualImport     ClientMaintain     ClientApprover     StatementHoldBack     StatementApproval     SecurityMaintain     SecurityApprove     StatementAwaitingApproval     BulkSend End Enum      Public Enum QBEReport     QBEReportId = 0     reportname     Text     AlphaCriteria     DateCriteria     TableName     PrimarySort     Group End Enum           Public Enum MailClient     OutLook = 1     LotusNotes End Enum Public Enum TransactionType     Add = 1     Update     Delete End Enum Public Enum TradeDetail     [ID] = 0     Row     Underlying     MaturityDate     notational     SettlementPrice     PriorSettlementPrice     AccruedCpn     MTM     ResetToPar     InitialCoupon     CPNSettlement     [VMExcess_Defecit]     [Todays Total VM Req]     [TotalCashAdj] End Enum Public Enum CashMovementDetail     [ID] = 0     Amount     DateCreated     UserCreated     DateModified     UserModified     TransactionType End Enum Public Enum DailyWorkCashMovementDetail     ID = 0     COB_Date     Amount     Approver     ApprovedDate     DateCreated     UserCreated     DateModified     UserModified     TransactionType     ClientID End Enum Public Const ERR_MSG_REQUIRED_FIELD_MISSING As String = _     "Required field.  Can't be blank or missing." Public Const ERR_MSG_INVALID_START_DATE As String _     = "Invalid Start Date or must be less than ending Date" Public Const ERR_MSG_BLANK_NAME As String = "Required value -must supply a name" Public Const ERR_MSG_NO_RIGHTS_TO_FUNCTION As String = "Not enough priveleges to run this command. " & _     "Please contact system administrator for more assistance" Public Const ERR_MSG_EXISTS_IN_QUEUE As String = "No need to try again because it is all ready in the queue of pending changes." '===================================================== Public Const APP_NAME As String = "ProductivityTool" 'Public APP_PATH As String 'Public APP_INPUT_PATH As String 'Public APP_OUTPUT_PATH As String 'Public Const APP_PATH As String = CurrentProject.Path 'Public Const APP_INPUT_PATH As String = AddBS(APP_PATH) & "Input" 'Public Const APP_OUTPUT_PATH As String = AddBS(APP_PATH) & "Output" Public Const APP_LOCAL_APP_PATH  As String = "C:\My Documents\My App" Public Const APP_LOCAL_INPUT_PATH As String = APP_LOCAL_APP_PATH & "\" & "Input" Public Const APP_LOCAL_OUTPUT_PATH As String = APP_LOCAL_APP_PATH & "\" & "Output" Public Const COMPANY_NAME As String = "Deutsche Bank AG" 'Public gbDEBUG_MODE As Boolean Public gbApp_SetupOccurred As Boolean Public Const MASK_DATE As String = "mm/dd/yyyy" Public Const MASK_MONEY As String = "$#,##0.00;($#,##0.00)" Public Const MASK_HOLDINGS As String = "#,##0;(#,##0)" Public lngMyEmpID As Long Public gstrUserName As String 'Public gUserAccessLevel As UserRole Click here to Reply or Forward 0.97 GB (6%) of 15 GB used Manage Terms - Privacy Last account activity: 0 minutes ago Currently being used in 1 other location  Details		Bill DeCastro

Show details