万丰奥特 sap 接口 项目代码点滴

删除物料

saprfc := CreateOleObject('SAP.Functions');
con := sapRfc.Connection;
//saprfc.Connection := con;

Self.conn(con);
//saprfc.RemoveAll;
func := saprfc.Add('BAPI_MATERIAL_SAVEDATA');

func.exports('HEADDATA').value('MATERIAL') := param.MATNR;
func.exports('HEADDATA').value('IND_SECTOR') := param.MBRSH;
func.exports('HEADDATA').value('MATL_TYPE') := param.MTART;
func.exports('HEADDATA').value('BASIC_VIEW') := 'X';

func.exports('CLIENTDATA').value('DEL_FLAG') := 'X';
func.exports('CLIENTDATAX').value('DEL_FLAG') := 'X';

。。。。

con.Logoff;
//saprfc.Connection := nil;

tab := Unassigned;
con := Unassigned;
func := Unassigned;
saprfc := UnAssigned;