sredworkschedule.pas

详细的ERP设计资料

unit SREdWorkSchedule;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseVoucherEditA, Menus, ActnList, DB, ComCtrls, StdCtrls, Mask,
  DBCtrls, ExtCtrls, ToolWin,DateUtils, Grids, DBGrids, QLDBGrid, ADODB, GEdit,
  QLDBLkp, Buttons;

type
  TSREdWorkScheduleForm = class(TBaseVoucherEditAForm)
    Label2: TLabel;
    Label3: TLabel;
    ClientName: TADODataSet;
    EmployeeName: TADODataSet;
    Label5: TLabel;
    DSClientName: TDataSource;
    DSEmployeeName: TDataSource;
    LookupEmployee: TQLDBLookupComboBox;
    Label7: TLabel;
    TempAds: TADODataSet;
    adsMaster: TADODataSet;
    adsDetail: TADODataSet;
    adsMasterID: TAutoIncField;
    adsMasterCreateDate: TDateTimeField;
    adsMasterCreateUserID: TIntegerField;
    adsMasterRecordState: TStringField;
    adsMasterDate: TDateTimeField;
    adsMasterCode: TStringField;
    adsMasterClientID: TIntegerField;
    adsMasterBillMode: TStringField;
    adsMasterPeriodID: TIntegerField;
    adsMasterClearDate: TDateTimeField;
    adsMasterMemo: TStringField;
    adsMasterSundryFee: TBCDField;
    Label8: TLabel;
    adsMasterClientName: TStringField;
    DiscountMode: TAction;
    adsMasterEmployeeID: TIntegerField;
    adsMasterApportion: TStringField;
    adsMasterDeliver: TStringField;
    adsMasterOriginID: TIntegerField;
    adsMasterOriginTable: TStringField;
    adsMasterBillAffix: TBytesField;
    adsMasterBrief: TStringField;
    BriefComboBox: TDBComboBox;
    Label9: TLabel;
    DBEdit1: TDBEdit;
    DBEdit5: TDBEdit;
    adsMasterEmployee: TStringField;
    StockQuerry: TAction;
    adsMasterWarehouseID: TIntegerField;
    ClientQLDBLookup: TQLDBLookupComboBox;
    adsMasterModeDC: TIntegerField;
    adsMasterModeC: TIntegerField;
    adsDetailStartTime: TDateTimeField;
    adsDetailEndTime: TDateTimeField;
    adsDetailID: TAutoIncField;
    adsDetailMasterID: TIntegerField;
    adsDetailQuantity: TBCDField;
    adsDetailQuantityPcs: TBCDField;
    adsDetailPackUnitID: TIntegerField;
    adsDetailPriceBase: TBCDField;
    adsDetailAmount: TBCDField;
    adsDetailDiscount: TBCDField;
    adsDetailTaxAmount: TBCDField;
    adsDetailSundryFee: TBCDField;
    adsDetailGoalUnitID: TIntegerField;
    adsDetailGoalQuantity: TBCDField;
    Worktime1: TADODataSet;
    DsWorktime1: TDataSource;
    Worktime2: TADODataSet;
    DsWorktime2: TDataSource;
    adsDetailGoodsID: TIntegerField;
    adsDetailMemo: TStringField;
    N210: TMenuItem;
    N211: TMenuItem;
    N212: TMenuItem;
    N213: TMenuItem;
    N214: TMenuItem;
    N215: TMenuItem;
    N216: TMenuItem;
    N81: TMenuItem;
    N82: TMenuItem;
    BitBtn2: TBitBtn;
    ADOQuery: TADOQuery;
    N110: TMenuItem;
    Worktime0: TADODataSet;
    DsWorktime0: TDataSource;
    adsDetailWtMemo0: TStringField;
    adsDetailWtMemo1: TStringField;
    adsDetailWtMemo2: TStringField;
    SRWKSHClear: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CopyData;
    procedure N210Click(Sender: TObject);
    procedure N211Click(Sender: TObject);
    procedure N212Click(Sender: TObject);
    procedure N213Click(Sender: TObject);
    procedure N214Click(Sender: TObject);
    procedure N215Click(Sender: TObject);
    procedure N216Click(Sender: TObject);
    procedure N81Click(Sender: TObject);
    procedure N82Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure N110Click(Sender: TObject);
    procedure SRWKSHClearClick(Sender: TObject);
  private
    { Private declarations }
  public
    StrDays:integer;
    { Public declarations }
    procedure Open(VoucherID: Integer); override;
    procedure New; override;
  end;

var
  SREdWorkScheduleForm: TSREdWorkScheduleForm;

implementation

