[Cañones]

Código Delphi [-]
begin
  sMesa:=tcPresupuestos.Tabs[tcPresupuestos.TabIndex]; //tabcontrol
  iIdPresupuesto:=dmPresupuestos.idPresupuestoMesa(sMesa); // devuelve el numero de id de esa mesa
  dmPresupuestos.buscarPresupuestoPorId(iIdPresupuesto);
  FCerrarPresupuesto:=TfrmCerrarPresupuesto.Create(self); // formulario de cierre
  try
    if FCerrarPresupuesto.ShowModal = mrOK then
      begin
      dmPresupuestos.cerrarPresupuesto(iIdPresupuesto);
      if FCerrarPresupuesto.cantidadCopias > 0 then
        // aca hago la impresion si es que las copias son mas de una
        begin
        cant:=FCerrarPresupuesto.cantidadCopias;
        RepPresupuesto:=TfrmQRPresupuesto.Create(self);
        RepPresupuesto.imprimir(iIdPresupuesto,cant);
        RepPresupuesto.Free;
        end;
      tcPresupuestos.Tabs.Delete(tcPresupuestos.TabIndex);
      end;
  finally
    FCerrarPresupuesto.Free;
  end;
end;