edorders.js

Dream Scripter v3.5 Full Source Code

//USEUNIT dcdbctl
//USEUNIT Db
//USEUNIT DBCtrls
//USEUNIT DBGrids
//USEUNIT Buttons
//USEUNIT StdCtrls
//USEUNIT ExtCtrls
//USEUNIT Srchdlg
//USEUNIT Datamod

var  HelpTopicEdit = 2;
var  HelpTopicBrowse = 3;

//-------------------------------------------------------------------

function DatasetStates(index)
{
  switch (index)
  {
    case 0: return "Not active"; break;
    case 1: return "Browsing" ; break;
    case 2: return "Editing" ;break;
    case 3: return "Inserting" ; break;
    default: return "";
  }
}

//-------------------------------------------------------------------

function Enter()
{

//  MastData.OrdersSource.OnStateChange = EdOrderForm.OrdersSourceStateChange;
  MastData.Orders.Open;
  MastData.Orders.Insert;
  EdOrderForm.ShowModal;
//  MastData.OrdersSource.OnStateChange = null;

}

//-------------------------------------------------------------------

function Edit(OrderNo)
{
//  MastData.OrdersSource.OnStateChange = EdOrderForm.OrdersSourceStateChange;
  MastData.Orders.Open;
  MastData.Orders.Locate("OrderNo", OrderNo, 0);
  EdOrderForm.ShowModal;
 // MastData.OrdersSource.OnStateChange = null;
}

//-------------------------------------------------------------------

function ItemsGridEnter(Sender)
{
  ActiveSource.Dataset = MastData.Items;
}

//-------------------------------------------------------------------

function ItemsGridExit(Sender)
{
  ActiveSource.Dataset = MastData.Orders;
}

//-------------------------------------------------------------------

function ActiveSourceStateChange(Sender)
{
  with (ActiveSource)
  {
    if (Dataset != null)
      ModeIndicator.Caption =  Dataset.Name + ":" + DatasetStates(State) ;
      OrdersSourceStateChange(Sender);
    if( inset(State ,MkSet(dsEdit, dsInsert)))
    {
      HelpContext = HelpTopicEdit;
      ModeIndicator.Font.Color = clRed;
    }
    else
    {
      HelpContext = HelpTopicBrowse;
      ModeIndicator.Font.Color = clBlue;
    }
  }
}


//-------------------------------------------------------------------

function OrdersSourceStateChange(Sender)
{
  PostBtn.Enabled = inset(MastData.Orders.State ,dsEditModes);
  CancelBtn.Enabled = PostBtn.Enabled;
  CloseBtn.Enabled = (MastData.Orders.State == dsBrowse);
}

//-------------------------------------------------------------------

//-------------------------------------------------------------------

function SaleDateEditKeyPress(Sender,Key)
{
  if (Key == chr(10))
    Key = chr(0);
}

//-------------------------------------------------------------------

function PickPartNo(Sender)
{
  if (ItemsGrid.SelectedField == MastData.ItemsPartNo)
  {
    if (MastData.ItemsPartNo.Value != 0)
      Srchdlg.SetPartNo(MastData.ItemsPartNo.Value);
    if (Srchdlg.ShowModalParts() == mrOk)
    {
      MastData.Items.Edit;
      MastData.ItemsPartNo.Value = Srchdlg.GetPartNo();
    }
  }
}

//-------------------------------------------------------------------

function PostBtnClick(Sender)
{
  MastData.Orders.Post;
}


//-------------------------------------------------------------------

function CancelBtnClick(Sender)
{
  Datamod.OrdersAfterCancel(MastData.Orders);
}

//-------------------------------------------------------------------

function PrintBtnClick(Sender)
{
  if (Confirm("Print image of this form window?"))
     Print;
}

//-------------------------------------------------------------------

function FormCloseQuery(Sender,CanClose)
{
  CanClose = Datamod.DataSetApplyUpdates(MastData.Orders, ModalResult == mrOK);
}

//-------------------------------------------------------------------

function SoldByComboKeyPress(Sender,Key)
{
  if ( (Key != chr(13)) && (Key != chr(27)) )
    Key = chr(0);
}


function FormShow(Sender)
{
  OrdersSourceStateChange(Sender);
}