git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@150 0c75b7a4-871f-7646-8a2f-f78d34cc349f
772 lines
31 KiB
ObjectPascal
772 lines
31 KiB
ObjectPascal
unit schRemesasProveedorClient_Intf;
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, DB, schBase_Intf, 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_darReferencia = '{60F91383-6F77-4AD3-9E84-B27C782A1482}';
|
|
RID_RemesasProveedor = '{044A9E1D-90AB-4E1C-BFCB-98772BB603BE}';
|
|
|
|
{ Data table names }
|
|
nme_darReferencia = 'darReferencia';
|
|
nme_RemesasProveedor = 'RemesasProveedor';
|
|
|
|
{ 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_RemesasProveedorID_DATOS_BANCO = 'ID_DATOS_BANCO';
|
|
fld_RemesasProveedorFECHA_ALTA = 'FECHA_ALTA';
|
|
fld_RemesasProveedorFECHA_MODIFICACION = 'FECHA_MODIFICACION';
|
|
fld_RemesasProveedorUSUARIO = 'USUARIO';
|
|
fld_RemesasProveedorNOMBRE = 'NOMBRE';
|
|
fld_RemesasProveedorENTIDAD = 'ENTIDAD';
|
|
fld_RemesasProveedorSUCURSAL = 'SUCURSAL';
|
|
fld_RemesasProveedorDC = 'DC';
|
|
fld_RemesasProveedorCUENTA = 'CUENTA';
|
|
fld_RemesasProveedorSUFIJO_N19 = 'SUFIJO_N19';
|
|
fld_RemesasProveedorSUFIJO_N58 = 'SUFIJO_N58';
|
|
fld_RemesasProveedorIMPORTE_TOTAL = 'IMPORTE_TOTAL';
|
|
|
|
{ RemesasProveedor field indexes }
|
|
idx_RemesasProveedorID = 0;
|
|
idx_RemesasProveedorID_EMPRESA = 1;
|
|
idx_RemesasProveedorREFERENCIA = 2;
|
|
idx_RemesasProveedorTIPO = 3;
|
|
idx_RemesasProveedorFECHA_REMESA = 4;
|
|
idx_RemesasProveedorDESCRIPCION = 5;
|
|
idx_RemesasProveedorID_DATOS_BANCO = 6;
|
|
idx_RemesasProveedorFECHA_ALTA = 7;
|
|
idx_RemesasProveedorFECHA_MODIFICACION = 8;
|
|
idx_RemesasProveedorUSUARIO = 9;
|
|
idx_RemesasProveedorNOMBRE = 10;
|
|
idx_RemesasProveedorENTIDAD = 11;
|
|
idx_RemesasProveedorSUCURSAL = 12;
|
|
idx_RemesasProveedorDC = 13;
|
|
idx_RemesasProveedorCUENTA = 14;
|
|
idx_RemesasProveedorSUFIJO_N19 = 15;
|
|
idx_RemesasProveedorSUFIJO_N58 = 16;
|
|
idx_RemesasProveedorIMPORTE_TOTAL = 17;
|
|
|
|
type
|
|
{ IdarReferencia }
|
|
IdarReferencia = interface(IDAStronglyTypedDataTable)
|
|
['{3EC7EB36-5C81-4D96-924C-BFBAD8D38041}']
|
|
{ Property getters and setters }
|
|
function GetVALORValue: String;
|
|
procedure SetVALORValue(const aValue: String);
|
|
function GetVALORIsNull: Boolean;
|
|
procedure SetVALORIsNull(const aValue: Boolean);
|
|
|
|
|
|
{ Properties }
|
|
property VALOR: String read GetVALORValue write SetVALORValue;
|
|
property VALORIsNull: Boolean read GetVALORIsNull write SetVALORIsNull;
|
|
end;
|
|
|
|
{ TdarReferenciaDataTableRules }
|
|
TdarReferenciaDataTableRules = class(TIntfObjectDADataTableRules, IdarReferencia)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetVALORValue: String; virtual;
|
|
procedure SetVALORValue(const aValue: String); virtual;
|
|
function GetVALORIsNull: Boolean; virtual;
|
|
procedure SetVALORIsNull(const aValue: Boolean); virtual;
|
|
|
|
{ Properties }
|
|
property VALOR: String read GetVALORValue write SetVALORValue;
|
|
property VALORIsNull: Boolean read GetVALORIsNull write SetVALORIsNull;
|
|
|
|
public
|
|
constructor Create(aDataTable: TDADataTable); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IRemesasProveedor }
|
|
IRemesasProveedor = interface(IDAStronglyTypedDataTable)
|
|
['{33E0651A-D061-431F-9EAD-9B9B0458B888}']
|
|
{ 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 GetREFERENCIAValue: String;
|
|
procedure SetREFERENCIAValue(const aValue: String);
|
|
function GetREFERENCIAIsNull: Boolean;
|
|
procedure SetREFERENCIAIsNull(const aValue: Boolean);
|
|
function GetTIPOValue: String;
|
|
procedure SetTIPOValue(const aValue: String);
|
|
function GetTIPOIsNull: Boolean;
|
|
procedure SetTIPOIsNull(const aValue: Boolean);
|
|
function GetFECHA_REMESAValue: DateTime;
|
|
procedure SetFECHA_REMESAValue(const aValue: DateTime);
|
|
function GetFECHA_REMESAIsNull: Boolean;
|
|
procedure SetFECHA_REMESAIsNull(const aValue: Boolean);
|
|
function GetDESCRIPCIONValue: String;
|
|
procedure SetDESCRIPCIONValue(const aValue: String);
|
|
function GetDESCRIPCIONIsNull: Boolean;
|
|
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
|
|
function GetID_DATOS_BANCOValue: Integer;
|
|
procedure SetID_DATOS_BANCOValue(const aValue: Integer);
|
|
function GetID_DATOS_BANCOIsNull: Boolean;
|
|
procedure SetID_DATOS_BANCOIsNull(const aValue: Boolean);
|
|
function GetFECHA_ALTAValue: DateTime;
|
|
procedure SetFECHA_ALTAValue(const aValue: DateTime);
|
|
function GetFECHA_ALTAIsNull: Boolean;
|
|
procedure SetFECHA_ALTAIsNull(const aValue: Boolean);
|
|
function GetFECHA_MODIFICACIONValue: DateTime;
|
|
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
function GetFECHA_MODIFICACIONIsNull: Boolean;
|
|
procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
|
|
function GetUSUARIOValue: String;
|
|
procedure SetUSUARIOValue(const aValue: String);
|
|
function GetUSUARIOIsNull: Boolean;
|
|
procedure SetUSUARIOIsNull(const aValue: Boolean);
|
|
function GetNOMBREValue: String;
|
|
procedure SetNOMBREValue(const aValue: String);
|
|
function GetNOMBREIsNull: Boolean;
|
|
procedure SetNOMBREIsNull(const aValue: Boolean);
|
|
function GetENTIDADValue: String;
|
|
procedure SetENTIDADValue(const aValue: String);
|
|
function GetENTIDADIsNull: Boolean;
|
|
procedure SetENTIDADIsNull(const aValue: Boolean);
|
|
function GetSUCURSALValue: String;
|
|
procedure SetSUCURSALValue(const aValue: String);
|
|
function GetSUCURSALIsNull: Boolean;
|
|
procedure SetSUCURSALIsNull(const aValue: Boolean);
|
|
function GetDCValue: String;
|
|
procedure SetDCValue(const aValue: String);
|
|
function GetDCIsNull: Boolean;
|
|
procedure SetDCIsNull(const aValue: Boolean);
|
|
function GetCUENTAValue: String;
|
|
procedure SetCUENTAValue(const aValue: String);
|
|
function GetCUENTAIsNull: Boolean;
|
|
procedure SetCUENTAIsNull(const aValue: Boolean);
|
|
function GetSUFIJO_N19Value: String;
|
|
procedure SetSUFIJO_N19Value(const aValue: String);
|
|
function GetSUFIJO_N19IsNull: Boolean;
|
|
procedure SetSUFIJO_N19IsNull(const aValue: Boolean);
|
|
function GetSUFIJO_N58Value: String;
|
|
procedure SetSUFIJO_N58Value(const aValue: String);
|
|
function GetSUFIJO_N58IsNull: Boolean;
|
|
procedure SetSUFIJO_N58IsNull(const aValue: Boolean);
|
|
function GetIMPORTE_TOTALValue: Currency;
|
|
procedure SetIMPORTE_TOTALValue(const aValue: Currency);
|
|
function GetIMPORTE_TOTALIsNull: Boolean;
|
|
procedure SetIMPORTE_TOTALIsNull(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 REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
|
|
property TIPO: String read GetTIPOValue write SetTIPOValue;
|
|
property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull;
|
|
property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
|
|
property FECHA_REMESAIsNull: Boolean read GetFECHA_REMESAIsNull write SetFECHA_REMESAIsNull;
|
|
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
|
property ID_DATOS_BANCO: Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue;
|
|
property ID_DATOS_BANCOIsNull: Boolean read GetID_DATOS_BANCOIsNull write SetID_DATOS_BANCOIsNull;
|
|
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
|
|
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
|
|
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
|
|
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
|
|
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
|
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
|
|
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
|
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
|
|
property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue;
|
|
property ENTIDADIsNull: Boolean read GetENTIDADIsNull write SetENTIDADIsNull;
|
|
property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue;
|
|
property SUCURSALIsNull: Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull;
|
|
property DC: String read GetDCValue write SetDCValue;
|
|
property DCIsNull: Boolean read GetDCIsNull write SetDCIsNull;
|
|
property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
|
|
property CUENTAIsNull: Boolean read GetCUENTAIsNull write SetCUENTAIsNull;
|
|
property SUFIJO_N19: String read GetSUFIJO_N19Value write SetSUFIJO_N19Value;
|
|
property SUFIJO_N19IsNull: Boolean read GetSUFIJO_N19IsNull write SetSUFIJO_N19IsNull;
|
|
property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
|
|
property SUFIJO_N58IsNull: Boolean read GetSUFIJO_N58IsNull write SetSUFIJO_N58IsNull;
|
|
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
|
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
|
|
end;
|
|
|
|
{ TRemesasProveedorDataTableRules }
|
|
TRemesasProveedorDataTableRules = class(TIntfObjectDADataTableRules, IRemesasProveedor)
|
|
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 GetREFERENCIAValue: String; virtual;
|
|
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
|
function GetREFERENCIAIsNull: Boolean; virtual;
|
|
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
|
|
function GetTIPOValue: String; virtual;
|
|
procedure SetTIPOValue(const aValue: String); virtual;
|
|
function GetTIPOIsNull: Boolean; virtual;
|
|
procedure SetTIPOIsNull(const aValue: Boolean); virtual;
|
|
function GetFECHA_REMESAValue: DateTime; virtual;
|
|
procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual;
|
|
function GetFECHA_REMESAIsNull: Boolean; virtual;
|
|
procedure SetFECHA_REMESAIsNull(const aValue: Boolean); virtual;
|
|
function GetDESCRIPCIONValue: String; virtual;
|
|
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
|
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
|
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
|
function GetID_DATOS_BANCOValue: Integer; virtual;
|
|
procedure SetID_DATOS_BANCOValue(const aValue: Integer); virtual;
|
|
function GetID_DATOS_BANCOIsNull: Boolean; virtual;
|
|
procedure SetID_DATOS_BANCOIsNull(const aValue: Boolean); virtual;
|
|
function GetFECHA_ALTAValue: DateTime; virtual;
|
|
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
|
|
function GetFECHA_ALTAIsNull: Boolean; virtual;
|
|
procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
|
|
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
|
|
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
|
|
function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
|
|
procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
|
|
function GetUSUARIOValue: String; virtual;
|
|
procedure SetUSUARIOValue(const aValue: String); virtual;
|
|
function GetUSUARIOIsNull: Boolean; virtual;
|
|
procedure SetUSUARIOIsNull(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 GetENTIDADValue: String; virtual;
|
|
procedure SetENTIDADValue(const aValue: String); virtual;
|
|
function GetENTIDADIsNull: Boolean; virtual;
|
|
procedure SetENTIDADIsNull(const aValue: Boolean); virtual;
|
|
function GetSUCURSALValue: String; virtual;
|
|
procedure SetSUCURSALValue(const aValue: String); virtual;
|
|
function GetSUCURSALIsNull: Boolean; virtual;
|
|
procedure SetSUCURSALIsNull(const aValue: Boolean); virtual;
|
|
function GetDCValue: String; virtual;
|
|
procedure SetDCValue(const aValue: String); virtual;
|
|
function GetDCIsNull: Boolean; virtual;
|
|
procedure SetDCIsNull(const aValue: Boolean); virtual;
|
|
function GetCUENTAValue: String; virtual;
|
|
procedure SetCUENTAValue(const aValue: String); virtual;
|
|
function GetCUENTAIsNull: Boolean; virtual;
|
|
procedure SetCUENTAIsNull(const aValue: Boolean); virtual;
|
|
function GetSUFIJO_N19Value: String; virtual;
|
|
procedure SetSUFIJO_N19Value(const aValue: String); virtual;
|
|
function GetSUFIJO_N19IsNull: Boolean; virtual;
|
|
procedure SetSUFIJO_N19IsNull(const aValue: Boolean); virtual;
|
|
function GetSUFIJO_N58Value: String; virtual;
|
|
procedure SetSUFIJO_N58Value(const aValue: String); virtual;
|
|
function GetSUFIJO_N58IsNull: Boolean; virtual;
|
|
procedure SetSUFIJO_N58IsNull(const aValue: Boolean); virtual;
|
|
function GetIMPORTE_TOTALValue: Currency; virtual;
|
|
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
|
|
function GetIMPORTE_TOTALIsNull: Boolean; virtual;
|
|
procedure SetIMPORTE_TOTALIsNull(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 REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
|
|
property TIPO: String read GetTIPOValue write SetTIPOValue;
|
|
property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull;
|
|
property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
|
|
property FECHA_REMESAIsNull: Boolean read GetFECHA_REMESAIsNull write SetFECHA_REMESAIsNull;
|
|
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
|
property ID_DATOS_BANCO: Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue;
|
|
property ID_DATOS_BANCOIsNull: Boolean read GetID_DATOS_BANCOIsNull write SetID_DATOS_BANCOIsNull;
|
|
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
|
|
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
|
|
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
|
|
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
|
|
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
|
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
|
|
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
|
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
|
|
property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue;
|
|
property ENTIDADIsNull: Boolean read GetENTIDADIsNull write SetENTIDADIsNull;
|
|
property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue;
|
|
property SUCURSALIsNull: Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull;
|
|
property DC: String read GetDCValue write SetDCValue;
|
|
property DCIsNull: Boolean read GetDCIsNull write SetDCIsNull;
|
|
property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
|
|
property CUENTAIsNull: Boolean read GetCUENTAIsNull write SetCUENTAIsNull;
|
|
property SUFIJO_N19: String read GetSUFIJO_N19Value write SetSUFIJO_N19Value;
|
|
property SUFIJO_N19IsNull: Boolean read GetSUFIJO_N19IsNull write SetSUFIJO_N19IsNull;
|
|
property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
|
|
property SUFIJO_N58IsNull: Boolean read GetSUFIJO_N58IsNull write SetSUFIJO_N58IsNull;
|
|
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
|
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
|
|
|
|
public
|
|
constructor Create(aDataTable: TDADataTable); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses Variants, uROBinaryHelpers;
|
|
|
|
{ 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;
|
|
|
|
function TdarReferenciaDataTableRules.GetVALORIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_darReferenciaVALOR].IsNull;
|
|
end;
|
|
|
|
procedure TdarReferenciaDataTableRules.SetVALORIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_darReferenciaVALOR].AsVariant := Null;
|
|
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.GetIDIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorID].IsNull;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_RemesasProveedorID].AsVariant := Null;
|
|
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.GetID_EMPRESAIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorID_EMPRESA].IsNull;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_RemesasProveedorID_EMPRESA].AsVariant := Null;
|
|
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.GetREFERENCIAIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorREFERENCIA].IsNull;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_RemesasProveedorREFERENCIA].AsVariant := Null;
|
|
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.GetTIPOIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorTIPO].IsNull;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetTIPOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_RemesasProveedorTIPO].AsVariant := Null;
|
|
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.GetFECHA_REMESAIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorFECHA_REMESA].IsNull;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetFECHA_REMESAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_RemesasProveedorFECHA_REMESA].AsVariant := Null;
|
|
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.GetDESCRIPCIONIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorDESCRIPCION].IsNull;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_RemesasProveedorDESCRIPCION].AsVariant := Null;
|
|
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.GetID_DATOS_BANCOIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorID_DATOS_BANCO].IsNull;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetID_DATOS_BANCOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_RemesasProveedorID_DATOS_BANCO].AsVariant := Null;
|
|
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_ALTAIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorFECHA_ALTA].IsNull;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_RemesasProveedorFECHA_ALTA].AsVariant := Null;
|
|
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.GetFECHA_MODIFICACIONIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorFECHA_MODIFICACION].IsNull;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_RemesasProveedorFECHA_MODIFICACION].AsVariant := Null;
|
|
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.GetUSUARIOIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorUSUARIO].IsNull;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_RemesasProveedorUSUARIO].AsVariant := Null;
|
|
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.GetNOMBREIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorNOMBRE].IsNull;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_RemesasProveedorNOMBRE].AsVariant := Null;
|
|
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.GetENTIDADIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorENTIDAD].IsNull;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetENTIDADIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_RemesasProveedorENTIDAD].AsVariant := Null;
|
|
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.GetSUCURSALIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorSUCURSAL].IsNull;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetSUCURSALIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_RemesasProveedorSUCURSAL].AsVariant := Null;
|
|
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.GetDCIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorDC].IsNull;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetDCIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_RemesasProveedorDC].AsVariant := Null;
|
|
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.GetCUENTAIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorCUENTA].IsNull;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetCUENTAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_RemesasProveedorCUENTA].AsVariant := Null;
|
|
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.GetSUFIJO_N19IsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorSUFIJO_N19].IsNull;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetSUFIJO_N19IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_RemesasProveedorSUFIJO_N19].AsVariant := Null;
|
|
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;
|
|
|
|
function TRemesasProveedorDataTableRules.GetSUFIJO_N58IsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorSUFIJO_N58].IsNull;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetSUFIJO_N58IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_RemesasProveedorSUFIJO_N58].AsVariant := Null;
|
|
end;
|
|
|
|
function TRemesasProveedorDataTableRules.GetIMPORTE_TOTALValue: Currency;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorIMPORTE_TOTAL].AsCurrency;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency);
|
|
begin
|
|
DataTable.Fields[idx_RemesasProveedorIMPORTE_TOTAL].AsCurrency := aValue;
|
|
end;
|
|
|
|
function TRemesasProveedorDataTableRules.GetIMPORTE_TOTALIsNull: boolean;
|
|
begin
|
|
result := DataTable.Fields[idx_RemesasProveedorIMPORTE_TOTAL].IsNull;
|
|
end;
|
|
|
|
procedure TRemesasProveedorDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
DataTable.Fields[idx_RemesasProveedorIMPORTE_TOTAL].AsVariant := Null;
|
|
end;
|
|
|
|
|
|
initialization
|
|
RegisterDataTableRules(RID_darReferencia, TdarReferenciaDataTableRules);
|
|
RegisterDataTableRules(RID_RemesasProveedor, TRemesasProveedorDataTableRules);
|
|
|
|
end.
|