unit uMain;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Types, System.UITypes,
  System.Classes, System.Variants, System.IOUtils, System.StrUtils, System.DateUtils,
  System.ImageList, ActiveX, ShellAPI,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects,
  FMX.ImgList, FMX.Controls.Presentation, FMX.Edit, FMX.Pickers, FMX.ListBox,
  FMX.ComboEdit, FMX.Layouts, FMX.StdCtrls,
  utcpdevice, iniFiles, uSafeLog, uKsoap, uPucFun, uPassword, uShowInfo, udm,
  uFrameBase, uFrameBaseBland, uInkPrintConent, MahUSB,
  uConfigManager, uBusinessServices, uLogManager;

type
  TfrmMain = class(TForm)
    LayoutMain: TRectangle;
    Rectangle7: TRectangle;
    Rectangle_MenuLeft: TRectangle;
    Rectangle_MenuRight: TRectangle;
    Glyph1: TGlyph;
    ImageList1: TImageList;
    Rectangle001: TRectangle;
    Text3: TText;
    TxtPc: TText;
    Rec_OkSave: TRectangle;
    Rectangle12: TRectangle;
    Rectangle14: TRectangle;
    Text7: TText;
    Rec_GD: TRectangle;
    Glyph4: TGlyph;
    Text8: TText;
    Text9: TText;
    EdtEmpNo: TEdit;
    Rec_code: TRectangle;
    Glyph5: TGlyph;
    Text10: TText;
    Text11: TText;
    EdtGoodsNo: TEdit;
    RectangleLotNo: TRectangle;
    Glyph6: TGlyph;
    Text12: TText;
    Text13: TText;
    EdtLotNo: TEdit;
    Rectangle18: TRectangle;
    Glyph7: TGlyph;
    Text14: TText;
    TxtLineNum: TText;
    Rectangle19: TRectangle;
    Glyph8: TGlyph;
    Text16: TText;
    TxtLine: TText;
    Rectangle2: TRectangle;
    Rectangle3: TRectangle;
    Rectangle6: TRectangle;
    Rectangle4: TRectangle;
    TxtFactoryCode: TText;
    Text2: TText;
    Rectangle5: TRectangle;
    Text21: TText;
    Timer1: TTimer;
    Rectangle35: TRectangle;
    Text49: TText;
    Rectangle36: TRectangle;
    TxtEmpNoError: TText;
    Glyph23: TGlyph;
    Text4: TText;
    TxtVerInfo: TText;
    TxtLotnoError: TText;
    Text5: TText;
    TxtOffline: TText;
    TxtGoodsNoError: TText;
    ComboBoxP_PC: TComboBox;
    StyleBook1: TStyleBook;
    GridLayout1: TGridLayout;
    Rec_Menu: TRectangle;
    CheckBox1: TCheckBox;
    Label_NG: TLabel;
    RectangleChild: TRectangle;
    procedure Text7Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Rectangle2Click(Sender: TObject);
    procedure Text4Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure EdtEmpNoKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char;
      Shift: TShiftState);
    procedure EdtLotNoKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char;
      Shift: TShiftState);
    procedure EdtLotNoExit(Sender: TObject);
    procedure Text5Click(Sender: TObject);
    procedure  AppctionError(Sender: TObject; E: Exception);
    procedure ComboBoxP_PCExit(Sender: TObject);
    procedure TxtVerInfoClick(Sender: TObject);
    procedure EdtEmpNoChange(Sender: TObject);
    procedure EdtLotNoChange(Sender: TObject);
    procedure EdtEmpNoExit(Sender: TObject);
    procedure EdtLotNoClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ComboBoxP_PCChange(Sender: TObject);
    procedure EdtGoodsNoExit(Sender: TObject);
    procedure ComboBoxP_PCClick(Sender: TObject);
    procedure EdtGoodsNoKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
      Shift: TShiftState);
  private
    FUsb : TUsbClass;
    FLastInputTime, oldFLastInputTime: TDateTime; // 记录最后输入时间
    FDataAccessService: TDataAccessService;
    FProductionService: TProductionReportingService;
    procedure UIDataClear;
    procedure UIClear();
    procedure SetMainUIParameter;
    procedure SetRadioOption(sRadioList: string);
    procedure ShowMainError(EmpNoError,LotNoError,GoodsNoError:string);
    procedure aaaWork(Avalue: string);
    function EdtLotPartnum(Value: string): Boolean;

     procedure UsbIN(ASender : TObject; const ADevType,ADriverName,
                     AFriendlyName : string);
     procedure UsbOUT(ASender : TObject; const ADevType,ADriverName,
                     AFriendlyName : string);
    procedure comlista;
    procedure CreateEmpNoExit;
    procedure EdtEmpNoExitList;
    procedure EdtLotNoExit1;
    procedure ComboBoxP_PC_Down();
    procedure HFraButClick(Sender: TObject; ButtonID: Integer);
    { Private declarations }
  public
    DisplayFrame:TFrameBase;

    sLotNum:string;   //批号的数量
    sPartnumValue:string;   //获取料号返回的数据

    DbSoapThread:TDbSoapThread;
  end;

var
  frmMain: TfrmMain;
  iniListName:TStrings;

implementation

{$R *.fmx}
{   二维要代出
259->261
259-R->261-R
54-> 18K预烤 ？
541-> 18K后烤
18B油墨印刷机->18B大气烤箱
182-B景晖手动印刷机->182-B烤箱
}

uses uSetMain, uListMoreConent, uListConent,
  json_dypSave, uFrame_Dyp001, uFrame_Dyp_Setup,
  uFrame_Dyp002, uFrame_Dyp003, uFrame_Dyp000, json_webservice;

procedure TfrmMain.EdtEmpNoChange(Sender: TObject);
begin
   if EdtEmpNo.Text='' then TxtShowErrorInfo(TxtEmpNoError,'');
end;

procedure TfrmMain.EdtEmpNoExit(Sender: TObject); //查用户表
var
  sError:string;
begin
  if EdtEmpNo.Text='' then exit;

  ShowMainError('','','');
  TThread.CreateAnonymousThread(
  procedure
  var
  sError:string;
  begin
    CoInitialize(nil);
    TRY
      if not FProductionService.ValidateUser(EdtEmpNo.Text) then
      begin
      TxtEmpNoError.TextSettings.FontColor:= $FFFF0000;
      ShowMainError('用户账号错误','','');
      Exit;
      end;
    FINALLY
      CoUninitialize;
    END;
  end).Start;

//  EdtEmpNoExitList;
end;

