git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@18 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
c85d8dd41c
commit
1737879dd5
@ -0,0 +1,449 @@
|
||||
unit schEjerciciosClient_Intf;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
|
||||
const
|
||||
{ Data table 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_Ejercicios = '{773C8468-2B44-4968-A704-E0A34C02F5CA}';
|
||||
|
||||
{ Data table names }
|
||||
nme_Ejercicios = 'Ejercicios';
|
||||
|
||||
{ Ejercicios fields }
|
||||
fld_EjerciciosID = 'ID';
|
||||
fld_EjerciciosID_EMPRESA = 'ID_EMPRESA';
|
||||
fld_EjerciciosNOMBRE = 'NOMBRE';
|
||||
fld_EjerciciosFECHA_INICIO = 'FECHA_INICIO';
|
||||
fld_EjerciciosFECHA_FIN = 'FECHA_FIN';
|
||||
fld_EjerciciosESTADO = 'ESTADO';
|
||||
fld_EjerciciosLONG_SUB_CUENTA = 'LONG_SUB_CUENTA';
|
||||
fld_EjerciciosID_ASIENTO_APERTURA = 'ID_ASIENTO_APERTURA';
|
||||
fld_EjerciciosID_ASIENTO_PERYGAN = 'ID_ASIENTO_PERYGAN';
|
||||
fld_EjerciciosID_ASIENTO_CIERRE = 'ID_ASIENTO_CIERRE';
|
||||
fld_EjerciciosACTIVO = 'ACTIVO';
|
||||
|
||||
{ Ejercicios field indexes }
|
||||
idx_EjerciciosID = 0;
|
||||
idx_EjerciciosID_EMPRESA = 1;
|
||||
idx_EjerciciosNOMBRE = 2;
|
||||
idx_EjerciciosFECHA_INICIO = 3;
|
||||
idx_EjerciciosFECHA_FIN = 4;
|
||||
idx_EjerciciosESTADO = 5;
|
||||
idx_EjerciciosLONG_SUB_CUENTA = 6;
|
||||
idx_EjerciciosID_ASIENTO_APERTURA = 7;
|
||||
idx_EjerciciosID_ASIENTO_PERYGAN = 8;
|
||||
idx_EjerciciosID_ASIENTO_CIERRE = 9;
|
||||
idx_EjerciciosACTIVO = 10;
|
||||
|
||||
type
|
||||
{ IEjercicios }
|
||||
IEjercicios = interface(IDAStronglyTypedDataTable)
|
||||
['{911EC4DB-1692-4398-AAA2-3127E0B1239C}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
function GetIDIsNull: Boolean;
|
||||
procedure SetIDIsNull(const aValue: Boolean);
|
||||
function GetID_EMPRESAValue: Integer;
|
||||
procedure SetID_EMPRESAValue(const aValue: Integer);
|
||||
function GetID_EMPRESAIsNull: Boolean;
|
||||
procedure SetID_EMPRESAIsNull(const aValue: Boolean);
|
||||
function GetNOMBREValue: String;
|
||||
procedure SetNOMBREValue(const aValue: String);
|
||||
function GetNOMBREIsNull: Boolean;
|
||||
procedure SetNOMBREIsNull(const aValue: Boolean);
|
||||
function GetFECHA_INICIOValue: DateTime;
|
||||
procedure SetFECHA_INICIOValue(const aValue: DateTime);
|
||||
function GetFECHA_INICIOIsNull: Boolean;
|
||||
procedure SetFECHA_INICIOIsNull(const aValue: Boolean);
|
||||
function GetFECHA_FINValue: DateTime;
|
||||
procedure SetFECHA_FINValue(const aValue: DateTime);
|
||||
function GetFECHA_FINIsNull: Boolean;
|
||||
procedure SetFECHA_FINIsNull(const aValue: Boolean);
|
||||
function GetESTADOValue: String;
|
||||
procedure SetESTADOValue(const aValue: String);
|
||||
function GetESTADOIsNull: Boolean;
|
||||
procedure SetESTADOIsNull(const aValue: Boolean);
|
||||
function GetLONG_SUB_CUENTAValue: SmallInt;
|
||||
procedure SetLONG_SUB_CUENTAValue(const aValue: SmallInt);
|
||||
function GetLONG_SUB_CUENTAIsNull: Boolean;
|
||||
procedure SetLONG_SUB_CUENTAIsNull(const aValue: Boolean);
|
||||
function GetID_ASIENTO_APERTURAValue: Integer;
|
||||
procedure SetID_ASIENTO_APERTURAValue(const aValue: Integer);
|
||||
function GetID_ASIENTO_APERTURAIsNull: Boolean;
|
||||
procedure SetID_ASIENTO_APERTURAIsNull(const aValue: Boolean);
|
||||
function GetID_ASIENTO_PERYGANValue: Integer;
|
||||
procedure SetID_ASIENTO_PERYGANValue(const aValue: Integer);
|
||||
function GetID_ASIENTO_PERYGANIsNull: Boolean;
|
||||
procedure SetID_ASIENTO_PERYGANIsNull(const aValue: Boolean);
|
||||
function GetID_ASIENTO_CIERREValue: Integer;
|
||||
procedure SetID_ASIENTO_CIERREValue(const aValue: Integer);
|
||||
function GetID_ASIENTO_CIERREIsNull: Boolean;
|
||||
procedure SetID_ASIENTO_CIERREIsNull(const aValue: Boolean);
|
||||
function GetACTIVOValue: SmallInt;
|
||||
procedure SetACTIVOValue(const aValue: SmallInt);
|
||||
function GetACTIVOIsNull: Boolean;
|
||||
procedure SetACTIVOIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
||||
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
|
||||
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
||||
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
|
||||
property FECHA_INICIO: DateTime read GetFECHA_INICIOValue write SetFECHA_INICIOValue;
|
||||
property FECHA_INICIOIsNull: Boolean read GetFECHA_INICIOIsNull write SetFECHA_INICIOIsNull;
|
||||
property FECHA_FIN: DateTime read GetFECHA_FINValue write SetFECHA_FINValue;
|
||||
property FECHA_FINIsNull: Boolean read GetFECHA_FINIsNull write SetFECHA_FINIsNull;
|
||||
property ESTADO: String read GetESTADOValue write SetESTADOValue;
|
||||
property ESTADOIsNull: Boolean read GetESTADOIsNull write SetESTADOIsNull;
|
||||
property LONG_SUB_CUENTA: SmallInt read GetLONG_SUB_CUENTAValue write SetLONG_SUB_CUENTAValue;
|
||||
property LONG_SUB_CUENTAIsNull: Boolean read GetLONG_SUB_CUENTAIsNull write SetLONG_SUB_CUENTAIsNull;
|
||||
property ID_ASIENTO_APERTURA: Integer read GetID_ASIENTO_APERTURAValue write SetID_ASIENTO_APERTURAValue;
|
||||
property ID_ASIENTO_APERTURAIsNull: Boolean read GetID_ASIENTO_APERTURAIsNull write SetID_ASIENTO_APERTURAIsNull;
|
||||
property ID_ASIENTO_PERYGAN: Integer read GetID_ASIENTO_PERYGANValue write SetID_ASIENTO_PERYGANValue;
|
||||
property ID_ASIENTO_PERYGANIsNull: Boolean read GetID_ASIENTO_PERYGANIsNull write SetID_ASIENTO_PERYGANIsNull;
|
||||
property ID_ASIENTO_CIERRE: Integer read GetID_ASIENTO_CIERREValue write SetID_ASIENTO_CIERREValue;
|
||||
property ID_ASIENTO_CIERREIsNull: Boolean read GetID_ASIENTO_CIERREIsNull write SetID_ASIENTO_CIERREIsNull;
|
||||
property ACTIVO: SmallInt read GetACTIVOValue write SetACTIVOValue;
|
||||
property ACTIVOIsNull: Boolean read GetACTIVOIsNull write SetACTIVOIsNull;
|
||||
end;
|
||||
|
||||
{ TEjerciciosDataTableRules }
|
||||
TEjerciciosDataTableRules = class(TDADataTableRules, IEjercicios)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer; virtual;
|
||||
procedure SetIDValue(const aValue: Integer); virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_EMPRESAValue: Integer; virtual;
|
||||
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
||||
function GetID_EMPRESAIsNull: Boolean; virtual;
|
||||
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
|
||||
function GetNOMBREValue: String; virtual;
|
||||
procedure SetNOMBREValue(const aValue: String); virtual;
|
||||
function GetNOMBREIsNull: Boolean; virtual;
|
||||
procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
|
||||
function GetFECHA_INICIOValue: DateTime; virtual;
|
||||
procedure SetFECHA_INICIOValue(const aValue: DateTime); virtual;
|
||||
function GetFECHA_INICIOIsNull: Boolean; virtual;
|
||||
procedure SetFECHA_INICIOIsNull(const aValue: Boolean); virtual;
|
||||
function GetFECHA_FINValue: DateTime; virtual;
|
||||
procedure SetFECHA_FINValue(const aValue: DateTime); virtual;
|
||||
function GetFECHA_FINIsNull: Boolean; virtual;
|
||||
procedure SetFECHA_FINIsNull(const aValue: Boolean); virtual;
|
||||
function GetESTADOValue: String; virtual;
|
||||
procedure SetESTADOValue(const aValue: String); virtual;
|
||||
function GetESTADOIsNull: Boolean; virtual;
|
||||
procedure SetESTADOIsNull(const aValue: Boolean); virtual;
|
||||
function GetLONG_SUB_CUENTAValue: SmallInt; virtual;
|
||||
procedure SetLONG_SUB_CUENTAValue(const aValue: SmallInt); virtual;
|
||||
function GetLONG_SUB_CUENTAIsNull: Boolean; virtual;
|
||||
procedure SetLONG_SUB_CUENTAIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_ASIENTO_APERTURAValue: Integer; virtual;
|
||||
procedure SetID_ASIENTO_APERTURAValue(const aValue: Integer); virtual;
|
||||
function GetID_ASIENTO_APERTURAIsNull: Boolean; virtual;
|
||||
procedure SetID_ASIENTO_APERTURAIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_ASIENTO_PERYGANValue: Integer; virtual;
|
||||
procedure SetID_ASIENTO_PERYGANValue(const aValue: Integer); virtual;
|
||||
function GetID_ASIENTO_PERYGANIsNull: Boolean; virtual;
|
||||
procedure SetID_ASIENTO_PERYGANIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_ASIENTO_CIERREValue: Integer; virtual;
|
||||
procedure SetID_ASIENTO_CIERREValue(const aValue: Integer); virtual;
|
||||
function GetID_ASIENTO_CIERREIsNull: Boolean; virtual;
|
||||
procedure SetID_ASIENTO_CIERREIsNull(const aValue: Boolean); virtual;
|
||||
function GetACTIVOValue: SmallInt; virtual;
|
||||
procedure SetACTIVOValue(const aValue: SmallInt); virtual;
|
||||
function GetACTIVOIsNull: Boolean; virtual;
|
||||
procedure SetACTIVOIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
||||
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
|
||||
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
||||
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
|
||||
property FECHA_INICIO: DateTime read GetFECHA_INICIOValue write SetFECHA_INICIOValue;
|
||||
property FECHA_INICIOIsNull: Boolean read GetFECHA_INICIOIsNull write SetFECHA_INICIOIsNull;
|
||||
property FECHA_FIN: DateTime read GetFECHA_FINValue write SetFECHA_FINValue;
|
||||
property FECHA_FINIsNull: Boolean read GetFECHA_FINIsNull write SetFECHA_FINIsNull;
|
||||
property ESTADO: String read GetESTADOValue write SetESTADOValue;
|
||||
property ESTADOIsNull: Boolean read GetESTADOIsNull write SetESTADOIsNull;
|
||||
property LONG_SUB_CUENTA: SmallInt read GetLONG_SUB_CUENTAValue write SetLONG_SUB_CUENTAValue;
|
||||
property LONG_SUB_CUENTAIsNull: Boolean read GetLONG_SUB_CUENTAIsNull write SetLONG_SUB_CUENTAIsNull;
|
||||
property ID_ASIENTO_APERTURA: Integer read GetID_ASIENTO_APERTURAValue write SetID_ASIENTO_APERTURAValue;
|
||||
property ID_ASIENTO_APERTURAIsNull: Boolean read GetID_ASIENTO_APERTURAIsNull write SetID_ASIENTO_APERTURAIsNull;
|
||||
property ID_ASIENTO_PERYGAN: Integer read GetID_ASIENTO_PERYGANValue write SetID_ASIENTO_PERYGANValue;
|
||||
property ID_ASIENTO_PERYGANIsNull: Boolean read GetID_ASIENTO_PERYGANIsNull write SetID_ASIENTO_PERYGANIsNull;
|
||||
property ID_ASIENTO_CIERRE: Integer read GetID_ASIENTO_CIERREValue write SetID_ASIENTO_CIERREValue;
|
||||
property ID_ASIENTO_CIERREIsNull: Boolean read GetID_ASIENTO_CIERREIsNull write SetID_ASIENTO_CIERREIsNull;
|
||||
property ACTIVO: SmallInt read GetACTIVOValue write SetACTIVOValue;
|
||||
property ACTIVOIsNull: Boolean read GetACTIVOIsNull write SetACTIVOIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses Variants, uROBinaryHelpers;
|
||||
|
||||
{ TEjerciciosDataTableRules }
|
||||
constructor TEjerciciosDataTableRules.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
destructor TEjerciciosDataTableRules.Destroy;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TEjerciciosDataTableRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EjerciciosID].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosDataTableRules.SetIDValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_EjerciciosID].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TEjerciciosDataTableRules.GetIDIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EjerciciosID].IsNull;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosDataTableRules.SetIDIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_EjerciciosID].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TEjerciciosDataTableRules.GetID_EMPRESAValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EjerciciosID_EMPRESA].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_EjerciciosID_EMPRESA].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TEjerciciosDataTableRules.GetID_EMPRESAIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EjerciciosID_EMPRESA].IsNull;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_EjerciciosID_EMPRESA].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TEjerciciosDataTableRules.GetNOMBREValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EjerciciosNOMBRE].AsString;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosDataTableRules.SetNOMBREValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_EjerciciosNOMBRE].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TEjerciciosDataTableRules.GetNOMBREIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EjerciciosNOMBRE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_EjerciciosNOMBRE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TEjerciciosDataTableRules.GetFECHA_INICIOValue: DateTime;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EjerciciosFECHA_INICIO].AsDateTime;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosDataTableRules.SetFECHA_INICIOValue(const aValue: DateTime);
|
||||
begin
|
||||
DataTable.Fields[idx_EjerciciosFECHA_INICIO].AsDateTime := aValue;
|
||||
end;
|
||||
|
||||
function TEjerciciosDataTableRules.GetFECHA_INICIOIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EjerciciosFECHA_INICIO].IsNull;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosDataTableRules.SetFECHA_INICIOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_EjerciciosFECHA_INICIO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TEjerciciosDataTableRules.GetFECHA_FINValue: DateTime;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EjerciciosFECHA_FIN].AsDateTime;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosDataTableRules.SetFECHA_FINValue(const aValue: DateTime);
|
||||
begin
|
||||
DataTable.Fields[idx_EjerciciosFECHA_FIN].AsDateTime := aValue;
|
||||
end;
|
||||
|
||||
function TEjerciciosDataTableRules.GetFECHA_FINIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EjerciciosFECHA_FIN].IsNull;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosDataTableRules.SetFECHA_FINIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_EjerciciosFECHA_FIN].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TEjerciciosDataTableRules.GetESTADOValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EjerciciosESTADO].AsString;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosDataTableRules.SetESTADOValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_EjerciciosESTADO].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TEjerciciosDataTableRules.GetESTADOIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EjerciciosESTADO].IsNull;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosDataTableRules.SetESTADOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_EjerciciosESTADO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TEjerciciosDataTableRules.GetLONG_SUB_CUENTAValue: SmallInt;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EjerciciosLONG_SUB_CUENTA].AsSmallInt;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosDataTableRules.SetLONG_SUB_CUENTAValue(const aValue: SmallInt);
|
||||
begin
|
||||
DataTable.Fields[idx_EjerciciosLONG_SUB_CUENTA].AsSmallInt := aValue;
|
||||
end;
|
||||
|
||||
function TEjerciciosDataTableRules.GetLONG_SUB_CUENTAIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EjerciciosLONG_SUB_CUENTA].IsNull;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosDataTableRules.SetLONG_SUB_CUENTAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_EjerciciosLONG_SUB_CUENTA].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TEjerciciosDataTableRules.GetID_ASIENTO_APERTURAValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EjerciciosID_ASIENTO_APERTURA].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosDataTableRules.SetID_ASIENTO_APERTURAValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_EjerciciosID_ASIENTO_APERTURA].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TEjerciciosDataTableRules.GetID_ASIENTO_APERTURAIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EjerciciosID_ASIENTO_APERTURA].IsNull;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosDataTableRules.SetID_ASIENTO_APERTURAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_EjerciciosID_ASIENTO_APERTURA].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TEjerciciosDataTableRules.GetID_ASIENTO_PERYGANValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EjerciciosID_ASIENTO_PERYGAN].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosDataTableRules.SetID_ASIENTO_PERYGANValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_EjerciciosID_ASIENTO_PERYGAN].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TEjerciciosDataTableRules.GetID_ASIENTO_PERYGANIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EjerciciosID_ASIENTO_PERYGAN].IsNull;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosDataTableRules.SetID_ASIENTO_PERYGANIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_EjerciciosID_ASIENTO_PERYGAN].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TEjerciciosDataTableRules.GetID_ASIENTO_CIERREValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EjerciciosID_ASIENTO_CIERRE].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosDataTableRules.SetID_ASIENTO_CIERREValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_EjerciciosID_ASIENTO_CIERRE].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TEjerciciosDataTableRules.GetID_ASIENTO_CIERREIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EjerciciosID_ASIENTO_CIERRE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosDataTableRules.SetID_ASIENTO_CIERREIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_EjerciciosID_ASIENTO_CIERRE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TEjerciciosDataTableRules.GetACTIVOValue: SmallInt;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EjerciciosACTIVO].AsSmallInt;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosDataTableRules.SetACTIVOValue(const aValue: SmallInt);
|
||||
begin
|
||||
DataTable.Fields[idx_EjerciciosACTIVO].AsSmallInt := aValue;
|
||||
end;
|
||||
|
||||
function TEjerciciosDataTableRules.GetACTIVOIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EjerciciosACTIVO].IsNull;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosDataTableRules.SetACTIVOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_EjerciciosACTIVO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
initialization
|
||||
RegisterDataTableRules(RID_Ejercicios, TEjerciciosDataTableRules);
|
||||
|
||||
end.
|
||||
@ -0,0 +1,530 @@
|
||||
unit schEjerciciosServer_Intf;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schEjerciciosClient_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_EjerciciosDelta = '{CDD1664B-E7FC-4A22-B77D-7FE7419A3314}';
|
||||
|
||||
type
|
||||
{ IEjerciciosDelta }
|
||||
IEjerciciosDelta = interface(IEjercicios)
|
||||
['{CDD1664B-E7FC-4A22-B77D-7FE7419A3314}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
function GetOldNOMBREValue : String;
|
||||
function GetOldFECHA_INICIOValue : DateTime;
|
||||
function GetOldFECHA_FINValue : DateTime;
|
||||
function GetOldESTADOValue : String;
|
||||
function GetOldLONG_SUB_CUENTAValue : SmallInt;
|
||||
function GetOldID_ASIENTO_APERTURAValue : Integer;
|
||||
function GetOldID_ASIENTO_PERYGANValue : Integer;
|
||||
function GetOldID_ASIENTO_CIERREValue : Integer;
|
||||
function GetOldACTIVOValue : SmallInt;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
||||
property OldNOMBRE : String read GetOldNOMBREValue;
|
||||
property OldFECHA_INICIO : DateTime read GetOldFECHA_INICIOValue;
|
||||
property OldFECHA_FIN : DateTime read GetOldFECHA_FINValue;
|
||||
property OldESTADO : String read GetOldESTADOValue;
|
||||
property OldLONG_SUB_CUENTA : SmallInt read GetOldLONG_SUB_CUENTAValue;
|
||||
property OldID_ASIENTO_APERTURA : Integer read GetOldID_ASIENTO_APERTURAValue;
|
||||
property OldID_ASIENTO_PERYGAN : Integer read GetOldID_ASIENTO_PERYGANValue;
|
||||
property OldID_ASIENTO_CIERRE : Integer read GetOldID_ASIENTO_CIERREValue;
|
||||
property OldACTIVO : SmallInt read GetOldACTIVOValue;
|
||||
end;
|
||||
|
||||
{ TEjerciciosBusinessProcessorRules }
|
||||
TEjerciciosBusinessProcessorRules = class(TDABusinessProcessorRules, IEjercicios, IEjerciciosDelta)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer; virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
function GetOldIDValue: Integer; virtual;
|
||||
function GetOldIDIsNull: Boolean; virtual;
|
||||
procedure SetIDValue(const aValue: Integer); virtual;
|
||||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_EMPRESAValue: Integer; virtual;
|
||||
function GetID_EMPRESAIsNull: Boolean; virtual;
|
||||
function GetOldID_EMPRESAValue: Integer; virtual;
|
||||
function GetOldID_EMPRESAIsNull: Boolean; virtual;
|
||||
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
||||
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
|
||||
function GetNOMBREValue: String; virtual;
|
||||
function GetNOMBREIsNull: Boolean; virtual;
|
||||
function GetOldNOMBREValue: String; virtual;
|
||||
function GetOldNOMBREIsNull: Boolean; virtual;
|
||||
procedure SetNOMBREValue(const aValue: String); virtual;
|
||||
procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
|
||||
function GetFECHA_INICIOValue: DateTime; virtual;
|
||||
function GetFECHA_INICIOIsNull: Boolean; virtual;
|
||||
function GetOldFECHA_INICIOValue: DateTime; virtual;
|
||||
function GetOldFECHA_INICIOIsNull: Boolean; virtual;
|
||||
procedure SetFECHA_INICIOValue(const aValue: DateTime); virtual;
|
||||
procedure SetFECHA_INICIOIsNull(const aValue: Boolean); virtual;
|
||||
function GetFECHA_FINValue: DateTime; virtual;
|
||||
function GetFECHA_FINIsNull: Boolean; virtual;
|
||||
function GetOldFECHA_FINValue: DateTime; virtual;
|
||||
function GetOldFECHA_FINIsNull: Boolean; virtual;
|
||||
procedure SetFECHA_FINValue(const aValue: DateTime); virtual;
|
||||
procedure SetFECHA_FINIsNull(const aValue: Boolean); virtual;
|
||||
function GetESTADOValue: String; virtual;
|
||||
function GetESTADOIsNull: Boolean; virtual;
|
||||
function GetOldESTADOValue: String; virtual;
|
||||
function GetOldESTADOIsNull: Boolean; virtual;
|
||||
procedure SetESTADOValue(const aValue: String); virtual;
|
||||
procedure SetESTADOIsNull(const aValue: Boolean); virtual;
|
||||
function GetLONG_SUB_CUENTAValue: SmallInt; virtual;
|
||||
function GetLONG_SUB_CUENTAIsNull: Boolean; virtual;
|
||||
function GetOldLONG_SUB_CUENTAValue: SmallInt; virtual;
|
||||
function GetOldLONG_SUB_CUENTAIsNull: Boolean; virtual;
|
||||
procedure SetLONG_SUB_CUENTAValue(const aValue: SmallInt); virtual;
|
||||
procedure SetLONG_SUB_CUENTAIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_ASIENTO_APERTURAValue: Integer; virtual;
|
||||
function GetID_ASIENTO_APERTURAIsNull: Boolean; virtual;
|
||||
function GetOldID_ASIENTO_APERTURAValue: Integer; virtual;
|
||||
function GetOldID_ASIENTO_APERTURAIsNull: Boolean; virtual;
|
||||
procedure SetID_ASIENTO_APERTURAValue(const aValue: Integer); virtual;
|
||||
procedure SetID_ASIENTO_APERTURAIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_ASIENTO_PERYGANValue: Integer; virtual;
|
||||
function GetID_ASIENTO_PERYGANIsNull: Boolean; virtual;
|
||||
function GetOldID_ASIENTO_PERYGANValue: Integer; virtual;
|
||||
function GetOldID_ASIENTO_PERYGANIsNull: Boolean; virtual;
|
||||
procedure SetID_ASIENTO_PERYGANValue(const aValue: Integer); virtual;
|
||||
procedure SetID_ASIENTO_PERYGANIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_ASIENTO_CIERREValue: Integer; virtual;
|
||||
function GetID_ASIENTO_CIERREIsNull: Boolean; virtual;
|
||||
function GetOldID_ASIENTO_CIERREValue: Integer; virtual;
|
||||
function GetOldID_ASIENTO_CIERREIsNull: Boolean; virtual;
|
||||
procedure SetID_ASIENTO_CIERREValue(const aValue: Integer); virtual;
|
||||
procedure SetID_ASIENTO_CIERREIsNull(const aValue: Boolean); virtual;
|
||||
function GetACTIVOValue: SmallInt; virtual;
|
||||
function GetACTIVOIsNull: Boolean; virtual;
|
||||
function GetOldACTIVOValue: SmallInt; virtual;
|
||||
function GetOldACTIVOIsNull: Boolean; virtual;
|
||||
procedure SetACTIVOValue(const aValue: SmallInt); virtual;
|
||||
procedure SetACTIVOIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldIDIsNull : Boolean read GetOldIDIsNull;
|
||||
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
||||
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
|
||||
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
||||
property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
|
||||
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
|
||||
property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
|
||||
property OldNOMBRE : String read GetOldNOMBREValue;
|
||||
property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
|
||||
property FECHA_INICIO : DateTime read GetFECHA_INICIOValue write SetFECHA_INICIOValue;
|
||||
property FECHA_INICIOIsNull : Boolean read GetFECHA_INICIOIsNull write SetFECHA_INICIOIsNull;
|
||||
property OldFECHA_INICIO : DateTime read GetOldFECHA_INICIOValue;
|
||||
property OldFECHA_INICIOIsNull : Boolean read GetOldFECHA_INICIOIsNull;
|
||||
property FECHA_FIN : DateTime read GetFECHA_FINValue write SetFECHA_FINValue;
|
||||
property FECHA_FINIsNull : Boolean read GetFECHA_FINIsNull write SetFECHA_FINIsNull;
|
||||
property OldFECHA_FIN : DateTime read GetOldFECHA_FINValue;
|
||||
property OldFECHA_FINIsNull : Boolean read GetOldFECHA_FINIsNull;
|
||||
property ESTADO : String read GetESTADOValue write SetESTADOValue;
|
||||
property ESTADOIsNull : Boolean read GetESTADOIsNull write SetESTADOIsNull;
|
||||
property OldESTADO : String read GetOldESTADOValue;
|
||||
property OldESTADOIsNull : Boolean read GetOldESTADOIsNull;
|
||||
property LONG_SUB_CUENTA : SmallInt read GetLONG_SUB_CUENTAValue write SetLONG_SUB_CUENTAValue;
|
||||
property LONG_SUB_CUENTAIsNull : Boolean read GetLONG_SUB_CUENTAIsNull write SetLONG_SUB_CUENTAIsNull;
|
||||
property OldLONG_SUB_CUENTA : SmallInt read GetOldLONG_SUB_CUENTAValue;
|
||||
property OldLONG_SUB_CUENTAIsNull : Boolean read GetOldLONG_SUB_CUENTAIsNull;
|
||||
property ID_ASIENTO_APERTURA : Integer read GetID_ASIENTO_APERTURAValue write SetID_ASIENTO_APERTURAValue;
|
||||
property ID_ASIENTO_APERTURAIsNull : Boolean read GetID_ASIENTO_APERTURAIsNull write SetID_ASIENTO_APERTURAIsNull;
|
||||
property OldID_ASIENTO_APERTURA : Integer read GetOldID_ASIENTO_APERTURAValue;
|
||||
property OldID_ASIENTO_APERTURAIsNull : Boolean read GetOldID_ASIENTO_APERTURAIsNull;
|
||||
property ID_ASIENTO_PERYGAN : Integer read GetID_ASIENTO_PERYGANValue write SetID_ASIENTO_PERYGANValue;
|
||||
property ID_ASIENTO_PERYGANIsNull : Boolean read GetID_ASIENTO_PERYGANIsNull write SetID_ASIENTO_PERYGANIsNull;
|
||||
property OldID_ASIENTO_PERYGAN : Integer read GetOldID_ASIENTO_PERYGANValue;
|
||||
property OldID_ASIENTO_PERYGANIsNull : Boolean read GetOldID_ASIENTO_PERYGANIsNull;
|
||||
property ID_ASIENTO_CIERRE : Integer read GetID_ASIENTO_CIERREValue write SetID_ASIENTO_CIERREValue;
|
||||
property ID_ASIENTO_CIERREIsNull : Boolean read GetID_ASIENTO_CIERREIsNull write SetID_ASIENTO_CIERREIsNull;
|
||||
property OldID_ASIENTO_CIERRE : Integer read GetOldID_ASIENTO_CIERREValue;
|
||||
property OldID_ASIENTO_CIERREIsNull : Boolean read GetOldID_ASIENTO_CIERREIsNull;
|
||||
property ACTIVO : SmallInt read GetACTIVOValue write SetACTIVOValue;
|
||||
property ACTIVOIsNull : Boolean read GetACTIVOIsNull write SetACTIVOIsNull;
|
||||
property OldACTIVO : SmallInt read GetOldACTIVOValue;
|
||||
property OldACTIVOIsNull : Boolean read GetOldACTIVOIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
Variants, uROBinaryHelpers, uDAInterfaces;
|
||||
|
||||
{ TEjerciciosBusinessProcessorRules }
|
||||
constructor TEjerciciosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
destructor TEjerciciosBusinessProcessorRules.Destroy;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID];
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetIDIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID]);
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetOldIDValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosID];
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosID]);
|
||||
end;
|
||||
|
||||
procedure TEjerciciosBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID] := aValue;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID] := Null;
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetID_EMPRESAValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_EMPRESA];
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_EMPRESA]);
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosID_EMPRESA];
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosID_EMPRESA]);
|
||||
end;
|
||||
|
||||
procedure TEjerciciosBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_EMPRESA] := aValue;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_EMPRESA] := Null;
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetNOMBREValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosNOMBRE];
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetNOMBREIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosNOMBRE]);
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetOldNOMBREValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosNOMBRE];
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosNOMBRE]);
|
||||
end;
|
||||
|
||||
procedure TEjerciciosBusinessProcessorRules.SetNOMBREValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosNOMBRE] := aValue;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosNOMBRE] := Null;
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetFECHA_INICIOValue: DateTime;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosFECHA_INICIO];
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetFECHA_INICIOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosFECHA_INICIO]);
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetOldFECHA_INICIOValue: DateTime;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosFECHA_INICIO];
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetOldFECHA_INICIOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosFECHA_INICIO]);
|
||||
end;
|
||||
|
||||
procedure TEjerciciosBusinessProcessorRules.SetFECHA_INICIOValue(const aValue: DateTime);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosFECHA_INICIO] := aValue;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosBusinessProcessorRules.SetFECHA_INICIOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosFECHA_INICIO] := Null;
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetFECHA_FINValue: DateTime;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosFECHA_FIN];
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetFECHA_FINIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosFECHA_FIN]);
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetOldFECHA_FINValue: DateTime;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosFECHA_FIN];
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetOldFECHA_FINIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosFECHA_FIN]);
|
||||
end;
|
||||
|
||||
procedure TEjerciciosBusinessProcessorRules.SetFECHA_FINValue(const aValue: DateTime);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosFECHA_FIN] := aValue;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosBusinessProcessorRules.SetFECHA_FINIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosFECHA_FIN] := Null;
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetESTADOValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosESTADO];
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetESTADOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosESTADO]);
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetOldESTADOValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosESTADO];
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetOldESTADOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosESTADO]);
|
||||
end;
|
||||
|
||||
procedure TEjerciciosBusinessProcessorRules.SetESTADOValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosESTADO] := aValue;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosBusinessProcessorRules.SetESTADOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosESTADO] := Null;
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetLONG_SUB_CUENTAValue: SmallInt;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosLONG_SUB_CUENTA];
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetLONG_SUB_CUENTAIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosLONG_SUB_CUENTA]);
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetOldLONG_SUB_CUENTAValue: SmallInt;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosLONG_SUB_CUENTA];
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetOldLONG_SUB_CUENTAIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosLONG_SUB_CUENTA]);
|
||||
end;
|
||||
|
||||
procedure TEjerciciosBusinessProcessorRules.SetLONG_SUB_CUENTAValue(const aValue: SmallInt);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosLONG_SUB_CUENTA] := aValue;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosBusinessProcessorRules.SetLONG_SUB_CUENTAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosLONG_SUB_CUENTA] := Null;
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetID_ASIENTO_APERTURAValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_ASIENTO_APERTURA];
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetID_ASIENTO_APERTURAIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_ASIENTO_APERTURA]);
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetOldID_ASIENTO_APERTURAValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosID_ASIENTO_APERTURA];
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetOldID_ASIENTO_APERTURAIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosID_ASIENTO_APERTURA]);
|
||||
end;
|
||||
|
||||
procedure TEjerciciosBusinessProcessorRules.SetID_ASIENTO_APERTURAValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_ASIENTO_APERTURA] := aValue;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosBusinessProcessorRules.SetID_ASIENTO_APERTURAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_ASIENTO_APERTURA] := Null;
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetID_ASIENTO_PERYGANValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_ASIENTO_PERYGAN];
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetID_ASIENTO_PERYGANIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_ASIENTO_PERYGAN]);
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetOldID_ASIENTO_PERYGANValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosID_ASIENTO_PERYGAN];
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetOldID_ASIENTO_PERYGANIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosID_ASIENTO_PERYGAN]);
|
||||
end;
|
||||
|
||||
procedure TEjerciciosBusinessProcessorRules.SetID_ASIENTO_PERYGANValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_ASIENTO_PERYGAN] := aValue;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosBusinessProcessorRules.SetID_ASIENTO_PERYGANIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_ASIENTO_PERYGAN] := Null;
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetID_ASIENTO_CIERREValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_ASIENTO_CIERRE];
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetID_ASIENTO_CIERREIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_ASIENTO_CIERRE]);
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetOldID_ASIENTO_CIERREValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosID_ASIENTO_CIERRE];
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetOldID_ASIENTO_CIERREIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosID_ASIENTO_CIERRE]);
|
||||
end;
|
||||
|
||||
procedure TEjerciciosBusinessProcessorRules.SetID_ASIENTO_CIERREValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_ASIENTO_CIERRE] := aValue;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosBusinessProcessorRules.SetID_ASIENTO_CIERREIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosID_ASIENTO_CIERRE] := Null;
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetACTIVOValue: SmallInt;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosACTIVO];
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetACTIVOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosACTIVO]);
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetOldACTIVOValue: SmallInt;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosACTIVO];
|
||||
end;
|
||||
|
||||
function TEjerciciosBusinessProcessorRules.GetOldACTIVOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EjerciciosACTIVO]);
|
||||
end;
|
||||
|
||||
procedure TEjerciciosBusinessProcessorRules.SetACTIVOValue(const aValue: SmallInt);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosACTIVO] := aValue;
|
||||
end;
|
||||
|
||||
procedure TEjerciciosBusinessProcessorRules.SetACTIVOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EjerciciosACTIVO] := Null;
|
||||
end;
|
||||
|
||||
|
||||
initialization
|
||||
RegisterBusinessProcessorRules(RID_EjerciciosDelta, TEjerciciosBusinessProcessorRules);
|
||||
|
||||
end.
|
||||
55
Source/ApplicationBase/Ejercicios/Model/uBizEjercicios.pas
Normal file
55
Source/ApplicationBase/Ejercicios/Model/uBizEjercicios.pas
Normal file
@ -0,0 +1,55 @@
|
||||
unit uBizEjercicios;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uDAInterfaces, uDADataTable, schEjerciciosClient_Intf;
|
||||
|
||||
const
|
||||
BIZ_CLIENT_Ejercicio = 'Client.Ejercicio';
|
||||
|
||||
type
|
||||
IBizEjercicio = interface(IEjercicios)
|
||||
['{328DA20D-75E5-47D5-A0D6-C7036E2A038F}']
|
||||
function EsNuevo : Boolean;
|
||||
end;
|
||||
|
||||
TBizEjercicio = class(TEjerciciosDataTableRules, IBizEjercicio)
|
||||
protected
|
||||
procedure OnNewRecord(Sender: TDADataTable); override;
|
||||
public
|
||||
procedure IniciarValoresEjercicioNueva;
|
||||
function EsNuevo : Boolean;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TBizEjercicio }
|
||||
|
||||
uses
|
||||
SysUtils, uDataTableUtils, uFactuGES_App;
|
||||
|
||||
function TBizEjercicio.EsNuevo: Boolean;
|
||||
begin
|
||||
Result := (ID < 0);
|
||||
end;
|
||||
|
||||
procedure TBizEjercicio.IniciarValoresEjercicioNueva;
|
||||
begin
|
||||
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
|
||||
ACTIVO := 1;
|
||||
end;
|
||||
|
||||
procedure TBizEjercicio.OnNewRecord(Sender: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
IniciarValoresEjercicioNueva;
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterDataTableRules(BIZ_CLIENT_Ejercicio, TBizEjercicio);
|
||||
|
||||
finalization
|
||||
|
||||
end.
|
||||
|
||||
@ -0,0 +1,57 @@
|
||||
unit uBizEjerciciosServer;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uDAInterfaces, uDADelta, uDABusinessProcessor,
|
||||
schEjerciciosServer_Intf;
|
||||
|
||||
const
|
||||
BIZ_SERVER_EJERCICIOS = 'Server.Ejercicios';
|
||||
|
||||
type
|
||||
TBizEjerciciosServer = class(TEjerciciosBusinessProcessorRules)
|
||||
protected
|
||||
procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses, uDataModuleServer,
|
||||
schEjerciciosClient_Intf;
|
||||
|
||||
{ TBizEjerciciosServer }
|
||||
|
||||
procedure TBizEjerciciosServer.BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta);
|
||||
var
|
||||
ASchema : TDASchema;
|
||||
ACurrentConn : IDAConnection;
|
||||
Empresa : Variant;
|
||||
|
||||
begin
|
||||
inherited;
|
||||
case Sender.CurrentChange.ChangeType of
|
||||
ctInsert, ctUpdate: begin
|
||||
//Si el ejercicio es activo debemos poner los demas ejercicios de la empresa a no activos
|
||||
if (Sender.CurrentChange.NewValueByName[fld_EjerciciosACTIVO] = 1) then
|
||||
begin
|
||||
ASchema := BusinessProcessor.Schema;
|
||||
ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
|
||||
|
||||
try
|
||||
//Siempre va a estar rellena
|
||||
Empresa := Sender.CurrentChange.NewValueByName[fld_EjerciciosID_EMPRESA];
|
||||
ASchema.NewCommand(ACurrentConn, 'SetEjerciciosNoActivos', ['ID_EMPRESA'], [Empresa])
|
||||
except
|
||||
RaiseError('Error al desactivar los ejercicios de la empresa');
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterBusinessProcessorRules(BIZ_SERVER_EJERCICIOS, TBizEjerciciosServer);
|
||||
|
||||
end.
|
||||
Loading…
Reference in New Issue
Block a user