From eba46e6fee9edb66e2ef14444c6b5cbae4107e9c Mon Sep 17 00:00:00 2001 From: Selson Scatliffe Date: Fri, 19 Dec 2025 16:42:53 -0500 Subject: [PATCH] - Added Date updates for Address, CashAcct & CATran - Added tables impacted by date correction to BC Migration proc --- .../Repair Tool/AccountCode.vb | 21 +++ .../Repair Tool/Form1.Designer.vb | 16 ++ .../Repair Tool/Form1.resx | 2 +- .../Repair Tool/Form1.vb | 2 + .../Repair Tool/My Project/app.manifest | 79 ++++++++ .../Repair Tool/PlumblineCode.vb | 173 ++++++++++++++++-- .../1-Create BC Migration Procedures.sql | 27 ++- 7 files changed, 300 insertions(+), 20 deletions(-) create mode 100644 samples/DynamicsSLMigrationTools/Analysis and Repair Tool/Repair Tool/My Project/app.manifest diff --git a/samples/DynamicsSLMigrationTools/Analysis and Repair Tool/Repair Tool/AccountCode.vb b/samples/DynamicsSLMigrationTools/Analysis and Repair Tool/Repair Tool/AccountCode.vb index acebe8f6..0367401a 100644 --- a/samples/DynamicsSLMigrationTools/Analysis and Repair Tool/Repair Tool/AccountCode.vb +++ b/samples/DynamicsSLMigrationTools/Analysis and Repair Tool/Repair Tool/AccountCode.vb @@ -859,6 +859,27 @@ Module AccountCode End If + '**************************************************************** + '*** Remove time values from date fields - Cash Manager *** + '**************************************************************** + If OkToContinue = True Then + + Try + sqlReader.Close() + Call UpdateDates_CA(oEventLog) + + Catch ex As Exception + Call MessageBox.Show(ex.Message + vbNewLine + ex.StackTrace, "Error", MessageBoxButtons.OK) + + Call LogMessage("", oEventLog) + Call LogMessage("Error in removing time values in date fields - Cash Manager", oEventLog) + Call LogMessage("Error Detail: " + ex.Message.Trim + vbNewLine + ex.StackTrace, oEventLog) + Call LogMessage("", oEventLog) + OkToContinue = False + NbrOfErrors_COA = NbrOfErrors_COA + 1 + End Try + + End If '********************************************************************************************* '*** Identify GLTran records with Fiscal Year different from period to post year '********************************************************************************************* diff --git a/samples/DynamicsSLMigrationTools/Analysis and Repair Tool/Repair Tool/Form1.Designer.vb b/samples/DynamicsSLMigrationTools/Analysis and Repair Tool/Repair Tool/Form1.Designer.vb index 4c373291..a4fa0849 100644 --- a/samples/DynamicsSLMigrationTools/Analysis and Repair Tool/Repair Tool/Form1.Designer.vb +++ b/samples/DynamicsSLMigrationTools/Analysis and Repair Tool/Repair Tool/Form1.Designer.vb @@ -213,6 +213,7 @@ Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.StatusLbl = New System.Windows.Forms.ToolStripStatusLabel() Me.FolderBrowserDialog2 = New System.Windows.Forms.FolderBrowserDialog() + Me.lRelease = New System.Windows.Forms.Label() Me.TabControl1.SuspendLayout() Me.DBConnect.SuspendLayout() Me.GroupBox8.SuspendLayout() @@ -283,6 +284,7 @@ 'GroupBox8 ' Me.GroupBox8.BackColor = System.Drawing.SystemColors.Control + Me.GroupBox8.Controls.Add(Me.lRelease) Me.GroupBox8.Controls.Add(Me.lblDirRequired) Me.GroupBox8.Controls.Add(Me.lblCpnyRequired) Me.GroupBox8.Controls.Add(Me.lblDbRequired) @@ -2009,6 +2011,19 @@ Me.StatusLbl.Name = "StatusLbl" Me.StatusLbl.Size = New System.Drawing.Size(0, 17) ' + 'lRelease + ' + Me.lRelease.AutoSize = True + Me.lRelease.BackColor = System.Drawing.SystemColors.Control + Me.lRelease.Cursor = System.Windows.Forms.Cursors.Default + Me.lRelease.Location = New System.Drawing.Point(1060, 339) + Me.lRelease.Name = "lRelease" + Me.lRelease.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.lRelease.Size = New System.Drawing.Size(57, 13) + Me.lRelease.TabIndex = 83 + Me.lRelease.Text = "Release..." + Me.lRelease.TextAlign = System.Drawing.ContentAlignment.TopRight + ' 'Form1 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -2240,5 +2255,6 @@ Friend WithEvents lblCpnyRequired As Label Friend WithEvents lblDbRequired As Label Friend WithEvents lblDbStatus As Label + Public WithEvents lRelease As Label #End Region End Class diff --git a/samples/DynamicsSLMigrationTools/Analysis and Repair Tool/Repair Tool/Form1.resx b/samples/DynamicsSLMigrationTools/Analysis and Repair Tool/Repair Tool/Form1.resx index 2c46b3b1..5cb91db8 100644 --- a/samples/DynamicsSLMigrationTools/Analysis and Repair Tool/Repair Tool/Form1.resx +++ b/samples/DynamicsSLMigrationTools/Analysis and Repair Tool/Repair Tool/Form1.resx @@ -133,6 +133,6 @@ 547, 17 - 27 + 33 \ No newline at end of file diff --git a/samples/DynamicsSLMigrationTools/Analysis and Repair Tool/Repair Tool/Form1.vb b/samples/DynamicsSLMigrationTools/Analysis and Repair Tool/Repair Tool/Form1.vb index 8d96357b..4b8f96b8 100644 --- a/samples/DynamicsSLMigrationTools/Analysis and Repair Tool/Repair Tool/Form1.vb +++ b/samples/DynamicsSLMigrationTools/Analysis and Repair Tool/Repair Tool/Form1.vb @@ -82,6 +82,8 @@ Friend Class Form1 'Get date values CurrDate = Date.Now + lRelease.Text = "Release: 2025-12-19" + End Sub diff --git a/samples/DynamicsSLMigrationTools/Analysis and Repair Tool/Repair Tool/My Project/app.manifest b/samples/DynamicsSLMigrationTools/Analysis and Repair Tool/Repair Tool/My Project/app.manifest new file mode 100644 index 00000000..9ce67d2b --- /dev/null +++ b/samples/DynamicsSLMigrationTools/Analysis and Repair Tool/Repair Tool/My Project/app.manifest @@ -0,0 +1,79 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/samples/DynamicsSLMigrationTools/Analysis and Repair Tool/Repair Tool/PlumblineCode.vb b/samples/DynamicsSLMigrationTools/Analysis and Repair Tool/Repair Tool/PlumblineCode.vb index de02987f..630bba86 100644 --- a/samples/DynamicsSLMigrationTools/Analysis and Repair Tool/Repair Tool/PlumblineCode.vb +++ b/samples/DynamicsSLMigrationTools/Analysis and Repair Tool/Repair Tool/PlumblineCode.vb @@ -1,6 +1,7 @@ Imports System.Data.SqlClient -Imports System.Transactions Imports System.IO +Imports System.Transactions +Imports System.Xml Module PlumblineCode @@ -11,14 +12,14 @@ Module PlumblineCode Public NbrOfErrors_Cust As Integer Public NbrOfErrors_Vend As Integer Public NbrOfErrors_Inv As Integer - Public NbrOfErrors_Proj As Integer + Public NbrOfErrors_Proj As Integer Public NbrOfErrors_PO As Integer Public NbrOfErrors_SO As Integer Public NbrOfWarnings_COA As Integer Public NbrOfWarnings_Cust As Integer Public NbrOfWarnings_Vend As Integer Public NbrOfWarnings_Inv As Integer - Public NbrOfWarnings_Proj As Integer + Public NbrOfWarnings_Proj As Integer Public NbrOfWarnings_PO As Integer Public NbrOfWarnings_SO As Integer Public DfltLedgerID As String = String.Empty @@ -30,7 +31,7 @@ Module PlumblineCode Public APExists As Boolean = False Public ARExists As Boolean = False Public INExists As Boolean = False - Public PAExists As Boolean = False + Public PAExists As Boolean = False Public POExists As Boolean = False Public SOExists As Boolean = False Public Mem_AcctList As Integer @@ -88,6 +89,10 @@ Module PlumblineCode Dim sqlStmt As String = "" Dim sqlReader As SqlDataReader = Nothing + ' close reader if open + If sqlReader IsNot Nothing AndAlso Not sqlReader.IsClosed Then + sqlReader.Close() + End If ''General Ledger sqlStmt = "Select BaseCuryID, LedgerId, NbrPer, PerNbr, RetEarnAcct, YtdNetIncAcct from GLSetup" @@ -248,10 +253,8 @@ Module PlumblineCode Else 'Projects do not exist PAExists = False End If - - Call sqlReader.Close() End If - + Call sqlReader.Close() 'Inventory Call sqlFetch_1(sqlReader, "SELECT * FROM INSetup WHERE Init = 1", SqlAppDbConn, CommandType.Text) @@ -386,18 +389,18 @@ Module PlumblineCode Call sqlFetch_Num(retValInt, sqlString, SqlAppDbConn) If retValInt > 0 Then - UBatchesExistIN = True - End If + UBatchesExistIN = True + End If - Case "PO" + Case "PO" sqlString = "SELECT COUNT(*) FROM Batch WHERE CpnyID =" + SParm(CpnyId.Trim) + "AND LedgerID =" + SParm(bGLSetupInfo.LedgerID.Trim) + "AND Module = 'PO' AND Status = 'U'" Call sqlFetch_Num(retValInt, sqlString, SqlAppDbConn) If retValInt > 0 Then - UBatchesExistPO = True - End If + UBatchesExistPO = True + End If - Case "%" + Case "%" 'All Modules sqlString = "SELECT COUNT(*) FROM Batch WHERE CpnyID =" + SParm(CpnyId.Trim) + "AND LedgerID =" + SParm(bGLSetupInfo.LedgerID.Trim) + "AND Module = 'GL' AND Status = 'U'" Call sqlFetch_Num(retValInt, sqlString, SqlAppDbConn) @@ -2290,7 +2293,7 @@ Module PlumblineCode Dim lb_PJADDR As Boolean = False Dim lb_PJEMPLOY As Boolean = False - Dim lb_PJEMPJT As Boolean = False + Dim lb_PJEMPPJT As Boolean = False Dim lb_PJEQRATE As Boolean = False Dim lb_PJEQUIP As Boolean = False Dim lb_PJPENT As Boolean = False @@ -2315,7 +2318,7 @@ Module PlumblineCode 'PJEMPPJT - Check for time values in ep_id08, ep_id09, effect_date sqlString = "SELECT TOP 1 * FROM PJEMPPJT WHERE (CAST(ep_id08 AS TIME) <> '00:00:00') OR (CAST(ep_id09 AS TIME) <> '00:00:00') OR (CAST(effect_date AS TIME) <> '00:00:00')" Call sqlFetch_1(sqlReader, sqlString, SqlAppDbConn, CommandType.Text) - If sqlReader.HasRows Then lb_PJEMPJT = True + If sqlReader.HasRows Then lb_PJEMPPJT = True Call sqlReader.Close() ' PJEQRATE - Check for time values in ec_id08, ec_id09, ec_id18, ec_id19, effect_date @@ -2343,7 +2346,7 @@ Module PlumblineCode Call sqlReader.Close() ' If any tables are found, then open a new connection for updating. - If lb_PJADDR Or lb_PJEMPJT Or lb_PJEMPLOY Or lb_PJEQRATE Or lb_PJEQUIP Or lb_PJPENT Or lb_PJPROJ Then + If lb_PJADDR Or lb_PJEMPPJT Or lb_PJEMPLOY Or lb_PJEQRATE Or lb_PJEQUIP Or lb_PJPENT Or lb_PJPROJ Then ' Set operation and write to event log Operation = OperationType.UpdateOp @@ -2389,7 +2392,7 @@ Module PlumblineCode End If - If lb_PJEMPJT Then + If lb_PJEMPPJT Then cmdText = "UPDATE PJEMPPJT SET ep_id08 = CAST(ep_id08 AS date) WHERE CAST(ep_id08 AS time) <> '00:00:00'" Call sql_1(sqlUpdate, cmdText, SqlTranConn, Operation, CommandType.Text, updTran) @@ -2728,6 +2731,7 @@ Module PlumblineCode Dim sqlReader As SqlDataReader = Nothing + Dim lb_Address As Boolean = False Dim lb_SalesTax As Boolean = False Dim lb_Terms As Boolean = False @@ -2735,6 +2739,12 @@ Module PlumblineCode Try + ' Address - Check for time values in S4Future07, S4Future08, User7, User8 + sqlString = "SELECT TOP 1 * FROM Address WHERE (CAST(S4Future07 AS TIME) <> '00:00:00') OR (CAST(S4Future08 AS TIME) <> '00:00:00') OR (CAST(User7 AS TIME) <> '00:00:00') OR (CAST(User8 AS TIME) <> '00:00:00')" + Call sqlFetch_1(sqlReader, sqlString, SqlAppDbConn, CommandType.Text) + If sqlReader.HasRows Then lb_Address = True + Call sqlReader.Close() + ' SalesTax - Check for time values in NewRateDate, S4Future07, S4Future08, TaxRvsdDate, User7, User8 sqlString = "SELECT TOP 1 * FROM SalesTax WHERE (CAST(NewRateDate AS TIME) <> '00:00:00') OR (CAST(S4Future07 AS TIME) <> '00:00:00') OR (CAST(S4Future08 AS TIME) <> '00:00:00') OR (CAST(TaxRvsdDate AS TIME) <> '00:00:00') OR (CAST(User7 AS TIME) <> '00:00:00') OR (CAST(User8 AS TIME) <> '00:00:00')" Call sqlFetch_1(sqlReader, sqlString, SqlAppDbConn, CommandType.Text) @@ -2748,7 +2758,7 @@ Module PlumblineCode Call sqlReader.Close() ' If any tables are found, then open a new connection for updating. - If lb_SalesTax Or lb_Terms Then + If lb_Address Or lb_SalesTax Or lb_Terms Then ' Set operation and write to event log Operation = OperationType.UpdateOp @@ -2762,6 +2772,23 @@ Module PlumblineCode updTran = TranBeg(SqlTranConn) + If lb_Address Then + + cmdText = "UPDATE Address SET S4Future07 = CAST(S4Future07 AS date) WHERE CAST(S4Future07 AS time) <> '00:00:00'" + Call sql_1(sqlUpdate, cmdText, SqlTranConn, Operation, CommandType.Text, updTran) + cmdText = "UPDATE Address SET S4Future08 = CAST(S4Future08 AS date) WHERE CAST(S4Future08 AS time) <> '00:00:00'" + Call sql_1(sqlUpdate, cmdText, SqlTranConn, Operation, CommandType.Text, updTran) + cmdText = "UPDATE Address SET User7 = CAST(User7 AS date) WHERE CAST(User7 AS time) <> '00:00:00'" + Call sql_1(sqlUpdate, cmdText, SqlTranConn, Operation, CommandType.Text, updTran) + cmdText = "UPDATE Address SET User8 = CAST(User8 AS date) WHERE CAST(User8 AS time) <> '00:00:00'" + Call sql_1(sqlUpdate, cmdText, SqlTranConn, Operation, CommandType.Text, updTran) + + 'Write to event log + Call LogMessage("Address", EventLog) + NbrOfWarnings_COA = NbrOfWarnings_COA + 1 + + End If + If lb_SalesTax Then cmdText = "UPDATE SalesTax SET NewRateDate = CAST(NewRateDate AS date) WHERE CAST(NewRateDate AS time) <> '00:00:00'" @@ -2825,6 +2852,116 @@ Module PlumblineCode End Sub + Public Sub UpdateDates_CA(EventLog As clsEventLog) + + '************************************************************************************************************ + '*** Identify any Cash Manager records with time values in date fields and log them to the event log. + '************************************************************************************************************ + + Dim SqlTranConn As SqlConnection = Nothing + Dim cmdText As String = "" + Dim Operation As OperationType + Dim sqlUpdate As SqlDataReader = Nothing + Dim sqlString As String = String.Empty + + Dim sqlReader As SqlDataReader = Nothing + + Dim lb_CashAcct As Boolean = False + Dim lb_CATran As Boolean = False + + Dim updTran As SqlTransaction = Nothing + + Try + + ' CashAcct - Check for time values in S4Future07, S4Future08, User7, User8 + sqlString = "SELECT TOP 1 * FROM CashAcct WHERE (CAST(S4Future07 AS TIME) <> '00:00:00') OR (CAST(S4Future08 AS TIME) <> '00:00:00') OR (CAST(User7 AS TIME) <> '00:00:00') OR (CAST(User8 AS TIME) <> '00:00:00')" + Call sqlFetch_1(sqlReader, sqlString, SqlAppDbConn, CommandType.Text) + If sqlReader.HasRows Then lb_CashAcct = True + Call sqlReader.Close() + + ' CATran - Check for time values in ClearDate, TranDate, S4Future07, S4Future08, TaxRvsdDate, User7, User8 + sqlString = "SELECT TOP 1 * FROM CATran WHERE (CAST(ClearDate AS TIME) <> '00:00:00') OR (CAST(S4Future07 AS TIME) <> '00:00:00') OR (CAST(S4Future08 AS TIME) <> '00:00:00') OR (CAST(TranDate AS TIME) <> '00:00:00') OR (CAST(User7 AS TIME) <> '00:00:00') OR (CAST(User8 AS TIME) <> '00:00:00')" + Call sqlFetch_1(sqlReader, sqlString, SqlAppDbConn, CommandType.Text) + If sqlReader.HasRows Then lb_CATran = True + Call sqlReader.Close() + + ' If any tables are found, then open a new connection for updating. + If lb_CashAcct Or lb_CATran Then + + ' Set operation and write to event log + Operation = OperationType.UpdateOp + Call LogMessage("", EventLog) + Call LogMessage(DateField_LogMess_Line1, EventLog) + Call LogMessage(DateField_LogMess_Line2, EventLog) + + ' Open a new connection for the update transaction + SqlTranConn = New SqlConnection(AppDbConnStr) + SqlTranConn.Open() + + updTran = TranBeg(SqlTranConn) + + If lb_CashAcct Then + + cmdText = "UPDATE CashAcct SET S4Future07 = CAST(S4Future07 AS date) WHERE CAST(S4Future07 AS time) <> '00:00:00'" + Call sql_1(sqlUpdate, cmdText, SqlTranConn, Operation, CommandType.Text, updTran) + cmdText = "UPDATE CashAcct SET S4Future08 = CAST(S4Future08 AS date) WHERE CAST(S4Future08 AS time) <> '00:00:00'" + Call sql_1(sqlUpdate, cmdText, SqlTranConn, Operation, CommandType.Text, updTran) + cmdText = "UPDATE CashAcct SET User7 = CAST(User7 AS date) WHERE CAST(User7 AS time) <> '00:00:00'" + Call sql_1(sqlUpdate, cmdText, SqlTranConn, Operation, CommandType.Text, updTran) + cmdText = "UPDATE CashAcct SET User8 = CAST(User8 AS date) WHERE CAST(User8 AS time) <> '00:00:00'" + Call sql_1(sqlUpdate, cmdText, SqlTranConn, Operation, CommandType.Text, updTran) + + 'Write to event log + Call LogMessage("CashAcct", EventLog) + NbrOfWarnings_COA = NbrOfWarnings_COA + 1 + + End If + + If lb_CATran Then + + cmdText = "UPDATE CATran SET ClearDate = CAST(ClearDate AS date) WHERE CAST(ClearDate AS time) <> '00:00:00'" + Call sql_1(sqlUpdate, cmdText, SqlTranConn, Operation, CommandType.Text, updTran) + cmdText = "UPDATE CATran SET S4Future07 = CAST(S4Future07 AS date) WHERE CAST(S4Future07 AS time) <> '00:00:00'" + Call sql_1(sqlUpdate, cmdText, SqlTranConn, Operation, CommandType.Text, updTran) + cmdText = "UPDATE CATran SET S4Future08 = CAST(S4Future08 AS date) WHERE CAST(S4Future08 AS time) <> '00:00:00'" + Call sql_1(sqlUpdate, cmdText, SqlTranConn, Operation, CommandType.Text, updTran) + cmdText = "UPDATE CATran SET TranDate = CAST(TranDate AS date) WHERE CAST(TranDate AS time) <> '00:00:00'" + Call sql_1(sqlUpdate, cmdText, SqlTranConn, Operation, CommandType.Text, updTran) + cmdText = "UPDATE CATran SET User7 = CAST(User7 AS date) WHERE CAST(User7 AS time) <> '00:00:00'" + Call sql_1(sqlUpdate, cmdText, SqlTranConn, Operation, CommandType.Text, updTran) + cmdText = "UPDATE CATran SET User8 = CAST(User8 AS date) WHERE CAST(User8 AS time) <> '00:00:00'" + Call sql_1(sqlUpdate, cmdText, SqlTranConn, Operation, CommandType.Text, updTran) + + 'Write to event log + Call LogMessage("CATran", EventLog) + NbrOfWarnings_COA = NbrOfWarnings_COA + 1 + + End If + + Call TranEnd(updTran) + SqlTranConn.Close() + + End If + + Catch ex As Exception + + Call LogMessage("Error in removing time values in date fields - Cash Manager" + vbNewLine, EventLog) + Call LogMessage("Error: " + ex.Message + vbNewLine, EventLog) + + End Try + + ' Close the connection if it is open. + If (SqlTranConn IsNot Nothing) Then + If (SqlTranConn.State = ConnectionState.Open) Then + SqlTranConn.Close() + SqlTranConn = Nothing + End If + End If + + ' Close the readers if they are open. + sqlReader.Close() + + End Sub '**************************** '***** Public Functions ***** diff --git a/samples/DynamicsSLMigrationTools/Analysis and Repair Tool/SL to BC Migration Database Preparation SQL Scripts/1-Create BC Migration Procedures.sql b/samples/DynamicsSLMigrationTools/Analysis and Repair Tool/SL to BC Migration Database Preparation SQL Scripts/1-Create BC Migration Procedures.sql index 17db976b..c3a4d354 100644 --- a/samples/DynamicsSLMigrationTools/Analysis and Repair Tool/SL to BC Migration Database Preparation SQL Scripts/1-Create BC Migration Procedures.sql +++ b/samples/DynamicsSLMigrationTools/Analysis and Repair Tool/SL to BC Migration Database Preparation SQL Scripts/1-Create BC Migration Procedures.sql @@ -13,7 +13,7 @@ SET NOCOUNT ON DECLARE @SQLVersion AS CHAR(2) = (SELECT LEFT(CONVERT(VARCHAR, SERVERPROPERTY('ProductVersion')), 2)) DECLARE @AppDatabaseName AS VARCHAR(128) = DB_NAME() DECLARE @AppDatabaseID AS SMALLINT = DB_ID(@AppDatabaseName) -DECLARE @log AS VARCHAR(4000) = 'BCMChangeTracking' + CHAR(10) -- Store info about what's occurring. +DECLARE @log AS VARCHAR(7000) = 'BCMChangeTracking' + CHAR(10) -- Store info about what's occurring. DECLARE @msgText AS VARCHAR(500) -- Temp storage for message text -- Check the SQL instance version @@ -72,21 +72,42 @@ ELSE IF @Action = 'FALSE' OR @Action = 'OFF' -- Setup a table of tables for Change Tracking DECLARE @Tables TABLE(tableName VARCHAR(128) NOT NULL, isColumnTracked BIT NOT NULL) +INSERT INTO @Tables VALUES ('Address', 'FALSE') +INSERT INTO @Tables VALUES ('AP_Balances', 'FALSE') INSERT INTO @Tables VALUES ('APAdjust', 'FALSE') INSERT INTO @Tables VALUES ('APDoc', 'FALSE') +INSERT INTO @Tables VALUES ('APSetup', 'FALSE') INSERT INTO @Tables VALUES ('APTran', 'FALSE') +INSERT INTO @Tables VALUES ('AR_Balances', 'FALSE') INSERT INTO @Tables VALUES ('ARAdjust', 'FALSE') INSERT INTO @Tables VALUES ('ARDoc', 'FALSE') +INSERT INTO @Tables VALUES ('ARSetup', 'FALSE') INSERT INTO @Tables VALUES ('ARTran', 'FALSE') INSERT INTO @Tables VALUES ('Batch', 'FALSE') +INSERT INTO @Tables VALUES ('CashAcct', 'FALSE') +INSERT INTO @Tables VALUES ('CATran', 'FALSE') +INSERT INTO @Tables VALUES ('CustClass', 'FALSE') +INSERT INTO @Tables VALUES ('Customer', 'FALSE') +INSERT INTO @Tables VALUES ('GLSetup', 'FALSE') +INSERT INTO @Tables VALUES ('GLTran', 'FALSE') +INSERT INTO @Tables VALUES ('INSetup', 'FALSE') INSERT INTO @Tables VALUES ('INTran', 'FALSE') +INSERT INTO @Tables VALUES ('Inventory', 'FALSE') INSERT INTO @Tables VALUES ('InventoryADG', 'FALSE') INSERT INTO @Tables VALUES ('ItemCost', 'FALSE') INSERT INTO @Tables VALUES ('Item2Hist', 'FALSE') INSERT INTO @Tables VALUES ('ItemHist', 'FALSE') +INSERT INTO @Tables VALUES ('ItemSite', 'FALSE') INSERT INTO @Tables VALUES ('ItemXRef', 'FALSE') INSERT INTO @Tables VALUES ('LotSerMst', 'FALSE') INSERT INTO @Tables VALUES ('LotSerT', 'FALSE') +INSERT INTO @Tables VALUES ('PJADDR', 'FALSE') +INSERT INTO @Tables VALUES ('PJEMPLOY', 'FALSE') +INSERT INTO @Tables VALUES ('PJEMPPJT', 'FALSE') +INSERT INTO @Tables VALUES ('PJEQRATE', 'FALSE') +INSERT INTO @Tables VALUES ('PJEQUIP', 'FALSE') +INSERT INTO @Tables VALUES ('PJPENT', 'FALSE') +INSERT INTO @Tables VALUES ('PJPROJ', 'FALSE') INSERT INTO @Tables VALUES ('POAddress', 'FALSE') INSERT INTO @Tables VALUES ('POReceipt', 'FALSE') INSERT INTO @Tables VALUES ('POSetup', 'FALSE') @@ -94,6 +115,7 @@ INSERT INTO @Tables VALUES ('POTran', 'FALSE') INSERT INTO @Tables VALUES ('ProductClass', 'FALSE') INSERT INTO @Tables VALUES ('PurchOrd', 'FALSE') INSERT INTO @Tables VALUES ('PurOrdDet', 'FALSE') +INSERT INTO @Tables VALUES ('SalesTax', 'FALSE') INSERT INTO @Tables VALUES ('Site', 'FALSE') INSERT INTO @Tables VALUES ('SOAddress', 'FALSE') INSERT INTO @Tables VALUES ('SOHeader', 'FALSE') @@ -103,6 +125,9 @@ INSERT INTO @Tables VALUES ('SOShipHeader', 'FALSE') INSERT INTO @Tables VALUES ('SOShipLine', 'FALSE') INSERT INTO @Tables VALUES ('SOShipLot', 'FALSE') INSERT INTO @Tables VALUES ('SOType', 'FALSE') +INSERT INTO @Tables VALUES ('Terms', 'FALSE') +INSERT INTO @Tables VALUES ('VendClass', 'FALSE') +INSERT INTO @Tables VALUES ('Vendor', 'FALSE') -- If there are tables to process IF (SELECT COUNT(*) FROM @Tables) <> 0