unit schContactosClient_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_Contactos = '{FD4BB9E6-6FC9-4A36-8D7F-4BFE2D003081}'; RID_DatosBancarios = '{2F202A14-121B-4FCE-B806-E226B6FA9597}'; RID_ContactosCategorias = '{9A2AE6B9-67C5-42DC-8EB5-E178F7B56A7E}'; RID_Clientes = '{91A09947-1493-4F02-8AC3-70EDE9A8B821}'; RID_Proveedores = '{CDCAB580-88CD-4992-AA1E-9CB2231955E7}'; RID_Agentes = '{1E0B7DB6-D2AF-4035-9A09-A5ACC0557A22}'; RID_DireccionesContacto = '{85AE54CE-8F0A-4C07-9C62-D78B6A678780}'; RID_ClientesGrupos = '{C5F59857-00EE-41FE-A72B-7D365BA6368D}'; { Data table names } nme_Contactos = 'Contactos'; nme_DatosBancarios = 'DatosBancarios'; nme_ContactosCategorias = 'ContactosCategorias'; nme_Clientes = 'Clientes'; nme_Proveedores = 'Proveedores'; nme_Agentes = 'Agentes'; nme_DireccionesContacto = 'DireccionesContacto'; nme_ClientesGrupos = 'ClientesGrupos'; { Contactos fields } fld_ContactosID = 'ID'; fld_ContactosID_CATEGORIA = 'ID_CATEGORIA'; fld_ContactosNIF_CIF = 'NIF_CIF'; fld_ContactosNOMBRE = 'NOMBRE'; fld_ContactosCALLE = 'CALLE'; fld_ContactosPOBLACION = 'POBLACION'; fld_ContactosPROVINCIA = 'PROVINCIA'; fld_ContactosCODIGO_POSTAL = 'CODIGO_POSTAL'; fld_ContactosTELEFONO_1 = 'TELEFONO_1'; fld_ContactosTELEFONO_2 = 'TELEFONO_2'; fld_ContactosMOVIL_1 = 'MOVIL_1'; fld_ContactosMOVIL_2 = 'MOVIL_2'; fld_ContactosFAX = 'FAX'; fld_ContactosEMAIL_1 = 'EMAIL_1'; fld_ContactosEMAIL_2 = 'EMAIL_2'; fld_ContactosPAGINA_WEB = 'PAGINA_WEB'; fld_ContactosNOTAS = 'NOTAS'; fld_ContactosFECHA_ALTA = 'FECHA_ALTA'; fld_ContactosFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_ContactosUSUARIO = 'USUARIO'; fld_ContactosID_EMPRESA = 'ID_EMPRESA'; { Contactos field indexes } idx_ContactosID = 0; idx_ContactosID_CATEGORIA = 1; idx_ContactosNIF_CIF = 2; idx_ContactosNOMBRE = 3; idx_ContactosCALLE = 4; idx_ContactosPOBLACION = 5; idx_ContactosPROVINCIA = 6; idx_ContactosCODIGO_POSTAL = 7; idx_ContactosTELEFONO_1 = 8; idx_ContactosTELEFONO_2 = 9; idx_ContactosMOVIL_1 = 10; idx_ContactosMOVIL_2 = 11; idx_ContactosFAX = 12; idx_ContactosEMAIL_1 = 13; idx_ContactosEMAIL_2 = 14; idx_ContactosPAGINA_WEB = 15; idx_ContactosNOTAS = 16; idx_ContactosFECHA_ALTA = 17; idx_ContactosFECHA_MODIFICACION = 18; idx_ContactosUSUARIO = 19; idx_ContactosID_EMPRESA = 20; { DatosBancarios fields } fld_DatosBancariosID = 'ID'; fld_DatosBancariosID_CONTACTO = 'ID_CONTACTO'; fld_DatosBancariosTITULAR = 'TITULAR'; fld_DatosBancariosENTIDAD = 'ENTIDAD'; fld_DatosBancariosSUCURSAL = 'SUCURSAL'; fld_DatosBancariosDC = 'DC'; fld_DatosBancariosCUENTA = 'CUENTA'; { DatosBancarios field indexes } idx_DatosBancariosID = 0; idx_DatosBancariosID_CONTACTO = 1; idx_DatosBancariosTITULAR = 2; idx_DatosBancariosENTIDAD = 3; idx_DatosBancariosSUCURSAL = 4; idx_DatosBancariosDC = 5; idx_DatosBancariosCUENTA = 6; { ContactosCategorias fields } fld_ContactosCategoriasID_CONTACTO = 'ID_CONTACTO'; fld_ContactosCategoriasID_CATEGORIA = 'ID_CATEGORIA'; { ContactosCategorias field indexes } idx_ContactosCategoriasID_CONTACTO = 0; idx_ContactosCategoriasID_CATEGORIA = 1; { Clientes fields } fld_ClientesID = 'ID'; fld_ClientesID_CATEGORIA = 'ID_CATEGORIA'; fld_ClientesNIF_CIF = 'NIF_CIF'; fld_ClientesNOMBRE = 'NOMBRE'; fld_ClientesCALLE = 'CALLE'; fld_ClientesPOBLACION = 'POBLACION'; fld_ClientesPROVINCIA = 'PROVINCIA'; fld_ClientesCODIGO_POSTAL = 'CODIGO_POSTAL'; fld_ClientesTELEFONO_1 = 'TELEFONO_1'; fld_ClientesTELEFONO_2 = 'TELEFONO_2'; fld_ClientesMOVIL_1 = 'MOVIL_1'; fld_ClientesMOVIL_2 = 'MOVIL_2'; fld_ClientesFAX = 'FAX'; fld_ClientesEMAIL_1 = 'EMAIL_1'; fld_ClientesEMAIL_2 = 'EMAIL_2'; fld_ClientesPAGINA_WEB = 'PAGINA_WEB'; fld_ClientesNOTAS = 'NOTAS'; fld_ClientesFECHA_ALTA = 'FECHA_ALTA'; fld_ClientesFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_ClientesUSUARIO = 'USUARIO'; fld_ClientesID_EMPRESA = 'ID_EMPRESA'; fld_ClientesID_AGENTE = 'ID_AGENTE'; fld_ClientesGRUPO_CLIENTE = 'GRUPO_CLIENTE'; fld_ClientesPORTE = 'PORTE'; { Clientes field indexes } idx_ClientesID = 0; idx_ClientesID_CATEGORIA = 1; idx_ClientesNIF_CIF = 2; idx_ClientesNOMBRE = 3; idx_ClientesCALLE = 4; idx_ClientesPOBLACION = 5; idx_ClientesPROVINCIA = 6; idx_ClientesCODIGO_POSTAL = 7; idx_ClientesTELEFONO_1 = 8; idx_ClientesTELEFONO_2 = 9; idx_ClientesMOVIL_1 = 10; idx_ClientesMOVIL_2 = 11; idx_ClientesFAX = 12; idx_ClientesEMAIL_1 = 13; idx_ClientesEMAIL_2 = 14; idx_ClientesPAGINA_WEB = 15; idx_ClientesNOTAS = 16; idx_ClientesFECHA_ALTA = 17; idx_ClientesFECHA_MODIFICACION = 18; idx_ClientesUSUARIO = 19; idx_ClientesID_EMPRESA = 20; idx_ClientesID_AGENTE = 21; idx_ClientesGRUPO_CLIENTE = 22; idx_ClientesPORTE = 23; { Proveedores fields } fld_ProveedoresID = 'ID'; fld_ProveedoresID_CATEGORIA = 'ID_CATEGORIA'; fld_ProveedoresNIF_CIF = 'NIF_CIF'; fld_ProveedoresNOMBRE = 'NOMBRE'; fld_ProveedoresCALLE = 'CALLE'; fld_ProveedoresPOBLACION = 'POBLACION'; fld_ProveedoresPROVINCIA = 'PROVINCIA'; fld_ProveedoresCODIGO_POSTAL = 'CODIGO_POSTAL'; fld_ProveedoresTELEFONO_1 = 'TELEFONO_1'; fld_ProveedoresTELEFONO_2 = 'TELEFONO_2'; fld_ProveedoresMOVIL_1 = 'MOVIL_1'; fld_ProveedoresMOVIL_2 = 'MOVIL_2'; fld_ProveedoresFAX = 'FAX'; fld_ProveedoresEMAIL_1 = 'EMAIL_1'; fld_ProveedoresEMAIL_2 = 'EMAIL_2'; fld_ProveedoresPAGINA_WEB = 'PAGINA_WEB'; fld_ProveedoresNOTAS = 'NOTAS'; fld_ProveedoresFECHA_ALTA = 'FECHA_ALTA'; fld_ProveedoresFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_ProveedoresUSUARIO = 'USUARIO'; fld_ProveedoresID_EMPRESA = 'ID_EMPRESA'; fld_ProveedoresREGIMEN_IVA = 'REGIMEN_IVA'; fld_ProveedoresDESCUENTO = 'DESCUENTO'; { Proveedores field indexes } idx_ProveedoresID = 0; idx_ProveedoresID_CATEGORIA = 1; idx_ProveedoresNIF_CIF = 2; idx_ProveedoresNOMBRE = 3; idx_ProveedoresCALLE = 4; idx_ProveedoresPOBLACION = 5; idx_ProveedoresPROVINCIA = 6; idx_ProveedoresCODIGO_POSTAL = 7; idx_ProveedoresTELEFONO_1 = 8; idx_ProveedoresTELEFONO_2 = 9; idx_ProveedoresMOVIL_1 = 10; idx_ProveedoresMOVIL_2 = 11; idx_ProveedoresFAX = 12; idx_ProveedoresEMAIL_1 = 13; idx_ProveedoresEMAIL_2 = 14; idx_ProveedoresPAGINA_WEB = 15; idx_ProveedoresNOTAS = 16; idx_ProveedoresFECHA_ALTA = 17; idx_ProveedoresFECHA_MODIFICACION = 18; idx_ProveedoresUSUARIO = 19; idx_ProveedoresID_EMPRESA = 20; idx_ProveedoresREGIMEN_IVA = 21; idx_ProveedoresDESCUENTO = 22; { Agentes fields } fld_AgentesID = 'ID'; fld_AgentesID_CATEGORIA = 'ID_CATEGORIA'; fld_AgentesNIF_CIF = 'NIF_CIF'; fld_AgentesNOMBRE = 'NOMBRE'; fld_AgentesCALLE = 'CALLE'; fld_AgentesPOBLACION = 'POBLACION'; fld_AgentesPROVINCIA = 'PROVINCIA'; fld_AgentesCODIGO_POSTAL = 'CODIGO_POSTAL'; fld_AgentesTELEFONO_1 = 'TELEFONO_1'; fld_AgentesTELEFONO_2 = 'TELEFONO_2'; fld_AgentesMOVIL_1 = 'MOVIL_1'; fld_AgentesMOVIL_2 = 'MOVIL_2'; fld_AgentesFAX = 'FAX'; fld_AgentesEMAIL_1 = 'EMAIL_1'; fld_AgentesEMAIL_2 = 'EMAIL_2'; fld_AgentesPAGINA_WEB = 'PAGINA_WEB'; fld_AgentesNOTAS = 'NOTAS'; fld_AgentesFECHA_ALTA = 'FECHA_ALTA'; fld_AgentesFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_AgentesUSUARIO = 'USUARIO'; fld_AgentesID_EMPRESA = 'ID_EMPRESA'; { Agentes field indexes } idx_AgentesID = 0; idx_AgentesID_CATEGORIA = 1; idx_AgentesNIF_CIF = 2; idx_AgentesNOMBRE = 3; idx_AgentesCALLE = 4; idx_AgentesPOBLACION = 5; idx_AgentesPROVINCIA = 6; idx_AgentesCODIGO_POSTAL = 7; idx_AgentesTELEFONO_1 = 8; idx_AgentesTELEFONO_2 = 9; idx_AgentesMOVIL_1 = 10; idx_AgentesMOVIL_2 = 11; idx_AgentesFAX = 12; idx_AgentesEMAIL_1 = 13; idx_AgentesEMAIL_2 = 14; idx_AgentesPAGINA_WEB = 15; idx_AgentesNOTAS = 16; idx_AgentesFECHA_ALTA = 17; idx_AgentesFECHA_MODIFICACION = 18; idx_AgentesUSUARIO = 19; idx_AgentesID_EMPRESA = 20; { DireccionesContacto fields } fld_DireccionesContactoID = 'ID'; fld_DireccionesContactoID_CONTACTO = 'ID_CONTACTO'; fld_DireccionesContactoCALLE = 'CALLE'; fld_DireccionesContactoPOBLACION = 'POBLACION'; fld_DireccionesContactoPROVINCIA = 'PROVINCIA'; fld_DireccionesContactoCODIGO_POSTAL = 'CODIGO_POSTAL'; fld_DireccionesContactoPERSONA_CONTACTO = 'PERSONA_CONTACTO'; { DireccionesContacto field indexes } idx_DireccionesContactoID = 0; idx_DireccionesContactoID_CONTACTO = 1; idx_DireccionesContactoCALLE = 2; idx_DireccionesContactoPOBLACION = 3; idx_DireccionesContactoPROVINCIA = 4; idx_DireccionesContactoCODIGO_POSTAL = 5; idx_DireccionesContactoPERSONA_CONTACTO = 6; { ClientesGrupos fields } fld_ClientesGruposDESCRIPCION = 'DESCRIPCION'; { ClientesGrupos field indexes } idx_ClientesGruposDESCRIPCION = 0; type { IContactos } IContactos = interface(IDAStronglyTypedDataTable) ['{DF995E12-3013-49D9-BBD8-07F677333C55}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); function GetID_CATEGORIAValue: Integer; procedure SetID_CATEGORIAValue(const aValue: Integer); function GetNIF_CIFValue: String; procedure SetNIF_CIFValue(const aValue: String); function GetNOMBREValue: String; procedure SetNOMBREValue(const aValue: String); function GetCALLEValue: String; procedure SetCALLEValue(const aValue: String); function GetPOBLACIONValue: String; procedure SetPOBLACIONValue(const aValue: String); function GetPROVINCIAValue: String; procedure SetPROVINCIAValue(const aValue: String); function GetCODIGO_POSTALValue: String; procedure SetCODIGO_POSTALValue(const aValue: String); function GetTELEFONO_1Value: String; procedure SetTELEFONO_1Value(const aValue: String); function GetTELEFONO_2Value: String; procedure SetTELEFONO_2Value(const aValue: String); function GetMOVIL_1Value: String; procedure SetMOVIL_1Value(const aValue: String); function GetMOVIL_2Value: String; procedure SetMOVIL_2Value(const aValue: String); function GetFAXValue: String; procedure SetFAXValue(const aValue: String); function GetEMAIL_1Value: String; procedure SetEMAIL_1Value(const aValue: String); function GetEMAIL_2Value: String; procedure SetEMAIL_2Value(const aValue: String); function GetPAGINA_WEBValue: String; procedure SetPAGINA_WEBValue(const aValue: String); function GetNOTASValue: IROStrings; procedure SetNOTASValue(const aValue: IROStrings); function GetFECHA_ALTAValue: DateTime; procedure SetFECHA_ALTAValue(const aValue: DateTime); function GetFECHA_MODIFICACIONValue: DateTime; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); function GetUSUARIOValue: String; procedure SetUSUARIOValue(const aValue: String); function GetID_EMPRESAValue: Integer; procedure SetID_EMPRESAValue(const aValue: Integer); { Properties } property ID: Integer read GetIDValue write SetIDValue; property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property CALLE: String read GetCALLEValue write SetCALLEValue; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value; property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value; property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value; property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value; property FAX: String read GetFAXValue write SetFAXValue; property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value; property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value; property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; property NOTAS: IROStrings read GetNOTASValue write SetNOTASValue; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; end; { TContactosDataTableRules } TContactosDataTableRules = class(TDADataTableRules, IContactos) private protected { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetID_CATEGORIAValue: Integer; virtual; procedure SetID_CATEGORIAValue(const aValue: Integer); virtual; function GetNIF_CIFValue: String; virtual; procedure SetNIF_CIFValue(const aValue: String); virtual; function GetNOMBREValue: String; virtual; procedure SetNOMBREValue(const aValue: String); virtual; function GetCALLEValue: String; virtual; procedure SetCALLEValue(const aValue: String); virtual; function GetPOBLACIONValue: String; virtual; procedure SetPOBLACIONValue(const aValue: String); virtual; function GetPROVINCIAValue: String; virtual; procedure SetPROVINCIAValue(const aValue: String); virtual; function GetCODIGO_POSTALValue: String; virtual; procedure SetCODIGO_POSTALValue(const aValue: String); virtual; function GetTELEFONO_1Value: String; virtual; procedure SetTELEFONO_1Value(const aValue: String); virtual; function GetTELEFONO_2Value: String; virtual; procedure SetTELEFONO_2Value(const aValue: String); virtual; function GetMOVIL_1Value: String; virtual; procedure SetMOVIL_1Value(const aValue: String); virtual; function GetMOVIL_2Value: String; virtual; procedure SetMOVIL_2Value(const aValue: String); virtual; function GetFAXValue: String; virtual; procedure SetFAXValue(const aValue: String); virtual; function GetEMAIL_1Value: String; virtual; procedure SetEMAIL_1Value(const aValue: String); virtual; function GetEMAIL_2Value: String; virtual; procedure SetEMAIL_2Value(const aValue: String); virtual; function GetPAGINA_WEBValue: String; virtual; procedure SetPAGINA_WEBValue(const aValue: String); virtual; function GetNOTASValue: IROStrings; virtual; procedure SetNOTASValue(const aValue: IROStrings); 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 GetUSUARIOValue: String; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; function GetID_EMPRESAValue: Integer; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property CALLE: String read GetCALLEValue write SetCALLEValue; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value; property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value; property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value; property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value; property FAX: String read GetFAXValue write SetFAXValue; property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value; property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value; property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; property NOTAS: IROStrings read GetNOTASValue write SetNOTASValue; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IDatosBancarios } IDatosBancarios = interface(IDAStronglyTypedDataTable) ['{71F462D2-FF71-4977-9B87-59894FE5DB49}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); function GetID_CONTACTOValue: Integer; procedure SetID_CONTACTOValue(const aValue: Integer); function GetTITULARValue: String; procedure SetTITULARValue(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); { Properties } property ID: Integer read GetIDValue write SetIDValue; property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue; property TITULAR: String read GetTITULARValue write SetTITULARValue; 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; end; { TDatosBancariosDataTableRules } TDatosBancariosDataTableRules = class(TDADataTableRules, IDatosBancarios) private protected { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetID_CONTACTOValue: Integer; virtual; procedure SetID_CONTACTOValue(const aValue: Integer); virtual; function GetTITULARValue: String; virtual; procedure SetTITULARValue(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; { Properties } property ID: Integer read GetIDValue write SetIDValue; property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue; property TITULAR: String read GetTITULARValue write SetTITULARValue; 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; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IContactosCategorias } IContactosCategorias = interface(IDAStronglyTypedDataTable) ['{8F28AC86-166B-498F-9F3E-8F37A5DA9C14}'] { Property getters and setters } function GetID_CONTACTOValue: Integer; procedure SetID_CONTACTOValue(const aValue: Integer); function GetID_CATEGORIAValue: Integer; procedure SetID_CATEGORIAValue(const aValue: Integer); { Properties } property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue; property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue; end; { TContactosCategoriasDataTableRules } TContactosCategoriasDataTableRules = class(TDADataTableRules, IContactosCategorias) private protected { Property getters and setters } function GetID_CONTACTOValue: Integer; virtual; procedure SetID_CONTACTOValue(const aValue: Integer); virtual; function GetID_CATEGORIAValue: Integer; virtual; procedure SetID_CATEGORIAValue(const aValue: Integer); virtual; { Properties } property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue; property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IClientes } IClientes = interface(IDAStronglyTypedDataTable) ['{2B89B43E-5DC7-49BE-8811-0F2FE008239C}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); function GetID_CATEGORIAValue: Integer; procedure SetID_CATEGORIAValue(const aValue: Integer); function GetNIF_CIFValue: String; procedure SetNIF_CIFValue(const aValue: String); function GetNOMBREValue: String; procedure SetNOMBREValue(const aValue: String); function GetCALLEValue: String; procedure SetCALLEValue(const aValue: String); function GetPOBLACIONValue: String; procedure SetPOBLACIONValue(const aValue: String); function GetPROVINCIAValue: String; procedure SetPROVINCIAValue(const aValue: String); function GetCODIGO_POSTALValue: String; procedure SetCODIGO_POSTALValue(const aValue: String); function GetTELEFONO_1Value: String; procedure SetTELEFONO_1Value(const aValue: String); function GetTELEFONO_2Value: String; procedure SetTELEFONO_2Value(const aValue: String); function GetMOVIL_1Value: String; procedure SetMOVIL_1Value(const aValue: String); function GetMOVIL_2Value: String; procedure SetMOVIL_2Value(const aValue: String); function GetFAXValue: String; procedure SetFAXValue(const aValue: String); function GetEMAIL_1Value: String; procedure SetEMAIL_1Value(const aValue: String); function GetEMAIL_2Value: String; procedure SetEMAIL_2Value(const aValue: String); function GetPAGINA_WEBValue: String; procedure SetPAGINA_WEBValue(const aValue: String); function GetNOTASValue: IROStrings; procedure SetNOTASValue(const aValue: IROStrings); function GetFECHA_ALTAValue: DateTime; procedure SetFECHA_ALTAValue(const aValue: DateTime); function GetFECHA_MODIFICACIONValue: DateTime; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); function GetUSUARIOValue: String; procedure SetUSUARIOValue(const aValue: String); function GetID_EMPRESAValue: Integer; procedure SetID_EMPRESAValue(const aValue: Integer); function GetID_AGENTEValue: Integer; procedure SetID_AGENTEValue(const aValue: Integer); function GetGRUPO_CLIENTEValue: String; procedure SetGRUPO_CLIENTEValue(const aValue: String); function GetPORTEValue: Float; procedure SetPORTEValue(const aValue: Float); { Properties } property ID: Integer read GetIDValue write SetIDValue; property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property CALLE: String read GetCALLEValue write SetCALLEValue; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value; property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value; property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value; property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value; property FAX: String read GetFAXValue write SetFAXValue; property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value; property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value; property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; property NOTAS: IROStrings read GetNOTASValue write SetNOTASValue; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property PORTE: Float read GetPORTEValue write SetPORTEValue; end; { TClientesDataTableRules } TClientesDataTableRules = class(TDADataTableRules, IClientes) private protected { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetID_CATEGORIAValue: Integer; virtual; procedure SetID_CATEGORIAValue(const aValue: Integer); virtual; function GetNIF_CIFValue: String; virtual; procedure SetNIF_CIFValue(const aValue: String); virtual; function GetNOMBREValue: String; virtual; procedure SetNOMBREValue(const aValue: String); virtual; function GetCALLEValue: String; virtual; procedure SetCALLEValue(const aValue: String); virtual; function GetPOBLACIONValue: String; virtual; procedure SetPOBLACIONValue(const aValue: String); virtual; function GetPROVINCIAValue: String; virtual; procedure SetPROVINCIAValue(const aValue: String); virtual; function GetCODIGO_POSTALValue: String; virtual; procedure SetCODIGO_POSTALValue(const aValue: String); virtual; function GetTELEFONO_1Value: String; virtual; procedure SetTELEFONO_1Value(const aValue: String); virtual; function GetTELEFONO_2Value: String; virtual; procedure SetTELEFONO_2Value(const aValue: String); virtual; function GetMOVIL_1Value: String; virtual; procedure SetMOVIL_1Value(const aValue: String); virtual; function GetMOVIL_2Value: String; virtual; procedure SetMOVIL_2Value(const aValue: String); virtual; function GetFAXValue: String; virtual; procedure SetFAXValue(const aValue: String); virtual; function GetEMAIL_1Value: String; virtual; procedure SetEMAIL_1Value(const aValue: String); virtual; function GetEMAIL_2Value: String; virtual; procedure SetEMAIL_2Value(const aValue: String); virtual; function GetPAGINA_WEBValue: String; virtual; procedure SetPAGINA_WEBValue(const aValue: String); virtual; function GetNOTASValue: IROStrings; virtual; procedure SetNOTASValue(const aValue: IROStrings); 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 GetUSUARIOValue: String; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; function GetID_EMPRESAValue: Integer; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; function GetID_AGENTEValue: Integer; virtual; procedure SetID_AGENTEValue(const aValue: Integer); virtual; function GetGRUPO_CLIENTEValue: String; virtual; procedure SetGRUPO_CLIENTEValue(const aValue: String); virtual; function GetPORTEValue: Float; virtual; procedure SetPORTEValue(const aValue: Float); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property CALLE: String read GetCALLEValue write SetCALLEValue; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value; property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value; property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value; property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value; property FAX: String read GetFAXValue write SetFAXValue; property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value; property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value; property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; property NOTAS: IROStrings read GetNOTASValue write SetNOTASValue; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property PORTE: Float read GetPORTEValue write SetPORTEValue; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IProveedores } IProveedores = interface(IDAStronglyTypedDataTable) ['{5FAA871B-860D-4D60-80F3-4AD346B15335}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); function GetID_CATEGORIAValue: Integer; procedure SetID_CATEGORIAValue(const aValue: Integer); function GetNIF_CIFValue: String; procedure SetNIF_CIFValue(const aValue: String); function GetNOMBREValue: String; procedure SetNOMBREValue(const aValue: String); function GetCALLEValue: String; procedure SetCALLEValue(const aValue: String); function GetPOBLACIONValue: String; procedure SetPOBLACIONValue(const aValue: String); function GetPROVINCIAValue: String; procedure SetPROVINCIAValue(const aValue: String); function GetCODIGO_POSTALValue: String; procedure SetCODIGO_POSTALValue(const aValue: String); function GetTELEFONO_1Value: String; procedure SetTELEFONO_1Value(const aValue: String); function GetTELEFONO_2Value: String; procedure SetTELEFONO_2Value(const aValue: String); function GetMOVIL_1Value: String; procedure SetMOVIL_1Value(const aValue: String); function GetMOVIL_2Value: String; procedure SetMOVIL_2Value(const aValue: String); function GetFAXValue: String; procedure SetFAXValue(const aValue: String); function GetEMAIL_1Value: String; procedure SetEMAIL_1Value(const aValue: String); function GetEMAIL_2Value: String; procedure SetEMAIL_2Value(const aValue: String); function GetPAGINA_WEBValue: String; procedure SetPAGINA_WEBValue(const aValue: String); function GetNOTASValue: IROStrings; procedure SetNOTASValue(const aValue: IROStrings); function GetFECHA_ALTAValue: DateTime; procedure SetFECHA_ALTAValue(const aValue: DateTime); function GetFECHA_MODIFICACIONValue: DateTime; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); function GetUSUARIOValue: String; procedure SetUSUARIOValue(const aValue: String); function GetID_EMPRESAValue: Integer; procedure SetID_EMPRESAValue(const aValue: Integer); function GetREGIMEN_IVAValue: Float; procedure SetREGIMEN_IVAValue(const aValue: Float); function GetDESCUENTOValue: Float; procedure SetDESCUENTOValue(const aValue: Float); { Properties } property ID: Integer read GetIDValue write SetIDValue; property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property CALLE: String read GetCALLEValue write SetCALLEValue; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value; property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value; property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value; property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value; property FAX: String read GetFAXValue write SetFAXValue; property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value; property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value; property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; property NOTAS: IROStrings read GetNOTASValue write SetNOTASValue; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property REGIMEN_IVA: Float read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; end; { TProveedoresDataTableRules } TProveedoresDataTableRules = class(TDADataTableRules, IProveedores) private protected { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetID_CATEGORIAValue: Integer; virtual; procedure SetID_CATEGORIAValue(const aValue: Integer); virtual; function GetNIF_CIFValue: String; virtual; procedure SetNIF_CIFValue(const aValue: String); virtual; function GetNOMBREValue: String; virtual; procedure SetNOMBREValue(const aValue: String); virtual; function GetCALLEValue: String; virtual; procedure SetCALLEValue(const aValue: String); virtual; function GetPOBLACIONValue: String; virtual; procedure SetPOBLACIONValue(const aValue: String); virtual; function GetPROVINCIAValue: String; virtual; procedure SetPROVINCIAValue(const aValue: String); virtual; function GetCODIGO_POSTALValue: String; virtual; procedure SetCODIGO_POSTALValue(const aValue: String); virtual; function GetTELEFONO_1Value: String; virtual; procedure SetTELEFONO_1Value(const aValue: String); virtual; function GetTELEFONO_2Value: String; virtual; procedure SetTELEFONO_2Value(const aValue: String); virtual; function GetMOVIL_1Value: String; virtual; procedure SetMOVIL_1Value(const aValue: String); virtual; function GetMOVIL_2Value: String; virtual; procedure SetMOVIL_2Value(const aValue: String); virtual; function GetFAXValue: String; virtual; procedure SetFAXValue(const aValue: String); virtual; function GetEMAIL_1Value: String; virtual; procedure SetEMAIL_1Value(const aValue: String); virtual; function GetEMAIL_2Value: String; virtual; procedure SetEMAIL_2Value(const aValue: String); virtual; function GetPAGINA_WEBValue: String; virtual; procedure SetPAGINA_WEBValue(const aValue: String); virtual; function GetNOTASValue: IROStrings; virtual; procedure SetNOTASValue(const aValue: IROStrings); 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 GetUSUARIOValue: String; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; function GetID_EMPRESAValue: Integer; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; function GetREGIMEN_IVAValue: Float; virtual; procedure SetREGIMEN_IVAValue(const aValue: Float); virtual; function GetDESCUENTOValue: Float; virtual; procedure SetDESCUENTOValue(const aValue: Float); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property CALLE: String read GetCALLEValue write SetCALLEValue; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value; property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value; property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value; property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value; property FAX: String read GetFAXValue write SetFAXValue; property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value; property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value; property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; property NOTAS: IROStrings read GetNOTASValue write SetNOTASValue; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property REGIMEN_IVA: Float read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IAgentes } IAgentes = interface(IDAStronglyTypedDataTable) ['{E7890154-28D0-4263-957A-5E4A5BAB7641}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); function GetID_CATEGORIAValue: Integer; procedure SetID_CATEGORIAValue(const aValue: Integer); function GetNIF_CIFValue: String; procedure SetNIF_CIFValue(const aValue: String); function GetNOMBREValue: String; procedure SetNOMBREValue(const aValue: String); function GetCALLEValue: String; procedure SetCALLEValue(const aValue: String); function GetPOBLACIONValue: String; procedure SetPOBLACIONValue(const aValue: String); function GetPROVINCIAValue: String; procedure SetPROVINCIAValue(const aValue: String); function GetCODIGO_POSTALValue: String; procedure SetCODIGO_POSTALValue(const aValue: String); function GetTELEFONO_1Value: String; procedure SetTELEFONO_1Value(const aValue: String); function GetTELEFONO_2Value: String; procedure SetTELEFONO_2Value(const aValue: String); function GetMOVIL_1Value: String; procedure SetMOVIL_1Value(const aValue: String); function GetMOVIL_2Value: String; procedure SetMOVIL_2Value(const aValue: String); function GetFAXValue: String; procedure SetFAXValue(const aValue: String); function GetEMAIL_1Value: String; procedure SetEMAIL_1Value(const aValue: String); function GetEMAIL_2Value: String; procedure SetEMAIL_2Value(const aValue: String); function GetPAGINA_WEBValue: String; procedure SetPAGINA_WEBValue(const aValue: String); function GetNOTASValue: IROStrings; procedure SetNOTASValue(const aValue: IROStrings); function GetFECHA_ALTAValue: DateTime; procedure SetFECHA_ALTAValue(const aValue: DateTime); function GetFECHA_MODIFICACIONValue: DateTime; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); function GetUSUARIOValue: String; procedure SetUSUARIOValue(const aValue: String); function GetID_EMPRESAValue: Integer; procedure SetID_EMPRESAValue(const aValue: Integer); { Properties } property ID: Integer read GetIDValue write SetIDValue; property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property CALLE: String read GetCALLEValue write SetCALLEValue; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value; property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value; property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value; property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value; property FAX: String read GetFAXValue write SetFAXValue; property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value; property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value; property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; property NOTAS: IROStrings read GetNOTASValue write SetNOTASValue; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; end; { TAgentesDataTableRules } TAgentesDataTableRules = class(TDADataTableRules, IAgentes) private protected { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetID_CATEGORIAValue: Integer; virtual; procedure SetID_CATEGORIAValue(const aValue: Integer); virtual; function GetNIF_CIFValue: String; virtual; procedure SetNIF_CIFValue(const aValue: String); virtual; function GetNOMBREValue: String; virtual; procedure SetNOMBREValue(const aValue: String); virtual; function GetCALLEValue: String; virtual; procedure SetCALLEValue(const aValue: String); virtual; function GetPOBLACIONValue: String; virtual; procedure SetPOBLACIONValue(const aValue: String); virtual; function GetPROVINCIAValue: String; virtual; procedure SetPROVINCIAValue(const aValue: String); virtual; function GetCODIGO_POSTALValue: String; virtual; procedure SetCODIGO_POSTALValue(const aValue: String); virtual; function GetTELEFONO_1Value: String; virtual; procedure SetTELEFONO_1Value(const aValue: String); virtual; function GetTELEFONO_2Value: String; virtual; procedure SetTELEFONO_2Value(const aValue: String); virtual; function GetMOVIL_1Value: String; virtual; procedure SetMOVIL_1Value(const aValue: String); virtual; function GetMOVIL_2Value: String; virtual; procedure SetMOVIL_2Value(const aValue: String); virtual; function GetFAXValue: String; virtual; procedure SetFAXValue(const aValue: String); virtual; function GetEMAIL_1Value: String; virtual; procedure SetEMAIL_1Value(const aValue: String); virtual; function GetEMAIL_2Value: String; virtual; procedure SetEMAIL_2Value(const aValue: String); virtual; function GetPAGINA_WEBValue: String; virtual; procedure SetPAGINA_WEBValue(const aValue: String); virtual; function GetNOTASValue: IROStrings; virtual; procedure SetNOTASValue(const aValue: IROStrings); 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 GetUSUARIOValue: String; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; function GetID_EMPRESAValue: Integer; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property CALLE: String read GetCALLEValue write SetCALLEValue; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value; property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value; property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value; property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value; property FAX: String read GetFAXValue write SetFAXValue; property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value; property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value; property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; property NOTAS: IROStrings read GetNOTASValue write SetNOTASValue; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IDireccionesContacto } IDireccionesContacto = interface(IDAStronglyTypedDataTable) ['{E9EB57D5-9156-4036-8CE4-92B825324029}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); function GetID_CONTACTOValue: Integer; procedure SetID_CONTACTOValue(const aValue: Integer); function GetCALLEValue: String; procedure SetCALLEValue(const aValue: String); function GetPOBLACIONValue: String; procedure SetPOBLACIONValue(const aValue: String); function GetPROVINCIAValue: String; procedure SetPROVINCIAValue(const aValue: String); function GetCODIGO_POSTALValue: String; procedure SetCODIGO_POSTALValue(const aValue: String); function GetPERSONA_CONTACTOValue: String; procedure SetPERSONA_CONTACTOValue(const aValue: String); { Properties } property ID: Integer read GetIDValue write SetIDValue; property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue; property CALLE: String read GetCALLEValue write SetCALLEValue; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; end; { TDireccionesContactoDataTableRules } TDireccionesContactoDataTableRules = class(TDADataTableRules, IDireccionesContacto) private protected { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetID_CONTACTOValue: Integer; virtual; procedure SetID_CONTACTOValue(const aValue: Integer); virtual; function GetCALLEValue: String; virtual; procedure SetCALLEValue(const aValue: String); virtual; function GetPOBLACIONValue: String; virtual; procedure SetPOBLACIONValue(const aValue: String); virtual; function GetPROVINCIAValue: String; virtual; procedure SetPROVINCIAValue(const aValue: String); virtual; function GetCODIGO_POSTALValue: String; virtual; procedure SetCODIGO_POSTALValue(const aValue: String); virtual; function GetPERSONA_CONTACTOValue: String; virtual; procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue; property CALLE: String read GetCALLEValue write SetCALLEValue; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IClientesGrupos } IClientesGrupos = interface(IDAStronglyTypedDataTable) ['{E2DCF89C-3F33-469E-AD36-61B0074C9FF2}'] { Property getters and setters } function GetDESCRIPCIONValue: String; procedure SetDESCRIPCIONValue(const aValue: String); { Properties } property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; end; { TClientesGruposDataTableRules } TClientesGruposDataTableRules = class(TDADataTableRules, IClientesGrupos) private protected { Property getters and setters } function GetDESCRIPCIONValue: String; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; { Properties } property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; implementation uses Variants; { TContactosDataTableRules } constructor TContactosDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TContactosDataTableRules.Destroy; begin inherited; end; function TContactosDataTableRules.GetIDValue: Integer; begin result := DataTable.Fields[idx_ContactosID].AsInteger; end; procedure TContactosDataTableRules.SetIDValue(const aValue: Integer); begin DataTable.Fields[idx_ContactosID].AsInteger := aValue; end; function TContactosDataTableRules.GetID_CATEGORIAValue: Integer; begin result := DataTable.Fields[idx_ContactosID_CATEGORIA].AsInteger; end; procedure TContactosDataTableRules.SetID_CATEGORIAValue(const aValue: Integer); begin DataTable.Fields[idx_ContactosID_CATEGORIA].AsInteger := aValue; end; function TContactosDataTableRules.GetNIF_CIFValue: String; begin result := DataTable.Fields[idx_ContactosNIF_CIF].AsString; end; procedure TContactosDataTableRules.SetNIF_CIFValue(const aValue: String); begin DataTable.Fields[idx_ContactosNIF_CIF].AsString := aValue; end; function TContactosDataTableRules.GetNOMBREValue: String; begin result := DataTable.Fields[idx_ContactosNOMBRE].AsString; end; procedure TContactosDataTableRules.SetNOMBREValue(const aValue: String); begin DataTable.Fields[idx_ContactosNOMBRE].AsString := aValue; end; function TContactosDataTableRules.GetCALLEValue: String; begin result := DataTable.Fields[idx_ContactosCALLE].AsString; end; procedure TContactosDataTableRules.SetCALLEValue(const aValue: String); begin DataTable.Fields[idx_ContactosCALLE].AsString := aValue; end; function TContactosDataTableRules.GetPOBLACIONValue: String; begin result := DataTable.Fields[idx_ContactosPOBLACION].AsString; end; procedure TContactosDataTableRules.SetPOBLACIONValue(const aValue: String); begin DataTable.Fields[idx_ContactosPOBLACION].AsString := aValue; end; function TContactosDataTableRules.GetPROVINCIAValue: String; begin result := DataTable.Fields[idx_ContactosPROVINCIA].AsString; end; procedure TContactosDataTableRules.SetPROVINCIAValue(const aValue: String); begin DataTable.Fields[idx_ContactosPROVINCIA].AsString := aValue; end; function TContactosDataTableRules.GetCODIGO_POSTALValue: String; begin result := DataTable.Fields[idx_ContactosCODIGO_POSTAL].AsString; end; procedure TContactosDataTableRules.SetCODIGO_POSTALValue(const aValue: String); begin DataTable.Fields[idx_ContactosCODIGO_POSTAL].AsString := aValue; end; function TContactosDataTableRules.GetTELEFONO_1Value: String; begin result := DataTable.Fields[idx_ContactosTELEFONO_1].AsString; end; procedure TContactosDataTableRules.SetTELEFONO_1Value(const aValue: String); begin DataTable.Fields[idx_ContactosTELEFONO_1].AsString := aValue; end; function TContactosDataTableRules.GetTELEFONO_2Value: String; begin result := DataTable.Fields[idx_ContactosTELEFONO_2].AsString; end; procedure TContactosDataTableRules.SetTELEFONO_2Value(const aValue: String); begin DataTable.Fields[idx_ContactosTELEFONO_2].AsString := aValue; end; function TContactosDataTableRules.GetMOVIL_1Value: String; begin result := DataTable.Fields[idx_ContactosMOVIL_1].AsString; end; procedure TContactosDataTableRules.SetMOVIL_1Value(const aValue: String); begin DataTable.Fields[idx_ContactosMOVIL_1].AsString := aValue; end; function TContactosDataTableRules.GetMOVIL_2Value: String; begin result := DataTable.Fields[idx_ContactosMOVIL_2].AsString; end; procedure TContactosDataTableRules.SetMOVIL_2Value(const aValue: String); begin DataTable.Fields[idx_ContactosMOVIL_2].AsString := aValue; end; function TContactosDataTableRules.GetFAXValue: String; begin result := DataTable.Fields[idx_ContactosFAX].AsString; end; procedure TContactosDataTableRules.SetFAXValue(const aValue: String); begin DataTable.Fields[idx_ContactosFAX].AsString := aValue; end; function TContactosDataTableRules.GetEMAIL_1Value: String; begin result := DataTable.Fields[idx_ContactosEMAIL_1].AsString; end; procedure TContactosDataTableRules.SetEMAIL_1Value(const aValue: String); begin DataTable.Fields[idx_ContactosEMAIL_1].AsString := aValue; end; function TContactosDataTableRules.GetEMAIL_2Value: String; begin result := DataTable.Fields[idx_ContactosEMAIL_2].AsString; end; procedure TContactosDataTableRules.SetEMAIL_2Value(const aValue: String); begin DataTable.Fields[idx_ContactosEMAIL_2].AsString := aValue; end; function TContactosDataTableRules.GetPAGINA_WEBValue: String; begin result := DataTable.Fields[idx_ContactosPAGINA_WEB].AsString; end; procedure TContactosDataTableRules.SetPAGINA_WEBValue(const aValue: String); begin DataTable.Fields[idx_ContactosPAGINA_WEB].AsString := aValue; end; function TContactosDataTableRules.GetNOTASValue: IROStrings; begin result := NewROStrings(); result.Text := DataTable.Fields[idx_ContactosNOTAS].AsString; end; procedure TContactosDataTableRules.SetNOTASValue(const aValue: IROStrings); begin DataTable.Fields[idx_ContactosNOTAS].AsString := aValue.Text; end; function TContactosDataTableRules.GetFECHA_ALTAValue: DateTime; begin result := DataTable.Fields[idx_ContactosFECHA_ALTA].AsDateTime; end; procedure TContactosDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); begin DataTable.Fields[idx_ContactosFECHA_ALTA].AsDateTime := aValue; end; function TContactosDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := DataTable.Fields[idx_ContactosFECHA_MODIFICACION].AsDateTime; end; procedure TContactosDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin DataTable.Fields[idx_ContactosFECHA_MODIFICACION].AsDateTime := aValue; end; function TContactosDataTableRules.GetUSUARIOValue: String; begin result := DataTable.Fields[idx_ContactosUSUARIO].AsString; end; procedure TContactosDataTableRules.SetUSUARIOValue(const aValue: String); begin DataTable.Fields[idx_ContactosUSUARIO].AsString := aValue; end; function TContactosDataTableRules.GetID_EMPRESAValue: Integer; begin result := DataTable.Fields[idx_ContactosID_EMPRESA].AsInteger; end; procedure TContactosDataTableRules.SetID_EMPRESAValue(const aValue: Integer); begin DataTable.Fields[idx_ContactosID_EMPRESA].AsInteger := aValue; end; { TDatosBancariosDataTableRules } constructor TDatosBancariosDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TDatosBancariosDataTableRules.Destroy; begin inherited; end; function TDatosBancariosDataTableRules.GetIDValue: Integer; begin result := DataTable.Fields[idx_DatosBancariosID].AsInteger; end; procedure TDatosBancariosDataTableRules.SetIDValue(const aValue: Integer); begin DataTable.Fields[idx_DatosBancariosID].AsInteger := aValue; end; function TDatosBancariosDataTableRules.GetID_CONTACTOValue: Integer; begin result := DataTable.Fields[idx_DatosBancariosID_CONTACTO].AsInteger; end; procedure TDatosBancariosDataTableRules.SetID_CONTACTOValue(const aValue: Integer); begin DataTable.Fields[idx_DatosBancariosID_CONTACTO].AsInteger := aValue; end; function TDatosBancariosDataTableRules.GetTITULARValue: String; begin result := DataTable.Fields[idx_DatosBancariosTITULAR].AsString; end; procedure TDatosBancariosDataTableRules.SetTITULARValue(const aValue: String); begin DataTable.Fields[idx_DatosBancariosTITULAR].AsString := aValue; end; function TDatosBancariosDataTableRules.GetENTIDADValue: String; begin result := DataTable.Fields[idx_DatosBancariosENTIDAD].AsString; end; procedure TDatosBancariosDataTableRules.SetENTIDADValue(const aValue: String); begin DataTable.Fields[idx_DatosBancariosENTIDAD].AsString := aValue; end; function TDatosBancariosDataTableRules.GetSUCURSALValue: String; begin result := DataTable.Fields[idx_DatosBancariosSUCURSAL].AsString; end; procedure TDatosBancariosDataTableRules.SetSUCURSALValue(const aValue: String); begin DataTable.Fields[idx_DatosBancariosSUCURSAL].AsString := aValue; end; function TDatosBancariosDataTableRules.GetDCValue: String; begin result := DataTable.Fields[idx_DatosBancariosDC].AsString; end; procedure TDatosBancariosDataTableRules.SetDCValue(const aValue: String); begin DataTable.Fields[idx_DatosBancariosDC].AsString := aValue; end; function TDatosBancariosDataTableRules.GetCUENTAValue: String; begin result := DataTable.Fields[idx_DatosBancariosCUENTA].AsString; end; procedure TDatosBancariosDataTableRules.SetCUENTAValue(const aValue: String); begin DataTable.Fields[idx_DatosBancariosCUENTA].AsString := aValue; end; { TContactosCategoriasDataTableRules } constructor TContactosCategoriasDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TContactosCategoriasDataTableRules.Destroy; begin inherited; end; function TContactosCategoriasDataTableRules.GetID_CONTACTOValue: Integer; begin result := DataTable.Fields[idx_ContactosCategoriasID_CONTACTO].AsInteger; end; procedure TContactosCategoriasDataTableRules.SetID_CONTACTOValue(const aValue: Integer); begin DataTable.Fields[idx_ContactosCategoriasID_CONTACTO].AsInteger := aValue; end; function TContactosCategoriasDataTableRules.GetID_CATEGORIAValue: Integer; begin result := DataTable.Fields[idx_ContactosCategoriasID_CATEGORIA].AsInteger; end; procedure TContactosCategoriasDataTableRules.SetID_CATEGORIAValue(const aValue: Integer); begin DataTable.Fields[idx_ContactosCategoriasID_CATEGORIA].AsInteger := aValue; end; { TClientesDataTableRules } constructor TClientesDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TClientesDataTableRules.Destroy; begin inherited; end; function TClientesDataTableRules.GetIDValue: Integer; begin result := DataTable.Fields[idx_ClientesID].AsInteger; end; procedure TClientesDataTableRules.SetIDValue(const aValue: Integer); begin DataTable.Fields[idx_ClientesID].AsInteger := aValue; end; function TClientesDataTableRules.GetID_CATEGORIAValue: Integer; begin result := DataTable.Fields[idx_ClientesID_CATEGORIA].AsInteger; end; procedure TClientesDataTableRules.SetID_CATEGORIAValue(const aValue: Integer); begin DataTable.Fields[idx_ClientesID_CATEGORIA].AsInteger := aValue; end; function TClientesDataTableRules.GetNIF_CIFValue: String; begin result := DataTable.Fields[idx_ClientesNIF_CIF].AsString; end; procedure TClientesDataTableRules.SetNIF_CIFValue(const aValue: String); begin DataTable.Fields[idx_ClientesNIF_CIF].AsString := aValue; end; function TClientesDataTableRules.GetNOMBREValue: String; begin result := DataTable.Fields[idx_ClientesNOMBRE].AsString; end; procedure TClientesDataTableRules.SetNOMBREValue(const aValue: String); begin DataTable.Fields[idx_ClientesNOMBRE].AsString := aValue; end; function TClientesDataTableRules.GetCALLEValue: String; begin result := DataTable.Fields[idx_ClientesCALLE].AsString; end; procedure TClientesDataTableRules.SetCALLEValue(const aValue: String); begin DataTable.Fields[idx_ClientesCALLE].AsString := aValue; end; function TClientesDataTableRules.GetPOBLACIONValue: String; begin result := DataTable.Fields[idx_ClientesPOBLACION].AsString; end; procedure TClientesDataTableRules.SetPOBLACIONValue(const aValue: String); begin DataTable.Fields[idx_ClientesPOBLACION].AsString := aValue; end; function TClientesDataTableRules.GetPROVINCIAValue: String; begin result := DataTable.Fields[idx_ClientesPROVINCIA].AsString; end; procedure TClientesDataTableRules.SetPROVINCIAValue(const aValue: String); begin DataTable.Fields[idx_ClientesPROVINCIA].AsString := aValue; end; function TClientesDataTableRules.GetCODIGO_POSTALValue: String; begin result := DataTable.Fields[idx_ClientesCODIGO_POSTAL].AsString; end; procedure TClientesDataTableRules.SetCODIGO_POSTALValue(const aValue: String); begin DataTable.Fields[idx_ClientesCODIGO_POSTAL].AsString := aValue; end; function TClientesDataTableRules.GetTELEFONO_1Value: String; begin result := DataTable.Fields[idx_ClientesTELEFONO_1].AsString; end; procedure TClientesDataTableRules.SetTELEFONO_1Value(const aValue: String); begin DataTable.Fields[idx_ClientesTELEFONO_1].AsString := aValue; end; function TClientesDataTableRules.GetTELEFONO_2Value: String; begin result := DataTable.Fields[idx_ClientesTELEFONO_2].AsString; end; procedure TClientesDataTableRules.SetTELEFONO_2Value(const aValue: String); begin DataTable.Fields[idx_ClientesTELEFONO_2].AsString := aValue; end; function TClientesDataTableRules.GetMOVIL_1Value: String; begin result := DataTable.Fields[idx_ClientesMOVIL_1].AsString; end; procedure TClientesDataTableRules.SetMOVIL_1Value(const aValue: String); begin DataTable.Fields[idx_ClientesMOVIL_1].AsString := aValue; end; function TClientesDataTableRules.GetMOVIL_2Value: String; begin result := DataTable.Fields[idx_ClientesMOVIL_2].AsString; end; procedure TClientesDataTableRules.SetMOVIL_2Value(const aValue: String); begin DataTable.Fields[idx_ClientesMOVIL_2].AsString := aValue; end; function TClientesDataTableRules.GetFAXValue: String; begin result := DataTable.Fields[idx_ClientesFAX].AsString; end; procedure TClientesDataTableRules.SetFAXValue(const aValue: String); begin DataTable.Fields[idx_ClientesFAX].AsString := aValue; end; function TClientesDataTableRules.GetEMAIL_1Value: String; begin result := DataTable.Fields[idx_ClientesEMAIL_1].AsString; end; procedure TClientesDataTableRules.SetEMAIL_1Value(const aValue: String); begin DataTable.Fields[idx_ClientesEMAIL_1].AsString := aValue; end; function TClientesDataTableRules.GetEMAIL_2Value: String; begin result := DataTable.Fields[idx_ClientesEMAIL_2].AsString; end; procedure TClientesDataTableRules.SetEMAIL_2Value(const aValue: String); begin DataTable.Fields[idx_ClientesEMAIL_2].AsString := aValue; end; function TClientesDataTableRules.GetPAGINA_WEBValue: String; begin result := DataTable.Fields[idx_ClientesPAGINA_WEB].AsString; end; procedure TClientesDataTableRules.SetPAGINA_WEBValue(const aValue: String); begin DataTable.Fields[idx_ClientesPAGINA_WEB].AsString := aValue; end; function TClientesDataTableRules.GetNOTASValue: IROStrings; begin result := NewROStrings(); result.Text := DataTable.Fields[idx_ClientesNOTAS].AsString; end; procedure TClientesDataTableRules.SetNOTASValue(const aValue: IROStrings); begin DataTable.Fields[idx_ClientesNOTAS].AsString := aValue.Text; end; function TClientesDataTableRules.GetFECHA_ALTAValue: DateTime; begin result := DataTable.Fields[idx_ClientesFECHA_ALTA].AsDateTime; end; procedure TClientesDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); begin DataTable.Fields[idx_ClientesFECHA_ALTA].AsDateTime := aValue; end; function TClientesDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := DataTable.Fields[idx_ClientesFECHA_MODIFICACION].AsDateTime; end; procedure TClientesDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin DataTable.Fields[idx_ClientesFECHA_MODIFICACION].AsDateTime := aValue; end; function TClientesDataTableRules.GetUSUARIOValue: String; begin result := DataTable.Fields[idx_ClientesUSUARIO].AsString; end; procedure TClientesDataTableRules.SetUSUARIOValue(const aValue: String); begin DataTable.Fields[idx_ClientesUSUARIO].AsString := aValue; end; function TClientesDataTableRules.GetID_EMPRESAValue: Integer; begin result := DataTable.Fields[idx_ClientesID_EMPRESA].AsInteger; end; procedure TClientesDataTableRules.SetID_EMPRESAValue(const aValue: Integer); begin DataTable.Fields[idx_ClientesID_EMPRESA].AsInteger := aValue; end; function TClientesDataTableRules.GetID_AGENTEValue: Integer; begin result := DataTable.Fields[idx_ClientesID_AGENTE].AsInteger; end; procedure TClientesDataTableRules.SetID_AGENTEValue(const aValue: Integer); begin DataTable.Fields[idx_ClientesID_AGENTE].AsInteger := aValue; end; function TClientesDataTableRules.GetGRUPO_CLIENTEValue: String; begin result := DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString; end; procedure TClientesDataTableRules.SetGRUPO_CLIENTEValue(const aValue: String); begin DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString := aValue; end; function TClientesDataTableRules.GetPORTEValue: Float; begin result := DataTable.Fields[idx_ClientesPORTE].AsFloat; end; procedure TClientesDataTableRules.SetPORTEValue(const aValue: Float); begin DataTable.Fields[idx_ClientesPORTE].AsFloat := aValue; end; { TProveedoresDataTableRules } constructor TProveedoresDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TProveedoresDataTableRules.Destroy; begin inherited; end; function TProveedoresDataTableRules.GetIDValue: Integer; begin result := DataTable.Fields[idx_ProveedoresID].AsInteger; end; procedure TProveedoresDataTableRules.SetIDValue(const aValue: Integer); begin DataTable.Fields[idx_ProveedoresID].AsInteger := aValue; end; function TProveedoresDataTableRules.GetID_CATEGORIAValue: Integer; begin result := DataTable.Fields[idx_ProveedoresID_CATEGORIA].AsInteger; end; procedure TProveedoresDataTableRules.SetID_CATEGORIAValue(const aValue: Integer); begin DataTable.Fields[idx_ProveedoresID_CATEGORIA].AsInteger := aValue; end; function TProveedoresDataTableRules.GetNIF_CIFValue: String; begin result := DataTable.Fields[idx_ProveedoresNIF_CIF].AsString; end; procedure TProveedoresDataTableRules.SetNIF_CIFValue(const aValue: String); begin DataTable.Fields[idx_ProveedoresNIF_CIF].AsString := aValue; end; function TProveedoresDataTableRules.GetNOMBREValue: String; begin result := DataTable.Fields[idx_ProveedoresNOMBRE].AsString; end; procedure TProveedoresDataTableRules.SetNOMBREValue(const aValue: String); begin DataTable.Fields[idx_ProveedoresNOMBRE].AsString := aValue; end; function TProveedoresDataTableRules.GetCALLEValue: String; begin result := DataTable.Fields[idx_ProveedoresCALLE].AsString; end; procedure TProveedoresDataTableRules.SetCALLEValue(const aValue: String); begin DataTable.Fields[idx_ProveedoresCALLE].AsString := aValue; end; function TProveedoresDataTableRules.GetPOBLACIONValue: String; begin result := DataTable.Fields[idx_ProveedoresPOBLACION].AsString; end; procedure TProveedoresDataTableRules.SetPOBLACIONValue(const aValue: String); begin DataTable.Fields[idx_ProveedoresPOBLACION].AsString := aValue; end; function TProveedoresDataTableRules.GetPROVINCIAValue: String; begin result := DataTable.Fields[idx_ProveedoresPROVINCIA].AsString; end; procedure TProveedoresDataTableRules.SetPROVINCIAValue(const aValue: String); begin DataTable.Fields[idx_ProveedoresPROVINCIA].AsString := aValue; end; function TProveedoresDataTableRules.GetCODIGO_POSTALValue: String; begin result := DataTable.Fields[idx_ProveedoresCODIGO_POSTAL].AsString; end; procedure TProveedoresDataTableRules.SetCODIGO_POSTALValue(const aValue: String); begin DataTable.Fields[idx_ProveedoresCODIGO_POSTAL].AsString := aValue; end; function TProveedoresDataTableRules.GetTELEFONO_1Value: String; begin result := DataTable.Fields[idx_ProveedoresTELEFONO_1].AsString; end; procedure TProveedoresDataTableRules.SetTELEFONO_1Value(const aValue: String); begin DataTable.Fields[idx_ProveedoresTELEFONO_1].AsString := aValue; end; function TProveedoresDataTableRules.GetTELEFONO_2Value: String; begin result := DataTable.Fields[idx_ProveedoresTELEFONO_2].AsString; end; procedure TProveedoresDataTableRules.SetTELEFONO_2Value(const aValue: String); begin DataTable.Fields[idx_ProveedoresTELEFONO_2].AsString := aValue; end; function TProveedoresDataTableRules.GetMOVIL_1Value: String; begin result := DataTable.Fields[idx_ProveedoresMOVIL_1].AsString; end; procedure TProveedoresDataTableRules.SetMOVIL_1Value(const aValue: String); begin DataTable.Fields[idx_ProveedoresMOVIL_1].AsString := aValue; end; function TProveedoresDataTableRules.GetMOVIL_2Value: String; begin result := DataTable.Fields[idx_ProveedoresMOVIL_2].AsString; end; procedure TProveedoresDataTableRules.SetMOVIL_2Value(const aValue: String); begin DataTable.Fields[idx_ProveedoresMOVIL_2].AsString := aValue; end; function TProveedoresDataTableRules.GetFAXValue: String; begin result := DataTable.Fields[idx_ProveedoresFAX].AsString; end; procedure TProveedoresDataTableRules.SetFAXValue(const aValue: String); begin DataTable.Fields[idx_ProveedoresFAX].AsString := aValue; end; function TProveedoresDataTableRules.GetEMAIL_1Value: String; begin result := DataTable.Fields[idx_ProveedoresEMAIL_1].AsString; end; procedure TProveedoresDataTableRules.SetEMAIL_1Value(const aValue: String); begin DataTable.Fields[idx_ProveedoresEMAIL_1].AsString := aValue; end; function TProveedoresDataTableRules.GetEMAIL_2Value: String; begin result := DataTable.Fields[idx_ProveedoresEMAIL_2].AsString; end; procedure TProveedoresDataTableRules.SetEMAIL_2Value(const aValue: String); begin DataTable.Fields[idx_ProveedoresEMAIL_2].AsString := aValue; end; function TProveedoresDataTableRules.GetPAGINA_WEBValue: String; begin result := DataTable.Fields[idx_ProveedoresPAGINA_WEB].AsString; end; procedure TProveedoresDataTableRules.SetPAGINA_WEBValue(const aValue: String); begin DataTable.Fields[idx_ProveedoresPAGINA_WEB].AsString := aValue; end; function TProveedoresDataTableRules.GetNOTASValue: IROStrings; begin result := NewROStrings(); result.Text := DataTable.Fields[idx_ProveedoresNOTAS].AsString; end; procedure TProveedoresDataTableRules.SetNOTASValue(const aValue: IROStrings); begin DataTable.Fields[idx_ProveedoresNOTAS].AsString := aValue.Text; end; function TProveedoresDataTableRules.GetFECHA_ALTAValue: DateTime; begin result := DataTable.Fields[idx_ProveedoresFECHA_ALTA].AsDateTime; end; procedure TProveedoresDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); begin DataTable.Fields[idx_ProveedoresFECHA_ALTA].AsDateTime := aValue; end; function TProveedoresDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := DataTable.Fields[idx_ProveedoresFECHA_MODIFICACION].AsDateTime; end; procedure TProveedoresDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin DataTable.Fields[idx_ProveedoresFECHA_MODIFICACION].AsDateTime := aValue; end; function TProveedoresDataTableRules.GetUSUARIOValue: String; begin result := DataTable.Fields[idx_ProveedoresUSUARIO].AsString; end; procedure TProveedoresDataTableRules.SetUSUARIOValue(const aValue: String); begin DataTable.Fields[idx_ProveedoresUSUARIO].AsString := aValue; end; function TProveedoresDataTableRules.GetID_EMPRESAValue: Integer; begin result := DataTable.Fields[idx_ProveedoresID_EMPRESA].AsInteger; end; procedure TProveedoresDataTableRules.SetID_EMPRESAValue(const aValue: Integer); begin DataTable.Fields[idx_ProveedoresID_EMPRESA].AsInteger := aValue; end; function TProveedoresDataTableRules.GetREGIMEN_IVAValue: Float; begin result := DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsFloat; end; procedure TProveedoresDataTableRules.SetREGIMEN_IVAValue(const aValue: Float); begin DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsFloat := aValue; end; function TProveedoresDataTableRules.GetDESCUENTOValue: Float; begin result := DataTable.Fields[idx_ProveedoresDESCUENTO].AsFloat; end; procedure TProveedoresDataTableRules.SetDESCUENTOValue(const aValue: Float); begin DataTable.Fields[idx_ProveedoresDESCUENTO].AsFloat := aValue; end; { TAgentesDataTableRules } constructor TAgentesDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TAgentesDataTableRules.Destroy; begin inherited; end; function TAgentesDataTableRules.GetIDValue: Integer; begin result := DataTable.Fields[idx_AgentesID].AsInteger; end; procedure TAgentesDataTableRules.SetIDValue(const aValue: Integer); begin DataTable.Fields[idx_AgentesID].AsInteger := aValue; end; function TAgentesDataTableRules.GetID_CATEGORIAValue: Integer; begin result := DataTable.Fields[idx_AgentesID_CATEGORIA].AsInteger; end; procedure TAgentesDataTableRules.SetID_CATEGORIAValue(const aValue: Integer); begin DataTable.Fields[idx_AgentesID_CATEGORIA].AsInteger := aValue; end; function TAgentesDataTableRules.GetNIF_CIFValue: String; begin result := DataTable.Fields[idx_AgentesNIF_CIF].AsString; end; procedure TAgentesDataTableRules.SetNIF_CIFValue(const aValue: String); begin DataTable.Fields[idx_AgentesNIF_CIF].AsString := aValue; end; function TAgentesDataTableRules.GetNOMBREValue: String; begin result := DataTable.Fields[idx_AgentesNOMBRE].AsString; end; procedure TAgentesDataTableRules.SetNOMBREValue(const aValue: String); begin DataTable.Fields[idx_AgentesNOMBRE].AsString := aValue; end; function TAgentesDataTableRules.GetCALLEValue: String; begin result := DataTable.Fields[idx_AgentesCALLE].AsString; end; procedure TAgentesDataTableRules.SetCALLEValue(const aValue: String); begin DataTable.Fields[idx_AgentesCALLE].AsString := aValue; end; function TAgentesDataTableRules.GetPOBLACIONValue: String; begin result := DataTable.Fields[idx_AgentesPOBLACION].AsString; end; procedure TAgentesDataTableRules.SetPOBLACIONValue(const aValue: String); begin DataTable.Fields[idx_AgentesPOBLACION].AsString := aValue; end; function TAgentesDataTableRules.GetPROVINCIAValue: String; begin result := DataTable.Fields[idx_AgentesPROVINCIA].AsString; end; procedure TAgentesDataTableRules.SetPROVINCIAValue(const aValue: String); begin DataTable.Fields[idx_AgentesPROVINCIA].AsString := aValue; end; function TAgentesDataTableRules.GetCODIGO_POSTALValue: String; begin result := DataTable.Fields[idx_AgentesCODIGO_POSTAL].AsString; end; procedure TAgentesDataTableRules.SetCODIGO_POSTALValue(const aValue: String); begin DataTable.Fields[idx_AgentesCODIGO_POSTAL].AsString := aValue; end; function TAgentesDataTableRules.GetTELEFONO_1Value: String; begin result := DataTable.Fields[idx_AgentesTELEFONO_1].AsString; end; procedure TAgentesDataTableRules.SetTELEFONO_1Value(const aValue: String); begin DataTable.Fields[idx_AgentesTELEFONO_1].AsString := aValue; end; function TAgentesDataTableRules.GetTELEFONO_2Value: String; begin result := DataTable.Fields[idx_AgentesTELEFONO_2].AsString; end; procedure TAgentesDataTableRules.SetTELEFONO_2Value(const aValue: String); begin DataTable.Fields[idx_AgentesTELEFONO_2].AsString := aValue; end; function TAgentesDataTableRules.GetMOVIL_1Value: String; begin result := DataTable.Fields[idx_AgentesMOVIL_1].AsString; end; procedure TAgentesDataTableRules.SetMOVIL_1Value(const aValue: String); begin DataTable.Fields[idx_AgentesMOVIL_1].AsString := aValue; end; function TAgentesDataTableRules.GetMOVIL_2Value: String; begin result := DataTable.Fields[idx_AgentesMOVIL_2].AsString; end; procedure TAgentesDataTableRules.SetMOVIL_2Value(const aValue: String); begin DataTable.Fields[idx_AgentesMOVIL_2].AsString := aValue; end; function TAgentesDataTableRules.GetFAXValue: String; begin result := DataTable.Fields[idx_AgentesFAX].AsString; end; procedure TAgentesDataTableRules.SetFAXValue(const aValue: String); begin DataTable.Fields[idx_AgentesFAX].AsString := aValue; end; function TAgentesDataTableRules.GetEMAIL_1Value: String; begin result := DataTable.Fields[idx_AgentesEMAIL_1].AsString; end; procedure TAgentesDataTableRules.SetEMAIL_1Value(const aValue: String); begin DataTable.Fields[idx_AgentesEMAIL_1].AsString := aValue; end; function TAgentesDataTableRules.GetEMAIL_2Value: String; begin result := DataTable.Fields[idx_AgentesEMAIL_2].AsString; end; procedure TAgentesDataTableRules.SetEMAIL_2Value(const aValue: String); begin DataTable.Fields[idx_AgentesEMAIL_2].AsString := aValue; end; function TAgentesDataTableRules.GetPAGINA_WEBValue: String; begin result := DataTable.Fields[idx_AgentesPAGINA_WEB].AsString; end; procedure TAgentesDataTableRules.SetPAGINA_WEBValue(const aValue: String); begin DataTable.Fields[idx_AgentesPAGINA_WEB].AsString := aValue; end; function TAgentesDataTableRules.GetNOTASValue: IROStrings; begin result := NewROStrings(); result.Text := DataTable.Fields[idx_AgentesNOTAS].AsString; end; procedure TAgentesDataTableRules.SetNOTASValue(const aValue: IROStrings); begin DataTable.Fields[idx_AgentesNOTAS].AsString := aValue.Text; end; function TAgentesDataTableRules.GetFECHA_ALTAValue: DateTime; begin result := DataTable.Fields[idx_AgentesFECHA_ALTA].AsDateTime; end; procedure TAgentesDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); begin DataTable.Fields[idx_AgentesFECHA_ALTA].AsDateTime := aValue; end; function TAgentesDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := DataTable.Fields[idx_AgentesFECHA_MODIFICACION].AsDateTime; end; procedure TAgentesDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin DataTable.Fields[idx_AgentesFECHA_MODIFICACION].AsDateTime := aValue; end; function TAgentesDataTableRules.GetUSUARIOValue: String; begin result := DataTable.Fields[idx_AgentesUSUARIO].AsString; end; procedure TAgentesDataTableRules.SetUSUARIOValue(const aValue: String); begin DataTable.Fields[idx_AgentesUSUARIO].AsString := aValue; end; function TAgentesDataTableRules.GetID_EMPRESAValue: Integer; begin result := DataTable.Fields[idx_AgentesID_EMPRESA].AsInteger; end; procedure TAgentesDataTableRules.SetID_EMPRESAValue(const aValue: Integer); begin DataTable.Fields[idx_AgentesID_EMPRESA].AsInteger := aValue; end; { TDireccionesContactoDataTableRules } constructor TDireccionesContactoDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TDireccionesContactoDataTableRules.Destroy; begin inherited; end; function TDireccionesContactoDataTableRules.GetIDValue: Integer; begin result := DataTable.Fields[idx_DireccionesContactoID].AsInteger; end; procedure TDireccionesContactoDataTableRules.SetIDValue(const aValue: Integer); begin DataTable.Fields[idx_DireccionesContactoID].AsInteger := aValue; end; function TDireccionesContactoDataTableRules.GetID_CONTACTOValue: Integer; begin result := DataTable.Fields[idx_DireccionesContactoID_CONTACTO].AsInteger; end; procedure TDireccionesContactoDataTableRules.SetID_CONTACTOValue(const aValue: Integer); begin DataTable.Fields[idx_DireccionesContactoID_CONTACTO].AsInteger := aValue; end; function TDireccionesContactoDataTableRules.GetCALLEValue: String; begin result := DataTable.Fields[idx_DireccionesContactoCALLE].AsString; end; procedure TDireccionesContactoDataTableRules.SetCALLEValue(const aValue: String); begin DataTable.Fields[idx_DireccionesContactoCALLE].AsString := aValue; end; function TDireccionesContactoDataTableRules.GetPOBLACIONValue: String; begin result := DataTable.Fields[idx_DireccionesContactoPOBLACION].AsString; end; procedure TDireccionesContactoDataTableRules.SetPOBLACIONValue(const aValue: String); begin DataTable.Fields[idx_DireccionesContactoPOBLACION].AsString := aValue; end; function TDireccionesContactoDataTableRules.GetPROVINCIAValue: String; begin result := DataTable.Fields[idx_DireccionesContactoPROVINCIA].AsString; end; procedure TDireccionesContactoDataTableRules.SetPROVINCIAValue(const aValue: String); begin DataTable.Fields[idx_DireccionesContactoPROVINCIA].AsString := aValue; end; function TDireccionesContactoDataTableRules.GetCODIGO_POSTALValue: String; begin result := DataTable.Fields[idx_DireccionesContactoCODIGO_POSTAL].AsString; end; procedure TDireccionesContactoDataTableRules.SetCODIGO_POSTALValue(const aValue: String); begin DataTable.Fields[idx_DireccionesContactoCODIGO_POSTAL].AsString := aValue; end; function TDireccionesContactoDataTableRules.GetPERSONA_CONTACTOValue: String; begin result := DataTable.Fields[idx_DireccionesContactoPERSONA_CONTACTO].AsString; end; procedure TDireccionesContactoDataTableRules.SetPERSONA_CONTACTOValue(const aValue: String); begin DataTable.Fields[idx_DireccionesContactoPERSONA_CONTACTO].AsString := aValue; end; { TClientesGruposDataTableRules } constructor TClientesGruposDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TClientesGruposDataTableRules.Destroy; begin inherited; end; function TClientesGruposDataTableRules.GetDESCRIPCIONValue: String; begin result := DataTable.Fields[idx_ClientesGruposDESCRIPCION].AsString; end; procedure TClientesGruposDataTableRules.SetDESCRIPCIONValue(const aValue: String); begin DataTable.Fields[idx_ClientesGruposDESCRIPCION].AsString := aValue; end; initialization RegisterDataTableRules(RID_Contactos, TContactosDataTableRules); RegisterDataTableRules(RID_DatosBancarios, TDatosBancariosDataTableRules); RegisterDataTableRules(RID_ContactosCategorias, TContactosCategoriasDataTableRules); RegisterDataTableRules(RID_Clientes, TClientesDataTableRules); RegisterDataTableRules(RID_Proveedores, TProveedoresDataTableRules); RegisterDataTableRules(RID_Agentes, TAgentesDataTableRules); RegisterDataTableRules(RID_DireccionesContacto, TDireccionesContactoDataTableRules); RegisterDataTableRules(RID_ClientesGrupos, TClientesGruposDataTableRules); end.