unit U_JYGLCK;

interface

uses
  Windows, Messages, SysUtils, StrUtils, Variants, Classes, Graphics, Controls,
  Forms, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, MMSystem,
  cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxGridLevel, cxClasses, cxControls, cxGridCustomView,
  cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxButtonEdit, cxDropDownEdit,
  DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, BtnEdit, cxContainer,
  cxTextEdit, cxCurrencyEdit, cxCheckBox, Menus, RM_Common, RM_Class, RM_e_Xls,
  RM_Dataset, RM_System, RM_GridReport, cxLookAndFeels, cxLookAndFeelPainters,
  cxNavigator;

type
  TfrmJYGLCK = class(TForm)
    ToolBar1: TToolBar;
    TBSave: TToolButton;
    TBClose: TToolButton;
    Panel1: TPanel;
    Label1: TLabel;
    CRTime: TDateTimePicker;
    Label2: TLabel;
    CRType: TComboBox;
    ADOQueryCmd: TADOQuery;
    ADOQueryTmp: TADOQuery;
    DataSource1: TDataSource;
    CDS_Main: TClientDataSet;
    ToolBar2: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    cxGridPopupMenu1: TcxGridPopupMenu;
    Label8: TLabel;
    InoutNo: TEdit;
    Label9: TLabel;
    ToFactoryName: TBtnEditA;
    Panel3: TPanel;
    ADOQueryMain: TADOQuery;
    cxGrid1: TcxGrid;
    Tv1: TcxGridDBTableView;
    v1MJXH: TcxGridDBColumn;
    v1P_Code: TcxGridDBColumn;
    v1P_CodeName: TcxGridDBColumn;
    v1P_SPEC: TcxGridDBColumn;
    v1Price: TcxGridDBColumn;
    v1P_MF: TcxGridDBColumn;
    v1P_KZ: TcxGridDBColumn;
    v1Qty: TcxGridDBColumn;
    v1QtyUnit: TcxGridDBColumn;
    v1Money: TcxGridDBColumn;
    v1Note: TcxGridDBColumn;
    cxGrid1Level1: TcxGridLevel;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    ADOQueryPrint: TADOQuery;
    RM1: TRMGridReport;
    RMDB_Main: TRMDBDataSet;
    RMXLSExport1: TRMXLSExport;
    v1Column1: TcxGridDBColumn;
    v1Column2: TcxGridDBColumn;
    v1Column3: TcxGridDBColumn;
    v1Column4: TcxGridDBColumn;
    v1Column5: TcxGridDBColumn;
    btn1: TToolButton;
    qry1: TADOQuery;
    CDS_BJ: TClientDataSet;
    DS_BJ: TDataSource;
    pnl1: TPanel;
    lbl1: TLabel;
    CYNO: TEdit;
    lbl2: TLabel;
    Edit1: TEdit;
    cxGrid3: TcxGrid;
    TV7: TcxGridDBTableView;
    cxGridDBColumn9: TcxGridDBColumn;
    cxGridDBColumn10: TcxGridDBColumn;
    cxGridDBColumn11: TcxGridDBColumn;
    cxGridDBColumn12: TcxGridDBColumn;
    cxGridDBColumn13: TcxGridDBColumn;
    cxGridLevel1: TcxGridLevel;
    CDS_YPXZ: TClientDataSet;
    DS_YPXZ: TDataSource;
    N3: TMenuItem;
    cV7Column1: TcxGridDBColumn;
    cV7Column2: TcxGridDBColumn;
    cV7Column3: TcxGridDBColumn;
    cV7Column4: TcxGridDBColumn;
    cV7Column5: TcxGridDBColumn;
    cv1Column6: TcxGridDBColumn;
    Edit2: TEdit;
    v1Column6: TcxGridDBColumn;
    v1Column7: TcxGridDBColumn;
    Label3: TLabel;
    Label4: TLabel;
    CDS_LXR: TClientDataSet;
    DS_LXR: TDataSource;
    TOSHR: TEdit;
    tophone: TEdit;
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure TBSaveClick(Sender: TObject);
    procedure v1P_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure ToolButton1Click(Sender: TObject);
    procedure TBCloseClick(Sender: TObject);
    procedure ToFactoryNameBtnClick(Sender: TObject);
    procedure v1QtyPropertiesEditValueChanged(Sender: TObject);
    procedure FHAddressBtnDnClick(Sender: TObject);
    procedure v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure ToolButton2Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure CYNOKeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure TV7DblClick(Sender: TObject);
    procedure TV7MouseLeave(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure TV8DblClick(Sender: TObject);
    procedure TOZZKHBtnClick(Sender: TObject);
  private
    procedure GetKC(MScan: string; MScanType: string);
    procedure InitGrid();
    procedure GetYP();
    function savedate(): Boolean;
    { Private declarations }
  public
    fkeyNO, fxiugai: string;
    FType: integer;
    fCKName: string;
    canshu1: string;
    jyfs: string;
    yingcang: string;
    fbj: string;

    { Public declarations }
  end;

var
  frmJYGLCK: TfrmJYGLCK;

implementation

uses
  U_DataLink, U_Fun10, U_ZDYHelp, U_ZdyAttachment, U_ZDYHelpSel, U_ZdyAttachGYS,
  U_PieceSampleKcList, U_ZdyAttachmentBJ, U_YPKC;
{$R *.dfm}

procedure TfrmJYGLCK.GetKC(MScan: string; MScanType: string);
begin

  with ADOQueryTmp do
  begin
    close;
    sql.Clear;
    SQL.Add('exec P_Get_YPKC @Scan=' + quotedstr(trim(MScan)));
    SQL.Add(',@ScanType=' + quotedstr(Trim(MScanType)));
//   showmessage(SQL.Text);
    open;
  end;

  if ADOQueryTmp.IsEmpty then
  begin

    Application.MessageBox('±àºÅ´íÎó!', 'Ìáʾ', 0);
    Exit;
    Edit1.Text := '';

  end
  else
  begin
    if ADOQueryTmp.RecordCount = 1 then
    begin

      if CDS_Main.Locate('P_Code;P_COLOR', VarArrayOf([trim(ADOQueryTmp.fieldbyname('P_Code').AsString), trim(ADOQueryTmp.fieldbyname('P_COLOR').AsString)]), []) then
      begin
        if Application.MessageBox('ÒÑ´æÔÚ¸ÃÑùÆ·£¬ÊÇ·ñ¼ÌÐøÌí¼Ó£¿', 'Ìáʾ', 32 + 4) <> IDYES then
          Exit;
      end;

      CDS_Main.append;
      if Trim(fbj) <> '' then
      begin
        if trim(fbj) = 'RMB' then
        begin
          cds_main.FieldByName('BZTYPE').Value := '£¤';
        end
        else if trim(fbj) = 'USD' then
        begin
          cds_main.FieldByName('BZTYPE').Value := '$';
        end
        else if trim(fbj) = 'EUR' then
        begin
          cds_main.FieldByName('BZTYPE').Value := '€';
        end;
      end
      else
      begin
        cds_main.FieldByName('BZTYPE').Value := '£¤';
      end;

      CDS_Main.FieldByName('P_Code').Value := trim(ADOQueryTmp.fieldbyname('P_Code').AsString);
      CDS_Main.FieldByName('P_CodeName').Value := trim(ADOQueryTmp.fieldbyname('P_CodeName').AsString);

      CDS_Main.FieldByName('P_spec').Value := trim(ADOQueryTmp.fieldbyname('P_spec').AsString);
      CDS_Main.FieldByName('P_cf').Value := trim(ADOQueryTmp.fieldbyname('P_cf').AsString);
      CDS_Main.FieldByName('P_MF').Value := trim(ADOQueryTmp.fieldbyname('P_MF').AsString);
      CDS_Main.FieldByName('P_KZ').Value := trim(ADOQueryTmp.fieldbyname('P_KZ').AsString);
      CDS_Main.FieldByName('P_cf').Value := trim(ADOQueryTmp.fieldbyname('P_cf').AsString);

      CDS_Main.FieldByName('P_color').Value := trim(ADOQueryTmp.fieldbyname('P_color').AsString);
      CDS_Main.FieldByName('mjid').Value := trim(ADOQueryTmp.fieldbyname('mjid').AsString);
      CDS_Main.FieldByName('Qty').Value := ADOQueryTmp.fieldbyname('kcQty').AsFloat;
      CDS_Main.FieldByName('QtyUnit').Value := trim(ADOQueryTmp.fieldbyname('QtyUnit').AsString);
      CDS_Main.FieldByName('Price').Value := 0;
      CDS_Main.FieldByName('Money').Value := 0;
      CDS_Main.FieldByName('QtyUnit').Value := 'M';
      CDS_Main.Post;
//        InitHistoryPrice(trim(ADOQueryTmp.fieldbyname('CYNo').AsString));
      Edit1.Text := '';
    end;
    if ADOQueryTmp.RecordCount > 1 then
    begin
      SCreateCDS20(ADOQueryTmp, CDS_YPXZ);
      SInitCDSData20(ADOQueryTmp, CDS_YPXZ);
      cxGrid3.Visible := True;
      cxGrid3.SetFocus;
      Edit1.Text := '';
    end;

  end;

end;

function TfrmJYGLCK.savedate(): Boolean;
var
  MaxNo: string;
begin
  result := false;
  try
    ADOQueryCmd.Connection.BeginTrans;
    CDS_Main.DisableControls;
    CDS_Main.First;
    with CDS_Main do
    begin
      while not eof do
      begin
        with ADOQueryCmd do
        begin
          close;
          sql.Clear;
          sql.Add('select * from CK_Sample_CR');
          sql.Add('where CRNO=' + quotedstr(Trim(CDS_Main.FieldByName('CRNO').AsString)));
          open;
        end;
        if ADOQueryCmd.IsEmpty then
        begin
          if GetLSNo(ADOQueryTmp, MaxNo, 'SPC', 'CK_Sample_CR', 3, 1) = False then
          begin
            ADOQueryCmd.Connection.RollbackTrans;
            Application.MessageBox('È¡×î´óºÅʧ°Ü!', 'Ìáʾ', 0);
            Exit;
          end;
          ADOQueryCmd.Append;
          ADOQueryCmd.FieldByName('Filler').Value := trim(DName);
          ADOQueryCmd.FieldByName('FillTime').Value := dateTimetostr(SGetServerDateTime(adoqueryTmp));
        end
        else
        begin
          MaxNo := Trim(CDS_Main.FieldByName('CRNO').AsString);
          ADOQueryCmd.Edit;
          ADOQueryCmd.FieldByName('editer').Value := trim(dName);
          ADOQueryCmd.FieldByName('editTime').Value := SGetServerDateTime(adoqueryTmp);
        end;

        ADOQueryCmd.FieldByName('inoutNo').Value := trim(inoutNo.Text);
        ADOQueryCmd.FieldByName('CRNO').Value := trim(MaxNo);
        ADOQueryCmd.FieldByName('CKName').Value := trim(fCKName);
        ADOQueryCmd.FieldByName('ToFactoryName').Value := trim(ToFactoryName.Text);
        ADOQueryCmd.FieldByName('CRTime').Value := formatdateTime('yyyy-MM-dd', CRTIme.Date);

        ADOQueryCmd.FieldByName('TOSHR').AsString := trim(TOSHR.Text);
        ADOQueryCmd.FieldByName('tophone').AsString := trim(tophone.Text);

        ADOQueryCmd.FieldByName('CRType').Value := trim(CRType.Text);
        ADOQueryCmd.FieldByName('CRFlag').Value := '³ö¿â';
        ADOQueryCmd.FieldByName('VisType').Value := '¼ÄÑù';
        ADOQueryCmd.FieldByName('Chkstatus').Value := '0';
        ADOQueryCmd.FieldByName('CRQtyFlag').Value := -1;

         //±£´æÃ÷ϸ
        RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Main, 'CK_Sample_CR', 0);

         //±£´æÒþ²Ø×Ö¶Î
        ADOQueryCmd.FieldByName('ORDERNO').Value := trim(fieldbyname('ORDERNO').AsString);
        ADOQueryCmd.FieldByName('mainID').Value := trim(fieldbyname('mainID').AsString);
        ADOQueryCmd.FieldByName('subID').Value := trim(fieldbyname('subID').AsString);
        ADOQueryCmd.FieldByName('MJID').Value := trim(fieldbyname('MJID').AsString);
        ADOQueryCmd.FieldByName('Rollnum').Value := fieldbyname('Rollnum').AsInteger;
        ADOQueryCmd.Post;
