home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / progmisc / sld.zip / OUTPUT.PRG < prev    next >
Text File  |  1993-05-06  |  10KB  |  451 lines
  1. *
  2. *   File  : output.PRG
  3. *   Author:   
  4. *   Date  : 05/05/1993
  5. *
  6.  
  7.  
  8.  
  9.  PROCEDURE SCREEN1
  10.  
  11.   LOCAL WinStr,iRow
  12.  
  13.     SETMODE(25,80)
  14.  
  15.       WinStr=""
  16.       SETCOLOR("B+/B")
  17.       FOR iRow = 0 TO 25
  18.         @ iRow,0 SAY PADC(WinStr,80,"░")
  19.       NEXT
  20.  
  21.  
  22.       SETCOLOR("W+/BG")
  23.       @ 0,0,24,79 BOX "┌─┐│┘─└│"
  24.  
  25.         SETCOLOR("GR+/R,W/R,,,N/W")
  26.  
  27.       @ 2,25 SAY "    ACME Sales Database   "
  28.  
  29.       SETCOLOR("GR+/RB,W/R,,,N/W")
  30.  
  31.       @ 4,8 SAY "Short Name "
  32.       @ 6,11 SAY "Company "
  33.       @ 8,11 SAY "Address "
  34.       @ 11,14 SAY "City "
  35.       @ 13,5 SAY "Zip/Post Code "
  36.       @ 15,15 SAY "Tel "
  37.       @ 16,15 SAY "Fax "
  38.       @ 18,9 SAY "Sales Area "
  39.       @ 20,9 SAY "Sales Rep. "
  40.       @ 18,44 SAY "Credit Limit "
  41.       @ 14,43 SAY "Business Type "
  42.       @ 4,39 SAY "Account No. "
  43.       @ 16,48 SAY "Turnover "
  44.       @ 20,46 SAY "Last Order "
  45.       SETCOLOR("N/W,W/R,,,GR+/RB")
  46.      DO SHOGET1
  47.       SETCOLOR("GR+/RB,W/R,,,N/W")
  48.      DO MENU1
  49.  
  50.  RETURN
  51.  
  52.  
  53.  PROCEDURE SCREEN2
  54.  
  55.   LOCAL WinStr,iRow
  56.  
  57.     SETMODE(25,80)
  58.  
  59.       WinStr=""
  60.       SETCOLOR("B+/B")
  61.       FOR iRow = 0 TO 25
  62.         @ iRow,0 SAY PADC(WinStr,80,"░")
  63.       NEXT
  64.  
  65.  
  66.       SETCOLOR("W+/BG")
  67.       @ 0,0,24,79 BOX "┌─┐│┘─└│"
  68.  
  69.         SETCOLOR("GR+/R,W/R,,,N/W")
  70.  
  71.       @ 2,25 SAY "    Customer Contacts    "
  72.       @ 16,8 SAY "Received: "
  73.  
  74.       SETCOLOR("GR+/RB,W/R,,,N/W")
  75.  
  76.       @ 9,49 SAY "Importance "
  77.       @ 5,15 SAY "Short ID "
  78.       @ 7,14 SAY "Firstname "
  79.       @ 8,16 SAY "Surname "
  80.       @ 10,18 SAY "Title "
  81.       @ 12,14 SAY "Call Rate "
  82.       @ 14,14 SAY "Interests "
  83.       @ 16,21 SAY "Xmas Card? "
  84.       @ 16,37 SAY "XMas Gift? "
  85.       @ 16,53 SAY "Golf Day Invite? "
  86.       @ 19,12 SAY "Note: "
  87.       SETCOLOR("N/W,W/R,,,GR+/RB")
  88.      DO SHOGET2
  89.       SETCOLOR("GR+/RB,W/R,,,N/W")
  90.      DO MENU2
  91.  
  92.  RETURN
  93.  
  94.  
  95.  PROCEDURE SHOGET1
  96.  
  97.       @ 4,20 SAY aSHORTNAM 
  98.       @ 6,20 SAY aCOMPANY 
  99.       @ 8,20 SAY aADDRESS1 
  100.       @ 9,20 SAY aADDRESS2 
  101.       @ 10,20 SAY aADDRESS3 
  102.       @ 11,20 SAY aADDRESS4 
  103.       @ 13,20 SAY aPOSTCODE 
  104.       @ 15,20 SAY aTELNO 
  105.       @ 16,20 SAY aFAXNO 
  106.       @ 18,21 SAY aSALEAREA 
  107.       @ 20,21 SAY aSALESREP 
  108.       @ 18,58 SAY aCREDIT 
  109.       @ 14,58 SAY aBUSTYPE 
  110.       @ 4,52 SAY aACCNO 
  111.       @ 16,58 SAY aTURNTARG 
  112.       @ 20,58 SAY aLASTORD 
  113.  
  114.  RETURN
  115.  
  116.  
  117.  PROCEDURE SHOGET2
  118.  
  119.       @ 9,61 SAY aIMPORT 
  120.       @ 5,25 SAY bSHORTID 
  121.       @ 7,25 SAY bFIRSTNAM 
  122.       @ 8,25 SAY bSURNAME 
  123.       @ 10,25 SAY bTITLE 
  124.       @ 12,25 SAY bCALLRATE 
  125.       @ 14,25 SAY bINTEREST 
  126.       @ 16,33 SAY bXMASCARD 
  127.       @ 16,49 SAY bXMASGIFT 
  128.       @ 16,71 SAY bGOLFDAY 
  129.       @ 19,20 SAY bNOTE 
  130.  
  131.  RETURN
  132.  
  133.  
  134.  PROCEDURE GETSCR1
  135.  
  136.       @ 4,20 GET aSHORTNAM PICTURE "XXXXXXXXXX"
  137.       @ 6,20 GET aCOMPANY PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  138.       @ 8,20 GET aADDRESS1 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  139.       @ 9,20 GET aADDRESS2 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  140.       @ 10,20 GET aADDRESS3 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  141.       @ 11,20 GET aADDRESS4 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  142.       @ 13,20 GET aPOSTCODE PICTURE "XXXXXXXXXXXXXXX"
  143.       @ 15,20 GET aTELNO PICTURE "XXXXXXXXXXXXXXX"
  144.       @ 16,20 GET aFAXNO PICTURE "XXXXXXXXXXXXXXX"
  145.       @ 18,21 GET aSALEAREA PICTURE "X"
  146.       @ 20,21 GET aSALESREP PICTURE "XXXXXXXXXXXXXXXXXXXX"
  147.       @ 18,58 GET aCREDIT PICTURE "XXXXXXXXX"
  148.       @ 14,58 GET aBUSTYPE PICTURE "XXXXXXXXXXXX"
  149.       @ 4,52 GET aACCNO PICTURE "XXXXXXXXXXXXXXXXXXXX"
  150.       @ 16,58 GET aTURNTARG PICTURE "XXXXXXXXXXX"
  151.       @ 20,58 GET aLASTORD PICTURE "@D"
  152.       READ
  153.  
  154.  RETURN
  155.  
  156.  
  157.  PROCEDURE GETSCR2
  158.  
  159.       @ 9,61 GET aIMPORT PICTURE "X"
  160.       @ 5,25 GET bSHORTID PICTURE "XXXXXXXXXX"
  161.       @ 7,25 GET bFIRSTNAM PICTURE "XXXXXXXXXXXXXXXXXXXX"
  162.       @ 8,25 GET bSURNAME PICTURE "XXXXXXXXXXXXXXXXXXXX"
  163.       @ 10,25 GET bTITLE PICTURE "XXXXXXXXXXXXXXXXXXXX"
  164.       @ 12,25 GET bCALLRATE PICTURE "XXXXXXXXXX"
  165.       @ 14,25 GET bINTEREST PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  166.       @ 16,33 GET bXMASCARD PICTURE "X"
  167.       @ 16,49 GET bXMASGIFT PICTURE "X"
  168.       @ 16,71 GET bGOLFDAY PICTURE "X"
  169.       @ 19,20 GET bNOTE PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  170.       READ
  171.  
  172.  RETURN
  173.  
  174.  
  175.  PROCEDURE DECVARS1
  176.     PUBLIC aSHORTNAM
  177.     PUBLIC aCOMPANY
  178.     PUBLIC aADDRESS1
  179.     PUBLIC aADDRESS2
  180.     PUBLIC aADDRESS3
  181.     PUBLIC aADDRESS4
  182.     PUBLIC aPOSTCODE
  183.     PUBLIC aTELNO
  184.     PUBLIC aFAXNO
  185.     PUBLIC aSALEAREA
  186.     PUBLIC aSALESREP
  187.     PUBLIC aCREDIT
  188.     PUBLIC aBUSTYPE
  189.     PUBLIC aACCNO
  190.     PUBLIC aTURNTARG
  191.     PUBLIC aLASTORD
  192.  RETURN
  193.  
  194.  
  195.  PROCEDURE DECVARS2
  196.     PUBLIC aIMPORT
  197.     PUBLIC bSHORTID
  198.     PUBLIC bFIRSTNAM
  199.     PUBLIC bSURNAME
  200.     PUBLIC bTITLE
  201.     PUBLIC bCALLRATE
  202.     PUBLIC bINTEREST
  203.     PUBLIC bXMASCARD
  204.     PUBLIC bXMASGIFT
  205.     PUBLIC bGOLFDAY
  206.     PUBLIC bNOTE
  207.  RETURN
  208.  
  209.  
  210.  PROCEDURE INITVARS1
  211.    aSHORTNAM = SPACE(10)
  212.    aCOMPANY = SPACE(30)
  213.    aADDRESS1 = SPACE(30)
  214.    aADDRESS2 = SPACE(30)
  215.    aADDRESS3 = SPACE(30)
  216.    aADDRESS4 = SPACE(30)
  217.    aPOSTCODE = SPACE(15)
  218.    aTELNO = SPACE(15)
  219.    aFAXNO = SPACE(15)
  220.    aSALEAREA = SPACE(1)
  221.    aSALESREP = SPACE(20)
  222.    aCREDIT = SPACE(9)
  223.    aBUSTYPE = SPACE(12)
  224.    aACCNO = SPACE(20)
  225.    aTURNTARG = SPACE(11)
  226.    aLASTORD = DATE()
  227.  RETURN
  228.  
  229.  
  230.  PROCEDURE INITVARS2
  231.    aIMPORT = SPACE(1)
  232.    bSHORTID = SPACE(10)
  233.    bFIRSTNAM = SPACE(20)
  234.    bSURNAME = SPACE(20)
  235.    bTITLE = SPACE(20)
  236.    bCALLRATE = SPACE(10)
  237.    bINTEREST = SPACE(40)
  238.    bXMASCARD = SPACE(1)
  239.    bXMASGIFT = SPACE(1)
  240.    bGOLFDAY = SPACE(1)
  241.    bNOTE = SPACE(50)
  242.  RETURN
  243.  
  244.  
  245.  PROCEDURE SETVARS1
  246.     aSHORTNAM = a->SHORTNAM
  247.     aCOMPANY = a->COMPANY
  248.     aADDRESS1 = a->ADDRESS1
  249.     aADDRESS2 = a->ADDRESS2
  250.     aADDRESS3 = a->ADDRESS3
  251.     aADDRESS4 = a->ADDRESS4
  252.     aPOSTCODE = a->POSTCODE
  253.     aTELNO = a->TELNO
  254.     aFAXNO = a->FAXNO
  255.     aSALEAREA = a->SALEAREA
  256.     aSALESREP = a->SALESREP
  257.     aCREDIT = a->CREDIT
  258.     aBUSTYPE = a->BUSTYPE
  259.     aACCNO = a->ACCNO
  260.     aTURNTARG = a->TURNTARG
  261.     aLASTORD = a->LASTORD
  262.  RETURN
  263.  
  264.  
  265.  PROCEDURE SETVARS2
  266.     aIMPORT = a->IMPORT
  267.     bSHORTID = b->SHORTID
  268.     bFIRSTNAM = b->FIRSTNAM
  269.     bSURNAME = b->SURNAME
  270.     bTITLE = b->TITLE
  271.     bCALLRATE = b->CALLRATE
  272.     bINTEREST = b->INTEREST
  273.     bXMASCARD = b->XMASCARD
  274.     bXMASGIFT = b->XMASGIFT
  275.     bGOLFDAY = b->GOLFDAY
  276.     bNOTE = b->NOTE
  277.  RETURN
  278.  
  279.  
  280.  PROCEDURE REPLVARS1
  281.     REPLACE a->SHORTNAM WITH aSHORTNAM
  282.     REPLACE a->COMPANY WITH aCOMPANY
  283.     REPLACE a->ADDRESS1 WITH aADDRESS1
  284.     REPLACE a->ADDRESS2 WITH aADDRESS2
  285.     REPLACE a->ADDRESS3 WITH aADDRESS3
  286.     REPLACE a->ADDRESS4 WITH aADDRESS4
  287.     REPLACE a->POSTCODE WITH aPOSTCODE
  288.     REPLACE a->TELNO WITH aTELNO
  289.     REPLACE a->FAXNO WITH aFAXNO
  290.     REPLACE a->SALEAREA WITH aSALEAREA
  291.     REPLACE a->SALESREP WITH aSALESREP
  292.     REPLACE a->CREDIT WITH aCREDIT
  293.     REPLACE a->BUSTYPE WITH aBUSTYPE
  294.     REPLACE a->ACCNO WITH aACCNO
  295.     REPLACE a->TURNTARG WITH aTURNTARG
  296.     REPLACE a->LASTORD WITH aLASTORD
  297.  RETURN
  298.  
  299.  
  300.  PROCEDURE REPLVARS2
  301.     REPLACE a->IMPORT WITH aIMPORT
  302.     REPLACE b->SHORTID WITH bSHORTID
  303.     REPLACE b->FIRSTNAM WITH bFIRSTNAM
  304.     REPLACE b->SURNAME WITH bSURNAME
  305.     REPLACE b->TITLE WITH bTITLE
  306.     REPLACE b->CALLRATE WITH bCALLRATE
  307.     REPLACE b->INTEREST WITH bINTEREST
  308.     REPLACE b->XMASCARD WITH bXMASCARD
  309.     REPLACE b->XMASGIFT WITH bXMASGIFT
  310.     REPLACE b->GOLFDAY WITH bGOLFDAY
  311.     REPLACE b->NOTE WITH bNOTE
  312.  RETURN
  313.  
  314.  
  315.  PROCEDURE RELVARS1
  316.     RELEASE aSHORTNAM
  317.     RELEASE aCOMPANY
  318.     RELEASE aADDRESS1
  319.     RELEASE aADDRESS2
  320.     RELEASE aADDRESS3
  321.     RELEASE aADDRESS4
  322.     RELEASE aPOSTCODE
  323.     RELEASE aTELNO
  324.     RELEASE aFAXNO
  325.     RELEASE aSALEAREA
  326.     RELEASE aSALESREP
  327.     RELEASE aCREDIT
  328.     RELEASE aBUSTYPE
  329.     RELEASE aACCNO
  330.     RELEASE aTURNTARG
  331.     RELEASE aLASTORD
  332.  RETURN
  333.  
  334.  
  335.  PROCEDURE RELVARS2
  336.     RELEASE aIMPORT
  337.     RELEASE bSHORTID
  338.     RELEASE bFIRSTNAM
  339.     RELEASE bSURNAME
  340.     RELEASE bTITLE
  341.     RELEASE bCALLRATE
  342.     RELEASE bINTEREST
  343.     RELEASE bXMASCARD
  344.     RELEASE bXMASGIFT
  345.     RELEASE bGOLFDAY
  346.     RELEASE bNOTE
  347.  RETURN
  348.  
  349.  
  350.  PROCEDURE DUMMY
  351.  RETURN
  352.  
  353.  
  354.  PROCEDURE MENU1
  355.   LOCAL MKey
  356.  
  357.       SET ESCAPE OFF
  358.  
  359.  
  360.         SETCOLOR("R/W,W/R,,,N/W")
  361.  
  362.  
  363.       @ 22,5 PROMPT " ADD  " MESSAGE " "
  364.       @ 22,14 PROMPT " EDIT " MESSAGE " "
  365.       @ 22,23 PROMPT "DELETE" MESSAGE " "
  366.       @ 22,32 PROMPT " NEXT " MESSAGE " "
  367.       @ 22,41 PROMPT " PREV " MESSAGE " "
  368.       @ 22,50 PROMPT " FIND " MESSAGE " "
  369.       @ 22,69 PROMPT " QUIT " MESSAGE " "
  370.       @ 22,59 PROMPT "CONTACT" MESSAGE " "
  371.        MENU TO MKey
  372.        DO MENUCASE1 WITH MKey
  373.  RETURN
  374.  
  375.  
  376.  PROCEDURE MENU2
  377.   LOCAL MKey
  378.  
  379.       SET ESCAPE OFF
  380.  
  381.  
  382.         SETCOLOR("R/W,W/R,,,N/W")
  383.  
  384.  
  385.       @ 22,9 PROMPT " ADD  " MESSAGE " "
  386.       @ 22,18 PROMPT " EDIT " MESSAGE " "
  387.       @ 22,27 PROMPT "DELETE" MESSAGE " "
  388.       @ 22,36 PROMPT " NEXT " MESSAGE " "
  389.       @ 22,45 PROMPT " PREV " MESSAGE " "
  390.       @ 22,54 PROMPT " FIND " MESSAGE " "
  391.       @ 22,63 PROMPT "RETURN" MESSAGE " "
  392.        MENU TO MKey
  393.        DO MENUCASE2 WITH MKey
  394.  RETURN
  395.  
  396.  
  397.  PROCEDURE MENUCASE1
  398.    PARAMETER MKey
  399.     DO CASE
  400.  
  401.       CASE MKey = ASC("1")
  402.          DO Dummy
  403.       CASE MKey = ASC("2")
  404.          DO Dummy
  405.       CASE MKey = ASC("3")
  406.          DO Dummy
  407.       CASE MKey = ASC("4")
  408.          DO Dummy
  409.       CASE MKey = ASC("5")
  410.          DO Dummy
  411.       CASE MKey = ASC("6")
  412.          DO Dummy
  413.       CASE MKey = ASC("7")
  414.          DO Dummy
  415.       CASE MKey = ASC("8")
  416.          DO Dummy
  417.       OTHERWISE
  418. *        This line is included for debugging purposes
  419.          Disp_Bar = .F.
  420.  
  421.      ENDCASE
  422.  RETURN
  423.  
  424.  
  425.  PROCEDURE MENUCASE2
  426.    PARAMETER MKey
  427.     DO CASE
  428.  
  429.       CASE MKey = ASC("1")
  430.          DO Dummy
  431.       CASE MKey = ASC("2")
  432.          DO Dummy
  433.       CASE MKey = ASC("3")
  434.          DO Dummy
  435.       CASE MKey = ASC("4")
  436.          DO Dummy
  437.       CASE MKey = ASC("5")
  438.          DO Dummy
  439.       CASE MKey = ASC("6")
  440.          DO Dummy
  441.       CASE MKey = ASC("7")
  442.          DO Dummy
  443.       OTHERWISE
  444. *        This line is included for debugging purposes
  445.          Disp_Bar = .F.
  446.  
  447.      ENDCASE
  448.  RETURN
  449.  
  450.  
  451.