54 lines
3.7 KiB
Transact-SQL
54 lines
3.7 KiB
Transact-SQL
-- Tamamlanan siparişli alım ürünün tedarikçi fiyat listesini (Inv_T_ProductSupplier) günceller: tedarikçi × ürün × birim ×
|
||
-- para birimi başına tek satır tutulur. Alınan miktara uyan kademe (MinQuantity ≤ miktar olan en büyüğü) siparişin
|
||
-- birim fiyatı ve son alım tarihiyle güncellenir; uyan satır yoksa yeni satır açılır (temin süresi = onaydan alıma gün).
|
||
-- Fiyatı sipariş verir: siparişsiz alım, iade ve fiyatı 0 olan kalem yazmaz.
|
||
CREATE OR ALTER PROCEDURE [dbo].[Inv_P_TransferSupplierPrice]
|
||
@Id uniqueidentifier,
|
||
@UserId uniqueidentifier = NULL
|
||
AS
|
||
BEGIN
|
||
SET NOCOUNT ON;
|
||
DECLARE @Now datetime = GETUTCDATE();
|
||
DECLARE @Buy TABLE (TenantId uniqueidentifier NULL, ProductId uniqueidentifier NOT NULL, ContactId uniqueidentifier NOT NULL,
|
||
UomId nvarchar(64) NOT NULL, CurrencyId nvarchar(64) NOT NULL, Quantity decimal(18, 4) NOT NULL,
|
||
Price decimal(18, 4) NOT NULL, LeadTimeDays int NOT NULL, TargetId uniqueidentifier NULL,
|
||
PRIMARY KEY (ProductId, ContactId, UomId, CurrencyId));
|
||
|
||
INSERT INTO @Buy (TenantId, ProductId, ContactId, UomId, CurrencyId, Quantity, Price, LeadTimeDays)
|
||
SELECT b.TenantId, b.ProductId, b.SupplierId, b.UomId, b.CurrencyId, SUM(b.Quantity),
|
||
ROUND(SUM(b.Quantity * b.UnitPrice) / SUM(b.Quantity), 4), MAX(b.LeadTimeDays)
|
||
FROM (SELECT t.TenantId, ol.ProductId, o.SupplierId, ol.UomId, o.CurrencyId, ol.UnitPrice,
|
||
dbo.Inv_F_UomConvert(l.Quantity, l.UomId, ol.UomId) AS Quantity,
|
||
CASE WHEN o.ConfirmDate IS NULL OR o.ConfirmDate > @Now THEN 0 ELSE DATEDIFF(day, o.ConfirmDate, @Now) END AS LeadTimeDays
|
||
FROM Inv_T_Transfer t
|
||
INNER JOIN Inv_T_TransferLine l ON l.TransferId = t.Id AND l.IsDeleted = 0 AND l.Quantity > 0
|
||
INNER JOIN Prc_T_PurchaseOrderLine ol ON ol.Id = l.PurchaseOrderLineId AND ol.UnitPrice > 0
|
||
INNER JOIN Prc_T_PurchaseOrder o ON o.Id = ol.PurchaseOrderId
|
||
WHERE t.Id = @Id AND t.OperationKind = 'Receipt' AND t.ReturnOfId IS NULL) b
|
||
GROUP BY b.TenantId, b.ProductId, b.SupplierId, b.UomId, b.CurrencyId
|
||
HAVING SUM(b.Quantity) > 0;
|
||
|
||
UPDATE b SET TargetId = (SELECT TOP 1 ps.Id
|
||
FROM Inv_T_ProductSupplier ps
|
||
INNER JOIN Inv_T_Product p ON p.Id = ps.ProductId
|
||
WHERE ps.ProductId = b.ProductId AND ps.ContactId = b.ContactId AND ps.IsDeleted = 0 AND ps.VariantKey IS NULL
|
||
AND ISNULL(ps.UomId, p.UomId) = b.UomId AND ISNULL(ps.CurrencyId, b.CurrencyId) = b.CurrencyId
|
||
AND ps.MinQuantity <= b.Quantity
|
||
AND (ps.TenantId = b.TenantId OR (ps.TenantId IS NULL AND b.TenantId IS NULL))
|
||
ORDER BY ps.MinQuantity DESC)
|
||
FROM @Buy b;
|
||
|
||
UPDATE ps SET Price = b.Price, UomId = b.UomId, CurrencyId = b.CurrencyId, LastPurchaseDate = @Now,
|
||
LastModificationTime = @Now, LastModifierId = @UserId
|
||
FROM Inv_T_ProductSupplier ps
|
||
INNER JOIN @Buy b ON b.TargetId = ps.Id;
|
||
|
||
-- Miktarı 1'in altındaki alımda 1'lik kademe uymaz; yeni kademe alınan miktardan başlar.
|
||
INSERT INTO Inv_T_ProductSupplier (Id, TenantId, ProductId, ContactId, MinQuantity, UomId, Price, CurrencyId, LeadTimeDays,
|
||
LastPurchaseDate, CreationTime, CreatorId, IsDeleted)
|
||
SELECT NEWID(), b.TenantId, b.ProductId, b.ContactId, CASE WHEN b.Quantity < 1 THEN b.Quantity ELSE 1 END, b.UomId, b.Price,
|
||
b.CurrencyId, b.LeadTimeDays, @Now, @Now, @UserId, 0
|
||
FROM @Buy b
|
||
WHERE b.TargetId IS NULL;
|
||
END
|
||
GO
|