FXApp/ws_objects/l1_uo.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, 
		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, 
		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
		arg_msg='插入操作失败，发货单三天不发货单据/明细'+commit_transaction.sqlerrtext
		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)
	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
	from u_outware
	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

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,0,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, 
		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, 
		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)
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
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