Month: May 2023

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 returns details of items where the quantity on hand does not match the sum of the goods booked in and despatched.

/*
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).
*/
SELECT
	RTRIM(['Inventory Transaction Amounts History'].ITEMNMBR) AS 'Item Number'
	,['Item Master'].ITEMDESC AS 'Item Description'
	,['Inventory Transaction Amounts History'].TRXLOCTN AS 'Location/Site'
	,SUM(['Inventory Transaction Amounts History'].TRXQTY) AS 'Transaction Quantity'
	,['Item Quantity Master'].QTYONHND AS 'Quantity On Hand'
	,['Item Quantity Master'].ATYALLOC AS 'Quantity Allocated'
	,CASE WHEN ['Item Quantity Master'].QTYONHND <> 0 THEN
		['Item Quantity Master'].QTYONHND
	ELSE
		0
	END AS 'Adjustment Quantity'
FROM
	IV30300 AS ['Inventory Transaction Amounts History']
INNER JOIN
	IV00101 AS ['Item Master']
		ON
			['Item Master'].ITEMNMBR = ['Inventory Transaction Amounts History'].ITEMNMBR
INNER JOIN
	IV00102 AS ['Item Quantity Master']
		ON
			['Item Quantity Master'].ITEMNMBR = ['Inventory Transaction Amounts History'].ITEMNMBR
		AND
			['Item Quantity Master'].LOCNCODE = ['Inventory Transaction Amounts History'].TRXLOCTN
GROUP BY
	['Inventory Transaction Amounts History'].ITEMNMBR
	,['Item Master'].ITEMDESC
	,['Inventory Transaction Amounts History'].TRXLOCTN
	,['Item Quantity Master'].QTYONHND
	,['Item Quantity Master'].ATYALLOC
HAVING
	SUM(['Inventory Transaction Amounts History'].TRXQTY) <> ['Item Quantity Master'].QTYONHND
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 had implemented Extended Pricing using Table IMport. The Table Import tool ia very powerful, but also very risky.

Unfortunately, when the client imported the data they had some duplicate lines in the import into the Extended Pricing Price Sheet Work (IV10401) table; this script identified which price sheet/item combinations were duplicated, so that we could then determine which price sheet/item combinations we needed to work to correct.

/*
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).
*/
SELECT 
	DISTINCT ITEMCOUNT.PRCSHID
FROM
	(
		SELECT
			PRCSHID
			,ITEMNMBR
			,SUM(1) AS ITEMCOUNT
		FROM
			IV10401
		GROUP BY
			PRCSHID
			,ITEMNMBR
	) AS ITEMCOUNT
WHERE
	ITEMCOUNT.ITEMCOUNT > 1

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