unit uListMore_Frame;

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,uShowInfo,uKsoap,uPucFun;

type
  TListMore_Frame = class(TFrameBase)
  private
    { Private declarations }
  public
    function DoExec():boolean;override;
  end;

var
  ListMore_Frame: TListMore_Frame;

implementation

{$R *.fmx}

uses uDM, uListMoreConent;

function TListMore_Frame.DoExec():boolean;
var
    LotNoRecord:TLotNoRecord;
    vId:Integer;
    sTxt:string;
    sError:string;
    vP_ID:Double;
begin
    if True 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_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('連接數據庫服務器失敗數據暫存本地,正在生產中...');
//           Result:=true;
//       END
//       ELSE
//       BEGIN
//           //直接调用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('連接數據庫服務器失敗數據暫存本地,正在生產中...');
//                 Result:=true;
//              end
//              else
//                 ShowError(sError);
//           end
//           else
           begin
              if dm.MainUI=2 then  //特殊处理 'VCP F线A列'
              begin
                 frmListMoreConent:=TfrmListMoreConent.Create(nil); //多个批号
                 try
                   //frmListMoreConent.LotNoRecord:=LotNoRecord;  //记录
                   frmListMoreConent.ShowModal;
                 finally
                   frmListMoreConent.Free;
                 end;
              end;
               Result:=true;
           end;
//       END;
    end;
end;

end.