{ =============================================================================== Copyright (©) 2002. Rodax Software. =============================================================================== Los contenidos de este fichero son propiedad de Rodax Software titular del copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado, en su totalidad o en parte, con el permiso escrito de Rodax Software, o de acuerdo con los términos y condiciones establecidas en el acuerdo/contrato bajo el que se suministra. ----------------------------------------------------------------------------- Web: www.rodax-software.com =============================================================================== Fecha primera versión: 29-01-2003 Versión actual: 1.0.0 Fecha versión actual: 29-01-2003 =============================================================================== Modificaciones: Fecha Comentarios --------------------------------------------------------------------------- =============================================================================== } unit Entidades; interface type //ENTIDADES //Entidades correspondientes a los distintos modulos que manejara la aplicacion TRdxEntidad = (entVacia, //Empresas entEmpresas, //Agenda entAgenda, //Datos entDatos, entArticulo, entVendedor, entInstalador, entFamilias, entPropiedades, entFormasPago, entComisiones, entArticuloModelo, //Proveedores entProveedor, entFacturaProveedor, entPagoProveedor, entAbonoProveedor, //Clientes entCliente, entPresupuestoCliente, entPresupuestoCocina, entPresupuestoBano, entPresupuestoArmarios, entPresupuestoElectro, entPresupuestoVarios, entContratoCliente, entContratoCocina, entContratoBano, entContratoArmarios, entContratoElectro, entContratoVarios, entObraCliente, entFacturaCliente, entFacturaCocina, entFacturaBano, entFacturaArmarios, entFacturaElectro, entFacturaVarios, entCobroCliente, entAbonoCliente, entAbonoCocina, entAbonoBano, entAbonoArmarios, entAbonoElectro, entAbonoVarios, entListadoPagosCliente, entListadoBeneficios, entFacturaProforma, entAlbaranCliente, //Libros entEntLibro, entSalLibro, //Opciones entOpciones, entDatosEmpresa, entPoblaciones, entProvincias, //Informes entInformes, entHistorialFacturacionClientes, entHistorialFacturacionProveedores, entResumenFacturacionClientes, entResumenFacturacionProveedores, entListadoProveedores, entListadoClientes, entListadoLibros, entInformeTrimestralVentas, entInformeTrimestralCompras ); const //ENTIDADES CaptionsEntidades : array [TRdxEntidad] of string = ( (''), //entVacia //Empresas ('Empresas'), //entEmpresas //Agenda ('Agenda'), //entAgenda //Datos ('datos'), //entDatos ('articulo'), //entArticulo ('vendedor'), //entVendedor ('instalador'), //entInstalador ('familias'), //entFamilias ('propiedades'), //entPropiedades ('formas de pago'), //entFormasPago ('comisiones de vendedor'), //entComisiones ('artículo modelo'), //entArticuloModelo //Proveedores ('proveedor'), //entProveedor ('factura de proveedor'), //entFacturaProveedor ('pago a proveedor'), //entPagoProveedor ('abono de proveedor'), //entAbonoProveedor //Clientes ('cliente'), //entCliente ('presupuesto de cliente'), //entPresupuestoCliente ('presupuesto de cocina'), //entPresupuestoCocina ('presupuesto de baño'), //entPresupuestoBano ('presupuesto de armarios'), //entPresupuestoArmarios ('presupuesto de electrodomésticos'), //entPresupuestoElectro ('presupuesto de varios'), //entPresupuestoVarios ('contrato de cliente'), //entContratoCliente ('contrato de cocina'), //entContratoCocina ('contrato de baño'), //entContratoBano ('contrato de armarios'), //entContratoArmarios ('contrato de electrodomésticos'), //entContratoElectro ('contrato de varios'), //entContratoVarios ('obra de cliente'), //entObraCliente ('factura de cliente'), //entFacturaCliente ('factura de cocina'), //entFacturaCocina ('factura de baño'), //entFacturaBano ('factura de armarios'), //entFacturaArmarios ('factura de electrodomésticos'), //entFacturaElectro ('factura de varios'), //entFacturaVarios ('cobro de cliente'), //entCobroCliente ('abono a cliente'), //entAbonoCliente ('abono de factura de cocina'), //entAbonoCocina ('abono de factura de baño'), //entAbonoBano ('abono de factura de armarios'), //entAbonoArmarios ('abono de factura de electrodomésticos'), //entAbonoElectro ('abono de factura de varios'), //entAbonoVarios ('listado de cobros/facturas de cliente'), //entListadoPagosCliente ('listado de beneficios'), //entListadoBeneficios ('factura proforma'), //entFacturaProforma ('albarán de cliente'), //entAlbaranCliente //Libros ('entrada'), //entEntLibro ('salida'), //entSalLibro //Opciones ('opciones'), //entOpciones ('datos de la empresa'), //entDatosEmpresa ('poblaciones'), //entPoblaciones ('provincias'), //entProvincias //Informes ('informe'), //entInformes ('historial de facturación por cliente'), //entHistorialFacturacionClientes ('historial de facturación por proveedor'), //entHistorialFacturacionProveedores ('resumen de facturación por clientes'), //entResumenFacturacionClientes ('resumen de facturación por proveedores'), //entResumenFacturacionProveedores ('listado de proveedores'), //entListadoProveedores ('listado de clientes'), //entListadoClientes ('listado de libro'), //entListadoLibros ('listado trimestral de ventas'), //entInformeTrimestralVentas ('listado trimestral de compras') //entInformeTrimestralCompras ); dsFacturaCliente = [entFacturaCliente, entFacturaCocina, entFacturaBano, entFacturaArmarios, entFacturaElectro, entFacturaVarios]; dsAbonoCliente = [entAbonoCliente, entAbonoCocina, entAbonoBano, entAbonoArmarios, entAbonoElectro, entAbonoVarios]; //ENTIDADES function darNombreEntidad (Entidad : TRdxEntidad) : string; function darNombreGrupo (Entidad : TRdxEntidad) : string; implementation uses StrFunc; //////////////////////////////////////////////////////////////////////////////// //ENTIDADES //////////////////////////////////////////////////////////////////////////////// function darNombreEntidad (Entidad : TRdxEntidad) : string; begin Result := StrCapitalize(CaptionsEntidades [Entidad]); end; function darNombreGrupo (Entidad : TRdxEntidad) : string; begin case Entidad of //EMPRESAS entEmpresas : Result := 'Empresas'; //DATOS entDatos, entArticulo, entVendedor, entInstalador, entFamilias, entPropiedades, entFormasPago, entComisiones, entArticuloModelo : Result := 'Datos'; //CLIENTES entCliente, entPresupuestoCliente, entPresupuestoCocina, entPresupuestoBano, entPresupuestoArmarios, entPresupuestoElectro, entPresupuestoVarios, entContratoCliente, entContratoCocina, entContratoBano, entContratoArmarios, entContratoElectro, entContratoVarios, entObraCliente, entFacturaCliente, entFacturaCocina, entFacturaBano, entFacturaArmarios, entFacturaElectro, entFacturaVarios, entCobroCliente, entAbonoCliente, entAbonoCocina, entAbonoBano, entAbonoArmarios, entAbonoElectro, entAbonoVarios, entFacturaProforma, entAlbaranCliente, entListadoClientes : Result := 'Clientes'; //PROVEEDORES entProveedor, entFacturaProveedor, entPagoProveedor, entAbonoProveedor, entListadoProveedores : Result := 'Proveedores'; //LIBROS entEntLibro, entSalLibro : Result := 'Libros'; entResumenFacturacionClientes, entHistorialFacturacionClientes, entResumenFacturacionProveedores, entHistorialFacturacionProveedores, entInformeTrimestralVentas, entInformeTrimestralCompras, entListadoPagosCliente, entListadoBeneficios, entInformes : Result := 'Informes'; //OPCIONES entOpciones, entDatosEmpresa : Result := 'Opciones'; //AGENDA entAgenda : Result := 'Agenda'; entVacia : Result := ' '; else Result := ' '; end; end; end.