This repository has been archived on 2024-11-28. You can view files and clone it, but cannot push or open issues or pull requests.
LuisLeon_FactuGES2/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas

12804 lines
521 KiB
ObjectPascal

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.