//        with ADOQueryTmp do
//        begin
//          Close;
//          SQL.Clear;
//          SQL.Add(' select K1=ISNULL(SUM(X.CRQtyFlag*X.Qty),0) from CK_Sample_CR X WHERE MJID= ' + quotedstr(trim(CDS_Main.fieldbyname('MJID').AsString)));
//          SQL.Add('VALID=''Y''');
//          Open;
//        end;
//        if ADOQueryTmp.FieldByName('K1').AsFloat <= 0 then
//        begin
//          CDS_Main.EnableControls;
//          ADOQueryCmd.Connection.RollbackTrans;
//          Application.MessageBox('Èë¿âÊýÁ¿ÉÙÓÚ³ö¿âÊýÁ¿!', 'Ìáʾ', 0);
//          Exit;
//        end;
//
//        if Trim(ADOQueryCmd.FieldByName('Msg').AsString) = '²Ù×÷ʧ°Ü' then
//        begin
//          CDS_Main.EnableControls;
//          ADOQueryCmd.Connection.RollbackTrans;
//          Application.MessageBox('Èë¿âÊýÁ¿ÉÙÓÚ³ö¿âÊýÁ¿!', 'Ìáʾ', 0);
//          Exit;
//        end;

        Edit;
        FieldByName('CRNO').Value := trim(MaxNo);
        post;
        next;
      end;
    end;
    CDS_Main.EnableControls;
    ADOQueryCmd.Connection.CommitTrans;
    result := true;
  except
    CDS_Main.EnableControls;
    ADOQueryCmd.Connection.RollbackTrans;
  end;
