forward
global type nvo_ybjk from nonvisualobject
end type
end forward
global type nvo_ybjk from nonvisualobject
end type
global nvo_ybjk nvo_ybjk
type prototypes
function string SendRcv(string pSend,string pRcv) library "sendrcv.dll"
function string YBTS(string pRcv) library "ybpost.dll" library "ybpost.dll" ALIAS FOR "YBTS;ansi" //介面
function string SendRcvA(ref string pSend, ref string pRcv) library "SendRcvA.dll" ALIAS FOR "SendRcv;ansi"
function string SendRcvB(ref string pSend, ref string pRcv) library "SendRcvB.dll" ALIAS FOR "SendRcv;ansi"
function int SIReadCardIDAIO( ref string sCardNo, ref string sCardId,ref string sInitOrgNo) library "SI_ICCReader.DLL" ALIAS FOR "SIReadCardIDAIO;ansi"
end prototypes
type variables
datastore ids_data, ids_data_fymx
string is_data_array[] //將資料存盤中的資料寫入到陣列中
//回傳資訊，回傳資訊體
string is_return, is_return_text
string is_inparm, is_outparm
//代碼,名稱
//string is_yybm = '330399'
string is_yybm = '330399'
string is_zddm
string is_jgdm ='00000009300'
//簡碼(3位)
string is_yyjm
//回傳資訊編碼， 回傳資訊文字
string is_error_code, is_error_text
string is_inifile = 'yb.ini'
string is_brbs = '0'
boolean ib_debug = false
string is_knxx
string is_knxx2, is_grjbxx, is_ylfylj, is_zz, is_lxdh,is_xm,is_sex
dec{2} is_smkzhye
string is_smkzt
int is_readicreturn
string is_ic,is_id,is_no
string is_smkjslsh
end variables
forward prototypes
public function integer uf_data_reset ()
public function integer uf_data_object (string as_dataobject)
public function string uf_parm (string as_type, string as_text)
public function integer uf_sendrcv (string as_send)
public function integer uf_convert_texttodw ()
public function string uf_convert_numberbtostring (double ad_number)
public function string uf_fymx ()
public function integer uf_data_export ()
public function integer uf_readcard (string as_data)
public function integer uf_data_toarray ()
public function integer uf_data_toarray (integer ai_row)
public function integer uf_fymx_item (integer ai_col, decimal ad_value)
public function integer uf_person_info (string as_knxx, datawindow adw)
public function datetime uf_get_sysdate ()
public function integer uf_init ()
public function integer uf_convert_dept (string as_dept, ref string as_ybbm, ref string as_ybmc)
public function integer uf_fymx_reset ()
public function integer uf_data_item (integer ai_col, string as_value)
public function integer uf_convert_dwtotext (ref string as_text)
public function integer uf_convert_billitem (string as_sfxm, ref string as_ybbm, ref string as_ybmc)
public function integer uf_data_export (datawindow adw)
public function integer wf_log (string as_send, string as_fetch)
public function integer uf_log (string as_send, string as_fetch)
public function string uf_convert_numberatostring (decimal ad_number)
public function integer uf_data_itemnumbera (integer ai_col, decimal ad_value)
public function integer uf_data_itemnumberb (integer ai_col, decimal ad_value)
public function string uf_get_filename (string as_type, date ad_day)
public function integer uf_convert_texttoarray (string as_text, string as_array[])
public function integer uf_import_file (datawindow adw, integer ai_startrow)
public function integer uf_isdate (string as_date)
public function integer uf_convert_social (string as_socialno, ref datetime adt_birth, ref integer ai_age, ref string as_sex)
public function integer uf_fymx_item (string as_bill, decimal ad_value)
public function string uf_string_fromlen (string as_text, integer ai_len)
public function integer uf_convert_arraytods (string as_text[], datastore ads, string as_messcode)
public function integer uf_convert_texttods (string as_text, string as_messcode, ref datastore ads)
public function integer uf_convert_texttoarray (string as_text, string as_messcode, ref string as_array[])
public function integer uf_pub_get_personinfo (string as_knxx, datawindow adw)
public function integer uf_jk_g002 (string as_knxx)
public function integer uf_sendrcva (string as_messagecode, string as_message, string as_knxx)
public function string uf_convert_dstotext (ref datastore ads)
public function integer uf_jk_y003 (string as_serialno)
public function integer uf_jk_y004 (string as_serialno)
public function integer uf_jk_y005 (string as_serialno)
public function integer uf_save_log ()
public function integer uf_save_patinfo ()
public function integer uf_jk_y001 (long al_ghid)
public function integer uf_jk_y002 (long al_ghid)
public function integer uf_jk_y011 (long al_gkbh)
public function integer uf_jk_y011 (string as_parm, string as_knxx)
public function integer uf_return_array (ref string as_array[], string as_messcode)
public function integer uf_return_datastore (ref datastore ads, string as_messagecode)
public function integer uf_jk_y012 (string as_parm, string as_knxx)
public function integer uf_jk_g001 (string as_knxx, string as_lsh, decimal ad_total)
public function integer uf_jk_y021 (string as_parm, string as_knxx)
public function integer uf_jk_y025 (string as_serialno)
public function integer uf_jk_y022 (string as_serialno, ref string as_string, ref real ar_selfcharge)
public function integer uf_jk_y023 (string as_parm, string as_knxx, ref string as_jslsh)
public function integer uf_sendrcvb (string as_messagecode, string as_message)
public function integer uf_save_settle_data ()
public function integer uf_jk_s006 (string as_code, string as_type)
public function integer uf_jk_readic ()
public function integer uf_jk_g003 (string as_parm, ref string as_result, string as_knxx)
public function integer uf_jk_ (string as_parm, string as_knxx)
public function integer uf_convert_texttodw (string as_text, string as_messcode, ref datawindow ads)
public function integer uf_jk_k001 (string as_knxx)
public function integer uf_jk_k021 (string as_parm, string as_knxx, decimal as_total)
public function integer uf_jk_k002 (string as_parm, string as_knxx, decimal as_total, string as_jslsh, string as_yblsh)
public function integer uf_jk_k003 (string as_parm, string as_knxx, decimal as_total, string as_jslsh, string as_yblsh)
public function integer uf_jk_k011 (string as_parm, ref string as_result, string as_knxx)
public function integer uf_jk_k004 (string as_parm, string as_knxx, string as_jslsh, string as_yblsh, string as_jylx)
public function integer uf_jk_k012 (string as_qsrq)
public function integer uf_jk_k013 (string as_qsrq, ref string as_return)
public function integer uf_ybstart (string as_input)
public function integer of_ygyb_mzxx (string as_input, ref string as_output, string as_grbh, string as_yblsh)
end prototypes
public function integer uf_data_reset ();ids_data.reset()
return 0
end function
public function integer uf_data_object (string as_dataobject);
ids_data.DataObject = as_dataobject
RETURN 0
end function
public function string uf_parm (string as_type, string as_text);string ls_return
ls_return = "SSSS" //開始碼
ls_return = ls_return + as_type //訊息型別碼*
ls_return = ls_return + space(4) //訊息回傳碼
ls_return = ls_return + left(is_yybm + space( 16), 16) //代碼space(16)
ls_return = ls_return + left(is_zddm + space( 4), 4) //由編配的收費終端代碼
ls_return = ls_return + left(as_text + space(416), 416) //訊息體
ls_return = ls_return + space(60) //系統保留
ls_return = ls_return + "ZZZZ" //結束碼
return ls_return
end function
public function integer uf_sendrcv (string as_send);
String ls_return
String ls_fetch
ls_fetch = Space(512)
if ib_debug then
// openwithparm(w_yb_sendparm, as_send)
ls_return = message.stringparm
if ls_return = '' then return -1
else
ls_return = sendrcv(as_send, ls_fetch)
end if
//ls_return = "RRRRRF01P001 20081016/172021/1003800578潘大平 33030219310902281 00855895923020000000000000000000000000000000000.000000000.000000000.000000000.000098400.000248400.000000000.0000000000000000000000000000000000.0000000000.00 ZZZZ"
is_return = ls_return
is_error_code = Mid(ls_return,9,4) //錯誤代碼
is_error_text = Mid(ls_return,389,60) //錯誤提示
is_return_text = Mid(ls_return,49,340)
//與資料傳遞日志
if ib_debug then
uf_log(as_send, ls_return)
end if
Choose Case is_error_code
Case "P001" //成功
Return 0
Case "T100","T002","T004","T099" //超時
Return 2
Case Else
Return -1 //失敗，錯誤
End Choose
Return 0
end function
public function integer uf_convert_texttodw ();
uf_data_reset()
ids_data.insertrow(0)
int li_col, li_count, li_len, li_pos
string ls_coltype
//取資料視窗列數量
li_count = integer(ids_data.Object.DataWindow.Column.Count)
if li_count <= 0 then return -1
li_pos = 1
For li_col = 1 To li_count
//按每列字符數將回傳資訊寫到資料視窗的對應列中
ls_coltype = ids_data.describe("#" + string(li_col) + ".coltype")
li_len = integer( mid(ls_coltype, 6, len(ls_coltype) - 6) )
ids_data.setitem(1, li_col, mid(is_return_text, li_pos, li_len))
li_pos += li_len
Next
return 0
end function
uj5u.com熱心網友回復：
或者你告訴我下，呼叫DLL和取回傳值也行轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/50810.html
標籤：網絡通信/分布式開發