Developer
1636 lines
56 KiB
ObjectPascal
1636 lines
56 KiB
ObjectPascal
unit uKsoap;
|
|
|
|
interface
|
|
|
|
uses Soap.SOAPHTTPClient,uSafeLog,System.SysUtils,uErrorInfo,
|
|
System.StrUtils,System.Classes,Winapi.ActiveX,FMX.Forms, Soap.XSBuiltIns,
|
|
Xml.XMLDoc;
|
|
|
|
type
|
|
TDevRecord=record
|
|
///mirror-plate/put/product/
|
|
P_ORG_CODE:string; //二维码
|
|
P_ORG_CODE_id:string;//二维码ID
|
|
P_LOT:string;
|
|
P_BC:string;
|
|
P_PC:string;
|
|
P_LINE:string;
|
|
P_LINE_index:integer;//排序号
|
|
P_LINE_id:integer;
|
|
P_LINE_NUM:string;
|
|
P_LINE_name:string;
|
|
P_LOT_TYPE:string;
|
|
P_TROLLEY_NUM:string;
|
|
P_DIE_NAME: string;
|
|
P_COPPER_MODEL:string;
|
|
P_BUFFER_TYPE:string;
|
|
P_ID:string;
|
|
P_CREATION_DATE:string;
|
|
FP_User: string;
|
|
FP_Pass: string;
|
|
vParentId:Integer;
|
|
vId:Integer;
|
|
end;
|
|
|
|
TDetailRecord=record
|
|
P_ORG_CODE:string;
|
|
P_LOT:string;
|
|
P_BC:string;
|
|
P_PC:string;
|
|
P_LINE:string;
|
|
P_LINE_NUM:string;
|
|
P_LOT_TYPE:string;
|
|
P_TROLLEY_NUM:string;
|
|
P_COPPER_MODEL:string;
|
|
P_BUFFER_TYPE:string;
|
|
P_ID:string;
|
|
P_CREATION_DATE:string;
|
|
vParentId:Integer;
|
|
vId:Integer;
|
|
end;
|
|
|
|
TLotNoRecord=record
|
|
public
|
|
vId:Integer; //0
|
|
P_ORG_CODE:string;
|
|
P_NUM:string;
|
|
P_LOT:string;
|
|
P_PC: string;
|
|
P_LINE: string;
|
|
P_LINE_NUM:string;
|
|
P_LOT_TYPE:string;
|
|
P_BKfile:string;
|
|
P_Buffer:string; //9
|
|
P_LINE_SPEED:Single;
|
|
P_ELE_CUR_DENSITY:Single;
|
|
P_ELE_AREA1: Single;
|
|
P_ELE_AREA2: Single;
|
|
P_COM_TEMPERATURE:Single;
|
|
P_PRODUCT_PRESSURE: Single;
|
|
P_PREHEATING_SEC:Single;
|
|
P_COMPRESS_SEC:Single;
|
|
P_STAMPING_DEPTH:Single;
|
|
P_DIE_NAME:string; //19
|
|
P_DIE_USE_NUM: Single;
|
|
P_NUM_PER_ARR: Single;
|
|
P_Enable:string;
|
|
P_UPPER_PRESSURE:Single;
|
|
P_DOWN_PRESSURE: Single;
|
|
P_SLICKER_ANGLE: Single;
|
|
P_INK_KNIFE_ANGLE:Single;
|
|
P_SLICKER_SPEED: Single;
|
|
P_INK_KNIFE_SPEED:Single;
|
|
P_MESH: string; //29
|
|
P_NET_SPACING: Single;
|
|
P_EXPOSURE_TIME: Single;
|
|
P_SLAB_THICKNESS:Single;
|
|
P_JE_SETUP:Single;
|
|
P_EXPOSURE_ENERGY:Single;
|
|
P_DEVELOP_PRESSURE: Single;
|
|
P_COUNTERPOINT_MODE:string;
|
|
P_SHORT_CIRCUIT: string;
|
|
P_ETCH_FACTOR: Single;
|
|
P_RESOLUTION:Single; //39
|
|
P_SIDE: string;
|
|
P_DRY_FILM_TYPE: string;
|
|
P_NEGATIVE:string;
|
|
P_SLICKER_PRESSURE: Single;
|
|
P_INK_KNIFE_PRESSURE: Single;
|
|
P_OFF_NET: Single;
|
|
P_SLICKER_DEPTH: Single;
|
|
P_INK_RETURN_KNIFE_DEPTH: Single;
|
|
P_TROLLEY_NUM: string;
|
|
P_TROLLEY_FLAG:string; //49
|
|
P_COPPER_MODEL:string;
|
|
P_COMP_PROGRAM:string;
|
|
P_COMP_AREA: string;
|
|
P_PLATE_WIDTH: string;
|
|
P_PLATE_HEIGHT:string;
|
|
P_JET_FLOW:string;
|
|
P_ID: Double;
|
|
P_CREATION_DATE: string; // 57
|
|
//P_PROGRAM_NAME:String; //鐳射TDX檔案存放路徑，其餘製程傳空值即可 程式名稱/程式選擇 就是 P_Buffer位
|
|
//P_BUFFER_TYPE:String; //K38快壓緩衝材型，其餘製程傳空值即可 就是 P_Buffer位
|
|
constructor Create(const val:string);
|
|
end;
|
|
|
|
|
|
TKsoap = class
|
|
private
|
|
FP_ORG_CODE:string; //廠區
|
|
FP_WORK_NUM:string; //工號
|
|
FP_PC:string; //製程
|
|
FP_LINE:string; //線別
|
|
FP_LINE_NUM:string; //線別編號
|
|
FP_Lot:string; //批号
|
|
FP_Goods_Num:string; //料号
|
|
FP_Lot_Num:Integer; //批号数量
|
|
FP_Traceability_ID:double; //主表ID
|
|
FThreadId:Integer;
|
|
FFixture_Code:string; //治具ID
|
|
FOnLine:boolean;
|
|
public
|
|
/// <summary>
|
|
/// 廠區
|
|
/// </summary>
|
|
property P_ORG_CODE: string read FP_ORG_CODE write FP_ORG_CODE;
|
|
|
|
/// <summary>
|
|
/// 工號
|
|
/// </summary>
|
|
property P_WORK_NUM: string read FP_WORK_NUM write FP_WORK_NUM;
|
|
|
|
/// <summary>
|
|
/// 製程
|
|
/// </summary>
|
|
property P_PC: string read FP_PC write FP_PC;
|
|
|
|
/// <summary>
|
|
/// 線別
|
|
/// </summary>
|
|
property P_LINE: string read FP_LINE write FP_LINE;
|
|
|
|
/// <summary>
|
|
/// 線別編號
|
|
/// </summary>
|
|
property P_LINE_NUM: string read FP_LINE_NUM write FP_LINE_NUM;
|
|
property P_Lot: string read FP_Lot write FP_Lot;
|
|
property P_Goods_Num: string read FP_Goods_Num write FP_Goods_Num;
|
|
property P_Lot_Num:Integer read FP_Lot_Num write FP_Lot_Num;
|
|
property P_Traceability_ID:double read FP_Traceability_ID write FP_Traceability_ID;
|
|
property Fixture_Code:string read FFixture_Code write FFixture_Code;
|
|
property OnLine:boolean read FOnLine write FOnLine;
|
|
|
|
procedure ClearData(); //清除 廠區 工號 製程 線別 信息
|
|
constructor Create; virtual;
|
|
destructor Destroy; override;
|
|
|
|
/// <summary>檢查批號和製程 設備是否匹配</summary>
|
|
/// <param name="vP_LOT">批號</param>
|
|
/// <param name="vP_LINE_NUM">線別編號</param>
|
|
/// <param name="vP_CHK_FLAG">保留欄位，默認傳1，用以區分哪個系統調用</param>
|
|
/// <returns>收到OK表示傳入的批號當前製程和傳入的製程一致，且該批號能在這條線生產</returns>
|
|
/// <remarks>通過傳入批號檢查批號是否在此製程，是否可以在此設備生產</remarks>
|
|
function XXCC_LOT_PC_F(vP_LOT,vP_LINE_NUM,vP_CHK_FLAG:string;var sError:string):boolean;
|
|
|
|
/// <summary>檢查工號</summary>
|
|
/// <param name="vP_ORG_CODE">廠區</param>
|
|
/// <param name="vP_WORK_NUM">工號</param>
|
|
/// <param name="vP_PC">製程</param>
|
|
/// <param name="vP_LINE">線別</param>
|
|
/// <returns>收到OK表示該在職人員屬於該廠區，且有作業資格</returns>
|
|
/// <remarks>通過傳入工號檢查該人員是否屬於該廠是否在職，是否有作業資格(有指定輔導員視為有作業資格)</remarks>
|
|
function xxcc_work_num_f(vP_ORG_CODE,vP_WORK_NUM,vP_PC,vP_LINE:string;var sError:string):boolean;
|
|
|
|
/// <summary>獲取料號(CF Traceability有用到)</summary>
|
|
/// <param name="vlot">批號</param>
|
|
/// <param name="vType">類型(默認為空)</param>
|
|
/// <returns>返回值為:料號,當前製程,當前數量,該料號每包數量,該料號每箱數量,銅箔
|
|
/// 型號,緩衝材型號,壓合程式,壓合面積(紅色Mark部分只有當第二個參數傳RF_TRACE時才會返回)
|
|
/// ,是否為emap,project name,smt pn,168客戶料號(藍色Mark部分只有當第二個參數傳EMAP時才會返回)
|
|
///,取第一個半角</returns>
|
|
/// <remarks>通過批號獲取料號</remarks>
|
|
function getPartnum(vlot,vType:string;var sGoodsNo,sNum,sPC,sResult,sError:string):boolean;
|
|
function getPartnumTime(vlot,vType:string;var sError:string):boolean;
|
|
|
|
/// <summary>獲取料號(CF Traceability有用到)</summary>
|
|
/// <param name="p_lot">批號</param>
|
|
/// <param name="p_type">蚀溥铜etch/快压机fast_press</param>
|
|
/// <returns></returns>
|
|
/// <remarks>通過批號獲取料號</remarks>
|
|
function xx_get_barcode_param_f(vP_org,vP_lot,vP_LINE_NUM,vP_type:string;var sError:string):boolean;
|
|
|
|
function cm_bom_plasma_prg_f(vP_lot:string;var sResult,sError:string):boolean;
|
|
function cf_traceability_seq_f(vP_ORG_CODE:string;var sError:string):Double;
|
|
function Check_tool_or_equip_status_f(vP_lot,vP_LINE_NUM,vP_fixture_code_seq,vP_status:string;var sError:string):boolean;
|
|
function Insert_cc_wip_lot_bc_history(DetailRecord:TDetailRecord;var sError:string):boolean;
|
|
function Update_qty_time_p(vP_ID,vP_ACT_QTY,vP_END_TIME,vP_LINE_SPEED,vP_BK1,vP_BK2,vP_BK3:string;var sError:string):boolean;
|
|
function get_barcode_param_f(vP_ORG_CODE,vP_Lot,vP_type,vP_Line_num:string;var sError:string):boolean;
|
|
/// <summary>批號基本信息(CF Traceability有用到)</summary>
|
|
/// <param name="P_ORG_CODE">廠區</param>
|
|
/// <param name="P_NUM">工號</param>
|
|
/// <param name="P_LOT">批號</param>
|
|
/// <param name="P_PC">製程</param>
|
|
/// <param name="P_LINE">線別</param> ///
|
|
/// <param name="P_LINE_NUM">線別編號</param>
|
|
/// <param name="P_LOT_TYPE">正常板/重工板</param>
|
|
/// <param name="P_ENABLE">是否需要檢查數據默認Y，需檢查</param>
|
|
/// <param name="P_ID">ID號，用於綁定每次掃的條碼，從cf_traceability_seq_f方法獲取</param>
|
|
/// <returns>收到OK表示傳入的批號當前製程和傳入的製程一致，且該批號能在這條線生產</returns>
|
|
/// <remarks>通過傳入廠區，工號，批號，料號，製程，線，線別，記錄批號的基本信息</remarks>
|
|
function Insert_CM_WIP_PROCESS_LINE_HISTORY_NEW(LotNoRecord:TLotNoRecord;var sError:string):boolean;
|
|
function return_default_values_f(var sResult,sError:string):boolean;
|
|
function xxcf_get_layer_f(vP_Pn:string;var sResult,sError:string):boolean;
|
|
function cm_mtl_trace_in_f(vP_mtl_barcode,vP_mtl_type:string;var sError:string):boolean;
|
|
function xxcf_check_netboard_f(vP_part_num,vP_face,vp_nb_num:string;var sError:string):boolean;
|
|
function ExecuteDataSet(vP_SQL:string;var sError:string):boolean;
|
|
|
|
function Thread_XXCC_LOT_PC_F(vP_LOT,vP_LINE_NUM,vP_CHK_FLAG:string;var sError:string):boolean;
|
|
function Thread_xxcc_work_num_f(vP_ORG_CODE,vP_WORK_NUM,vP_PC,vP_LINE:string;var sError:string):boolean;
|
|
function Thread_getPartnum(vlot,vType:string;var sGoodsNo,sNum,sPC,sResult,sError:string):boolean;
|
|
function Thread_Insert_CM_WIP_PROCESS_LINE_HISTORY_NEW(LotNoRecord:TLotNoRecord;var sError:string):boolean;
|
|
function Thread_return_default_values_f(var sResult,sError:string):boolean;
|
|
function Thread_xxcf_get_layer_f(vP_Pn:string;var sResult,sError:string):boolean;
|
|
function Thread_cm_mtl_trace_in_f(vP_mtl_barcode,vP_mtl_type:string;var sError:string):boolean;
|
|
function Thread_xxcf_check_netboard_f(vP_part_num,vP_face,vp_nb_num:string;var sError:string):boolean;
|
|
function Thread_xx_get_barcode_param_f(vP_org,vP_lot,vP_LINE_NUM,vP_type:string;var sError:string):boolean;
|
|
function Thread_cm_bom_plasma_prg_f(vP_lot:string;var sResult,sError:string):boolean;
|
|
function Thread_cf_traceability_seq_f(vP_ORG_CODE:string;var sError:string):Double;
|
|
function Thread_Check_tool_or_equip_status_f(vP_lot,vP_LINE_NUM,vP_fixture_code_seq,vP_status:string;var sError:string):boolean;
|
|
function Thread_Insert_cc_wip_lot_bc_history(DetailRecord:TDetailRecord;var sError:string):boolean;
|
|
function Thread_Update_qty_time_p(vP_ID,vP_ACT_QTY,vP_END_TIME,vP_LINE_SPEED,vP_BK1,vP_BK2,vP_BK3:string;var sError:string):boolean;
|
|
function Thread_get_barcode_param_f(vP_ORG_CODE,vP_Lot,vP_type,vP_Line_num:string;var sError:string):boolean;
|
|
function Thread_ExecuteDataSet(vSQL:string;var sError:string):boolean;
|
|
end;
|
|
|
|
function ReplaceStrWork(Const Value:String):String; //去掉特殊字符
|
|
function Ksoap():TKsoap;
|
|
|
|
var
|
|
FKsoap:TKsoap;
|
|
fDevRecord: TDevRecord;
|
|
|
|
implementation
|
|
|
|
// 如需动态扩展过滤字符，可改为参数化版本
|
|
function ReplaceStrWorkEx(const Value: string; const CharsToRemove: array of Char): string;
|
|
var
|
|
I, J: Integer;
|
|
Builder: TStringBuilder;
|
|
Skip: Boolean;
|
|
begin
|
|
Builder := TStringBuilder.Create;
|
|
try
|
|
for I := 1 to Length(Value) do
|
|
begin
|
|
Skip := False;
|
|
for J := Low(CharsToRemove) to High(CharsToRemove) do
|
|
begin
|
|
if Value[I] = CharsToRemove[J] then
|
|
begin
|
|
Skip := True;
|
|
Break;
|
|
end;
|
|
end;
|
|
if not Skip then
|
|
Builder.Append(Value[I]);
|
|
end;
|
|
Result := Builder.ToString;
|
|
finally
|
|
Builder.Free;
|
|
end;
|
|
end;
|
|
|
|
function ReplaceStrWork(Const Value:String):String; //去掉特殊字符
|
|
begin
|
|
// 调用示例：去除额外字符（如逗号）
|
|
Result := ReplaceStrWorkEx(Value, ['[', ']', ' ', '''', '"']);
|
|
end;
|
|
|
|
constructor TLotNoRecord.Create(const val:string);
|
|
begin
|
|
P_LOT_TYPE:='正常板'; //正常板/重工板
|
|
P_BKfile:='-1'; //鐳射TDX檔案存放路徑，其餘製程傳空值即可程式名稱/程式選擇
|
|
P_Buffer:='-1'; //K38快壓緩衝材型，其餘製程傳空值即可
|
|
P_LINE_SPEED:=-1; //傳動線速/傳動速度(M/min)/電鍍時間(min)
|
|
P_ELE_CUR_DENSITY:=-1; //電流密度(ASF)
|
|
P_ELE_AREA1:=-1; //面積設定1(FT2)/面積設定A(SF)
|
|
P_ELE_AREA2:=-1; //面積設定2(FT2) /面積設定B(SF)
|
|
P_COM_TEMPERATURE:=-1; //壓合溫度(℃)
|
|
P_PRODUCT_PRESSURE:=-1; //製品壓力(kg/cm2)
|
|
P_PREHEATING_SEC:=-1; //預熱時間(S)/抽真空時間(S)
|
|
P_COMPRESS_SEC:=-1; //壓合時間(Sec)
|
|
P_STAMPING_DEPTH:=-1; //衝壓深度(mm
|
|
P_DIE_NAME:='-1';
|
|
P_DIE_USE_NUM:=-1;
|
|
P_NUM_PER_ARR:=-1;
|
|
P_Enable:='-1';
|
|
P_UPPER_PRESSURE:=-1;
|
|
P_DOWN_PRESSURE:=-1;
|
|
P_SLICKER_ANGLE:=-1; //刮刀角度
|
|
P_INK_KNIFE_ANGLE:=-1; //覆墨刀角度
|
|
P_SLICKER_SPEED:=-1;
|
|
P_INK_KNIFE_SPEED:=-1;
|
|
P_MESH:='-1';
|
|
P_NET_SPACING:=-1;
|
|
P_EXPOSURE_TIME:=-1;
|
|
P_SLAB_THICKNESS:=-1;
|
|
P_JE_SETUP:=-1;
|
|
P_EXPOSURE_ENERGY:=-1;
|
|
P_DEVELOP_PRESSURE:=-1;
|
|
P_COUNTERPOINT_MODE:='-1';
|
|
P_SHORT_CIRCUIT:='-1';
|
|
P_ETCH_FACTOR:=-1;
|
|
P_RESOLUTION:=-1;
|
|
P_SIDE:='-1';
|
|
P_DRY_FILM_TYPE:='-1';
|
|
P_NEGATIVE:='-1';
|
|
P_SLICKER_PRESSURE:=-1;
|
|
P_INK_KNIFE_PRESSURE:=-1;
|
|
P_OFF_NET:=-1;
|
|
P_SLICKER_DEPTH:=-1;
|
|
P_INK_RETURN_KNIFE_DEPTH:=-1;
|
|
P_TROLLEY_NUM:='-1';
|
|
P_TROLLEY_FLAG:='-1';
|
|
P_COPPER_MODEL:='-1';
|
|
P_COMP_PROGRAM:='-1';
|
|
P_COMP_AREA:='-1';
|
|
P_PLATE_WIDTH:='-1'; //板寬
|
|
P_PLATE_HEIGHT:='-1'; //板高
|
|
P_JET_FLOW:='-1';
|
|
P_ID:=0;
|
|
P_CREATION_DATE:='-1';
|
|
end;
|
|
|
|
function Ksoap():TKsoap;
|
|
begin
|
|
if FKsoap = nil then
|
|
FKsoap := TKsoap.Create;
|
|
Result := FKsoap;
|
|
end;
|
|
|
|
constructor TKsoap.Create;
|
|
begin
|
|
inherited;
|
|
ClearData();
|
|
end;
|
|
|
|
destructor TKsoap.Destroy;
|
|
begin
|
|
inherited Destroy;
|
|
end;
|
|
|
|
procedure TKsoap.ClearData(); //清除 廠區 工號 製程 線別 信息
|
|
begin
|
|
P_ORG_CODE:='';
|
|
P_WORK_NUM:='';
|
|
P_PC:='';
|
|
P_LINE:='';
|
|
FP_LINE_NUM:='';
|
|
end;
|
|
|
|
function TKsoap.xxcc_work_num_f(vP_ORG_CODE,vP_WORK_NUM,vP_PC,vP_LINE:string;var sError:string):boolean;
|
|
//var
|
|
// a:compeq_webservice.xxcc_work_num_f;
|
|
// Response:xxcc_work_num_fResponse;
|
|
begin
|
|
if not FOnLine then begin Result:=true;Exit; end;
|
|
|
|
Result:=false;
|
|
// a:=compeq_webservice.xxcc_work_num_f.create;
|
|
try
|
|
// a.P_ORG_CODE:=vP_ORG_CODE;
|
|
// a.P_WORK_NUM:=vP_WORK_NUM;
|
|
// a.P_PC:=vP_PC;
|
|
// a.P_LINE:=vP_LINE;
|
|
// DbApiLog.MessageInfo('xxcc_work_num_f 请求:P_ORG_CODE=%s,P_WORK_NUM=%s,P_PC=%s,P_LINE=%s',[vP_ORG_CODE,vP_WORK_NUM,vP_PC,vP_LINE]);
|
|
// try
|
|
// Response:=compeq_webservice.GetServiceSoap().xxcc_work_num_f(a); //System.False,'',FRIO
|
|
// Result:=Response.xxcc_work_num_fResult.ToUpper='OK';
|
|
// DbApiLog.MessageInfo('xxcc_work_num_f 返回:%s',[Response.xxcc_work_num_fResult]);
|
|
// if Result then
|
|
// begin
|
|
// FP_ORG_CODE:=vP_ORG_CODE;
|
|
// FP_WORK_NUM:=vP_WORK_NUM;
|
|
// FP_PC:=vP_PC;
|
|
// FP_LINE:=vP_LINE;
|
|
// end
|
|
// else //返回出错信息
|
|
// begin
|
|
// sError:= Response.xxcc_work_num_fResult;
|
|
// end;
|
|
// except
|
|
// on e:Exception do
|
|
// begin
|
|
// Result:=false;
|
|
// DbApiLog.Error('xxcc_work_num_f 错误:%s',[ChangeErrorInfo(E.Message)]);
|
|
// sError:=ChangeErrorInfo(E.Message);
|
|
// end;
|
|
// end;
|
|
finally
|
|
// a.Free;
|
|
end;
|
|
end;
|
|
|
|
function TKsoap.XXCC_LOT_PC_F(vP_LOT,vP_LINE_NUM,vP_CHK_FLAG:string;var sError:string):boolean;
|
|
//var
|
|
// a:compeq_webservice.XXCC_LOT_PC_F;
|
|
// Response:XXCC_LOT_PC_FResponse;
|
|
begin
|
|
if not FOnLine then begin Result:=true;Exit; end;
|
|
|
|
Result:=false;
|
|
// a:=compeq_webservice.XXCC_LOT_PC_F.create;
|
|
try
|
|
// a.P_ORG_CODE:=FP_ORG_CODE;
|
|
// a.P_LOT:=vP_LOT;
|
|
// a.P_PC:=FP_PC;
|
|
// a.P_LINE:=FP_LINE;
|
|
// a.P_LINE_NUM:=vP_LINE_NUM;
|
|
// a.P_CHK_FLAG:=vP_CHK_FLAG;
|
|
// DbApiLog.MessageInfo('XXCC_LOT_PC_F 请求:P_ORG_CODE=%s,P_LOT=%s,P_PC=%s,P_LINE=%s,P_LINE_NUM=%s,P_CHK_FLAG=%s',[FP_ORG_CODE,vP_LOT,FP_PC,FP_LINE,vP_LINE_NUM,vP_CHK_FLAG]);
|
|
// try
|
|
// Response:=GetServiceSoap().XXCC_LOT_PC_F(a);
|
|
// Result:=Response.XXCC_LOT_PC_FResult.ToUpper='OK';
|
|
// if Result then
|
|
// begin
|
|
// FP_LINE_NUM:=vP_LINE_NUM;
|
|
// FP_Lot:=vP_LOT;
|
|
// end;
|
|
// DbApiLog.MessageInfo('XXCC_LOT_PC_F 返回:%s',[Response.XXCC_LOT_PC_FResult]);
|
|
// if not Result then //返回出错信息
|
|
// begin
|
|
// sError:=Response.XXCC_LOT_PC_FResult;
|
|
// end;
|
|
// except
|
|
// on e:Exception do
|
|
// begin
|
|
// Result:=false;
|
|
// DbApiLog.Error('XXCC_LOT_PC_F 错误:%s',[ChangeErrorInfo(E.Message)]);
|
|
// sError:=ChangeErrorInfo(E.Message);
|
|
// end;
|
|
// end;
|
|
finally
|
|
// a.Free;
|
|
end;
|
|
end;
|
|
|
|
function TKsoap.getPartnum(vlot,vType:string;var sGoodsNo,sNum,sPC,sResult,sError:string):boolean;
|
|
var
|
|
// a:compeq_webservice.method1;
|
|
// Response:method1Response;
|
|
tmpList:Tstrings;
|
|
begin
|
|
if not FOnLine then begin Result:=true;Exit; end;
|
|
|
|
Result:=false;
|
|
sGoodsNo:='';
|
|
sNum:='0';
|
|
sPc:='';
|
|
if FP_LINE='AOI檢測' then vType:='AOI';
|
|
if FP_LINE='朗華快壓機' then vType:='RF_TRACE';
|
|
|
|
tmpList:=TStringlist.Create;
|
|
// a:=compeq_webservice.method1.create;
|
|
try
|
|
// a.vlot:=vlot;
|
|
// a.vtype:=vType;
|
|
// DbApiLog.MessageInfo('getPartnum 请求:vlot=%s,vtype=%s',[vlot,vType]);
|
|
// try
|
|
// Response:=GetServiceSoap().getPartnum(a);
|
|
// Result:=Pos('N1,',Response.method1Result.ToUpper)=0;
|
|
// DbApiLog.MessageInfo('getPartnum 返回:%s',[Response.method1Result]);
|
|
// sResult:=Response.method1Result;
|
|
// tmpList.DelimitedText:=Response.method1Result;
|
|
// tmplist.Delimiter:=',';
|
|
// if (tmpList.Count>3) then
|
|
// begin
|
|
// sGoodsNo:=tmpList.Strings[0];
|
|
// FP_Goods_Num:=sGoodsNo;
|
|
// sNum:=tmpList.Strings[2];
|
|
// FP_Lot_Num:=StrToIntDef(sNum,0);
|
|
// sPC:=tmpList.Strings[1];
|
|
// end;
|
|
//
|
|
// if not Result then //返回出错信息
|
|
// begin
|
|
// sError:=Response.method1Result;
|
|
// end;
|
|
// except
|
|
// on e:Exception do
|
|
// begin
|
|
// Result:=false;
|
|
// DbApiLog.Error('getPartnum 错误:%s',[ChangeErrorInfo(E.Message)]);
|
|
// sError:=ChangeErrorInfo(E.Message);
|
|
// end;
|
|
// end;
|
|
finally
|
|
// a.Free;
|
|
tmpList.Free;
|
|
end;
|
|
end;
|
|
|
|
function TKsoap.getPartnumTime(vlot,vType:string;var sError:string):boolean;
|
|
var
|
|
// a:compeq_webservice.method1;
|
|
// Response:method1Response;
|
|
tmpList:Tstrings;
|
|
begin
|
|
if not FOnLine then begin Result:=true;Exit; end;
|
|
|
|
Result:=false;
|
|
if FP_LINE='AOI檢測' then vType:='AOI';
|
|
if FP_LINE='朗華快壓機' then vType:='RF_TRACE';
|
|
|
|
tmpList:=TStringlist.Create;
|
|
// a:=compeq_webservice.method1.create;
|
|
try
|
|
// a.vlot:=vlot;
|
|
// a.vtype:=vType;
|
|
// DbApiLog.MessageInfo('getPartnum 请求:vlot=%s,vtype=%s',[vlot,vType]);
|
|
// try
|
|
// Response:=GetServiceSoap().getPartnum(a);
|
|
// Result:=Pos('N1,',Response.method1Result.ToUpper)=0;
|
|
// DbApiLog.MessageInfo('getPartnum 返回:%s',[Response.method1Result]);
|
|
// sError:=Response.method1Result;
|
|
// tmpList.DelimitedText:=Response.method1Result.Replace(' ','T');
|
|
// tmplist.Delimiter:=',';
|
|
// if (tmpList.Count>5) then
|
|
// begin
|
|
// sError:= tmpList.Strings[5];
|
|
// end;
|
|
//
|
|
// if not Result then //返回出错信息
|
|
// begin
|
|
// sError:=Response.method1Result;
|
|
// end;
|
|
// except
|
|
// on e:Exception do
|
|
// begin
|
|
// Result:=false;
|
|
// DbApiLog.Error('getPartnum 错误:%s',[ChangeErrorInfo(E.Message)]);
|
|
// sError:=ChangeErrorInfo(E.Message);
|
|
// end;
|
|
// end;
|
|
finally
|
|
// a.Free;
|
|
tmpList.Free;
|
|
end;
|
|
end;
|
|
|
|
function TKsoap.xx_get_barcode_param_f(vP_org,vP_lot,vP_LINE_NUM,vP_type:string;var sError:string):boolean;
|
|
//var
|
|
// a:compeq_webservice.xx_get_barcode_param_f;
|
|
// Response:xx_get_barcode_param_fResponse;
|
|
begin
|
|
if not FOnLine then begin Result:=true;Exit; end;
|
|
|
|
Result:=false;
|
|
// a:=compeq_webservice.xx_get_barcode_param_f.create;
|
|
try
|
|
// a.p_org:=vP_org;
|
|
// a.p_lot:=vP_lot;
|
|
// a.P_LINE_NUM:=vP_LINE_NUM;
|
|
// a.p_type:=vP_type;
|
|
// DbApiLog.MessageInfo('xx_get_barcode_param_f 请求:p_org=%s,p_lot=%s,P_LINE_NUM=%s,p_type=%s',[vP_org,vP_lot,vP_LINE_NUM,vP_type]);
|
|
// try
|
|
// Response:=GetServiceSoap().xx_get_barcode_param_f(a);
|
|
// Result:=Pos('N1,',Response.xx_get_barcode_param_fResult.ToUpper)=0;
|
|
// DbApiLog.MessageInfo('xx_get_barcode_param_f 返回:%s',[Response.xx_get_barcode_param_fResult]);
|
|
// if not Result then //返回出错信息
|
|
// begin
|
|
// sError:=Response.xx_get_barcode_param_fResult;
|
|
// end;
|
|
// except
|
|
// on e:Exception do
|
|
// begin
|
|
// Result:=false;
|
|
// DbApiLog.Error('xx_get_barcode_param_f 错误:%s',[ChangeErrorInfo(E.Message)]);
|
|
// sError:=ChangeErrorInfo(E.Message);
|
|
// end;
|
|
// end;
|
|
finally
|
|
// a.Free;
|
|
end;
|
|
end;
|
|
|
|
function TKsoap.cm_bom_plasma_prg_f(vP_lot:string;var sResult,sError:string):boolean;
|
|
//var
|
|
// a:compeq_webservice.cm_bom_plasma_prg_f;
|
|
// Response:cm_bom_plasma_prg_fResponse;
|
|
begin
|
|
if not FOnLine then begin Result:=true;Exit; end;
|
|
|
|
Result:=false;
|
|
// a:=compeq_webservice.cm_bom_plasma_prg_f.create;
|
|
try
|
|
// a.P_ORG_CODE:=FP_ORG_CODE;
|
|
// a.p_lot:=vP_lot;
|
|
// DbApiLog.MessageInfo('cm_bom_plasma_prg_f 请求:P_ORG_CODE=%s,p_lot=%s',[FP_ORG_CODE,vP_lot]);
|
|
// try
|
|
// Response:=GetServiceSoap().cm_bom_plasma_prg_f(a);
|
|
// Result:=Pos('OK:',Response.cm_bom_plasma_prg_fResult.ToUpper)>0;
|
|
// DbApiLog.MessageInfo('cm_bom_plasma_prg_f 返回:%s',[Response.cm_bom_plasma_prg_fResult]);
|
|
// sResult:=StringReplace(Response.cm_bom_plasma_prg_fResult.ToUpper,'OK:','',[]);
|
|
// if not Result then //返回出错信息
|
|
// begin
|
|
// sError:=Response.cm_bom_plasma_prg_fResult;
|
|
// end;
|
|
// except
|
|
// on e:Exception do
|
|
// begin
|
|
// Result:=false;
|
|
// DbApiLog.Error('cm_bom_plasma_prg_f 错误:%s',[ChangeErrorInfo(E.Message)]);
|
|
// sError:=ChangeErrorInfo(E.Message);
|
|
// end;
|
|
// end;
|
|
finally
|
|
// a.Free;
|
|
end;
|
|
end;
|
|
|
|
function TKsoap.Check_tool_or_equip_status_f(vP_lot,vP_LINE_NUM,vP_fixture_code_seq,vP_status:string;var sError:string):boolean;
|
|
//var
|
|
// a:compeq_webservice.method11;
|
|
// Response:method11Response;
|
|
begin
|
|
if not FOnLine then begin Result:=true;Exit; end;
|
|
|
|
Result:=false;
|
|
// a:=compeq_webservice.method11.create;
|
|
try
|
|
// a.p_lot:=vP_lot;
|
|
// a.p_process_code:=FP_PC;
|
|
// a.p_line:=FP_LINE;
|
|
// a.p_line_num:=vP_LINE_NUM;
|
|
// a.p_fixture_code_seq:=vP_fixture_code_seq;
|
|
// a.p_status:=vP_status;
|
|
// DbApiLog.MessageInfo('Check_tool_or_equip_status_f 请求:p_lot=%s,p_process_code=%s,p_line=%s,p_line_num=%s,p_fixture_code_seq=%s,p_status=%s',
|
|
// [vP_lot,FP_PC,FP_LINE,vP_LINE_NUM,vP_fixture_code_seq,vP_status]);
|
|
// try
|
|
// Response:=GetServiceSoap().check_tool_or_equip_status_f(a);
|
|
// Result:=Response.method11Result.ToUpper='Y';
|
|
// DbApiLog.MessageInfo('Check_tool_or_equip_status_f 返回:%s',[Response.method11Result]);
|
|
// if not Result then //返回出错信息
|
|
// begin
|
|
// sError:=Response.method11Result;
|
|
// end;
|
|
// except
|
|
// on e:Exception do
|
|
// begin
|
|
// Result:=false;
|
|
// DbApiLog.Error('Check_tool_or_equip_status_f 错误:%s',[ChangeErrorInfo(E.Message)]);
|
|
// sError:=ChangeErrorInfo(E.Message);
|
|
// end;
|
|
// end;
|
|
finally
|
|
// a.Free;
|
|
end;
|
|
end;
|
|
|
|
//插入从表
|
|
function TKsoap.Insert_cc_wip_lot_bc_history(DetailRecord:TDetailRecord;var sError:string):boolean;
|
|
//var
|
|
// a:compeq_webservice.method10;
|
|
// Response:method10Response;
|
|
begin
|
|
Result:=false;
|
|
sError:='';
|
|
// a:=compeq_webservice.method10.create;
|
|
try
|
|
// a.P_ORG_CODE:=DetailRecord.P_ORG_CODE; // 廠區
|
|
// a.P_LOT:=DetailRecord.P_lot; // 批號
|
|
// a.P_BC:=DetailRecord.P_BC; // 條碼(批號10碼+PNL3碼)
|
|
// a.P_PC:=DetailRecord.P_PC; // 製程
|
|
// a.P_LINE:=DetailRecord.P_LINE; // 線別
|
|
// a.P_LINE_NUM:=DetailRecord.P_LINE_NUM; // 線別編號
|
|
// a.P_LOT_TYPE:=DetailRecord.P_LOT_TYPE; // 正常板/重工板
|
|
// a.P_TROLLEY_NUM:=DetailRecord.P_TROLLEY_NUM; // 台車編號
|
|
// a.P_COPPER_MODEL:=DetailRecord.P_COPPER_MODEL; // 銅箔型號
|
|
// a.P_BUFFER_TYPE:=DetailRecord.P_BUFFER_TYPE; // 緩衝材型號
|
|
// a.P_ID:=DetailRecord.P_ID.ToDouble; // ID號，需與主檔的ID號相同
|
|
// a.P_CREATION_DATE:=DetailRecord.P_CREATION_DATE; //当前时间
|
|
// with DetailRecord do
|
|
// DbApiLog.MessageInfo('Insert_cc_wip_lot_bc_history 请求:P_ORG_CODE=%s,P_LOT=%s,P_BC=%s,P_PC=%s,P_LINE=%s,P_LINE_NUM=%s,P_LOT_TYPE=%s,P_TROLLEY_NUM=%s,P_COPPER_MODEL=%s,P_BUFFER_TYPE=%s,P_ID=%s,P_CREATION_DATE=%s',
|
|
// [P_ORG_CODE,P_lot,P_BC,FP_PC,P_LINE,P_LINE_NUM,P_LOT_TYPE,P_TROLLEY_NUM,P_COPPER_MODEL,P_BUFFER_TYPE,P_ID,P_CREATION_DATE]);
|
|
// try
|
|
// Response:=GetServiceSoap().insert_cc_wip_lot_bc_history(a);
|
|
// Result:=Response.method10Result.ToUpper='OK';
|
|
//
|
|
// DataLog.MessageInfo('%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,返回:%s',[DetailRecord.P_ORG_CODE,DetailRecord.P_lot,DetailRecord.P_BC,DetailRecord.P_PC,DetailRecord.P_LINE,DetailRecord.P_LINE_NUM,DetailRecord.P_LOT_TYPE,DetailRecord.P_TROLLEY_NUM,DetailRecord.P_COPPER_MODEL,DetailRecord.P_BUFFER_TYPE,DetailRecord.P_ID,DetailRecord.P_CREATION_DATE,Response.method10Result]);
|
|
//
|
|
// DbApiLog.MessageInfo('Insert_cc_wip_lot_bc_history 返回:%s',[Response.method10Result]);
|
|
// if not Result then //返回出错信息
|
|
// begin
|
|
// sError:=Response.method10Result;
|
|
// end;
|
|
// except
|
|
// on e:Exception do
|
|
// begin
|
|
// Result:=false;
|
|
// DbApiLog.Error('Insert_cc_wip_lot_bc_history 错误:%s',[ChangeErrorInfo(E.Message)]);
|
|
// sError:=ChangeErrorInfo(E.Message);
|
|
// end;
|
|
// end;
|
|
finally
|
|
// a.Free;
|
|
end;
|
|
end;
|
|
|
|
function TKsoap.Update_qty_time_p(vP_ID,vP_ACT_QTY,vP_END_TIME,vP_LINE_SPEED,vP_BK1,vP_BK2,vP_BK3:string;var sError:string):boolean;
|
|
//var
|
|
// a:compeq_webservice.method12;
|
|
// Response:method12Response;
|
|
begin
|
|
Result:=false;
|
|
// a:=compeq_webservice.method12.create;
|
|
try
|
|
// a.P_ID:=vP_ID;
|
|
// a.P_ACT_QTY:=vP_ACT_QTY; //数量
|
|
// a.P_END_TIME:=vP_END_TIME; //时间
|
|
// a.P_LINE_SPEED:=vP_LINE_SPEED.ToSingle; //线速
|
|
// a.P_BK1:=vP_BK1; //时间 -1
|
|
// a.P_BK2:=vP_BK2; //时间 -1
|
|
// a.P_BK3:=vP_BK3; //时间 -1
|
|
// DbApiLog.MessageInfo('Update_qty_time_p 请求:P_ID=%s,P_ACT_QTY=%s,P_END_TIME=%s,P_LINE_SPEED=%s,P_BK1=%s,P_BK2=%s,P_BK3=%s',[vP_ID,vP_ACT_QTY,vP_END_TIME,vP_LINE_SPEED,vP_BK1,vP_BK2,vP_BK3]);
|
|
// try
|
|
// Response:=GetServiceSoap().update_qty_time_p(a);
|
|
// Result:=Response.method12Result.ToUpper='OK';
|
|
// DbApiLog.MessageInfo('Update_qty_time_p 返回:%s',[Response.method12Result]);
|
|
// if not Result then //返回出错信息
|
|
// begin
|
|
// sError:=Response.method12Result;
|
|
// end;
|
|
// except
|
|
// on e:Exception do
|
|
// begin
|
|
// Result:=false;
|
|
// DbApiLog.Error('Update_qty_time_p 错误:%s',[ChangeErrorInfo(E.Message)]);
|
|
// sError:=ChangeErrorInfo(E.Message);
|
|
// end;
|
|
// end;
|
|
finally
|
|
// a.Free;
|
|
end;
|
|
end;
|
|
|
|
//插入主表
|
|
function TKsoap.Insert_CM_WIP_PROCESS_LINE_HISTORY_NEW(LotNoRecord:TLotNoRecord;var sError:string):boolean;
|
|
var
|
|
// a:compeq_webservice.method9;
|
|
// Response:method9Response;
|
|
i:integer;
|
|
begin
|
|
Result:=false;
|
|
// a:=compeq_webservice.method9.create;
|
|
try
|
|
// a.P_ORG_CODE:=LotNoRecord.P_ORG_CODE; //廠區
|
|
// a.P_NUM:=LotNoRecord.P_NUM; //工號
|
|
// a.P_LOT:=LotNoRecord.P_LOT;
|
|
// a.P_PC:=LotNoRecord.P_PC; //製程
|
|
// a.P_LINE:=LotNoRecord.P_LINE; //線別
|
|
// a.P_LINE_NUM:=LotNoRecord.P_LINE_NUM; //線別編號
|
|
//
|
|
// a.P_LOT_TYPE:=LotNoRecord.P_LOT_TYPE;
|
|
// a.P_BKfile:=LotNoRecord.P_BKfile;
|
|
// a.P_Buffer:=LotNoRecord.P_Buffer;
|
|
// a.P_LINE_SPEED:=LotNoRecord.P_LINE_SPEED;
|
|
// a.P_ELE_CUR_DENSITY:=LotNoRecord.P_ELE_CUR_DENSITY;
|
|
// a.P_ELE_AREA1:=LotNoRecord.P_ELE_AREA1;
|
|
// a.P_ELE_AREA2:=LotNoRecord.P_ELE_AREA2;
|
|
// a.P_COM_TEMPERATURE:=LotNoRecord.P_COM_TEMPERATURE;
|
|
// a.P_PRODUCT_PRESSURE:=LotNoRecord.P_PRODUCT_PRESSURE;
|
|
// a.P_PREHEATING_SEC:=LotNoRecord.P_PREHEATING_SEC;
|
|
// a.P_COMPRESS_SEC:=LotNoRecord.P_COMPRESS_SEC;
|
|
// a.P_STAMPING_DEPTH:=LotNoRecord.P_STAMPING_DEPTH;
|
|
// a.P_DIE_NAME:=LotNoRecord.P_DIE_NAME;
|
|
// a.P_DIE_USE_NUM:=LotNoRecord.P_DIE_USE_NUM;
|
|
// a.P_NUM_PER_ARR:=LotNoRecord.P_NUM_PER_ARR;
|
|
// a.P_Enable:=LotNoRecord.P_Enable;
|
|
// a.P_UPPER_PRESSURE:=LotNoRecord.P_UPPER_PRESSURE;
|
|
// a.P_DOWN_PRESSURE:=LotNoRecord.P_DOWN_PRESSURE;
|
|
// a.P_SLICKER_ANGLE:=LotNoRecord.P_SLICKER_ANGLE;
|
|
// a.P_INK_KNIFE_ANGLE:=LotNoRecord.P_INK_KNIFE_ANGLE;
|
|
// a.P_SLICKER_SPEED:=LotNoRecord.P_SLICKER_SPEED;
|
|
// a.P_INK_KNIFE_SPEED:=LotNoRecord.P_INK_KNIFE_SPEED;
|
|
// a.P_MESH:=LotNoRecord.P_MESH;
|
|
// a.P_NET_SPACING:=LotNoRecord.P_NET_SPACING;
|
|
// a.P_EXPOSURE_TIME:=LotNoRecord.P_EXPOSURE_TIME;
|
|
// a.P_SLAB_THICKNESS:=LotNoRecord.P_SLAB_THICKNESS;
|
|
// a.P_JE_SETUP:=LotNoRecord.P_JE_SETUP;
|
|
// a.P_EXPOSURE_ENERGY:=LotNoRecord.P_EXPOSURE_ENERGY;
|
|
// a.P_DEVELOP_PRESSURE:=LotNoRecord.P_DEVELOP_PRESSURE;
|
|
// a.P_COUNTERPOINT_MODE:=LotNoRecord.P_COUNTERPOINT_MODE;
|
|
// a.P_SHORT_CIRCUIT:=LotNoRecord.P_SHORT_CIRCUIT;
|
|
// a.P_ETCH_FACTOR:=LotNoRecord.P_ETCH_FACTOR;
|
|
// a.P_RESOLUTION:=LotNoRecord.P_RESOLUTION;
|
|
// a.P_SIDE:=LotNoRecord.P_SIDE;
|
|
// a.P_DRY_FILM_TYPE:=LotNoRecord.P_DRY_FILM_TYPE;
|
|
// a.P_NEGATIVE:=LotNoRecord.P_NEGATIVE;
|
|
// a.P_SLICKER_PRESSURE:=LotNoRecord.P_SLICKER_PRESSURE;
|
|
// a.P_INK_KNIFE_PRESSURE:=LotNoRecord.P_INK_KNIFE_PRESSURE;
|
|
// a.P_OFF_NET:=LotNoRecord.P_OFF_NET;
|
|
// a.P_SLICKER_DEPTH:=LotNoRecord.P_SLICKER_DEPTH;
|
|
// a.P_INK_RETURN_KNIFE_DEPTH:=LotNoRecord.P_INK_RETURN_KNIFE_DEPTH;
|
|
// a.P_TROLLEY_NUM:=LotNoRecord.P_TROLLEY_NUM;
|
|
// a.P_TROLLEY_FLAG:=LotNoRecord.P_TROLLEY_FLAG;
|
|
// a.P_COPPER_MODEL:=LotNoRecord.P_COPPER_MODEL;
|
|
// a.P_COMP_PROGRAM:=LotNoRecord.P_COMP_PROGRAM;
|
|
// a.P_COMP_AREA:=LotNoRecord.P_COMP_AREA;
|
|
// a.P_PLATE_WIDTH:=LotNoRecord.P_PLATE_WIDTH;
|
|
// a.P_PLATE_HEIGHT:=LotNoRecord.P_PLATE_HEIGHT;
|
|
// a.P_JET_FLOW:=LotNoRecord.P_JET_FLOW;
|
|
// a.P_ID:=LotNoRecord.P_ID;
|
|
// a.P_CREATION_DATE:=LotNoRecord.P_CREATION_DATE;
|
|
//
|
|
// DbApiLog.MessageInfo('method9 请求:P_ORG_CODE=%s,P_NUM=%s,P_LOT=%s,P_PC=%s,P_LINE=%s,P_LINE_NUM=%s,'
|
|
// +'P_LOT_TYPE=%s,P_BKfile=%s,P_Buffer=%s,P_LINE_SPEED=%s,P_ELE_CUR_DENSITY=%s,P_ELE_AREA1=%s,'
|
|
// +'P_ELE_AREA2=%s,P_COM_TEMPERATURE=%s,P_PRODUCT_PRESSURE=%s,P_PREHEATING_SEC=%s,P_COMPRESS_SEC=%s,'
|
|
// +'P_STAMPING_DEPTH=%s,P_DIE_NAME=%s,P_DIE_USE_NUM=%s,P_NUM_PER_ARR=%s,P_Enable=%s,P_UPPER_PRESSURE=%s,'
|
|
// +'P_DOWN_PRESSURE=%s,P_SLICKER_ANGLE=%s,P_INK_KNIFE_ANGLE=%s,P_SLICKER_SPEED=%s,P_INK_KNIFE_SPEED=%s,'
|
|
// +'P_MESH=%s,P_NET_SPACING=%s,P_EXPOSURE_TIME=%s,P_SLAB_THICKNESS=%s,P_JE_SETUP=%s,P_EXPOSURE_ENERGY=%s,'
|
|
// +'P_DEVELOP_PRESSURE=%s,P_COUNTERPOINT_MODE=%s,P_SHORT_CIRCUIT=%s,P_ETCH_FACTOR=%s,P_RESOLUTION=%s,'
|
|
// +'P_SIDE=%s,P_DRY_FILM_TYPE=%s,P_NEGATIVE=%s,P_SLICKER_PRESSURE=%s,P_INK_KNIFE_PRESSURE=%s,P_OFF_NET=%s,'
|
|
// +'P_SLICKER_DEPTH=%s,P_INK_RETURN_KNIFE_DEPTH=%s,P_TROLLEY_NUM=%s,P_TROLLEY_FLAG=%s,P_COPPER_MODEL=%s,'
|
|
// +'P_COMP_PROGRAM=%s,P_COMP_AREA=%s,P_PLATE_WIDTH=%s,P_PLATE_HEIGHT=%s,P_JET_FLOW=%s,P_ID=%s,'
|
|
// +'P_CREATION_DATE=%s'
|
|
// ,[a.P_ORG_CODE,a.P_NUM,a.P_LOT,a.P_PC,a.P_LINE,a.P_LINE_NUM,a.P_LOT_TYPE,a.P_BKfile,a.P_Buffer,a.P_LINE_SPEED.ToString,
|
|
// a.P_ELE_CUR_DENSITY.ToString,a.P_ELE_AREA1.ToString,a.P_ELE_AREA2.ToString,a.P_COM_TEMPERATURE.ToString,a.P_PRODUCT_PRESSURE.ToString,a.P_PREHEATING_SEC.ToString,
|
|
// a.P_COMPRESS_SEC.ToString,a.P_STAMPING_DEPTH.ToString,a.P_DIE_NAME,a.P_DIE_USE_NUM.ToString,a.P_NUM_PER_ARR.ToString,a.P_Enable,a.P_UPPER_PRESSURE.ToString,
|
|
// a.P_DOWN_PRESSURE.ToString,a.P_SLICKER_ANGLE.ToString,a.P_INK_KNIFE_ANGLE.ToString,a.P_SLICKER_SPEED.ToString,a.P_INK_KNIFE_SPEED.ToString,a.P_MESH,a.P_NET_SPACING.ToString,
|
|
// a.P_EXPOSURE_TIME.ToString,a.P_SLAB_THICKNESS.ToString,a.P_JE_SETUP.ToString,a.P_EXPOSURE_ENERGY.ToString,a.P_DEVELOP_PRESSURE.ToString,a.P_COUNTERPOINT_MODE,
|
|
// a.P_SHORT_CIRCUIT,a.P_ETCH_FACTOR.ToString,a.P_RESOLUTION.ToString,a.P_SIDE,a.P_DRY_FILM_TYPE,a.P_NEGATIVE,a.P_SLICKER_PRESSURE.ToString,
|
|
// a.P_INK_KNIFE_PRESSURE.ToString,a.P_OFF_NET.ToString,a.P_SLICKER_DEPTH.ToString,a.P_INK_RETURN_KNIFE_DEPTH.ToString,a.P_TROLLEY_NUM,a.P_TROLLEY_FLAG,
|
|
// a.P_COPPER_MODEL,a.P_COMP_PROGRAM,a.P_COMP_AREA,a.P_PLATE_WIDTH,a.P_PLATE_HEIGHT,a.P_JET_FLOW,a.P_ID.ToString,a.P_CREATION_DATE]);
|
|
//
|
|
// try
|
|
// Response:=GetServiceSoap().Insert_CM_WIP_PROCESS_LINE_HISTORY_NEW(a);
|
|
// Result:=Response.method9Result.ToUpper='OK';
|
|
// DbApiLog.MessageInfo('method9 返回:%s',[Response.method9Result]);
|
|
// if not Result then //返回出错信息
|
|
// begin
|
|
// sError:=Response.method9Result;
|
|
// end;
|
|
// except
|
|
// on e:Exception do
|
|
// begin
|
|
// Result:=false;
|
|
// DbApiLog.Error('method9 错误:%s',[ChangeErrorInfo(E.Message)]);
|
|
// sError:=ChangeErrorInfo(E.Message);
|
|
// end;
|
|
// end;
|
|
finally
|
|
// a.Free;
|
|
end;
|
|
end;
|
|
|
|
//获取主表ID
|
|
function TKsoap.cf_traceability_seq_f(vP_ORG_CODE:string;var sError:string):Double;
|
|
//var
|
|
// a:compeq_webservice.cf_traceability_seq_f;
|
|
// Response:cf_traceability_seq_fResponse;
|
|
begin
|
|
Result:=0;
|
|
// a:=compeq_webservice.cf_traceability_seq_f.create;
|
|
try
|
|
// a.p_orgcode:=vP_ORG_CODE;
|
|
// DbApiLog.MessageInfo('cf_traceability_seq_f 请求:p_orgcode=%s',[a.p_orgcode]);
|
|
// try
|
|
// Response:=compeq_webservice.GetServiceSoap().cf_traceability_seq_f(a); //System.False,'',FRIO
|
|
// Result:=Response.cf_traceability_seq_fResult;
|
|
// if Result<>0 then FP_Traceability_ID:=Result;
|
|
//
|
|
// DbApiLog.MessageInfo('cf_traceability_seq_f 返回:%s',[Response.cf_traceability_seq_fResult.tostring]);
|
|
// except
|
|
// on e:Exception do
|
|
// begin
|
|
// DbApiLog.Error('cf_traceability_seq_f 错误:%s',[ChangeErrorInfo(E.Message)]);
|
|
// sError:=ChangeErrorInfo(E.Message);
|
|
// end;
|
|
// end;
|
|
finally
|
|
// a.Free;
|
|
end;
|
|
end;
|
|
|
|
function TKsoap.get_barcode_param_f(vP_ORG_CODE,vP_Lot,vP_type,vP_Line_num:string;var sError:string):boolean;
|
|
//var
|
|
// a:compeq_webservice.xx_get_barcode_param_f;
|
|
// Response:xx_get_barcode_param_fResponse;
|
|
begin
|
|
if not FOnLine then begin Result:=true;Exit; end;
|
|
|
|
Result:=false;
|
|
// a:=compeq_webservice.xx_get_barcode_param_f.create;
|
|
try
|
|
// a.p_org:=vP_ORG_CODE;
|
|
// a.p_lot:=vP_Lot;
|
|
// a.p_type:=vP_type;
|
|
// a.p_line_num:=vP_Line_num;
|
|
// DbApiLog.MessageInfo('xx_get_barcode_param_f 请求:p_orgcode=%s',[vP_ORG_CODE]);
|
|
// try
|
|
// Response:=compeq_webservice.GetServiceSoap().xx_get_barcode_param_f(a); //
|
|
// DbApiLog.MessageInfo('xx_get_barcode_param_f 返回:%d',[Response.xx_get_barcode_param_fResult]);
|
|
// except
|
|
// on e:Exception do
|
|
// begin
|
|
// DbApiLog.Error('xx_get_barcode_param_f 错误:%s',[ChangeErrorInfo(E.Message)]);
|
|
// sError:=ChangeErrorInfo(E.Message);
|
|
// end;
|
|
// end;
|
|
finally
|
|
// a.Free;
|
|
end;
|
|
end;
|
|
|
|
function TKsoap.return_default_values_f(var sResult,sError:string):boolean;
|
|
//var
|
|
// a:compeq_webservice.return_default_values_f;
|
|
// Response:return_default_values_fResponse;
|
|
|
|
begin
|
|
if not FOnLine then begin sResult:='';Result:=true;Exit; end;
|
|
|
|
if FP_Line.ToUpper='PLASMA' then
|
|
begin
|
|
Result:=cm_bom_plasma_prg_f(FP_LOT,sResult,sError);
|
|
Exit;
|
|
end;
|
|
|
|
Result:=false;
|
|
// a:=compeq_webservice.return_default_values_f.create;
|
|
try
|
|
// a.P_ORG_CODE:=FP_ORG_CODE;
|
|
// a.P_LOT:=FP_LOT;
|
|
// a.P_PC:=FP_PC;
|
|
// A.P_LINE:=FP_Line;
|
|
// DbApiLog.MessageInfo('return_default_values_f 请求:P_ORG_CODE=%s,P_LOT=%s,P_PC=%s,P_LINE=%s',[a.P_ORG_CODE,a.P_LOT,a.P_PC,a.P_LINE]);
|
|
// try
|
|
// Response:=compeq_webservice.GetServiceSoap().return_default_values_f(a); //
|
|
// DbApiLog.MessageInfo('return_default_values_f 返回:%s',[Response.return_default_values_fResult]);
|
|
// sResult:=Response.return_default_values_fResult;
|
|
// if sResult='未抓到默認值' then
|
|
// begin
|
|
// if FP_Line.ToUpper='PLASMA' then
|
|
// begin
|
|
// sResult:=StringReplace(FP_PC,'-R','',[]);
|
|
// Result:=true;
|
|
// end
|
|
// else
|
|
// begin
|
|
// Result:=true;
|
|
// sResult:='';
|
|
// end;
|
|
// end
|
|
// else
|
|
// Result:=Pos(',',sResult)>0;
|
|
// except
|
|
// on e:Exception do
|
|
// begin
|
|
// DbApiLog.Error('return_default_values_f 错误:%s',[ChangeErrorInfo(E.Message)]);
|
|
// sError:=ChangeErrorInfo(E.Message);
|
|
// end;
|
|
// end;
|
|
finally
|
|
// a.Free;
|
|
end;
|
|
end;
|
|
|
|
function TKsoap.xxcf_get_layer_f(vP_Pn:string;var sResult,sError:string):boolean;
|
|
//var
|
|
// a:compeq_webservice.xxcf_get_layer_f;
|
|
// Response:xxcf_get_layer_fResponse;
|
|
begin
|
|
if not FOnLine then begin sResult:='';Result:=true;Exit; end;
|
|
|
|
if (FP_LINE='AOI檢測') or (FP_LINE='STS VRS') or (FP_LINE='ORC曝光機')
|
|
or (FP_LINE='油墨印刷機') or (FP_LINE='景暉印刷機') then //只有这两种情况才调用
|
|
begin
|
|
Result:=false;
|
|
// a:=compeq_webservice.xxcf_get_layer_f.create;
|
|
// try
|
|
// a.p_org:=FP_ORG_CODE;
|
|
// a.p_pn:=vP_Pn;
|
|
// a.p_process_code:=FP_PC;
|
|
// DbApiLog.MessageInfo('xxcf_get_layer_f 请求:p_org=%s,p_pn=%s,p_process_code=%s',[a.p_org,a.p_pn,a.p_process_code]);
|
|
// try
|
|
// Response:=compeq_webservice.GetServiceSoap().xxcf_get_layer_f(a); //
|
|
// DbApiLog.MessageInfo('xxcf_get_layer_f 返回:%s',[Response.xxcf_get_layer_fResult]);
|
|
// sResult:=Response.xxcf_get_layer_fResult;
|
|
// Result:=Pos(',',sResult)>0;
|
|
// except
|
|
// on e:Exception do
|
|
// begin
|
|
// DbApiLog.Error('xxcf_get_layer_f 错误:%s',[ChangeErrorInfo(E.Message)]);
|
|
// sError:=ChangeErrorInfo(E.Message);
|
|
// end;
|
|
// end;
|
|
// finally
|
|
// a.Free;
|
|
// end;
|
|
end
|
|
else
|
|
begin
|
|
sResult:='';
|
|
Result:=true;
|
|
end;
|
|
end;
|
|
|
|
function TKsoap.cm_mtl_trace_in_f(vP_mtl_barcode,vP_mtl_type:string;var sError:string):boolean;
|
|
//var
|
|
// a:compeq_webservice.cm_mtl_trace_in_f;
|
|
// Response:cm_mtl_trace_in_fResponse;
|
|
begin
|
|
if not FOnLine then begin Result:=true;Exit; end;
|
|
|
|
Result:=false;
|
|
// a:=compeq_webservice.cm_mtl_trace_in_f.create;
|
|
try
|
|
// a.p_lot_num:=FP_LOT; //批号
|
|
// a.p_work_num:=FP_WORK_NUM; //工号
|
|
// a.p_mtl_barcode:=vP_mtl_barcode;
|
|
// a.p_mtl_type:=vP_mtl_type;
|
|
// DbApiLog.MessageInfo('cm_mtl_trace_in_f 请求:p_lot_num=%s,p_work_num=%s,p_mtl_barcode=%s,p_mtl_type=%s',[a.p_lot_num,a.p_work_num,a.p_mtl_barcode,a.p_mtl_type]);
|
|
// try
|
|
// Response:=compeq_webservice.GetServiceSoap().cm_mtl_trace_in_f(a); //
|
|
// DbApiLog.MessageInfo('cm_mtl_trace_in_f 返回:%s',[Response.cm_mtl_trace_in_fResult]);
|
|
// Result:=Pos('Y,',Response.cm_mtl_trace_in_fResult)>0;
|
|
// if not Result then //返回出错信息
|
|
// begin
|
|
// sError:=Response.cm_mtl_trace_in_fResult;
|
|
// end;
|
|
// except
|
|
// on e:Exception do
|
|
// begin
|
|
// DbApiLog.Error('cm_mtl_trace_in_f 错误:%s',[ChangeErrorInfo(E.Message)]);
|
|
// sError:=ChangeErrorInfo(E.Message);
|
|
// end;
|
|
// end;
|
|
finally
|
|
// a.Free;
|
|
end;
|
|
end;
|
|
|
|
function TKsoap.xxcf_check_netboard_f(vP_part_num,vP_face,vp_nb_num:string;var sError:string):boolean;
|
|
//var
|
|
// a:compeq_webservice.xxcf_check_netboard_f;
|
|
// Response:xxcf_check_netboard_fResponse;
|
|
begin
|
|
if not FOnLine then begin Result:=true;Exit; end;
|
|
|
|
Result:=false;
|
|
// a:=compeq_webservice.xxcf_check_netboard_f.create;
|
|
try
|
|
// a.p_org_code:=FP_ORG_CODE;
|
|
// a.p_part_num:=vP_part_num; //料号
|
|
// a.p_process_code:=FP_PC;
|
|
// a.p_face:=vP_face;
|
|
// a.p_nb_num:=vp_nb_num;
|
|
// DbApiLog.MessageInfo('xxcf_check_netboard_f 请求:p_org_code=%s,p_part_num=%s,p_process_code=%s,p_face=%s,p_nb_num=%s',[a.p_org_code,a.p_part_num,a.p_process_code,a.p_face,a.p_nb_num]);
|
|
// try
|
|
// Response:=compeq_webservice.GetServiceSoap().xxcf_check_netboard_f(a); //
|
|
// DbApiLog.MessageInfo('xxcf_check_netboard_f 返回:%s',[Response.xxcf_check_netboard_fResult]);
|
|
// Result:=Response.xxcf_check_netboard_fResult.ToUpper='OK';
|
|
// if not Result then //返回出错信息
|
|
// begin
|
|
// sError:=Response.xxcf_check_netboard_fResult;
|
|
// end;
|
|
// except
|
|
// on e:Exception do
|
|
// begin
|
|
// DbApiLog.Error('xxcf_check_netboard_f 错误:%s',[ChangeErrorInfo(E.Message)]);
|
|
// sError:=ChangeErrorInfo(E.Message);
|
|
// end;
|
|
// end;
|
|
finally
|
|
// a.Free;
|
|
end;
|
|
end;
|
|
|
|
function TKsoap.ExecuteDataSet(vP_SQL:string;var sError:string):boolean;
|
|
var
|
|
// a:compeq_webservice.ExecuteDataSet;
|
|
// Response:ExecuteDataSetResponse;
|
|
b:TXMLData;
|
|
xmldoc: TXMLDocument;
|
|
begin
|
|
if not FOnLine then begin Result:=true;Exit; end;
|
|
|
|
Result:=false;
|
|
// a:=compeq_webservice.ExecuteDataSet.create;
|
|
try
|
|
// a.sql:=vP_SQL;
|
|
// DbApiLog.MessageInfo('ExecuteDataSet 请求:p_SQL=%s',[a.sql]);
|
|
// try
|
|
// Response:=compeq_webservice.GetServiceSoap().ExecuteDataSet(a); //
|
|
// b:= Response.ExecuteDataSetResult.schema;
|
|
// xmldoc:= TXMLDocument.Create(nil);
|
|
// xmldoc.LoadFromXML(b.XMLNode.XML);
|
|
// DbApiLog.MessageInfo('ExecuteDataSet 返回:%s',[xmldoc.XML.Text]);
|
|
// Result:=Response.ExecuteDataSetResult.schema.ToString='OK';
|
|
// if not Result then //返回出错信息
|
|
// begin
|
|
// sError:=Response.ExecuteDataSetResult.schema.ToString;
|
|
// end;
|
|
// except
|
|
// on e:Exception do
|
|
// begin
|
|
// DbApiLog.Error('ExecuteDataSetResponse 错误:%s',[ChangeErrorInfo(E.Message)]);
|
|
// sError:=ChangeErrorInfo(E.Message);
|
|
// end;
|
|
// end;
|
|
finally
|
|
// a.Free;
|
|
end;
|
|
end;
|
|
|
|
function TKsoap.Thread_xxcc_work_num_f(vP_ORG_CODE,vP_WORK_NUM,vP_PC,vP_LINE:string;var sError:string):boolean;
|
|
var
|
|
ssError:string;
|
|
bThreadResult:boolean;
|
|
begin
|
|
Result:=false;
|
|
bThreadResult:=false;
|
|
FThreadId:=0;
|
|
TThread.CreateAnonymousThread(
|
|
procedure
|
|
var
|
|
bResult:boolean;
|
|
begin
|
|
CoInitialize(nil);
|
|
try
|
|
bResult:=xxcc_work_num_f(vP_ORG_CODE,vP_WORK_NUM,vP_PC,vP_LINE,ssError);
|
|
TThread.Synchronize(nil,
|
|
procedure
|
|
begin
|
|
bThreadResult:=bResult;
|
|
FThreadId:=1;
|
|
end);
|
|
finally
|
|
CoUninitialize;
|
|
end;
|
|
end).Start;
|
|
while FThreadId=0 do Application.ProcessMessages;
|
|
Result:=bThreadResult;
|
|
sError:=ssError;
|
|
end;
|
|
|
|
function TKsoap.Thread_XXCC_LOT_PC_F(vP_LOT,vP_LINE_NUM,vP_CHK_FLAG:string;var sError:string):boolean;
|
|
var
|
|
ssError:string;
|
|
bThreadResult:boolean;
|
|
begin
|
|
Result:=false;
|
|
bThreadResult:=false;
|
|
FThreadId:=0;
|
|
TThread.CreateAnonymousThread(
|
|
procedure
|
|
var
|
|
bResult:boolean;
|
|
begin
|
|
CoInitialize(nil);
|
|
try
|
|
bResult:=XXCC_LOT_PC_F(vP_LOT,vP_LINE_NUM,vP_CHK_FLAG,ssError);
|
|
TThread.Synchronize(nil,
|
|
procedure
|
|
begin
|
|
bThreadResult:=bResult;
|
|
FThreadId:=1;
|
|
end);
|
|
finally
|
|
CoUninitialize;
|
|
end;
|
|
end).Start;
|
|
while FThreadId=0 do Application.ProcessMessages;
|
|
Result:=bThreadResult;
|
|
sError:=ssError;
|
|
end;
|
|
|
|
function TKsoap.Thread_getPartnum(vlot,vType:string;var sGoodsNo,sNum,sPC,sResult,sError:string):boolean;
|
|
var
|
|
ssError,ssGoodsNo,ssResult,ssPc,ssNum:string;
|
|
bThreadResult:boolean;
|
|
begin
|
|
Result:=false;
|
|
bThreadResult:=false;
|
|
FThreadId:=0;
|
|
TThread.CreateAnonymousThread(
|
|
procedure
|
|
var
|
|
bResult:boolean;
|
|
begin
|
|
CoInitialize(nil);
|
|
try
|
|
bResult:=getPartnum(vlot,vType,ssGoodsNo,ssNum,ssPC,ssResult,ssError);
|
|
TThread.Synchronize(nil,
|
|
procedure
|
|
begin
|
|
bThreadResult:=bResult;
|
|
FThreadId:=1;
|
|
|
|
end);
|
|
finally
|
|
CoUninitialize;
|
|
end;
|
|
end).Start;
|
|
while FThreadId=0 do Application.ProcessMessages;
|
|
Result:=bThreadResult;
|
|
sError:=ssError;
|
|
sGoodsNo:=ssGoodsNo;
|
|
sNum:=ssNum;
|
|
sPc:=ssPc;
|
|
sResult:=ssResult;
|
|
end;
|
|
|
|
function TKsoap.Thread_xx_get_barcode_param_f(vP_org,vP_lot,vP_LINE_NUM,vP_type:string;var sError:string):boolean;
|
|
var
|
|
ssError:string;
|
|
bThreadResult:boolean;
|
|
begin
|
|
Result:=false;
|
|
bThreadResult:=false;
|
|
FThreadId:=0;
|
|
TThread.CreateAnonymousThread(
|
|
procedure
|
|
var
|
|
bResult:boolean;
|
|
begin
|
|
CoInitialize(nil);
|
|
try
|
|
bResult:=xx_get_barcode_param_f(vP_org,vP_lot,vP_LINE_NUM,vP_type,ssError);
|
|
TThread.Synchronize(nil,
|
|
procedure
|
|
begin
|
|
bThreadResult:=bResult;
|
|
FThreadId:=1;
|
|
end);
|
|
finally
|
|
CoUninitialize;
|
|
end;
|
|
end).Start;
|
|
while FThreadId=0 do Application.ProcessMessages;
|
|
Result:=bThreadResult;
|
|
sError:=ssError;
|
|
end;
|
|
|
|
function TKsoap.Thread_cm_bom_plasma_prg_f(vP_lot:string;var sResult,sError:string):boolean;
|
|
var
|
|
ssError,ssResult:string;
|
|
bThreadResult:boolean;
|
|
begin
|
|
Result:=false;
|
|
bThreadResult:=false;
|
|
FThreadId:=0;
|
|
TThread.CreateAnonymousThread(
|
|
procedure
|
|
var
|
|
bResult:boolean;
|
|
begin
|
|
CoInitialize(nil);
|
|
try
|
|
bResult:=cm_bom_plasma_prg_f(vP_lot,ssResult,ssError);
|
|
TThread.Synchronize(nil,
|
|
procedure
|
|
begin
|
|
bThreadResult:=bResult;
|
|
FThreadId:=1;
|
|
end);
|
|
finally
|
|
CoUninitialize;
|
|
end;
|
|
end).Start;
|
|
while FThreadId=0 do Application.ProcessMessages;
|
|
Result:=bThreadResult;
|
|
sError:=ssError;
|
|
sResult:=ssResult;
|
|
end;
|
|
|
|
function TKsoap.Thread_Check_tool_or_equip_status_f(vP_lot,vP_LINE_NUM,vP_fixture_code_seq,vP_status:string;var sError:string):boolean;
|
|
var
|
|
ssError:string;
|
|
bThreadResult:boolean;
|
|
begin
|
|
Result:=false;
|
|
bThreadResult:=false;
|
|
FThreadId:=0;
|
|
TThread.CreateAnonymousThread(
|
|
procedure
|
|
var
|
|
bResult:boolean;
|
|
begin
|
|
CoInitialize(nil);
|
|
try
|
|
bResult:=Check_tool_or_equip_status_f(vP_lot,vP_LINE_NUM,vP_fixture_code_seq,vP_status,ssError);
|
|
TThread.Synchronize(nil,
|
|
procedure
|
|
begin
|
|
bThreadResult:=bResult;
|
|
FThreadId:=1;
|
|
end);
|
|
finally
|
|
CoUninitialize;
|
|
end;
|
|
end).Start;
|
|
while FThreadId=0 do Application.ProcessMessages;
|
|
Result:=bThreadResult;
|
|
sError:=ssError;
|
|
end;
|
|
|
|
//插入从表
|
|
function TKsoap.Thread_Insert_cc_wip_lot_bc_history(DetailRecord:TDetailRecord;var sError:string):boolean;
|
|
var
|
|
ssError:string;
|
|
bThreadResult:boolean;
|
|
begin
|
|
Result:=false;
|
|
bThreadResult:=false;
|
|
FThreadId:=0;
|
|
TThread.CreateAnonymousThread(
|
|
procedure
|
|
var
|
|
bResult:boolean;
|
|
begin
|
|
CoInitialize(nil);
|
|
try
|
|
bResult:=Insert_cc_wip_lot_bc_history(DetailRecord,ssError);
|
|
TThread.Synchronize(nil,
|
|
procedure
|
|
begin
|
|
bThreadResult:=bResult;
|
|
FThreadId:=1;
|
|
end);
|
|
finally
|
|
CoUninitialize;
|
|
end;
|
|
end).Start;
|
|
while FThreadId=0 do Application.ProcessMessages;
|
|
Result:=bThreadResult;
|
|
sError:=ssError;
|
|
end;
|
|
|
|
function TKsoap.Thread_Update_qty_time_p(vP_ID,vP_ACT_QTY,vP_END_TIME,vP_LINE_SPEED,vP_BK1,vP_BK2,vP_BK3:string;var sError:string):boolean;
|
|
var
|
|
ssError:string;
|
|
bThreadResult:boolean;
|
|
begin
|
|
Result:=false;
|
|
bThreadResult:=false;
|
|
FThreadId:=0;
|
|
TThread.CreateAnonymousThread(
|
|
procedure
|
|
var
|
|
bResult:boolean;
|
|
begin
|
|
CoInitialize(nil);
|
|
try
|
|
bResult:=Update_qty_time_p(vP_ID,vP_ACT_QTY,vP_END_TIME,vP_LINE_SPEED,vP_BK1,vP_BK2,vP_BK3,ssError);
|
|
TThread.Synchronize(nil,
|
|
procedure
|
|
begin
|
|
bThreadResult:=bResult;
|
|
FThreadId:=1;
|
|
end);
|
|
finally
|
|
CoUninitialize;
|
|
end;
|
|
end).Start;
|
|
while FThreadId=0 do Application.ProcessMessages;
|
|
Result:=bThreadResult;
|
|
sError:=ssError;
|
|
end;
|
|
|
|
//插入主表
|
|
function TKsoap.Thread_Insert_CM_WIP_PROCESS_LINE_HISTORY_NEW(LotNoRecord:TLotNoRecord;var sError:string):boolean;
|
|
var
|
|
ssError:string;
|
|
bThreadResult:boolean;
|
|
begin
|
|
Result:=false;
|
|
bThreadResult:=false;
|
|
FThreadId:=0;
|
|
TThread.CreateAnonymousThread(
|
|
procedure
|
|
var
|
|
bResult:boolean;
|
|
begin
|
|
CoInitialize(nil);
|
|
try
|
|
bResult:=Insert_CM_WIP_PROCESS_LINE_HISTORY_NEW(LotNoRecord,ssError);
|
|
TThread.Synchronize(nil,
|
|
procedure
|
|
begin
|
|
bThreadResult:=bResult;
|
|
FThreadId:=1;
|
|
end);
|
|
finally
|
|
CoUninitialize;
|
|
end;
|
|
end).Start;
|
|
while FThreadId=0 do Application.ProcessMessages;
|
|
Result:=bThreadResult;
|
|
sError:=ssError;
|
|
end;
|
|
|
|
//获取主表ID
|
|
function TKsoap.Thread_cf_traceability_seq_f(vP_ORG_CODE:string;var sError:string):Double;
|
|
var
|
|
ssError:string;
|
|
bThreadResult:Double;
|
|
begin
|
|
Result:=0;
|
|
bThreadResult:=0;
|
|
FThreadId:=0;
|
|
TThread.CreateAnonymousThread(
|
|
procedure
|
|
var
|
|
fResult:Double;
|
|
begin
|
|
CoInitialize(nil);
|
|
try
|
|
fResult:=cf_traceability_seq_f(vP_ORG_CODE,ssError);
|
|
TThread.Synchronize(nil,
|
|
procedure
|
|
begin
|
|
bThreadResult:=fResult;
|
|
FThreadId:=1;
|
|
end);
|
|
finally
|
|
CoUninitialize;
|
|
end;
|
|
end).Start;
|
|
while FThreadId=0 do Application.ProcessMessages;
|
|
Result:=bThreadResult;
|
|
sError:=ssError;
|
|
end;
|
|
|
|
function TKsoap.Thread_get_barcode_param_f(vP_ORG_CODE,vP_Lot,vP_type,vP_Line_num:string;var sError:string):boolean;
|
|
var
|
|
ssError:string;
|
|
bThreadResult:boolean;
|
|
begin
|
|
Result:=false;
|
|
bThreadResult:=false;
|
|
FThreadId:=0;
|
|
TThread.CreateAnonymousThread(
|
|
procedure
|
|
var
|
|
bResult:boolean;
|
|
begin
|
|
CoInitialize(nil);
|
|
try
|
|
bResult:=get_barcode_param_f(vP_ORG_CODE,vP_Lot,vP_type,vP_Line_num,ssError);
|
|
TThread.Synchronize(nil,
|
|
procedure
|
|
begin
|
|
bThreadResult:=bResult;
|
|
FThreadId:=1;
|
|
end);
|
|
finally
|
|
CoUninitialize;
|
|
end;
|
|
end).Start;
|
|
while FThreadId=0 do Application.ProcessMessages;
|
|
Result:=bThreadResult;
|
|
sError:=ssError;
|
|
end;
|
|
|
|
function TKsoap.Thread_return_default_values_f(var sResult,sError:string):boolean;
|
|
var
|
|
ssError,ssResult:string;
|
|
bThreadResult:boolean;
|
|
begin
|
|
Result:=false;
|
|
bThreadResult:=false;
|
|
FThreadId:=0;
|
|
TThread.CreateAnonymousThread(
|
|
procedure
|
|
var
|
|
bResult:boolean;
|
|
begin
|
|
CoInitialize(nil);
|
|
try
|
|
bResult:=return_default_values_f(ssResult,ssError);
|
|
TThread.Synchronize(nil,
|
|
procedure
|
|
begin
|
|
bThreadResult:=bResult;
|
|
FThreadId:=1;
|
|
end);
|
|
finally
|
|
CoUninitialize;
|
|
end;
|
|
end).Start;
|
|
while FThreadId=0 do Application.ProcessMessages;
|
|
Result:=bThreadResult;
|
|
sError:=ssError;
|
|
sResult:=ssResult;
|
|
end;
|
|
|
|
function TKsoap.Thread_xxcf_get_layer_f(vP_Pn:string;var sResult,sError:string):boolean;
|
|
var
|
|
ssError,ssResult:string;
|
|
bThreadResult:boolean;
|
|
begin
|
|
Result:=false;
|
|
bThreadResult:=false;
|
|
FThreadId:=0;
|
|
TThread.CreateAnonymousThread(
|
|
procedure
|
|
var
|
|
bResult:boolean;
|
|
begin
|
|
CoInitialize(nil);
|
|
try
|
|
bResult:=xxcf_get_layer_f(vP_Pn,ssResult,ssError);
|
|
TThread.Synchronize(nil,
|
|
procedure
|
|
begin
|
|
bThreadResult:=bResult;
|
|
FThreadId:=1;
|
|
end);
|
|
finally
|
|
CoUninitialize;
|
|
end;
|
|
end).Start;
|
|
while FThreadId=0 do Application.ProcessMessages;
|
|
Result:=bThreadResult;
|
|
sError:=ssError;
|
|
sResult:=ssResult;
|
|
end;
|
|
|
|
function TKsoap.Thread_cm_mtl_trace_in_f(vP_mtl_barcode,vP_mtl_type:string;var sError:string):boolean;
|
|
var
|
|
ssError:string;
|
|
bThreadResult:boolean;
|
|
begin
|
|
Result:=false;
|
|
bThreadResult:=false;
|
|
FThreadId:=0;
|
|
TThread.CreateAnonymousThread(
|
|
procedure
|
|
var
|
|
bResult:boolean;
|
|
begin
|
|
CoInitialize(nil);
|
|
try
|
|
bResult:=cm_mtl_trace_in_f(vP_mtl_barcode,vP_mtl_type,ssError);
|
|
TThread.Synchronize(nil,
|
|
procedure
|
|
begin
|
|
bThreadResult:=bResult;
|
|
FThreadId:=1;
|
|
end);
|
|
finally
|
|
CoUninitialize;
|
|
end;
|
|
end).Start;
|
|
while FThreadId=0 do Application.ProcessMessages;
|
|
Result:=bThreadResult;
|
|
sError:=ssError;
|
|
end;
|
|
|
|
function TKsoap.Thread_xxcf_check_netboard_f(vP_part_num,vP_face,vp_nb_num:string;var sError:string):boolean;
|
|
var
|
|
ssError:string;
|
|
bThreadResult:boolean;
|
|
begin
|
|
Result:=false;
|
|
bThreadResult:=false;
|
|
FThreadId:=0;
|
|
TThread.CreateAnonymousThread(
|
|
procedure
|
|
var
|
|
bResult:boolean;
|
|
begin
|
|
CoInitialize(nil);
|
|
try
|
|
bResult:=xxcf_check_netboard_f(vP_part_num,vP_face,vp_nb_num,ssError);
|
|
TThread.Synchronize(nil,
|
|
procedure
|
|
begin
|
|
bThreadResult:=bResult;
|
|
FThreadId:=1;
|
|
end);
|
|
finally
|
|
CoUninitialize;
|
|
end;
|
|
end).Start;
|
|
while FThreadId=0 do Application.ProcessMessages;
|
|
Result:=bThreadResult;
|
|
sError:=ssError;
|
|
end;
|
|
|
|
function TKsoap.Thread_ExecuteDataSet(vSQL:string;var sError:string):boolean;
|
|
var
|
|
ssError:string;
|
|
bThreadResult:boolean;
|
|
begin
|
|
Result:=false;
|
|
bThreadResult:=false;
|
|
FThreadId:=0;
|
|
TThread.CreateAnonymousThread(
|
|
procedure
|
|
var
|
|
bResult:boolean;
|
|
begin
|
|
CoInitialize(nil);
|
|
try
|
|
bThreadResult:=ExecuteDataSet(vSQL,ssError);
|
|
TThread.Synchronize(nil,
|
|
procedure
|
|
begin
|
|
bThreadResult:=bResult;
|
|
FThreadId:=1;
|
|
end);
|
|
finally
|
|
CoUninitialize;
|
|
end;
|
|
end).Start;
|
|
while FThreadId=0 do Application.ProcessMessages;
|
|
Result:=bThreadResult;
|
|
sError:=ssError;
|
|
|
|
end;
|
|
|
|
end.
|