{
===============================================================================
  Copyright (©) 2001. 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: 01-10-2001
  Versión actual: 1.0.1
  Fecha versión actual: 21-10-2002
===============================================================================
  Modificaciones:

    Fecha         Comentarios
    ---------------------------------------------------------------------------
    21-10-2002  Se ha añadido la entidad Tipos de cliente
===============================================================================
}

unit Tipos;

interface

uses
  Classes, Windows;

type
  TTipoIntervalo = (tiMensual, tiTrimestral, tiSemestral);

  TTipoInforme = (tiTodo, tiPorCodigos, tiPorFamilias,
                  tiPorDescripcion, tiPorCliente,
                  tiPorProveedor, tiPorFechas);

  TTipoCodigoFecha = class(TPersistent)
  public
    Codigo : Integer;
    Fecha : String;
    Nombre : String;
    function darDescripcion: String;
  end;

  TRdxEntidad = (entVacia,
                 entAlbaranCliente,
                 entAlbaranProveedor,
                 entAlbaranInstalador,                                  
                 entAlmacen,
                 entAlmacenFisico,
                 entAlmacenObra,
                 entObraCerrada,                 
                 entArticulo,
                 entArticuloAlmacen,
                 entArticuloAlmacenFisico,
                 entArticuloAlmacenObra,
                 entArticulosAlmacen,
                 entArticulosAlmacenFisico,
                 entArticulosAlmacenObra,
                 entArticulosObraHistorica,
                 entBancos,
                 entCliente,
                 entDatos,
                 entEmpresa,
                 entEstadisticas,
                 entFacturaCliente,
                 entFacturaProveedor,
                 entFamilias,
                 entTiposCliente,
                 entFormasPago,
                 entUnidadesMedida,
                 entInstalador,
                 entInformes,
                 entInfEstPreCli,
                 entInfEstFacCli,
                 entInfEstFacPro,
                 entInfEstBeneficios,
                 entListadoClientes,
                 entListadoPedidosProv,
                 entListadoFacturasProv,
                 entListadoFacturasProvPendientes,
                 entListadoFacturasProvIVA,
                 entListadoPresupuestosCli,
                 entListadoFacturasCli,
                 entListadoFacturasCliPendientes,
                 entListadoFacturasCliIVA,
                 entListadoContabilidad,
                 entMovimiento,
                 entOpciones,
                 entListadoProveedores,                 
                 entPedidoProveedor,
                 entPresupuestoCliente,
                 entPoblaciones,
                 entProveedor,
                 entProvincias,
                 entSituaciones,
                 entSucursalCliente);

  TRdxModo = (Normal,
              Aceptar,
              Anadir,
              Anular,
              Consultar,
              Devolver,
              Eliminar,
              Emitir,
              Entrada,
              EntradaPedido,
              Facturar,
              Listar,
              Localizar,
              Modificar,
              Pagar,
              Recibir,
              Salida,
              SalidaDevolucion,
              Seleccionar,
              Traslado);

implementation

{ TTipoCodigoFecha }

function TTipoCodigoFecha.darDescripcion: String;
begin
  Result := Nombre + ' ' + Fecha;
end;

end.