AlonsoYSal_FactuGES/Modulos/Pagos/Reglas/schPagosServer_Intf.pas

unit schPagosServer_Intf;

interface

uses
  Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schPagosClient_Intf;

const
  { Delta rules ids 
       Feel free to change them to something more human readable
       but make sure they are unique in the context of your application }
  RID_InformeCabeceraPagoDelta = '{FC7F498A-8050-4BDE-A554-9C74657C161A}';
  RID_ListaAnosPagosDelta = '{FB96D6D8-C3F2-4F99-B469-E697516F65C6}';
  RID_PagosDelta = '{4F690594-2042-436F-B8F7-EA4D4E766C33}';
  RID_Refresh_PagosDelta = '{BBAE7331-5759-4693-A233-6EBD8A2B340E}';

type
  { IInformeCabeceraPagoDelta }
  IInformeCabeceraPagoDelta = interface(IInformeCabeceraPago)
  ['{FC7F498A-8050-4BDE-A554-9C74657C161A}']
    { Property getters and setters }
    function GetOldCODIGOEMPRESAValue : Integer;
    function GetOldCODIGOValue : Integer;
    function GetOldCUENTAValue : Integer;
    function GetOldFECHAPAGOValue : DateTime;
    function GetOldFORMAPAGOValue : String;
    function GetOldDESCRIPCIONValue : String;
    function GetOldIMPORTEValue : Float;
    function GetOldCODIGOCONTACTOValue : Integer;
    function GetOldNOMBREValue : String;
    function GetOldNIFCIFValue : String;
    function GetOldCALLEValue : String;
    function GetOldCODIGOPOSTALValue : String;
    function GetOldPOBLACIONValue : String;
    function GetOldPROVINCIAValue : String;

    { Properties }
    property OldCODIGOEMPRESA : Integer read GetOldCODIGOEMPRESAValue;
    property OldCODIGO : Integer read GetOldCODIGOValue;
    property OldCUENTA : Integer read GetOldCUENTAValue;
    property OldFECHAPAGO : DateTime read GetOldFECHAPAGOValue;
    property OldFORMAPAGO : String read GetOldFORMAPAGOValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property OldIMPORTE : Float read GetOldIMPORTEValue;
    property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldNIFCIF : String read GetOldNIFCIFValue;
    property OldCALLE : String read GetOldCALLEValue;
    property OldCODIGOPOSTAL : String read GetOldCODIGOPOSTALValue;
    property OldPOBLACION : String read GetOldPOBLACIONValue;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
  end;

  { TInformeCabeceraPagoBusinessProcessorRules }
  TInformeCabeceraPagoBusinessProcessorRules = class(TDABusinessProcessorRules, IInformeCabeceraPago, IInformeCabeceraPagoDelta)
  private
  protected
    { Property getters and setters }
    function GetCODIGOEMPRESAValue: Integer; virtual;
    function GetOldCODIGOEMPRESAValue: Integer; virtual;
    procedure SetCODIGOEMPRESAValue(const aValue: Integer); virtual;
    function GetCODIGOValue: Integer; virtual;
    function GetOldCODIGOValue: Integer; virtual;
    procedure SetCODIGOValue(const aValue: Integer); virtual;
    function GetCUENTAValue: Integer; virtual;
    function GetOldCUENTAValue: Integer; virtual;
    procedure SetCUENTAValue(const aValue: Integer); virtual;
    function GetFECHAPAGOValue: DateTime; virtual;
    function GetOldFECHAPAGOValue: DateTime; virtual;
    procedure SetFECHAPAGOValue(const aValue: DateTime); virtual;
    function GetFORMAPAGOValue: String; virtual;
    function GetOldFORMAPAGOValue: String; virtual;
    procedure SetFORMAPAGOValue(const aValue: String); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    function GetOldDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetIMPORTEValue: Float; virtual;
    function GetOldIMPORTEValue: Float; virtual;
    procedure SetIMPORTEValue(const aValue: Float); virtual;
    function GetCODIGOCONTACTOValue: Integer; virtual;
    function GetOldCODIGOCONTACTOValue: Integer; virtual;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual;
    function GetNOMBREValue: String; virtual;
    function GetOldNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    function GetNIFCIFValue: String; virtual;
    function GetOldNIFCIFValue: String; virtual;
    procedure SetNIFCIFValue(const aValue: String); virtual;
    function GetCALLEValue: String; virtual;
    function GetOldCALLEValue: String; virtual;
    procedure SetCALLEValue(const aValue: String); virtual;
    function GetCODIGOPOSTALValue: String; virtual;
    function GetOldCODIGOPOSTALValue: String; virtual;
    procedure SetCODIGOPOSTALValue(const aValue: String); virtual;
    function GetPOBLACIONValue: String; virtual;
    function GetOldPOBLACIONValue: String; virtual;
    procedure SetPOBLACIONValue(const aValue: String); virtual;
    function GetPROVINCIAValue: String; virtual;
    function GetOldPROVINCIAValue: String; virtual;
    procedure SetPROVINCIAValue(const aValue: String); virtual;

    { Properties }
    property CODIGOEMPRESA : Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
    property OldCODIGOEMPRESA : Integer read GetOldCODIGOEMPRESAValue;
    property CODIGO : Integer read GetCODIGOValue write SetCODIGOValue;
    property OldCODIGO : Integer read GetOldCODIGOValue;
    property CUENTA : Integer read GetCUENTAValue write SetCUENTAValue;
    property OldCUENTA : Integer read GetOldCUENTAValue;
    property FECHAPAGO : DateTime read GetFECHAPAGOValue write SetFECHAPAGOValue;
    property OldFECHAPAGO : DateTime read GetOldFECHAPAGOValue;
    property FORMAPAGO : String read GetFORMAPAGOValue write SetFORMAPAGOValue;
    property OldFORMAPAGO : String read GetOldFORMAPAGOValue;
    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property IMPORTE : Float read GetIMPORTEValue write SetIMPORTEValue;
    property OldIMPORTE : Float read GetOldIMPORTEValue;
    property CODIGOCONTACTO : Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue;
    property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property NIFCIF : String read GetNIFCIFValue write SetNIFCIFValue;
    property OldNIFCIF : String read GetOldNIFCIFValue;
    property CALLE : String read GetCALLEValue write SetCALLEValue;
    property OldCALLE : String read GetOldCALLEValue;
    property CODIGOPOSTAL : String read GetCODIGOPOSTALValue write SetCODIGOPOSTALValue;
    property OldCODIGOPOSTAL : String read GetOldCODIGOPOSTALValue;
    property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
    property OldPOBLACION : String read GetOldPOBLACIONValue;
    property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;

  public
    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
    destructor Destroy; override;

  end;

  { IListaAnosPagosDelta }
  IListaAnosPagosDelta = interface(IListaAnosPagos)
  ['{FB96D6D8-C3F2-4F99-B469-E697516F65C6}']
    { Property getters and setters }
    function GetOldANOValue : String;

    { Properties }
    property OldANO : String read GetOldANOValue;
  end;

  { TListaAnosPagosBusinessProcessorRules }
  TListaAnosPagosBusinessProcessorRules = class(TDABusinessProcessorRules, IListaAnosPagos, IListaAnosPagosDelta)
  private
  protected
    { Property getters and setters }
    function GetANOValue: String; virtual;
    function GetOldANOValue: String; virtual;
    procedure SetANOValue(const aValue: String); virtual;

    { Properties }
    property ANO : String read GetANOValue write SetANOValue;
    property OldANO : String read GetOldANOValue;

  public
    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
    destructor Destroy; override;

  end;

  { IPagosDelta }
  IPagosDelta = interface(IPagos)
  ['{4F690594-2042-436F-B8F7-EA4D4E766C33}']
    { Property getters and setters }
    function GetOldCODIGOEMPRESAValue : Integer;
    function GetOldCODIGOValue : Integer;
    function GetOldFECHAALTAValue : DateTime;
    function GetOldUSUARIOValue : String;
    function GetOldCUENTAValue : Integer;
    function GetOldIMPORTEValue : Currency;
    function GetOldFORMAPAGOValue : IROStrings;
    function GetOldDESCRIPCIONValue : String;
    function GetOldFECHAPAGOValue : DateTime;
    function GetOldFECHAMODIFICACIONValue : DateTime;
    function GetOldCODIGOCONTACTOValue : Integer;
    function GetOldNOMBREValue : String;
    function GetOldCODIGOCATEGORIAValue : Integer;
    function GetOldCATEGORIAValue : String;

    { Properties }
    property OldCODIGOEMPRESA : Integer read GetOldCODIGOEMPRESAValue;
    property OldCODIGO : Integer read GetOldCODIGOValue;
    property OldFECHAALTA : DateTime read GetOldFECHAALTAValue;
    property OldUSUARIO : String read GetOldUSUARIOValue;
    property OldCUENTA : Integer read GetOldCUENTAValue;
    property OldIMPORTE : Currency read GetOldIMPORTEValue;
    property OldFORMAPAGO : IROStrings read GetOldFORMAPAGOValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property OldFECHAPAGO : DateTime read GetOldFECHAPAGOValue;
    property OldFECHAMODIFICACION : DateTime read GetOldFECHAMODIFICACIONValue;
    property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldCODIGOCATEGORIA : Integer read GetOldCODIGOCATEGORIAValue;
    property OldCATEGORIA : String read GetOldCATEGORIAValue;
  end;

  { TPagosBusinessProcessorRules }
  TPagosBusinessProcessorRules = class(TDABusinessProcessorRules, IPagos, IPagosDelta)
  private
  protected
    { Property getters and setters }
    function GetCODIGOEMPRESAValue: Integer; virtual;
    function GetOldCODIGOEMPRESAValue: Integer; virtual;
    procedure SetCODIGOEMPRESAValue(const aValue: Integer); virtual;
    function GetCODIGOValue: Integer; virtual;
    function GetOldCODIGOValue: Integer; virtual;
    procedure SetCODIGOValue(const aValue: Integer); virtual;
    function GetFECHAALTAValue: DateTime; virtual;
    function GetOldFECHAALTAValue: DateTime; virtual;
    procedure SetFECHAALTAValue(const aValue: DateTime); virtual;
    function GetUSUARIOValue: String; virtual;
    function GetOldUSUARIOValue: String; virtual;
    procedure SetUSUARIOValue(const aValue: String); virtual;
    function GetCUENTAValue: Integer; virtual;
    function GetOldCUENTAValue: Integer; virtual;
    procedure SetCUENTAValue(const aValue: Integer); virtual;
    function GetIMPORTEValue: Currency; virtual;
    function GetOldIMPORTEValue: Currency; virtual;
    procedure SetIMPORTEValue(const aValue: Currency); virtual;
    function GetFORMAPAGOValue: IROStrings; virtual;
    function GetOldFORMAPAGOValue: IROStrings; virtual;
    procedure SetFORMAPAGOValue(const aValue: IROStrings); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    function GetOldDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetFECHAPAGOValue: DateTime; virtual;
    function GetOldFECHAPAGOValue: DateTime; virtual;
    procedure SetFECHAPAGOValue(const aValue: DateTime); virtual;
    function GetFECHAMODIFICACIONValue: DateTime; virtual;
    function GetOldFECHAMODIFICACIONValue: DateTime; virtual;
    procedure SetFECHAMODIFICACIONValue(const aValue: DateTime); virtual;
    function GetCODIGOCONTACTOValue: Integer; virtual;
    function GetOldCODIGOCONTACTOValue: Integer; virtual;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual;
    function GetNOMBREValue: String; virtual;
    function GetOldNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    function GetCODIGOCATEGORIAValue: Integer; virtual;
    function GetOldCODIGOCATEGORIAValue: Integer; virtual;
    procedure SetCODIGOCATEGORIAValue(const aValue: Integer); virtual;
    function GetCATEGORIAValue: String; virtual;
    function GetOldCATEGORIAValue: String; virtual;
    procedure SetCATEGORIAValue(const aValue: String); virtual;

    { Properties }
    property CODIGOEMPRESA : Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
    property OldCODIGOEMPRESA : Integer read GetOldCODIGOEMPRESAValue;
    property CODIGO : Integer read GetCODIGOValue write SetCODIGOValue;
    property OldCODIGO : Integer read GetOldCODIGOValue;
    property FECHAALTA : DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
    property OldFECHAALTA : DateTime read GetOldFECHAALTAValue;
    property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
    property OldUSUARIO : String read GetOldUSUARIOValue;
    property CUENTA : Integer read GetCUENTAValue write SetCUENTAValue;
    property OldCUENTA : Integer read GetOldCUENTAValue;
    property IMPORTE : Currency read GetIMPORTEValue write SetIMPORTEValue;
    property OldIMPORTE : Currency read GetOldIMPORTEValue;
    property FORMAPAGO : IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue;
    property OldFORMAPAGO : IROStrings read GetOldFORMAPAGOValue;
    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property FECHAPAGO : DateTime read GetFECHAPAGOValue write SetFECHAPAGOValue;
    property OldFECHAPAGO : DateTime read GetOldFECHAPAGOValue;
    property FECHAMODIFICACION : DateTime read GetFECHAMODIFICACIONValue write SetFECHAMODIFICACIONValue;
    property OldFECHAMODIFICACION : DateTime read GetOldFECHAMODIFICACIONValue;
    property CODIGOCONTACTO : Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue;
    property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property CODIGOCATEGORIA : Integer read GetCODIGOCATEGORIAValue write SetCODIGOCATEGORIAValue;
    property OldCODIGOCATEGORIA : Integer read GetOldCODIGOCATEGORIAValue;
    property CATEGORIA : String read GetCATEGORIAValue write SetCATEGORIAValue;
    property OldCATEGORIA : String read GetOldCATEGORIAValue;

  public
    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
    destructor Destroy; override;

  end;

  { IRefresh_PagosDelta }
  IRefresh_PagosDelta = interface(IRefresh_Pagos)
  ['{BBAE7331-5759-4693-A233-6EBD8A2B340E}']
    { Property getters and setters }
    function GetOldCODIGOEMPRESAValue : Integer;
    function GetOldCODIGOValue : Integer;
    function GetOldFECHAALTAValue : DateTime;
    function GetOldUSUARIOValue : String;
    function GetOldCUENTAValue : Integer;
    function GetOldIMPORTEValue : Currency;
    function GetOldFORMAPAGOValue : IROStrings;
    function GetOldDESCRIPCIONValue : String;
    function GetOldFECHAPAGOValue : DateTime;
    function GetOldFECHAMODIFICACIONValue : DateTime;
    function GetOldCODIGOCONTACTOValue : Integer;
    function GetOldNOMBREValue : String;
    function GetOldCODIGOCATEGORIAValue : Integer;
    function GetOldCATEGORIAValue : String;

    { Properties }
    property OldCODIGOEMPRESA : Integer read GetOldCODIGOEMPRESAValue;
    property OldCODIGO : Integer read GetOldCODIGOValue;
    property OldFECHAALTA : DateTime read GetOldFECHAALTAValue;
    property OldUSUARIO : String read GetOldUSUARIOValue;
    property OldCUENTA : Integer read GetOldCUENTAValue;
    property OldIMPORTE : Currency read GetOldIMPORTEValue;
    property OldFORMAPAGO : IROStrings read GetOldFORMAPAGOValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property OldFECHAPAGO : DateTime read GetOldFECHAPAGOValue;
    property OldFECHAMODIFICACION : DateTime read GetOldFECHAMODIFICACIONValue;
    property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldCODIGOCATEGORIA : Integer read GetOldCODIGOCATEGORIAValue;
    property OldCATEGORIA : String read GetOldCATEGORIAValue;
  end;

  { TRefresh_PagosBusinessProcessorRules }
  TRefresh_PagosBusinessProcessorRules = class(TDABusinessProcessorRules, IRefresh_Pagos, IRefresh_PagosDelta)
  private
  protected
    { Property getters and setters }
    function GetCODIGOEMPRESAValue: Integer; virtual;
    function GetOldCODIGOEMPRESAValue: Integer; virtual;
    procedure SetCODIGOEMPRESAValue(const aValue: Integer); virtual;
    function GetCODIGOValue: Integer; virtual;
    function GetOldCODIGOValue: Integer; virtual;
    procedure SetCODIGOValue(const aValue: Integer); virtual;
    function GetFECHAALTAValue: DateTime; virtual;
    function GetOldFECHAALTAValue: DateTime; virtual;
    procedure SetFECHAALTAValue(const aValue: DateTime); virtual;
    function GetUSUARIOValue: String; virtual;
    function GetOldUSUARIOValue: String; virtual;
    procedure SetUSUARIOValue(const aValue: String); virtual;
    function GetCUENTAValue: Integer; virtual;
    function GetOldCUENTAValue: Integer; virtual;
    procedure SetCUENTAValue(const aValue: Integer); virtual;
    function GetIMPORTEValue: Currency; virtual;
    function GetOldIMPORTEValue: Currency; virtual;
    procedure SetIMPORTEValue(const aValue: Currency); virtual;
    function GetFORMAPAGOValue: IROStrings; virtual;
    function GetOldFORMAPAGOValue: IROStrings; virtual;
    procedure SetFORMAPAGOValue(const aValue: IROStrings); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    function GetOldDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetFECHAPAGOValue: DateTime; virtual;
    function GetOldFECHAPAGOValue: DateTime; virtual;
    procedure SetFECHAPAGOValue(const aValue: DateTime); virtual;
    function GetFECHAMODIFICACIONValue: DateTime; virtual;
    function GetOldFECHAMODIFICACIONValue: DateTime; virtual;
    procedure SetFECHAMODIFICACIONValue(const aValue: DateTime); virtual;
    function GetCODIGOCONTACTOValue: Integer; virtual;
    function GetOldCODIGOCONTACTOValue: Integer; virtual;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual;
    function GetNOMBREValue: String; virtual;
    function GetOldNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    function GetCODIGOCATEGORIAValue: Integer; virtual;
    function GetOldCODIGOCATEGORIAValue: Integer; virtual;
    procedure SetCODIGOCATEGORIAValue(const aValue: Integer); virtual;
    function GetCATEGORIAValue: String; virtual;
    function GetOldCATEGORIAValue: String; virtual;
    procedure SetCATEGORIAValue(const aValue: String); virtual;

    { Properties }
    property CODIGOEMPRESA : Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
    property OldCODIGOEMPRESA : Integer read GetOldCODIGOEMPRESAValue;
    property CODIGO : Integer read GetCODIGOValue write SetCODIGOValue;
    property OldCODIGO : Integer read GetOldCODIGOValue;
    property FECHAALTA : DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
    property OldFECHAALTA : DateTime read GetOldFECHAALTAValue;
    property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
    property OldUSUARIO : String read GetOldUSUARIOValue;
    property CUENTA : Integer read GetCUENTAValue write SetCUENTAValue;
    property OldCUENTA : Integer read GetOldCUENTAValue;
    property IMPORTE : Currency read GetIMPORTEValue write SetIMPORTEValue;
    property OldIMPORTE : Currency read GetOldIMPORTEValue;
    property FORMAPAGO : IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue;
    property OldFORMAPAGO : IROStrings read GetOldFORMAPAGOValue;
    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property FECHAPAGO : DateTime read GetFECHAPAGOValue write SetFECHAPAGOValue;
    property OldFECHAPAGO : DateTime read GetOldFECHAPAGOValue;
    property FECHAMODIFICACION : DateTime read GetFECHAMODIFICACIONValue write SetFECHAMODIFICACIONValue;
    property OldFECHAMODIFICACION : DateTime read GetOldFECHAMODIFICACIONValue;
    property CODIGOCONTACTO : Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue;
    property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property CODIGOCATEGORIA : Integer read GetCODIGOCATEGORIAValue write SetCODIGOCATEGORIAValue;
    property OldCODIGOCATEGORIA : Integer read GetOldCODIGOCATEGORIAValue;
    property CATEGORIA : String read GetCATEGORIAValue write SetCATEGORIAValue;
    property OldCATEGORIA : String read GetOldCATEGORIAValue;

  public
    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
    destructor Destroy; override;

  end;

