当前位置:首页 >> 英语 >>

progress language 1


一、16.1 中日期 wo_ord_date 把 09 年以前的全部找出来怎么写?

一层:for each wo_mstr where wo_domain = global_domain and wo_ord_date < 01/01/09 no-lock: disp ...... end. 二、for each 查询包含某个字符应该怎么写
楼主:for each pt.mstr where pt_desc1 desc1 中包含某个字符应该怎么写呀 一层:matches "*aaaa*" 二层: for each pt_mstr where pt_desc1 matches "*拉链*" : display pt_part pt_desc1. end. 三、PROGRESS .i 文件中定义变量要小心 PROGRESS 程序中的.I 写程序时要注意 定义一个变量时最好用以下语句 &if defined(shipnbr) = 0 &then &scoped-define shipnbr "" &endif 因为假如你用 define var a as 很可能调用的.P 调用两次该.I 时 ,由于 PROGRESS 的编译原理是把.I 的内容直接放到.P 后 再编译,这时很明显编译前的.P 的内容就是有两行 define var a as ,编译就会出错提示重复定义了 VAR A Thank TOP-CODER 四、PROGRESS 插入数据,修改数据和删除数据各用什么命令 一层: create update delete 五、progress 的数组怎么用? 一层: define variable [var] as [type] extent [size] var[1] = 123123123. 好像必须固定长度,不能定义变长的数组 六、Progress 语法如何判定目录是否存在 Fixes: In order to determine if a particular directory exists, use the FILE-INFO handle. For example, the code:

/* Set the directory name in question */ FILE-INFO:FILE-NAME = "dirname".

/* display the attributes of "dirname" */ MESSAGE FILE-INFO:FILE-TYPE VIEW-AS ALERT-BOX.
will display 'D' if the directory exists and a '?' if it does not exist. 如果存在的目录则显示"DRW" , 如果存在文件"FRW",假如是不存在的文件和目录则为? RW 应该为可读写. 七、QAD 数据库通讯端口设置 QAD 系统需要用到一些服务端口,需要自行设置: 修改/etc/services 文件,在最后增加一行相关数据的通讯协议

DEMO 数据要三行分别为 mfgdemo 60000/tcp hlpdemo 60001/tcp admdemo 60002/tcp train 数据要三行分别为 mfgtrain 70000/tcp hlptrain 70001/tcp admtrain 70002/tcp prod 数据要三行分别为 mfgprod 80000/tcp hlpprod 80001/tcp admprod 80002/tcp 如果有其他数据依此类推。 Thank oraggle 八、定义变量时加 no-undo 是何意? 一层:no-undo,是对于 undo,retry 这个而言的,一般情况下遇到 undo,retry 之后,操作会回滚,包括变量值,如果变量使 用 no-undo 的话,虽然回滚,但值不变 九、定义数组和数组赋值语句怎么写 DEF VAR i AS INT EXTENT 9. DEF VAR j AS INT. DO j = 1 TO 9: i[j] = j. END. DEF VAR i AS INT EXTENT 9. DEF VAR j AS INT. DO j = 1 TO 9: i[j] = j. END. 十、计算当前日期是一周中的星期几函数 weekday(today) 结果: 周日是 1,周六是 7 十一、请问取小数点后的函数是什么?

方法一: disp 8.77 - int(8.77). 方法二: disp 8.77 - truncate(8.77,0). 方法三: ENTRY(2,string(8.77),".") 可以这样啊 ENTRY(2,string(8.77,->>>>>>9.9<<<<<<),".")

十二、请问如何用 progress 新增修改及删除一条记录 楼主: 我用下面语句修改一条记录时出错. for each pt_mstr. display pt_part,pt_desc1. end. pt_part='10-04001017' pt_desc1='Spring,Printwire Return test' 出现如下提示: ** Unable to update pt_mstr Field. (142) 二层: for each pt_mstr. display pt_part,pt_desc1. end. 都 end 了 三层: 删除 for each pt_mstr where pt_part = "10-04001017": delete pt_mstr. end. 建议 del update 的时候加上 exclusive-lock

十三、如果用 Select from 语句,要用 index 如何写在 Progress 里 一层:你用 sql 的话 where 里的条件隐式的会使用 index 的 楼主:你用 sql 的话 我是想用 Select 来查 Progress 里的数据.它也会用吗? 二层:会的,如果你想显式选择 index 可以 select xxxxxx WITH INDEX xxx 楼主:

SELECT [ALL|DISTINCT] {*|column-list} [INTO variable-list] FROM { table-name [correlation-name] | implicit-join | explicit-join } [WHERE search-condition] [GROUP BY column [,column]...] [HAVING search-condition] [ORDER BY sort-criteria] [WITH frame-options [STREAM stream] [EXPORT]] 十四、如何调整 mfg 中显示的字体类型、大小? 一层: progress.svg 十五、如何使用 cimload 导入多记录(multiple entries) 如 CIMLOAD 16.11 时 把 multiple entries 设成 Y 然后进行 CIMLOAD 时要小心,把变量 BATCHRUN 设成 Y,否则会出现 progress 错误 26Error: Array subscript 0 is out of range. (26) Thank TOP-CODER 十六、如何通过程序判断自动显示页码如:3-1,3-2,3-3 一层:不用你去判断吧,QAD 本身的 mfphead.i 里就有了,你直接用他的变量好了 楼主:如果不用它的换页的话还是要自己算的 二层:先算总页数,再算第几页。 十七、谁知道 tr_hist 跟 GLT_HIST 是通过哪个关联的啊 一层:先要 glt_hist 的 glt_ref 关联 trgl_hist 的 trgl_gl_ref,然后 trgl_hist 的 trgl_trnbr 关联 tr_hist 的 tr_trnbr 楼主:没有 trgl_hist 这个表啊 二层:是 trgl_det 写错了 十八、我想存储时间以 INTEGER 的形式,但是我想跟新时间以 HHMMSS 的格式来更新 楼主: define variable a as integer. update a format "HH:MM:SS". 一层:那 a 只能是 char, 你必须将其转换计算成秒储存 二层:定义为字符形式,然后自己在背景转换,直接这样用肯定是不行的

