企业管理

开发平台：
VFP

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
*

						