Category: GP (Great Plains)

This script is part of the SQL Scripts for Microsoft Dynamics GP where I will be posted the scripts I wrote against Microsoft Dynamics GP over the 19 years before I stopped working with Dynamics GP.

This script was used to correct some prices in Extended Pricing which had been imported through table Import with too mnay decimal places; this script updates all prices to two decimal places where the item value doesn’t equal the item value to two decimal places.

/*
Created by Ian Grieve of azurecurve | Ramblings of an IT Professional (http://www.azurecurve.co.uk)
This code is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 4.0 International (CC BY-NC-SA 4.0 Int).
*/
DECLARE @PRCSHID VARCHAR(15) = '2022-EURO'

UPDATE
	IV10402 --Extended Pricing Price Sheet UofM Work (IV10402)
SET
	PSITMVAL = ROUND(PSITMVAL,2)
WHERE
	PSITMVAL <> ROUND(PSITMVAL,2)
AND
	PRCSHID = @PRCSHID
GO

This script is part of the SQL Scripts for Microsoft Dynamics GP where I will be posted the scripts I wrote against Microsoft Dynamics GP over the 19 years before I stopped working with Dynamics GP.

This script inserts data into the Extended Pricing Price Sheet UofM Work (IV10402) table and does verification for errors before inserting the data.

/*
Created by Ian Grieve of azurecurve | Ramblings of an IT Professional (http://www.azurecurve.co.uk)
This code is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 4.0 International (CC BY-NC-SA 4.0 Int).
*/
/*
Created by Ian Grieve of ISC Software (https://www.isc-software.com/).
*/

/*
	CREATE TEMP ERROR TABLE
*/
CREATE TABLE #Errors
	(
		Error VARCHAR(1000)
		,ROW_ID INT IDENTITY
	)
GO

/*
	CREATE TEMP TABLE FOR IV10401 DATA
*/
CREATE TABLE #IV10401_IMPORT
	(
		PRCSHID char(15)
        ,SEQNUMBR int
        ,EPITMTYP char(1)
        ,ITEMNMBR char(31)
        ,BRKPTPRC tinyint
        ,ACTIVE tinyint
        ,BASEUOFM char(9)
        ,PRODTCOD char(1)
        ,PROMOTYP smallint
        ,PROMOLVL smallint
	)
GO

/*
	BULK INSERT
*/
BULK INSERT
	#IV10401_IMPORT
FROM
	'c:\temp\IV10401.txt'
WITH
	(FIELDTERMINATOR = '\t'
	,ROWTERMINATOR = '\n'
	,FIRSTROW = 2
)
GO

/*
	VALIDATE DATA
*/
--validate price sheet header
INSERT INTO #Errors
	(Error)
--VALUES
	(
		SELECT
			'Price Sheet does not exist: ' + CAST(['Import'].PRCSHID AS VARCHAR(100))
		FROM
			#IV10401_IMPORT AS ['Import']
		LEFT JOIN
			SOP10110 AS ['Extended Pricing Price Sheet Header'] --Extended Pricing Price Sheet Header (SOP10110)
				ON
					['Extended Pricing Price Sheet Header'].PRCSHID = ['Import'].PRCSHID
		WHERE
			['Extended Pricing Price Sheet Header'].PRCSHID IS NULL
	)
GO

--validate price sheet rows
INSERT INTO #Errors
	(Error)
--VALUES
	(
		SELECT
			'Item ' + CAST(['Import'].ITEMNMBR AS VARCHAR(100)) + ' already exists on the price sheet: ' + CAST(['Import'].PRCSHID AS VARCHAR(100))
		FROM
			#IV10401_IMPORT AS ['Import']
		LEFT JOIN
			IV10401 AS ['Extended Pricing Price Sheet Work'] --Extended Pricing Price Sheet Work (IV10401)
				ON
					['Extended Pricing Price Sheet Work'].PRCSHID = ['Import'].PRCSHID
				AND
					['Extended Pricing Price Sheet Work'].ITEMNMBR = ['Import'].ITEMNMBR
		WHERE
			['Extended Pricing Price Sheet Work'].ITEMNMBR IS NOT NULL
	)
GO