end;

procedure TfrmJYGLCK.InitGrid();
begin
  try
    if fxiugai <> '' then
    begin
      with adoqueryMain do
      begin
        close;
        sql.Clear;
        sql.Add('select A.* from CK_Sample_CR A');
        sql.Add('where A.inoutno=' + quotedstr(trim(fxiugai)));
        SQL.ADD('and A.valid=''Y''');
        open;
      end;
    end
    else
    begin
      with adoqueryMain do
      begin
        close;
        sql.Clear;
        sql.Add('select A.* from CK_Sample_CR A');

        sql.Add('where A.crno=' + quotedstr(trim(fkeyNO)));
        SQL.ADD('and A.valid=''Y''');
        open;
      end;
    end;
    SCreateCDS20(adoqueryMain, CDS_Main);
    SInitCDSData20(adoqueryMain, CDS_Main);
    if not CDS_Main.IsEmpty then
    begin
      CRTime.Date := CDS_Main.fieldbyname('CRTime').AsDateTime;
      CRType.ItemIndex := CRType.Items.IndexOf(trim(CDS_Main.fieldbyname('CRType').AsString));

      InoutNO.Text := trim(CDS_Main.fieldbyname('InoutNO').AsString);
      ToFactoryName.Text := trim(CDS_Main.fieldbyname('ToFactoryName').AsString);

      TOSHR.Text := trim(CDS_Main.fieldbyname('TOSHR').AsString);
      tophone.Text := trim(CDS_Main.fieldbyname('tophone').AsString);
    end;
  finally
  end;
end;

procedure TfrmJYGLCK.FormDestroy(Sender: TObject);
begin
  frmJYGLCK := nil;
end;

procedure TfrmJYGLCK.FormCreate(Sender: TObject);
begin
  CRTime.Date := SGetServerDate10(ADOQueryTmp);
end;

procedure TfrmJYGLCK.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := cahide;
  WriteCxGrid(trim(self.Caption), Tv1, 'ÑùÆ·²Ö¿â1');
end;

procedure TfrmJYGLCK.FormShow(Sender: TObject);
var
  fbhType, fInoutNo: string;
begin
  readCxGrid(trim(self.Caption), Tv1, 'ÑùÆ·²Ö¿â1');
  InitGrid();
  if jyfs = 'ÈÕ³£' then
  begin
//    edit2.Visible := false;
    cyno.Visible := False;
//    lbl1.Visible := False;
  end;
  if jyfs = '¿â´æ' then
  begin
//    edit1.Visible := False;
//    lbl2.Visible := False;
  end;
  if fType = 0 then
  begin
    if GetLSNo(ADOQueryCmd, fkeyNo, 'YCK', 'CK_Sample_CR', 3, 1) = False then
    begin
      Application.MessageBox('È¡×î´óºÅʧ°Ü!', 'Ìáʾ', 0);
      Exit;
    end;
    inoutNo.Text := trim(fkeyNo);
  end;
end;

