git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@309 c93665c3-c93d-084d-9b98-7d5f4a9c3376
911 lines
36 KiB
ObjectPascal
911 lines
36 KiB
ObjectPascal
unit schRemesasProveedorClient_Intf;
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, DB, SysUtils, uROClasses, uDADataTable;
|
|
|
|
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_ListaAnosRemesas = '{25DE85B4-DA4E-4DA7-ACC0-960EC1B035C5}';
|
|
RID_darReferencia = '{5181C1C2-7262-4AE3-8F53-785C9B2333EE}';
|
|
RID_RemesasProveedor = '{45E53708-C9B3-493F-A7E5-07E44D1E3B40}';
|
|
RID_RemesasProveedor_Refresh = '{CD0FFFE0-5E3E-437B-83A9-D5AFAEB972DE}';
|
|
|
|
{ Data table names }
|
|
nme_ListaAnosRemesas = 'ListaAnosRemesas';
|
|
nme_darReferencia = 'darReferencia';
|
|
nme_RemesasProveedor = 'RemesasProveedor';
|
|
nme_RemesasProveedor_Refresh = 'RemesasProveedor_Refresh';
|
|
|
|
{ ListaAnosRemesas fields }
|
|
fld_ListaAnosRemesasANO = 'ANO';
|
|
|
|
{ ListaAnosRemesas field indexes }
|
|
idx_ListaAnosRemesasANO = 0;
|
|
|
|
{ darReferencia fields }
|
|
fld_darReferenciaVALOR = 'VALOR';
|
|
|
|
{ darReferencia field indexes }
|
|
idx_darReferenciaVALOR = 0;
|
|
|
|
{ RemesasProveedor fields }
|
|
fld_RemesasProveedorID = 'ID';
|
|
fld_RemesasProveedorID_EMPRESA = 'ID_EMPRESA';
|
|
fld_RemesasProveedorREFERENCIA = 'REFERENCIA';
|
|
fld_RemesasProveedorTIPO = 'TIPO';
|
|
fld_RemesasProveedorFECHA_REMESA = 'FECHA_REMESA';
|
|
fld_RemesasProveedorDESCRIPCION = 'DESCRIPCION';
|
|
fld_RemesasProveedorUSUARIO = 'USUARIO';
|
|
fld_RemesasProveedorID_DATOS_BANCO = 'ID_DATOS_BANCO';
|
|
fld_RemesasProveedorFECHA_ALTA = 'FECHA_ALTA';
|
|
fld_RemesasProveedorFECHA_MODIFICACION = 'FECHA_MODIFICACION';
|
|
fld_RemesasProveedorIMPORTE_TOTAL = 'IMPORTE_TOTAL';
|
|
fld_RemesasProveedorNOMBRE = 'NOMBRE';
|
|
fld_RemesasProveedorENTIDAD = 'ENTIDAD';
|
|
fld_RemesasProveedorSUCURSAL = 'SUCURSAL';
|
|
fld_RemesasProveedorDC = 'DC';
|
|
fld_RemesasProveedorCUENTA = 'CUENTA';
|
|
fld_RemesasProveedorSUFIJO_N19 = 'SUFIJO_N19';
|
|
fld_RemesasProveedorNUM_COPIAS = 'NUM_COPIAS';
|
|
fld_RemesasProveedorSUFIJO_N58 = 'SUFIJO_N58';
|
|
|
|
{ RemesasProveedor field indexes }
|
|
idx_RemesasProveedorID = 0;
|
|
idx_RemesasProveedorID_EMPRESA = 1;
|
|
idx_RemesasProveedorREFERENCIA = 2;
|
|
idx_RemesasProveedorTIPO = 3;
|
|
idx_RemesasProveedorFECHA_REMESA = 4;
|
|
idx_RemesasProveedorDESCRIPCION = 5;
|
|
idx_RemesasProveedorUSUARIO = 6;
|
|
idx_RemesasProveedorID_DATOS_BANCO = 7;
|
|
idx_RemesasProveedorFECHA_ALTA = 8;
|
|
idx_RemesasProveedorFECHA_MODIFICACION = 9;
|
|
idx_RemesasProveedorIMPORTE_TOTAL = 10;
|
|
idx_RemesasProveedorNOMBRE = 11;
|
|
idx_RemesasProveedorENTIDAD = 12;
|
|
idx_RemesasProveedorSUCURSAL = 13;
|
|
idx_RemesasProveedorDC = 14;
|
|
idx_RemesasProveedorCUENTA = 15;
|
|
idx_RemesasProveedorSUFIJO_N19 = 16;
|
|
idx_RemesasProveedorNUM_COPIAS = 17;
|
|
idx_RemesasProveedorSUFIJO_N58 = 18;
|
|
|
|
{ RemesasProveedor_Refresh fields }
|
|
fld_RemesasProveedor_RefreshID = 'ID';
|
|
fld_RemesasProveedor_RefreshID_EMPRESA = 'ID_EMPRESA';
|
|
fld_RemesasProveedor_RefreshREFERENCIA = 'REFERENCIA';
|
|
fld_RemesasProveedor_RefreshTIPO = 'TIPO';
|
|
fld_RemesasProveedor_RefreshFECHA_REMESA = 'FECHA_REMESA';
|
|
fld_RemesasProveedor_RefreshDESCRIPCION = 'DESCRIPCION';
|
|
fld_RemesasProveedor_RefreshUSUARIO = 'USUARIO';
|
|
fld_RemesasProveedor_RefreshID_DATOS_BANCO = 'ID_DATOS_BANCO';
|
|
fld_RemesasProveedor_RefreshFECHA_ALTA = 'FECHA_ALTA';
|
|
fld_RemesasProveedor_RefreshFECHA_MODIFICACION = 'FECHA_MODIFICACION';
|
|
fld_RemesasProveedor_RefreshIMPORTE_TOTAL = 'IMPORTE_TOTAL';
|
|
fld_RemesasProveedor_RefreshNOMBRE = 'NOMBRE';
|
|
fld_RemesasProveedor_RefreshENTIDAD = 'ENTIDAD';
|
|
fld_RemesasProveedor_RefreshSUCURSAL = 'SUCURSAL';
|
|
fld_RemesasProveedor_RefreshDC = 'DC';
|
|
fld_RemesasProveedor_RefreshCUENTA = 'CUENTA';
|
|
fld_RemesasProveedor_RefreshSUFIJO_N19 = 'SUFIJO_N19';
|
|
fld_RemesasProveedor_RefreshNUM_COPIAS = 'NUM_COPIAS';
|
|
fld_RemesasProveedor_RefreshSUFIJO_N58 = 'SUFIJO_N58';
|
|
|
|
{ RemesasProveedor_Refresh field indexes }
|
|
idx_RemesasProveedor_RefreshID = 0;
|
|
idx_RemesasProveedor_RefreshID_EMPRESA = 1;
|
|
idx_RemesasProveedor_RefreshREFERENCIA = 2;
|
|
idx_RemesasProveedor_RefreshTIPO = 3;
|
|
idx_RemesasProveedor_RefreshFECHA_REMESA = 4;
|
|
idx_RemesasProveedor_RefreshDESCRIPCION = 5;
|
|
idx_RemesasProveedor_RefreshUSUARIO = 6;
|
|
idx_RemesasProveedor_RefreshID_DATOS_BANCO = 7;
|
|
idx_RemesasProveedor_RefreshFECHA_ALTA = 8;
|
|
idx_RemesasProveedor_RefreshFECHA_MODIFICACION = 9;
|
|
idx_RemesasProveedor_RefreshIMPORTE_TOTAL = 10;
|
|
idx_RemesasProveedor_RefreshNOMBRE = 11;
|
|
idx_RemesasProveedor_RefreshENTIDAD = 12;
|
|
idx_RemesasProveedor_RefreshSUCURSAL = 13;
|
|
idx_RemesasProveedor_RefreshDC = 14;
|
|
idx_RemesasProveedor_RefreshCUENTA = 15;
|
|
idx_RemesasProveedor_RefreshSUFIJO_N19 = 16;
|
|
idx_RemesasProveedor_RefreshNUM_COPIAS = 17;
|
|
idx_RemesasProveedor_RefreshSUFIJO_N58 = 18;
|
|
|
|
type
|
|
{ IListaAnosRemesas }
|
|
IListaAnosRemesas = interface(IDAStronglyTypedDataTable)
|
|
['{C6918980-686B-43C9-ADD9-24F2869D2548}']
|
|
{ Property getters and setters }
|
|
function GetANOValue: String;
|
|
procedure SetANOValue(const aValue: String);
|
|
|
|
|
|
{ Properties }
|
|
property ANO: String read GetANOValue write SetANOValue;
|
|
end;
|
|
|
|
{ TListaAnosRemesasDataTableRules }
|
|
TListaAnosRemesasDataTableRules = class(TDADataTableRules, IListaAnosRemesas)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetANOValue: String; virtual;
|
|
procedure SetANOValue(const aValue: String); virtual;
|
|
|
|
{ Properties }
|
|
property ANO: String read GetANOValue write SetANOValue;
|
|
|
|
public
|
|
constructor Create(aDataTable: TDADataTable); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IdarReferencia }
|
|
IdarReferencia = interface(IDAStronglyTypedDataTable)
|
|
['{58F7E4B9-122E-4B0E-A8FC-2250E8DFE0F3}']
|
|
{ Property getters and setters }
|
|
function GetVALORValue: String;
|
|
procedure SetVALORValue(const aValue: String);
|
|
|
|
|
|
{ Properties }
|
|
property VALOR: String read GetVALORValue write SetVALORValue;
|
|
end;
|
|
|
|
{ TdarReferenciaDataTableRules }
|
|
TdarReferenciaDataTableRules = class(TDADataTableRules, IdarReferencia)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetVALORValue: String; virtual;
|
|
procedure SetVALORValue(const aValue: String); virtual;
|
|
|
|
{ Properties }
|
|
property VALOR: String read GetVALORValue write SetVALORValue;
|
|
|
|
public
|
|
constructor Create(aDataTable: TDADataTable); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IRemesasProveedor }
|
|
IRemesasProveedor = interface(IDAStronglyTypedDataTable)
|
|
['{12BC2EC9-3D9C-40C6-A8C6-81808D261864}']
|
|
{ Property getters and setters }
|
|
function GetIDValue: Integer;
|
|
procedure SetIDValue(const aValue: Integer);
|
|
function GetID_EMPRESAValue: Integer;
|
|
procedure SetID_EMPRESAValue(const aValue: Integer);
|
|
function GetREFERENCIAValue: String;
|
|
procedure SetREFERENCIAValue(const aValue: String);
|
|
function GetTIPOValue: String;
|
|
procedure SetTIPOValue(const aValue: String);
|
|
function GetFECHA_REMESAValue: DateTime;
|
|
procedure SetFECHA_REMESAValue(const aValue: DateTime);
|
|
function GetDESCRIPCIONValue: String;
|
|
procedure SetDESCRIPCIONValue(const aValue: String);
|
|
function GetUSUARIOValue: String;
|
|
procedure SetUSUARIOValue(const aValue: String);
|
|
function GetID_DATOS_BANCOValue: Integer;
|
|
procedure SetID_DATOS_BANCOValue(const aValue: Integer);
|
|
function GetFECHA_ALTAValue: DateTime;
|
|
procedure SetFECHA_ALTAValue(const aValue: DateTime);
|
|
function GetFECHA_MODIFICACIONValue: DateTime;
|
|
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
function GetIMPORTE_TOTALValue: Float;
|
|
procedure SetIMPORTE_TOTALValue(const aValue: Float);
|
|
function GetNOMBREValue: String;
|
|
procedure SetNOMBREValue(const aValue: String);
|
|
function GetENTIDADValue: String;
|
|
procedure SetENTIDADValue(const aValue: String);
|
|
function GetSUCURSALValue: String;
|
|
procedure SetSUCURSALValue(const aValue: String);
|
|
function GetDCValue: String;
|
|
procedure SetDCValue(const aValue: String);
|
|
function GetCUENTAValue: String;
|
|
procedure SetCUENTAValue(const aValue: String);
|
|
function GetSUFIJO_N19Value: String;
|
|
procedure SetSUFIJO_N19Value(const aValue: String);
|
|
function GetNUM_COPIASValue: Integer;
|
|
procedure SetNUM_COPIASValue(const aValue: Integer);
|
|
function GetSUFIJO_N58Value: String;
|
|
procedure SetSUFIJO_N58Value(const aValue: String);
|
|
|
|
|
|
{ Properties }
|
|
property ID: Integer read GetIDValue write SetIDValue;
|
|
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
property TIPO: String read GetTIPOValue write SetTIPOValue;
|
|
property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
|
|
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
|
property ID_DATOS_BANCO: Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue;
|
|
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
|
|
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
|
|
property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
|
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
|
property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue;
|
|
property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue;
|
|
property DC: String read GetDCValue write SetDCValue;
|
|
property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
|
|
property SUFIJO_N19: String read GetSUFIJO_N19Value write SetSUFIJO_N19Value;
|
|
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
|
|
property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
|
|
end;
|
|
|
|
{ TRemesasProveedorDataTableRules }
|
|
TRemesasProveedorDataTableRules = class(TDADataTableRules, IRemesasProveedor)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetIDValue: Integer; virtual;
|
|
procedure SetIDValue(const aValue: Integer); virtual;
|
|
function GetID_EMPRESAValue: Integer; virtual;
|
|
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
|
function GetREFERENCIAValue: String; virtual;
|
|
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
|
function GetTIPOValue: String; virtual;
|
|
procedure SetTIPOValue(const aValue: String); virtual;
|
|
function GetFECHA_REMESAValue: DateTime; virtual;
|
|
procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual;
|
|
function GetDESCRIPCIONValue: String; virtual;
|
|
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
|
function GetUSUARIOValue: String; virtual;
|
|
procedure SetUSUARIOValue(const aValue: String); virtual;
|
|
function GetID_DATOS_BANCOValue: Integer; virtual;
|
|
procedure SetID_DATOS_BANCOValue(const aValue: Integer); virtual;
|
|
function GetFECHA_ALTAValue: DateTime; virtual;
|
|
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
|
|
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
|
|
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
|
|
function GetIMPORTE_TOTALValue: Float; virtual;
|
|
procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
|
|
function GetNOMBREValue: String; virtual;
|
|
procedure SetNOMBREValue(const aValue: String); virtual;
|
|
function GetENTIDADValue: String; virtual;
|
|
procedure SetENTIDADValue(const aValue: String); virtual;
|
|
function GetSUCURSALValue: String; virtual;
|
|
procedure SetSUCURSALValue(const aValue: String); virtual;
|
|
function GetDCValue: String; virtual;
|
|
procedure SetDCValue(const aValue: String); virtual;
|
|
function GetCUENTAValue: String; virtual;
|
|
procedure SetCUENTAValue(const aValue: String); virtual;
|
|
function GetSUFIJO_N19Value: String; virtual;
|
|
procedure SetSUFIJO_N19Value(const aValue: String); virtual;
|
|
function GetNUM_COPIASValue: Integer; virtual;
|
|
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
|
|
function GetSUFIJO_N58Value: String; virtual;
|
|
procedure SetSUFIJO_N58Value(const aValue: String); virtual;
|
|
|
|
{ Properties }
|
|
property ID: Integer read GetIDValue write SetIDValue;
|
|
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
property TIPO: String read GetTIPOValue write SetTIPOValue;
|
|
property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
|
|
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
|
property ID_DATOS_BANCO: Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue;
|
|
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
|
|
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
|
|
property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
|
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
|
property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue;
|
|
property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue;
|
|
property DC: String read GetDCValue write SetDCValue;
|
|
property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
|
|
property SUFIJO_N19: String read GetSUFIJO_N19Value write SetSUFIJO_N19Value;
|
|
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
|
|
property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
|
|
|
|
public
|
|
constructor Create(aDataTable: TDADataTable); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IRemesasProveedor_Refresh }
|
|
IRemesasProveedor_Refresh = interface(IDAStronglyTypedDataTable)
|
|
['{43F4455C-1139-452D-8D91-7B9011C927E1}']
|
|
{ Property getters and setters }
|
|
function GetIDValue: Integer;
|
|
procedure SetIDValue(const aValue: Integer);
|
|
function GetID_EMPRESAValue: Integer;
|
|
procedure SetID_EMPRESAValue(const aValue: Integer);
|
|
function GetREFERENCIAValue: String;
|
|
procedure SetREFERENCIAValue(const aValue: String);
|
|
function GetTIPOValue: String;
|
|
procedure SetTIPOValue(const aValue: String);
|
|
function GetFECHA_REMESAValue: DateTime;
|
|
procedure SetFECHA_REMESAValue(const aValue: DateTime);
|
|
function GetDESCRIPCIONValue: String;
|
|
procedure SetDESCRIPCIONValue(const aValue: String);
|
|
function GetUSUARIOValue: String;
|
|
procedure SetUSUARIOValue(const aValue: String);
|
|
function GetID_DATOS_BANCOValue: Integer;
|
|
procedure SetID_DATOS_BANCOValue(const aValue: Integer);
|
|
function GetFECHA_ALTAValue: DateTime;
|
|
procedure SetFECHA_ALTAValue(const aValue: DateTime);
|
|
function GetFECHA_MODIFICACIONValue: DateTime;
|
|
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
function GetIMPORTE_TOTALValue: Float;
|
|
procedure SetIMPORTE_TOTALValue(const aValue: Float);
|
|
function GetNOMBREValue: String;
|
|
procedure SetNOMBREValue(const aValue: String);
|
|
function GetENTIDADValue: String;
|
|
procedure SetENTIDADValue(const aValue: String);
|
|
function GetSUCURSALValue: String;
|
|
procedure SetSUCURSALValue(const aValue: String);
|
|
function GetDCValue: String;
|
|
procedure SetDCValue(const aValue: String);
|
|
function GetCUENTAValue: String;
|
|
procedure SetCUENTAValue(const aValue: String);
|
|
function GetSUFIJO_N19Value: String;
|
|
procedure SetSUFIJO_N19Value(const aValue: String);
|
|
function GetNUM_COPIASValue: Integer;
|
|
procedure SetNUM_COPIASValue(const aValue: Integer);
|
|
function GetSUFIJO_N58Value: String;
|
|
procedure SetSUFIJO_N58Value(const aValue: String);
|
|
|
|
|
|
{ Properties }
|
|
property ID: Integer read GetIDValue write SetIDValue;
|
|
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
property TIPO: String read GetTIPOValue write SetTIPOValue;
|
|
property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
|
|
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
|
property ID_DATOS_BANCO: Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue;
|
|
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
|
|
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
|
|
property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
|
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
|
property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue;
|
|
property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue;
|
|
property DC: String read GetDCValue write SetDCValue;
|
|
property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
|
|
property SUFIJO_N19: String read GetSUFIJO_N19Value write SetSUFIJO_N19Value;
|
|
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
|
|
property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
|
|
end;
|
|
|
|
{ TRemesasProveedor_RefreshDataTableRules }
|
|
TRemesasProveedor_RefreshDataTableRules = class(TDADataTableRules, IRemesasProveedor_Refresh)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetIDValue: Integer; virtual;
|
|
procedure SetIDValue(const aValue: Integer); virtual;
|
|
function GetID_EMPRESAValue: Integer; virtual;
|
|
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
|
function GetREFERENCIAValue: String; virtual;
|
|
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
|
function GetTIPOValue: String; virtual;
|
|
procedure SetTIPOValue(const aValue: String); virtual;
|
|
function GetFECHA_REMESAValue: DateTime; virtual;
|
|
procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual;
|
|
function GetDESCRIPCIONValue: String; virtual;
|
|
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
|
function GetUSUARIOValue: String; virtual;
|
|
procedure SetUSUARIOValue(const aValue: String); virtual;
|
|
function GetID_DATOS_BANCOValue: Integer; virtual;
|
|
procedure SetID_DATOS_BANCOValue(const aValue: Integer); virtual;
|
|
function GetFECHA_ALTAValue: DateTime; virtual;
|
|
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
|
|
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
|
|
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
|
|
function GetIMPORTE_TOTALValue: Float; virtual;
|
|
procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
|
|
function GetNOMBREValue: String; virtual;
|
|
procedure SetNOMBREValue(const aValue: String); virtual;
|
|
function GetENTIDADValue: String; virtual;
|
|
procedure SetENTIDADValue(const aValue: String); virtual;
|
|
function GetSUCURSALValue: String; virtual;
|
|
procedure SetSUCURSALValue(const aValue: String); virtual;
|
|
function GetDCValue: String; virtual;
|
|
procedure SetDCValue(const aValue: String); virtual;
|
|
function GetCUENTAValue: String; virtual;
|
|
procedure SetCUENTAValue(const aValue: String); virtual;
|
|
function GetSUFIJO_N19Value: String; virtual;
|
|
procedure SetSUFIJO_N19Value(const aValue: String); virtual;
|
|
function GetNUM_COPIASValue: Integer; virtual;
|
|
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
|
|
function GetSUFIJO_N58Value: String; virtual;
|
|
procedure SetSUFIJO_N58Value(const aValue: String); virtual;
|
|
|
|
{ Properties }
|
|
property ID: Integer read GetIDValue write SetIDValue;
|
|
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
property TIPO: String read GetTIPOValue write SetTIPOValue;
|
|
property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
|
|
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
|
property ID_DATOS_BANCO: Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue;
|
|
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
|
|
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
|
|
property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
|
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
|
property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue;
|
|
property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue;
|
|
property DC: String read GetDCValue write SetDCValue;
|
|
property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
|
|
property SUFIJO_N19: String read GetSUFIJO_N19Value write SetSUFIJO_N19Value;
|
|
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
|
|
property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
|
|
|
|
public
|
|
constructor Create(aDataTable: TDADataTable); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses Variants;
|
|
|
|
{ TListaAnosRemesasDataTableRules }
|
|
constructor TListaAnosRemesasDataTableRules.Create(aDataTable: TDADataTable);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TListaAnosRemesasDataTableRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TListaAnosRemesasDataTableRules.GetANOValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_ListaAnosRemesasANO].AsString;
|
|
end;
|
|
|
|
procedure TListaAnosRemesasDataTableRules.SetANOValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_ListaAnosRemesasANO].AsString := aValue;
|
|
end;
|
|
|
|
|
|
{ TdarReferenciaDataTableRules }
|
|
constructor TdarReferenciaDataTableRules.Create(aDataTable: TDADataTable);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TdarReferenciaDataTableRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TdarReferenciaDataTableRules.GetVALORValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_darReferenciaVALOR].AsString;
|
|
end;
|
|
|
|
procedure TdarReferenciaDataTableRules.SetVALORValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_darReferenciaVALOR].AsString := aValue;
|
|
end;
|
|
|
|
|
|
{ TRemesasProveedorDataTableRules }
|
|
constructor TRemesasProveedorDataTableRules.Create(aDataTable: TDADataTable);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TRemesasProveedorDataTableRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TRemesasProveedorDataTableRules.GetIDValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorID].AsInteger;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedorID].AsInteger := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedorDataTableRules.GetID_EMPRESAValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorID_EMPRESA].AsInteger;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedorID_EMPRESA].AsInteger := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedorDataTableRules.GetREFERENCIAValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorREFERENCIA].AsString;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetREFERENCIAValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedorREFERENCIA].AsString := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedorDataTableRules.GetTIPOValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorTIPO].AsString;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetTIPOValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedorTIPO].AsString := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedorDataTableRules.GetFECHA_REMESAValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorFECHA_REMESA].AsDateTime;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetFECHA_REMESAValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedorFECHA_REMESA].AsDateTime := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedorDataTableRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorDESCRIPCION].AsString;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedorDESCRIPCION].AsString := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedorDataTableRules.GetUSUARIOValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorUSUARIO].AsString;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetUSUARIOValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedorUSUARIO].AsString := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedorDataTableRules.GetID_DATOS_BANCOValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorID_DATOS_BANCO].AsInteger;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetID_DATOS_BANCOValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedorID_DATOS_BANCO].AsInteger := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedorDataTableRules.GetFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorFECHA_ALTA].AsDateTime;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedorFECHA_ALTA].AsDateTime := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedorDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorFECHA_MODIFICACION].AsDateTime;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedorFECHA_MODIFICACION].AsDateTime := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedorDataTableRules.GetIMPORTE_TOTALValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorIMPORTE_TOTAL].AsFloat;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetIMPORTE_TOTALValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedorIMPORTE_TOTAL].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedorDataTableRules.GetNOMBREValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorNOMBRE].AsString;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetNOMBREValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedorNOMBRE].AsString := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedorDataTableRules.GetENTIDADValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorENTIDAD].AsString;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetENTIDADValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedorENTIDAD].AsString := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedorDataTableRules.GetSUCURSALValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorSUCURSAL].AsString;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetSUCURSALValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedorSUCURSAL].AsString := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedorDataTableRules.GetDCValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorDC].AsString;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetDCValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedorDC].AsString := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedorDataTableRules.GetCUENTAValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorCUENTA].AsString;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetCUENTAValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedorCUENTA].AsString := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedorDataTableRules.GetSUFIJO_N19Value: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorSUFIJO_N19].AsString;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetSUFIJO_N19Value(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedorSUFIJO_N19].AsString := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedorDataTableRules.GetNUM_COPIASValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorNUM_COPIAS].AsInteger;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedorNUM_COPIAS].AsInteger := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedorDataTableRules.GetSUFIJO_N58Value: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorSUFIJO_N58].AsString;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetSUFIJO_N58Value(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedorSUFIJO_N58].AsString := aValue;
|
|
end;
|
|
|
|
|
|
{ TRemesasProveedor_RefreshDataTableRules }
|
|
constructor TRemesasProveedor_RefreshDataTableRules.Create(aDataTable: TDADataTable);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TRemesasProveedor_RefreshDataTableRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TRemesasProveedor_RefreshDataTableRules.GetIDValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedor_RefreshID].AsInteger;
|
|
end;
|
|
|
|
procedure TRemesasProveedor_RefreshDataTableRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedor_RefreshID].AsInteger := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedor_RefreshDataTableRules.GetID_EMPRESAValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedor_RefreshID_EMPRESA].AsInteger;
|
|
end;
|
|
|
|
procedure TRemesasProveedor_RefreshDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedor_RefreshID_EMPRESA].AsInteger := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedor_RefreshDataTableRules.GetREFERENCIAValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedor_RefreshREFERENCIA].AsString;
|
|
end;
|
|
|
|
procedure TRemesasProveedor_RefreshDataTableRules.SetREFERENCIAValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedor_RefreshREFERENCIA].AsString := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedor_RefreshDataTableRules.GetTIPOValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedor_RefreshTIPO].AsString;
|
|
end;
|
|
|
|
procedure TRemesasProveedor_RefreshDataTableRules.SetTIPOValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedor_RefreshTIPO].AsString := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedor_RefreshDataTableRules.GetFECHA_REMESAValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedor_RefreshFECHA_REMESA].AsDateTime;
|
|
end;
|
|
|
|
procedure TRemesasProveedor_RefreshDataTableRules.SetFECHA_REMESAValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedor_RefreshFECHA_REMESA].AsDateTime := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedor_RefreshDataTableRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedor_RefreshDESCRIPCION].AsString;
|
|
end;
|
|
|
|
procedure TRemesasProveedor_RefreshDataTableRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedor_RefreshDESCRIPCION].AsString := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedor_RefreshDataTableRules.GetUSUARIOValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedor_RefreshUSUARIO].AsString;
|
|
end;
|
|
|
|
procedure TRemesasProveedor_RefreshDataTableRules.SetUSUARIOValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedor_RefreshUSUARIO].AsString := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedor_RefreshDataTableRules.GetID_DATOS_BANCOValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedor_RefreshID_DATOS_BANCO].AsInteger;
|
|
end;
|
|
|
|
procedure TRemesasProveedor_RefreshDataTableRules.SetID_DATOS_BANCOValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedor_RefreshID_DATOS_BANCO].AsInteger := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedor_RefreshDataTableRules.GetFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedor_RefreshFECHA_ALTA].AsDateTime;
|
|
end;
|
|
|
|
procedure TRemesasProveedor_RefreshDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedor_RefreshFECHA_ALTA].AsDateTime := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedor_RefreshDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedor_RefreshFECHA_MODIFICACION].AsDateTime;
|
|
end;
|
|
|
|
procedure TRemesasProveedor_RefreshDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedor_RefreshFECHA_MODIFICACION].AsDateTime := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedor_RefreshDataTableRules.GetIMPORTE_TOTALValue: Float;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedor_RefreshIMPORTE_TOTAL].AsFloat;
|
|
end;
|
|
|
|
procedure TRemesasProveedor_RefreshDataTableRules.SetIMPORTE_TOTALValue(const aValue: Float);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedor_RefreshIMPORTE_TOTAL].AsFloat := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedor_RefreshDataTableRules.GetNOMBREValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedor_RefreshNOMBRE].AsString;
|
|
end;
|
|
|
|
procedure TRemesasProveedor_RefreshDataTableRules.SetNOMBREValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedor_RefreshNOMBRE].AsString := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedor_RefreshDataTableRules.GetENTIDADValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedor_RefreshENTIDAD].AsString;
|
|
end;
|
|
|
|
procedure TRemesasProveedor_RefreshDataTableRules.SetENTIDADValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedor_RefreshENTIDAD].AsString := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedor_RefreshDataTableRules.GetSUCURSALValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedor_RefreshSUCURSAL].AsString;
|
|
end;
|
|
|
|
procedure TRemesasProveedor_RefreshDataTableRules.SetSUCURSALValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedor_RefreshSUCURSAL].AsString := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedor_RefreshDataTableRules.GetDCValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedor_RefreshDC].AsString;
|
|
end;
|
|
|
|
procedure TRemesasProveedor_RefreshDataTableRules.SetDCValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedor_RefreshDC].AsString := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedor_RefreshDataTableRules.GetCUENTAValue: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedor_RefreshCUENTA].AsString;
|
|
end;
|
|
|
|
procedure TRemesasProveedor_RefreshDataTableRules.SetCUENTAValue(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedor_RefreshCUENTA].AsString := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedor_RefreshDataTableRules.GetSUFIJO_N19Value: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedor_RefreshSUFIJO_N19].AsString;
|
|
end;
|
|
|
|
procedure TRemesasProveedor_RefreshDataTableRules.SetSUFIJO_N19Value(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedor_RefreshSUFIJO_N19].AsString := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedor_RefreshDataTableRules.GetNUM_COPIASValue: Integer;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedor_RefreshNUM_COPIAS].AsInteger;
|
|
end;
|
|
|
|
procedure TRemesasProveedor_RefreshDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedor_RefreshNUM_COPIAS].AsInteger := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedor_RefreshDataTableRules.GetSUFIJO_N58Value: String;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedor_RefreshSUFIJO_N58].AsString;
|
|
end;
|
|
|
|
procedure TRemesasProveedor_RefreshDataTableRules.SetSUFIJO_N58Value(const aValue: String);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedor_RefreshSUFIJO_N58].AsString := aValue;
|
|
end;
|
|
|
|
|
|
initialization
|
|
RegisterDataTableRules(RID_ListaAnosRemesas, TListaAnosRemesasDataTableRules);
|
|
RegisterDataTableRules(RID_darReferencia, TdarReferenciaDataTableRules);
|
|
RegisterDataTableRules(RID_RemesasProveedor, TRemesasProveedorDataTableRules);
|
|
RegisterDataTableRules(RID_RemesasProveedor_Refresh, TRemesasProveedor_RefreshDataTableRules);
|
|
|
|
end.
|