** 数字输入中的无效字符 /。 (76) - 进展 4GL

Question

我遇到以下功能问题。我将其导出到 .xml 文件，在日志文件中我收到错误“** 数字输入中的无效字符 /. (76)”。请帮我解决这个问题。

CLASS JITS.BE.ANDON.DataItems :

    CONSTRUCTOR PUBLIC DataItems():        
    END.

    DEFINE PUBLIC VARIABLE cValue               AS LONGCHAR NO-UNDO.

    DEFINE TEMP-TABLE AlertList NO-UNDO 
           FIELD Item AS CLASS Progress.Lang.Object.
     /* Method for storing alerts against an item instance */
    METHOD PUBLIC VOID AddAlerts(INPUT alert AS CLASS JITS.BE.ANDON.Alerts):
        CREATE AlertList.
        AlertList.Item = alert.
    END.

    /* Method to retrieve alerts against an instance */
    METHOD PUBLIC VOID GetAlerts(OUTPUT TABLE  AlertList):
    END.    

END CLASS.



FUNCTION GETLASTSEQDATETIME RETURNS CHARACTER (INPUT mYObj AS CLASS JITS.BE.ANDON.DataItems):

  ASSIGN mYObj:cValue = '99/99/9999 00:00:00'.

  FIND FIRST sfcf_au where sfcf_au.assu_id = ENTRY(2,mYObj:CPARAMETER,"|") NO-LOCK NO-ERROR.
  FIND FIRST sfcf_au_ship OF sfcf_au NO-LOCK NO-ERROR. 

  FOR LAST comh_corder_version_head NO-LOCK:
      ASSIGN 
           mYObj:cValue = STRING(comh_corder_version_head.covh_received_date) + " " + STRING(comh_corder_version_head.covh_received_time,"HH:MM:SS"). 

      LEAVE.
  END.

    RETURN ''.
END FUNCTION.

Answer 1

我有点难以理解您的代码片段。例如，我看不到 myObj:CPARAMETER 的来源，或者它的值是什么。您也没有告诉我们错误的来源，所以我不得不猜测并做出假设。如果你想知道错误来自哪里，那么你需要在代码中添加调试信息。

但我认为是 myObj:CPARAMETER 的使用导致了错误。而且我还假设它在某种程度上有一个日期。我假设 assu_id 是一个整数值，并且 ABL 正在进行 ENTRY (2,...) 到 INT 的运行时转换，但失败了，因为 ENTRY 是一个字符值，然后被转换为一个 INT。

不过，所有这些都是基于假设。

** 数字输入中的无效字符 /。 (76) - 进展 4GL

** Invalid character in numeric input /. (76) - PROGRESS 4GL

progress-4gl

openedge