企业管理

开发平台：

VFP

PZHZDY.PRG：源码内容

							 recn = RECNO()
 SAVE SCREEN TO pm
 DO WHILE .T.
      IF SYS(13)<>'READY'
           ?? CHR(7)
           WAIT TO i WINDOW '打印机尚未准备好! 按 Q 键退出,按其他键继续....'
           IF i='Q' .OR. i='q'
                REST SCREEN FROM pm
                RETU
           ENDI
      ELSE
           EXIT
      ENDI
 ENDD
 SET PRINTER ON
 ? ' '
 ? '                              凭     证     汇     总     表  '
 ? ' ===================================================================================='
 ? '                                    '+STR(ryear, 4, 0)+' 年'+'   '+STR(ryf, 2, 0)+' 月  '
 ? ' '
 ? '科目代码             总帐科目                      借方金额              贷方金额'
 GOTO TOP
 DO WHILE  .NOT. EOF()
      ? '  '+kmdm+'          '+zzkm+'       '+STR(jje, 12, 2)+'          '+STR(dje, 12, 2)
      SKIP
 ENDD
 ? '  ================================JQ财务系统打印====================================='
 ? ' '
 GOTO recn
 REST SCREEN FROM pm
 SET PRINTER OFF
 RETU
*

						