Miguelo_FactuGES/Frames/Entidades.pas

{
===============================================================================
  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,
  //Almacen
                 entAlmacen,
                 entAlmacenFisico,
                 entAlmacenObra,
                 entObraCerrada,

                 entArticuloAlmacen,
                 entArticuloAlmacenFisico,
                 entArticuloAlmacenObra,
                 entArticulosAlmacen,
                 entArticulosAlmacenFisico,
                 entArticulosAlmacenObra,
                 entArticulosObraHistorica,
                 entMovimiento,
                 
  //Agenda
                 entAgenda,
  //Datos
                 entDatos,
                 entArticulo,
                 entVendedor,
                 entInstalador,
                 entFamilias,
                 entProcedencias,
                 entPropiedades,
                 entFormasPago,
                 entComisiones,
                 entArticuloModelo,

  //Proveedores
                 entProveedor,
                 entFacturaProveedor,
                 entPagoProveedor,
                 entAbonoProveedor,
                 entPedidoProveedor,

  //Clientes
                 entCliente,
                 entPresupuestoCliente,
                 entPresupuestoCocina,
                 entPresupuestoBano,
                 entPresupuestoArmarios,
                 entPresupuestoElectro,
                 entPresupuestoVarios,
                 entPresupuestoReforma,
                 entContratoCliente,
                 entContratoCocina,
                 entContratoBano,
                 entContratoArmarios,
                 entContratoElectro,
                 entContratoVarios,
                 entContratoReforma,
                 entObraCliente,
                 entFacturaCliente,
                 entFacturaCocina,
                 entFacturaBano,
                 entFacturaArmarios,
                 entFacturaElectro,
                 entFacturaVarios,
                 entFacturaReforma,
                 entCobroCliente,
                 entAbonoCliente,
                 entAbonoCocina,
                 entAbonoBano,
                 entAbonoArmarios,
                 entAbonoElectro,
                 entAbonoVarios,
                 entAbonoReforma,
                 entListadoPagosCliente,
                 entListadoBeneficios,
                 entFacturaProforma,
                 entAlbaranCliente,
  //Libros
                 entEntLibro,
                 entSalLibro,

  //Opciones
                 entOpciones,
                 entDatosEmpresa,
                 entPoblaciones,
                 entProvincias,
  //Informes
                 entInformes,
                 entHistorialFacturacionClientes,
                 entHistorialFacturacionProveedores,
                 entResumenFacturacionClientes,
                 entResumenFacturacionProveedores,
                 entListadoProveedores,
                 entListadoClientes,
                 entListadoFacturacionProcedencia,
                 entListadoContratacionProcedencia,
                 entListadoProcedencias,
                 entListadoPresupuestosProcedencia,
                 entListadoLibros,
                 entInformeTrimestralVentas,
                 entInformeTrimestralCompras
   );


const


//ENTIDADES

    CaptionsEntidades : array [TRdxEntidad] of string = (
               (''),                            //entVacia
    //Empresas
               ('Empresas'),                    //entEmpresas
    //Almacen
               ('almacén/montaje'),                //entAlmacen
               ('almacén'),                     //entAlmacenFisico
               ('montaje'),                        //entAlmacenObra
               ('montaje cerrado'),                //entObraCerrada

               ('material de almacén'),         //entArticuloAlmacen
               ('material de almacén'),         //entArticuloAlmacenFisico
               ('material de montaje'),            //entArticuloAlmacenObra
               ('materiales de almacén'),       //entArticulosAlmacen
               ('materiales de almacén'),       //entArticulosAlmacenFisico
               ('materiales de montaje'),          //entArticulosAlmacenObra
               ('materiales de montaje historico'),//entArticulosObraHistorica
               ('movimiento'),                  //entMovimiento

    //Agenda
               ('Agenda'),                      //entAgenda
    //Datos
               ('datos'),                       //entDatos
               ('articulo'),                    //entArticulo
               ('vendedor'),                    //entVendedor
               ('instalador'),								  //entInstalador
               ('familias'),                    //entFamilias
               ('procedencias'),                //entProcedencias
               ('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
               ('pedidos a proveedor'),         //entPedidoProveedor

    //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
               ('presupuesto de reforma'),      //entPresupuestoReforma
               ('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
               ('contrato de reformas'), //entContratoReforma
               ('montaje 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
               ('factura de reformas'), //entFacturaReforma
               ('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
               ('abono de factura de reformas'), //entAbonoReforma
               ('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 facturación por procedencia de cliente'),  //entListadoFacturacionProcedencia
               ('listado de contratos por procedencia de cliente'),  //entListadoContratacionProcedencia
               ('listado de procedencias de cliente'),  //entListadoProcedencias
               ('listado de libro'),                        //entListadoLibros
               ('listado de presupustos por procedencia de cliente'),  //entListadoPresupuestosProcedencia               
               ('listado trimestral de ventas'),            //entInformeTrimestralVentas
               ('listado trimestral de compras')            //entInformeTrimestralCompras
    );

    dsFacturaCliente = [entFacturaCliente, entFacturaCocina, entFacturaBano,
                 entFacturaArmarios, entFacturaElectro, entFacturaVarios, entFacturaReforma];

    dsAbonoCliente = [entAbonoCliente, entAbonoCocina, entAbonoBano,
                 entAbonoArmarios, entAbonoElectro, entAbonoVarios, entAbonoReforma];


//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';

    //
    entAlmacen,
    entAlmacenFisico,
    entAlmacenObra,
    entArticuloAlmacen,
    entArticuloAlmacenFisico,
    entArticulosAlmacen,
    entArticulosAlmacenFisico,
    entArticuloAlmacenObra,
    entArticulosAlmacenObra,
    entArticulosObraHistorica,
    entMovimiento          : Result :='Almacenes';

    //DATOS
    entDatos,
    entArticulo,
    entVendedor,
    entInstalador,
    entFamilias,
    entProcedencias,    
    entPropiedades,
    entFormasPago,
    entComisiones,
    entArticuloModelo : Result := 'Datos';

    //CLIENTES
    entCliente,
    entPresupuestoCliente,
    entPresupuestoCocina,
    entPresupuestoBano,
    entPresupuestoArmarios,
    entPresupuestoElectro,
    entPresupuestoVarios,
    entPresupuestoReforma,    
    entContratoCliente,
    entContratoCocina,
    entContratoBano,
    entContratoArmarios,
    entContratoElectro,
    entContratoVarios,
    entContratoReforma,    
    entObraCliente,
    entFacturaCliente,
    entFacturaCocina,
    entFacturaBano,
    entFacturaArmarios,
    entFacturaElectro,
    entFacturaVarios,
    entFacturaReforma,    
    entCobroCliente,
    entAbonoCliente,
    entAbonoCocina,
    entAbonoBano,
    entAbonoArmarios,
    entAbonoElectro,
    entAbonoVarios,
    entAbonoReforma,    
    entFacturaProforma,
    entAlbaranCliente,    
    entListadoClientes,
    entListadoFacturacionProcedencia,
    entListadoContratacionProcedencia,
    entListadoProcedencias,
    entListadoPresupuestosProcedencia : Result := 'Clientes';

    //PROVEEDORES
    entProveedor,
    entFacturaProveedor,
    entPagoProveedor,
    entAbonoProveedor,
    entPedidoProveedor,
    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.