_type.prg

门诊收费管理系统

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


 PARAMETER M.VAR , VTYPE
 IF PARAMETERS() <= 1
    RETURN .F.
 ENDIF 
 DO CASE 
 CASE UPPER(M.VTYPE) = 'C'
    DO CASE 
    CASE TYPE('M.VAR') = 'U'
       RETURN ''
    CASE TYPE('M.VAR') = 'C'
       RETURN M.VAR
    CASE TYPE('M.VAR') = 'N'
       RETURN IIF(M.VAR = 0,' ',ALLTRIM(STR(M.VAR)))
    CASE TYPE('M.VAR') = 'L'
       RETURN IIF(M.VAR,'T','')
    CASE TYPE('M.VAR') = 'D'
       RETURN DTOC(M.VAR)
    OTHERWISE 
       RETURN ''
    ENDCASE 
 CASE UPPER(M.VTYPE) = 'N'
    DO CASE 
    CASE TYPE('M.VAR') = 'U'
       RETURN 0
    CASE TYPE('M.VAR') = 'N'
       RETURN M.VAR
    CASE TYPE('M.VAR') = 'C'
       RETURN VAL(M.VAR)
    CASE TYPE('M.VAR') = 'L'
       RETURN IIF(M.VAR,1,0)
    CASE TYPE('M.VAR') = 'D'
       RETURN SYS(11,M.VAR)
    OTHERWISE 
       RETURN 0
    ENDCASE 
 CASE UPPER(M.VTYPE) = 'D'
    DO CASE 
    CASE TYPE('M.VAR') = 'U'
       RETURN {}
    CASE TYPE('M.VAR') = 'N'
       RETURN CTOD(SYS(10,M.VAR + 2450000))
    CASE TYPE('M.VAR') = 'C'
       RETURN CTOD(M.VAR)
    CASE TYPE('M.VAR') = 'L'
       RETURN IIF(M.VAR,DATE(),{})
    CASE TYPE('M.VAR') = 'D'
       RETURN M.VAR
    OTHERWISE 
       RETURN {}
    ENDCASE 
 CASE UPPER(M.VTYPE) = 'L'
    DO CASE 
    CASE TYPE('M.VAR') = 'U'
       RETURN .F.
    CASE TYPE('M.VAR') = 'N'
       RETURN IIF(M.VAR <= 0,.F.,.T.)
    CASE INLIST(TYPE('M.VAR'),'C','D')
       RETURN  .NOT. EMPTY(M.VAR)
    CASE TYPE('M.VAR') = 'L'
       RETURN M.VAR
    OTHERWISE 
       RETURN .F.
    ENDCASE 
 OTHERWISE 
 ENDCASE 
*