Q5/ws_objects/Ew_sale.pbl.src/uo_outware_waste.sru

$PBExportHeader$uo_outware_waste.sru
forward
global type uo_outware_waste from nonvisualobject
end type
end forward

global type uo_outware_waste from nonvisualobject
end type
global uo_outware_waste uo_outware_waste

type variables
Transaction  commit_transaction //数据commit事务
end variables

forward prototypes
public function integer wastedel (long arg_wastenum, long arg_scid, long arg_outwareid, ref string arg_msg, boolean arg_ifcommit)
public function integer insertwaste (long arg_wastetype, long arg_scid, long arg_outwareid, ref string arg_msg, boolean arg_ifcommit)
public function integer wastemove (boolean arg_ifcommit, ref string arg_msg)
public function integer wastemoveback (long arg_wastenum, long arg_scid, long arg_outwareid, ref string arg_msg, boolean arg_ifcommit)
end prototypes

public function integer wastedel (long arg_wastenum, long arg_scid, long arg_outwareid, ref string arg_msg, boolean arg_ifcommit);long rslt=1
long cnt
int ll_wastetype

select wastetype
into :ll_wastetype
from u_outware_waste
where u_outware_waste.wastenum=:arg_wastenum and u_outware_waste.scid=:arg_scid and u_outware_waste.outwareid=:arg_outwareid using commit_transaction;
if commit_transaction.sqlcode<>0 then
	rslt=0
	arg_msg='查询操作失败，废弃单据的废弃原因'+commit_transaction.sqlerrtext
	goto ext
end if
if ll_wastetype=1 then
	rslt=0
	arg_msg='废弃单据的废弃原因是修改废弃，不能还原'
	goto ext
end if
	
delete from u_outwaremx_waste
where u_outwaremx_waste.wastenum=:arg_wastenum and u_outwaremx_waste.scid=:arg_scid and u_outwaremx_waste.outwareid=:arg_outwareid using commit_transaction;
if commit_transaction.sqlcode<>0 then
	rslt=0
	arg_msg='删除操作失败，废弃发货单/明细'+commit_transaction.sqlerrtext
	goto ext
end if


delete from u_outware_waste
where u_outware_waste.wastenum=:arg_wastenum and u_outware_waste.scid=:arg_scid and u_outware_waste.outwareid=:arg_outwareid using commit_transaction;
if commit_transaction.sqlcode<>0 then
	rslt=0
	arg_msg='删除操作失败，废弃发货单'+commit_transaction.sqlerrtext
	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

