AcotaCocinas/AlonsoYSal_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
214b09c7cb
AlonsoYSal_FactuGES2/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
roberto 214b09c7cb Ultimos informa que faltan 
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES2/trunk@20 40301925-124e-1c4e-b97d-170ad7a8785b
2020-03-03 18:07:32 +00:00

8647 lines
351 KiB
ObjectPascal
Raw Blame History

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_DarEmpresasContacto = '{3DF020EA-5271-4506-A1E1-F56352A27564}';
RID_PersonalContacto = '{B221E6A5-B945-4498-8360-54479172953F}';
RID_DarTiendaDeUsuario = '{A507F3BA-5BD6-4615-BCD9-0E8FA9B7B28D}';
RID_SubCuentasContacto = '{2F2E5BA1-C6F2-4DE4-B3B8-FC421C4EC640}';
RID_Contactos = '{B536C491-082B-47EF-8C8D-A82F6D9D2D7C}';
RID_GruposCliente = '{F12B9E93-476B-443E-BA2A-E268B2AAB12A}';
RID_DatosBancarios = '{8E22C403-5181-4D0E-AC75-62491E2695A5}';
RID_ContactosDirecciones = '{4953A4FB-07F9-4CE0-AD1C-B8CA384B81C5}';
RID_Clientes = '{3D2718CC-26C4-4683-8E64-50146634CF04}';
RID_Proveedores = '{05805FA0-E5E3-4EC6-B8E3-DC041BEAC9ED}';
RID_Vendedores = '{18390BFA-6F9F-406E-958A-368A48B81814}';
RID_DireccionesContacto = '{D2B45D83-5CEB-4853-9DA1-B5DB4D63F6E6}';
RID_ClientesDescuentos = '{1A4C6382-E235-4EFC-A1D8-3C5EF966789E}';
RID_ProcedenciasCliente = '{6722E249-E263-41B7-8CC6-9E0A7DD69150}';
RID_GruposProveedor = '{D49F5735-A212-4160-95AC-404229DB30B3}';
RID_Contactos_Refresh = '{39F8AB3C-6980-4652-8789-416699B21C34}';
{ Data table names }
nme_DarEmpresasContacto = 'DarEmpresasContacto';
nme_PersonalContacto = 'PersonalContacto';
nme_DarTiendaDeUsuario = 'DarTiendaDeUsuario';
nme_SubCuentasContacto = 'SubCuentasContacto';
nme_Contactos = 'Contactos';
nme_GruposCliente = 'GruposCliente';
nme_DatosBancarios = 'DatosBancarios';
nme_ContactosDirecciones = 'ContactosDirecciones';
nme_Clientes = 'Clientes';
nme_Proveedores = 'Proveedores';
nme_Vendedores = 'Vendedores';
nme_DireccionesContacto = 'DireccionesContacto';
nme_ClientesDescuentos = 'ClientesDescuentos';
nme_ProcedenciasCliente = 'ProcedenciasCliente';
nme_GruposProveedor = 'GruposProveedor';
nme_Contactos_Refresh = 'Contactos_Refresh';
{ DarEmpresasContacto fields }
fld_DarEmpresasContactoID_EMPRESA = 'ID_EMPRESA';
{ DarEmpresasContacto field indexes }
idx_DarEmpresasContactoID_EMPRESA = 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;
{ DarTiendaDeUsuario fields }
fld_DarTiendaDeUsuarioID_TIENDA = 'ID_TIENDA';
{ DarTiendaDeUsuario field indexes }
idx_DarTiendaDeUsuarioID_TIENDA = 0;
{ SubCuentasContacto fields }
fld_SubCuentasContactoID = 'ID';
fld_SubCuentasContactoREF_SUBCUENTA = 'REF_SUBCUENTA';
fld_SubCuentasContactoDESCRIPCION = 'DESCRIPCION';
fld_SubCuentasContactoID_CUENTA = 'ID_CUENTA';
fld_SubCuentasContactoID_EJERCICIO = 'ID_EJERCICIO';
fld_SubCuentasContactoID_CONTACTO = 'ID_CONTACTO';
{ SubCuentasContacto field indexes }
idx_SubCuentasContactoID = 0;
idx_SubCuentasContactoREF_SUBCUENTA = 1;
idx_SubCuentasContactoDESCRIPCION = 2;
idx_SubCuentasContactoID_CUENTA = 3;
idx_SubCuentasContactoID_EJERCICIO = 4;
idx_SubCuentasContactoID_CONTACTO = 5;
{ Contactos fields }
fld_ContactosID = 'ID';
fld_ContactosID_CATEGORIA = 'ID_CATEGORIA';
fld_ContactosNIF_CIF = 'NIF_CIF';
fld_ContactosNOMBRE = 'NOMBRE';
fld_ContactosPERSONA_CONTACTO = 'PERSONA_CONTACTO';
fld_ContactosCALLE = 'CALLE';
fld_ContactosPOBLACION = 'POBLACION';
fld_ContactosPROVINCIA = 'PROVINCIA';
fld_ContactosCODIGO_POSTAL = 'CODIGO_POSTAL';
fld_ContactosTELEFONO_1 = 'TELEFONO_1';
fld_ContactosTELEFONO_2 = 'TELEFONO_2';
fld_ContactosMOVIL_1 = 'MOVIL_1';
fld_ContactosMOVIL_2 = 'MOVIL_2';
fld_ContactosFAX = 'FAX';
fld_ContactosEMAIL_1 = 'EMAIL_1';
fld_ContactosEMAIL_2 = 'EMAIL_2';
fld_ContactosPAGINA_WEB = 'PAGINA_WEB';
fld_ContactosNOTAS = 'NOTAS';
fld_ContactosFECHA_ALTA = 'FECHA_ALTA';
fld_ContactosFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_ContactosUSUARIO = 'USUARIO';
fld_ContactosID_EMPRESA = 'ID_EMPRESA';
fld_ContactosREFERENCIA = 'REFERENCIA';
fld_ContactosID_TIENDA = 'ID_TIENDA';
fld_ContactosTIENDA = 'TIENDA';
{ Contactos field indexes }
idx_ContactosID = 0;
idx_ContactosID_CATEGORIA = 1;
idx_ContactosNIF_CIF = 2;
idx_ContactosNOMBRE = 3;
idx_ContactosPERSONA_CONTACTO = 4;
idx_ContactosCALLE = 5;
idx_ContactosPOBLACION = 6;
idx_ContactosPROVINCIA = 7;
idx_ContactosCODIGO_POSTAL = 8;
idx_ContactosTELEFONO_1 = 9;
idx_ContactosTELEFONO_2 = 10;
idx_ContactosMOVIL_1 = 11;
idx_ContactosMOVIL_2 = 12;
idx_ContactosFAX = 13;
idx_ContactosEMAIL_1 = 14;
idx_ContactosEMAIL_2 = 15;
idx_ContactosPAGINA_WEB = 16;
idx_ContactosNOTAS = 17;
idx_ContactosFECHA_ALTA = 18;
idx_ContactosFECHA_MODIFICACION = 19;
idx_ContactosUSUARIO = 20;
idx_ContactosID_EMPRESA = 21;
idx_ContactosREFERENCIA = 22;
idx_ContactosID_TIENDA = 23;
idx_ContactosTIENDA = 24;
{ 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';
{ 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;
{ ContactosDirecciones fields }
fld_ContactosDireccionesID_CONTACTO = 'ID_CONTACTO';
fld_ContactosDireccionesID_DIRECCION = 'ID_DIRECCION';
fld_ContactosDireccionesNOMBRE = 'NOMBRE';
fld_ContactosDireccionesNIF_CIF = 'NIF_CIF';
fld_ContactosDireccionesCALLE = 'CALLE';
fld_ContactosDireccionesPOBLACION = 'POBLACION';
fld_ContactosDireccionesPROVINCIA = 'PROVINCIA';
fld_ContactosDireccionesCODIGO_POSTAL = 'CODIGO_POSTAL';
fld_ContactosDireccionesTELEFONO = 'TELEFONO';
fld_ContactosDireccionesMOVIL = 'MOVIL';
fld_ContactosDireccionesFAX = 'FAX';
fld_ContactosDireccionesEMAIL = 'EMAIL';
fld_ContactosDireccionesPERSONA_CONTACTO = 'PERSONA_CONTACTO';
{ ContactosDirecciones field indexes }
idx_ContactosDireccionesID_CONTACTO = 0;
idx_ContactosDireccionesID_DIRECCION = 1;
idx_ContactosDireccionesNOMBRE = 2;
idx_ContactosDireccionesNIF_CIF = 3;
idx_ContactosDireccionesCALLE = 4;
idx_ContactosDireccionesPOBLACION = 5;
idx_ContactosDireccionesPROVINCIA = 6;
idx_ContactosDireccionesCODIGO_POSTAL = 7;
idx_ContactosDireccionesTELEFONO = 8;
idx_ContactosDireccionesMOVIL = 9;
idx_ContactosDireccionesFAX = 10;
idx_ContactosDireccionesEMAIL = 11;
idx_ContactosDireccionesPERSONA_CONTACTO = 12;
{ 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_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_TIENDA = 'ID_TIENDA';
fld_ClientesTIENDA = 'TIENDA';
fld_ClientesGRUPO_CLIENTE = 'GRUPO_CLIENTE';
fld_ClientesNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL';
fld_ClientesBLOQUEADO = 'BLOQUEADO';
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_ClientesIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD';
fld_ClientesTIENE_SUBCUENTA = 'TIENE_SUBCUENTA';
fld_ClientesPROCEDENCIA_CLIENTE = 'PROCEDENCIA_CLIENTE';
fld_ClientesVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1';
fld_ClientesVENCIMIENTO_FACTURAS_2 = 'VENCIMIENTO_FACTURAS_2';
fld_ClientesVENCIMIENTO_FACTURAS_3 = 'VENCIMIENTO_FACTURAS_3';
fld_ClientesLISTA_NOMBRES = 'LISTA_NOMBRES';
fld_ClientesLOPD = 'LOPD';
{ 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_ClientesTELEFONO_1 = 9;
idx_ClientesTELEFONO_2 = 10;
idx_ClientesMOVIL_1 = 11;
idx_ClientesMOVIL_2 = 12;
idx_ClientesFAX = 13;
idx_ClientesEMAIL_1 = 14;
idx_ClientesEMAIL_2 = 15;
idx_ClientesPAGINA_WEB = 16;
idx_ClientesNOTAS = 17;
idx_ClientesFECHA_ALTA = 18;
idx_ClientesFECHA_MODIFICACION = 19;
idx_ClientesUSUARIO = 20;
idx_ClientesID_EMPRESA = 21;
idx_ClientesREFERENCIA = 22;
idx_ClientesID_TIENDA = 23;
idx_ClientesTIENDA = 24;
idx_ClientesGRUPO_CLIENTE = 25;
idx_ClientesNOMBRE_COMERCIAL = 26;
idx_ClientesBLOQUEADO = 27;
idx_ClientesREGIMEN_IVA = 28;
idx_ClientesMOTIVO_BLOQUEO = 29;
idx_ClientesRECARGO_EQUIVALENCIA = 30;
idx_ClientesID_TIPO_IVA = 31;
idx_ClientesID_FORMA_PAGO = 32;
idx_ClientesTIENDA_WEB = 33;
idx_ClientesCODIGO_ASIGNADO = 34;
idx_ClientesIGNORAR_CONTABILIDAD = 35;
idx_ClientesTIENE_SUBCUENTA = 36;
idx_ClientesPROCEDENCIA_CLIENTE = 37;
idx_ClientesVENCIMIENTO_FACTURAS_1 = 38;
idx_ClientesVENCIMIENTO_FACTURAS_2 = 39;
idx_ClientesVENCIMIENTO_FACTURAS_3 = 40;
idx_ClientesLISTA_NOMBRES = 41;
idx_ClientesLOPD = 42;
{ 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_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_ProveedoresID_TIENDA = 'ID_TIENDA';
fld_ProveedoresTIENDA = 'TIENDA';
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_ProveedoresIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD';
fld_ProveedoresTIENE_SUBCUENTA = 'TIENE_SUBCUENTA';
fld_ProveedoresNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL';
fld_ProveedoresES_ACREEDOR = 'ES_ACREEDOR';
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_ProveedoresTELEFONO_1 = 9;
idx_ProveedoresTELEFONO_2 = 10;
idx_ProveedoresMOVIL_1 = 11;
idx_ProveedoresMOVIL_2 = 12;
idx_ProveedoresFAX = 13;
idx_ProveedoresEMAIL_1 = 14;
idx_ProveedoresEMAIL_2 = 15;
idx_ProveedoresPAGINA_WEB = 16;
idx_ProveedoresNOTAS = 17;
idx_ProveedoresFECHA_ALTA = 18;
idx_ProveedoresFECHA_MODIFICACION = 19;
idx_ProveedoresUSUARIO = 20;
idx_ProveedoresID_EMPRESA = 21;
idx_ProveedoresREFERENCIA = 22;
idx_ProveedoresID_TIENDA = 23;
idx_ProveedoresTIENDA = 24;
idx_ProveedoresDESCUENTO = 25;
idx_ProveedoresDESCRIPCION_PROVEEDOR = 26;
idx_ProveedoresCODIGO_ASIGNADO = 27;
idx_ProveedoresGRUPO_PROVEEDOR = 28;
idx_ProveedoresREGIMEN_IVA = 29;
idx_ProveedoresID_TIPO_IVA = 30;
idx_ProveedoresID_FORMA_PAGO = 31;
idx_ProveedoresTIENDA_WEB = 32;
idx_ProveedoresHOMOLOGADO = 33;
idx_ProveedoresCERTIFICACION = 34;
idx_ProveedoresIGNORAR_CONTABILIDAD = 35;
idx_ProveedoresTIENE_SUBCUENTA = 36;
idx_ProveedoresNOMBRE_COMERCIAL = 37;
idx_ProveedoresES_ACREEDOR = 38;
idx_ProveedoresVENCIMIENTO_FACTURAS_1 = 39;
idx_ProveedoresVENCIMIENTO_FACTURAS_2 = 40;
idx_ProveedoresVENCIMIENTO_FACTURAS_3 = 41;
{ Vendedores fields }
fld_VendedoresID = 'ID';
fld_VendedoresID_CATEGORIA = 'ID_CATEGORIA';
fld_VendedoresNIF_CIF = 'NIF_CIF';
fld_VendedoresNOMBRE = 'NOMBRE';
fld_VendedoresPERSONA_CONTACTO = 'PERSONA_CONTACTO';
fld_VendedoresCALLE = 'CALLE';
fld_VendedoresPOBLACION = 'POBLACION';
fld_VendedoresPROVINCIA = 'PROVINCIA';
fld_VendedoresCODIGO_POSTAL = 'CODIGO_POSTAL';
fld_VendedoresTELEFONO_1 = 'TELEFONO_1';
fld_VendedoresTELEFONO_2 = 'TELEFONO_2';
fld_VendedoresMOVIL_1 = 'MOVIL_1';
fld_VendedoresMOVIL_2 = 'MOVIL_2';
fld_VendedoresFAX = 'FAX';
fld_VendedoresEMAIL_1 = 'EMAIL_1';
fld_VendedoresEMAIL_2 = 'EMAIL_2';
fld_VendedoresPAGINA_WEB = 'PAGINA_WEB';
fld_VendedoresNOTAS = 'NOTAS';
fld_VendedoresFECHA_ALTA = 'FECHA_ALTA';
fld_VendedoresFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_VendedoresUSUARIO = 'USUARIO';
fld_VendedoresID_EMPRESA = 'ID_EMPRESA';
fld_VendedoresREFERENCIA = 'REFERENCIA';
fld_VendedoresID_TIENDA = 'ID_TIENDA';
fld_VendedoresTIENDA = 'TIENDA';
fld_VendedoresCOMISION = 'COMISION';
fld_VendedoresID_USUARIO = 'ID_USUARIO';
{ Vendedores field indexes }
idx_VendedoresID = 0;
idx_VendedoresID_CATEGORIA = 1;
idx_VendedoresNIF_CIF = 2;
idx_VendedoresNOMBRE = 3;
idx_VendedoresPERSONA_CONTACTO = 4;
idx_VendedoresCALLE = 5;
idx_VendedoresPOBLACION = 6;
idx_VendedoresPROVINCIA = 7;
idx_VendedoresCODIGO_POSTAL = 8;
idx_VendedoresTELEFONO_1 = 9;
idx_VendedoresTELEFONO_2 = 10;
idx_VendedoresMOVIL_1 = 11;
idx_VendedoresMOVIL_2 = 12;
idx_VendedoresFAX = 13;
idx_VendedoresEMAIL_1 = 14;
idx_VendedoresEMAIL_2 = 15;
idx_VendedoresPAGINA_WEB = 16;
idx_VendedoresNOTAS = 17;
idx_VendedoresFECHA_ALTA = 18;
idx_VendedoresFECHA_MODIFICACION = 19;
idx_VendedoresUSUARIO = 20;
idx_VendedoresID_EMPRESA = 21;
idx_VendedoresREFERENCIA = 22;
idx_VendedoresID_TIENDA = 23;
idx_VendedoresTIENDA = 24;
idx_VendedoresCOMISION = 25;
idx_VendedoresID_USUARIO = 26;
{ DireccionesContacto fields }
fld_DireccionesContactoID = 'ID';
fld_DireccionesContactoID_CONTACTO = 'ID_CONTACTO';
fld_DireccionesContactoNIF_CIF = 'NIF_CIF';
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';
{ DireccionesContacto field indexes }
idx_DireccionesContactoID = 0;
idx_DireccionesContactoID_CONTACTO = 1;
idx_DireccionesContactoNIF_CIF = 2;
idx_DireccionesContactoCALLE = 3;
idx_DireccionesContactoPOBLACION = 4;
idx_DireccionesContactoPROVINCIA = 5;
idx_DireccionesContactoCODIGO_POSTAL = 6;
idx_DireccionesContactoPERSONA_CONTACTO = 7;
idx_DireccionesContactoNOMBRE = 8;
idx_DireccionesContactoTELEFONO = 9;
idx_DireccionesContactoMOVIL = 10;
idx_DireccionesContactoFAX = 11;
idx_DireccionesContactoEMAIL = 12;
idx_DireccionesContactoNOTAS = 13;
idx_DireccionesContactoPORTE = 14;
idx_DireccionesContactoFECHA_ALTA = 15;
idx_DireccionesContactoFECHA_MODIFICACION = 16;
{ 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;
{ ProcedenciasCliente fields }
fld_ProcedenciasClienteID = 'ID';
fld_ProcedenciasClienteDESCRIPCION = 'DESCRIPCION';
{ ProcedenciasCliente field indexes }
idx_ProcedenciasClienteID = 0;
idx_ProcedenciasClienteDESCRIPCION = 1;
{ GruposProveedor fields }
fld_GruposProveedorID = 'ID';
fld_GruposProveedorDESCRIPCION = 'DESCRIPCION';
{ GruposProveedor field indexes }
idx_GruposProveedorID = 0;
idx_GruposProveedorDESCRIPCION = 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;
type
{ IDarEmpresasContacto }
IDarEmpresasContacto = interface(IDAStronglyTypedDataTable)
['{2E2E4717-0BCC-461F-839E-80397D21C23A}']
{ Property getters and setters }
function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer);
function GetID_EMPRESAIsNull: Boolean;
procedure SetID_EMPRESAIsNull(const aValue: Boolean);
{ Properties }
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
end;
{ TDarEmpresasContactoDataTableRules }
TDarEmpresasContactoDataTableRules = class(TIntfObjectDADataTableRules, IDarEmpresasContacto)
private
protected
{ Property getters and setters }
function GetID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IPersonalContacto }
IPersonalContacto = interface(IDAStronglyTypedDataTable)
['{00FE2269-4B38-48BD-9F45-BE565B31B409}']
{ 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;
{ IDarTiendaDeUsuario }
IDarTiendaDeUsuario = interface(IDAStronglyTypedDataTable)
['{D726985D-63CF-489E-8A97-B57952508077}']
{ Property getters and setters }
function GetID_TIENDAValue: Integer;
procedure SetID_TIENDAValue(const aValue: Integer);
function GetID_TIENDAIsNull: Boolean;
procedure SetID_TIENDAIsNull(const aValue: Boolean);
{ Properties }
property ID_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
end;
{ TDarTiendaDeUsuarioDataTableRules }
TDarTiendaDeUsuarioDataTableRules = class(TIntfObjectDADataTableRules, IDarTiendaDeUsuario)
private
protected
{ Property getters and setters }
function GetID_TIENDAValue: Integer; virtual;
procedure SetID_TIENDAValue(const aValue: Integer); virtual;
function GetID_TIENDAIsNull: Boolean; virtual;
procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ ISubCuentasContacto }
ISubCuentasContacto = interface(IDAStronglyTypedDataTable)
['{C57E3BB1-04B7-4935-A1AB-8A2CE30E9ADD}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean;
procedure SetIDIsNull(const aValue: Boolean);
function GetREF_SUBCUENTAValue: String;
procedure SetREF_SUBCUENTAValue(const aValue: String);
function GetREF_SUBCUENTAIsNull: Boolean;
procedure SetREF_SUBCUENTAIsNull(const aValue: Boolean);
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
function GetDESCRIPCIONIsNull: Boolean;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
function GetID_CUENTAValue: Integer;
procedure SetID_CUENTAValue(const aValue: Integer);
function GetID_CUENTAIsNull: Boolean;
procedure SetID_CUENTAIsNull(const aValue: Boolean);
function GetID_EJERCICIOValue: Integer;
procedure SetID_EJERCICIOValue(const aValue: Integer);
function GetID_EJERCICIOIsNull: Boolean;
procedure SetID_EJERCICIOIsNull(const aValue: Boolean);
function GetID_CONTACTOValue: Integer;
procedure SetID_CONTACTOValue(const aValue: Integer);
function GetID_CONTACTOIsNull: Boolean;
procedure SetID_CONTACTOIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property REF_SUBCUENTA: String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue;
property REF_SUBCUENTAIsNull: Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property ID_CUENTA: Integer read GetID_CUENTAValue write SetID_CUENTAValue;
property ID_CUENTAIsNull: Boolean read GetID_CUENTAIsNull write SetID_CUENTAIsNull;
property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
end;
{ TSubCuentasContactoDataTableRules }
TSubCuentasContactoDataTableRules = class(TIntfObjectDADataTableRules, ISubCuentasContacto)
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 GetREF_SUBCUENTAValue: String; virtual;
procedure SetREF_SUBCUENTAValue(const aValue: String); virtual;
function GetREF_SUBCUENTAIsNull: Boolean; virtual;
procedure SetREF_SUBCUENTAIsNull(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 GetID_CUENTAValue: Integer; virtual;
procedure SetID_CUENTAValue(const aValue: Integer); virtual;
function GetID_CUENTAIsNull: Boolean; virtual;
procedure SetID_CUENTAIsNull(const aValue: Boolean); virtual;
function GetID_EJERCICIOValue: Integer; virtual;
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
function GetID_EJERCICIOIsNull: Boolean; virtual;
procedure SetID_EJERCICIOIsNull(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;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property REF_SUBCUENTA: String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue;
property REF_SUBCUENTAIsNull: Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property ID_CUENTA: Integer read GetID_CUENTAValue write SetID_CUENTAValue;
property ID_CUENTAIsNull: Boolean read GetID_CUENTAIsNull write SetID_CUENTAIsNull;
property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IContactos }
IContactos = interface(IDAStronglyTypedDataTable)
['{1F3CED53-7D09-4F9B-9670-297FEC5EF955}']
{ 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_TIENDAValue: Integer;
procedure SetID_TIENDAValue(const aValue: Integer);
function GetID_TIENDAIsNull: Boolean;
procedure SetID_TIENDAIsNull(const aValue: Boolean);
function GetTIENDAValue: String;
procedure SetTIENDAValue(const aValue: String);
function GetTIENDAIsNull: Boolean;
procedure SetTIENDAIsNull(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_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
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 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_TIENDAValue: Integer; virtual;
procedure SetID_TIENDAValue(const aValue: Integer); virtual;
function GetID_TIENDAIsNull: Boolean; virtual;
procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
function GetTIENDAValue: String; virtual;
procedure SetTIENDAValue(const aValue: String); virtual;
function GetTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAIsNull(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_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable)
['{2CF68BC2-220D-41B1-AF60-0626AF7B96A7}']
{ 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)
['{C38C692C-1EF7-4F83-8BA5-0C525A1C11A2}']
{ 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);
{ 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;
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;
{ 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;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IContactosDirecciones }
IContactosDirecciones = interface(IDAStronglyTypedDataTable)
['{AAB1CE82-6232-4383-B55F-2E8589777974}']
{ Property getters and setters }
function GetID_CONTACTOValue: Integer;
procedure SetID_CONTACTOValue(const aValue: Integer);
function GetID_CONTACTOIsNull: Boolean;
procedure SetID_CONTACTOIsNull(const aValue: Boolean);
function GetID_DIRECCIONValue: Integer;
procedure SetID_DIRECCIONValue(const aValue: Integer);
function GetID_DIRECCIONIsNull: Boolean;
procedure SetID_DIRECCIONIsNull(const aValue: Boolean);
function GetNOMBREValue: String;
procedure SetNOMBREValue(const aValue: String);
function GetNOMBREIsNull: Boolean;
procedure SetNOMBREIsNull(const aValue: Boolean);
function GetNIF_CIFValue: String;
procedure SetNIF_CIFValue(const aValue: String);
function GetNIF_CIFIsNull: Boolean;
procedure SetNIF_CIFIsNull(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 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 GetPERSONA_CONTACTOValue: String;
procedure SetPERSONA_CONTACTOValue(const aValue: String);
function GetPERSONA_CONTACTOIsNull: Boolean;
procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
{ Properties }
property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
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: 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 PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
end;
{ TContactosDireccionesDataTableRules }
TContactosDireccionesDataTableRules = class(TIntfObjectDADataTableRules, IContactosDirecciones)
private
protected
{ Property getters and setters }
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 GetID_DIRECCIONValue: Integer; virtual;
procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
function GetID_DIRECCIONIsNull: Boolean; virtual;
procedure SetID_DIRECCIONIsNull(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 GetNIF_CIFValue: String; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual;
function GetNIF_CIFIsNull: Boolean; virtual;
procedure SetNIF_CIFIsNull(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 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 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_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
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: 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 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;
{ IClientes }
IClientes = interface(IDAStronglyTypedDataTable)
['{A854EE5D-EBD2-4F66-AAA6-2E9C17111EAB}']
{ 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_TIENDAValue: Integer;
procedure SetID_TIENDAValue(const aValue: Integer);
function GetID_TIENDAIsNull: Boolean;
procedure SetID_TIENDAIsNull(const aValue: Boolean);
function GetTIENDAValue: String;
procedure SetTIENDAValue(const aValue: String);
function GetTIENDAIsNull: Boolean;
procedure SetTIENDAIsNull(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 GetBLOQUEADOValue: SmallInt;
procedure SetBLOQUEADOValue(const aValue: SmallInt);
function GetBLOQUEADOIsNull: Boolean;
procedure SetBLOQUEADOIsNull(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: SmallInt;
procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
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 GetIGNORAR_CONTABILIDADValue: Integer;
procedure SetIGNORAR_CONTABILIDADValue(const aValue: Integer);
function GetIGNORAR_CONTABILIDADIsNull: Boolean;
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
function GetTIENE_SUBCUENTAValue: Integer;
procedure SetTIENE_SUBCUENTAValue(const aValue: Integer);
function GetTIENE_SUBCUENTAIsNull: Boolean;
procedure SetTIENE_SUBCUENTAIsNull(const aValue: Boolean);
function GetPROCEDENCIA_CLIENTEValue: String;
procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String);
function GetPROCEDENCIA_CLIENTEIsNull: Boolean;
procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean);
function GetVENCIMIENTO_FACTURAS_1Value: Integer;
procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer);
function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean;
procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean);
function GetVENCIMIENTO_FACTURAS_2Value: Integer;
procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer);
function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean;
procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean);
function GetVENCIMIENTO_FACTURAS_3Value: Integer;
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer);
function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean;
procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean);
function GetLISTA_NOMBRESValue: String;
procedure SetLISTA_NOMBRESValue(const aValue: String);
function GetLISTA_NOMBRESIsNull: Boolean;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean);
function GetLOPDValue: SmallInt;
procedure SetLOPDValue(const aValue: SmallInt);
function GetLOPDIsNull: Boolean;
procedure SetLOPDIsNull(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_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
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 BLOQUEADO: SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue;
property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
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: SmallInt 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 IGNORAR_CONTABILIDAD: Integer read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
property TIENE_SUBCUENTA: Integer read GetTIENE_SUBCUENTAValue write SetTIENE_SUBCUENTAValue;
property TIENE_SUBCUENTAIsNull: Boolean read GetTIENE_SUBCUENTAIsNull write SetTIENE_SUBCUENTAIsNull;
property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
property PROCEDENCIA_CLIENTEIsNull: Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
property VENCIMIENTO_FACTURAS_1: Integer 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: Integer 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: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull;
property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
property LOPD: SmallInt read GetLOPDValue write SetLOPDValue;
property LOPDIsNull: Boolean read GetLOPDIsNull write SetLOPDIsNull;
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 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_TIENDAValue: Integer; virtual;
procedure SetID_TIENDAValue(const aValue: Integer); virtual;
function GetID_TIENDAIsNull: Boolean; virtual;
procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
function GetTIENDAValue: String; virtual;
procedure SetTIENDAValue(const aValue: String); virtual;
function GetTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAIsNull(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 GetBLOQUEADOValue: SmallInt; virtual;
procedure SetBLOQUEADOValue(const aValue: SmallInt); virtual;
function GetBLOQUEADOIsNull: Boolean; virtual;
procedure SetBLOQUEADOIsNull(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: SmallInt; virtual;
procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); 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 GetIGNORAR_CONTABILIDADValue: Integer; virtual;
procedure SetIGNORAR_CONTABILIDADValue(const aValue: Integer); virtual;
function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
function GetTIENE_SUBCUENTAValue: Integer; virtual;
procedure SetTIENE_SUBCUENTAValue(const aValue: Integer); virtual;
function GetTIENE_SUBCUENTAIsNull: Boolean; virtual;
procedure SetTIENE_SUBCUENTAIsNull(const aValue: Boolean); virtual;
function GetPROCEDENCIA_CLIENTEValue: String; virtual;
procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); virtual;
function GetPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetVENCIMIENTO_FACTURAS_1Value: Integer; virtual;
procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); virtual;
function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual;
procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); virtual;
function GetVENCIMIENTO_FACTURAS_2Value: Integer; virtual;
procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer); virtual;
function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual;
procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); virtual;
function GetVENCIMIENTO_FACTURAS_3Value: Integer; virtual;
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); virtual;
function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual;
function GetLISTA_NOMBRESValue: String; virtual;
procedure SetLISTA_NOMBRESValue(const aValue: String); virtual;
function GetLISTA_NOMBRESIsNull: Boolean; virtual;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual;
function GetLOPDValue: SmallInt; virtual;
procedure SetLOPDValue(const aValue: SmallInt); virtual;
function GetLOPDIsNull: Boolean; virtual;
procedure SetLOPDIsNull(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_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
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 BLOQUEADO: SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue;
property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
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: SmallInt 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 IGNORAR_CONTABILIDAD: Integer read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
property TIENE_SUBCUENTA: Integer read GetTIENE_SUBCUENTAValue write SetTIENE_SUBCUENTAValue;
property TIENE_SUBCUENTAIsNull: Boolean read GetTIENE_SUBCUENTAIsNull write SetTIENE_SUBCUENTAIsNull;
property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
property PROCEDENCIA_CLIENTEIsNull: Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
property VENCIMIENTO_FACTURAS_1: Integer 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: Integer 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: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull;
property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
property LOPD: SmallInt read GetLOPDValue write SetLOPDValue;
property LOPDIsNull: Boolean read GetLOPDIsNull write SetLOPDIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable)
['{89BA2688-D5D1-4D42-B4B2-11A450981F9E}']
{ 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_TIENDAValue: Integer;
procedure SetID_TIENDAValue(const aValue: Integer);
function GetID_TIENDAIsNull: Boolean;
procedure SetID_TIENDAIsNull(const aValue: Boolean);
function GetTIENDAValue: String;
procedure SetTIENDAValue(const aValue: String);
function GetTIENDAIsNull: Boolean;
procedure SetTIENDAIsNull(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 GetIGNORAR_CONTABILIDADValue: Integer;
procedure SetIGNORAR_CONTABILIDADValue(const aValue: Integer);
function GetIGNORAR_CONTABILIDADIsNull: Boolean;
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
function GetTIENE_SUBCUENTAValue: Integer;
procedure SetTIENE_SUBCUENTAValue(const aValue: Integer);
function GetTIENE_SUBCUENTAIsNull: Boolean;
procedure SetTIENE_SUBCUENTAIsNull(const aValue: Boolean);
function GetNOMBRE_COMERCIALValue: String;
procedure SetNOMBRE_COMERCIALValue(const aValue: String);
function GetNOMBRE_COMERCIALIsNull: Boolean;
procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
function GetES_ACREEDORValue: SmallInt;
procedure SetES_ACREEDORValue(const aValue: SmallInt);
function GetES_ACREEDORIsNull: Boolean;
procedure SetES_ACREEDORIsNull(const aValue: Boolean);
function GetVENCIMIENTO_FACTURAS_1Value: Integer;
procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer);
function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean;
procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean);
function GetVENCIMIENTO_FACTURAS_2Value: Integer;
procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer);
function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean;
procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean);
function GetVENCIMIENTO_FACTURAS_3Value: Integer;
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer);
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 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_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
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 IGNORAR_CONTABILIDAD: Integer read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
property TIENE_SUBCUENTA: Integer read GetTIENE_SUBCUENTAValue write SetTIENE_SUBCUENTAValue;
property TIENE_SUBCUENTAIsNull: Boolean read GetTIENE_SUBCUENTAIsNull write SetTIENE_SUBCUENTAIsNull;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
property ES_ACREEDOR: SmallInt read GetES_ACREEDORValue write SetES_ACREEDORValue;
property ES_ACREEDORIsNull: Boolean read GetES_ACREEDORIsNull write SetES_ACREEDORIsNull;
property VENCIMIENTO_FACTURAS_1: Integer 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: Integer 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: Integer 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 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_TIENDAValue: Integer; virtual;
procedure SetID_TIENDAValue(const aValue: Integer); virtual;
function GetID_TIENDAIsNull: Boolean; virtual;
procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
function GetTIENDAValue: String; virtual;
procedure SetTIENDAValue(const aValue: String); virtual;
function GetTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAIsNull(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 GetIGNORAR_CONTABILIDADValue: Integer; virtual;
procedure SetIGNORAR_CONTABILIDADValue(const aValue: Integer); virtual;
function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
function GetTIENE_SUBCUENTAValue: Integer; virtual;
procedure SetTIENE_SUBCUENTAValue(const aValue: Integer); virtual;
function GetTIENE_SUBCUENTAIsNull: Boolean; virtual;
procedure SetTIENE_SUBCUENTAIsNull(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 GetES_ACREEDORValue: SmallInt; virtual;
procedure SetES_ACREEDORValue(const aValue: SmallInt); virtual;
function GetES_ACREEDORIsNull: Boolean; virtual;
procedure SetES_ACREEDORIsNull(const aValue: Boolean); virtual;
function GetVENCIMIENTO_FACTURAS_1Value: Integer; virtual;
procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); virtual;
function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual;
procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); virtual;
function GetVENCIMIENTO_FACTURAS_2Value: Integer; virtual;
procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer); virtual;
function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual;
procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); virtual;
function GetVENCIMIENTO_FACTURAS_3Value: Integer; virtual;
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); 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 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_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
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 IGNORAR_CONTABILIDAD: Integer read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
property TIENE_SUBCUENTA: Integer read GetTIENE_SUBCUENTAValue write SetTIENE_SUBCUENTAValue;
property TIENE_SUBCUENTAIsNull: Boolean read GetTIENE_SUBCUENTAIsNull write SetTIENE_SUBCUENTAIsNull;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
property ES_ACREEDOR: SmallInt read GetES_ACREEDORValue write SetES_ACREEDORValue;
property ES_ACREEDORIsNull: Boolean read GetES_ACREEDORIsNull write SetES_ACREEDORIsNull;
property VENCIMIENTO_FACTURAS_1: Integer 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: Integer 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: Integer 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;
{ IVendedores }
IVendedores = interface(IDAStronglyTypedDataTable)
['{E64C6B17-5C91-42EE-AFC3-DB0E5AABA127}']
{ 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_TIENDAValue: Integer;
procedure SetID_TIENDAValue(const aValue: Integer);
function GetID_TIENDAIsNull: Boolean;
procedure SetID_TIENDAIsNull(const aValue: Boolean);
function GetTIENDAValue: String;
procedure SetTIENDAValue(const aValue: String);
function GetTIENDAIsNull: Boolean;
procedure SetTIENDAIsNull(const aValue: Boolean);
function GetCOMISIONValue: Float;
procedure SetCOMISIONValue(const aValue: Float);
function GetCOMISIONIsNull: Boolean;
procedure SetCOMISIONIsNull(const aValue: Boolean);
function GetID_USUARIOValue: Integer;
procedure SetID_USUARIOValue(const aValue: Integer);
function GetID_USUARIOIsNull: Boolean;
procedure SetID_USUARIOIsNull(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_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue;
property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull;
property ID_USUARIO: Integer read GetID_USUARIOValue write SetID_USUARIOValue;
property ID_USUARIOIsNull: Boolean read GetID_USUARIOIsNull write SetID_USUARIOIsNull;
end;
{ TVendedoresDataTableRules }
TVendedoresDataTableRules = class(TIntfObjectDADataTableRules, IVendedores)
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_TIENDAValue: Integer; virtual;
procedure SetID_TIENDAValue(const aValue: Integer); virtual;
function GetID_TIENDAIsNull: Boolean; virtual;
procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
function GetTIENDAValue: String; virtual;
procedure SetTIENDAValue(const aValue: String); virtual;
function GetTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
function GetCOMISIONValue: Float; virtual;
procedure SetCOMISIONValue(const aValue: Float); virtual;
function GetCOMISIONIsNull: Boolean; virtual;
procedure SetCOMISIONIsNull(const aValue: Boolean); virtual;
function GetID_USUARIOValue: Integer; virtual;
procedure SetID_USUARIOValue(const aValue: Integer); virtual;
function GetID_USUARIOIsNull: Boolean; virtual;
procedure SetID_USUARIOIsNull(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_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue;
property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull;
property ID_USUARIO: Integer read GetID_USUARIOValue write SetID_USUARIOValue;
property ID_USUARIOIsNull: Boolean read GetID_USUARIOIsNull write SetID_USUARIOIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{34A2A481-6FDF-417E-B69D-DCBC4E92361C}']
{ 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 GetNIF_CIFValue: String;
procedure SetNIF_CIFValue(const aValue: String);
function GetNIF_CIFIsNull: Boolean;
procedure SetNIF_CIFIsNull(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);
{ 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 NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
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;
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 GetNIF_CIFValue: String; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual;
function GetNIF_CIFIsNull: Boolean; virtual;
procedure SetNIF_CIFIsNull(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;
{ 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 NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
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;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{AEEAE1C7-A76E-4548-BE51-685D0B162D85}']
{ 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;
{ IProcedenciasCliente }
IProcedenciasCliente = interface(IDAStronglyTypedDataTable)
['{C32557E0-EF58-48C4-9E8D-348E2CDF9459}']
{ 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;
{ TProcedenciasClienteDataTableRules }
TProcedenciasClienteDataTableRules = class(TIntfObjectDADataTableRules, IProcedenciasCliente)
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;
{ IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable)
['{F4F95064-571E-44D1-A3D7-09DE82F63131}']
{ 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;
{ IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{7B22CEBA-9A1F-41F0-8C22-E9CE518F9220}']
{ 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;
implementation
uses Variants, uROBinaryHelpers;
{ TDarEmpresasContactoDataTableRules }
constructor TDarEmpresasContactoDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TDarEmpresasContactoDataTableRules.Destroy;
begin
inherited;
end;
function TDarEmpresasContactoDataTableRules.GetID_EMPRESAValue: Integer;
begin
result := DataTable.Fields[idx_DarEmpresasContactoID_EMPRESA].AsInteger;
end;
procedure TDarEmpresasContactoDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
begin
DataTable.Fields[idx_DarEmpresasContactoID_EMPRESA].AsInteger := aValue;
end;
function TDarEmpresasContactoDataTableRules.GetID_EMPRESAIsNull: boolean;
begin
result := DataTable.Fields[idx_DarEmpresasContactoID_EMPRESA].IsNull;
end;
procedure TDarEmpresasContactoDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_DarEmpresasContactoID_EMPRESA].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;
{ TDarTiendaDeUsuarioDataTableRules }
constructor TDarTiendaDeUsuarioDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TDarTiendaDeUsuarioDataTableRules.Destroy;
begin
inherited;
end;
function TDarTiendaDeUsuarioDataTableRules.GetID_TIENDAValue: Integer;
begin
result := DataTable.Fields[idx_DarTiendaDeUsuarioID_TIENDA].AsInteger;
end;
procedure TDarTiendaDeUsuarioDataTableRules.SetID_TIENDAValue(const aValue: Integer);
begin
DataTable.Fields[idx_DarTiendaDeUsuarioID_TIENDA].AsInteger := aValue;
end;
function TDarTiendaDeUsuarioDataTableRules.GetID_TIENDAIsNull: boolean;
begin
result := DataTable.Fields[idx_DarTiendaDeUsuarioID_TIENDA].IsNull;
end;
procedure TDarTiendaDeUsuarioDataTableRules.SetID_TIENDAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_DarTiendaDeUsuarioID_TIENDA].AsVariant := Null;
end;
{ TSubCuentasContactoDataTableRules }
constructor TSubCuentasContactoDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TSubCuentasContactoDataTableRules.Destroy;
begin
inherited;
end;
function TSubCuentasContactoDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_SubCuentasContactoID].AsInteger;
end;
procedure TSubCuentasContactoDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_SubCuentasContactoID].AsInteger := aValue;
end;
function TSubCuentasContactoDataTableRules.GetIDIsNull: boolean;
begin
result := DataTable.Fields[idx_SubCuentasContactoID].IsNull;
end;
procedure TSubCuentasContactoDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_SubCuentasContactoID].AsVariant := Null;
end;
function TSubCuentasContactoDataTableRules.GetREF_SUBCUENTAValue: String;
begin
result := DataTable.Fields[idx_SubCuentasContactoREF_SUBCUENTA].AsString;
end;
procedure TSubCuentasContactoDataTableRules.SetREF_SUBCUENTAValue(const aValue: String);
begin
DataTable.Fields[idx_SubCuentasContactoREF_SUBCUENTA].AsString := aValue;
end;
function TSubCuentasContactoDataTableRules.GetREF_SUBCUENTAIsNull: boolean;
begin
result := DataTable.Fields[idx_SubCuentasContactoREF_SUBCUENTA].IsNull;
end;
procedure TSubCuentasContactoDataTableRules.SetREF_SUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_SubCuentasContactoREF_SUBCUENTA].AsVariant := Null;
end;
function TSubCuentasContactoDataTableRules.GetDESCRIPCIONValue: String;
begin
result := DataTable.Fields[idx_SubCuentasContactoDESCRIPCION].AsString;
end;
procedure TSubCuentasContactoDataTableRules.SetDESCRIPCIONValue(const aValue: String);
begin
DataTable.Fields[idx_SubCuentasContactoDESCRIPCION].AsString := aValue;
end;
function TSubCuentasContactoDataTableRules.GetDESCRIPCIONIsNull: boolean;
begin
result := DataTable.Fields[idx_SubCuentasContactoDESCRIPCION].IsNull;
end;
procedure TSubCuentasContactoDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_SubCuentasContactoDESCRIPCION].AsVariant := Null;
end;
function TSubCuentasContactoDataTableRules.GetID_CUENTAValue: Integer;
begin
result := DataTable.Fields[idx_SubCuentasContactoID_CUENTA].AsInteger;
end;
procedure TSubCuentasContactoDataTableRules.SetID_CUENTAValue(const aValue: Integer);
begin
DataTable.Fields[idx_SubCuentasContactoID_CUENTA].AsInteger := aValue;
end;
function TSubCuentasContactoDataTableRules.GetID_CUENTAIsNull: boolean;
begin
result := DataTable.Fields[idx_SubCuentasContactoID_CUENTA].IsNull;
end;
procedure TSubCuentasContactoDataTableRules.SetID_CUENTAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_SubCuentasContactoID_CUENTA].AsVariant := Null;
end;
function TSubCuentasContactoDataTableRules.GetID_EJERCICIOValue: Integer;
begin
result := DataTable.Fields[idx_SubCuentasContactoID_EJERCICIO].AsInteger;
end;
procedure TSubCuentasContactoDataTableRules.SetID_EJERCICIOValue(const aValue: Integer);
begin
DataTable.Fields[idx_SubCuentasContactoID_EJERCICIO].AsInteger := aValue;
end;
function TSubCuentasContactoDataTableRules.GetID_EJERCICIOIsNull: boolean;
begin
result := DataTable.Fields[idx_SubCuentasContactoID_EJERCICIO].IsNull;
end;
procedure TSubCuentasContactoDataTableRules.SetID_EJERCICIOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_SubCuentasContactoID_EJERCICIO].AsVariant := Null;
end;
function TSubCuentasContactoDataTableRules.GetID_CONTACTOValue: Integer;
begin
result := DataTable.Fields[idx_SubCuentasContactoID_CONTACTO].AsInteger;
end;
procedure TSubCuentasContactoDataTableRules.SetID_CONTACTOValue(const aValue: Integer);
begin
DataTable.Fields[idx_SubCuentasContactoID_CONTACTO].AsInteger := aValue;
end;
function TSubCuentasContactoDataTableRules.GetID_CONTACTOIsNull: boolean;
begin
result := DataTable.Fields[idx_SubCuentasContactoID_CONTACTO].IsNull;
end;
procedure TSubCuentasContactoDataTableRules.SetID_CONTACTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_SubCuentasContactoID_CONTACTO].AsVariant := Null;
end;
{ 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.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;
function TContactosDataTableRules.GetID_TIENDAValue: Integer;
begin
result := DataTable.Fields[idx_ContactosID_TIENDA].AsInteger;
end;
procedure TContactosDataTableRules.SetID_TIENDAValue(const aValue: Integer);
begin
DataTable.Fields[idx_ContactosID_TIENDA].AsInteger := aValue;
end;
function TContactosDataTableRules.GetID_TIENDAIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosID_TIENDA].IsNull;
end;
procedure TContactosDataTableRules.SetID_TIENDAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosID_TIENDA].AsVariant := Null;
end;
function TContactosDataTableRules.GetTIENDAValue: String;
begin
result := DataTable.Fields[idx_ContactosTIENDA].AsString;
end;
procedure TContactosDataTableRules.SetTIENDAValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosTIENDA].AsString := aValue;
end;
function TContactosDataTableRules.GetTIENDAIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosTIENDA].IsNull;
end;
procedure TContactosDataTableRules.SetTIENDAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosTIENDA].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;
{ TContactosDireccionesDataTableRules }
constructor TContactosDireccionesDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TContactosDireccionesDataTableRules.Destroy;
begin
inherited;
end;
function TContactosDireccionesDataTableRules.GetID_CONTACTOValue: Integer;
begin
result := DataTable.Fields[idx_ContactosDireccionesID_CONTACTO].AsInteger;
end;
procedure TContactosDireccionesDataTableRules.SetID_CONTACTOValue(const aValue: Integer);
begin
DataTable.Fields[idx_ContactosDireccionesID_CONTACTO].AsInteger := aValue;
end;
function TContactosDireccionesDataTableRules.GetID_CONTACTOIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesID_CONTACTO].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetID_CONTACTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesID_CONTACTO].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetID_DIRECCIONValue: Integer;
begin
result := DataTable.Fields[idx_ContactosDireccionesID_DIRECCION].AsInteger;
end;
procedure TContactosDireccionesDataTableRules.SetID_DIRECCIONValue(const aValue: Integer);
begin
DataTable.Fields[idx_ContactosDireccionesID_DIRECCION].AsInteger := aValue;
end;
function TContactosDireccionesDataTableRules.GetID_DIRECCIONIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesID_DIRECCION].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesID_DIRECCION].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetNOMBREValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesNOMBRE].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetNOMBREValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesNOMBRE].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetNOMBREIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesNOMBRE].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesNOMBRE].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetNIF_CIFValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesNIF_CIF].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetNIF_CIFValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesNIF_CIF].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetNIF_CIFIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesNIF_CIF].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesNIF_CIF].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetCALLEValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesCALLE].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetCALLEValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesCALLE].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetCALLEIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesCALLE].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetCALLEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesCALLE].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetPOBLACIONValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesPOBLACION].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetPOBLACIONValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesPOBLACION].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetPOBLACIONIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesPOBLACION].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesPOBLACION].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetPROVINCIAValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesPROVINCIA].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetPROVINCIAValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesPROVINCIA].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetPROVINCIAIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesPROVINCIA].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesPROVINCIA].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetCODIGO_POSTALValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesCODIGO_POSTAL].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetCODIGO_POSTALValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesCODIGO_POSTAL].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetCODIGO_POSTALIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesCODIGO_POSTAL].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesCODIGO_POSTAL].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetTELEFONOValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesTELEFONO].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetTELEFONOValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesTELEFONO].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetTELEFONOIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesTELEFONO].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetTELEFONOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesTELEFONO].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetMOVILValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesMOVIL].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetMOVILValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesMOVIL].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetMOVILIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesMOVIL].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetMOVILIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesMOVIL].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetFAXValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesFAX].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetFAXValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesFAX].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetFAXIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesFAX].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetFAXIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesFAX].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetEMAILValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesEMAIL].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetEMAILValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesEMAIL].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetEMAILIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesEMAIL].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetEMAILIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesEMAIL].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetPERSONA_CONTACTOValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesPERSONA_CONTACTO].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetPERSONA_CONTACTOValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesPERSONA_CONTACTO].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetPERSONA_CONTACTOIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesPERSONA_CONTACTO].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesPERSONA_CONTACTO].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.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_TIENDAValue: Integer;
begin
result := DataTable.Fields[idx_ClientesID_TIENDA].AsInteger;
end;
procedure TClientesDataTableRules.SetID_TIENDAValue(const aValue: Integer);
begin
DataTable.Fields[idx_ClientesID_TIENDA].AsInteger := aValue;
end;
function TClientesDataTableRules.GetID_TIENDAIsNull: boolean;
begin
result := DataTable.Fields[idx_ClientesID_TIENDA].IsNull;
end;
procedure TClientesDataTableRules.SetID_TIENDAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesID_TIENDA].AsVariant := Null;
end;
function TClientesDataTableRules.GetTIENDAValue: String;
begin
result := DataTable.Fields[idx_ClientesTIENDA].AsString;
end;
procedure TClientesDataTableRules.SetTIENDAValue(const aValue: String);
begin
DataTable.Fields[idx_ClientesTIENDA].AsString := aValue;
end;
function TClientesDataTableRules.GetTIENDAIsNull: boolean;
begin
result := DataTable.Fields[idx_ClientesTIENDA].IsNull;
end;
procedure TClientesDataTableRules.SetTIENDAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesTIENDA].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.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.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: SmallInt;
begin
result := DataTable.Fields[idx_ClientesRECARGO_EQUIVALENCIA].AsSmallInt;
end;
procedure TClientesDataTableRules.SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_ClientesRECARGO_EQUIVALENCIA].AsSmallInt := 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.GetIGNORAR_CONTABILIDADValue: Integer;
begin
result := DataTable.Fields[idx_ClientesIGNORAR_CONTABILIDAD].AsInteger;
end;
procedure TClientesDataTableRules.SetIGNORAR_CONTABILIDADValue(const aValue: Integer);
begin
DataTable.Fields[idx_ClientesIGNORAR_CONTABILIDAD].AsInteger := aValue;
end;
function TClientesDataTableRules.GetIGNORAR_CONTABILIDADIsNull: boolean;
begin
result := DataTable.Fields[idx_ClientesIGNORAR_CONTABILIDAD].IsNull;
end;
procedure TClientesDataTableRules.SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesIGNORAR_CONTABILIDAD].AsVariant := Null;
end;
function TClientesDataTableRules.GetTIENE_SUBCUENTAValue: Integer;
begin
result := DataTable.Fields[idx_ClientesTIENE_SUBCUENTA].AsInteger;
end;
procedure TClientesDataTableRules.SetTIENE_SUBCUENTAValue(const aValue: Integer);
begin
DataTable.Fields[idx_ClientesTIENE_SUBCUENTA].AsInteger := aValue;
end;
function TClientesDataTableRules.GetTIENE_SUBCUENTAIsNull: boolean;
begin
result := DataTable.Fields[idx_ClientesTIENE_SUBCUENTA].IsNull;
end;
procedure TClientesDataTableRules.SetTIENE_SUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesTIENE_SUBCUENTA].AsVariant := Null;
end;
function TClientesDataTableRules.GetPROCEDENCIA_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_ClientesPROCEDENCIA_CLIENTE].AsString;
end;
procedure TClientesDataTableRules.SetPROCEDENCIA_CLIENTEValue(const aValue: String);
begin
DataTable.Fields[idx_ClientesPROCEDENCIA_CLIENTE].AsString := aValue;
end;
function TClientesDataTableRules.GetPROCEDENCIA_CLIENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_ClientesPROCEDENCIA_CLIENTE].IsNull;
end;
procedure TClientesDataTableRules.SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesPROCEDENCIA_CLIENTE].AsVariant := Null;
end;
function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_1Value: Integer;
begin
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsInteger;
end;
procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer);
begin
DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsInteger := 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: Integer;
begin
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_2].AsInteger;
end;
procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer);
begin
DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_2].AsInteger := 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: Integer;
begin
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].AsInteger;
end;
procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer);
begin
DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].AsInteger := 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.GetLISTA_NOMBRESValue: String;
begin
result := DataTable.Fields[idx_ClientesLISTA_NOMBRES].AsString;
end;
procedure TClientesDataTableRules.SetLISTA_NOMBRESValue(const aValue: String);
begin
DataTable.Fields[idx_ClientesLISTA_NOMBRES].AsString := aValue;
end;
function TClientesDataTableRules.GetLISTA_NOMBRESIsNull: boolean;
begin
result := DataTable.Fields[idx_ClientesLISTA_NOMBRES].IsNull;
end;
procedure TClientesDataTableRules.SetLISTA_NOMBRESIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesLISTA_NOMBRES].AsVariant := Null;
end;
function TClientesDataTableRules.GetLOPDValue: SmallInt;
begin
result := DataTable.Fields[idx_ClientesLOPD].AsSmallInt;
end;
procedure TClientesDataTableRules.SetLOPDValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_ClientesLOPD].AsSmallInt := aValue;
end;
function TClientesDataTableRules.GetLOPDIsNull: boolean;
begin
result := DataTable.Fields[idx_ClientesLOPD].IsNull;
end;
procedure TClientesDataTableRules.SetLOPDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesLOPD].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.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.GetID_TIENDAValue: Integer;
begin
result := DataTable.Fields[idx_ProveedoresID_TIENDA].AsInteger;
end;
procedure TProveedoresDataTableRules.SetID_TIENDAValue(const aValue: Integer);
begin
DataTable.Fields[idx_ProveedoresID_TIENDA].AsInteger := aValue;
end;
function TProveedoresDataTableRules.GetID_TIENDAIsNull: boolean;
begin
result := DataTable.Fields[idx_ProveedoresID_TIENDA].IsNull;
end;
procedure TProveedoresDataTableRules.SetID_TIENDAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ProveedoresID_TIENDA].AsVariant := Null;
end;
function TProveedoresDataTableRules.GetTIENDAValue: String;
begin
result := DataTable.Fields[idx_ProveedoresTIENDA].AsString;
end;
procedure TProveedoresDataTableRules.SetTIENDAValue(const aValue: String);
begin
DataTable.Fields[idx_ProveedoresTIENDA].AsString := aValue;
end;
function TProveedoresDataTableRules.GetTIENDAIsNull: boolean;
begin
result := DataTable.Fields[idx_ProveedoresTIENDA].IsNull;
end;
procedure TProveedoresDataTableRules.SetTIENDAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ProveedoresTIENDA].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.GetIGNORAR_CONTABILIDADValue: Integer;
begin
result := DataTable.Fields[idx_ProveedoresIGNORAR_CONTABILIDAD].AsInteger;
end;
procedure TProveedoresDataTableRules.SetIGNORAR_CONTABILIDADValue(const aValue: Integer);
begin
DataTable.Fields[idx_ProveedoresIGNORAR_CONTABILIDAD].AsInteger := aValue;
end;
function TProveedoresDataTableRules.GetIGNORAR_CONTABILIDADIsNull: boolean;
begin
result := DataTable.Fields[idx_ProveedoresIGNORAR_CONTABILIDAD].IsNull;
end;
procedure TProveedoresDataTableRules.SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ProveedoresIGNORAR_CONTABILIDAD].AsVariant := Null;
end;
function TProveedoresDataTableRules.GetTIENE_SUBCUENTAValue: Integer;
begin
result := DataTable.Fields[idx_ProveedoresTIENE_SUBCUENTA].AsInteger;
end;
procedure TProveedoresDataTableRules.SetTIENE_SUBCUENTAValue(const aValue: Integer);
begin
DataTable.Fields[idx_ProveedoresTIENE_SUBCUENTA].AsInteger := aValue;
end;
function TProveedoresDataTableRules.GetTIENE_SUBCUENTAIsNull: boolean;
begin
result := DataTable.Fields[idx_ProveedoresTIENE_SUBCUENTA].IsNull;
end;
procedure TProveedoresDataTableRules.SetTIENE_SUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ProveedoresTIENE_SUBCUENTA].AsVariant := Null;
end;
function TProveedoresDataTableRules.GetNOMBRE_COMERCIALValue: String;
begin
result := DataTable.Fields[idx_ProveedoresNOMBRE_COMERCIAL].AsString;
end;
procedure TProveedoresDataTableRules.SetNOMBRE_COMERCIALValue(const aValue: String);
begin
DataTable.Fields[idx_ProveedoresNOMBRE_COMERCIAL].AsString := aValue;
end;
function TProveedoresDataTableRules.GetNOMBRE_COMERCIALIsNull: boolean;
begin
result := DataTable.Fields[idx_ProveedoresNOMBRE_COMERCIAL].IsNull;
end;
procedure TProveedoresDataTableRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ProveedoresNOMBRE_COMERCIAL].AsVariant := Null;
end;
function TProveedoresDataTableRules.GetES_ACREEDORValue: SmallInt;
begin
result := DataTable.Fields[idx_ProveedoresES_ACREEDOR].AsSmallInt;
end;
procedure TProveedoresDataTableRules.SetES_ACREEDORValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_ProveedoresES_ACREEDOR].AsSmallInt := aValue;
end;
function TProveedoresDataTableRules.GetES_ACREEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_ProveedoresES_ACREEDOR].IsNull;
end;
procedure TProveedoresDataTableRules.SetES_ACREEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ProveedoresES_ACREEDOR].AsVariant := Null;
end;
function TProveedoresDataTableRules.GetVENCIMIENTO_FACTURAS_1Value: Integer;
begin
result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].AsInteger;
end;
procedure TProveedoresDataTableRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer);
begin
DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].AsInteger := 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: Integer;
begin
result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_2].AsInteger;
end;
procedure TProveedoresDataTableRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer);
begin
DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_2].AsInteger := 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: Integer;
begin
result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsInteger;
end;
procedure TProveedoresDataTableRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer);
begin
DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsInteger := 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;
{ TVendedoresDataTableRules }
constructor TVendedoresDataTableRules.Create(aDataTable: TDADataTable);
var
StrList: TStringList;
begin
inherited;
StrList := TStringList.Create;
StrList.OnChange := NOTAS_OnChange;
f_NOTAS := NewROStrings(StrList,True);
end;
destructor TVendedoresDataTableRules.Destroy;
begin
inherited;
end;
procedure TVendedoresDataTableRules.NOTAS_OnChange(Sender: TObject);
begin
if DataTable.Editing then DataTable.Fields[idx_VendedoresNOTAS].AsVariant := TStringList(Sender).Text;
end;
function TVendedoresDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_VendedoresID].AsInteger;
end;
procedure TVendedoresDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_VendedoresID].AsInteger := aValue;
end;
function TVendedoresDataTableRules.GetIDIsNull: boolean;
begin
result := DataTable.Fields[idx_VendedoresID].IsNull;
end;
procedure TVendedoresDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_VendedoresID].AsVariant := Null;
end;
function TVendedoresDataTableRules.GetID_CATEGORIAValue: Integer;
begin
result := DataTable.Fields[idx_VendedoresID_CATEGORIA].AsInteger;
end;
procedure TVendedoresDataTableRules.SetID_CATEGORIAValue(const aValue: Integer);
begin
DataTable.Fields[idx_VendedoresID_CATEGORIA].AsInteger := aValue;
end;
function TVendedoresDataTableRules.GetID_CATEGORIAIsNull: boolean;
begin
result := DataTable.Fields[idx_VendedoresID_CATEGORIA].IsNull;
end;
procedure TVendedoresDataTableRules.SetID_CATEGORIAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_VendedoresID_CATEGORIA].AsVariant := Null;
end;
function TVendedoresDataTableRules.GetNIF_CIFValue: String;
begin
result := DataTable.Fields[idx_VendedoresNIF_CIF].AsString;
end;
procedure TVendedoresDataTableRules.SetNIF_CIFValue(const aValue: String);
begin
DataTable.Fields[idx_VendedoresNIF_CIF].AsString := aValue;
end;
function TVendedoresDataTableRules.GetNIF_CIFIsNull: boolean;
begin
result := DataTable.Fields[idx_VendedoresNIF_CIF].IsNull;
end;
procedure TVendedoresDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_VendedoresNIF_CIF].AsVariant := Null;
end;
function TVendedoresDataTableRules.GetNOMBREValue: String;
begin
result := DataTable.Fields[idx_VendedoresNOMBRE].AsString;
end;
procedure TVendedoresDataTableRules.SetNOMBREValue(const aValue: String);
begin
DataTable.Fields[idx_VendedoresNOMBRE].AsString := aValue;
end;
function TVendedoresDataTableRules.GetNOMBREIsNull: boolean;
begin
result := DataTable.Fields[idx_VendedoresNOMBRE].IsNull;
end;
procedure TVendedoresDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_VendedoresNOMBRE].AsVariant := Null;
end;
function TVendedoresDataTableRules.GetPERSONA_CONTACTOValue: String;
begin
result := DataTable.Fields[idx_VendedoresPERSONA_CONTACTO].AsString;
end;
procedure TVendedoresDataTableRules.SetPERSONA_CONTACTOValue(const aValue: String);
begin
DataTable.Fields[idx_VendedoresPERSONA_CONTACTO].AsString := aValue;
end;
function TVendedoresDataTableRules.GetPERSONA_CONTACTOIsNull: boolean;
begin
result := DataTable.Fields[idx_VendedoresPERSONA_CONTACTO].IsNull;
end;
procedure TVendedoresDataTableRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_VendedoresPERSONA_CONTACTO].AsVariant := Null;
end;
function TVendedoresDataTableRules.GetCALLEValue: String;
begin
result := DataTable.Fields[idx_VendedoresCALLE].AsString;
end;
procedure TVendedoresDataTableRules.SetCALLEValue(const aValue: String);
begin
DataTable.Fields[idx_VendedoresCALLE].AsString := aValue;
end;
function TVendedoresDataTableRules.GetCALLEIsNull: boolean;
begin
result := DataTable.Fields[idx_VendedoresCALLE].IsNull;
end;
procedure TVendedoresDataTableRules.SetCALLEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_VendedoresCALLE].AsVariant := Null;
end;
function TVendedoresDataTableRules.GetPOBLACIONValue: String;
begin
result := DataTable.Fields[idx_VendedoresPOBLACION].AsString;
end;
procedure TVendedoresDataTableRules.SetPOBLACIONValue(const aValue: String);
begin
DataTable.Fields[idx_VendedoresPOBLACION].AsString := aValue;
end;
function TVendedoresDataTableRules.GetPOBLACIONIsNull: boolean;
begin
result := DataTable.Fields[idx_VendedoresPOBLACION].IsNull;
end;
procedure TVendedoresDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_VendedoresPOBLACION].AsVariant := Null;
end;
function TVendedoresDataTableRules.GetPROVINCIAValue: String;
begin
result := DataTable.Fields[idx_VendedoresPROVINCIA].AsString;
end;
procedure TVendedoresDataTableRules.SetPROVINCIAValue(const aValue: String);
begin
DataTable.Fields[idx_VendedoresPROVINCIA].AsString := aValue;
end;
function TVendedoresDataTableRules.GetPROVINCIAIsNull: boolean;
begin
result := DataTable.Fields[idx_VendedoresPROVINCIA].IsNull;
end;
procedure TVendedoresDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_VendedoresPROVINCIA].AsVariant := Null;
end;
function TVendedoresDataTableRules.GetCODIGO_POSTALValue: String;
begin
result := DataTable.Fields[idx_VendedoresCODIGO_POSTAL].AsString;
end;
procedure TVendedoresDataTableRules.SetCODIGO_POSTALValue(const aValue: String);
begin
DataTable.Fields[idx_VendedoresCODIGO_POSTAL].AsString := aValue;
end;
function TVendedoresDataTableRules.GetCODIGO_POSTALIsNull: boolean;
begin
result := DataTable.Fields[idx_VendedoresCODIGO_POSTAL].IsNull;
end;
procedure TVendedoresDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_VendedoresCODIGO_POSTAL].AsVariant := Null;
end;
function TVendedoresDataTableRules.GetTELEFONO_1Value: String;
begin
result := DataTable.Fields[idx_VendedoresTELEFONO_1].AsString;
end;
procedure TVendedoresDataTableRules.SetTELEFONO_1Value(const aValue: String);
begin
DataTable.Fields[idx_VendedoresTELEFONO_1].AsString := aValue;
end;
function TVendedoresDataTableRules.GetTELEFONO_1IsNull: boolean;
begin
result := DataTable.Fields[idx_VendedoresTELEFONO_1].IsNull;
end;
procedure TVendedoresDataTableRules.SetTELEFONO_1IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_VendedoresTELEFONO_1].AsVariant := Null;
end;
function TVendedoresDataTableRules.GetTELEFONO_2Value: String;
begin
result := DataTable.Fields[idx_VendedoresTELEFONO_2].AsString;
end;
procedure TVendedoresDataTableRules.SetTELEFONO_2Value(const aValue: String);
begin
DataTable.Fields[idx_VendedoresTELEFONO_2].AsString := aValue;
end;
function TVendedoresDataTableRules.GetTELEFONO_2IsNull: boolean;
begin
result := DataTable.Fields[idx_VendedoresTELEFONO_2].IsNull;
end;
procedure TVendedoresDataTableRules.SetTELEFONO_2IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_VendedoresTELEFONO_2].AsVariant := Null;
end;
function TVendedoresDataTableRules.GetMOVIL_1Value: String;
begin
result := DataTable.Fields[idx_VendedoresMOVIL_1].AsString;
end;
procedure TVendedoresDataTableRules.SetMOVIL_1Value(const aValue: String);
begin
DataTable.Fields[idx_VendedoresMOVIL_1].AsString := aValue;
end;
function TVendedoresDataTableRules.GetMOVIL_1IsNull: boolean;
begin
result := DataTable.Fields[idx_VendedoresMOVIL_1].IsNull;
end;
procedure TVendedoresDataTableRules.SetMOVIL_1IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_VendedoresMOVIL_1].AsVariant := Null;
end;
function TVendedoresDataTableRules.GetMOVIL_2Value: String;
begin
result := DataTable.Fields[idx_VendedoresMOVIL_2].AsString;
end;
procedure TVendedoresDataTableRules.SetMOVIL_2Value(const aValue: String);
begin
DataTable.Fields[idx_VendedoresMOVIL_2].AsString := aValue;
end;
function TVendedoresDataTableRules.GetMOVIL_2IsNull: boolean;
begin
result := DataTable.Fields[idx_VendedoresMOVIL_2].IsNull;
end;
procedure TVendedoresDataTableRules.SetMOVIL_2IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_VendedoresMOVIL_2].AsVariant := Null;
end;
function TVendedoresDataTableRules.GetFAXValue: String;
begin
result := DataTable.Fields[idx_VendedoresFAX].AsString;
end;
procedure TVendedoresDataTableRules.SetFAXValue(const aValue: String);
begin
DataTable.Fields[idx_VendedoresFAX].AsString := aValue;
end;
function TVendedoresDataTableRules.GetFAXIsNull: boolean;
begin
result := DataTable.Fields[idx_VendedoresFAX].IsNull;
end;
procedure TVendedoresDataTableRules.SetFAXIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_VendedoresFAX].AsVariant := Null;
end;
function TVendedoresDataTableRules.GetEMAIL_1Value: String;
begin
result := DataTable.Fields[idx_VendedoresEMAIL_1].AsString;
end;
procedure TVendedoresDataTableRules.SetEMAIL_1Value(const aValue: String);
begin
DataTable.Fields[idx_VendedoresEMAIL_1].AsString := aValue;
end;
function TVendedoresDataTableRules.GetEMAIL_1IsNull: boolean;
begin
result := DataTable.Fields[idx_VendedoresEMAIL_1].IsNull;
end;
procedure TVendedoresDataTableRules.SetEMAIL_1IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_VendedoresEMAIL_1].AsVariant := Null;
end;
function TVendedoresDataTableRules.GetEMAIL_2Value: String;
begin
result := DataTable.Fields[idx_VendedoresEMAIL_2].AsString;
end;
procedure TVendedoresDataTableRules.SetEMAIL_2Value(const aValue: String);
begin
DataTable.Fields[idx_VendedoresEMAIL_2].AsString := aValue;
end;
function TVendedoresDataTableRules.GetEMAIL_2IsNull: boolean;
begin
result := DataTable.Fields[idx_VendedoresEMAIL_2].IsNull;
end;
procedure TVendedoresDataTableRules.SetEMAIL_2IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_VendedoresEMAIL_2].AsVariant := Null;
end;
function TVendedoresDataTableRules.GetPAGINA_WEBValue: String;
begin
result := DataTable.Fields[idx_VendedoresPAGINA_WEB].AsString;
end;
procedure TVendedoresDataTableRules.SetPAGINA_WEBValue(const aValue: String);
begin
DataTable.Fields[idx_VendedoresPAGINA_WEB].AsString := aValue;
end;
function TVendedoresDataTableRules.GetPAGINA_WEBIsNull: boolean;
begin
result := DataTable.Fields[idx_VendedoresPAGINA_WEB].IsNull;
end;
procedure TVendedoresDataTableRules.SetPAGINA_WEBIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_VendedoresPAGINA_WEB].AsVariant := Null;
end;
function TVendedoresDataTableRules.GetNOTASValue: IROStrings;
begin
result := f_NOTAS;
result.Text := DataTable.Fields[idx_VendedoresNOTAS].AsString;
end;
function TVendedoresDataTableRules.GetNOTASIsNull: boolean;
begin
result := DataTable.Fields[idx_VendedoresNOTAS].IsNull;
end;
procedure TVendedoresDataTableRules.SetNOTASIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_VendedoresNOTAS].AsVariant := Null;
end;
function TVendedoresDataTableRules.GetFECHA_ALTAValue: DateTime;
begin
result := DataTable.Fields[idx_VendedoresFECHA_ALTA].AsDateTime;
end;
procedure TVendedoresDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
DataTable.Fields[idx_VendedoresFECHA_ALTA].AsDateTime := aValue;
end;
function TVendedoresDataTableRules.GetFECHA_ALTAIsNull: boolean;
begin
result := DataTable.Fields[idx_VendedoresFECHA_ALTA].IsNull;
end;
procedure TVendedoresDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_VendedoresFECHA_ALTA].AsVariant := Null;
end;
function TVendedoresDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
result := DataTable.Fields[idx_VendedoresFECHA_MODIFICACION].AsDateTime;
end;
procedure TVendedoresDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
DataTable.Fields[idx_VendedoresFECHA_MODIFICACION].AsDateTime := aValue;
end;
function TVendedoresDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
begin
result := DataTable.Fields[idx_VendedoresFECHA_MODIFICACION].IsNull;
end;
procedure TVendedoresDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_VendedoresFECHA_MODIFICACION].AsVariant := Null;
end;
function TVendedoresDataTableRules.GetUSUARIOValue: String;
begin
result := DataTable.Fields[idx_VendedoresUSUARIO].AsString;
end;
procedure TVendedoresDataTableRules.SetUSUARIOValue(const aValue: String);
begin
DataTable.Fields[idx_VendedoresUSUARIO].AsString := aValue;
end;
function TVendedoresDataTableRules.GetUSUARIOIsNull: boolean;
begin
result := DataTable.Fields[idx_VendedoresUSUARIO].IsNull;
end;
procedure TVendedoresDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_VendedoresUSUARIO].AsVariant := Null;
end;
function TVendedoresDataTableRules.GetID_EMPRESAValue: Integer;
begin
result := DataTable.Fields[idx_VendedoresID_EMPRESA].AsInteger;
end;
procedure TVendedoresDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
begin
DataTable.Fields[idx_VendedoresID_EMPRESA].AsInteger := aValue;
end;
function TVendedoresDataTableRules.GetID_EMPRESAIsNull: boolean;
begin
result := DataTable.Fields[idx_VendedoresID_EMPRESA].IsNull;
end;
procedure TVendedoresDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_VendedoresID_EMPRESA].AsVariant := Null;
end;
function TVendedoresDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_VendedoresREFERENCIA].AsString;
end;
procedure TVendedoresDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
DataTable.Fields[idx_VendedoresREFERENCIA].AsString := aValue;
end;
function TVendedoresDataTableRules.GetREFERENCIAIsNull: boolean;
begin
result := DataTable.Fields[idx_VendedoresREFERENCIA].IsNull;
end;
procedure TVendedoresDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_VendedoresREFERENCIA].AsVariant := Null;
end;
function TVendedoresDataTableRules.GetID_TIENDAValue: Integer;
begin
result := DataTable.Fields[idx_VendedoresID_TIENDA].AsInteger;
end;
procedure TVendedoresDataTableRules.SetID_TIENDAValue(const aValue: Integer);
begin
DataTable.Fields[idx_VendedoresID_TIENDA].AsInteger := aValue;
end;
function TVendedoresDataTableRules.GetID_TIENDAIsNull: boolean;
begin
result := DataTable.Fields[idx_VendedoresID_TIENDA].IsNull;
end;
procedure TVendedoresDataTableRules.SetID_TIENDAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_VendedoresID_TIENDA].AsVariant := Null;
end;
function TVendedoresDataTableRules.GetTIENDAValue: String;
begin
result := DataTable.Fields[idx_VendedoresTIENDA].AsString;
end;
procedure TVendedoresDataTableRules.SetTIENDAValue(const aValue: String);
begin
DataTable.Fields[idx_VendedoresTIENDA].AsString := aValue;
end;
function TVendedoresDataTableRules.GetTIENDAIsNull: boolean;
begin
result := DataTable.Fields[idx_VendedoresTIENDA].IsNull;
end;
procedure TVendedoresDataTableRules.SetTIENDAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_VendedoresTIENDA].AsVariant := Null;
end;
function TVendedoresDataTableRules.GetCOMISIONValue: Float;
begin
result := DataTable.Fields[idx_VendedoresCOMISION].AsFloat;
end;
procedure TVendedoresDataTableRules.SetCOMISIONValue(const aValue: Float);
begin
DataTable.Fields[idx_VendedoresCOMISION].AsFloat := aValue;
end;
function TVendedoresDataTableRules.GetCOMISIONIsNull: boolean;
begin
result := DataTable.Fields[idx_VendedoresCOMISION].IsNull;
end;
procedure TVendedoresDataTableRules.SetCOMISIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_VendedoresCOMISION].AsVariant := Null;
end;
function TVendedoresDataTableRules.GetID_USUARIOValue: Integer;
begin
result := DataTable.Fields[idx_VendedoresID_USUARIO].AsInteger;
end;
procedure TVendedoresDataTableRules.SetID_USUARIOValue(const aValue: Integer);
begin
DataTable.Fields[idx_VendedoresID_USUARIO].AsInteger := aValue;
end;
function TVendedoresDataTableRules.GetID_USUARIOIsNull: boolean;
begin
result := DataTable.Fields[idx_VendedoresID_USUARIO].IsNull;
end;
procedure TVendedoresDataTableRules.SetID_USUARIOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_VendedoresID_USUARIO].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.GetNIF_CIFValue: String;
begin
result := DataTable.Fields[idx_DireccionesContactoNIF_CIF].AsString;
end;
procedure TDireccionesContactoDataTableRules.SetNIF_CIFValue(const aValue: String);
begin
DataTable.Fields[idx_DireccionesContactoNIF_CIF].AsString := aValue;
end;
function TDireccionesContactoDataTableRules.GetNIF_CIFIsNull: boolean;
begin
result := DataTable.Fields[idx_DireccionesContactoNIF_CIF].IsNull;
end;
procedure TDireccionesContactoDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_DireccionesContactoNIF_CIF].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;
{ 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;
{ TProcedenciasClienteDataTableRules }
constructor TProcedenciasClienteDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TProcedenciasClienteDataTableRules.Destroy;
begin
inherited;
end;
function TProcedenciasClienteDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_ProcedenciasClienteID].AsInteger;
end;
procedure TProcedenciasClienteDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_ProcedenciasClienteID].AsInteger := aValue;
end;
function TProcedenciasClienteDataTableRules.GetIDIsNull: boolean;
begin
result := DataTable.Fields[idx_ProcedenciasClienteID].IsNull;
end;
procedure TProcedenciasClienteDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ProcedenciasClienteID].AsVariant := Null;
end;
function TProcedenciasClienteDataTableRules.GetDESCRIPCIONValue: String;
begin
result := DataTable.Fields[idx_ProcedenciasClienteDESCRIPCION].AsString;
end;
procedure TProcedenciasClienteDataTableRules.SetDESCRIPCIONValue(const aValue: String);
begin
DataTable.Fields[idx_ProcedenciasClienteDESCRIPCION].AsString := aValue;
end;
function TProcedenciasClienteDataTableRules.GetDESCRIPCIONIsNull: boolean;
begin
result := DataTable.Fields[idx_ProcedenciasClienteDESCRIPCION].IsNull;
end;
procedure TProcedenciasClienteDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ProcedenciasClienteDESCRIPCION].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;
{ 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;
initialization
RegisterDataTableRules(RID_DarEmpresasContacto, TDarEmpresasContactoDataTableRules);
RegisterDataTableRules(RID_PersonalContacto, TPersonalContactoDataTableRules);
RegisterDataTableRules(RID_DarTiendaDeUsuario, TDarTiendaDeUsuarioDataTableRules);
RegisterDataTableRules(RID_SubCuentasContacto, TSubCuentasContactoDataTableRules);
RegisterDataTableRules(RID_Contactos, TContactosDataTableRules);
RegisterDataTableRules(RID_GruposCliente, TGruposClienteDataTableRules);
RegisterDataTableRules(RID_DatosBancarios, TDatosBancariosDataTableRules);
RegisterDataTableRules(RID_ContactosDirecciones, TContactosDireccionesDataTableRules);
RegisterDataTableRules(RID_Clientes, TClientesDataTableRules);
RegisterDataTableRules(RID_Proveedores, TProveedoresDataTableRules);
RegisterDataTableRules(RID_Vendedores, TVendedoresDataTableRules);
RegisterDataTableRules(RID_DireccionesContacto, TDireccionesContactoDataTableRules);
RegisterDataTableRules(RID_ClientesDescuentos, TClientesDescuentosDataTableRules);
RegisterDataTableRules(RID_ProcedenciasCliente, TProcedenciasClienteDataTableRules);
RegisterDataTableRules(RID_GruposProveedor, TGruposProveedorDataTableRules);
RegisterDataTableRules(RID_Contactos_Refresh, TContactos_RefreshDataTableRules);
end.
Reference in New Issue View Git Blame Copy Permalink