sal_enter_saleplanofsaler_d.pas

一个MRPII系统源代码版本

             +'     rationsum_4='+Trim(edt_rationsum4.text)+','
             +'     Plansum_5='+Trim(edt_Plansum5.text)+','
             +'     rationsum_5='+Trim(edt_rationsum5.text)+','
             +'     Plansum_6='+Trim(edt_Plansum6.text)+','
             +'     rationsum_6='+Trim(edt_rationsum6.text)+','
             +'     Plansum_7='+Trim(edt_Plansum7.text)+','
             +'     rationsum_7='+Trim(edt_rationsum7.text)+','
             +'     Plansum_8='+Trim(edt_Plansum8.text)+','
             +'     rationsum_8='+Trim(edt_rationsum8.text)+','
             +'     Plansum_9='+Trim(edt_Plansum9.text)+','
             +'     rationsum_9='+Trim(edt_rationsum9.text)+','
             +'     Plansum_10='+Trim(edt_Plansum10.text)+','
             +'     rationsum_10='+Trim(edt_rationsum10.text)+','
             +'     Plansum_11='+Trim(edt_Plansum11.text)+','
             +'     rationsum_11='+Trim(edt_rationsum11.text)+','
             +'     Plansum_12='+Trim(edt_Plansum12.text)+','
             +'     rationsum_12='+Trim(edt_rationsum12.text)+','
             +'     user_edit='+quotedstr(userCode)+','
             +'     datetime_edit='+quotedstr(GetServerDateTime(dbconnect))
             +'where PlanYear='+AdoQry_Maintain.fieldbyname('PlanYear').asstring
             +'  and SaleEmployeeCode='+quotedstr(AdoQry_Maintain.fieldbyname('SaleEmployeeCode').asstring);
    Executesql(AdoQry_tmp,sqltext,1);
    dbconnect.CommitTrans;
    with AdoQry_Maintain do
      begin
   //     if Add then fieldbyname('id').asinteger:=id;
        fieldbyname('PlanYear').asstring:=medt_Year.Text;
        fieldbyname('SaleEmployeeCode').asstring:=edt_DeptCode.text;
        fieldbyname('EmployeeName').asstring:=edt_DeptName.Text;
        fieldbyname('Plansum_Year').asstring:=Trim(edt_Plansum_Year.text);
        fieldbyname('rationsum_Year').asstring:=Trim(edt_rationsum_Year.text);
        fieldbyname('Plansum_1').asstring:=Trim(edt_Plansum1.text);
        fieldbyname('rationsum_1').asstring:=Trim(edt_rationsum1.text);
        fieldbyname('Plansum_2').asstring:=Trim(edt_Plansum2.text);
        fieldbyname('rationsum_2').asstring:=Trim(edt_rationsum2.text);
        fieldbyname('Plansum_3').asstring:=Trim(edt_Plansum3.text);
        fieldbyname('rationsum_3').asstring:=Trim(edt_rationsum3.text);
        fieldbyname('Plansum_4').asstring:=Trim(edt_Plansum4.text);
        fieldbyname('rationsum_4').asstring:=Trim(edt_rationsum4.text);
        fieldbyname('Plansum_5').asstring:=Trim(edt_Plansum5.text);
        fieldbyname('rationsum_5').asstring:=Trim(edt_rationsum5.text);
        fieldbyname('Plansum_6').asstring:=Trim(edt_Plansum6.text);
        fieldbyname('rationsum_6').asstring:=Trim(edt_rationsum6.text);
        fieldbyname('Plansum_7').asstring:=Trim(edt_Plansum7.text);
        fieldbyname('rationsum_7').asstring:=Trim(edt_rationsum7.text);
        fieldbyname('Plansum_8').asstring:=Trim(edt_Plansum8.text);
        fieldbyname('rationsum_8').asstring:=Trim(edt_rationsum8.text);
        fieldbyname('Plansum_9').asstring:=Trim(edt_Plansum9.text);
        fieldbyname('rationsum_9').asstring:=Trim(edt_rationsum9.text);
        fieldbyname('Plansum_10').asstring:=Trim(edt_Plansum10.text);
        fieldbyname('rationsum_10').asstring:=Trim(edt_rationsum10.text);
        fieldbyname('Plansum_11').asstring:=Trim(edt_Plansum11.text);
        fieldbyname('rationsum_11').asstring:=Trim(edt_rationsum11.text);
        fieldbyname('Plansum_12').asstring:=Trim(edt_Plansum12.text);
        fieldbyname('rationsum_12').asstring:=Trim(edt_rationsum12.text);
        fieldbyname('user_Create').asstring:=edt_CreateEmployeeCode.text;
        fieldbyname('user_CreateName').asstring:=edt_CreateEmployeeName.text;
        fieldbyname('datetime_Create').asstring:=medt_Createdate.Text;
        fieldbyname('user_edit').asstring:=userCode;
        fieldbyname('user_editName').asstring:=edt_usereditName.Text;
        fieldbyname('datetime_edit').asstring:=formatdatetime('yyyy.mm.dd',strtodatetime(GetServerDateTime(dbconnect)));
        post;
      end;
  except
    if dbconnect.InTransaction then
      dbconnect.RollBackTrans;
    abort;
  end;