procedure TfrmJYGLCK.TBSaveClick(Sender: TObject);
begin
  if cds_main.IsEmpty then
    exit;
  CRTime.SetFocus;
  if trim(CRType.Text) = '' then
  begin
    application.MessageBox('³ö¿âÀàÐͲ»ÄÜΪ¿Õ£¡', 'ÌáʾÐÅÏ¢', 0);
    exit;
  end;
  if trim(ToFactoryName.Text) = '' then
  begin
    application.MessageBox('³ö¿âµ¥Î»²»ÄÜΪ¿Õ£¡', 'ÌáʾÐÅÏ¢', 0);
    exit;
  end;
  if trim(TOSHR.Text) = '' then
  begin
    application.MessageBox('ÊÕ¼þÈ˲»ÄÜΪ¿Õ£¡', 'ÌáʾÐÅÏ¢', 0);
    exit;
  end;
  if trim(TOPHONE.Text) = '' then
  begin
    application.MessageBox('ÁªÏµ·½Ê½²»ÄÜΪ¿Õ£¡', 'ÌáʾÐÅÏ¢', 0);
    exit;
  end;

  if cds_main.Locate('QtyUnit', '', []) then
  begin
    application.MessageBox('ÊýÁ¿µ¥Î»²»ÄÜΪ¿Õ£¡', 'ÌáʾÐÅÏ¢', 0);
    exit;
  end;
  if cds_main.Locate('BZTYPE', '', []) then
  begin
    application.MessageBox('±ÒÖÖ²»ÄÜΪ¿Õ£¡', 'ÌáʾÐÅÏ¢', 0);
    exit;
  end;
  if cds_main.Locate('QtyUnit', NULL, []) then
  begin
    application.MessageBox('ÊýÁ¿µ¥Î»²»ÄÜΪ¿Õ£¡', 'ÌáʾÐÅÏ¢', 0);
    exit;
  end;

  if savedate() then
  begin
    application.MessageBox('Êý¾Ý±£´æ³É¹¦£¡', 'ÌáʾÐÅÏ¢');
  end
  else
  begin
    application.MessageBox('Êý¾Ý±£´æʧ°Ü£¡', 'ÌáʾÐÅÏ¢', MB_ICONERROR);
  end;
end;

procedure TfrmJYGLCK.v1P_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'Cloth';
      flagname := 'Å÷²¼Ãû³Æ';
      if ShowModal = 1 then
      begin
        Self.CDS_Main.Edit;
        Self.CDS_Main.FieldByName('P_CodeName').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
        Self.CDS_Main.FieldByName('P_Code').Value := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmJYGLCK.ToolButton1Click(Sender: TObject);
var
  FMJID: string;
begin
  frmPieceSampleKcList := TfrmPieceSampleKcList.create(self);
  with frmPieceSampleKcList do
  begin
    fType := 10;
    fCKName := trim(self.fCKName);
    if showmodal = 1 then
    begin
      cds_main.DisableControls;
      cds_main.First;
      while not cds_main.Eof do
      begin
        if (cds_main.fieldbyname('ssel').AsBoolean) and (not self.cds_main.Locate('MJID', trim(cds_main.fieldbyname('MJID').AsString), [])) then
        begin
          self.cds_main.Append;
          self.cds_main.FieldByName('OrderNo').Value := trim(cds_main.fieldbyname('OrderNo').AsString);
          self.cds_main.FieldByName('mainID').Value := trim(cds_main.fieldbyname('mainID').AsString);
          self.cds_main.FieldByName('subID').Value := trim(cds_main.fieldbyname('subID').AsString);
          self.cds_main.fieldbyname('fromFactoryName').Value := trim(cds_main.fieldbyname('fromFactoryName').AsString);
          self.cds_main.fieldbyname('FactoryName').Value := trim(cds_main.fieldbyname('FactoryName').AsString);
          self.cds_main.fieldbyname('JGId').Value := trim(cds_main.fieldbyname('JGId').AsString);
          self.cds_main.FieldByName('MJID').Value := trim(cds_main.fieldbyname('MJID').AsString);
          self.cds_main.FieldByName('MJXH').Value := trim(cds_main.fieldbyname('MJXH').AsString);
          self.cds_main.FieldByName('CPTYPE').Value := trim(cds_main.fieldbyname('CPTYPE').AsString);
          self.cds_main.FieldByName('P_Code').Value := trim(cds_main.fieldbyname('P_Code').AsString);
          self.cds_main.FieldByName('P_CodeName').Value := trim(cds_main.fieldbyname('P_CodeName').AsString);
          self.cds_main.FieldByName('kuwei').Value := trim(cds_main.fieldbyname('kuwei').AsString);
          self.cds_main.FieldByName('P_spec').Value := trim(cds_main.fieldbyname('P_spec').AsString);
          self.cds_main.FieldByName('P_Color').Value := trim(cds_main.fieldbyname('P_Color').AsString);
          self.cds_main.FieldByName('P_HX').Value := trim(cds_main.fieldbyname('P_HX').AsString);
          self.cds_main.FieldByName('P_CF').Value := trim(cds_main.fieldbyname('P_CF').AsString);
          self.cds_main.FieldByName('P_MF').Value := trim(cds_main.fieldbyname('P_MF').AsString);
          self.cds_main.FieldByName('P_KZ').Value := trim(cds_main.fieldbyname('P_KZ').AsString);
          self.cds_main.FieldByName('note').Value := trim(cds_main.fieldbyname('note').AsString);

          self.cds_main.FieldByName('BZTYPE').Value := '£¤';

          self.cds_main.FieldByName('RollNum').Value := cds_main.fieldbyname('RollNum').AsFloat;
          self.cds_main.FieldByName('Qty').Value := cds_main.fieldbyname('kcQty').AsFloat;
          self.cds_main.FieldByName('QtyUnit').Value := trim(cds_main.fieldbyname('QtyUnit').AsString);
          self.cds_main.FieldByName('Price').Value := 0;
          self.cds_main.FieldByName('Money').Value := 0;
          self.cds_main.Post;
        end;
        cds_main.Next;
      end;
      cds_main.EnableControls;
    end;
    free;
  end;
end;

procedure TfrmJYGLCK.TBCloseClick(Sender: TObject);
begin
  writeCxGrid(trim(self.Caption), Tv1, 'ÑùÆ·²Ö¿â');
  close;
end;

procedure TfrmJYGLCK.ToFactoryNameBtnClick(Sender: TObject);
var
  F1: string;
