FXApp/ws_objects/checkpda.pbl.src/uo_ljjob_order_wkp_barcode_pda.sru

$PBExportHeader$uo_ljjob_order_wkp_barcode_pda.sru
forward
global type uo_ljjob_order_wkp_barcode_pda from uo_ljjob
end type
end forward

global type uo_ljjob_order_wkp_barcode_pda from uo_ljjob
end type
global uo_ljjob_order_wkp_barcode_pda uo_ljjob_order_wkp_barcode_pda

type variables
boolean replace = false
boolean finishbarcode = false
end variables

forward prototypes
public subroutine uf_setparm (string arg_parm)
public function integer uf_dojob (ref string arg_msg)
end prototypes

public subroutine uf_setparm (string arg_parm);String ls_key
String ls_value
Long ll_pos, ll_pos2

ls_key = '优先完成时间较早的计划='
ll_pos = Pos(arg_parm, ls_key)
IF ll_pos > 0 THEN
	ll_pos = ll_pos + Len(ls_key)
	ll_pos2 = Pos(arg_parm, ';', ll_pos)
	IF ll_pos2 > 0 THEN
		ls_value = Mid(arg_parm, ll_pos, ll_pos2 - ll_pos)
	ELSE
		ls_value = Mid(arg_parm, ll_pos)
	END IF
	IF Lower(Trim(ls_value)) = 'true' THEN
		Replace = True
	END IF
END IF

ls_key = '生成工序完工单='
ll_pos = Pos(arg_parm, ls_key)
IF ll_pos > 0 THEN
	ll_pos = ll_pos + Len(ls_key)
	ll_pos2 = Pos(arg_parm, ';', ll_pos)
	IF ll_pos2 > 0 THEN
		ls_value = Mid(arg_parm, ll_pos, ll_pos2 - ll_pos)
	ELSE
		ls_value = Mid(arg_parm, ll_pos)
	END IF
	IF Lower(Trim(ls_value)) = 'true' THEN
		finishbarcode = True
	END IF
END IF

end subroutine

public function integer uf_dojob (ref string arg_msg);Int rslt = 1
uo_checkpda uo_pda
uo_pda = Create uo_checkpda

Long ll_cnt
Long ll_failcnt

IF uo_pda.uof_order_wkp_barcode_pda(Replace, finishbarcode, arg_msg, ll_cnt, ll_failcnt) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

GOTO ext
ext:
Destroy uo_pda
RETURN rslt

end function

on uo_ljjob_order_wkp_barcode_pda.create
call super::create
end on

on uo_ljjob_order_wkp_barcode_pda.destroy
call super::destroy
end on