修改打印标识

kakoo

我们在打印工单的时候,系统自动回修改打印标志字段,请问 这是怎么实现的?谢

luoxiong

我也想知道，不过我猜测是

开发

>

程序

>

报表  里的“标准程序”在控制。

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

kakoo

谢谢， dannis   有用的代码。