D10sxYilanbuyi/F02染色计划单/U_DyePlanInPut.pas

unit U_DyePlanInPut;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
  cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
  cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
  StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
  cxCurrencyEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
  cxLookAndFeelPainters, cxNavigator, cxDropDownEdit, dxSkinsCore,
  dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, cxPC,
  dxScrollbarAnnotations;

type
  TfrmDyePlanInPut = class(TForm)
    ToolBar1: TToolBar;
    TBSave: TToolButton;
    TBClose: TToolButton;
    ScrollBox1: TScrollBox;
    Label1: TLabel;
    F_description: TEdit;
    ADOTemp: TADOQuery;
    ADOCmd: TADOQuery;
    DS_1: TDataSource;
    CDS_1: TClientDataSet;
    Label2: TLabel;
    C_description: TMemo;
    Label23: TLabel;
    GPM_1: TcxGridPopupMenu;
    ToolButton4: TToolButton;
    cxPageControl1: TcxPageControl;
    ToolBar2: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    cxGrid1: TcxGrid;
    Tv1: TcxGridDBTableView;
    Tv1Column1: TcxGridDBColumn;
    v1SOrddefstr1: TcxGridDBColumn;
    v1PRTColor: TcxGridDBColumn;
    v1PRTORDQTY: TcxGridDBColumn;
    v1OrderUnit: TcxGridDBColumn;
    v1Column3: TcxGridDBColumn;
    Tv1Column3: TcxGridDBColumn;
    v1Column5: TcxGridDBColumn;
    v1Column1: TcxGridDBColumn;
    cxGrid1Level1: TcxGridLevel;
    Label6: TLabel;
    F_Name: TEdit;
    djUnit: TComboBox;
    Label8: TLabel;
    Label11: TLabel;
    C_PlanQty: TEdit;
    OrdDate: TDateTimePicker;
    DlyDate: TDateTimePicker;
    Label3: TLabel;
    Label4: TLabel;
    Tv1OrdPiece: TcxGridDBColumn;
    Label7: TLabel;
    Label15: TLabel;
    OrderNo: TEdit;
    Tv1Column2: TcxGridDBColumn;
    QtyOrder: TEdit;
    C_Name: TBtnEditA;
    procedure TBCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TBSaveClick(Sender: TObject);
    procedure v1PRTColorPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure CustNameBtnDnClick(Sender: TObject);
//    procedure C_CodeBtnUpClick(Sender: TObject);
    procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure ToolButton3Click(Sender: TObject);
    procedure Need_ProductionDblClick(Sender: TObject);
    procedure GC_BatchNoMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure ToolButton4Click(Sender: TObject);

    procedure C_NameDblClick(Sender: TObject);
    procedure C_NameBtnClick(Sender: TObject);
  private
    procedure InitData();
    procedure ZDYHelp(FButn: TcxButtonEdit; LType: string);
    function SaveData(): Boolean;
    { Private declarations }
  public
    PState, CopyInt, PriceFlag: Integer;
    FMainId, FFMainId, FOrderNo: string;
    FXS: Integer;
    canshu1, canshu2, FWorkshop: string;
    fFlileFlag: string;
    { Public declarations }
  end;

var
  frmDyePlanInPut: TfrmDyePlanInPut;
  newh: hwnd;

implementation

uses
  U_DataLink, U_ZDYHelp, U_RTFun, U_DyeGreyClothOutSel, U_CompanySel,
  U_ZDYHelpSel, U_DyeGreyClothStkSel, U_ClothInfoSel;

{$R *.dfm}

