Tecsitel_FactuGES2/Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorClient_Intf.pas
2007-11-20 15:45:03 +00:00

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.