unit schContactosClient_Intf; interface uses Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } RID_Contactos = '{E24CA300-0D0B-4944-BDD6-48C8AB62EF10}'; RID_GruposCliente = '{A9F76DB5-E6CC-4D39-905C-F7904698A826}'; RID_DatosBancarios = '{91352332-574D-4F61-A203-34EE3570B749}'; RID_Clientes = '{E607594C-7E68-47BE-8608-5AC0CDF7B52D}'; RID_Proveedores = '{2ED8F370-70A0-4875-BA97-24F1DCA4C2D0}'; RID_Empleados = '{67E10F81-87C3-4813-93EF-BBAA1103C4FD}'; RID_DireccionesContacto = '{CEF465B1-87FE-49CB-B579-82439ED57F4C}'; RID_Dataset = '{C3582AFC-DC84-4530-89CD-2CC230DA3079}'; RID_ClientesDescuentos = '{BAD91B99-6D6C-4492-9030-BF889301EF0E}'; RID_GruposProveedor = '{0B9892C1-0B9E-4E82-8095-0F4162F7DF29}'; RID_GruposEmpleado = '{203A453A-5D66-4500-89B2-EBCCB21D3411}'; RID_Contactos_Refresh = '{C1CAF181-16E0-488C-AEE9-8705304CEA9F}'; RID_ContratosEmpleados = '{81686110-49D7-4051-A3B1-0A1F901DB01F}'; RID_DescripcionesProveedores = '{725A5FC7-6521-4CBC-B38D-53C96FE1D73E}'; RID_PersonalContacto = '{358F4A90-369F-49E7-95F4-744B9A5EED77}'; RID_Agentes_Comisiones = '{D191936F-325B-412C-814F-246CF21E7185}'; RID_ListaAnosObjetivosAlb = '{27BAE8E7-F84E-4814-86DA-E732993DC49D}'; RID_Agentes = '{474D234D-C7D0-4F78-99F9-92D4BF453383}'; RID_ClientesDescuentosArticulos = '{FB733234-9D6D-4CE2-9299-E8B2C22B72AE}'; RID_Agentes_Objetivos_albaranes = '{4DE1A112-DECA-4FB2-83F5-EA209FDB7BDA}'; RID_Agentes_Objetivos_facturas = '{A1BF6DA3-FEC6-4358-8D3F-9451FB7E6E2C}'; RID_ListaAnosObjetivosFac = '{78642F3F-D13E-4008-AA00-37A1CDBD12AE}'; RID_Idiomas = '{D814AB84-EA8F-4950-A978-72D712A21360}'; RID_TiposCliente = '{9401BDF9-9A8B-4C9A-874A-11041558FD0D}'; RID_ClientesSucursales = '{5EA89EC6-FE98-4A5E-B34D-9151CC43D603}'; { Data table names } nme_Contactos = 'Contactos'; nme_GruposCliente = 'GruposCliente'; nme_DatosBancarios = 'DatosBancarios'; nme_Clientes = 'Clientes'; nme_Proveedores = 'Proveedores'; nme_Empleados = 'Empleados'; nme_DireccionesContacto = 'DireccionesContacto'; nme_Dataset = 'Dataset'; nme_ClientesDescuentos = 'ClientesDescuentos'; nme_GruposProveedor = 'GruposProveedor'; nme_GruposEmpleado = 'GruposEmpleado'; nme_Contactos_Refresh = 'Contactos_Refresh'; nme_ContratosEmpleados = 'ContratosEmpleados'; nme_DescripcionesProveedores = 'DescripcionesProveedores'; nme_PersonalContacto = 'PersonalContacto'; nme_Agentes_Comisiones = 'Agentes_Comisiones'; nme_ListaAnosObjetivosAlb = 'ListaAnosObjetivosAlb'; nme_Agentes = 'Agentes'; nme_ClientesDescuentosArticulos = 'ClientesDescuentosArticulos'; nme_Agentes_Objetivos_albaranes = 'Agentes_Objetivos_albaranes'; nme_Agentes_Objetivos_facturas = 'Agentes_Objetivos_facturas'; nme_ListaAnosObjetivosFac = 'ListaAnosObjetivosFac'; nme_Idiomas = 'Idiomas'; nme_TiposCliente = 'TiposCliente'; nme_ClientesSucursales = 'ClientesSucursales'; { 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_ContactosPAIS = 'PAIS'; fld_ContactosIDIOMA_ISO = 'IDIOMA_ISO'; fld_ContactosIDIOMA = 'IDIOMA'; fld_ContactosTELEFONO_1 = 'TELEFONO_1'; fld_ContactosTELEFONO_2 = 'TELEFONO_2'; fld_ContactosMOVIL_1 = 'MOVIL_1'; fld_ContactosMOVIL_2 = 'MOVIL_2'; fld_ContactosFAX = 'FAX'; fld_ContactosEMAIL_1 = 'EMAIL_1'; fld_ContactosEMAIL_2 = 'EMAIL_2'; fld_ContactosPAGINA_WEB = 'PAGINA_WEB'; fld_ContactosNOTAS = 'NOTAS'; fld_ContactosFECHA_ALTA = 'FECHA_ALTA'; fld_ContactosFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_ContactosUSUARIO = 'USUARIO'; fld_ContactosID_EMPRESA = 'ID_EMPRESA'; 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_ContactosPAIS = 9; idx_ContactosIDIOMA_ISO = 10; idx_ContactosIDIOMA = 11; idx_ContactosTELEFONO_1 = 12; idx_ContactosTELEFONO_2 = 13; idx_ContactosMOVIL_1 = 14; idx_ContactosMOVIL_2 = 15; idx_ContactosFAX = 16; idx_ContactosEMAIL_1 = 17; idx_ContactosEMAIL_2 = 18; idx_ContactosPAGINA_WEB = 19; idx_ContactosNOTAS = 20; idx_ContactosFECHA_ALTA = 21; idx_ContactosFECHA_MODIFICACION = 22; idx_ContactosUSUARIO = 23; idx_ContactosID_EMPRESA = 24; idx_ContactosREFERENCIA = 25; { GruposCliente fields } fld_GruposClienteID = 'ID'; fld_GruposClienteDESCRIPCION = 'DESCRIPCION'; { GruposCliente field indexes } idx_GruposClienteID = 0; idx_GruposClienteDESCRIPCION = 1; { 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'; fld_DatosBancariosFECHA_ALTA = 'FECHA_ALTA'; fld_DatosBancariosFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_DatosBancariosIBAN = 'IBAN'; fld_DatosBancariosSWIFT = 'SWIFT'; { 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; idx_DatosBancariosFECHA_ALTA = 7; idx_DatosBancariosFECHA_MODIFICACION = 8; idx_DatosBancariosIBAN = 9; idx_DatosBancariosSWIFT = 10; { Clientes fields } fld_ClientesID = 'ID'; fld_ClientesID_CATEGORIA = 'ID_CATEGORIA'; fld_ClientesNIF_CIF = 'NIF_CIF'; fld_ClientesNOMBRE = 'NOMBRE'; fld_ClientesPERSONA_CONTACTO = 'PERSONA_CONTACTO'; fld_ClientesCALLE = 'CALLE'; fld_ClientesPOBLACION = 'POBLACION'; fld_ClientesPROVINCIA = 'PROVINCIA'; fld_ClientesCODIGO_POSTAL = 'CODIGO_POSTAL'; fld_ClientesPAIS = 'PAIS'; fld_ClientesIDIOMA_ISO = 'IDIOMA_ISO'; fld_ClientesIDIOMA = 'IDIOMA'; fld_ClientesTELEFONO_1 = 'TELEFONO_1'; fld_ClientesTELEFONO_2 = 'TELEFONO_2'; fld_ClientesMOVIL_1 = 'MOVIL_1'; fld_ClientesMOVIL_2 = 'MOVIL_2'; fld_ClientesFAX = 'FAX'; fld_ClientesEMAIL_1 = 'EMAIL_1'; fld_ClientesEMAIL_2 = 'EMAIL_2'; fld_ClientesPAGINA_WEB = 'PAGINA_WEB'; fld_ClientesNOTAS = 'NOTAS'; fld_ClientesFECHA_ALTA = 'FECHA_ALTA'; fld_ClientesFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_ClientesUSUARIO = 'USUARIO'; fld_ClientesID_EMPRESA = 'ID_EMPRESA'; fld_ClientesREFERENCIA = 'REFERENCIA'; fld_ClientesID_AGENTE = 'ID_AGENTE'; fld_ClientesGRUPO_CLIENTE = 'GRUPO_CLIENTE'; fld_ClientesNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL'; fld_ClientesVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1'; fld_ClientesVENCIMIENTO_FACTURAS_2 = 'VENCIMIENTO_FACTURAS_2'; fld_ClientesVENCIMIENTO_FACTURAS_3 = 'VENCIMIENTO_FACTURAS_3'; fld_ClientesBLOQUEADO = 'BLOQUEADO'; fld_ClientesAGENTE = 'AGENTE'; fld_ClientesRAPEL = 'RAPEL'; fld_ClientesEMAIL_ADMINISTRACION = 'EMAIL_ADMINISTRACION'; fld_ClientesREGIMEN_IVA = 'REGIMEN_IVA'; fld_ClientesMOTIVO_BLOQUEO = 'MOTIVO_BLOQUEO'; fld_ClientesRECARGO_EQUIVALENCIA = 'RECARGO_EQUIVALENCIA'; fld_ClientesID_TIPO_IVA = 'ID_TIPO_IVA'; fld_ClientesID_FORMA_PAGO = 'ID_FORMA_PAGO'; fld_ClientesTIENDA_WEB = 'TIENDA_WEB'; fld_ClientesCODIGO_ASIGNADO = 'CODIGO_ASIGNADO'; fld_ClientesDESCUENTO = 'DESCUENTO'; fld_ClientesFELICITACION = 'FELICITACION'; fld_ClientesTIPO_CLIENTE = 'TIPO_CLIENTE'; fld_ClientesSEPA = 'SEPA'; fld_ClientesID_CENTRAL = 'ID_CENTRAL'; { Clientes field indexes } idx_ClientesID = 0; idx_ClientesID_CATEGORIA = 1; idx_ClientesNIF_CIF = 2; idx_ClientesNOMBRE = 3; idx_ClientesPERSONA_CONTACTO = 4; idx_ClientesCALLE = 5; idx_ClientesPOBLACION = 6; idx_ClientesPROVINCIA = 7; idx_ClientesCODIGO_POSTAL = 8; idx_ClientesPAIS = 9; idx_ClientesIDIOMA_ISO = 10; idx_ClientesIDIOMA = 11; idx_ClientesTELEFONO_1 = 12; idx_ClientesTELEFONO_2 = 13; idx_ClientesMOVIL_1 = 14; idx_ClientesMOVIL_2 = 15; idx_ClientesFAX = 16; idx_ClientesEMAIL_1 = 17; idx_ClientesEMAIL_2 = 18; idx_ClientesPAGINA_WEB = 19; idx_ClientesNOTAS = 20; idx_ClientesFECHA_ALTA = 21; idx_ClientesFECHA_MODIFICACION = 22; idx_ClientesUSUARIO = 23; idx_ClientesID_EMPRESA = 24; idx_ClientesREFERENCIA = 25; idx_ClientesID_AGENTE = 26; idx_ClientesGRUPO_CLIENTE = 27; idx_ClientesNOMBRE_COMERCIAL = 28; idx_ClientesVENCIMIENTO_FACTURAS_1 = 29; idx_ClientesVENCIMIENTO_FACTURAS_2 = 30; idx_ClientesVENCIMIENTO_FACTURAS_3 = 31; idx_ClientesBLOQUEADO = 32; idx_ClientesAGENTE = 33; idx_ClientesRAPEL = 34; idx_ClientesEMAIL_ADMINISTRACION = 35; idx_ClientesREGIMEN_IVA = 36; idx_ClientesMOTIVO_BLOQUEO = 37; idx_ClientesRECARGO_EQUIVALENCIA = 38; idx_ClientesID_TIPO_IVA = 39; idx_ClientesID_FORMA_PAGO = 40; idx_ClientesTIENDA_WEB = 41; idx_ClientesCODIGO_ASIGNADO = 42; idx_ClientesDESCUENTO = 43; idx_ClientesFELICITACION = 44; idx_ClientesTIPO_CLIENTE = 45; idx_ClientesSEPA = 46; idx_ClientesID_CENTRAL = 47; { Proveedores fields } fld_ProveedoresID = 'ID'; fld_ProveedoresID_CATEGORIA = 'ID_CATEGORIA'; fld_ProveedoresNIF_CIF = 'NIF_CIF'; fld_ProveedoresNOMBRE = 'NOMBRE'; fld_ProveedoresPERSONA_CONTACTO = 'PERSONA_CONTACTO'; fld_ProveedoresCALLE = 'CALLE'; fld_ProveedoresPOBLACION = 'POBLACION'; fld_ProveedoresPROVINCIA = 'PROVINCIA'; fld_ProveedoresCODIGO_POSTAL = 'CODIGO_POSTAL'; fld_ProveedoresPAIS = 'PAIS'; fld_ProveedoresIDIOMA_ISO = 'IDIOMA_ISO'; fld_ProveedoresIDIOMA = 'IDIOMA'; fld_ProveedoresTELEFONO_1 = 'TELEFONO_1'; fld_ProveedoresTELEFONO_2 = 'TELEFONO_2'; fld_ProveedoresMOVIL_1 = 'MOVIL_1'; fld_ProveedoresMOVIL_2 = 'MOVIL_2'; fld_ProveedoresFAX = 'FAX'; fld_ProveedoresEMAIL_1 = 'EMAIL_1'; fld_ProveedoresEMAIL_2 = 'EMAIL_2'; fld_ProveedoresPAGINA_WEB = 'PAGINA_WEB'; fld_ProveedoresNOTAS = 'NOTAS'; fld_ProveedoresFECHA_ALTA = 'FECHA_ALTA'; fld_ProveedoresFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_ProveedoresUSUARIO = 'USUARIO'; fld_ProveedoresID_EMPRESA = 'ID_EMPRESA'; fld_ProveedoresREFERENCIA = 'REFERENCIA'; fld_ProveedoresDESCUENTO = 'DESCUENTO'; fld_ProveedoresDESCRIPCION_PROVEEDOR = 'DESCRIPCION_PROVEEDOR'; fld_ProveedoresCODIGO_ASIGNADO = 'CODIGO_ASIGNADO'; fld_ProveedoresGRUPO_PROVEEDOR = 'GRUPO_PROVEEDOR'; fld_ProveedoresREGIMEN_IVA = 'REGIMEN_IVA'; fld_ProveedoresID_TIPO_IVA = 'ID_TIPO_IVA'; fld_ProveedoresID_FORMA_PAGO = 'ID_FORMA_PAGO'; fld_ProveedoresTIENDA_WEB = 'TIENDA_WEB'; fld_ProveedoresHOMOLOGADO = 'HOMOLOGADO'; fld_ProveedoresCERTIFICACION = 'CERTIFICACION'; fld_ProveedoresSUBCONTRATA = 'SUBCONTRATA'; fld_ProveedoresEMAIL_ADMINISTRACION = 'EMAIL_ADMINISTRACION'; fld_ProveedoresVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1'; fld_ProveedoresVENCIMIENTO_FACTURAS_2 = 'VENCIMIENTO_FACTURAS_2'; fld_ProveedoresVENCIMIENTO_FACTURAS_3 = 'VENCIMIENTO_FACTURAS_3'; { Proveedores field indexes } idx_ProveedoresID = 0; idx_ProveedoresID_CATEGORIA = 1; idx_ProveedoresNIF_CIF = 2; idx_ProveedoresNOMBRE = 3; idx_ProveedoresPERSONA_CONTACTO = 4; idx_ProveedoresCALLE = 5; idx_ProveedoresPOBLACION = 6; idx_ProveedoresPROVINCIA = 7; idx_ProveedoresCODIGO_POSTAL = 8; idx_ProveedoresPAIS = 9; idx_ProveedoresIDIOMA_ISO = 10; idx_ProveedoresIDIOMA = 11; idx_ProveedoresTELEFONO_1 = 12; idx_ProveedoresTELEFONO_2 = 13; idx_ProveedoresMOVIL_1 = 14; idx_ProveedoresMOVIL_2 = 15; idx_ProveedoresFAX = 16; idx_ProveedoresEMAIL_1 = 17; idx_ProveedoresEMAIL_2 = 18; idx_ProveedoresPAGINA_WEB = 19; idx_ProveedoresNOTAS = 20; idx_ProveedoresFECHA_ALTA = 21; idx_ProveedoresFECHA_MODIFICACION = 22; idx_ProveedoresUSUARIO = 23; idx_ProveedoresID_EMPRESA = 24; idx_ProveedoresREFERENCIA = 25; idx_ProveedoresDESCUENTO = 26; idx_ProveedoresDESCRIPCION_PROVEEDOR = 27; idx_ProveedoresCODIGO_ASIGNADO = 28; idx_ProveedoresGRUPO_PROVEEDOR = 29; idx_ProveedoresREGIMEN_IVA = 30; idx_ProveedoresID_TIPO_IVA = 31; idx_ProveedoresID_FORMA_PAGO = 32; idx_ProveedoresTIENDA_WEB = 33; idx_ProveedoresHOMOLOGADO = 34; idx_ProveedoresCERTIFICACION = 35; idx_ProveedoresSUBCONTRATA = 36; idx_ProveedoresEMAIL_ADMINISTRACION = 37; idx_ProveedoresVENCIMIENTO_FACTURAS_1 = 38; idx_ProveedoresVENCIMIENTO_FACTURAS_2 = 39; idx_ProveedoresVENCIMIENTO_FACTURAS_3 = 40; { Empleados fields } fld_EmpleadosID = 'ID'; fld_EmpleadosID_CATEGORIA = 'ID_CATEGORIA'; fld_EmpleadosNIF_CIF = 'NIF_CIF'; fld_EmpleadosNOMBRE = 'NOMBRE'; fld_EmpleadosPERSONA_CONTACTO = 'PERSONA_CONTACTO'; fld_EmpleadosCALLE = 'CALLE'; fld_EmpleadosPOBLACION = 'POBLACION'; fld_EmpleadosPROVINCIA = 'PROVINCIA'; fld_EmpleadosCODIGO_POSTAL = 'CODIGO_POSTAL'; fld_EmpleadosPAIS = 'PAIS'; fld_EmpleadosIDIOMA_ISO = 'IDIOMA_ISO'; fld_EmpleadosIDIOMA = 'IDIOMA'; 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_EmpleadosFECHA_ALTA = 'FECHA_ALTA'; fld_EmpleadosFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_EmpleadosUSUARIO = 'USUARIO'; fld_EmpleadosID_EMPRESA = 'ID_EMPRESA'; fld_EmpleadosREFERENCIA = 'REFERENCIA'; fld_EmpleadosFECHA_NACIMIENTO = 'FECHA_NACIMIENTO'; fld_EmpleadosCATEGORIA = 'CATEGORIA'; 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'; fld_EmpleadosCONTRATO = 'CONTRATO'; fld_EmpleadosDURACION = 'DURACION'; fld_EmpleadosFECHA_BAJA = 'FECHA_BAJA'; fld_EmpleadosCAUSA_BAJA = 'CAUSA_BAJA'; { Empleados field indexes } idx_EmpleadosID = 0; idx_EmpleadosID_CATEGORIA = 1; idx_EmpleadosNIF_CIF = 2; idx_EmpleadosNOMBRE = 3; idx_EmpleadosPERSONA_CONTACTO = 4; idx_EmpleadosCALLE = 5; idx_EmpleadosPOBLACION = 6; idx_EmpleadosPROVINCIA = 7; idx_EmpleadosCODIGO_POSTAL = 8; idx_EmpleadosPAIS = 9; idx_EmpleadosIDIOMA_ISO = 10; idx_EmpleadosIDIOMA = 11; idx_EmpleadosTELEFONO_1 = 12; idx_EmpleadosTELEFONO_2 = 13; idx_EmpleadosMOVIL_1 = 14; idx_EmpleadosMOVIL_2 = 15; idx_EmpleadosFAX = 16; idx_EmpleadosEMAIL_1 = 17; idx_EmpleadosEMAIL_2 = 18; idx_EmpleadosPAGINA_WEB = 19; idx_EmpleadosNOTAS = 20; idx_EmpleadosFECHA_ALTA = 21; idx_EmpleadosFECHA_MODIFICACION = 22; idx_EmpleadosUSUARIO = 23; idx_EmpleadosID_EMPRESA = 24; idx_EmpleadosREFERENCIA = 25; idx_EmpleadosFECHA_NACIMIENTO = 26; idx_EmpleadosCATEGORIA = 27; idx_EmpleadosFECHA_ALTA_EMPRESA = 28; idx_EmpleadosFORMACION_BASE = 29; idx_EmpleadosFORMACION_COMPLE = 30; idx_EmpleadosFORMACION_RECIBIDA = 31; idx_EmpleadosEXPERIENCIA = 32; idx_EmpleadosCONTRATO = 33; idx_EmpleadosDURACION = 34; idx_EmpleadosFECHA_BAJA = 35; idx_EmpleadosCAUSA_BAJA = 36; { DireccionesContacto fields } fld_DireccionesContactoID = 'ID'; fld_DireccionesContactoID_CONTACTO = 'ID_CONTACTO'; fld_DireccionesContactoCALLE = 'CALLE'; fld_DireccionesContactoPOBLACION = 'POBLACION'; fld_DireccionesContactoPROVINCIA = 'PROVINCIA'; fld_DireccionesContactoCODIGO_POSTAL = 'CODIGO_POSTAL'; fld_DireccionesContactoPERSONA_CONTACTO = 'PERSONA_CONTACTO'; fld_DireccionesContactoNOMBRE = 'NOMBRE'; fld_DireccionesContactoTELEFONO = 'TELEFONO'; fld_DireccionesContactoMOVIL = 'MOVIL'; fld_DireccionesContactoFAX = 'FAX'; fld_DireccionesContactoEMAIL = 'EMAIL'; fld_DireccionesContactoNOTAS = 'NOTAS'; fld_DireccionesContactoPORTE = 'PORTE'; fld_DireccionesContactoFECHA_ALTA = 'FECHA_ALTA'; fld_DireccionesContactoFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_DireccionesContactoPAIS = 'PAIS'; { DireccionesContacto field indexes } idx_DireccionesContactoID = 0; idx_DireccionesContactoID_CONTACTO = 1; idx_DireccionesContactoCALLE = 2; idx_DireccionesContactoPOBLACION = 3; idx_DireccionesContactoPROVINCIA = 4; idx_DireccionesContactoCODIGO_POSTAL = 5; idx_DireccionesContactoPERSONA_CONTACTO = 6; idx_DireccionesContactoNOMBRE = 7; idx_DireccionesContactoTELEFONO = 8; idx_DireccionesContactoMOVIL = 9; idx_DireccionesContactoFAX = 10; idx_DireccionesContactoEMAIL = 11; idx_DireccionesContactoNOTAS = 12; idx_DireccionesContactoPORTE = 13; idx_DireccionesContactoFECHA_ALTA = 14; idx_DireccionesContactoFECHA_MODIFICACION = 15; idx_DireccionesContactoPAIS = 16; { Dataset fields } { Dataset field indexes } { 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_GruposProveedorID = 'ID'; fld_GruposProveedorDESCRIPCION = 'DESCRIPCION'; { GruposProveedor field indexes } idx_GruposProveedorID = 0; idx_GruposProveedorDESCRIPCION = 1; { GruposEmpleado fields } fld_GruposEmpleadoID = 'ID'; fld_GruposEmpleadoDESCRIPCION = 'DESCRIPCION'; { GruposEmpleado field indexes } idx_GruposEmpleadoID = 0; idx_GruposEmpleadoDESCRIPCION = 1; { Contactos_Refresh fields } fld_Contactos_RefreshID = 'ID'; fld_Contactos_RefreshNIF_CIF = 'NIF_CIF'; fld_Contactos_RefreshNOMBRE = 'NOMBRE'; fld_Contactos_RefreshCALLE = 'CALLE'; fld_Contactos_RefreshPOBLACION = 'POBLACION'; fld_Contactos_RefreshPROVINCIA = 'PROVINCIA'; fld_Contactos_RefreshCODIGO_POSTAL = 'CODIGO_POSTAL'; fld_Contactos_RefreshTELEFONO_1 = 'TELEFONO_1'; fld_Contactos_RefreshTELEFONO_2 = 'TELEFONO_2'; fld_Contactos_RefreshMOVIL_1 = 'MOVIL_1'; fld_Contactos_RefreshMOVIL_2 = 'MOVIL_2'; fld_Contactos_RefreshFAX = 'FAX'; fld_Contactos_RefreshEMAIL_1 = 'EMAIL_1'; fld_Contactos_RefreshEMAIL_2 = 'EMAIL_2'; fld_Contactos_RefreshPAGINA_WEB = 'PAGINA_WEB'; fld_Contactos_RefreshNOTAS = 'NOTAS'; fld_Contactos_RefreshFECHA_ALTA = 'FECHA_ALTA'; fld_Contactos_RefreshFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_Contactos_RefreshUSUARIO = 'USUARIO'; fld_Contactos_RefreshREFERENCIA = 'REFERENCIA'; fld_Contactos_RefreshPERSONA_CONTACTO = 'PERSONA_CONTACTO'; { Contactos_Refresh field indexes } idx_Contactos_RefreshID = 0; idx_Contactos_RefreshNIF_CIF = 1; idx_Contactos_RefreshNOMBRE = 2; idx_Contactos_RefreshCALLE = 3; idx_Contactos_RefreshPOBLACION = 4; idx_Contactos_RefreshPROVINCIA = 5; idx_Contactos_RefreshCODIGO_POSTAL = 6; idx_Contactos_RefreshTELEFONO_1 = 7; idx_Contactos_RefreshTELEFONO_2 = 8; idx_Contactos_RefreshMOVIL_1 = 9; idx_Contactos_RefreshMOVIL_2 = 10; idx_Contactos_RefreshFAX = 11; idx_Contactos_RefreshEMAIL_1 = 12; idx_Contactos_RefreshEMAIL_2 = 13; idx_Contactos_RefreshPAGINA_WEB = 14; idx_Contactos_RefreshNOTAS = 15; idx_Contactos_RefreshFECHA_ALTA = 16; idx_Contactos_RefreshFECHA_MODIFICACION = 17; idx_Contactos_RefreshUSUARIO = 18; idx_Contactos_RefreshREFERENCIA = 19; idx_Contactos_RefreshPERSONA_CONTACTO = 20; { ContratosEmpleados fields } fld_ContratosEmpleadosCONTRATO = 'CONTRATO'; { ContratosEmpleados field indexes } idx_ContratosEmpleadosCONTRATO = 0; { DescripcionesProveedores fields } fld_DescripcionesProveedoresDESCRIPCION_PROVEEDOR = 'DESCRIPCION_PROVEEDOR'; { DescripcionesProveedores field indexes } idx_DescripcionesProveedoresDESCRIPCION_PROVEEDOR = 0; { PersonalContacto fields } fld_PersonalContactoID = 'ID'; fld_PersonalContactoID_CONTACTO = 'ID_CONTACTO'; fld_PersonalContactoNOMBRE = 'NOMBRE'; fld_PersonalContactoPUESTO = 'PUESTO'; fld_PersonalContactoTELEFONO = 'TELEFONO'; fld_PersonalContactoMOVIL = 'MOVIL'; fld_PersonalContactoFAX = 'FAX'; fld_PersonalContactoEMAIL = 'EMAIL'; fld_PersonalContactoFECHA_ALTA = 'FECHA_ALTA'; fld_PersonalContactoFECHA_MODIFICACION = 'FECHA_MODIFICACION'; { PersonalContacto field indexes } idx_PersonalContactoID = 0; idx_PersonalContactoID_CONTACTO = 1; idx_PersonalContactoNOMBRE = 2; idx_PersonalContactoPUESTO = 3; idx_PersonalContactoTELEFONO = 4; idx_PersonalContactoMOVIL = 5; idx_PersonalContactoFAX = 6; idx_PersonalContactoEMAIL = 7; idx_PersonalContactoFECHA_ALTA = 8; idx_PersonalContactoFECHA_MODIFICACION = 9; { Agentes_Comisiones fields } fld_Agentes_ComisionesID = 'ID'; fld_Agentes_ComisionesID_AGENTE = 'ID_AGENTE'; fld_Agentes_ComisionesID_PROVEEDOR = 'ID_PROVEEDOR'; fld_Agentes_ComisionesNOMBRE = 'NOMBRE'; fld_Agentes_ComisionesCOMISION = 'COMISION'; { Agentes_Comisiones field indexes } idx_Agentes_ComisionesID = 0; idx_Agentes_ComisionesID_AGENTE = 1; idx_Agentes_ComisionesID_PROVEEDOR = 2; idx_Agentes_ComisionesNOMBRE = 3; idx_Agentes_ComisionesCOMISION = 4; { ListaAnosObjetivosAlb fields } fld_ListaAnosObjetivosAlbANO = 'ANO'; { ListaAnosObjetivosAlb field indexes } idx_ListaAnosObjetivosAlbANO = 0; { Agentes fields } fld_AgentesID = 'ID'; fld_AgentesID_CATEGORIA = 'ID_CATEGORIA'; fld_AgentesNIF_CIF = 'NIF_CIF'; fld_AgentesNOMBRE = 'NOMBRE'; fld_AgentesPERSONA_CONTACTO = 'PERSONA_CONTACTO'; fld_AgentesCALLE = 'CALLE'; fld_AgentesPOBLACION = 'POBLACION'; fld_AgentesPROVINCIA = 'PROVINCIA'; fld_AgentesCODIGO_POSTAL = 'CODIGO_POSTAL'; fld_AgentesPAIS = 'PAIS'; fld_AgentesIDIOMA_ISO = 'IDIOMA_ISO'; fld_AgentesIDIOMA = 'IDIOMA'; fld_AgentesTELEFONO_1 = 'TELEFONO_1'; fld_AgentesTELEFONO_2 = 'TELEFONO_2'; fld_AgentesMOVIL_1 = 'MOVIL_1'; fld_AgentesMOVIL_2 = 'MOVIL_2'; fld_AgentesFAX = 'FAX'; fld_AgentesEMAIL_1 = 'EMAIL_1'; fld_AgentesEMAIL_2 = 'EMAIL_2'; fld_AgentesPAGINA_WEB = 'PAGINA_WEB'; fld_AgentesNOTAS = 'NOTAS'; fld_AgentesFECHA_ALTA = 'FECHA_ALTA'; fld_AgentesFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_AgentesUSUARIO = 'USUARIO'; fld_AgentesID_EMPRESA = 'ID_EMPRESA'; fld_AgentesREFERENCIA = 'REFERENCIA'; fld_AgentesFECHA_ALTA_EMPRESA = 'FECHA_ALTA_EMPRESA'; fld_AgentesFECHA_BAJA = 'FECHA_BAJA'; fld_AgentesCAUSA_BAJA = 'CAUSA_BAJA'; { Agentes field indexes } idx_AgentesID = 0; idx_AgentesID_CATEGORIA = 1; idx_AgentesNIF_CIF = 2; idx_AgentesNOMBRE = 3; idx_AgentesPERSONA_CONTACTO = 4; idx_AgentesCALLE = 5; idx_AgentesPOBLACION = 6; idx_AgentesPROVINCIA = 7; idx_AgentesCODIGO_POSTAL = 8; idx_AgentesPAIS = 9; idx_AgentesIDIOMA_ISO = 10; idx_AgentesIDIOMA = 11; idx_AgentesTELEFONO_1 = 12; idx_AgentesTELEFONO_2 = 13; idx_AgentesMOVIL_1 = 14; idx_AgentesMOVIL_2 = 15; idx_AgentesFAX = 16; idx_AgentesEMAIL_1 = 17; idx_AgentesEMAIL_2 = 18; idx_AgentesPAGINA_WEB = 19; idx_AgentesNOTAS = 20; idx_AgentesFECHA_ALTA = 21; idx_AgentesFECHA_MODIFICACION = 22; idx_AgentesUSUARIO = 23; idx_AgentesID_EMPRESA = 24; idx_AgentesREFERENCIA = 25; idx_AgentesFECHA_ALTA_EMPRESA = 26; idx_AgentesFECHA_BAJA = 27; idx_AgentesCAUSA_BAJA = 28; { ClientesDescuentosArticulos fields } fld_ClientesDescuentosArticulosID = 'ID'; fld_ClientesDescuentosArticulosID_CLIENTE = 'ID_CLIENTE'; fld_ClientesDescuentosArticulosID_ARTICULO = 'ID_ARTICULO'; fld_ClientesDescuentosArticulosREFERENCIA = 'REFERENCIA'; fld_ClientesDescuentosArticulosDESCRIPCION = 'DESCRIPCION'; fld_ClientesDescuentosArticulosPRECIO_COSTE = 'PRECIO_COSTE'; fld_ClientesDescuentosArticulosDESCUENTO_PROVEEDOR = 'DESCUENTO_PROVEEDOR'; fld_ClientesDescuentosArticulosPRECIO_NETO = 'PRECIO_NETO'; fld_ClientesDescuentosArticulosDESCUENTO = 'DESCUENTO'; { ClientesDescuentosArticulos field indexes } idx_ClientesDescuentosArticulosID = 0; idx_ClientesDescuentosArticulosID_CLIENTE = 1; idx_ClientesDescuentosArticulosID_ARTICULO = 2; idx_ClientesDescuentosArticulosREFERENCIA = 3; idx_ClientesDescuentosArticulosDESCRIPCION = 4; idx_ClientesDescuentosArticulosPRECIO_COSTE = 5; idx_ClientesDescuentosArticulosDESCUENTO_PROVEEDOR = 6; idx_ClientesDescuentosArticulosPRECIO_NETO = 7; idx_ClientesDescuentosArticulosDESCUENTO = 8; { Agentes_Objetivos_albaranes fields } fld_Agentes_Objetivos_albaranesID = 'ID'; fld_Agentes_Objetivos_albaranesID_AGENTE = 'ID_AGENTE'; fld_Agentes_Objetivos_albaranesANO = 'ANO'; fld_Agentes_Objetivos_albaranesMES = 'MES'; fld_Agentes_Objetivos_albaranesDESCRIPCION = 'DESCRIPCION'; fld_Agentes_Objetivos_albaranesUNIDADES_OBJETIVO = 'UNIDADES_OBJETIVO'; fld_Agentes_Objetivos_albaranesIMPORTE_OBJETIVO = 'IMPORTE_OBJETIVO'; { Agentes_Objetivos_albaranes field indexes } idx_Agentes_Objetivos_albaranesID = 0; idx_Agentes_Objetivos_albaranesID_AGENTE = 1; idx_Agentes_Objetivos_albaranesANO = 2; idx_Agentes_Objetivos_albaranesMES = 3; idx_Agentes_Objetivos_albaranesDESCRIPCION = 4; idx_Agentes_Objetivos_albaranesUNIDADES_OBJETIVO = 5; idx_Agentes_Objetivos_albaranesIMPORTE_OBJETIVO = 6; { Agentes_Objetivos_facturas fields } fld_Agentes_Objetivos_facturasID = 'ID'; fld_Agentes_Objetivos_facturasID_AGENTE = 'ID_AGENTE'; fld_Agentes_Objetivos_facturasANO = 'ANO'; fld_Agentes_Objetivos_facturasMES = 'MES'; fld_Agentes_Objetivos_facturasDESCRIPCION = 'DESCRIPCION'; fld_Agentes_Objetivos_facturasUNIDADES_OBJETIVO = 'UNIDADES_OBJETIVO'; fld_Agentes_Objetivos_facturasIMPORTE_OBJETIVO = 'IMPORTE_OBJETIVO'; { Agentes_Objetivos_facturas field indexes } idx_Agentes_Objetivos_facturasID = 0; idx_Agentes_Objetivos_facturasID_AGENTE = 1; idx_Agentes_Objetivos_facturasANO = 2; idx_Agentes_Objetivos_facturasMES = 3; idx_Agentes_Objetivos_facturasDESCRIPCION = 4; idx_Agentes_Objetivos_facturasUNIDADES_OBJETIVO = 5; idx_Agentes_Objetivos_facturasIMPORTE_OBJETIVO = 6; { ListaAnosObjetivosFac fields } fld_ListaAnosObjetivosFacANO = 'ANO'; { ListaAnosObjetivosFac field indexes } idx_ListaAnosObjetivosFacANO = 0; { Idiomas fields } fld_IdiomasID = 'ID'; fld_IdiomasISO = 'ISO'; fld_IdiomasDESCRIPCION = 'DESCRIPCION'; { Idiomas field indexes } idx_IdiomasID = 0; idx_IdiomasISO = 1; idx_IdiomasDESCRIPCION = 2; { TiposCliente fields } fld_TiposClienteID = 'ID'; fld_TiposClienteDESCRIPCION = 'DESCRIPCION'; { TiposCliente field indexes } idx_TiposClienteID = 0; idx_TiposClienteDESCRIPCION = 1; { ClientesSucursales fields } fld_ClientesSucursalesID = 'ID'; fld_ClientesSucursalesID_CATEGORIA = 'ID_CATEGORIA'; fld_ClientesSucursalesNIF_CIF = 'NIF_CIF'; fld_ClientesSucursalesNOMBRE = 'NOMBRE'; fld_ClientesSucursalesPERSONA_CONTACTO = 'PERSONA_CONTACTO'; fld_ClientesSucursalesCALLE = 'CALLE'; fld_ClientesSucursalesPOBLACION = 'POBLACION'; fld_ClientesSucursalesPROVINCIA = 'PROVINCIA'; fld_ClientesSucursalesCODIGO_POSTAL = 'CODIGO_POSTAL'; fld_ClientesSucursalesTELEFONO_1 = 'TELEFONO_1'; fld_ClientesSucursalesTELEFONO_2 = 'TELEFONO_2'; fld_ClientesSucursalesMOVIL_1 = 'MOVIL_1'; fld_ClientesSucursalesMOVIL_2 = 'MOVIL_2'; fld_ClientesSucursalesFAX = 'FAX'; fld_ClientesSucursalesEMAIL_1 = 'EMAIL_1'; fld_ClientesSucursalesEMAIL_2 = 'EMAIL_2'; fld_ClientesSucursalesPAGINA_WEB = 'PAGINA_WEB'; fld_ClientesSucursalesNOTAS = 'NOTAS'; fld_ClientesSucursalesFECHA_ALTA = 'FECHA_ALTA'; fld_ClientesSucursalesFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_ClientesSucursalesUSUARIO = 'USUARIO'; fld_ClientesSucursalesID_EMPRESA = 'ID_EMPRESA'; fld_ClientesSucursalesREFERENCIA = 'REFERENCIA'; fld_ClientesSucursalesID_AGENTE = 'ID_AGENTE'; fld_ClientesSucursalesGRUPO_CLIENTE = 'GRUPO_CLIENTE'; fld_ClientesSucursalesNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL'; fld_ClientesSucursalesVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1'; fld_ClientesSucursalesVENCIMIENTO_FACTURAS_2 = 'VENCIMIENTO_FACTURAS_2'; fld_ClientesSucursalesVENCIMIENTO_FACTURAS_3 = 'VENCIMIENTO_FACTURAS_3'; fld_ClientesSucursalesBLOQUEADO = 'BLOQUEADO'; fld_ClientesSucursalesAGENTE = 'AGENTE'; fld_ClientesSucursalesRAPEL = 'RAPEL'; fld_ClientesSucursalesEMAIL_ADMINISTRACION = 'EMAIL_ADMINISTRACION'; fld_ClientesSucursalesREGIMEN_IVA = 'REGIMEN_IVA'; fld_ClientesSucursalesMOTIVO_BLOQUEO = 'MOTIVO_BLOQUEO'; fld_ClientesSucursalesRECARGO_EQUIVALENCIA = 'RECARGO_EQUIVALENCIA'; fld_ClientesSucursalesID_TIPO_IVA = 'ID_TIPO_IVA'; fld_ClientesSucursalesID_FORMA_PAGO = 'ID_FORMA_PAGO'; fld_ClientesSucursalesTIENDA_WEB = 'TIENDA_WEB'; fld_ClientesSucursalesCODIGO_ASIGNADO = 'CODIGO_ASIGNADO'; fld_ClientesSucursalesDESCUENTO = 'DESCUENTO'; fld_ClientesSucursalesFELICITACION = 'FELICITACION'; fld_ClientesSucursalesTIPO_CLIENTE = 'TIPO_CLIENTE'; fld_ClientesSucursalesSEPA = 'SEPA'; fld_ClientesSucursalesID_CENTRAL = 'ID_CENTRAL'; { ClientesSucursales field indexes } idx_ClientesSucursalesID = 0; idx_ClientesSucursalesID_CATEGORIA = 1; idx_ClientesSucursalesNIF_CIF = 2; idx_ClientesSucursalesNOMBRE = 3; idx_ClientesSucursalesPERSONA_CONTACTO = 4; idx_ClientesSucursalesCALLE = 5; idx_ClientesSucursalesPOBLACION = 6; idx_ClientesSucursalesPROVINCIA = 7; idx_ClientesSucursalesCODIGO_POSTAL = 8; idx_ClientesSucursalesTELEFONO_1 = 9; idx_ClientesSucursalesTELEFONO_2 = 10; idx_ClientesSucursalesMOVIL_1 = 11; idx_ClientesSucursalesMOVIL_2 = 12; idx_ClientesSucursalesFAX = 13; idx_ClientesSucursalesEMAIL_1 = 14; idx_ClientesSucursalesEMAIL_2 = 15; idx_ClientesSucursalesPAGINA_WEB = 16; idx_ClientesSucursalesNOTAS = 17; idx_ClientesSucursalesFECHA_ALTA = 18; idx_ClientesSucursalesFECHA_MODIFICACION = 19; idx_ClientesSucursalesUSUARIO = 20; idx_ClientesSucursalesID_EMPRESA = 21; idx_ClientesSucursalesREFERENCIA = 22; idx_ClientesSucursalesID_AGENTE = 23; idx_ClientesSucursalesGRUPO_CLIENTE = 24; idx_ClientesSucursalesNOMBRE_COMERCIAL = 25; idx_ClientesSucursalesVENCIMIENTO_FACTURAS_1 = 26; idx_ClientesSucursalesVENCIMIENTO_FACTURAS_2 = 27; idx_ClientesSucursalesVENCIMIENTO_FACTURAS_3 = 28; idx_ClientesSucursalesBLOQUEADO = 29; idx_ClientesSucursalesAGENTE = 30; idx_ClientesSucursalesRAPEL = 31; idx_ClientesSucursalesEMAIL_ADMINISTRACION = 32; idx_ClientesSucursalesREGIMEN_IVA = 33; idx_ClientesSucursalesMOTIVO_BLOQUEO = 34; idx_ClientesSucursalesRECARGO_EQUIVALENCIA = 35; idx_ClientesSucursalesID_TIPO_IVA = 36; idx_ClientesSucursalesID_FORMA_PAGO = 37; idx_ClientesSucursalesTIENDA_WEB = 38; idx_ClientesSucursalesCODIGO_ASIGNADO = 39; idx_ClientesSucursalesDESCUENTO = 40; idx_ClientesSucursalesFELICITACION = 41; idx_ClientesSucursalesTIPO_CLIENTE = 42; idx_ClientesSucursalesSEPA = 43; idx_ClientesSucursalesID_CENTRAL = 44; type { IContactos } IContactos = interface(IDAStronglyTypedDataTable) ['{B269AAAC-4012-41AB-8AA4-3992CCC10D14}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); function GetIDIsNull: Boolean; procedure SetIDIsNull(const aValue: Boolean); function GetID_CATEGORIAValue: Integer; procedure SetID_CATEGORIAValue(const aValue: Integer); function GetID_CATEGORIAIsNull: Boolean; procedure SetID_CATEGORIAIsNull(const aValue: Boolean); function GetNIF_CIFValue: String; procedure SetNIF_CIFValue(const aValue: String); function GetNIF_CIFIsNull: Boolean; procedure SetNIF_CIFIsNull(const aValue: Boolean); function GetNOMBREValue: String; procedure SetNOMBREValue(const aValue: String); function GetNOMBREIsNull: Boolean; procedure SetNOMBREIsNull(const aValue: Boolean); function GetPERSONA_CONTACTOValue: String; procedure SetPERSONA_CONTACTOValue(const aValue: String); function GetPERSONA_CONTACTOIsNull: Boolean; procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); function GetCALLEValue: String; procedure SetCALLEValue(const aValue: String); function GetCALLEIsNull: Boolean; procedure SetCALLEIsNull(const aValue: Boolean); function GetPOBLACIONValue: String; procedure SetPOBLACIONValue(const aValue: String); function GetPOBLACIONIsNull: Boolean; procedure SetPOBLACIONIsNull(const aValue: Boolean); function GetPROVINCIAValue: String; procedure SetPROVINCIAValue(const aValue: String); function GetPROVINCIAIsNull: Boolean; procedure SetPROVINCIAIsNull(const aValue: Boolean); function GetCODIGO_POSTALValue: String; procedure SetCODIGO_POSTALValue(const aValue: String); function GetCODIGO_POSTALIsNull: Boolean; procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); function GetPAISValue: String; procedure SetPAISValue(const aValue: String); function GetPAISIsNull: Boolean; procedure SetPAISIsNull(const aValue: Boolean); function GetIDIOMA_ISOValue: String; procedure SetIDIOMA_ISOValue(const aValue: String); function GetIDIOMA_ISOIsNull: Boolean; procedure SetIDIOMA_ISOIsNull(const aValue: Boolean); function GetIDIOMAValue: String; procedure SetIDIOMAValue(const aValue: String); function GetIDIOMAIsNull: Boolean; procedure SetIDIOMAIsNull(const aValue: Boolean); function GetTELEFONO_1Value: String; procedure SetTELEFONO_1Value(const aValue: String); function GetTELEFONO_1IsNull: Boolean; procedure SetTELEFONO_1IsNull(const aValue: Boolean); function GetTELEFONO_2Value: String; procedure SetTELEFONO_2Value(const aValue: String); function GetTELEFONO_2IsNull: Boolean; procedure SetTELEFONO_2IsNull(const aValue: Boolean); function GetMOVIL_1Value: String; procedure SetMOVIL_1Value(const aValue: String); function GetMOVIL_1IsNull: Boolean; procedure SetMOVIL_1IsNull(const aValue: Boolean); function GetMOVIL_2Value: String; procedure SetMOVIL_2Value(const aValue: String); function GetMOVIL_2IsNull: Boolean; procedure SetMOVIL_2IsNull(const aValue: Boolean); function GetFAXValue: String; procedure SetFAXValue(const aValue: String); function GetFAXIsNull: Boolean; procedure SetFAXIsNull(const aValue: Boolean); function GetEMAIL_1Value: String; procedure SetEMAIL_1Value(const aValue: String); function GetEMAIL_1IsNull: Boolean; procedure SetEMAIL_1IsNull(const aValue: Boolean); function GetEMAIL_2Value: String; procedure SetEMAIL_2Value(const aValue: String); function GetEMAIL_2IsNull: Boolean; procedure SetEMAIL_2IsNull(const aValue: Boolean); function GetPAGINA_WEBValue: String; procedure SetPAGINA_WEBValue(const aValue: String); function GetPAGINA_WEBIsNull: Boolean; procedure SetPAGINA_WEBIsNull(const aValue: Boolean); function GetNOTASValue: IROStrings; function GetNOTASIsNull: Boolean; procedure SetNOTASIsNull(const aValue: Boolean); function GetFECHA_ALTAValue: DateTime; procedure SetFECHA_ALTAValue(const aValue: DateTime); function GetFECHA_ALTAIsNull: Boolean; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); function GetFECHA_MODIFICACIONValue: DateTime; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); function GetFECHA_MODIFICACIONIsNull: Boolean; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); function GetUSUARIOValue: String; procedure SetUSUARIOValue(const aValue: String); function GetUSUARIOIsNull: Boolean; procedure SetUSUARIOIsNull(const aValue: Boolean); function GetID_EMPRESAValue: Integer; procedure SetID_EMPRESAValue(const aValue: Integer); function GetID_EMPRESAIsNull: Boolean; procedure SetID_EMPRESAIsNull(const aValue: Boolean); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); function GetREFERENCIAIsNull: Boolean; procedure SetREFERENCIAIsNull(const aValue: Boolean); { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue; property ID_CATEGORIAIsNull: Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property CALLE: String read GetCALLEValue write SetCALLEValue; property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; property PAIS: String read GetPAISValue write SetPAISValue; property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull; property IDIOMA_ISO: String read GetIDIOMA_ISOValue write SetIDIOMA_ISOValue; property IDIOMA_ISOIsNull: Boolean read GetIDIOMA_ISOIsNull write SetIDIOMA_ISOIsNull; property IDIOMA: String read GetIDIOMAValue write SetIDIOMAValue; property IDIOMAIsNull: Boolean read GetIDIOMAIsNull write SetIDIOMAIsNull; property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value; property TELEFONO_1IsNull: Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull; property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value; property TELEFONO_2IsNull: Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull; property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value; property MOVIL_1IsNull: Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull; property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value; property MOVIL_2IsNull: Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull; property FAX: String read GetFAXValue write SetFAXValue; property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull; property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value; property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull; property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value; property EMAIL_2IsNull: Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull; property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; property PAGINA_WEBIsNull: Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull; property NOTAS: IROStrings read GetNOTASValue; property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; end; { TContactosDataTableRules } TContactosDataTableRules = class(TIntfObjectDADataTableRules, IContactos) private f_NOTAS: IROStrings; procedure NOTAS_OnChange(Sender: TObject); protected { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetIDIsNull: Boolean; virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_CATEGORIAValue: Integer; virtual; procedure SetID_CATEGORIAValue(const aValue: Integer); virtual; function GetID_CATEGORIAIsNull: Boolean; virtual; procedure SetID_CATEGORIAIsNull(const aValue: Boolean); virtual; function GetNIF_CIFValue: String; virtual; procedure SetNIF_CIFValue(const aValue: String); virtual; function GetNIF_CIFIsNull: Boolean; virtual; procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual; function GetNOMBREValue: String; virtual; procedure SetNOMBREValue(const aValue: String); virtual; function GetNOMBREIsNull: Boolean; virtual; procedure SetNOMBREIsNull(const aValue: Boolean); virtual; function GetPERSONA_CONTACTOValue: String; virtual; procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; function GetPERSONA_CONTACTOIsNull: Boolean; virtual; procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual; function GetCALLEValue: String; virtual; procedure SetCALLEValue(const aValue: String); virtual; function GetCALLEIsNull: Boolean; virtual; procedure SetCALLEIsNull(const aValue: Boolean); virtual; function GetPOBLACIONValue: String; virtual; procedure SetPOBLACIONValue(const aValue: String); virtual; function GetPOBLACIONIsNull: Boolean; virtual; procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual; function GetPROVINCIAValue: String; virtual; procedure SetPROVINCIAValue(const aValue: String); virtual; function GetPROVINCIAIsNull: Boolean; virtual; procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual; function GetCODIGO_POSTALValue: String; virtual; procedure SetCODIGO_POSTALValue(const aValue: String); virtual; function GetCODIGO_POSTALIsNull: Boolean; virtual; procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; function GetPAISValue: String; virtual; procedure SetPAISValue(const aValue: String); virtual; function GetPAISIsNull: Boolean; virtual; procedure SetPAISIsNull(const aValue: Boolean); virtual; function GetIDIOMA_ISOValue: String; virtual; procedure SetIDIOMA_ISOValue(const aValue: String); virtual; function GetIDIOMA_ISOIsNull: Boolean; virtual; procedure SetIDIOMA_ISOIsNull(const aValue: Boolean); virtual; function GetIDIOMAValue: String; virtual; procedure SetIDIOMAValue(const aValue: String); virtual; function GetIDIOMAIsNull: Boolean; virtual; procedure SetIDIOMAIsNull(const aValue: Boolean); virtual; function GetTELEFONO_1Value: String; virtual; procedure SetTELEFONO_1Value(const aValue: String); virtual; function GetTELEFONO_1IsNull: Boolean; virtual; procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual; function GetTELEFONO_2Value: String; virtual; procedure SetTELEFONO_2Value(const aValue: String); virtual; function GetTELEFONO_2IsNull: Boolean; virtual; procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual; function GetMOVIL_1Value: String; virtual; procedure SetMOVIL_1Value(const aValue: String); virtual; function GetMOVIL_1IsNull: Boolean; virtual; procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual; function GetMOVIL_2Value: String; virtual; procedure SetMOVIL_2Value(const aValue: String); virtual; function GetMOVIL_2IsNull: Boolean; virtual; procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual; function GetFAXValue: String; virtual; procedure SetFAXValue(const aValue: String); virtual; function GetFAXIsNull: Boolean; virtual; procedure SetFAXIsNull(const aValue: Boolean); virtual; function GetEMAIL_1Value: String; virtual; procedure SetEMAIL_1Value(const aValue: String); virtual; function GetEMAIL_1IsNull: Boolean; virtual; procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual; function GetEMAIL_2Value: String; virtual; procedure SetEMAIL_2Value(const aValue: String); virtual; function GetEMAIL_2IsNull: Boolean; virtual; procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual; function GetPAGINA_WEBValue: String; virtual; procedure SetPAGINA_WEBValue(const aValue: String); virtual; function GetPAGINA_WEBIsNull: Boolean; virtual; procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual; function GetNOTASValue: IROStrings; virtual; function GetNOTASIsNull: Boolean; virtual; procedure SetNOTASIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; function GetFECHA_MODIFICACIONValue: DateTime; virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; function GetUSUARIOValue: String; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; function GetUSUARIOIsNull: Boolean; virtual; procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; function GetID_EMPRESAValue: Integer; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; function GetID_EMPRESAIsNull: Boolean; virtual; procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; function GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; function GetREFERENCIAIsNull: Boolean; virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue; property ID_CATEGORIAIsNull: Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property CALLE: String read GetCALLEValue write SetCALLEValue; property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; property PAIS: String read GetPAISValue write SetPAISValue; property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull; property IDIOMA_ISO: String read GetIDIOMA_ISOValue write SetIDIOMA_ISOValue; property IDIOMA_ISOIsNull: Boolean read GetIDIOMA_ISOIsNull write SetIDIOMA_ISOIsNull; property IDIOMA: String read GetIDIOMAValue write SetIDIOMAValue; property IDIOMAIsNull: Boolean read GetIDIOMAIsNull write SetIDIOMAIsNull; property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value; property TELEFONO_1IsNull: Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull; property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value; property TELEFONO_2IsNull: Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull; property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value; property MOVIL_1IsNull: Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull; property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value; property MOVIL_2IsNull: Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull; property FAX: String read GetFAXValue write SetFAXValue; property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull; property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value; property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull; property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value; property EMAIL_2IsNull: Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull; property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; property PAGINA_WEBIsNull: Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull; property NOTAS: IROStrings read GetNOTASValue; property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IGruposCliente } IGruposCliente = interface(IDAStronglyTypedDataTable) ['{8E89BE79-D1C1-4871-80B9-85DE21019331}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); function GetIDIsNull: Boolean; procedure SetIDIsNull(const aValue: Boolean); function GetDESCRIPCIONValue: String; procedure SetDESCRIPCIONValue(const aValue: String); function GetDESCRIPCIONIsNull: Boolean; procedure SetDESCRIPCIONIsNull(const aValue: Boolean); { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; end; { TGruposClienteDataTableRules } TGruposClienteDataTableRules = class(TIntfObjectDADataTableRules, IGruposCliente) private protected { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetIDIsNull: Boolean; virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetDESCRIPCIONValue: String; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; function GetDESCRIPCIONIsNull: Boolean; virtual; procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IDatosBancarios } IDatosBancarios = interface(IDAStronglyTypedDataTable) ['{F276FB43-05A7-4D7F-97D8-00CDDA501A80}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); function GetIDIsNull: Boolean; procedure SetIDIsNull(const aValue: Boolean); function GetID_CONTACTOValue: Integer; procedure SetID_CONTACTOValue(const aValue: Integer); function GetID_CONTACTOIsNull: Boolean; procedure SetID_CONTACTOIsNull(const aValue: Boolean); function GetTITULARValue: String; procedure SetTITULARValue(const aValue: String); function GetTITULARIsNull: Boolean; procedure SetTITULARIsNull(const aValue: Boolean); function GetENTIDADValue: String; procedure SetENTIDADValue(const aValue: String); function GetENTIDADIsNull: Boolean; procedure SetENTIDADIsNull(const aValue: Boolean); function GetSUCURSALValue: String; procedure SetSUCURSALValue(const aValue: String); function GetSUCURSALIsNull: Boolean; procedure SetSUCURSALIsNull(const aValue: Boolean); function GetDCValue: String; procedure SetDCValue(const aValue: String); function GetDCIsNull: Boolean; procedure SetDCIsNull(const aValue: Boolean); function GetCUENTAValue: String; procedure SetCUENTAValue(const aValue: String); function GetCUENTAIsNull: Boolean; procedure SetCUENTAIsNull(const aValue: Boolean); function GetFECHA_ALTAValue: DateTime; procedure SetFECHA_ALTAValue(const aValue: DateTime); function GetFECHA_ALTAIsNull: Boolean; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); function GetFECHA_MODIFICACIONValue: DateTime; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); function GetFECHA_MODIFICACIONIsNull: Boolean; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); function GetIBANValue: String; procedure SetIBANValue(const aValue: String); function GetIBANIsNull: Boolean; procedure SetIBANIsNull(const aValue: Boolean); function GetSWIFTValue: String; procedure SetSWIFTValue(const aValue: String); function GetSWIFTIsNull: Boolean; procedure SetSWIFTIsNull(const aValue: Boolean); { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue; property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull; property TITULAR: String read GetTITULARValue write SetTITULARValue; property TITULARIsNull: Boolean read GetTITULARIsNull write SetTITULARIsNull; property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue; property ENTIDADIsNull: Boolean read GetENTIDADIsNull write SetENTIDADIsNull; property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue; property SUCURSALIsNull: Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull; property DC: String read GetDCValue write SetDCValue; property DCIsNull: Boolean read GetDCIsNull write SetDCIsNull; property CUENTA: String read GetCUENTAValue write SetCUENTAValue; property CUENTAIsNull: Boolean read GetCUENTAIsNull write SetCUENTAIsNull; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property IBAN: String read GetIBANValue write SetIBANValue; property IBANIsNull: Boolean read GetIBANIsNull write SetIBANIsNull; property SWIFT: String read GetSWIFTValue write SetSWIFTValue; property SWIFTIsNull: Boolean read GetSWIFTIsNull write SetSWIFTIsNull; end; { TDatosBancariosDataTableRules } TDatosBancariosDataTableRules = class(TIntfObjectDADataTableRules, IDatosBancarios) private protected { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetIDIsNull: Boolean; virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_CONTACTOValue: Integer; virtual; procedure SetID_CONTACTOValue(const aValue: Integer); virtual; function GetID_CONTACTOIsNull: Boolean; virtual; procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual; function GetTITULARValue: String; virtual; procedure SetTITULARValue(const aValue: String); virtual; function GetTITULARIsNull: Boolean; virtual; procedure SetTITULARIsNull(const aValue: Boolean); virtual; function GetENTIDADValue: String; virtual; procedure SetENTIDADValue(const aValue: String); virtual; function GetENTIDADIsNull: Boolean; virtual; procedure SetENTIDADIsNull(const aValue: Boolean); virtual; function GetSUCURSALValue: String; virtual; procedure SetSUCURSALValue(const aValue: String); virtual; function GetSUCURSALIsNull: Boolean; virtual; procedure SetSUCURSALIsNull(const aValue: Boolean); virtual; function GetDCValue: String; virtual; procedure SetDCValue(const aValue: String); virtual; function GetDCIsNull: Boolean; virtual; procedure SetDCIsNull(const aValue: Boolean); virtual; function GetCUENTAValue: String; virtual; procedure SetCUENTAValue(const aValue: String); virtual; function GetCUENTAIsNull: Boolean; virtual; procedure SetCUENTAIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; function GetFECHA_MODIFICACIONValue: DateTime; virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; function GetIBANValue: String; virtual; procedure SetIBANValue(const aValue: String); virtual; function GetIBANIsNull: Boolean; virtual; procedure SetIBANIsNull(const aValue: Boolean); virtual; function GetSWIFTValue: String; virtual; procedure SetSWIFTValue(const aValue: String); virtual; function GetSWIFTIsNull: Boolean; virtual; procedure SetSWIFTIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue; property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull; property TITULAR: String read GetTITULARValue write SetTITULARValue; property TITULARIsNull: Boolean read GetTITULARIsNull write SetTITULARIsNull; property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue; property ENTIDADIsNull: Boolean read GetENTIDADIsNull write SetENTIDADIsNull; property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue; property SUCURSALIsNull: Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull; property DC: String read GetDCValue write SetDCValue; property DCIsNull: Boolean read GetDCIsNull write SetDCIsNull; property CUENTA: String read GetCUENTAValue write SetCUENTAValue; property CUENTAIsNull: Boolean read GetCUENTAIsNull write SetCUENTAIsNull; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property IBAN: String read GetIBANValue write SetIBANValue; property IBANIsNull: Boolean read GetIBANIsNull write SetIBANIsNull; property SWIFT: String read GetSWIFTValue write SetSWIFTValue; property SWIFTIsNull: Boolean read GetSWIFTIsNull write SetSWIFTIsNull; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IClientes } IClientes = interface(IDAStronglyTypedDataTable) ['{E6583AD1-933A-412F-AFB4-DD14E68E05E2}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); function GetIDIsNull: Boolean; procedure SetIDIsNull(const aValue: Boolean); function GetID_CATEGORIAValue: Integer; procedure SetID_CATEGORIAValue(const aValue: Integer); function GetID_CATEGORIAIsNull: Boolean; procedure SetID_CATEGORIAIsNull(const aValue: Boolean); function GetNIF_CIFValue: String; procedure SetNIF_CIFValue(const aValue: String); function GetNIF_CIFIsNull: Boolean; procedure SetNIF_CIFIsNull(const aValue: Boolean); function GetNOMBREValue: String; procedure SetNOMBREValue(const aValue: String); function GetNOMBREIsNull: Boolean; procedure SetNOMBREIsNull(const aValue: Boolean); function GetPERSONA_CONTACTOValue: String; procedure SetPERSONA_CONTACTOValue(const aValue: String); function GetPERSONA_CONTACTOIsNull: Boolean; procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); function GetCALLEValue: String; procedure SetCALLEValue(const aValue: String); function GetCALLEIsNull: Boolean; procedure SetCALLEIsNull(const aValue: Boolean); function GetPOBLACIONValue: String; procedure SetPOBLACIONValue(const aValue: String); function GetPOBLACIONIsNull: Boolean; procedure SetPOBLACIONIsNull(const aValue: Boolean); function GetPROVINCIAValue: String; procedure SetPROVINCIAValue(const aValue: String); function GetPROVINCIAIsNull: Boolean; procedure SetPROVINCIAIsNull(const aValue: Boolean); function GetCODIGO_POSTALValue: String; procedure SetCODIGO_POSTALValue(const aValue: String); function GetCODIGO_POSTALIsNull: Boolean; procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); function GetPAISValue: String; procedure SetPAISValue(const aValue: String); function GetPAISIsNull: Boolean; procedure SetPAISIsNull(const aValue: Boolean); function GetIDIOMA_ISOValue: String; procedure SetIDIOMA_ISOValue(const aValue: String); function GetIDIOMA_ISOIsNull: Boolean; procedure SetIDIOMA_ISOIsNull(const aValue: Boolean); function GetIDIOMAValue: String; procedure SetIDIOMAValue(const aValue: String); function GetIDIOMAIsNull: Boolean; procedure SetIDIOMAIsNull(const aValue: Boolean); function GetTELEFONO_1Value: String; procedure SetTELEFONO_1Value(const aValue: String); function GetTELEFONO_1IsNull: Boolean; procedure SetTELEFONO_1IsNull(const aValue: Boolean); function GetTELEFONO_2Value: String; procedure SetTELEFONO_2Value(const aValue: String); function GetTELEFONO_2IsNull: Boolean; procedure SetTELEFONO_2IsNull(const aValue: Boolean); function GetMOVIL_1Value: String; procedure SetMOVIL_1Value(const aValue: String); function GetMOVIL_1IsNull: Boolean; procedure SetMOVIL_1IsNull(const aValue: Boolean); function GetMOVIL_2Value: String; procedure SetMOVIL_2Value(const aValue: String); function GetMOVIL_2IsNull: Boolean; procedure SetMOVIL_2IsNull(const aValue: Boolean); function GetFAXValue: String; procedure SetFAXValue(const aValue: String); function GetFAXIsNull: Boolean; procedure SetFAXIsNull(const aValue: Boolean); function GetEMAIL_1Value: String; procedure SetEMAIL_1Value(const aValue: String); function GetEMAIL_1IsNull: Boolean; procedure SetEMAIL_1IsNull(const aValue: Boolean); function GetEMAIL_2Value: String; procedure SetEMAIL_2Value(const aValue: String); function GetEMAIL_2IsNull: Boolean; procedure SetEMAIL_2IsNull(const aValue: Boolean); function GetPAGINA_WEBValue: String; procedure SetPAGINA_WEBValue(const aValue: String); function GetPAGINA_WEBIsNull: Boolean; procedure SetPAGINA_WEBIsNull(const aValue: Boolean); function GetNOTASValue: IROStrings; function GetNOTASIsNull: Boolean; procedure SetNOTASIsNull(const aValue: Boolean); function GetFECHA_ALTAValue: DateTime; procedure SetFECHA_ALTAValue(const aValue: DateTime); function GetFECHA_ALTAIsNull: Boolean; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); function GetFECHA_MODIFICACIONValue: DateTime; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); function GetFECHA_MODIFICACIONIsNull: Boolean; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); function GetUSUARIOValue: String; procedure SetUSUARIOValue(const aValue: String); function GetUSUARIOIsNull: Boolean; procedure SetUSUARIOIsNull(const aValue: Boolean); function GetID_EMPRESAValue: Integer; procedure SetID_EMPRESAValue(const aValue: Integer); function GetID_EMPRESAIsNull: Boolean; procedure SetID_EMPRESAIsNull(const aValue: Boolean); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); function GetREFERENCIAIsNull: Boolean; procedure SetREFERENCIAIsNull(const aValue: Boolean); function GetID_AGENTEValue: Integer; procedure SetID_AGENTEValue(const aValue: Integer); function GetID_AGENTEIsNull: Boolean; procedure SetID_AGENTEIsNull(const aValue: Boolean); function GetGRUPO_CLIENTEValue: String; procedure SetGRUPO_CLIENTEValue(const aValue: String); function GetGRUPO_CLIENTEIsNull: Boolean; procedure SetGRUPO_CLIENTEIsNull(const aValue: Boolean); function GetNOMBRE_COMERCIALValue: String; procedure SetNOMBRE_COMERCIALValue(const aValue: String); function GetNOMBRE_COMERCIALIsNull: Boolean; procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); function GetVENCIMIENTO_FACTURAS_1Value: SmallInt; procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); function GetVENCIMIENTO_FACTURAS_2Value: SmallInt; procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); function GetVENCIMIENTO_FACTURAS_3Value: SmallInt; procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); function GetBLOQUEADOValue: SmallInt; procedure SetBLOQUEADOValue(const aValue: SmallInt); function GetBLOQUEADOIsNull: Boolean; procedure SetBLOQUEADOIsNull(const aValue: Boolean); function GetAGENTEValue: String; procedure SetAGENTEValue(const aValue: String); function GetAGENTEIsNull: Boolean; procedure SetAGENTEIsNull(const aValue: Boolean); function GetRAPELValue: SmallInt; procedure SetRAPELValue(const aValue: SmallInt); function GetRAPELIsNull: Boolean; procedure SetRAPELIsNull(const aValue: Boolean); function GetEMAIL_ADMINISTRACIONValue: String; procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); function GetEMAIL_ADMINISTRACIONIsNull: Boolean; procedure SetEMAIL_ADMINISTRACIONIsNull(const aValue: Boolean); function GetREGIMEN_IVAValue: String; procedure SetREGIMEN_IVAValue(const aValue: String); function GetREGIMEN_IVAIsNull: Boolean; procedure SetREGIMEN_IVAIsNull(const aValue: Boolean); function GetMOTIVO_BLOQUEOValue: String; procedure SetMOTIVO_BLOQUEOValue(const aValue: String); function GetMOTIVO_BLOQUEOIsNull: Boolean; procedure SetMOTIVO_BLOQUEOIsNull(const aValue: Boolean); function GetRECARGO_EQUIVALENCIAValue: Integer; procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); function GetRECARGO_EQUIVALENCIAIsNull: Boolean; procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); function GetID_TIPO_IVAValue: Integer; procedure SetID_TIPO_IVAValue(const aValue: Integer); function GetID_TIPO_IVAIsNull: Boolean; procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); function GetID_FORMA_PAGOValue: Integer; procedure SetID_FORMA_PAGOValue(const aValue: Integer); function GetID_FORMA_PAGOIsNull: Boolean; procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); function GetTIENDA_WEBValue: SmallInt; procedure SetTIENDA_WEBValue(const aValue: SmallInt); function GetTIENDA_WEBIsNull: Boolean; procedure SetTIENDA_WEBIsNull(const aValue: Boolean); function GetCODIGO_ASIGNADOValue: String; procedure SetCODIGO_ASIGNADOValue(const aValue: String); function GetCODIGO_ASIGNADOIsNull: Boolean; procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); function GetDESCUENTOValue: Float; procedure SetDESCUENTOValue(const aValue: Float); function GetDESCUENTOIsNull: Boolean; procedure SetDESCUENTOIsNull(const aValue: Boolean); function GetFELICITACIONValue: SmallInt; procedure SetFELICITACIONValue(const aValue: SmallInt); function GetFELICITACIONIsNull: Boolean; procedure SetFELICITACIONIsNull(const aValue: Boolean); function GetTIPO_CLIENTEValue: String; procedure SetTIPO_CLIENTEValue(const aValue: String); function GetTIPO_CLIENTEIsNull: Boolean; procedure SetTIPO_CLIENTEIsNull(const aValue: Boolean); function GetSEPAValue: SmallInt; procedure SetSEPAValue(const aValue: SmallInt); function GetSEPAIsNull: Boolean; procedure SetSEPAIsNull(const aValue: Boolean); function GetID_CENTRALValue: Integer; procedure SetID_CENTRALValue(const aValue: Integer); function GetID_CENTRALIsNull: Boolean; procedure SetID_CENTRALIsNull(const aValue: Boolean); { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue; property ID_CATEGORIAIsNull: Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property CALLE: String read GetCALLEValue write SetCALLEValue; property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; property PAIS: String read GetPAISValue write SetPAISValue; property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull; property IDIOMA_ISO: String read GetIDIOMA_ISOValue write SetIDIOMA_ISOValue; property IDIOMA_ISOIsNull: Boolean read GetIDIOMA_ISOIsNull write SetIDIOMA_ISOIsNull; property IDIOMA: String read GetIDIOMAValue write SetIDIOMAValue; property IDIOMAIsNull: Boolean read GetIDIOMAIsNull write SetIDIOMAIsNull; property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value; property TELEFONO_1IsNull: Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull; property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value; property TELEFONO_2IsNull: Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull; property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value; property MOVIL_1IsNull: Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull; property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value; property MOVIL_2IsNull: Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull; property FAX: String read GetFAXValue write SetFAXValue; property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull; property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value; property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull; property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value; property EMAIL_2IsNull: Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull; property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; property PAGINA_WEBIsNull: Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull; property NOTAS: IROStrings read GetNOTASValue; property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull; property VENCIMIENTO_FACTURAS_1: SmallInt read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; property VENCIMIENTO_FACTURAS_1IsNull: Boolean read GetVENCIMIENTO_FACTURAS_1IsNull write SetVENCIMIENTO_FACTURAS_1IsNull; property VENCIMIENTO_FACTURAS_2: SmallInt read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; property VENCIMIENTO_FACTURAS_2IsNull: Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull; property VENCIMIENTO_FACTURAS_3: SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull; property BLOQUEADO: SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue; property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull; property AGENTE: String read GetAGENTEValue write SetAGENTEValue; property AGENTEIsNull: Boolean read GetAGENTEIsNull write SetAGENTEIsNull; property RAPEL: SmallInt read GetRAPELValue write SetRAPELValue; property RAPELIsNull: Boolean read GetRAPELIsNull write SetRAPELIsNull; property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue; property EMAIL_ADMINISTRACIONIsNull: Boolean read GetEMAIL_ADMINISTRACIONIsNull write SetEMAIL_ADMINISTRACIONIsNull; property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; property REGIMEN_IVAIsNull: Boolean read GetREGIMEN_IVAIsNull write SetREGIMEN_IVAIsNull; property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue; property MOTIVO_BLOQUEOIsNull: Boolean read GetMOTIVO_BLOQUEOIsNull write SetMOTIVO_BLOQUEOIsNull; property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull; property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; property TIENDA_WEB: SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull; property CODIGO_ASIGNADO: String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue; property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property FELICITACION: SmallInt read GetFELICITACIONValue write SetFELICITACIONValue; property FELICITACIONIsNull: Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull; property TIPO_CLIENTE: String read GetTIPO_CLIENTEValue write SetTIPO_CLIENTEValue; property TIPO_CLIENTEIsNull: Boolean read GetTIPO_CLIENTEIsNull write SetTIPO_CLIENTEIsNull; property SEPA: SmallInt read GetSEPAValue write SetSEPAValue; property SEPAIsNull: Boolean read GetSEPAIsNull write SetSEPAIsNull; property ID_CENTRAL: Integer read GetID_CENTRALValue write SetID_CENTRALValue; property ID_CENTRALIsNull: Boolean read GetID_CENTRALIsNull write SetID_CENTRALIsNull; end; { TClientesDataTableRules } TClientesDataTableRules = class(TIntfObjectDADataTableRules, IClientes) private f_NOTAS: IROStrings; procedure NOTAS_OnChange(Sender: TObject); protected { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetIDIsNull: Boolean; virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_CATEGORIAValue: Integer; virtual; procedure SetID_CATEGORIAValue(const aValue: Integer); virtual; function GetID_CATEGORIAIsNull: Boolean; virtual; procedure SetID_CATEGORIAIsNull(const aValue: Boolean); virtual; function GetNIF_CIFValue: String; virtual; procedure SetNIF_CIFValue(const aValue: String); virtual; function GetNIF_CIFIsNull: Boolean; virtual; procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual; function GetNOMBREValue: String; virtual; procedure SetNOMBREValue(const aValue: String); virtual; function GetNOMBREIsNull: Boolean; virtual; procedure SetNOMBREIsNull(const aValue: Boolean); virtual; function GetPERSONA_CONTACTOValue: String; virtual; procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; function GetPERSONA_CONTACTOIsNull: Boolean; virtual; procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual; function GetCALLEValue: String; virtual; procedure SetCALLEValue(const aValue: String); virtual; function GetCALLEIsNull: Boolean; virtual; procedure SetCALLEIsNull(const aValue: Boolean); virtual; function GetPOBLACIONValue: String; virtual; procedure SetPOBLACIONValue(const aValue: String); virtual; function GetPOBLACIONIsNull: Boolean; virtual; procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual; function GetPROVINCIAValue: String; virtual; procedure SetPROVINCIAValue(const aValue: String); virtual; function GetPROVINCIAIsNull: Boolean; virtual; procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual; function GetCODIGO_POSTALValue: String; virtual; procedure SetCODIGO_POSTALValue(const aValue: String); virtual; function GetCODIGO_POSTALIsNull: Boolean; virtual; procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; function GetPAISValue: String; virtual; procedure SetPAISValue(const aValue: String); virtual; function GetPAISIsNull: Boolean; virtual; procedure SetPAISIsNull(const aValue: Boolean); virtual; function GetIDIOMA_ISOValue: String; virtual; procedure SetIDIOMA_ISOValue(const aValue: String); virtual; function GetIDIOMA_ISOIsNull: Boolean; virtual; procedure SetIDIOMA_ISOIsNull(const aValue: Boolean); virtual; function GetIDIOMAValue: String; virtual; procedure SetIDIOMAValue(const aValue: String); virtual; function GetIDIOMAIsNull: Boolean; virtual; procedure SetIDIOMAIsNull(const aValue: Boolean); virtual; function GetTELEFONO_1Value: String; virtual; procedure SetTELEFONO_1Value(const aValue: String); virtual; function GetTELEFONO_1IsNull: Boolean; virtual; procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual; function GetTELEFONO_2Value: String; virtual; procedure SetTELEFONO_2Value(const aValue: String); virtual; function GetTELEFONO_2IsNull: Boolean; virtual; procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual; function GetMOVIL_1Value: String; virtual; procedure SetMOVIL_1Value(const aValue: String); virtual; function GetMOVIL_1IsNull: Boolean; virtual; procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual; function GetMOVIL_2Value: String; virtual; procedure SetMOVIL_2Value(const aValue: String); virtual; function GetMOVIL_2IsNull: Boolean; virtual; procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual; function GetFAXValue: String; virtual; procedure SetFAXValue(const aValue: String); virtual; function GetFAXIsNull: Boolean; virtual; procedure SetFAXIsNull(const aValue: Boolean); virtual; function GetEMAIL_1Value: String; virtual; procedure SetEMAIL_1Value(const aValue: String); virtual; function GetEMAIL_1IsNull: Boolean; virtual; procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual; function GetEMAIL_2Value: String; virtual; procedure SetEMAIL_2Value(const aValue: String); virtual; function GetEMAIL_2IsNull: Boolean; virtual; procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual; function GetPAGINA_WEBValue: String; virtual; procedure SetPAGINA_WEBValue(const aValue: String); virtual; function GetPAGINA_WEBIsNull: Boolean; virtual; procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual; function GetNOTASValue: IROStrings; virtual; function GetNOTASIsNull: Boolean; virtual; procedure SetNOTASIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; function GetFECHA_MODIFICACIONValue: DateTime; virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; function GetUSUARIOValue: String; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; function GetUSUARIOIsNull: Boolean; virtual; procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; function GetID_EMPRESAValue: Integer; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; function GetID_EMPRESAIsNull: Boolean; virtual; procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; function GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; function GetREFERENCIAIsNull: Boolean; virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; function GetID_AGENTEValue: Integer; virtual; procedure SetID_AGENTEValue(const aValue: Integer); virtual; function GetID_AGENTEIsNull: Boolean; virtual; procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual; function GetGRUPO_CLIENTEValue: String; virtual; procedure SetGRUPO_CLIENTEValue(const aValue: String); virtual; function GetGRUPO_CLIENTEIsNull: Boolean; virtual; procedure SetGRUPO_CLIENTEIsNull(const aValue: Boolean); virtual; function GetNOMBRE_COMERCIALValue: String; virtual; procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual; function GetNOMBRE_COMERCIALIsNull: Boolean; virtual; procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual; function GetVENCIMIENTO_FACTURAS_1Value: SmallInt; virtual; procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); virtual; function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual; procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); virtual; function GetVENCIMIENTO_FACTURAS_2Value: SmallInt; virtual; procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); virtual; function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual; procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); virtual; function GetVENCIMIENTO_FACTURAS_3Value: SmallInt; virtual; procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); virtual; function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual; procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual; function GetBLOQUEADOValue: SmallInt; virtual; procedure SetBLOQUEADOValue(const aValue: SmallInt); virtual; function GetBLOQUEADOIsNull: Boolean; virtual; procedure SetBLOQUEADOIsNull(const aValue: Boolean); virtual; function GetAGENTEValue: String; virtual; procedure SetAGENTEValue(const aValue: String); virtual; function GetAGENTEIsNull: Boolean; virtual; procedure SetAGENTEIsNull(const aValue: Boolean); virtual; function GetRAPELValue: SmallInt; virtual; procedure SetRAPELValue(const aValue: SmallInt); virtual; function GetRAPELIsNull: Boolean; virtual; procedure SetRAPELIsNull(const aValue: Boolean); virtual; function GetEMAIL_ADMINISTRACIONValue: String; virtual; procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); virtual; function GetEMAIL_ADMINISTRACIONIsNull: Boolean; virtual; procedure SetEMAIL_ADMINISTRACIONIsNull(const aValue: Boolean); virtual; function GetREGIMEN_IVAValue: String; virtual; procedure SetREGIMEN_IVAValue(const aValue: String); virtual; function GetREGIMEN_IVAIsNull: Boolean; virtual; procedure SetREGIMEN_IVAIsNull(const aValue: Boolean); virtual; function GetMOTIVO_BLOQUEOValue: String; virtual; procedure SetMOTIVO_BLOQUEOValue(const aValue: String); virtual; function GetMOTIVO_BLOQUEOIsNull: Boolean; virtual; procedure SetMOTIVO_BLOQUEOIsNull(const aValue: Boolean); virtual; function GetRECARGO_EQUIVALENCIAValue: Integer; virtual; procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); virtual; function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual; procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual; function GetID_TIPO_IVAValue: Integer; virtual; procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual; function GetID_TIPO_IVAIsNull: Boolean; virtual; procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); virtual; function GetID_FORMA_PAGOValue: Integer; virtual; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; function GetID_FORMA_PAGOIsNull: Boolean; virtual; procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual; function GetTIENDA_WEBValue: SmallInt; virtual; procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual; function GetTIENDA_WEBIsNull: Boolean; virtual; procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual; function GetCODIGO_ASIGNADOValue: String; virtual; procedure SetCODIGO_ASIGNADOValue(const aValue: String); virtual; function GetCODIGO_ASIGNADOIsNull: Boolean; virtual; procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); virtual; function GetDESCUENTOValue: Float; virtual; procedure SetDESCUENTOValue(const aValue: Float); virtual; function GetDESCUENTOIsNull: Boolean; virtual; procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; function GetFELICITACIONValue: SmallInt; virtual; procedure SetFELICITACIONValue(const aValue: SmallInt); virtual; function GetFELICITACIONIsNull: Boolean; virtual; procedure SetFELICITACIONIsNull(const aValue: Boolean); virtual; function GetTIPO_CLIENTEValue: String; virtual; procedure SetTIPO_CLIENTEValue(const aValue: String); virtual; function GetTIPO_CLIENTEIsNull: Boolean; virtual; procedure SetTIPO_CLIENTEIsNull(const aValue: Boolean); virtual; function GetSEPAValue: SmallInt; virtual; procedure SetSEPAValue(const aValue: SmallInt); virtual; function GetSEPAIsNull: Boolean; virtual; procedure SetSEPAIsNull(const aValue: Boolean); virtual; function GetID_CENTRALValue: Integer; virtual; procedure SetID_CENTRALValue(const aValue: Integer); virtual; function GetID_CENTRALIsNull: Boolean; virtual; procedure SetID_CENTRALIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue; property ID_CATEGORIAIsNull: Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property CALLE: String read GetCALLEValue write SetCALLEValue; property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; property PAIS: String read GetPAISValue write SetPAISValue; property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull; property IDIOMA_ISO: String read GetIDIOMA_ISOValue write SetIDIOMA_ISOValue; property IDIOMA_ISOIsNull: Boolean read GetIDIOMA_ISOIsNull write SetIDIOMA_ISOIsNull; property IDIOMA: String read GetIDIOMAValue write SetIDIOMAValue; property IDIOMAIsNull: Boolean read GetIDIOMAIsNull write SetIDIOMAIsNull; property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value; property TELEFONO_1IsNull: Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull; property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value; property TELEFONO_2IsNull: Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull; property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value; property MOVIL_1IsNull: Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull; property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value; property MOVIL_2IsNull: Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull; property FAX: String read GetFAXValue write SetFAXValue; property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull; property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value; property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull; property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value; property EMAIL_2IsNull: Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull; property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; property PAGINA_WEBIsNull: Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull; property NOTAS: IROStrings read GetNOTASValue; property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull; property VENCIMIENTO_FACTURAS_1: SmallInt read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; property VENCIMIENTO_FACTURAS_1IsNull: Boolean read GetVENCIMIENTO_FACTURAS_1IsNull write SetVENCIMIENTO_FACTURAS_1IsNull; property VENCIMIENTO_FACTURAS_2: SmallInt read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; property VENCIMIENTO_FACTURAS_2IsNull: Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull; property VENCIMIENTO_FACTURAS_3: SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull; property BLOQUEADO: SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue; property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull; property AGENTE: String read GetAGENTEValue write SetAGENTEValue; property AGENTEIsNull: Boolean read GetAGENTEIsNull write SetAGENTEIsNull; property RAPEL: SmallInt read GetRAPELValue write SetRAPELValue; property RAPELIsNull: Boolean read GetRAPELIsNull write SetRAPELIsNull; property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue; property EMAIL_ADMINISTRACIONIsNull: Boolean read GetEMAIL_ADMINISTRACIONIsNull write SetEMAIL_ADMINISTRACIONIsNull; property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; property REGIMEN_IVAIsNull: Boolean read GetREGIMEN_IVAIsNull write SetREGIMEN_IVAIsNull; property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue; property MOTIVO_BLOQUEOIsNull: Boolean read GetMOTIVO_BLOQUEOIsNull write SetMOTIVO_BLOQUEOIsNull; property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull; property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; property TIENDA_WEB: SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull; property CODIGO_ASIGNADO: String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue; property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property FELICITACION: SmallInt read GetFELICITACIONValue write SetFELICITACIONValue; property FELICITACIONIsNull: Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull; property TIPO_CLIENTE: String read GetTIPO_CLIENTEValue write SetTIPO_CLIENTEValue; property TIPO_CLIENTEIsNull: Boolean read GetTIPO_CLIENTEIsNull write SetTIPO_CLIENTEIsNull; property SEPA: SmallInt read GetSEPAValue write SetSEPAValue; property SEPAIsNull: Boolean read GetSEPAIsNull write SetSEPAIsNull; property ID_CENTRAL: Integer read GetID_CENTRALValue write SetID_CENTRALValue; property ID_CENTRALIsNull: Boolean read GetID_CENTRALIsNull write SetID_CENTRALIsNull; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IProveedores } IProveedores = interface(IDAStronglyTypedDataTable) ['{A23D63A6-4C96-4840-8CAD-E607D8FE0C43}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); function GetIDIsNull: Boolean; procedure SetIDIsNull(const aValue: Boolean); function GetID_CATEGORIAValue: Integer; procedure SetID_CATEGORIAValue(const aValue: Integer); function GetID_CATEGORIAIsNull: Boolean; procedure SetID_CATEGORIAIsNull(const aValue: Boolean); function GetNIF_CIFValue: String; procedure SetNIF_CIFValue(const aValue: String); function GetNIF_CIFIsNull: Boolean; procedure SetNIF_CIFIsNull(const aValue: Boolean); function GetNOMBREValue: String; procedure SetNOMBREValue(const aValue: String); function GetNOMBREIsNull: Boolean; procedure SetNOMBREIsNull(const aValue: Boolean); function GetPERSONA_CONTACTOValue: String; procedure SetPERSONA_CONTACTOValue(const aValue: String); function GetPERSONA_CONTACTOIsNull: Boolean; procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); function GetCALLEValue: String; procedure SetCALLEValue(const aValue: String); function GetCALLEIsNull: Boolean; procedure SetCALLEIsNull(const aValue: Boolean); function GetPOBLACIONValue: String; procedure SetPOBLACIONValue(const aValue: String); function GetPOBLACIONIsNull: Boolean; procedure SetPOBLACIONIsNull(const aValue: Boolean); function GetPROVINCIAValue: String; procedure SetPROVINCIAValue(const aValue: String); function GetPROVINCIAIsNull: Boolean; procedure SetPROVINCIAIsNull(const aValue: Boolean); function GetCODIGO_POSTALValue: String; procedure SetCODIGO_POSTALValue(const aValue: String); function GetCODIGO_POSTALIsNull: Boolean; procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); function GetPAISValue: String; procedure SetPAISValue(const aValue: String); function GetPAISIsNull: Boolean; procedure SetPAISIsNull(const aValue: Boolean); function GetIDIOMA_ISOValue: String; procedure SetIDIOMA_ISOValue(const aValue: String); function GetIDIOMA_ISOIsNull: Boolean; procedure SetIDIOMA_ISOIsNull(const aValue: Boolean); function GetIDIOMAValue: String; procedure SetIDIOMAValue(const aValue: String); function GetIDIOMAIsNull: Boolean; procedure SetIDIOMAIsNull(const aValue: Boolean); function GetTELEFONO_1Value: String; procedure SetTELEFONO_1Value(const aValue: String); function GetTELEFONO_1IsNull: Boolean; procedure SetTELEFONO_1IsNull(const aValue: Boolean); function GetTELEFONO_2Value: String; procedure SetTELEFONO_2Value(const aValue: String); function GetTELEFONO_2IsNull: Boolean; procedure SetTELEFONO_2IsNull(const aValue: Boolean); function GetMOVIL_1Value: String; procedure SetMOVIL_1Value(const aValue: String); function GetMOVIL_1IsNull: Boolean; procedure SetMOVIL_1IsNull(const aValue: Boolean); function GetMOVIL_2Value: String; procedure SetMOVIL_2Value(const aValue: String); function GetMOVIL_2IsNull: Boolean; procedure SetMOVIL_2IsNull(const aValue: Boolean); function GetFAXValue: String; procedure SetFAXValue(const aValue: String); function GetFAXIsNull: Boolean; procedure SetFAXIsNull(const aValue: Boolean); function GetEMAIL_1Value: String; procedure SetEMAIL_1Value(const aValue: String); function GetEMAIL_1IsNull: Boolean; procedure SetEMAIL_1IsNull(const aValue: Boolean); function GetEMAIL_2Value: String; procedure SetEMAIL_2Value(const aValue: String); function GetEMAIL_2IsNull: Boolean; procedure SetEMAIL_2IsNull(const aValue: Boolean); function GetPAGINA_WEBValue: String; procedure SetPAGINA_WEBValue(const aValue: String); function GetPAGINA_WEBIsNull: Boolean; procedure SetPAGINA_WEBIsNull(const aValue: Boolean); function GetNOTASValue: IROStrings; function GetNOTASIsNull: Boolean; procedure SetNOTASIsNull(const aValue: Boolean); function GetFECHA_ALTAValue: DateTime; procedure SetFECHA_ALTAValue(const aValue: DateTime); function GetFECHA_ALTAIsNull: Boolean; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); function GetFECHA_MODIFICACIONValue: DateTime; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); function GetFECHA_MODIFICACIONIsNull: Boolean; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); function GetUSUARIOValue: String; procedure SetUSUARIOValue(const aValue: String); function GetUSUARIOIsNull: Boolean; procedure SetUSUARIOIsNull(const aValue: Boolean); function GetID_EMPRESAValue: Integer; procedure SetID_EMPRESAValue(const aValue: Integer); function GetID_EMPRESAIsNull: Boolean; procedure SetID_EMPRESAIsNull(const aValue: Boolean); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); function GetREFERENCIAIsNull: Boolean; procedure SetREFERENCIAIsNull(const aValue: Boolean); function GetDESCUENTOValue: Float; procedure SetDESCUENTOValue(const aValue: Float); function GetDESCUENTOIsNull: Boolean; procedure SetDESCUENTOIsNull(const aValue: Boolean); function GetDESCRIPCION_PROVEEDORValue: String; procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); function GetDESCRIPCION_PROVEEDORIsNull: Boolean; procedure SetDESCRIPCION_PROVEEDORIsNull(const aValue: Boolean); function GetCODIGO_ASIGNADOValue: String; procedure SetCODIGO_ASIGNADOValue(const aValue: String); function GetCODIGO_ASIGNADOIsNull: Boolean; procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); function GetGRUPO_PROVEEDORValue: String; procedure SetGRUPO_PROVEEDORValue(const aValue: String); function GetGRUPO_PROVEEDORIsNull: Boolean; procedure SetGRUPO_PROVEEDORIsNull(const aValue: Boolean); function GetREGIMEN_IVAValue: String; procedure SetREGIMEN_IVAValue(const aValue: String); function GetREGIMEN_IVAIsNull: Boolean; procedure SetREGIMEN_IVAIsNull(const aValue: Boolean); function GetID_TIPO_IVAValue: Integer; procedure SetID_TIPO_IVAValue(const aValue: Integer); function GetID_TIPO_IVAIsNull: Boolean; procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); function GetID_FORMA_PAGOValue: Integer; procedure SetID_FORMA_PAGOValue(const aValue: Integer); function GetID_FORMA_PAGOIsNull: Boolean; procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); function GetTIENDA_WEBValue: SmallInt; procedure SetTIENDA_WEBValue(const aValue: SmallInt); function GetTIENDA_WEBIsNull: Boolean; procedure SetTIENDA_WEBIsNull(const aValue: Boolean); function GetHOMOLOGADOValue: SmallInt; procedure SetHOMOLOGADOValue(const aValue: SmallInt); function GetHOMOLOGADOIsNull: Boolean; procedure SetHOMOLOGADOIsNull(const aValue: Boolean); function GetCERTIFICACIONValue: String; procedure SetCERTIFICACIONValue(const aValue: String); function GetCERTIFICACIONIsNull: Boolean; procedure SetCERTIFICACIONIsNull(const aValue: Boolean); function GetSUBCONTRATAValue: SmallInt; procedure SetSUBCONTRATAValue(const aValue: SmallInt); function GetSUBCONTRATAIsNull: Boolean; procedure SetSUBCONTRATAIsNull(const aValue: Boolean); function GetEMAIL_ADMINISTRACIONValue: String; procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); function GetEMAIL_ADMINISTRACIONIsNull: Boolean; procedure SetEMAIL_ADMINISTRACIONIsNull(const aValue: Boolean); function GetVENCIMIENTO_FACTURAS_1Value: SmallInt; procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); function GetVENCIMIENTO_FACTURAS_2Value: SmallInt; procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); function GetVENCIMIENTO_FACTURAS_3Value: SmallInt; procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue; property ID_CATEGORIAIsNull: Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property CALLE: String read GetCALLEValue write SetCALLEValue; property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; property PAIS: String read GetPAISValue write SetPAISValue; property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull; property IDIOMA_ISO: String read GetIDIOMA_ISOValue write SetIDIOMA_ISOValue; property IDIOMA_ISOIsNull: Boolean read GetIDIOMA_ISOIsNull write SetIDIOMA_ISOIsNull; property IDIOMA: String read GetIDIOMAValue write SetIDIOMAValue; property IDIOMAIsNull: Boolean read GetIDIOMAIsNull write SetIDIOMAIsNull; property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value; property TELEFONO_1IsNull: Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull; property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value; property TELEFONO_2IsNull: Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull; property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value; property MOVIL_1IsNull: Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull; property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value; property MOVIL_2IsNull: Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull; property FAX: String read GetFAXValue write SetFAXValue; property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull; property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value; property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull; property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value; property EMAIL_2IsNull: Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull; property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; property PAGINA_WEBIsNull: Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull; property NOTAS: IROStrings read GetNOTASValue; property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property DESCRIPCION_PROVEEDOR: String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue; property DESCRIPCION_PROVEEDORIsNull: Boolean read GetDESCRIPCION_PROVEEDORIsNull write SetDESCRIPCION_PROVEEDORIsNull; property CODIGO_ASIGNADO: String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue; property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull; property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue; property GRUPO_PROVEEDORIsNull: Boolean read GetGRUPO_PROVEEDORIsNull write SetGRUPO_PROVEEDORIsNull; property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; property REGIMEN_IVAIsNull: Boolean read GetREGIMEN_IVAIsNull write SetREGIMEN_IVAIsNull; property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; property TIENDA_WEB: SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull; property HOMOLOGADO: SmallInt read GetHOMOLOGADOValue write SetHOMOLOGADOValue; property HOMOLOGADOIsNull: Boolean read GetHOMOLOGADOIsNull write SetHOMOLOGADOIsNull; property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue; property CERTIFICACIONIsNull: Boolean read GetCERTIFICACIONIsNull write SetCERTIFICACIONIsNull; property SUBCONTRATA: SmallInt read GetSUBCONTRATAValue write SetSUBCONTRATAValue; property SUBCONTRATAIsNull: Boolean read GetSUBCONTRATAIsNull write SetSUBCONTRATAIsNull; property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue; property EMAIL_ADMINISTRACIONIsNull: Boolean read GetEMAIL_ADMINISTRACIONIsNull write SetEMAIL_ADMINISTRACIONIsNull; property VENCIMIENTO_FACTURAS_1: SmallInt read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; property VENCIMIENTO_FACTURAS_1IsNull: Boolean read GetVENCIMIENTO_FACTURAS_1IsNull write SetVENCIMIENTO_FACTURAS_1IsNull; property VENCIMIENTO_FACTURAS_2: SmallInt read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; property VENCIMIENTO_FACTURAS_2IsNull: Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull; property VENCIMIENTO_FACTURAS_3: SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull; end; { TProveedoresDataTableRules } TProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IProveedores) private f_NOTAS: IROStrings; procedure NOTAS_OnChange(Sender: TObject); protected { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetIDIsNull: Boolean; virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_CATEGORIAValue: Integer; virtual; procedure SetID_CATEGORIAValue(const aValue: Integer); virtual; function GetID_CATEGORIAIsNull: Boolean; virtual; procedure SetID_CATEGORIAIsNull(const aValue: Boolean); virtual; function GetNIF_CIFValue: String; virtual; procedure SetNIF_CIFValue(const aValue: String); virtual; function GetNIF_CIFIsNull: Boolean; virtual; procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual; function GetNOMBREValue: String; virtual; procedure SetNOMBREValue(const aValue: String); virtual; function GetNOMBREIsNull: Boolean; virtual; procedure SetNOMBREIsNull(const aValue: Boolean); virtual; function GetPERSONA_CONTACTOValue: String; virtual; procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; function GetPERSONA_CONTACTOIsNull: Boolean; virtual; procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual; function GetCALLEValue: String; virtual; procedure SetCALLEValue(const aValue: String); virtual; function GetCALLEIsNull: Boolean; virtual; procedure SetCALLEIsNull(const aValue: Boolean); virtual; function GetPOBLACIONValue: String; virtual; procedure SetPOBLACIONValue(const aValue: String); virtual; function GetPOBLACIONIsNull: Boolean; virtual; procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual; function GetPROVINCIAValue: String; virtual; procedure SetPROVINCIAValue(const aValue: String); virtual; function GetPROVINCIAIsNull: Boolean; virtual; procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual; function GetCODIGO_POSTALValue: String; virtual; procedure SetCODIGO_POSTALValue(const aValue: String); virtual; function GetCODIGO_POSTALIsNull: Boolean; virtual; procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; function GetPAISValue: String; virtual; procedure SetPAISValue(const aValue: String); virtual; function GetPAISIsNull: Boolean; virtual; procedure SetPAISIsNull(const aValue: Boolean); virtual; function GetIDIOMA_ISOValue: String; virtual; procedure SetIDIOMA_ISOValue(const aValue: String); virtual; function GetIDIOMA_ISOIsNull: Boolean; virtual; procedure SetIDIOMA_ISOIsNull(const aValue: Boolean); virtual; function GetIDIOMAValue: String; virtual; procedure SetIDIOMAValue(const aValue: String); virtual; function GetIDIOMAIsNull: Boolean; virtual; procedure SetIDIOMAIsNull(const aValue: Boolean); virtual; function GetTELEFONO_1Value: String; virtual; procedure SetTELEFONO_1Value(const aValue: String); virtual; function GetTELEFONO_1IsNull: Boolean; virtual; procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual; function GetTELEFONO_2Value: String; virtual; procedure SetTELEFONO_2Value(const aValue: String); virtual; function GetTELEFONO_2IsNull: Boolean; virtual; procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual; function GetMOVIL_1Value: String; virtual; procedure SetMOVIL_1Value(const aValue: String); virtual; function GetMOVIL_1IsNull: Boolean; virtual; procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual; function GetMOVIL_2Value: String; virtual; procedure SetMOVIL_2Value(const aValue: String); virtual; function GetMOVIL_2IsNull: Boolean; virtual; procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual; function GetFAXValue: String; virtual; procedure SetFAXValue(const aValue: String); virtual; function GetFAXIsNull: Boolean; virtual; procedure SetFAXIsNull(const aValue: Boolean); virtual; function GetEMAIL_1Value: String; virtual; procedure SetEMAIL_1Value(const aValue: String); virtual; function GetEMAIL_1IsNull: Boolean; virtual; procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual; function GetEMAIL_2Value: String; virtual; procedure SetEMAIL_2Value(const aValue: String); virtual; function GetEMAIL_2IsNull: Boolean; virtual; procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual; function GetPAGINA_WEBValue: String; virtual; procedure SetPAGINA_WEBValue(const aValue: String); virtual; function GetPAGINA_WEBIsNull: Boolean; virtual; procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual; function GetNOTASValue: IROStrings; virtual; function GetNOTASIsNull: Boolean; virtual; procedure SetNOTASIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; function GetFECHA_MODIFICACIONValue: DateTime; virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; function GetUSUARIOValue: String; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; function GetUSUARIOIsNull: Boolean; virtual; procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; function GetID_EMPRESAValue: Integer; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; function GetID_EMPRESAIsNull: Boolean; virtual; procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; function GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; function GetREFERENCIAIsNull: Boolean; virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; function GetDESCUENTOValue: Float; virtual; procedure SetDESCUENTOValue(const aValue: Float); virtual; function GetDESCUENTOIsNull: Boolean; virtual; procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; function GetDESCRIPCION_PROVEEDORValue: String; virtual; procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); virtual; function GetDESCRIPCION_PROVEEDORIsNull: Boolean; virtual; procedure SetDESCRIPCION_PROVEEDORIsNull(const aValue: Boolean); virtual; function GetCODIGO_ASIGNADOValue: String; virtual; procedure SetCODIGO_ASIGNADOValue(const aValue: String); virtual; function GetCODIGO_ASIGNADOIsNull: Boolean; virtual; procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); virtual; function GetGRUPO_PROVEEDORValue: String; virtual; procedure SetGRUPO_PROVEEDORValue(const aValue: String); virtual; function GetGRUPO_PROVEEDORIsNull: Boolean; virtual; procedure SetGRUPO_PROVEEDORIsNull(const aValue: Boolean); virtual; function GetREGIMEN_IVAValue: String; virtual; procedure SetREGIMEN_IVAValue(const aValue: String); virtual; function GetREGIMEN_IVAIsNull: Boolean; virtual; procedure SetREGIMEN_IVAIsNull(const aValue: Boolean); virtual; function GetID_TIPO_IVAValue: Integer; virtual; procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual; function GetID_TIPO_IVAIsNull: Boolean; virtual; procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); virtual; function GetID_FORMA_PAGOValue: Integer; virtual; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; function GetID_FORMA_PAGOIsNull: Boolean; virtual; procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual; function GetTIENDA_WEBValue: SmallInt; virtual; procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual; function GetTIENDA_WEBIsNull: Boolean; virtual; procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual; function GetHOMOLOGADOValue: SmallInt; virtual; procedure SetHOMOLOGADOValue(const aValue: SmallInt); virtual; function GetHOMOLOGADOIsNull: Boolean; virtual; procedure SetHOMOLOGADOIsNull(const aValue: Boolean); virtual; function GetCERTIFICACIONValue: String; virtual; procedure SetCERTIFICACIONValue(const aValue: String); virtual; function GetCERTIFICACIONIsNull: Boolean; virtual; procedure SetCERTIFICACIONIsNull(const aValue: Boolean); virtual; function GetSUBCONTRATAValue: SmallInt; virtual; procedure SetSUBCONTRATAValue(const aValue: SmallInt); virtual; function GetSUBCONTRATAIsNull: Boolean; virtual; procedure SetSUBCONTRATAIsNull(const aValue: Boolean); virtual; function GetEMAIL_ADMINISTRACIONValue: String; virtual; procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); virtual; function GetEMAIL_ADMINISTRACIONIsNull: Boolean; virtual; procedure SetEMAIL_ADMINISTRACIONIsNull(const aValue: Boolean); virtual; function GetVENCIMIENTO_FACTURAS_1Value: SmallInt; virtual; procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); virtual; function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual; procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); virtual; function GetVENCIMIENTO_FACTURAS_2Value: SmallInt; virtual; procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); virtual; function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual; procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); virtual; function GetVENCIMIENTO_FACTURAS_3Value: SmallInt; virtual; procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); virtual; function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual; procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue; property ID_CATEGORIAIsNull: Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property CALLE: String read GetCALLEValue write SetCALLEValue; property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; property PAIS: String read GetPAISValue write SetPAISValue; property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull; property IDIOMA_ISO: String read GetIDIOMA_ISOValue write SetIDIOMA_ISOValue; property IDIOMA_ISOIsNull: Boolean read GetIDIOMA_ISOIsNull write SetIDIOMA_ISOIsNull; property IDIOMA: String read GetIDIOMAValue write SetIDIOMAValue; property IDIOMAIsNull: Boolean read GetIDIOMAIsNull write SetIDIOMAIsNull; property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value; property TELEFONO_1IsNull: Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull; property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value; property TELEFONO_2IsNull: Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull; property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value; property MOVIL_1IsNull: Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull; property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value; property MOVIL_2IsNull: Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull; property FAX: String read GetFAXValue write SetFAXValue; property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull; property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value; property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull; property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value; property EMAIL_2IsNull: Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull; property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; property PAGINA_WEBIsNull: Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull; property NOTAS: IROStrings read GetNOTASValue; property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property DESCRIPCION_PROVEEDOR: String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue; property DESCRIPCION_PROVEEDORIsNull: Boolean read GetDESCRIPCION_PROVEEDORIsNull write SetDESCRIPCION_PROVEEDORIsNull; property CODIGO_ASIGNADO: String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue; property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull; property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue; property GRUPO_PROVEEDORIsNull: Boolean read GetGRUPO_PROVEEDORIsNull write SetGRUPO_PROVEEDORIsNull; property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; property REGIMEN_IVAIsNull: Boolean read GetREGIMEN_IVAIsNull write SetREGIMEN_IVAIsNull; property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; property TIENDA_WEB: SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull; property HOMOLOGADO: SmallInt read GetHOMOLOGADOValue write SetHOMOLOGADOValue; property HOMOLOGADOIsNull: Boolean read GetHOMOLOGADOIsNull write SetHOMOLOGADOIsNull; property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue; property CERTIFICACIONIsNull: Boolean read GetCERTIFICACIONIsNull write SetCERTIFICACIONIsNull; property SUBCONTRATA: SmallInt read GetSUBCONTRATAValue write SetSUBCONTRATAValue; property SUBCONTRATAIsNull: Boolean read GetSUBCONTRATAIsNull write SetSUBCONTRATAIsNull; property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue; property EMAIL_ADMINISTRACIONIsNull: Boolean read GetEMAIL_ADMINISTRACIONIsNull write SetEMAIL_ADMINISTRACIONIsNull; property VENCIMIENTO_FACTURAS_1: SmallInt read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; property VENCIMIENTO_FACTURAS_1IsNull: Boolean read GetVENCIMIENTO_FACTURAS_1IsNull write SetVENCIMIENTO_FACTURAS_1IsNull; property VENCIMIENTO_FACTURAS_2: SmallInt read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; property VENCIMIENTO_FACTURAS_2IsNull: Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull; property VENCIMIENTO_FACTURAS_3: SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IEmpleados } IEmpleados = interface(IDAStronglyTypedDataTable) ['{AB3D87CC-6EFD-4717-BED8-4976BC0EDB8A}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); function GetIDIsNull: Boolean; procedure SetIDIsNull(const aValue: Boolean); function GetID_CATEGORIAValue: Integer; procedure SetID_CATEGORIAValue(const aValue: Integer); function GetID_CATEGORIAIsNull: Boolean; procedure SetID_CATEGORIAIsNull(const aValue: Boolean); function GetNIF_CIFValue: String; procedure SetNIF_CIFValue(const aValue: String); function GetNIF_CIFIsNull: Boolean; procedure SetNIF_CIFIsNull(const aValue: Boolean); function GetNOMBREValue: String; procedure SetNOMBREValue(const aValue: String); function GetNOMBREIsNull: Boolean; procedure SetNOMBREIsNull(const aValue: Boolean); function GetPERSONA_CONTACTOValue: String; procedure SetPERSONA_CONTACTOValue(const aValue: String); function GetPERSONA_CONTACTOIsNull: Boolean; procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); function GetCALLEValue: String; procedure SetCALLEValue(const aValue: String); function GetCALLEIsNull: Boolean; procedure SetCALLEIsNull(const aValue: Boolean); function GetPOBLACIONValue: String; procedure SetPOBLACIONValue(const aValue: String); function GetPOBLACIONIsNull: Boolean; procedure SetPOBLACIONIsNull(const aValue: Boolean); function GetPROVINCIAValue: String; procedure SetPROVINCIAValue(const aValue: String); function GetPROVINCIAIsNull: Boolean; procedure SetPROVINCIAIsNull(const aValue: Boolean); function GetCODIGO_POSTALValue: String; procedure SetCODIGO_POSTALValue(const aValue: String); function GetCODIGO_POSTALIsNull: Boolean; procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); function GetPAISValue: String; procedure SetPAISValue(const aValue: String); function GetPAISIsNull: Boolean; procedure SetPAISIsNull(const aValue: Boolean); function GetIDIOMA_ISOValue: String; procedure SetIDIOMA_ISOValue(const aValue: String); function GetIDIOMA_ISOIsNull: Boolean; procedure SetIDIOMA_ISOIsNull(const aValue: Boolean); function GetIDIOMAValue: String; procedure SetIDIOMAValue(const aValue: String); function GetIDIOMAIsNull: Boolean; procedure SetIDIOMAIsNull(const aValue: Boolean); function GetTELEFONO_1Value: String; procedure SetTELEFONO_1Value(const aValue: String); function GetTELEFONO_1IsNull: Boolean; procedure SetTELEFONO_1IsNull(const aValue: Boolean); function GetTELEFONO_2Value: String; procedure SetTELEFONO_2Value(const aValue: String); function GetTELEFONO_2IsNull: Boolean; procedure SetTELEFONO_2IsNull(const aValue: Boolean); function GetMOVIL_1Value: String; procedure SetMOVIL_1Value(const aValue: String); function GetMOVIL_1IsNull: Boolean; procedure SetMOVIL_1IsNull(const aValue: Boolean); function GetMOVIL_2Value: String; procedure SetMOVIL_2Value(const aValue: String); function GetMOVIL_2IsNull: Boolean; procedure SetMOVIL_2IsNull(const aValue: Boolean); function GetFAXValue: String; procedure SetFAXValue(const aValue: String); function GetFAXIsNull: Boolean; procedure SetFAXIsNull(const aValue: Boolean); function GetEMAIL_1Value: String; procedure SetEMAIL_1Value(const aValue: String); function GetEMAIL_1IsNull: Boolean; procedure SetEMAIL_1IsNull(const aValue: Boolean); function GetEMAIL_2Value: String; procedure SetEMAIL_2Value(const aValue: String); function GetEMAIL_2IsNull: Boolean; procedure SetEMAIL_2IsNull(const aValue: Boolean); function GetPAGINA_WEBValue: String; procedure SetPAGINA_WEBValue(const aValue: String); function GetPAGINA_WEBIsNull: Boolean; procedure SetPAGINA_WEBIsNull(const aValue: Boolean); function GetNOTASValue: IROStrings; function GetNOTASIsNull: Boolean; procedure SetNOTASIsNull(const aValue: Boolean); function GetFECHA_ALTAValue: DateTime; procedure SetFECHA_ALTAValue(const aValue: DateTime); function GetFECHA_ALTAIsNull: Boolean; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); function GetFECHA_MODIFICACIONValue: DateTime; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); function GetFECHA_MODIFICACIONIsNull: Boolean; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); function GetUSUARIOValue: String; procedure SetUSUARIOValue(const aValue: String); function GetUSUARIOIsNull: Boolean; procedure SetUSUARIOIsNull(const aValue: Boolean); function GetID_EMPRESAValue: Integer; procedure SetID_EMPRESAValue(const aValue: Integer); function GetID_EMPRESAIsNull: Boolean; procedure SetID_EMPRESAIsNull(const aValue: Boolean); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); function GetREFERENCIAIsNull: Boolean; procedure SetREFERENCIAIsNull(const aValue: Boolean); function GetFECHA_NACIMIENTOValue: DateTime; procedure SetFECHA_NACIMIENTOValue(const aValue: DateTime); function GetFECHA_NACIMIENTOIsNull: Boolean; procedure SetFECHA_NACIMIENTOIsNull(const aValue: Boolean); function GetCATEGORIAValue: String; procedure SetCATEGORIAValue(const aValue: String); function GetCATEGORIAIsNull: Boolean; procedure SetCATEGORIAIsNull(const aValue: Boolean); function GetFECHA_ALTA_EMPRESAValue: DateTime; procedure SetFECHA_ALTA_EMPRESAValue(const aValue: DateTime); function GetFECHA_ALTA_EMPRESAIsNull: Boolean; procedure SetFECHA_ALTA_EMPRESAIsNull(const aValue: Boolean); function GetFORMACION_BASEValue: IROStrings; function GetFORMACION_BASEIsNull: Boolean; procedure SetFORMACION_BASEIsNull(const aValue: Boolean); function GetFORMACION_COMPLEValue: IROStrings; function GetFORMACION_COMPLEIsNull: Boolean; procedure SetFORMACION_COMPLEIsNull(const aValue: Boolean); function GetFORMACION_RECIBIDAValue: IROStrings; function GetFORMACION_RECIBIDAIsNull: Boolean; procedure SetFORMACION_RECIBIDAIsNull(const aValue: Boolean); function GetEXPERIENCIAValue: IROStrings; function GetEXPERIENCIAIsNull: Boolean; procedure SetEXPERIENCIAIsNull(const aValue: Boolean); function GetCONTRATOValue: String; procedure SetCONTRATOValue(const aValue: String); function GetCONTRATOIsNull: Boolean; procedure SetCONTRATOIsNull(const aValue: Boolean); function GetDURACIONValue: String; procedure SetDURACIONValue(const aValue: String); function GetDURACIONIsNull: Boolean; procedure SetDURACIONIsNull(const aValue: Boolean); function GetFECHA_BAJAValue: DateTime; procedure SetFECHA_BAJAValue(const aValue: DateTime); function GetFECHA_BAJAIsNull: Boolean; procedure SetFECHA_BAJAIsNull(const aValue: Boolean); function GetCAUSA_BAJAValue: String; procedure SetCAUSA_BAJAValue(const aValue: String); function GetCAUSA_BAJAIsNull: Boolean; procedure SetCAUSA_BAJAIsNull(const aValue: Boolean); { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue; property ID_CATEGORIAIsNull: Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property CALLE: String read GetCALLEValue write SetCALLEValue; property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; property PAIS: String read GetPAISValue write SetPAISValue; property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull; property IDIOMA_ISO: String read GetIDIOMA_ISOValue write SetIDIOMA_ISOValue; property IDIOMA_ISOIsNull: Boolean read GetIDIOMA_ISOIsNull write SetIDIOMA_ISOIsNull; property IDIOMA: String read GetIDIOMAValue write SetIDIOMAValue; property IDIOMAIsNull: Boolean read GetIDIOMAIsNull write SetIDIOMAIsNull; property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value; property TELEFONO_1IsNull: Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull; property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value; property TELEFONO_2IsNull: Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull; property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value; property MOVIL_1IsNull: Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull; property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value; property MOVIL_2IsNull: Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull; property FAX: String read GetFAXValue write SetFAXValue; property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull; property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value; property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull; property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value; property EMAIL_2IsNull: Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull; property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; property PAGINA_WEBIsNull: Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull; property NOTAS: IROStrings read GetNOTASValue; property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property FECHA_NACIMIENTO: DateTime read GetFECHA_NACIMIENTOValue write SetFECHA_NACIMIENTOValue; property FECHA_NACIMIENTOIsNull: Boolean read GetFECHA_NACIMIENTOIsNull write SetFECHA_NACIMIENTOIsNull; property CATEGORIA: String read GetCATEGORIAValue write SetCATEGORIAValue; property CATEGORIAIsNull: Boolean read GetCATEGORIAIsNull write SetCATEGORIAIsNull; property FECHA_ALTA_EMPRESA: DateTime read GetFECHA_ALTA_EMPRESAValue write SetFECHA_ALTA_EMPRESAValue; property FECHA_ALTA_EMPRESAIsNull: Boolean read GetFECHA_ALTA_EMPRESAIsNull write SetFECHA_ALTA_EMPRESAIsNull; property FORMACION_BASE: IROStrings read GetFORMACION_BASEValue; property FORMACION_BASEIsNull: Boolean read GetFORMACION_BASEIsNull write SetFORMACION_BASEIsNull; property FORMACION_COMPLE: IROStrings read GetFORMACION_COMPLEValue; property FORMACION_COMPLEIsNull: Boolean read GetFORMACION_COMPLEIsNull write SetFORMACION_COMPLEIsNull; property FORMACION_RECIBIDA: IROStrings read GetFORMACION_RECIBIDAValue; property FORMACION_RECIBIDAIsNull: Boolean read GetFORMACION_RECIBIDAIsNull write SetFORMACION_RECIBIDAIsNull; property EXPERIENCIA: IROStrings read GetEXPERIENCIAValue; property EXPERIENCIAIsNull: Boolean read GetEXPERIENCIAIsNull write SetEXPERIENCIAIsNull; property CONTRATO: String read GetCONTRATOValue write SetCONTRATOValue; property CONTRATOIsNull: Boolean read GetCONTRATOIsNull write SetCONTRATOIsNull; property DURACION: String read GetDURACIONValue write SetDURACIONValue; property DURACIONIsNull: Boolean read GetDURACIONIsNull write SetDURACIONIsNull; property FECHA_BAJA: DateTime read GetFECHA_BAJAValue write SetFECHA_BAJAValue; property FECHA_BAJAIsNull: Boolean read GetFECHA_BAJAIsNull write SetFECHA_BAJAIsNull; property CAUSA_BAJA: String read GetCAUSA_BAJAValue write SetCAUSA_BAJAValue; property CAUSA_BAJAIsNull: Boolean read GetCAUSA_BAJAIsNull write SetCAUSA_BAJAIsNull; end; { TEmpleadosDataTableRules } TEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IEmpleados) private f_NOTAS: IROStrings; f_FORMACION_BASE: IROStrings; f_FORMACION_COMPLE: IROStrings; f_FORMACION_RECIBIDA: IROStrings; f_EXPERIENCIA: IROStrings; procedure NOTAS_OnChange(Sender: TObject); procedure FORMACION_BASE_OnChange(Sender: TObject); procedure FORMACION_COMPLE_OnChange(Sender: TObject); procedure FORMACION_RECIBIDA_OnChange(Sender: TObject); procedure EXPERIENCIA_OnChange(Sender: TObject); protected { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetIDIsNull: Boolean; virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_CATEGORIAValue: Integer; virtual; procedure SetID_CATEGORIAValue(const aValue: Integer); virtual; function GetID_CATEGORIAIsNull: Boolean; virtual; procedure SetID_CATEGORIAIsNull(const aValue: Boolean); virtual; function GetNIF_CIFValue: String; virtual; procedure SetNIF_CIFValue(const aValue: String); virtual; function GetNIF_CIFIsNull: Boolean; virtual; procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual; function GetNOMBREValue: String; virtual; procedure SetNOMBREValue(const aValue: String); virtual; function GetNOMBREIsNull: Boolean; virtual; procedure SetNOMBREIsNull(const aValue: Boolean); virtual; function GetPERSONA_CONTACTOValue: String; virtual; procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; function GetPERSONA_CONTACTOIsNull: Boolean; virtual; procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual; function GetCALLEValue: String; virtual; procedure SetCALLEValue(const aValue: String); virtual; function GetCALLEIsNull: Boolean; virtual; procedure SetCALLEIsNull(const aValue: Boolean); virtual; function GetPOBLACIONValue: String; virtual; procedure SetPOBLACIONValue(const aValue: String); virtual; function GetPOBLACIONIsNull: Boolean; virtual; procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual; function GetPROVINCIAValue: String; virtual; procedure SetPROVINCIAValue(const aValue: String); virtual; function GetPROVINCIAIsNull: Boolean; virtual; procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual; function GetCODIGO_POSTALValue: String; virtual; procedure SetCODIGO_POSTALValue(const aValue: String); virtual; function GetCODIGO_POSTALIsNull: Boolean; virtual; procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; function GetPAISValue: String; virtual; procedure SetPAISValue(const aValue: String); virtual; function GetPAISIsNull: Boolean; virtual; procedure SetPAISIsNull(const aValue: Boolean); virtual; function GetIDIOMA_ISOValue: String; virtual; procedure SetIDIOMA_ISOValue(const aValue: String); virtual; function GetIDIOMA_ISOIsNull: Boolean; virtual; procedure SetIDIOMA_ISOIsNull(const aValue: Boolean); virtual; function GetIDIOMAValue: String; virtual; procedure SetIDIOMAValue(const aValue: String); virtual; function GetIDIOMAIsNull: Boolean; virtual; procedure SetIDIOMAIsNull(const aValue: Boolean); virtual; function GetTELEFONO_1Value: String; virtual; procedure SetTELEFONO_1Value(const aValue: String); virtual; function GetTELEFONO_1IsNull: Boolean; virtual; procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual; function GetTELEFONO_2Value: String; virtual; procedure SetTELEFONO_2Value(const aValue: String); virtual; function GetTELEFONO_2IsNull: Boolean; virtual; procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual; function GetMOVIL_1Value: String; virtual; procedure SetMOVIL_1Value(const aValue: String); virtual; function GetMOVIL_1IsNull: Boolean; virtual; procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual; function GetMOVIL_2Value: String; virtual; procedure SetMOVIL_2Value(const aValue: String); virtual; function GetMOVIL_2IsNull: Boolean; virtual; procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual; function GetFAXValue: String; virtual; procedure SetFAXValue(const aValue: String); virtual; function GetFAXIsNull: Boolean; virtual; procedure SetFAXIsNull(const aValue: Boolean); virtual; function GetEMAIL_1Value: String; virtual; procedure SetEMAIL_1Value(const aValue: String); virtual; function GetEMAIL_1IsNull: Boolean; virtual; procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual; function GetEMAIL_2Value: String; virtual; procedure SetEMAIL_2Value(const aValue: String); virtual; function GetEMAIL_2IsNull: Boolean; virtual; procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual; function GetPAGINA_WEBValue: String; virtual; procedure SetPAGINA_WEBValue(const aValue: String); virtual; function GetPAGINA_WEBIsNull: Boolean; virtual; procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual; function GetNOTASValue: IROStrings; virtual; function GetNOTASIsNull: Boolean; virtual; procedure SetNOTASIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; function GetFECHA_MODIFICACIONValue: DateTime; virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; function GetUSUARIOValue: String; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; function GetUSUARIOIsNull: Boolean; virtual; procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; function GetID_EMPRESAValue: Integer; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; function GetID_EMPRESAIsNull: Boolean; virtual; procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; function GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; function GetREFERENCIAIsNull: Boolean; virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; function GetFECHA_NACIMIENTOValue: DateTime; virtual; procedure SetFECHA_NACIMIENTOValue(const aValue: DateTime); virtual; function GetFECHA_NACIMIENTOIsNull: Boolean; virtual; procedure SetFECHA_NACIMIENTOIsNull(const aValue: Boolean); virtual; function GetCATEGORIAValue: String; virtual; procedure SetCATEGORIAValue(const aValue: String); virtual; function GetCATEGORIAIsNull: Boolean; virtual; procedure SetCATEGORIAIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTA_EMPRESAValue: DateTime; virtual; procedure SetFECHA_ALTA_EMPRESAValue(const aValue: DateTime); virtual; function GetFECHA_ALTA_EMPRESAIsNull: Boolean; virtual; procedure SetFECHA_ALTA_EMPRESAIsNull(const aValue: Boolean); virtual; function GetFORMACION_BASEValue: IROStrings; virtual; function GetFORMACION_BASEIsNull: Boolean; virtual; procedure SetFORMACION_BASEIsNull(const aValue: Boolean); virtual; function GetFORMACION_COMPLEValue: IROStrings; virtual; function GetFORMACION_COMPLEIsNull: Boolean; virtual; procedure SetFORMACION_COMPLEIsNull(const aValue: Boolean); virtual; function GetFORMACION_RECIBIDAValue: IROStrings; virtual; function GetFORMACION_RECIBIDAIsNull: Boolean; virtual; procedure SetFORMACION_RECIBIDAIsNull(const aValue: Boolean); virtual; function GetEXPERIENCIAValue: IROStrings; virtual; function GetEXPERIENCIAIsNull: Boolean; virtual; procedure SetEXPERIENCIAIsNull(const aValue: Boolean); virtual; function GetCONTRATOValue: String; virtual; procedure SetCONTRATOValue(const aValue: String); virtual; function GetCONTRATOIsNull: Boolean; virtual; procedure SetCONTRATOIsNull(const aValue: Boolean); virtual; function GetDURACIONValue: String; virtual; procedure SetDURACIONValue(const aValue: String); virtual; function GetDURACIONIsNull: Boolean; virtual; procedure SetDURACIONIsNull(const aValue: Boolean); virtual; function GetFECHA_BAJAValue: DateTime; virtual; procedure SetFECHA_BAJAValue(const aValue: DateTime); virtual; function GetFECHA_BAJAIsNull: Boolean; virtual; procedure SetFECHA_BAJAIsNull(const aValue: Boolean); virtual; function GetCAUSA_BAJAValue: String; virtual; procedure SetCAUSA_BAJAValue(const aValue: String); virtual; function GetCAUSA_BAJAIsNull: Boolean; virtual; procedure SetCAUSA_BAJAIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue; property ID_CATEGORIAIsNull: Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property CALLE: String read GetCALLEValue write SetCALLEValue; property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; property PAIS: String read GetPAISValue write SetPAISValue; property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull; property IDIOMA_ISO: String read GetIDIOMA_ISOValue write SetIDIOMA_ISOValue; property IDIOMA_ISOIsNull: Boolean read GetIDIOMA_ISOIsNull write SetIDIOMA_ISOIsNull; property IDIOMA: String read GetIDIOMAValue write SetIDIOMAValue; property IDIOMAIsNull: Boolean read GetIDIOMAIsNull write SetIDIOMAIsNull; property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value; property TELEFONO_1IsNull: Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull; property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value; property TELEFONO_2IsNull: Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull; property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value; property MOVIL_1IsNull: Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull; property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value; property MOVIL_2IsNull: Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull; property FAX: String read GetFAXValue write SetFAXValue; property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull; property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value; property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull; property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value; property EMAIL_2IsNull: Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull; property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; property PAGINA_WEBIsNull: Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull; property NOTAS: IROStrings read GetNOTASValue; property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property FECHA_NACIMIENTO: DateTime read GetFECHA_NACIMIENTOValue write SetFECHA_NACIMIENTOValue; property FECHA_NACIMIENTOIsNull: Boolean read GetFECHA_NACIMIENTOIsNull write SetFECHA_NACIMIENTOIsNull; property CATEGORIA: String read GetCATEGORIAValue write SetCATEGORIAValue; property CATEGORIAIsNull: Boolean read GetCATEGORIAIsNull write SetCATEGORIAIsNull; property FECHA_ALTA_EMPRESA: DateTime read GetFECHA_ALTA_EMPRESAValue write SetFECHA_ALTA_EMPRESAValue; property FECHA_ALTA_EMPRESAIsNull: Boolean read GetFECHA_ALTA_EMPRESAIsNull write SetFECHA_ALTA_EMPRESAIsNull; property FORMACION_BASE: IROStrings read GetFORMACION_BASEValue; property FORMACION_BASEIsNull: Boolean read GetFORMACION_BASEIsNull write SetFORMACION_BASEIsNull; property FORMACION_COMPLE: IROStrings read GetFORMACION_COMPLEValue; property FORMACION_COMPLEIsNull: Boolean read GetFORMACION_COMPLEIsNull write SetFORMACION_COMPLEIsNull; property FORMACION_RECIBIDA: IROStrings read GetFORMACION_RECIBIDAValue; property FORMACION_RECIBIDAIsNull: Boolean read GetFORMACION_RECIBIDAIsNull write SetFORMACION_RECIBIDAIsNull; property EXPERIENCIA: IROStrings read GetEXPERIENCIAValue; property EXPERIENCIAIsNull: Boolean read GetEXPERIENCIAIsNull write SetEXPERIENCIAIsNull; property CONTRATO: String read GetCONTRATOValue write SetCONTRATOValue; property CONTRATOIsNull: Boolean read GetCONTRATOIsNull write SetCONTRATOIsNull; property DURACION: String read GetDURACIONValue write SetDURACIONValue; property DURACIONIsNull: Boolean read GetDURACIONIsNull write SetDURACIONIsNull; property FECHA_BAJA: DateTime read GetFECHA_BAJAValue write SetFECHA_BAJAValue; property FECHA_BAJAIsNull: Boolean read GetFECHA_BAJAIsNull write SetFECHA_BAJAIsNull; property CAUSA_BAJA: String read GetCAUSA_BAJAValue write SetCAUSA_BAJAValue; property CAUSA_BAJAIsNull: Boolean read GetCAUSA_BAJAIsNull write SetCAUSA_BAJAIsNull; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IDireccionesContacto } IDireccionesContacto = interface(IDAStronglyTypedDataTable) ['{4567558B-4D2D-4C36-8271-73197DD95B74}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); function GetIDIsNull: Boolean; procedure SetIDIsNull(const aValue: Boolean); function GetID_CONTACTOValue: Integer; procedure SetID_CONTACTOValue(const aValue: Integer); function GetID_CONTACTOIsNull: Boolean; procedure SetID_CONTACTOIsNull(const aValue: Boolean); function GetCALLEValue: String; procedure SetCALLEValue(const aValue: String); function GetCALLEIsNull: Boolean; procedure SetCALLEIsNull(const aValue: Boolean); function GetPOBLACIONValue: String; procedure SetPOBLACIONValue(const aValue: String); function GetPOBLACIONIsNull: Boolean; procedure SetPOBLACIONIsNull(const aValue: Boolean); function GetPROVINCIAValue: String; procedure SetPROVINCIAValue(const aValue: String); function GetPROVINCIAIsNull: Boolean; procedure SetPROVINCIAIsNull(const aValue: Boolean); function GetCODIGO_POSTALValue: String; procedure SetCODIGO_POSTALValue(const aValue: String); function GetCODIGO_POSTALIsNull: Boolean; procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); function GetPERSONA_CONTACTOValue: String; procedure SetPERSONA_CONTACTOValue(const aValue: String); function GetPERSONA_CONTACTOIsNull: Boolean; procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); function GetNOMBREValue: String; procedure SetNOMBREValue(const aValue: String); function GetNOMBREIsNull: Boolean; procedure SetNOMBREIsNull(const aValue: Boolean); function GetTELEFONOValue: String; procedure SetTELEFONOValue(const aValue: String); function GetTELEFONOIsNull: Boolean; procedure SetTELEFONOIsNull(const aValue: Boolean); function GetMOVILValue: String; procedure SetMOVILValue(const aValue: String); function GetMOVILIsNull: Boolean; procedure SetMOVILIsNull(const aValue: Boolean); function GetFAXValue: String; procedure SetFAXValue(const aValue: String); function GetFAXIsNull: Boolean; procedure SetFAXIsNull(const aValue: Boolean); function GetEMAILValue: String; procedure SetEMAILValue(const aValue: String); function GetEMAILIsNull: Boolean; procedure SetEMAILIsNull(const aValue: Boolean); function GetNOTASValue: IROStrings; function GetNOTASIsNull: Boolean; procedure SetNOTASIsNull(const aValue: Boolean); function GetPORTEValue: Float; procedure SetPORTEValue(const aValue: Float); function GetPORTEIsNull: Boolean; procedure SetPORTEIsNull(const aValue: Boolean); function GetFECHA_ALTAValue: DateTime; procedure SetFECHA_ALTAValue(const aValue: DateTime); function GetFECHA_ALTAIsNull: Boolean; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); function GetFECHA_MODIFICACIONValue: DateTime; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); function GetFECHA_MODIFICACIONIsNull: Boolean; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); function GetPAISValue: String; procedure SetPAISValue(const aValue: String); function GetPAISIsNull: Boolean; procedure SetPAISIsNull(const aValue: Boolean); { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue; property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull; property CALLE: String read GetCALLEValue write SetCALLEValue; property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue; property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull; property MOVIL: String read GetMOVILValue write SetMOVILValue; property MOVILIsNull: Boolean read GetMOVILIsNull write SetMOVILIsNull; property FAX: String read GetFAXValue write SetFAXValue; property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull; property EMAIL: String read GetEMAILValue write SetEMAILValue; property EMAILIsNull: Boolean read GetEMAILIsNull write SetEMAILIsNull; property NOTAS: IROStrings read GetNOTASValue; property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull; property PORTE: Float read GetPORTEValue write SetPORTEValue; property PORTEIsNull: Boolean read GetPORTEIsNull write SetPORTEIsNull; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property PAIS: String read GetPAISValue write SetPAISValue; property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull; end; { TDireccionesContactoDataTableRules } TDireccionesContactoDataTableRules = class(TIntfObjectDADataTableRules, IDireccionesContacto) private f_NOTAS: IROStrings; procedure NOTAS_OnChange(Sender: TObject); protected { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetIDIsNull: Boolean; virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_CONTACTOValue: Integer; virtual; procedure SetID_CONTACTOValue(const aValue: Integer); virtual; function GetID_CONTACTOIsNull: Boolean; virtual; procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual; function GetCALLEValue: String; virtual; procedure SetCALLEValue(const aValue: String); virtual; function GetCALLEIsNull: Boolean; virtual; procedure SetCALLEIsNull(const aValue: Boolean); virtual; function GetPOBLACIONValue: String; virtual; procedure SetPOBLACIONValue(const aValue: String); virtual; function GetPOBLACIONIsNull: Boolean; virtual; procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual; function GetPROVINCIAValue: String; virtual; procedure SetPROVINCIAValue(const aValue: String); virtual; function GetPROVINCIAIsNull: Boolean; virtual; procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual; function GetCODIGO_POSTALValue: String; virtual; procedure SetCODIGO_POSTALValue(const aValue: String); virtual; function GetCODIGO_POSTALIsNull: Boolean; virtual; procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; function GetPERSONA_CONTACTOValue: String; virtual; procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; function GetPERSONA_CONTACTOIsNull: Boolean; virtual; procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual; function GetNOMBREValue: String; virtual; procedure SetNOMBREValue(const aValue: String); virtual; function GetNOMBREIsNull: Boolean; virtual; procedure SetNOMBREIsNull(const aValue: Boolean); virtual; function GetTELEFONOValue: String; virtual; procedure SetTELEFONOValue(const aValue: String); virtual; function GetTELEFONOIsNull: Boolean; virtual; procedure SetTELEFONOIsNull(const aValue: Boolean); virtual; function GetMOVILValue: String; virtual; procedure SetMOVILValue(const aValue: String); virtual; function GetMOVILIsNull: Boolean; virtual; procedure SetMOVILIsNull(const aValue: Boolean); virtual; function GetFAXValue: String; virtual; procedure SetFAXValue(const aValue: String); virtual; function GetFAXIsNull: Boolean; virtual; procedure SetFAXIsNull(const aValue: Boolean); virtual; function GetEMAILValue: String; virtual; procedure SetEMAILValue(const aValue: String); virtual; function GetEMAILIsNull: Boolean; virtual; procedure SetEMAILIsNull(const aValue: Boolean); virtual; function GetNOTASValue: IROStrings; virtual; function GetNOTASIsNull: Boolean; virtual; procedure SetNOTASIsNull(const aValue: Boolean); virtual; function GetPORTEValue: Float; virtual; procedure SetPORTEValue(const aValue: Float); virtual; function GetPORTEIsNull: Boolean; virtual; procedure SetPORTEIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; function GetFECHA_MODIFICACIONValue: DateTime; virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; function GetPAISValue: String; virtual; procedure SetPAISValue(const aValue: String); virtual; function GetPAISIsNull: Boolean; virtual; procedure SetPAISIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue; property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull; property CALLE: String read GetCALLEValue write SetCALLEValue; property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue; property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull; property MOVIL: String read GetMOVILValue write SetMOVILValue; property MOVILIsNull: Boolean read GetMOVILIsNull write SetMOVILIsNull; property FAX: String read GetFAXValue write SetFAXValue; property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull; property EMAIL: String read GetEMAILValue write SetEMAILValue; property EMAILIsNull: Boolean read GetEMAILIsNull write SetEMAILIsNull; property NOTAS: IROStrings read GetNOTASValue; property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull; property PORTE: Float read GetPORTEValue write SetPORTEValue; property PORTEIsNull: Boolean read GetPORTEIsNull write SetPORTEIsNull; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property PAIS: String read GetPAISValue write SetPAISValue; property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IDataset } IDataset = interface(IDAStronglyTypedDataTable) ['{C1B3ED2C-0B01-40E1-9023-3C3F7452286A}'] { Property getters and setters } { Properties } end; { TDatasetDataTableRules } TDatasetDataTableRules = class(TIntfObjectDADataTableRules, IDataset) private protected { Property getters and setters } { Properties } public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IClientesDescuentos } IClientesDescuentos = interface(IDAStronglyTypedDataTable) ['{47540AC5-663B-4D6B-9C13-97639D9E5463}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); function GetIDIsNull: Boolean; procedure SetIDIsNull(const aValue: Boolean); function GetID_CLIENTEValue: Integer; procedure SetID_CLIENTEValue(const aValue: Integer); function GetID_CLIENTEIsNull: Boolean; procedure SetID_CLIENTEIsNull(const aValue: Boolean); function GetID_PROVEEDORValue: Integer; procedure SetID_PROVEEDORValue(const aValue: Integer); function GetID_PROVEEDORIsNull: Boolean; procedure SetID_PROVEEDORIsNull(const aValue: Boolean); function GetNOMBREValue: String; procedure SetNOMBREValue(const aValue: String); function GetNOMBREIsNull: Boolean; procedure SetNOMBREIsNull(const aValue: Boolean); function GetDESCUENTOValue: Float; procedure SetDESCUENTOValue(const aValue: Float); function GetDESCUENTOIsNull: Boolean; procedure SetDESCUENTOIsNull(const aValue: Boolean); { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; end; { TClientesDescuentosDataTableRules } TClientesDescuentosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentos) private protected { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetIDIsNull: Boolean; virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_CLIENTEValue: Integer; virtual; procedure SetID_CLIENTEValue(const aValue: Integer); virtual; function GetID_CLIENTEIsNull: Boolean; virtual; procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual; function GetID_PROVEEDORValue: Integer; virtual; procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; function GetID_PROVEEDORIsNull: Boolean; virtual; procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual; function GetNOMBREValue: String; virtual; procedure SetNOMBREValue(const aValue: String); virtual; function GetNOMBREIsNull: Boolean; virtual; procedure SetNOMBREIsNull(const aValue: Boolean); virtual; function GetDESCUENTOValue: Float; virtual; procedure SetDESCUENTOValue(const aValue: Float); virtual; function GetDESCUENTOIsNull: Boolean; virtual; procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IGruposProveedor } IGruposProveedor = interface(IDAStronglyTypedDataTable) ['{79408684-CC54-42F7-B50F-82F2B4A7EF95}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); function GetIDIsNull: Boolean; procedure SetIDIsNull(const aValue: Boolean); function GetDESCRIPCIONValue: String; procedure SetDESCRIPCIONValue(const aValue: String); function GetDESCRIPCIONIsNull: Boolean; procedure SetDESCRIPCIONIsNull(const aValue: Boolean); { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; end; { TGruposProveedorDataTableRules } TGruposProveedorDataTableRules = class(TIntfObjectDADataTableRules, IGruposProveedor) private protected { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetIDIsNull: Boolean; virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetDESCRIPCIONValue: String; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; function GetDESCRIPCIONIsNull: Boolean; virtual; procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IGruposEmpleado } IGruposEmpleado = interface(IDAStronglyTypedDataTable) ['{B8E506C1-BDDE-4D81-B1DC-A7548833683A}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); function GetIDIsNull: Boolean; procedure SetIDIsNull(const aValue: Boolean); function GetDESCRIPCIONValue: String; procedure SetDESCRIPCIONValue(const aValue: String); function GetDESCRIPCIONIsNull: Boolean; procedure SetDESCRIPCIONIsNull(const aValue: Boolean); { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; end; { TGruposEmpleadoDataTableRules } TGruposEmpleadoDataTableRules = class(TIntfObjectDADataTableRules, IGruposEmpleado) private protected { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetIDIsNull: Boolean; virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetDESCRIPCIONValue: String; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; function GetDESCRIPCIONIsNull: Boolean; virtual; procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IContactos_Refresh } IContactos_Refresh = interface(IDAStronglyTypedDataTable) ['{F5E03338-7A25-4B70-9DCA-BF0779121ECC}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); function GetIDIsNull: Boolean; procedure SetIDIsNull(const aValue: Boolean); function GetNIF_CIFValue: String; procedure SetNIF_CIFValue(const aValue: String); function GetNIF_CIFIsNull: Boolean; procedure SetNIF_CIFIsNull(const aValue: Boolean); function GetNOMBREValue: String; procedure SetNOMBREValue(const aValue: String); function GetNOMBREIsNull: Boolean; procedure SetNOMBREIsNull(const aValue: Boolean); function GetCALLEValue: String; procedure SetCALLEValue(const aValue: String); function GetCALLEIsNull: Boolean; procedure SetCALLEIsNull(const aValue: Boolean); function GetPOBLACIONValue: String; procedure SetPOBLACIONValue(const aValue: String); function GetPOBLACIONIsNull: Boolean; procedure SetPOBLACIONIsNull(const aValue: Boolean); function GetPROVINCIAValue: String; procedure SetPROVINCIAValue(const aValue: String); function GetPROVINCIAIsNull: Boolean; procedure SetPROVINCIAIsNull(const aValue: Boolean); function GetCODIGO_POSTALValue: String; procedure SetCODIGO_POSTALValue(const aValue: String); function GetCODIGO_POSTALIsNull: Boolean; procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); function GetTELEFONO_1Value: String; procedure SetTELEFONO_1Value(const aValue: String); function GetTELEFONO_1IsNull: Boolean; procedure SetTELEFONO_1IsNull(const aValue: Boolean); function GetTELEFONO_2Value: String; procedure SetTELEFONO_2Value(const aValue: String); function GetTELEFONO_2IsNull: Boolean; procedure SetTELEFONO_2IsNull(const aValue: Boolean); function GetMOVIL_1Value: String; procedure SetMOVIL_1Value(const aValue: String); function GetMOVIL_1IsNull: Boolean; procedure SetMOVIL_1IsNull(const aValue: Boolean); function GetMOVIL_2Value: String; procedure SetMOVIL_2Value(const aValue: String); function GetMOVIL_2IsNull: Boolean; procedure SetMOVIL_2IsNull(const aValue: Boolean); function GetFAXValue: String; procedure SetFAXValue(const aValue: String); function GetFAXIsNull: Boolean; procedure SetFAXIsNull(const aValue: Boolean); function GetEMAIL_1Value: String; procedure SetEMAIL_1Value(const aValue: String); function GetEMAIL_1IsNull: Boolean; procedure SetEMAIL_1IsNull(const aValue: Boolean); function GetEMAIL_2Value: String; procedure SetEMAIL_2Value(const aValue: String); function GetEMAIL_2IsNull: Boolean; procedure SetEMAIL_2IsNull(const aValue: Boolean); function GetPAGINA_WEBValue: String; procedure SetPAGINA_WEBValue(const aValue: String); function GetPAGINA_WEBIsNull: Boolean; procedure SetPAGINA_WEBIsNull(const aValue: Boolean); function GetNOTASValue: IROStrings; function GetNOTASIsNull: Boolean; procedure SetNOTASIsNull(const aValue: Boolean); function GetFECHA_ALTAValue: DateTime; procedure SetFECHA_ALTAValue(const aValue: DateTime); function GetFECHA_ALTAIsNull: Boolean; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); function GetFECHA_MODIFICACIONValue: DateTime; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); function GetFECHA_MODIFICACIONIsNull: Boolean; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); function GetUSUARIOValue: String; procedure SetUSUARIOValue(const aValue: String); function GetUSUARIOIsNull: Boolean; procedure SetUSUARIOIsNull(const aValue: Boolean); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); function GetREFERENCIAIsNull: Boolean; procedure SetREFERENCIAIsNull(const aValue: Boolean); function GetPERSONA_CONTACTOValue: String; procedure SetPERSONA_CONTACTOValue(const aValue: String); function GetPERSONA_CONTACTOIsNull: Boolean; procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property CALLE: String read GetCALLEValue write SetCALLEValue; property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value; property TELEFONO_1IsNull: Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull; property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value; property TELEFONO_2IsNull: Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull; property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value; property MOVIL_1IsNull: Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull; property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value; property MOVIL_2IsNull: Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull; property FAX: String read GetFAXValue write SetFAXValue; property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull; property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value; property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull; property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value; property EMAIL_2IsNull: Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull; property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; property PAGINA_WEBIsNull: Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull; property NOTAS: IROStrings read GetNOTASValue; property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; end; { TContactos_RefreshDataTableRules } TContactos_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IContactos_Refresh) private f_NOTAS: IROStrings; procedure NOTAS_OnChange(Sender: TObject); protected { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetIDIsNull: Boolean; virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetNIF_CIFValue: String; virtual; procedure SetNIF_CIFValue(const aValue: String); virtual; function GetNIF_CIFIsNull: Boolean; virtual; procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual; function GetNOMBREValue: String; virtual; procedure SetNOMBREValue(const aValue: String); virtual; function GetNOMBREIsNull: Boolean; virtual; procedure SetNOMBREIsNull(const aValue: Boolean); virtual; function GetCALLEValue: String; virtual; procedure SetCALLEValue(const aValue: String); virtual; function GetCALLEIsNull: Boolean; virtual; procedure SetCALLEIsNull(const aValue: Boolean); virtual; function GetPOBLACIONValue: String; virtual; procedure SetPOBLACIONValue(const aValue: String); virtual; function GetPOBLACIONIsNull: Boolean; virtual; procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual; function GetPROVINCIAValue: String; virtual; procedure SetPROVINCIAValue(const aValue: String); virtual; function GetPROVINCIAIsNull: Boolean; virtual; procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual; function GetCODIGO_POSTALValue: String; virtual; procedure SetCODIGO_POSTALValue(const aValue: String); virtual; function GetCODIGO_POSTALIsNull: Boolean; virtual; procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; function GetTELEFONO_1Value: String; virtual; procedure SetTELEFONO_1Value(const aValue: String); virtual; function GetTELEFONO_1IsNull: Boolean; virtual; procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual; function GetTELEFONO_2Value: String; virtual; procedure SetTELEFONO_2Value(const aValue: String); virtual; function GetTELEFONO_2IsNull: Boolean; virtual; procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual; function GetMOVIL_1Value: String; virtual; procedure SetMOVIL_1Value(const aValue: String); virtual; function GetMOVIL_1IsNull: Boolean; virtual; procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual; function GetMOVIL_2Value: String; virtual; procedure SetMOVIL_2Value(const aValue: String); virtual; function GetMOVIL_2IsNull: Boolean; virtual; procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual; function GetFAXValue: String; virtual; procedure SetFAXValue(const aValue: String); virtual; function GetFAXIsNull: Boolean; virtual; procedure SetFAXIsNull(const aValue: Boolean); virtual; function GetEMAIL_1Value: String; virtual; procedure SetEMAIL_1Value(const aValue: String); virtual; function GetEMAIL_1IsNull: Boolean; virtual; procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual; function GetEMAIL_2Value: String; virtual; procedure SetEMAIL_2Value(const aValue: String); virtual; function GetEMAIL_2IsNull: Boolean; virtual; procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual; function GetPAGINA_WEBValue: String; virtual; procedure SetPAGINA_WEBValue(const aValue: String); virtual; function GetPAGINA_WEBIsNull: Boolean; virtual; procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual; function GetNOTASValue: IROStrings; virtual; function GetNOTASIsNull: Boolean; virtual; procedure SetNOTASIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; function GetFECHA_MODIFICACIONValue: DateTime; virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; function GetUSUARIOValue: String; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; function GetUSUARIOIsNull: Boolean; virtual; procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; function GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; function GetREFERENCIAIsNull: Boolean; virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; function GetPERSONA_CONTACTOValue: String; virtual; procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; function GetPERSONA_CONTACTOIsNull: Boolean; virtual; procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property CALLE: String read GetCALLEValue write SetCALLEValue; property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value; property TELEFONO_1IsNull: Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull; property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value; property TELEFONO_2IsNull: Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull; property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value; property MOVIL_1IsNull: Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull; property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value; property MOVIL_2IsNull: Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull; property FAX: String read GetFAXValue write SetFAXValue; property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull; property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value; property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull; property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value; property EMAIL_2IsNull: Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull; property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; property PAGINA_WEBIsNull: Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull; property NOTAS: IROStrings read GetNOTASValue; property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IContratosEmpleados } IContratosEmpleados = interface(IDAStronglyTypedDataTable) ['{8F12A3CA-BFA5-40F6-8F6E-5042192C71FB}'] { Property getters and setters } function GetCONTRATOValue: String; procedure SetCONTRATOValue(const aValue: String); function GetCONTRATOIsNull: Boolean; procedure SetCONTRATOIsNull(const aValue: Boolean); { Properties } property CONTRATO: String read GetCONTRATOValue write SetCONTRATOValue; property CONTRATOIsNull: Boolean read GetCONTRATOIsNull write SetCONTRATOIsNull; end; { TContratosEmpleadosDataTableRules } TContratosEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IContratosEmpleados) private protected { Property getters and setters } function GetCONTRATOValue: String; virtual; procedure SetCONTRATOValue(const aValue: String); virtual; function GetCONTRATOIsNull: Boolean; virtual; procedure SetCONTRATOIsNull(const aValue: Boolean); virtual; { Properties } property CONTRATO: String read GetCONTRATOValue write SetCONTRATOValue; property CONTRATOIsNull: Boolean read GetCONTRATOIsNull write SetCONTRATOIsNull; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IDescripcionesProveedores } IDescripcionesProveedores = interface(IDAStronglyTypedDataTable) ['{287A0A16-0F5A-4925-93BB-64B7B958C6F9}'] { Property getters and setters } function GetDESCRIPCION_PROVEEDORValue: String; procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); function GetDESCRIPCION_PROVEEDORIsNull: Boolean; procedure SetDESCRIPCION_PROVEEDORIsNull(const aValue: Boolean); { Properties } property DESCRIPCION_PROVEEDOR: String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue; property DESCRIPCION_PROVEEDORIsNull: Boolean read GetDESCRIPCION_PROVEEDORIsNull write SetDESCRIPCION_PROVEEDORIsNull; end; { TDescripcionesProveedoresDataTableRules } TDescripcionesProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IDescripcionesProveedores) private protected { Property getters and setters } function GetDESCRIPCION_PROVEEDORValue: String; virtual; procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); virtual; function GetDESCRIPCION_PROVEEDORIsNull: Boolean; virtual; procedure SetDESCRIPCION_PROVEEDORIsNull(const aValue: Boolean); virtual; { Properties } property DESCRIPCION_PROVEEDOR: String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue; property DESCRIPCION_PROVEEDORIsNull: Boolean read GetDESCRIPCION_PROVEEDORIsNull write SetDESCRIPCION_PROVEEDORIsNull; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IPersonalContacto } IPersonalContacto = interface(IDAStronglyTypedDataTable) ['{9B93646D-50B7-4395-8FFA-D5BF11EDF417}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); function GetIDIsNull: Boolean; procedure SetIDIsNull(const aValue: Boolean); function GetID_CONTACTOValue: Integer; procedure SetID_CONTACTOValue(const aValue: Integer); function GetID_CONTACTOIsNull: Boolean; procedure SetID_CONTACTOIsNull(const aValue: Boolean); function GetNOMBREValue: String; procedure SetNOMBREValue(const aValue: String); function GetNOMBREIsNull: Boolean; procedure SetNOMBREIsNull(const aValue: Boolean); function GetPUESTOValue: String; procedure SetPUESTOValue(const aValue: String); function GetPUESTOIsNull: Boolean; procedure SetPUESTOIsNull(const aValue: Boolean); function GetTELEFONOValue: String; procedure SetTELEFONOValue(const aValue: String); function GetTELEFONOIsNull: Boolean; procedure SetTELEFONOIsNull(const aValue: Boolean); function GetMOVILValue: String; procedure SetMOVILValue(const aValue: String); function GetMOVILIsNull: Boolean; procedure SetMOVILIsNull(const aValue: Boolean); function GetFAXValue: String; procedure SetFAXValue(const aValue: String); function GetFAXIsNull: Boolean; procedure SetFAXIsNull(const aValue: Boolean); function GetEMAILValue: String; procedure SetEMAILValue(const aValue: String); function GetEMAILIsNull: Boolean; procedure SetEMAILIsNull(const aValue: Boolean); function GetFECHA_ALTAValue: DateTime; procedure SetFECHA_ALTAValue(const aValue: DateTime); function GetFECHA_ALTAIsNull: Boolean; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); function GetFECHA_MODIFICACIONValue: DateTime; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); function GetFECHA_MODIFICACIONIsNull: Boolean; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue; property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property PUESTO: String read GetPUESTOValue write SetPUESTOValue; property PUESTOIsNull: Boolean read GetPUESTOIsNull write SetPUESTOIsNull; property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue; property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull; property MOVIL: String read GetMOVILValue write SetMOVILValue; property MOVILIsNull: Boolean read GetMOVILIsNull write SetMOVILIsNull; property FAX: String read GetFAXValue write SetFAXValue; property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull; property EMAIL: String read GetEMAILValue write SetEMAILValue; property EMAILIsNull: Boolean read GetEMAILIsNull write SetEMAILIsNull; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; end; { TPersonalContactoDataTableRules } TPersonalContactoDataTableRules = class(TIntfObjectDADataTableRules, IPersonalContacto) private protected { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetIDIsNull: Boolean; virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_CONTACTOValue: Integer; virtual; procedure SetID_CONTACTOValue(const aValue: Integer); virtual; function GetID_CONTACTOIsNull: Boolean; virtual; procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual; function GetNOMBREValue: String; virtual; procedure SetNOMBREValue(const aValue: String); virtual; function GetNOMBREIsNull: Boolean; virtual; procedure SetNOMBREIsNull(const aValue: Boolean); virtual; function GetPUESTOValue: String; virtual; procedure SetPUESTOValue(const aValue: String); virtual; function GetPUESTOIsNull: Boolean; virtual; procedure SetPUESTOIsNull(const aValue: Boolean); virtual; function GetTELEFONOValue: String; virtual; procedure SetTELEFONOValue(const aValue: String); virtual; function GetTELEFONOIsNull: Boolean; virtual; procedure SetTELEFONOIsNull(const aValue: Boolean); virtual; function GetMOVILValue: String; virtual; procedure SetMOVILValue(const aValue: String); virtual; function GetMOVILIsNull: Boolean; virtual; procedure SetMOVILIsNull(const aValue: Boolean); virtual; function GetFAXValue: String; virtual; procedure SetFAXValue(const aValue: String); virtual; function GetFAXIsNull: Boolean; virtual; procedure SetFAXIsNull(const aValue: Boolean); virtual; function GetEMAILValue: String; virtual; procedure SetEMAILValue(const aValue: String); virtual; function GetEMAILIsNull: Boolean; virtual; procedure SetEMAILIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; function GetFECHA_MODIFICACIONValue: DateTime; virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue; property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property PUESTO: String read GetPUESTOValue write SetPUESTOValue; property PUESTOIsNull: Boolean read GetPUESTOIsNull write SetPUESTOIsNull; property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue; property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull; property MOVIL: String read GetMOVILValue write SetMOVILValue; property MOVILIsNull: Boolean read GetMOVILIsNull write SetMOVILIsNull; property FAX: String read GetFAXValue write SetFAXValue; property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull; property EMAIL: String read GetEMAILValue write SetEMAILValue; property EMAILIsNull: Boolean read GetEMAILIsNull write SetEMAILIsNull; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IAgentes_Comisiones } IAgentes_Comisiones = interface(IDAStronglyTypedDataTable) ['{B7D6C5BF-31D4-4292-A2F1-F06410D0A062}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); function GetIDIsNull: Boolean; procedure SetIDIsNull(const aValue: Boolean); function GetID_AGENTEValue: Integer; procedure SetID_AGENTEValue(const aValue: Integer); function GetID_AGENTEIsNull: Boolean; procedure SetID_AGENTEIsNull(const aValue: Boolean); function GetID_PROVEEDORValue: SmallInt; procedure SetID_PROVEEDORValue(const aValue: SmallInt); function GetID_PROVEEDORIsNull: Boolean; procedure SetID_PROVEEDORIsNull(const aValue: Boolean); function GetNOMBREValue: String; procedure SetNOMBREValue(const aValue: String); function GetNOMBREIsNull: Boolean; procedure SetNOMBREIsNull(const aValue: Boolean); function GetCOMISIONValue: Float; procedure SetCOMISIONValue(const aValue: Float); function GetCOMISIONIsNull: Boolean; procedure SetCOMISIONIsNull(const aValue: Boolean); { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; property ID_PROVEEDOR: SmallInt read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue; property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull; end; { TAgentes_ComisionesDataTableRules } TAgentes_ComisionesDataTableRules = class(TIntfObjectDADataTableRules, IAgentes_Comisiones) private protected { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetIDIsNull: Boolean; virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_AGENTEValue: Integer; virtual; procedure SetID_AGENTEValue(const aValue: Integer); virtual; function GetID_AGENTEIsNull: Boolean; virtual; procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual; function GetID_PROVEEDORValue: SmallInt; virtual; procedure SetID_PROVEEDORValue(const aValue: SmallInt); virtual; function GetID_PROVEEDORIsNull: Boolean; virtual; procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual; function GetNOMBREValue: String; virtual; procedure SetNOMBREValue(const aValue: String); virtual; function GetNOMBREIsNull: Boolean; virtual; procedure SetNOMBREIsNull(const aValue: Boolean); virtual; function GetCOMISIONValue: Float; virtual; procedure SetCOMISIONValue(const aValue: Float); virtual; function GetCOMISIONIsNull: Boolean; virtual; procedure SetCOMISIONIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; property ID_PROVEEDOR: SmallInt read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue; property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IListaAnosObjetivosAlb } IListaAnosObjetivosAlb = interface(IDAStronglyTypedDataTable) ['{317F6ADB-0AC1-4B4F-AEF3-5D061D53E04F}'] { Property getters and setters } function GetANOValue: SmallInt; procedure SetANOValue(const aValue: SmallInt); function GetANOIsNull: Boolean; procedure SetANOIsNull(const aValue: Boolean); { Properties } property ANO: SmallInt read GetANOValue write SetANOValue; property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull; end; { TListaAnosObjetivosAlbDataTableRules } TListaAnosObjetivosAlbDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosObjetivosAlb) private protected { Property getters and setters } function GetANOValue: SmallInt; virtual; procedure SetANOValue(const aValue: SmallInt); virtual; function GetANOIsNull: Boolean; virtual; procedure SetANOIsNull(const aValue: Boolean); virtual; { Properties } property ANO: SmallInt read GetANOValue write SetANOValue; property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IAgentes } IAgentes = interface(IDAStronglyTypedDataTable) ['{F866ADF7-80B2-4C19-870B-23ACC7BA12A5}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); function GetIDIsNull: Boolean; procedure SetIDIsNull(const aValue: Boolean); function GetID_CATEGORIAValue: Integer; procedure SetID_CATEGORIAValue(const aValue: Integer); function GetID_CATEGORIAIsNull: Boolean; procedure SetID_CATEGORIAIsNull(const aValue: Boolean); function GetNIF_CIFValue: String; procedure SetNIF_CIFValue(const aValue: String); function GetNIF_CIFIsNull: Boolean; procedure SetNIF_CIFIsNull(const aValue: Boolean); function GetNOMBREValue: String; procedure SetNOMBREValue(const aValue: String); function GetNOMBREIsNull: Boolean; procedure SetNOMBREIsNull(const aValue: Boolean); function GetPERSONA_CONTACTOValue: String; procedure SetPERSONA_CONTACTOValue(const aValue: String); function GetPERSONA_CONTACTOIsNull: Boolean; procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); function GetCALLEValue: String; procedure SetCALLEValue(const aValue: String); function GetCALLEIsNull: Boolean; procedure SetCALLEIsNull(const aValue: Boolean); function GetPOBLACIONValue: String; procedure SetPOBLACIONValue(const aValue: String); function GetPOBLACIONIsNull: Boolean; procedure SetPOBLACIONIsNull(const aValue: Boolean); function GetPROVINCIAValue: String; procedure SetPROVINCIAValue(const aValue: String); function GetPROVINCIAIsNull: Boolean; procedure SetPROVINCIAIsNull(const aValue: Boolean); function GetCODIGO_POSTALValue: String; procedure SetCODIGO_POSTALValue(const aValue: String); function GetCODIGO_POSTALIsNull: Boolean; procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); function GetPAISValue: String; procedure SetPAISValue(const aValue: String); function GetPAISIsNull: Boolean; procedure SetPAISIsNull(const aValue: Boolean); function GetIDIOMA_ISOValue: String; procedure SetIDIOMA_ISOValue(const aValue: String); function GetIDIOMA_ISOIsNull: Boolean; procedure SetIDIOMA_ISOIsNull(const aValue: Boolean); function GetIDIOMAValue: String; procedure SetIDIOMAValue(const aValue: String); function GetIDIOMAIsNull: Boolean; procedure SetIDIOMAIsNull(const aValue: Boolean); function GetTELEFONO_1Value: String; procedure SetTELEFONO_1Value(const aValue: String); function GetTELEFONO_1IsNull: Boolean; procedure SetTELEFONO_1IsNull(const aValue: Boolean); function GetTELEFONO_2Value: String; procedure SetTELEFONO_2Value(const aValue: String); function GetTELEFONO_2IsNull: Boolean; procedure SetTELEFONO_2IsNull(const aValue: Boolean); function GetMOVIL_1Value: String; procedure SetMOVIL_1Value(const aValue: String); function GetMOVIL_1IsNull: Boolean; procedure SetMOVIL_1IsNull(const aValue: Boolean); function GetMOVIL_2Value: String; procedure SetMOVIL_2Value(const aValue: String); function GetMOVIL_2IsNull: Boolean; procedure SetMOVIL_2IsNull(const aValue: Boolean); function GetFAXValue: String; procedure SetFAXValue(const aValue: String); function GetFAXIsNull: Boolean; procedure SetFAXIsNull(const aValue: Boolean); function GetEMAIL_1Value: String; procedure SetEMAIL_1Value(const aValue: String); function GetEMAIL_1IsNull: Boolean; procedure SetEMAIL_1IsNull(const aValue: Boolean); function GetEMAIL_2Value: String; procedure SetEMAIL_2Value(const aValue: String); function GetEMAIL_2IsNull: Boolean; procedure SetEMAIL_2IsNull(const aValue: Boolean); function GetPAGINA_WEBValue: String; procedure SetPAGINA_WEBValue(const aValue: String); function GetPAGINA_WEBIsNull: Boolean; procedure SetPAGINA_WEBIsNull(const aValue: Boolean); function GetNOTASValue: IROStrings; function GetNOTASIsNull: Boolean; procedure SetNOTASIsNull(const aValue: Boolean); function GetFECHA_ALTAValue: DateTime; procedure SetFECHA_ALTAValue(const aValue: DateTime); function GetFECHA_ALTAIsNull: Boolean; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); function GetFECHA_MODIFICACIONValue: DateTime; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); function GetFECHA_MODIFICACIONIsNull: Boolean; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); function GetUSUARIOValue: String; procedure SetUSUARIOValue(const aValue: String); function GetUSUARIOIsNull: Boolean; procedure SetUSUARIOIsNull(const aValue: Boolean); function GetID_EMPRESAValue: Integer; procedure SetID_EMPRESAValue(const aValue: Integer); function GetID_EMPRESAIsNull: Boolean; procedure SetID_EMPRESAIsNull(const aValue: Boolean); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); function GetREFERENCIAIsNull: Boolean; procedure SetREFERENCIAIsNull(const aValue: Boolean); function GetFECHA_ALTA_EMPRESAValue: DateTime; procedure SetFECHA_ALTA_EMPRESAValue(const aValue: DateTime); function GetFECHA_ALTA_EMPRESAIsNull: Boolean; procedure SetFECHA_ALTA_EMPRESAIsNull(const aValue: Boolean); function GetFECHA_BAJAValue: DateTime; procedure SetFECHA_BAJAValue(const aValue: DateTime); function GetFECHA_BAJAIsNull: Boolean; procedure SetFECHA_BAJAIsNull(const aValue: Boolean); function GetCAUSA_BAJAValue: String; procedure SetCAUSA_BAJAValue(const aValue: String); function GetCAUSA_BAJAIsNull: Boolean; procedure SetCAUSA_BAJAIsNull(const aValue: Boolean); { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue; property ID_CATEGORIAIsNull: Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property CALLE: String read GetCALLEValue write SetCALLEValue; property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; property PAIS: String read GetPAISValue write SetPAISValue; property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull; property IDIOMA_ISO: String read GetIDIOMA_ISOValue write SetIDIOMA_ISOValue; property IDIOMA_ISOIsNull: Boolean read GetIDIOMA_ISOIsNull write SetIDIOMA_ISOIsNull; property IDIOMA: String read GetIDIOMAValue write SetIDIOMAValue; property IDIOMAIsNull: Boolean read GetIDIOMAIsNull write SetIDIOMAIsNull; property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value; property TELEFONO_1IsNull: Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull; property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value; property TELEFONO_2IsNull: Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull; property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value; property MOVIL_1IsNull: Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull; property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value; property MOVIL_2IsNull: Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull; property FAX: String read GetFAXValue write SetFAXValue; property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull; property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value; property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull; property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value; property EMAIL_2IsNull: Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull; property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; property PAGINA_WEBIsNull: Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull; property NOTAS: IROStrings read GetNOTASValue; property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property FECHA_ALTA_EMPRESA: DateTime read GetFECHA_ALTA_EMPRESAValue write SetFECHA_ALTA_EMPRESAValue; property FECHA_ALTA_EMPRESAIsNull: Boolean read GetFECHA_ALTA_EMPRESAIsNull write SetFECHA_ALTA_EMPRESAIsNull; property FECHA_BAJA: DateTime read GetFECHA_BAJAValue write SetFECHA_BAJAValue; property FECHA_BAJAIsNull: Boolean read GetFECHA_BAJAIsNull write SetFECHA_BAJAIsNull; property CAUSA_BAJA: String read GetCAUSA_BAJAValue write SetCAUSA_BAJAValue; property CAUSA_BAJAIsNull: Boolean read GetCAUSA_BAJAIsNull write SetCAUSA_BAJAIsNull; end; { TAgentesDataTableRules } TAgentesDataTableRules = class(TIntfObjectDADataTableRules, IAgentes) private f_NOTAS: IROStrings; procedure NOTAS_OnChange(Sender: TObject); protected { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetIDIsNull: Boolean; virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_CATEGORIAValue: Integer; virtual; procedure SetID_CATEGORIAValue(const aValue: Integer); virtual; function GetID_CATEGORIAIsNull: Boolean; virtual; procedure SetID_CATEGORIAIsNull(const aValue: Boolean); virtual; function GetNIF_CIFValue: String; virtual; procedure SetNIF_CIFValue(const aValue: String); virtual; function GetNIF_CIFIsNull: Boolean; virtual; procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual; function GetNOMBREValue: String; virtual; procedure SetNOMBREValue(const aValue: String); virtual; function GetNOMBREIsNull: Boolean; virtual; procedure SetNOMBREIsNull(const aValue: Boolean); virtual; function GetPERSONA_CONTACTOValue: String; virtual; procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; function GetPERSONA_CONTACTOIsNull: Boolean; virtual; procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual; function GetCALLEValue: String; virtual; procedure SetCALLEValue(const aValue: String); virtual; function GetCALLEIsNull: Boolean; virtual; procedure SetCALLEIsNull(const aValue: Boolean); virtual; function GetPOBLACIONValue: String; virtual; procedure SetPOBLACIONValue(const aValue: String); virtual; function GetPOBLACIONIsNull: Boolean; virtual; procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual; function GetPROVINCIAValue: String; virtual; procedure SetPROVINCIAValue(const aValue: String); virtual; function GetPROVINCIAIsNull: Boolean; virtual; procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual; function GetCODIGO_POSTALValue: String; virtual; procedure SetCODIGO_POSTALValue(const aValue: String); virtual; function GetCODIGO_POSTALIsNull: Boolean; virtual; procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; function GetPAISValue: String; virtual; procedure SetPAISValue(const aValue: String); virtual; function GetPAISIsNull: Boolean; virtual; procedure SetPAISIsNull(const aValue: Boolean); virtual; function GetIDIOMA_ISOValue: String; virtual; procedure SetIDIOMA_ISOValue(const aValue: String); virtual; function GetIDIOMA_ISOIsNull: Boolean; virtual; procedure SetIDIOMA_ISOIsNull(const aValue: Boolean); virtual; function GetIDIOMAValue: String; virtual; procedure SetIDIOMAValue(const aValue: String); virtual; function GetIDIOMAIsNull: Boolean; virtual; procedure SetIDIOMAIsNull(const aValue: Boolean); virtual; function GetTELEFONO_1Value: String; virtual; procedure SetTELEFONO_1Value(const aValue: String); virtual; function GetTELEFONO_1IsNull: Boolean; virtual; procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual; function GetTELEFONO_2Value: String; virtual; procedure SetTELEFONO_2Value(const aValue: String); virtual; function GetTELEFONO_2IsNull: Boolean; virtual; procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual; function GetMOVIL_1Value: String; virtual; procedure SetMOVIL_1Value(const aValue: String); virtual; function GetMOVIL_1IsNull: Boolean; virtual; procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual; function GetMOVIL_2Value: String; virtual; procedure SetMOVIL_2Value(const aValue: String); virtual; function GetMOVIL_2IsNull: Boolean; virtual; procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual; function GetFAXValue: String; virtual; procedure SetFAXValue(const aValue: String); virtual; function GetFAXIsNull: Boolean; virtual; procedure SetFAXIsNull(const aValue: Boolean); virtual; function GetEMAIL_1Value: String; virtual; procedure SetEMAIL_1Value(const aValue: String); virtual; function GetEMAIL_1IsNull: Boolean; virtual; procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual; function GetEMAIL_2Value: String; virtual; procedure SetEMAIL_2Value(const aValue: String); virtual; function GetEMAIL_2IsNull: Boolean; virtual; procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual; function GetPAGINA_WEBValue: String; virtual; procedure SetPAGINA_WEBValue(const aValue: String); virtual; function GetPAGINA_WEBIsNull: Boolean; virtual; procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual; function GetNOTASValue: IROStrings; virtual; function GetNOTASIsNull: Boolean; virtual; procedure SetNOTASIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; function GetFECHA_MODIFICACIONValue: DateTime; virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; function GetUSUARIOValue: String; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; function GetUSUARIOIsNull: Boolean; virtual; procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; function GetID_EMPRESAValue: Integer; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; function GetID_EMPRESAIsNull: Boolean; virtual; procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; function GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; function GetREFERENCIAIsNull: Boolean; virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTA_EMPRESAValue: DateTime; virtual; procedure SetFECHA_ALTA_EMPRESAValue(const aValue: DateTime); virtual; function GetFECHA_ALTA_EMPRESAIsNull: Boolean; virtual; procedure SetFECHA_ALTA_EMPRESAIsNull(const aValue: Boolean); virtual; function GetFECHA_BAJAValue: DateTime; virtual; procedure SetFECHA_BAJAValue(const aValue: DateTime); virtual; function GetFECHA_BAJAIsNull: Boolean; virtual; procedure SetFECHA_BAJAIsNull(const aValue: Boolean); virtual; function GetCAUSA_BAJAValue: String; virtual; procedure SetCAUSA_BAJAValue(const aValue: String); virtual; function GetCAUSA_BAJAIsNull: Boolean; virtual; procedure SetCAUSA_BAJAIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue; property ID_CATEGORIAIsNull: Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property CALLE: String read GetCALLEValue write SetCALLEValue; property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; property PAIS: String read GetPAISValue write SetPAISValue; property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull; property IDIOMA_ISO: String read GetIDIOMA_ISOValue write SetIDIOMA_ISOValue; property IDIOMA_ISOIsNull: Boolean read GetIDIOMA_ISOIsNull write SetIDIOMA_ISOIsNull; property IDIOMA: String read GetIDIOMAValue write SetIDIOMAValue; property IDIOMAIsNull: Boolean read GetIDIOMAIsNull write SetIDIOMAIsNull; property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value; property TELEFONO_1IsNull: Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull; property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value; property TELEFONO_2IsNull: Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull; property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value; property MOVIL_1IsNull: Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull; property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value; property MOVIL_2IsNull: Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull; property FAX: String read GetFAXValue write SetFAXValue; property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull; property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value; property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull; property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value; property EMAIL_2IsNull: Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull; property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; property PAGINA_WEBIsNull: Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull; property NOTAS: IROStrings read GetNOTASValue; property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property FECHA_ALTA_EMPRESA: DateTime read GetFECHA_ALTA_EMPRESAValue write SetFECHA_ALTA_EMPRESAValue; property FECHA_ALTA_EMPRESAIsNull: Boolean read GetFECHA_ALTA_EMPRESAIsNull write SetFECHA_ALTA_EMPRESAIsNull; property FECHA_BAJA: DateTime read GetFECHA_BAJAValue write SetFECHA_BAJAValue; property FECHA_BAJAIsNull: Boolean read GetFECHA_BAJAIsNull write SetFECHA_BAJAIsNull; property CAUSA_BAJA: String read GetCAUSA_BAJAValue write SetCAUSA_BAJAValue; property CAUSA_BAJAIsNull: Boolean read GetCAUSA_BAJAIsNull write SetCAUSA_BAJAIsNull; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IClientesDescuentosArticulos } IClientesDescuentosArticulos = interface(IDAStronglyTypedDataTable) ['{33336AA6-FE07-4032-B1A5-830BA85E92D9}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); function GetIDIsNull: Boolean; procedure SetIDIsNull(const aValue: Boolean); function GetID_CLIENTEValue: Integer; procedure SetID_CLIENTEValue(const aValue: Integer); function GetID_CLIENTEIsNull: Boolean; procedure SetID_CLIENTEIsNull(const aValue: Boolean); function GetID_ARTICULOValue: SmallInt; procedure SetID_ARTICULOValue(const aValue: SmallInt); function GetID_ARTICULOIsNull: Boolean; procedure SetID_ARTICULOIsNull(const aValue: Boolean); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); function GetREFERENCIAIsNull: Boolean; procedure SetREFERENCIAIsNull(const aValue: Boolean); function GetDESCRIPCIONValue: String; procedure SetDESCRIPCIONValue(const aValue: String); function GetDESCRIPCIONIsNull: Boolean; procedure SetDESCRIPCIONIsNull(const aValue: Boolean); function GetPRECIO_COSTEValue: Currency; procedure SetPRECIO_COSTEValue(const aValue: Currency); function GetPRECIO_COSTEIsNull: Boolean; procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); function GetDESCUENTO_PROVEEDORValue: Float; procedure SetDESCUENTO_PROVEEDORValue(const aValue: Float); function GetDESCUENTO_PROVEEDORIsNull: Boolean; procedure SetDESCUENTO_PROVEEDORIsNull(const aValue: Boolean); function GetPRECIO_NETOValue: Currency; procedure SetPRECIO_NETOValue(const aValue: Currency); function GetPRECIO_NETOIsNull: Boolean; procedure SetPRECIO_NETOIsNull(const aValue: Boolean); function GetDESCUENTOValue: Float; procedure SetDESCUENTOValue(const aValue: Float); function GetDESCUENTOIsNull: Boolean; procedure SetDESCUENTOIsNull(const aValue: Boolean); { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property ID_ARTICULO: SmallInt read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue; property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull; property DESCUENTO_PROVEEDOR: Float read GetDESCUENTO_PROVEEDORValue write SetDESCUENTO_PROVEEDORValue; property DESCUENTO_PROVEEDORIsNull: Boolean read GetDESCUENTO_PROVEEDORIsNull write SetDESCUENTO_PROVEEDORIsNull; property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue; property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; end; { TClientesDescuentosArticulosDataTableRules } TClientesDescuentosArticulosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentosArticulos) private protected { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetIDIsNull: Boolean; virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_CLIENTEValue: Integer; virtual; procedure SetID_CLIENTEValue(const aValue: Integer); virtual; function GetID_CLIENTEIsNull: Boolean; virtual; procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual; function GetID_ARTICULOValue: SmallInt; virtual; procedure SetID_ARTICULOValue(const aValue: SmallInt); virtual; function GetID_ARTICULOIsNull: Boolean; virtual; procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual; function GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; function GetREFERENCIAIsNull: Boolean; virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; function GetDESCRIPCIONValue: String; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; function GetDESCRIPCIONIsNull: Boolean; virtual; procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; function GetPRECIO_COSTEValue: Currency; virtual; procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual; function GetPRECIO_COSTEIsNull: Boolean; virtual; procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual; function GetDESCUENTO_PROVEEDORValue: Float; virtual; procedure SetDESCUENTO_PROVEEDORValue(const aValue: Float); virtual; function GetDESCUENTO_PROVEEDORIsNull: Boolean; virtual; procedure SetDESCUENTO_PROVEEDORIsNull(const aValue: Boolean); virtual; function GetPRECIO_NETOValue: Currency; virtual; procedure SetPRECIO_NETOValue(const aValue: Currency); virtual; function GetPRECIO_NETOIsNull: Boolean; virtual; procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual; function GetDESCUENTOValue: Float; virtual; procedure SetDESCUENTOValue(const aValue: Float); virtual; function GetDESCUENTOIsNull: Boolean; virtual; procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property ID_ARTICULO: SmallInt read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue; property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull; property DESCUENTO_PROVEEDOR: Float read GetDESCUENTO_PROVEEDORValue write SetDESCUENTO_PROVEEDORValue; property DESCUENTO_PROVEEDORIsNull: Boolean read GetDESCUENTO_PROVEEDORIsNull write SetDESCUENTO_PROVEEDORIsNull; property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue; property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IAgentes_Objetivos_albaranes } IAgentes_Objetivos_albaranes = interface(IDAStronglyTypedDataTable) ['{C26C73B4-AE3D-4096-A8B2-89460246CC9A}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); function GetIDIsNull: Boolean; procedure SetIDIsNull(const aValue: Boolean); function GetID_AGENTEValue: Integer; procedure SetID_AGENTEValue(const aValue: Integer); function GetID_AGENTEIsNull: Boolean; procedure SetID_AGENTEIsNull(const aValue: Boolean); function GetANOValue: SmallInt; procedure SetANOValue(const aValue: SmallInt); function GetANOIsNull: Boolean; procedure SetANOIsNull(const aValue: Boolean); function GetMESValue: SmallInt; procedure SetMESValue(const aValue: SmallInt); function GetMESIsNull: Boolean; procedure SetMESIsNull(const aValue: Boolean); function GetDESCRIPCIONValue: String; procedure SetDESCRIPCIONValue(const aValue: String); function GetDESCRIPCIONIsNull: Boolean; procedure SetDESCRIPCIONIsNull(const aValue: Boolean); function GetUNIDADES_OBJETIVOValue: SmallInt; procedure SetUNIDADES_OBJETIVOValue(const aValue: SmallInt); function GetUNIDADES_OBJETIVOIsNull: Boolean; procedure SetUNIDADES_OBJETIVOIsNull(const aValue: Boolean); function GetIMPORTE_OBJETIVOValue: Currency; procedure SetIMPORTE_OBJETIVOValue(const aValue: Currency); function GetIMPORTE_OBJETIVOIsNull: Boolean; procedure SetIMPORTE_OBJETIVOIsNull(const aValue: Boolean); { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; property ANO: SmallInt read GetANOValue write SetANOValue; property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull; property MES: SmallInt read GetMESValue write SetMESValue; property MESIsNull: Boolean read GetMESIsNull write SetMESIsNull; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property UNIDADES_OBJETIVO: SmallInt read GetUNIDADES_OBJETIVOValue write SetUNIDADES_OBJETIVOValue; property UNIDADES_OBJETIVOIsNull: Boolean read GetUNIDADES_OBJETIVOIsNull write SetUNIDADES_OBJETIVOIsNull; property IMPORTE_OBJETIVO: Currency read GetIMPORTE_OBJETIVOValue write SetIMPORTE_OBJETIVOValue; property IMPORTE_OBJETIVOIsNull: Boolean read GetIMPORTE_OBJETIVOIsNull write SetIMPORTE_OBJETIVOIsNull; end; { TAgentes_Objetivos_albaranesDataTableRules } TAgentes_Objetivos_albaranesDataTableRules = class(TIntfObjectDADataTableRules, IAgentes_Objetivos_albaranes) private protected { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetIDIsNull: Boolean; virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_AGENTEValue: Integer; virtual; procedure SetID_AGENTEValue(const aValue: Integer); virtual; function GetID_AGENTEIsNull: Boolean; virtual; procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual; function GetANOValue: SmallInt; virtual; procedure SetANOValue(const aValue: SmallInt); virtual; function GetANOIsNull: Boolean; virtual; procedure SetANOIsNull(const aValue: Boolean); virtual; function GetMESValue: SmallInt; virtual; procedure SetMESValue(const aValue: SmallInt); virtual; function GetMESIsNull: Boolean; virtual; procedure SetMESIsNull(const aValue: Boolean); virtual; function GetDESCRIPCIONValue: String; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; function GetDESCRIPCIONIsNull: Boolean; virtual; procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; function GetUNIDADES_OBJETIVOValue: SmallInt; virtual; procedure SetUNIDADES_OBJETIVOValue(const aValue: SmallInt); virtual; function GetUNIDADES_OBJETIVOIsNull: Boolean; virtual; procedure SetUNIDADES_OBJETIVOIsNull(const aValue: Boolean); virtual; function GetIMPORTE_OBJETIVOValue: Currency; virtual; procedure SetIMPORTE_OBJETIVOValue(const aValue: Currency); virtual; function GetIMPORTE_OBJETIVOIsNull: Boolean; virtual; procedure SetIMPORTE_OBJETIVOIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; property ANO: SmallInt read GetANOValue write SetANOValue; property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull; property MES: SmallInt read GetMESValue write SetMESValue; property MESIsNull: Boolean read GetMESIsNull write SetMESIsNull; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property UNIDADES_OBJETIVO: SmallInt read GetUNIDADES_OBJETIVOValue write SetUNIDADES_OBJETIVOValue; property UNIDADES_OBJETIVOIsNull: Boolean read GetUNIDADES_OBJETIVOIsNull write SetUNIDADES_OBJETIVOIsNull; property IMPORTE_OBJETIVO: Currency read GetIMPORTE_OBJETIVOValue write SetIMPORTE_OBJETIVOValue; property IMPORTE_OBJETIVOIsNull: Boolean read GetIMPORTE_OBJETIVOIsNull write SetIMPORTE_OBJETIVOIsNull; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IAgentes_Objetivos_facturas } IAgentes_Objetivos_facturas = interface(IDAStronglyTypedDataTable) ['{58CDF992-ACFD-4418-A6BF-6BC1622EAFC2}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); function GetIDIsNull: Boolean; procedure SetIDIsNull(const aValue: Boolean); function GetID_AGENTEValue: Integer; procedure SetID_AGENTEValue(const aValue: Integer); function GetID_AGENTEIsNull: Boolean; procedure SetID_AGENTEIsNull(const aValue: Boolean); function GetANOValue: SmallInt; procedure SetANOValue(const aValue: SmallInt); function GetANOIsNull: Boolean; procedure SetANOIsNull(const aValue: Boolean); function GetMESValue: SmallInt; procedure SetMESValue(const aValue: SmallInt); function GetMESIsNull: Boolean; procedure SetMESIsNull(const aValue: Boolean); function GetDESCRIPCIONValue: String; procedure SetDESCRIPCIONValue(const aValue: String); function GetDESCRIPCIONIsNull: Boolean; procedure SetDESCRIPCIONIsNull(const aValue: Boolean); function GetUNIDADES_OBJETIVOValue: SmallInt; procedure SetUNIDADES_OBJETIVOValue(const aValue: SmallInt); function GetUNIDADES_OBJETIVOIsNull: Boolean; procedure SetUNIDADES_OBJETIVOIsNull(const aValue: Boolean); function GetIMPORTE_OBJETIVOValue: Currency; procedure SetIMPORTE_OBJETIVOValue(const aValue: Currency); function GetIMPORTE_OBJETIVOIsNull: Boolean; procedure SetIMPORTE_OBJETIVOIsNull(const aValue: Boolean); { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; property ANO: SmallInt read GetANOValue write SetANOValue; property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull; property MES: SmallInt read GetMESValue write SetMESValue; property MESIsNull: Boolean read GetMESIsNull write SetMESIsNull; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property UNIDADES_OBJETIVO: SmallInt read GetUNIDADES_OBJETIVOValue write SetUNIDADES_OBJETIVOValue; property UNIDADES_OBJETIVOIsNull: Boolean read GetUNIDADES_OBJETIVOIsNull write SetUNIDADES_OBJETIVOIsNull; property IMPORTE_OBJETIVO: Currency read GetIMPORTE_OBJETIVOValue write SetIMPORTE_OBJETIVOValue; property IMPORTE_OBJETIVOIsNull: Boolean read GetIMPORTE_OBJETIVOIsNull write SetIMPORTE_OBJETIVOIsNull; end; { TAgentes_Objetivos_facturasDataTableRules } TAgentes_Objetivos_facturasDataTableRules = class(TIntfObjectDADataTableRules, IAgentes_Objetivos_facturas) private protected { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetIDIsNull: Boolean; virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_AGENTEValue: Integer; virtual; procedure SetID_AGENTEValue(const aValue: Integer); virtual; function GetID_AGENTEIsNull: Boolean; virtual; procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual; function GetANOValue: SmallInt; virtual; procedure SetANOValue(const aValue: SmallInt); virtual; function GetANOIsNull: Boolean; virtual; procedure SetANOIsNull(const aValue: Boolean); virtual; function GetMESValue: SmallInt; virtual; procedure SetMESValue(const aValue: SmallInt); virtual; function GetMESIsNull: Boolean; virtual; procedure SetMESIsNull(const aValue: Boolean); virtual; function GetDESCRIPCIONValue: String; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; function GetDESCRIPCIONIsNull: Boolean; virtual; procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; function GetUNIDADES_OBJETIVOValue: SmallInt; virtual; procedure SetUNIDADES_OBJETIVOValue(const aValue: SmallInt); virtual; function GetUNIDADES_OBJETIVOIsNull: Boolean; virtual; procedure SetUNIDADES_OBJETIVOIsNull(const aValue: Boolean); virtual; function GetIMPORTE_OBJETIVOValue: Currency; virtual; procedure SetIMPORTE_OBJETIVOValue(const aValue: Currency); virtual; function GetIMPORTE_OBJETIVOIsNull: Boolean; virtual; procedure SetIMPORTE_OBJETIVOIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; property ANO: SmallInt read GetANOValue write SetANOValue; property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull; property MES: SmallInt read GetMESValue write SetMESValue; property MESIsNull: Boolean read GetMESIsNull write SetMESIsNull; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property UNIDADES_OBJETIVO: SmallInt read GetUNIDADES_OBJETIVOValue write SetUNIDADES_OBJETIVOValue; property UNIDADES_OBJETIVOIsNull: Boolean read GetUNIDADES_OBJETIVOIsNull write SetUNIDADES_OBJETIVOIsNull; property IMPORTE_OBJETIVO: Currency read GetIMPORTE_OBJETIVOValue write SetIMPORTE_OBJETIVOValue; property IMPORTE_OBJETIVOIsNull: Boolean read GetIMPORTE_OBJETIVOIsNull write SetIMPORTE_OBJETIVOIsNull; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IListaAnosObjetivosFac } IListaAnosObjetivosFac = interface(IDAStronglyTypedDataTable) ['{A6786803-EC64-44A7-89CB-A73090FE56F3}'] { Property getters and setters } function GetANOValue: SmallInt; procedure SetANOValue(const aValue: SmallInt); function GetANOIsNull: Boolean; procedure SetANOIsNull(const aValue: Boolean); { Properties } property ANO: SmallInt read GetANOValue write SetANOValue; property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull; end; { TListaAnosObjetivosFacDataTableRules } TListaAnosObjetivosFacDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosObjetivosFac) private protected { Property getters and setters } function GetANOValue: SmallInt; virtual; procedure SetANOValue(const aValue: SmallInt); virtual; function GetANOIsNull: Boolean; virtual; procedure SetANOIsNull(const aValue: Boolean); virtual; { Properties } property ANO: SmallInt read GetANOValue write SetANOValue; property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IIdiomas } IIdiomas = interface(IDAStronglyTypedDataTable) ['{6DFE3BEE-69BD-49F4-97F0-F730FCC9E889}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); function GetIDIsNull: Boolean; procedure SetIDIsNull(const aValue: Boolean); function GetISOValue: String; procedure SetISOValue(const aValue: String); function GetISOIsNull: Boolean; procedure SetISOIsNull(const aValue: Boolean); function GetDESCRIPCIONValue: String; procedure SetDESCRIPCIONValue(const aValue: String); function GetDESCRIPCIONIsNull: Boolean; procedure SetDESCRIPCIONIsNull(const aValue: Boolean); { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ISO: String read GetISOValue write SetISOValue; property ISOIsNull: Boolean read GetISOIsNull write SetISOIsNull; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; end; { TIdiomasDataTableRules } TIdiomasDataTableRules = class(TIntfObjectDADataTableRules, IIdiomas) private protected { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetIDIsNull: Boolean; virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetISOValue: String; virtual; procedure SetISOValue(const aValue: String); virtual; function GetISOIsNull: Boolean; virtual; procedure SetISOIsNull(const aValue: Boolean); virtual; function GetDESCRIPCIONValue: String; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; function GetDESCRIPCIONIsNull: Boolean; virtual; procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ISO: String read GetISOValue write SetISOValue; property ISOIsNull: Boolean read GetISOIsNull write SetISOIsNull; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { ITiposCliente } ITiposCliente = interface(IDAStronglyTypedDataTable) ['{0F7BCE1D-5E2E-4414-9103-F06BE5870454}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); function GetIDIsNull: Boolean; procedure SetIDIsNull(const aValue: Boolean); function GetDESCRIPCIONValue: String; procedure SetDESCRIPCIONValue(const aValue: String); function GetDESCRIPCIONIsNull: Boolean; procedure SetDESCRIPCIONIsNull(const aValue: Boolean); { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; end; { TTiposClienteDataTableRules } TTiposClienteDataTableRules = class(TIntfObjectDADataTableRules, ITiposCliente) private protected { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetIDIsNull: Boolean; virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetDESCRIPCIONValue: String; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; function GetDESCRIPCIONIsNull: Boolean; virtual; procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IClientesSucursales } IClientesSucursales = interface(IDAStronglyTypedDataTable) ['{0A7ECCDF-4397-438C-A4BA-2809BCC43975}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); function GetIDIsNull: Boolean; procedure SetIDIsNull(const aValue: Boolean); function GetID_CATEGORIAValue: Integer; procedure SetID_CATEGORIAValue(const aValue: Integer); function GetID_CATEGORIAIsNull: Boolean; procedure SetID_CATEGORIAIsNull(const aValue: Boolean); function GetNIF_CIFValue: String; procedure SetNIF_CIFValue(const aValue: String); function GetNIF_CIFIsNull: Boolean; procedure SetNIF_CIFIsNull(const aValue: Boolean); function GetNOMBREValue: String; procedure SetNOMBREValue(const aValue: String); function GetNOMBREIsNull: Boolean; procedure SetNOMBREIsNull(const aValue: Boolean); function GetPERSONA_CONTACTOValue: String; procedure SetPERSONA_CONTACTOValue(const aValue: String); function GetPERSONA_CONTACTOIsNull: Boolean; procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); function GetCALLEValue: String; procedure SetCALLEValue(const aValue: String); function GetCALLEIsNull: Boolean; procedure SetCALLEIsNull(const aValue: Boolean); function GetPOBLACIONValue: String; procedure SetPOBLACIONValue(const aValue: String); function GetPOBLACIONIsNull: Boolean; procedure SetPOBLACIONIsNull(const aValue: Boolean); function GetPROVINCIAValue: String; procedure SetPROVINCIAValue(const aValue: String); function GetPROVINCIAIsNull: Boolean; procedure SetPROVINCIAIsNull(const aValue: Boolean); function GetCODIGO_POSTALValue: String; procedure SetCODIGO_POSTALValue(const aValue: String); function GetCODIGO_POSTALIsNull: Boolean; procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); function GetTELEFONO_1Value: String; procedure SetTELEFONO_1Value(const aValue: String); function GetTELEFONO_1IsNull: Boolean; procedure SetTELEFONO_1IsNull(const aValue: Boolean); function GetTELEFONO_2Value: String; procedure SetTELEFONO_2Value(const aValue: String); function GetTELEFONO_2IsNull: Boolean; procedure SetTELEFONO_2IsNull(const aValue: Boolean); function GetMOVIL_1Value: String; procedure SetMOVIL_1Value(const aValue: String); function GetMOVIL_1IsNull: Boolean; procedure SetMOVIL_1IsNull(const aValue: Boolean); function GetMOVIL_2Value: String; procedure SetMOVIL_2Value(const aValue: String); function GetMOVIL_2IsNull: Boolean; procedure SetMOVIL_2IsNull(const aValue: Boolean); function GetFAXValue: String; procedure SetFAXValue(const aValue: String); function GetFAXIsNull: Boolean; procedure SetFAXIsNull(const aValue: Boolean); function GetEMAIL_1Value: String; procedure SetEMAIL_1Value(const aValue: String); function GetEMAIL_1IsNull: Boolean; procedure SetEMAIL_1IsNull(const aValue: Boolean); function GetEMAIL_2Value: String; procedure SetEMAIL_2Value(const aValue: String); function GetEMAIL_2IsNull: Boolean; procedure SetEMAIL_2IsNull(const aValue: Boolean); function GetPAGINA_WEBValue: String; procedure SetPAGINA_WEBValue(const aValue: String); function GetPAGINA_WEBIsNull: Boolean; procedure SetPAGINA_WEBIsNull(const aValue: Boolean); function GetNOTASValue: IROStrings; function GetNOTASIsNull: Boolean; procedure SetNOTASIsNull(const aValue: Boolean); function GetFECHA_ALTAValue: DateTime; procedure SetFECHA_ALTAValue(const aValue: DateTime); function GetFECHA_ALTAIsNull: Boolean; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); function GetFECHA_MODIFICACIONValue: DateTime; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); function GetFECHA_MODIFICACIONIsNull: Boolean; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); function GetUSUARIOValue: String; procedure SetUSUARIOValue(const aValue: String); function GetUSUARIOIsNull: Boolean; procedure SetUSUARIOIsNull(const aValue: Boolean); function GetID_EMPRESAValue: Integer; procedure SetID_EMPRESAValue(const aValue: Integer); function GetID_EMPRESAIsNull: Boolean; procedure SetID_EMPRESAIsNull(const aValue: Boolean); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); function GetREFERENCIAIsNull: Boolean; procedure SetREFERENCIAIsNull(const aValue: Boolean); function GetID_AGENTEValue: Integer; procedure SetID_AGENTEValue(const aValue: Integer); function GetID_AGENTEIsNull: Boolean; procedure SetID_AGENTEIsNull(const aValue: Boolean); function GetGRUPO_CLIENTEValue: String; procedure SetGRUPO_CLIENTEValue(const aValue: String); function GetGRUPO_CLIENTEIsNull: Boolean; procedure SetGRUPO_CLIENTEIsNull(const aValue: Boolean); function GetNOMBRE_COMERCIALValue: String; procedure SetNOMBRE_COMERCIALValue(const aValue: String); function GetNOMBRE_COMERCIALIsNull: Boolean; procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); function GetVENCIMIENTO_FACTURAS_1Value: SmallInt; procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); function GetVENCIMIENTO_FACTURAS_2Value: SmallInt; procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); function GetVENCIMIENTO_FACTURAS_3Value: SmallInt; procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); function GetBLOQUEADOValue: SmallInt; procedure SetBLOQUEADOValue(const aValue: SmallInt); function GetBLOQUEADOIsNull: Boolean; procedure SetBLOQUEADOIsNull(const aValue: Boolean); function GetAGENTEValue: String; procedure SetAGENTEValue(const aValue: String); function GetAGENTEIsNull: Boolean; procedure SetAGENTEIsNull(const aValue: Boolean); function GetRAPELValue: SmallInt; procedure SetRAPELValue(const aValue: SmallInt); function GetRAPELIsNull: Boolean; procedure SetRAPELIsNull(const aValue: Boolean); function GetEMAIL_ADMINISTRACIONValue: String; procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); function GetEMAIL_ADMINISTRACIONIsNull: Boolean; procedure SetEMAIL_ADMINISTRACIONIsNull(const aValue: Boolean); function GetREGIMEN_IVAValue: String; procedure SetREGIMEN_IVAValue(const aValue: String); function GetREGIMEN_IVAIsNull: Boolean; procedure SetREGIMEN_IVAIsNull(const aValue: Boolean); function GetMOTIVO_BLOQUEOValue: String; procedure SetMOTIVO_BLOQUEOValue(const aValue: String); function GetMOTIVO_BLOQUEOIsNull: Boolean; procedure SetMOTIVO_BLOQUEOIsNull(const aValue: Boolean); function GetRECARGO_EQUIVALENCIAValue: Integer; procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); function GetRECARGO_EQUIVALENCIAIsNull: Boolean; procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); function GetID_TIPO_IVAValue: Integer; procedure SetID_TIPO_IVAValue(const aValue: Integer); function GetID_TIPO_IVAIsNull: Boolean; procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); function GetID_FORMA_PAGOValue: Integer; procedure SetID_FORMA_PAGOValue(const aValue: Integer); function GetID_FORMA_PAGOIsNull: Boolean; procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); function GetTIENDA_WEBValue: SmallInt; procedure SetTIENDA_WEBValue(const aValue: SmallInt); function GetTIENDA_WEBIsNull: Boolean; procedure SetTIENDA_WEBIsNull(const aValue: Boolean); function GetCODIGO_ASIGNADOValue: String; procedure SetCODIGO_ASIGNADOValue(const aValue: String); function GetCODIGO_ASIGNADOIsNull: Boolean; procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); function GetDESCUENTOValue: Float; procedure SetDESCUENTOValue(const aValue: Float); function GetDESCUENTOIsNull: Boolean; procedure SetDESCUENTOIsNull(const aValue: Boolean); function GetFELICITACIONValue: SmallInt; procedure SetFELICITACIONValue(const aValue: SmallInt); function GetFELICITACIONIsNull: Boolean; procedure SetFELICITACIONIsNull(const aValue: Boolean); function GetTIPO_CLIENTEValue: String; procedure SetTIPO_CLIENTEValue(const aValue: String); function GetTIPO_CLIENTEIsNull: Boolean; procedure SetTIPO_CLIENTEIsNull(const aValue: Boolean); function GetSEPAValue: SmallInt; procedure SetSEPAValue(const aValue: SmallInt); function GetSEPAIsNull: Boolean; procedure SetSEPAIsNull(const aValue: Boolean); function GetID_CENTRALValue: Integer; procedure SetID_CENTRALValue(const aValue: Integer); function GetID_CENTRALIsNull: Boolean; procedure SetID_CENTRALIsNull(const aValue: Boolean); { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue; property ID_CATEGORIAIsNull: Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property CALLE: String read GetCALLEValue write SetCALLEValue; property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value; property TELEFONO_1IsNull: Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull; property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value; property TELEFONO_2IsNull: Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull; property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value; property MOVIL_1IsNull: Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull; property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value; property MOVIL_2IsNull: Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull; property FAX: String read GetFAXValue write SetFAXValue; property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull; property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value; property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull; property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value; property EMAIL_2IsNull: Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull; property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; property PAGINA_WEBIsNull: Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull; property NOTAS: IROStrings read GetNOTASValue; property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull; property VENCIMIENTO_FACTURAS_1: SmallInt read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; property VENCIMIENTO_FACTURAS_1IsNull: Boolean read GetVENCIMIENTO_FACTURAS_1IsNull write SetVENCIMIENTO_FACTURAS_1IsNull; property VENCIMIENTO_FACTURAS_2: SmallInt read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; property VENCIMIENTO_FACTURAS_2IsNull: Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull; property VENCIMIENTO_FACTURAS_3: SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull; property BLOQUEADO: SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue; property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull; property AGENTE: String read GetAGENTEValue write SetAGENTEValue; property AGENTEIsNull: Boolean read GetAGENTEIsNull write SetAGENTEIsNull; property RAPEL: SmallInt read GetRAPELValue write SetRAPELValue; property RAPELIsNull: Boolean read GetRAPELIsNull write SetRAPELIsNull; property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue; property EMAIL_ADMINISTRACIONIsNull: Boolean read GetEMAIL_ADMINISTRACIONIsNull write SetEMAIL_ADMINISTRACIONIsNull; property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; property REGIMEN_IVAIsNull: Boolean read GetREGIMEN_IVAIsNull write SetREGIMEN_IVAIsNull; property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue; property MOTIVO_BLOQUEOIsNull: Boolean read GetMOTIVO_BLOQUEOIsNull write SetMOTIVO_BLOQUEOIsNull; property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull; property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; property TIENDA_WEB: SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull; property CODIGO_ASIGNADO: String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue; property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property FELICITACION: SmallInt read GetFELICITACIONValue write SetFELICITACIONValue; property FELICITACIONIsNull: Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull; property TIPO_CLIENTE: String read GetTIPO_CLIENTEValue write SetTIPO_CLIENTEValue; property TIPO_CLIENTEIsNull: Boolean read GetTIPO_CLIENTEIsNull write SetTIPO_CLIENTEIsNull; property SEPA: SmallInt read GetSEPAValue write SetSEPAValue; property SEPAIsNull: Boolean read GetSEPAIsNull write SetSEPAIsNull; property ID_CENTRAL: Integer read GetID_CENTRALValue write SetID_CENTRALValue; property ID_CENTRALIsNull: Boolean read GetID_CENTRALIsNull write SetID_CENTRALIsNull; end; { TClientesSucursalesDataTableRules } TClientesSucursalesDataTableRules = class(TIntfObjectDADataTableRules, IClientesSucursales) private f_NOTAS: IROStrings; procedure NOTAS_OnChange(Sender: TObject); protected { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetIDIsNull: Boolean; virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_CATEGORIAValue: Integer; virtual; procedure SetID_CATEGORIAValue(const aValue: Integer); virtual; function GetID_CATEGORIAIsNull: Boolean; virtual; procedure SetID_CATEGORIAIsNull(const aValue: Boolean); virtual; function GetNIF_CIFValue: String; virtual; procedure SetNIF_CIFValue(const aValue: String); virtual; function GetNIF_CIFIsNull: Boolean; virtual; procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual; function GetNOMBREValue: String; virtual; procedure SetNOMBREValue(const aValue: String); virtual; function GetNOMBREIsNull: Boolean; virtual; procedure SetNOMBREIsNull(const aValue: Boolean); virtual; function GetPERSONA_CONTACTOValue: String; virtual; procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; function GetPERSONA_CONTACTOIsNull: Boolean; virtual; procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual; function GetCALLEValue: String; virtual; procedure SetCALLEValue(const aValue: String); virtual; function GetCALLEIsNull: Boolean; virtual; procedure SetCALLEIsNull(const aValue: Boolean); virtual; function GetPOBLACIONValue: String; virtual; procedure SetPOBLACIONValue(const aValue: String); virtual; function GetPOBLACIONIsNull: Boolean; virtual; procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual; function GetPROVINCIAValue: String; virtual; procedure SetPROVINCIAValue(const aValue: String); virtual; function GetPROVINCIAIsNull: Boolean; virtual; procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual; function GetCODIGO_POSTALValue: String; virtual; procedure SetCODIGO_POSTALValue(const aValue: String); virtual; function GetCODIGO_POSTALIsNull: Boolean; virtual; procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; function GetTELEFONO_1Value: String; virtual; procedure SetTELEFONO_1Value(const aValue: String); virtual; function GetTELEFONO_1IsNull: Boolean; virtual; procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual; function GetTELEFONO_2Value: String; virtual; procedure SetTELEFONO_2Value(const aValue: String); virtual; function GetTELEFONO_2IsNull: Boolean; virtual; procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual; function GetMOVIL_1Value: String; virtual; procedure SetMOVIL_1Value(const aValue: String); virtual; function GetMOVIL_1IsNull: Boolean; virtual; procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual; function GetMOVIL_2Value: String; virtual; procedure SetMOVIL_2Value(const aValue: String); virtual; function GetMOVIL_2IsNull: Boolean; virtual; procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual; function GetFAXValue: String; virtual; procedure SetFAXValue(const aValue: String); virtual; function GetFAXIsNull: Boolean; virtual; procedure SetFAXIsNull(const aValue: Boolean); virtual; function GetEMAIL_1Value: String; virtual; procedure SetEMAIL_1Value(const aValue: String); virtual; function GetEMAIL_1IsNull: Boolean; virtual; procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual; function GetEMAIL_2Value: String; virtual; procedure SetEMAIL_2Value(const aValue: String); virtual; function GetEMAIL_2IsNull: Boolean; virtual; procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual; function GetPAGINA_WEBValue: String; virtual; procedure SetPAGINA_WEBValue(const aValue: String); virtual; function GetPAGINA_WEBIsNull: Boolean; virtual; procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual; function GetNOTASValue: IROStrings; virtual; function GetNOTASIsNull: Boolean; virtual; procedure SetNOTASIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; function GetFECHA_MODIFICACIONValue: DateTime; virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; function GetUSUARIOValue: String; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; function GetUSUARIOIsNull: Boolean; virtual; procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; function GetID_EMPRESAValue: Integer; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; function GetID_EMPRESAIsNull: Boolean; virtual; procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; function GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; function GetREFERENCIAIsNull: Boolean; virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; function GetID_AGENTEValue: Integer; virtual; procedure SetID_AGENTEValue(const aValue: Integer); virtual; function GetID_AGENTEIsNull: Boolean; virtual; procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual; function GetGRUPO_CLIENTEValue: String; virtual; procedure SetGRUPO_CLIENTEValue(const aValue: String); virtual; function GetGRUPO_CLIENTEIsNull: Boolean; virtual; procedure SetGRUPO_CLIENTEIsNull(const aValue: Boolean); virtual; function GetNOMBRE_COMERCIALValue: String; virtual; procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual; function GetNOMBRE_COMERCIALIsNull: Boolean; virtual; procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual; function GetVENCIMIENTO_FACTURAS_1Value: SmallInt; virtual; procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); virtual; function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual; procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); virtual; function GetVENCIMIENTO_FACTURAS_2Value: SmallInt; virtual; procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); virtual; function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual; procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); virtual; function GetVENCIMIENTO_FACTURAS_3Value: SmallInt; virtual; procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); virtual; function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual; procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual; function GetBLOQUEADOValue: SmallInt; virtual; procedure SetBLOQUEADOValue(const aValue: SmallInt); virtual; function GetBLOQUEADOIsNull: Boolean; virtual; procedure SetBLOQUEADOIsNull(const aValue: Boolean); virtual; function GetAGENTEValue: String; virtual; procedure SetAGENTEValue(const aValue: String); virtual; function GetAGENTEIsNull: Boolean; virtual; procedure SetAGENTEIsNull(const aValue: Boolean); virtual; function GetRAPELValue: SmallInt; virtual; procedure SetRAPELValue(const aValue: SmallInt); virtual; function GetRAPELIsNull: Boolean; virtual; procedure SetRAPELIsNull(const aValue: Boolean); virtual; function GetEMAIL_ADMINISTRACIONValue: String; virtual; procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); virtual; function GetEMAIL_ADMINISTRACIONIsNull: Boolean; virtual; procedure SetEMAIL_ADMINISTRACIONIsNull(const aValue: Boolean); virtual; function GetREGIMEN_IVAValue: String; virtual; procedure SetREGIMEN_IVAValue(const aValue: String); virtual; function GetREGIMEN_IVAIsNull: Boolean; virtual; procedure SetREGIMEN_IVAIsNull(const aValue: Boolean); virtual; function GetMOTIVO_BLOQUEOValue: String; virtual; procedure SetMOTIVO_BLOQUEOValue(const aValue: String); virtual; function GetMOTIVO_BLOQUEOIsNull: Boolean; virtual; procedure SetMOTIVO_BLOQUEOIsNull(const aValue: Boolean); virtual; function GetRECARGO_EQUIVALENCIAValue: Integer; virtual; procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); virtual; function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual; procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual; function GetID_TIPO_IVAValue: Integer; virtual; procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual; function GetID_TIPO_IVAIsNull: Boolean; virtual; procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); virtual; function GetID_FORMA_PAGOValue: Integer; virtual; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; function GetID_FORMA_PAGOIsNull: Boolean; virtual; procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual; function GetTIENDA_WEBValue: SmallInt; virtual; procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual; function GetTIENDA_WEBIsNull: Boolean; virtual; procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual; function GetCODIGO_ASIGNADOValue: String; virtual; procedure SetCODIGO_ASIGNADOValue(const aValue: String); virtual; function GetCODIGO_ASIGNADOIsNull: Boolean; virtual; procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); virtual; function GetDESCUENTOValue: Float; virtual; procedure SetDESCUENTOValue(const aValue: Float); virtual; function GetDESCUENTOIsNull: Boolean; virtual; procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; function GetFELICITACIONValue: SmallInt; virtual; procedure SetFELICITACIONValue(const aValue: SmallInt); virtual; function GetFELICITACIONIsNull: Boolean; virtual; procedure SetFELICITACIONIsNull(const aValue: Boolean); virtual; function GetTIPO_CLIENTEValue: String; virtual; procedure SetTIPO_CLIENTEValue(const aValue: String); virtual; function GetTIPO_CLIENTEIsNull: Boolean; virtual; procedure SetTIPO_CLIENTEIsNull(const aValue: Boolean); virtual; function GetSEPAValue: SmallInt; virtual; procedure SetSEPAValue(const aValue: SmallInt); virtual; function GetSEPAIsNull: Boolean; virtual; procedure SetSEPAIsNull(const aValue: Boolean); virtual; function GetID_CENTRALValue: Integer; virtual; procedure SetID_CENTRALValue(const aValue: Integer); virtual; function GetID_CENTRALIsNull: Boolean; virtual; procedure SetID_CENTRALIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue; property ID_CATEGORIAIsNull: Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property CALLE: String read GetCALLEValue write SetCALLEValue; property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value; property TELEFONO_1IsNull: Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull; property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value; property TELEFONO_2IsNull: Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull; property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value; property MOVIL_1IsNull: Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull; property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value; property MOVIL_2IsNull: Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull; property FAX: String read GetFAXValue write SetFAXValue; property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull; property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value; property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull; property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value; property EMAIL_2IsNull: Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull; property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; property PAGINA_WEBIsNull: Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull; property NOTAS: IROStrings read GetNOTASValue; property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull; property VENCIMIENTO_FACTURAS_1: SmallInt read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; property VENCIMIENTO_FACTURAS_1IsNull: Boolean read GetVENCIMIENTO_FACTURAS_1IsNull write SetVENCIMIENTO_FACTURAS_1IsNull; property VENCIMIENTO_FACTURAS_2: SmallInt read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; property VENCIMIENTO_FACTURAS_2IsNull: Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull; property VENCIMIENTO_FACTURAS_3: SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull; property BLOQUEADO: SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue; property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull; property AGENTE: String read GetAGENTEValue write SetAGENTEValue; property AGENTEIsNull: Boolean read GetAGENTEIsNull write SetAGENTEIsNull; property RAPEL: SmallInt read GetRAPELValue write SetRAPELValue; property RAPELIsNull: Boolean read GetRAPELIsNull write SetRAPELIsNull; property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue; property EMAIL_ADMINISTRACIONIsNull: Boolean read GetEMAIL_ADMINISTRACIONIsNull write SetEMAIL_ADMINISTRACIONIsNull; property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; property REGIMEN_IVAIsNull: Boolean read GetREGIMEN_IVAIsNull write SetREGIMEN_IVAIsNull; property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue; property MOTIVO_BLOQUEOIsNull: Boolean read GetMOTIVO_BLOQUEOIsNull write SetMOTIVO_BLOQUEOIsNull; property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull; property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; property TIENDA_WEB: SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull; property CODIGO_ASIGNADO: String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue; property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property FELICITACION: SmallInt read GetFELICITACIONValue write SetFELICITACIONValue; property FELICITACIONIsNull: Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull; property TIPO_CLIENTE: String read GetTIPO_CLIENTEValue write SetTIPO_CLIENTEValue; property TIPO_CLIENTEIsNull: Boolean read GetTIPO_CLIENTEIsNull write SetTIPO_CLIENTEIsNull; property SEPA: SmallInt read GetSEPAValue write SetSEPAValue; property SEPAIsNull: Boolean read GetSEPAIsNull write SetSEPAIsNull; property ID_CENTRAL: Integer read GetID_CENTRALValue write SetID_CENTRALValue; property ID_CENTRALIsNull: Boolean read GetID_CENTRALIsNull write SetID_CENTRALIsNull; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; implementation uses Variants, uROBinaryHelpers; { TContactosDataTableRules } constructor TContactosDataTableRules.Create(aDataTable: TDADataTable); var StrList: TStringList; begin inherited; StrList := TStringList.Create; StrList.OnChange := NOTAS_OnChange; f_NOTAS := NewROStrings(StrList,True); end; destructor TContactosDataTableRules.Destroy; begin inherited; end; procedure TContactosDataTableRules.NOTAS_OnChange(Sender: TObject); begin if DataTable.Editing then DataTable.Fields[idx_ContactosNOTAS].AsVariant := TStringList(Sender).Text; 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.GetIDIsNull: boolean; begin result := DataTable.Fields[idx_ContactosID].IsNull; end; procedure TContactosDataTableRules.SetIDIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ContactosID].AsVariant := Null; 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.GetID_CATEGORIAIsNull: boolean; begin result := DataTable.Fields[idx_ContactosID_CATEGORIA].IsNull; end; procedure TContactosDataTableRules.SetID_CATEGORIAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ContactosID_CATEGORIA].AsVariant := Null; 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.GetNIF_CIFIsNull: boolean; begin result := DataTable.Fields[idx_ContactosNIF_CIF].IsNull; end; procedure TContactosDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ContactosNIF_CIF].AsVariant := Null; 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.GetNOMBREIsNull: boolean; begin result := DataTable.Fields[idx_ContactosNOMBRE].IsNull; end; procedure TContactosDataTableRules.SetNOMBREIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ContactosNOMBRE].AsVariant := Null; 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.GetPERSONA_CONTACTOIsNull: boolean; begin result := DataTable.Fields[idx_ContactosPERSONA_CONTACTO].IsNull; end; procedure TContactosDataTableRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ContactosPERSONA_CONTACTO].AsVariant := Null; 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.GetCALLEIsNull: boolean; begin result := DataTable.Fields[idx_ContactosCALLE].IsNull; end; procedure TContactosDataTableRules.SetCALLEIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ContactosCALLE].AsVariant := Null; 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.GetPOBLACIONIsNull: boolean; begin result := DataTable.Fields[idx_ContactosPOBLACION].IsNull; end; procedure TContactosDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ContactosPOBLACION].AsVariant := Null; 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.GetPROVINCIAIsNull: boolean; begin result := DataTable.Fields[idx_ContactosPROVINCIA].IsNull; end; procedure TContactosDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ContactosPROVINCIA].AsVariant := Null; 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.GetCODIGO_POSTALIsNull: boolean; begin result := DataTable.Fields[idx_ContactosCODIGO_POSTAL].IsNull; end; procedure TContactosDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ContactosCODIGO_POSTAL].AsVariant := Null; end; function TContactosDataTableRules.GetPAISValue: String; begin result := DataTable.Fields[idx_ContactosPAIS].AsString; end; procedure TContactosDataTableRules.SetPAISValue(const aValue: String); begin DataTable.Fields[idx_ContactosPAIS].AsString := aValue; end; function TContactosDataTableRules.GetPAISIsNull: boolean; begin result := DataTable.Fields[idx_ContactosPAIS].IsNull; end; procedure TContactosDataTableRules.SetPAISIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ContactosPAIS].AsVariant := Null; end; function TContactosDataTableRules.GetIDIOMA_ISOValue: String; begin result := DataTable.Fields[idx_ContactosIDIOMA_ISO].AsString; end; procedure TContactosDataTableRules.SetIDIOMA_ISOValue(const aValue: String); begin DataTable.Fields[idx_ContactosIDIOMA_ISO].AsString := aValue; end; function TContactosDataTableRules.GetIDIOMA_ISOIsNull: boolean; begin result := DataTable.Fields[idx_ContactosIDIOMA_ISO].IsNull; end; procedure TContactosDataTableRules.SetIDIOMA_ISOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ContactosIDIOMA_ISO].AsVariant := Null; end; function TContactosDataTableRules.GetIDIOMAValue: String; begin result := DataTable.Fields[idx_ContactosIDIOMA].AsString; end; procedure TContactosDataTableRules.SetIDIOMAValue(const aValue: String); begin DataTable.Fields[idx_ContactosIDIOMA].AsString := aValue; end; function TContactosDataTableRules.GetIDIOMAIsNull: boolean; begin result := DataTable.Fields[idx_ContactosIDIOMA].IsNull; end; procedure TContactosDataTableRules.SetIDIOMAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ContactosIDIOMA].AsVariant := Null; 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_1IsNull: boolean; begin result := DataTable.Fields[idx_ContactosTELEFONO_1].IsNull; end; procedure TContactosDataTableRules.SetTELEFONO_1IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ContactosTELEFONO_1].AsVariant := Null; 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.GetTELEFONO_2IsNull: boolean; begin result := DataTable.Fields[idx_ContactosTELEFONO_2].IsNull; end; procedure TContactosDataTableRules.SetTELEFONO_2IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ContactosTELEFONO_2].AsVariant := Null; 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_1IsNull: boolean; begin result := DataTable.Fields[idx_ContactosMOVIL_1].IsNull; end; procedure TContactosDataTableRules.SetMOVIL_1IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ContactosMOVIL_1].AsVariant := Null; 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.GetMOVIL_2IsNull: boolean; begin result := DataTable.Fields[idx_ContactosMOVIL_2].IsNull; end; procedure TContactosDataTableRules.SetMOVIL_2IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ContactosMOVIL_2].AsVariant := Null; 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.GetFAXIsNull: boolean; begin result := DataTable.Fields[idx_ContactosFAX].IsNull; end; procedure TContactosDataTableRules.SetFAXIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ContactosFAX].AsVariant := Null; 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_1IsNull: boolean; begin result := DataTable.Fields[idx_ContactosEMAIL_1].IsNull; end; procedure TContactosDataTableRules.SetEMAIL_1IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ContactosEMAIL_1].AsVariant := Null; 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.GetEMAIL_2IsNull: boolean; begin result := DataTable.Fields[idx_ContactosEMAIL_2].IsNull; end; procedure TContactosDataTableRules.SetEMAIL_2IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ContactosEMAIL_2].AsVariant := Null; 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.GetPAGINA_WEBIsNull: boolean; begin result := DataTable.Fields[idx_ContactosPAGINA_WEB].IsNull; end; procedure TContactosDataTableRules.SetPAGINA_WEBIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ContactosPAGINA_WEB].AsVariant := Null; end; function TContactosDataTableRules.GetNOTASValue: IROStrings; begin result := f_NOTAS; result.Text := DataTable.Fields[idx_ContactosNOTAS].AsString; end; function TContactosDataTableRules.GetNOTASIsNull: boolean; begin result := DataTable.Fields[idx_ContactosNOTAS].IsNull; end; procedure TContactosDataTableRules.SetNOTASIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ContactosNOTAS].AsVariant := Null; end; function TContactosDataTableRules.GetFECHA_ALTAValue: DateTime; begin result := DataTable.Fields[idx_ContactosFECHA_ALTA].AsDateTime; end; procedure TContactosDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); begin DataTable.Fields[idx_ContactosFECHA_ALTA].AsDateTime := aValue; end; function TContactosDataTableRules.GetFECHA_ALTAIsNull: boolean; begin result := DataTable.Fields[idx_ContactosFECHA_ALTA].IsNull; end; procedure TContactosDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ContactosFECHA_ALTA].AsVariant := Null; end; function TContactosDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := DataTable.Fields[idx_ContactosFECHA_MODIFICACION].AsDateTime; end; procedure TContactosDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin DataTable.Fields[idx_ContactosFECHA_MODIFICACION].AsDateTime := aValue; end; function TContactosDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean; begin result := DataTable.Fields[idx_ContactosFECHA_MODIFICACION].IsNull; end; procedure TContactosDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ContactosFECHA_MODIFICACION].AsVariant := Null; 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.GetUSUARIOIsNull: boolean; begin result := DataTable.Fields[idx_ContactosUSUARIO].IsNull; end; procedure TContactosDataTableRules.SetUSUARIOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ContactosUSUARIO].AsVariant := Null; 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.GetID_EMPRESAIsNull: boolean; begin result := DataTable.Fields[idx_ContactosID_EMPRESA].IsNull; end; procedure TContactosDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ContactosID_EMPRESA].AsVariant := Null; 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; function TContactosDataTableRules.GetREFERENCIAIsNull: boolean; begin result := DataTable.Fields[idx_ContactosREFERENCIA].IsNull; end; procedure TContactosDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ContactosREFERENCIA].AsVariant := Null; end; { TGruposClienteDataTableRules } constructor TGruposClienteDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TGruposClienteDataTableRules.Destroy; begin inherited; end; function TGruposClienteDataTableRules.GetIDValue: Integer; begin result := DataTable.Fields[idx_GruposClienteID].AsInteger; end; procedure TGruposClienteDataTableRules.SetIDValue(const aValue: Integer); begin DataTable.Fields[idx_GruposClienteID].AsInteger := aValue; end; function TGruposClienteDataTableRules.GetIDIsNull: boolean; begin result := DataTable.Fields[idx_GruposClienteID].IsNull; end; procedure TGruposClienteDataTableRules.SetIDIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_GruposClienteID].AsVariant := Null; 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; function TGruposClienteDataTableRules.GetDESCRIPCIONIsNull: boolean; begin result := DataTable.Fields[idx_GruposClienteDESCRIPCION].IsNull; end; procedure TGruposClienteDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_GruposClienteDESCRIPCION].AsVariant := Null; 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.GetIDIsNull: boolean; begin result := DataTable.Fields[idx_DatosBancariosID].IsNull; end; procedure TDatosBancariosDataTableRules.SetIDIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_DatosBancariosID].AsVariant := Null; 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.GetID_CONTACTOIsNull: boolean; begin result := DataTable.Fields[idx_DatosBancariosID_CONTACTO].IsNull; end; procedure TDatosBancariosDataTableRules.SetID_CONTACTOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_DatosBancariosID_CONTACTO].AsVariant := Null; 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.GetTITULARIsNull: boolean; begin result := DataTable.Fields[idx_DatosBancariosTITULAR].IsNull; end; procedure TDatosBancariosDataTableRules.SetTITULARIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_DatosBancariosTITULAR].AsVariant := Null; 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.GetENTIDADIsNull: boolean; begin result := DataTable.Fields[idx_DatosBancariosENTIDAD].IsNull; end; procedure TDatosBancariosDataTableRules.SetENTIDADIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_DatosBancariosENTIDAD].AsVariant := Null; 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.GetSUCURSALIsNull: boolean; begin result := DataTable.Fields[idx_DatosBancariosSUCURSAL].IsNull; end; procedure TDatosBancariosDataTableRules.SetSUCURSALIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_DatosBancariosSUCURSAL].AsVariant := Null; 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.GetDCIsNull: boolean; begin result := DataTable.Fields[idx_DatosBancariosDC].IsNull; end; procedure TDatosBancariosDataTableRules.SetDCIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_DatosBancariosDC].AsVariant := Null; 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; function TDatosBancariosDataTableRules.GetCUENTAIsNull: boolean; begin result := DataTable.Fields[idx_DatosBancariosCUENTA].IsNull; end; procedure TDatosBancariosDataTableRules.SetCUENTAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_DatosBancariosCUENTA].AsVariant := Null; end; function TDatosBancariosDataTableRules.GetFECHA_ALTAValue: DateTime; begin result := DataTable.Fields[idx_DatosBancariosFECHA_ALTA].AsDateTime; end; procedure TDatosBancariosDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); begin DataTable.Fields[idx_DatosBancariosFECHA_ALTA].AsDateTime := aValue; end; function TDatosBancariosDataTableRules.GetFECHA_ALTAIsNull: boolean; begin result := DataTable.Fields[idx_DatosBancariosFECHA_ALTA].IsNull; end; procedure TDatosBancariosDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_DatosBancariosFECHA_ALTA].AsVariant := Null; end; function TDatosBancariosDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := DataTable.Fields[idx_DatosBancariosFECHA_MODIFICACION].AsDateTime; end; procedure TDatosBancariosDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin DataTable.Fields[idx_DatosBancariosFECHA_MODIFICACION].AsDateTime := aValue; end; function TDatosBancariosDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean; begin result := DataTable.Fields[idx_DatosBancariosFECHA_MODIFICACION].IsNull; end; procedure TDatosBancariosDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_DatosBancariosFECHA_MODIFICACION].AsVariant := Null; end; function TDatosBancariosDataTableRules.GetIBANValue: String; begin result := DataTable.Fields[idx_DatosBancariosIBAN].AsString; end; procedure TDatosBancariosDataTableRules.SetIBANValue(const aValue: String); begin DataTable.Fields[idx_DatosBancariosIBAN].AsString := aValue; end; function TDatosBancariosDataTableRules.GetIBANIsNull: boolean; begin result := DataTable.Fields[idx_DatosBancariosIBAN].IsNull; end; procedure TDatosBancariosDataTableRules.SetIBANIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_DatosBancariosIBAN].AsVariant := Null; end; function TDatosBancariosDataTableRules.GetSWIFTValue: String; begin result := DataTable.Fields[idx_DatosBancariosSWIFT].AsString; end; procedure TDatosBancariosDataTableRules.SetSWIFTValue(const aValue: String); begin DataTable.Fields[idx_DatosBancariosSWIFT].AsString := aValue; end; function TDatosBancariosDataTableRules.GetSWIFTIsNull: boolean; begin result := DataTable.Fields[idx_DatosBancariosSWIFT].IsNull; end; procedure TDatosBancariosDataTableRules.SetSWIFTIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_DatosBancariosSWIFT].AsVariant := Null; end; { TClientesDataTableRules } constructor TClientesDataTableRules.Create(aDataTable: TDADataTable); var StrList: TStringList; begin inherited; StrList := TStringList.Create; StrList.OnChange := NOTAS_OnChange; f_NOTAS := NewROStrings(StrList,True); end; destructor TClientesDataTableRules.Destroy; begin inherited; end; procedure TClientesDataTableRules.NOTAS_OnChange(Sender: TObject); begin if DataTable.Editing then DataTable.Fields[idx_ClientesNOTAS].AsVariant := TStringList(Sender).Text; 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.GetIDIsNull: boolean; begin result := DataTable.Fields[idx_ClientesID].IsNull; end; procedure TClientesDataTableRules.SetIDIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesID].AsVariant := Null; 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.GetID_CATEGORIAIsNull: boolean; begin result := DataTable.Fields[idx_ClientesID_CATEGORIA].IsNull; end; procedure TClientesDataTableRules.SetID_CATEGORIAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesID_CATEGORIA].AsVariant := Null; 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.GetNIF_CIFIsNull: boolean; begin result := DataTable.Fields[idx_ClientesNIF_CIF].IsNull; end; procedure TClientesDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesNIF_CIF].AsVariant := Null; 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.GetNOMBREIsNull: boolean; begin result := DataTable.Fields[idx_ClientesNOMBRE].IsNull; end; procedure TClientesDataTableRules.SetNOMBREIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesNOMBRE].AsVariant := Null; 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.GetPERSONA_CONTACTOIsNull: boolean; begin result := DataTable.Fields[idx_ClientesPERSONA_CONTACTO].IsNull; end; procedure TClientesDataTableRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesPERSONA_CONTACTO].AsVariant := Null; 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.GetCALLEIsNull: boolean; begin result := DataTable.Fields[idx_ClientesCALLE].IsNull; end; procedure TClientesDataTableRules.SetCALLEIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesCALLE].AsVariant := Null; 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.GetPOBLACIONIsNull: boolean; begin result := DataTable.Fields[idx_ClientesPOBLACION].IsNull; end; procedure TClientesDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesPOBLACION].AsVariant := Null; 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.GetPROVINCIAIsNull: boolean; begin result := DataTable.Fields[idx_ClientesPROVINCIA].IsNull; end; procedure TClientesDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesPROVINCIA].AsVariant := Null; 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.GetCODIGO_POSTALIsNull: boolean; begin result := DataTable.Fields[idx_ClientesCODIGO_POSTAL].IsNull; end; procedure TClientesDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesCODIGO_POSTAL].AsVariant := Null; end; function TClientesDataTableRules.GetPAISValue: String; begin result := DataTable.Fields[idx_ClientesPAIS].AsString; end; procedure TClientesDataTableRules.SetPAISValue(const aValue: String); begin DataTable.Fields[idx_ClientesPAIS].AsString := aValue; end; function TClientesDataTableRules.GetPAISIsNull: boolean; begin result := DataTable.Fields[idx_ClientesPAIS].IsNull; end; procedure TClientesDataTableRules.SetPAISIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesPAIS].AsVariant := Null; end; function TClientesDataTableRules.GetIDIOMA_ISOValue: String; begin result := DataTable.Fields[idx_ClientesIDIOMA_ISO].AsString; end; procedure TClientesDataTableRules.SetIDIOMA_ISOValue(const aValue: String); begin DataTable.Fields[idx_ClientesIDIOMA_ISO].AsString := aValue; end; function TClientesDataTableRules.GetIDIOMA_ISOIsNull: boolean; begin result := DataTable.Fields[idx_ClientesIDIOMA_ISO].IsNull; end; procedure TClientesDataTableRules.SetIDIOMA_ISOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesIDIOMA_ISO].AsVariant := Null; end; function TClientesDataTableRules.GetIDIOMAValue: String; begin result := DataTable.Fields[idx_ClientesIDIOMA].AsString; end; procedure TClientesDataTableRules.SetIDIOMAValue(const aValue: String); begin DataTable.Fields[idx_ClientesIDIOMA].AsString := aValue; end; function TClientesDataTableRules.GetIDIOMAIsNull: boolean; begin result := DataTable.Fields[idx_ClientesIDIOMA].IsNull; end; procedure TClientesDataTableRules.SetIDIOMAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesIDIOMA].AsVariant := Null; 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_1IsNull: boolean; begin result := DataTable.Fields[idx_ClientesTELEFONO_1].IsNull; end; procedure TClientesDataTableRules.SetTELEFONO_1IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesTELEFONO_1].AsVariant := Null; 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.GetTELEFONO_2IsNull: boolean; begin result := DataTable.Fields[idx_ClientesTELEFONO_2].IsNull; end; procedure TClientesDataTableRules.SetTELEFONO_2IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesTELEFONO_2].AsVariant := Null; 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_1IsNull: boolean; begin result := DataTable.Fields[idx_ClientesMOVIL_1].IsNull; end; procedure TClientesDataTableRules.SetMOVIL_1IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesMOVIL_1].AsVariant := Null; 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.GetMOVIL_2IsNull: boolean; begin result := DataTable.Fields[idx_ClientesMOVIL_2].IsNull; end; procedure TClientesDataTableRules.SetMOVIL_2IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesMOVIL_2].AsVariant := Null; 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.GetFAXIsNull: boolean; begin result := DataTable.Fields[idx_ClientesFAX].IsNull; end; procedure TClientesDataTableRules.SetFAXIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesFAX].AsVariant := Null; 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_1IsNull: boolean; begin result := DataTable.Fields[idx_ClientesEMAIL_1].IsNull; end; procedure TClientesDataTableRules.SetEMAIL_1IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesEMAIL_1].AsVariant := Null; 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.GetEMAIL_2IsNull: boolean; begin result := DataTable.Fields[idx_ClientesEMAIL_2].IsNull; end; procedure TClientesDataTableRules.SetEMAIL_2IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesEMAIL_2].AsVariant := Null; 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.GetPAGINA_WEBIsNull: boolean; begin result := DataTable.Fields[idx_ClientesPAGINA_WEB].IsNull; end; procedure TClientesDataTableRules.SetPAGINA_WEBIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesPAGINA_WEB].AsVariant := Null; end; function TClientesDataTableRules.GetNOTASValue: IROStrings; begin result := f_NOTAS; result.Text := DataTable.Fields[idx_ClientesNOTAS].AsString; end; function TClientesDataTableRules.GetNOTASIsNull: boolean; begin result := DataTable.Fields[idx_ClientesNOTAS].IsNull; end; procedure TClientesDataTableRules.SetNOTASIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesNOTAS].AsVariant := Null; end; function TClientesDataTableRules.GetFECHA_ALTAValue: DateTime; begin result := DataTable.Fields[idx_ClientesFECHA_ALTA].AsDateTime; end; procedure TClientesDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); begin DataTable.Fields[idx_ClientesFECHA_ALTA].AsDateTime := aValue; end; function TClientesDataTableRules.GetFECHA_ALTAIsNull: boolean; begin result := DataTable.Fields[idx_ClientesFECHA_ALTA].IsNull; end; procedure TClientesDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesFECHA_ALTA].AsVariant := Null; end; function TClientesDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := DataTable.Fields[idx_ClientesFECHA_MODIFICACION].AsDateTime; end; procedure TClientesDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin DataTable.Fields[idx_ClientesFECHA_MODIFICACION].AsDateTime := aValue; end; function TClientesDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean; begin result := DataTable.Fields[idx_ClientesFECHA_MODIFICACION].IsNull; end; procedure TClientesDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesFECHA_MODIFICACION].AsVariant := Null; 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.GetUSUARIOIsNull: boolean; begin result := DataTable.Fields[idx_ClientesUSUARIO].IsNull; end; procedure TClientesDataTableRules.SetUSUARIOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesUSUARIO].AsVariant := Null; end; function TClientesDataTableRules.GetID_EMPRESAValue: Integer; begin result := DataTable.Fields[idx_ClientesID_EMPRESA].AsInteger; end; procedure TClientesDataTableRules.SetID_EMPRESAValue(const aValue: Integer); begin DataTable.Fields[idx_ClientesID_EMPRESA].AsInteger := aValue; end; function TClientesDataTableRules.GetID_EMPRESAIsNull: boolean; begin result := DataTable.Fields[idx_ClientesID_EMPRESA].IsNull; end; procedure TClientesDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesID_EMPRESA].AsVariant := Null; 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.GetREFERENCIAIsNull: boolean; begin result := DataTable.Fields[idx_ClientesREFERENCIA].IsNull; end; procedure TClientesDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesREFERENCIA].AsVariant := Null; end; function TClientesDataTableRules.GetID_AGENTEValue: Integer; begin result := DataTable.Fields[idx_ClientesID_AGENTE].AsInteger; end; procedure TClientesDataTableRules.SetID_AGENTEValue(const aValue: Integer); begin DataTable.Fields[idx_ClientesID_AGENTE].AsInteger := aValue; end; function TClientesDataTableRules.GetID_AGENTEIsNull: boolean; begin result := DataTable.Fields[idx_ClientesID_AGENTE].IsNull; end; procedure TClientesDataTableRules.SetID_AGENTEIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesID_AGENTE].AsVariant := Null; 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.GetGRUPO_CLIENTEIsNull: boolean; begin result := DataTable.Fields[idx_ClientesGRUPO_CLIENTE].IsNull; end; procedure TClientesDataTableRules.SetGRUPO_CLIENTEIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsVariant := Null; 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.GetNOMBRE_COMERCIALIsNull: boolean; begin result := DataTable.Fields[idx_ClientesNOMBRE_COMERCIAL].IsNull; end; procedure TClientesDataTableRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesNOMBRE_COMERCIAL].AsVariant := Null; end; function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_1Value: SmallInt; begin result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsSmallInt; end; procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); begin DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsSmallInt := aValue; end; function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_1IsNull: boolean; begin result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].IsNull; end; procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsVariant := Null; end; function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_2Value: SmallInt; begin result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_2].AsSmallInt; end; procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); begin DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_2].AsSmallInt := aValue; end; function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_2IsNull: boolean; begin result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_2].IsNull; end; procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_2].AsVariant := Null; end; function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_3Value: SmallInt; begin result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].AsSmallInt; end; procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); begin DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].AsSmallInt := aValue; end; function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_3IsNull: boolean; begin result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].IsNull; end; procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].AsVariant := Null; end; function TClientesDataTableRules.GetBLOQUEADOValue: SmallInt; begin result := DataTable.Fields[idx_ClientesBLOQUEADO].AsSmallInt; end; procedure TClientesDataTableRules.SetBLOQUEADOValue(const aValue: SmallInt); begin DataTable.Fields[idx_ClientesBLOQUEADO].AsSmallInt := aValue; end; function TClientesDataTableRules.GetBLOQUEADOIsNull: boolean; begin result := DataTable.Fields[idx_ClientesBLOQUEADO].IsNull; end; procedure TClientesDataTableRules.SetBLOQUEADOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesBLOQUEADO].AsVariant := Null; end; function TClientesDataTableRules.GetAGENTEValue: String; begin result := DataTable.Fields[idx_ClientesAGENTE].AsString; end; procedure TClientesDataTableRules.SetAGENTEValue(const aValue: String); begin DataTable.Fields[idx_ClientesAGENTE].AsString := aValue; end; function TClientesDataTableRules.GetAGENTEIsNull: boolean; begin result := DataTable.Fields[idx_ClientesAGENTE].IsNull; end; procedure TClientesDataTableRules.SetAGENTEIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesAGENTE].AsVariant := Null; end; function TClientesDataTableRules.GetRAPELValue: SmallInt; begin result := DataTable.Fields[idx_ClientesRAPEL].AsSmallInt; end; procedure TClientesDataTableRules.SetRAPELValue(const aValue: SmallInt); begin DataTable.Fields[idx_ClientesRAPEL].AsSmallInt := aValue; end; function TClientesDataTableRules.GetRAPELIsNull: boolean; begin result := DataTable.Fields[idx_ClientesRAPEL].IsNull; end; procedure TClientesDataTableRules.SetRAPELIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesRAPEL].AsVariant := Null; end; function TClientesDataTableRules.GetEMAIL_ADMINISTRACIONValue: String; begin result := DataTable.Fields[idx_ClientesEMAIL_ADMINISTRACION].AsString; end; procedure TClientesDataTableRules.SetEMAIL_ADMINISTRACIONValue(const aValue: String); begin DataTable.Fields[idx_ClientesEMAIL_ADMINISTRACION].AsString := aValue; end; function TClientesDataTableRules.GetEMAIL_ADMINISTRACIONIsNull: boolean; begin result := DataTable.Fields[idx_ClientesEMAIL_ADMINISTRACION].IsNull; end; procedure TClientesDataTableRules.SetEMAIL_ADMINISTRACIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesEMAIL_ADMINISTRACION].AsVariant := Null; 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.GetREGIMEN_IVAIsNull: boolean; begin result := DataTable.Fields[idx_ClientesREGIMEN_IVA].IsNull; end; procedure TClientesDataTableRules.SetREGIMEN_IVAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesREGIMEN_IVA].AsVariant := Null; 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; function TClientesDataTableRules.GetMOTIVO_BLOQUEOIsNull: boolean; begin result := DataTable.Fields[idx_ClientesMOTIVO_BLOQUEO].IsNull; end; procedure TClientesDataTableRules.SetMOTIVO_BLOQUEOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesMOTIVO_BLOQUEO].AsVariant := Null; 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.GetRECARGO_EQUIVALENCIAIsNull: boolean; begin result := DataTable.Fields[idx_ClientesRECARGO_EQUIVALENCIA].IsNull; end; procedure TClientesDataTableRules.SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesRECARGO_EQUIVALENCIA].AsVariant := Null; 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.GetID_TIPO_IVAIsNull: boolean; begin result := DataTable.Fields[idx_ClientesID_TIPO_IVA].IsNull; end; procedure TClientesDataTableRules.SetID_TIPO_IVAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesID_TIPO_IVA].AsVariant := Null; 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.GetID_FORMA_PAGOIsNull: boolean; begin result := DataTable.Fields[idx_ClientesID_FORMA_PAGO].IsNull; end; procedure TClientesDataTableRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesID_FORMA_PAGO].AsVariant := Null; end; function TClientesDataTableRules.GetTIENDA_WEBValue: SmallInt; begin result := DataTable.Fields[idx_ClientesTIENDA_WEB].AsSmallInt; end; procedure TClientesDataTableRules.SetTIENDA_WEBValue(const aValue: SmallInt); begin DataTable.Fields[idx_ClientesTIENDA_WEB].AsSmallInt := aValue; end; function TClientesDataTableRules.GetTIENDA_WEBIsNull: boolean; begin result := DataTable.Fields[idx_ClientesTIENDA_WEB].IsNull; end; procedure TClientesDataTableRules.SetTIENDA_WEBIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesTIENDA_WEB].AsVariant := Null; end; function TClientesDataTableRules.GetCODIGO_ASIGNADOValue: String; begin result := DataTable.Fields[idx_ClientesCODIGO_ASIGNADO].AsString; end; procedure TClientesDataTableRules.SetCODIGO_ASIGNADOValue(const aValue: String); begin DataTable.Fields[idx_ClientesCODIGO_ASIGNADO].AsString := aValue; end; function TClientesDataTableRules.GetCODIGO_ASIGNADOIsNull: boolean; begin result := DataTable.Fields[idx_ClientesCODIGO_ASIGNADO].IsNull; end; procedure TClientesDataTableRules.SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesCODIGO_ASIGNADO].AsVariant := Null; end; function TClientesDataTableRules.GetDESCUENTOValue: Float; begin result := DataTable.Fields[idx_ClientesDESCUENTO].AsFloat; end; procedure TClientesDataTableRules.SetDESCUENTOValue(const aValue: Float); begin DataTable.Fields[idx_ClientesDESCUENTO].AsFloat := aValue; end; function TClientesDataTableRules.GetDESCUENTOIsNull: boolean; begin result := DataTable.Fields[idx_ClientesDESCUENTO].IsNull; end; procedure TClientesDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesDESCUENTO].AsVariant := Null; end; function TClientesDataTableRules.GetFELICITACIONValue: SmallInt; begin result := DataTable.Fields[idx_ClientesFELICITACION].AsSmallInt; end; procedure TClientesDataTableRules.SetFELICITACIONValue(const aValue: SmallInt); begin DataTable.Fields[idx_ClientesFELICITACION].AsSmallInt := aValue; end; function TClientesDataTableRules.GetFELICITACIONIsNull: boolean; begin result := DataTable.Fields[idx_ClientesFELICITACION].IsNull; end; procedure TClientesDataTableRules.SetFELICITACIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesFELICITACION].AsVariant := Null; end; function TClientesDataTableRules.GetTIPO_CLIENTEValue: String; begin result := DataTable.Fields[idx_ClientesTIPO_CLIENTE].AsString; end; procedure TClientesDataTableRules.SetTIPO_CLIENTEValue(const aValue: String); begin DataTable.Fields[idx_ClientesTIPO_CLIENTE].AsString := aValue; end; function TClientesDataTableRules.GetTIPO_CLIENTEIsNull: boolean; begin result := DataTable.Fields[idx_ClientesTIPO_CLIENTE].IsNull; end; procedure TClientesDataTableRules.SetTIPO_CLIENTEIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesTIPO_CLIENTE].AsVariant := Null; end; function TClientesDataTableRules.GetSEPAValue: SmallInt; begin result := DataTable.Fields[idx_ClientesSEPA].AsSmallInt; end; procedure TClientesDataTableRules.SetSEPAValue(const aValue: SmallInt); begin DataTable.Fields[idx_ClientesSEPA].AsSmallInt := aValue; end; function TClientesDataTableRules.GetSEPAIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSEPA].IsNull; end; procedure TClientesDataTableRules.SetSEPAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSEPA].AsVariant := Null; end; function TClientesDataTableRules.GetID_CENTRALValue: Integer; begin result := DataTable.Fields[idx_ClientesID_CENTRAL].AsInteger; end; procedure TClientesDataTableRules.SetID_CENTRALValue(const aValue: Integer); begin DataTable.Fields[idx_ClientesID_CENTRAL].AsInteger := aValue; end; function TClientesDataTableRules.GetID_CENTRALIsNull: boolean; begin result := DataTable.Fields[idx_ClientesID_CENTRAL].IsNull; end; procedure TClientesDataTableRules.SetID_CENTRALIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesID_CENTRAL].AsVariant := Null; end; { TProveedoresDataTableRules } constructor TProveedoresDataTableRules.Create(aDataTable: TDADataTable); var StrList: TStringList; begin inherited; StrList := TStringList.Create; StrList.OnChange := NOTAS_OnChange; f_NOTAS := NewROStrings(StrList,True); end; destructor TProveedoresDataTableRules.Destroy; begin inherited; end; procedure TProveedoresDataTableRules.NOTAS_OnChange(Sender: TObject); begin if DataTable.Editing then DataTable.Fields[idx_ProveedoresNOTAS].AsVariant := TStringList(Sender).Text; 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.GetIDIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresID].IsNull; end; procedure TProveedoresDataTableRules.SetIDIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresID].AsVariant := Null; 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.GetID_CATEGORIAIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresID_CATEGORIA].IsNull; end; procedure TProveedoresDataTableRules.SetID_CATEGORIAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresID_CATEGORIA].AsVariant := Null; 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.GetNIF_CIFIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresNIF_CIF].IsNull; end; procedure TProveedoresDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresNIF_CIF].AsVariant := Null; 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.GetNOMBREIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresNOMBRE].IsNull; end; procedure TProveedoresDataTableRules.SetNOMBREIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresNOMBRE].AsVariant := Null; 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.GetPERSONA_CONTACTOIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresPERSONA_CONTACTO].IsNull; end; procedure TProveedoresDataTableRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresPERSONA_CONTACTO].AsVariant := Null; 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.GetCALLEIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresCALLE].IsNull; end; procedure TProveedoresDataTableRules.SetCALLEIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresCALLE].AsVariant := Null; 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.GetPOBLACIONIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresPOBLACION].IsNull; end; procedure TProveedoresDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresPOBLACION].AsVariant := Null; 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.GetPROVINCIAIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresPROVINCIA].IsNull; end; procedure TProveedoresDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresPROVINCIA].AsVariant := Null; 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.GetCODIGO_POSTALIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresCODIGO_POSTAL].IsNull; end; procedure TProveedoresDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresCODIGO_POSTAL].AsVariant := Null; end; function TProveedoresDataTableRules.GetPAISValue: String; begin result := DataTable.Fields[idx_ProveedoresPAIS].AsString; end; procedure TProveedoresDataTableRules.SetPAISValue(const aValue: String); begin DataTable.Fields[idx_ProveedoresPAIS].AsString := aValue; end; function TProveedoresDataTableRules.GetPAISIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresPAIS].IsNull; end; procedure TProveedoresDataTableRules.SetPAISIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresPAIS].AsVariant := Null; end; function TProveedoresDataTableRules.GetIDIOMA_ISOValue: String; begin result := DataTable.Fields[idx_ProveedoresIDIOMA_ISO].AsString; end; procedure TProveedoresDataTableRules.SetIDIOMA_ISOValue(const aValue: String); begin DataTable.Fields[idx_ProveedoresIDIOMA_ISO].AsString := aValue; end; function TProveedoresDataTableRules.GetIDIOMA_ISOIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresIDIOMA_ISO].IsNull; end; procedure TProveedoresDataTableRules.SetIDIOMA_ISOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresIDIOMA_ISO].AsVariant := Null; end; function TProveedoresDataTableRules.GetIDIOMAValue: String; begin result := DataTable.Fields[idx_ProveedoresIDIOMA].AsString; end; procedure TProveedoresDataTableRules.SetIDIOMAValue(const aValue: String); begin DataTable.Fields[idx_ProveedoresIDIOMA].AsString := aValue; end; function TProveedoresDataTableRules.GetIDIOMAIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresIDIOMA].IsNull; end; procedure TProveedoresDataTableRules.SetIDIOMAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresIDIOMA].AsVariant := Null; 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_1IsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresTELEFONO_1].IsNull; end; procedure TProveedoresDataTableRules.SetTELEFONO_1IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresTELEFONO_1].AsVariant := Null; 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.GetTELEFONO_2IsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresTELEFONO_2].IsNull; end; procedure TProveedoresDataTableRules.SetTELEFONO_2IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresTELEFONO_2].AsVariant := Null; 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_1IsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresMOVIL_1].IsNull; end; procedure TProveedoresDataTableRules.SetMOVIL_1IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresMOVIL_1].AsVariant := Null; 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.GetMOVIL_2IsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresMOVIL_2].IsNull; end; procedure TProveedoresDataTableRules.SetMOVIL_2IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresMOVIL_2].AsVariant := Null; 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.GetFAXIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresFAX].IsNull; end; procedure TProveedoresDataTableRules.SetFAXIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresFAX].AsVariant := Null; 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_1IsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresEMAIL_1].IsNull; end; procedure TProveedoresDataTableRules.SetEMAIL_1IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresEMAIL_1].AsVariant := Null; 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.GetEMAIL_2IsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresEMAIL_2].IsNull; end; procedure TProveedoresDataTableRules.SetEMAIL_2IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresEMAIL_2].AsVariant := Null; 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.GetPAGINA_WEBIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresPAGINA_WEB].IsNull; end; procedure TProveedoresDataTableRules.SetPAGINA_WEBIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresPAGINA_WEB].AsVariant := Null; end; function TProveedoresDataTableRules.GetNOTASValue: IROStrings; begin result := f_NOTAS; result.Text := DataTable.Fields[idx_ProveedoresNOTAS].AsString; end; function TProveedoresDataTableRules.GetNOTASIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresNOTAS].IsNull; end; procedure TProveedoresDataTableRules.SetNOTASIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresNOTAS].AsVariant := Null; end; function TProveedoresDataTableRules.GetFECHA_ALTAValue: DateTime; begin result := DataTable.Fields[idx_ProveedoresFECHA_ALTA].AsDateTime; end; procedure TProveedoresDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); begin DataTable.Fields[idx_ProveedoresFECHA_ALTA].AsDateTime := aValue; end; function TProveedoresDataTableRules.GetFECHA_ALTAIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresFECHA_ALTA].IsNull; end; procedure TProveedoresDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresFECHA_ALTA].AsVariant := Null; end; function TProveedoresDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := DataTable.Fields[idx_ProveedoresFECHA_MODIFICACION].AsDateTime; end; procedure TProveedoresDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin DataTable.Fields[idx_ProveedoresFECHA_MODIFICACION].AsDateTime := aValue; end; function TProveedoresDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresFECHA_MODIFICACION].IsNull; end; procedure TProveedoresDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresFECHA_MODIFICACION].AsVariant := Null; 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.GetUSUARIOIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresUSUARIO].IsNull; end; procedure TProveedoresDataTableRules.SetUSUARIOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresUSUARIO].AsVariant := Null; 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.GetID_EMPRESAIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresID_EMPRESA].IsNull; end; procedure TProveedoresDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresID_EMPRESA].AsVariant := Null; 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.GetREFERENCIAIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresREFERENCIA].IsNull; end; procedure TProveedoresDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresREFERENCIA].AsVariant := Null; 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.GetDESCUENTOIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresDESCUENTO].IsNull; end; procedure TProveedoresDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresDESCUENTO].AsVariant := Null; 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.GetDESCRIPCION_PROVEEDORIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresDESCRIPCION_PROVEEDOR].IsNull; end; procedure TProveedoresDataTableRules.SetDESCRIPCION_PROVEEDORIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresDESCRIPCION_PROVEEDOR].AsVariant := Null; 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.GetCODIGO_ASIGNADOIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresCODIGO_ASIGNADO].IsNull; end; procedure TProveedoresDataTableRules.SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresCODIGO_ASIGNADO].AsVariant := Null; 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; function TProveedoresDataTableRules.GetGRUPO_PROVEEDORIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresGRUPO_PROVEEDOR].IsNull; end; procedure TProveedoresDataTableRules.SetGRUPO_PROVEEDORIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresGRUPO_PROVEEDOR].AsVariant := Null; 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.GetREGIMEN_IVAIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresREGIMEN_IVA].IsNull; end; procedure TProveedoresDataTableRules.SetREGIMEN_IVAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsVariant := Null; 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.GetID_TIPO_IVAIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresID_TIPO_IVA].IsNull; end; procedure TProveedoresDataTableRules.SetID_TIPO_IVAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresID_TIPO_IVA].AsVariant := Null; 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.GetID_FORMA_PAGOIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresID_FORMA_PAGO].IsNull; end; procedure TProveedoresDataTableRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresID_FORMA_PAGO].AsVariant := Null; end; function TProveedoresDataTableRules.GetTIENDA_WEBValue: SmallInt; begin result := DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsSmallInt; end; procedure TProveedoresDataTableRules.SetTIENDA_WEBValue(const aValue: SmallInt); begin DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsSmallInt := aValue; end; function TProveedoresDataTableRules.GetTIENDA_WEBIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresTIENDA_WEB].IsNull; end; procedure TProveedoresDataTableRules.SetTIENDA_WEBIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsVariant := Null; end; function TProveedoresDataTableRules.GetHOMOLOGADOValue: SmallInt; begin result := DataTable.Fields[idx_ProveedoresHOMOLOGADO].AsSmallInt; end; procedure TProveedoresDataTableRules.SetHOMOLOGADOValue(const aValue: SmallInt); begin DataTable.Fields[idx_ProveedoresHOMOLOGADO].AsSmallInt := aValue; end; function TProveedoresDataTableRules.GetHOMOLOGADOIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresHOMOLOGADO].IsNull; end; procedure TProveedoresDataTableRules.SetHOMOLOGADOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresHOMOLOGADO].AsVariant := Null; 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.GetCERTIFICACIONIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresCERTIFICACION].IsNull; end; procedure TProveedoresDataTableRules.SetCERTIFICACIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresCERTIFICACION].AsVariant := Null; end; function TProveedoresDataTableRules.GetSUBCONTRATAValue: SmallInt; begin result := DataTable.Fields[idx_ProveedoresSUBCONTRATA].AsSmallInt; end; procedure TProveedoresDataTableRules.SetSUBCONTRATAValue(const aValue: SmallInt); begin DataTable.Fields[idx_ProveedoresSUBCONTRATA].AsSmallInt := aValue; end; function TProveedoresDataTableRules.GetSUBCONTRATAIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresSUBCONTRATA].IsNull; end; procedure TProveedoresDataTableRules.SetSUBCONTRATAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresSUBCONTRATA].AsVariant := Null; end; function TProveedoresDataTableRules.GetEMAIL_ADMINISTRACIONValue: String; begin result := DataTable.Fields[idx_ProveedoresEMAIL_ADMINISTRACION].AsString; end; procedure TProveedoresDataTableRules.SetEMAIL_ADMINISTRACIONValue(const aValue: String); begin DataTable.Fields[idx_ProveedoresEMAIL_ADMINISTRACION].AsString := aValue; end; function TProveedoresDataTableRules.GetEMAIL_ADMINISTRACIONIsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresEMAIL_ADMINISTRACION].IsNull; end; procedure TProveedoresDataTableRules.SetEMAIL_ADMINISTRACIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresEMAIL_ADMINISTRACION].AsVariant := Null; end; function TProveedoresDataTableRules.GetVENCIMIENTO_FACTURAS_1Value: SmallInt; begin result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].AsSmallInt; end; procedure TProveedoresDataTableRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); begin DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].AsSmallInt := aValue; end; function TProveedoresDataTableRules.GetVENCIMIENTO_FACTURAS_1IsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].IsNull; end; procedure TProveedoresDataTableRules.SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].AsVariant := Null; end; function TProveedoresDataTableRules.GetVENCIMIENTO_FACTURAS_2Value: SmallInt; begin result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_2].AsSmallInt; end; procedure TProveedoresDataTableRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); begin DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_2].AsSmallInt := aValue; end; function TProveedoresDataTableRules.GetVENCIMIENTO_FACTURAS_2IsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_2].IsNull; end; procedure TProveedoresDataTableRules.SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_2].AsVariant := Null; end; function TProveedoresDataTableRules.GetVENCIMIENTO_FACTURAS_3Value: SmallInt; begin result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsSmallInt; end; procedure TProveedoresDataTableRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); begin DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsSmallInt := aValue; end; function TProveedoresDataTableRules.GetVENCIMIENTO_FACTURAS_3IsNull: boolean; begin result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].IsNull; end; procedure TProveedoresDataTableRules.SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsVariant := Null; end; { TEmpleadosDataTableRules } constructor TEmpleadosDataTableRules.Create(aDataTable: TDADataTable); var StrList: TStringList; begin inherited; StrList := TStringList.Create; StrList.OnChange := NOTAS_OnChange; f_NOTAS := NewROStrings(StrList,True); StrList := TStringList.Create; StrList.OnChange := FORMACION_BASE_OnChange; f_FORMACION_BASE := NewROStrings(StrList,True); StrList := TStringList.Create; StrList.OnChange := FORMACION_COMPLE_OnChange; f_FORMACION_COMPLE := NewROStrings(StrList,True); StrList := TStringList.Create; StrList.OnChange := FORMACION_RECIBIDA_OnChange; f_FORMACION_RECIBIDA := NewROStrings(StrList,True); StrList := TStringList.Create; StrList.OnChange := EXPERIENCIA_OnChange; f_EXPERIENCIA := NewROStrings(StrList,True); end; destructor TEmpleadosDataTableRules.Destroy; begin inherited; end; procedure TEmpleadosDataTableRules.NOTAS_OnChange(Sender: TObject); begin if DataTable.Editing then DataTable.Fields[idx_EmpleadosNOTAS].AsVariant := TStringList(Sender).Text; end; procedure TEmpleadosDataTableRules.FORMACION_BASE_OnChange(Sender: TObject); begin if DataTable.Editing then DataTable.Fields[idx_EmpleadosFORMACION_BASE].AsVariant := TStringList(Sender).Text; end; procedure TEmpleadosDataTableRules.FORMACION_COMPLE_OnChange(Sender: TObject); begin if DataTable.Editing then DataTable.Fields[idx_EmpleadosFORMACION_COMPLE].AsVariant := TStringList(Sender).Text; end; procedure TEmpleadosDataTableRules.FORMACION_RECIBIDA_OnChange(Sender: TObject); begin if DataTable.Editing then DataTable.Fields[idx_EmpleadosFORMACION_RECIBIDA].AsVariant := TStringList(Sender).Text; end; procedure TEmpleadosDataTableRules.EXPERIENCIA_OnChange(Sender: TObject); begin if DataTable.Editing then DataTable.Fields[idx_EmpleadosEXPERIENCIA].AsVariant := TStringList(Sender).Text; 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.GetIDIsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosID].IsNull; end; procedure TEmpleadosDataTableRules.SetIDIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosID].AsVariant := Null; 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.GetID_CATEGORIAIsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosID_CATEGORIA].IsNull; end; procedure TEmpleadosDataTableRules.SetID_CATEGORIAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosID_CATEGORIA].AsVariant := Null; 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.GetNIF_CIFIsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosNIF_CIF].IsNull; end; procedure TEmpleadosDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosNIF_CIF].AsVariant := Null; 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.GetNOMBREIsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosNOMBRE].IsNull; end; procedure TEmpleadosDataTableRules.SetNOMBREIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosNOMBRE].AsVariant := Null; 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.GetPERSONA_CONTACTOIsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosPERSONA_CONTACTO].IsNull; end; procedure TEmpleadosDataTableRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosPERSONA_CONTACTO].AsVariant := Null; 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.GetCALLEIsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosCALLE].IsNull; end; procedure TEmpleadosDataTableRules.SetCALLEIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosCALLE].AsVariant := Null; 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.GetPOBLACIONIsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosPOBLACION].IsNull; end; procedure TEmpleadosDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosPOBLACION].AsVariant := Null; 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.GetPROVINCIAIsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosPROVINCIA].IsNull; end; procedure TEmpleadosDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosPROVINCIA].AsVariant := Null; 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.GetCODIGO_POSTALIsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosCODIGO_POSTAL].IsNull; end; procedure TEmpleadosDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosCODIGO_POSTAL].AsVariant := Null; end; function TEmpleadosDataTableRules.GetPAISValue: String; begin result := DataTable.Fields[idx_EmpleadosPAIS].AsString; end; procedure TEmpleadosDataTableRules.SetPAISValue(const aValue: String); begin DataTable.Fields[idx_EmpleadosPAIS].AsString := aValue; end; function TEmpleadosDataTableRules.GetPAISIsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosPAIS].IsNull; end; procedure TEmpleadosDataTableRules.SetPAISIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosPAIS].AsVariant := Null; end; function TEmpleadosDataTableRules.GetIDIOMA_ISOValue: String; begin result := DataTable.Fields[idx_EmpleadosIDIOMA_ISO].AsString; end; procedure TEmpleadosDataTableRules.SetIDIOMA_ISOValue(const aValue: String); begin DataTable.Fields[idx_EmpleadosIDIOMA_ISO].AsString := aValue; end; function TEmpleadosDataTableRules.GetIDIOMA_ISOIsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosIDIOMA_ISO].IsNull; end; procedure TEmpleadosDataTableRules.SetIDIOMA_ISOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosIDIOMA_ISO].AsVariant := Null; end; function TEmpleadosDataTableRules.GetIDIOMAValue: String; begin result := DataTable.Fields[idx_EmpleadosIDIOMA].AsString; end; procedure TEmpleadosDataTableRules.SetIDIOMAValue(const aValue: String); begin DataTable.Fields[idx_EmpleadosIDIOMA].AsString := aValue; end; function TEmpleadosDataTableRules.GetIDIOMAIsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosIDIOMA].IsNull; end; procedure TEmpleadosDataTableRules.SetIDIOMAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosIDIOMA].AsVariant := Null; 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_1IsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosTELEFONO_1].IsNull; end; procedure TEmpleadosDataTableRules.SetTELEFONO_1IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosTELEFONO_1].AsVariant := Null; 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.GetTELEFONO_2IsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosTELEFONO_2].IsNull; end; procedure TEmpleadosDataTableRules.SetTELEFONO_2IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosTELEFONO_2].AsVariant := Null; 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_1IsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosMOVIL_1].IsNull; end; procedure TEmpleadosDataTableRules.SetMOVIL_1IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosMOVIL_1].AsVariant := Null; 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.GetMOVIL_2IsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosMOVIL_2].IsNull; end; procedure TEmpleadosDataTableRules.SetMOVIL_2IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosMOVIL_2].AsVariant := Null; 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.GetFAXIsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosFAX].IsNull; end; procedure TEmpleadosDataTableRules.SetFAXIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosFAX].AsVariant := Null; 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_1IsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosEMAIL_1].IsNull; end; procedure TEmpleadosDataTableRules.SetEMAIL_1IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosEMAIL_1].AsVariant := Null; 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.GetEMAIL_2IsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosEMAIL_2].IsNull; end; procedure TEmpleadosDataTableRules.SetEMAIL_2IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosEMAIL_2].AsVariant := Null; 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.GetPAGINA_WEBIsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosPAGINA_WEB].IsNull; end; procedure TEmpleadosDataTableRules.SetPAGINA_WEBIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosPAGINA_WEB].AsVariant := Null; end; function TEmpleadosDataTableRules.GetNOTASValue: IROStrings; begin result := f_NOTAS; result.Text := DataTable.Fields[idx_EmpleadosNOTAS].AsString; end; function TEmpleadosDataTableRules.GetNOTASIsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosNOTAS].IsNull; end; procedure TEmpleadosDataTableRules.SetNOTASIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosNOTAS].AsVariant := Null; end; function TEmpleadosDataTableRules.GetFECHA_ALTAValue: DateTime; begin result := DataTable.Fields[idx_EmpleadosFECHA_ALTA].AsDateTime; end; procedure TEmpleadosDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); begin DataTable.Fields[idx_EmpleadosFECHA_ALTA].AsDateTime := aValue; end; function TEmpleadosDataTableRules.GetFECHA_ALTAIsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosFECHA_ALTA].IsNull; end; procedure TEmpleadosDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosFECHA_ALTA].AsVariant := Null; end; function TEmpleadosDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := DataTable.Fields[idx_EmpleadosFECHA_MODIFICACION].AsDateTime; end; procedure TEmpleadosDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin DataTable.Fields[idx_EmpleadosFECHA_MODIFICACION].AsDateTime := aValue; end; function TEmpleadosDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosFECHA_MODIFICACION].IsNull; end; procedure TEmpleadosDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosFECHA_MODIFICACION].AsVariant := Null; 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.GetUSUARIOIsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosUSUARIO].IsNull; end; procedure TEmpleadosDataTableRules.SetUSUARIOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosUSUARIO].AsVariant := Null; 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.GetID_EMPRESAIsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosID_EMPRESA].IsNull; end; procedure TEmpleadosDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosID_EMPRESA].AsVariant := Null; 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.GetREFERENCIAIsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosREFERENCIA].IsNull; end; procedure TEmpleadosDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosREFERENCIA].AsVariant := Null; 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_NACIMIENTOIsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosFECHA_NACIMIENTO].IsNull; end; procedure TEmpleadosDataTableRules.SetFECHA_NACIMIENTOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosFECHA_NACIMIENTO].AsVariant := Null; 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.GetCATEGORIAIsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosCATEGORIA].IsNull; end; procedure TEmpleadosDataTableRules.SetCATEGORIAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosCATEGORIA].AsVariant := Null; 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.GetFECHA_ALTA_EMPRESAIsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosFECHA_ALTA_EMPRESA].IsNull; end; procedure TEmpleadosDataTableRules.SetFECHA_ALTA_EMPRESAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosFECHA_ALTA_EMPRESA].AsVariant := Null; end; function TEmpleadosDataTableRules.GetFORMACION_BASEValue: IROStrings; begin result := f_FORMACION_BASE; result.Text := DataTable.Fields[idx_EmpleadosFORMACION_BASE].AsString; end; function TEmpleadosDataTableRules.GetFORMACION_BASEIsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosFORMACION_BASE].IsNull; end; procedure TEmpleadosDataTableRules.SetFORMACION_BASEIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosFORMACION_BASE].AsVariant := Null; end; function TEmpleadosDataTableRules.GetFORMACION_COMPLEValue: IROStrings; begin result := f_FORMACION_COMPLE; result.Text := DataTable.Fields[idx_EmpleadosFORMACION_COMPLE].AsString; end; function TEmpleadosDataTableRules.GetFORMACION_COMPLEIsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosFORMACION_COMPLE].IsNull; end; procedure TEmpleadosDataTableRules.SetFORMACION_COMPLEIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosFORMACION_COMPLE].AsVariant := Null; end; function TEmpleadosDataTableRules.GetFORMACION_RECIBIDAValue: IROStrings; begin result := f_FORMACION_RECIBIDA; result.Text := DataTable.Fields[idx_EmpleadosFORMACION_RECIBIDA].AsString; end; function TEmpleadosDataTableRules.GetFORMACION_RECIBIDAIsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosFORMACION_RECIBIDA].IsNull; end; procedure TEmpleadosDataTableRules.SetFORMACION_RECIBIDAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosFORMACION_RECIBIDA].AsVariant := Null; end; function TEmpleadosDataTableRules.GetEXPERIENCIAValue: IROStrings; begin result := f_EXPERIENCIA; result.Text := DataTable.Fields[idx_EmpleadosEXPERIENCIA].AsString; end; function TEmpleadosDataTableRules.GetEXPERIENCIAIsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosEXPERIENCIA].IsNull; end; procedure TEmpleadosDataTableRules.SetEXPERIENCIAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosEXPERIENCIA].AsVariant := Null; end; function TEmpleadosDataTableRules.GetCONTRATOValue: String; begin result := DataTable.Fields[idx_EmpleadosCONTRATO].AsString; end; procedure TEmpleadosDataTableRules.SetCONTRATOValue(const aValue: String); begin DataTable.Fields[idx_EmpleadosCONTRATO].AsString := aValue; end; function TEmpleadosDataTableRules.GetCONTRATOIsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosCONTRATO].IsNull; end; procedure TEmpleadosDataTableRules.SetCONTRATOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosCONTRATO].AsVariant := Null; end; function TEmpleadosDataTableRules.GetDURACIONValue: String; begin result := DataTable.Fields[idx_EmpleadosDURACION].AsString; end; procedure TEmpleadosDataTableRules.SetDURACIONValue(const aValue: String); begin DataTable.Fields[idx_EmpleadosDURACION].AsString := aValue; end; function TEmpleadosDataTableRules.GetDURACIONIsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosDURACION].IsNull; end; procedure TEmpleadosDataTableRules.SetDURACIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosDURACION].AsVariant := Null; end; function TEmpleadosDataTableRules.GetFECHA_BAJAValue: DateTime; begin result := DataTable.Fields[idx_EmpleadosFECHA_BAJA].AsDateTime; end; procedure TEmpleadosDataTableRules.SetFECHA_BAJAValue(const aValue: DateTime); begin DataTable.Fields[idx_EmpleadosFECHA_BAJA].AsDateTime := aValue; end; function TEmpleadosDataTableRules.GetFECHA_BAJAIsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosFECHA_BAJA].IsNull; end; procedure TEmpleadosDataTableRules.SetFECHA_BAJAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosFECHA_BAJA].AsVariant := Null; end; function TEmpleadosDataTableRules.GetCAUSA_BAJAValue: String; begin result := DataTable.Fields[idx_EmpleadosCAUSA_BAJA].AsString; end; procedure TEmpleadosDataTableRules.SetCAUSA_BAJAValue(const aValue: String); begin DataTable.Fields[idx_EmpleadosCAUSA_BAJA].AsString := aValue; end; function TEmpleadosDataTableRules.GetCAUSA_BAJAIsNull: boolean; begin result := DataTable.Fields[idx_EmpleadosCAUSA_BAJA].IsNull; end; procedure TEmpleadosDataTableRules.SetCAUSA_BAJAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_EmpleadosCAUSA_BAJA].AsVariant := Null; end; { TDireccionesContactoDataTableRules } constructor TDireccionesContactoDataTableRules.Create(aDataTable: TDADataTable); var StrList: TStringList; begin inherited; StrList := TStringList.Create; StrList.OnChange := NOTAS_OnChange; f_NOTAS := NewROStrings(StrList,True); end; destructor TDireccionesContactoDataTableRules.Destroy; begin inherited; end; procedure TDireccionesContactoDataTableRules.NOTAS_OnChange(Sender: TObject); begin if DataTable.Editing then DataTable.Fields[idx_DireccionesContactoNOTAS].AsVariant := TStringList(Sender).Text; 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.GetIDIsNull: boolean; begin result := DataTable.Fields[idx_DireccionesContactoID].IsNull; end; procedure TDireccionesContactoDataTableRules.SetIDIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_DireccionesContactoID].AsVariant := Null; 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.GetID_CONTACTOIsNull: boolean; begin result := DataTable.Fields[idx_DireccionesContactoID_CONTACTO].IsNull; end; procedure TDireccionesContactoDataTableRules.SetID_CONTACTOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_DireccionesContactoID_CONTACTO].AsVariant := Null; 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.GetCALLEIsNull: boolean; begin result := DataTable.Fields[idx_DireccionesContactoCALLE].IsNull; end; procedure TDireccionesContactoDataTableRules.SetCALLEIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_DireccionesContactoCALLE].AsVariant := Null; 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.GetPOBLACIONIsNull: boolean; begin result := DataTable.Fields[idx_DireccionesContactoPOBLACION].IsNull; end; procedure TDireccionesContactoDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_DireccionesContactoPOBLACION].AsVariant := Null; 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.GetPROVINCIAIsNull: boolean; begin result := DataTable.Fields[idx_DireccionesContactoPROVINCIA].IsNull; end; procedure TDireccionesContactoDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_DireccionesContactoPROVINCIA].AsVariant := Null; 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.GetCODIGO_POSTALIsNull: boolean; begin result := DataTable.Fields[idx_DireccionesContactoCODIGO_POSTAL].IsNull; end; procedure TDireccionesContactoDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_DireccionesContactoCODIGO_POSTAL].AsVariant := Null; 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.GetPERSONA_CONTACTOIsNull: boolean; begin result := DataTable.Fields[idx_DireccionesContactoPERSONA_CONTACTO].IsNull; end; procedure TDireccionesContactoDataTableRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_DireccionesContactoPERSONA_CONTACTO].AsVariant := Null; 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.GetNOMBREIsNull: boolean; begin result := DataTable.Fields[idx_DireccionesContactoNOMBRE].IsNull; end; procedure TDireccionesContactoDataTableRules.SetNOMBREIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_DireccionesContactoNOMBRE].AsVariant := Null; 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.GetTELEFONOIsNull: boolean; begin result := DataTable.Fields[idx_DireccionesContactoTELEFONO].IsNull; end; procedure TDireccionesContactoDataTableRules.SetTELEFONOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_DireccionesContactoTELEFONO].AsVariant := Null; 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.GetMOVILIsNull: boolean; begin result := DataTable.Fields[idx_DireccionesContactoMOVIL].IsNull; end; procedure TDireccionesContactoDataTableRules.SetMOVILIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_DireccionesContactoMOVIL].AsVariant := Null; 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.GetFAXIsNull: boolean; begin result := DataTable.Fields[idx_DireccionesContactoFAX].IsNull; end; procedure TDireccionesContactoDataTableRules.SetFAXIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_DireccionesContactoFAX].AsVariant := Null; 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.GetEMAILIsNull: boolean; begin result := DataTable.Fields[idx_DireccionesContactoEMAIL].IsNull; end; procedure TDireccionesContactoDataTableRules.SetEMAILIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_DireccionesContactoEMAIL].AsVariant := Null; end; function TDireccionesContactoDataTableRules.GetNOTASValue: IROStrings; begin result := f_NOTAS; result.Text := DataTable.Fields[idx_DireccionesContactoNOTAS].AsString; end; function TDireccionesContactoDataTableRules.GetNOTASIsNull: boolean; begin result := DataTable.Fields[idx_DireccionesContactoNOTAS].IsNull; end; procedure TDireccionesContactoDataTableRules.SetNOTASIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_DireccionesContactoNOTAS].AsVariant := Null; 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; function TDireccionesContactoDataTableRules.GetPORTEIsNull: boolean; begin result := DataTable.Fields[idx_DireccionesContactoPORTE].IsNull; end; procedure TDireccionesContactoDataTableRules.SetPORTEIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_DireccionesContactoPORTE].AsVariant := Null; end; function TDireccionesContactoDataTableRules.GetFECHA_ALTAValue: DateTime; begin result := DataTable.Fields[idx_DireccionesContactoFECHA_ALTA].AsDateTime; end; procedure TDireccionesContactoDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); begin DataTable.Fields[idx_DireccionesContactoFECHA_ALTA].AsDateTime := aValue; end; function TDireccionesContactoDataTableRules.GetFECHA_ALTAIsNull: boolean; begin result := DataTable.Fields[idx_DireccionesContactoFECHA_ALTA].IsNull; end; procedure TDireccionesContactoDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_DireccionesContactoFECHA_ALTA].AsVariant := Null; end; function TDireccionesContactoDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := DataTable.Fields[idx_DireccionesContactoFECHA_MODIFICACION].AsDateTime; end; procedure TDireccionesContactoDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin DataTable.Fields[idx_DireccionesContactoFECHA_MODIFICACION].AsDateTime := aValue; end; function TDireccionesContactoDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean; begin result := DataTable.Fields[idx_DireccionesContactoFECHA_MODIFICACION].IsNull; end; procedure TDireccionesContactoDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_DireccionesContactoFECHA_MODIFICACION].AsVariant := Null; end; function TDireccionesContactoDataTableRules.GetPAISValue: String; begin result := DataTable.Fields[idx_DireccionesContactoPAIS].AsString; end; procedure TDireccionesContactoDataTableRules.SetPAISValue(const aValue: String); begin DataTable.Fields[idx_DireccionesContactoPAIS].AsString := aValue; end; function TDireccionesContactoDataTableRules.GetPAISIsNull: boolean; begin result := DataTable.Fields[idx_DireccionesContactoPAIS].IsNull; end; procedure TDireccionesContactoDataTableRules.SetPAISIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_DireccionesContactoPAIS].AsVariant := Null; end; { TDatasetDataTableRules } constructor TDatasetDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TDatasetDataTableRules.Destroy; begin inherited; 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.GetIDIsNull: boolean; begin result := DataTable.Fields[idx_ClientesDescuentosID].IsNull; end; procedure TClientesDescuentosDataTableRules.SetIDIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesDescuentosID].AsVariant := Null; 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_CLIENTEIsNull: boolean; begin result := DataTable.Fields[idx_ClientesDescuentosID_CLIENTE].IsNull; end; procedure TClientesDescuentosDataTableRules.SetID_CLIENTEIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesDescuentosID_CLIENTE].AsVariant := Null; 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.GetID_PROVEEDORIsNull: boolean; begin result := DataTable.Fields[idx_ClientesDescuentosID_PROVEEDOR].IsNull; end; procedure TClientesDescuentosDataTableRules.SetID_PROVEEDORIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesDescuentosID_PROVEEDOR].AsVariant := Null; 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.GetNOMBREIsNull: boolean; begin result := DataTable.Fields[idx_ClientesDescuentosNOMBRE].IsNull; end; procedure TClientesDescuentosDataTableRules.SetNOMBREIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesDescuentosNOMBRE].AsVariant := Null; 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; function TClientesDescuentosDataTableRules.GetDESCUENTOIsNull: boolean; begin result := DataTable.Fields[idx_ClientesDescuentosDESCUENTO].IsNull; end; procedure TClientesDescuentosDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesDescuentosDESCUENTO].AsVariant := Null; end; { TGruposProveedorDataTableRules } constructor TGruposProveedorDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TGruposProveedorDataTableRules.Destroy; begin inherited; end; function TGruposProveedorDataTableRules.GetIDValue: Integer; begin result := DataTable.Fields[idx_GruposProveedorID].AsInteger; end; procedure TGruposProveedorDataTableRules.SetIDValue(const aValue: Integer); begin DataTable.Fields[idx_GruposProveedorID].AsInteger := aValue; end; function TGruposProveedorDataTableRules.GetIDIsNull: boolean; begin result := DataTable.Fields[idx_GruposProveedorID].IsNull; end; procedure TGruposProveedorDataTableRules.SetIDIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_GruposProveedorID].AsVariant := Null; 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; function TGruposProveedorDataTableRules.GetDESCRIPCIONIsNull: boolean; begin result := DataTable.Fields[idx_GruposProveedorDESCRIPCION].IsNull; end; procedure TGruposProveedorDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_GruposProveedorDESCRIPCION].AsVariant := Null; end; { TGruposEmpleadoDataTableRules } constructor TGruposEmpleadoDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TGruposEmpleadoDataTableRules.Destroy; begin inherited; end; function TGruposEmpleadoDataTableRules.GetIDValue: Integer; begin result := DataTable.Fields[idx_GruposEmpleadoID].AsInteger; end; procedure TGruposEmpleadoDataTableRules.SetIDValue(const aValue: Integer); begin DataTable.Fields[idx_GruposEmpleadoID].AsInteger := aValue; end; function TGruposEmpleadoDataTableRules.GetIDIsNull: boolean; begin result := DataTable.Fields[idx_GruposEmpleadoID].IsNull; end; procedure TGruposEmpleadoDataTableRules.SetIDIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_GruposEmpleadoID].AsVariant := Null; 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; function TGruposEmpleadoDataTableRules.GetDESCRIPCIONIsNull: boolean; begin result := DataTable.Fields[idx_GruposEmpleadoDESCRIPCION].IsNull; end; procedure TGruposEmpleadoDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_GruposEmpleadoDESCRIPCION].AsVariant := Null; end; { TContactos_RefreshDataTableRules } constructor TContactos_RefreshDataTableRules.Create(aDataTable: TDADataTable); var StrList: TStringList; begin inherited; StrList := TStringList.Create; StrList.OnChange := NOTAS_OnChange; f_NOTAS := NewROStrings(StrList,True); end; destructor TContactos_RefreshDataTableRules.Destroy; begin inherited; end; procedure TContactos_RefreshDataTableRules.NOTAS_OnChange(Sender: TObject); begin if DataTable.Editing then DataTable.Fields[idx_Contactos_RefreshNOTAS].AsVariant := TStringList(Sender).Text; end; function TContactos_RefreshDataTableRules.GetIDValue: Integer; begin result := DataTable.Fields[idx_Contactos_RefreshID].AsInteger; end; procedure TContactos_RefreshDataTableRules.SetIDValue(const aValue: Integer); begin DataTable.Fields[idx_Contactos_RefreshID].AsInteger := aValue; end; function TContactos_RefreshDataTableRules.GetIDIsNull: boolean; begin result := DataTable.Fields[idx_Contactos_RefreshID].IsNull; end; procedure TContactos_RefreshDataTableRules.SetIDIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Contactos_RefreshID].AsVariant := Null; end; function TContactos_RefreshDataTableRules.GetNIF_CIFValue: String; begin result := DataTable.Fields[idx_Contactos_RefreshNIF_CIF].AsString; end; procedure TContactos_RefreshDataTableRules.SetNIF_CIFValue(const aValue: String); begin DataTable.Fields[idx_Contactos_RefreshNIF_CIF].AsString := aValue; end; function TContactos_RefreshDataTableRules.GetNIF_CIFIsNull: boolean; begin result := DataTable.Fields[idx_Contactos_RefreshNIF_CIF].IsNull; end; procedure TContactos_RefreshDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Contactos_RefreshNIF_CIF].AsVariant := Null; end; function TContactos_RefreshDataTableRules.GetNOMBREValue: String; begin result := DataTable.Fields[idx_Contactos_RefreshNOMBRE].AsString; end; procedure TContactos_RefreshDataTableRules.SetNOMBREValue(const aValue: String); begin DataTable.Fields[idx_Contactos_RefreshNOMBRE].AsString := aValue; end; function TContactos_RefreshDataTableRules.GetNOMBREIsNull: boolean; begin result := DataTable.Fields[idx_Contactos_RefreshNOMBRE].IsNull; end; procedure TContactos_RefreshDataTableRules.SetNOMBREIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Contactos_RefreshNOMBRE].AsVariant := Null; end; function TContactos_RefreshDataTableRules.GetCALLEValue: String; begin result := DataTable.Fields[idx_Contactos_RefreshCALLE].AsString; end; procedure TContactos_RefreshDataTableRules.SetCALLEValue(const aValue: String); begin DataTable.Fields[idx_Contactos_RefreshCALLE].AsString := aValue; end; function TContactos_RefreshDataTableRules.GetCALLEIsNull: boolean; begin result := DataTable.Fields[idx_Contactos_RefreshCALLE].IsNull; end; procedure TContactos_RefreshDataTableRules.SetCALLEIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Contactos_RefreshCALLE].AsVariant := Null; end; function TContactos_RefreshDataTableRules.GetPOBLACIONValue: String; begin result := DataTable.Fields[idx_Contactos_RefreshPOBLACION].AsString; end; procedure TContactos_RefreshDataTableRules.SetPOBLACIONValue(const aValue: String); begin DataTable.Fields[idx_Contactos_RefreshPOBLACION].AsString := aValue; end; function TContactos_RefreshDataTableRules.GetPOBLACIONIsNull: boolean; begin result := DataTable.Fields[idx_Contactos_RefreshPOBLACION].IsNull; end; procedure TContactos_RefreshDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Contactos_RefreshPOBLACION].AsVariant := Null; end; function TContactos_RefreshDataTableRules.GetPROVINCIAValue: String; begin result := DataTable.Fields[idx_Contactos_RefreshPROVINCIA].AsString; end; procedure TContactos_RefreshDataTableRules.SetPROVINCIAValue(const aValue: String); begin DataTable.Fields[idx_Contactos_RefreshPROVINCIA].AsString := aValue; end; function TContactos_RefreshDataTableRules.GetPROVINCIAIsNull: boolean; begin result := DataTable.Fields[idx_Contactos_RefreshPROVINCIA].IsNull; end; procedure TContactos_RefreshDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Contactos_RefreshPROVINCIA].AsVariant := Null; end; function TContactos_RefreshDataTableRules.GetCODIGO_POSTALValue: String; begin result := DataTable.Fields[idx_Contactos_RefreshCODIGO_POSTAL].AsString; end; procedure TContactos_RefreshDataTableRules.SetCODIGO_POSTALValue(const aValue: String); begin DataTable.Fields[idx_Contactos_RefreshCODIGO_POSTAL].AsString := aValue; end; function TContactos_RefreshDataTableRules.GetCODIGO_POSTALIsNull: boolean; begin result := DataTable.Fields[idx_Contactos_RefreshCODIGO_POSTAL].IsNull; end; procedure TContactos_RefreshDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Contactos_RefreshCODIGO_POSTAL].AsVariant := Null; end; function TContactos_RefreshDataTableRules.GetTELEFONO_1Value: String; begin result := DataTable.Fields[idx_Contactos_RefreshTELEFONO_1].AsString; end; procedure TContactos_RefreshDataTableRules.SetTELEFONO_1Value(const aValue: String); begin DataTable.Fields[idx_Contactos_RefreshTELEFONO_1].AsString := aValue; end; function TContactos_RefreshDataTableRules.GetTELEFONO_1IsNull: boolean; begin result := DataTable.Fields[idx_Contactos_RefreshTELEFONO_1].IsNull; end; procedure TContactos_RefreshDataTableRules.SetTELEFONO_1IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Contactos_RefreshTELEFONO_1].AsVariant := Null; end; function TContactos_RefreshDataTableRules.GetTELEFONO_2Value: String; begin result := DataTable.Fields[idx_Contactos_RefreshTELEFONO_2].AsString; end; procedure TContactos_RefreshDataTableRules.SetTELEFONO_2Value(const aValue: String); begin DataTable.Fields[idx_Contactos_RefreshTELEFONO_2].AsString := aValue; end; function TContactos_RefreshDataTableRules.GetTELEFONO_2IsNull: boolean; begin result := DataTable.Fields[idx_Contactos_RefreshTELEFONO_2].IsNull; end; procedure TContactos_RefreshDataTableRules.SetTELEFONO_2IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Contactos_RefreshTELEFONO_2].AsVariant := Null; end; function TContactos_RefreshDataTableRules.GetMOVIL_1Value: String; begin result := DataTable.Fields[idx_Contactos_RefreshMOVIL_1].AsString; end; procedure TContactos_RefreshDataTableRules.SetMOVIL_1Value(const aValue: String); begin DataTable.Fields[idx_Contactos_RefreshMOVIL_1].AsString := aValue; end; function TContactos_RefreshDataTableRules.GetMOVIL_1IsNull: boolean; begin result := DataTable.Fields[idx_Contactos_RefreshMOVIL_1].IsNull; end; procedure TContactos_RefreshDataTableRules.SetMOVIL_1IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Contactos_RefreshMOVIL_1].AsVariant := Null; end; function TContactos_RefreshDataTableRules.GetMOVIL_2Value: String; begin result := DataTable.Fields[idx_Contactos_RefreshMOVIL_2].AsString; end; procedure TContactos_RefreshDataTableRules.SetMOVIL_2Value(const aValue: String); begin DataTable.Fields[idx_Contactos_RefreshMOVIL_2].AsString := aValue; end; function TContactos_RefreshDataTableRules.GetMOVIL_2IsNull: boolean; begin result := DataTable.Fields[idx_Contactos_RefreshMOVIL_2].IsNull; end; procedure TContactos_RefreshDataTableRules.SetMOVIL_2IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Contactos_RefreshMOVIL_2].AsVariant := Null; end; function TContactos_RefreshDataTableRules.GetFAXValue: String; begin result := DataTable.Fields[idx_Contactos_RefreshFAX].AsString; end; procedure TContactos_RefreshDataTableRules.SetFAXValue(const aValue: String); begin DataTable.Fields[idx_Contactos_RefreshFAX].AsString := aValue; end; function TContactos_RefreshDataTableRules.GetFAXIsNull: boolean; begin result := DataTable.Fields[idx_Contactos_RefreshFAX].IsNull; end; procedure TContactos_RefreshDataTableRules.SetFAXIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Contactos_RefreshFAX].AsVariant := Null; end; function TContactos_RefreshDataTableRules.GetEMAIL_1Value: String; begin result := DataTable.Fields[idx_Contactos_RefreshEMAIL_1].AsString; end; procedure TContactos_RefreshDataTableRules.SetEMAIL_1Value(const aValue: String); begin DataTable.Fields[idx_Contactos_RefreshEMAIL_1].AsString := aValue; end; function TContactos_RefreshDataTableRules.GetEMAIL_1IsNull: boolean; begin result := DataTable.Fields[idx_Contactos_RefreshEMAIL_1].IsNull; end; procedure TContactos_RefreshDataTableRules.SetEMAIL_1IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Contactos_RefreshEMAIL_1].AsVariant := Null; end; function TContactos_RefreshDataTableRules.GetEMAIL_2Value: String; begin result := DataTable.Fields[idx_Contactos_RefreshEMAIL_2].AsString; end; procedure TContactos_RefreshDataTableRules.SetEMAIL_2Value(const aValue: String); begin DataTable.Fields[idx_Contactos_RefreshEMAIL_2].AsString := aValue; end; function TContactos_RefreshDataTableRules.GetEMAIL_2IsNull: boolean; begin result := DataTable.Fields[idx_Contactos_RefreshEMAIL_2].IsNull; end; procedure TContactos_RefreshDataTableRules.SetEMAIL_2IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Contactos_RefreshEMAIL_2].AsVariant := Null; end; function TContactos_RefreshDataTableRules.GetPAGINA_WEBValue: String; begin result := DataTable.Fields[idx_Contactos_RefreshPAGINA_WEB].AsString; end; procedure TContactos_RefreshDataTableRules.SetPAGINA_WEBValue(const aValue: String); begin DataTable.Fields[idx_Contactos_RefreshPAGINA_WEB].AsString := aValue; end; function TContactos_RefreshDataTableRules.GetPAGINA_WEBIsNull: boolean; begin result := DataTable.Fields[idx_Contactos_RefreshPAGINA_WEB].IsNull; end; procedure TContactos_RefreshDataTableRules.SetPAGINA_WEBIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Contactos_RefreshPAGINA_WEB].AsVariant := Null; end; function TContactos_RefreshDataTableRules.GetNOTASValue: IROStrings; begin result := f_NOTAS; result.Text := DataTable.Fields[idx_Contactos_RefreshNOTAS].AsString; end; function TContactos_RefreshDataTableRules.GetNOTASIsNull: boolean; begin result := DataTable.Fields[idx_Contactos_RefreshNOTAS].IsNull; end; procedure TContactos_RefreshDataTableRules.SetNOTASIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Contactos_RefreshNOTAS].AsVariant := Null; end; function TContactos_RefreshDataTableRules.GetFECHA_ALTAValue: DateTime; begin result := DataTable.Fields[idx_Contactos_RefreshFECHA_ALTA].AsDateTime; end; procedure TContactos_RefreshDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); begin DataTable.Fields[idx_Contactos_RefreshFECHA_ALTA].AsDateTime := aValue; end; function TContactos_RefreshDataTableRules.GetFECHA_ALTAIsNull: boolean; begin result := DataTable.Fields[idx_Contactos_RefreshFECHA_ALTA].IsNull; end; procedure TContactos_RefreshDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Contactos_RefreshFECHA_ALTA].AsVariant := Null; end; function TContactos_RefreshDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := DataTable.Fields[idx_Contactos_RefreshFECHA_MODIFICACION].AsDateTime; end; procedure TContactos_RefreshDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin DataTable.Fields[idx_Contactos_RefreshFECHA_MODIFICACION].AsDateTime := aValue; end; function TContactos_RefreshDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean; begin result := DataTable.Fields[idx_Contactos_RefreshFECHA_MODIFICACION].IsNull; end; procedure TContactos_RefreshDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Contactos_RefreshFECHA_MODIFICACION].AsVariant := Null; end; function TContactos_RefreshDataTableRules.GetUSUARIOValue: String; begin result := DataTable.Fields[idx_Contactos_RefreshUSUARIO].AsString; end; procedure TContactos_RefreshDataTableRules.SetUSUARIOValue(const aValue: String); begin DataTable.Fields[idx_Contactos_RefreshUSUARIO].AsString := aValue; end; function TContactos_RefreshDataTableRules.GetUSUARIOIsNull: boolean; begin result := DataTable.Fields[idx_Contactos_RefreshUSUARIO].IsNull; end; procedure TContactos_RefreshDataTableRules.SetUSUARIOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Contactos_RefreshUSUARIO].AsVariant := Null; end; function TContactos_RefreshDataTableRules.GetREFERENCIAValue: String; begin result := DataTable.Fields[idx_Contactos_RefreshREFERENCIA].AsString; end; procedure TContactos_RefreshDataTableRules.SetREFERENCIAValue(const aValue: String); begin DataTable.Fields[idx_Contactos_RefreshREFERENCIA].AsString := aValue; end; function TContactos_RefreshDataTableRules.GetREFERENCIAIsNull: boolean; begin result := DataTable.Fields[idx_Contactos_RefreshREFERENCIA].IsNull; end; procedure TContactos_RefreshDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Contactos_RefreshREFERENCIA].AsVariant := Null; end; function TContactos_RefreshDataTableRules.GetPERSONA_CONTACTOValue: String; begin result := DataTable.Fields[idx_Contactos_RefreshPERSONA_CONTACTO].AsString; end; procedure TContactos_RefreshDataTableRules.SetPERSONA_CONTACTOValue(const aValue: String); begin DataTable.Fields[idx_Contactos_RefreshPERSONA_CONTACTO].AsString := aValue; end; function TContactos_RefreshDataTableRules.GetPERSONA_CONTACTOIsNull: boolean; begin result := DataTable.Fields[idx_Contactos_RefreshPERSONA_CONTACTO].IsNull; end; procedure TContactos_RefreshDataTableRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Contactos_RefreshPERSONA_CONTACTO].AsVariant := Null; end; { TContratosEmpleadosDataTableRules } constructor TContratosEmpleadosDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TContratosEmpleadosDataTableRules.Destroy; begin inherited; end; function TContratosEmpleadosDataTableRules.GetCONTRATOValue: String; begin result := DataTable.Fields[idx_ContratosEmpleadosCONTRATO].AsString; end; procedure TContratosEmpleadosDataTableRules.SetCONTRATOValue(const aValue: String); begin DataTable.Fields[idx_ContratosEmpleadosCONTRATO].AsString := aValue; end; function TContratosEmpleadosDataTableRules.GetCONTRATOIsNull: boolean; begin result := DataTable.Fields[idx_ContratosEmpleadosCONTRATO].IsNull; end; procedure TContratosEmpleadosDataTableRules.SetCONTRATOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ContratosEmpleadosCONTRATO].AsVariant := Null; end; { TDescripcionesProveedoresDataTableRules } constructor TDescripcionesProveedoresDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TDescripcionesProveedoresDataTableRules.Destroy; begin inherited; end; function TDescripcionesProveedoresDataTableRules.GetDESCRIPCION_PROVEEDORValue: String; begin result := DataTable.Fields[idx_DescripcionesProveedoresDESCRIPCION_PROVEEDOR].AsString; end; procedure TDescripcionesProveedoresDataTableRules.SetDESCRIPCION_PROVEEDORValue(const aValue: String); begin DataTable.Fields[idx_DescripcionesProveedoresDESCRIPCION_PROVEEDOR].AsString := aValue; end; function TDescripcionesProveedoresDataTableRules.GetDESCRIPCION_PROVEEDORIsNull: boolean; begin result := DataTable.Fields[idx_DescripcionesProveedoresDESCRIPCION_PROVEEDOR].IsNull; end; procedure TDescripcionesProveedoresDataTableRules.SetDESCRIPCION_PROVEEDORIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_DescripcionesProveedoresDESCRIPCION_PROVEEDOR].AsVariant := Null; end; { TPersonalContactoDataTableRules } constructor TPersonalContactoDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TPersonalContactoDataTableRules.Destroy; begin inherited; end; function TPersonalContactoDataTableRules.GetIDValue: Integer; begin result := DataTable.Fields[idx_PersonalContactoID].AsInteger; end; procedure TPersonalContactoDataTableRules.SetIDValue(const aValue: Integer); begin DataTable.Fields[idx_PersonalContactoID].AsInteger := aValue; end; function TPersonalContactoDataTableRules.GetIDIsNull: boolean; begin result := DataTable.Fields[idx_PersonalContactoID].IsNull; end; procedure TPersonalContactoDataTableRules.SetIDIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_PersonalContactoID].AsVariant := Null; end; function TPersonalContactoDataTableRules.GetID_CONTACTOValue: Integer; begin result := DataTable.Fields[idx_PersonalContactoID_CONTACTO].AsInteger; end; procedure TPersonalContactoDataTableRules.SetID_CONTACTOValue(const aValue: Integer); begin DataTable.Fields[idx_PersonalContactoID_CONTACTO].AsInteger := aValue; end; function TPersonalContactoDataTableRules.GetID_CONTACTOIsNull: boolean; begin result := DataTable.Fields[idx_PersonalContactoID_CONTACTO].IsNull; end; procedure TPersonalContactoDataTableRules.SetID_CONTACTOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_PersonalContactoID_CONTACTO].AsVariant := Null; end; function TPersonalContactoDataTableRules.GetNOMBREValue: String; begin result := DataTable.Fields[idx_PersonalContactoNOMBRE].AsString; end; procedure TPersonalContactoDataTableRules.SetNOMBREValue(const aValue: String); begin DataTable.Fields[idx_PersonalContactoNOMBRE].AsString := aValue; end; function TPersonalContactoDataTableRules.GetNOMBREIsNull: boolean; begin result := DataTable.Fields[idx_PersonalContactoNOMBRE].IsNull; end; procedure TPersonalContactoDataTableRules.SetNOMBREIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_PersonalContactoNOMBRE].AsVariant := Null; end; function TPersonalContactoDataTableRules.GetPUESTOValue: String; begin result := DataTable.Fields[idx_PersonalContactoPUESTO].AsString; end; procedure TPersonalContactoDataTableRules.SetPUESTOValue(const aValue: String); begin DataTable.Fields[idx_PersonalContactoPUESTO].AsString := aValue; end; function TPersonalContactoDataTableRules.GetPUESTOIsNull: boolean; begin result := DataTable.Fields[idx_PersonalContactoPUESTO].IsNull; end; procedure TPersonalContactoDataTableRules.SetPUESTOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_PersonalContactoPUESTO].AsVariant := Null; end; function TPersonalContactoDataTableRules.GetTELEFONOValue: String; begin result := DataTable.Fields[idx_PersonalContactoTELEFONO].AsString; end; procedure TPersonalContactoDataTableRules.SetTELEFONOValue(const aValue: String); begin DataTable.Fields[idx_PersonalContactoTELEFONO].AsString := aValue; end; function TPersonalContactoDataTableRules.GetTELEFONOIsNull: boolean; begin result := DataTable.Fields[idx_PersonalContactoTELEFONO].IsNull; end; procedure TPersonalContactoDataTableRules.SetTELEFONOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_PersonalContactoTELEFONO].AsVariant := Null; end; function TPersonalContactoDataTableRules.GetMOVILValue: String; begin result := DataTable.Fields[idx_PersonalContactoMOVIL].AsString; end; procedure TPersonalContactoDataTableRules.SetMOVILValue(const aValue: String); begin DataTable.Fields[idx_PersonalContactoMOVIL].AsString := aValue; end; function TPersonalContactoDataTableRules.GetMOVILIsNull: boolean; begin result := DataTable.Fields[idx_PersonalContactoMOVIL].IsNull; end; procedure TPersonalContactoDataTableRules.SetMOVILIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_PersonalContactoMOVIL].AsVariant := Null; end; function TPersonalContactoDataTableRules.GetFAXValue: String; begin result := DataTable.Fields[idx_PersonalContactoFAX].AsString; end; procedure TPersonalContactoDataTableRules.SetFAXValue(const aValue: String); begin DataTable.Fields[idx_PersonalContactoFAX].AsString := aValue; end; function TPersonalContactoDataTableRules.GetFAXIsNull: boolean; begin result := DataTable.Fields[idx_PersonalContactoFAX].IsNull; end; procedure TPersonalContactoDataTableRules.SetFAXIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_PersonalContactoFAX].AsVariant := Null; end; function TPersonalContactoDataTableRules.GetEMAILValue: String; begin result := DataTable.Fields[idx_PersonalContactoEMAIL].AsString; end; procedure TPersonalContactoDataTableRules.SetEMAILValue(const aValue: String); begin DataTable.Fields[idx_PersonalContactoEMAIL].AsString := aValue; end; function TPersonalContactoDataTableRules.GetEMAILIsNull: boolean; begin result := DataTable.Fields[idx_PersonalContactoEMAIL].IsNull; end; procedure TPersonalContactoDataTableRules.SetEMAILIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_PersonalContactoEMAIL].AsVariant := Null; end; function TPersonalContactoDataTableRules.GetFECHA_ALTAValue: DateTime; begin result := DataTable.Fields[idx_PersonalContactoFECHA_ALTA].AsDateTime; end; procedure TPersonalContactoDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); begin DataTable.Fields[idx_PersonalContactoFECHA_ALTA].AsDateTime := aValue; end; function TPersonalContactoDataTableRules.GetFECHA_ALTAIsNull: boolean; begin result := DataTable.Fields[idx_PersonalContactoFECHA_ALTA].IsNull; end; procedure TPersonalContactoDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_PersonalContactoFECHA_ALTA].AsVariant := Null; end; function TPersonalContactoDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := DataTable.Fields[idx_PersonalContactoFECHA_MODIFICACION].AsDateTime; end; procedure TPersonalContactoDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin DataTable.Fields[idx_PersonalContactoFECHA_MODIFICACION].AsDateTime := aValue; end; function TPersonalContactoDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean; begin result := DataTable.Fields[idx_PersonalContactoFECHA_MODIFICACION].IsNull; end; procedure TPersonalContactoDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_PersonalContactoFECHA_MODIFICACION].AsVariant := Null; end; { TAgentes_ComisionesDataTableRules } constructor TAgentes_ComisionesDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TAgentes_ComisionesDataTableRules.Destroy; begin inherited; end; function TAgentes_ComisionesDataTableRules.GetIDValue: Integer; begin result := DataTable.Fields[idx_Agentes_ComisionesID].AsInteger; end; procedure TAgentes_ComisionesDataTableRules.SetIDValue(const aValue: Integer); begin DataTable.Fields[idx_Agentes_ComisionesID].AsInteger := aValue; end; function TAgentes_ComisionesDataTableRules.GetIDIsNull: boolean; begin result := DataTable.Fields[idx_Agentes_ComisionesID].IsNull; end; procedure TAgentes_ComisionesDataTableRules.SetIDIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Agentes_ComisionesID].AsVariant := Null; end; function TAgentes_ComisionesDataTableRules.GetID_AGENTEValue: Integer; begin result := DataTable.Fields[idx_Agentes_ComisionesID_AGENTE].AsInteger; end; procedure TAgentes_ComisionesDataTableRules.SetID_AGENTEValue(const aValue: Integer); begin DataTable.Fields[idx_Agentes_ComisionesID_AGENTE].AsInteger := aValue; end; function TAgentes_ComisionesDataTableRules.GetID_AGENTEIsNull: boolean; begin result := DataTable.Fields[idx_Agentes_ComisionesID_AGENTE].IsNull; end; procedure TAgentes_ComisionesDataTableRules.SetID_AGENTEIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Agentes_ComisionesID_AGENTE].AsVariant := Null; end; function TAgentes_ComisionesDataTableRules.GetID_PROVEEDORValue: SmallInt; begin result := DataTable.Fields[idx_Agentes_ComisionesID_PROVEEDOR].AsSmallInt; end; procedure TAgentes_ComisionesDataTableRules.SetID_PROVEEDORValue(const aValue: SmallInt); begin DataTable.Fields[idx_Agentes_ComisionesID_PROVEEDOR].AsSmallInt := aValue; end; function TAgentes_ComisionesDataTableRules.GetID_PROVEEDORIsNull: boolean; begin result := DataTable.Fields[idx_Agentes_ComisionesID_PROVEEDOR].IsNull; end; procedure TAgentes_ComisionesDataTableRules.SetID_PROVEEDORIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Agentes_ComisionesID_PROVEEDOR].AsVariant := Null; end; function TAgentes_ComisionesDataTableRules.GetNOMBREValue: String; begin result := DataTable.Fields[idx_Agentes_ComisionesNOMBRE].AsString; end; procedure TAgentes_ComisionesDataTableRules.SetNOMBREValue(const aValue: String); begin DataTable.Fields[idx_Agentes_ComisionesNOMBRE].AsString := aValue; end; function TAgentes_ComisionesDataTableRules.GetNOMBREIsNull: boolean; begin result := DataTable.Fields[idx_Agentes_ComisionesNOMBRE].IsNull; end; procedure TAgentes_ComisionesDataTableRules.SetNOMBREIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Agentes_ComisionesNOMBRE].AsVariant := Null; end; function TAgentes_ComisionesDataTableRules.GetCOMISIONValue: Float; begin result := DataTable.Fields[idx_Agentes_ComisionesCOMISION].AsFloat; end; procedure TAgentes_ComisionesDataTableRules.SetCOMISIONValue(const aValue: Float); begin DataTable.Fields[idx_Agentes_ComisionesCOMISION].AsFloat := aValue; end; function TAgentes_ComisionesDataTableRules.GetCOMISIONIsNull: boolean; begin result := DataTable.Fields[idx_Agentes_ComisionesCOMISION].IsNull; end; procedure TAgentes_ComisionesDataTableRules.SetCOMISIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Agentes_ComisionesCOMISION].AsVariant := Null; end; { TListaAnosObjetivosAlbDataTableRules } constructor TListaAnosObjetivosAlbDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TListaAnosObjetivosAlbDataTableRules.Destroy; begin inherited; end; function TListaAnosObjetivosAlbDataTableRules.GetANOValue: SmallInt; begin result := DataTable.Fields[idx_ListaAnosObjetivosAlbANO].AsSmallInt; end; procedure TListaAnosObjetivosAlbDataTableRules.SetANOValue(const aValue: SmallInt); begin DataTable.Fields[idx_ListaAnosObjetivosAlbANO].AsSmallInt := aValue; end; function TListaAnosObjetivosAlbDataTableRules.GetANOIsNull: boolean; begin result := DataTable.Fields[idx_ListaAnosObjetivosAlbANO].IsNull; end; procedure TListaAnosObjetivosAlbDataTableRules.SetANOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ListaAnosObjetivosAlbANO].AsVariant := Null; end; { TAgentesDataTableRules } constructor TAgentesDataTableRules.Create(aDataTable: TDADataTable); var StrList: TStringList; begin inherited; StrList := TStringList.Create; StrList.OnChange := NOTAS_OnChange; f_NOTAS := NewROStrings(StrList,True); end; destructor TAgentesDataTableRules.Destroy; begin inherited; end; procedure TAgentesDataTableRules.NOTAS_OnChange(Sender: TObject); begin if DataTable.Editing then DataTable.Fields[idx_AgentesNOTAS].AsVariant := TStringList(Sender).Text; end; function TAgentesDataTableRules.GetIDValue: Integer; begin result := DataTable.Fields[idx_AgentesID].AsInteger; end; procedure TAgentesDataTableRules.SetIDValue(const aValue: Integer); begin DataTable.Fields[idx_AgentesID].AsInteger := aValue; end; function TAgentesDataTableRules.GetIDIsNull: boolean; begin result := DataTable.Fields[idx_AgentesID].IsNull; end; procedure TAgentesDataTableRules.SetIDIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_AgentesID].AsVariant := Null; end; function TAgentesDataTableRules.GetID_CATEGORIAValue: Integer; begin result := DataTable.Fields[idx_AgentesID_CATEGORIA].AsInteger; end; procedure TAgentesDataTableRules.SetID_CATEGORIAValue(const aValue: Integer); begin DataTable.Fields[idx_AgentesID_CATEGORIA].AsInteger := aValue; end; function TAgentesDataTableRules.GetID_CATEGORIAIsNull: boolean; begin result := DataTable.Fields[idx_AgentesID_CATEGORIA].IsNull; end; procedure TAgentesDataTableRules.SetID_CATEGORIAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_AgentesID_CATEGORIA].AsVariant := Null; end; function TAgentesDataTableRules.GetNIF_CIFValue: String; begin result := DataTable.Fields[idx_AgentesNIF_CIF].AsString; end; procedure TAgentesDataTableRules.SetNIF_CIFValue(const aValue: String); begin DataTable.Fields[idx_AgentesNIF_CIF].AsString := aValue; end; function TAgentesDataTableRules.GetNIF_CIFIsNull: boolean; begin result := DataTable.Fields[idx_AgentesNIF_CIF].IsNull; end; procedure TAgentesDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_AgentesNIF_CIF].AsVariant := Null; end; function TAgentesDataTableRules.GetNOMBREValue: String; begin result := DataTable.Fields[idx_AgentesNOMBRE].AsString; end; procedure TAgentesDataTableRules.SetNOMBREValue(const aValue: String); begin DataTable.Fields[idx_AgentesNOMBRE].AsString := aValue; end; function TAgentesDataTableRules.GetNOMBREIsNull: boolean; begin result := DataTable.Fields[idx_AgentesNOMBRE].IsNull; end; procedure TAgentesDataTableRules.SetNOMBREIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_AgentesNOMBRE].AsVariant := Null; end; function TAgentesDataTableRules.GetPERSONA_CONTACTOValue: String; begin result := DataTable.Fields[idx_AgentesPERSONA_CONTACTO].AsString; end; procedure TAgentesDataTableRules.SetPERSONA_CONTACTOValue(const aValue: String); begin DataTable.Fields[idx_AgentesPERSONA_CONTACTO].AsString := aValue; end; function TAgentesDataTableRules.GetPERSONA_CONTACTOIsNull: boolean; begin result := DataTable.Fields[idx_AgentesPERSONA_CONTACTO].IsNull; end; procedure TAgentesDataTableRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_AgentesPERSONA_CONTACTO].AsVariant := Null; end; function TAgentesDataTableRules.GetCALLEValue: String; begin result := DataTable.Fields[idx_AgentesCALLE].AsString; end; procedure TAgentesDataTableRules.SetCALLEValue(const aValue: String); begin DataTable.Fields[idx_AgentesCALLE].AsString := aValue; end; function TAgentesDataTableRules.GetCALLEIsNull: boolean; begin result := DataTable.Fields[idx_AgentesCALLE].IsNull; end; procedure TAgentesDataTableRules.SetCALLEIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_AgentesCALLE].AsVariant := Null; end; function TAgentesDataTableRules.GetPOBLACIONValue: String; begin result := DataTable.Fields[idx_AgentesPOBLACION].AsString; end; procedure TAgentesDataTableRules.SetPOBLACIONValue(const aValue: String); begin DataTable.Fields[idx_AgentesPOBLACION].AsString := aValue; end; function TAgentesDataTableRules.GetPOBLACIONIsNull: boolean; begin result := DataTable.Fields[idx_AgentesPOBLACION].IsNull; end; procedure TAgentesDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_AgentesPOBLACION].AsVariant := Null; end; function TAgentesDataTableRules.GetPROVINCIAValue: String; begin result := DataTable.Fields[idx_AgentesPROVINCIA].AsString; end; procedure TAgentesDataTableRules.SetPROVINCIAValue(const aValue: String); begin DataTable.Fields[idx_AgentesPROVINCIA].AsString := aValue; end; function TAgentesDataTableRules.GetPROVINCIAIsNull: boolean; begin result := DataTable.Fields[idx_AgentesPROVINCIA].IsNull; end; procedure TAgentesDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_AgentesPROVINCIA].AsVariant := Null; end; function TAgentesDataTableRules.GetCODIGO_POSTALValue: String; begin result := DataTable.Fields[idx_AgentesCODIGO_POSTAL].AsString; end; procedure TAgentesDataTableRules.SetCODIGO_POSTALValue(const aValue: String); begin DataTable.Fields[idx_AgentesCODIGO_POSTAL].AsString := aValue; end; function TAgentesDataTableRules.GetCODIGO_POSTALIsNull: boolean; begin result := DataTable.Fields[idx_AgentesCODIGO_POSTAL].IsNull; end; procedure TAgentesDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_AgentesCODIGO_POSTAL].AsVariant := Null; end; function TAgentesDataTableRules.GetPAISValue: String; begin result := DataTable.Fields[idx_AgentesPAIS].AsString; end; procedure TAgentesDataTableRules.SetPAISValue(const aValue: String); begin DataTable.Fields[idx_AgentesPAIS].AsString := aValue; end; function TAgentesDataTableRules.GetPAISIsNull: boolean; begin result := DataTable.Fields[idx_AgentesPAIS].IsNull; end; procedure TAgentesDataTableRules.SetPAISIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_AgentesPAIS].AsVariant := Null; end; function TAgentesDataTableRules.GetIDIOMA_ISOValue: String; begin result := DataTable.Fields[idx_AgentesIDIOMA_ISO].AsString; end; procedure TAgentesDataTableRules.SetIDIOMA_ISOValue(const aValue: String); begin DataTable.Fields[idx_AgentesIDIOMA_ISO].AsString := aValue; end; function TAgentesDataTableRules.GetIDIOMA_ISOIsNull: boolean; begin result := DataTable.Fields[idx_AgentesIDIOMA_ISO].IsNull; end; procedure TAgentesDataTableRules.SetIDIOMA_ISOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_AgentesIDIOMA_ISO].AsVariant := Null; end; function TAgentesDataTableRules.GetIDIOMAValue: String; begin result := DataTable.Fields[idx_AgentesIDIOMA].AsString; end; procedure TAgentesDataTableRules.SetIDIOMAValue(const aValue: String); begin DataTable.Fields[idx_AgentesIDIOMA].AsString := aValue; end; function TAgentesDataTableRules.GetIDIOMAIsNull: boolean; begin result := DataTable.Fields[idx_AgentesIDIOMA].IsNull; end; procedure TAgentesDataTableRules.SetIDIOMAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_AgentesIDIOMA].AsVariant := Null; end; function TAgentesDataTableRules.GetTELEFONO_1Value: String; begin result := DataTable.Fields[idx_AgentesTELEFONO_1].AsString; end; procedure TAgentesDataTableRules.SetTELEFONO_1Value(const aValue: String); begin DataTable.Fields[idx_AgentesTELEFONO_1].AsString := aValue; end; function TAgentesDataTableRules.GetTELEFONO_1IsNull: boolean; begin result := DataTable.Fields[idx_AgentesTELEFONO_1].IsNull; end; procedure TAgentesDataTableRules.SetTELEFONO_1IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_AgentesTELEFONO_1].AsVariant := Null; end; function TAgentesDataTableRules.GetTELEFONO_2Value: String; begin result := DataTable.Fields[idx_AgentesTELEFONO_2].AsString; end; procedure TAgentesDataTableRules.SetTELEFONO_2Value(const aValue: String); begin DataTable.Fields[idx_AgentesTELEFONO_2].AsString := aValue; end; function TAgentesDataTableRules.GetTELEFONO_2IsNull: boolean; begin result := DataTable.Fields[idx_AgentesTELEFONO_2].IsNull; end; procedure TAgentesDataTableRules.SetTELEFONO_2IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_AgentesTELEFONO_2].AsVariant := Null; end; function TAgentesDataTableRules.GetMOVIL_1Value: String; begin result := DataTable.Fields[idx_AgentesMOVIL_1].AsString; end; procedure TAgentesDataTableRules.SetMOVIL_1Value(const aValue: String); begin DataTable.Fields[idx_AgentesMOVIL_1].AsString := aValue; end; function TAgentesDataTableRules.GetMOVIL_1IsNull: boolean; begin result := DataTable.Fields[idx_AgentesMOVIL_1].IsNull; end; procedure TAgentesDataTableRules.SetMOVIL_1IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_AgentesMOVIL_1].AsVariant := Null; end; function TAgentesDataTableRules.GetMOVIL_2Value: String; begin result := DataTable.Fields[idx_AgentesMOVIL_2].AsString; end; procedure TAgentesDataTableRules.SetMOVIL_2Value(const aValue: String); begin DataTable.Fields[idx_AgentesMOVIL_2].AsString := aValue; end; function TAgentesDataTableRules.GetMOVIL_2IsNull: boolean; begin result := DataTable.Fields[idx_AgentesMOVIL_2].IsNull; end; procedure TAgentesDataTableRules.SetMOVIL_2IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_AgentesMOVIL_2].AsVariant := Null; end; function TAgentesDataTableRules.GetFAXValue: String; begin result := DataTable.Fields[idx_AgentesFAX].AsString; end; procedure TAgentesDataTableRules.SetFAXValue(const aValue: String); begin DataTable.Fields[idx_AgentesFAX].AsString := aValue; end; function TAgentesDataTableRules.GetFAXIsNull: boolean; begin result := DataTable.Fields[idx_AgentesFAX].IsNull; end; procedure TAgentesDataTableRules.SetFAXIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_AgentesFAX].AsVariant := Null; end; function TAgentesDataTableRules.GetEMAIL_1Value: String; begin result := DataTable.Fields[idx_AgentesEMAIL_1].AsString; end; procedure TAgentesDataTableRules.SetEMAIL_1Value(const aValue: String); begin DataTable.Fields[idx_AgentesEMAIL_1].AsString := aValue; end; function TAgentesDataTableRules.GetEMAIL_1IsNull: boolean; begin result := DataTable.Fields[idx_AgentesEMAIL_1].IsNull; end; procedure TAgentesDataTableRules.SetEMAIL_1IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_AgentesEMAIL_1].AsVariant := Null; end; function TAgentesDataTableRules.GetEMAIL_2Value: String; begin result := DataTable.Fields[idx_AgentesEMAIL_2].AsString; end; procedure TAgentesDataTableRules.SetEMAIL_2Value(const aValue: String); begin DataTable.Fields[idx_AgentesEMAIL_2].AsString := aValue; end; function TAgentesDataTableRules.GetEMAIL_2IsNull: boolean; begin result := DataTable.Fields[idx_AgentesEMAIL_2].IsNull; end; procedure TAgentesDataTableRules.SetEMAIL_2IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_AgentesEMAIL_2].AsVariant := Null; end; function TAgentesDataTableRules.GetPAGINA_WEBValue: String; begin result := DataTable.Fields[idx_AgentesPAGINA_WEB].AsString; end; procedure TAgentesDataTableRules.SetPAGINA_WEBValue(const aValue: String); begin DataTable.Fields[idx_AgentesPAGINA_WEB].AsString := aValue; end; function TAgentesDataTableRules.GetPAGINA_WEBIsNull: boolean; begin result := DataTable.Fields[idx_AgentesPAGINA_WEB].IsNull; end; procedure TAgentesDataTableRules.SetPAGINA_WEBIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_AgentesPAGINA_WEB].AsVariant := Null; end; function TAgentesDataTableRules.GetNOTASValue: IROStrings; begin result := f_NOTAS; result.Text := DataTable.Fields[idx_AgentesNOTAS].AsString; end; function TAgentesDataTableRules.GetNOTASIsNull: boolean; begin result := DataTable.Fields[idx_AgentesNOTAS].IsNull; end; procedure TAgentesDataTableRules.SetNOTASIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_AgentesNOTAS].AsVariant := Null; end; function TAgentesDataTableRules.GetFECHA_ALTAValue: DateTime; begin result := DataTable.Fields[idx_AgentesFECHA_ALTA].AsDateTime; end; procedure TAgentesDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); begin DataTable.Fields[idx_AgentesFECHA_ALTA].AsDateTime := aValue; end; function TAgentesDataTableRules.GetFECHA_ALTAIsNull: boolean; begin result := DataTable.Fields[idx_AgentesFECHA_ALTA].IsNull; end; procedure TAgentesDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_AgentesFECHA_ALTA].AsVariant := Null; end; function TAgentesDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := DataTable.Fields[idx_AgentesFECHA_MODIFICACION].AsDateTime; end; procedure TAgentesDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin DataTable.Fields[idx_AgentesFECHA_MODIFICACION].AsDateTime := aValue; end; function TAgentesDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean; begin result := DataTable.Fields[idx_AgentesFECHA_MODIFICACION].IsNull; end; procedure TAgentesDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_AgentesFECHA_MODIFICACION].AsVariant := Null; end; function TAgentesDataTableRules.GetUSUARIOValue: String; begin result := DataTable.Fields[idx_AgentesUSUARIO].AsString; end; procedure TAgentesDataTableRules.SetUSUARIOValue(const aValue: String); begin DataTable.Fields[idx_AgentesUSUARIO].AsString := aValue; end; function TAgentesDataTableRules.GetUSUARIOIsNull: boolean; begin result := DataTable.Fields[idx_AgentesUSUARIO].IsNull; end; procedure TAgentesDataTableRules.SetUSUARIOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_AgentesUSUARIO].AsVariant := Null; end; function TAgentesDataTableRules.GetID_EMPRESAValue: Integer; begin result := DataTable.Fields[idx_AgentesID_EMPRESA].AsInteger; end; procedure TAgentesDataTableRules.SetID_EMPRESAValue(const aValue: Integer); begin DataTable.Fields[idx_AgentesID_EMPRESA].AsInteger := aValue; end; function TAgentesDataTableRules.GetID_EMPRESAIsNull: boolean; begin result := DataTable.Fields[idx_AgentesID_EMPRESA].IsNull; end; procedure TAgentesDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_AgentesID_EMPRESA].AsVariant := Null; end; function TAgentesDataTableRules.GetREFERENCIAValue: String; begin result := DataTable.Fields[idx_AgentesREFERENCIA].AsString; end; procedure TAgentesDataTableRules.SetREFERENCIAValue(const aValue: String); begin DataTable.Fields[idx_AgentesREFERENCIA].AsString := aValue; end; function TAgentesDataTableRules.GetREFERENCIAIsNull: boolean; begin result := DataTable.Fields[idx_AgentesREFERENCIA].IsNull; end; procedure TAgentesDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_AgentesREFERENCIA].AsVariant := Null; end; function TAgentesDataTableRules.GetFECHA_ALTA_EMPRESAValue: DateTime; begin result := DataTable.Fields[idx_AgentesFECHA_ALTA_EMPRESA].AsDateTime; end; procedure TAgentesDataTableRules.SetFECHA_ALTA_EMPRESAValue(const aValue: DateTime); begin DataTable.Fields[idx_AgentesFECHA_ALTA_EMPRESA].AsDateTime := aValue; end; function TAgentesDataTableRules.GetFECHA_ALTA_EMPRESAIsNull: boolean; begin result := DataTable.Fields[idx_AgentesFECHA_ALTA_EMPRESA].IsNull; end; procedure TAgentesDataTableRules.SetFECHA_ALTA_EMPRESAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_AgentesFECHA_ALTA_EMPRESA].AsVariant := Null; end; function TAgentesDataTableRules.GetFECHA_BAJAValue: DateTime; begin result := DataTable.Fields[idx_AgentesFECHA_BAJA].AsDateTime; end; procedure TAgentesDataTableRules.SetFECHA_BAJAValue(const aValue: DateTime); begin DataTable.Fields[idx_AgentesFECHA_BAJA].AsDateTime := aValue; end; function TAgentesDataTableRules.GetFECHA_BAJAIsNull: boolean; begin result := DataTable.Fields[idx_AgentesFECHA_BAJA].IsNull; end; procedure TAgentesDataTableRules.SetFECHA_BAJAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_AgentesFECHA_BAJA].AsVariant := Null; end; function TAgentesDataTableRules.GetCAUSA_BAJAValue: String; begin result := DataTable.Fields[idx_AgentesCAUSA_BAJA].AsString; end; procedure TAgentesDataTableRules.SetCAUSA_BAJAValue(const aValue: String); begin DataTable.Fields[idx_AgentesCAUSA_BAJA].AsString := aValue; end; function TAgentesDataTableRules.GetCAUSA_BAJAIsNull: boolean; begin result := DataTable.Fields[idx_AgentesCAUSA_BAJA].IsNull; end; procedure TAgentesDataTableRules.SetCAUSA_BAJAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_AgentesCAUSA_BAJA].AsVariant := Null; end; { TClientesDescuentosArticulosDataTableRules } constructor TClientesDescuentosArticulosDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TClientesDescuentosArticulosDataTableRules.Destroy; begin inherited; end; function TClientesDescuentosArticulosDataTableRules.GetIDValue: Integer; begin result := DataTable.Fields[idx_ClientesDescuentosArticulosID].AsInteger; end; procedure TClientesDescuentosArticulosDataTableRules.SetIDValue(const aValue: Integer); begin DataTable.Fields[idx_ClientesDescuentosArticulosID].AsInteger := aValue; end; function TClientesDescuentosArticulosDataTableRules.GetIDIsNull: boolean; begin result := DataTable.Fields[idx_ClientesDescuentosArticulosID].IsNull; end; procedure TClientesDescuentosArticulosDataTableRules.SetIDIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesDescuentosArticulosID].AsVariant := Null; end; function TClientesDescuentosArticulosDataTableRules.GetID_CLIENTEValue: Integer; begin result := DataTable.Fields[idx_ClientesDescuentosArticulosID_CLIENTE].AsInteger; end; procedure TClientesDescuentosArticulosDataTableRules.SetID_CLIENTEValue(const aValue: Integer); begin DataTable.Fields[idx_ClientesDescuentosArticulosID_CLIENTE].AsInteger := aValue; end; function TClientesDescuentosArticulosDataTableRules.GetID_CLIENTEIsNull: boolean; begin result := DataTable.Fields[idx_ClientesDescuentosArticulosID_CLIENTE].IsNull; end; procedure TClientesDescuentosArticulosDataTableRules.SetID_CLIENTEIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesDescuentosArticulosID_CLIENTE].AsVariant := Null; end; function TClientesDescuentosArticulosDataTableRules.GetID_ARTICULOValue: SmallInt; begin result := DataTable.Fields[idx_ClientesDescuentosArticulosID_ARTICULO].AsSmallInt; end; procedure TClientesDescuentosArticulosDataTableRules.SetID_ARTICULOValue(const aValue: SmallInt); begin DataTable.Fields[idx_ClientesDescuentosArticulosID_ARTICULO].AsSmallInt := aValue; end; function TClientesDescuentosArticulosDataTableRules.GetID_ARTICULOIsNull: boolean; begin result := DataTable.Fields[idx_ClientesDescuentosArticulosID_ARTICULO].IsNull; end; procedure TClientesDescuentosArticulosDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesDescuentosArticulosID_ARTICULO].AsVariant := Null; end; function TClientesDescuentosArticulosDataTableRules.GetREFERENCIAValue: String; begin result := DataTable.Fields[idx_ClientesDescuentosArticulosREFERENCIA].AsString; end; procedure TClientesDescuentosArticulosDataTableRules.SetREFERENCIAValue(const aValue: String); begin DataTable.Fields[idx_ClientesDescuentosArticulosREFERENCIA].AsString := aValue; end; function TClientesDescuentosArticulosDataTableRules.GetREFERENCIAIsNull: boolean; begin result := DataTable.Fields[idx_ClientesDescuentosArticulosREFERENCIA].IsNull; end; procedure TClientesDescuentosArticulosDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesDescuentosArticulosREFERENCIA].AsVariant := Null; end; function TClientesDescuentosArticulosDataTableRules.GetDESCRIPCIONValue: String; begin result := DataTable.Fields[idx_ClientesDescuentosArticulosDESCRIPCION].AsString; end; procedure TClientesDescuentosArticulosDataTableRules.SetDESCRIPCIONValue(const aValue: String); begin DataTable.Fields[idx_ClientesDescuentosArticulosDESCRIPCION].AsString := aValue; end; function TClientesDescuentosArticulosDataTableRules.GetDESCRIPCIONIsNull: boolean; begin result := DataTable.Fields[idx_ClientesDescuentosArticulosDESCRIPCION].IsNull; end; procedure TClientesDescuentosArticulosDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesDescuentosArticulosDESCRIPCION].AsVariant := Null; end; function TClientesDescuentosArticulosDataTableRules.GetPRECIO_COSTEValue: Currency; begin result := DataTable.Fields[idx_ClientesDescuentosArticulosPRECIO_COSTE].AsCurrency; end; procedure TClientesDescuentosArticulosDataTableRules.SetPRECIO_COSTEValue(const aValue: Currency); begin DataTable.Fields[idx_ClientesDescuentosArticulosPRECIO_COSTE].AsCurrency := aValue; end; function TClientesDescuentosArticulosDataTableRules.GetPRECIO_COSTEIsNull: boolean; begin result := DataTable.Fields[idx_ClientesDescuentosArticulosPRECIO_COSTE].IsNull; end; procedure TClientesDescuentosArticulosDataTableRules.SetPRECIO_COSTEIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesDescuentosArticulosPRECIO_COSTE].AsVariant := Null; end; function TClientesDescuentosArticulosDataTableRules.GetDESCUENTO_PROVEEDORValue: Float; begin result := DataTable.Fields[idx_ClientesDescuentosArticulosDESCUENTO_PROVEEDOR].AsFloat; end; procedure TClientesDescuentosArticulosDataTableRules.SetDESCUENTO_PROVEEDORValue(const aValue: Float); begin DataTable.Fields[idx_ClientesDescuentosArticulosDESCUENTO_PROVEEDOR].AsFloat := aValue; end; function TClientesDescuentosArticulosDataTableRules.GetDESCUENTO_PROVEEDORIsNull: boolean; begin result := DataTable.Fields[idx_ClientesDescuentosArticulosDESCUENTO_PROVEEDOR].IsNull; end; procedure TClientesDescuentosArticulosDataTableRules.SetDESCUENTO_PROVEEDORIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesDescuentosArticulosDESCUENTO_PROVEEDOR].AsVariant := Null; end; function TClientesDescuentosArticulosDataTableRules.GetPRECIO_NETOValue: Currency; begin result := DataTable.Fields[idx_ClientesDescuentosArticulosPRECIO_NETO].AsCurrency; end; procedure TClientesDescuentosArticulosDataTableRules.SetPRECIO_NETOValue(const aValue: Currency); begin DataTable.Fields[idx_ClientesDescuentosArticulosPRECIO_NETO].AsCurrency := aValue; end; function TClientesDescuentosArticulosDataTableRules.GetPRECIO_NETOIsNull: boolean; begin result := DataTable.Fields[idx_ClientesDescuentosArticulosPRECIO_NETO].IsNull; end; procedure TClientesDescuentosArticulosDataTableRules.SetPRECIO_NETOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesDescuentosArticulosPRECIO_NETO].AsVariant := Null; end; function TClientesDescuentosArticulosDataTableRules.GetDESCUENTOValue: Float; begin result := DataTable.Fields[idx_ClientesDescuentosArticulosDESCUENTO].AsFloat; end; procedure TClientesDescuentosArticulosDataTableRules.SetDESCUENTOValue(const aValue: Float); begin DataTable.Fields[idx_ClientesDescuentosArticulosDESCUENTO].AsFloat := aValue; end; function TClientesDescuentosArticulosDataTableRules.GetDESCUENTOIsNull: boolean; begin result := DataTable.Fields[idx_ClientesDescuentosArticulosDESCUENTO].IsNull; end; procedure TClientesDescuentosArticulosDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesDescuentosArticulosDESCUENTO].AsVariant := Null; end; { TAgentes_Objetivos_albaranesDataTableRules } constructor TAgentes_Objetivos_albaranesDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TAgentes_Objetivos_albaranesDataTableRules.Destroy; begin inherited; end; function TAgentes_Objetivos_albaranesDataTableRules.GetIDValue: Integer; begin result := DataTable.Fields[idx_Agentes_Objetivos_albaranesID].AsInteger; end; procedure TAgentes_Objetivos_albaranesDataTableRules.SetIDValue(const aValue: Integer); begin DataTable.Fields[idx_Agentes_Objetivos_albaranesID].AsInteger := aValue; end; function TAgentes_Objetivos_albaranesDataTableRules.GetIDIsNull: boolean; begin result := DataTable.Fields[idx_Agentes_Objetivos_albaranesID].IsNull; end; procedure TAgentes_Objetivos_albaranesDataTableRules.SetIDIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Agentes_Objetivos_albaranesID].AsVariant := Null; end; function TAgentes_Objetivos_albaranesDataTableRules.GetID_AGENTEValue: Integer; begin result := DataTable.Fields[idx_Agentes_Objetivos_albaranesID_AGENTE].AsInteger; end; procedure TAgentes_Objetivos_albaranesDataTableRules.SetID_AGENTEValue(const aValue: Integer); begin DataTable.Fields[idx_Agentes_Objetivos_albaranesID_AGENTE].AsInteger := aValue; end; function TAgentes_Objetivos_albaranesDataTableRules.GetID_AGENTEIsNull: boolean; begin result := DataTable.Fields[idx_Agentes_Objetivos_albaranesID_AGENTE].IsNull; end; procedure TAgentes_Objetivos_albaranesDataTableRules.SetID_AGENTEIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Agentes_Objetivos_albaranesID_AGENTE].AsVariant := Null; end; function TAgentes_Objetivos_albaranesDataTableRules.GetANOValue: SmallInt; begin result := DataTable.Fields[idx_Agentes_Objetivos_albaranesANO].AsSmallInt; end; procedure TAgentes_Objetivos_albaranesDataTableRules.SetANOValue(const aValue: SmallInt); begin DataTable.Fields[idx_Agentes_Objetivos_albaranesANO].AsSmallInt := aValue; end; function TAgentes_Objetivos_albaranesDataTableRules.GetANOIsNull: boolean; begin result := DataTable.Fields[idx_Agentes_Objetivos_albaranesANO].IsNull; end; procedure TAgentes_Objetivos_albaranesDataTableRules.SetANOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Agentes_Objetivos_albaranesANO].AsVariant := Null; end; function TAgentes_Objetivos_albaranesDataTableRules.GetMESValue: SmallInt; begin result := DataTable.Fields[idx_Agentes_Objetivos_albaranesMES].AsSmallInt; end; procedure TAgentes_Objetivos_albaranesDataTableRules.SetMESValue(const aValue: SmallInt); begin DataTable.Fields[idx_Agentes_Objetivos_albaranesMES].AsSmallInt := aValue; end; function TAgentes_Objetivos_albaranesDataTableRules.GetMESIsNull: boolean; begin result := DataTable.Fields[idx_Agentes_Objetivos_albaranesMES].IsNull; end; procedure TAgentes_Objetivos_albaranesDataTableRules.SetMESIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Agentes_Objetivos_albaranesMES].AsVariant := Null; end; function TAgentes_Objetivos_albaranesDataTableRules.GetDESCRIPCIONValue: String; begin result := DataTable.Fields[idx_Agentes_Objetivos_albaranesDESCRIPCION].AsString; end; procedure TAgentes_Objetivos_albaranesDataTableRules.SetDESCRIPCIONValue(const aValue: String); begin DataTable.Fields[idx_Agentes_Objetivos_albaranesDESCRIPCION].AsString := aValue; end; function TAgentes_Objetivos_albaranesDataTableRules.GetDESCRIPCIONIsNull: boolean; begin result := DataTable.Fields[idx_Agentes_Objetivos_albaranesDESCRIPCION].IsNull; end; procedure TAgentes_Objetivos_albaranesDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Agentes_Objetivos_albaranesDESCRIPCION].AsVariant := Null; end; function TAgentes_Objetivos_albaranesDataTableRules.GetUNIDADES_OBJETIVOValue: SmallInt; begin result := DataTable.Fields[idx_Agentes_Objetivos_albaranesUNIDADES_OBJETIVO].AsSmallInt; end; procedure TAgentes_Objetivos_albaranesDataTableRules.SetUNIDADES_OBJETIVOValue(const aValue: SmallInt); begin DataTable.Fields[idx_Agentes_Objetivos_albaranesUNIDADES_OBJETIVO].AsSmallInt := aValue; end; function TAgentes_Objetivos_albaranesDataTableRules.GetUNIDADES_OBJETIVOIsNull: boolean; begin result := DataTable.Fields[idx_Agentes_Objetivos_albaranesUNIDADES_OBJETIVO].IsNull; end; procedure TAgentes_Objetivos_albaranesDataTableRules.SetUNIDADES_OBJETIVOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Agentes_Objetivos_albaranesUNIDADES_OBJETIVO].AsVariant := Null; end; function TAgentes_Objetivos_albaranesDataTableRules.GetIMPORTE_OBJETIVOValue: Currency; begin result := DataTable.Fields[idx_Agentes_Objetivos_albaranesIMPORTE_OBJETIVO].AsCurrency; end; procedure TAgentes_Objetivos_albaranesDataTableRules.SetIMPORTE_OBJETIVOValue(const aValue: Currency); begin DataTable.Fields[idx_Agentes_Objetivos_albaranesIMPORTE_OBJETIVO].AsCurrency := aValue; end; function TAgentes_Objetivos_albaranesDataTableRules.GetIMPORTE_OBJETIVOIsNull: boolean; begin result := DataTable.Fields[idx_Agentes_Objetivos_albaranesIMPORTE_OBJETIVO].IsNull; end; procedure TAgentes_Objetivos_albaranesDataTableRules.SetIMPORTE_OBJETIVOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Agentes_Objetivos_albaranesIMPORTE_OBJETIVO].AsVariant := Null; end; { TAgentes_Objetivos_facturasDataTableRules } constructor TAgentes_Objetivos_facturasDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TAgentes_Objetivos_facturasDataTableRules.Destroy; begin inherited; end; function TAgentes_Objetivos_facturasDataTableRules.GetIDValue: Integer; begin result := DataTable.Fields[idx_Agentes_Objetivos_facturasID].AsInteger; end; procedure TAgentes_Objetivos_facturasDataTableRules.SetIDValue(const aValue: Integer); begin DataTable.Fields[idx_Agentes_Objetivos_facturasID].AsInteger := aValue; end; function TAgentes_Objetivos_facturasDataTableRules.GetIDIsNull: boolean; begin result := DataTable.Fields[idx_Agentes_Objetivos_facturasID].IsNull; end; procedure TAgentes_Objetivos_facturasDataTableRules.SetIDIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Agentes_Objetivos_facturasID].AsVariant := Null; end; function TAgentes_Objetivos_facturasDataTableRules.GetID_AGENTEValue: Integer; begin result := DataTable.Fields[idx_Agentes_Objetivos_facturasID_AGENTE].AsInteger; end; procedure TAgentes_Objetivos_facturasDataTableRules.SetID_AGENTEValue(const aValue: Integer); begin DataTable.Fields[idx_Agentes_Objetivos_facturasID_AGENTE].AsInteger := aValue; end; function TAgentes_Objetivos_facturasDataTableRules.GetID_AGENTEIsNull: boolean; begin result := DataTable.Fields[idx_Agentes_Objetivos_facturasID_AGENTE].IsNull; end; procedure TAgentes_Objetivos_facturasDataTableRules.SetID_AGENTEIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Agentes_Objetivos_facturasID_AGENTE].AsVariant := Null; end; function TAgentes_Objetivos_facturasDataTableRules.GetANOValue: SmallInt; begin result := DataTable.Fields[idx_Agentes_Objetivos_facturasANO].AsSmallInt; end; procedure TAgentes_Objetivos_facturasDataTableRules.SetANOValue(const aValue: SmallInt); begin DataTable.Fields[idx_Agentes_Objetivos_facturasANO].AsSmallInt := aValue; end; function TAgentes_Objetivos_facturasDataTableRules.GetANOIsNull: boolean; begin result := DataTable.Fields[idx_Agentes_Objetivos_facturasANO].IsNull; end; procedure TAgentes_Objetivos_facturasDataTableRules.SetANOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Agentes_Objetivos_facturasANO].AsVariant := Null; end; function TAgentes_Objetivos_facturasDataTableRules.GetMESValue: SmallInt; begin result := DataTable.Fields[idx_Agentes_Objetivos_facturasMES].AsSmallInt; end; procedure TAgentes_Objetivos_facturasDataTableRules.SetMESValue(const aValue: SmallInt); begin DataTable.Fields[idx_Agentes_Objetivos_facturasMES].AsSmallInt := aValue; end; function TAgentes_Objetivos_facturasDataTableRules.GetMESIsNull: boolean; begin result := DataTable.Fields[idx_Agentes_Objetivos_facturasMES].IsNull; end; procedure TAgentes_Objetivos_facturasDataTableRules.SetMESIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Agentes_Objetivos_facturasMES].AsVariant := Null; end; function TAgentes_Objetivos_facturasDataTableRules.GetDESCRIPCIONValue: String; begin result := DataTable.Fields[idx_Agentes_Objetivos_facturasDESCRIPCION].AsString; end; procedure TAgentes_Objetivos_facturasDataTableRules.SetDESCRIPCIONValue(const aValue: String); begin DataTable.Fields[idx_Agentes_Objetivos_facturasDESCRIPCION].AsString := aValue; end; function TAgentes_Objetivos_facturasDataTableRules.GetDESCRIPCIONIsNull: boolean; begin result := DataTable.Fields[idx_Agentes_Objetivos_facturasDESCRIPCION].IsNull; end; procedure TAgentes_Objetivos_facturasDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Agentes_Objetivos_facturasDESCRIPCION].AsVariant := Null; end; function TAgentes_Objetivos_facturasDataTableRules.GetUNIDADES_OBJETIVOValue: SmallInt; begin result := DataTable.Fields[idx_Agentes_Objetivos_facturasUNIDADES_OBJETIVO].AsSmallInt; end; procedure TAgentes_Objetivos_facturasDataTableRules.SetUNIDADES_OBJETIVOValue(const aValue: SmallInt); begin DataTable.Fields[idx_Agentes_Objetivos_facturasUNIDADES_OBJETIVO].AsSmallInt := aValue; end; function TAgentes_Objetivos_facturasDataTableRules.GetUNIDADES_OBJETIVOIsNull: boolean; begin result := DataTable.Fields[idx_Agentes_Objetivos_facturasUNIDADES_OBJETIVO].IsNull; end; procedure TAgentes_Objetivos_facturasDataTableRules.SetUNIDADES_OBJETIVOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Agentes_Objetivos_facturasUNIDADES_OBJETIVO].AsVariant := Null; end; function TAgentes_Objetivos_facturasDataTableRules.GetIMPORTE_OBJETIVOValue: Currency; begin result := DataTable.Fields[idx_Agentes_Objetivos_facturasIMPORTE_OBJETIVO].AsCurrency; end; procedure TAgentes_Objetivos_facturasDataTableRules.SetIMPORTE_OBJETIVOValue(const aValue: Currency); begin DataTable.Fields[idx_Agentes_Objetivos_facturasIMPORTE_OBJETIVO].AsCurrency := aValue; end; function TAgentes_Objetivos_facturasDataTableRules.GetIMPORTE_OBJETIVOIsNull: boolean; begin result := DataTable.Fields[idx_Agentes_Objetivos_facturasIMPORTE_OBJETIVO].IsNull; end; procedure TAgentes_Objetivos_facturasDataTableRules.SetIMPORTE_OBJETIVOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_Agentes_Objetivos_facturasIMPORTE_OBJETIVO].AsVariant := Null; end; { TListaAnosObjetivosFacDataTableRules } constructor TListaAnosObjetivosFacDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TListaAnosObjetivosFacDataTableRules.Destroy; begin inherited; end; function TListaAnosObjetivosFacDataTableRules.GetANOValue: SmallInt; begin result := DataTable.Fields[idx_ListaAnosObjetivosFacANO].AsSmallInt; end; procedure TListaAnosObjetivosFacDataTableRules.SetANOValue(const aValue: SmallInt); begin DataTable.Fields[idx_ListaAnosObjetivosFacANO].AsSmallInt := aValue; end; function TListaAnosObjetivosFacDataTableRules.GetANOIsNull: boolean; begin result := DataTable.Fields[idx_ListaAnosObjetivosFacANO].IsNull; end; procedure TListaAnosObjetivosFacDataTableRules.SetANOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ListaAnosObjetivosFacANO].AsVariant := Null; end; { TIdiomasDataTableRules } constructor TIdiomasDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TIdiomasDataTableRules.Destroy; begin inherited; end; function TIdiomasDataTableRules.GetIDValue: Integer; begin result := DataTable.Fields[idx_IdiomasID].AsInteger; end; procedure TIdiomasDataTableRules.SetIDValue(const aValue: Integer); begin DataTable.Fields[idx_IdiomasID].AsInteger := aValue; end; function TIdiomasDataTableRules.GetIDIsNull: boolean; begin result := DataTable.Fields[idx_IdiomasID].IsNull; end; procedure TIdiomasDataTableRules.SetIDIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_IdiomasID].AsVariant := Null; end; function TIdiomasDataTableRules.GetISOValue: String; begin result := DataTable.Fields[idx_IdiomasISO].AsString; end; procedure TIdiomasDataTableRules.SetISOValue(const aValue: String); begin DataTable.Fields[idx_IdiomasISO].AsString := aValue; end; function TIdiomasDataTableRules.GetISOIsNull: boolean; begin result := DataTable.Fields[idx_IdiomasISO].IsNull; end; procedure TIdiomasDataTableRules.SetISOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_IdiomasISO].AsVariant := Null; end; function TIdiomasDataTableRules.GetDESCRIPCIONValue: String; begin result := DataTable.Fields[idx_IdiomasDESCRIPCION].AsString; end; procedure TIdiomasDataTableRules.SetDESCRIPCIONValue(const aValue: String); begin DataTable.Fields[idx_IdiomasDESCRIPCION].AsString := aValue; end; function TIdiomasDataTableRules.GetDESCRIPCIONIsNull: boolean; begin result := DataTable.Fields[idx_IdiomasDESCRIPCION].IsNull; end; procedure TIdiomasDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_IdiomasDESCRIPCION].AsVariant := Null; end; { TTiposClienteDataTableRules } constructor TTiposClienteDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TTiposClienteDataTableRules.Destroy; begin inherited; end; function TTiposClienteDataTableRules.GetIDValue: Integer; begin result := DataTable.Fields[idx_TiposClienteID].AsInteger; end; procedure TTiposClienteDataTableRules.SetIDValue(const aValue: Integer); begin DataTable.Fields[idx_TiposClienteID].AsInteger := aValue; end; function TTiposClienteDataTableRules.GetIDIsNull: boolean; begin result := DataTable.Fields[idx_TiposClienteID].IsNull; end; procedure TTiposClienteDataTableRules.SetIDIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_TiposClienteID].AsVariant := Null; end; function TTiposClienteDataTableRules.GetDESCRIPCIONValue: String; begin result := DataTable.Fields[idx_TiposClienteDESCRIPCION].AsString; end; procedure TTiposClienteDataTableRules.SetDESCRIPCIONValue(const aValue: String); begin DataTable.Fields[idx_TiposClienteDESCRIPCION].AsString := aValue; end; function TTiposClienteDataTableRules.GetDESCRIPCIONIsNull: boolean; begin result := DataTable.Fields[idx_TiposClienteDESCRIPCION].IsNull; end; procedure TTiposClienteDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_TiposClienteDESCRIPCION].AsVariant := Null; end; { TClientesSucursalesDataTableRules } constructor TClientesSucursalesDataTableRules.Create(aDataTable: TDADataTable); var StrList: TStringList; begin inherited; StrList := TStringList.Create; StrList.OnChange := NOTAS_OnChange; f_NOTAS := NewROStrings(StrList,True); end; destructor TClientesSucursalesDataTableRules.Destroy; begin inherited; end; procedure TClientesSucursalesDataTableRules.NOTAS_OnChange(Sender: TObject); begin if DataTable.Editing then DataTable.Fields[idx_ClientesSucursalesNOTAS].AsVariant := TStringList(Sender).Text; end; function TClientesSucursalesDataTableRules.GetIDValue: Integer; begin result := DataTable.Fields[idx_ClientesSucursalesID].AsInteger; end; procedure TClientesSucursalesDataTableRules.SetIDValue(const aValue: Integer); begin DataTable.Fields[idx_ClientesSucursalesID].AsInteger := aValue; end; function TClientesSucursalesDataTableRules.GetIDIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesID].IsNull; end; procedure TClientesSucursalesDataTableRules.SetIDIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesID].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetID_CATEGORIAValue: Integer; begin result := DataTable.Fields[idx_ClientesSucursalesID_CATEGORIA].AsInteger; end; procedure TClientesSucursalesDataTableRules.SetID_CATEGORIAValue(const aValue: Integer); begin DataTable.Fields[idx_ClientesSucursalesID_CATEGORIA].AsInteger := aValue; end; function TClientesSucursalesDataTableRules.GetID_CATEGORIAIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesID_CATEGORIA].IsNull; end; procedure TClientesSucursalesDataTableRules.SetID_CATEGORIAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesID_CATEGORIA].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetNIF_CIFValue: String; begin result := DataTable.Fields[idx_ClientesSucursalesNIF_CIF].AsString; end; procedure TClientesSucursalesDataTableRules.SetNIF_CIFValue(const aValue: String); begin DataTable.Fields[idx_ClientesSucursalesNIF_CIF].AsString := aValue; end; function TClientesSucursalesDataTableRules.GetNIF_CIFIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesNIF_CIF].IsNull; end; procedure TClientesSucursalesDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesNIF_CIF].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetNOMBREValue: String; begin result := DataTable.Fields[idx_ClientesSucursalesNOMBRE].AsString; end; procedure TClientesSucursalesDataTableRules.SetNOMBREValue(const aValue: String); begin DataTable.Fields[idx_ClientesSucursalesNOMBRE].AsString := aValue; end; function TClientesSucursalesDataTableRules.GetNOMBREIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesNOMBRE].IsNull; end; procedure TClientesSucursalesDataTableRules.SetNOMBREIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesNOMBRE].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetPERSONA_CONTACTOValue: String; begin result := DataTable.Fields[idx_ClientesSucursalesPERSONA_CONTACTO].AsString; end; procedure TClientesSucursalesDataTableRules.SetPERSONA_CONTACTOValue(const aValue: String); begin DataTable.Fields[idx_ClientesSucursalesPERSONA_CONTACTO].AsString := aValue; end; function TClientesSucursalesDataTableRules.GetPERSONA_CONTACTOIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesPERSONA_CONTACTO].IsNull; end; procedure TClientesSucursalesDataTableRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesPERSONA_CONTACTO].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetCALLEValue: String; begin result := DataTable.Fields[idx_ClientesSucursalesCALLE].AsString; end; procedure TClientesSucursalesDataTableRules.SetCALLEValue(const aValue: String); begin DataTable.Fields[idx_ClientesSucursalesCALLE].AsString := aValue; end; function TClientesSucursalesDataTableRules.GetCALLEIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesCALLE].IsNull; end; procedure TClientesSucursalesDataTableRules.SetCALLEIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesCALLE].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetPOBLACIONValue: String; begin result := DataTable.Fields[idx_ClientesSucursalesPOBLACION].AsString; end; procedure TClientesSucursalesDataTableRules.SetPOBLACIONValue(const aValue: String); begin DataTable.Fields[idx_ClientesSucursalesPOBLACION].AsString := aValue; end; function TClientesSucursalesDataTableRules.GetPOBLACIONIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesPOBLACION].IsNull; end; procedure TClientesSucursalesDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesPOBLACION].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetPROVINCIAValue: String; begin result := DataTable.Fields[idx_ClientesSucursalesPROVINCIA].AsString; end; procedure TClientesSucursalesDataTableRules.SetPROVINCIAValue(const aValue: String); begin DataTable.Fields[idx_ClientesSucursalesPROVINCIA].AsString := aValue; end; function TClientesSucursalesDataTableRules.GetPROVINCIAIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesPROVINCIA].IsNull; end; procedure TClientesSucursalesDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesPROVINCIA].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetCODIGO_POSTALValue: String; begin result := DataTable.Fields[idx_ClientesSucursalesCODIGO_POSTAL].AsString; end; procedure TClientesSucursalesDataTableRules.SetCODIGO_POSTALValue(const aValue: String); begin DataTable.Fields[idx_ClientesSucursalesCODIGO_POSTAL].AsString := aValue; end; function TClientesSucursalesDataTableRules.GetCODIGO_POSTALIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesCODIGO_POSTAL].IsNull; end; procedure TClientesSucursalesDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesCODIGO_POSTAL].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetTELEFONO_1Value: String; begin result := DataTable.Fields[idx_ClientesSucursalesTELEFONO_1].AsString; end; procedure TClientesSucursalesDataTableRules.SetTELEFONO_1Value(const aValue: String); begin DataTable.Fields[idx_ClientesSucursalesTELEFONO_1].AsString := aValue; end; function TClientesSucursalesDataTableRules.GetTELEFONO_1IsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesTELEFONO_1].IsNull; end; procedure TClientesSucursalesDataTableRules.SetTELEFONO_1IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesTELEFONO_1].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetTELEFONO_2Value: String; begin result := DataTable.Fields[idx_ClientesSucursalesTELEFONO_2].AsString; end; procedure TClientesSucursalesDataTableRules.SetTELEFONO_2Value(const aValue: String); begin DataTable.Fields[idx_ClientesSucursalesTELEFONO_2].AsString := aValue; end; function TClientesSucursalesDataTableRules.GetTELEFONO_2IsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesTELEFONO_2].IsNull; end; procedure TClientesSucursalesDataTableRules.SetTELEFONO_2IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesTELEFONO_2].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetMOVIL_1Value: String; begin result := DataTable.Fields[idx_ClientesSucursalesMOVIL_1].AsString; end; procedure TClientesSucursalesDataTableRules.SetMOVIL_1Value(const aValue: String); begin DataTable.Fields[idx_ClientesSucursalesMOVIL_1].AsString := aValue; end; function TClientesSucursalesDataTableRules.GetMOVIL_1IsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesMOVIL_1].IsNull; end; procedure TClientesSucursalesDataTableRules.SetMOVIL_1IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesMOVIL_1].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetMOVIL_2Value: String; begin result := DataTable.Fields[idx_ClientesSucursalesMOVIL_2].AsString; end; procedure TClientesSucursalesDataTableRules.SetMOVIL_2Value(const aValue: String); begin DataTable.Fields[idx_ClientesSucursalesMOVIL_2].AsString := aValue; end; function TClientesSucursalesDataTableRules.GetMOVIL_2IsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesMOVIL_2].IsNull; end; procedure TClientesSucursalesDataTableRules.SetMOVIL_2IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesMOVIL_2].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetFAXValue: String; begin result := DataTable.Fields[idx_ClientesSucursalesFAX].AsString; end; procedure TClientesSucursalesDataTableRules.SetFAXValue(const aValue: String); begin DataTable.Fields[idx_ClientesSucursalesFAX].AsString := aValue; end; function TClientesSucursalesDataTableRules.GetFAXIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesFAX].IsNull; end; procedure TClientesSucursalesDataTableRules.SetFAXIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesFAX].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetEMAIL_1Value: String; begin result := DataTable.Fields[idx_ClientesSucursalesEMAIL_1].AsString; end; procedure TClientesSucursalesDataTableRules.SetEMAIL_1Value(const aValue: String); begin DataTable.Fields[idx_ClientesSucursalesEMAIL_1].AsString := aValue; end; function TClientesSucursalesDataTableRules.GetEMAIL_1IsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesEMAIL_1].IsNull; end; procedure TClientesSucursalesDataTableRules.SetEMAIL_1IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesEMAIL_1].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetEMAIL_2Value: String; begin result := DataTable.Fields[idx_ClientesSucursalesEMAIL_2].AsString; end; procedure TClientesSucursalesDataTableRules.SetEMAIL_2Value(const aValue: String); begin DataTable.Fields[idx_ClientesSucursalesEMAIL_2].AsString := aValue; end; function TClientesSucursalesDataTableRules.GetEMAIL_2IsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesEMAIL_2].IsNull; end; procedure TClientesSucursalesDataTableRules.SetEMAIL_2IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesEMAIL_2].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetPAGINA_WEBValue: String; begin result := DataTable.Fields[idx_ClientesSucursalesPAGINA_WEB].AsString; end; procedure TClientesSucursalesDataTableRules.SetPAGINA_WEBValue(const aValue: String); begin DataTable.Fields[idx_ClientesSucursalesPAGINA_WEB].AsString := aValue; end; function TClientesSucursalesDataTableRules.GetPAGINA_WEBIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesPAGINA_WEB].IsNull; end; procedure TClientesSucursalesDataTableRules.SetPAGINA_WEBIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesPAGINA_WEB].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetNOTASValue: IROStrings; begin result := f_NOTAS; result.Text := DataTable.Fields[idx_ClientesSucursalesNOTAS].AsString; end; function TClientesSucursalesDataTableRules.GetNOTASIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesNOTAS].IsNull; end; procedure TClientesSucursalesDataTableRules.SetNOTASIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesNOTAS].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetFECHA_ALTAValue: DateTime; begin result := DataTable.Fields[idx_ClientesSucursalesFECHA_ALTA].AsDateTime; end; procedure TClientesSucursalesDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); begin DataTable.Fields[idx_ClientesSucursalesFECHA_ALTA].AsDateTime := aValue; end; function TClientesSucursalesDataTableRules.GetFECHA_ALTAIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesFECHA_ALTA].IsNull; end; procedure TClientesSucursalesDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesFECHA_ALTA].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := DataTable.Fields[idx_ClientesSucursalesFECHA_MODIFICACION].AsDateTime; end; procedure TClientesSucursalesDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin DataTable.Fields[idx_ClientesSucursalesFECHA_MODIFICACION].AsDateTime := aValue; end; function TClientesSucursalesDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesFECHA_MODIFICACION].IsNull; end; procedure TClientesSucursalesDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesFECHA_MODIFICACION].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetUSUARIOValue: String; begin result := DataTable.Fields[idx_ClientesSucursalesUSUARIO].AsString; end; procedure TClientesSucursalesDataTableRules.SetUSUARIOValue(const aValue: String); begin DataTable.Fields[idx_ClientesSucursalesUSUARIO].AsString := aValue; end; function TClientesSucursalesDataTableRules.GetUSUARIOIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesUSUARIO].IsNull; end; procedure TClientesSucursalesDataTableRules.SetUSUARIOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesUSUARIO].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetID_EMPRESAValue: Integer; begin result := DataTable.Fields[idx_ClientesSucursalesID_EMPRESA].AsInteger; end; procedure TClientesSucursalesDataTableRules.SetID_EMPRESAValue(const aValue: Integer); begin DataTable.Fields[idx_ClientesSucursalesID_EMPRESA].AsInteger := aValue; end; function TClientesSucursalesDataTableRules.GetID_EMPRESAIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesID_EMPRESA].IsNull; end; procedure TClientesSucursalesDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesID_EMPRESA].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetREFERENCIAValue: String; begin result := DataTable.Fields[idx_ClientesSucursalesREFERENCIA].AsString; end; procedure TClientesSucursalesDataTableRules.SetREFERENCIAValue(const aValue: String); begin DataTable.Fields[idx_ClientesSucursalesREFERENCIA].AsString := aValue; end; function TClientesSucursalesDataTableRules.GetREFERENCIAIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesREFERENCIA].IsNull; end; procedure TClientesSucursalesDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesREFERENCIA].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetID_AGENTEValue: Integer; begin result := DataTable.Fields[idx_ClientesSucursalesID_AGENTE].AsInteger; end; procedure TClientesSucursalesDataTableRules.SetID_AGENTEValue(const aValue: Integer); begin DataTable.Fields[idx_ClientesSucursalesID_AGENTE].AsInteger := aValue; end; function TClientesSucursalesDataTableRules.GetID_AGENTEIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesID_AGENTE].IsNull; end; procedure TClientesSucursalesDataTableRules.SetID_AGENTEIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesID_AGENTE].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetGRUPO_CLIENTEValue: String; begin result := DataTable.Fields[idx_ClientesSucursalesGRUPO_CLIENTE].AsString; end; procedure TClientesSucursalesDataTableRules.SetGRUPO_CLIENTEValue(const aValue: String); begin DataTable.Fields[idx_ClientesSucursalesGRUPO_CLIENTE].AsString := aValue; end; function TClientesSucursalesDataTableRules.GetGRUPO_CLIENTEIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesGRUPO_CLIENTE].IsNull; end; procedure TClientesSucursalesDataTableRules.SetGRUPO_CLIENTEIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesGRUPO_CLIENTE].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetNOMBRE_COMERCIALValue: String; begin result := DataTable.Fields[idx_ClientesSucursalesNOMBRE_COMERCIAL].AsString; end; procedure TClientesSucursalesDataTableRules.SetNOMBRE_COMERCIALValue(const aValue: String); begin DataTable.Fields[idx_ClientesSucursalesNOMBRE_COMERCIAL].AsString := aValue; end; function TClientesSucursalesDataTableRules.GetNOMBRE_COMERCIALIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesNOMBRE_COMERCIAL].IsNull; end; procedure TClientesSucursalesDataTableRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesNOMBRE_COMERCIAL].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetVENCIMIENTO_FACTURAS_1Value: SmallInt; begin result := DataTable.Fields[idx_ClientesSucursalesVENCIMIENTO_FACTURAS_1].AsSmallInt; end; procedure TClientesSucursalesDataTableRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); begin DataTable.Fields[idx_ClientesSucursalesVENCIMIENTO_FACTURAS_1].AsSmallInt := aValue; end; function TClientesSucursalesDataTableRules.GetVENCIMIENTO_FACTURAS_1IsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesVENCIMIENTO_FACTURAS_1].IsNull; end; procedure TClientesSucursalesDataTableRules.SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesVENCIMIENTO_FACTURAS_1].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetVENCIMIENTO_FACTURAS_2Value: SmallInt; begin result := DataTable.Fields[idx_ClientesSucursalesVENCIMIENTO_FACTURAS_2].AsSmallInt; end; procedure TClientesSucursalesDataTableRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); begin DataTable.Fields[idx_ClientesSucursalesVENCIMIENTO_FACTURAS_2].AsSmallInt := aValue; end; function TClientesSucursalesDataTableRules.GetVENCIMIENTO_FACTURAS_2IsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesVENCIMIENTO_FACTURAS_2].IsNull; end; procedure TClientesSucursalesDataTableRules.SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesVENCIMIENTO_FACTURAS_2].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetVENCIMIENTO_FACTURAS_3Value: SmallInt; begin result := DataTable.Fields[idx_ClientesSucursalesVENCIMIENTO_FACTURAS_3].AsSmallInt; end; procedure TClientesSucursalesDataTableRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); begin DataTable.Fields[idx_ClientesSucursalesVENCIMIENTO_FACTURAS_3].AsSmallInt := aValue; end; function TClientesSucursalesDataTableRules.GetVENCIMIENTO_FACTURAS_3IsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesVENCIMIENTO_FACTURAS_3].IsNull; end; procedure TClientesSucursalesDataTableRules.SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesVENCIMIENTO_FACTURAS_3].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetBLOQUEADOValue: SmallInt; begin result := DataTable.Fields[idx_ClientesSucursalesBLOQUEADO].AsSmallInt; end; procedure TClientesSucursalesDataTableRules.SetBLOQUEADOValue(const aValue: SmallInt); begin DataTable.Fields[idx_ClientesSucursalesBLOQUEADO].AsSmallInt := aValue; end; function TClientesSucursalesDataTableRules.GetBLOQUEADOIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesBLOQUEADO].IsNull; end; procedure TClientesSucursalesDataTableRules.SetBLOQUEADOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesBLOQUEADO].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetAGENTEValue: String; begin result := DataTable.Fields[idx_ClientesSucursalesAGENTE].AsString; end; procedure TClientesSucursalesDataTableRules.SetAGENTEValue(const aValue: String); begin DataTable.Fields[idx_ClientesSucursalesAGENTE].AsString := aValue; end; function TClientesSucursalesDataTableRules.GetAGENTEIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesAGENTE].IsNull; end; procedure TClientesSucursalesDataTableRules.SetAGENTEIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesAGENTE].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetRAPELValue: SmallInt; begin result := DataTable.Fields[idx_ClientesSucursalesRAPEL].AsSmallInt; end; procedure TClientesSucursalesDataTableRules.SetRAPELValue(const aValue: SmallInt); begin DataTable.Fields[idx_ClientesSucursalesRAPEL].AsSmallInt := aValue; end; function TClientesSucursalesDataTableRules.GetRAPELIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesRAPEL].IsNull; end; procedure TClientesSucursalesDataTableRules.SetRAPELIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesRAPEL].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetEMAIL_ADMINISTRACIONValue: String; begin result := DataTable.Fields[idx_ClientesSucursalesEMAIL_ADMINISTRACION].AsString; end; procedure TClientesSucursalesDataTableRules.SetEMAIL_ADMINISTRACIONValue(const aValue: String); begin DataTable.Fields[idx_ClientesSucursalesEMAIL_ADMINISTRACION].AsString := aValue; end; function TClientesSucursalesDataTableRules.GetEMAIL_ADMINISTRACIONIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesEMAIL_ADMINISTRACION].IsNull; end; procedure TClientesSucursalesDataTableRules.SetEMAIL_ADMINISTRACIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesEMAIL_ADMINISTRACION].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetREGIMEN_IVAValue: String; begin result := DataTable.Fields[idx_ClientesSucursalesREGIMEN_IVA].AsString; end; procedure TClientesSucursalesDataTableRules.SetREGIMEN_IVAValue(const aValue: String); begin DataTable.Fields[idx_ClientesSucursalesREGIMEN_IVA].AsString := aValue; end; function TClientesSucursalesDataTableRules.GetREGIMEN_IVAIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesREGIMEN_IVA].IsNull; end; procedure TClientesSucursalesDataTableRules.SetREGIMEN_IVAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesREGIMEN_IVA].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetMOTIVO_BLOQUEOValue: String; begin result := DataTable.Fields[idx_ClientesSucursalesMOTIVO_BLOQUEO].AsString; end; procedure TClientesSucursalesDataTableRules.SetMOTIVO_BLOQUEOValue(const aValue: String); begin DataTable.Fields[idx_ClientesSucursalesMOTIVO_BLOQUEO].AsString := aValue; end; function TClientesSucursalesDataTableRules.GetMOTIVO_BLOQUEOIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesMOTIVO_BLOQUEO].IsNull; end; procedure TClientesSucursalesDataTableRules.SetMOTIVO_BLOQUEOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesMOTIVO_BLOQUEO].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetRECARGO_EQUIVALENCIAValue: Integer; begin result := DataTable.Fields[idx_ClientesSucursalesRECARGO_EQUIVALENCIA].AsInteger; end; procedure TClientesSucursalesDataTableRules.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); begin DataTable.Fields[idx_ClientesSucursalesRECARGO_EQUIVALENCIA].AsInteger := aValue; end; function TClientesSucursalesDataTableRules.GetRECARGO_EQUIVALENCIAIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesRECARGO_EQUIVALENCIA].IsNull; end; procedure TClientesSucursalesDataTableRules.SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesRECARGO_EQUIVALENCIA].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetID_TIPO_IVAValue: Integer; begin result := DataTable.Fields[idx_ClientesSucursalesID_TIPO_IVA].AsInteger; end; procedure TClientesSucursalesDataTableRules.SetID_TIPO_IVAValue(const aValue: Integer); begin DataTable.Fields[idx_ClientesSucursalesID_TIPO_IVA].AsInteger := aValue; end; function TClientesSucursalesDataTableRules.GetID_TIPO_IVAIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesID_TIPO_IVA].IsNull; end; procedure TClientesSucursalesDataTableRules.SetID_TIPO_IVAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesID_TIPO_IVA].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetID_FORMA_PAGOValue: Integer; begin result := DataTable.Fields[idx_ClientesSucursalesID_FORMA_PAGO].AsInteger; end; procedure TClientesSucursalesDataTableRules.SetID_FORMA_PAGOValue(const aValue: Integer); begin DataTable.Fields[idx_ClientesSucursalesID_FORMA_PAGO].AsInteger := aValue; end; function TClientesSucursalesDataTableRules.GetID_FORMA_PAGOIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesID_FORMA_PAGO].IsNull; end; procedure TClientesSucursalesDataTableRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesID_FORMA_PAGO].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetTIENDA_WEBValue: SmallInt; begin result := DataTable.Fields[idx_ClientesSucursalesTIENDA_WEB].AsSmallInt; end; procedure TClientesSucursalesDataTableRules.SetTIENDA_WEBValue(const aValue: SmallInt); begin DataTable.Fields[idx_ClientesSucursalesTIENDA_WEB].AsSmallInt := aValue; end; function TClientesSucursalesDataTableRules.GetTIENDA_WEBIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesTIENDA_WEB].IsNull; end; procedure TClientesSucursalesDataTableRules.SetTIENDA_WEBIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesTIENDA_WEB].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetCODIGO_ASIGNADOValue: String; begin result := DataTable.Fields[idx_ClientesSucursalesCODIGO_ASIGNADO].AsString; end; procedure TClientesSucursalesDataTableRules.SetCODIGO_ASIGNADOValue(const aValue: String); begin DataTable.Fields[idx_ClientesSucursalesCODIGO_ASIGNADO].AsString := aValue; end; function TClientesSucursalesDataTableRules.GetCODIGO_ASIGNADOIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesCODIGO_ASIGNADO].IsNull; end; procedure TClientesSucursalesDataTableRules.SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesCODIGO_ASIGNADO].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetDESCUENTOValue: Float; begin result := DataTable.Fields[idx_ClientesSucursalesDESCUENTO].AsFloat; end; procedure TClientesSucursalesDataTableRules.SetDESCUENTOValue(const aValue: Float); begin DataTable.Fields[idx_ClientesSucursalesDESCUENTO].AsFloat := aValue; end; function TClientesSucursalesDataTableRules.GetDESCUENTOIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesDESCUENTO].IsNull; end; procedure TClientesSucursalesDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesDESCUENTO].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetFELICITACIONValue: SmallInt; begin result := DataTable.Fields[idx_ClientesSucursalesFELICITACION].AsSmallInt; end; procedure TClientesSucursalesDataTableRules.SetFELICITACIONValue(const aValue: SmallInt); begin DataTable.Fields[idx_ClientesSucursalesFELICITACION].AsSmallInt := aValue; end; function TClientesSucursalesDataTableRules.GetFELICITACIONIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesFELICITACION].IsNull; end; procedure TClientesSucursalesDataTableRules.SetFELICITACIONIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesFELICITACION].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetTIPO_CLIENTEValue: String; begin result := DataTable.Fields[idx_ClientesSucursalesTIPO_CLIENTE].AsString; end; procedure TClientesSucursalesDataTableRules.SetTIPO_CLIENTEValue(const aValue: String); begin DataTable.Fields[idx_ClientesSucursalesTIPO_CLIENTE].AsString := aValue; end; function TClientesSucursalesDataTableRules.GetTIPO_CLIENTEIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesTIPO_CLIENTE].IsNull; end; procedure TClientesSucursalesDataTableRules.SetTIPO_CLIENTEIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesTIPO_CLIENTE].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetSEPAValue: SmallInt; begin result := DataTable.Fields[idx_ClientesSucursalesSEPA].AsSmallInt; end; procedure TClientesSucursalesDataTableRules.SetSEPAValue(const aValue: SmallInt); begin DataTable.Fields[idx_ClientesSucursalesSEPA].AsSmallInt := aValue; end; function TClientesSucursalesDataTableRules.GetSEPAIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesSEPA].IsNull; end; procedure TClientesSucursalesDataTableRules.SetSEPAIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesSEPA].AsVariant := Null; end; function TClientesSucursalesDataTableRules.GetID_CENTRALValue: Integer; begin result := DataTable.Fields[idx_ClientesSucursalesID_CENTRAL].AsInteger; end; procedure TClientesSucursalesDataTableRules.SetID_CENTRALValue(const aValue: Integer); begin DataTable.Fields[idx_ClientesSucursalesID_CENTRAL].AsInteger := aValue; end; function TClientesSucursalesDataTableRules.GetID_CENTRALIsNull: boolean; begin result := DataTable.Fields[idx_ClientesSucursalesID_CENTRAL].IsNull; end; procedure TClientesSucursalesDataTableRules.SetID_CENTRALIsNull(const aValue: Boolean); begin if aValue then DataTable.Fields[idx_ClientesSucursalesID_CENTRAL].AsVariant := Null; end; initialization RegisterDataTableRules(RID_Contactos, TContactosDataTableRules); RegisterDataTableRules(RID_GruposCliente, TGruposClienteDataTableRules); RegisterDataTableRules(RID_DatosBancarios, TDatosBancariosDataTableRules); RegisterDataTableRules(RID_Clientes, TClientesDataTableRules); RegisterDataTableRules(RID_Proveedores, TProveedoresDataTableRules); RegisterDataTableRules(RID_Empleados, TEmpleadosDataTableRules); RegisterDataTableRules(RID_DireccionesContacto, TDireccionesContactoDataTableRules); RegisterDataTableRules(RID_Dataset, TDatasetDataTableRules); RegisterDataTableRules(RID_ClientesDescuentos, TClientesDescuentosDataTableRules); RegisterDataTableRules(RID_GruposProveedor, TGruposProveedorDataTableRules); RegisterDataTableRules(RID_GruposEmpleado, TGruposEmpleadoDataTableRules); RegisterDataTableRules(RID_Contactos_Refresh, TContactos_RefreshDataTableRules); RegisterDataTableRules(RID_ContratosEmpleados, TContratosEmpleadosDataTableRules); RegisterDataTableRules(RID_DescripcionesProveedores, TDescripcionesProveedoresDataTableRules); RegisterDataTableRules(RID_PersonalContacto, TPersonalContactoDataTableRules); RegisterDataTableRules(RID_Agentes_Comisiones, TAgentes_ComisionesDataTableRules); RegisterDataTableRules(RID_ListaAnosObjetivosAlb, TListaAnosObjetivosAlbDataTableRules); RegisterDataTableRules(RID_Agentes, TAgentesDataTableRules); RegisterDataTableRules(RID_ClientesDescuentosArticulos, TClientesDescuentosArticulosDataTableRules); RegisterDataTableRules(RID_Agentes_Objetivos_albaranes, TAgentes_Objetivos_albaranesDataTableRules); RegisterDataTableRules(RID_Agentes_Objetivos_facturas, TAgentes_Objetivos_facturasDataTableRules); RegisterDataTableRules(RID_ListaAnosObjetivosFac, TListaAnosObjetivosFacDataTableRules); RegisterDataTableRules(RID_Idiomas, TIdiomasDataTableRules); RegisterDataTableRules(RID_TiposCliente, TTiposClienteDataTableRules); RegisterDataTableRules(RID_ClientesSucursales, TClientesSucursalesDataTableRules); end.