implementation

uses
  Variants, uROBinaryHelpers;

{ TInformeCabeceraPagoBusinessProcessorRules }
constructor TInformeCabeceraPagoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
  inherited;
end;

destructor TInformeCabeceraPagoBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TInformeCabeceraPagoBusinessProcessorRules.GetCODIGOEMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPagoCODIGOEMPRESA];
end;

function TInformeCabeceraPagoBusinessProcessorRules.GetOldCODIGOEMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPagoCODIGOEMPRESA];
end;

procedure TInformeCabeceraPagoBusinessProcessorRules.SetCODIGOEMPRESAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPagoCODIGOEMPRESA] := aValue;
end;

function TInformeCabeceraPagoBusinessProcessorRules.GetCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPagoCODIGO];
end;

function TInformeCabeceraPagoBusinessProcessorRules.GetOldCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPagoCODIGO];
end;

procedure TInformeCabeceraPagoBusinessProcessorRules.SetCODIGOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPagoCODIGO] := aValue;
end;

function TInformeCabeceraPagoBusinessProcessorRules.GetCUENTAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPagoCUENTA];
end;

function TInformeCabeceraPagoBusinessProcessorRules.GetOldCUENTAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPagoCUENTA];
end;

procedure TInformeCabeceraPagoBusinessProcessorRules.SetCUENTAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPagoCUENTA] := aValue;
end;

