baktems.prg

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

 SELECT 1
USE BAKTEM EXCL
ZAP
TOTAL ON Z_GH TO TEM
INDEX ON Z_LSH TO TEM.EDX ADDITIVE
SELECT 2
USE TEM excl
     SELECT KHDATA
    B=RECCOUNT()
FOR SKIP = 1 TO B 
     SCATTER TO KA
     IF KHDATA.Z_BGXS="进口清关"
     BGF1=JKQG1
     BGF2=JKQG2
     ELSE
     BGF1=CKQG1
     BGF2=CKQG2
     ENDIF
     K=MEMLINE(KHDATA.Z_GH)
     STORE 0 TO _MLINE    
     FOR COUNT = 1 TO K
     SELECT 2
     ZAP
     APPEND FROM ARRAY KA
     AA=MLINE(KHDATA.Z_GH,1,_MLINE)
     REPLACE TEM.Z_GH WITH AA 
      SELECT 1
      APPEND FROM TEM
      IF COUNT=1
       REPLACE Z_BGF WITH BGF1
      LOOP
      ENDIF
      blank fields z_SJF,z_TDF,z_CGF,Z_ZJF,Z_WJF,Z_MTF,Z_DCF,Z_CZF,Z_QTF,Z_MO
      REPLACE Z_BGF WITH BGF2
      ENDFOR
      SELECT KHDATA 
      SKIP      
ENDFOR
    FOR COUNT = 1 TO B
     ENDFOR
    SELECT BAKTEM 
    DELETE FOR ISBLANK(Z_GH)=.T.
  PACK DBF