Q5/ws_objects/Ew_bsnobj.pbl.src/f_del_mtrlware_inmx.srf

$PBExportHeader$f_del_mtrlware_inmx.srf
global type f_del_mtrlware_inmx from function_object
end type

forward prototypes
global function integer f_del_mtrlware_inmx (long arg_scid, long arg_mtrlwareid, long arg_inwareid, long arg_printid, string arg_inwarecode, datetime arg_inwaredate, decimal arg_inqty, decimal arg_inprice, long arg_if_outware, boolean arg_ifcommit, ref transaction commit_transaction, ref string arg_msg)
global function integer f_del_mtrlware_inmx (long arg_mtrlwaremxid, boolean arg_ifcommit, ref transaction commit_transaction, ref string arg_msg)
end prototypes

global function integer f_del_mtrlware_inmx (long arg_scid, long arg_mtrlwareid, long arg_inwareid, long arg_printid, string arg_inwarecode, datetime arg_inwaredate, decimal arg_inqty, decimal arg_inprice, long arg_if_outware, boolean arg_ifcommit, ref transaction commit_transaction, ref string arg_msg);Long rslt = 1
long ls_newid

ls_newid = f_sys_scidentity(0,"u_mtrlware_inmx","mtrlwaremxid",arg_msg,false,commit_transaction)
	IF ls_newid <= 0 THEN
		rslt = 0
		GOTO ext
	END IF

  
INSERT INTO u_mtrlware_inmx
           (mtrlwaremxid,
           scid,
           mtrlwareid,
           inwareid,
           printid,
           inwarecode,
           inwaredate,
           inqty,
           inprice,
           if_outware)
     VALUES
	      ( :ls_newid,
             :arg_scid,
             :arg_mtrlwareid,
             :arg_inwareid,
             :arg_printid,
             :arg_inwarecode,
             :arg_inwaredate,
             :arg_inqty,
             :arg_inprice,
             :arg_if_outware)  ;

IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "插入入库批明细失败"+"~n"
	GOTO ext

END IF



ext:
IF rslt = 0 THEN
	ROLLBACK Using commit_transaction;


ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT Using commit_transaction;
END IF
RETURN rslt
end function

global function integer f_del_mtrlware_inmx (long arg_mtrlwaremxid, boolean arg_ifcommit, ref transaction commit_transaction, ref string arg_msg);Long rslt = 1



delete u_mtrlware_inmx where mtrlwaremxid=:arg_mtrlwaremxid using commit_transaction  ;



IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "删除入库批明细失败"+"~n"
	GOTO ext

END IF



ext:
IF rslt = 0 THEN
	ROLLBACK Using commit_transaction;


ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT Using commit_transaction;
END IF
RETURN rslt
end function