mzprint1.prg

门诊收费管理系统

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


 PRIVATE OLDSELE , FPZS , ZJE , K0 , DXJE
 DIMENSION KSL( 7 , M.GI_KSLS )
 SELECT V_MZLSH
 SCAN 
    M.PZH = PZH
    KSL = SPACE(8)
    K0 = 1
    FOR I = 1 TO 20
       Y( M.I , 2 ) = 0
    ENDFOR 
    SELECT MZTMPHZ
    SCAN FOR PZH = M.PZH
       IF MBID <> 0
          DO HANDBUSY
           SQLEXEC(HAND,'select pm from zymb where id=?mbid ','mbpm')
          M.MBPM = MBPM.PM
       ELSE 
          M.MBPM = ''
       ENDIF 
       SELECT MZTMPHZ
       FOR I = 1 TO 20
          IF FTYPE = M.I
             Y( M.I , 2 ) = Y(M.I,2) + JE
             EXIT 
          ENDIF 
       ENDFOR 
       KSL( 1 , M.K0 ) = STR(V_MZLSH.PZH,10)
       KSL( 2 , M.K0 ) = MZTMPHZ.SFKS
       KSL( 3 , M.K0 ) = V_MZLSH.NAME
       KSL( 4 , M.K0 ) = LEFT(Y(M.I,1),8)
       KSL( 5 , M.K0 ) = ALLTRIM(STR(MZTMPHZ.JE,9,2))
       KSL( 6 , M.K0 ) = M.GS_USERNAME
       KSL( 7 , M.K0 ) = DTOC(DATE())
       M.K0 = M.K0 + 1
       IF M.K0 < M.GI_KSLS + 1
          FOR I = M.K0 TO M.GI_KSLS
             KSL( 2 , I ) = '作废 '
          ENDFOR 
       ENDIF 
    ENDSCAN 
    M.DXJE = UPC(V_MZLSH.ZJE)
    M.ZJE = V_MZLSH.ZJE
    DO HANDBUSY
     SQLEXEC(HAND,'select fph from mzlsh where pzh=?m.pzh ','queryfph')
    M.FPH = QUERYFPH.FPH
    SELECT V_MZMX
    M.OP = V_MZLSH.OPKP
    SELECT MZTMPHZ
     Report form mzsj.frx &gs_prnt 
    SELECT V_MZLSH
 ENDSCAN 
 SELECT V_MZLSH
*