Grabacion campos de dos campañas en una Tabla

[Felinotronica]

Esto es un patrón GoF Factory para pagos de un sistema POS, estoy si IDE en el bloc de notas del ipad.Disculpar si hay errores. Aquí puedo añadir nuevas clases o quitarlas. Por ejemplo si tienes TComparar2025_26 puedes añadir TComparar2026_27, de esta forma la UI, la vista o el form no accede a datos directamente, separas responsabilidades y es fácil de mantener y escalar. Yo suelo usar patrones para separar responsabilidades. Puedes crear diccionario<TTipoconsulta, funcion: boolean> y luego con un ejecutor ejecutar consultas : Ejecutar(TTipoconsulta.compararanos) por ejemplo. El objeto es que al separar responsabilidades puedas escalar y mantener el desarrollo sin refsctorizados pesados. Te dejo un ejemplo de Factory.

Código Delphi [-]
 Unit tpv.factory.pagos;
{
    Lo que hace es asegurarse de que una vez pagado, el ticket este
        - cerrado
        - con el metodo de pago utilizado
    Var metpa: IMetodoPago;
    luego . . .
    metpa := metpa.ObtenerMetodoPago(mpTarjeta);
    metpa.ProcesarPago(MiTicket);
    GuardarTicket(Miticket);
    Se podria hacer un método de, api que reciba el ticket y lo guarde 
    ya peocesado en la bbdd: GuardarTiket(TTicket,TFormaDePago). Así
    Solo habria que llamar a este metodo desde la UI y el resto lo haria
    El factory.
}

Interface

Uses tpv.clases.tticket,
     Tpv.enums;
Type 
     //TFormaDePago =(mpEfectivo,mpTarjeta,mpBizum);
     //TEstadoTicket = (etAbierto,etCerrado)
    
    IMetodoPago = interface
        [GUID]
        Procedure ProcesarPago(ATicket:TTicket);
        
     End;
     
    TEfectivo = Class(TinterfacesObject,IMetodoPago)
        Private
            FTotal:double;
        Public
            Procedure ProcesarPago(ATicket:TTicket);
    End;
    
    TTarjeta = class(TinterfscedObject, IMetodoPago)
        Private
            Ftotal:double
        Public
            Procedure ProcesarPago(ATicket:TTicket);
    End;
    
    TBizum = class(TInterfacedObject, IMetodoPago)
        Private
            FTotal:double;
        Public
            Procedure ProcesarPago(ATicket:TTicket);
    End;
    
    TPagoTicket = class
        Private
        Public
        Class function ObtenerMetodoPago(AFormaPago:TFormaPago):IMetodoPago;
    End;
    
    Implementation
    
Class function TPagoTicket.ObtenerMetodoPago(
                AFormaPago:TFormaPago):IMetodoPago;
  Begin
      Case AFormaPago of
          mpEfectivo: Result := TEfectivo.Create;
          mpTarjeta: Result := TTarjeta.Create;
          mpBizum: Result := TBizum.Create;
  end;
  
  
Procedure TEfectivo.ProcesarPago(ATicket:TTicket);
Begin
 // procesar el pago en efectivo
  ATicket.Estado := etCerrado;
  ATicket.MetodoPago := mpEfectivo;
End;

Procedure TTarjeta.ProcesarPago(ATicket:TTicket);
Begin
// procesar pago con tarjeta
   ATicket.Estado := etCerrado;
   ATicket.MetodoPago := mpTarjeta;
End;

Procedure TBizum.ProcesarPago(ATicket:TTicket);
Being
// procesar pago con bizum
    ATicket.Estado := etCerrado;
    ATicket.MetodoPago := mpBizum;
End;