inv600_03.pas.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

    AQuery.first;
    while not AQuery.eof do
    begin
      //I150_037   1:天   2:月  ADate  ACircle  AUnitNo
      if AQuery.FieldByName('I150_036').value=NULL then
      begin
        AQuery.delete;
      end;
      if AQuery.FieldByName('I150_037').value=NULL then
      begin
        AQuery.delete;
      end;
      if (AQuery.FieldByName('I150_036').value<>NULL) and (AQuery.FieldByName('I150_037').value<>NULL) then
      begin
        ACircle:=AQuery.FieldByName('I150_036').asInteger;
        ADate:=AQuery.FieldByName('I150_038').value;
        if AQuery.FieldByName('I150_037').value=1 then ADate:=IncDay(ADate,ACircle);
        if AQuery.FieldByName('I150_037').value=2 then ADate:=IncMonth(ADate,ACircle);
        if ADate<=Now() then AQuery.delete;
      end;
    end;
    run(AQuery);
  end
  else
  begin
    AQuery.sql.add('SELECT INV501.*, INV100.I100_002, INV110.I110_003, INV120.I120_002,I150_002 ');
    AQuery.sql.add('FROM (((INV501 INNER JOIN INV100 ON INV501.I501_001 = INV100.I100_001) INNER JOIN INV110 ON INV501.I501_002 = INV110.I110_001) INNER JOIN INV150 ON INV501.I501_003 = INV150.I150_001) INNER JOIN INV120 ON INV150.I150_005 = INV120.I120_001');
    if AFromWhsNo<>'' then
      if strSQL<>'' then strSQL:=strSQL+' and I100_002>='+''''+AFromWhsNo+''''+' and I100_002<='+''''+AToWhsNo+''''
      else strSQL:=strSQL+' I100_002>='+''''+AFromWhsNo+''''+' and I100_002<='+''''+AToWhsNo+'''';
    if AFromLocNo<>'' then
      if strSQL<>'' then strSQL:=strSQL+' and I110_003>='+''''+AFromLocNo+''''+' and I110_003<='+''''+AToLocNo+''''
      else strSQL:=strSQL+' I110_003>='+''''+AFromWhsNo+''''+' and I110_003<='+''''+AToWhsNo+'''';
    if AFromClassNo<>'' then
      if strSQL<>'' then strSQL:=strSQL+' and  I120_002>='+''''+AFromClassNo+''''+' and I120_002<='+''''+AToClassNo+''''
      else strSQL:=strSQL+' I120_002>='+''''+AFromWhsNo+''''+' and I120_002<='+''''+AToWhsNo+'''';
    if AFromItemNo<>'' then
      if strSQL<>'' then strSQL:=strSQL+' and I150_002>='+''''+AFromItemNo+''''+' and I150_002<='+''''+AToItemNo+''''
      else strSQL:=strSQL+' I150_002>='+''''+AFromItemNo+''''+' and I150_002<='+''''+AToItemNo+'''';
    if strSQL<>'' then AQuery.sql.add(' where '+strSQL);
    AQuery.sql.Add(' order by I501_001');
    AQuery.open;
    AQuery.first;
    run(AQuery);
  end;
  AQuery.Close;
  AQuery.Free;
end;

procedure TInv600_03Form.cbFlagClick(Sender: TObject);
var
  I:integer;
begin
  inherited;
  for I:=0 to ComponentCount-1 do
  begin
    if (Components[I] is TEdit) then
    begin
      TEdit(Components[I]).Enabled:=not cbFlag.Checked;
      if cbFlag.Checked then
      begin
        TEdit(Components[I]).Color:=ADisableColor;
        TEdit(Components[I]).Text:='';
      end
      else
      begin
        TEdit(Components[I]).Color:=AEnableColor;
      end;
    end;

    if (Components[I] is TSpeedButton) then
      TSpeedButton(Components[I]).Enabled:=not cbFlag.Checked;
   end;

end;

procedure TInv600_03Form.EditExit(Sender: TObject);
begin
  if Sender is TEdit then
  begin
    if TEdit(Sender).Text<>'' then cbFlag.Enabled:=False else cbFlag.Enabled:=True;
  end;
end;

procedure TInv600_03Form.sbFromWhsIDClick(Sender: TObject);
begin
  inherited;
  HwSelDataForm:=THwSelDataForm.Create(Application);
  HwSelDataForm.OpenSelData(qryinv100From,nil);
  if HwSelDataForm.ShowModal=1 then
  begin
    edtFromWhsID.Text:=qryinv100From.FieldByName('I100_002').AsString;
  end;

end;

procedure TInv600_03Form.sbToWhsIDClick(Sender: TObject);
begin
  inherited;
  HwSelDataForm:=THwSelDataForm.Create(Application);
  HwSelDataForm.OpenSelData(qryinv100From,nil);
  if HwSelDataForm.ShowModal=1 then
  begin
    edtToWhsID.Text:=qryinv100From.FieldByName('I100_002').AsString;
  end;
end;

