edorders.vbs

Dream Scripter v3.5 Full Source Code

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

dim  HelpTopicEdit
  HelpTopicEdit = 2
dim  HelpTopicBrowse
  HelpTopicBrowse = 3


'-------------------------------------------------------------------

function DatasetStates(index)
  Select Case index
    case 0: result = "Not active"
    case 1: result = "Browsing"
    case 2: result = "Editing"
    case 3: result = "Inserting"
    case else result = ""
  End Select
  DatasetStates = result
End function

'-------------------------------------------------------------------

sub Enter()
'  MastData.OrdersSource.OnStateChange = EdOrderForm.OrdersSourceStateChange
  MastData.Orders.Open
  MastData.Orders.Insert
  EdOrderForm.ShowModal
'  MastData.OrdersSource.OnStateChange = NULL
End Sub

'-------------------------------------------------------------------

sub Edit(OrderNo)
'  MastData.OrdersSource.OnStateChange = EdOrderForm.OrdersSourceStateChange
  MastData.Orders.Open
  call MastData.Orders.Locate("OrderNo", OrderNo, 0)
  EdOrderForm.ShowModal
 ' MastData.OrdersSource.OnStateChange = NULL
End Sub

'-------------------------------------------------------------------

sub ItemsGridEnter(Sender)
  ActiveSource.Dataset = MastData.Items
End Sub

'-------------------------------------------------------------------

sub ItemsGridExit(Sender)
  ActiveSource.Dataset = MastData.Orders
End Sub

'-------------------------------------------------------------------

sub ActiveSourceStateChange(Sender)
  if not IsNull(ActiveSource.Dataset) then
    ModeIndicator.Caption =  ActiveSource.Dataset.Name + ":" + DatasetStates(ActiveSource.State)
    call OrdersSourceStateChange(Sender)
  End IF
  if inset(ActiveSource.State , MkSet(dsEdit, dsInsert)) then
    HelpContext = HelpTopicEdit
    ModeIndicator.Font.Color = clRed
  else
    HelpContext = HelpTopicBrowse
    ModeIndicator.Font.Color = clBlue
  End IF
End Sub


'-------------------------------------------------------------------

sub OrdersSourceStateChange(Sender)
  PostBtn.Enabled = inset(MastData.Orders.State ,dsEditModes)
  CancelBtn.Enabled = PostBtn.Enabled
  CloseBtn.Enabled = (MastData.Orders.State = dsBrowse)
End Sub

'-------------------------------------------------------------------

sub SaleDateEditKeyPress(Sender,Key)
  if Key = chr(10) then
    Key = chr(0)
  End If
End Sub

'-------------------------------------------------------------------

sub PickPartNo(Sender)
  if ItemsGrid.SelectedField is  MastData.ItemsPartNo then
    if MastData.ItemsPartNo.Value <> 0 then  Srchdlg.SetPartNo(MastData.ItemsPartNo.Value)
    if Srchdlg.ShowModalParts() = mrOk then
      MastData.Items.Edit
      MastData.ItemsPartNo.Value = Srchdlg.GetPartNo()
    End IF
  End If
End Sub

'-------------------------------------------------------------------

sub PostBtnClick(Sender)
  if inset(MastData.Orders.State,dsEditModes) then  MastData.Orders.Post
End Sub

'-------------------------------------------------------------------

sub CancelBtnClick(Sender)
  call Datamod.OrdersAfterCancel(MastData.Orders)
End Sub

'-------------------------------------------------------------------

sub PrintBtnClick(Sender)
  if Confirm("Print image of this form window?") then  Print
End Sub

'-------------------------------------------------------------------

sub FormCloseQuery(Sender,CanClose)
  CanClose = (Datamod.DataSetApplyUpdates(MastData.Orders, (ModalResult = mrOK)))
End Sub

'-------------------------------------------------------------------

sub SoldByComboKeyPress(Sender,Key)
  if (Key <> chr(13)) and  (Key <> chr(27))  then  Key = chr(0)
End Sub


Sub FormShow(Sender)
  OrdersSourceStateChange(Sender)
End Sub