726 lines
20 KiB
Transact-SQL
726 lines
20 KiB
Transact-SQL
/*
|
|
Patch cumulativa DB online - ramo Python WMS
|
|
|
|
Da eseguire una sola volta in SSMS sul database Mediseawall.
|
|
|
|
Questa patch NON modifica gli oggetti legacy usati dal programma C#.
|
|
|
|
Include:
|
|
- dbo.PyPickingListReservation
|
|
- dbo.py_XMag_ViewPackingList
|
|
- dbo.py_ViewPackingListRestante
|
|
- dbo.py_sp_xExePackingListPallet
|
|
- dbo.py_sp_xExePackingListPalletPrenota
|
|
- dbo.py_sp_ControllaPrenotazionePackingListPalletNew
|
|
- dbo.py_vPreparaPackingListSAMA1
|
|
- dbo.py_vPreparaPackingList
|
|
- dbo.py_XMag_ViewPackingListStorico
|
|
- dbo.py_BarcodePickingListSkip
|
|
- dbo.py_PickingListPrelievoSequenza
|
|
- dbo.py_ViewPackingListPrelievo
|
|
|
|
Include inoltre:
|
|
- intervallo operativo massimo di 30 giorni, filtrato dalla UI a 10/15/20/30;
|
|
- destinazione senza nazione ammessa nel ramo Python mediante LEFT JOIN;
|
|
- ordine predefinito con UDC Non scaff. prima degli scaffali;
|
|
- ordine personalizzabile per singolo Documento.
|
|
|
|
Nota storico:
|
|
dbo.py_vPreparaPackingListSAMA1 usa ANNDOC >= YEAR(GETDATE())
|
|
per mantenere visibili solo le picking list dall'inizio dell'anno corrente.
|
|
*/
|
|
|
|
SET ANSI_NULLS ON;
|
|
GO
|
|
SET QUOTED_IDENTIFIER ON;
|
|
GO
|
|
|
|
/* ============================================================
|
|
1. Stato prenotazione picking list ramo Python
|
|
============================================================ */
|
|
|
|
IF OBJECT_ID(N'dbo.PyPickingListReservation', N'U') IS NULL
|
|
BEGIN
|
|
CREATE TABLE [dbo].[PyPickingListReservation](
|
|
[ID] [tinyint] NOT NULL,
|
|
[Documento] [varchar](8) NULL,
|
|
[IDOperatore] [int] NULL,
|
|
[ModUtente] [varchar](50) NULL,
|
|
[ModDataOra] [datetime] NULL,
|
|
CONSTRAINT [PK_PyPickingListReservation] PRIMARY KEY CLUSTERED ([ID] ASC),
|
|
CONSTRAINT [CK_PyPickingListReservation_Singleton] CHECK ([ID] = 1)
|
|
) ON [PRIMARY];
|
|
END
|
|
GO
|
|
|
|
IF NOT EXISTS (SELECT 1 FROM dbo.PyPickingListReservation WHERE ID = 1)
|
|
BEGIN
|
|
INSERT INTO dbo.PyPickingListReservation (ID, Documento, IDOperatore, ModUtente, ModDataOra)
|
|
VALUES (1, NULL, NULL, NULL, GETDATE());
|
|
END
|
|
GO
|
|
|
|
/* ============================================================
|
|
2. Viste operative picking list ramo Python
|
|
============================================================ */
|
|
|
|
CREATE OR ALTER VIEW [dbo].[py_XMag_ViewPackingList]
|
|
AS
|
|
SELECT TOP 10000
|
|
legacy.Pallet,
|
|
legacy.Lotto,
|
|
legacy.Articolo,
|
|
legacy.Descrizione,
|
|
legacy.Qta,
|
|
legacy.Documento,
|
|
legacy.CodNazione,
|
|
legacy.NAZIONE,
|
|
legacy.Stato,
|
|
legacy.PalletCella,
|
|
legacy.Magazzino,
|
|
legacy.Area,
|
|
legacy.Cella,
|
|
legacy.Ordinamento,
|
|
legacy.Ubicazione,
|
|
legacy.DEST,
|
|
CASE
|
|
WHEN pr.Documento IS NOT NULL
|
|
AND pr.Documento = CAST(legacy.Documento AS varchar(8))
|
|
THEN 1
|
|
ELSE 0
|
|
END AS IDStato
|
|
FROM dbo.XMag_ViewPackingList legacy
|
|
LEFT JOIN dbo.PyPickingListReservation pr
|
|
ON pr.ID = 1
|
|
AND NULLIF(LTRIM(RTRIM(pr.Documento)), '') IS NOT NULL
|
|
ORDER BY
|
|
CASE
|
|
WHEN pr.Documento IS NOT NULL
|
|
AND pr.Documento = CAST(legacy.Documento AS varchar(8))
|
|
THEN 1
|
|
ELSE 0
|
|
END DESC,
|
|
legacy.Documento,
|
|
legacy.Ordinamento;
|
|
GO
|
|
|
|
CREATE OR ALTER VIEW [dbo].[py_ViewPackingListRestante]
|
|
AS
|
|
SELECT
|
|
Pallet,
|
|
Lotto,
|
|
Articolo,
|
|
Descrizione,
|
|
Qta,
|
|
Documento,
|
|
CodNazione,
|
|
NAZIONE,
|
|
Stato,
|
|
PalletCella,
|
|
Magazzino,
|
|
Area,
|
|
Cella,
|
|
Ordinamento,
|
|
Ubicazione,
|
|
DEST,
|
|
IDStato
|
|
FROM dbo.py_XMag_ViewPackingList
|
|
WHERE Cella <> 9999;
|
|
GO
|
|
|
|
/* ============================================================
|
|
3. Stored procedure operative ramo Python
|
|
============================================================ */
|
|
|
|
CREATE OR ALTER PROCEDURE [dbo].[py_sp_xExePackingListPallet]
|
|
@IDOperatore int,
|
|
@Documento varchar(8),
|
|
@Azione char(1) = 'P',
|
|
@RC int OUTPUT
|
|
AS
|
|
BEGIN
|
|
SET NOCOUNT ON;
|
|
SET @RC = 0;
|
|
|
|
DECLARE @Nominativo varchar(50) = '';
|
|
DECLARE @DocumentoAttivo varchar(8) = NULL;
|
|
DECLARE @Description varchar(255) = '';
|
|
DECLARE @Message varchar(255) = '';
|
|
DECLARE @IDResult int = 0;
|
|
DECLARE @ID int = 0;
|
|
|
|
SELECT @Nominativo = [Login]
|
|
FROM dbo.Operatori
|
|
WHERE ID = @IDOperatore;
|
|
|
|
IF @Nominativo IS NULL
|
|
SET @Nominativo = 'SYSTEM';
|
|
|
|
IF @Azione NOT IN ('P', 'S')
|
|
BEGIN
|
|
SET @RC = -10;
|
|
RETURN;
|
|
END;
|
|
|
|
IF NOT EXISTS (
|
|
SELECT 1
|
|
FROM dbo.py_XMag_ViewPackingList
|
|
WHERE CAST(Documento AS varchar(8)) = @Documento
|
|
)
|
|
BEGIN
|
|
SET @RC = -20;
|
|
RETURN;
|
|
END;
|
|
|
|
IF NOT EXISTS (SELECT 1 FROM dbo.PyPickingListReservation WHERE ID = 1)
|
|
BEGIN
|
|
INSERT INTO dbo.PyPickingListReservation (ID, Documento, IDOperatore, ModUtente, ModDataOra)
|
|
VALUES (1, NULL, NULL, NULL, GETDATE());
|
|
END;
|
|
|
|
SELECT @DocumentoAttivo = NULLIF(LTRIM(RTRIM(Documento)), '')
|
|
FROM dbo.PyPickingListReservation
|
|
WHERE ID = 1;
|
|
|
|
DECLARE @TargetCelle TABLE (
|
|
IDCella int PRIMARY KEY
|
|
);
|
|
|
|
INSERT INTO @TargetCelle (IDCella)
|
|
SELECT DISTINCT Cella
|
|
FROM dbo.py_XMag_ViewPackingList
|
|
WHERE CAST(Documento AS varchar(8)) = @Documento
|
|
AND Cella IS NOT NULL;
|
|
|
|
IF @Azione = 'P'
|
|
BEGIN
|
|
IF @DocumentoAttivo = @Documento
|
|
RETURN;
|
|
|
|
UPDATE c
|
|
SET c.IDStato = 0,
|
|
c.ModUtente = @Nominativo,
|
|
c.ModDataOra = GETDATE()
|
|
FROM dbo.Celle c
|
|
WHERE ISNULL(c.IDStato, 0) <> 0;
|
|
|
|
UPDATE c
|
|
SET c.IDStato = 1,
|
|
c.ModUtente = @Nominativo,
|
|
c.ModDataOra = GETDATE()
|
|
FROM dbo.Celle c
|
|
INNER JOIN @TargetCelle t ON t.IDCella = c.ID;
|
|
|
|
UPDATE dbo.PyPickingListReservation
|
|
SET Documento = @Documento,
|
|
IDOperatore = @IDOperatore,
|
|
ModUtente = @Nominativo,
|
|
ModDataOra = GETDATE()
|
|
WHERE ID = 1;
|
|
|
|
SELECT TOP 1 @Description = NAZIONE
|
|
FROM dbo.py_XMag_ViewPackingList
|
|
WHERE CAST(Documento AS varchar(8)) = @Documento;
|
|
|
|
EXEC dbo.sp_LogPackingList
|
|
@ID = @ID,
|
|
@Code = @Documento,
|
|
@Description = @Description,
|
|
@Message = @Message OUTPUT,
|
|
@IDResult = @IDResult OUTPUT;
|
|
|
|
RETURN;
|
|
END;
|
|
|
|
IF @Azione = 'S'
|
|
BEGIN
|
|
IF ISNULL(@DocumentoAttivo, '') <> @Documento
|
|
RETURN;
|
|
|
|
UPDATE c
|
|
SET c.IDStato = 0,
|
|
c.ModUtente = @Nominativo,
|
|
c.ModDataOra = GETDATE()
|
|
FROM dbo.Celle c
|
|
INNER JOIN @TargetCelle t ON t.IDCella = c.ID;
|
|
|
|
UPDATE dbo.PyPickingListReservation
|
|
SET Documento = NULL,
|
|
IDOperatore = @IDOperatore,
|
|
ModUtente = @Nominativo,
|
|
ModDataOra = GETDATE()
|
|
WHERE ID = 1;
|
|
|
|
RETURN;
|
|
END;
|
|
END;
|
|
GO
|
|
|
|
CREATE OR ALTER PROCEDURE [dbo].[py_sp_xExePackingListPalletPrenota]
|
|
@IDOperatore int,
|
|
@Documento varchar(8),
|
|
@RC int OUTPUT
|
|
AS
|
|
BEGIN
|
|
SET NOCOUNT ON;
|
|
SET @RC = 0;
|
|
|
|
DECLARE @Nominativo varchar(50) = '';
|
|
|
|
SELECT @Nominativo = LOGIN
|
|
FROM dbo.Operatori
|
|
WHERE ID = @IDOperatore;
|
|
|
|
IF @Nominativo IS NULL
|
|
SET @Nominativo = 'SYSTEM';
|
|
|
|
UPDATE c
|
|
SET c.IDStato = 1,
|
|
c.ModUtente = @Nominativo,
|
|
c.ModDataOra = GETDATE()
|
|
FROM dbo.Celle c
|
|
WHERE c.ID IN (
|
|
SELECT DISTINCT Cella
|
|
FROM dbo.py_ViewPackingListRestante
|
|
WHERE CAST(Documento AS varchar(8)) = @Documento
|
|
AND Cella IS NOT NULL
|
|
);
|
|
END;
|
|
GO
|
|
|
|
CREATE OR ALTER PROCEDURE [dbo].[py_sp_ControllaPrenotazionePackingListPalletNew]
|
|
AS
|
|
BEGIN
|
|
SET NOCOUNT ON;
|
|
|
|
DECLARE @Documento varchar(8) = NULL;
|
|
DECLARE @IDOperatore int = 0;
|
|
DECLARE @Nominativo varchar(50) = 'SYSTEM';
|
|
DECLARE @RC int = 0;
|
|
|
|
SELECT
|
|
@Documento = NULLIF(LTRIM(RTRIM(Documento)), ''),
|
|
@IDOperatore = ISNULL(IDOperatore, 0),
|
|
@Nominativo = ISNULL(NULLIF(LTRIM(RTRIM(ModUtente)), ''), 'SYSTEM')
|
|
FROM dbo.PyPickingListReservation
|
|
WHERE ID = 1;
|
|
|
|
IF ISNULL(@Documento, '') = ''
|
|
RETURN;
|
|
|
|
IF NOT EXISTS (
|
|
SELECT 1
|
|
FROM dbo.py_ViewPackingListRestante
|
|
WHERE CAST(Documento AS varchar(8)) = @Documento
|
|
)
|
|
BEGIN
|
|
UPDATE dbo.Celle
|
|
SET IDStato = 0,
|
|
ModUtente = @Nominativo,
|
|
ModDataOra = GETDATE()
|
|
WHERE ISNULL(IDStato, 0) <> 0;
|
|
|
|
UPDATE dbo.PyPickingListReservation
|
|
SET Documento = NULL,
|
|
IDOperatore = @IDOperatore,
|
|
ModUtente = @Nominativo,
|
|
ModDataOra = GETDATE()
|
|
WHERE ID = 1;
|
|
|
|
RETURN;
|
|
END;
|
|
|
|
UPDATE dbo.Celle
|
|
SET IDStato = 0,
|
|
ModUtente = @Nominativo,
|
|
ModDataOra = GETDATE()
|
|
WHERE ISNULL(IDStato, 0) <> 0;
|
|
|
|
IF @IDOperatore <= 0
|
|
BEGIN
|
|
SELECT TOP 1 @IDOperatore = ID
|
|
FROM dbo.Operatori
|
|
WHERE LOGIN = @Nominativo;
|
|
END;
|
|
|
|
EXEC dbo.py_sp_xExePackingListPalletPrenota
|
|
@IDOperatore = @IDOperatore,
|
|
@Documento = @Documento,
|
|
@RC = @RC OUTPUT;
|
|
END;
|
|
GO
|
|
|
|
/* ============================================================
|
|
4. Viste storico picking list ramo Python
|
|
============================================================ */
|
|
|
|
CREATE OR ALTER VIEW [dbo].[py_vPreparaPackingListSAMA1]
|
|
AS
|
|
SELECT
|
|
SAMA1.dbo.LOTSER.NUMLOT,
|
|
SAMA1.dbo.ARTICO.CODICE,
|
|
SAMA1.dbo.FATRIG.DESCR,
|
|
LEFT(SAMA1.dbo.LOTSER.NUMSER, 6) AS UDC,
|
|
SUM(SAMA1.dbo.LOTSER.QTTGIAI) AS Qta,
|
|
SAMA1.dbo.BAMTES.NUMDOC,
|
|
SAMA1.dbo.BAMTES.DATDOC,
|
|
SAMA1.dbo.BAMTES.ID,
|
|
SAMA1.dbo.BAMTES.DESCRDEST,
|
|
SAMA1.dbo.BAMTES.STATO AS StatoDocumento,
|
|
SAMA1.dbo.NAZIONI.CODICE AS Expr1,
|
|
SAMA1.dbo.MTRASP.CODICE + ' ' + SAMA1.dbo.NAZIONI.DESCR AS NAZIONE,
|
|
SAMA1.dbo.BAMTES.IDMTRASP
|
|
FROM SAMA1.dbo.BAMTES
|
|
LEFT OUTER JOIN SAMA1.dbo.NAZIONI
|
|
ON SAMA1.dbo.NAZIONI.ID = SAMA1.dbo.BAMTES.IDNAZDEST
|
|
RIGHT OUTER JOIN SAMA1.dbo.LOTTIBF
|
|
LEFT OUTER JOIN SAMA1.dbo.LOTSER
|
|
ON SAMA1.dbo.LOTTIBF.IDLOTSER = SAMA1.dbo.LOTSER.ID
|
|
LEFT OUTER JOIN SAMA1.dbo.ARTICO
|
|
ON SAMA1.dbo.LOTSER.IDARTICO = SAMA1.dbo.ARTICO.ID
|
|
LEFT OUTER JOIN SAMA1.dbo.FATRIG
|
|
ON SAMA1.dbo.LOTTIBF.IDFATRIG = SAMA1.dbo.FATRIG.ID
|
|
ON SAMA1.dbo.BAMTES.ID = SAMA1.dbo.FATRIG.IDBAM
|
|
LEFT OUTER JOIN SAMA1.sam.EXTUC
|
|
ON LEFT(SAMA1.dbo.LOTSER.NUMSER, 6) = SAMA1.sam.EXTUC.CODICE
|
|
LEFT OUTER JOIN SAMA1.dbo.MTRASP
|
|
ON SAMA1.dbo.BAMTES.IDMTRASP = SAMA1.dbo.MTRASP.ID
|
|
WHERE
|
|
SAMA1.dbo.BAMTES.ANNDOC >= YEAR(GETDATE())
|
|
AND SAMA1.dbo.BAMTES.STATO IN ('P', 'D')
|
|
AND SAMA1.dbo.LOTSER.NUMLOT <> '00000000000'
|
|
GROUP BY
|
|
SAMA1.dbo.LOTSER.NUMLOT,
|
|
SAMA1.dbo.ARTICO.CODICE,
|
|
SAMA1.dbo.FATRIG.DESCR,
|
|
LEFT(SAMA1.dbo.LOTSER.NUMSER, 6),
|
|
SAMA1.dbo.BAMTES.NUMDOC,
|
|
SAMA1.dbo.BAMTES.DATDOC,
|
|
SAMA1.dbo.BAMTES.ID,
|
|
SAMA1.dbo.BAMTES.DESCRDEST,
|
|
SAMA1.dbo.BAMTES.STATO,
|
|
SAMA1.dbo.NAZIONI.CODICE,
|
|
SAMA1.dbo.NAZIONI.DESCR,
|
|
SAMA1.dbo.BAMTES.IDMTRASP,
|
|
SAMA1.dbo.MTRASP.CODICE;
|
|
GO
|
|
|
|
CREATE OR ALTER VIEW [dbo].[py_vPreparaPackingList]
|
|
AS
|
|
SELECT
|
|
NUMLOT,
|
|
CODICE,
|
|
DESCR,
|
|
UDC,
|
|
Qta,
|
|
NUMDOC,
|
|
DATDOC,
|
|
ID,
|
|
DESCRDEST,
|
|
StatoDocumento,
|
|
Expr1,
|
|
NAZIONE
|
|
FROM dbo.py_vPreparaPackingListSAMA1
|
|
WHERE NUMLOT <> '';
|
|
GO
|
|
|
|
CREATE OR ALTER VIEW [dbo].[py_XMag_ViewPackingListStorico]
|
|
AS
|
|
SELECT TOP (100000)
|
|
prep.UDC AS Pallet,
|
|
prep.NUMLOT AS Lotto,
|
|
prep.CODICE AS Articolo,
|
|
prep.DESCR AS Descrizione,
|
|
prep.Qta,
|
|
prep.NUMDOC AS Documento,
|
|
prep.DATDOC AS DataDocumento,
|
|
prep.StatoDocumento,
|
|
prep.Expr1 AS CodNazione,
|
|
prep.NAZIONE,
|
|
CASE
|
|
WHEN prep.Expr1 = 'DE' THEN 10
|
|
WHEN prep.Expr1 = 'TH' THEN
|
|
CASE WHEN SUBSTRING(prep.DESCRDEST, 1, 2) = 'NA' THEN 11 ELSE 13 END
|
|
WHEN prep.Expr1 = 'MEX' THEN 12
|
|
ELSE 4
|
|
END AS Stato,
|
|
ISNULL(g.NumeroPallet, 0) AS PalletCella,
|
|
ISNULL(g.IDMagazzino, 1) AS Magazzino,
|
|
ISNULL(g.IDArea, 5) AS Area,
|
|
ISNULL(g.IDCella, 1000) AS Cella,
|
|
ISNULL(c.Ordinamento, 99999) AS Ordinamento,
|
|
ISNULL(c.Corsia + ' - ' + c.Colonna + ' - ' + c.Fila, 'Non scaff.') AS Ubicazione,
|
|
SUBSTRING(prep.DESCRDEST, 1, 2) AS DEST,
|
|
CASE
|
|
WHEN MAX(CASE
|
|
WHEN pr.Documento IS NOT NULL
|
|
AND pr.Documento = CAST(prep.NUMDOC AS varchar(8))
|
|
THEN 1 ELSE 0 END) = 1
|
|
THEN 1
|
|
ELSE 0
|
|
END AS IDStato
|
|
FROM dbo.Celle c
|
|
INNER JOIN dbo.XMag_GiacenzaPallet g
|
|
ON c.ID = g.IDCella
|
|
RIGHT OUTER JOIN dbo.py_vPreparaPackingList prep
|
|
ON g.BarcodePallet COLLATE SQL_Latin1_General_CP1_CI_AS = prep.UDC
|
|
LEFT JOIN dbo.PyPickingListReservation pr
|
|
ON pr.ID = 1
|
|
AND NULLIF(LTRIM(RTRIM(pr.Documento)), '') IS NOT NULL
|
|
GROUP BY
|
|
prep.Expr1,
|
|
prep.NAZIONE,
|
|
prep.UDC,
|
|
prep.NUMDOC,
|
|
prep.DATDOC,
|
|
prep.StatoDocumento,
|
|
prep.NUMLOT,
|
|
prep.CODICE,
|
|
prep.DESCR,
|
|
prep.Qta,
|
|
g.NumeroPallet,
|
|
g.IDMagazzino,
|
|
g.IDArea,
|
|
g.IDCella,
|
|
c.Ordinamento,
|
|
c.Corsia,
|
|
c.Colonna,
|
|
c.Fila,
|
|
prep.DESCRDEST;
|
|
GO
|
|
|
|
/* ============================================================
|
|
5. Tabella salta UDC barcode picking list
|
|
============================================================ */
|
|
|
|
IF OBJECT_ID(N'dbo.py_BarcodePickingListSkip', N'U') IS NULL
|
|
BEGIN
|
|
CREATE TABLE dbo.py_BarcodePickingListSkip (
|
|
ID int IDENTITY(1,1) NOT NULL CONSTRAINT PK_py_BarcodePickingListSkip PRIMARY KEY,
|
|
Documento varchar(50) COLLATE Latin1_General_CI_AS NOT NULL,
|
|
Pallet varchar(50) COLLATE Latin1_General_CI_AS NOT NULL,
|
|
IDStato int NOT NULL,
|
|
IDOperatore int NOT NULL,
|
|
DataOra datetime2(0) NOT NULL CONSTRAINT DF_py_BarcodePickingListSkip_DataOra DEFAULT SYSDATETIME(),
|
|
Motivo nvarchar(200) NULL,
|
|
Risolto bit NOT NULL CONSTRAINT DF_py_BarcodePickingListSkip_Risolto DEFAULT 0,
|
|
RisoltoDa int NULL,
|
|
RisoltoDataOra datetime2(0) NULL
|
|
);
|
|
END;
|
|
GO
|
|
|
|
IF NOT EXISTS (
|
|
SELECT 1
|
|
FROM sys.indexes
|
|
WHERE name = N'UX_py_BarcodePickingListSkip_Open'
|
|
AND object_id = OBJECT_ID(N'dbo.py_BarcodePickingListSkip', N'U')
|
|
)
|
|
BEGIN
|
|
CREATE UNIQUE INDEX UX_py_BarcodePickingListSkip_Open
|
|
ON dbo.py_BarcodePickingListSkip (Documento, Pallet, IDStato)
|
|
WHERE Risolto = 0;
|
|
END;
|
|
GO
|
|
|
|
IF NOT EXISTS (
|
|
SELECT 1
|
|
FROM sys.indexes
|
|
WHERE name = N'IX_py_BarcodePickingListSkip_Queue'
|
|
AND object_id = OBJECT_ID(N'dbo.py_BarcodePickingListSkip', N'U')
|
|
)
|
|
BEGIN
|
|
CREATE INDEX IX_py_BarcodePickingListSkip_Queue
|
|
ON dbo.py_BarcodePickingListSkip (IDStato, Documento, Pallet, Risolto);
|
|
END;
|
|
GO
|
|
|
|
/* ============================================================
|
|
6. Intervallo operativo 30 giorni e sequenza di prelievo
|
|
|
|
La vista di preparazione Python creata al punto 4 contiene sia P sia D.
|
|
Qui il ramo operativo viene ristretto alle sole liste P degli ultimi 30
|
|
giorni; la UI applica successivamente il valore scelto (10/15/20/30).
|
|
============================================================ */
|
|
|
|
CREATE OR ALTER VIEW dbo.py_XMag_ViewPackingList
|
|
AS
|
|
SELECT TOP (10000)
|
|
prep.UDC AS Pallet,
|
|
prep.NUMLOT AS Lotto,
|
|
prep.CODICE AS Articolo,
|
|
prep.DESCR AS Descrizione,
|
|
prep.Qta,
|
|
prep.NUMDOC AS Documento,
|
|
prep.DATDOC AS DataDocumento,
|
|
prep.Expr1 AS CodNazione,
|
|
prep.NAZIONE,
|
|
CASE
|
|
WHEN prep.Expr1 = 'DE' THEN 10
|
|
WHEN prep.Expr1 = 'TH' THEN
|
|
CASE WHEN SUBSTRING(prep.DESCRDEST, 1, 2) = 'NA' THEN 11 ELSE 13 END
|
|
WHEN prep.Expr1 = 'MEX' THEN 12
|
|
ELSE 4
|
|
END AS Stato,
|
|
ISNULL(g.NumeroPallet, 0) AS PalletCella,
|
|
ISNULL(g.IDMagazzino, 1) AS Magazzino,
|
|
ISNULL(g.IDArea, 5) AS Area,
|
|
ISNULL(g.IDCella, 1000) AS Cella,
|
|
ISNULL(c.Ordinamento, 99999) AS Ordinamento,
|
|
ISNULL(c.Corsia + ' - ' + c.Colonna + ' - ' + c.Fila, 'Non scaff.') AS Ubicazione,
|
|
SUBSTRING(prep.DESCRDEST, 1, 2) AS DEST,
|
|
CASE
|
|
WHEN MAX(CASE
|
|
WHEN pr.Documento IS NOT NULL
|
|
AND pr.Documento = CAST(prep.NUMDOC AS varchar(8))
|
|
THEN 1 ELSE 0 END) = 1
|
|
THEN 1
|
|
ELSE 0
|
|
END AS IDStato
|
|
FROM dbo.Celle AS c
|
|
INNER JOIN dbo.XMag_GiacenzaPallet AS g
|
|
ON c.ID = g.IDCella
|
|
RIGHT OUTER JOIN dbo.py_vPreparaPackingList AS prep
|
|
ON g.BarcodePallet COLLATE SQL_Latin1_General_CP1_CI_AS = prep.UDC
|
|
LEFT JOIN dbo.PyPickingListReservation AS pr
|
|
ON pr.ID = 1
|
|
AND NULLIF(LTRIM(RTRIM(pr.Documento)), '') IS NOT NULL
|
|
WHERE prep.StatoDocumento = 'P'
|
|
AND prep.DATDOC > CAST((GETDATE() - 30) AS int)
|
|
GROUP BY
|
|
prep.Expr1,
|
|
prep.NAZIONE,
|
|
prep.UDC,
|
|
prep.NUMDOC,
|
|
prep.DATDOC,
|
|
prep.NUMLOT,
|
|
prep.CODICE,
|
|
prep.DESCR,
|
|
prep.Qta,
|
|
g.NumeroPallet,
|
|
g.IDMagazzino,
|
|
g.IDArea,
|
|
g.IDCella,
|
|
c.Ordinamento,
|
|
c.Corsia,
|
|
c.Colonna,
|
|
c.Fila,
|
|
prep.DESCRDEST;
|
|
GO
|
|
|
|
CREATE OR ALTER VIEW dbo.py_ViewPackingListRestante
|
|
AS
|
|
SELECT
|
|
Pallet, Lotto, Articolo, Descrizione, Qta, Documento, DataDocumento,
|
|
CodNazione, NAZIONE, Stato, PalletCella, Magazzino, Area, Cella,
|
|
Ordinamento, Ubicazione, DEST, IDStato
|
|
FROM dbo.py_XMag_ViewPackingList
|
|
WHERE Cella <> 9999;
|
|
GO
|
|
|
|
IF OBJECT_ID(N'dbo.py_PickingListPrelievoSequenza', N'U') IS NULL
|
|
BEGIN
|
|
CREATE TABLE dbo.py_PickingListPrelievoSequenza (
|
|
ID bigint IDENTITY(1,1) NOT NULL
|
|
CONSTRAINT PK_py_PickingListPrelievoSequenza PRIMARY KEY,
|
|
Documento varchar(50) NOT NULL,
|
|
GruppoChiave varchar(160) NOT NULL,
|
|
GruppoEtichetta varchar(100) NOT NULL,
|
|
Ordine int NOT NULL,
|
|
InsUtente varchar(50) NULL,
|
|
InsDataOra datetime2(0) NOT NULL
|
|
CONSTRAINT DF_py_PickingListPrelievoSequenza_InsDataOra DEFAULT SYSDATETIME(),
|
|
ModUtente varchar(50) NULL,
|
|
ModDataOra datetime2(0) NULL,
|
|
DelUtente varchar(50) NULL,
|
|
DelDataOra datetime2(0) NULL,
|
|
CONSTRAINT CK_py_PickingListPrelievoSequenza_Ordine CHECK (Ordine >= 0)
|
|
);
|
|
END;
|
|
GO
|
|
|
|
IF NOT EXISTS (
|
|
SELECT 1 FROM sys.indexes
|
|
WHERE object_id = OBJECT_ID(N'dbo.py_PickingListPrelievoSequenza', N'U')
|
|
AND name = N'UX_py_PickingListPrelievoSequenza_DocGruppo'
|
|
)
|
|
BEGIN
|
|
CREATE UNIQUE INDEX UX_py_PickingListPrelievoSequenza_DocGruppo
|
|
ON dbo.py_PickingListPrelievoSequenza (Documento, GruppoChiave)
|
|
WHERE DelDataOra IS NULL;
|
|
END;
|
|
GO
|
|
|
|
IF NOT EXISTS (
|
|
SELECT 1 FROM sys.indexes
|
|
WHERE object_id = OBJECT_ID(N'dbo.py_PickingListPrelievoSequenza', N'U')
|
|
AND name = N'UX_py_PickingListPrelievoSequenza_DocOrdine'
|
|
)
|
|
BEGIN
|
|
CREATE UNIQUE INDEX UX_py_PickingListPrelievoSequenza_DocOrdine
|
|
ON dbo.py_PickingListPrelievoSequenza (Documento, Ordine)
|
|
WHERE DelDataOra IS NULL;
|
|
END;
|
|
GO
|
|
|
|
CREATE OR ALTER VIEW dbo.py_ViewPackingListPrelievo
|
|
AS
|
|
WITH Gruppi AS (
|
|
SELECT
|
|
pl.*,
|
|
CASE
|
|
WHEN pl.Cella = 1000 THEN 'NON_SCAFF'
|
|
ELSE CONCAT(
|
|
'M:', pl.Magazzino, '|A:', pl.Area, '|C:',
|
|
LTRIM(RTRIM(CASE
|
|
WHEN CHARINDEX(' - ', pl.Ubicazione) > 0
|
|
THEN LEFT(pl.Ubicazione, CHARINDEX(' - ', pl.Ubicazione) - 1)
|
|
ELSE pl.Ubicazione
|
|
END))
|
|
)
|
|
END AS GruppoPrelievoChiave,
|
|
CASE
|
|
WHEN pl.Cella = 1000 THEN 'Non scaff.'
|
|
ELSE LTRIM(RTRIM(CASE
|
|
WHEN CHARINDEX(' - ', pl.Ubicazione) > 0
|
|
THEN LEFT(pl.Ubicazione, CHARINDEX(' - ', pl.Ubicazione) - 1)
|
|
ELSE pl.Ubicazione
|
|
END))
|
|
END AS GruppoPrelievo,
|
|
CASE
|
|
WHEN pl.Cella = 1000 THEN 0
|
|
ELSE 1000 + ISNULL(pl.Ordinamento, 99999)
|
|
END AS OrdineGruppoDefault
|
|
FROM dbo.py_ViewPackingListRestante AS pl
|
|
), Sequenza AS (
|
|
SELECT
|
|
g.*,
|
|
s.Ordine AS OrdineGruppoConfigurato,
|
|
CASE WHEN EXISTS (
|
|
SELECT 1
|
|
FROM dbo.py_PickingListPrelievoSequenza AS any_s
|
|
WHERE any_s.Documento COLLATE Latin1_General_CI_AS =
|
|
CAST(g.Documento AS varchar(50)) COLLATE Latin1_General_CI_AS
|
|
AND any_s.DelDataOra IS NULL
|
|
) THEN 1 ELSE 0 END AS HaSequenzaPersonalizzata
|
|
FROM Gruppi AS g
|
|
LEFT JOIN dbo.py_PickingListPrelievoSequenza AS s
|
|
ON s.Documento COLLATE Latin1_General_CI_AS =
|
|
CAST(g.Documento AS varchar(50)) COLLATE Latin1_General_CI_AS
|
|
AND s.GruppoChiave COLLATE Latin1_General_CI_AS =
|
|
g.GruppoPrelievoChiave COLLATE Latin1_General_CI_AS
|
|
AND s.DelDataOra IS NULL
|
|
)
|
|
SELECT
|
|
Sequenza.*,
|
|
CASE
|
|
WHEN OrdineGruppoConfigurato IS NOT NULL THEN OrdineGruppoConfigurato
|
|
WHEN HaSequenzaPersonalizzata = 1 THEN 100000 + OrdineGruppoDefault
|
|
ELSE OrdineGruppoDefault
|
|
END AS OrdinePrelievoGruppo
|
|
FROM Sequenza;
|
|
GO
|
|
|
|
PRINT 'Patch cumulativa Python WMS completata.';
|
|
GO
|