![](https://img-blog.csdnimg.cn/20201014180756928.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
WebFocus
gaerelva
我就是我
展开
-
WEBFOCUS 寻找和替换字符串
-IF POSIT(&DIVISION2,&DIVISION2.LENGTH,'_',1,'I2') EQ 0 GOTO REP2;-REP1-SET &DIVISION2=STRREP(100,&DIVISION2,1,'_',1,'~',100,&DIVISION2);-SET &DIVISION2=TRUNCATE(&DIVISION2);-GOTO ENDREP;-REP2-IF POSIT(®ION2,®ION2.LENGTH,'_',1,'I2') EQ 0 GOTO REP3;-S原创 2010-07-09 22:33:00 · 392 阅读 · 0 评论 -
WEBFOCUS 对TABLE FILE的操作
TABLE FILE CUSTOMER_TESTPRINTFIELD_NAME/A30FIELD_DESC/A30WHERE CUSTOMER_KEY EQ &CUSTKEYON TABLE HOLD AS CUSTUDFSETUP FORMAT ALPHAEND-RUN 读取CUSTOMER_TEST ,PRINT FIELD_NAME 和 FIELD_DESC ,条件是CUSTOMER_KEY 等于PARAMETER (&CUSTKEY)TABLE HOLD为CUSTUPFSETUP FORMAT 成A原创 2010-07-09 22:34:00 · 377 阅读 · 0 评论 -
WEBFOCUS 文件读取
FILEDEF TESTFILE DISK C:/IBI/APPS/PRO1/TEST_01.txtTABLE FILE TESTFILE PRINTFIELD_NAME/A50FIELD_DESC/A40WHERE FIELD_NAME NE ''WHERE FLD EQ 'T'ON TABLE HOLD AS LISTSEND-RUN Example: Displaying Current ddnamesIssuing the command? FILEDEFproduces information s原创 2010-07-09 22:35:00 · 471 阅读 · 0 评论 -
WEBFOCUS UNION FILE(Concatenate Data Sources)
DEFINE FILE EMPDATA NEWID/A11=EDIT (ID,'999-99-9999'); END DEFINE FILE SALHIST NEWID/A11=EDIT (ID,'999-99-9999'); CSAL/D12.2M=OLDSALARY; END TABLE FILE EMPDATA HEADING "EMPLOYEE SALARIES" " " PRINT CSAL BY NEWID WHERE CSAL GT 65000 MORE FILE SALHIST W原创 2010-07-09 22:35:00 · 1211 阅读 · 0 评论 -
WebFocus 中直接使用SQL 语句
ENGINE SQLMSS SET DEFAULT_CONNECTION &CONNECTIONSQL SQLMSS PREPARE SQLOUT FORSELECT * from XXX(nolock) where flag='Y' ;ENDTABLE FILE SQLOUTPRINT *ON TABLE HOLD AS TMP_OUT1END-RUN-IF &LINES EQ 0 OR &FOCERRNUM NE 0 OR &RETCODE NE 0 GOTO NOMESSAGE;直接使用SQL语句的写原创 2010-07-09 22:31:00 · 504 阅读 · 0 评论 -
WEBFOCUS FEX调用父页JAVASCRIPT
-HTMLFORM BEGINTEST-HTMLFORM END也可以在form中写SELECT等把FEX的内容带回父页原创 2010-07-09 22:32:00 · 368 阅读 · 0 评论 -
WEBFOCUS TABLE JOIN操作
Example: A Unique Equijoin StructureThe following example illustrates a unique joined structure. Two FOCUS data sources are joined together: an EMPDATA data source and a SALHIST data source. Both data sources are organized by PIN, and they are joined on a原创 2010-07-09 22:32:00 · 458 阅读 · 0 评论 -
Webfocus Flex 之间通讯
package { import mx.collections.*; import mx.controls.*; import mx.rpc.events.FaultEvent; import mx.rpc.events.ResultEvent; import mx.r原创 2011-08-24 10:20:50 · 438 阅读 · 0 评论