procedure TfrmMain.EdtGoodsNoExit(Sender: TObject);
begin
  if (EdtGoodsNo.Text = '') or (ComboBoxP_PC.ItemIndex < 0) or (EdtLotNo.Text = '') then
    Exit;

  ShowMainError('', '', '');

  // 提前获取需要在线程中使用的值，避免跨线程访问VCL控件
  var LItemCode := EdtGoodsNo.Text;
  var LLotNo := EdtLotNo.Text;
  var LProcessIndex := ComboBoxP_PC.ItemIndex;
  var LProcessNumber := '';

  if LProcessIndex >= 0 then
    LProcessNumber := KJSon.REST_Value(KJSon.FList_pro_process.Strings[LProcessIndex], 'number');

  TThread.CreateAnonymousThread(
    procedure
    var
      sError: string;
      LNeedsSync: Boolean;
    begin
      CoInitialize(nil);
      try
        sError := '';
        LNeedsSync := False;

        // 检查是否满足执行条件
        if (KJSon.FList_pro_process.Count > 0) and (LProcessIndex > -1) then
        begin
          if not FProductionService.ValidateGoodsNo(LItemCode, LProcessNumber, LLotNo) then
          begin
            LNeedsSync := True;
            TThread.Synchronize(nil,
              procedure
              begin
                TxtEmpNoError.TextSettings.FontColor := $FFFF0000;
                ShowMainError('二维码错误或还没有检验过', '', '');
              end);
            Exit;
          end;
        end;

        // 如果有错误信息，也同步显示
        if sError <> '' then
        begin
          if not LNeedsSync then // 如果尚未同步，则需要新的同步
          begin
            TThread.Synchronize(nil,
              procedure
              begin
                ShowMainError(sError, '', '');
              end);
          end
          else
          begin
            // 如果已经需要同步，可以合并错误信息（根据实际需求调整）
            TThread.Synchronize(nil,
              procedure
              begin
                ShowMainError('二维码错误或还没有检验过', sError, '');
              end);
          end;
        end;

      finally
        CoUninitialize;
      end;
    end).Start;
end;

procedure TfrmMain.EdtGoodsNoKeyUp(Sender: TObject; var Key: Word;
  var KeyChar: Char; Shift: TShiftState);
begin
    // 每次输入内容时，更新最后输入时间
  FLastInputTime := Now;
//  Text13.Text:= EdtGoodsNo.Text;
//  if (EdtGoodsNo.Text.Length>10) then
//  begin
//  //  Text13.Text:= EdtGoodsNo.Text + Key.ToString();
//    Text7Click(Sender);
//  end;
end;

procedure TfrmMain.EdtEmpNoExitList;
begin
   if (EdtEmpNo.Text<>'') and (not TxtOffline.Visible) then   //不是手工操作
        TThread.CreateAnonymousThread(
        procedure
        var
           sError:string;
           I: Integer;
        begin
            CoInitialize(nil);
            TRY

                //检查工号
                if KJSon.REST_pro_List(EdtEmpNo.Text,2,sError)<>'' then
                begin
                  TxtEmpNoError.TextSettings.FontColor:= $FFFF0000;
                  ShowMainError(sError,'','');
                  Exit;
                end;

//                if (not Ksoap.xxcc_work_num_f(FactoryCode,EdtEmpNo.Text,TxtPc.Text,TxtLine.Text,sError)) then
//                begin
//                  TxtEmpNoError.TextSettings.FontColor:= $FFFF0000;
//                  ShowMainError(sError,'','');
//                  Exit;
//                end
//                else
//                begin
//                  TxtEmpNoError.TextSettings.FontColor:= $FF0003F3;
//                  ShowMainError('ok','','');
//                end;
            finally
                CoUninitialize;
            end;
        end
      ).Start;
end;

procedure TfrmMain.EdtEmpNoKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);
var
  i: Boolean;
  StartTime: Int64;
begin
  StartTime := TThread.GetTickCount;
  try
    if Key = vk_Return then
    begin
        TxtEmpNoError.Text:='';
        EdtGoodsNo.Text:='';
        EdtLotNo.SetFocus;
    end;

//  i := (KeyChar <= #8) or (KeyChar <= #8) and (KeyChar < #48) or (KeyChar > #57);
//  if i then
//    KeyChar := #0;
//
//  if not (KeyChar in ['0'..'9', #13]) then
//    KeyChar := #0;

  finally
    LogManager.LogUIOperation('KeyDown', 'EdtEmpNo', TThread.GetTickCount - StartTime);
  end;
end;

procedure TfrmMain.EdtLotNoKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);
var
  StartTime: Int64;
begin
  StartTime := TThread.GetTickCount;
  try
    if Key = vk_Return then EdtGoodsNo.SetFocus;
  finally
    LogManager.LogUIOperation('KeyDown', 'EdtLotNo', TThread.GetTickCount - StartTime);
  end;
end;

procedure TfrmMain.aaaWork(Avalue:string);
begin
    //连接数据库服务器
    TThread.Synchronize(nil,
     procedure
     begin
       TxtLineNum.Text:=Avalue;
      //Form1.Memo1.Lines.Add();
     end);
end;

procedure TfrmMain.UIClear();
begin
  ComboBoxP_PC.Items.Clear;
  try
    dm.MainUI:=StrToInt(FDataAccessService.ReadProductionParams('MainUI'));
  except
    dm.MainUI:= 1;
  end;

//  EdtGoodsNo.ReadOnly:=not TxtOffline.Visible;
  if FDataAccessService.ReadProductionParams('DataOpline')<>'' then
  try
    dm.DataOpline:=StrToInt(FDataAccessService.ReadProductionParams('DataOpline'));
  except
    dm.DataOpline:= 0;
  end;


    TRY


    //  KJSon.REST_pro_List('', 1, sP_KB); //查工序


      if dm.MainUI=2 then  //特殊处理 'VCP F线A列'=trim(TxtLine.Text)
      begin
         RectangleLotNo.Visible:=false;
         Rec_code.Visible:=false;
         Label_NG.Visible:= true;

      end
      else  if dm.MainUI=3 then
      begin

     //    ComboBoxP_PC_Down();  //加载数据
      end
      else if dm.MainUI=4 then
      begin