end;

procedure TFrm_Sal_Enter_SalePlanOfSaler_D.SetStatus(CurrentStatus: String;
  var EnableControls: String);
begin
  inherited;

end;

procedure TFrm_Sal_Enter_SalePlanOfSaler_D.edt_BtCodeKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
  if(Key=120)then
    CommonHint(Sender,AdoQry_Tmp,'BalanceTypeName','结算方式名称','BalanceTypeCode','结算方式代码','BalanceType');
end;

procedure TFrm_Sal_Enter_SalePlanOfSaler_D.edt_CreateEmployeeCodeExit(
  Sender: TObject);
begin
  inherited;
  if ActiveControl.Name='btn_Cancel' then
    exit;
  if Trim(edt_usereditCode.text)='' then exit;
  with AdoQry_Tmp do
  begin
    Close;
    SQL.clear;
    SQL.Add('Select EmployeeCode,EmployeeName From Employee Where EmployeeCode='''+TEdit(Sender).Text+'''');
    Open;
    edt_CreateEmployeeName.Text:=fieldbyname('EmployeeName').asstring;
  end;
end;

procedure TFrm_Sal_Enter_SalePlanOfSaler_D.edt_DeptCodeExit(Sender: TObject);
begin
  inherited;
  if ActiveControl.Name='btn_Cancel' then
    exit;
  if Trim(edt_DeptCode.Text)='' then 
    begin
      DispInfo('营销业务员代码不能为空！',1);
      TWinControl(Sender).SetFocus;
      Abort;
    end;  

  with AdoQry_Tmp do
  begin
    Close;
    SQL.clear;
    SQL.Add('Select EmployeeCode,EmployeeName From Employee Where EmployeeCode='''+TEdit(Sender).Text+'''');
    Open;
    if  eof then
    begin
      DispInfo('该营销员代码不存在！',1);
      TWinControl(Sender).SetFocus;
      Abort;
    end;
    edt_DeptName.Text:=fieldbyname('EmployeeName').asstring;
  end;

end;

procedure TFrm_Sal_Enter_SalePlanOfSaler_D.btn_okClick(Sender: TObject);
var sqltext:string;
    i:integer;
begin
  if Add then
  edt_DeptCode.OnExit(edt_DeptCode);
  if not Add then 
  begin
    edt_usereditCode.Text:=userCode;
    edt_usereditCode.OnExit(edt_usereditCode);
  end;
  if edt_Plansum_Year.Enabled then
   for i:=1 to  12 do
   begin
     TEdit(findComponent('edt_Plansum'+IntToStr(i))).text:=floattostr(strtofloat(edt_Plansum_Year.text)/12);
   end;
  
  if edt_rationsum_Year.Enabled then
   for i:=1 to  12 do
   begin
     TEdit(findComponent('edt_rationsum'+IntToStr(i))).text:=floattostr(strtofloat(edt_rationsum_Year.text)/12);
   end;

  if not edt_Plansum_Year.Enabled then
  edt_Plansum_Year.Text:=floattostr(strtofloat(Trim(edt_Plansum1.text))
                                   +strtofloat(Trim(edt_Plansum2.text))
                                   +strtofloat(Trim(edt_Plansum3.text))
                                   +strtofloat(Trim(edt_Plansum4.text))
                                   +strtofloat(Trim(edt_Plansum5.text))
                                   +strtofloat(Trim(edt_Plansum6.text))
                                   +strtofloat(Trim(edt_Plansum7.text))
                                   +strtofloat(Trim(edt_Plansum8.text))
                                   +strtofloat(Trim(edt_Plansum9.text))
                                   +strtofloat(Trim(edt_Plansum10.text))
                                   +strtofloat(Trim(edt_Plansum11.text))
                                   +strtofloat(Trim(edt_Plansum12.text))
                                   );
  if not edt_rationsum_Year.Enabled then
  edt_rationsum_Year.Text:=floattostr(strtofloat(Trim(edt_rationsum1.text))
                                   +strtofloat(Trim(edt_rationsum2.text))
                                   +strtofloat(Trim(edt_rationsum3.text))
                                   +strtofloat(Trim(edt_rationsum4.text))
                                   +strtofloat(Trim(edt_rationsum5.text))
                                   +strtofloat(Trim(edt_rationsum6.text))
                                   +strtofloat(Trim(edt_rationsum7.text))
                                   +strtofloat(Trim(edt_rationsum8.text))
                                   +strtofloat(Trim(edt_rationsum9.text))
                                   +strtofloat(Trim(edt_rationsum10.text))
                                   +strtofloat(Trim(edt_rationsum11.text))
                                   +strtofloat(Trim(edt_rationsum12.text))
                                   );
    if Add then
    begin
      Executesql(AdoQry_tmp,'select * from Sal_SalePlan_Dept where PlanYear='+Trim(medt_Year.text)+' and DeptCode='+quotedstr(edt_DeptCode.text),0);
      if AdoQry_tmp.RecordCount>0 then 
        begin
          DispInfo('已存在该营销业务员该年度的销售计划！',3);
          medt_Year.SetFocus;
          abort;
        end;
    end;
  inherited;

end;

procedure TFrm_Sal_Enter_SalePlanOfSaler_D.edt_Plansum_YearExit(
  Sender: TObject);
var i:integer;
begin
  inherited;
   floatcheck(sender);
  for i:=1 to  12 do
   begin
     if Trim(TEdit(sender).Text)<>'0' then
     TEdit(findComponent('edt_Plansum'+IntToStr(i))).enabled:=False
     else 
     TEdit(findComponent('edt_Plansum'+IntToStr(i))).enabled:=True;
   end;
end;

procedure TFrm_Sal_Enter_SalePlanOfSaler_D.edt_rationsum_YearExit(
  Sender: TObject);
var i:integer;
begin
  inherited;
  floatcheck(sender);
   for i:=1 to  12 do
   begin
     if Trim(TEdit(sender).Text)<>'0' then
     TEdit(findComponent('edt_rationsum'+IntToStr(i))).enabled:=False
     else 
     TEdit(findComponent('edt_rationsum'+IntToStr(i))).enabled:=True;
   end;
end;

procedure TFrm_Sal_Enter_SalePlanOfSaler_D.edt_Plansum1Exit(
  Sender: TObject);
var allzero:boolean;
    i:integer;
begin
  inherited;
  floatcheck(sender);
  allzero:=True;
  for i:=1 to 12 do
    if Trim(TEdit(findComponent('edt_Plansum'+IntToStr(i))).text)<>'0' then
     begin
       allzero:=False;
       break;
     end;    
  if allzero then
    edt_Plansum_Year.Enabled:=True
  else edt_Plansum_Year.Enabled:=False;
end;

procedure TFrm_Sal_Enter_SalePlanOfSaler_D.edt_rationsum1Exit(
  Sender: TObject);
var allzero:boolean;
    i:integer;
begin
  inherited;
  floatcheck(sender);
  allzero:=True;
  for i:=1 to 12 do
    if Trim(TEdit(findComponent('edt_rationsum'+IntToStr(i))).text)<>'0' then
     begin
       allzero:=False;
       break;
     end;    
  if allzero then
    edt_rationsum_Year.Enabled:=True
  else edt_rationsum_Year.Enabled:=False;
end;

end.