edcust.vbs

Dream Scripter v3.5 Full Source Code

'USEUNIT Datamod

sub Edit(CustNo)
  MastData.Cust.Open
  call MastData.Cust.Locate("CustNo", CustNo, 0)
  ShowModal
End Sub

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

sub PrintBtnClick(Sender)
  if MessageDlg("   Print this form?", mtConfirmation, MkSet(mbYes,mbNo), 0) = mrYes then
    EdCustForm.Print
  End If
End Sub

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

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