赛捷软件论坛 » Sage ERP X3 » 处理没有上质检系统的项目中入库时点问题程序

dannis 发表于 2010-12-5 07:13

处理没有上质检系统的项目中入库时点问题程序

<P>##处理质检时的入库日期问题&nbsp;&nbsp;&nbsp;&nbsp; <BR>If clalev([F:YSTJ])=0 : Local File STOJOU&nbsp; [YSTJ] : Endif <BR>Local Char REQUEST(255)(2)<BR>&nbsp;&nbsp;&nbsp; REQUEST(0)="SELECT STOFCY_0,UPDCOD_0,ITMREF_0,IPTDAT_0,MVTSEQ_0,MVTIND_0,CREDAT_0 FROM STOJOU WHERE VCRNUM_0 IN (SELECT VCRNUM_0 FROM STOJOU WHERE STA_0=&#39;Q&#39; ) AND STA_0=&#39;A&#39; "<BR>&nbsp;&nbsp;&nbsp; REQUEST(1)=" AND IPTDAT_0&lt;&gt;CREDAT_0 AND IPTDAT_0&gt;=&#39;2010-10-01&#39; " <BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; For (Char STOFCY(10),Decimal UPDCOD,Char ITMREF(30),Date IPTDAT,Decimal MVTSEQ,Decimal MVTIND,Date CREDAT) From "S" Sql REQUEST As [LNK]<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Read [YSTJ]STJ0=[LNK]STOFCY;[LNK]UPDCOD;[LNK]ITMREF;[LNK]IPTDAT;[LNK]MVTSEQ;[LNK]MVTIND<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If !fstat<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [F:YSTJ]IPTDAT=[LNK]CREDAT<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Trbegin [YSTJ]<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Rewrite [F:YSTJ]&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Commit<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Endif<BR>&nbsp;&nbsp;&nbsp; Next <BR>Return<BR></P><P>这是我在一个项目中遇到的需求，实现的代码如上，供大家参考</P>

查看完整版本: 处理没有上质检系统的项目中入库时点问题程序