Liren Large Software Subsidy 6/06.iso/b/b060/1.ddi/G_PRN001.PRG

Text File | 1993-11-08 | 1.1 KB | 49 lines

DIMENSION sx(6)
sx(1) = "┴π╩█"
sx(2) = "┼·╖ó"
sx(3) = "╡≈▓ª"
sx(4) = "╝▒╝■"
sx(5) = "╣╥╒╩"
sx(6) = "┤·╧·"

WAIT "╫╝▒╕║├┤≥╙í╗·ú¼░┤╚╬╥Γ╝ⁿ┐¬╩╝┤≥╙í" WINDOW

SET DEVICE TO FILE AAA.TXT &&PRINTER

SELECT D

@PROW()+3,30 SAY "┼Σ ╝■ ╧· ╩█ ╟σ ╡Ñ"
@PROW()+3,10 SAY "╨≥║┼:"+STR(d.xh)
@PROW()  ,60 SAY sx(d.dj_sx)
@PROW()+1,10 SAY "╙├╗º:"+d.dj_yh
@PROW()+2,10 say "┼Σ╝■├√│╞"
@PROW()  ,40 SAY "╩²┴┐"
@PROW()  ,56 say "╡Ñ╝█"
@PROW()  ,68 say "║╧╝╞"
@PROW()+1, 7 SAY "⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ"

SELECT C

LOCATE FOR c.xh = d.xh
DO WHILE .NOT.EOF()
    SELECT A
    SEEK c.ljno
*    LOCATE FOR a.ljbm = c.ljbm .AND. a.ljxh = c.ljxh
    @PROW()+1,10 SAY a.lj_mc
    SELECT C
    @PROW()  ,40 SAY c.xs_sl PICTURE "9999"
    @PROW()  ,50 SAY c.xs_jg PICTURE "9999999.99"
    ccc = c.xs_sl * c.xs_jg
    @PROW()  ,60 SAY ccc PICTURE "999999999.99"
    CONTINUE
ENDDO

SELECT D
@PROW()+1, 7 SAY "⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ"
@PROW()+1,56 SAY "╫▄╝╞"
@PROW()  ,60 SAY d.dj_jg PICTURE "999999999.99"
@PROW()+3,60 SAY "╚╒╞┌:"+DTOC(d.dj_rq)

SET DEVICE TO SCREEN

RETURN