begin
  if (trim(CRType.Text) = '¼Ó¹¤³ö¿â') or (trim(CRType.Text) = 'Éú²ú³ö¿â') or (trim(CRType.Text) = 'ÍË»õ³ö¿â') then
  begin
    F1 := '¹©Ó¦ÉÌ';
    try
      frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
      with frmZdyAttachGYS do
      begin
        canshu1 := Self.canshu1;
        if (trim(self.CRType.Text) = 'Éú²ú³ö¿â') then
        begin
          canshu2 := 'Éú²ú³ö¿â';
        end;
        if ShowModal = 1 then
        begin
          ToFactoryName.Text := Trim(CDS_HZ.fieldbyname('CoName').AsString);
//          TOSHR.Text := Trim(CDS_HZ.fieldbyname('Contacts').AsString);
//          TOPHONE.Text := Trim(CDS_HZ.fieldbyname('CoName').AsString);
        end;
      end;
    finally
      frmZdyAttachGYS.Free;
    end;
  end
  else
  begin
    F1 := '¿Í»§';
    try
      frmZdyAttachment := TfrmZdyAttachment.Create(Application);
      with frmZdyAttachment do
      begin
        canshu1 := Self.canshu1;
        if ShowModal = 1 then
        begin
          ToFactoryName.Text := Trim(CDS_HZ.fieldbyname('CoName').AsString);
        end;
      end;
    finally
      frmZdyAttachment.Free;
    end;
  end;

end;

procedure TfrmJYGLCK.v1QtyPropertiesEditValueChanged(Sender: TObject);
var
  mvalue, FFieldName: string;
begin
  mvalue := TcxTextEdit(Sender).EditingText;
  if Trim(mvalue) = '' then
  begin
    mvalue := '0';
  end;
  FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
  with CDS_Main do
  begin
    Edit;
    FieldByName(FFieldName).Value := Trim(mvalue);
    FieldbyName('Money').Value := format('%.2f', [FieldByName('Qty').AsFloat * FieldByName('Price').AsFloat]);
    Post;
  end;
  tv1.Controller.EditingController.ShowEdit();
end;

procedure TfrmJYGLCK.FHAddressBtnDnClick(Sender: TObject);
begin
  TBtnEditC(Sender).Text := '';
  TBtnEditC(Sender).TxtCode := '';
end;

procedure TfrmJYGLCK.v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
//  try
//    frmOrderListSel:=TfrmOrderListSel.Create(Application);
//    with frmOrderListSel do
//    begin
//      if ShowModal=1 then
//      begin
//        Self.CDS_Main.Edit;
//        Self.CDS_Main.FieldByName('OrderNo').Value:=Trim(Order_Main.fieldbyname('OrderNo').AsString);
//        Self.CDS_Main.FieldByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString);
//      end;
//    end;
//  finally
//    frmOrderListSel.Free;
//  end;
//  self.tv1.Controller.EditingController.ShowEdit();
end;

procedure TfrmJYGLCK.v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'MLType';
      flagname := 'ÃæÁÏÀàÐÍ';
      if ShowModal = 1 then
      begin
        CDS_Main.Edit;
        CDS_Main.FieldByName('P_Type').Value := Trim(ClientDataSet1.fieldbyname('zdyName').AsString);
        CDS_Main.Post;
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
  tv1.Controller.EditingController.ShowEdit();
end;

procedure TfrmJYGLCK.ToolButton2Click(Sender: TObject);
begin
  if CDS_Main.IsEmpty then
    exit;
  if Trim(CDS_Main.FieldByName('CRNO').AsString) = '' then
  begin
    CDS_Main.Delete;
  end
  else
  begin
    ADOQueryCmd.Connection.BeginTrans;
    with ADOQueryCmd do
    begin
      Close;
      SQL.Clear;
      sql.Add('update CK_Sample_CR set Valid=''N''  where CRNO=' + quotedstr(Trim(CDS_Main.FieldByName('CRNO').AsString)));
      ExecSQL;
    end;

    ADOQueryCmd.Connection.CommitTrans;
    CDS_Main.Delete;
  end;
end;

procedure TfrmJYGLCK.N1Click(Sender: TObject);
begin
  SelOKNo(CDS_Main, True);
end;

procedure TfrmJYGLCK.N2Click(Sender: TObject);
begin
  SelOKNo(CDS_Main, False);
end;

procedure TfrmJYGLCK.btn1Click(Sender: TObject);
var
  k1: string;
begin
  try
    frmZdyAttachmentCB := TfrmZdyAttachmentCB.Create(Application);
    with frmZdyAttachmentCB do
    begin
      ToolButton1.Visible := True;
      canshu1 := Self.canshu1;
      yingcang := '±¨¼Û';
      if ShowModal = 1 then
      begin
        fbj := Trim(CDS_Main.fieldbyname('Priceunit').AsString);
        self.GetKC(Trim(CDS_Main.fieldbyname('p_code').AsString), 'ÑùÆ·±àºÅ');

      end;

    end;

  finally
    frmZdyAttachmentCB.Free;
  end;

end;

procedure TfrmJYGLCK.CYNOKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    if Length(Trim(CYNO.Text)) < 4 then
      Exit;
    GetKC(Trim(CYNO.Text), 'ÑùÆ·±àºÅ');
  end;
end;

procedure TfrmJYGLCK.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
//  if Key = #13 then
//  begin
//    if Length(Trim(Edit1.Text)) < 4 then
//      Exit;
//    GetKC(Trim(Edit1.Text), 'ÑùÆ·ÌõÂë');
//  end;
  if Key = #13 then
  begin
    if Length(Trim(edit1.Text)) < 4 then
      Exit;
    with ADOQueryTmp do
    begin
      close;
      sql.Clear;
      sql.Add('select  * from CK_Sample_CR where crno=' + quotedstr(trim(Edit1.Text)));

