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.