131
Exit
end;
ifDataInfo.qListOperations.FieldByName('TypeId').isNull then
begin
MessageDlg('Укажитетипоперации!',mtError,[mbOk],0);
Exit
end;
ifDataInfo.qListOperations.FieldByName('Suma').isNull then
begin
MessageDlg('Укажитесуммуоперации!',mtError,[mbOk],0);
Exit
end;
DataInfo.qListOperations.FieldByName('ValueId').AsInteger:=DataInfo.qListV
aluations.FieldByName('Id').AsInteger;
DataInfo.qListOperations.Post;
DataInfo.qListValuations.Close;
DataInfo.qListValuations.Open;
frmOperation.Close;
end;
end.
unitTypeOperation;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxSkinsCore, dxSkinsDefaultPainters, cxStyles, cxGraphics,
cxEdit, cxDBLookupComboBox, cxCheckBox, Menus,
cxLookAndFeelPainters,
StdCtrls, cxButtons, cxVGrid, cxDBVGrid, cxControls, cxInplaceContainer,