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

dannis

##处理质检时的入库日期问题    
If clalev([F:YSTJ])=0 : Local File STOJOU  [YSTJ] : Endif
Local Char REQUEST(255)(2)
    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='Q' ) AND STA_0='A' "
    REQUEST(1)=" AND IPTDAT_0<>CREDAT_0 AND IPTDAT_0>='2010-10-01' "
   
    For (Char STOFCY(10),Decimal UPDCOD,Char ITMREF(30),Date IPTDAT,Decimal MVTSEQ,Decimal MVTIND,Date CREDAT) From "S" Sql REQUEST As [LNK]
       Read [YSTJ]STJ0=[LNK]STOFCY;[LNK]UPDCOD;[LNK]ITMREF;[LNK]IPTDAT;[LNK]MVTSEQ;[LNK]MVTIND
       If !fstat
               [F:YSTJ]IPTDAT=[LNK]CREDAT
               Trbegin [YSTJ]
                 Rewrite [F:YSTJ]  
               Commit
       Endif
    Next
Return

这是我在一个项目中遇到的需求，实现的代码如上，供大家参考