143 lines
4.3 KiB
ObjectPascal
143 lines
4.3 KiB
ObjectPascal
|
{
|
|||
|
|
===============================================================================
|
|||
|
|
Copyright (<EFBFBD>) 2001. 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: 01-10-2001
|
|||
|
|
Versi<EFBFBD>n actual: 1.0.1
|
|||
|
|
Fecha versi<EFBFBD>n actual: 21-10-2002
|
|||
|
|
===============================================================================
|
|||
|
|
Modificaciones:
|
|||
|
|
|
|||
|
|
Fecha Comentarios
|
|||
|
|
---------------------------------------------------------------------------
|
|||
|
|
21-10-2002 Se ha a<EFBFBD>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.
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|