Skip to content

gateway - Implementation Details

VBA Modules

Form_Add and Edit Company Programme Year (Form)

File: ms_access_files\gateway\Forms\Frm Add and Edit Company Programme Year.txt Lines: 38

Procedures

Private Sub AddPrincipalProject_Click()

Private Sub CloseFOrm_Click() - ⚠️ Contains GoTo statements

Private Sub Form_Close()

Private Sub Form_Open(Cancel As Integer)

Form_Add and Edit Principal Project (Form)

File: ms_access_files\gateway\Forms\Frm Add and Edit Principal Project.txt Lines: 34

Procedures

Private Sub CloseFOrm_Click() - ⚠️ Contains GoTo statements

Private Sub Form_BeforeInsert(Cancel As Integer)

Private Sub Form_BeforeUpdate(Cancel As Integer)

Private Sub Form_Close()

Form_Add and Edit Principal (Form)

File: ms_access_files\gateway\Forms\Frm Add and Edit Principal.txt Lines: 29

Procedures

Private Sub CloseFOrm_Click() - ⚠️ Contains GoTo statements

Private Sub Form_Close()

Private Sub Form_Open(Cancel As Integer)

Form_Add Company Principal Project (Form)

File: ms_access_files\gateway\Forms\Frm Add Company Principal Project.txt Lines: 137

Procedures

Private Sub Allocated_Amount_AfterUpdate()

Private Sub ChooseFromReplacementList_Click()

Private Sub CloseFOrm_Click() - ⚠️ Contains GoTo statements

Private Sub Contract_Printed_AfterUpdate()

Private Sub Form_Close()

Private Sub Form_Open(Cancel As Integer)

Private Sub Lump_Sum_Allocation_AfterUpdate()

Private Sub Monthly_Allocated_Amount_AfterUpdate()

Private Sub Principal_Project_Pillar_ID_AfterUpdate()

Private Sub Replacement_Status_AfterUpdate()

Private Sub Selection_Fee_AfterUpdate()

Private Sub Selection_Fee_Type_AfterUpdate()

Form_Company List (Form)

File: ms_access_files\gateway\Forms\Frm Company List.txt Lines: 52

Procedures

Public Sub UpdateList()

Private Sub CloseFOrm_Click()

Private Sub CompanyList_AfterUpdate()

Private Sub Form_Open(Cancel As Integer)

Private Sub PrincipalProjectList_DblClick(Cancel As Integer)

Private Sub StrCriteria1_AfterUpdate()

Form_Company Needs Replacement List (Form)

File: ms_access_files\gateway\Forms\Frm Company Needs Replacement List.txt Lines: 40

Procedures

Private Sub CloseFOrm_Click() - ⚠️ Contains GoTo statements

Private Sub UseThisPrincipalProject_Click()

Form_Enter Principal Project Name (Form)

File: ms_access_files\gateway\Forms\Frm Enter Principal Project Name.txt Lines: 458

Procedures

Public Sub TransferSalesBrief(SBID As Long) - ⚠️ High branching (21 If statements); Large procedure (381 lines)

Private Sub CancelForm_Click()

Private Sub CloseFOrm_Click() - ⚠️ Contains GoTo statements

Private Sub Form_Open(Cancel As Integer)

Form_Opening Dialog (Form)

File: ms_access_files\gateway\Forms\Frm Opening Dialog.txt Lines: 115

Procedures

Private Sub CancelButton_Click()

Private Sub Form_Open(Cancel As Integer)

Private Sub Password_AfterUpdate()

Private Sub Username_AfterUpdate()

Form_Principal List (Form)

File: ms_access_files\gateway\Forms\Frm Principal List.txt Lines: 129

Procedures

Public Sub UpdateList()

Private Sub AddProject_Click()

Private Sub Form_Open(Cancel As Integer)

Private Sub CloseFOrm_Click() - ⚠️ Contains GoTo statements

Private Sub PrincipalList_AfterUpdate()

Private Sub PrincipalList_DblClick(Cancel As Integer)

Private Sub PrincipalList_KeyDown(KeyCode As Integer, Shift As Integer)