function TInformeCabeceraPagoBusinessProcessorRules.GetFECHAPAGOValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPagoFECHAPAGO];
end;

function TInformeCabeceraPagoBusinessProcessorRules.GetOldFECHAPAGOValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPagoFECHAPAGO];
end;

procedure TInformeCabeceraPagoBusinessProcessorRules.SetFECHAPAGOValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPagoFECHAPAGO] := aValue;
end;

function TInformeCabeceraPagoBusinessProcessorRules.GetFORMAPAGOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPagoFORMAPAGO];
end;

function TInformeCabeceraPagoBusinessProcessorRules.GetOldFORMAPAGOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPagoFORMAPAGO];
end;

procedure TInformeCabeceraPagoBusinessProcessorRules.SetFORMAPAGOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPagoFORMAPAGO] := aValue;
end;

function TInformeCabeceraPagoBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPagoDESCRIPCION];
end;

function TInformeCabeceraPagoBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPagoDESCRIPCION];
end;

procedure TInformeCabeceraPagoBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPagoDESCRIPCION] := aValue;
end;

function TInformeCabeceraPagoBusinessProcessorRules.GetIMPORTEValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPagoIMPORTE];
end;

function TInformeCabeceraPagoBusinessProcessorRules.GetOldIMPORTEValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPagoIMPORTE];
end;