public function integer insertwaste (long arg_wastetype, long arg_scid, long arg_outwareid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long cnt
Long ll_wastenum
DateTime server_dt
IF arg_scid < 0 THEN
	arg_msg = '错误的分部'
	rslt = 0
	GOTO ext
END IF

IF arg_outwareid <= 0 THEN
	arg_msg = '错误销售单唯一码'
	rslt = 0
	GOTO ext
END IF

SELECT Top 1 getdate() INTO :server_dt FROM u_user  USING commit_transaction;
//取得系统时间,借用操作员表
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,日期 "
	GOTO ext
END IF
//明细
cnt = 0
SELECT count(*)
	INTO :cnt
	FROM u_outware_waste
	Where scid = :arg_scid AND outwareid = :arg_outwareid USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询操作失败，明细单据'+commit_transaction.SQLErrText
	GOTO ext
ELSE
	IF cnt = 0 THEN
		ll_wastenum = 1
	ELSE
		SELECT max(wastenum)
			INTO :ll_wastenum
			FROM u_outware_waste
			Where scid = :arg_scid AND outwareid = :arg_outwareid USING commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = '查询操作失败，明细单据'+commit_transaction.SQLErrText
			GOTO ext
		END IF
		ll_wastenum++
	END IF
END IF

INSERT INTO u_outwaremx_waste
	(
	wastenum,
	scid,
	outwareid,
	mtrlwareid,
	mtrlid,
	storageid,
	plancode,
	status,
	qty,
	addqty,
	fprice,
	rebate,
	price,
	costamt,
	planprice,
	mxdscrp,
	Sptid,
	Dxflag,
	printid,
	sys_changetime,
	ifrel,
	olmtrlid,
	relid,
	packqty,
	woodcode,
	relcode,
	pcode,
	enprice,
	newpriceamt,
	ctmint,
	outtype,
	dftsaleprice,
	cost)
	SELECT :ll_wastenum,
	scid,
	outwareid,
	mtrlwareid,
	mtrlid,
	storageid,
	plancode,
	status,
	qty,
	addqty,
	fprice,
	rebate,
	price,
	costamt,
	planprice,
	mxdscrp,
	Sptid,
	Dxflag,
	printid,
	sys_changetime,
	ifrel,
	olmtrlid,
	relid,
	packqty,
	woodcode,
	relcode,
	pcode,
	enprice,
	newpriceamt,
	ctmint,
	outtype,
	dftsaleprice,
	cost
	FROM u_outwaremx
	Where scid = :arg_scid AND outwareid = :arg_outwareid USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	
	IF Pos(Lower(commit_transaction.SQLErrText),'PK_u_outwaremx_waste') > 0 THEN
		arg_msg = '插入单据明细资料失败,关键字ID重复'
	ELSE
		arg_msg = '插入单据明细资料失败,'+commit_transaction.SQLErrText
	END IF
	GOTO ext
END IF

INSERT INTO u_outware_waste
	(wastenum,
	wastedate,
	wasterep,
	wastetype,
	scid,
	outwareid,
	outwarecode,
	billtype,
	relid,
	StorageID,
	opdate,
	opemp,
	Modemp,
	moddate,
	flag,
	auditingdate,
	auditingrep,
	outdate,
	outrep,
	part,
	dscrp,
	cusid,
	cusname,
	balcflag,
	balcdateint,
	thflag,
	secflag,
	secauditingdate,
	secauditingrep,
	sys_changetime,
	ctmint,
	printnum,
	wagemth,
	otheramt,
	relstr_1,
	relstr_2,
	relstr_3,
	relint_1,
	relint_2,
	relint_3,
	priceflag,
	pricedate,
	priceemp,
	rel_address,
	rel_tele,
	rel_fax,
	rel_rep,
	mrate)
	SELECT :ll_wastenum,
	:server_dt,
	:publ_operator,
	:arg_wastetype,
	scid,
	outwareid,
	outwarecode,
	billtype,
	relid,
	StorageID,
	opdate,
	opemp,
	Modemp,
	moddate,
	flag,
	auditingdate,
	auditingrep,
	outdate,
	outrep,
	part,
	dscrp,
	cusid,
	cusname,
	balcflag,
	balcdateint,
	thflag,
	secflag,
	secauditingdate,
	secauditingrep,
	sys_changetime,
	ctmint,
	printnum,
	wagemth,
	otheramt,
	relstr_1,
	relstr_2,
	relstr_3,
	relint_1,
	relint_2,
	relint_3,
	priceflag,
	pricedate,
	priceemp,
	rel_address,
	rel_tele,
	rel_fax,
	rel_rep,
	mrate
	FROM u_outware
	Where scid = :arg_scid AND outwareid = :arg_outwareid USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	
	IF Pos(Lower(commit_transaction.SQLErrText),'PK_u_outware_waste') > 0 THEN
		arg_msg = '插入发货单据资料失败,关键字ID重复'
	ELSE
		arg_msg = '插入发货单据资料失败,'+commit_transaction.SQLErrText
	END IF
	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

public function integer wastemove (boolean arg_ifcommit, ref string arg_msg);long rslt=1
//long cnt
//datetime server_dt
//
//SELECT Top 1 getdate() INTO :server_dt FROM u_user USING commit_transaction ;
////取得系统时间,借用操作员表
//IF commit_transaction.SQLCode <> 0 THEN
//	rslt = 0
//	arg_msg = "查询操作失败,日期 "
//	GOTO ext
//END IF
//
//datetime ld_3day_before
//ld_3day_before=datetime(RelativeDate(date(server_dt), -3),time(0))
//
//long ll_ds_rowcount
//datastore ds_waste
//ds_waste = CREATE datastore
//ds_waste.DataObject = "ds_outware_waste"
//ds_waste.SetTransObject(sqlca)
//ds_waste.Retrieve(ld_3day_before)
//ds_waste.accepttext()
//ll_ds_rowcount=ds_waste.rowcount()
////没有，不用转移
//if ll_ds_rowcount<=0 then 
//	rslt=1
//	goto ext
//end if
//uo_outware_sale uo_sale
//uo_sale = create uo_outware_sale
//uo_sale.commit_transaction=commit_transaction
//long ls_i
//long ls_temp_scid,ls_temp_outwareid
//string ls_temp_outwarecode
//
////循环转移
//for ls_i=1 to ll_ds_rowcount
//	ls_temp_scid=ds_waste.object.scid[ls_i]
//	ls_temp_outwareid=ds_waste.object.outwareid[ls_i]
//	ls_temp_outwarecode=ds_waste.object.outwarecode[ls_i]
//	
//	if uo_sale.del(ls_temp_scid,ls_temp_outwareid,arg_msg,false)=0 then
//		rslt=0
//		goto ext		
//	else
//		//日志			
//		f_setsysoplog('销售发货单','销售发货单删除,id:'+string(ls_temp_outwareid)+',code:'+ls_temp_outwarecode,arg_msg,true)
//	end if
//next
//DESTROY uo_sale 
//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

public function integer wastemoveback (long arg_wastenum, long arg_scid, long arg_outwareid, ref string arg_msg, boolean arg_ifcommit);int rslt=1
long cnt
int ll_wastetype

select wastetype
into :ll_wastetype
from u_outware_waste
where u_outware_waste.wastenum=:arg_wastenum and u_outware_waste.scid=:arg_scid and u_outware_waste.outwareid=:arg_outwareid using commit_transaction;
if commit_transaction.sqlcode<>0 then
	rslt=0
	arg_msg='查询操作失败，废弃单据的废弃原因'+commit_transaction.sqlerrtext
	goto ext
end if
if ll_wastetype=1 then
	rslt=0
	arg_msg='废弃单据的废弃原因是修改废弃，不能还原'
	goto ext
end if

INSERT INTO u_outwaremx
		(scid,
		outwareid, 
		mtrlwareid, 
		mtrlid, 
		storageid,
		plancode, 
		status, 	
		qty, 
		addqty,
		fprice, 
		rebate, 
      price,
		costamt,
		planprice,
		mxdscrp, 
		Sptid,
		Dxflag,
		printid, 
		sys_changetime, 
		ifrel, 
      olmtrlid, 
		relid, 
		packqty, 
		woodcode,
		relcode, 
		pcode, 
		enprice,
		newpriceamt,
		ctmint, 
      outtype, 
		dftsaleprice,
		cost)
select scid,
		outwareid, 
		mtrlwareid, 
		mtrlid, 
		storageid,
		plancode, 
		status, 	
		qty,
		addqty,
		fprice, 
		rebate, 
      price,
		costamt,
		planprice,
		mxdscrp, 
		Sptid,
		Dxflag,
		printid, 
		sys_changetime, 
		ifrel, 
      olmtrlid, 
		relid, 
		packqty, 
		woodcode,
		relcode, 
		pcode, 
		enprice,
		newpriceamt,
		ctmint, 
      outtype, 
		dftsaleprice,
		cost
from u_outwaremx_waste
where u_outwaremx_waste.wastenum=:arg_wastenum and u_outwaremx_waste.scid=:arg_scid and u_outwaremx_waste.outwareid=:arg_outwareid using commit_transaction;
if commit_transaction.sqlcode<>0 then
	rslt=0
	arg_msg='插入操作失败，废弃发货单/明细'+commit_transaction.sqlerrtext
	goto ext
end if

INSERT INTO u_outware
		(scid, 
		outwareid, 
		outwarecode,
		billtype, 
		relid, 
		StorageID, 
		opdate,
		opemp, 
		Modemp, 
      moddate, 
		flag, 
		auditingdate,
		auditingrep, 
		outdate, 
		outrep, 
		part,
		dscrp, 
		cusid, 
		cusname, 
      balcflag, 
		balcdateint,
		thflag, 
		secflag, 
		secauditingdate, 
		secauditingrep, 
      sys_changetime, 
		ctmint, 
		printnum, 
		wagemth, 
		otheramt,
		relstr_1, 
		relstr_2, 
		relstr_3, 
      relint_1, 
		relint_2, 
		relint_3, 
		priceflag, 
		pricedate,
		priceemp, 
		rel_address, 
		rel_tele, 
      rel_fax, 
		rel_rep,
		mrate)
select scid, 
		outwareid, 
		outwarecode,
		billtype, 
		relid, 
		StorageID, 
		opdate,
		opemp, 
		Modemp, 
      moddate, 
		flag, 
		auditingdate,
		auditingrep, 
		outdate, 
		outrep, 
		part,
		dscrp, 
		cusid, 
		cusname, 
      balcflag, 
		balcdateint,
		thflag, 
		secflag, 
		secauditingdate, 
		secauditingrep, 
      sys_changetime, 
		ctmint, 
		printnum, 
		wagemth, 
		otheramt,
		relstr_1, 
		relstr_2, 
		relstr_3, 
      relint_1, 
		relint_2, 
		relint_3, 
		priceflag, 
		pricedate,
		priceemp, 
		rel_address, 
		rel_tele, 
      rel_fax, 
		rel_rep,
		mrate
from u_outware_waste
where u_outware_waste.wastenum=:arg_wastenum and  u_outware_waste.scid=:arg_scid and u_outware_waste.outwareid=:arg_outwareid using commit_transaction;
if commit_transaction.sqlcode<>0 then
	rslt=0
	arg_msg='插入操作失败，废弃发货单'+commit_transaction.sqlerrtext
	goto ext
end if

if wastedel(arg_wastenum,arg_scid,arg_outwareid,arg_msg,false) =0 then
	rslt=0	
	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

on uo_outware_waste.create
call super::create
TriggerEvent( this, "constructor" )
end on

on uo_outware_waste.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on