Category : Paradox DBMS
Archive   : PXSYST.ZIP
Filename : ASKIIMNU.DB

 
Output of file : ASKIIMNU.DB contained in archive : PXSYST.ZIP

 ,(ðÞצožoÛ2Fºo ooooASKIIMNU.DBMenuMnuRowNewMnuProsàMainAboutprg.copyright()MainCustomerprg.custupdate ("","")MainSearchprg.custsearch ()MainNoticeprg.noticeupdate ()MainRememberprg.rememberevent ()MainEnvironmentprg.envupdate ()MainBackupprg.todiskette ("dosave")MainQuitmnu.end ()SearchSearchCustsearchSearchLook Searchprg.custupdate (g_searchtbl,"Customer.CustNo")SearchSortCustsortSearchCreate Eventprg.createevent ()àSearchReportCustprintCustsearchNormal SearchCustsearch1CustsearchRecursive SearchCustsearch2Custsearch1Customerqry.beginsearch (g_outersearch,False,False)Custsearch1Customer Personalqry.beginsearch (g_linearsearch,False,False)Custsearch1Event Personsqry.beginsearch (g_eventsearch,False,False)Custsearch2Customerqry.beginsearch (g_outersearch,True,False)Custsearch2Customer Personalqry.beginsearch (g_linearsearch,True,False)Custsearch2Event Personsqry.beginsearch (g_eventsearch,True,False)Custsearch3Customerqry.beginsearch (g_outersearch,False,True)Custsearch3Customer Personalqry.beginsearch (g_linearsearch,False,True)Custsearch3Event Personsqry.beginsearch (g_eventsearch,False,True)àCustsortCustomersort g_searchtbl on "Customer.Customer"CustsortCountrysort g_searchtbl on "Customer.Country"CustsortCustNosort g_searchtbl on "Customer.CustNo"CustsortCustClasssort g_searchtbl on "Customer.CustClass","Customer.Customer"CustsortContPersonsort g_searchtbl on "Customer.ContPerson","Customer.Customer"CustsortPostCodesort g_searchtbl on "Customer.PostCode","Customer.Customer"CustsortPersonsort g_searchtbl on "Personal.Name"CustdeleteWhole Searchdel.emptytbl (g_searchtbl)CustdeleteDupl Customerprg.duplcust ()CustdeleteDupl Personprg.duplperson ()CustdeleteAccording to ConditionsCustsearch3CustprintList Customerout.output (g_searchtbl,1)ÀCustprintList Customer Personalout.output (g_searchtbl,2)CustprintLabel Customerout.output (g_searchtbl,3)CustprintLabel Customer Personalout.output (g_searchtbl,4)CustprintList Customer Personal Events Sales Memoprg.printall (True,True,True,True)CustprintList Customer Personal Events Salesprg.printall (True,True,True,False)CustprintList Customer Personal Eventsprg.printall (True,True,False,False)CustprintNoticeprg.printnotice ()1111111111111  AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 2222222222222222222222222222222222222222222222222222222222222222222222  AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 3333333333333333333333333333333333333333333333333333333333333333333333  AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 4444444444444444444444444444444444444444444444444444444444444444444444  AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 5555555555555555555555555555555555555555555555555555555555555555555555  AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 6666666666666666666666666666666666666666666666666666666666666666666666SearchDeleteCustdelete