dyp/backup_ansi/uFrame_Adara.pas

unit uFrame_Adara;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, 
  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
  uFrameBase, System.ImageList, FMX.ImgList, FMX.Controls.Presentation,
  FMX.Edit, FMX.Objects,uShowInfo,uKsoap,uPucFun, FMX.ListBox,FMX.Pickers;

type
  TFrame_Adara = class(TFrameBase)
    Rectangle88: TRectangle;
    Option1: TRectangle;
    Glyph9: TGlyph;
    OptionLabel1: TText;
    Text19: TText;
    Edit_TaiChe: TEdit;
    Option2: TRectangle;
    Glyph2: TGlyph;
    OptionLabel3: TText;
    Text6: TText;
    Edit_YaHe: TEdit;
    Option3: TRectangle;
    Glyph3: TGlyph;
    OptionLabel5: TText;
    Text23: TText;
    TxtError: TText;
    ImageList1: TImageList;
    ComboBox_ZhangsuoMode: TComboBox;
  private
    { Private declarations }
  public
     procedure FillDefaultValue(sPartnumValue,sDefaultTxt:string);override;
     function DoExec():boolean;override;
     function CheckValid(var sTxt:string):boolean;override;
     procedure Initialize();override;
     function GetFixture_Code():string;override;
  end;

var
  Frame_Adara: TFrame_Adara;

implementation

{$R *.fmx}
uses uDM, uSafeLog;

function TFrame_Adara.GetFixture_Code():string;
begin
    Result:=Edit_TaiChe.Text;
end;

function TFrame_Adara.CheckValid(var sTxt:string):boolean; //返回面次数据
var
   aa:Extended;
begin
   Result:=false;
   if not GetRadioTxt(sTxt) then  //没有选择,提示出错信息
   begin
       ErrorLayout(GridLayout,TxtError,'请选择網版信息');
       Exit;
   end;
   if Trim(Edit_TaiChe.Text)='' then begin Error(Edit_TaiChe,TxtError,'台車編號不能為空');Exit;end;
   if Trim(Edit_YaHe.Text)='' then begin Error(Edit_YaHe,TxtError,'壓合面積不能為空');Exit;end;
   if (ComboBox_ZhangsuoMode.Selected=nil) then begin Error(ComboBox_ZhangsuoMode,TxtError,'壓合程式不能為空');Exit;end;

   Result:=true;
   if Result then Error(Edit_TaiChe,TxtError,'');
end;

procedure TFrame_Adara.FillDefaultValue(sPartnumValue,sDefaultTxt:string);
var
   tmpList:TStrings;
   i:integer;
begin
   if sDefaultTxt='' then Exit;
   tmpList:=TStringList.Create;
   try
       tmpList.DelimitedText:=sDefaultTxt;
       if tmpList.Count>40 then
       begin
          i:=ComboBox_ZhangsuoMode.Items.IndexOf(tmpList.Strings[39]);
          if i<0 then
             ComboBox_ZhangsuoMode.Items.Add(tmpList.Strings[39]);
          ComboBox_ZhangsuoMode.ItemIndex:=ComboBox_ZhangsuoMode.Items.IndexOf(tmpList.Strings[39]);
          Edit_YaHe.Text:=tmpList.Strings[40];
       end;
   finally
       tmpList.Free;
   end;
end;

function TFrame_Adara.DoExec():boolean;
var
    LotNoRecord:TLotNoRecord;
    vId:Integer;
    sTxt:string;
    sError:string;
    vP_ID:Double;
begin
    Result:=false;
    if CheckValid(sTxt) then  //上传数据
    begin
       LotNoRecord:=TLotNoRecord.Create('-1');  //初始化记录
       LotNoRecord.P_LOT:=ksoap.P_Lot;
       LotNoRecord.P_LOT_TYPE:='正常板'; //正常板/重工板
       LotNoRecord.P_Enable:='Y';
       LotNoRecord.P_ID:=0;
       LotNoRecord.P_ORG_CODE:=ksoap.P_ORG_CODE;       //廠區
       LotNoRecord.P_NUM:=ksoap.P_WORK_NUM;            //工號
       LotNoRecord.P_PC:=ksoap.P_PC;            //製程
       LotNoRecord.P_LINE:=ksoap.P_LINE;         //線別
       LotNoRecord.P_LINE_NUM:=ksoap.P_LINE_NUM;     //線別編號

       LotNoRecord.P_TROLLEY_NUM:=Edit_TaiChe.Text;
       LotNoRecord.P_COMP_PROGRAM:=ComboBox_ZhangsuoMode.Selected.Text;
       LotNoRecord.P_COMP_AREA:=Edit_YaHe.Text;
       LotNoRecord.P_CREATION_DATE:=FormatDateTime('yyyymmdd hh:mm:ss',Now);

       sError:='';
       vP_ID:=Ksoap.Thread_cf_traceability_seq_f(ksoap.P_ORG_CODE,sError);
       LotNoRecord.P_ID:=vP_ID;
       if vP_ID=0 then
       BEGIN
           dm.InsertMain(vId,LotNoRecord,true);
           ShowInfoOK('連接數據庫服務器失敗數據暫存本地,正在生產中...');
           ComboBox_ZhangsuoMode.ItemIndex:=-1;
           Result:=true;
       END
       ELSE
       BEGIN
         DbApiLog.MessageInfo('Thread_Insert_CM_WIP_PROCESS_LINE_HISTORY_NEW:%s',[IntToStr(LotNoRecord.vId)]);
           //直接调用API,出错再保存本地
           if not Ksoap.Thread_Insert_CM_WIP_PROCESS_LINE_HISTORY_NEW(LotNoRecord,sError) then  //提交主表不成功
           begin
              if sError='連接數據庫服務器失败' then
              begin
                 dm.InsertMain(vId,LotNoRecord,true);
                 ShowInfoOK('連接數據庫服務器失敗數據暫存本地,正在生產中...');
                 ComboBox_ZhangsuoMode.ItemIndex:=-1;
                 Result:=true;
              end
              else
                 ShowError(sError);
           end
           else
           begin
               ShowInfoOK('上傳成功,正在生產中...');
               Result:=true;
               Edit_TaiChe.Text:='';
               Edit_YaHe.Text:='';
           end;
       END;
    end;
end;

procedure TFrame_Adara.Initialize(); //初始化
var
  i:integer;
begin
  with ComboBox_ZhangsuoMode 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;
end;


end.