procedure TInformeCabeceraPagoBusinessProcessorRules.SetIMPORTEValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPagoIMPORTE] := aValue;
end;

function TInformeCabeceraPagoBusinessProcessorRules.GetCODIGOCONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPagoCODIGOCONTACTO];
end;

function TInformeCabeceraPagoBusinessProcessorRules.GetOldCODIGOCONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPagoCODIGOCONTACTO];
end;

procedure TInformeCabeceraPagoBusinessProcessorRules.SetCODIGOCONTACTOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPagoCODIGOCONTACTO] := aValue;
end;

function TInformeCabeceraPagoBusinessProcessorRules.GetNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPagoNOMBRE];
end;

function TInformeCabeceraPagoBusinessProcessorRules.GetOldNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPagoNOMBRE];
end;

procedure TInformeCabeceraPagoBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPagoNOMBRE] := aValue;
end;

function TInformeCabeceraPagoBusinessProcessorRules.GetNIFCIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPagoNIFCIF];
end;

function TInformeCabeceraPagoBusinessProcessorRules.GetOldNIFCIFValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPagoNIFCIF];
end;

procedure TInformeCabeceraPagoBusinessProcessorRules.SetNIFCIFValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPagoNIFCIF] := aValue;
end;

function TInformeCabeceraPagoBusinessProcessorRules.GetCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPagoCALLE];
end;