//        // 安全释放方案
//        if Assigned(DisplayFrame) then // 更标准的Delphi对象检查方式
//        begin
//          try
//            DisplayFrame.Free;
//          finally
//            DisplayFrame := nil; // 重要：立即置空指针
//          end;
//        end;

    //    Rec_GD.Visible:= False;
    //    RectangleLotNo.Visible:= False;
        Label_NG.Visible:= False;
        Text12.Text:= '返回工序';


        DisplayFrame:=TFrame_Dyp_Setup.Create(nil);
        DisplayFrame.Parent:=RectangleChild;
        DisplayFrame.Align:=TAlignLayout.Top;
        DisplayFrame.GridLayout:=GridLayout1;
        DisplayFrame.FillDefaultValue('sPartnumValue','');
     //   DisplayFrame.Controls[0].BringToFront;
     //   RectangleChild.Controls[0].BringToFront;


        WorkLog.MessageInfo('修维部1:%s ' , [DisplayFrame.Name]);

  //      ShowInfoOK('上传成功,正在生产中...');
       // exit;
    //    Rectangle16.Visible:=false;
      end;

    except

    END;


//  SetMainUIParameter();  //加载界面数据

  TThread.CreateAnonymousThread(
    procedure
    var
       sError:string;
       I: Integer;
    begin
        CoInitialize(nil);
        TRY
          SetMainUIParameter();  //加载界面

          if DisplayFrame=nil then  //其他
          begin
              DisplayFrame:=TFrameBaseBland.Create(nil);
              DisplayFrame.Parent:=RectangleChild;
              DisplayFrame.Align:=TAlignLayout.Bottom;
              DisplayFrame.GridLayout:=GridLayout1;
              //Text21.Text:= DisplayFrame.Name;
              DisplayFrame.Initialize();
              Exit;
          end;

          if EdtEmpNo.Visible then
            EdtEmpNo.SetFocus;
        finally
            CoUninitialize;
        end;
    end
  ).Start;

end;

procedure TfrmMain.UIDataClear();
VAR
   I:INTEGER;
   sP_KB:string;
begin
  WorkLog.MessageInfo('界面初始化');

  TxtShowErrorInfo(TxtEmpNoError,'');
  TxtShowErrorInfo(TxtLotNoError,'');
  TxtShowErrorInfo(TxtGoodsNoError,'');
  // EdtEmpNo.Text:='';
  //EdtLotNo.Text:='';
  EdtGoodsNo.Text:='';
  for I :=GridLayout1.ChildrenCount-1  downto 0 do
  begin
    TRadioButton(GridLayout1.Children[i]).IsChecked:=false;
  end;

  if DisplayFrame<>nil then
  begin
    DisplayFrame.ClearAll;
  end;


end;

procedure TfrmMain.ComboBoxP_PCChange(Sender: TObject);
var
  sTemp: string;
begin
  if dm.MainUI=4 then exit; //去掉维修


//  ShowMainError('1','','');
  if (ComboBoxP_PC.ItemIndex>-1) and (KJSon. FList_pro_process.Count>0) then
    TxtLine.Text:= KJSon. REST_Value(KJSon. FList_pro_process.Strings[ComboBoxP_PC.ItemIndex], 'name'); //ComboBoxP_PC.Items.Add(KJSon. REST_Value(KJSon. FList_Str.Strings[i], 'number'));

  // 安全释放方案
//  if (ComboBoxP_PC.ItemIndex > -1) and (KJSon. FList_pro_process.Count>0) then begin
    if Assigned(DisplayFrame) then // 更标准的Delphi对象检查方式
    begin
      try
        DisplayFrame.Free;
      finally
        DisplayFrame := nil; // 重要：立即置空指针
      end;
    //  ComboBoxP_PC.ItemIndex:= 0;
    end;
//  end;

  //电应普
  if (DisplayFrame=nil) and (ComboBoxP_PC.ItemIndex > -1) and (trim(KJSon. REST_Value(KJSon. FList_pro_process.Strings[ComboBoxP_PC.ItemIndex], 'attention'))<>'') then
  begin
    sTemp:= UpperCase(Trim(copy(trim(KJSon. REST_Value(KJSon. FList_pro_process.Strings[ComboBoxP_PC.ItemIndex], 'attention')),1,2)));
    WorkLog.MessageInfo('DisplayFrame_sTemp: %d,%s',[ComboBoxP_PC.ItemIndex,sTemp]);
  //  ShowMainError('2','','');
    if sTemp=UpperCase('bx') then
      begin
        DisplayFrame:=TFrame_Dyp001.Create(nil);
        DisplayFrame.Parent:=RectangleChild;
        DisplayFrame.Align:=TAlignLayout.Top;
        DisplayFrame.GridLayout:=GridLayout1;
        DisplayFrame.OnPanelButClick := HFraButClick;
        DisplayFrame.Tag:= ComboBoxP_PC.ItemIndex;
   //     ShowMainError('3','','');
        exit;
      end;

      if sTemp=UpperCase('bd') then
      begin
        DisplayFrame:=TFrame_Dyp002.Create(nil);
        DisplayFrame.Parent:=RectangleChild;
        DisplayFrame.Align:=TAlignLayout.Top;
        DisplayFrame.GridLayout:=GridLayout1;
        DisplayFrame.OnPanelButClick := HFraButClick;
        DisplayFrame.Tag:= ComboBoxP_PC.ItemIndex;
        exit;
      end;

      if sTemp=UpperCase('cl') then
      begin
        DisplayFrame:=TFrame_Dyp003.Create(nil);
        DisplayFrame.Parent:=RectangleChild;
        DisplayFrame.Align:=TAlignLayout.Top;
        DisplayFrame.GridLayout:=GridLayout1;
        DisplayFrame.OnPanelButClick := HFraButClick;
        DisplayFrame.Tag:= ComboBoxP_PC.ItemIndex;
        exit;
      end;

      if sTemp=UpperCase('nu') then //'null'
      begin
        DisplayFrame:=TFrame_Dyp000.Create(nil);
        DisplayFrame.Parent:=RectangleChild;
        DisplayFrame.Align:=TAlignLayout.Top;
        DisplayFrame.GridLayout:=GridLayout1;
        DisplayFrame.Tag:= ComboBoxP_PC.ItemIndex;
        exit;
      end;

     // SetRadioOption('TOP面,BOT面');
      Exit;
  end;

end;

procedure TfrmMain.ComboBoxP_PCClick(Sender: TObject);
begin
  if EdtLotNo.Text.Length=0 then
  begin
  //  ShowInfoOK('工单不能为空');
    TxtShowErrorInfo(TxtEmpNoError,'工单不能为空');
    exit;
  end;
end;

procedure TfrmMain.ComboBoxP_PCExit(Sender: TObject);   //把工序给值
begin
  if (ComboBoxP_PC.Count>0) and (ComboBoxP_PC.Selected<>nil) then
     Text13.Text:=ComboBoxP_PC.Selected.Text;
end;

procedure TfrmMain.ComboBoxP_PC_Down();
var
  i: Integer;
  sTemp: String;
begin
  ComboBoxP_PC.Items.Clear;
  if KJSon. FList_pro_process.Count>0 then
  begin
    for I := 0 to KJSon. FList_pro_process.Count - 1 do
    begin
      sTemp:= KJSon. REST_Value(KJSon. FList_pro_process.Strings[i], 'attention').Replace('null','');
      if (sTemp<>'') then sTemp:= UpperCase(Copy(sTemp, 1, 2)) + '-';

      ComboBoxP_PC.Items.Add(sTemp + KJSon. REST_Value(KJSon. FList_pro_process.Strings[i], 'processName'));
    end;
  end;


  with ComboBoxP_PC do
  begin
      DropDownKind := TDropDownKind.Custom;
      for i := 0 to Count - 1 do
      begin
        ListBox.ListItems[i].TextSettings.Font.Size := 16;
        ListBox.ListItems[i].StyledSettings :=ListBox.ListItems[i].StyledSettings-[TStyledSetting.Size];
      end;
  end;

 // ShowInfoOK(inttostr(KJSon. FList_pro_process.Count));
end;

procedure TfrmMain.SetMainUIParameter();
VAR
  tmpList:Tstrings;

  sP_KB, sTemp: String;

  i: integer;

  procedure SetOption(Rectangle:TRectangle;sValue:string);
  var
     i:integer;
  begin
     if (sValue='#') then
     begin
         for I := 0 to Rectangle.ControlsCount-1 do
         begin
            if TControl(Rectangle.Controls[i]) is TGlyph then
               TGlyph(Rectangle.Controls[i]).ImageIndex:=-1
            else
               TControl(Rectangle.Controls[i]).Visible:=false;
         end;
     end
     else
     begin
          for i := 0 to Rectangle.ControlsCount-1 do
          begin
            if Pos('OptionLabel',Rectangle.Controls[i].Name)>0 then
               TText(Rectangle.Controls[i]).Text:=sValue;
            TControl(Rectangle.Controls[i]).Visible:=true;
            if TControl(Rectangle.Controls[i]) is TGlyph then
               TGlyph(Rectangle.Controls[i]).ImageIndex:=11;
          end;
     end;
  end;
begin

  sbaseUrl:=FDataAccessService.ReadConfigValue('tv_DirData','server_url');
  if sbaseUrl='' then
    sbaseUrl:= Config.GetServerURL;

  FactoryCode:=FDataAccessService.ReadDeviceInfo('FACTORY_CODE');
  TxtFactoryCode.Text:= FactoryCode; //string类型
 // TxtPc.Text:= FDataAccessService.ReadDeviceInfo('P_PC'); //string类型
  TxtLine.Text:= FDataAccessService.ReadDeviceInfo('P_LINE'); //string类型
  TxtLineNum.Text:= FDataAccessService.ReadDeviceInfo('P_LINE_NUM'); //string类型
  sP_KB:=FDataAccessService.ReadDeviceInfo('P_KB');

  fDevRecord.FP_User:= FDataAccessService.ReadConfigValue('tv_DirData','u_user');
  fDevRecord.FP_Pass:= FDataAccessService.ReadConfigValue('tv_DirData','u_pass');


  try
    dm.Operate:=StrToInt(FDataAccessService.ReadProductionParams('tv_Operate'));
  except
    dm.Operate:= 1;
  end;

  WorkLog.MessageInfo('设备信息:'+FactoryCode+','+TxtPc.Text+','+TxtLine.Text+','+TxtLineNum.Text+','+sP_KB);

        //登录用户
  if WebJSon.PostJSONWithREST_Login(fDevRecord.FP_User,fDevRecord.FP_Pass,sP_KB)='' then
  begin
    TxtEmpNoError.TextSettings.FontColor:= $FFFF0000;
    ShowMainError(sP_KB,'','');
    Exit;
  end;

  if dm.MainUI=4 then //维修数据加载
  begin
   // KJSon.REST_pro_List('', 9, sP_KB); //查工序
  //  if DisplayFrame<>nil then
   //   DisplayFrame.FillDefaultValue('sPartnumValue',''); //查工序
    TxtLineNum.Text:= '修维部';
  end;


end;

procedure  TfrmMain.AppctionError(Sender: TObject; E: Exception);
begin
    WorkLog.Error('AppctionError:'+E.Message);
    ShowError('程序异常，请与技术人员联系!');
end;

procedure TfrmMain.comlista;
var
    ADevType,ADriverDesc,
  AFriendlyName : string;
begin
  UsbOUT(nil,ADevType,ADriverDesc,AFriendlyName);
end;

procedure TfrmMain.FormCreate(Sender: TObject);
var
  Filename: string;
  vs,sError: string;
  i:integer;
  f:TStrings;
begin
  FDataAccessService := TBusinessServiceFactory.GetDataAccessService();
  FProductionService := TBusinessServiceFactory.GetProductionReportingService('');
  //http://home09.compeq.huizhou.gd.cn/ctshopfloor/Mor/PRM/MorQuery.asp 查询 制程名称 設備統稱

  Application.OnException:=AppctionError;
  WorkLog.MessageInfo('');
  WorkLog.MessageInfo('程序开始');
  DbApiLog.MessageInfo('');
  DbApiLog.MessageInfo('程序开始');
  ksoap.OnLine:=true;
  sError:= '';

 // ksoap.Thread_ExecuteDataSet('select sysdate from dual',sError);//查时间
 // Ksoap.getPartnumTime('R300000100','TIME',sError);
  try
    FLastInputTime := Now; // 初始化时间
    oldFLastInputTime:=  FLastInputTime;
  //  SetTime(sError);
  Except
  end;

  TxtOffline.Visible:=false;  //手工操作
  dm.LoadMain();
  dm.LoadDetail();


  //R3003420L
  //R3003420L12001

  ComName:=FDataAccessService.ReadAlarmConfig('DevName');

//  if ComName<>'' then
//  begin
//    ComType:=FDataAccessService.ReadAlarmConfig('ComType');
//    if ComType='1' then //使用IO盒子控制
//    begin
//      AlarmCom:=TAlarmCom.Create;
//      AlarmCom.open(ComName,sError);
//      sleep(200);
//      AlarmCom.GreenLed(sError);
//      sleep(800);
//    end
//    else
//    begin
//    //  ComName:= comName_a;
//  //    AlarmLed:=TAlarmLed.Create;
//   //   AlarmLed.open(ComName,sError);
//    end;
//  end;

  iniListName:= TStringList.Create;
  dm.MemTableReadTabList(iniListName);
  TxtVerInfo.Text:=GetBuildInfo;   //获取版本号

  UIClear();

  UIDataClear();

  DbSoapThread:=TDbSoapThread.Create;
  DbSoapThread.Start; //开始提交失败数据


end;



procedure TfrmMain.FormDestroy(Sender: TObject);
var
    sError:string;
begin
  WorkLog.MessageInfo('程序退出1');
//  if Assigned(AlarmLed) then // 更标准的Delphi对象检查方式
//  begin
//    try
//      AlarmLed.CloseAllLed(sError);
//      AlarmLed.Free;
//    finally
//      AlarmLed := nil; // 重要：立即置空指针
//    end;
//  end;

  WorkLog.MessageInfo('程序退出2');
  if Assigned(DbSoapThread) then // 更标准的Delphi对象检查方式
  begin
    try
      DbSoapThread.Free;
    finally
      DbSoapThread := nil; // 重要：立即置空指针
    end;
  end;

  WorkLog.MessageInfo('程序退出3');
  if Assigned(DisplayFrame) then // 更标准的Delphi对象检查方式
  begin
    try
      DisplayFrame.Free;
    finally
      DisplayFrame := nil; // 重要：立即置空指针
    end;
  end;

  WorkLog.MessageInfo('程序退出4');
  if Assigned(iniListName) then // 更标准的Delphi对象检查方式
  begin
    try
      iniListName.Free;
    finally
      iniListName := nil; // 重要：立即置空指针
    end;
  end;

  WorkLog.MessageInfo('程序退出5');
  if Assigned(FUsb) then // 更标准的Delphi对象检查方式
  begin
    try
      FUsb.Free;
    finally
      FUsb := nil; // 重要：立即置空指针
    end;
  end;

 // if AlarmLed<>nil then AlarmLed.CloseAllLed(sError);

//  if DbSoapThread<>nil then DbSoapThread.Terminate;
 // WorkLog.MessageInfo('程序退出3');
//  if AlarmLed<>nil then AlarmLed.Free;
//  WorkLog.MessageInfo('程序退出4');
//  if DisplayFrame<>nil then  DisplayFrame.Free;

//  WorkLog.MessageInfo('程序退出');
//  DbApiLog.MessageInfo('程序退出');
//  iniListName.Free;
//  WorkLog.MessageInfo('程序退出5');
//  FreeAndNil(FUsb);
//  WorkLog.MessageInfo('程序退出6');
  if Assigned(FDataAccessService) then
  begin
    try
      FDataAccessService.Free;
    finally
      FDataAccessService := nil;
    end;
  end;

  if Assigned(FProductionService) then
  begin
    try
      FProductionService.Free;
    finally
      FProductionService := nil;
    end;
  end;
end;

procedure TfrmMain.CreateEmpNoExit;
begin
 //  if (EdtEmpNo.Text<>'') and (not TxtOffline.Visible) then   //不是手工操作
        TThread.CreateAnonymousThread(
        procedure
        var
           sError:string;
           I: Integer;
        begin
            CoInitialize(nil);
            TRY

//                if (not Ksoap.xxcc_work_num_f(FactoryCode,EdtEmpNo.Text,TxtPc.Text,TxtLine.Text,sError)) then
//                begin
//                  TxtEmpNoError.TextSettings.FontColor:= $FFFF0000;
//                  ShowMainError(sError,'','');
//                  Exit;
//                end
//                else
//                begin
//                  TxtEmpNoError.TextSettings.FontColor:= $FF0003F3;
//                  ShowMainError('ok','','');
//                end;
            finally
                CoUninitialize;
            end;
        end
      ).Start;
end;

procedure TfrmMain.FormShow(Sender: TObject);
var
  StartTime: Int64;
begin
  StartTime := TThread.GetTickCount;
  try
   if FUsb=nil then
   begin
     FUsb := TUsbClass.Create;
     FUsb.OnUsbInsertion := UsbIN;
     FUsb.OnUsbRemoval := UsbOUT;
     comlista;
     CreateEmpNoExit;
   end;
  finally
    LogManager.LogFormShow('MainForm', TThread.GetTickCount - StartTime);
  end;
end;

procedure TfrmMain.HFraButClick(Sender: TObject; ButtonID: Integer);
var
  Frame: TFramebase;
begin
  WorkLog.MessageInfo('HFraButClick：%s ' , [fDevRecord.P_ORG_CODE]);

  Frame := Sender as TFramebase;
  EdtGoodsNo.Text:= fDevRecord.P_ORG_CODE;

  if Copy(fDevRecord.P_DIE_NAME,1,3)='不合格' then
  begin
    Label_NG.Text:='NG';
    Label_NG.FontColor:= TAlphaColor($eeff0000);
  end
  else
  begin
    Label_NG.Text:='OK';
    Label_NG.FontColor:= TAlphaColor($ee06b75b);
  end;

  if ButtonID=8 then
    Text7Click(self);

end;

procedure TfrmMain.Rectangle2Click(Sender: TObject);
begin
    FrmPassword:= TFrmPassword.Create(nil);
    try
        FrmPassword.Position:=TFormPosition.MainFormCenter;
        if FrmPassword.ShowModal=mrOk then
        begin
            dm.MemTableReadTabList(iniListName);
            frmSetMain:= TfrmSetMain.Create(nil);
            try
                frmSetMain.Position:=TFormPosition.MainFormCenter;
                frmSetMain.TxtFactoryCode.Text:=FactoryCode;   //厂区
                frmSetMain.ShowModal;
                TxtOffline.Visible:=frmSetMain.CheckBox1.IsChecked;
                ksoap.OnLine:=not TxtOffline.Visible;
//                if ksoap.OnLine then
//                   EdtGoodsNo.StyleLookup:='EdtGoodsNoStyle1'
//                else
//                   EdtGoodsNo.StyleLookup:='';

                //重新加载参数信息
                SetMainUIParameter();
            finally
                frmSetMain.Free;
            end;
        end;
    finally
        FrmPassword.Free;
    end;
end;

procedure TfrmMain.Text4Click(Sender: TObject);
begin
  ShowTouchKeyBoard();
end;

procedure TfrmMain.Text5Click(Sender: TObject);
begin
   UIDataClear();
end;

procedure TfrmMain.ShowMainError(EmpNoError,LotNoError,GoodsNoError:string);
begin
    TThread.Synchronize(nil,
    procedure
    begin
         TxtShowErrorInfo(TxtEmpNoError,EmpNoError);
         TxtShowErrorInfo(TxtLotNoError,LotNoError);
         if LotNoError<>'' then EdtLotNo.SetFocus;
         TxtShowErrorInfo(TxtGoodsNoError,GoodsNoError);
      //   EdtGoodsNo.Text:='';//料号为空
    end);
end;

procedure TfrmMain.Text7Click(Sender: TObject);
var
   sError:string;
   sFixture_Code:string;
begin
//  showmessage('aa');
 //  WorkLog.MessageInfo('login点击');

   //防止连续点击多次
   if Text7.TextSettings.FontColor=TAlphaColorRec.Silver then
   begin
     WorkLog.MessageInfo('重复点击');
     Exit;

   end;
 //  showmessage('aa1');
   Text7.TextSettings.FontColor:=TAlphaColorRec.Silver;
   try
       TxtShowErrorInfo(TxtEmpNoError,'');
       if EdtEmpNo.Text='' then
       begin
           TxtShowErrorInfo(TxtEmpNoError,'工号不能为空');
           TxtShowErrorInfo(TxtLotnoError,'');
           TxtShowErrorInfo(TxtGoodsNoError,'');
           EdtEmpNo.SetFocus;
           Exit;
       end;

       if Rec_GD.Visible and (EdtLotNo.Text='') then //检查工号
       begin
           TxtShowErrorInfo(TxtEmpNoError,'');
           TxtShowErrorInfo(TxtLotnoError,'工单不能为空');
           TxtShowErrorInfo(TxtGoodsNoError,'');
           EdtLotno.SetFocus;
           Exit;
       end;

     //  showmessage('aa11');
       if Rec_code.Visible then
       begin
       //  showmessage('aa111');
           EdtGoodsNo.Text:= EdtGoodsNo.Text.Replace(';','');
           EdtGoodsNo.Text:= EdtGoodsNo.Text.Replace(',','');

           if EdtGoodsNo.Text='' then
           begin
               TxtShowErrorInfo(TxtEmpNoError,'');
               TxtShowErrorInfo(TxtLotnoError,'');
               TxtShowErrorInfo(TxtGoodsNoError,'条码不能为空');
               EdtLotno.SetFocus;
               Exit;
           end;


       //    showmessage('aa1111');
//           if ((Rectangle16.Visible) and (EdtGoodsNo.Text='')) then   //批号带不出料号
//           begin
//               TxtShowErrorInfo(TxtEmpNoError,'');
//               TxtShowErrorInfo(TxtLotnoError,'');
//               TxtShowErrorInfo(TxtGoodsNoError,'料號不能為空');
//               EdtLotno.SetFocus;
//               Exit;
//           end;
       end;
     //  showmessage('aa2');
       if not TxtOffline.Visible then  //不是手工操作
       begin
         WorkLog.MessageInfo('开始提交数据到服务器...');
         fDevRecord.P_BC:= EdtEmpNo.Text; //工号
         fDevRecord.P_LOT:= EdtLotNo.Text;  //单号
         WorkLog.MessageInfo('提交+%d,%d,%d',[ComboBoxP_PC.ItemIndex,ComboBoxP_PC.Count,KJson.FList_pro_process.Count]);

         if (ComboBoxP_PC.ItemIndex> -1) and (KJson.FList_pro_process.Count> 0) then
         begin
           fDevRecord.P_LINE_index:= ComboBoxP_PC.ItemIndex; //线别序号
           fDevRecord.P_LINE_id:= StrToInt(KJson.REST_Value(KJson.FList_pro_process.Strings[ComboBoxP_PC.ItemIndex],'id')); //线别ID
         // fDevRecord.P_LINE:= (KJson.REST_Value(KJson.FList_pro_process.Strings[ComboBoxP_PC.ItemIndex],'number')); //线别编号
           fDevRecord.P_LINE_name:= (KJson.REST_Value(KJson.FList_pro_process.Strings[ComboBoxP_PC.ItemIndex],'processName')); //线别名称
         end;
         fDevRecord.P_ORG_CODE:= EdtGoodsNo.Text;  //二维码

         fDevRecord.P_COPPER_MODEL:= EdtGoodsNo.Text;  //二维码ID
         WorkLog.MessageInfo('提交数据main: ' +
          '工号=' + fDevRecord.P_BC + ', ' +
          '单号=' + fDevRecord.P_LOT + ', ' +
          '线别id=' + IntToStr(fDevRecord.P_LINE_id) + ', ' +
          '线别名称=' + fDevRecord.P_LINE_name + ', ' +
          '料号=' + fDevRecord.P_ORG_CODE);

          WorkLog.MessageInfo('EdtGoodsNo: %s',[EdtGoodsNo.Text]);

          //去掉维修,第一个工序
           if (dm.MainUI<>4) and (ComboBoxP_PC.ItemIndex=0)
           and ((fDevRecord.P_ORG_CODE='') or (fDevRecord.P_ORG_CODE_id='')) then
           begin
               TxtShowErrorInfo(TxtEmpNoError,'');
               TxtShowErrorInfo(TxtLotnoError,'');
               TxtShowErrorInfo(TxtGoodsNoError,'条码和ID不能为空');
               EdtLotno.SetFocus;
               Exit;
           end;
           
           // 提交生产数据到服务层
           if not FProductionService.SubmitProductionData(
             fDevRecord.P_BC,  // 工号
             fDevRecord.P_LOT, // 单号
             IntToStr(fDevRecord.P_LINE_id), // 工序ID
             fDevRecord.P_ORG_CODE) then // 二维码
           begin
               TxtShowErrorInfo(TxtEmpNoError,'');
               TxtShowErrorInfo(TxtLotnoError,'');
               TxtShowErrorInfo(TxtGoodsNoError,'数据提交失败');
               Exit;
           end;

//           //检查工号
//           if (not KJSon.Thread_xxcc_work_num_f(FactoryCode,EdtEmpNo.Text,TxtPc.Text,TxtLine.Text,sError)) then
//           begin
//              TxtShowErrorInfo(TxtEmpNoError,sError);
//              TxtShowErrorInfo(TxtLotnoError,'');
//              TxtShowErrorInfo(TxtGoodsNoError,'');
//              Exit;
//           end;

           WorkLog.MessageInfo('提交数据main1:' + sError);