十九、虚零件这个栏位 pt_phantom 字段类型是什么?
楼主:我这写 for each pt_mstr where pt_phantom="Yes" no-lock:会报错 一层:是 logical 的

pt_phantom=trun 不写引号 用 yes 也是可以的 二十、在 progress 里面通过什么语法把明细数据按照某两列进行汇总 一层: break by , SQL 中用 group by 楼主: 按单号汇总我的代码如下: for each qod_det no-lock where qod_nbr ='QJO90005' break by qod_nbr : ACCUMULATE qod_qty_quot ( TOTAL by qod_nbr ). if LAST-OF(qod_nbr ) then Display qod_nbr ACCUM TOTAL BY qod_nbr qod_qty_quot label "SUM Part". End. 二十一、增加字段的通用代码验证功能 通常如 1.4.1 中某些字段,如 pt_group 会有提示:口令和通用代码有效性核对字段: pt_group 其实这是要在通过修改数据表和从新编译相关程序来实现的. 1.进入数据字典找到该表修改该字段,在 Valexp:中增加{gpcodsec.v pt_group}, 当然 pt_group 必须已经在通用代码中的字段 名称中存在. 2.修改完后,从新编译 gpsecxr.p. 完成后,你可以通过在执行程序中选择该字段按"ctrl+f",得到相关的提示. Thank TOP-CODER 二十二、知某个编码开头的最后一个零件名称,如何快速得到,如 VC 开头。 where pt_part begins "VC": disp pt_part pt_desc1. 或者: for each pt_mstr where substring(pt_part,1,2) = "VC": disp pt_part pt_desc1. 或: for each pt_mstr where substring(pt_part,1,2) = "01" break by pt_desc1 desc: if last (pt_desc1) THEN DO: disp pt_part pt_desc1. END. END.

1,在 1.4.3 中输入 PZZZZZ,(当然你要知编码规则)这样你打到就是可能就不是以 PZ 打头的零件号。 2,按回车,这时这个你找出来的零件号就放在了 1.4.3 里面的零件号字段那里啦 3,然后,你再按向上的光标键, 4。这里,你要的以 PZ 打头的最后一个零件号就出来了 二十三、自动判断当月有多少天 方法一: yr = year(today). mth = month(today). yr1 = yr. mth1 = mth + 1. if mth1 = 13 then assign yr1 = yr + 1 mth1 = 1. dt = date(mth1,01,yr1) - 1. day(dt). 方法二: select case 月份 case 1,3,5,7,8,10,12 天数=31 case 4,6,9,11 天数=30 if 年份 mod 100<>0 and 年份 Mod 4=0 then 天数=29 else 天数=28 end if end select


相关文章:
八年级英语上册 Unit 1 Progress Check 1教案 牛津深圳...
八年级英语上册 Unit 1 Progress Check 1教案 牛津深圳版五四制_初中教育_教育...Language focus and difficult points: To apply words and sentence patterns ...
progress学习
───────────────────────────────────────── Progress 程序的分类: .p 主程序(源程序) .i 子程序(不能...
Progress test 1 key
Straightforward Elementary Progress Test 1 Answer key Language section Vocabulary 1 Russia 2 Japanese 3 live 4 small 5 sister 6 work 7 student 8 studies...
八年级英语上册 Unit 1 Progress Check 1教案 牛津深圳...
八年级英语上册 Unit 1 Progress Check 1教案 牛津深圳版五四制_初中教育_教育...Language focus and difficult points: To apply words and sentence patterns ...
一模块一单元 welcome reading
On the first day Mr Heywood Teachers Miss Burke Size of a classroom Subjects Food Wei Hua’s feelings and progress Step 2. Language focus 1. Words: ...
Progress test 3 key
Straightforward Elementary Progress Test 3 Answer key Language section Vocabulary 1 flying 2 headache 3 sick 4 waiting 5 airport 6 plane 7 salty 8 cooked...
E9安装指南 Progress版
进入 Progress 安装向导,选择典型安装,下步, 选择安装路径,以 D 盘为例,...进入 Epicor 后,进入任意公司节点,至 System Management->Utilities->Language ...
Progress test 2 key
Straightforward Elementary Progress Test 2 Answer key Language section Vocabulary 1 a) snowy 2 c) summer 3 a) awful 4 b) Wednesday 5 d) rainy 6 bir...
新牛津深圳版八年级英语上册Unit 1 Progress Check 1 教案
新牛津深圳版八年级英语上册Unit 1 Progress Check 1 教案_英语_初中教育_教育...Language focus and difficult points: To apply words and sentence patterns ...
高中英语必修三unit1 language points 练习
高中英语必修三 unit1 language points 练习 1. She is ___ her daughter ’s progress in her study. A. satisfyi高中英语必修三 unit1 language points...
更多相关标签: