Проведение накладных в системе 3.4

	if ((Message == MSG_OK) && 
		(SenderUSI == 'wnd_OfferingMovementClose')) {
		CloseOfferingMovement(Data);
		return;
	}

		var Result = CustomQuery.Execute();
		if (Result < 0) {
			return false;
		}
		return true;

	if (SelectedIDs.Count == 1) {
		dlData.Dataset.RefreshRecord(SelectedIDs[0], true);
	} else {
		RefreshDatasetAndRestorePosition(dlData.Dataset)
	}

ds_OfferingMovementScript
--------------------------------------
function ds_OfferingMovementOnDatasetBeforePost(Dataset, DoPost) {
	SetItemSystemNumber('OfferingMovement', Dataset, 'Number');
	OfferingMovementScript.TypeID = 
		Dataset.DataFields.ItemsByName('TypeID').OldValue;
	OfferingMovementScript.StatusID =
		Dataset.DataFields.ItemsByName('StatusID').OldValue;
	OfferingMovementScript.OfferingID = 
		Dataset.DataFields.ItemsByName('OfferingID').OldValue;
 
	if ((Dataset('TypeID') != omtComplete) &&
		(Dataset('TypeID') != omtDecomplete)) {
		Dataset('OfferingID') = null;
		Dataset('Quantity') = null;
		Dataset('UnitID') = null;
		Dataset('ConsignmentID') = null;
	}
	if (!ConductOfferingMovements(Dataset)) {</strong>
		DoPost.Value = false;
       /*
Если я даже изменю в карточке накладной валюту, вызовется метод СonductOfferingMovements(Dataset),
который проведет накладную точно так же, как если бы я нажал на кнопку "Закрыть"
 
Почему и зачем?! 
*/
	}
	OfferingMovementScript.DoRecalc = (Dataset.DataFields('CurrencyRate').OldValue != Dataset.DataFields('CurrencyRate').Value);
	if (OfferingMovementScript.DoRecalc) {
		OfferingMovementScript.ID = Dataset('ID');
		OfferingMovementScript.Rate = CalcBasicPrice(1, Dataset('CurrencyID'), Dataset('CurrencyRate'));
	}
}

function ds_OfferingMovementOnDatasetAfterPost(Dataset) {
	GiveRightsToRecordOwner(Dataset);
	var StatusID = Dataset('StatusID');
	SaveMovements(Dataset, StatusID);
	if (OfferingMovementScript.DoRecalc) {
		RecalcOfferingInMovementPrices(OfferingMovementScript.ID, OfferingMovementScript.Rate);
	}
}
 
function SaveMovements(OfferingMovementDataset, StatusID) {
	var OfferingMovementID = OfferingMovementDataset('ID');
	if (GetIsMovementEnable(StatusID)) {
		ApplyAddMovements(OfferingMovementID);			
		RemoveOfferingReserve(OfferingMovementDataset, false);
	} else {
		ApplyDeleteMovements(OfferingMovementID);
		RemoveOfferingReserve(OfferingMovementDataset, true);
	}
}

function RemoveOfferingReserve(OfferingMovementDataset, IsRollback) {
	var TypeID = GetDatasetFieldValue(OfferingMovementDataset, 'TypeID');
	switch (TypeID) {
	case omtMove:
		MoveReservedOfferings(OfferingMovementDataset, IsRollback);
		break;
	case omtShipment:
	case omtBillPayment:
		ShipmentReservedOfferings(OfferingMovementDataset);
		break;
	}
}
 
