www.pudn.com > jq_caiwu.ARJ > FZBDY.PRG

 SET COLOR TO GR+/N 
 h = '19  年   月   日  (      )      ' 
 @ 3, 9 SAY '请输入报表日期' 
 SET COLOR TO 
 DO WHILE .T. 
      @ 6, 1 CLEAR TO 9, 35 
      @ 7, 1 GET h 
      READ 
      pd = 'N' 
      SET COLOR TO RB+/N 
      @ 8, 4 SAY '确认了吗? Y=是,其他=否' GET pd 
      READ 
      IF pd='Y' .OR. pd='y' 
           EXIT 
      ENDI 
      ?? CHR(7) 
      @ 8, 4 SAY '                          ' 
 ENDD 
 SET COLOR TO N/W 
 @ 3, 0 CLEAR TO 9, 35 
 SET COLOR TO W/N 
 @ 5, 8 CLEAR TO 10, 35 
 SET COLOR TO W+/B 
 @ 4, 5 CLEAR TO 9, 33 
 x1 = 4 
 x2 = 9 
 y1 = 5 
 y2 = 31 
 DO box-1 
 @ 6, 9 SAY '正在打印资产负债表!' 
 @ 7, 13 SAY '请稍候......' 
 DO WHILE .T. 
      IF SYS(13)<>'READY' 
           ?? CHR(7) 
           SET COLOR TO W/N 
           @ 5, 8 CLEAR TO 10, 35 
           SET COLOR TO W+/B 
           @ 4, 5 CLEAR TO 9, 33 
           x1 = 4 
           x2 = 9 
           y1 = 5 
           y2 = 31 
           DO box-1 
           @ 6, 9 SAY '打印机尚未准备好!' 
           @ 7, 9 SAY '准备好后按任意键......' 
           i = INKEY(0) 
           IF i=27 
                SET COLOR TO W+/N 
                @ 1, 1, 22, 78 BOX '鞍鞍鞍鞍鞍' 
                RETU 
           ENDI 
      ELSE 
           SET COLOR TO W+/B 
           @ 6, 8 CLEAR TO 8, 30 
           @ 6, 9 SAY '正在打印资产负债表!' 
           @ 7, 13 SAY '请稍候......' 
           EXIT 
      ENDI 
 ENDD 
 SET PRINTER ON 
 SET DEVICE TO PRINTER 
 SET CONSOLE OFF 
 rsele = SELECT() 
 SELE 0 
 USE set 
 kh = printer 
 USE 
 SELE (rsele) 
 jsq = 1 
 DO WHILE jsq<=kh 
      ? '   ' 
      jsq = jsq+1 
 ENDD 
 USE fzb 
 ?? '`@D`' 
 ? '                         资  产  负  债  表' 
 ? '    ' 
 ?? '`@A`' 
 @ PROW(), 1 SAY '编制单位:'+rdwmc 
 @ PROW(), 50 SAY h 
 @ PROW(), 90 SAY '会商01表 单位:元' 
 ?? '`&0' 
 ? '┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓' 
 ? '┃         资        产       │行│   年  初  数   │   期  末   数    │    负债及所有者权益      │行│    年  初  数  │    期  末  数    ┃' 
 ? '┠──────────────┼─┼────────┼─────────┼─────────────┼─┼────────┼─────────┨' 
 GOTO 1 
 DO WHILE .T. 
      ? '┃' 
      @ PROW(), 3 SAY zc 
      @ PROW(), 30 SAY '│' 
      @ PROW(), 32 SAY h1 
      @ PROW(), 34 SAY '│' 
      @ PROW(), 36 SAY ncs1 PICTURE '@z999999999.99' 
      @ PROW(), 52 SAY '│' 
      @ PROW(), 54 SAY nms1 PICTURE '@z999999999.99' 
      @ PROW(), 72 SAY '│' 
      @ PROW(), 74 SAY fz 
      @ PROW(), 100 SAY '│' 
      @ PROW(), 102 SAY h2 
      @ PROW(), 104 SAY '│' 
      @ PROW(), 106 SAY ncs2 PICTURE '@z999999999.99' 
      @ PROW(), 122 SAY '│' 
      @ PROW(), 124 SAY nms2 PICTURE '@z999999999.99' 
      @ PROW(), 142 SAY '┃' 
      pd = RECNO() 
      IF pd=36 
           EXIT 
      ENDI 
      ? '┠──────────────┼─┼────────┼─────────┼─────────────┼─┼────────┼─────────┨' 
      SKIP 
 ENDD 
 ? '┣━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┫' 
 @ PROW()+1, 0 SAY '┃                                       补       充       资        料                                                                       ┃' 
 ? '┣━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┫' 
 ? '┃         项　　　　目       │行│   数  量　(吨) │    金       额   │      项          目      │行│    数  量 (吨) │    金      额    ┃' 
 ? '┠──────────────┼─┼────────┼─────────┼─────────────┼─┼────────┼─────────┨' 
 GOTO 36 
 DO WHILE .T. 
      SKIP 
      ? '┃' 
      @ PROW(), 3 SAY zc 
      @ PROW(), 30 SAY '│' 
      @ PROW(), 32 SAY h1 
      @ PROW(), 34 SAY '│' 
      @ PROW(), 36 SAY ncs1 PICTURE '@z999999999.99' 
      @ PROW(), 52 SAY '│' 
      @ PROW(), 54 SAY nms1 PICTURE '@z999999999.99' 
      @ PROW(), 72 SAY '│' 
      @ PROW(), 74 SAY fz 
      @ PROW(), 100 SAY '│' 
      @ PROW(), 102 SAY h2 
      @ PROW(), 104 SAY '│' 
      @ PROW(), 106 SAY ncs2 PICTURE '@z999999999.99' 
      @ PROW(), 122 SAY '│' 
      @ PROW(), 124 SAY nms2 PICTURE '@z999999999.99' 
      @ PROW(), 142 SAY '┃' 
      pd = RECNO() 
      IF pd=43 
           EXIT 
      ENDI 
      ? '┠──────────────┼─┼────────┼─────────┼─────────────┼─┼────────┼─────────┨' 
 ENDD 
 ? '┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛' 
 ? '           企业主管:                          财务主管:            复核:                               制表: '+czy 
 ? ' ' 
 CLOS DATABASES 
 SET DEVICE TO SCREEN 
 SET CONSOLE ON 
 SET PRINTER OFF 
 SET COLOR TO W+/N 
 @ 1, 1, 22, 78 BOX '鞍鞍鞍鞍鞍' 
 RETU 
*