version 6.50 1 MainFrm AccountFrm 238 268 0 0 0 0 Sub designer addform(MainFrm,"Sales","",220,220,220)@ addbutton(mainfrm,NewBtn,163,190,75,23,"New",212,208,200,0,0,0,True,True,9)@ addbutton(mainfrm,OptionsBtn,82,190,75,23,"Options",212,208,200,0,0,0,True,True,9)@ addbutton(mainfrm,SelectBtn,0,190,75,23,"Select",212,208,200,0,0,0,True,True,9)@ addtable(mainfrm,SalesTbl,5,5,230,175,"",245,245,245,0,0,0,True,True,9)@ addmenuitem(mainfrm,Menu1,"Sort",True,False)@ addmenuitem(menu1,SDA,"Sale Date (asc)",True,False)@ addmenuitem(menu1,SDD,"Sale Date (des)",True,False)@ addform(AccountFrm,"Account","",220,220,220)@ adddatetime(accountfrm,CutdateCal,90,125,145,22,"mm/dd/yyyy",255,255,255,0,0,0,True,True,9)@ adddatetime(accountfrm,SaledateCal,90,5,145,22,"mm/dd/yyyy",255,255,255,0,0,0,True,True,9)@ addpanel(accountfrm,NewPnl,20,35,205,80,255,255,255,True,False)@ addbutton(newpnl,NewcompanyBtn,120,50,75,23,"Ok",212,208,200,0,0,0,True,True,9)@ addlabel(newpnl,Label7,5,0,180,25,"New Company Name:",255,255,255,0,0,0,True,True,9)@ addtextbox(newpnl,Ncntxt,5,25,195,22,"",255,255,255,0,0,0,True,True,False,9)@ addtextbox(accountfrm,SystemTxt,90,95,145,22,"",255,255,255,0,0,0,True,True,False,9)@ addtextbox(accountfrm,SalesrepTxt,90,35,145,22,"",255,255,255,0,0,0,True,True,False,9)@ addcheckbox(accountfrm,ArchiveChk,160,170,75,20,"Archive",220,220,220,0,0,0,True,True,False,9)@ addlabel(accountfrm,Label6,5,125,75,25,"Cut Date",220,220,220,0,0,0,True,True,9)@ addlabel(accountfrm,Label5,5,95,75,25,"System",220,220,220,0,0,0,True,True,9)@ addlabel(accountfrm,Label4,5,65,75,25,"Value",220,220,220,0,0,0,True,True,9)@ addtextbox(accountfrm,ValueTxt,90,65,145,22,"",255,255,255,0,0,0,True,True,False,9)@ addlabel(accountfrm,Label3,5,35,75,25,"Sales Rep",220,220,220,0,0,0,True,True,9)@ addlabel(accountfrm,Label2,5,5,75,25,"Sale Date",220,220,220,0,0,0,True,True,9)@ addbutton(accountfrm,SaveBtn,20,240,75,23,"Save",212,208,200,0,0,0,True,True,9)@ addlabel(accountfrm,Label1,5,170,75,20,"Notes:",220,220,220,0,0,0,True,True,9)@ addtextbox(accountfrm,NoteTxt,5,195,225,45,"",255,255,255,0,0,0,True,True,True,9)@ End Sub @EndOfDesignText@ Sub Globals 'Declare the global variables here. Trip = "yes" End Sub Sub App_Start MainFrm.Show SalesTbl.AddCol (cString, "Company",100,False) SalesTbl.AddCol (cString, "Sale Date",50,False) SalesTbl.AddCol (cString, "Sales Rep",50,False) SalesTbl.AddCol (cNumber, "Value",50,False) SalesTbl.AddCol (cString, "System",50,False) SalesTbl.AddCol (cString, "Cut Date",50,False) SalesTbl.AddCol (cString, "Notes",50,False) SalesTbl.AddCol (cString, "Archive",50,False) SalesTbl.LoadCSV ("Sales.csv", ",", True, True) End Sub Sub SelectBtn_Click Trip = "yes" AccountFrm.Show company = SalesTbl.Cell ("Company", SalesTbl.SelectedRow) AccountFrm.Text = company 'Label the Account form with the company name saledate = SalesTbl.Cell ("Sale Date", SalesTbl.SelectedRow) saledate2 = DateParse(saledate) SaledateCal.Value = saledate2 salesrep = SalesTbl.Cell ("Sales Rep", SalesTbl.SelectedRow) SalesrepTxt.Text = salesrep value = SalesTbl.Cell ("Value", SalesTbl.SelectedRow) ValueTxt.Text = value system = SalesTbl.Cell ("System", SalesTbl.SelectedRow) SystemTxt.Text = system cutdate = SalesTbl.Cell ("Cut Date", SalesTbl.SelectedRow) cutdate2 = DateParse(cutdate) CutdateCal.Value = cutdate2 note = SalesTbl.Cell ("Notes", SalesTbl.SelectedRow) NoteTxt.Text = note archive = SalesTbl.Cell ("Archive", SalesTbl.SelectedRow) If archive = "true" Then ArchiveChk.Checked = True Else ArchiveChk.Checked = False End Sub Sub OptionsBtn_Click Msgbox ("Later") End Sub Sub NewBtn_Click Trip = "no" NewPnl.Visible = True NcnTxt.Text = " " AccountFrm.Show AccountFrm.Text = " " SalesrepTxt.Text = " " ValueTxt.Text = " " SystemTxt.Text = " " ArchiveChk.Checked = False NoteTxt.Text = " " End Sub Sub NewcompanyBtn_Click company = NcnTxt.Text AccountFrm.Text = company NewPnl.Visible = False End Sub Sub SaveBtn_Click ' save a existing form, caution on a new form If Trip = "yes" Then SalesTbl.RemoveRow (SalesTbl.SelectedRow) d = SaledateCal.Value e = CutdateCal.Value SalesTbl.AddRow (AccountFrm.Text,Date(d) , SalesrepTxt.Text, ValueTxt.Text, SystemTxt.Text, Date (e), NoteTxt.Text, ArchiveChk.Checked ) SalesTbl.SaveCSV("Sales.csv", ",", True) AccountFrm.Close End Sub Sub SDA_Click SalesTbl.TableSort ("Sale Date ASC") End Sub Sub SDD_Click SalesTbl.TableSort ("Sale Date DESC") End Sub