function TInformeCabeceraPagoBusinessProcessorRules.GetOldCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPagoCALLE];
end;

procedure TInformeCabeceraPagoBusinessProcessorRules.SetCALLEValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPagoCALLE] := aValue;
end;

function TInformeCabeceraPagoBusinessProcessorRules.GetCODIGOPOSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPagoCODIGOPOSTAL];
end;

function TInformeCabeceraPagoBusinessProcessorRules.GetOldCODIGOPOSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPagoCODIGOPOSTAL];
end;

procedure TInformeCabeceraPagoBusinessProcessorRules.SetCODIGOPOSTALValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPagoCODIGOPOSTAL] := aValue;
end;

function TInformeCabeceraPagoBusinessProcessorRules.GetPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPagoPOBLACION];
end;

function TInformeCabeceraPagoBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPagoPOBLACION];
end;

procedure TInformeCabeceraPagoBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPagoPOBLACION] := aValue;
end;

function TInformeCabeceraPagoBusinessProcessorRules.GetPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPagoPROVINCIA];
end;

function TInformeCabeceraPagoBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPagoPROVINCIA];
end;

procedure TInformeCabeceraPagoBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPagoPROVINCIA] := aValue;
end;


{ TListaAnosPagosBusinessProcessorRules }
constructor TListaAnosPagosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
  inherited;
