- 浏览: 271313 次
- 性别:
- 来自: 杭州
文章分类
最新评论
-
sunlin:
水文 其他erp就没这样的问题? 不能单方面拿sap说 ...
【转】揭秘SAP在华真相:天价收费与用户之灾 -
zjut_xiongfeng:
用当前日期所在月的第一天,比如2010-7-30的当前月第一天 ...
pb函数库之日期、时间函数 -
550627069:
你好!问下 在PB中显示当前日期的前一个月 应该怎么做?求教
pb函数库之日期、时间函数
//Declaration
String ls_app_server, ls_client_id, ls_user_name, ls_user_pass, &
ls_sap_system, ls_appl_lang, ls_sys_num
boolean lb_success = false
integer li_rc SetPointer(HourGlass!)
dw_1.AcceptText()
// Get Application Server Name
ls_app_server = trim(dw_1.Object.app_server[1])
If IsNull(ls_app_server) or Len(ls_app_server) <= 0 Then
MessageBox("Application Server", "Application Server cannot be blank.")
Return
End If
// Get Client info
ls_client_id = trim(dw_1.Object.client_id[1])
If IsNull(ls_client_id) or Len(ls_client_id) <= 0
Then MessageBox("Client", "Client Id cannot be blank.")
Return
End If
// Get User Name
ls_user_name = trim(dw_1.Object.user_name[1])
If IsNull(ls_user_name) or Len(ls_user_name) <= 0 Then
MessageBox("User Name", "User Name cannot be blank.")
Return
End If
// Get User Password
ls_user_pass = trim(dw_1.Object.user_pass[1])
If IsNull(ls_user_pass) or Len(ls_user_pass) <= 0 Then
MessageBox("Password", "Password cannot be blank.")
Return
End If
// Get System number
ls_sys_num = trim(dw_1.Object.sys_num[1])
If IsNull(ls_sys_num) or Len(ls_sys_num) <= 0 Then
MessageBox("System Number", "System Number cannot be blank.")
Return
End If
// Create the Sap Connection Object
If Not IsValid(iole_SapConnection) Then
iole_SapConnection = Create OLEObject //
li_rc = iole_SapConnection.ConnectToNewObject("sap.bapi.1")
li_rc = iole_SapConnection.ConnectToNewObject("sap.functions")
End If
// check return code
// -1 Invalid Call: the argument is the Object property of a control
// -2 Class name not found
// -3 Object could not be created
// -4 Could not connect to object
// -9 Other error
If li_rc < 0 Then
MessageBox("SAP Connection Failure","Unable to connect to SAP. " + &
"Please verify that SAP is installed on this machine.~r~n" + &
"The return code is: " + string(li_rc))
Return -1
End If
// Create the connection object
If Not isvalid(iole_connection) Then
iole_connection = CREATE OLEObject
iole_connection = iole_SapConnection.Connection()
End If
If Not IsValid(iole_connection) Then
MessageBox("Error","Error")
// Assign all Sap login connection properties.
iole_connection.applicationserver = ls_app_server
//
iole_connection.Destination = "DS6"
iole_connection.User = ls_user_name
iole_connection.Password = ls_user_pass
iole_connection.Client = ls_client_id
//
iole_connection.system = trim(dw_1.Object.sap_system[1])
iole_connection.Language = trim(dw_1.Object.appl_lang[1])
iole_connection.systemNumber = trim(dw_1.Object.sys_num[1])
//
iole_connection.AutoLogon = True
// logon now (silently)
lb_success = iole_connection.logon(0, true)
// set instance
If lb_success Then
MessageBox("Congrats","Connected with SAP and Login successful.")
Else
MessageBox("Sorry","Login fail, Please check with the SAP Administrator")
If IsValid(iole_SapConnection) Then Destroy iole_SapConnection
If IsValid(iole_connection) Then
Destroy iole_connection
Return
End If
OleObject lole_sapfunc, ITAB lole_sapfunc = Create OleObject
ITAB = Create OleObject
String ls_frdate, ls_todate
Boolean lb_function
If lb_success Then
lole_sapfunc = iole_SapConnection.Add("ZBAPI_TEST_SAL")
//'ZBAPIPRACT1'
lole_sapfunc.EXPORTS("IM_FDATE").Value = '05072008'
lole_sapfunc.EXPORTS("IM_TDATE").Value = '07072008'
lb_function = lole_sapfunc.call
If lb_function Then
ITAB = lole_sapfunc.TABLES.Item("T_OUT")
long ll_row = 0
For ll_row = 1 to ITAB.RowCount()
MessageBox(string(ll_row), string(ITAB.cell(ll_row,"MATNR")))
MessageBox(string(ll_row), string(ITAB.cell(ll_row,"EXNUM")))
MessageBox(string(ll_row), string(ITAB.cell(ll_row,"SOLD_TO")))
Next
Else
MessageBox("Error","SAP Function cannot call.")
End If
End If
iole_connection.Logoff
Destroy lole_sapfunc
Destroy lole_sapfunc
Destroy ITAB
发表评论
-
关于pb游标的使用
2010-08-19 09:58 8890提到游标这个词,人们 ... -
如何将COLUMN的显示风格在EDIT、DDDW、DDLB之间相互切换:
2010-08-19 08:45 1561//如何将COLUMN的显示风格在EDIT、DDDW、DDLB ... -
pb从数据窗口获得数据的方法总结
2010-08-19 08:40 1872通过PowerBuilder的数据窗 ... -
在PB中如何动态注册ACCESS的ODBC数据库连接
2010-08-18 09:28 2958在PB中如何动态注册ACCESS的ODBC数据库连接 //获 ... -
在PB中快速实现数据库树形结构
2010-08-18 08:47 1854树形结构在Windows环境中被普遍应用,它以简捷的界面深受用 ... -
datawindow的参考手册
2010-08-18 08:24 850http://www.docin.com/p-63792034 ... -
权限设计的探讨
2010-08-06 16:13 1326但凡涉及多用户不同权限的网络或者单机程序,都会有权限管理的问题 ... -
数据管道的用法
2010-04-22 08:58 1433我们首先看看数据管道 ... -
使用PowerBuilder同时访问多个数据库
2010-04-21 16:00 1289某个客户应用可能需要在同一窗口同时访问两个服务器上的两个不同种 ... -
优化你的PowerBuilder程序
2010-04-21 15:50 964一段程序,完成了所需要的功能固然重要,但是提高执行效率,提高代 ... -
Power Builder 中动态SQL语句的写法
2010-04-16 10:49 1545PowerBuilder是目前最流行的数据库开发工具之一。Po ... -
Datawindow每页显示固定行
2010-04-14 18:52 944使Datawindow每页显示固定行 ---- 第一步:增加 ... -
日期计算函数
2010-04-11 14:00 900Day() 功能得到日期型 ... -
最小化,最大化,正常化窗口
2010-04-01 10:46 904This statement minimizes the Da ... -
datawindow 技巧
2010-04-01 09:08 6063网上看了很多datawindow的技巧,找了很多的例子,发现网 ... -
PowerScript – 常用函数和语句 -文件操作
2010-04-01 08:51 1060文件操作在程序设计中是不可缺少的。可以用文件函数来打开一 ... -
数据安全检测
2010-03-30 18:39 855--------------of_buildselect ... -
sqlca.sqlcode的数值含义
2010-03-29 16:23 1668如果一个 SQL 语句发生了错误,那么 sqlca.sq ... -
pb函数库之日期、时间函数
2010-03-25 09:59 2659Day()功能得到日期型数据中的号数(1到31之间的整数值 ... -
MESSAGE传递的机制及实例
2010-03-23 09:19 671MESSAGE是PFC消息传递的一个全局变量,是一个通用的数据 ...
相关推荐
SAP Powerbuilder 12.6 (4081)无限时学习破解文件,解压后覆盖即可!
SAP接口文档SAP接口文档SAP接口文档SAP接口文档SAP接口文档SAP接口文档SAP接口文档
Fast Track To Powerbuilder DEV-133 Material Study for Certification Exam, applies to for SAP Certification
JAVA连接SAP的官方接口(通过sapjco3连接)文档 内含java端代码 内容详细 可用来学习
Java 调用SAP的 RFC 接口源码,附带 jco3.0 的动态链接库。
MB PI 九恒星到SAP的POS过账及冲销接口 异步 创建步骤
SAP开发webservice接口教程.doc
SAP作为主流的ERP管理产品,也需要跟各大平台、系统或者是内部产品之间进行数据交换,这个时候我们就需要使用到接口。当然,这里我们要暂时忽略接口的广义定义,我们就当他是系统平台间数据传输的工具、一种技术。 ...
纯粹的文字叙述和程序例子,对现在比较流行的接口做了详细的介绍。
The Definitive DataWindow 2 Your Key To PowerBuilder Success Covers SAP PowerBuilder 12
此程序是基于DEV控件,使用C#调用SAP接口,运行环境VS2008。
注意看清标题,是用来测试RFC接口的工具,不是给你模拟发布一个RFC接口的工具
SAP Process Integration是SAP NetWeaver平台的一部分。 在NetWeaver 7.0 ehp2及更早版本中称为SAP NetWeaver Exchange Infrastructure XI。 SAP NetWeaver过程集成是NetWeaver软件组件的一部分,用于在公司内部系统...
SAP RFC接口实例代码 C#
SAP Net调用SAP RFC接口读取数据RFC
SAP自己的金税接口程序,仅供学习参考
SAP金税接口RFC函数样例,在开票软件通过调用RFC函数,直接获取开票数据,实际开票后自动调用回写函数,将金税发票号码回写到SAP.
SAP金税多种解决方案,解决SAP与金税接口问题,从配置到方案的完整流程 1. 激活业务功能 ........................................................................................................................
SAP开发webservice接口教程[收集].pdf
SAP BYD接口名称