4gl
失忆笔记
制造行业 delphi出身,后转行做鼎捷易拓产品,简称tiptop.主流开发语言4GL
展开
-
工單產生備料情況是依ima64.情況無條件進位的
Define l_double 定義 為number(10)工單產生備料情況是依ima64.情況無條件進位的,再依單位小數點位情況做4舍5入.IF l_ima64!=0 THEN LET l_double=(g_sfa.sfa05/l_ima64)+ 0.999999 LET g_sfa.sfa05=l_double*l_ima64END IFSELECT gfe03翻译 2012-12-03 17:17:14 · 1525 阅读 · 0 评论 -
易拓开发经验分享(二)
1、有更改字段值但不跑ON ROW CHANGE 注:after field后记得display2、debug时报-6372错误 字段值溢出或表空间已满3、foreach中不能有事务处理beginwork 嵌套的先用foreach把值存在二维数组里 再用for循环 for中可以有事务处理原创 2013-06-01 09:38:18 · 1192 阅读 · 0 评论 -
易拓开发经验分享(一)
一、B()函数语法顺序before input-->before row -->beforeinsert-->before field -->afterfield-->on row change -->after insert-->after row-->after input原创 2013-06-01 09:36:29 · 1077 阅读 · 0 评论 -
4gl程式debug常用技巧
1、带参数的D:‘MISC’表示具体料号传入2、指定行数设置断点比如我要在程式axmt360中的211行开始D进入Debug界面后按ctrl+D 弹出界面输入b 行数 点OK 出现上面表示已设置OK,然后点cancel或叉叉退出最后点下面按扭,程式跑到210行时自动会进入debug模式即可 3、手动设置断点在想要设置断点的地方双击原创 2012-12-03 17:03:41 · 5920 阅读 · 1 评论 -
不同系統轉換
#......: upd_ima75.4gl#Description....:更新ima_file的ima75,imaud01,關務出口用 imaud01含有中文字.DATABASE dsMAIN DEFINE ss STRING DEFINE l_download_file,l_download_file2 STRING DEFI原创 2012-12-03 17:30:05 · 596 阅读 · 0 评论 -
4gl如何在Debug时时查看临时表数据?
一句简单的话就是:找出临时表在数据库存对应的真定表名。如下:select * from dba_segments where tablespace_name='TEMPTABS'and segment_name like '%TEMP_AA%' and owner='DS1'变量解释:'%TEMP_AA%' 指程式中定义的临时表名称temp_aa,注意转换大写原创 2012-12-04 14:28:48 · 2177 阅读 · 0 评论 -
冒泡排序法
# 順序 1 3 5 2 4 #值按最大到小排序#求原值所在位置DATABASE ds MAIN DEFINE d ARRAY[5] OF LIKE type_file.chr1 DEFINE k ARRAY[5] OF LIKE type_file.chr1 DEFINE m ARRAY[5] OF LIKE type翻译 2012-12-03 17:28:51 · 378 阅读 · 0 评论 -
start with 实例解析
微薄第一篇文章,却赶上星期六的最后五分钟、各种无语,只能简单写几句了。 LET l_sql = " SELECT distinct bmb02,bmb01,bmb03,bmb06 from bmb_file ", " where bmb29 ='",g_bmb29,"' ", " start with bmb原创 2012-11-24 17:54:45 · 420 阅读 · 0 评论 -
TRUNC函数
问题:g_sfa[l_ac].sfa161=g_sfa[l_ac].sfa05/g_sfb.sfb08例如sfa05=1,sfb08=1800最后sfa161=0.00056其实1/1800=0.000555555取小数点后5位所以等于0.00056但如果我想最后的结果是0.00055应该怎么写呢,也就是不做四舍五入直接把尾数去掉 解决方法:将g_sfa原创 2012-11-30 15:21:50 · 550 阅读 · 0 评论 -
ORDER BY函数
如何处理数据换算后排序问题FUNCTION xxx_out()......FOR l_i = 1 TO sr.tc_ofh09 IF l_i = sr.tc_ofh09 THEN LET sr.tc_ofh08 = sr.tc_ofh04 -(sr.tc_ofh09-1) * sr.tc_ofh08 END IF OUTP原创 2012-11-30 15:40:48 · 947 阅读 · 0 评论 -
易拓开发经验分享(四)
1、查找字符串grep-l ima35 ???/4gl/*.4gl 只显示文件名grep-i ima35 ???/4gl/*.4gl 显示文件名和代码行2、查询临时表对应实体表名select * from dba_segments wheretablespace_name='TEMPTABS'and segment_name like 'TT%' and own原创 2013-06-01 09:39:40 · 978 阅读 · 0 评论