//      showmessage(SQL.Text);

      open;
    end;
    Edit1.Text := '';
    if ADOQueryTmp.IsEmpty then
    begin
      application.MessageBox('´Ë±àºÅ´íÎó£¡', 'ÌáʾÐÅÏ¢', MB_ICONERROR);
      Edit1.Text := '';
    end
    else
    begin
      CDS_MAIN.Append;
      CDS_MAIN.FieldByName('P_Code').Value := trim(ADOQueryTmp.fieldbyname('P_Code').AsString);
      CDS_MAIN.FieldByName('P_CodeName').Value := trim(ADOQueryTmp.fieldbyname('P_CodeName').AsString);
//      if trim(CDS_YPXZ.fieldbyname('qtyunit').AsString) = 'RMB' then
//      begin
      cds_main.FieldByName('BZTYPE').Value := '£¤';
//      end
//      else if trim(CDS_YPXZ.fieldbyname('qtyunit').AsString) = 'USD' then
//      begin
//        cds_main.FieldByName('BZTYPE').Value := '$';
//      end
//      else if trim(CDS_YPXZ.fieldbyname('qtyunit').AsString) = 'EUR' then
//      begin
//        cds_main.FieldByName('BZTYPE').Value := '€';
//      end;
      CDS_MAIN.FieldByName('P_spec').Value := trim(ADOQueryTmp.fieldbyname('P_spec').AsString);
      CDS_MAIN.FieldByName('P_cf').Value := trim(ADOQueryTmp.fieldbyname('P_cf').AsString);
      CDS_MAIN.FieldByName('P_MF').Value := trim(ADOQueryTmp.fieldbyname('P_MF').AsString);
      CDS_MAIN.FieldByName('P_KZ').Value := trim(ADOQueryTmp.fieldbyname('P_KZ').AsString);
      CDS_MAIN.FieldByName('kuwei').Value := trim(ADOQueryTmp.fieldbyname('kuwei').AsString);
      CDS_MAIN.FieldByName('qty').Value := trim(ADOQueryTmp.fieldbyname('kcqty').AsString);
      CDS_MAIN.FieldByName('note').Value := trim(ADOQueryTmp.fieldbyname('note').AsString);
      CDS_MAIN.FieldByName('P_color').Value := trim(ADOQueryTmp.fieldbyname('P_color').AsString);
      CDS_MAIN.FieldByName('mjid').Value := trim(ADOQueryTmp.fieldbyname('mjid').AsString);
      CDS_MAIN.FieldByName('qtyunit').Value := trim(ADOQueryTmp.fieldbyname('qtyunit').AsString);
      CDS_MAIN.FieldByName('fromFactoryName').Value := trim(ADOQueryTmp.fieldbyname('fromFactoryName').AsString);
      CDS_Main.Post;

    end;
  end;
end;

procedure TfrmJYGLCK.TV7DblClick(Sender: TObject);
begin
  GetYP();
end;

procedure TfrmJYGLCK.GetYP();
begin

  if CDS_MAIN.Locate('P_Code;P_COLOR', VarArrayOf([trim(CDS_YPXZ.fieldbyname('p_code').AsString), trim(CDS_YPXZ.fieldbyname('p_color').AsString)]), []) then
  begin
    if Application.MessageBox('ÒÑ´æÔÚ¸ÃÑùÆ·£¬ÊÇ·ñ¼ÌÐøÌí¼Ó£¿', 'Ìáʾ', 32 + 4) <> IDYES then
      Exit;
  end;
  if Trim(CDS_YPXZ.fieldbyname('MJID').AsString) <> '' then
  begin
    CDS_MAIN.append;
    CDS_MAIN.FieldByName('P_Code').Value := trim(CDS_YPXZ.fieldbyname('P_Code').AsString);
    CDS_MAIN.FieldByName('P_CodeName').Value := trim(CDS_YPXZ.fieldbyname('P_CodeName').AsString);
//  CDS_MAIN.FieldByName('P_CodeNameE').Value := trim(CDS_YPXZ.fieldbyname('CYEName').AsString);
    CDS_MAIN.FieldByName('P_spec').Value := trim(CDS_YPXZ.fieldbyname('P_spec').AsString);
    CDS_MAIN.FieldByName('P_cf').Value := trim(CDS_YPXZ.fieldbyname('P_cf').AsString);
    CDS_MAIN.FieldByName('P_MF').Value := trim(CDS_YPXZ.fieldbyname('P_MF').AsString);
    CDS_MAIN.FieldByName('P_KZ').Value := trim(CDS_YPXZ.fieldbyname('P_KZ').AsString);
    CDS_MAIN.FieldByName('kuwei').Value := trim(CDS_YPXZ.fieldbyname('kuwei').AsString);
    CDS_MAIN.FieldByName('qty').Value := trim(CDS_YPXZ.fieldbyname('kcqty').AsString);
//  CDS_MAIN.FieldByName('MiDu').Value := trim(CDS_YPXZ.fieldbyname('MiDu').AsString);
    CDS_MAIN.FieldByName('P_color').Value := trim(CDS_YPXZ.fieldbyname('P_color').AsString);
    CDS_MAIN.FieldByName('mjid').Value := trim(CDS_YPXZ.fieldbyname('mjid').AsString);
    CDS_MAIN.FieldByName('qtyunit').Value := trim(CDS_YPXZ.fieldbyname('qtyunit').AsString);
    if Trim(fbj) <> '' then
    begin
      if trim(fbj) = 'RMB' then
      begin
        cds_main.FieldByName('BZTYPE').Value := '£¤';
      end
      else if trim(fbj) = 'USD' then
      begin
        cds_main.FieldByName('BZTYPE').Value := '$';
      end
      else if trim(fbj) = 'EUR' then
      begin
        cds_main.FieldByName('BZTYPE').Value := '€';
      end;
    end
    else
    begin
      cds_main.FieldByName('BZTYPE').Value := '£¤';
    end;

    CDS_MAIN.FieldByName('fromFactoryName').Value := trim(CDS_YPXZ.fieldbyname('fromFactoryName').AsString);