end;

destructor TListaAnosPagosBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TListaAnosPagosBusinessProcessorRules.GetANOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosPagosANO];
end;

function TListaAnosPagosBusinessProcessorRules.GetOldANOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosPagosANO];
end;

procedure TListaAnosPagosBusinessProcessorRules.SetANOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosPagosANO] := aValue;
end;


{ TPagosBusinessProcessorRules }
constructor TPagosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
  inherited;
end;

destructor TPagosBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TPagosBusinessProcessorRules.GetCODIGOEMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosCODIGOEMPRESA];
end;

function TPagosBusinessProcessorRules.GetOldCODIGOEMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosCODIGOEMPRESA];
end;

procedure TPagosBusinessProcessorRules.SetCODIGOEMPRESAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PagosCODIGOEMPRESA] := aValue;
end;

function TPagosBusinessProcessorRules.GetCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosCODIGO];
end;

function TPagosBusinessProcessorRules.GetOldCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosCODIGO];
end;

procedure TPagosBusinessProcessorRules.SetCODIGOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PagosCODIGO] := aValue;
end;

function TPagosBusinessProcessorRules.GetFECHAALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosFECHAALTA];
end;

function TPagosBusinessProcessorRules.GetOldFECHAALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosFECHAALTA];
end;

procedure TPagosBusinessProcessorRules.SetFECHAALTAValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PagosFECHAALTA] := aValue;
end;