Private Sub PrincipalProjectList_DblClick(Cancel As Integer)

Private Sub PrincipalProjectList_KeyDown(KeyCode As Integer, Shift As Integer) - ⚠️ High branching (6 If statements)

Private Sub StrCriteria1_AfterUpdate()

Form_Sales Brief List (Form)

File: ms_access_files\gateway\Forms\Frm Sales Brief List.txt Lines: 552

Procedures

Public Sub UpdateSalesBrief(SBID As Long, PPID As Long) - ⚠️ High branching (31 If statements); Large procedure (502 lines)

Private Sub CloseFOrm_Click()

Private Sub EditAllocations_Click()

Private Sub Form_Open(Cancel As Integer)

Private Sub PrincipalProjects_Click()

Private Sub SalesBriefList_AfterUpdate()

Private Sub TransferSalesBrief_Click()

Form_SubFrm Edit Company Principal Project (Form)

File: ms_access_files\gateway\Forms\SubFrm Edit Company Principal Project.txt Lines: 246

Procedures

Private Sub Allocated_Amount_AfterUpdate()

Private Sub DeletePrincipalProject_Click()

Private Sub Form_Current()

Private Sub Lump_Sum_Allocation_AfterUpdate()

Private Sub Monthly_Allocated_Amount_AfterUpdate()

Private Sub NextRecord_Click() - ⚠️ Contains GoTo statements

Private Sub PrevRecord_Click() - ⚠️ Contains GoTo statements

Private Sub Principal_Project_Pillar_ID_AfterUpdate()

Private Sub Replacement_Status_AfterUpdate()

Private Sub Replacement_Status_BeforeUpdate(Cancel As Integer) - ⚠️ Uses SendKeys

Private Sub Selection_Fee_AfterUpdate()

Private Sub Selection_Fee_Type_AfterUpdate()

Form_SubFrm Edit Principal Project Pillars (Form)

File: ms_access_files\gateway\Forms\SubFrm Edit Principal Project Pillars.txt Lines: 50

Procedures

Private Sub AddPillar_Click()

Private Sub DeleteRec_Click() - ⚠️ Contains GoTo statements

Form_SubFrm Principal Project Pillar Sponsor Elements (Form)

File: ms_access_files\gateway\Forms\SubFrm Principal Project Pillar Sponsor Elements.txt Lines: 32

Procedures

Private Sub DeleteRec_Click()

Private Sub Element_Type_AfterUpdate()

Private Sub Form_BeforeInsert(Cancel As Integer)

Private Sub Sponsorship_Amount_AfterUpdate()

Form_SubFrm Principal Project Pillar Sub Products (Form)

File: ms_access_files\gateway\Forms\SubFrm Principal Project Pillar Sub Products.txt Lines: 24

Procedures

Private Sub DeleteRec_Click()

Private Sub Form_BeforeInsert(Cancel As Integer)

Form_SubFrm Total Billed To Date by Company PP (Form)

File: ms_access_files\gateway\Forms\SubFrm Total Billed To Date by Company PP.txt Lines: 20

Procedures

Private Sub DeleteRec_Click()

File: ms_access_files\gateway\Modules\basRelink.bas Lines: 562

Procedures

Public Function RelinkODBC() As Boolean - ⚠️ Contains GoTo statements; High branching (8 If statements); Large procedure (148 lines)

Public Function Update_zstblODBC() As Boolean - ⚠️ Contains GoTo statements

Public Function RelinkTablesLocal() As Boolean - ⚠️ Contains GoTo statements

Public Function CompactTablesMain() As Boolean - ⚠️ Contains GoTo statements

Public Function CompactTablesLocal() As Boolean - ⚠️ Contains GoTo statements

Public Function TableExists(ByVal pstrTableName As String) As Boolean - ⚠️ Uses On Error Resume Next

Mod Utilities (Standard)

File: ms_access_files\gateway\Modules\Mod Utilities.bas Lines: 158

Procedures

Public Function GetXofY(f As Form) - ⚠️ Uses On Error Resume Next

Public Function IsLoaded(ByVal strFormName As String) As Boolean