//           //检查批号
//           if RectangleLotNo.Visible then
//           begin
//               if (not Ksoap.Thread_XXCC_LOT_PC_F(EdtLotno.Text,TxtLineNum.Text,'1',sError)) then
//               begin
//                  TxtShowErrorInfo(TxtEmpNoError,'');
//                  TxtShowErrorInfo(TxtLotNoError,sError);
//                  TxtShowErrorInfo(TxtGoodsNoError,'');
//                  Exit;
//               end;
//
//               sFixture_Code:=DisplayFrame.GetFixture_Code;  //取治具ID
//
//               //獲取治工具或者設備的狀態
//               if not Ksoap.Thread_Check_tool_or_equip_status_f(EdtLotNo.Text,TxtLineNum.Text,sFixture_Code,'-1',sError) then
//               begin
//                 ShowMainError('',sError,'');
//                 Exit;
//               end;
//           end;
       end
       else
       begin
         WorkLog.MessageInfo('提交数据:2');
          ksoap.P_ORG_CODE:=FactoryCode;  //廠區
          ksoap.P_WORK_NUM:=EdtEmpNo.Text;  //工號
          ksoap.P_PC:=TxtPc.Text;        //製程
          ksoap.P_LINE:=TxtLine.Text;      //線別
          ksoap.P_LINE_NUM:=TxtLineNum.Text;  //線別編號
          ksoap.P_Goods_Num:=EdtGoodsNo.Text;  //料号
          ksoap.P_Lot:=EdtLotNo.Text;   //批号
          ksoap.P_Lot_Num:=0;
          ksoap.Fixture_Code:=DisplayFrame.GetFixture_Code;
       //   TxtShowErrorInfo(TxtEmpNoError,'工號进入');
       end;

     //  Text21.Text:= DisplayFrame.Name;
       WorkLog.MessageInfo('提交数据main2:%s', [sError]);

       if (DisplayFrame<>nil) and (DisplayFrame.DoExec) then UIDataClear;
   finally
       Text7.TextSettings.FontColor:=TAlphaColorRec.White;
   end;
end;

procedure TfrmMain.Timer1Timer(Sender: TObject);
begin
  Text2.Text:= GetSysTimeByFormate;

  //判断整点，就上传日志
  dm.Tim_Timer(Text2.Text);

    // 判断如果当前时间减去最后输入时间大于等于1秒 20260426
  if (SecondsBetween(Now, FLastInputTime) >= 1) and (oldFLastInputTime<FLastInputTime) then
  begin
       // 如果需要检查编辑框是否为空
    if Trim(EdtGoodsNo.Text).Length >6 then
    begin
      // 执行Text7Click
      Text7Click(Sender);
      // 重置时间，避免重复触发
      FLastInputTime := Now;
      oldFLastInputTime:= FLastInputTime;
    end;
  end;
end;

procedure TfrmMain.TxtVerInfoClick(Sender: TObject);
begin
//  exit;
//   frmListConent:=TfrmListConent.Create(nil);   //多个读头
//       try
//           frmListConent.ShowModal;
//       finally
//           frmListConent.Free;
//       end;

 {  frmInkPrinterConent:=TfrmInkPrinterConent.Create(nil);
       try
           frmInkPrinterConent.ShowModal;
       finally
           frmInkPrinterConent.Free;
       end; }


//       frmListMoreConent:=TfrmListMoreConent.Create(nil); //多个批号
//       try
//           frmListMoreConent.ShowModal;
//       finally
//           frmListMoreConent.Free;
//       end;
end;

procedure TfrmMain.UsbIN(ASender: TObject; const ADevType, ADriverName,
  AFriendlyName: string);
var
   sError:String;
begin
  WorkLog.MessageInfo('USB Inserted - Device Type = ' + ADevType + #13#10 +
              'Driver Name = ' + ADriverName + #13+#10 +
              'Friendly Name = ' + AFriendlyName);
//  if (dm.MemTableReadKeyValue('报警灯','DevName')<>'') and (Pos('340',AFriendlyName)>0) then
//  begin
//    dm.MemTableWriteKeyValue('报警灯','DevName',ADriverName);
//    if AlarmLed<>nil then
//    begin
//      AlarmLed.open(ADriverName,sError);
//      sleep(100);
//      AlarmLed.YellowLed(sError);
//    end;
//  end;
end;

procedure TfrmMain.UsbOUT(ASender: TObject; const ADevType, ADriverName,
  AFriendlyName: string);
begin
  WorkLog.MessageInfo('USB Removed - Device Type = ' + ADevType + #13#10 +
               'Driver Name = ' + ADriverName + #13+#10 +
               'Friendly Name = ' + AFriendlyName);
end;

procedure TfrmMain.SetRadioOption(sRadioList:string);
VAR
   i:integer;
   tmpList:TStrings;
begin
   if sRadioList='' then Exit;

//   if (GridLayout1<>nil) and (GridLayout1.ChildrenCount>0) then  //检测TOP面,BOT面
//   begin
//      while GridLayout1.ChildrenCount>0 do  //有选项没显示，返回也为真
//      begin
//        GridLayout1.Children.Items[0].Destroy;
//      end;
//   end;
// WorkLog.Debug(Format('iLayerValue1:%s',[IntToStr(GridLayout1.ChildrenCount)]));
   tmpList:=TStringlist.Create;
   try
       tmplist.DelimitedText:=sRadioList;
       if tmpList.Count>10 then Exit;

       if tmplist.Count>GridLayout1.ChildrenCount then  //创建
       begin
           for i := 0 to tmplist.Count-GridLayout1.ChildrenCount-1 do
           begin
                WITH TRadioButton.Create(SELF) DO
                BEGIN
                   PARENT:=GridLayout1;
                   GroupName:='a';
                   Height:=34;
                END;
           end;
       end;

       if tmplist.Count<GridLayout1.ChildrenCount then  //隐藏
       begin
           for I :=GridLayout1.ChildrenCount-1  downto 0 do
           begin
               TRadioButton(GridLayout1.Children[i]).IsChecked:=false;
               if i>=tmplist.Count then
                  TRadioButton(GridLayout1.Children[i]).Visible:=false
               else
                  TRadioButton(GridLayout1.Children[i]).Text:=tmplist.Strings[i];
           end;
           if tmplist.Count>0 then
             GridLayout1.ItemWidth:=GridLayout1.Width / tmplist.Count;
       end
       else //数量相同
       begin
           for I := 0 to GridLayout1.ChildrenCount-1 do
           begin
               TRadioButton(GridLayout1.Children[i]).IsChecked:=false;
               TRadioButton(GridLayout1.Children[i]).Text:=tmplist.Strings[i];
               TRadioButton(GridLayout1.Children[i]).Visible:=true;
           end;
           if GridLayout1.ChildrenCount>0 then
             GridLayout1.ItemWidth:=GridLayout1.Width / GridLayout1.ChildrenCount;
       end;

   finally
       tmpList.Free;
   end;
   WorkLog.Debug(Format('iLayerValue2:%s',[IntToStr(GridLayout1.ChildrenCount)]));