function TPagosBusinessProcessorRules.GetUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosUSUARIO];
end;

function TPagosBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosUSUARIO];
end;

procedure TPagosBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PagosUSUARIO] := aValue;
end;

function TPagosBusinessProcessorRules.GetCUENTAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosCUENTA];
end;

function TPagosBusinessProcessorRules.GetOldCUENTAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosCUENTA];
end;

procedure TPagosBusinessProcessorRules.SetCUENTAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PagosCUENTA] := aValue;
end;

function TPagosBusinessProcessorRules.GetIMPORTEValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosIMPORTE];
end;

function TPagosBusinessProcessorRules.GetOldIMPORTEValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosIMPORTE];
end;

procedure TPagosBusinessProcessorRules.SetIMPORTEValue(const aValue: Currency);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PagosIMPORTE] := aValue;
end;

function TPagosBusinessProcessorRules.GetFORMAPAGOValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosFORMAPAGO];
end;

function TPagosBusinessProcessorRules.GetOldFORMAPAGOValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosFORMAPAGO];
end;

procedure TPagosBusinessProcessorRules.SetFORMAPAGOValue(const aValue: IROStrings);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PagosFORMAPAGO] := aValue.Text;
end;

function TPagosBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosDESCRIPCION];
end;

function TPagosBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosDESCRIPCION];
end;

procedure TPagosBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PagosDESCRIPCION] := aValue;
end;

function TPagosBusinessProcessorRules.GetFECHAPAGOValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosFECHAPAGO];
end;

function TPagosBusinessProcessorRules.GetOldFECHAPAGOValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosFECHAPAGO];
end;

procedure TPagosBusinessProcessorRules.SetFECHAPAGOValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PagosFECHAPAGO] := aValue;
end;

function TPagosBusinessProcessorRules.GetFECHAMODIFICACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosFECHAMODIFICACION];
end;

function TPagosBusinessProcessorRules.GetOldFECHAMODIFICACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosFECHAMODIFICACION];
end;

procedure TPagosBusinessProcessorRules.SetFECHAMODIFICACIONValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PagosFECHAMODIFICACION] := aValue;
end;

function TPagosBusinessProcessorRules.GetCODIGOCONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosCODIGOCONTACTO];
end;

function TPagosBusinessProcessorRules.GetOldCODIGOCONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosCODIGOCONTACTO];
end;

procedure TPagosBusinessProcessorRules.SetCODIGOCONTACTOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PagosCODIGOCONTACTO] := aValue;
end;

function TPagosBusinessProcessorRules.GetNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosNOMBRE];
end;

function TPagosBusinessProcessorRules.GetOldNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosNOMBRE];
end;

procedure TPagosBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PagosNOMBRE] := aValue;
end;

function TPagosBusinessProcessorRules.GetCODIGOCATEGORIAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosCODIGOCATEGORIA];
end;

function TPagosBusinessProcessorRules.GetOldCODIGOCATEGORIAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosCODIGOCATEGORIA];
end;

procedure TPagosBusinessProcessorRules.SetCODIGOCATEGORIAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PagosCODIGOCATEGORIA] := aValue;
end;

function TPagosBusinessProcessorRules.GetCATEGORIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosCATEGORIA];
end;

function TPagosBusinessProcessorRules.GetOldCATEGORIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosCATEGORIA];
end;

procedure TPagosBusinessProcessorRules.SetCATEGORIAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PagosCATEGORIA] := aValue;
end;


{ TRefresh_PagosBusinessProcessorRules }
constructor TRefresh_PagosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
  inherited;
end;

destructor TRefresh_PagosBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TRefresh_PagosBusinessProcessorRules.GetCODIGOEMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PagosCODIGOEMPRESA];
end;

function TRefresh_PagosBusinessProcessorRules.GetOldCODIGOEMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PagosCODIGOEMPRESA];
end;

procedure TRefresh_PagosBusinessProcessorRules.SetCODIGOEMPRESAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PagosCODIGOEMPRESA] := aValue;
end;

function TRefresh_PagosBusinessProcessorRules.GetCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PagosCODIGO];
end;

function TRefresh_PagosBusinessProcessorRules.GetOldCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PagosCODIGO];
end;

procedure TRefresh_PagosBusinessProcessorRules.SetCODIGOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PagosCODIGO] := aValue;
end;

function TRefresh_PagosBusinessProcessorRules.GetFECHAALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PagosFECHAALTA];
end;

