【正文】
001001,085256,閩財(cái)2004票’ 表示:傳入開票內(nèi)容為SomeString,票據(jù)類型為’001001’, 備注為空 返回值長度為25 開票成功,返回值為 票據(jù)類型為001001 票據(jù)號(hào)為085256 注冊(cè)號(hào) 閩財(cái)2004票 示例2:var vRes:pChar。StdCall。39。PDisConnect39。39。39。Res:PChar):integer。StdCall。StdCall。調(diào)用時(shí)特別聲明:必須為Res參數(shù)開辟空間且取Res結(jié)果要根據(jù)字符長度截取例:取卡號(hào) var vStr:string。 附二:Dephil 調(diào)用接口單元應(yīng)引用 ComObj 調(diào)用程序()應(yīng)與dll在同一目錄,如: 應(yīng)與 在同一目錄 開票程序 與 應(yīng)與 在同一系統(tǒng)運(yùn)行二、PowerBuilder 調(diào)用Dll接口 PowerBuilder調(diào)用 DLL 函數(shù) 定義方法//在聲明(DeClare)中定義為全局外部函數(shù)(Global ExterNal Function)//聯(lián)接博思開票軟件 返回值int:成功 1 不成功 0Function int ConnectKp() LIBRARY ALIAS FOR PConnect//斷開博思開票軟件 返回值int:成功 1 不成功 0Function int DisConnectKp() LIBRARY ALIAS FOR PDisConnect//自動(dòng)登錄Function int AdvConnectKp(String User,String Mm,String Tzh) LIBRARY ALIAS FOR PAdvConnect//執(zhí)行轉(zhuǎn)入開票動(dòng)作Function int PZrPj(string ZrTxt,int IsPrn,string PjLx,string Bz,Ref string Res ) LIBRARY Function int PZrPjXX(string ZrTxt,int IsPrn,string PjLx,string Bz,Ref string Res ) LIBRARY //取當(dāng)前開票卡卡號(hào) 系統(tǒng)返回開票軟件第一個(gè)本地開票卡的卡號(hào)Function int PGetCardh(Ref String Res) LIBRARY //取當(dāng)前開票卡可用的第一張票據(jù)號(hào)Function int PGetCurPh(string Pj,Ref String Res) LIBRARY //取當(dāng)前開票的票據(jù)類型,返回編號(hào)和名稱Function int PGetCurPj(string Pj,Ref string Res) LIBRARY //取當(dāng)前開票人名稱Function int PGetKpr(Ref string Res) LIBRARY //取所有票據(jù)類型,返回編號(hào)和名稱Function int PGetPjMc(Ref string Res) LIBRARY //作廢一張票據(jù)Function int PDelPj(string Flag,Ref string Res) LIBRARY //判斷是否已完全登錄Function int LoginSuccess() LIBRARY ALIAS FOR PLoginSuccess調(diào)用時(shí)特別聲明:必須為Res參數(shù)開辟空間且取Res結(jié)果要根據(jù)字符長度截取例:取卡號(hào) String vStr int vLenvStr=space(50) //必須為Res參數(shù)開辟空間vLen=PGetCardh(vStr) =Left(vStr,vLen) //取Res結(jié)果要根據(jù)字符長度截取三、Visual FoxPro 調(diào)用Dll接口FoxPro調(diào)用Dll函數(shù)定義方法//聯(lián)接博思開票軟件 返回值int:成功 1 不成功 0DECLARE integer PConnect in as ConnectKp //斷開博思開票軟件 返回值int:成功 1 不成功 0DECLARE integer PDisConnect in as DisConnectKp//執(zhí)行轉(zhuǎn)入開票動(dòng)作DECLARE integer PZrPj in as PZrPj string,integer,string,string,string DECLARE integer PZrPjXX in as PZrPj string,integer,string,string,string //取當(dāng)前開票卡卡號(hào) 系統(tǒng)返回開票軟件第一個(gè)本地開票卡的卡號(hào)DECLARE integer PGetCardh in as PGetCardh string //取當(dāng)前開票卡可用的第一張票據(jù)號(hào)DECLARE integer PGetCurPh in as PGetCurPh string //取當(dāng)前開票的票據(jù)類型,返回編號(hào)和名稱DECLARE integer PGetCurPj in as PGetCurPj string,string //取當(dāng)前開票人名稱DECLARE integer PGetKpr in as PGetKpr string,string //取所有票據(jù)類型,返回編號(hào)和名稱DECLARE integer PGetPjMc in as PGetPjmc string,string //作廢一張票據(jù)DECLARE integer