删除物料
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;