46 lines
3 KiB
Transact-SQL
46 lines
3 KiB
Transact-SQL
-- Otomatik Ata: stoktan çıkan satırın lot dağılımını kaynak konumun stoğundan ürün kategorisinin çıkış stratejisiyle yeniden kurar
|
||
-- (FIFO: ilk giren ilk çıkar, LIFO: son giren ilk çıkar — InDate, aynı anda girenlerde lot/seri no; kategorisiz ürün FIFO). Planlama'nın Öner'i aynı kuralı izler.
|
||
-- Stok yetmezse karşılanabilen kadar atanır; eksik Tamamla'da bildirilir.
|
||
CREATE OR ALTER PROCEDURE [dbo].[Inv_P_TransferLineLotAssign]
|
||
@Id uniqueidentifier,
|
||
@UserId uniqueidentifier = NULL
|
||
AS
|
||
BEGIN
|
||
SET NOCOUNT ON;
|
||
DECLARE @Tenant uniqueidentifier, @Method nvarchar(16), @Src uniqueidentifier, @SrcInternal bit, @ProductId uniqueidentifier,
|
||
@LineUom nvarchar(64), @ProductUom nvarchar(64), @Need decimal(18, 4), @Strategy nvarchar(16);
|
||
|
||
SELECT @Tenant = l.TenantId, @Method = CASE WHEN p.TrackInventory = 1 THEN p.TrackingMethod END, @Src = t.SourceLocationId,
|
||
@SrcInternal = CASE WHEN src.LocationType = 'Internal' THEN 1 ELSE 0 END, @ProductId = l.ProductId,
|
||
@LineUom = l.UomId, @ProductUom = p.UomId, @Strategy = ISNULL(pc.RemovalStrategy, 'FIFO'),
|
||
@Need = dbo.Inv_F_UomConvert(CASE WHEN l.Quantity > 0 THEN l.Quantity ELSE l.DemandQuantity END, l.UomId, p.UomId)
|
||
FROM Inv_T_TransferLine l
|
||
INNER JOIN Inv_T_Transfer t ON t.Id = l.TransferId
|
||
INNER JOIN Inv_T_Product p ON p.Id = l.ProductId
|
||
LEFT JOIN Inv_T_ProductCategory pc ON pc.Id = p.CategoryId
|
||
LEFT JOIN Inv_T_Location src ON src.Id = t.SourceLocationId
|
||
WHERE l.Id = @Id;
|
||
|
||
IF ISNULL(@Method, '') NOT IN ('Lot', 'Serial') THROW 50314, N'Ürün lot/seri numarasıyla takip edilmiyor.', 1;
|
||
IF ISNULL(@SrcInternal, 0) = 0 THROW 50317, N'Otomatik atama yalnız stoktan çıkan satırda yapılır.', 1;
|
||
|
||
UPDATE Inv_T_TransferLineLot SET IsDeleted = 1, DeletionTime = GETUTCDATE(), DeleterId = @UserId
|
||
WHERE TransferLineId = @Id AND IsDeleted = 0;
|
||
|
||
WITH s AS (
|
||
SELECT LotNo, Quantity,
|
||
SUM(Quantity) OVER (ORDER BY CASE WHEN @Strategy = 'LIFO' THEN NULL ELSE ISNULL(InDate, '9999-12-31') END,
|
||
CASE WHEN @Strategy = 'LIFO' THEN ISNULL(InDate, '1900-01-01') END DESC,
|
||
CASE WHEN @Strategy = 'LIFO' THEN NULL ELSE LotNo END,
|
||
CASE WHEN @Strategy = 'LIFO' THEN LotNo END DESC
|
||
ROWS UNBOUNDED PRECEDING) - Quantity AS Before
|
||
FROM Inv_T_Stock
|
||
WHERE LocationId = @Src AND ProductId = @ProductId AND LotNo <> '' AND Quantity > 0
|
||
AND (TenantId = @Tenant OR (TenantId IS NULL AND @Tenant IS NULL)))
|
||
INSERT INTO Inv_T_TransferLineLot (Id, TenantId, TransferLineId, LotNo, Quantity, CreationTime, CreatorId, IsDeleted)
|
||
SELECT NEWID(), @Tenant, @Id, s.LotNo,
|
||
dbo.Inv_F_UomConvert(CASE WHEN s.Quantity < @Need - s.Before THEN s.Quantity ELSE @Need - s.Before END, @ProductUom, @LineUom),
|
||
GETUTCDATE(), @UserId, 0
|
||
FROM s
|
||
WHERE s.Before < @Need;
|
||
END
|