main.js

Dream Scripter v3.5 Full Source Code

//USEUNIT Dialogs
//USEUNIT Menus
//USEUNIT Buttons
//USEUNIT ExtCtrls
//USEUNIT About
//USEUNIT Pickinvc
//USEUNIT Invcrpt
//USEUNIT Orderrpt
//USEUNIT Pickrep
//USEUNIT Custrpt
//USEUNIT Brparts
//USEUNIT Qrycust
//USEUNIT Brcstord
//USEUNIT Edorders
//USEUNIT Datamod

var doMDY = 0;
var doDMY = 1;
var doYMD  =2;
var HELP_QUIT = 2;
var HELP_CONTENTS = 3;


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

function GetDateOrder(DateFormat)
{
var I;
var Result = doMDY;
  for(I= 1;I<=DateFormat.Length;I++)
    switch ( UpperCase(DateFormat(I)) )
    {
      case "Y": return doYMD ; break;
      case "M": return doMDY ; break;
      case "D": return doDMY ; break;
    }
  return Result;
}

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

function BrowseCustOrd(Sender)
{
/*  switch  (GetDateOrder(ShortDateFormat))
  {
    case doYMD: ShortDateFormat = "yy/mm/dd"; break;
    case doMDY: ShortDateFormat = "mm/dd/yy"; break;
    case doDMY: ShortDateFormat = "dd/mm/yy"; break;
  }*/
  BrCustOrdForm.Show;
}

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

function CloseApp(Sender)
{
  Close;
}

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

function FormCreate(Sender)
{
  ClientWidth = CloseBtn.Left + CloseBtn.Width + 1;
  ClientHeight = CloseBtn.Top + CloseBtn.Height;
  MainPanel.Align = alClient;
  Left = 0;
  Top = 0;
}

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

function BrowseParts(Sender)
{
  BrPartsForm.Show;
}

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

function ToggleStayonTop(Sender)
{
  with (Sender)
  {
    Checked = ! Checked;
    if (Checked)
      FormStyle = fsStayOnTop;
    else
      FormStyle = fsNormal;
  }
}

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

function NewOrder(Sender)
{
  Edorders.Enter();
}

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

function HelpBtnClick(Sender)
{
   Application.HelpCommand(HELP_CONTENTS, 0);
//  AboutBox.ShowModal;
}

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

function PrinterSetupClick(Sender)
{
  PrinterSetup.Execute;
}

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

function AboutClick(Sender)
{
  AboutBox.ShowModal;
}

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

function FormDestroy(Sender)
{
  Application.HelpCommand(HELP_QUIT,0);
}

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

function ReportBtnClick(Sender)
{
  with (PickRpt)
    if (ShowModal == mrOK)
      switch (ReportType.ItemIndex)
      {
        case  0: PrintCustomerReport(GetPreview()); break;
        case  1: PrintOrderReport( GetPreview()); break;
        case  2: PrintInvoiceReport( GetPreview() ); break;
      }
}

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

function PrintCustomerReport(Preview)
{
  with (MastData.CustByLastInvQuery)
  {
    Open;
    if (Preview)
       FormCusRep.CustomerByInvoiceReport.Preview;
    else
       FormCusRep.CustomerByInvoiceReport.Print;
    Close;
  }
}

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

function PrintOrderReport(Preview)
{
  with (QueryCustDlg)
  {
    MsgLab.Caption = "Print all orders ranging:";
    if (GetFromDate() == 0)
      SetFromDate(EncodeDate(95, 01, 01));
    if (GetToDate() == 0)
      SetToDate(Now);
    if (ShowModal == mrOk)
      with (MastData.OrdersByDateQuery)
      {
        Close;
        Params.ParamByName("FromDate").AsDateTime = Qrycust.GetFromDate();
        Params.ParamByName("ToDate").AsDateTime = Qrycust.GetToDate();
        Open;
        FormOrderRep.OrdersByDateReport.ReportTitle =
        "From " + DateToStr(GetFromDate()) +" To " + DateToStr(GetToDate());
        if (Preview)
          FormOrderRep.OrdersByDateReport.Preview;
        else
          FormOrderRep.OrdersByDateReport.Print;
        Close;
      }
   }
}

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

function PrintInvoiceReport(Preview)
{
  if (PickOrderNoDlg.ShowModal == mrOk)
     if (Preview)
        FormInvRep.InvoiceByOrderNoReport.Preview;
     else
        FormInvRep.InvoiceByOrderNoReport.Print;
}

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

function OrderReport(Sender)
{
  PrintOrderReport(false);
}

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

function CustomerReport(Sender)
{
  PrintCustomerReport(false);
}

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

function InvoiceReport(Sender)
{
  PrintInvoiceReport(false);
}

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

function FormShow(Sender)
{
 Datamod.Database().TransIsolation = tiDirtyRead;
 ShortDateFormat = "dd/mm/yy";
}