tiptop程式 -213

tiptop

joy036 2013-01-16 17:21:20 ‧ 14993 瀏覽

分享至

請問各位大大
有沒有人會鼎新tiptop的程式?
為什麼在FOREACH 中若加入 insert into table
就會出現這個 error
若不執行 insert 就可以順利執行完 1374 筆資料
確定不是寫入的資料問題
但那會是什麼? 不解?

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

4 個回答

tzunghua

iT邦新手 4 級 ‧ 2013-01-16 20:07:59

最佳解答

請參考4GL官網文件…
http://www.4js.com/online_documentation/fjs-fgl-manual-html/User/ResultSets.html#RS_FOREACH

foreach，只能用在在record或動態record、array
寫4GL不是難事，去4GL官網看文件就好了

還有疑問，PO CODE上來，我幫你看。

回應 1
分享
檢舉

tzunghua iT邦新手 4 級 ‧ 2013-01-17 12:59:10 檢舉

&lt;pre class="c" name="code">
DEFINE g_cxh    DYNAMIC ARRAY OF RECORD
                    cxh02   LIKE cxh_file.cxh02,
           			cxh03   LIKE cxh_file.cxh03,
           			cxh01   LIKE cxh_file.cxh01,
                END RECORD
DEFINE l_sql    STRING
DEFINE g_cnt           LIKE type_file.num10

LET l_sql = "SELECT cxh02, cxh03, cxh01 FROM cxh_file"

PREPARE q001_pb FROM l_sql
DECLARE q001_bcs CURSOR FOR q001_pb

CALL g_cxh.clear() 
LET g_cnt  = 1

FOREACH q001_bcs INTO g_cxh[g_cnt].*
	IF SQLCA.sqlcode THEN
		CALL cl_err('Foreach:',SQLCA.sqlcode,1)
		EXIT FOREACH
	END IF
	LET g_cnt = g_cnt + 1
END FOREACH

這應該是你要的答案了???

登入發表回應

Albert

iT邦高手 1 級 ‧ 2013-01-16 18:22:00

商業軟體涉及商業利益

有侵權問題

鼎新客製化好像沒開放給經銷商 ?

回應 3
分享
檢舉

sunrandy iT邦新手 1 級 ‧ 2013-01-18 10:00:39 檢舉

albertachen提到：
有侵權問題

不會侵權,TT Source有買斷,可自行修改,只要你會改的話

Albert iT邦高手 1 級 ‧ 2013-01-18 10:13:47 檢舉

應該是
沒有開放給第三者
進行修改

WQ iT邦新手 2 級 ‧ 2014-12-24 14:31:18 檢舉

上述所PO的CODE是沒有版權問題
TT 是有SOURCE開放的,但albertachen說的第三者也沒差,
因為版權數已買斷,要怎麼開發是自已的事,
只是保固上的計費就......(也還好就自已維護)

登入發表回應

Birdy

iT邦新手 5 級 ‧ 2013-01-17 08:37:19

這麼猜測你所描述的狀況 ....
是否請你往幾個方向去檢查

insert table 中的欄位有尚未 init values 的值. 如數字型態是null.
insert 欄位未齊全如 table 中有 10個fields, 你只 insert 小於 10 fields
而少掉的 field 又是數字型態
如果你有疑慮 , 可將 insert 的tabel 變成 1-2 fields 去測試能不能 insert進去
其實是 OK 的 ..
還有一種狀況可能比較難查出 , 就是 Declare ...Foreach 的 cursor 資料量太大 ,
程式一執行到此段就 down掉 ,解法是從 informix DB 或 Oracle DB 的虛擬參數去調
整.

希望以上對你有幫助 ..

birdy