uses CommonDM, WSUtils, WSSecurity;
{$R *.dfm}
procedure TSREdWorkScheduleForm.New;
begin
  inherited;
  adsMaster.FieldByName('Date').AsDateTime:=date;
  adsMaster.FieldByName('Code').AsString:=GetMaxCode('Code','SRWorkScheduleMaster',number);
  adsMaster.FieldByName('CreateUserID').AsInteger :=Guarder.UserID;
//  adsMaster.FieldByName('BillMode').ReadOnly :=False;
  adsMaster.FieldByName('BillMode').AsString:='作息时间制定';
  adsMaster.FieldByName('ClearDate').AsDateTime:=date;
  adsMaster.FieldByName('ModeDC').AsInteger:=1;
  adsMaster.FieldByName('ModeC').AsInteger:=1;
  adsMaster.FieldByName('OriginTable').AsString:='SRWorkScheduleMaster';
  adsMaster.FieldByName('Deliver').AsString:='--';
  adsMaster.FieldByName('Apportion').AsString:='--';
end;

procedure TSREdWorkScheduleForm.Open(VoucherID: Integer);
begin
  inherited Open(VoucherID);
end;


procedure TSREdWorkScheduleForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  adsMaster.Close;
  adsDetail.Close;
  ClientName.Close;
  EmployeeName.Close;
  ADOQuery.Close;
  ADOQuery.SQL.Text :=' IF EXISTS(  SELECT * FROM tempdb..sysobjects '
        +' WHERE ID = OBJECT_ID('+Quotedstr('tempdb..#TempBS')
        +' )) DROP TABLE #TempBS ' ;
  ADOQuery.ExecSQL;
end;

procedure TSREdWorkScheduleForm.FormCreate(Sender: TObject);
begin
  inherited;
  VoucherTableName := 'SRWorkSchedule';
  ClientName.Open;
  EmployeeName.Open;
  adsMaster.Open;
  adsDetail.Open;
  TempAds.Close;
  TempAds.CommandText :=' select Distinct brief from SRWorkScheduleMaster';
  TempAds.Open;
  TempAds.First;
  while not TempAds.Eof do
  begin
    BriefComboBox.Items.Add(TempAds.FieldByName('brief').AsString);
    TempAds.Next;
  end;
  if  TempAds.IsEmpty then  BriefComboBox.Items.Add('作息时间制定');
  StrDays:=0;
  ADOQuery.Close;
  ADOQuery.SQL.Text :=' IF EXISTS(  SELECT * FROM tempdb..sysobjects '
        +' WHERE ID = OBJECT_ID('+Quotedstr('tempdb..#TempBS')
        +' )) DROP TABLE #TempBS ' ;
  ADOQuery.ExecSQL;
  ADOQuery.Close;
  ADOQuery.SQL.Text :=' create table #TempBS ('
      +'	[ID] [int] IDENTITY (1, 1) NOT NULL ,'
      +'	[WTID] [int] ,          '
      +'	[Starttxt] [varchar] (30),  '
      +'	[EndTxt] [varchar] (30) ,   '
      +'	[Memo] [varchar] (60)  )   ' ;
  ADOQuery.ExecSQL;
  ADOQuery.Close;
  ADOQuery.SQL.Text :=' Insert into  #TempBS ( WTID,Starttxt,EndTxt,Memo )'
    +' select a.ID, a.StartTime, a.EndTime,a.Memo '
    +' from SRWorkTimeDetail a '
    +' left  outer join SRWorkTimeMaster b on b.id=A.masterID '
    +' where b.recordstate<>'+Quotedstr('删除');
  ADOQuery.ExecSQL;
  ADOQuery.Close;
  ADOQuery.SQL.Text :=' Update  #TempBS set Memo='
    +' LTRIM (RTRIM (Memo))+ '+Quotedstr('[')
    +'+ SUBSTRING(LTRIM (RTRIM (Starttxt)),12,12) + '+Quotedstr('-')
    +'+ SUBSTRING(LTRIM (RTRIM (EndTxt)),12,12) + ' +Quotedstr(']');
  ADOQuery.ExecSQL;
//  GoodsName.Close;
//  GoodsName.CommandText := 'select WTID as ID,Memo from #TempBS  ' ;
//  GoodsName.Open;
  Worktime0.Close;
  Worktime0.CommandText := 'select WTID as ID,Memo from #TempBS  ' ;
  Worktime0.Open;
  Worktime1.Close;
  Worktime1.CommandText := 'select WTID as ID,Memo from #TempBS  ' ;
  Worktime1.Open;
  Worktime2.Close;
  Worktime2.CommandText := 'select WTID as ID,Memo from #TempBS  '  ;
  Worktime2.Open;
