EXCEL數據導入TIPTOP ERP 系統

測試系統TIPTOP GP 3.0

主要用到DDE API

函數	描述
DDEConnect	This function opens a DDE connection
DDEExecute	This function executes a command in the specified program
DDEFinish	This function closes a DDE connection
DDEFinishAll	This function closes all DDE connections, as well as the DDE server program
DDEError	This function returns DDE error information about the last DDE operation
DDEPeek	This function retrieves data from the specified program and document using the DDE channel
DDEPoke	This function sends data to the specified program and document using the DDE channel

首先看EXCEL文檔內容如下圖：

4gl程序如下圖：

4gl程序代碼如下：

###20120406 BY FMX------LOAD FROM EXCEL-----------
FUNCTION load_from_excel()
 DEFINE program  VARCHAR(128),   #Name of the DDE server program
        document VARCHAR(128),   #Name of the DDE document
        ls_file_path string,
        row      SMALLINT,
        cel      SMALLINT,
        row_cel  STRING,
        l_msg    VARCHAR(100),
        l_len    SMALLINT,
        l_n      SMALLINT,
        l_excelseq SMALLINT,
        Returns  SMALLINT,
        l_ac     SMALLINT,
        l_sl     SMALLINT
 DEFINE l_tc_sfb RECORD LIKE tc_sfb_file.*
 DEFINE cmd VARCHAR(500)
 DEFINE res SMALLINT
 DEFINE val STRING
 DEFINE ret SMALLINT
 DEFINE var STRING
 DEFINE var2    VARCHAR(40)
 DEFINE l_flag  VARCHAR(100)  #判斷必要欄位是否有輸入  #No.FUN-690028 CHAR(1)
 DEFINE l_sql   STRING

 LET l_ac=1
 LET l_sl=1
 LET program="EXCEL"

  #開窗選擇檔案
   OPEN WINDOW csfi002_load_w WITH FORM "csf/42f/csfi002_load"
   CALL cl_ui_locale("csfi002_load")

   INPUT ls_file_path WITHOUT DEFAULTS  FROM FORMONLY.doc_path
      ON ACTION open_file
         CALL cl_browse_file() RETURNING ls_file_path
         DISPLAY ls_file_path TO FORMONLY.doc_path
      ON ACTION exit
         EXIT INPUT
   END INPUT

   IF INT_FLAG THEN
      LET INT_FLAG = FALSE
      CLOSE WINDOW csfi002_load_w
      RETURN
   END IF

###判斷路徑是否爲空
   IF ls_file_path IS NULL  THEN
      CLOSE WINDOW csfi002_load_w
      RETURN
   ELSE
      LET document = ls_file_path
      DISPLAY 'ls_file_path = ',document
   END IF

      LET l_len = LENGTH(document)
      IF l_len<=4 THEN
          LET document= document CLIPPED,'.xls'
        ELSE
          IF DOWNSHIFT(document[l_len-3,l_len])!='.xls' THEN
             LET document= document CLIPPED,'.xls'
          END IF
       END IF

    CALL ui.Interface.frontCall("WINDDE","DDEConnect",[ program, document ], Returns )
    LET row=2   ###從第二行開始
    WHILE TRUE
            INITIALIZE l_tc_sfb.* TO NULL
         #讀取工單單號 [tc_sfb01]
            LET cel=1    ##第一列
             LET row_cel='R',(row USING '<<<<<'),'C',(cel USING '<<<<<')
             CALL ui.Interface.frontCall("WINDDE","DDEPeek", [program,document,row_cel], [Returns,val])
              LET var2=val CLIPPED
            IF (var2 IS NULL OR var2=' ') THEN
                 ERROR '單號不可爲空'
               EXIT WHILE
            END IF
            LET l_tc_sfb.tc_sfb01 = var2

         #讀取投產期 [tc_sfb022]
            LET cel=2   ##第二列
            LET row_cel='R',(row USING '<<<<<'),'C',(cel USING '<<<<<')
             CALL ui.Interface.frontCall("WINDDE","DDEPeek", [program,document,row_cel], [Returns,val])
             LET var2=val CLIPPED
            IF (var2 IS NULL OR var2=' ') THEN
                ERROR '投產期不可爲空'
               EXIT WHILE
            END IF
            LET l_tc_sfb.tc_sfb022 = var2

         #讀取完成期 [tc_sfb023]
            LET cel=3   ##第3列
            LET row_cel='R',(row USING '<<<<<'),'C',(cel USING '<<<<<')
             CALL ui.Interface.frontCall("WINDDE","DDEPeek", [program,document,row_cel], [Returns,val])
             LET var2=val CLIPPED
            IF (var2 IS NULL OR var2=' ') THEN
                ERROR '完成期不可爲空'
               EXIT WHILE
            END IF
            LET l_tc_sfb.tc_sfb023 = var2

         #讀取機臺生產線 [tc_sfb03]
            LET cel=4   ##第4列
            LET row_cel='R',(row USING '<<<<<'),'C',(cel USING '<<<<<')
             CALL ui.Interface.frontCall("WINDDE","DDEPeek", [program,document,row_cel], [Returns,val])
             LET var2=val CLIPPED