function TRefresh_PagosBusinessProcessorRules.GetOldFECHAALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PagosFECHAALTA];
end;

procedure TRefresh_PagosBusinessProcessorRules.SetFECHAALTAValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PagosFECHAALTA] := aValue;
end;

function TRefresh_PagosBusinessProcessorRules.GetUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PagosUSUARIO];
end;

function TRefresh_PagosBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PagosUSUARIO];
end;

procedure TRefresh_PagosBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PagosUSUARIO] := aValue;
end;

function TRefresh_PagosBusinessProcessorRules.GetCUENTAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PagosCUENTA];
end;

function TRefresh_PagosBusinessProcessorRules.GetOldCUENTAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PagosCUENTA];
end;

procedure TRefresh_PagosBusinessProcessorRules.SetCUENTAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PagosCUENTA] := aValue;
end;

function TRefresh_PagosBusinessProcessorRules.GetIMPORTEValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PagosIMPORTE];
end;

function TRefresh_PagosBusinessProcessorRules.GetOldIMPORTEValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PagosIMPORTE];
end;

procedure TRefresh_PagosBusinessProcessorRules.SetIMPORTEValue(const aValue: Currency);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PagosIMPORTE] := aValue;
end;

function TRefresh_PagosBusinessProcessorRules.GetFORMAPAGOValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PagosFORMAPAGO];
end;

function TRefresh_PagosBusinessProcessorRules.GetOldFORMAPAGOValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PagosFORMAPAGO];
end;

procedure TRefresh_PagosBusinessProcessorRules.SetFORMAPAGOValue(const aValue: IROStrings);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PagosFORMAPAGO] := aValue.Text;
end;

function TRefresh_PagosBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PagosDESCRIPCION];
end;

function TRefresh_PagosBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PagosDESCRIPCION];
end;

procedure TRefresh_PagosBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PagosDESCRIPCION] := aValue;
end;

function TRefresh_PagosBusinessProcessorRules.GetFECHAPAGOValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PagosFECHAPAGO];
end;

function TRefresh_PagosBusinessProcessorRules.GetOldFECHAPAGOValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PagosFECHAPAGO];
end;

procedure TRefresh_PagosBusinessProcessorRules.SetFECHAPAGOValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PagosFECHAPAGO] := aValue;
end;

function TRefresh_PagosBusinessProcessorRules.GetFECHAMODIFICACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PagosFECHAMODIFICACION];
end;

function TRefresh_PagosBusinessProcessorRules.GetOldFECHAMODIFICACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PagosFECHAMODIFICACION];
end;

procedure TRefresh_PagosBusinessProcessorRules.SetFECHAMODIFICACIONValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PagosFECHAMODIFICACION] := aValue;
end;

function TRefresh_PagosBusinessProcessorRules.GetCODIGOCONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PagosCODIGOCONTACTO];
end;

function TRefresh_PagosBusinessProcessorRules.GetOldCODIGOCONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PagosCODIGOCONTACTO];
end;

procedure TRefresh_PagosBusinessProcessorRules.SetCODIGOCONTACTOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PagosCODIGOCONTACTO] := aValue;
end;

function TRefresh_PagosBusinessProcessorRules.GetNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PagosNOMBRE];
end;

function TRefresh_PagosBusinessProcessorRules.GetOldNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PagosNOMBRE];
end;

procedure TRefresh_PagosBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PagosNOMBRE] := aValue;
end;

function TRefresh_PagosBusinessProcessorRules.GetCODIGOCATEGORIAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PagosCODIGOCATEGORIA];
end;

function TRefresh_PagosBusinessProcessorRules.GetOldCODIGOCATEGORIAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PagosCODIGOCATEGORIA];
end;

procedure TRefresh_PagosBusinessProcessorRules.SetCODIGOCATEGORIAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PagosCODIGOCATEGORIA] := aValue;
end;

function TRefresh_PagosBusinessProcessorRules.GetCATEGORIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PagosCATEGORIA];
end;

function TRefresh_PagosBusinessProcessorRules.GetOldCATEGORIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PagosCATEGORIA];
end;

procedure TRefresh_PagosBusinessProcessorRules.SetCATEGORIAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PagosCATEGORIA] := aValue;
end;


initialization
  RegisterBusinessProcessorRules(RID_InformeCabeceraPagoDelta, TInformeCabeceraPagoBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_ListaAnosPagosDelta, TListaAnosPagosBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_PagosDelta, TPagosBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_Refresh_PagosDelta, TRefresh_PagosBusinessProcessorRules);

end.