end;

procedure TSREdWorkScheduleForm.FormShow(Sender: TObject);
begin
  inherited;
  BriefComboBox.SetFocus;
end;


procedure TSREdWorkScheduleForm.N210Click(Sender: TObject);
begin
  inherited;
  StrDays :=2;
  CopyData;
end;

procedure TSREdWorkScheduleForm.CopyData;
var WT,WT1,WT2,I :integer;
begin
  if adsDetail.FieldByName('GoodsID').IsNull then WT :=0
    else WT:=adsDetail.FieldByName('GoodsID').AsInteger;
  if adsDetail.FieldByName('PackunitID').IsNull then WT1 :=0
    else WT1:=adsDetail.FieldByName('PackunitID').AsInteger;

  if adsDetail.FieldByName('GoalUnitID').IsNull then WT2 :=0
    else WT2:=adsDetail.FieldByName('GoalUnitID').AsInteger;
  if WT+WT1+WT2=0 then  exit;
  for I:=0 to  StrDays do
  begin
    if adsDetail.Eof then exit;
    adsDetail.edit;
    adsDetail.FieldByName('GoodsID').AsInteger :=WT;
    adsDetail.FieldByName('PackunitID').AsInteger :=WT1;
    adsDetail.FieldByName('GoalUnitID').AsInteger :=WT2;
    adsDetail.Next;
  end;
end;

procedure TSREdWorkScheduleForm.N211Click(Sender: TObject);
begin
  inherited;
  StrDays :=3;
  CopyData;

end;

procedure TSREdWorkScheduleForm.N212Click(Sender: TObject);
begin
  inherited;
  StrDays :=4;
  CopyData;

end;

procedure TSREdWorkScheduleForm.N213Click(Sender: TObject);
begin
  inherited;
  StrDays :=5;
  CopyData;

end;

procedure TSREdWorkScheduleForm.N214Click(Sender: TObject);
begin
  inherited;
  StrDays :=6;
  CopyData;

end;

procedure TSREdWorkScheduleForm.N215Click(Sender: TObject);
begin
  inherited;
  StrDays :=7;
  CopyData;

end;

procedure TSREdWorkScheduleForm.N216Click(Sender: TObject);
begin
  inherited;
  StrDays :=8;
  CopyData;

end;

procedure TSREdWorkScheduleForm.N81Click(Sender: TObject);
begin
  inherited;
  StrDays :=9;
  CopyData;
end;

procedure TSREdWorkScheduleForm.N82Click(Sender: TObject);
begin
  inherited;
  StrDays :=10;
  CopyData;
end;

procedure TSREdWorkScheduleForm.BitBtn2Click(Sender: TObject);
var year,month,day :word;
    SDate,Edate  :Tdatetime;
    I:integer;
begin
  if adsMaster.FieldByName('Cleardate').IsNull then  SDate :=date
    else SDate :=adsMaster.FieldByName('Cleardate').AsDateTime;
  EDate :=EndoftheMonth(SDate);
  DecodeDate(EDate,year, month, day);
  SDate :=EnCodeDate(year,month,1);
  adsDetail.First;
  for   I :=0 to day-1 do
  begin
    if adsDetail.Eof then adsDetail.append
      else adsDetail.edit;
//    adsDetail.FieldByName('StartTime').ReadOnly :=false;
    adsDetail.FieldByName('StartTime').AsDateTime := SDate+I;
    adsDetail.Next;
  end;
  while not adsDetail.Eof do
  begin
    adsDetail.Delete;
    adsDetail.Next;
  end;
//  adsDetail.FieldByName('StartTime').ReadOnly :=True;
  adsDetail.First;
  DBGrid.SetFocus;
end;

procedure TSREdWorkScheduleForm.FormActivate(Sender: TObject);
begin
  inherited;
//  BitBtn2Click(sender)

end;

procedure TSREdWorkScheduleForm.N110Click(Sender: TObject);
begin
  inherited;
  StrDays :=1;
  CopyData;
end;

procedure TSREdWorkScheduleForm.SRWKSHClearClick(Sender: TObject);
begin
  inherited;
    adsDetail.edit;
//    adsDetail.FieldByName('GoodsID').ReadOnly := False;
//    adsDetail.FieldByName('PackunitID').ReadOnly := False;
//    adsDetail.FieldByName('GoalUnitID').ReadOnly := False;
    adsDetail.FieldByName('GoodsID').Value :=Null;
    adsDetail.FieldByName('PackunitID').Value :=Null;
    adsDetail.FieldByName('GoalUnitID').Value :=Null;
    adsDetail.Post;
end;

end.