unit U_ClothContractInPutPB;

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, cxDropDownEdit,
  cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;

type
  TfrmClothContractInPutPB = class(TForm)
    ToolBar1: TToolBar;
    TBSave: TToolButton;
    TBClose: TToolButton;
    ScrollBox1: TScrollBox;
    Label1: TLabel;
    ConNo: TEdit;
    Label4: TLabel;
    DeliveryDate: TDateTimePicker;
    Label5: TLabel;
    ToolBar2: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    cxGrid1: TcxGrid;
    Tv1: TcxGridDBTableView;
    v1PRTSpec: TcxGridDBColumn;
    cxGrid1Level1: TcxGridLevel;
    v1ClothQty: TcxGridDBColumn;
    v1Price: TcxGridDBColumn;
    v1ClothUnit: TcxGridDBColumn;
    ADOTemp: TADOQuery;
    ADOCmd: TADOQuery;
    DataSource1: TDataSource;
    Order_Sub: TClientDataSet;
    DataSource2: TDataSource;
    ADOZDY: TADOQuery;
    CDS_ZDY: TClientDataSet;
    FactoryNoName: TcxButtonEdit;
    v1Column1: TcxGridDBColumn;
    v1Column2: TcxGridDBColumn;
    v1Column4: TcxGridDBColumn;
    Label2: TLabel;
    QDTime: TDateTimePicker;
    Label3: TLabel;
    CompanyName: TcxButtonEdit;
    Label6: TLabel;
    QDPalce: TEdit;
    Label8: TLabel;
    JHPlace: TcxButtonEdit;
    Label7: TLabel;
    ConTk2: TcxButtonEdit;
    Label10: TLabel;
    Label11: TLabel;
    ConTK4: TcxButtonEdit;
    Label12: TLabel;
    Label13: TLabel;
    v1Column3: TcxGridDBColumn;
    v1Column5: TcxGridDBColumn;
    v1Column6: TcxGridDBColumn;
    Label15: TLabel;
    Label9: TLabel;
    v1Column7: TcxGridDBColumn;
    Label14: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    LXPerson: TEdit;
    bankNo: TEdit;
    LXTel: TEdit;
    bankName: TEdit;
    LXaddress: TEdit;
    ConTK3: TEdit;
    ADOQuery1: TADOQuery;
    Label20: TLabel;
    OrderNo: TBtnEditC;
    v1Column8: TcxGridDBColumn;
    v1Column9: TcxGridDBColumn;
    v1Column10: TcxGridDBColumn;
    v1Column11: TcxGridDBColumn;
    v1Column12: TcxGridDBColumn;
    Panel4: TPanel;
    Label21: TLabel;
    CYNO: TEdit;
    v1Column13: TcxGridDBColumn;
    ToolButton3: TToolButton;
    v1Column14: TcxGridDBColumn;
    ordertype: TComboBox;
    Label22: TLabel;
    ConTK1: TMemo;
    ConTK5: TcxButtonEdit;
    v1Column15: TcxGridDBColumn;
    v1Column16: TcxGridDBColumn;
    Label23: TLabel;
    Deposit: TEdit;
    DepositUnit: TComboBox;
    v1Column17: TcxGridDBColumn;
    v1Column18: TcxGridDBColumn;
    ConTK6: TMemo;
    v1Column19: TcxGridDBColumn;
    v1Column20: TcxGridDBColumn;
    v1Column21: TcxGridDBColumn;
    ConTk7: TMemo;
    Label24: TLabel;
    LXWeiXin: TEdit;
    Tv1Column1: TcxGridDBColumn;
    Label25: TLabel;
    KFFlag: TComboBox;
    procedure TBCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TBSaveClick(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure FactoryNoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure v1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure v1PRTMFPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure v1OrderQtyPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure v1ClothQtyPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure v1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure CompanyNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure JHPlacePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure ConTK3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure ConTK4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure ConTk2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure ConNoKeyPress(Sender: TObject; var Key: Char);
    procedure v1Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure FormCreate(Sender: TObject);
    procedure v1ClothUnitPropertiesEditValueChanged(Sender: TObject);
    procedure OrderNoBtnClick(Sender: TObject);
    procedure OrderNoBtnDnClick(Sender: TObject);
    procedure v1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure CYNOKeyPress(Sender: TObject; var Key: Char);
    procedure ToolButton3Click(Sender: TObject);
    procedure ConTK1DblClick(Sender: TObject);
    procedure ConTK5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure DepositKeyPress(Sender: TObject; var Key: Char);
    procedure ConTK6DblClick(Sender: TObject);
    procedure v1Column19PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure v1Column21PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure ConTk7DblClick(Sender: TObject);
  private
    FXS: Integer;
    procedure InitData();
    procedure ZDYHelp(FButn: TcxButtonEdit; LType: string);
    function SaveData(): Boolean;
    { Private declarations }
  public
    PState, PCopyInt: Integer;
    FMainId, FConNo: string;
    { Public declarations }
  end;

var
  frmClothContractInPutPB: TfrmClothContractInPutPB;

implementation

uses
  U_DataLink, U_ZDYHelp, U_Fun, U_ProductOrder_CX, U_ZdyAttachGYS,
  U_ProductOrderListSel, U_CPManageSel, U_ZDYHelpSel;

{$R *.dfm}

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

procedure TfrmClothContractInPutPB.InitData();
begin
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    sql.Add('select A.*');
    sql.Add('from Contract_sub A');
    sql.Add('where A.MainID=''' + FMainId + '''');
    Open;
  end;
  SCreateCDS20(ADOQuery1, Order_Sub);
  SInitCDSData20(ADOQuery1, Order_Sub);
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    sql.Add('select A.*,OrderNO=(select Top 1 OrderNo from JYOrder_main X where X.MainID=A.fromMainID)');
    sql.Add('from Contract_Main A');
    sql.Add('where A.MainID=''' + FMainId + '''');
    Open;
  end;
  SCSHData(ADOQuery1, ScrollBox1, 0);
  if not ADOQuery1.IsEmpty then
  begin
    orderNo.Text := ADOQuery1.fieldbyname('OrderNo').AsString;
    orderNo.Hint := ADOQuery1.fieldbyname('fromMainID').AsString;
    Deposit.text := ADOQuery1.fieldbyname('Deposit').AsString;
    if ADOQuery1.FieldByName('ordertype').Value = '坯布采购' then
    begin
      ordertype.ItemIndex := 0;
    end;
    if ADOQuery1.FieldByName('ordertype').Value = '成品采购' then
    begin
      ordertype.ItemIndex := 1;
    end;
    if ADOQuery1.FieldByName('ordertype').Value = '纱线采购' then
    begin
      ordertype.ItemIndex := 2;
    end;
  end;
end;

procedure TfrmClothContractInPutPB.ZDYHelp(FButn: TcxButtonEdit; LType: string);
begin

end;

procedure TfrmClothContractInPutPB.FormShow(Sender: TObject);
begin

  InitData();
  if PCopyInt = 1 then
  begin
    FMainId := '';
    FConNo := '';
    ConNo.Text := '';
    with Order_Sub do
    begin
      First;
      while not Eof do
      begin
        Edit;
        FieldByName('SubId').Value := '';
        Post;
        Next;
      end;
    end;
  end;
end;

function TfrmClothContractInPutPB.SaveData(): Boolean;
var
  maxno, maxSubNo: string;
begin
  try
    ADOCmd.Connection.BeginTrans;
    ///保存主表\
    if Trim(FMainId) = '' then
    begin
      if GetLSNo(ADOCmd, maxno, 'PM', 'Contract_Main', 2, 1) = False then
      begin
        ADOCmd.Connection.RollbackTrans;
        Application.MessageBox('生成流水号异常！', '提示', 0);
        exit;
      end;
    end
    else
    begin
      maxno := Trim(FMainId);
    end;

    with ADOCmd do
    begin
      Close;
      sql.Clear;
      SQL.Add('select * from Contract_Main where MainId=''' + Trim(maxno) + '''');
      Open;
    end;
    with ADOCmd do
    begin
      if ADOCmd.IsEmpty then
        Append
      else
        edit;

      FieldByName('MainId').Value := Trim(maxno);
      FieldByName('HTType').Value := '采购合同';
      FieldByName('ordertype').Value := Trim(ordertype.Text);
      FieldByName('Deposit').Value := Trim(Deposit.Text);
      FieldByName('DepositUnit').Value := Trim(DepositUnit.Text);
      SSetsaveSql(ADOCmd, 'Contract_Main', ScrollBox1, 0);
      if Trim(FMainId) = '' then
      begin
        FieldByName('Filler').Value := Trim(DName);
      end
      else
      begin
        FieldByName('Editer').Value := Trim(DName);
        FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
      end;
      FieldByName('fromMainID').Value := Trim(OrderNo.Hint);
      Post;
    end;

    //FMainId:=Trim(maxno);
    ///保存子表
    with Order_Sub do
    begin
      First;
      while not Eof do
      begin
        if Trim(Order_Sub.fieldbyname('SubId').AsString) = '' then
        begin
          if GetLSNo(ADOCmd, maxSubNo, 'PS', 'Contract_Sub', 3, 1) = False then
          begin
            ADOCmd.Connection.RollbackTrans;
            Application.MessageBox('取子流水号失败！', '提示', 0);
            Exit;
          end;
        end
        else
        begin
          maxSubNo := Trim(Order_Sub.fieldbyname('SubId').AsString);
        end;
        with ADOCmd do
        begin
          Close;
          SQL.Clear;
          sql.Add('select * from Contract_Sub where MainId=''' + Trim(maxno) + '''');
          sql.Add(' and SubId=''' + Trim(maxSubNo) + '''');
          Open;
        end;
        with ADOCmd do
        begin
          if ADOCmd.IsEmpty then
            Append
          else
            edit;
          SSetSaveDataCDSNew(ADOCmd, Tv1, Order_Sub, 'Contract_Sub', 0);
          FieldByName('MainId').Value := Trim(maxno);
          FieldByName('SubId').Value := Trim(maxSubNo);
          FieldByName('jymainid').Value := Order_Sub.fieldbyname('mainid').AsString;
          FieldByName('Qty').Value := Order_Sub.fieldbyname('Qty').AsFloat;
          FieldByName('RollNum').Value := Order_Sub.fieldbyname('RollNum').AsFloat;
          FieldByName('Price').Value := Order_Sub.fieldbyname('Price').AsFloat;
          FieldByName('money').Value := Order_Sub.fieldbyname('money').AsFloat;
          if Order_Sub.fieldbyname('PriceUnit').AsString = '' then
          begin
            FieldByName('PriceUnit').Value := 'RMB';
          end
          else
            FieldByName('PriceUnit').Value := Order_Sub.fieldbyname('PriceUnit').AsString;
          FieldByName('HYPrice').Value := Order_Sub.fieldbyname('HYPrice').AsFloat;
          if Order_Sub.fieldbyname('HYPriceUnit').AsString = '' then
          begin
            FieldByName('HYPriceUnit').Value := 'RMB';
          end
          else
            FieldByName('HYPriceUnit').Value := Order_Sub.fieldbyname('HYPriceUnit').AsString;

       //   FieldByName('C_status').Value:='0';
          Post;
        end;
        Order_Sub.Edit;
        Order_Sub.FieldByName('SubId').Value := Trim(maxSubNo);
        Next;
      end;
    end;
    ADOCmd.Connection.CommitTrans;
    Result := True;
  except
    Result := False;
    ADOCmd.Connection.RollbackTrans;
    Application.MessageBox('保存失败！', '提示', 0);
  end;
end;

procedure TfrmClothContractInPutPB.TBSaveClick(Sender: TObject);
begin
  DeliveryDate.SetFocus;
  if Trim(ordertype.Text) = '' then
  begin
    Application.MessageBox('合同类型不能为空！', '提示', 0);
    Exit;
  end;

  DeliveryDate.SetFocus;
  if Trim(ConNo.Text) = '' then
  begin
    Application.MessageBox('合同编号不能为空！', '提示', 0);
    Exit;
  end;

  if Trim(FactoryNoName.Text) = '' then
  begin
    Application.MessageBox('供方不能为空！', '提示', 0);
    Exit;
  end;

  if Trim(KFFlag.Text) = '' then
  begin
    Application.MessageBox('是否开幅不能为空！', '提示', 0);
    Exit;
  end;
  if Order_Sub.IsEmpty then
  begin
    Application.MessageBox('明细不能为空！', '提示', 0);
    exit;
  end;
  if Order_Sub.Locate('Qty', null, []) then
  begin
    Application.MessageBox('数量不能为空!', '提示', 0);
    Exit;
  end;
  if Order_Sub.Locate('QtyUnit', null, []) then
  begin
    Application.MessageBox('数量单位不能为空!', '提示', 0);
    Exit;
  end;

  if SaveData() then
  begin
    Application.MessageBox('保存成功！', '提示', 0);
    ModalResult := 1;
  end;
end;

procedure TfrmClothContractInPutPB.ToolButton1Click(Sender: TObject);
begin
  with Order_Sub do
  begin
    Append;
    Post;
  end;
end;

procedure TfrmClothContractInPutPB.ToolButton2Click(Sender: TObject);
begin
  if Order_Sub.IsEmpty then
    Exit;
  if Trim(Order_Sub.fieldbyname('SubId').AsString) <> '' then
  begin
    if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
      Exit;
    with ADOCmd do
    begin
      Close;
      sql.Clear;
      sql.Add('delete Contract_Sub where SubId=''' + Trim(Order_Sub.fieldbyname('SubId').AsString) + '''');
      ExecSQL;
    end;
  end;
  Order_Sub.Delete;
end;

procedure TfrmClothContractInPutPB.FactoryNoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
    with frmZdyAttachGYS do
    begin
      if ShowModal = 1 then
      begin
        FactoryNoName.text := Trim(CDS_HZ.fieldbyname('ZdyName').AsString);
        LXPerson.Text := Trim(CDS_HZ.fieldbyname('Linkman').AsString);
        LXTel.Text := Trim(CDS_HZ.fieldbyname('TelNo').AsString);
        LXaddress.Text := Trim(CDS_HZ.fieldbyname('Address').AsString);
        bankno.Text := Trim(CDS_HZ.fieldbyname('bankno').AsString);
        bankname.Text := Trim(CDS_HZ.fieldbyname('bankname').AsString);
        LXTEL.Text := Trim(CDS_HZ.fieldbyname('MobileNo').AsString);
      end;
    end;
  finally
    frmZdyAttachGYS.Free;
  end;
end;

procedure TfrmClothContractInPutPB.v1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'Cloth';
      flagname := '坯布名称';
      if ShowModal = 1 then
      begin
        Self.Order_Sub.Edit;
        Self.Order_Sub.FieldByName('C_CodeName').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
        Self.Order_Sub.FieldByName('C_Code').Value := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmClothContractInPutPB.v1PRTMFPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'KZ';
      flagname := '克重单位';
      if ShowModal = 1 then
      begin
        Self.Order_Sub.Edit;
        Self.Order_Sub.FieldByName('KZUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmClothContractInPutPB.v1OrderQtyPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'MF';
      flagname := '门幅单位';
      if ShowModal = 1 then
      begin
        Self.Order_Sub.Edit;
        Self.Order_Sub.FieldByName('MFUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmClothContractInPutPB.v1ClothQtyPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'PriceUnit';
      flagname := '计价单位';
      if ShowModal = 1 then
      begin
        Self.Order_Sub.Edit;
        Self.Order_Sub.FieldByName('PriceUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmClothContractInPutPB.v1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'CGUnit';
      flagname := '单位';
      if ShowModal = 1 then
      begin
        Self.Order_Sub.Edit;
        Self.Order_Sub.FieldByName('QtyUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmClothContractInPutPB.CompanyNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'OrdDefStr2';
      flagname := '需方';
      if ShowModal = 1 then
      begin
        FXS := 99;
        CompanyName.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmClothContractInPutPB.JHPlacePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'JHPlace';
      flagname := '交货地点';
      if ShowModal = 1 then
      begin
        JHPlace.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmClothContractInPutPB.ConTK3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'ConTK3';
      flagname := '包装要求';
      if ShowModal = 1 then
      begin
        ConTK3.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmClothContractInPutPB.ConTK4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'ConTK4';
      flagname := '结算方式';
      if ShowModal = 1 then
      begin
        ConTK4.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmClothContractInPutPB.ConTk2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'ConTK2';
      flagname := '运输方式';
      if ShowModal = 1 then
      begin
        ConTK2.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmClothContractInPutPB.ConNoKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    if Trim(ConNo.Text) <> '' then
    begin
      with ADOTemp do
      begin
        Close;
        sql.Clear;
        sql.Add('select Top 1* from JYOrder_Main where OrderNo=''' + Trim(ConNo.Text) + '''');
        Open;
      end;
      FactoryNoName.Text := Trim(ADOTemp.fieldbyname('PBFactory').AsString);
    end;
  end;
end;

procedure TfrmClothContractInPutPB.v1Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'Factory';
      flagname := '供方';
      MainType := 'PBFactory';
      if ShowModal = 1 then
      begin
        with Order_Sub do
        begin
          Edit;
          FieldByName('Sdefstr2').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
        end;
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmClothContractInPutPB.FormCreate(Sender: TObject);
begin
  QDTime.DateTime := SGetServerDate(ADOTemp);
  DeliveryDate.DateTime := SGetServerDate(ADOTemp);
end;

procedure TfrmClothContractInPutPB.v1ClothUnitPropertiesEditValueChanged(Sender: TObject);
var
  fieldname: string;
begin
  fieldname := Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
  with Order_Sub do
  begin
    Edit;
    FieldByName(Trim(fieldname)).Value := TcxTextEdit(Sender).EditingText;
    FieldByName('Money').Value := strtofloat(format('%0.2f', [FieldByName('Qty').AsFloat * FieldByName('Price').AsFloat]));
    Post;
  end;
  Tv1.Controller.EditingController.ShowEdit();
end;

procedure TfrmClothContractInPutPB.OrderNoBtnClick(Sender: TObject);
var
  Fsubid: string;
begin
  try
    frmProductOrderListSel := TfrmProductOrderListSel.Create(Application);
    with frmProductOrderListSel do
    begin
      FFInt := 1;
      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
            orderNO.Text := frmProductOrderListSel.Order_Main.fieldbyname('orderNO').AsString;
            orderNO.Hint := frmProductOrderListSel.Order_Main.fieldbyname('Mainid').AsString;
            Fsubid := frmProductOrderListSel.Order_Main.fieldbyname('subid').AsString;
            with ADOTemp do
            begin
              close;
              sql.Clear;
              sql.Add('select A.*,B.PRTColor,B.PrtOrderQty,B.orderUnit,B.subid');
              sql.Add('from JYOrder_Main A ');
              sql.Add('inner join JYOrder_sub B on B.MainID=A.MainID ');
              sql.Add('where B.subid=''' + trim(Fsubid) + ''' ');
              open;
              contk6.Text := '对色光源:' + fieldbyname('MPRTDuiSeGY').AsString + ',扭力和纬斜:' + fieldbyname('MPRTNiuDu').AsString + ',抗起毛起球:' + fieldbyname('MPRTKQiQiu').AsString + ',PH值:' + fieldbyname('MPRTPH').AsString + ',经向缩率:' + fieldbyname('JXSL').AsString + ',纬向缩率:' + fieldbyname('WXSL').AsString + ',色牢度:' + fieldbyname('MPRTColorLaoDu1').AsString + ',水洗牢度' + fieldbyname('MPRTColorLaoDu4').AsString;
              if not isempty then
              begin
                while not eof do
                begin
                  Order_Sub.Append;
                  Order_Sub.FieldByName('jyorderno').Value := fieldbyname('orderno').AsString;
                  Order_Sub.FieldByName('jymainid').Value := fieldbyname('mainid').AsString;
                  Order_Sub.FieldByName('jysubid').Value := fieldbyname('subid').AsString;
                  Order_Sub.FieldByName('C_Code').Value := fieldbyname('MprtCode').AsString;
                  Order_Sub.FieldByName('C_CodeName').Value := fieldbyname('MprtCodeName').AsString;
                  Order_Sub.FieldByName('C_spec').Value := fieldbyname('Mprtspec').AsString;
                  Order_Sub.FieldByName('C_color').Value := fieldbyname('prtColor').AsString;
                  Order_Sub.FieldByName('Qty').Value := fieldbyname('PrtOrderQty').AsFloat;
                  Order_Sub.FieldByName('QtyUnit').Value := fieldbyname('OrderUnit').AsString;
                  Order_Sub.FieldByName('MF').Value := fieldbyname('orddefstr8').AsString;
                  Order_Sub.FieldByName('YXMF').Value := fieldbyname('MPRTMF').AsString;
                  Order_Sub.FieldByName('KZ').Value := fieldbyname('MPRTKZ').AsString;
                  Order_Sub.FieldByName('CF').Value := fieldbyname('MPRTCF').AsString;
                  Order_Sub.Post;
                  next;
                end;
              end;
            end;
          end;
          orderNO.Text := '';
          orderNO.Hint := '';
          Order_Main.Next;
        end;
        Order_Main.EnableControls;
      end;
    end;
  finally
    frmProductOrderListSel.Free;
  end;
//  orderNO.Text := frmProductOrderListSel.Order_Main.fieldbyname('orderNO').AsString;
//  orderNO.Hint := frmProductOrderListSel.Order_Main.fieldbyname('Mainid').AsString;
//  with ADOTemp do
//  begin
//    close;
//    sql.Clear;
//    sql.Add('select A.*,B.PRTColor,B.PrtOrderQty,B.orderUnit');
//    sql.Add('from JYOrder_Main A ');
//    sql.Add('inner join JYOrder_sub B on B.MainID=A.MainID ');
//    sql.Add('where A.orderNo=''' + trim(orderNO.Text) + ''' ');
//    open;
//    if not isempty then
//    begin
//      while not eof do
//      begin
//        Order_Sub.Append;
//        Order_Sub.FieldByName('C_Code').Value := fieldbyname('MprtCode').AsString;
//        Order_Sub.FieldByName('C_CodeName').Value := fieldbyname('MprtCodeName').AsString;
//        Order_Sub.FieldByName('C_spec').Value := fieldbyname('Mprtspec').AsString;
//        Order_Sub.FieldByName('C_color').Value := fieldbyname('prtColor').AsString;
//        Order_Sub.FieldByName('Qty').Value := fieldbyname('PrtOrderQty').AsFloat;
//        Order_Sub.FieldByName('QtyUnit').Value := fieldbyname('OrderUnit').AsString;
//        Order_Sub.FieldByName('MF').Value := fieldbyname('orddefstr8').AsString;
//        Order_Sub.FieldByName('YXMF').Value := fieldbyname('MPRTMF').AsString;
//        Order_Sub.FieldByName('KZ').Value := fieldbyname('MPRTKZ').AsString;
//        Order_Sub.FieldByName('CF').Value := fieldbyname('MPRTCF').AsString;
//        Order_Sub.Post;
//        next;
//      end;
//    end;
//  end;
end;

procedure TfrmClothContractInPutPB.OrderNoBtnDnClick(Sender: TObject);
begin
  OrderNo.Hint := '';
  OrderNo.Text := '';
end;

procedure TfrmClothContractInPutPB.v1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  frmCPManageSel := TfrmCPManageSel.Create(self);
  with frmCPManageSel do
  begin
    if showmodal = 1 then
    begin
      Order_Sub.Edit;
      Order_Sub.fieldbyname('C_Code').Value := CDS_Main.fieldbyname('CYNo').asstring;
      Order_Sub.fieldbyname('C_CodeName').Value := CDS_Main.fieldbyname('CYName').asstring;
      Order_Sub.fieldbyname('C_spec').Value := CDS_Main.fieldbyname('CYSpec').asstring;
      Order_Sub.fieldbyname('MF').Value := CDS_Main.fieldbyname('CYMF').asstring;
      Order_Sub.fieldbyname('KZ').Value := CDS_Main.fieldbyname('CYKZ').asstring;
      Order_Sub.fieldbyname('Sdefstr1').Value := CDS_Main.fieldbyname('defstr4').asstring;
      Order_Sub.fieldbyname('Sdefstr2').Value := CDS_Main.fieldbyname('defstr10').asstring;
      Order_Sub.fieldbyname('Sdefstr3').Value := CDS_Main.fieldbyname('defstr11').asstring;
      Order_Sub.fieldbyname('Sdefstr4').Value := CDS_Main.fieldbyname('defnote4').asstring;
      Order_Sub.Post;
    end;
    free;
  end;
  tv1.Controller.EditingController.ShowEdit();
end;

procedure TfrmClothContractInPutPB.CYNOKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    with ADOTemp do
    begin
      close;
      sql.Clear;
      sql.Add('select * from CP_YDang where CYNO=''' + trim(CYNO.Text) + ''' ');
      open;
    end;
    if not ADOTemp.IsEmpty then
    begin
      if (not Order_Sub.Locate('C_Code', trim(ADOTemp.fieldbyname('CYNo').AsString), [])) then
      begin
        Order_Sub.Append;
        Order_Sub.fieldbyname('C_Code').Value := ADOTemp.fieldbyname('CYNo').asstring;
        Order_Sub.fieldbyname('C_CodeName').Value := ADOTemp.fieldbyname('CYName').asstring;
        Order_Sub.fieldbyname('C_spec').Value := ADOTemp.fieldbyname('CYSpec').asstring;
        Order_Sub.fieldbyname('MF').Value := ADOTemp.fieldbyname('CYMF').asstring;
        Order_Sub.fieldbyname('KZ').Value := ADOTemp.fieldbyname('CYKZ').asstring;
        Order_Sub.fieldbyname('Sdefstr1').Value := ADOTemp.fieldbyname('defstr4').asstring;
        Order_Sub.fieldbyname('Sdefstr2').Value := ADOTemp.fieldbyname('defstr10').asstring;
        Order_Sub.fieldbyname('Sdefstr3').Value := ADOTemp.fieldbyname('defstr11').asstring;
        Order_Sub.fieldbyname('Sdefstr4').Value := ADOTemp.fieldbyname('defnote4').asstring;

        Order_Sub.Post;
        CYNO.Text := '';
      end;
    end
    else
    begin
      application.MessageBox('此编号错误！', '提示信息', MB_ICONERROR);
      CYNO.Text := '';
    end;
  end;
end;

procedure TfrmClothContractInPutPB.ToolButton3Click(Sender: TObject);
begin
  if Order_Sub.IsEmpty then
    Exit;
  OneKeyPost(Tv1, Order_Sub);

  with Order_Sub do
  begin
    First;
    while not Eof do
    begin
      Edit;
      FieldByName('Money').Value := strtofloat(format('%0.2f', [FieldByName('Qty').AsFloat * FieldByName('Price').AsFloat]));
      Post;
      Next;
    end;
  end;
  Tv1.Controller.EditingController.ShowEdit();
end;

procedure TfrmClothContractInPutPB.ConTK1DblClick(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
        ConTK1.Lines.Clear;
        with ClientDataSet1 do
        begin
          First;
          while not Eof do
          begin
            if FieldByName('SSel').AsBoolean = True then
            begin
//              i:=i+1;
//               ConTK1.Lines.Add(inttostr(i)+'.'+FieldByName('ZDYName').AsString)
              ConTK1.Lines.Add(FieldByName('ZDYName').AsString)
            end;
            Next;
          end;
        end;
      end;
    end;
  finally
    frmZDYHelpSel.Free;
  end;
end;

procedure TfrmClothContractInPutPB.ConTK5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'ConTK5';
      flagname := '单价说明';
      if ShowModal = 1 then
      begin
        ConTK5.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmClothContractInPutPB.DepositKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#8, #13, #127, '.', '-', '0'..'9']) then
    Key := #0;
end;

procedure TfrmClothContractInPutPB.ConTK6DblClick(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
        ConTK1.Lines.Clear;
        with ClientDataSet1 do
        begin
          First;
          while not Eof do
          begin
            if FieldByName('SSel').AsBoolean = True then
            begin
//              i:=i+1;
//               ConTK1.Lines.Add(inttostr(i)+'.'+FieldByName('ZDYName').AsString)
              ConTK6.Lines.Add(FieldByName('ZDYName').AsString)
            end;
            Next;
          end;
        end;
      end;
    end;
  finally
    frmZDYHelpSel.Free;
  end;
end;

procedure TfrmClothContractInPutPB.v1Column19PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'PriceUnit';
      flagname := '价格单位';
//      if Trim(DParameters1)<>'高权限' then
//      begin
//        TBAdd.Visible:=False;
//        TBEdit.Visible:=False;
//        TBDel.Visible:=False;
//      end;
      if ShowModal = 1 then
      begin
        Self.Order_Sub.Edit;
        Self.Order_Sub.FieldByName('PriceUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmClothContractInPutPB.v1Column21PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'PriceUnit';
      flagname := '价格单位';
//      if Trim(DParameters1)<>'高权限' then
//      begin
//        TBAdd.Visible:=False;
//        TBEdit.Visible:=False;
//        TBDel.Visible:=False;
//      end;
      if ShowModal = 1 then
      begin
        Self.Order_Sub.Edit;
        Self.Order_Sub.FieldByName('HYPriceUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmClothContractInPutPB.ConTk7DblClick(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
        ConTK1.Lines.Clear;
        with ClientDataSet1 do
        begin
          First;
          while not Eof do
          begin
            if FieldByName('SSel').AsBoolean = True then
            begin
//              i:=i+1;
//               ConTK1.Lines.Add(inttostr(i)+'.'+FieldByName('ZDYName').AsString)
              ConTK7.Lines.Add(FieldByName('ZDYName').AsString)
            end;
            Next;
          end;
        end;
      end;
    end;
  finally
    frmZDYHelpSel.Free;
  end;
end;

end.