end;

procedure TfrmMain.EdtLotNoChange(Sender: TObject);
begin
   if EdtLotNo.Text='' then TxtShowErrorInfo(TxtLotnoError,'');
   EdtLotNo.Text:= Trim(EdtLotNo.Text.ToUpper);
end;

procedure TfrmMain.EdtLotNoClick(Sender: TObject);
begin
  ShowTouchKeyBoard();
end;

function TfrmMain.EdtLotPartnum(Value: string): Boolean;
begin
  Result:= False;
  if Value<>'' then
  begin
     if ComboBoxP_PC.Items.IndexOf(Value)<0 then
     //   ComboBoxP_PC.Items.Add(sPc);
     begin
       TxtShowErrorInfo(TxtLotNoError,'该批当前站在'+Value);
     end
     else
     begin
       COMBOBOXp_PC.ItemIndex:=ComboBoxP_PC.Items.IndexOf(Value);
       TxtPc.Text:=Value;
       ksoap.P_PC:=TxtPc.Text; //製程
       Result:= True;
     end;
  end;
end;

procedure TfrmMain.EdtLotNoExit(Sender: TObject);  //离开单号处理
var
  sError:string;
begin
  //检查单号
  if EdtLotNo.Text='' then exit;
  ShowMainError('','','');

  TThread.CreateAnonymousThread(
  procedure
  var
  sError:string;
  begin
    CoInitialize(nil);
    TRY
      ComboBoxP_PC.Items.Clear;
      
      // 获取工单信息
      var WorkOrderInfo := FProductionService.GetWorkOrderInfo(EdtLotNo.Text);
      if not Assigned(WorkOrderInfo) then
      begin
        TxtEmpNoError.TextSettings.FontColor:= $FFFF0000;
        ShowMainError('没有找到单号','','');
        Exit;
      end;

      // 获取工序列表
      var ProcessList := FProductionService.GetProcessList(EdtLotNo.Text);
      if Assigned(ProcessList) and (ProcessList.Count > 0) then
      begin
        // 这里可以将ProcessList转换为KJSon.FList_pro_process的格式
        // 或者修改ComboBoxP_PC_Down方法以使用新的数据源
        KJSon. REST_pro_List(EdtLotNo.Text, 1, sError); // 暂时保留原调用，后续可完全迁移
        ComboBoxP_PC_Down();
      end;

    FINALLY
      CoUninitialize;
    END;
  end).Start;
end;

procedure TfrmMain.EdtLotNoExit1;  //离开二维码处理
var
   sLayerValue,sDefaulValue:string;
//   sFixture_Code:string;
begin
   if (EdtEmpNo.Text<>'') and (EdtLotNo.Text<>'') then   //不是手工操作
            TThread.CreateAnonymousThread(
            procedure
            var
               sError:string;
               sGoodsNo,sNum,sPc:string;
            begin
                CoInitialize(nil);
                TRY

                 //   ShowInfoOK('连接数据库中...');

                    if not EdtLotPartnum(sPc) then
                    begin
                      Exit;
                    end;

                    //检查批号
                    if (not Ksoap.XXCC_LOT_PC_F(EdtLotno.Text,TxtLineNum.Text,'1',sError)) then
                    begin
                       ShowMainError('',sError,'');
                       if (EdtLotno.Text<>'R30034200L') then
                         Exit;
                    end;

                    //得料号
                    if not Ksoap.getPartnum(EdtLotNo.Text,'',sGoodsNo,sNum,sPc,sPartnumValue,sError) then
                    begin
                       ShowMainError('',sError,'');
                       Exit;
                    end;

                    //获取缺省值
                    if DisplayFrame.DefaultXN and not Ksoap.return_default_values_f(sDefaulValue,sError) then
                    begin
                       ShowMainError('','Ksoap.return_default_values_f'+sError,'');
                       Exit;
                    end;

                    //根据料号,设置正反面板材
                    if not Ksoap.xxcf_get_layer_f(sGoodsNo,sLayerValue,sError) then
                    begin
                       ShowMainError('','',sError);
                       Exit;
                    end;

                    if sLayerValue<>'' then   //面次
                    begin
                      SetRadioOption(sLayerValue);
                      WorkLog.Debug(Format('sLayerValue:%s',[sLayerValue]));
                    end;

//                    //原物料編號
//                    if (DisplayFrame<>nil) and ((DisplayFrame.ClassType=TFrame_maoqie) or (DisplayFrame.ClassType=TFrame_pingdao) or (DisplayFrame.ClassType=TFrame_yandao)) then
//                    begin
//                      DisplayFrame.F2DCodeCreate();
//                    end;

                    //参数带入，根据参数设置PLC
                    if (DisplayFrame.Name='FrameAutoYLBland') then
                    begin
                      //get_barcode_param_f

                        if (not Ksoap.xx_get_barcode_param_f(FactoryCode,EdtLotNo.Text,'yfynj',TxtLineNum.Text,sError)) then
                        begin
                          TThread.Synchronize(nil,
                           procedure
                           begin
                             TxtShowErrorInfo(TxtLotNoError,sError);
                           end);
                           Exit;
                        end;
                    end;
                finally
                    CoUninitialize;
                end;

                TThread.Synchronize(nil,
                procedure
                begin
                 //  EdtGoodsNo.Text:=sGoodsNo;
                   sLotNum:=sNum;
                   DisplayFrame.sLotNum:= sNum;
                   TxtShowErrorInfo(TxtLotNoError,'');
                   DisplayFrame.FillDefaultValue(sPartnumValue,sDefaulValue);
                   SetRadioOption(sDefaulValue);
//
//                    //根据批号,带出料号与当前制程,自动增加填写当前制程
//                    if sPc<>'' then
//                    begin
//                         if ComboBoxP_PC.Items.IndexOf(sPc)<0 then
//                         //   ComboBoxP_PC.Items.Add(sPc);
//                         begin
//                           TxtShowErrorInfo(TxtLotNoError,'該批當前站在'+sPc);
//                         end
//                         else
//                         begin
//                           COMBOBOXp_PC.ItemIndex:=ComboBoxP_PC.Items.IndexOf(sPc);
//                           TxtPc.Text:=sPc;
//                           ksoap.P_PC:=TxtPc.Text; //製程
//                         end;
//                    end;
                   //设置PLC相关参数
                end);
            end
          ).Start;
end;

end.