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 = '{4702B17F-2C8C-4EDB-951F-501A4B940F9D}'; RID_GruposCliente = '{12028CAB-36D8-48CA-9154-325B58403561}'; RID_DatosBancarios = '{E2BFD8E8-37C6-4E91-A66E-5021A52A0229}'; RID_ContactosCategorias = '{A0AE66D8-6E9D-47C4-BC56-3584B21BE55A}'; RID_Clientes = '{4A4AA93F-8EE6-4967-8046-E19791A0EEC1}'; RID_Proveedores = '{DC04F4C0-A1A4-41A3-9E00-C8DB73300D35}'; RID_Empleados = '{19D88701-7312-4C3B-87FB-79C5060AB9EC}'; RID_DireccionesContacto = '{9E3FAF78-7E14-43F3-875F-87BF6EA34C0B}'; RID_ClientesDescuentos = '{00A7347D-BC94-43F1-BE47-EB33FECA3941}'; RID_GruposProveedor = '{74F8D1EC-C607-48A3-92CE-14266EB1D056}'; RID_GruposEmpleado = '{C8376B2F-DC19-4DB9-9992-3A744251ED6D}'; { Data table names } nme_Contactos = 'Contactos'; nme_GruposCliente = 'GruposCliente'; nme_DatosBancarios = 'DatosBancarios'; nme_ContactosCategorias = 'ContactosCategorias'; nme_Clientes = 'Clientes'; nme_Proveedores = 'Proveedores'; nme_Empleados = 'Empleados'; nme_DireccionesContacto = 'DireccionesContacto'; nme_ClientesDescuentos = 'ClientesDescuentos'; nme_GruposProveedor = 'GruposProveedor'; nme_GruposEmpleado = 'GruposEmpleado'; { Contactos fields } fld_ContactosID = 'ID'; fld_ContactosID_CATEGORIA = 'ID_CATEGORIA'; fld_ContactosNIF_CIF = 'NIF_CIF'; fld_ContactosNOMBRE = 'NOMBRE'; fld_ContactosPERSONA_CONTACTO = 'PERSONA_CONTACTO'; 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_ContactosUSUARIO = 'USUARIO'; fld_ContactosID_EMPRESA = 'ID_EMPRESA'; fld_ContactosREFERENCIA = 'REFERENCIA'; { Contactos field indexes } idx_ContactosID = 0; idx_ContactosID_CATEGORIA = 1; idx_ContactosNIF_CIF = 2; idx_ContactosNOMBRE = 3; idx_ContactosPERSONA_CONTACTO = 4; idx_ContactosCALLE = 5; idx_ContactosPOBLACION = 6; idx_ContactosPROVINCIA = 7; idx_ContactosCODIGO_POSTAL = 8; idx_ContactosTELEFONO_1 = 9; idx_ContactosTELEFONO_2 = 10; idx_ContactosMOVIL_1 = 11; idx_ContactosMOVIL_2 = 12; idx_ContactosFAX = 13; idx_ContactosEMAIL_1 = 14; idx_ContactosEMAIL_2 = 15; idx_ContactosPAGINA_WEB = 16; idx_ContactosNOTAS = 17; idx_ContactosUSUARIO = 18; idx_ContactosID_EMPRESA = 19; idx_ContactosREFERENCIA = 20; { GruposCliente fields } fld_GruposClienteDESCRIPCION = 'DESCRIPCION'; { GruposCliente field indexes } idx_GruposClienteDESCRIPCION = 0; { 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_ClientesPERSONA_CONTACTO = 'PERSONA_CONTACTO'; 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_ClientesUSUARIO = 'USUARIO'; fld_ClientesID_EMPRESA = 'ID_EMPRESA'; fld_ClientesREFERENCIA = 'REFERENCIA'; fld_ClientesID_TIPO_IVA = 'ID_TIPO_IVA'; fld_ClientesREGIMEN_IVA = 'REGIMEN_IVA'; fld_ClientesID_FORMA_PAGO = 'ID_FORMA_PAGO'; fld_ClientesTIENDA_WEB = 'TIENDA_WEB'; fld_ClientesRECARGO_EQUIVALENCIA = 'RECARGO_EQUIVALENCIA'; fld_ClientesGRUPO_CLIENTE = 'GRUPO_CLIENTE'; fld_ClientesNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL'; fld_ClientesVENCIMIENTO_FACTURAS = 'VENCIMIENTO_FACTURAS'; fld_ClientesBLOQUEADO = 'BLOQUEADO'; fld_ClientesMOTIVO_BLOQUEO = 'MOTIVO_BLOQUEO'; { Clientes field indexes } idx_ClientesID = 0; idx_ClientesID_CATEGORIA = 1; idx_ClientesNIF_CIF = 2; idx_ClientesNOMBRE = 3; idx_ClientesCALLE = 4; idx_ClientesPERSONA_CONTACTO = 5; idx_ClientesPOBLACION = 6; idx_ClientesPROVINCIA = 7; idx_ClientesCODIGO_POSTAL = 8; idx_ClientesTELEFONO_1 = 9; idx_ClientesTELEFONO_2 = 10; idx_ClientesMOVIL_1 = 11; idx_ClientesMOVIL_2 = 12; idx_ClientesFAX = 13; idx_ClientesEMAIL_1 = 14; idx_ClientesEMAIL_2 = 15; idx_ClientesPAGINA_WEB = 16; idx_ClientesNOTAS = 17; idx_ClientesUSUARIO = 18; idx_ClientesID_EMPRESA = 19; idx_ClientesREFERENCIA = 20; idx_ClientesID_TIPO_IVA = 21; idx_ClientesREGIMEN_IVA = 22; idx_ClientesID_FORMA_PAGO = 23; idx_ClientesTIENDA_WEB = 24; idx_ClientesRECARGO_EQUIVALENCIA = 25; idx_ClientesGRUPO_CLIENTE = 26; idx_ClientesNOMBRE_COMERCIAL = 27; idx_ClientesVENCIMIENTO_FACTURAS = 28; idx_ClientesBLOQUEADO = 29; idx_ClientesMOTIVO_BLOQUEO = 30; { Proveedores fields } fld_ProveedoresID = 'ID'; fld_ProveedoresID_CATEGORIA = 'ID_CATEGORIA'; fld_ProveedoresNIF_CIF = 'NIF_CIF'; fld_ProveedoresNOMBRE = 'NOMBRE'; fld_ProveedoresCALLE = 'CALLE'; fld_ProveedoresPERSONA_CONTACTO = 'PERSONA_CONTACTO'; 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_ProveedoresUSUARIO = 'USUARIO'; fld_ProveedoresID_EMPRESA = 'ID_EMPRESA'; fld_ProveedoresREFERENCIA = 'REFERENCIA'; fld_ProveedoresID_TIPO_IVA = 'ID_TIPO_IVA'; fld_ProveedoresREGIMEN_IVA = 'REGIMEN_IVA'; fld_ProveedoresID_FORMA_PAGO = 'ID_FORMA_PAGO'; fld_ProveedoresTIENDA_WEB = 'TIENDA_WEB'; fld_ProveedoresDESCUENTO = 'DESCUENTO'; fld_ProveedoresDESCRIPCION_PROVEEDOR = 'DESCRIPCION_PROVEEDOR'; fld_ProveedoresCODIGO_ASIGNADO = 'CODIGO_ASIGNADO'; fld_ProveedoresHOMOLOGADO = 'HOMOLOGADO'; fld_ProveedoresCERTIFICACION = 'CERTIFICACION'; fld_ProveedoresGRUPO_PROVEEDOR = 'GRUPO_PROVEEDOR'; { Proveedores field indexes } idx_ProveedoresID = 0; idx_ProveedoresID_CATEGORIA = 1; idx_ProveedoresNIF_CIF = 2; idx_ProveedoresNOMBRE = 3; idx_ProveedoresCALLE = 4; idx_ProveedoresPERSONA_CONTACTO = 5; idx_ProveedoresPOBLACION = 6; idx_ProveedoresPROVINCIA = 7; idx_ProveedoresCODIGO_POSTAL = 8; idx_ProveedoresTELEFONO_1 = 9; idx_ProveedoresTELEFONO_2 = 10; idx_ProveedoresMOVIL_1 = 11; idx_ProveedoresMOVIL_2 = 12; idx_ProveedoresFAX = 13; idx_ProveedoresEMAIL_1 = 14; idx_ProveedoresEMAIL_2 = 15; idx_ProveedoresPAGINA_WEB = 16; idx_ProveedoresNOTAS = 17; idx_ProveedoresUSUARIO = 18; idx_ProveedoresID_EMPRESA = 19; idx_ProveedoresREFERENCIA = 20; idx_ProveedoresID_TIPO_IVA = 21; idx_ProveedoresREGIMEN_IVA = 22; idx_ProveedoresID_FORMA_PAGO = 23; idx_ProveedoresTIENDA_WEB = 24; idx_ProveedoresDESCUENTO = 25; idx_ProveedoresDESCRIPCION_PROVEEDOR = 26; idx_ProveedoresCODIGO_ASIGNADO = 27; idx_ProveedoresHOMOLOGADO = 28; idx_ProveedoresCERTIFICACION = 29; idx_ProveedoresGRUPO_PROVEEDOR = 30; { Empleados fields } fld_EmpleadosID = 'ID'; fld_EmpleadosID_CATEGORIA = 'ID_CATEGORIA'; fld_EmpleadosNIF_CIF = 'NIF_CIF'; fld_EmpleadosNOMBRE = 'NOMBRE'; fld_EmpleadosCALLE = 'CALLE'; fld_EmpleadosPERSONA_CONTACTO = 'PERSONA_CONTACTO'; fld_EmpleadosPOBLACION = 'POBLACION'; fld_EmpleadosPROVINCIA = 'PROVINCIA'; fld_EmpleadosCODIGO_POSTAL = 'CODIGO_POSTAL'; fld_EmpleadosTELEFONO_1 = 'TELEFONO_1'; fld_EmpleadosTELEFONO_2 = 'TELEFONO_2'; fld_EmpleadosMOVIL_1 = 'MOVIL_1'; fld_EmpleadosMOVIL_2 = 'MOVIL_2'; fld_EmpleadosFAX = 'FAX'; fld_EmpleadosEMAIL_1 = 'EMAIL_1'; fld_EmpleadosEMAIL_2 = 'EMAIL_2'; fld_EmpleadosPAGINA_WEB = 'PAGINA_WEB'; fld_EmpleadosNOTAS = 'NOTAS'; fld_EmpleadosUSUARIO = 'USUARIO'; fld_EmpleadosID_EMPRESA = 'ID_EMPRESA'; fld_EmpleadosREFERENCIA = 'REFERENCIA'; fld_EmpleadosCATEGORIA = 'CATEGORIA'; fld_EmpleadosFECHA_NACIMIENTO = 'FECHA_NACIMIENTO'; fld_EmpleadosFECHA_ALTA_EMPRESA = 'FECHA_ALTA_EMPRESA'; fld_EmpleadosFORMACION_BASE = 'FORMACION_BASE'; fld_EmpleadosFORMACION_COMPLE = 'FORMACION_COMPLE'; fld_EmpleadosFORMACION_RECIBIDA = 'FORMACION_RECIBIDA'; fld_EmpleadosEXPERIENCIA = 'EXPERIENCIA'; { Empleados field indexes } idx_EmpleadosID = 0; idx_EmpleadosID_CATEGORIA = 1; idx_EmpleadosNIF_CIF = 2; idx_EmpleadosNOMBRE = 3; idx_EmpleadosCALLE = 4; idx_EmpleadosPERSONA_CONTACTO = 5; idx_EmpleadosPOBLACION = 6; idx_EmpleadosPROVINCIA = 7; idx_EmpleadosCODIGO_POSTAL = 8; idx_EmpleadosTELEFONO_1 = 9; idx_EmpleadosTELEFONO_2 = 10; idx_EmpleadosMOVIL_1 = 11; idx_EmpleadosMOVIL_2 = 12; idx_EmpleadosFAX = 13; idx_EmpleadosEMAIL_1 = 14; idx_EmpleadosEMAIL_2 = 15; idx_EmpleadosPAGINA_WEB = 16; idx_EmpleadosNOTAS = 17; idx_EmpleadosUSUARIO = 18; idx_EmpleadosID_EMPRESA = 19; idx_EmpleadosREFERENCIA = 20; idx_EmpleadosCATEGORIA = 21; idx_EmpleadosFECHA_NACIMIENTO = 22; idx_EmpleadosFECHA_ALTA_EMPRESA = 23; idx_EmpleadosFORMACION_BASE = 24; idx_EmpleadosFORMACION_COMPLE = 25; idx_EmpleadosFORMACION_RECIBIDA = 26; idx_EmpleadosEXPERIENCIA = 27; { DireccionesContacto fields } fld_DireccionesContactoID = 'ID'; fld_DireccionesContactoID_CONTACTO = 'ID_CONTACTO'; fld_DireccionesContactoNOMBRE = 'NOMBRE'; fld_DireccionesContactoCALLE = 'CALLE'; fld_DireccionesContactoPOBLACION = 'POBLACION'; fld_DireccionesContactoPROVINCIA = 'PROVINCIA'; fld_DireccionesContactoCODIGO_POSTAL = 'CODIGO_POSTAL'; fld_DireccionesContactoPERSONA_CONTACTO = 'PERSONA_CONTACTO'; fld_DireccionesContactoTELEFONO = 'TELEFONO'; fld_DireccionesContactoMOVIL = 'MOVIL'; fld_DireccionesContactoFAX = 'FAX'; fld_DireccionesContactoEMAIL = 'EMAIL'; fld_DireccionesContactoNOTAS = 'NOTAS'; fld_DireccionesContactoPORTE = 'PORTE'; { DireccionesContacto field indexes } idx_DireccionesContactoID = 0; idx_DireccionesContactoID_CONTACTO = 1; idx_DireccionesContactoNOMBRE = 2; idx_DireccionesContactoCALLE = 3; idx_DireccionesContactoPOBLACION = 4; idx_DireccionesContactoPROVINCIA = 5; idx_DireccionesContactoCODIGO_POSTAL = 6; idx_DireccionesContactoPERSONA_CONTACTO = 7; idx_DireccionesContactoTELEFONO = 8; idx_DireccionesContactoMOVIL = 9; idx_DireccionesContactoFAX = 10; idx_DireccionesContactoEMAIL = 11; idx_DireccionesContactoNOTAS = 12; idx_DireccionesContactoPORTE = 13; { ClientesDescuentos fields } fld_ClientesDescuentosID = 'ID'; fld_ClientesDescuentosID_CLIENTE = 'ID_CLIENTE'; fld_ClientesDescuentosID_PROVEEDOR = 'ID_PROVEEDOR'; fld_ClientesDescuentosNOMBRE = 'NOMBRE'; fld_ClientesDescuentosDESCUENTO = 'DESCUENTO'; { ClientesDescuentos field indexes } idx_ClientesDescuentosID = 0; idx_ClientesDescuentosID_CLIENTE = 1; idx_ClientesDescuentosID_PROVEEDOR = 2; idx_ClientesDescuentosNOMBRE = 3; idx_ClientesDescuentosDESCUENTO = 4; { GruposProveedor fields } fld_GruposProveedorDESCRIPCION = 'DESCRIPCION'; { GruposProveedor field indexes } idx_GruposProveedorDESCRIPCION = 0; { GruposEmpleado fields } fld_GruposEmpleadoDESCRIPCION = 'DESCRIPCION'; { GruposEmpleado field indexes } idx_GruposEmpleadoDESCRIPCION = 0; type { IContactos } IContactos = interface(IDAStronglyTypedDataTable) ['{F396F244-2087-46CA-B562-068C32F5925F}'] { 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 GetPERSONA_CONTACTOValue: String; procedure SetPERSONA_CONTACTOValue(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 GetUSUARIOValue: String; procedure SetUSUARIOValue(const aValue: String); function GetID_EMPRESAValue: Integer; procedure SetID_EMPRESAValue(const aValue: Integer); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); { 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 PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_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 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 USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; 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 GetPERSONA_CONTACTOValue: String; virtual; procedure SetPERSONA_CONTACTOValue(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 GetUSUARIOValue: String; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; function GetID_EMPRESAValue: Integer; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; function GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); 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 PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_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 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 USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IGruposCliente } IGruposCliente = interface(IDAStronglyTypedDataTable) ['{1FFF80FA-0CE6-4907-A25E-582E1724B293}'] { Property getters and setters } function GetDESCRIPCIONValue: String; procedure SetDESCRIPCIONValue(const aValue: String); { Properties } property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; end; { TGruposClienteDataTableRules } TGruposClienteDataTableRules = class(TDADataTableRules, IGruposCliente) 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; { IDatosBancarios } IDatosBancarios = interface(IDAStronglyTypedDataTable) ['{F87D0636-602D-472C-90BD-8A8F6F783944}'] { 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) ['{D8DCDA8D-996F-446C-8241-E02D41DDEB09}'] { 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) ['{A6D726D9-A0A4-4F7B-B8BD-BCAE0B982891}'] { 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 GetPERSONA_CONTACTOValue: String; procedure SetPERSONA_CONTACTOValue(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 GetUSUARIOValue: String; procedure SetUSUARIOValue(const aValue: String); function GetID_EMPRESAValue: Integer; procedure SetID_EMPRESAValue(const aValue: Integer); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); function GetID_TIPO_IVAValue: Integer; procedure SetID_TIPO_IVAValue(const aValue: Integer); function GetREGIMEN_IVAValue: String; procedure SetREGIMEN_IVAValue(const aValue: String); function GetID_FORMA_PAGOValue: Integer; procedure SetID_FORMA_PAGOValue(const aValue: Integer); function GetTIENDA_WEBValue: Integer; procedure SetTIENDA_WEBValue(const aValue: Integer); function GetRECARGO_EQUIVALENCIAValue: Integer; procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); function GetGRUPO_CLIENTEValue: String; procedure SetGRUPO_CLIENTEValue(const aValue: String); function GetNOMBRE_COMERCIALValue: String; procedure SetNOMBRE_COMERCIALValue(const aValue: String); function GetVENCIMIENTO_FACTURASValue: Integer; procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer); function GetBLOQUEADOValue: Integer; procedure SetBLOQUEADOValue(const aValue: Integer); function GetMOTIVO_BLOQUEOValue: String; procedure SetMOTIVO_BLOQUEOValue(const aValue: String); { 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 PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; 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 USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property VENCIMIENTO_FACTURAS: Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue; property BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue; property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue; 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 GetPERSONA_CONTACTOValue: String; virtual; procedure SetPERSONA_CONTACTOValue(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 GetUSUARIOValue: String; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; function GetID_EMPRESAValue: Integer; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; function GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; function GetID_TIPO_IVAValue: Integer; virtual; procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual; function GetREGIMEN_IVAValue: String; virtual; procedure SetREGIMEN_IVAValue(const aValue: String); virtual; function GetID_FORMA_PAGOValue: Integer; virtual; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; function GetTIENDA_WEBValue: Integer; virtual; procedure SetTIENDA_WEBValue(const aValue: Integer); virtual; function GetRECARGO_EQUIVALENCIAValue: Integer; virtual; procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); virtual; function GetGRUPO_CLIENTEValue: String; virtual; procedure SetGRUPO_CLIENTEValue(const aValue: String); virtual; function GetNOMBRE_COMERCIALValue: String; virtual; procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual; function GetVENCIMIENTO_FACTURASValue: Integer; virtual; procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer); virtual; function GetBLOQUEADOValue: Integer; virtual; procedure SetBLOQUEADOValue(const aValue: Integer); virtual; function GetMOTIVO_BLOQUEOValue: String; virtual; procedure SetMOTIVO_BLOQUEOValue(const aValue: String); 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 PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; 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 USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property VENCIMIENTO_FACTURAS: Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue; property BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue; property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IProveedores } IProveedores = interface(IDAStronglyTypedDataTable) ['{3B317406-09C8-4CBA-B708-F2C52CFEAB09}'] { 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 GetPERSONA_CONTACTOValue: String; procedure SetPERSONA_CONTACTOValue(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 GetUSUARIOValue: String; procedure SetUSUARIOValue(const aValue: String); function GetID_EMPRESAValue: Integer; procedure SetID_EMPRESAValue(const aValue: Integer); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); function GetID_TIPO_IVAValue: Integer; procedure SetID_TIPO_IVAValue(const aValue: Integer); function GetREGIMEN_IVAValue: String; procedure SetREGIMEN_IVAValue(const aValue: String); function GetID_FORMA_PAGOValue: Integer; procedure SetID_FORMA_PAGOValue(const aValue: Integer); function GetTIENDA_WEBValue: Integer; procedure SetTIENDA_WEBValue(const aValue: Integer); function GetDESCUENTOValue: Float; procedure SetDESCUENTOValue(const aValue: Float); function GetDESCRIPCION_PROVEEDORValue: String; procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); function GetCODIGO_ASIGNADOValue: String; procedure SetCODIGO_ASIGNADOValue(const aValue: String); function GetHOMOLOGADOValue: Integer; procedure SetHOMOLOGADOValue(const aValue: Integer); function GetCERTIFICACIONValue: String; procedure SetCERTIFICACIONValue(const aValue: String); function GetGRUPO_PROVEEDORValue: String; procedure SetGRUPO_PROVEEDORValue(const aValue: String); { 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 PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; 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 USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCRIPCION_PROVEEDOR: String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue; property CODIGO_ASIGNADO: String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue; property HOMOLOGADO: Integer read GetHOMOLOGADOValue write SetHOMOLOGADOValue; property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue; property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue; 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 GetPERSONA_CONTACTOValue: String; virtual; procedure SetPERSONA_CONTACTOValue(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 GetUSUARIOValue: String; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; function GetID_EMPRESAValue: Integer; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; function GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; function GetID_TIPO_IVAValue: Integer; virtual; procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual; function GetREGIMEN_IVAValue: String; virtual; procedure SetREGIMEN_IVAValue(const aValue: String); virtual; function GetID_FORMA_PAGOValue: Integer; virtual; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; function GetTIENDA_WEBValue: Integer; virtual; procedure SetTIENDA_WEBValue(const aValue: Integer); virtual; function GetDESCUENTOValue: Float; virtual; procedure SetDESCUENTOValue(const aValue: Float); virtual; function GetDESCRIPCION_PROVEEDORValue: String; virtual; procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); virtual; function GetCODIGO_ASIGNADOValue: String; virtual; procedure SetCODIGO_ASIGNADOValue(const aValue: String); virtual; function GetHOMOLOGADOValue: Integer; virtual; procedure SetHOMOLOGADOValue(const aValue: Integer); virtual; function GetCERTIFICACIONValue: String; virtual; procedure SetCERTIFICACIONValue(const aValue: String); virtual; function GetGRUPO_PROVEEDORValue: String; virtual; procedure SetGRUPO_PROVEEDORValue(const aValue: String); 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 PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; 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 USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCRIPCION_PROVEEDOR: String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue; property CODIGO_ASIGNADO: String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue; property HOMOLOGADO: Integer read GetHOMOLOGADOValue write SetHOMOLOGADOValue; property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue; property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IEmpleados } IEmpleados = interface(IDAStronglyTypedDataTable) ['{0A5A325E-1A87-439B-A785-60E26CCD025D}'] { 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 GetPERSONA_CONTACTOValue: String; procedure SetPERSONA_CONTACTOValue(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 GetUSUARIOValue: String; procedure SetUSUARIOValue(const aValue: String); function GetID_EMPRESAValue: Integer; procedure SetID_EMPRESAValue(const aValue: Integer); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); function GetCATEGORIAValue: String; procedure SetCATEGORIAValue(const aValue: String); function GetFECHA_NACIMIENTOValue: DateTime; procedure SetFECHA_NACIMIENTOValue(const aValue: DateTime); function GetFECHA_ALTA_EMPRESAValue: DateTime; procedure SetFECHA_ALTA_EMPRESAValue(const aValue: DateTime); function GetFORMACION_BASEValue: IROStrings; procedure SetFORMACION_BASEValue(const aValue: IROStrings); function GetFORMACION_COMPLEValue: IROStrings; procedure SetFORMACION_COMPLEValue(const aValue: IROStrings); function GetFORMACION_RECIBIDAValue: IROStrings; procedure SetFORMACION_RECIBIDAValue(const aValue: IROStrings); function GetEXPERIENCIAValue: IROStrings; procedure SetEXPERIENCIAValue(const aValue: IROStrings); { 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 PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; 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 USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property CATEGORIA: String read GetCATEGORIAValue write SetCATEGORIAValue; property FECHA_NACIMIENTO: DateTime read GetFECHA_NACIMIENTOValue write SetFECHA_NACIMIENTOValue; property FECHA_ALTA_EMPRESA: DateTime read GetFECHA_ALTA_EMPRESAValue write SetFECHA_ALTA_EMPRESAValue; property FORMACION_BASE: IROStrings read GetFORMACION_BASEValue write SetFORMACION_BASEValue; property FORMACION_COMPLE: IROStrings read GetFORMACION_COMPLEValue write SetFORMACION_COMPLEValue; property FORMACION_RECIBIDA: IROStrings read GetFORMACION_RECIBIDAValue write SetFORMACION_RECIBIDAValue; property EXPERIENCIA: IROStrings read GetEXPERIENCIAValue write SetEXPERIENCIAValue; end; { TEmpleadosDataTableRules } TEmpleadosDataTableRules = class(TDADataTableRules, IEmpleados) 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 GetPERSONA_CONTACTOValue: String; virtual; procedure SetPERSONA_CONTACTOValue(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 GetUSUARIOValue: String; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; function GetID_EMPRESAValue: Integer; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; function GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; function GetCATEGORIAValue: String; virtual; procedure SetCATEGORIAValue(const aValue: String); virtual; function GetFECHA_NACIMIENTOValue: DateTime; virtual; procedure SetFECHA_NACIMIENTOValue(const aValue: DateTime); virtual; function GetFECHA_ALTA_EMPRESAValue: DateTime; virtual; procedure SetFECHA_ALTA_EMPRESAValue(const aValue: DateTime); virtual; function GetFORMACION_BASEValue: IROStrings; virtual; procedure SetFORMACION_BASEValue(const aValue: IROStrings); virtual; function GetFORMACION_COMPLEValue: IROStrings; virtual; procedure SetFORMACION_COMPLEValue(const aValue: IROStrings); virtual; function GetFORMACION_RECIBIDAValue: IROStrings; virtual; procedure SetFORMACION_RECIBIDAValue(const aValue: IROStrings); virtual; function GetEXPERIENCIAValue: IROStrings; virtual; procedure SetEXPERIENCIAValue(const aValue: IROStrings); 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 PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; 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 USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property CATEGORIA: String read GetCATEGORIAValue write SetCATEGORIAValue; property FECHA_NACIMIENTO: DateTime read GetFECHA_NACIMIENTOValue write SetFECHA_NACIMIENTOValue; property FECHA_ALTA_EMPRESA: DateTime read GetFECHA_ALTA_EMPRESAValue write SetFECHA_ALTA_EMPRESAValue; property FORMACION_BASE: IROStrings read GetFORMACION_BASEValue write SetFORMACION_BASEValue; property FORMACION_COMPLE: IROStrings read GetFORMACION_COMPLEValue write SetFORMACION_COMPLEValue; property FORMACION_RECIBIDA: IROStrings read GetFORMACION_RECIBIDAValue write SetFORMACION_RECIBIDAValue; property EXPERIENCIA: IROStrings read GetEXPERIENCIAValue write SetEXPERIENCIAValue; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IDireccionesContacto } IDireccionesContacto = interface(IDAStronglyTypedDataTable) ['{8AE98E4A-35D7-4E61-BE7D-64DD5B4AC7AF}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); function GetID_CONTACTOValue: Integer; procedure SetID_CONTACTOValue(const aValue: Integer); 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 GetPERSONA_CONTACTOValue: String; procedure SetPERSONA_CONTACTOValue(const aValue: String); function GetTELEFONOValue: String; procedure SetTELEFONOValue(const aValue: String); function GetMOVILValue: String; procedure SetMOVILValue(const aValue: String); function GetFAXValue: String; procedure SetFAXValue(const aValue: String); function GetEMAILValue: String; procedure SetEMAILValue(const aValue: String); function GetNOTASValue: IROStrings; procedure SetNOTASValue(const aValue: IROStrings); function GetPORTEValue: Float; procedure SetPORTEValue(const aValue: Float); { Properties } property ID: Integer read GetIDValue write SetIDValue; property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue; 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 PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue; property MOVIL: String read GetMOVILValue write SetMOVILValue; property FAX: String read GetFAXValue write SetFAXValue; property EMAIL: String read GetEMAILValue write SetEMAILValue; property NOTAS: IROStrings read GetNOTASValue write SetNOTASValue; property PORTE: Float read GetPORTEValue write SetPORTEValue; 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 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 GetPERSONA_CONTACTOValue: String; virtual; procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; function GetTELEFONOValue: String; virtual; procedure SetTELEFONOValue(const aValue: String); virtual; function GetMOVILValue: String; virtual; procedure SetMOVILValue(const aValue: String); virtual; function GetFAXValue: String; virtual; procedure SetFAXValue(const aValue: String); virtual; function GetEMAILValue: String; virtual; procedure SetEMAILValue(const aValue: String); virtual; function GetNOTASValue: IROStrings; virtual; procedure SetNOTASValue(const aValue: IROStrings); virtual; function GetPORTEValue: Float; virtual; procedure SetPORTEValue(const aValue: Float); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue; 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 PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue; property MOVIL: String read GetMOVILValue write SetMOVILValue; property FAX: String read GetFAXValue write SetFAXValue; property EMAIL: String read GetEMAILValue write SetEMAILValue; property NOTAS: IROStrings read GetNOTASValue write SetNOTASValue; property PORTE: Float read GetPORTEValue write SetPORTEValue; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IClientesDescuentos } IClientesDescuentos = interface(IDAStronglyTypedDataTable) ['{F886D2B5-74CF-4173-A04A-085EB4844795}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); function GetID_CLIENTEValue: Integer; procedure SetID_CLIENTEValue(const aValue: Integer); function GetID_PROVEEDORValue: Integer; procedure SetID_PROVEEDORValue(const aValue: Integer); function GetNOMBREValue: String; procedure SetNOMBREValue(const aValue: String); function GetDESCUENTOValue: Float; procedure SetDESCUENTOValue(const aValue: Float); { Properties } property ID: Integer read GetIDValue write SetIDValue; property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; end; { TClientesDescuentosDataTableRules } TClientesDescuentosDataTableRules = class(TDADataTableRules, IClientesDescuentos) private protected { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetID_CLIENTEValue: Integer; virtual; procedure SetID_CLIENTEValue(const aValue: Integer); virtual; function GetID_PROVEEDORValue: Integer; virtual; procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; function GetNOMBREValue: String; virtual; procedure SetNOMBREValue(const aValue: String); virtual; function GetDESCUENTOValue: Float; virtual; procedure SetDESCUENTOValue(const aValue: Float); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IGruposProveedor } IGruposProveedor = interface(IDAStronglyTypedDataTable) ['{8A40BF38-E4DE-41D3-BC1F-B683003EDC4D}'] { Property getters and setters } function GetDESCRIPCIONValue: String; procedure SetDESCRIPCIONValue(const aValue: String); { Properties } property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; end; { TGruposProveedorDataTableRules } TGruposProveedorDataTableRules = class(TDADataTableRules, IGruposProveedor) 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; { IGruposEmpleado } IGruposEmpleado = interface(IDAStronglyTypedDataTable) ['{6E0FF24B-75DD-4796-AE74-B1D28F67770E}'] { Property getters and setters } function GetDESCRIPCIONValue: String; procedure SetDESCRIPCIONValue(const aValue: String); { Properties } property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; end; { TGruposEmpleadoDataTableRules } TGruposEmpleadoDataTableRules = class(TDADataTableRules, IGruposEmpleado) 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.GetPERSONA_CONTACTOValue: String; begin result := DataTable.Fields[idx_ContactosPERSONA_CONTACTO].AsString; end; procedure TContactosDataTableRules.SetPERSONA_CONTACTOValue(const aValue: String); begin DataTable.Fields[idx_ContactosPERSONA_CONTACTO].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.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; function TContactosDataTableRules.GetREFERENCIAValue: String; begin result := DataTable.Fields[idx_ContactosREFERENCIA].AsString; end; procedure TContactosDataTableRules.SetREFERENCIAValue(const aValue: String); begin DataTable.Fields[idx_ContactosREFERENCIA].AsString := aValue; end; { TGruposClienteDataTableRules } constructor TGruposClienteDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TGruposClienteDataTableRules.Destroy; begin inherited; end; function TGruposClienteDataTableRules.GetDESCRIPCIONValue: String; begin result := DataTable.Fields[idx_GruposClienteDESCRIPCION].AsString; end; procedure TGruposClienteDataTableRules.SetDESCRIPCIONValue(const aValue: String); begin DataTable.Fields[idx_GruposClienteDESCRIPCION].AsString := 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.GetPERSONA_CONTACTOValue: String; begin result := DataTable.Fields[idx_ClientesPERSONA_CONTACTO].AsString; end; procedure TClientesDataTableRules.SetPERSONA_CONTACTOValue(const aValue: String); begin DataTable.Fields[idx_ClientesPERSONA_CONTACTO].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.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.GetREFERENCIAValue: String; begin result := DataTable.Fields[idx_ClientesREFERENCIA].AsString; end; procedure TClientesDataTableRules.SetREFERENCIAValue(const aValue: String); begin DataTable.Fields[idx_ClientesREFERENCIA].AsString := aValue; end; function TClientesDataTableRules.GetID_TIPO_IVAValue: Integer; begin result := DataTable.Fields[idx_ClientesID_TIPO_IVA].AsInteger; end; procedure TClientesDataTableRules.SetID_TIPO_IVAValue(const aValue: Integer); begin DataTable.Fields[idx_ClientesID_TIPO_IVA].AsInteger := aValue; end; function TClientesDataTableRules.GetREGIMEN_IVAValue: String; begin result := DataTable.Fields[idx_ClientesREGIMEN_IVA].AsString; end; procedure TClientesDataTableRules.SetREGIMEN_IVAValue(const aValue: String); begin DataTable.Fields[idx_ClientesREGIMEN_IVA].AsString := aValue; end; function TClientesDataTableRules.GetID_FORMA_PAGOValue: Integer; begin result := DataTable.Fields[idx_ClientesID_FORMA_PAGO].AsInteger; end; procedure TClientesDataTableRules.SetID_FORMA_PAGOValue(const aValue: Integer); begin DataTable.Fields[idx_ClientesID_FORMA_PAGO].AsInteger := aValue; end; function TClientesDataTableRules.GetTIENDA_WEBValue: Integer; begin result := DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger; end; procedure TClientesDataTableRules.SetTIENDA_WEBValue(const aValue: Integer); begin DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger := aValue; end; function TClientesDataTableRules.GetRECARGO_EQUIVALENCIAValue: Integer; begin result := DataTable.Fields[idx_ClientesRECARGO_EQUIVALENCIA].AsInteger; end; procedure TClientesDataTableRules.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); begin DataTable.Fields[idx_ClientesRECARGO_EQUIVALENCIA].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.GetNOMBRE_COMERCIALValue: String; begin result := DataTable.Fields[idx_ClientesNOMBRE_COMERCIAL].AsString; end; procedure TClientesDataTableRules.SetNOMBRE_COMERCIALValue(const aValue: String); begin DataTable.Fields[idx_ClientesNOMBRE_COMERCIAL].AsString := aValue; end; function TClientesDataTableRules.GetVENCIMIENTO_FACTURASValue: Integer; begin result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger; end; procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURASValue(const aValue: Integer); begin DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger := aValue; end; function TClientesDataTableRules.GetBLOQUEADOValue: Integer; begin result := DataTable.Fields[idx_ClientesBLOQUEADO].AsInteger; end; procedure TClientesDataTableRules.SetBLOQUEADOValue(const aValue: Integer); begin DataTable.Fields[idx_ClientesBLOQUEADO].AsInteger := aValue; end; function TClientesDataTableRules.GetMOTIVO_BLOQUEOValue: String; begin result := DataTable.Fields[idx_ClientesMOTIVO_BLOQUEO].AsString; end; procedure TClientesDataTableRules.SetMOTIVO_BLOQUEOValue(const aValue: String); begin DataTable.Fields[idx_ClientesMOTIVO_BLOQUEO].AsString := 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.GetPERSONA_CONTACTOValue: String; begin result := DataTable.Fields[idx_ProveedoresPERSONA_CONTACTO].AsString; end; procedure TProveedoresDataTableRules.SetPERSONA_CONTACTOValue(const aValue: String); begin DataTable.Fields[idx_ProveedoresPERSONA_CONTACTO].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.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.GetREFERENCIAValue: String; begin result := DataTable.Fields[idx_ProveedoresREFERENCIA].AsString; end; procedure TProveedoresDataTableRules.SetREFERENCIAValue(const aValue: String); begin DataTable.Fields[idx_ProveedoresREFERENCIA].AsString := aValue; end; function TProveedoresDataTableRules.GetID_TIPO_IVAValue: Integer; begin result := DataTable.Fields[idx_ProveedoresID_TIPO_IVA].AsInteger; end; procedure TProveedoresDataTableRules.SetID_TIPO_IVAValue(const aValue: Integer); begin DataTable.Fields[idx_ProveedoresID_TIPO_IVA].AsInteger := aValue; end; function TProveedoresDataTableRules.GetREGIMEN_IVAValue: String; begin result := DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsString; end; procedure TProveedoresDataTableRules.SetREGIMEN_IVAValue(const aValue: String); begin DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsString := aValue; end; function TProveedoresDataTableRules.GetID_FORMA_PAGOValue: Integer; begin result := DataTable.Fields[idx_ProveedoresID_FORMA_PAGO].AsInteger; end; procedure TProveedoresDataTableRules.SetID_FORMA_PAGOValue(const aValue: Integer); begin DataTable.Fields[idx_ProveedoresID_FORMA_PAGO].AsInteger := aValue; end; function TProveedoresDataTableRules.GetTIENDA_WEBValue: Integer; begin result := DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger; end; procedure TProveedoresDataTableRules.SetTIENDA_WEBValue(const aValue: Integer); begin DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger := 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; function TProveedoresDataTableRules.GetDESCRIPCION_PROVEEDORValue: String; begin result := DataTable.Fields[idx_ProveedoresDESCRIPCION_PROVEEDOR].AsString; end; procedure TProveedoresDataTableRules.SetDESCRIPCION_PROVEEDORValue(const aValue: String); begin DataTable.Fields[idx_ProveedoresDESCRIPCION_PROVEEDOR].AsString := aValue; end; function TProveedoresDataTableRules.GetCODIGO_ASIGNADOValue: String; begin result := DataTable.Fields[idx_ProveedoresCODIGO_ASIGNADO].AsString; end; procedure TProveedoresDataTableRules.SetCODIGO_ASIGNADOValue(const aValue: String); begin DataTable.Fields[idx_ProveedoresCODIGO_ASIGNADO].AsString := aValue; end; function TProveedoresDataTableRules.GetHOMOLOGADOValue: Integer; begin result := DataTable.Fields[idx_ProveedoresHOMOLOGADO].AsInteger; end; procedure TProveedoresDataTableRules.SetHOMOLOGADOValue(const aValue: Integer); begin DataTable.Fields[idx_ProveedoresHOMOLOGADO].AsInteger := aValue; end; function TProveedoresDataTableRules.GetCERTIFICACIONValue: String; begin result := DataTable.Fields[idx_ProveedoresCERTIFICACION].AsString; end; procedure TProveedoresDataTableRules.SetCERTIFICACIONValue(const aValue: String); begin DataTable.Fields[idx_ProveedoresCERTIFICACION].AsString := aValue; end; function TProveedoresDataTableRules.GetGRUPO_PROVEEDORValue: String; begin result := DataTable.Fields[idx_ProveedoresGRUPO_PROVEEDOR].AsString; end; procedure TProveedoresDataTableRules.SetGRUPO_PROVEEDORValue(const aValue: String); begin DataTable.Fields[idx_ProveedoresGRUPO_PROVEEDOR].AsString := aValue; end; { TEmpleadosDataTableRules } constructor TEmpleadosDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TEmpleadosDataTableRules.Destroy; begin inherited; end; function TEmpleadosDataTableRules.GetIDValue: Integer; begin result := DataTable.Fields[idx_EmpleadosID].AsInteger; end; procedure TEmpleadosDataTableRules.SetIDValue(const aValue: Integer); begin DataTable.Fields[idx_EmpleadosID].AsInteger := aValue; end; function TEmpleadosDataTableRules.GetID_CATEGORIAValue: Integer; begin result := DataTable.Fields[idx_EmpleadosID_CATEGORIA].AsInteger; end; procedure TEmpleadosDataTableRules.SetID_CATEGORIAValue(const aValue: Integer); begin DataTable.Fields[idx_EmpleadosID_CATEGORIA].AsInteger := aValue; end; function TEmpleadosDataTableRules.GetNIF_CIFValue: String; begin result := DataTable.Fields[idx_EmpleadosNIF_CIF].AsString; end; procedure TEmpleadosDataTableRules.SetNIF_CIFValue(const aValue: String); begin DataTable.Fields[idx_EmpleadosNIF_CIF].AsString := aValue; end; function TEmpleadosDataTableRules.GetNOMBREValue: String; begin result := DataTable.Fields[idx_EmpleadosNOMBRE].AsString; end; procedure TEmpleadosDataTableRules.SetNOMBREValue(const aValue: String); begin DataTable.Fields[idx_EmpleadosNOMBRE].AsString := aValue; end; function TEmpleadosDataTableRules.GetCALLEValue: String; begin result := DataTable.Fields[idx_EmpleadosCALLE].AsString; end; procedure TEmpleadosDataTableRules.SetCALLEValue(const aValue: String); begin DataTable.Fields[idx_EmpleadosCALLE].AsString := aValue; end; function TEmpleadosDataTableRules.GetPERSONA_CONTACTOValue: String; begin result := DataTable.Fields[idx_EmpleadosPERSONA_CONTACTO].AsString; end; procedure TEmpleadosDataTableRules.SetPERSONA_CONTACTOValue(const aValue: String); begin DataTable.Fields[idx_EmpleadosPERSONA_CONTACTO].AsString := aValue; end; function TEmpleadosDataTableRules.GetPOBLACIONValue: String; begin result := DataTable.Fields[idx_EmpleadosPOBLACION].AsString; end; procedure TEmpleadosDataTableRules.SetPOBLACIONValue(const aValue: String); begin DataTable.Fields[idx_EmpleadosPOBLACION].AsString := aValue; end; function TEmpleadosDataTableRules.GetPROVINCIAValue: String; begin result := DataTable.Fields[idx_EmpleadosPROVINCIA].AsString; end; procedure TEmpleadosDataTableRules.SetPROVINCIAValue(const aValue: String); begin DataTable.Fields[idx_EmpleadosPROVINCIA].AsString := aValue; end; function TEmpleadosDataTableRules.GetCODIGO_POSTALValue: String; begin result := DataTable.Fields[idx_EmpleadosCODIGO_POSTAL].AsString; end; procedure TEmpleadosDataTableRules.SetCODIGO_POSTALValue(const aValue: String); begin DataTable.Fields[idx_EmpleadosCODIGO_POSTAL].AsString := aValue; end; function TEmpleadosDataTableRules.GetTELEFONO_1Value: String; begin result := DataTable.Fields[idx_EmpleadosTELEFONO_1].AsString; end; procedure TEmpleadosDataTableRules.SetTELEFONO_1Value(const aValue: String); begin DataTable.Fields[idx_EmpleadosTELEFONO_1].AsString := aValue; end; function TEmpleadosDataTableRules.GetTELEFONO_2Value: String; begin result := DataTable.Fields[idx_EmpleadosTELEFONO_2].AsString; end; procedure TEmpleadosDataTableRules.SetTELEFONO_2Value(const aValue: String); begin DataTable.Fields[idx_EmpleadosTELEFONO_2].AsString := aValue; end; function TEmpleadosDataTableRules.GetMOVIL_1Value: String; begin result := DataTable.Fields[idx_EmpleadosMOVIL_1].AsString; end; procedure TEmpleadosDataTableRules.SetMOVIL_1Value(const aValue: String); begin DataTable.Fields[idx_EmpleadosMOVIL_1].AsString := aValue; end; function TEmpleadosDataTableRules.GetMOVIL_2Value: String; begin result := DataTable.Fields[idx_EmpleadosMOVIL_2].AsString; end; procedure TEmpleadosDataTableRules.SetMOVIL_2Value(const aValue: String); begin DataTable.Fields[idx_EmpleadosMOVIL_2].AsString := aValue; end; function TEmpleadosDataTableRules.GetFAXValue: String; begin result := DataTable.Fields[idx_EmpleadosFAX].AsString; end; procedure TEmpleadosDataTableRules.SetFAXValue(const aValue: String); begin DataTable.Fields[idx_EmpleadosFAX].AsString := aValue; end; function TEmpleadosDataTableRules.GetEMAIL_1Value: String; begin result := DataTable.Fields[idx_EmpleadosEMAIL_1].AsString; end; procedure TEmpleadosDataTableRules.SetEMAIL_1Value(const aValue: String); begin DataTable.Fields[idx_EmpleadosEMAIL_1].AsString := aValue; end; function TEmpleadosDataTableRules.GetEMAIL_2Value: String; begin result := DataTable.Fields[idx_EmpleadosEMAIL_2].AsString; end; procedure TEmpleadosDataTableRules.SetEMAIL_2Value(const aValue: String); begin DataTable.Fields[idx_EmpleadosEMAIL_2].AsString := aValue; end; function TEmpleadosDataTableRules.GetPAGINA_WEBValue: String; begin result := DataTable.Fields[idx_EmpleadosPAGINA_WEB].AsString; end; procedure TEmpleadosDataTableRules.SetPAGINA_WEBValue(const aValue: String); begin DataTable.Fields[idx_EmpleadosPAGINA_WEB].AsString := aValue; end; function TEmpleadosDataTableRules.GetNOTASValue: IROStrings; begin result := NewROStrings(); result.Text := DataTable.Fields[idx_EmpleadosNOTAS].AsString; end; procedure TEmpleadosDataTableRules.SetNOTASValue(const aValue: IROStrings); begin DataTable.Fields[idx_EmpleadosNOTAS].AsString := aValue.Text; end; function TEmpleadosDataTableRules.GetUSUARIOValue: String; begin result := DataTable.Fields[idx_EmpleadosUSUARIO].AsString; end; procedure TEmpleadosDataTableRules.SetUSUARIOValue(const aValue: String); begin DataTable.Fields[idx_EmpleadosUSUARIO].AsString := aValue; end; function TEmpleadosDataTableRules.GetID_EMPRESAValue: Integer; begin result := DataTable.Fields[idx_EmpleadosID_EMPRESA].AsInteger; end; procedure TEmpleadosDataTableRules.SetID_EMPRESAValue(const aValue: Integer); begin DataTable.Fields[idx_EmpleadosID_EMPRESA].AsInteger := aValue; end; function TEmpleadosDataTableRules.GetREFERENCIAValue: String; begin result := DataTable.Fields[idx_EmpleadosREFERENCIA].AsString; end; procedure TEmpleadosDataTableRules.SetREFERENCIAValue(const aValue: String); begin DataTable.Fields[idx_EmpleadosREFERENCIA].AsString := aValue; end; function TEmpleadosDataTableRules.GetCATEGORIAValue: String; begin result := DataTable.Fields[idx_EmpleadosCATEGORIA].AsString; end; procedure TEmpleadosDataTableRules.SetCATEGORIAValue(const aValue: String); begin DataTable.Fields[idx_EmpleadosCATEGORIA].AsString := aValue; end; function TEmpleadosDataTableRules.GetFECHA_NACIMIENTOValue: DateTime; begin result := DataTable.Fields[idx_EmpleadosFECHA_NACIMIENTO].AsDateTime; end; procedure TEmpleadosDataTableRules.SetFECHA_NACIMIENTOValue(const aValue: DateTime); begin DataTable.Fields[idx_EmpleadosFECHA_NACIMIENTO].AsDateTime := aValue; end; function TEmpleadosDataTableRules.GetFECHA_ALTA_EMPRESAValue: DateTime; begin result := DataTable.Fields[idx_EmpleadosFECHA_ALTA_EMPRESA].AsDateTime; end; procedure TEmpleadosDataTableRules.SetFECHA_ALTA_EMPRESAValue(const aValue: DateTime); begin DataTable.Fields[idx_EmpleadosFECHA_ALTA_EMPRESA].AsDateTime := aValue; end; function TEmpleadosDataTableRules.GetFORMACION_BASEValue: IROStrings; begin result := NewROStrings(); result.Text := DataTable.Fields[idx_EmpleadosFORMACION_BASE].AsString; end; procedure TEmpleadosDataTableRules.SetFORMACION_BASEValue(const aValue: IROStrings); begin DataTable.Fields[idx_EmpleadosFORMACION_BASE].AsString := aValue.Text; end; function TEmpleadosDataTableRules.GetFORMACION_COMPLEValue: IROStrings; begin result := NewROStrings(); result.Text := DataTable.Fields[idx_EmpleadosFORMACION_COMPLE].AsString; end; procedure TEmpleadosDataTableRules.SetFORMACION_COMPLEValue(const aValue: IROStrings); begin DataTable.Fields[idx_EmpleadosFORMACION_COMPLE].AsString := aValue.Text; end; function TEmpleadosDataTableRules.GetFORMACION_RECIBIDAValue: IROStrings; begin result := NewROStrings(); result.Text := DataTable.Fields[idx_EmpleadosFORMACION_RECIBIDA].AsString; end; procedure TEmpleadosDataTableRules.SetFORMACION_RECIBIDAValue(const aValue: IROStrings); begin DataTable.Fields[idx_EmpleadosFORMACION_RECIBIDA].AsString := aValue.Text; end; function TEmpleadosDataTableRules.GetEXPERIENCIAValue: IROStrings; begin result := NewROStrings(); result.Text := DataTable.Fields[idx_EmpleadosEXPERIENCIA].AsString; end; procedure TEmpleadosDataTableRules.SetEXPERIENCIAValue(const aValue: IROStrings); begin DataTable.Fields[idx_EmpleadosEXPERIENCIA].AsString := aValue.Text; 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.GetNOMBREValue: String; begin result := DataTable.Fields[idx_DireccionesContactoNOMBRE].AsString; end; procedure TDireccionesContactoDataTableRules.SetNOMBREValue(const aValue: String); begin DataTable.Fields[idx_DireccionesContactoNOMBRE].AsString := 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; function TDireccionesContactoDataTableRules.GetTELEFONOValue: String; begin result := DataTable.Fields[idx_DireccionesContactoTELEFONO].AsString; end; procedure TDireccionesContactoDataTableRules.SetTELEFONOValue(const aValue: String); begin DataTable.Fields[idx_DireccionesContactoTELEFONO].AsString := aValue; end; function TDireccionesContactoDataTableRules.GetMOVILValue: String; begin result := DataTable.Fields[idx_DireccionesContactoMOVIL].AsString; end; procedure TDireccionesContactoDataTableRules.SetMOVILValue(const aValue: String); begin DataTable.Fields[idx_DireccionesContactoMOVIL].AsString := aValue; end; function TDireccionesContactoDataTableRules.GetFAXValue: String; begin result := DataTable.Fields[idx_DireccionesContactoFAX].AsString; end; procedure TDireccionesContactoDataTableRules.SetFAXValue(const aValue: String); begin DataTable.Fields[idx_DireccionesContactoFAX].AsString := aValue; end; function TDireccionesContactoDataTableRules.GetEMAILValue: String; begin result := DataTable.Fields[idx_DireccionesContactoEMAIL].AsString; end; procedure TDireccionesContactoDataTableRules.SetEMAILValue(const aValue: String); begin DataTable.Fields[idx_DireccionesContactoEMAIL].AsString := aValue; end; function TDireccionesContactoDataTableRules.GetNOTASValue: IROStrings; begin result := NewROStrings(); result.Text := DataTable.Fields[idx_DireccionesContactoNOTAS].AsString; end; procedure TDireccionesContactoDataTableRules.SetNOTASValue(const aValue: IROStrings); begin DataTable.Fields[idx_DireccionesContactoNOTAS].AsString := aValue.Text; end; function TDireccionesContactoDataTableRules.GetPORTEValue: Float; begin result := DataTable.Fields[idx_DireccionesContactoPORTE].AsFloat; end; procedure TDireccionesContactoDataTableRules.SetPORTEValue(const aValue: Float); begin DataTable.Fields[idx_DireccionesContactoPORTE].AsFloat := aValue; end; { TClientesDescuentosDataTableRules } constructor TClientesDescuentosDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TClientesDescuentosDataTableRules.Destroy; begin inherited; end; function TClientesDescuentosDataTableRules.GetIDValue: Integer; begin result := DataTable.Fields[idx_ClientesDescuentosID].AsInteger; end; procedure TClientesDescuentosDataTableRules.SetIDValue(const aValue: Integer); begin DataTable.Fields[idx_ClientesDescuentosID].AsInteger := aValue; end; function TClientesDescuentosDataTableRules.GetID_CLIENTEValue: Integer; begin result := DataTable.Fields[idx_ClientesDescuentosID_CLIENTE].AsInteger; end; procedure TClientesDescuentosDataTableRules.SetID_CLIENTEValue(const aValue: Integer); begin DataTable.Fields[idx_ClientesDescuentosID_CLIENTE].AsInteger := aValue; end; function TClientesDescuentosDataTableRules.GetID_PROVEEDORValue: Integer; begin result := DataTable.Fields[idx_ClientesDescuentosID_PROVEEDOR].AsInteger; end; procedure TClientesDescuentosDataTableRules.SetID_PROVEEDORValue(const aValue: Integer); begin DataTable.Fields[idx_ClientesDescuentosID_PROVEEDOR].AsInteger := aValue; end; function TClientesDescuentosDataTableRules.GetNOMBREValue: String; begin result := DataTable.Fields[idx_ClientesDescuentosNOMBRE].AsString; end; procedure TClientesDescuentosDataTableRules.SetNOMBREValue(const aValue: String); begin DataTable.Fields[idx_ClientesDescuentosNOMBRE].AsString := aValue; end; function TClientesDescuentosDataTableRules.GetDESCUENTOValue: Float; begin result := DataTable.Fields[idx_ClientesDescuentosDESCUENTO].AsFloat; end; procedure TClientesDescuentosDataTableRules.SetDESCUENTOValue(const aValue: Float); begin DataTable.Fields[idx_ClientesDescuentosDESCUENTO].AsFloat := aValue; end; { TGruposProveedorDataTableRules } constructor TGruposProveedorDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TGruposProveedorDataTableRules.Destroy; begin inherited; end; function TGruposProveedorDataTableRules.GetDESCRIPCIONValue: String; begin result := DataTable.Fields[idx_GruposProveedorDESCRIPCION].AsString; end; procedure TGruposProveedorDataTableRules.SetDESCRIPCIONValue(const aValue: String); begin DataTable.Fields[idx_GruposProveedorDESCRIPCION].AsString := aValue; end; { TGruposEmpleadoDataTableRules } constructor TGruposEmpleadoDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TGruposEmpleadoDataTableRules.Destroy; begin inherited; end; function TGruposEmpleadoDataTableRules.GetDESCRIPCIONValue: String; begin result := DataTable.Fields[idx_GruposEmpleadoDESCRIPCION].AsString; end; procedure TGruposEmpleadoDataTableRules.SetDESCRIPCIONValue(const aValue: String); begin DataTable.Fields[idx_GruposEmpleadoDESCRIPCION].AsString := aValue; end; initialization RegisterDataTableRules(RID_Contactos, TContactosDataTableRules); RegisterDataTableRules(RID_GruposCliente, TGruposClienteDataTableRules); RegisterDataTableRules(RID_DatosBancarios, TDatosBancariosDataTableRules); RegisterDataTableRules(RID_ContactosCategorias, TContactosCategoriasDataTableRules); RegisterDataTableRules(RID_Clientes, TClientesDataTableRules); RegisterDataTableRules(RID_Proveedores, TProveedoresDataTableRules); RegisterDataTableRules(RID_Empleados, TEmpleadosDataTableRules); RegisterDataTableRules(RID_DireccionesContacto, TDireccionesContactoDataTableRules); RegisterDataTableRules(RID_ClientesDescuentos, TClientesDescuentosDataTableRules); RegisterDataTableRules(RID_GruposProveedor, TGruposProveedorDataTableRules); RegisterDataTableRules(RID_GruposEmpleado, TGruposEmpleadoDataTableRules); end.