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

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


相关文章:
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...
progress学习
───────────────────────────────────────── Progress 程序的分类: .p 主程序(源程序) .i 子程序(不能...
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...
Progress安装
Progress安装_IT/计算机_专业资料。Progress 安装 运行安装目录下的 SETUP.exe 文件 Key.txt 最后可能有 2 个 Java 的错误信息,都确定就好了,然后 Finish。 安装...
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 ...
高一英语school life单元教案1
On the first day Teachers Size of a classroom Subjects Food Wei Hua’s feelings and progress Step 2. Language focus 1. Words: a) attend (join / ...
测试Progress test 1
Straightforward Elementary Progress Test 1 Name ___ Score ___ Language section Vocabulary A work live Complete the text with words from the box. ...
Language
Language S&S 暂无评价 32页 免费 language(1) 暂无评价 1页 免费 Bad language...and make progress.So it’s the language that has changed the whole world...
高中英语必修三unit1 language points 练习
高中英语必修三 unit1 language points 练习 1. She is ___ her daughter ’s progress in her study. A. satisfyi高中英语必修三 unit1 language points...
更多相关标签: