国内首创VFP的SAP连接及RFC函数接口.pdfVIP

国内首创VFP的SAP连接及RFC函数接口--第1页

国内首创：VFP的SAP连接及RFC函数接口

*程序:SAP连接及RFC函数接口

*设计:红雨

*日期:2008.06.25

Clear

SetTalkOff

SetSafetyOff

*定义参数对象

LocalloSAPAsObject

*===表

*===输入参数

*===输出参数

IfSAPFunctionCall(m.loSAP)

*输出参数

LocalloExport

ForEachm.loExportInm.loSAP.Exporting

IfTypeIfTypeAnd!Empty(m.loExport.Name))

输出参数输出参数Name,m.loExport.Value

Endif

Endfor

*表

LocallcTable

ForEachm.lcTableInm.loSAP.Tables

IfTypeIfTypeAndUsed(m.lcTable)

Select(m.lcTable)

GoTop

Browse

Endif

Endfor

国内首创VFP的SAP连接及RFC函数接口--第1页

国内首创VFP的SAP连接及RFC函数接口--第2页

Else

=MessageboxMessagebox连接失败！连接失败！函数函数

Endif

Return

FunctionSAPFunctionCall(toSAPAsObject)

LocalIsOKAsBoolean

LocalloConn,loFunc,loTable,loRow,loCol

LocallcTable,loExport,loImport

LocallcScript

m.IsOK=.F.

ForEachm.lcTableInm.toSAP.Tables

IfTypeIfTypeAndUsed(m.lcTable)

UseIn(m.lcTable)

Endif

Endfor

m.loConn=CreateobjectCreateobject

m.loConn.Connection.User=m.toSAP.User

m.