小编Tom*_*com的帖子

4GL Progress/opensge千分离

我想为这个值做千分之一100000000.我该怎么做呢?

示例代码

DEFINE VARIABLE mAmount AS DECIMAL  NO-UNDO.
ASSIGN mAmount = 100000000.
MESSAGE mAmount VIEW-AS ALERT-BOX INFO BUTTONS OK TITLE "Amount".
Run Code Online (Sandbox Code Playgroud)

progress-4gl openedge

0
推荐指数
1
解决办法
101
查看次数

对于每个,对于第一

For every 和 For First.. 的含义是什么?下面的示例

FOR EACH <db> NO-LOCK,
     FIRST <db> OF <db> NO-LOCK:
Run Code Online (Sandbox Code Playgroud)

展示 ..

这也是为什么我们每次都需要对每个表使用 NO-LOCK。

progress-4gl openedge

0
推荐指数
1
解决办法
564
查看次数

为每个文件拥有唯一文件名的最佳方法是什么?

我已经编写了一个程序,用于将某些文本文件导出到特定目录,我更喜欢使用MTIME来使每个导出文件具有唯一名称,这是最好的方法,但是问题出在我们的服务器上,另一个过程是使用MTIME导出具有不同数据的相同文件名因此将有机会巧合和改写。您能告诉我拥有唯一文件名的最佳方法吗?让我分享一些样本。

DEFINE INPUT PARAMETER ipData1 AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER ipData2 AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER ipData3 AS CHARACTER NO-UNDO.

DEFINE VARIABLE cExportData AS CHARACTER NO-UNDO FORMAT 'X(250)'.
DEFINE VARIABLE cPath AS CHARACTER NO-UNDO.
DEFINE VARIABLE cExt  AS CHARACTER NO-UNDO.
DEFINE VARIABLE cSFTL AS CHARACTER NO-UNDO FORMAT 'X(150)'.
DEFINE VARIABLE cMessageDateTime AS CHARACTER NO-UNDO.


ASSIGN
  cPath  = "R:\Downloads\progress\" 
  cExt   = ".Txt"
  cMessageDateTime = "123456789".

OUTPUT TO VALUE (cPath + cMessageDateTime + STRING(MTIME) + cExt ).   

put unformatted ipData1 …
Run Code Online (Sandbox Code Playgroud)

progress-4gl openedge

-1
推荐指数
1
解决办法
77
查看次数

想要搜索任意数据字段中包含“kan”的所有客户

我想搜索客户表的任何字段中包含“Kan”的所有客户。我应该怎么办?

progress-4gl openedge

-1
推荐指数
1
解决办法
49
查看次数

标签 统计

openedge ×4

progress-4gl ×4