home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b060 / 1.ddi / G_PRO002.PRG < prev    next >
Encoding:
Text File  |  1993-11-08  |  3.7 KB  |  187 lines
  1. PRIVATE choice, line, cash, ljmc, ljbm, ljxh
  2.  
  3. STORE 0 TO cash
  4.  
  5. SELECT A
  6. USE (LOCFILE("DATA_1.DBF","DBF","Where is data_1?"));
  7.     INDEX DATA_1 ;
  8.     AGAIN ALIAS A
  9. SET ORDER TO TAG LJNO OF DATA_1.CDX
  10. SELECT B
  11. USE (LOCFILE("DATA_2.DBF","DBF","Where is data_2?"));
  12.     INDEX DATA_2 ;
  13.     AGAIN ALIAS B
  14. SET ORDER TO TAG RKNO OF DATA_2.CDX
  15. SELECT C
  16. USE (LOCFILE("DATA_3.DBF","DBF","Where is data_3?"));
  17.     AGAIN ALIAS C
  18. SELECT D
  19. USE (LOCFILE("DATA_4.DBF","DBF","Where is data_4?"));
  20.     INDEX DATA_4 ;
  21.     AGAIN ALIAS D
  22. SET ORDER TO TAG XH OF DATA_4.CDX
  23.  
  24. APPEND BLANK
  25. REPLACE d.xh WITH RECNO(), d.dj_rq WITH DATE()
  26. REPLACE d.dj_sx WITH 1
  27.  
  28. DO G_SCR004.SPR
  29. line = ROW()+3
  30. DO WHILE .T.
  31.     SELECT C
  32.     APPEND BLANK
  33.     REPLACE c.xh WITH d.xh
  34.     STORE SPACE(40) TO ljmc    
  35.     
  36.   DO WHILE .T.
  37.     
  38.     DO WHILE .T.
  39.         SELECT C
  40.         STORE SPACE(20) TO ljbm
  41.         STORE SPACE(20) TO ljxh    
  42.         DO G_SCR006.SPR
  43.         SELECT A
  44.         IF ljbm = " " .AND. ljxh = " "
  45.             SET EXACT OFF
  46.             LOCATE FOR ATC(ALLTRIM(ljmc),a.lj_mc)>0
  47.             IF .NOT.EOF()
  48.                 BROWSE FIELDS a.lj_mc/20:H = " ┼Σ╝■├√│╞ ", a.lj_bm/20:H = " ▒α┬δ ", ;
  49.                 a.lj_xh/20:H = " ╨═║┼ ";
  50.                 FOR ATC(ALLTRIM(ljmc),a.lj_mc)>0 ;
  51.                 NODELETE ;
  52.                 NOAPPEND ;
  53.                 NOEDIT ;
  54.                 NOMENU ;
  55.                 TITLE " ┼Σ╝■╫╩┴╧▓Θ╤» " ;
  56.                 NORMAL
  57.                 
  58.                 SELECT C
  59.                 REPLACE c.ljno WITH a.ljno
  60.                 EXIT
  61.             ELSE
  62.                 WAIT "╬▐┤╦┼Σ╝■├√│╞" WINDOW
  63.             ENDIF
  64.         ELSE
  65.             LOCATE FOR a.lj_bm = ljbm .AND. a.lj_xh = ljxh
  66.             IF EOF()
  67.                 WAIT "╬▐┤╦┼Σ╝■▒α┬δ╗≥╨═║┼" WINDOW
  68.             ELSE
  69.                 REPLACE c.ljno WITH a.ljno
  70.                 EXIT
  71.             ENDIF
  72.         ENDIF
  73.     ENDDO
  74.     HIDE WINDOW scr006
  75.     
  76.     SELECT B
  77.     LOCATE FOR b.ljno = c.ljno .AND. b.kc_cs <> 0
  78.     IF .NOT.EOF()
  79.         BROWSE FIELDS b.kc_rq:H = "╜°╗⌡╚╒╞┌", b.kc_cs:H = " ┐Γ┤µ╩² ", ;
  80.             b.kc_pf:H = "  ┼·╖ó╝█ ", b.kc_ls:H = "  ┴π╩█╝█ ", ;
  81.             b.kc_cw:H = "      ▓╓╬╗      " ;
  82.             for b.ljno = c.ljno .AND. b.kc_cs <> 0 ;
  83.             NODELETE ;
  84.             NOAPPEND ;
  85.             NOEDIT ;
  86.             NOMENU ;
  87.             TITLE " "+ALLTRIM(a.lj_mc)+"┐Γ┤µ├≈╧╕ " ;
  88.             NORMAL
  89.         EXIT
  90.     ELSE
  91.         WAIT "┐Γ─┌╬▐┤╦┼Σ╝■" WINDOW
  92.     ENDIF
  93.     
  94.   ENDDO
  95.     
  96.     SELECT C
  97.     REPLACE c.xs_sl WITH b.kc_cs, c.rkno WITH b.rkno
  98.     IF d.dj_sx = 2
  99.         REPLACE c.xs_jg WITH b.kc_pf
  100.     ELSE
  101.         REPLACE c.xs_jg WITH b.kc_ls
  102.     ENDIF
  103.     STORE 1 TO choice
  104.     DO G_SCR005.SPR
  105.  
  106.     IF choice = 2 .OR. choice = 3
  107.         ACTIVATE WINDOW scr004 NOSHOW
  108.         @line+1,2 GET a.lj_mc ;
  109.             SIZE 1,20 ;
  110.             DEFAULT " " ;
  111.             DISABLE
  112.         @ROW(),24 GET c.xs_sl ;
  113.             SIZE 1, 4 ;
  114.             DEFAULT 0 ;
  115.             DISABLE
  116.         @ROW(),30 GET c.xs_jg ;
  117.             SIZE 1,10 ;
  118.             DEFAULT 0 ;
  119.             DISABLE
  120.    
  121.         cash2 = c.xs_jg * c.xs_sl
  122.         cash = cash + cash2
  123.    
  124.         @ 4,49 GET cash ;
  125.             SIZE 1,12 ;
  126.             DEFAULT 0 ;
  127.             DISABLE
  128.         @line+1,51 GET cash2 ;
  129.             SIZE 1,10 ;
  130.             DEFAULT 0 ;
  131.             DISABLE
  132.    
  133.         line = line+1
  134.    
  135.         ACTIVATE WINDOW scr005
  136.    
  137.         SELECT B
  138.         REPLACE b.kc_cs WITH b.kc_cs - c.xs_sl
  139.     ELSE
  140.         DELETE
  141.         PACK
  142.     ENDIF
  143.     
  144.     IF choice = 3
  145.         SELECT D
  146.         REPLACE d.dj_jg WITH cash
  147.         EXIT
  148.     ENDIF
  149. ENDDO
  150.  
  151. RELEASE WINDOW scr006
  152. RELEASE WINDOW scr005
  153.  
  154. @line+1,0 TO line+1,61
  155. CLEAR GETS
  156.  
  157. @line+3,19 GET choice ;
  158.     PICTURE "@*HT -╖┼  ╞·-;-┤≥  ╙í-;-▓╗┤≥╙í-" ;
  159.     SIZE 1,8,1 ;
  160.     DEFAULT 1
  161.  
  162. READ CYCLE
  163.  
  164. IF choice = 1
  165.     SELECT C
  166.     LOCATE FOR c.xh = d.xh
  167.     DO WHILE .NOT.EOF()
  168.         SELECT B
  169.         SEEK c.rkno
  170.         REPLACE b.kc_cs WITH b.kc_cs + c.xs_sl
  171.         SELECT C
  172.         CONTINUE
  173.     ENDDO
  174.     DELETE FOR c.xh = d.xh
  175.     PACK
  176.     SELECT D
  177.     DELETE
  178.     PACK
  179. ENDIF
  180.  
  181. IF choice = 2
  182.     DO G_PRN001.PRG
  183. ENDIF
  184.  
  185. RELEASE WINDOW scr004
  186. CLOSE DATABASE
  187. RETURN