赛捷软件论坛's Archiver

kakoo 发表于 2009-6-12 02:30

修改打印标识

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

luoxiong 发表于 2009-6-12 17:16

Re:修改打印标识

<P>我也想知道,不过我猜测是 </P><P><FONT face=Arial><U>开发</U><DIV style="DISPLAY: inline; MARGIN-LEFT: 4px; VERTICAL-ALIGN: middle; MARGIN-RIGHT: 4px" type="SEP" UNSELECTABLE="on">&gt;</DIV><DIV id=GTRT style="DISPLAY: inline; VERTICAL-ALIGN: middle; CURSOR: hand; TEXT-DECORATION: underline" onclick=initPupUp(this.id,this) type="MEN" UNSELECTABLE="on">程序</DIV><DIV style="DISPLAY: inline; MARGIN-LEFT: 4px; VERTICAL-ALIGN: middle; MARGIN-RIGHT: 4px" type="SEP" UNSELECTABLE="on">&gt;</DIV><DIV id=GESARP style="DISPLAY: inline; VERTICAL-ALIGN: middle" type="FUNC" UNSELECTABLE="on" NUM="173">报表&nbsp; 里的“标准程序”在控制。</DIV></FONT></P>

dannis 发表于 2009-6-13 01:24

Re:修改打印标识

<P>在录入点中可以加入代码实现.</P><P>$FIN<BR>Case ETAT<BR>When "ZGJG-FYDXD"<BR>&nbsp;&nbsp;&nbsp; If dim([M:XEH0]ZPRNTHD)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If [M:XEH0]ZPRNTHD=2<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Infbox &#39;提示:该费用兑现单据已经打印过!&#39;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [M:XEH0]ZPRNTHD=2<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Affzo [M:XEH0]ZPRNTHD<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [F:EH0]ZPRNTHD=2<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Rewrite [F:EH0]<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Endif<BR>&nbsp;&nbsp;&nbsp; Endif<BR>When Default<BR>Endcase<BR>Return</P>

kakoo 发表于 2014-7-12 11:15

谢谢, dannis   有用的代码。

页: [1]

Powered by Discuz! Archiver 7.2  © 2001-2009 Comsenz Inc.