#            IF (var2 IS NULL OR var2=' ') THEN
#               ERROR '機臺生產線不可爲空'
#               EXIT WHILE
#            END IF
            LET l_tc_sfb.tc_sfb03 = var2

         #讀取是否排班 [tc_sfb05]
            LET cel=5   ##第5列
            LET row_cel='R',(row USING '<<<<<'),'C',(cel USING '<<<<<')
            CALL ui.Interface.frontCall("WINDDE","DDEPeek", [program,document,row_cel], [Returns,val])
            LET var2=val CLIPPED
            LET l_tc_sfb.tc_sfb05 = var2

         #讀取白班 [tc_sfb07]
            LET cel=6  ##第6列
            LET row_cel='R',(row USING '<<<<<'),'C',(cel USING '<<<<<')
            CALL ui.Interface.frontCall("WINDDE","DDEPeek", [program,document,row_cel], [Returns,val])
            LET var2=val CLIPPED
            LET l_tc_sfb.tc_sfb07 = var2

         #讀取夜班  [tc_sfb08]
            LET cel=7   ##第7列
            LET row_cel='R',(row USING '<<<<<'),'C',(cel USING '<<<<<')
            CALL ui.Interface.frontCall("WINDDE","DDEPeek", [program,document,row_cel], [Returns,val])
            LET var2=val CLIPPED
            LET l_tc_sfb.tc_sfb08 = var2

 LET row=row+1
    SELECT COUNT(*) into l_n FROM tc_sfb_file
    WHERE tc_sfb01 =l_tc_sfb.tc_sfb01
#   AND tc_sfb022 IS NULL
#   AND tc_sfb023 IS NULL
    IF l_n>0 THEN
        UPDATE tc_sfb_file SET tc_sfb022=l_tc_sfb.tc_sfb022,
                               tc_sfb023=l_tc_sfb.tc_sfb023,
                               tc_sfb03=l_tc_sfb.tc_sfb03,
                               tc_sfb05=l_tc_sfb.tc_sfb05,
                               tc_sfb07=l_tc_sfb.tc_sfb07,
                               tc_sfb08=l_tc_sfb.tc_sfb08
                         WHERE tc_sfb01=l_tc_sfb.tc_sfb01
      IF STATUS OR SQLCA.SQLERRD[3] = 0 THEN
         CALL cl_err3("upd","tc_sfb_file",l_tc_sfb.tc_sfb01,"",STATUS,"","upd tc_sfb01",1) #TQC-660045
         LET g_success = 'N' RETURN
      END IF
  ###將導入的開工日和完工日更新到工單上------
      UPDATE sfb_file SET sfb13 = l_tc_sfb.tc_sfb022,
                          sfb15 = l_tc_sfb.tc_sfb023
                   WHERE  sfb01 = l_tc_sfb.tc_sfb01
     IF STATUS OR SQLCA.SQLERRD[3] = 0 THEN
        CALL cl_err3("upd","sfb_file",l_tc_sfb.tc_sfb01,"",STATUS,"","upd sfb01",1) #TQC-660045
        LET g_success = 'N' RETURN
     END IF
   END IF
  ###END------------------------
            CONTINUE WHILE
            IF row>20000 THEN
               ERROR '只能顯示20000行!現只產生前20000行資料!'
               EXIT WHILE
            END IF
            LET l_ac=l_ac+1
            LET l_sl=l_sl+1
    END WHILE

--   CALL DDEFinishAll()
     CALL cl_end2(1) RETURNING l_flag

     CALL i002_b_fill('1=1')                 #單身
     CLOSE WINDOW csfi002_load_w

END FUNCTION
###END*******************************************