--validate items
INSERT INTO #Errors
	(Error)
--VALUES
	(
		SELECT
			'Item does not exist: ' + CAST(['Import'].ITEMNMBR AS VARCHAR(100))
		FROM
			#IV10401_IMPORT AS ['Import']
		LEFT JOIN
			IV00101 AS ['Item Master'] --Item Master (IV00101)
				ON
					['Item Master'].ITEMNMBR = ['Import'].ITEMNMBR
		WHERE
			['Item Master'].ITEMNMBR IS NULL
	)
GO

-- validate unit of measure
INSERT INTO #Errors
	(Error)
--VALUES
	(
		SELECT
			'Unit of Measure does not exist: ' + CAST(['Import'].BASEUOFM AS VARCHAR(100))
		FROM
			#IV10401_IMPORT AS ['Import']
		LEFT JOIN
			IV40202 AS ['Inventory U of M Schedule Detail Setup'] --Inventory U of M Schedule Detail Setup (IV40202)
				ON
					['Inventory U of M Schedule Detail Setup'].UOFM = ['Import'].BASEUOFM
		WHERE
			['Inventory U of M Schedule Detail Setup'].UOFM IS NULL
	)
GO

/*
	INSERT NEW DATA IF NO ERRORS
*/
--insert price sheet header
IF (SELECT COUNT(*) FROM #Errors) = 0
	-- Insert if no Email Details
	INSERT INTO IV10401 --Extended Pricing Price Sheet Work (IV10401)
		(
			PRCSHID
           ,SEQNUMBR
           ,EPITMTYP
           ,ITEMNMBR
           ,BRKPTPRC
           ,ACTIVE
           ,BASEUOFM
           ,PRODTCOD
           ,PROMOTYP
           ,PROMOLVL
		)
	--VALUES
		(
			SELECT DISTINCT
				PRCSHID
			   ,SEQNUMBR
			   ,EPITMTYP
			   ,ITEMNMBR
			   ,BRKPTPRC
			   ,ACTIVE
			   ,BASEUOFM
			   ,PRODTCOD
			   ,PROMOTYP
			   ,PROMOLVL
			FROM
				#IV10401_IMPORT AS ['Import']
			WHERE
				(
					SELECT
						COUNT(['Extended Pricing Price Sheet Header'].PRCSHID)
					FROM
						IV10401 AS ['Extended Pricing Price Sheet Header'] --Extended Pricing Price Sheet Work (IV10401)
					WHERE
						['Extended Pricing Price Sheet Header'].PRCSHID = ['Import'].PRCSHID
					AND
						['Extended Pricing Price Sheet Header'].ITEMNMBR = ['Import'].ITEMNMBR
				) = 0
		)
GO

/*
	OUTPUT ERRORS
*/
IF (SELECT COUNT(*) FROM #Errors) > 0
	SELECT Error FROM #Errors ORDER BY ROW_ID
GO

/*
	DROP TEMP TABLES
*/
DROP TABLE #IV10401_IMPORT
GO

DROP TABLE #Errors
GO

This script is part of the SQL Scripts for Microsoft Dynamics GP where I will be posted the scripts I wrote against Microsoft Dynamics GP over the 19 years before I stopped working with Dynamics GP.

This script was created to populate the Extended Pricing Price Sheet Links (RM00500) table for price sheets after import through Table Import; it assigns all price sheets to all customers, unless the sheet is already assigned.

/*
Created by Ian Grieve of azurecurve | Ramblings of an IT Professional (http://www.azurecurve.co.uk)
This code is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 4.0 International (CC BY-NC-SA 4.0 Int).
*/
INSERT INTO RM00500 --Extended Pricing Price Sheet Links (RM00500)
	(
		PRCSHID
		,PRODTCOD
		,LINKCODE
		,SEQNUMBR
		,PSSEQNUM
	)
SELECT
	['Extended Pricing Price Sheet Header'].PRCSHID
	,'C'
	,['Extended Pricing Price Sheet Header'].PRCSHID
	,16384
	,16384
FROM
	SOP10110 AS ['Extended Pricing Price Sheet Header'] --Extended Pricing Price Sheet Header (SOP10110)
INNER JOIN
	RM00101 AS ['RM Customer Master'] --RM Customer MSTR (RM00101)
		ON
			['RM Customer Master'].CUSTNMBR = ['Extended Pricing Price Sheet Header'].PRCSHID
WHERE
	(
		SELECT
			COUNT(*)
		FROM
			RM00500 AS ['Extended Pricing Price Sheet Links'] --Extended Pricing Price Sheet Links (RM00500)
		WHERE
			['Extended Pricing Price Sheet Links'].PRODTCOD = 'C'
		AND
			['Extended Pricing Price Sheet Links'].LINKCODE = ['Extended Pricing Price Sheet Header'].PRCSHID
		AND
			['Extended Pricing Price Sheet Links'].SEQNUMBR = 16384
	) = 0

This script is part of the SQL Scripts for Microsoft Dynamics GP where I will be posted the scripts I wrote against Microsoft Dynamics GP over the 19 years before I stopped working with Dynamics GP.

This script inserts data into the Extended Pricing Price Sheet Work (IV10401) table and does verification for errors before inserting the data.

/*
Created by Ian Grieve of azurecurve | Ramblings of an IT Professional (http://www.azurecurve.co.uk)
This code is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 4.0 International (CC BY-NC-SA 4.0 Int).
*/
/*
Created by Ian Grieve of ISC Software (https://www.isc-software.com/).
*/

/*
	CREATE TEMP ERROR TABLE
*/
CREATE TABLE #Errors
	(
		Error VARCHAR(1000)
		,ROW_ID INT IDENTITY
	)
GO

/*
	CREATE TEMP TABLE FOR IV10402 DATA
*/
CREATE TABLE #IV10402_IMPORT
	(
		PRCSHID char(15)
        ,EPITMTYP char(1)
        ,ITEMNMBR char(31)
        ,UOFM char(9)
        ,QTYFROM numeric(195)
        ,QTYTO numeric(195)
        ,PSITMVAL numeric(195)
        ,EQUOMQTY numeric(195)
        ,QTYBSUOM numeric(195)
        ,SEQNUMBR int
	)
GO

/*
	BULK INSERT
*/
BULK INSERT
	#IV10402_IMPORT
FROM
	'c:\temp\IV10402.txt'
WITH
	(FIELDTERMINATOR = '\t'
	,ROWTERMINATOR = '\n'
	,FIRSTROW = 2
)
GO

/*
	VALIDATE DATA
*/
--validate price sheet header
INSERT INTO #Errors
	(Error)
--VALUES
	(
		SELECT
			'Price Sheet already exists: ' + CAST(['Import'].PRCSHID AS VARCHAR(100))
		FROM
			#IV10402_IMPORT AS ['Import']
		LEFT JOIN
			SOP10110 AS ['Extended Pricing Price Sheet Header'] --Extended Pricing Price Sheet Header (SOP10110)
				ON
					['Extended Pricing Price Sheet Header'].PRCSHID = ['Import'].PRCSHID
		WHERE
			['Extended Pricing Price Sheet Header'].PRCSHID IS NOT NULL
	)
GO

--validate items
INSERT INTO #Errors
	(Error)
--VALUES
	(
		SELECT
			'Item does not exist: ' + CAST(['Import'].ITEMNMBR AS VARCHAR(100))
		FROM
			#IV10402_IMPORT AS ['Import']
		LEFT JOIN
			IV00101 AS ['Item Master'] --Item Master (IV00101)
				ON
					['Item Master'].ITEMNMBR = ['Import'].ITEMNMBR
		WHERE
			['Item Master'].ITEMNMBR IS NULL
	)
GO

--validate price sheet rows
INSERT INTO #Errors
	(Error)
--VALUES
	(
		SELECT
			'Item ' + CAST(['Import'].ITEMNMBR AS VARCHAR(100)) + ' does not exist on the price sheet: ' + CAST(['Import'].PRCSHID AS VARCHAR(100))
		FROM
			#IV10402_IMPORT AS ['Import']
		LEFT JOIN
			IV10401 AS ['Extended Pricing Price Sheet Work'] --Extended Pricing Price Sheet Work (IV10401)
				ON
					['Extended Pricing Price Sheet Work'].PRCSHID = ['Import'].PRCSHID
				AND
					['Extended Pricing Price Sheet Work'].ITEMNMBR = ['Import'].ITEMNMBR
		WHERE
			['Extended Pricing Price Sheet Work'].ITEMNMBR IS NULL
	)
GO

--validate price sheet row price breaks
INSERT INTO #Errors
	(Error)
--VALUES
	(
		SELECT
			'rOW ' + CAST(['Import'].SEQNUMBR AS VARCHAR(100)) + ' already exists on the price sheet: ' + CAST(['Import'].PRCSHID AS VARCHAR(100)) + ' for item ' +  CAST(['Import'].ITEMNMBR AS VARCHAR(100))
		FROM
			#IV10402_IMPORT AS ['Import']
		LEFT JOIN
			IV10402 AS ['Extended Pricing Price Sheet UofM Work'] --Extended Pricing Price Sheet UofM Work (IV10402)
				ON
					['Extended Pricing Price Sheet UofM Work'].PRCSHID = ['Import'].PRCSHID
				AND
					['Extended Pricing Price Sheet UofM Work'].ITEMNMBR = ['Import'].ITEMNMBR
				AND
					['Extended Pricing Price Sheet UofM Work'].SEQNUMBR = ['Import'].SEQNUMBR 
		WHERE
			['Extended Pricing Price Sheet UofM Work'].ITEMNMBR IS NOT NULL
	)
GO

-- validate unit of measure
INSERT INTO #Errors
	(Error)
--VALUES
	(
		SELECT
			'Unit of Measure does not exist: ' + CAST(['Import'].UOFM AS VARCHAR(100))
		FROM
			#IV10402_IMPORT AS ['Import']
		LEFT JOIN
			IV40202 AS ['Inventory U of M Schedule Detail Setup'] --Inventory U of M Schedule Detail Setup (IV40202)
				ON
					['Inventory U of M Schedule Detail Setup'].UOFM = ['Import'].UOFM
		WHERE
			['Inventory U of M Schedule Detail Setup'].UOFM IS NULL
	)
GO

/*
	INSERT NEW DATA IF NO ERRORS
*/
--insert price sheet header
IF (SELECT COUNT(*) FROM #Errors) = 0
	-- Insert if no Email Details
	INSERT INTO IV10402 --Extended Pricing Price Sheet UofM Work (IV10402)
		(
			PRCSHID
           ,EPITMTYP
           ,ITEMNMBR
           ,UOFM
           ,QTYFROM
           ,QTYTO
           ,PSITMVAL
           ,EQUOMQTY
           ,QTYBSUOM
           ,SEQNUMBR
		)
	--VALUES
		(
			SELECT DISTINCT
				PRCSHID
			   ,EPITMTYP
			   ,ITEMNMBR
			   ,UOFM
			   ,QTYFROM
			   ,QTYTO
			   ,PSITMVAL
			   ,EQUOMQTY
			   ,QTYBSUOM
			   ,SEQNUMBR
			FROM
				#IV10402_IMPORT AS ['Import']
			WHERE
				(
					SELECT
						COUNT(['Extended Pricing Price Sheet Header'].PRCSHID)
					FROM
						IV10402 AS ['Extended Pricing Price Sheet Header'] --Extended Pricing Price Sheet UofM Work (IV10402)
					WHERE
						['Extended Pricing Price Sheet Header'].PRCSHID = ['Import'].PRCSHID
					AND
						['Extended Pricing Price Sheet Header'].ITEMNMBR = ['Import'].ITEMNMBR
					AND
						['Extended Pricing Price Sheet Header'].SEQNUMBR = ['Import'].SEQNUMBR
				) = 0
		)
GO

/*
	OUTPUT ERRORS
*/
IF (SELECT COUNT(*) FROM #Errors) > 0
	SELECT Error FROM #Errors ORDER BY ROW_ID
GO

/*
	DROP TEMP TABLES
*/
DROP TABLE #IV10402_IMPORT
GO

DROP TABLE #Errors
GO

This script is part of the SQL Scripts for Microsoft Dynamics GP where I will be posted the scripts I wrote against Microsoft Dynamics GP over the 19 years before I stopped working with Dynamics GP.

This script inserts data into the Extended Pricing Price Sheet Header (SOP10110) table and does verification for errors before inserting the data.

/*
Created by Ian Grieve of azurecurve | Ramblings of an IT Professional (http://www.azurecurve.co.uk)
This code is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 4.0 International (CC BY-NC-SA 4.0 Int).
*/
/*
Created by Ian Grieve of ISC Software (https://www.isc-software.com/).
*/

/*
	CREATE TEMP ERROR TABLE
*/
CREATE TABLE #Errors
	(
		Error VARCHAR(1000)
		,ROW_ID INT IDENTITY
	)
GO

/*
	CREATE TEMP TABLE FOR SOP10110 DATA
*/
CREATE TABLE #SOP10110_IMPORT
	(
		PRCSHID char(15)
        ,DESCEXPR char(51)
        ,NTPRONLY tinyint
        ,ACTIVE tinyint
        ,STRTDATE datetime
        ,ENDDATE datetime
        ,NOTEINDX numeric(195)
        ,PROMO tinyint
        ,CURNCYID char(15)
	)
GO

/*
	BULK INSERT
*/
BULK INSERT
	#IV10401_IMPORT
FROM
	'c:\temp\SOP110110.txt'
WITH
	(FIELDTERMINATOR = '\t'
	,ROWTERMINATOR = '\n'
	,FIRSTROW = 2
)
GO

/*
	VALIDATE DATA
*/
--validate price sheet header
INSERT INTO #Errors
	(Error)
--VALUES
	(
		SELECT
			'Price Sheet already exists: ' + CAST(['Import'].PRCSHID AS VARCHAR(100))
		FROM
			#SOP10110_IMPORT AS ['Import']
		LEFT JOIN
			SOP10110 AS ['Extended Pricing Price Sheet Header'] --SO10110
				ON
					['Extended Pricing Price Sheet Header'].PRCSHID = ['Import'].PRCSHID
		WHERE
			['Extended Pricing Price Sheet Header'].PRCSHID IS NOT NULL
	)
GO

--validate customers
INSERT INTO #Errors
	(Error)
--VALUES
	(
		SELECT
			'Customer does not exist: ' + CAST(['Import'].PRCSHID AS VARCHAR(100))
		FROM
			#SOP10110_IMPORT AS ['Import']
		LEFT JOIN
			RM00101 AS ['RM Customer MSTR'] --RM Customer MSTR (RM00101)
				ON
					['RM Customer MSTR'].CUSTNMBR = ['Import'].PRCSHID
		WHERE
			['RM Customer MSTR'].CUSTNMBR IS NOT NULL
	)
GO

/*
	INSERT NEW DATA IF NO ERRORS
*/
--insert price sheet header
IF (SELECT COUNT(*) FROM #Errors) = 0
	-- Insert if no Email Details
	INSERT INTO SOP10110 --Extended Pricing Price Sheet Header (SOP10110)
		(
			PRCSHID
           ,DESCEXPR
           ,NTPRONLY
           ,ACTIVE
           ,STRTDATE
           ,ENDDATE
           ,NOTEINDX
           ,PROMO
           ,CURNCYID
		)
	--VALUES
		(
			SELECT DISTINCT
				PRCSHID
			   ,DESCEXPR
			   ,NTPRONLY
			   ,ACTIVE
			   ,STRTDATE
			   ,ENDDATE
			   ,NOTEINDX
			   ,PROMO
			   ,CURNCYID
			FROM
				#SOP10110_IMPORT AS ['Import']
			WHERE
				(
					SELECT
						COUNT(['Extended Pricing Price Sheet Header'].PRCSHID)
					FROM
						SOP10110 AS ['Extended Pricing Price Sheet Header'] --Extended Pricing Price Sheet Header (SOP10110)
					WHERE
						['Extended Pricing Price Sheet Header'].PRCSHID = ['Import'].PRCSHID
				) = 0
		)
GO

/*
	OUTPUT ERRORS
*/
IF (SELECT COUNT(*) FROM #Errors) > 0
	SELECT Error FROM #Errors ORDER BY ROW_ID
GO

/*
	DROP TEMP TABLES
*/
DROP TABLE #SOP10110_IMPORT
GO

DROP TABLE #Errors
GO

This script is part of the SQL Scripts for Microsoft Dynamics GP where I will be posted the scripts I wrote against Microsoft Dynamics GP over the 19 years before I stopped working with Dynamics GP.

This script delete corrupt data from the Extended Pricing tables; we had a client use the Table Import function and, unfortunately, imported some rows which did not have a price sheet id defined.

This script removes data from three tables:

1. Extended Pricing Price Sheet Work (IV10401)
2. Extended Pricing Price Sheet UofM Work (IV10402)
3. Extended Pricing Price Sheet Work (IV10401)

/*
Created by Ian Grieve of azurecurve | Ramblings of an IT Professional (http://www.azurecurve.co.uk)
This code is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 4.0 International (CC BY-NC-SA 4.0 Int).
*/
-- LINES WITHOUT HEADERS
DELETE
	['Extended Pricing Price Sheet Work']
FROM
	IV10401 AS ['Extended Pricing Price Sheet Work'] --Extended Pricing Price Sheet Work (IV10401)
LEFT JOIN
	SOP10110 AS ['Extended Pricing Price Sheet Header'] --Extended Pricing Price Sheet Header (SOP10110)
		ON
			['Extended Pricing Price Sheet Header'].PRCSHID = ['Extended Pricing Price Sheet Work'].PRCSHID
WHERE
	['Extended Pricing Price Sheet Header'].PRCSHID IS NULL
GO

--PRICES WITHOUT LINES
DELETE
	['Extended Pricing Price Sheet UofM Work']
FROM
	IV10402 AS ['Extended Pricing Price Sheet UofM Work'] --Extended Pricing Price Sheet UofM Work (IV10402)
LEFT JOIN
	IV10401 AS ['Extended Pricing Price Sheet Work'] --Extended Pricing Price Sheet Work (IV10401)
		ON
			['Extended Pricing Price Sheet Work'].PRCSHID = ['Extended Pricing Price Sheet UofM Work'].PRCSHID
		AND
			['Extended Pricing Price Sheet Work'].ITEMNMBR = ['Extended Pricing Price Sheet UofM Work'].ITEMNMBR
WHERE
	['Extended Pricing Price Sheet Work'].PRCSHID IS NULL
GO

--LINES WITHOUT PRICES
DELETE
	['Extended Pricing Price Sheet Work']
FROM
	IV10401 AS ['Extended Pricing Price Sheet Work'] --Extended Pricing Price Sheet Work (IV10401)
LEFT JOIN
	IV10402 AS ['Extended Pricing Price Sheet UofM Work'] --Extended Pricing Price Sheet UofM Work (IV10402)
		ON
			['Extended Pricing Price Sheet Work'].PRCSHID = ['Extended Pricing Price Sheet UofM Work'].PRCSHID
		AND
			['Extended Pricing Price Sheet Work'].ITEMNMBR = ['Extended Pricing Price Sheet UofM Work'].ITEMNMBR
WHERE
	['Extended Pricing Price Sheet UofM Work'].PRCSHID IS NULL
GO

This script is part of the SQL Scripts for Microsoft Dynamics GP where I will be posted the scripts I wrote against Microsoft Dynamics GP over the 19 years before I stopped working with Dynamics GP.

This script was created for a client who imported a batch of transactions with the incorrect multicurrency information; this was only found when they came to post the transactions and found that they would not post. The transactions were in the functional currency of EURO, but had a US Dollar exchange rate applied to them.

The script was set up to allow the Currency ID and Exchange Table ID to be specified and the Sales Taxes Work and History (SOP10105) and Sales Transaction Work (SOP10100) tables updated to remove the incorrect multicurrency information.

/*
Created by Ian Grieve of azurecurve | Ramblings of an IT Professional (http://www.azurecurve.co.uk)
This code is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 4.0 International (CC BY-NC-SA 4.0 Int).
*/
DECLARE @CURNCYID VARCHAR(15) = 'EURO'
DECLARE @EXGTBLID  VARCHAR(15) = 'EUR-USD'

UPDATE
	SOP10105 --Sales Taxes Work and History (SOP10105)
SET
	ORSLSTAX = STAXAMNT
	,ORTOTSLS = TAXDTSLS
	,ORTXSLS = TDTTXSLS
	,OTTAXPON = TXDTOTTX
WHERE
	SOPNUMBE IN (
					SELECT
						SOPNUMBE
					FROM
						SOP10100 AS SOPH --Sales Transaction Work (SOP10100)
					WHERE
						CURNCYID = @CURNCYID
					AND
						RATETPID <> ''
					AND
						EXGTBLID = @EXGTBLID
				)
AND
	STAXAMNT <> ORSLSTAX


UPDATE
	SOP10100 --Sales Transaction Work (SOP10100)
SET
	ORDOCAMT = DOCAMNT
	,ORSUBTOT = SUBTOTAL
	,ORTAXAMT = TAXAMNT
	,RATETPID = ''
	,EXGTBLID = ''
	,XCHGRATE = 0
WHERE
	SOPNUMBE IN (
					SELECT
						SOPNUMBE
					FROM
						SOP10100 AS SOPH --Sales Transaction Work (SOP10100)
					WHERE
						CURNCYID = @CURNCYID
					AND
						RATETPID <> ''
					AND
						EXGTBLID = @EXGTBLID
				)
AND
	DOCAMNT <> ORDOCAMT

This script is part of the SQL Scripts for Microsoft Dynamics GP where I will be posted the scripts I wrote against Microsoft Dynamics GP over the 19 years before I stopped working with Dynamics GP.

This script checks for corrupt data from the Extended Pricing tables; we had a client use the Table Import function and, unfortunately, imported some rows which did not have a price sheet id defined.

This script removes data from three tables:

1. Extended Pricing Price Sheet Work (IV10401)
2. Extended Pricing Price Sheet UofM Work (IV10402)
3. Extended Pricing Price Sheet Work (IV10401)

/*
Created by Ian Grieve of azurecurve | Ramblings of an IT Professional (http://www.azurecurve.co.uk)
This code is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 4.0 International (CC BY-NC-SA 4.0 Int).
*/
-- LINES WITHOUT HEADERS
SELECT
	*
FROM
	IV10401 AS ['Extended Pricing Price Sheet Work']
LEFT JOIN
	SOP10110 AS ['Extended Pricing Price Sheet Header']
		ON
			['Extended Pricing Price Sheet Header'].PRCSHID = ['Extended Pricing Price Sheet Work'].PRCSHID
WHERE
	['Extended Pricing Price Sheet Header'].PRCSHID IS NULL
GO

--PRICES WITHOUT LINES
SELECT
	*
FROM
	IV10402 AS ['Extended Pricing Price Sheet UofM Work']
LEFT JOIN
	IV10401 AS ['Extended Pricing Price Sheet Work']
		ON
			['Extended Pricing Price Sheet Work'].PRCSHID = ['Extended Pricing Price Sheet UofM Work'].PRCSHID
		AND
			['Extended Pricing Price Sheet Work'].ITEMNMBR = ['Extended Pricing Price Sheet UofM Work'].ITEMNMBR
WHERE
	['Extended Pricing Price Sheet Work'].PRCSHID IS NULL
GO

--LINES WITHOUT PRICES
SELECT
	*
FROM
	IV10401 AS ['Extended Pricing Price Sheet Work']
LEFT JOIN
	SOP10110 AS ['Extended Pricing Price Sheet Header']
		ON
			['Extended Pricing Price Sheet Header'].PRCSHID = ['Extended Pricing Price Sheet Work'].PRCSHID
WHERE
	['Extended Pricing Price Sheet Header'].PRCSHID IS NULL
GO

This script is part of the SQL Scripts for Microsoft Dynamics GP where I will be posted the scripts I wrote against Microsoft Dynamics GP over the 19 years before I stopped working with Dynamics GP.

This script was written to return documents included in the selected payment batch (entered in the highlighted parameter) along with the apply information.

/*
Created by Ian Grieve of azurecurve | Ramblings of an IT Professional (http://www.azurecurve.co.uk)
This code is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 4.0 International (CC BY-NC-SA 4.0 Int).
*/
DECLARE @BACHNUMB VARCHAR(15) = 'COMPUTER CHECKS'

SELECT
	['Payables Document Types'].DOCTYNAM
	,['PM Creditor Master'].VENDNAME
	,['PM Transactions'].*
	,['PM Payment Apply'].*
FROM
	(
		SELECT
			BACHNUMB
			,VCHRNMBR
			,VENDORID
			,DOCDATE AS PYMTDOCDATE
			,CHEKBKID
			,PSTGDATE
		FROM
			PM10300 AS ['PM Payment Work'] --PM Payment WORK (PM10300)
		UNION ALL
			SELECT
				BACHNUMB
				,VCHRNMBR
				,VENDORID
				,DOCDATE AS PYMTDOCDATE
				,CHEKBKID
				,PSTGDATE
			FROM
				PM30200 --PM Paid Transaction History File (PM30200)
			WHERE
				DOCTYPE = 6
		) AS ['PM Transactions']
INNER JOIN
	(
		SELECT
			DOCTYPE
			,PMNTNMBR
			,APFVCHNM
			,DOCDATE
			,CASE WHEN DOCTYPE >= 3 THEN
				DOCAMNT * -1
			ELSE
				DOCAMNT
			END AS DOCAMNT
			,CASE WHEN DOCTYPE >= 3 THEN
				0
			ELSE
				AMNTPAID
			END AS AMNTPAID
			,Net_Paid_Amount
		FROM
			PM10201 AS PM --PM Payment Apply To Work File (PM10201)
	) AS ['PM Payment Apply']
		ON
			['PM Payment Apply'].PMNTNMBR = ['PM Transactions'].VCHRNMBR
INNER JOIN
	PM40102 AS ['Payables Document Types'] --Payables Document Types (PM40102)
		ON
			['Payables Document Types'].DOCTYPE = ['PM Payment Apply'].DOCTYPE
INNER JOIN
	PM00200 AS ['PM Creditor Master'] --PM Vendor Master File (PM00200)
		ON
			['PM Creditor Master'].VENDORID = ['PM Transactions'].VENDORID
WHERE
	['PM Transactions'].BACHNUMB = @BACHNUMB
ORDER BY
	['PM Payment Apply'].APFVCHNM

This script is part of the SQL Scripts for Microsoft Dynamics GP where I will be posted the scripts I wrote against Microsoft Dynamics GP over the 19 years before I stopped working with Dynamics GP.

This script creates a table function which will split a string based on the supplied delimiter; it was created for a user who split their item number into segments, separated with hyphens:

/*
Created by Ian Grieve of azurecurve | Ramblings of an IT Professional (http://www.azurecurve.co.uk)
This code is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 4.0 International (CC BY-NC-SA 4.0 Int).
*/
IF OBJECT_ID('[dbo].[uf_AZRCRV_SplitString]') IS NOT NULL
BEGIN
	DROP FUNCTION [dbo].[uf_AZRCRV_SplitString];
END;
GO

CREATE FUNCTION [dbo].[uf_AZRCRV_SplitString](
    @String VARCHAR(8000),
    @Delimiter VARCHAR(10)
)
RETURNS @ReturnTable TABLE(
    id int IDENTITY(1,1) NOT NULL,
    part varchar(50) NULL
)
AS
BEGIN
	Declare @iSpaces int
	Declare @part varchar(50)
	
	Set @String = RTRIM(@String)
	
	--initialize spaces
	Select @iSpaces = charindex(@Delimiter, @String, 0)
	While @iSpaces > 0
	
	Begin
		Select @part = substring(@String, 0, charindex(@Delimiter, @String, 0))
		
		Insert Into @ReturnTable(part)
			Select @part
		
		Select @String = substring(@String,charindex(@Delimiter, @String, 0) + len(@Delimiter),len(@String) - charindex(' ', @String, 0))
		
		Select @iSpaces = charindex(@Delimiter, @String, 0)
	end
	
	If len(@String) > 0
		Insert Into @ReturnTable
			Select @String
	
    RETURN 
END
GO