40 lines
2.2 KiB
MySQL
40 lines
2.2 KiB
MySQL
|
CREATE OR ALTER PROCEDURE [dbo].[Prc_P_PurchaseOrderImportRequest]
|
|||
|
|
@Id uniqueidentifier
|
|||
|
|
AS
|
|||
|
|
BEGIN
|
|||
|
|
SET NOCOUNT ON;
|
|||
|
|
DECLARE @Req uniqueidentifier, @Tenant uniqueidentifier, @Supplier uniqueidentifier, @Agr uniqueidentifier, @Status nvarchar(16), @Cnt int;
|
|||
|
|
|
|||
|
|
SELECT @Req = MaterialRequestId, @Tenant = TenantId, @Supplier = SupplierId, @Agr = AgreementId, @Status = Status
|
|||
|
|
FROM Prc_T_PurchaseOrder WHERE Id = @Id;
|
|||
|
|
IF @Req IS NULL RETURN;
|
|||
|
|
IF @Status = 'Cancelled'
|
|||
|
|
THROW 50101, N'İptal edilmiş belgeye talepten aktarım yapılamaz.', 1;
|
|||
|
|
|
|||
|
|
INSERT INTO Prc_T_PurchaseOrderLine (Id, TenantId, PurchaseOrderId, ProductId, Description, Quantity, UomId,
|
|||
|
|
UnitPrice, TaxRate, Amount, MaterialRequestItemId, CreationTime, IsDeleted)
|
|||
|
|
SELECT NEWID(), @Tenant, @Id, i.ProductId, i.RequestReason, i.Quantity, i.UomId,
|
|||
|
|
COALESCE((SELECT TOP 1 al.UnitPrice FROM Prc_T_PurchaseAgreementLine al
|
|||
|
|
WHERE al.AgreementId = @Agr AND al.ProductId = i.ProductId AND al.IsDeleted = 0),
|
|||
|
|
(SELECT TOP 1 ps.Price FROM Inv_T_ProductSupplier ps
|
|||
|
|
WHERE ps.ProductId = i.ProductId AND ps.ContactId = @Supplier AND ps.IsDeleted = 0
|
|||
|
|
ORDER BY ps.MinQuantity), 0),
|
|||
|
|
ISNULL(p.PurchaseTaxRate, 0), 0, i.Id, GETUTCDATE(), 0
|
|||
|
|
FROM Prc_T_MaterialRequestItem i
|
|||
|
|
INNER JOIN Prc_T_MaterialRequest r ON r.Id = i.MaterialRequestId
|
|||
|
|
LEFT JOIN Inv_T_Product p ON p.Id = i.ProductId
|
|||
|
|
WHERE i.MaterialRequestId = @Req AND i.IsDeleted = 0
|
|||
|
|
AND r.ApprovalStatus = N'Onaylandı'
|
|||
|
|
AND i.FulfillmentMethod = 'Purchase' AND i.LineStatus = 'Waiting'
|
|||
|
|
AND NOT EXISTS (SELECT 1 FROM Prc_T_PurchaseOrderLine ol
|
|||
|
|
INNER JOIN Prc_T_PurchaseOrder o ON o.Id = ol.PurchaseOrderId
|
|||
|
|
WHERE ol.MaterialRequestItemId = i.Id AND ol.IsDeleted = 0
|
|||
|
|
AND o.IsDeleted = 0 AND o.Status <> 'Cancelled');
|
|||
|
|
SET @Cnt = @@ROWCOUNT;
|
|||
|
|
|
|||
|
|
UPDATE Prc_T_PurchaseOrder SET MaterialRequestId = NULL WHERE Id = @Id;
|
|||
|
|
|
|||
|
|
IF @Cnt = 0
|
|||
|
|
THROW 50102, N'Seçilen talepte aktarılacak kalem yok (onaylı, Satınalma ile karşılanacak, bekleyen ve başka belgede olmayan kalem bulunamadı).', 1;
|
|||
|
|
END
|