tem.prg

来自「功能模块:报关操作,运输操作,报关查询,运输查询」· PRG 代码 · 共 55 行

SELECT KHDATA
SELECT * FROM ZSJ!ZSJTEM INTO TABLE BAKTEM.DBF
SELECT baktem
ZAP
SELECT * FROM BAKTEM WHERE Z_GH=" " INTO TABLE TEM
*!*	TOTAL ON Z_GH TO TEM
*!*	INDEX ON Z_BGDH TO TEM.EDX ADDITIVE
if !used("tem")
   SELECT 2
   use tem excl
endif
SELECT tem

SELECT KHDATA
    B=RECCOUNT()
FOR SKIP = 1 TO B 
     SCATTER TO KA
*!*	 DO  CASE
*!*	CASE Z_BGXS="出口清关"
*!*	bgf1=ckqg1
*!*	bgf2=ckqg2
*!*	CASE Z_BGXS="进口清关"
*!*	bgf1=JKqg1
*!*	BGF2=JKQG2
*!*	CASE Z_BGXS="进口转关"
*!*	bgf1=Z_BGF
*!*	BGF2=Z_BGF
*!*	CASE Z_BGXS="出口转关"
*!*	bgf1=Z_BGF
*!*	BGF2=Z_BGF
*!*	ENDCASE
     K=MEMLINE(KHDATA.Z_GH)
     STORE 0 TO _MLINE    
     FOR COUNT = 1 TO K
     SELECT tem
     ZAP
     APPEND FROM ARRAY KA
     AA=MLINE(KHDATA.Z_GH,1,_MLINE)
     REPLACE TEM.Z_GH WITH AA 
      SELECT baktem
      APPEND FROM TEM
      IF COUNT=1
*!*	      REPLACE Z_BGF WITH BGF1
       LOOP
      ENDIF
      blank fields Z_BGF,z_SJF,z_HGF,z_FDF,Z_MTF,Z_QTF,Z_JSF,Z_CGF,Z_DCF,Z_TGF,Z_CZF,Z_CPH,Z_HM,Z_DCH,Z_MO,Z_GS,Z_GX,Z_BGDH
      REPLACE Z_BGF WITH BGF2
      ENDFOR
      SELECT KHDATA 
      SKIP      
ENDFOR
    SELECT BAKTEM 
    DELETE FOR ISBLANK(Z_GH)=.T.
  PACK DBF