procedure TInv600_03Form.sbFromLocIDClick(Sender: TObject);
begin
  inherited;
  HwSelDataForm:=THwSelDataForm.Create(Application);
  HwSelDataForm.OpenSelData(qryinv110from,nil);
  if HwSelDataForm.ShowModal=1 then
  begin
    edtFromLocID.Text:=qryinv110from.FieldByName('I110_003').AsString;
  end;
end;

procedure TInv600_03Form.sbToLocIDClick(Sender: TObject);
begin
  inherited;
  HwSelDataForm:=THwSelDataForm.Create(Application);
  HwSelDataForm.OpenSelData(qryinv110from,nil);
  if HwSelDataForm.ShowModal=1 then
  begin
    edtToLocID.Text:=qryinv110from.FieldByName('I110_003').AsString;
  end;
end;

procedure TInv600_03Form.sbFromItemClassClick(Sender: TObject);
begin
  inherited;
  HwSelDataForm:=THwSelDataForm.Create(Application);
  HwSelDataForm.OpenSelData(qryinv120from,nil);
  if HwSelDataForm.ShowModal=1 then
  begin
    edtFromItemClass.Text:=qryinv120from.FieldByName('I120_002').AsString;
  end;
end;

procedure TInv600_03Form.sbToItemClassClick(Sender: TObject);
begin
  inherited;
  HwSelDataForm:=THwSelDataForm.Create(Application);
  HwSelDataForm.OpenSelData(qryinv120from,nil);
  if HwSelDataForm.ShowModal=1 then
  begin
    edtToItemClass.Text:=qryinv120from.FieldByName('I120_002').AsString;
  end;
end;

procedure TInv600_03Form.sbFromItemIDClick(Sender: TObject);
begin
  inherited;
  HwSelDataForm:=THwSelDataForm.Create(Application);
  HwSelDataForm.OpenSelData(qryinv150from,nil);
  if HwSelDataForm.ShowModal=1 then
  begin
    edtFromItemID.Text:=qryinv150from.FieldByName('I150_002').AsString;
  end;
end;

procedure TInv600_03Form.sbToItemIDClick(Sender: TObject);
begin
  inherited;
  HwSelDataForm:=THwSelDataForm.Create(Application);
  HwSelDataForm.OpenSelData(qryinv150from,nil);
  if HwSelDataForm.ShowModal=1 then
  begin
    edtToItemID.Text:=qryinv150from.FieldByName('I150_002').AsString;
  end;
end;

procedure TInv600_03Form.edtFromWhsIDExit(Sender: TObject);
begin
  inherited;
  if not qryinv100From.Locate('I100_002',edtFromWhsID.text,[]) then
  begin
    ShowMsg('invalidation');
    edtFromWhsID.text:='';
    edtFromWhsID.Focused;
  end;

end;

procedure TInv600_03Form.edtToWhsIDExit(Sender: TObject);
begin
  inherited;
  if not qryinv100From.Locate('I100_002',edtToWhsID.text,[]) then
  begin
    ShowMsg('invalidation');
    edtToWhsID.text:='';
    edtToWhsID.Focused;
  end;
end;

procedure TInv600_03Form.edtFromLocIDExit(Sender: TObject);
begin
  inherited;
  if not qryinv110from.Locate('I110_003',edtFromLocID.text,[]) then
  begin
    ShowMsg('invalidation');
    edtFromLocID.text:='';
    edtFromLocID.Focused;
  end;
end;

procedure TInv600_03Form.edtToLocIDExit(Sender: TObject);
begin
  inherited;
  if not qryinv110from.Locate('I110_003',edtToLocID.text,[]) then
  begin
    ShowMsg('invalidation');
    edtToLocID.text:='';
    edtToLocID.Focused;
  end;
end;

procedure TInv600_03Form.edtFromItemClassExit(Sender: TObject);
begin
  inherited;
  if not qryinv120from.Locate('I120_002',edtFromItemClass.text,[]) then
  begin
    ShowMsg('invalidation');
    edtFromItemClass.text:='';
    edtFromItemClass.Focused;
  end;
end;

procedure TInv600_03Form.edtToItemClassExit(Sender: TObject);
begin
  inherited;
  if not qryinv120from.Locate('I120_002',edtToItemClass.text,[]) then
  begin
    ShowMsg('invalidation');
    edtToItemClass.text:='';
    edtToItemClass.Focused;
  end;
end;

procedure TInv600_03Form.edtToItemIDExit(Sender: TObject);
begin
  inherited;
  if not qryinv150from.Locate('I150_002',edtToItemID.text,[]) then
  begin
    ShowMsg('invalidation');
    edtToItemID.text:='';
    edtToItemID.Focused;
  end;
end;

procedure TInv600_03Form.edtFromItemIDExit(Sender: TObject);
begin
  inherited;
  if not qryinv150from.Locate('I150_002',edtFromItemID.text,[]) then
  begin
    ShowMsg('invalidation');
    edtFromItemID.text:='';
    edtFromItemID.Focused;
  end;
end;

end.