procedure TfrmDyePlanInPut.TBCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmDyePlanInPut.InitData();
begin

  with ADOTemp do
  begin
    Close;
    sql.Clear;
    sql.Add('select * from Dye_Plan_Main where MainId=''' + Trim(FMainId) + '''');
    Open;
  end;
  SCSHData(ADOTemp, ScrollBox1, 2);


  with ADOTemp do
  begin
    Close;
    SQL.Clear;
    sql.Add('select *  ');
    sql.Add('from Dye_Plan_Sub A where 1=1 ');
    sql.Add(' and MainId=''' + Trim(FMainId) + '''');
    Open;
  end;

  SCreateCDS(ADOTemp, CDS_1);
  SInitCDSData(ADOTemp, CDS_1);

  if CopyInt = 99 then
  begin
    PState := 0;
    FMainId := '';
    OrderNo.Text := '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>';
//    GC_Piece.Text := '';
//    GC_BatchNo.Text := '';
//    GC_Position.Text := '';
//    GC_STKID.Text := '';
//    OrdDate.DateTime := SGetServerDateTime(ADOTemp);
//    DlyDate.DateTime := OrdDate.DateTime;
    with CDS_1 do
    begin
      First;
      while not Eof do
      begin
        Edit;
        FieldByName('MainId').Value := '';
        FieldByName('SubId').Value := '';
        FieldByName('carNum').Value := 0;
        Post;
        Next;
      end;
    end;
  end;

end;

procedure TfrmDyePlanInPut.ZDYHelp(FButn: TcxButtonEdit; LType: string);
var
  FType, ZDYName, FText: string;
begin
end;

procedure TfrmDyePlanInPut.C_NameBtnClick(Sender: TObject);
begin

  frmClothInfoSel := TfrmClothInfoSel.create(self);
  with frmClothInfoSel do
  begin
    if showmodal = 1 then
    begin
      CDS_1.DisableControls;

      Self.C_Name.Text := trim(CDS_1.FieldByName('C_Name').AsString);

    end;
    CDS_1.EnableControls;
  end;
  frmClothInfoSel.free;
end;


procedure TfrmDyePlanInPut.C_NameDblClick(Sender: TObject);
begin
  C_Name.Text := '';
end;

procedure TfrmDyePlanInPut.FormShow(Sender: TObject);
var
  forderNo: string;
begin
  readCxGrid(Trim(Self.Caption), Tv1, 'Ⱦ<><C8BE><EFBFBD>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>');
  OrdDate.DateTime := SGetServerDateTime(ADOTemp);
  DlyDate.DateTime := OrdDate.DateTime;
//  Workshop.text := trim(FWorkshop);
  fFlileFlag := UserDataFlag + 'HX';
  InitData();

end;

function TfrmDyePlanInPut.SaveData(): Boolean;
var
  maxno, forderNo: string;
begin
  try
    ADOCmd.Connection.BeginTrans;
///////////////       <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>       ///////////////
    if Trim(FMainId) = '' then
    begin
      if not GetLSNo(ADOCmd, maxno, 'JM', 'Dye_Plan_Main', 3, 1) then
        raise Exception.Create('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>');

      if GetLSNo(ADOCmd, forderNo, 'JH', 'Dye_Plan_Main', 3, 1) = False then
        raise Exception.Create('ȡ<>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>');
      OrderNo.Text := trim(forderNo);

    end
    else
    begin
      maxno := Trim(FMainId);
    end;
    with ADOCmd do
    begin
      Close;
      sql.Clear;
      SQL.Add('select * from Dye_Plan_Main where MainId=''' + Trim(FMainId) + '''');
      Open;
    end;
    with ADOCmd do
    begin
      if ADOCmd.IsEmpty then
      begin
        Append;
        FieldByName('Fillid').Value := Trim(dcode);
        FieldByName('Filler').Value := Trim(DName);
      end
      else
      begin
        Edit;
        FieldByName('Editid').Value := Trim(dcode);
        FieldByName('Editer').Value := Trim(DName);
        FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
      end;

      RTSetsavedata(ADOCmd, 'Dye_Plan_Main', ScrollBox1, 2);
      FieldByName('MainId').Value := Trim(maxno);
      FieldByName('Workshop').Value := Trim(FWorkshop);
      FieldByName('status').Value := '9';
      Post;
    end;

    with ADOCmd do
    begin
      Close;
      sql.Clear;
      sql.Add('select * from Dye_Plan_Main where orderno=''' + Trim(OrderNo.Text) + '''');
      Open;
    end;
    if ADOCmd.RecordCount > 1 then
      raise Exception.Create('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8><EFBFBD>');

    FMainId := Trim(maxno);
///////////////       <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>       ///////////////
///
///////////////       <20><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD>       ///////////////
    with CDS_1 do
    begin
      First;
      while not Eof do
      begin
        if Trim(CDS_1.fieldbyname('SubId').AsString) = '' then
        begin
          if not GetLSNo(ADOCmd, maxno, 'JS', 'Dye_Plan_Sub', 4, 1) then
            raise Exception.Create('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8><EFBFBD>');
        end
        else
        begin
          maxno := Trim(CDS_1.fieldbyname('SubId').AsString);
        end;
        with ADOCmd do
        begin
          Close;
          SQL.Clear;
          sql.Add('select * from Dye_Plan_Sub A   ');
          sql.Add(' where MainId=''' + Trim(FMainId) + '''');
          sql.Add(' and SubId=''' + Trim(maxno) + '''');
          Open;
        end;
        with ADOCmd do
        begin
          if ADOCmd.IsEmpty then
          begin
            Append;
          end
          else
            Edit;
          RTSetSaveDataCDS(ADOCmd, Tv1, CDS_1, 'Dye_Plan_Sub', 0);
          FieldByName('MainId').Value := Trim(FMainId);
          FieldByName('SubId').Value := Trim(maxno);
          Post;
        end;
        CDS_1.Edit;
        CDS_1.FieldByName('SubId').Value := Trim(maxno);
        Next;
      end;
    end;
    with ADOTemp do
    begin
      Close;
      SQL.Clear;
      sql.Add('UPDATE Dye_Plan_Main SET GC_STKID=   ');
      SQL.Add(' STUFF(( SELECT '','' +CAST(STKID AS VARCHAR)  FROM Dye_Plan_Sub c where c.MAINID = Dye_Plan_Main.MAINID FOR XML PATH('''')), 1, 1, '''')');
      sql.Add(' where MainId=''' + Trim(FMainId) + '''');
//      ShowMessage(sql.Text);
      EXECSQL;
    end;
///////////////       <20><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD>       ///////////////
    ADOCmd.Connection.CommitTrans;
    Result := True;
  except
    ADOCmd.Connection.RollbackTrans;
    Result := False;
    application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
  end;

end;

procedure TfrmDyePlanInPut.TBSaveClick(Sender: TObject);
begin
//  OrdDate.SetFocus;
  try

//    if Trim(OrderNo.Text) = '' then
//      raise Exception.Create('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');

//    if Trim(OrdType.Text) = '' then
//      raise Exception.Create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ͳ<EFBFBD><CDB2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');


//    if Trim(C_Name.Text) = '' then
//      raise Exception.Create('<27><>Ʒ<EFBFBD><C6B7><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');

//    if CDS_1.IsEmpty then
//      raise Exception.Create('<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');

  except
    application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
    exit;
  end;


//
//  if PState = 1 then
//  begin
//    if Trim(OrderNo.Text) <> Trim(forderNo) then
//    begin
//      with ADOTemp do
//      begin
//        Close;
//        sql.Clear;
//        sql.Add('select * from YF_Money_CR where MainId=''' + Trim(FMainId) + '''');
//        Open;
//      end;
//      if ADOTemp.IsEmpty = False then
//      begin
//        Application.MessageBox('<27>Ѳ<EFBFBD><D1B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8>Ķ<EFBFBD><C4B6><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
//        Exit;
//      end;
//    end;
//  end;
  if SaveData() then
  begin
    Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ', 0);
    TBClose.Click();
  end;
end;

procedure TfrmDyePlanInPut.v1PRTColorPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin

  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'C_Color';
      flagname := '<27><>ɫ';
      V1Name.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
//      V1Note.Caption := 'Ӣ<><D3A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
//      fnote := True;
      if ShowModal = 1 then
      begin
        Self.CDS_1.Edit;
        Self.CDS_1.FieldByName('C_Color').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
//        Self.CDS_1.FieldByName('ORDNOTE').Value := Trim(ClientDataSet1.fieldbyname('ORDNOTE').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmDyePlanInPut.ToolButton1Click(Sender: TObject);
var
  i: Integer;
begin
//  if Trim(OrderNo.Text) = '' then
//  begin
//    Application.MessageBox('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
//    Exit;
//  end;
  i := CDS_1.RecordCount;
  i := i + 1;
  CDS_1.Last;
  CopyAddRow(Tv1, CDS_1);
  with CDS_1 do
  begin
    Edit;
    FieldByName('SerialNo').Value := IntToStr(i);
    FieldByName('OrdQty').Value := 0;
    FieldByName('AntcpPiece').Value := 0;
    FieldByName('AntcpQty').Value := 0;
    FieldByName('OrdUnit').Value := 'M';
    FieldByName('AntcpUnit').Value := 'M';
    Post;
  end;

end;

procedure TfrmDyePlanInPut.ToolButton2Click(Sender: TObject);
begin
  if CDS_1.IsEmpty then
    Exit;
  with ADOTemp do
  begin
    Close;
    sql.Clear;
    sql.Add('select * from Dye_Plan_Card where SubId=''' + Trim(CDS_1.fieldbyname('SubId').AsString) + '''');
    Open;
  end;
  if ADOTemp.IsEmpty = False then
  begin
    Application.MessageBox('<27>ѿ<EFBFBD><D1BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
    Exit;
  end;
  if Trim(CDS_1.fieldbyname('SubId').AsString) <> '' then
  begin
    if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
      Exit;
    with ADOCmd do
    begin
      Close;
      sql.Clear;
      sql.Add('delete Dye_Plan_Sub where SubId=''' + Trim(CDS_1.fieldbyname('SubId').AsString) + '''');
      ExecSQL;
    end;
  end;
  CDS_1.Delete;
end;

procedure TfrmDyePlanInPut.CustNameBtnDnClick(Sender: TObject);
begin
  TBtnEditC(Sender).Text := '';
  TBtnEditC(Sender).TxtCode := '';
end;

//procedure TfrmDyePlanInPut.C_CodeBtnUpClick(Sender: TObject);
//begin
//  if trim(CustName.Text) = '' then
//  begin
//    Application.MessageBox('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
//    Exit;
//  end;
//
//  frmDyeGreyClothStkSel := TfrmDyeGreyClothStkSel.create(self);
//  with frmDyeGreyClothStkSel do
//  begin
//    FromCoNo.Text := trim(self.CustName.TxtCode);
//    FromCoNo.Enabled := False;
//    if showmodal = 1 then
//    begin
//      CDS_Main.DisableControls;
//
//      Self.C_Code.Text := trim(CDS_Main.FieldByName('C_Code').AsString);
//      Self.C_Name.Text := trim(CDS_Main.FieldByName('C_Name').AsString);
////          Self.C_Spec.Text := trim(CDS_Main.FieldByName('C_spec').AsString);
//      Self.C_Width.Text := trim(CDS_Main.FieldByName('C_Width').AsString);
////          Self.C_GramWeight.Text := trim(CDS_Main.FieldByName('C_GramWeight').AsString);
//      Self.Saleser.Text := trim(CDS_Main.FieldByName('Saleser').AsString);
//
//      with CDS_1 do
//      begin
//        if CDS_1.IsEmpty then
//        begin
//          Append;
//        end
//        else
//        begin
//          Edit;
//        end;
//        FieldByName('stkid').Value := trim(CDS_Main.FieldByName('stkid').AsString);
//        FieldByName('OrdQty').Value := trim(CDS_Main.FieldByName('StkPiece').AsString);
//        FieldByName('OrdPiece').Value := trim(CDS_Main.FieldByName('STKQty').AsString);
//        FieldByName('OrdUnit').Value := 'M';
//      end;
//
//    end;
//    CDS_Main.EnableControls;
//  end;
//  frmDyeGreyClothStkSel.free;
//end;

procedure TfrmDyePlanInPut.v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var
  mvalues: string;
begin
  mvalues := tv1.Columns[tv1.Controller.FocusedColumn.index].DataBinding.FieldName;
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'OrderUnit';
      flagname := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ';
      if ShowModal = 1 then
      begin
        Self.CDS_1.Edit;
        Self.CDS_1.FieldByName(mvalues).Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmDyePlanInPut.v1PriceUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'PriceUnit';
      flagname := '<27>۸<EFBFBD><DBB8><EFBFBD>λ';
      if Trim(DParameters1) <> '<27><>Ȩ<EFBFBD><C8A8>' then
      begin
        TBAdd.Visible := False;
        TBEdit.Visible := False;
        TBDel.Visible := False;
      end;

      if ShowModal = 1 then
      begin
        Self.CDS_1.Edit;
        Self.CDS_1.FieldByName('PriceUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmDyePlanInPut.ToolButton3Click(Sender: TObject);
begin
  if CDS_1.IsEmpty then
    Exit;
  OneKeyPost(Tv1, CDS_1);
end;

procedure TfrmDyePlanInPut.ToolButton4Click(Sender: TObject);
begin
  WriteCxGrid(Trim(Self.Caption), Tv1, 'Ⱦ<><C8BE><EFBFBD>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>');
end;

procedure TfrmDyePlanInPut.Need_ProductionDblClick(Sender: TObject);
var
  fsj: string;
  FWZ: Integer;
  i: integer;
begin
  fsj := Trim(TMemo(Sender).Hint);
  FWZ := Pos('/', fsj);
  i := 0;
  try
    frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
    with frmZDYHelpSel do
    begin
      flag := Copy(fsj, 1, FWZ - 1);
      flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
      if ShowModal = 1 then
      begin
        TMemo(Sender).Lines.Clear;
        with ClientDataSet1 do
        begin
          First;
          while not Eof do
          begin
            if FieldByName('SSel').AsBoolean = True then
            begin
              i := i + 1;
              TMemo(Sender).Lines.Add(inttostr(i) + '.' + FieldByName('ZDYName').AsString)
            end;
            Next;
          end;
        end;
      end;
    end;
  finally
    frmZDYHelpSel.Free;
  end;
end;

procedure TfrmDyePlanInPut.GC_BatchNoMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Application.Hint := TEdit(Sender).Name;
end;



end.