qryCHUKU.Open;
end;
procedure TfrmOutDepot.ClearDepot;
var
i: Integer;
begin
for i := 0 to cmbDepot.Items.Count - 1 do
FreeMem(PChar(cmbDepot.Items.Objects[i]));
cmbDepot.Items.Clear;
end;
procedure TfrmOutDepot.qryCHUKUDSDesigner4GetText(Sender: TField;
var Text: String; DisplayText: Boolean);
var
i, Index: Integer;
begin
Index := -1;
for i := 0 to cmbDepot.Items.Count - 1 do
if Trim(cmbDepot.Items[i]) = Trim(Sender.AsString) then
begin
Index := i;
Break;
end;
if Index > -1 then
Text := PChar(cmbDepot.Items.Objects[Index])
else
Text := Sender.AsString;
end;
procedure TfrmOutDepot.qryCHUKUAfterScroll(DataSet: TDataSet);
begin
qryCHUKUMX.Close;
qryCHUKUMX.Parameters[0].Value := DataSet.FieldByName('出库单据号').AsString;
qryCHUKUMX.Open;
LoadPickList;
end;
procedure TfrmOutDepot.qryCHUKUMXBeforeEdit(DataSet: TDataSet);
begin
if qryCHUKU.State in [dsEdit, dsInsert] then
qryCHUKU.Post;
if qryCHUKU.FieldByName('是否已审核').AsBoolean then
begin
ShowMessage('审核完成的出库单不能进行修改！');
Abort;
end;
end;
<< 上一页 [31] [32] [33] [34] [35] [36] [37] [38] [39] [40] ... 下一页 >>