unit U_ZJInPut;

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, cxDropDownEdit,jpeg,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, cxPC,
  cxGridCustomPopupMenu, cxGridPopupMenu, FTComboBox;

type
  TfrmZJInPut = class(TForm)
    ToolBar1: TToolBar;
    TBClose: TToolButton;
    ScrollBox1: TScrollBox;
    ADOTemp: TADOQuery;
    ADOCmd: TADOQuery;
    ADOQuery1: TADOQuery;
    TBSave: TToolButton;
    Panel3: TPanel;
    Label1: TLabel;
    Label7: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label13: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    ZJFZPerson: TEdit;
    ZJKZ: TEdit;
    ZJMF: TEdit;
    OrderNo: TEdit;
    Label2: TLabel;
    ZJPerson: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    ZJStatus: TComboBox;
    ZJInfo: TRichEdit;
    ZJDate: TDateTimePicker;
    FactoryName: TBtnEditA;
    ZJName: TEdit;
    procedure TBCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TBSaveClick(Sender: TObject);
    procedure FactoryNameBtnClick(Sender: TObject);
  private
    procedure InitData();
    function  SaveData():Boolean;
    { Private declarations }
  public
    canshu1:String;
    PState,CopyInt:Integer;
    FMainId:String;
    { Public declarations }
  end;

var
  frmZJInPut: TfrmZJInPut;
implementation
uses
  U_DataLink,U_ZDYHelp,U_RTFun,U_ZDYHelpSel,U_GYSList;

{$R *.dfm}

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

procedure TfrmZJInPut.InitData();
begin
  with ADOQuery1 do
  begin
    Close;
    sql.Clear;
    sql.Add('select * from JYOrder_ZhiJian where ZJId='''+Trim(FMainId)+'''');
    Open;
  end;
  SCSHDataNew(ADOQuery1,Panel3,0);
  if PState=0 then
  begin
    ZJDate.Date:=SGetServerDate(ADOTemp);
    ZJPerson.Text:=Trim(DName);
  end;
end;


procedure TfrmZJInPut.FormShow(Sender: TObject);
begin
  InitData();
end;

function TfrmZJInPut.SaveData():Boolean;
var
  maxno:String;
begin
  Result:=False;
  try
    ADOCmd.Connection.BeginTrans;
    ///保存主表
    if Trim(FMainId)='' then
    begin
      if GetLSNo(ADOCmd,maxno,'ZJ','JYOrder_ZhiJian',3,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 JYOrder_ZhiJian where ZJId='''+Trim(FMainId)+'''');
      Open;
    end;
    with ADOCmd do
    begin
      if Trim(FMainId)='' then
      begin
        Append;
      end
      else begin
        Edit;
      end;
      FieldByName('ZJId').Value:=Trim(maxno);
      if Trim(FMainId)='' then
      begin
        FieldByName('Filler').Value:=Trim(DName);
      end else
      begin
        FieldByName('Editer').Value:=Trim(DName);
        FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp);
      end;
      RTSetsavedata(ADOCmd,'JYOrder_ZhiJian',Panel3,0);
      FieldByName('Valid').Value:='Y';
      FieldByName('Status').Value:='待送审';
      Post;
    end;
    {if Trim(KHName.Text)<>'' then
    begin
      with ADOTemp do
      begin
        Close;
        sql.Clear;
        sql.Add('select * from ZH_KH_Info where KHName='''+Trim(KHName.Text)+'''');
        SQL.Add(' and Type=''GYS'' ');
        Open;
      end;
      if ADOTemp.RecordCount>1 then
      begin
        ADOCmd.Connection.RollbackTrans;
        Application.MessageBox('供应商名称重复!','提示',0);
        Exit;
      end;
    end; }
    ADOCmd.Connection.CommitTrans;
    FMainId:=Trim(maxno);
    Result:=True;
  except
    Result:=False;
    ADOCmd.Connection.RollbackTrans;
    Application.MessageBox('保存失败！','提示',0);
  end;
end;

procedure TfrmZJInPut.TBSaveClick(Sender: TObject);
begin
  ToolBar1.SetFocus;
  if Trim(OrderNo.Text)='' then
  begin
    Application.MessageBox('订单号不能为空！','提示',0);
    Exit;
  end;
  if Trim(ZJName.Text)='' then
  begin
    Application.MessageBox('品名不能为空!','提示',0);
    Exit;
  end;
  if Trim(ZJMF.Text)='' then
  begin
    Application.MessageBox('门幅不能为空!','提示',0);
    Exit;
  end;
  if Trim(ZJKZ.Text)='' then
  begin
    Application.MessageBox('克重不能为空!','提示',0);
    Exit;
  end;
  if Trim(FactoryName.Text)='' then
  begin
    Application.MessageBox('供应商不能为空!','提示',0);
    Exit;
  end;
  if Trim(ZJFZPerson.Text)='' then
  begin
    Application.MessageBox('负责人不能为空!','提示',0);
    Exit;
  end;
  if Trim(ZJStatus.Text)='' then
  begin
    Application.MessageBox('质检结果不能为空!','提示',0);
    Exit;
  end;
  if Trim(ZJInfo.Text)='' then
  begin
    Application.MessageBox('详细不能为空!','提示',0);
    Exit;
  end;
  if Trim(ZJPerson.Text)='' then
  begin
    Application.MessageBox('记录人不能为空!','提示',0);
    Exit;
  end;
  if SaveData() then
  begin
    Application.MessageBox('保存成功！','提示',0);
  end;
end;

procedure TfrmZJInPut.FactoryNameBtnClick(Sender: TObject);
begin
  try
    frmGYSList:=TfrmGYSList.Create(Application);
    with frmGYSList do
    begin
      if ShowModal=1 then
      begin
        Self.FactoryName.Text:=Trim(frmGYSList.CDS_HZ.fieldbyname('ZdyName').AsString);
        Self.FactoryName.TxtCode:=Trim(frmGYSList.CDS_HZ.fieldbyname('ZdyCode').AsString);
      end;
    end;
  finally
    frmGYSList.Free;
  end;
end;

end.