function ShipmentReservedOfferings(OfferingMovementDataset) {
	var TypeID = GetDatasetFieldValue(OfferingMovementDataset, 'TypeID');
 
	if ((TypeID != omtShipment) && (TypeID != omtBillPayment)) {
		return;
	}
 
	var OfferingMovementID = OfferingMovementDataset('ID');
	var StoreID = GetDatasetFieldValue(OfferingMovementDataset, 'StoreID');
	var OfferingID;
	var DocumentID;
	var ContractID;
	var InvoiceID;
	var ReservedQuantity;
	var Quantity;
 
	var OfferingInMovementDataset = 
		GetSingleItemByCode('ds_OfferingInMovement', 'MovementUtils');
	ApplyDatasetFilter(OfferingInMovementDataset, 'OfferingMovementID', 
		OfferingMovementID, true);
	OfferingInMovementDataset.Open();
	try {
		var ReservedOfferingDataset = GetSingleItemByCode('ds_ReservedOffering', 
			'CheckReservedProducts');
..........................................................................
ReservedOfferingDataset.Open();
            try {
            	ReservedQuantity = 
					ReservedOfferingDataset.ValAsFloat('Quantity');
				Quantity = 
					OfferingInMovementDataset.ValAsFloat('Quantity');
            	if (ReservedQuantity <= Quantity) {
            		ReservedOfferingDataset.Delete();
            	} else {
            		ReservedOfferingDataset.Edit();
            		ReservedOfferingDataset('Quantity') = 
						ReservedQuantity - Quantity;
					ReservedOfferingDataset.Post();
            	}
            } finally {
            	ReservedOfferingDataset.Close();
            }
..............................................................

ALTER  procedure [dbo].[tsp_RemoveOfferingReserve] 
	@AOfferingMovementID uniqueidentifier,
  @ATypeID uniqueidentifier,
  @AStoreID uniqueidentifier,
  @AStoreRecipientID uniqueidentifier,
  @AMoveBack int,
  @AUserID uniqueidentifier
as
begin
  set XACT_ABORT on
  set NOCOUNT on
 
  declare @Result int
  set @Result = 0;
  if (@ATypeID = '{D2B35B4E-571C-44A7-87AB-456A1F4D1C2D}') -- omtMove
  begin
    exec @Result = tsp_MoveReservedOfferings
	    @AOfferingMovementID = @AOfferingMovementID,
      @ATypeID = @ATypeID,
      @AStoreID = @AStoreID,
      @AStoreRecipientID = @AStoreRecipientID,
      @AMoveBack = @AMoveBack,
      @AUserID = @AUserID
  end else
  if (@ATypeID IN ('{A48368CD-E28D-458D-8AE8-E2A314186C5C}',   /*omtShipment*/ 
                   '{F6E5A2E6-A2D6-4C2F-99A7-7FEE75FF76F6}'))  /*omtBillPayment*/ 
  begin
    exec @Result = tsp_ShipmentReservedOfferings
	    @AOfferingMovementID = @AOfferingMovementID,
      @ATypeID = @ATypeID,
      @AStoreID = @AStoreID,
      @AUserID = @AUserID  
  end
 
  return (@Result)
end
GO
 
 
 
ALTER procedure [dbo].[tsp_ShipmentReservedOfferings] 
	@AOfferingMovementID uniqueidentifier,
  @ATypeID uniqueidentifier,
  @AStoreID uniqueidentifier,
  @AUserID uniqueidentifier
as
begin
  set XACT_ABORT on
  set NOCOUNT on
 
  if (not @ATypeID IN ('{A48368CD-E28D-458D-8AE8-E2A314186C5C}',   /*omtShipment*/ 
                       '{F6E5A2E6-A2D6-4C2F-99A7-7FEE75FF76F6}'))  /*omtBillPayment*/ 
  begin
    return (-1)
  end  
 
  declare @OfferingID uniqueidentifier
  declare @DocumentID uniqueidentifier
  declare @ContractID uniqueidentifier
  declare @InvoiceID uniqueidentifier
  declare @Quantity decimal(15,4)
  declare @ReservedQuantity decimal(15,4)
 
  declare OM_Cursor cursor for
  select
    [tbl_OfferingInMovement].[OfferingID],
    [tbl_OfferingInMovement].[DocumentID],
    [tbl_OfferingInMovement].[ContractID],
    [tbl_OfferingInMovement].[InvoiceID],
    [tbl_OfferingInMovement].[Quantity]
  from
	  [dbo].[tbl_OfferingInMovement] AS [tbl_OfferingInMovement]
  where [tbl_OfferingInMovement].[OfferingMovementID] = @AOfferingMovementID
 
  open OM_Cursor
  fetch next from OM_Cursor
  into @OfferingID, @DocumentID, @ContractID, @InvoiceID, @Quantity
  while @@fetch_status = 0
  begin            
    if (@DocumentID is null and @ContractID is null and @InvoiceID is null) 
    begin
      fetch next from OM_Cursor
      into @OfferingID, @DocumentID, @ContractID, @InvoiceID, @Quantity
      continue
    end    
 
    select
      @ReservedQuantity = isnull([tbl_ReservedOffering].[Quantity], 0)
    from
	    [dbo].[tbl_ReservedOffering] AS [tbl_ReservedOffering]
    where ([tbl_ReservedOffering].[OfferingID] = @OfferingID)
      and ([tbl_ReservedOffering].[ExpirationDate] >= getdate())
      and ([tbl_ReservedOffering].[DocumentID] = @DocumentID or @DocumentID is null)
      and ([tbl_ReservedOffering].[ContractID] = @ContractID or @ContractID is null)
      and ([tbl_ReservedOffering].[InvoiceID] = @InvoiceID or @InvoiceID is null)
      and ([tbl_ReservedOffering].[StoreID] = @AStoreID or @AStoreID is null)
    if (@@rowcount = 0)
    begin
     set @ReservedQuantity = 0
    end
 
    if (@ReservedQuantity <= @Quantity)
    begin
      delete from [dbo].[tbl_ReservedOffering]
      where ([OfferingID] = @OfferingID)
        and ([DocumentID] = @DocumentID or @DocumentID is null)
        and ([ExpirationDate] >= getdate())
        and ([ContractID] = @ContractID or @ContractID is null)
        and ([InvoiceID] = @InvoiceID or @InvoiceID is null)
        and ([StoreID] = @AStoreID or @AStoreID is null)
    end else
    begin
      update [dbo].[tbl_ReservedOffering]
      set [Quantity] = @ReservedQuantity - @Quantity,
          [ModifiedOn] = getdate(),
          [ModifiedByID] = @AUserID
      where ([OfferingID] = @OfferingID)
        and ([ExpirationDate] >= getdate())
        and ([DocumentID] = @DocumentID or @DocumentID is null)
        and ([ContractID] = @ContractID or @ContractID is null)
        and ([InvoiceID] = @InvoiceID or @InvoiceID is null)
        and ([StoreID] = @AStoreID or @AStoreID is null)  
    end
 
    fetch next from OM_Cursor
    into @OfferingID, @DocumentID, @ContractID, @InvoiceID, @Quantity
  end
 
  close OM_Cursor
  deallocate OM_Cursor
 
  return (1)
end
GO

function ds_OfferingMovementOnDatasetAfterPost(Dataset) {
        GiveRightsToRecordOwner(Dataset);
        var StatusID = Dataset('StatusID');
//      SaveMovements(Dataset, StatusID);
        if (OfferingMovementScript.DoRecalc) {
                RecalcOfferingInMovementPrices(OfferingMovementScript.ID, OfferingMovementScript.Rate);
        }
}