david
bd7a099c7d
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES/trunk@4 b68bf8ae-e977-074f-a058-3cfd71dd8f45
143 lines
4.3 KiB
ObjectPascal
143 lines
4.3 KiB
ObjectPascal
{
|
|
===============================================================================
|
|
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.
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|