procedure tfrmprincipal.guarda_otros_ing;
begin
with frmotros_ing do
with frmdata.st do
begin
sql.Text:='select * from otros_ing where cod_ing='+QuotedStr(cod_ing);
open;
if recordcount=0 then
begin
with frmdata.otros_ing do
begin
open;
Insert;
FieldByName('cod_ing').AsInteger:=0;
FieldByName('descripcion').AsString:=descrip_edit.Text;
FieldByName('monto').Value:=monto_edit.Value;
FieldByName('fecha').AsDateTime:=fecha.Date;
FieldByName('periodo').AsString:=cbo_periodo.Text;
Post;
close;
Transaction.CommitRetaining;
limpiar_otros_ing;
presenta_otros_ing;
application.MessageBox('Ingreso Guardado','Atención',+MB_ICONINFORMATION);
end;
end
else
begin
with frmdata.otros_ing do
begin
open;
if Locate('cod_ing',cod_ing,[])=true then
begin
Edit;
FieldByName('descripcion').AsString:=descrip_edit.Text;
FieldByName('monto').Value:=monto_edit.Value;
FieldByName('fecha').AsDateTime:=fecha.Date;
FieldByName('periodo').AsString:=cbo_periodo.Text;
Post;
close;
Transaction.CommitRetaining;
limpiar_otros_ing;
presenta_otros_ing;
application.MessageBox('Ingreso Actualizado','Atención',+MB_ICONINFORMATION);
end;
end;
end;
end;