Public Function StringsSameCase(X As String, Y As String) As Boolean

Public Function CheckForUpper(CheckString As String)

Public Function CheckForSpecial(CheckString As String)

Public Function CheckForNumber(CheckString As String)

Public Function CalcWorkdays(StartDate, EndDate) As Integer - ⚠️ Contains GoTo statements

Public Sub ObjectCounts()

SQL Queries

JB Qry Update Procurement Contact

Type: Update

SELECT [Principals Sales Contacts].[Contact First Name], [Principals Sales Contacts].[Contact Surname], [Principals Sales Contacts].[Contact Position], [Principals Sales Contacts].[Contact Email], [Principals Sales Contacts].[Contact Cell Phone] FROM [Principals], [Principals Sales], [Principals Sales Contacts] WHERE ((([Principals Sales Contacts].[Contact Type ID])=4))

JB Qry Update Transformation Contact

Type: Update

SELECT [Principals Sales Contacts].[Contact First Name], [Principals Sales Contacts].[Contact Surname], [Principals Sales Contacts].[Contact Position], [Principals Sales Contacts].[Contact Email], [Principals Sales Contacts].[Contact Cell Phone] FROM [Principals], [Principals Sales], [Principals Sales Contacts] WHERE ((([Principals Sales Contacts].[Contact Type ID])=5))

Qry Application Versions

Type: Select

SELECT dbo_ApplicationVersions.[Application], dbo_ApplicationVersions.[Version] FROM [dbo_ApplicationVersions]

Qry Company List

Type: Select

SELECT [Entrepreneur Company].[Entrepreneur Company ID], [Entrepreneur Company].[Company Name], [Delivery Locations].[Delivery Location], CompanyStatus.Status, [Entrepreneur Company].[Date Status Changed] FROM [Entrepreneur Company], [CompanyStatus], [Delivery Locations], [SubQry Get EP Ready for Allocation Info by Company]

Qry Company Needs Replacement List

Type: Select

