unit U_frmMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls, ImgList, Menus, Grids, DBGrids,
  dxDBInsp, dxInspct, dxInspRw, dxDBInRw, dxCntner, Buttons;

type
  TfrmMain = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    ImageList1: TImageList;
    Label1: TLabel;
    dtpTime: TDateTimePicker;
    MainMenu1: TMainMenu;
    S1: TMenuItem;
    mnu_Exit: TMenuItem;
    DBGrid1: TDBGrid;
    Label2: TLabel;
    dxDBInspector2: TdxDBInspector;
    dxDBInspector2PLANNO: TdxInspectorDBMaskRow;
    dxDBInspector2MATNR: TdxInspectorDBMaskRow;
    dxDBInspector2CHARG: TdxInspectorDBMaskRow;
    dxDBInspector2FLAG: TdxInspectorDBMaskRow;
    dxDBInspector2RUKU: TdxInspectorDBMaskRow;
    dxDBInspector2XBLNR: TdxInspectorDBMaskRow;
    dxDBInspector2USERNO: TdxInspectorDBMaskRow;
    dxDBInspector2CLASSNO: TdxInspectorDBMaskRow;
    dxDBInspector2SHIFTNO: TdxInspectorDBMaskRow;
    dxDBInspector2MACHINENO_W: TdxInspectorDBMaskRow;
    dxDBInspector2PMN: TdxInspectorDBMaskRow;
    dxDBInspector2PAPERKIND: TdxInspectorDBMaskRow;
    dxDBInspector2GWEIGHT: TdxInspectorDBMaskRow;
    dxDBInspector2GRADE: TdxInspectorDBMaskRow;
    dxDBInspector2SPECIFICATION: TdxInspectorDBMaskRow;
    dxDBInspector2NTGEW: TdxInspectorDBMaskRow;
    dxDBInspector2AREA: TdxInspectorDBMaskRow;
    dxDBInspector2STATUS: TdxInspectorDBMaskRow;
    dxDBInspector2MEMO: TdxInspectorDBMaskRow;
    dxDBInspector2JIANYANDATE: TdxInspectorDBMaskRow;
    dxDBInspector2JIANYANID: TdxInspectorDBMaskRow;
    dxDBInspector2SFID: TdxInspectorDBMaskRow;
    dxDBInspector2FF: TdxInspectorDBMaskRow;
    dxDBInspector2ISLOAD: TdxInspectorDBMaskRow;
    dxDBInspector2PRINT_F: TdxInspectorDBMaskRow;
    dxDBInspector2LAYOUT: TdxInspectorDBMaskRow;
    dxDBInspector2ADATE: TdxInspectorDBMaskRow;
    dxDBInspector2SKU: TdxInspectorDBMaskRow;
    dxDBInspector2MACHINENO_L: TdxInspectorDBMaskRow;
    dxDBInspector2CPID: TdxInspectorDBMaskRow;
    dxDBInspector2MPID: TdxInspectorDBMaskRow;
    dxDBInspector2Row32: TdxInspectorDBRow;
    dxDBInspector2Row33: TdxInspectorDBRow;
    dxDBInspector2Row34: TdxInspectorDBRow;
    dxDBInspector2Row35: TdxInspectorDBRow;
    dxDBInspector2Row36: TdxInspectorDBRow;
    dxDBInspector2Row37: TdxInspectorDBRow;
    dxDBInspector2Row38: TdxInspectorDBRow;
    dxDBInspector2Row39: TdxInspectorDBRow;
    dxDBInspector2Row40: TdxInspectorDBRow;
    dxDBInspector2Row41: TdxInspectorDBRow;
    dxDBInspector2Row42: TdxInspectorDBRow;
    dxDBInspector2Row43: TdxInspectorDBRow;
    dxDBInspector2Row44: TdxInspectorDBRow;
    dxDBInspector2Row45: TdxInspectorDBRow;
    cmbMachine: TComboBox;
    Label11: TLabel;
    cmbClass: TComboBox;
    Label12: TLabel;
    cmbShift: TComboBox;
    Label3: TLabel;
    cmbPaperkind: TComboBox;
    cmdSend: TBitBtn;
    cmdSendX: TBitBtn;
    StatusBar1: TStatusBar;
    H1: TMenuItem;
    mnuAbout: TMenuItem;
    cmdQuery: TBitBtn;
    Timer1: TTimer;
    Panel2: TPanel;
    Label4: TLabel;
    TreeView1: TTreeView;
    procedure mnu_ExitClick(Sender: TObject);
    procedure cmdQueryClick(Sender: TObject);
    procedure cmdSendClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdSendXClick(Sender: TObject);
    procedure mnuAboutClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

