dannis

在录入点中可以加入代码实现.

$FIN
Case ETAT
When "ZGJG-FYDXD"
    If dim([M:XEH0]ZPRNTHD)
        If [M:XEH0]ZPRNTHD=2
            Infbox '提示：该费用兑现单据已经打印过！'
        Else
            [M:XEH0]ZPRNTHD=2
            Affzo [M:XEH0]ZPRNTHD
            [F:EH0]ZPRNTHD=2
            Rewrite [F:EH0]
        Endif
    Endif
When Default
Endcase
Return