//  cds1.FieldByName('DLYDATE').Value := '';
    CDS_MAIN.Post;
    cxGrid3.Visible := False;
  end
  else
  begin
    CDS_MAIN.append;
    CDS_MAIN.FieldByName('P_Code').Value := trim(CDS_YPXZ.fieldbyname('P_Code').AsString);
    CDS_MAIN.FieldByName('P_CodeName').Value := trim(CDS_YPXZ.fieldbyname('P_CodeName').AsString);
//  CDS_MAIN.FieldByName('P_CodeNameE').Value := trim(CDS_YPXZ.fieldbyname('CYEName').AsString);
    CDS_MAIN.FieldByName('P_spec').Value := trim(CDS_YPXZ.fieldbyname('P_spec').AsString);
    CDS_MAIN.FieldByName('P_cf').Value := trim(CDS_YPXZ.fieldbyname('P_cf').AsString);
    CDS_MAIN.FieldByName('P_MF').Value := trim(CDS_YPXZ.fieldbyname('P_MF').AsString);
    CDS_MAIN.FieldByName('P_KZ').Value := trim(CDS_YPXZ.fieldbyname('P_KZ').AsString);
    CDS_MAIN.FieldByName('kuwei').Value := trim(CDS_YPXZ.fieldbyname('kuwei').AsString);
    CDS_MAIN.FieldByName('qty').Value := '0';
//  CDS_MAIN.FieldByName('MiDu').Value := trim(CDS_YPXZ.fieldbyname('MiDu').AsString);
    CDS_MAIN.FieldByName('P_color').Value := trim(CDS_YPXZ.fieldbyname('P_color').AsString);
    CDS_MAIN.FieldByName('mjid').Value := '';
    CDS_MAIN.FieldByName('qtyunit').Value := 'M';

//    cds_main.FieldByName('BZTYPE').Value := '£¤';
    if Trim(fbj) <> '' then
    begin
      if trim(fbj) = 'RMB' then
      begin
        cds_main.FieldByName('BZTYPE').Value := '£¤';
      end
      else if trim(fbj) = 'USD' then
      begin
        cds_main.FieldByName('BZTYPE').Value := '$';
      end
      else if trim(fbj) = 'EUR' then
      begin
        cds_main.FieldByName('BZTYPE').Value := '€';
      end;
    end
    else
    begin
      cds_main.FieldByName('BZTYPE').Value := '£¤';
    end;
//    if trim(CDS_YPXZ.fieldbyname('qtyunit').AsString) = 'RMB' then
//    begin
//      cds_main.FieldByName('BZTYPE').Value := '£¤';
//    end
//    else if trim(CDS_YPXZ.fieldbyname('qtyunit').AsString) = 'USD' then
//    begin
//      cds_main.FieldByName('BZTYPE').Value := '$';
//    end
//    else if trim(CDS_YPXZ.fieldbyname('qtyunit').AsString) = 'EUR' then
//    begin
//      cds_main.FieldByName('BZTYPE').Value := '€';
//    end;
    CDS_MAIN.FieldByName('fromFactoryName').Value := trim(CDS_YPXZ.fieldbyname('fromFactoryName').AsString);
//  cds1.FieldByName('DLYDATE').Value := '';
    CDS_MAIN.Post;
    cxGrid3.Visible := False;
  end;
//  if trim(yingcang) = '±¨¼Û' then
//  begin
//    cxGrid3.Visible := True;
//  end;

//  InitHistoryPrice(trim(CDS_YPXZ.fieldbyname('CYNo').AsString));
//  InitPB(trim(CDS_YPXZ.fieldbyname('CYNo').AsString));
end;

procedure TfrmJYGLCK.TV7MouseLeave(Sender: TObject);
begin
//  if Trim(yingcang) = '±¨¼Û' then
//  begin
//    if Application.MessageBox('¹Ø±ÕÑ¡Ôñ¼ÄÑù´°¿Ú£¿', '', 32 + 4) <> IDYES then
//    begin
//      Exit;
//    end
//    else
//    begin
//      cxGrid3.Visible := False;
//    end;
//
//  end;

//  if trim(yingcang) = '±¨¼Û' then
//  begin
//    cxGrid3.Visible := False;
//  end;
end;