uses U_Main, U_frmAbout;

{$R *.dfm}

procedure TfrmMain.mnu_ExitClick(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TfrmMain.cmdQueryClick(Sender: TObject);
var
  s, strSQL: String;
begin
  if (
    (trim(cmbmachine.Text)='')
    or (trim(cmbclass.Text  )='')
    or (trim(cmbshift.Text  )='')
     )
  then
    Begin
    MessageBox(Self.Handle, '請(qǐng)輸入機(jī)臺(tái)號(hào)，班次，班別！', '令標(biāo)簽打印支持系統(tǒng)', mb_ok + mb_iconwarning);
     exit;
    end;
  if Self.TreeView1.Selected.Text = '令標(biāo)簽類型' then
  begin
    MessageBox(Self.Handle, '請(qǐng)選擇具體令標(biāo)簽類型！', '令標(biāo)簽打印支持系統(tǒng)', mb_ok + mb_iconwarning);
     exit;
  end;
  Screen.Cursor := crHourGlass;
  strSQL := 'SELECT A.PLANNO,A.MATNR, A.CHARG,A.FLAG,A.RUKU,A.XBLNR ,A.PMN, A.BRANDNO, A.PAPERKIND, A.GWEIGHT,A.GRADE,  A.SPECIFICATION,'
    + 'A.CPID,A.MPID,A.NTGEW,  A.AREA, A.STATUS, A.MEMO, to_char(A.JIANYANDATE,''YYYY-MM-DD'') JIANYANDATE, A.JIANYANID,A.PAPER_FORMTXT,'
    + 'to_char(A.ADATE,''YYYY-MM-DD'') ADATE, A.CLASSNO, A.SHIFTNO, A.SFID, A.FF, A.ISLOAD, A.PRINT_F, A.DATEIN,A.PKSH,A.SHPL,A.PKPL,'
    + 'A.USERNO , A.RESERVERNO, A.RESERVERITEM,A.planid,A.planid_itemno,A.layout,A.sku ,A.machineno_w,A.machineno_l, B.T0436T, B.T0438T, B.T0439T'
    + ', B.T0440T, B.T0468T, B.T0460T, B.T0448, B.T0436, B.T0421, B.T0422, B.T0423, B.T0426'
    + ' FROM PES.STACK_PACK_WRAPPING A, PES.ZBATCH_CHARACTER B'
    + ' WHERE A.MATNR = B.MATNR AND A.CHARG = B.CHARG and status <> ''Z'' and (a.paper_form <> ''E'' and a.paper_form <> ''H'') '
    + ' and classno = ''' + cmbClass.Text + '''' + ' and shiftno = ''' + cmbShift.Text + ''''
    + ' and machineno_l = ''' + cmbMachine.Text + '''' + ' and to_char(adate, ''yyyy-mm-dd'') = '''
    + formatdatetime('yyyy-mm-dd', dtpTime.Date) + ''''
    + ' and t0436 = ''' + self.TreeView1.Selected.Text + '''';
  s := '';
  with DM.QWrapping do
  begin
    Close;
    SQL.Clear;
    if cmbPaperkind.ItemIndex = 0 then
      s := ' and paperkind = ''' + 'P2G' + ''''
    else if cmbPaperkind.ItemIndex = 1 then
      s := ' and paperkind = ''' + 'P2M' + ''''
    else if cmbPaperkind.ItemIndex = 2 then
      s := ' and paperkind = ''' + 'P1G' + '''';
    SQL.Text := strSQL + s;
    //showmessage(ParamByName('classno').Value + ParamByName('shiftno').Value + ParamByName('machineno_l').Value + ParamByName('adate').Value);
    Open;
  end;
  Screen.Cursor := crArrow;
end;

procedure TfrmMain.cmdSendClick(Sender: TObject);
var
   j: ShortInt;
   temp1, temp2, tt: ShortString;
begin
   if DM.QWRAPPINGPLANNO.AsString = '' then exit;
   //美國(guó)METEOR開(kāi)始********************************************
   if (Self.TreeView1.Selected.Text <> 'HR') and (Self.TreeView1.Selected.Text <> 'PR') then
   begin
   //刪除數(shù)據(jù)
   DM.ADODelete.Close;
   DM.ADODelete.ExecSQL;
   //INSERT INTO PALERT(planno, bz, kz, gg1, gg2, sku, qzbz, zs, tc, gloss)
//VALUES
//(:planno, :bz, :kz, :gg1, :gg2, :sku, :qzbz, :zs, :tc, :gloss)
   with dm.METEOR_Insert do
   begin
      Close;
      //賦參數(shù)
      //棧板號(hào)planno
      Parameters.ParamByName('planno').value := DM.QWRAPPINGPLANNO.AsString;
      //磅重bz
      if dm.QWRAPPINGGWEIGHT.AsInteger = 89 then
         Parameters.ParamByName('bz').value := '60LB'
      else if dm.QWRAPPINGGWEIGHT.AsInteger = 104 then
         Parameters.ParamByName('bz').value := '70LB'
      else if dm.QWRAPPINGGWEIGHT.AsInteger = 118 then
         Parameters.ParamByName('bz').Value := '80LB'
      else if dm.QWRAPPINGGWEIGHT.AsInteger = 148 then
         Parameters.ParamByName('bz').Value := '100LB';
      //克重kz
      Parameters.ParamByName('kz').value := DM.QWRAPPINGGWEIGHT.AsString + 'G';
      //gg1
      J:=POS('*', dm.QWRAPPINGspecification.AsString);
      temp1 := COPY(dm.QWRAPPINGspecification.AsString,1,J-1);
      temp2 := COPY(dm.QWRAPPINGspecification.AsString,J+1,length(dm.QWRAPPINGspecification.AsString)-J);
      Parameters.ParamByName('gg2').value := temp1 + 'X' + temp2 + 'mm';

      temp1 := FormatFloat('0.0',StrToFloat(temp1) / 25.4);
      temp2 := FormatFloat('0.0',StrToFloat(temp2) / 25.4);

      Parameters.ParamByName('gg1').value := temp1 + 'X' + temp2;

      tt := dm.qwrappingspecification.asstring;

      //如果是GV格式轉(zhuǎn)換成分?jǐn)?shù)形式
      if (dm.qwrappingT0436.AsString = 'GV') and ( (tt = '216*279') or (tt = '314*460') or (tt= '318*483') or (tt = '337*460')) then//  and ((tt = '216*279') or tt = '314*460') or (tt = '318*483') or (tt = '337*460') ) then
      begin
         if dm.qwrappingspecification.asstring = '216*279' then
               Parameters.ParamByName('gg1').value := '8 1/2' + 'X' + '11'
            else if  dm.qwrappingspecification.asstring = '314*460' then
               Parameters.ParamByName('gg1').value := '12 3/8' + 'X' + '18 1/8'
            else if dm.qwrappingspecification.asstring = '318*483' then
               Parameters.ParamByName('gg1').value := '12 1/2' + 'X' + '19'
            else if dm.qwrappingspecification.asstring = '337*460' then
               Parameters.ParamByName('gg1').value := '13 1/4' + 'X' + '18 1/8'
      end;

      //Parameters[5].value := dm.QWRAPPING1SKU.AsString;
      {//查詢SKUNO
      DM.QFree2.Close;
      DM.QFree2.SQL.Clear;
      DM.QFree2.SQL.Text := 'SELECT SKUNO FROM PES.STACK_USASKU WHERE MATNR = :MATNR AND CHARG = :CHARG';
      DM.QFree2.Params[0].AsString := DM.QWRAPPING1MATNR.AsString;
      DM.QFree2.Params[1].AsString := DM.QWRAPPING1charg.AsString;
      DM.QFree2.Open;}

      if trim(DM.QWrappingSKU.AsString) = '' then
      begin
        if MessageBox(Self.Handle, '該物料批次沒(méi)有對(duì)應(yīng)的SKUNO，是否真得要打??？', '系統(tǒng)提示', MB_YESNO + MB_ICONQUESTION) = mrNO then
        begin