pzgs.prg

来自「一个非常好用的财务软件源程序」· PRG 代码 · 共 56 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: PZGS.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 = PUSE('dset')
 LOCATE FOR FNAME = '凭证'
 IF EOF()
    = APRINTERS(BPRINT)
    INSERT INTO dset ( FNAME , FPAPER , FPRINT , FFX , FLEFT ) VALUES ( '凭证' , 1 ,  ;
         ALLTRIM(BPRINT(1,1)) , 0 , 0 )
 ENDIF 
 BLEFT = FLEFT
 BHIGH = HEADHIGH
 BPRINT = 'DEVICE=' + FPRINT
 BPAPER = 'PAPERSIZE=' + ALLTRIM(STR(FPAPER,3))
 BFX = 'ORIENTATION=' + ALLTRIM(STR(FFX,1))
 DO CASE 
 CASE BMODE = 'AA'
    COPY File spz.frx TO ccc.frx
    COPY File spz.frt TO ccc.frt
 CASE BMODE = 'AB'
    COPY File spz1.frx TO ccc.frx
    COPY File spz1.frt TO ccc.frt
 CASE BMODE = 'BA'
    COPY File pz.frx TO ccc.frx
    COPY File pz.frt TO ccc.frt
 CASE BMODE = 'BB'
    COPY File pz1.frx TO ccc.frx
    COPY File pz1.frt TO ccc.frt
 ENDCASE 
 USE EXCLUSIVE ccc.frx
 COPY MEMO EXPR TO pset.txt
 BFILE = FOPEN('pset.txt')
 DIMENSION BSTR( 9 )
 FOR I = 1 TO 9
    BSTR( I ) = FGETS(BFILE)
 ENDFOR 
 = FCLOSE(BFILE)
 BFILE = FCREATE('pset.txt')
 BSTR( 2 ) = BPRINT
 BSTR( 4 ) = BFX
 BSTR( 5 ) = BPAPER
 FOR I = 1 TO 9
    = FPUTS(BFILE,BSTR(I))
 ENDFOR 
 = FCLOSE(BFILE)
 APPEND MEMO EXPR FROM pset.txt OVERWRITE 
 REPLACE HPOS WITH BLEFT * 1000 , WIDTH WITH WIDTH - HPOS
 REPLACE VPOS WITH (VPOS + 500 * BHIGH)
 IF BCOLOR = 1
    REPLACE PENGREEN WITH -1 , PENRED WITH -1 , PENBLUE WITH -1 FOR RECNO() <> 78
 ENDIF 
 USE 
*