SELECT [Entrepreneur Company Principal Projects].[Entrepreneur Company Principal Projec, [Entrepreneur Company Principal Projects].[Principal Project Pillar ID], [Entrepreneur Company].[Entrepreneur Company ID], [Entrepreneur Company Principal Projects].[Replacement Status], [Entrepreneur Company].[Company Name], [Principal] & \, [Principal Project Pillars].[BBBEE Pillar], [Entrepreneur Company Principal Projects].[Allocated Amount] FROM [Entrepreneur Company], [Entrepreneur Company Programme Years], [Entrepreneur Company Principal Projects], [Principal Project Pillars], [Principal Projects], [Principals] WHERE ((([Entrepreneur Company Principal Projects].[Replacement Status])=\"Needs Repla

Qry Company Pincipal Project Pillars

Type: Select

SELECT [Principal Project Pillars].[Principal Project ID], [Entrepreneur Company Principal Projects].[Principal Project Pillar ID], [Principal Project Pillars].[BBBEE Pillar] FROM [Entrepreneur Company Principal Projects], [Principal Project Pillars]

Qry Count Number Months Billed by Company PP and Project Pillar

Type: Select

SELECT [Entrepreneur Company Monthly Billings].[Entrepreneur Company Principal Project , [Entrepreneur Company Monthly Billings].[Principal Project Pillar ID], Count([Entrepreneur Company Monthly Billings].[Entrepreneur Company Billings ID] FROM [Entrepreneur Company Monthly Billings], [Entrepreneur Company Principal Projects]

Qry Get BBBEE Pillars by Sales Brief

Type: Select

SELECT [Sales Brief Selection Marketing].[Sales Brief ID], [Sales Brief Selection Marketing].[BBBEE Pillar], [Sales Brief Selection Marketing].[Cohort Ignition Qtr], [Sales Brief Selection Marketing].[Cohort Ignition Year] FROM [Sales Brief Selection Marketing] WHERE ((([Sales Brief Selection Marketing].[BBBEE Pillar]) Is Not Null))

Qry Get Products Sold by Sales Brief

Type: Select

SELECT [Sales Brief Selection Marketing Products].[Sales Brief ID], [Sales Brief Selection Marketing Products].[Product ID], [Products Sales].Product FROM [Products Sales], [Sales Brief Selection Marketing Products]

Qry Get Sales Brief Marketing Sourced From

Type: Select

SELECT [Sales Brief Selection Marketing Sourced From].[Sales Brief Selection Marketing , [Sales Brief Selection Marketing Sourced From].[Delivery Location ID], [Delivery Locations Sales].[Delivery Location], [Sales Brief Selection Marketing Sourced From].[Delivery Location Other] FROM [Sales Brief Selection Marketing Sourced From], [Delivery Locations Sales]

Qry Principal List

Type: Select

SELECT Principals.[Principal ID], Principals.Principal, Principals.[Principal Address 1], Principals.[Principal Address 2] FROM [Principals]

Qry Principal Project List Main Dashboard

Type: Select

SELECT [Entrepreneur Company Programme Years].[Entrepreneur Company Programme Years ID], [Entrepreneur Company Programme Years].[Entrepreneur Company ID], [Entrepreneur Company Programme Years].[Programme Year], Products.Product, [Entrepreneur Company Programme Years].[Ignition Date], [Principal] & \, [Entrepreneur Company Principal Projects].[Allocated Amount], CompanyProgrammeYearStatus.[Programme Year Status], ProgrammeYearLookup.[Sort Order] FROM [Entrepreneur Company Programme Years], [Entrepreneur Company Principal Projects], [Principal Project Pillars], [Principal Projects], [Principals], [CompanyProgrammeYearStatus], [Products], [ProgrammeYearLookup]

Qry Sales Briefs Not Through Gateway

Type: Select

SELECT [Sales Brief].[Sales Brief ID], [Sales Brief].[Sales Brief Status ID], [Sales Brief].[Been Through Gateway], [Principal] & IIf(Not IsNull([Project]),\, [Sales Brief].[Sales Brief Number], [Sales Brief].[Version Number], [Sales Brief].[Solutions Architect], [Sales Brief].Project FROM [Sales Brief], [Principals Sales] WHERE ((([Sales Brief].[Sales Brief Status ID])=5) AND (([Sales Brief].[Been Through G

Qry SubFrm Principal Project Pillar Supporting Documents

Type: Select

SELECT [Principal Project Pillars].[Principal Project Pillar ID], IIf([Supporting Doc Affidavit (EME)]=True,\ FROM [Principal Project Pillars]

Qry Sum Total Billed by Company PP and Project Pillar

Type: Select

-- Unable to parse query definition

Qry Sum Total Sponsorship By Sales Brief Pillar

Type: Select

SELECT [Sales Brief Selection Marketing Products].[Sales Brief ID], [Sales Brief Selection Marketing Products].[BBBEE Pillar], Sum([Sales Brief Selection Marketing Products].[Sponsorship Amount]) FROM [Sales Brief Selection Marketing Products]

Qry Sum Total Sponsorship By Sales Brief

Type: Select

SELECT [Sales Brief Selection Marketing Products].[Sales Brief ID], Sum([Sales Brief Selection Marketing Products].[Sponsorship Amount]) FROM [Sales Brief Selection Marketing Products]

qryLinkODBC

Type: Select

SELECT zstblODBC_db.Driver, zstblODBC_db.ServerName, zstblODBC_db.DBName, zstblODBC_db.Authentication, zstblODBC_db.UID, zstblODBC_db.PWD, zstblODBC_tables.Hidden, zstblODBC_tables.TableName, zstblODBC_tables.SourceTableName, zstblODBC_tables.AfterDDL FROM [zstblODBC_db], [zstblODBC_tables] WHERE (((zstblODBC_db.SelectDB)=True) AND ((zstblODBC_tables.Link)=True))

SubQry Get EP Ready for Allocation Info by Company

Type: Select

SELECT Entrepreneurs.[Entrepreneur Company ID] FROM [Entrepreneurs], [Entrepreneur Company], [Entrepreneur Company Programme Years] WHERE (((Entrepreneurs.[Process Status ID])=91)) OR ((([Entrepreneur Company Programme