procedure TfrmJYGLCK.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    with ADOQueryTmp do
    begin
      close;
      sql.Clear;
      SQL.Add('exec P_Get_YPKC @Scan=' + quotedstr(trim(edit2.text)));
      SQL.Add(',@ScanType=''ÑùÆ·±àºÅ''');
      open;
    end;
    if ADOQueryTmp.IsEmpty then
    begin
      application.MessageBox('´Ë±àºÅ´íÎó£¡', 'ÌáʾÐÅÏ¢', MB_ICONERROR);
      Edit2.Text := '';
    end
    else
    begin

      try

        frmYPKC := TfrmYPKC.Create(Application);
        with frmYPKC do
        begin
          fcode := Edit2.Text;

          Edit2.Text := '';

          if ShowModal = 1 then
          begin
            Order_Main.DisableControls;
            Order_Main.First;
            while not Order_Main.Eof do
            begin
              if (Order_Main.fieldbyname('ssel').AsBoolean) then
              begin
                if trim(Order_Main.fieldbyname('mjid').AsString) <> '' then
                begin
                  CDS_MAIN.append;
                  CDS_MAIN.FieldByName('P_Code').Value := trim(Order_Main.fieldbyname('P_Code').AsString);
                  CDS_MAIN.FieldByName('P_CodeName').Value := trim(Order_Main.fieldbyname('P_CodeName').AsString);

                  CDS_MAIN.FieldByName('P_spec').Value := trim(Order_Main.fieldbyname('P_spec').AsString);
                  CDS_MAIN.FieldByName('P_cf').Value := trim(Order_Main.fieldbyname('P_cf').AsString);
                  CDS_MAIN.FieldByName('P_MF').Value := trim(Order_Main.fieldbyname('P_MF').AsString);
                  CDS_MAIN.FieldByName('P_KZ').Value := trim(Order_Main.fieldbyname('P_KZ').AsString);
                  CDS_MAIN.FieldByName('kuwei').Value := trim(Order_Main.fieldbyname('kuwei').AsString);
                  CDS_MAIN.FieldByName('qty').Value := trim(Order_Main.fieldbyname('kcqty').AsString);

                  CDS_MAIN.FieldByName('P_color').Value := trim(Order_Main.fieldbyname('P_color').AsString);
                  CDS_MAIN.FieldByName('mjid').Value := trim(Order_Main.fieldbyname('mjid').AsString);
                  CDS_MAIN.FieldByName('qtyunit').Value := trim(Order_Main.fieldbyname('qtyunit').AsString);
                  CDS_MAIN.FieldByName('fromFactoryName').Value := trim(Order_Main.fieldbyname('fromFactoryName').AsString);
                  CDS_MAIN.FieldByName('note').Value := trim(Order_Main.fieldbyname('note').AsString);
                  cds_main.FieldByName('BZTYPE').Value := '£¤';
                  CDS_MAIN.Post;
                end
                else
                begin
                  CDS_MAIN.append;
                  CDS_MAIN.FieldByName('P_Code').Value := trim(Order_Main.fieldbyname('P_Code').AsString);
                  CDS_MAIN.FieldByName('P_CodeName').Value := trim(Order_Main.fieldbyname('P_CodeName').AsString);

                  CDS_MAIN.FieldByName('P_spec').Value := trim(Order_Main.fieldbyname('P_spec').AsString);
                  CDS_MAIN.FieldByName('P_cf').Value := trim(Order_Main.fieldbyname('P_cf').AsString);
                  CDS_MAIN.FieldByName('P_MF').Value := trim(Order_Main.fieldbyname('P_MF').AsString);
                  CDS_MAIN.FieldByName('P_KZ').Value := trim(Order_Main.fieldbyname('P_KZ').AsString);
                  CDS_MAIN.FieldByName('kuwei').Value := trim(Order_Main.fieldbyname('kuwei').AsString);
                  CDS_MAIN.FieldByName('qty').Value := '0';

                  CDS_MAIN.FieldByName('P_color').Value := trim(Order_Main.fieldbyname('P_color').AsString);
                  CDS_MAIN.FieldByName('mjid').Value := '';
                  CDS_MAIN.FieldByName('qtyunit').Value := 'M';
                  CDS_MAIN.FieldByName('fromFactoryName').Value := trim(Order_Main.fieldbyname('fromFactoryName').AsString);
                  CDS_MAIN.FieldByName('note').Value := trim(Order_Main.fieldbyname('note').AsString);
                  cds_main.FieldByName('BZTYPE').Value := '£¤';
                  CDS_MAIN.Post;
                end;

              end;
              Order_Main.Next;
            end;
            Order_Main.EnableControls;

          end;

        end;
      finally
        frmYPKC.Free;
      end;
    end;
  end;

end;

procedure TfrmJYGLCK.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin

//  if CDS_Main.IsEmpty = True then
//  begin
//    Exit;
//  end
//  else
//  begin
//    with qry1 do
//    begin
//      close;
//      sql.Clear;
//      sql.Add('select  A.* ');
//      if trim(ToFactoryName.Text) <> '' then
//      begin
//        SQL.Add(',KKK=(case when custName=' + quotedstr(trim(ToFactoryName.Text)));
//        SQL.Add(' then 0 else 1 end)');
//      end;
//      SQL.Add('from KH_CP_BJ A');
//      sql.Add('where P_Code=' + quotedstr(trim(cds_main.fieldbyname('P_Code').AsString)));
//
//      sql.Add('and BJXJ= ''±¨¼Û'' ');
//      if (canshu1 <> '¹ÜÀí') then
//      begin
//        sql.Add('  and [dbo].[IsByKH](A.custname,' + quotedstr(trim(DNAME)) + ')>0 ');
//      end;
//      if trim(ToFactoryName.Text) <> '' then
//      begin
//        SQL.Add('order by KKK,CRTime desc');
//      end
//      else
//      begin
//        SQL.Add('order by CRTime desc');
//      end;
////      ShowMessage(SQL.Text);
//      open;
//    end;
//    SCreateCDS20(QRY1, CDS_BJ);
//    SInitCDSData20(QRY1, CDS_BJ);
//  end;
end;

procedure TfrmJYGLCK.TV8DblClick(Sender: TObject);
begin
  if CDS_LXR.IsEmpty = True then
    Exit;
  TOSHR.Text := Trim(CDS_LXR.fieldbyname('zsperson').AsString);
  TOPHONE.Text := Trim(CDS_LXR.fieldbyname('zsphone').AsString);

end;

procedure TfrmJYGLCK.TOZZKHBtnClick(Sender: TObject);
var
  F1: string;
begin
//  if (trim(CRType.Text) = '¼Ó¹¤³ö¿â') or (trim(CRType.Text) = 'Éú²ú³ö¿â') or (trim(CRType.Text) = 'ÍË»õ³ö¿â') then
//  begin
//    F1 := '¹©Ó¦ÉÌ';
//    try
//      frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
//      with frmZdyAttachGYS do
//      begin
//        canshu1 := Self.canshu1;
//        if (trim(self.CRType.Text) = 'Éú²ú³ö¿â') then
//        begin
//          canshu2 := 'Éú²ú³ö¿â';
//        end;
//        if ShowModal = 1 then
//        begin
//          TOZZKH.Text := Trim(CDS_HZ.fieldbyname('CoName').AsString);
//
//        end;
//      end;
//    finally
//      frmZdyAttachGYS.Free;
//    end;
//  end
//  else
//  begin
  F1 := '¿Í»§';

//  end;

end;

end.