FactuGES/Frames/Entidades.pas

{
===============================================================================
  Copyright (<EFBFBD>) 2002. Rodax Software.
===============================================================================
  Los contenidos de este fichero son propiedad de Rodax Software titular del
  copyright. Este fichero s<EFBFBD>lo podr<EFBFBD> ser copiado, distribuido y utilizado,
  en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
  acuerdo con los t<EFBFBD>rminos y condiciones establecidas en el acuerdo/contrato
  bajo el que se suministra.
  -----------------------------------------------------------------------------
  Web:  www.rodax-software.com
===============================================================================
  Fecha primera versi<EFBFBD>n: 29-01-2003
  Versi<EFBFBD>n actual: 1.0.0
  Fecha versi<EFBFBD>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<72>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<62>o'),         //entPresupuestoBano
               ('presupuesto de armarios'),     //entPresupuestoArmarios
               ('presupuesto de electrodom<6F>sticos'), //entPresupuestoElectro
               ('presupuesto de varios'),       //entPresupuestoVarios
               ('contrato de cliente'),         //entContratoCliente
               ('contrato de cocina'),          //entContratoCocina
               ('contrato de ba<62>o'),            //entContratoBano
               ('contrato de armarios'),        //entContratoArmarios
               ('contrato de electrodom<6F>sticos'), //entContratoElectro
               ('contrato de varios'),          //entContratoVarios
               ('obra de cliente'),             //entObraCliente
               ('factura de cliente'),          //entFacturaCliente
               ('factura de cocina'),           //entFacturaCocina
               ('factura de ba<62>o'),             //entFacturaBano
               ('factura de armarios'),         //entFacturaArmarios
               ('factura de electrodom<6F>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<62>o'),             //entAbonoBano
               ('abono de factura de armarios'),         //entAbonoArmarios
               ('abono de factura de electrodom<6F>sticos'), //entAbonoElectro
               ('abono de factura de varios'),           //entAbonoVarios
               ('listado de cobros/facturas de cliente'), //entListadoPagosCliente
               ('listado de beneficios'), //entListadoBeneficios
               ('factura proforma'),            //entFacturaProforma
               ('albar<61>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<63>n por cliente'),    //entHistorialFacturacionClientes
               ('historial de facturaci<63>n por proveedor'),  //entHistorialFacturacionProveedores
               ('resumen de facturaci<63>n por clientes'),     //entResumenFacturacionClientes
               ('resumen de facturaci<63>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.