baktem.prg

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

SELECT 1
USE BAKTEM EXCL
ZAP
TOTAL ON Z_GH TO TEM
INDEX ON Z_BGDH TO TEM.EDX ADDITIVE
SELECT 2
USE TEM excl
     SELECT KHDATA
    B=RECCOUNT()
FOR SKIP = 1 TO B 
     SCATTER TO KA
     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
           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
      ENDFOR
      SELECT KHDATA 
      SKIP      
ENDFOR
    SELECT BAKTEM 
    DELETE FOR ISBLANK(Z_GH)=.T.
  PACK DBF