Se añade la procedencia para poder sacar informes de procedencia
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoArmarios_FactuGES/trunk@14 0a814768-cfdd-9c42-8d01-223fcc10da9d
This commit is contained in:
parent
1a9ab05eb0
commit
0c2ea0d7e5
@ -204,7 +204,7 @@ uses
|
||||
//Empresas
|
||||
TablaEmpresas,
|
||||
//Datos
|
||||
TablaArticulos, TablaVendedores, TablaInstaladores, TablaFamilias, TablaPropiedades,
|
||||
TablaArticulos, TablaVendedores, TablaInstaladores, TablaFamilias, TablaProcedencias, TablaPropiedades,
|
||||
TablaFormasPago, TablaProvincias, TablaPoblaciones, TablaPropiedadesArticulo, TablaValores,
|
||||
//Proveedores
|
||||
TablaProveedores, TablaRepresentantesProveedor, TablaFacturasProveedor,
|
||||
@ -266,6 +266,7 @@ begin
|
||||
Application.CreateForm(TdmTablaDocumentos, dmTablaDocumentos);
|
||||
// Datos
|
||||
Application.CreateForm(TdmTablaFamilias, dmTablaFamilias);
|
||||
Application.CreateForm(TdmTablaProcedencias, dmTablaProcedencias);
|
||||
Application.CreateForm(TdmTablaPropiedades, dmTablaPropiedades);
|
||||
Application.CreateForm(TdmTablaValores, dmTablaValores);
|
||||
Application.CreateForm(TdmTablaPropiedadesArticulo, dmTablaPropiedadesArticulo);
|
||||
|
||||
7
BaseDatos/TablaProcedencias.dfm
Normal file
7
BaseDatos/TablaProcedencias.dfm
Normal file
@ -0,0 +1,7 @@
|
||||
object dmTablaProcedencias: TdmTablaProcedencias
|
||||
OldCreateOrder = False
|
||||
Left = 232
|
||||
Top = 212
|
||||
Height = 314
|
||||
Width = 544
|
||||
end
|
||||
257
BaseDatos/TablaProcedencias.pas
Normal file
257
BaseDatos/TablaProcedencias.pas
Normal file
@ -0,0 +1,257 @@
|
||||
{
|
||||
===============================================================================
|
||||
Copyright (©) 2007. 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: 03-04-2007
|
||||
Versión actual: 1.0.0
|
||||
Fecha versión actual: 03-04-2007
|
||||
===============================================================================
|
||||
Modificaciones:
|
||||
|
||||
Fecha Comentarios
|
||||
---------------------------------------------------------------------------
|
||||
===============================================================================
|
||||
}
|
||||
|
||||
unit TablaProcedencias;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
//Generales
|
||||
SysUtils, Classes, Controls, IBSQL, cxGridDBTableView, cxCustomData, DB,
|
||||
//Particulares
|
||||
|
||||
//Aplicacion
|
||||
Framework, StrFunc, Entidades, Constantes, BaseDatos;
|
||||
|
||||
type
|
||||
TDatosProcedencia = class(TObjeto)
|
||||
protected
|
||||
procedure ObtenerDatos; override;
|
||||
procedure AssignTo(Dest: TPersistent); override;
|
||||
public
|
||||
Codigo : Integer;
|
||||
Descripcion : String;
|
||||
constructor Create(Codigo : Integer);
|
||||
end;
|
||||
|
||||
|
||||
TdmTablaProcedencias = class(TDataModule)
|
||||
private
|
||||
procedure IniciarSQL;
|
||||
public
|
||||
sqlInsertar : TStrings;
|
||||
sqlModificar : TStrings;
|
||||
sqlConsultar : TStrings;
|
||||
sqlEliminar : TStrings;
|
||||
|
||||
constructor Create (AOwner : TComponent); override;
|
||||
destructor Destroy; override;
|
||||
procedure InicializarGridProcedencias(var vGrid: TcxGridDBTableView);
|
||||
function darProcedencias: TStrings;
|
||||
function darContadorProcedencias: Integer;
|
||||
end;
|
||||
|
||||
var
|
||||
dmTablaProcedencias : TdmTablaProcedencias;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.DFM}
|
||||
uses
|
||||
Literales;
|
||||
|
||||
constructor TdmTablaProcedencias.Create (AOwner : TComponent);
|
||||
begin
|
||||
inherited;
|
||||
sqlInsertar := TStringList.Create;
|
||||
sqlModificar := TStringList.Create;
|
||||
sqlConsultar := TStringList.Create;
|
||||
sqlEliminar := TStringList.Create;
|
||||
IniciarSQL;
|
||||
end;
|
||||
|
||||
destructor TdmTablaProcedencias.Destroy;
|
||||
begin
|
||||
sqlInsertar.Free;
|
||||
sqlModificar.Free;
|
||||
sqlConsultar.Free;
|
||||
sqlEliminar.Free;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TdmTablaProcedencias.IniciarSQL;
|
||||
begin
|
||||
with sqlInsertar do
|
||||
begin
|
||||
Add('insert into PROCEDENCIAS (CODIGO, DESCRIPCION)');
|
||||
Add('values (:CODIGO, UPPER(:DESCRIPCION))');
|
||||
end;
|
||||
|
||||
with sqlModificar do
|
||||
begin
|
||||
Add('update PROCEDENCIAS set ');
|
||||
Add('DESCRIPCION = UPPER(:DESCRIPCION) ');
|
||||
Add('where CODIGO = :CODIGO');
|
||||
end;
|
||||
|
||||
with sqlEliminar do
|
||||
begin
|
||||
Add('delete from PROCEDENCIAS ');
|
||||
Add('where CODIGO = :CODIGO');
|
||||
end;
|
||||
|
||||
with sqlConsultar do
|
||||
begin
|
||||
Add('select CODIGO, DESCRIPCION ');
|
||||
Add('from PROCEDENCIAS ');
|
||||
Add('order by DESCRIPCION');
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TdmTablaProcedencias.InicializarGridProcedencias(var vGrid: TcxGridDBTableView);
|
||||
var
|
||||
Columna : TcxGridDBColumn;
|
||||
begin
|
||||
with vGrid do begin
|
||||
ClearItems;
|
||||
OptionsView.Footer := True;
|
||||
{Columna CODIGO}
|
||||
Columna := CreateColumn;
|
||||
Columna.DataBinding.FieldName := 'CODIGO';
|
||||
Columna.Caption := 'Código procedencia';
|
||||
Columna.Visible := False;
|
||||
|
||||
{Columna DESCRIPCION}
|
||||
Columna := CreateColumn;
|
||||
Columna.DataBinding.FieldName := 'DESCRIPCION';
|
||||
Columna.Caption := 'Descripcines de procedencia';
|
||||
Columna.SortOrder := soAscending;
|
||||
with TcxGridDBTableSummaryItem(DataController.Summary.FooterSummaryItems.Add) do
|
||||
try
|
||||
try
|
||||
BeginUpdate;
|
||||
Column := Columna;
|
||||
FieldName := Columna.DataBinding.FieldName;
|
||||
Format := 'Total: 0 descripciones de procedencia';
|
||||
Kind := skCount;
|
||||
finally
|
||||
EndUpdate;
|
||||
end;
|
||||
except
|
||||
DataController.Summary.FooterSummaryItems.Delete(DataController.Summary.FooterSummaryItems.Count-1);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TdmTablaProcedencias.darProcedencias: TStrings;
|
||||
var
|
||||
oSQL : TIBSQL;
|
||||
Lista : TStringList;
|
||||
begin
|
||||
oSQL := TIBSQL.Create(Self);
|
||||
Lista := TStringList.Create;
|
||||
|
||||
with oSQL do
|
||||
begin
|
||||
Database := dmBaseDatos.BD;
|
||||
Transaction := dmBaseDatos.Transaccion;
|
||||
SQL.Add('select DESCRIPCION from PROCEDENCIAS order by DESCRIPCION');
|
||||
|
||||
try
|
||||
Prepare;
|
||||
ExecQuery;
|
||||
while not EOF do begin
|
||||
Lista.Append(Fields[0].AsString);
|
||||
Next;
|
||||
end;
|
||||
result := Lista;
|
||||
finally
|
||||
Close;
|
||||
Transaction := NIL;
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TdmTablaProcedencias.darContadorProcedencias: Integer;
|
||||
var
|
||||
oSQL : TIBSQL;
|
||||
begin
|
||||
oSQL := TIBSQL.Create(Self);
|
||||
|
||||
with oSQL do
|
||||
begin
|
||||
Database := dmBaseDatos.BD;
|
||||
Transaction := dmBaseDatos.Transaccion;
|
||||
SQL.Add('select MAX(CODIGO) from PROCEDENCIAS');
|
||||
|
||||
try
|
||||
Prepare;
|
||||
ExecQuery;
|
||||
if not EOF then
|
||||
Result := (Fields[0].AsInteger + 1)
|
||||
else
|
||||
Result := 0;
|
||||
finally
|
||||
Close;
|
||||
Transaction := NIL;
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ TDatosProcedencia }
|
||||
|
||||
procedure TDatosProcedencia.AssignTo(Dest: TPersistent);
|
||||
begin
|
||||
inherited;
|
||||
//
|
||||
end;
|
||||
|
||||
constructor TDatosProcedencia.Create(Codigo: Integer);
|
||||
begin
|
||||
inherited Create;
|
||||
Self.Codigo := Codigo;
|
||||
ObtenerDatos;
|
||||
end;
|
||||
|
||||
procedure TDatosProcedencia.ObtenerDatos;
|
||||
var
|
||||
oSQL : TIBSQL;
|
||||
begin
|
||||
oSQL := TIBSQL.Create(nil);
|
||||
with oSQL do
|
||||
begin
|
||||
Database := dmBaseDatos.BD;
|
||||
Transaction := dmBaseDatos.Transaccion;
|
||||
SQL.Add('select * from PROCEDENCIAS ');
|
||||
SQL.Add('where CODIGO = :CODIGO');
|
||||
|
||||
try
|
||||
ParamByName('CODIGO').AsInteger := Codigo;
|
||||
Prepare;
|
||||
ExecQuery;
|
||||
|
||||
if (RecordCount > 0) then
|
||||
Descripcion := FieldByName('DESCRIPCION').AsString
|
||||
else begin
|
||||
raise Exception.Create(msgDatosNoExisteProcedencia);
|
||||
end;
|
||||
finally
|
||||
Close;
|
||||
Transaction := NIL;
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end.
|
||||
@ -261,8 +261,6 @@ object frCliente: TfrCliente
|
||||
object Calle: TcxDBTextEdit
|
||||
Left = 139
|
||||
Top = 22
|
||||
Width = 300
|
||||
Height = 21
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'CALLE'
|
||||
DataBinding.DataSource = dsDireccion
|
||||
@ -270,12 +268,12 @@ object frCliente: TfrCliente
|
||||
Properties.ReadOnly = False
|
||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
||||
TabOrder = 0
|
||||
Height = 21
|
||||
Width = 300
|
||||
end
|
||||
object Provincia: TcxDBButtonEdit
|
||||
Left = 139
|
||||
Top = 48
|
||||
Width = 300
|
||||
Height = 21
|
||||
DataBinding.DataField = 'PROVINCIA'
|
||||
DataBinding.DataSource = dsDireccion
|
||||
ParentFont = False
|
||||
@ -332,12 +330,11 @@ object frCliente: TfrCliente
|
||||
Properties.OnButtonClick = ProvinciaPropertiesButtonClick
|
||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
||||
TabOrder = 3
|
||||
Width = 300
|
||||
end
|
||||
object Poblacion: TcxDBButtonEdit
|
||||
Left = 139
|
||||
Top = 75
|
||||
Width = 300
|
||||
Height = 21
|
||||
DataBinding.DataField = 'POBLACION'
|
||||
DataBinding.DataSource = dsDireccion
|
||||
ParentFont = False
|
||||
@ -393,12 +390,11 @@ object frCliente: TfrCliente
|
||||
Properties.OnButtonClick = PoblacionPropertiesButtonClick
|
||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
||||
TabOrder = 5
|
||||
Width = 300
|
||||
end
|
||||
object Telefono1: TcxDBTextEdit
|
||||
Left = 139
|
||||
Top = 102
|
||||
Width = 110
|
||||
Height = 21
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'TELEFONO1'
|
||||
DataBinding.DataSource = dsDireccion
|
||||
@ -406,12 +402,12 @@ object frCliente: TfrCliente
|
||||
Properties.ReadOnly = False
|
||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
||||
TabOrder = 6
|
||||
Height = 21
|
||||
Width = 110
|
||||
end
|
||||
object Movil1: TcxDBTextEdit
|
||||
Left = 139
|
||||
Top = 128
|
||||
Width = 110
|
||||
Height = 21
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'MOVIL1'
|
||||
DataBinding.DataSource = dsDireccion
|
||||
@ -419,12 +415,12 @@ object frCliente: TfrCliente
|
||||
Properties.ReadOnly = False
|
||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
||||
TabOrder = 9
|
||||
Height = 21
|
||||
Width = 110
|
||||
end
|
||||
object PersonaContacto: TcxDBTextEdit
|
||||
Left = 139
|
||||
Top = 155
|
||||
Width = 300
|
||||
Height = 21
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'PERSONACONTACTO'
|
||||
DataBinding.DataSource = dsDireccion
|
||||
@ -432,12 +428,12 @@ object frCliente: TfrCliente
|
||||
Properties.ReadOnly = False
|
||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
||||
TabOrder = 11
|
||||
Height = 21
|
||||
Width = 300
|
||||
end
|
||||
object Telefono2: TcxDBTextEdit
|
||||
Left = 329
|
||||
Top = 102
|
||||
Width = 110
|
||||
Height = 21
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'TELEFONO2'
|
||||
DataBinding.DataSource = dsDireccion
|
||||
@ -445,12 +441,12 @@ object frCliente: TfrCliente
|
||||
Properties.ReadOnly = False
|
||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
||||
TabOrder = 7
|
||||
Height = 21
|
||||
Width = 110
|
||||
end
|
||||
object Movil2: TcxDBTextEdit
|
||||
Left = 329
|
||||
Top = 128
|
||||
Width = 110
|
||||
Height = 21
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'MOVIL2'
|
||||
DataBinding.DataSource = dsDireccion
|
||||
@ -458,12 +454,12 @@ object frCliente: TfrCliente
|
||||
Properties.ReadOnly = False
|
||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
||||
TabOrder = 10
|
||||
Height = 21
|
||||
Width = 110
|
||||
end
|
||||
object Fax: TcxDBTextEdit
|
||||
Left = 491
|
||||
Top = 102
|
||||
Width = 133
|
||||
Height = 21
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'FAX'
|
||||
DataBinding.DataSource = dsDireccion
|
||||
@ -471,12 +467,12 @@ object frCliente: TfrCliente
|
||||
Properties.ReadOnly = False
|
||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
||||
TabOrder = 8
|
||||
Height = 21
|
||||
Width = 133
|
||||
end
|
||||
object CodigoPostal: TcxDBTextEdit
|
||||
Left = 491
|
||||
Top = 49
|
||||
Width = 133
|
||||
Height = 21
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'CODIGOPOSTAL'
|
||||
DataBinding.DataSource = dsDireccion
|
||||
@ -484,12 +480,12 @@ object frCliente: TfrCliente
|
||||
Properties.ReadOnly = False
|
||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
||||
TabOrder = 4
|
||||
Height = 21
|
||||
Width = 133
|
||||
end
|
||||
object Numero: TcxDBTextEdit
|
||||
Left = 491
|
||||
Top = 22
|
||||
Width = 40
|
||||
Height = 21
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'NUMERO'
|
||||
DataBinding.DataSource = dsDireccion
|
||||
@ -497,12 +493,12 @@ object frCliente: TfrCliente
|
||||
Properties.ReadOnly = False
|
||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
||||
TabOrder = 1
|
||||
Height = 21
|
||||
Width = 40
|
||||
end
|
||||
object Piso: TcxDBTextEdit
|
||||
Left = 584
|
||||
Top = 22
|
||||
Width = 40
|
||||
Height = 21
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'PISO'
|
||||
DataBinding.DataSource = dsDireccion
|
||||
@ -510,12 +506,12 @@ object frCliente: TfrCliente
|
||||
Properties.ReadOnly = False
|
||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
||||
TabOrder = 2
|
||||
Height = 21
|
||||
Width = 40
|
||||
end
|
||||
object Correo: TcxDBTextEdit
|
||||
Left = 139
|
||||
Top = 181
|
||||
Width = 300
|
||||
Height = 21
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'CORREO'
|
||||
DataBinding.DataSource = dsDireccion
|
||||
@ -523,6 +519,8 @@ object frCliente: TfrCliente
|
||||
Properties.ReadOnly = False
|
||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
||||
TabOrder = 12
|
||||
Height = 21
|
||||
Width = 300
|
||||
end
|
||||
end
|
||||
object pagSucursales: TTabSheet
|
||||
@ -872,13 +870,38 @@ object frCliente: TfrCliente
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object cbxProcedencia: TcxDBLookupComboBox
|
||||
Left = 151
|
||||
Top = 88
|
||||
DataBinding.DataField = 'PROCEDENCIA'
|
||||
DataBinding.DataSource = dsCliente
|
||||
ParentFont = False
|
||||
Properties.DropDownRows = 10
|
||||
Properties.GridMode = True
|
||||
Properties.ImmediatePost = True
|
||||
Properties.KeyFieldNames = 'CODIGO'
|
||||
Properties.ListColumns = <
|
||||
item
|
||||
Fixed = True
|
||||
MinWidth = 100
|
||||
Width = 265
|
||||
FieldName = 'DESCRIPCION'
|
||||
end>
|
||||
Properties.ListOptions.ColumnSorting = False
|
||||
Properties.ListOptions.GridLines = glNone
|
||||
Properties.ListOptions.ShowHeader = False
|
||||
Properties.ListSource = dsProcedencias
|
||||
Style.Color = 15726583
|
||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
|
||||
TabOrder = 5
|
||||
Width = 300
|
||||
end
|
||||
object Codigo: TcxDBButtonEdit
|
||||
Left = 151
|
||||
Top = 35
|
||||
Width = 110
|
||||
Height = 21
|
||||
DataBinding.DataField = 'CODIGO'
|
||||
DataBinding.DataSource = dsCliente
|
||||
ParentFont = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
@ -931,38 +954,27 @@ object frCliente: TfrCliente
|
||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
|
||||
TabOrder = 0
|
||||
OnExit = CodigoExit
|
||||
Width = 110
|
||||
end
|
||||
object Nombre: TcxDBTextEdit
|
||||
Left = 151
|
||||
Top = 62
|
||||
Width = 485
|
||||
Height = 21
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'NOMBRE'
|
||||
DataBinding.DataSource = dsCliente
|
||||
ParentFont = False
|
||||
Properties.ReadOnly = False
|
||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
|
||||
TabOrder = 2
|
||||
end
|
||||
object Procedencia: TcxDBTextEdit
|
||||
Left = 151
|
||||
Top = 88
|
||||
Width = 300
|
||||
Height = 21
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'PROCEDENCIA'
|
||||
DataBinding.DataSource = dsCliente
|
||||
Properties.ReadOnly = False
|
||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
|
||||
TabOrder = 3
|
||||
Width = 485
|
||||
end
|
||||
object Vendedor: TcxDBButtonEdit
|
||||
Left = 520
|
||||
Top = 88
|
||||
Width = 115
|
||||
Height = 21
|
||||
DataBinding.DataField = 'VENDEDOR'
|
||||
DataBinding.DataSource = dsCliente
|
||||
ParentFont = False
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
@ -1014,31 +1026,34 @@ object frCliente: TfrCliente
|
||||
Properties.ReadOnly = False
|
||||
Properties.OnButtonClick = VendedorPropertiesButtonClick
|
||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
|
||||
TabOrder = 4
|
||||
TabOrder = 3
|
||||
Width = 115
|
||||
end
|
||||
object Observaciones: TcxDBMemo
|
||||
Left = 151
|
||||
Top = 115
|
||||
Width = 485
|
||||
Height = 71
|
||||
DataBinding.DataField = 'OBSERVACIONES'
|
||||
DataBinding.DataSource = dsCliente
|
||||
ParentFont = False
|
||||
Properties.ReadOnly = False
|
||||
Properties.ScrollBars = ssVertical
|
||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
|
||||
TabOrder = 5
|
||||
TabOrder = 4
|
||||
Height = 71
|
||||
Width = 485
|
||||
end
|
||||
object NIF: TcxDBTextEdit
|
||||
Left = 342
|
||||
Top = 35
|
||||
Width = 109
|
||||
Height = 21
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'NIFCIF'
|
||||
DataBinding.DataSource = dsCliente
|
||||
ParentFont = False
|
||||
Properties.ReadOnly = False
|
||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
|
||||
TabOrder = 1
|
||||
Height = 21
|
||||
Width = 109
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -1275,4 +1290,8 @@ object frCliente: TfrCliente
|
||||
Left = 16
|
||||
Top = 96
|
||||
end
|
||||
object dsProcedencias: TDataSource
|
||||
Left = 16
|
||||
Top = 168
|
||||
end
|
||||
end
|
||||
|
||||
@ -35,7 +35,8 @@ uses
|
||||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid,
|
||||
cxGridCardView, cxGridDBCardView, RxMemDS, Configuracion, cxMemo,
|
||||
cxDBEdit, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit, AdvPanel,
|
||||
cxDataStorage;
|
||||
cxDataStorage, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit,
|
||||
cxDBLookupComboBox, IBCustomDataSet;
|
||||
|
||||
type
|
||||
TfrCliente = class(TRdxFrameClientes)
|
||||
@ -70,7 +71,6 @@ type
|
||||
eObservaciones: TLabel;
|
||||
Codigo: TcxDBButtonEdit;
|
||||
Nombre: TcxDBTextEdit;
|
||||
Procedencia: TcxDBTextEdit;
|
||||
Vendedor: TcxDBButtonEdit;
|
||||
Observaciones: TcxDBMemo;
|
||||
NIF: TcxDBTextEdit;
|
||||
@ -100,6 +100,8 @@ type
|
||||
Piso: TcxDBTextEdit;
|
||||
Label1: TLabel;
|
||||
Correo: TcxDBTextEdit;
|
||||
cbxProcedencia: TcxDBLookupComboBox;
|
||||
dsProcedencias: TDataSource;
|
||||
procedure bSalirClick(Sender: TObject);
|
||||
procedure bAceptarClick(Sender: TObject);
|
||||
procedure CodigoExit(Sender: TObject);
|
||||
@ -121,6 +123,7 @@ type
|
||||
procedure PoblacionPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
private
|
||||
FTablaProcedencias : TIBDataSet;
|
||||
FCodigoProvincia : Variant;
|
||||
FCodigoPoblacion : Variant;
|
||||
FCodigoProvinciaDireccion : Variant;
|
||||
@ -187,10 +190,10 @@ implementation
|
||||
{$R *.DFM}
|
||||
|
||||
uses
|
||||
IBCustomDataSet, RdxFrameVendedores, TablaClientes, Mensajes, Provincias, Entidades,
|
||||
RdxFrameVendedores, TablaClientes, Mensajes, Provincias, Entidades,
|
||||
Poblaciones, Clientes, Variants, Vendedores, BaseDatos, RdxFrameProvincias,
|
||||
RdxFramePoblaciones, TablaProvincias, StrFunc, TablaPoblaciones, Excepciones,
|
||||
IBErrorCodes, TablaSucursalesCliente, TablaVendedores, Literales;
|
||||
IBErrorCodes, TablaSucursalesCliente, TablaVendedores, Literales, TablaProcedencias;
|
||||
|
||||
constructor TfrCliente.Create (AOwner : TComponent);
|
||||
begin
|
||||
@ -229,6 +232,17 @@ begin
|
||||
RefreshSQL.Assign(dmTablaClientes.sqlConsultar);
|
||||
end;
|
||||
|
||||
FTablaProcedencias := TIBDataSet.Create(Self);
|
||||
dsProcedencias.DataSet := FTablaProcedencias;
|
||||
with FTablaProcedencias do
|
||||
begin
|
||||
Database := BaseDatos;
|
||||
Transaction := Transaccion;
|
||||
SelectSQL.Assign(dmTablaProcedencias.sqlConsultar);
|
||||
prepare;
|
||||
open;
|
||||
end;
|
||||
|
||||
with TablaSucursales do
|
||||
begin
|
||||
Database := BaseDatos;
|
||||
@ -758,6 +772,10 @@ begin
|
||||
TablaSucursales.UnPrepare;
|
||||
TablaSucursales.Free;
|
||||
|
||||
FTablaProcedencias.Close;
|
||||
FTablaProcedencias.UnPrepare;
|
||||
FTablaProcedencias.Free;
|
||||
|
||||
TablaClientes.Close;
|
||||
TablaClientes.UnPrepare;
|
||||
TablaClientes.Free;
|
||||
|
||||
192
Clientes/ListadoContratacionProcedencia.dfm
Normal file
192
Clientes/ListadoContratacionProcedencia.dfm
Normal file
@ -0,0 +1,192 @@
|
||||
object frListadoContratacionProcedencia: TfrListadoContratacionProcedencia
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 443
|
||||
Height = 270
|
||||
Align = alClient
|
||||
Color = 16383743
|
||||
ParentColor = False
|
||||
TabOrder = 0
|
||||
object pnlTitulo: TRdxPanelTituloOperacion
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 443
|
||||
Height = 22
|
||||
Caption = ' '
|
||||
Color = 9685681
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = 3692855
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
end
|
||||
object pnlVistaPrevia: TPanel
|
||||
Left = 0
|
||||
Top = 129
|
||||
Width = 443
|
||||
Height = 141
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
Color = 16383743
|
||||
TabOrder = 0
|
||||
end
|
||||
object pnlCuerpo: TPanel
|
||||
Left = 0
|
||||
Top = 22
|
||||
Width = 443
|
||||
Height = 107
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
BevelOuter = bvNone
|
||||
BorderWidth = 10
|
||||
ParentColor = True
|
||||
TabOrder = 1
|
||||
object pnlProveedor: TAdvPanel
|
||||
Left = 10
|
||||
Top = 10
|
||||
Width = 423
|
||||
Height = 87
|
||||
Align = alTop
|
||||
BevelOuter = bvNone
|
||||
Color = 16383743
|
||||
TabOrder = 0
|
||||
UseDockManager = True
|
||||
Version = '1.5.0.0'
|
||||
AnchorHint = False
|
||||
AutoSize.Enabled = False
|
||||
AutoSize.Height = True
|
||||
AutoSize.Width = True
|
||||
AutoHideChildren = True
|
||||
BackgroundPosition = bpTopLeft
|
||||
BorderColor = clBlack
|
||||
BorderShadow = False
|
||||
Buffered = True
|
||||
CanMove = False
|
||||
CanSize = False
|
||||
Caption.Background.Data = {
|
||||
72010000424D7201000000000000760000002800000014000000150000000100
|
||||
040000000000FC000000E30E0000E30E00001000000010000000B5BDC600F9FE
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00111111111111
|
||||
1111111100001111111111111111111100001111111111111111111100001111
|
||||
1111111111110000000011111111111111111111000011111111111111111111
|
||||
0000111111111111111111110000111111111111111111110000111111111111
|
||||
1111111100001111111111111111111100001111111111111111111100001111
|
||||
1111111111111111000011111111111111111111000011111111111111111111
|
||||
0000111111111111111111110000111111111111111111110000111111111111
|
||||
1111111100001111111111111111111100001111111111111111111100001111
|
||||
11111111111111110000111111111111111111110000}
|
||||
Caption.ButtonPosition = cbpLeft
|
||||
Caption.Color = clBtnFace
|
||||
Caption.ColorTo = clNone
|
||||
Caption.CloseColor = clBtnFace
|
||||
Caption.CloseButton = False
|
||||
Caption.CloseButtonColor = clBlack
|
||||
Caption.Flat = True
|
||||
Caption.Font.Charset = DEFAULT_CHARSET
|
||||
Caption.Font.Color = 3692855
|
||||
Caption.Font.Height = -11
|
||||
Caption.Font.Name = 'Tahoma'
|
||||
Caption.Font.Style = [fsBold]
|
||||
Caption.Height = 23
|
||||
Caption.Indent = -4
|
||||
Caption.MinMaxButton = True
|
||||
Caption.MinMaxButtonColor = 3692855
|
||||
Caption.ShadeLight = 200
|
||||
Caption.ShadeGrain = 0
|
||||
Caption.ShadeType = stBitmapRStretch
|
||||
Caption.Shape = csRectangle
|
||||
Caption.Text = 'Par'#225'metros para el informe'
|
||||
Caption.TopIndent = 0
|
||||
Caption.Visible = True
|
||||
Collaps = False
|
||||
CollapsColor = clWhite
|
||||
CollapsDelay = 20
|
||||
CollapsSteps = 0
|
||||
ColorTo = clNone
|
||||
FixedTop = False
|
||||
FixedLeft = False
|
||||
FixedHeight = False
|
||||
FixedWidth = False
|
||||
FreeOnClose = False
|
||||
Hover = False
|
||||
HoverColor = clNone
|
||||
HoverFontColor = clNone
|
||||
Indent = 0
|
||||
LineSpacing = 0
|
||||
Position.Save = False
|
||||
Position.Location = clRegistry
|
||||
ShadowColor = clGray
|
||||
ShadowOffset = 2
|
||||
ShowMoveCursor = False
|
||||
TextVAlign = tvaTop
|
||||
TopIndent = 0
|
||||
URLColor = clBlue
|
||||
FullHeight = 38
|
||||
object Label1: TLabel
|
||||
Left = 83
|
||||
Top = 89
|
||||
Width = 63
|
||||
Height = 13
|
||||
Alignment = taRightJustify
|
||||
Caption = 'Ordenar por:'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
end
|
||||
object eFechaFin: TLabel
|
||||
Left = 278
|
||||
Top = 34
|
||||
Width = 17
|
||||
Height = 13
|
||||
Alignment = taRightJustify
|
||||
Caption = 'y el'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 40
|
||||
Top = 34
|
||||
Width = 103
|
||||
Height = 13
|
||||
Alignment = taRightJustify
|
||||
Caption = 'Facturas entre el d'#237'a:'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object FechaIni: TcxDateEdit
|
||||
Left = 148
|
||||
Top = 30
|
||||
ParentFont = False
|
||||
Properties.ImmediatePost = True
|
||||
Properties.OnValidate = FechaIniPropertiesValidate
|
||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
|
||||
TabOrder = 0
|
||||
Width = 121
|
||||
end
|
||||
object FechaFin: TcxDateEdit
|
||||
Left = 302
|
||||
Top = 30
|
||||
ParentFont = False
|
||||
Properties.ImmediatePost = True
|
||||
Properties.OnValidate = FechaFinPropertiesValidate
|
||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
|
||||
TabOrder = 1
|
||||
Width = 121
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
172
Clientes/ListadoContratacionProcedencia.pas
Normal file
172
Clientes/ListadoContratacionProcedencia.pas
Normal file
@ -0,0 +1,172 @@
|
||||
{
|
||||
===============================================================================
|
||||
Copyright (©) 2007. 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: 02-04-2007
|
||||
Versión actual: 1.0.0
|
||||
Fecha versión actual: 02-04-2007
|
||||
===============================================================================
|
||||
Modificaciones:
|
||||
|
||||
Fecha Comentarios
|
||||
---------------------------------------------------------------------------
|
||||
===============================================================================
|
||||
}
|
||||
|
||||
unit ListadoContratacionProcedencia;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, RdxFrame, RdxBotones, RdxPaneles, RdxBarras, cxControls,
|
||||
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls,
|
||||
AdvPanel, ExtCtrls, RdxTitulos, cxDropDownEdit, VistaPrevia,
|
||||
InformeListadoContratacionProcedencia, TablaProveedores, Entidades, cxCalendar;
|
||||
|
||||
type
|
||||
TfrListadoContratacionProcedencia = class(TRdxFrame)
|
||||
pnlTitulo: TRdxPanelTituloOperacion;
|
||||
pnlVistaPrevia: TPanel;
|
||||
pnlCuerpo: TPanel;
|
||||
pnlProveedor: TAdvPanel;
|
||||
Label1: TLabel;
|
||||
FechaIni: TcxDateEdit;
|
||||
eFechaFin: TLabel;
|
||||
FechaFin: TcxDateEdit;
|
||||
Label2: TLabel;
|
||||
procedure FechaIniPropertiesValidate(Sender: TObject;
|
||||
var DisplayValue: Variant; var ErrorText: TCaption;
|
||||
var Error: Boolean);
|
||||
procedure FechaFinPropertiesValidate(Sender: TObject;
|
||||
var DisplayValue: Variant; var ErrorText: TCaption;
|
||||
var Error: Boolean);
|
||||
private
|
||||
FVistaPrevia : TfrVistaPrevia;
|
||||
FInforme : TdmInformeListadoContratacionProcedencia;
|
||||
protected
|
||||
procedure VerModal; override;
|
||||
procedure FreeContenido; override;
|
||||
function CloseFrame : Boolean; override;
|
||||
function CambiarEntidad(EntidadAnterior, Entidad : TRdxEntidad): Boolean; override;
|
||||
public
|
||||
constructor Create(AOwner : TComponent); override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
var
|
||||
frListadoContratacionProcedencia: TfrListadoContratacionProcedencia;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfrListadoContratacionProcedencia }
|
||||
|
||||
uses
|
||||
Literales, Mensajes, StrFunc, DateUtils, InformeBase, TablaTrimestres,
|
||||
Proveedores, RdxFrameProveedores, Configuracion, cxDateUtils;
|
||||
|
||||
constructor TfrListadoContratacionProcedencia.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited Create(AOwner);
|
||||
Entidad := entListadoContratacionProcedencia;
|
||||
|
||||
FVistaPrevia := TfrVistaPrevia.Create(Self);
|
||||
FVistaPrevia.Parent := pnlVistaPrevia;
|
||||
FInforme := TdmInformeListadoContratacionProcedencia.Create(Self);
|
||||
FInforme.Preview := FVistaPrevia.Preview;
|
||||
|
||||
FechaIni.Date := dmTablaTrimestres.darFechaIniTrimestre(dmTablaTrimestres.darTrimestreActual);
|
||||
FechaFin.Date := dmTablaTrimestres.darFechaFinTrimestre(dmTablaTrimestres.darTrimestreActual);
|
||||
FInforme.FechaIni := FechaIni.Date;
|
||||
FInforme.FechaFin := FechaFin.Date;
|
||||
FInforme.Previsualizar;
|
||||
end;
|
||||
|
||||
destructor TfrListadoContratacionProcedencia.Destroy;
|
||||
begin
|
||||
FInforme.Free;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TfrListadoContratacionProcedencia.CloseFrame: Boolean;
|
||||
begin
|
||||
FInforme.Preview := NIL;
|
||||
(FVistaPrevia as TRdxFrame).CloseFrame;
|
||||
Result := inherited CloseFrame;
|
||||
end;
|
||||
|
||||
procedure TfrListadoContratacionProcedencia.FreeContenido;
|
||||
begin
|
||||
// if (ContenidoModal is TRdxFrameProveedores) then
|
||||
// FCodigoProveedorAux := (ContenidoModal as TRdxFrameProveedores).CodigoProveedor;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfrListadoContratacionProcedencia.VerModal;
|
||||
begin
|
||||
// if (ContenidoModal is TRdxFrameProveedores) then
|
||||
// (ContenidoModal as TRdxFrameProveedores).CodigoProveedor := FCodigoProveedorAux;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TfrListadoContratacionProcedencia.CambiarEntidad(EntidadAnterior, Entidad: TRdxEntidad): Boolean;
|
||||
begin
|
||||
inherited CambiarEntidad(EntidadAnterior, Entidad);
|
||||
ConfigurarFrame(Self, Self.Entidad);
|
||||
end;
|
||||
|
||||
procedure TfrListadoContratacionProcedencia.FechaIniPropertiesValidate(
|
||||
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
|
||||
var Error: Boolean);
|
||||
var
|
||||
ADate : TDateTime;
|
||||
begin
|
||||
try
|
||||
if DisplayValue > FechaFin.Date then
|
||||
begin
|
||||
ErrorText := msgFechasMal;
|
||||
Error := True;
|
||||
Exit;
|
||||
end;
|
||||
TextToDateEx(DisplayValue, ADate);
|
||||
FInforme.FechaIni := ADate;
|
||||
FInforme.Previsualizar;
|
||||
except
|
||||
Error := True;
|
||||
ErrorText := msgFechaNoValida;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrListadoContratacionProcedencia.FechaFinPropertiesValidate(
|
||||
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
|
||||
var Error: Boolean);
|
||||
var
|
||||
ADate : TDateTime;
|
||||
begin
|
||||
try
|
||||
if DisplayValue < FechaIni.Date then
|
||||
begin
|
||||
ErrorText := msgFechasMal;
|
||||
Error := True;
|
||||
Exit;
|
||||
end;
|
||||
TextToDateEx(DisplayValue, ADate);
|
||||
FInforme.FechaFin := ADate;
|
||||
FInforme.Previsualizar
|
||||
except
|
||||
Error := True;
|
||||
ErrorText := msgFechaNoValida;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
192
Clientes/ListadoFacturacionProcedencia.dfm
Normal file
192
Clientes/ListadoFacturacionProcedencia.dfm
Normal file
@ -0,0 +1,192 @@
|
||||
object frListadoFacturacionProcedencia: TfrListadoFacturacionProcedencia
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 443
|
||||
Height = 270
|
||||
Align = alClient
|
||||
Color = 16383743
|
||||
ParentColor = False
|
||||
TabOrder = 0
|
||||
object pnlTitulo: TRdxPanelTituloOperacion
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 443
|
||||
Height = 22
|
||||
Caption = ' '
|
||||
Color = 9685681
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = 3692855
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
end
|
||||
object pnlVistaPrevia: TPanel
|
||||
Left = 0
|
||||
Top = 129
|
||||
Width = 443
|
||||
Height = 141
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
Color = 16383743
|
||||
TabOrder = 0
|
||||
end
|
||||
object pnlCuerpo: TPanel
|
||||
Left = 0
|
||||
Top = 22
|
||||
Width = 443
|
||||
Height = 107
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
BevelOuter = bvNone
|
||||
BorderWidth = 10
|
||||
ParentColor = True
|
||||
TabOrder = 1
|
||||
object pnlProveedor: TAdvPanel
|
||||
Left = 10
|
||||
Top = 10
|
||||
Width = 423
|
||||
Height = 87
|
||||
Align = alTop
|
||||
BevelOuter = bvNone
|
||||
Color = 16383743
|
||||
TabOrder = 0
|
||||
UseDockManager = True
|
||||
Version = '1.5.0.0'
|
||||
AnchorHint = False
|
||||
AutoSize.Enabled = False
|
||||
AutoSize.Height = True
|
||||
AutoSize.Width = True
|
||||
AutoHideChildren = True
|
||||
BackgroundPosition = bpTopLeft
|
||||
BorderColor = clBlack
|
||||
BorderShadow = False
|
||||
Buffered = True
|
||||
CanMove = False
|
||||
CanSize = False
|
||||
Caption.Background.Data = {
|
||||
72010000424D7201000000000000760000002800000014000000150000000100
|
||||
040000000000FC000000E30E0000E30E00001000000010000000B5BDC600F9FE
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00111111111111
|
||||
1111111100001111111111111111111100001111111111111111111100001111
|
||||
1111111111110000000011111111111111111111000011111111111111111111
|
||||
0000111111111111111111110000111111111111111111110000111111111111
|
||||
1111111100001111111111111111111100001111111111111111111100001111
|
||||
1111111111111111000011111111111111111111000011111111111111111111
|
||||
0000111111111111111111110000111111111111111111110000111111111111
|
||||
1111111100001111111111111111111100001111111111111111111100001111
|
||||
11111111111111110000111111111111111111110000}
|
||||
Caption.ButtonPosition = cbpLeft
|
||||
Caption.Color = clBtnFace
|
||||
Caption.ColorTo = clNone
|
||||
Caption.CloseColor = clBtnFace
|
||||
Caption.CloseButton = False
|
||||
Caption.CloseButtonColor = clBlack
|
||||
Caption.Flat = True
|
||||
Caption.Font.Charset = DEFAULT_CHARSET
|
||||
Caption.Font.Color = 3692855
|
||||
Caption.Font.Height = -11
|
||||
Caption.Font.Name = 'Tahoma'
|
||||
Caption.Font.Style = [fsBold]
|
||||
Caption.Height = 23
|
||||
Caption.Indent = -4
|
||||
Caption.MinMaxButton = True
|
||||
Caption.MinMaxButtonColor = 3692855
|
||||
Caption.ShadeLight = 200
|
||||
Caption.ShadeGrain = 0
|
||||
Caption.ShadeType = stBitmapRStretch
|
||||
Caption.Shape = csRectangle
|
||||
Caption.Text = 'Par'#225'metros para el informe'
|
||||
Caption.TopIndent = 0
|
||||
Caption.Visible = True
|
||||
Collaps = False
|
||||
CollapsColor = clWhite
|
||||
CollapsDelay = 20
|
||||
CollapsSteps = 0
|
||||
ColorTo = clNone
|
||||
FixedTop = False
|
||||
FixedLeft = False
|
||||
FixedHeight = False
|
||||
FixedWidth = False
|
||||
FreeOnClose = False
|
||||
Hover = False
|
||||
HoverColor = clNone
|
||||
HoverFontColor = clNone
|
||||
Indent = 0
|
||||
LineSpacing = 0
|
||||
Position.Save = False
|
||||
Position.Location = clRegistry
|
||||
ShadowColor = clGray
|
||||
ShadowOffset = 2
|
||||
ShowMoveCursor = False
|
||||
TextVAlign = tvaTop
|
||||
TopIndent = 0
|
||||
URLColor = clBlue
|
||||
FullHeight = 38
|
||||
object Label1: TLabel
|
||||
Left = 83
|
||||
Top = 89
|
||||
Width = 63
|
||||
Height = 13
|
||||
Alignment = taRightJustify
|
||||
Caption = 'Ordenar por:'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
end
|
||||
object eFechaFin: TLabel
|
||||
Left = 278
|
||||
Top = 34
|
||||
Width = 17
|
||||
Height = 13
|
||||
Alignment = taRightJustify
|
||||
Caption = 'y el'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 40
|
||||
Top = 34
|
||||
Width = 103
|
||||
Height = 13
|
||||
Alignment = taRightJustify
|
||||
Caption = 'Facturas entre el d'#237'a:'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object FechaIni: TcxDateEdit
|
||||
Left = 148
|
||||
Top = 30
|
||||
ParentFont = False
|
||||
Properties.ImmediatePost = True
|
||||
Properties.OnValidate = FechaIniPropertiesValidate
|
||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
|
||||
TabOrder = 0
|
||||
Width = 121
|
||||
end
|
||||
object FechaFin: TcxDateEdit
|
||||
Left = 302
|
||||
Top = 30
|
||||
ParentFont = False
|
||||
Properties.ImmediatePost = True
|
||||
Properties.OnValidate = FechaFinPropertiesValidate
|
||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
|
||||
TabOrder = 1
|
||||
Width = 121
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
172
Clientes/ListadoFacturacionProcedencia.pas
Normal file
172
Clientes/ListadoFacturacionProcedencia.pas
Normal file
@ -0,0 +1,172 @@
|
||||
{
|
||||
===============================================================================
|
||||
Copyright (©) 2007. 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: 02-04-2007
|
||||
Versión actual: 1.0.0
|
||||
Fecha versión actual: 02-04-2007
|
||||
===============================================================================
|
||||
Modificaciones:
|
||||
|
||||
Fecha Comentarios
|
||||
---------------------------------------------------------------------------
|
||||
===============================================================================
|
||||
}
|
||||
|
||||
unit ListadoFacturacionProcedencia;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, RdxFrame, RdxBotones, RdxPaneles, RdxBarras, cxControls,
|
||||
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls,
|
||||
AdvPanel, ExtCtrls, RdxTitulos, cxDropDownEdit, VistaPrevia,
|
||||
InformeListadoFacturacionProcedencia, TablaProveedores, Entidades, cxCalendar;
|
||||
|
||||
type
|
||||
TfrListadoFacturacionProcedencia = class(TRdxFrame)
|
||||
pnlTitulo: TRdxPanelTituloOperacion;
|
||||
pnlVistaPrevia: TPanel;
|
||||
pnlCuerpo: TPanel;
|
||||
pnlProveedor: TAdvPanel;
|
||||
Label1: TLabel;
|
||||
FechaIni: TcxDateEdit;
|
||||
eFechaFin: TLabel;
|
||||
FechaFin: TcxDateEdit;
|
||||
Label2: TLabel;
|
||||
procedure FechaIniPropertiesValidate(Sender: TObject;
|
||||
var DisplayValue: Variant; var ErrorText: TCaption;
|
||||
var Error: Boolean);
|
||||
procedure FechaFinPropertiesValidate(Sender: TObject;
|
||||
var DisplayValue: Variant; var ErrorText: TCaption;
|
||||
var Error: Boolean);
|
||||
private
|
||||
FVistaPrevia : TfrVistaPrevia;
|
||||
FInforme : TdmInformeListadoFacturacionProcedencia;
|
||||
protected
|
||||
procedure VerModal; override;
|
||||
procedure FreeContenido; override;
|
||||
function CloseFrame : Boolean; override;
|
||||
function CambiarEntidad(EntidadAnterior, Entidad : TRdxEntidad): Boolean; override;
|
||||
public
|
||||
constructor Create(AOwner : TComponent); override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
var
|
||||
frListadoFacturacionProcedencia: TfrListadoFacturacionProcedencia;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfrListadoFacturacionProcedencia }
|
||||
|
||||
uses
|
||||
Literales, Mensajes, StrFunc, DateUtils, InformeBase, TablaTrimestres,
|
||||
Proveedores, RdxFrameProveedores, Configuracion, cxDateUtils;
|
||||
|
||||
constructor TfrListadoFacturacionProcedencia.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited Create(AOwner);
|
||||
Entidad := entListadoFacturacionProcedencia;
|
||||
|
||||
FVistaPrevia := TfrVistaPrevia.Create(Self);
|
||||
FVistaPrevia.Parent := pnlVistaPrevia;
|
||||
FInforme := TdmInformeListadoFacturacionProcedencia.Create(Self);
|
||||
FInforme.Preview := FVistaPrevia.Preview;
|
||||
|
||||
FechaIni.Date := dmTablaTrimestres.darFechaIniTrimestre(dmTablaTrimestres.darTrimestreActual);
|
||||
FechaFin.Date := dmTablaTrimestres.darFechaFinTrimestre(dmTablaTrimestres.darTrimestreActual);
|
||||
FInforme.FechaIni := FechaIni.Date;
|
||||
FInforme.FechaFin := FechaFin.Date;
|
||||
FInforme.Previsualizar;
|
||||
end;
|
||||
|
||||
destructor TfrListadoFacturacionProcedencia.Destroy;
|
||||
begin
|
||||
FInforme.Free;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TfrListadoFacturacionProcedencia.CloseFrame: Boolean;
|
||||
begin
|
||||
FInforme.Preview := NIL;
|
||||
(FVistaPrevia as TRdxFrame).CloseFrame;
|
||||
Result := inherited CloseFrame;
|
||||
end;
|
||||
|
||||
procedure TfrListadoFacturacionProcedencia.FreeContenido;
|
||||
begin
|
||||
// if (ContenidoModal is TRdxFrameProveedores) then
|
||||
// FCodigoProveedorAux := (ContenidoModal as TRdxFrameProveedores).CodigoProveedor;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfrListadoFacturacionProcedencia.VerModal;
|
||||
begin
|
||||
// if (ContenidoModal is TRdxFrameProveedores) then
|
||||
// (ContenidoModal as TRdxFrameProveedores).CodigoProveedor := FCodigoProveedorAux;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TfrListadoFacturacionProcedencia.CambiarEntidad(EntidadAnterior, Entidad: TRdxEntidad): Boolean;
|
||||
begin
|
||||
inherited CambiarEntidad(EntidadAnterior, Entidad);
|
||||
ConfigurarFrame(Self, Self.Entidad);
|
||||
end;
|
||||
|
||||
procedure TfrListadoFacturacionProcedencia.FechaIniPropertiesValidate(
|
||||
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
|
||||
var Error: Boolean);
|
||||
var
|
||||
ADate : TDateTime;
|
||||
begin
|
||||
try
|
||||
if DisplayValue > FechaFin.Date then
|
||||
begin
|
||||
ErrorText := msgFechasMal;
|
||||
Error := True;
|
||||
Exit;
|
||||
end;
|
||||
TextToDateEx(DisplayValue, ADate);
|
||||
FInforme.FechaIni := ADate;
|
||||
FInforme.Previsualizar;
|
||||
except
|
||||
Error := True;
|
||||
ErrorText := msgFechaNoValida;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrListadoFacturacionProcedencia.FechaFinPropertiesValidate(
|
||||
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
|
||||
var Error: Boolean);
|
||||
var
|
||||
ADate : TDateTime;
|
||||
begin
|
||||
try
|
||||
if DisplayValue < FechaIni.Date then
|
||||
begin
|
||||
ErrorText := msgFechasMal;
|
||||
Error := True;
|
||||
Exit;
|
||||
end;
|
||||
TextToDateEx(DisplayValue, ADate);
|
||||
FInforme.FechaFin := ADate;
|
||||
FInforme.Previsualizar
|
||||
except
|
||||
Error := True;
|
||||
ErrorText := msgFechaNoValida;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
192
Clientes/ListadoPresupuestosProcedencia.dfm
Normal file
192
Clientes/ListadoPresupuestosProcedencia.dfm
Normal file
@ -0,0 +1,192 @@
|
||||
object frListadoPresupuestosProcedencia: TfrListadoPresupuestosProcedencia
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 443
|
||||
Height = 270
|
||||
Align = alClient
|
||||
Color = 16383743
|
||||
ParentColor = False
|
||||
TabOrder = 0
|
||||
object pnlTitulo: TRdxPanelTituloOperacion
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 443
|
||||
Height = 22
|
||||
Caption = ' '
|
||||
Color = 9685681
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = 3692855
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
end
|
||||
object pnlVistaPrevia: TPanel
|
||||
Left = 0
|
||||
Top = 129
|
||||
Width = 443
|
||||
Height = 141
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
Color = 16383743
|
||||
TabOrder = 0
|
||||
end
|
||||
object pnlCuerpo: TPanel
|
||||
Left = 0
|
||||
Top = 22
|
||||
Width = 443
|
||||
Height = 107
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
BevelOuter = bvNone
|
||||
BorderWidth = 10
|
||||
ParentColor = True
|
||||
TabOrder = 1
|
||||
object pnlProveedor: TAdvPanel
|
||||
Left = 10
|
||||
Top = 10
|
||||
Width = 423
|
||||
Height = 87
|
||||
Align = alTop
|
||||
BevelOuter = bvNone
|
||||
Color = 16383743
|
||||
TabOrder = 0
|
||||
UseDockManager = True
|
||||
Version = '1.5.0.0'
|
||||
AnchorHint = False
|
||||
AutoSize.Enabled = False
|
||||
AutoSize.Height = True
|
||||
AutoSize.Width = True
|
||||
AutoHideChildren = True
|
||||
BackgroundPosition = bpTopLeft
|
||||
BorderColor = clBlack
|
||||
BorderShadow = False
|
||||
Buffered = True
|
||||
CanMove = False
|
||||
CanSize = False
|
||||
Caption.Background.Data = {
|
||||
72010000424D7201000000000000760000002800000014000000150000000100
|
||||
040000000000FC000000E30E0000E30E00001000000010000000B5BDC600F9FE
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00111111111111
|
||||
1111111100001111111111111111111100001111111111111111111100001111
|
||||
1111111111110000000011111111111111111111000011111111111111111111
|
||||
0000111111111111111111110000111111111111111111110000111111111111
|
||||
1111111100001111111111111111111100001111111111111111111100001111
|
||||
1111111111111111000011111111111111111111000011111111111111111111
|
||||
0000111111111111111111110000111111111111111111110000111111111111
|
||||
1111111100001111111111111111111100001111111111111111111100001111
|
||||
11111111111111110000111111111111111111110000}
|
||||
Caption.ButtonPosition = cbpLeft
|
||||
Caption.Color = clBtnFace
|
||||
Caption.ColorTo = clNone
|
||||
Caption.CloseColor = clBtnFace
|
||||
Caption.CloseButton = False
|
||||
Caption.CloseButtonColor = clBlack
|
||||
Caption.Flat = True
|
||||
Caption.Font.Charset = DEFAULT_CHARSET
|
||||
Caption.Font.Color = 3692855
|
||||
Caption.Font.Height = -11
|
||||
Caption.Font.Name = 'Tahoma'
|
||||
Caption.Font.Style = [fsBold]
|
||||
Caption.Height = 23
|
||||
Caption.Indent = -4
|
||||
Caption.MinMaxButton = True
|
||||
Caption.MinMaxButtonColor = 3692855
|
||||
Caption.ShadeLight = 200
|
||||
Caption.ShadeGrain = 0
|
||||
Caption.ShadeType = stBitmapRStretch
|
||||
Caption.Shape = csRectangle
|
||||
Caption.Text = 'Par'#225'metros para el informe'
|
||||
Caption.TopIndent = 0
|
||||
Caption.Visible = True
|
||||
Collaps = False
|
||||
CollapsColor = clWhite
|
||||
CollapsDelay = 20
|
||||
CollapsSteps = 0
|
||||
ColorTo = clNone
|
||||
FixedTop = False
|
||||
FixedLeft = False
|
||||
FixedHeight = False
|
||||
FixedWidth = False
|
||||
FreeOnClose = False
|
||||
Hover = False
|
||||
HoverColor = clNone
|
||||
HoverFontColor = clNone
|
||||
Indent = 0
|
||||
LineSpacing = 0
|
||||
Position.Save = False
|
||||
Position.Location = clRegistry
|
||||
ShadowColor = clGray
|
||||
ShadowOffset = 2
|
||||
ShowMoveCursor = False
|
||||
TextVAlign = tvaTop
|
||||
TopIndent = 0
|
||||
URLColor = clBlue
|
||||
FullHeight = 38
|
||||
object Label1: TLabel
|
||||
Left = 83
|
||||
Top = 89
|
||||
Width = 63
|
||||
Height = 13
|
||||
Alignment = taRightJustify
|
||||
Caption = 'Ordenar por:'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
end
|
||||
object eFechaFin: TLabel
|
||||
Left = 278
|
||||
Top = 34
|
||||
Width = 17
|
||||
Height = 13
|
||||
Alignment = taRightJustify
|
||||
Caption = 'y el'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 40
|
||||
Top = 34
|
||||
Width = 103
|
||||
Height = 13
|
||||
Alignment = taRightJustify
|
||||
Caption = 'Facturas entre el d'#237'a:'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object FechaIni: TcxDateEdit
|
||||
Left = 148
|
||||
Top = 30
|
||||
ParentFont = False
|
||||
Properties.ImmediatePost = True
|
||||
Properties.OnValidate = FechaIniPropertiesValidate
|
||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
|
||||
TabOrder = 0
|
||||
Width = 121
|
||||
end
|
||||
object FechaFin: TcxDateEdit
|
||||
Left = 302
|
||||
Top = 30
|
||||
ParentFont = False
|
||||
Properties.ImmediatePost = True
|
||||
Properties.OnValidate = FechaFinPropertiesValidate
|
||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
|
||||
TabOrder = 1
|
||||
Width = 121
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
172
Clientes/ListadoPresupuestosProcedencia.pas
Normal file
172
Clientes/ListadoPresupuestosProcedencia.pas
Normal file
@ -0,0 +1,172 @@
|
||||
{
|
||||
===============================================================================
|
||||
Copyright (©) 2007. 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: 02-04-2007
|
||||
Versión actual: 1.0.0
|
||||
Fecha versión actual: 02-04-2007
|
||||
===============================================================================
|
||||
Modificaciones:
|
||||
|
||||
Fecha Comentarios
|
||||
---------------------------------------------------------------------------
|
||||
===============================================================================
|
||||
}
|
||||
|
||||
unit ListadoPresupuestosProcedencia;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, RdxFrame, RdxBotones, RdxPaneles, RdxBarras, cxControls,
|
||||
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls,
|
||||
AdvPanel, ExtCtrls, RdxTitulos, cxDropDownEdit, VistaPrevia,
|
||||
InformeListadoPresupuestosProcedencia, TablaProveedores, Entidades, cxCalendar;
|
||||
|
||||
type
|
||||
TfrListadoPresupuestosProcedencia = class(TRdxFrame)
|
||||
pnlTitulo: TRdxPanelTituloOperacion;
|
||||
pnlVistaPrevia: TPanel;
|
||||
pnlCuerpo: TPanel;
|
||||
pnlProveedor: TAdvPanel;
|
||||
Label1: TLabel;
|
||||
FechaIni: TcxDateEdit;
|
||||
eFechaFin: TLabel;
|
||||
FechaFin: TcxDateEdit;
|
||||
Label2: TLabel;
|
||||
procedure FechaIniPropertiesValidate(Sender: TObject;
|
||||
var DisplayValue: Variant; var ErrorText: TCaption;
|
||||
var Error: Boolean);
|
||||
procedure FechaFinPropertiesValidate(Sender: TObject;
|
||||
var DisplayValue: Variant; var ErrorText: TCaption;
|
||||
var Error: Boolean);
|
||||
private
|
||||
FVistaPrevia : TfrVistaPrevia;
|
||||
FInforme : TdmInformeListadoPresupuestosProcedencia;
|
||||
protected
|
||||
procedure VerModal; override;
|
||||
procedure FreeContenido; override;
|
||||
function CloseFrame : Boolean; override;
|
||||
function CambiarEntidad(EntidadAnterior, Entidad : TRdxEntidad): Boolean; override;
|
||||
public
|
||||
constructor Create(AOwner : TComponent); override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
var
|
||||
frListadoPresupuestosProcedencia: TfrListadoPresupuestosProcedencia;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfrListadoPresupuestosProcedencia }
|
||||
|
||||
uses
|
||||
Literales, Mensajes, StrFunc, DateUtils, InformeBase, TablaTrimestres,
|
||||
Proveedores, RdxFrameProveedores, Configuracion, cxDateUtils;
|
||||
|
||||
constructor TfrListadoPresupuestosProcedencia.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited Create(AOwner);
|
||||
Entidad := entListadoPresupuestosProcedencia;
|
||||
|
||||
FVistaPrevia := TfrVistaPrevia.Create(Self);
|
||||
FVistaPrevia.Parent := pnlVistaPrevia;
|
||||
FInforme := TdmInformeListadoPresupuestosProcedencia.Create(Self);
|
||||
FInforme.Preview := FVistaPrevia.Preview;
|
||||
|
||||
FechaIni.Date := dmTablaTrimestres.darFechaIniTrimestre(dmTablaTrimestres.darTrimestreActual);
|
||||
FechaFin.Date := dmTablaTrimestres.darFechaFinTrimestre(dmTablaTrimestres.darTrimestreActual);
|
||||
FInforme.FechaIni := FechaIni.Date;
|
||||
FInforme.FechaFin := FechaFin.Date;
|
||||
FInforme.Previsualizar;
|
||||
end;
|
||||
|
||||
destructor TfrListadoPresupuestosProcedencia.Destroy;
|
||||
begin
|
||||
FInforme.Free;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TfrListadoPresupuestosProcedencia.CloseFrame: Boolean;
|
||||
begin
|
||||
FInforme.Preview := NIL;
|
||||
(FVistaPrevia as TRdxFrame).CloseFrame;
|
||||
Result := inherited CloseFrame;
|
||||
end;
|
||||
|
||||
procedure TfrListadoPresupuestosProcedencia.FreeContenido;
|
||||
begin
|
||||
// if (ContenidoModal is TRdxFrameProveedores) then
|
||||
// FCodigoProveedorAux := (ContenidoModal as TRdxFrameProveedores).CodigoProveedor;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfrListadoPresupuestosProcedencia.VerModal;
|
||||
begin
|
||||
// if (ContenidoModal is TRdxFrameProveedores) then
|
||||
// (ContenidoModal as TRdxFrameProveedores).CodigoProveedor := FCodigoProveedorAux;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TfrListadoPresupuestosProcedencia.CambiarEntidad(EntidadAnterior, Entidad: TRdxEntidad): Boolean;
|
||||
begin
|
||||
inherited CambiarEntidad(EntidadAnterior, Entidad);
|
||||
ConfigurarFrame(Self, Self.Entidad);
|
||||
end;
|
||||
|
||||
procedure TfrListadoPresupuestosProcedencia.FechaIniPropertiesValidate(
|
||||
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
|
||||
var Error: Boolean);
|
||||
var
|
||||
ADate : TDateTime;
|
||||
begin
|
||||
try
|
||||
if DisplayValue > FechaFin.Date then
|
||||
begin
|
||||
ErrorText := msgFechasMal;
|
||||
Error := True;
|
||||
Exit;
|
||||
end;
|
||||
TextToDateEx(DisplayValue, ADate);
|
||||
FInforme.FechaIni := ADate;
|
||||
FInforme.Previsualizar;
|
||||
except
|
||||
Error := True;
|
||||
ErrorText := msgFechaNoValida;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrListadoPresupuestosProcedencia.FechaFinPropertiesValidate(
|
||||
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
|
||||
var Error: Boolean);
|
||||
var
|
||||
ADate : TDateTime;
|
||||
begin
|
||||
try
|
||||
if DisplayValue < FechaIni.Date then
|
||||
begin
|
||||
ErrorText := msgFechasMal;
|
||||
Error := True;
|
||||
Exit;
|
||||
end;
|
||||
TextToDateEx(DisplayValue, ADate);
|
||||
FInforme.FechaFin := ADate;
|
||||
FInforme.Previsualizar
|
||||
except
|
||||
Error := True;
|
||||
ErrorText := msgFechaNoValida;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
46
Clientes/ListadoProcedencias.dfm
Normal file
46
Clientes/ListadoProcedencias.dfm
Normal file
@ -0,0 +1,46 @@
|
||||
object frListadoProcedencias: TfrListadoProcedencias
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 443
|
||||
Height = 270
|
||||
Align = alClient
|
||||
Color = 16383743
|
||||
ParentColor = False
|
||||
TabOrder = 0
|
||||
object pnlTitulo: TRdxPanelTituloOperacion
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 443
|
||||
Height = 22
|
||||
Caption = ' '
|
||||
Color = 9685681
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = 3692855
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
end
|
||||
object pnlVistaPrevia: TPanel
|
||||
Left = 0
|
||||
Top = 33
|
||||
Width = 443
|
||||
Height = 237
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
Color = 16383743
|
||||
TabOrder = 0
|
||||
end
|
||||
object pnlCuerpo: TPanel
|
||||
Left = 0
|
||||
Top = 22
|
||||
Width = 443
|
||||
Height = 11
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
BevelOuter = bvNone
|
||||
BorderWidth = 10
|
||||
ParentColor = True
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
111
Clientes/ListadoProcedencias.pas
Normal file
111
Clientes/ListadoProcedencias.pas
Normal file
@ -0,0 +1,111 @@
|
||||
{
|
||||
===============================================================================
|
||||
Copyright (©) 2007. 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: 02-04-2007
|
||||
Versión actual: 1.0.0
|
||||
Fecha versión actual: 02-04-2007
|
||||
===============================================================================
|
||||
Modificaciones:
|
||||
|
||||
Fecha Comentarios
|
||||
---------------------------------------------------------------------------
|
||||
===============================================================================
|
||||
}
|
||||
|
||||
unit ListadoProcedencias;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, RdxFrame, RdxBotones, RdxPaneles, RdxBarras, cxControls,
|
||||
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls,
|
||||
AdvPanel, ExtCtrls, RdxTitulos, cxDropDownEdit, VistaPrevia,
|
||||
InformeListadoProcedencias, TablaProveedores, Entidades, cxCalendar;
|
||||
|
||||
type
|
||||
TfrListadoProcedencias = class(TRdxFrame)
|
||||
pnlTitulo: TRdxPanelTituloOperacion;
|
||||
pnlVistaPrevia: TPanel;
|
||||
pnlCuerpo: TPanel;
|
||||
private
|
||||
FVistaPrevia : TfrVistaPrevia;
|
||||
FInforme : TdmInformeListadoProcedencias;
|
||||
protected
|
||||
procedure VerModal; override;
|
||||
procedure FreeContenido; override;
|
||||
function CloseFrame : Boolean; override;
|
||||
function CambiarEntidad(EntidadAnterior, Entidad : TRdxEntidad): Boolean; override;
|
||||
public
|
||||
constructor Create(AOwner : TComponent); override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
var
|
||||
frListadoProcedencias: TfrListadoProcedencias;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfrListadoFacturacionProcedencia }
|
||||
|
||||
uses
|
||||
Literales, Mensajes, StrFunc, DateUtils, InformeBase, TablaTrimestres,
|
||||
Proveedores, RdxFrameProveedores, Configuracion, cxDateUtils;
|
||||
|
||||
constructor TfrListadoProcedencias.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited Create(AOwner);
|
||||
Entidad := entListadoProcedencias;
|
||||
|
||||
FVistaPrevia := TfrVistaPrevia.Create(Self);
|
||||
FVistaPrevia.Parent := pnlVistaPrevia;
|
||||
FInforme := TdmInformeListadoProcedencias.Create(Self);
|
||||
FInforme.Preview := FVistaPrevia.Preview;
|
||||
FInforme.Previsualizar;
|
||||
end;
|
||||
|
||||
destructor TfrListadoProcedencias.Destroy;
|
||||
begin
|
||||
FInforme.Free;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TfrListadoProcedencias.CloseFrame: Boolean;
|
||||
begin
|
||||
FInforme.Preview := NIL;
|
||||
(FVistaPrevia as TRdxFrame).CloseFrame;
|
||||
Result := inherited CloseFrame;
|
||||
end;
|
||||
|
||||
procedure TfrListadoProcedencias.FreeContenido;
|
||||
begin
|
||||
// if (ContenidoModal is TRdxFrameProveedores) then
|
||||
// FCodigoProveedorAux := (ContenidoModal as TRdxFrameProveedores).CodigoProveedor;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfrListadoProcedencias.VerModal;
|
||||
begin
|
||||
// if (ContenidoModal is TRdxFrameProveedores) then
|
||||
// (ContenidoModal as TRdxFrameProveedores).CodigoProveedor := FCodigoProveedorAux;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TfrListadoProcedencias.CambiarEntidad(EntidadAnterior, Entidad: TRdxEntidad): Boolean;
|
||||
begin
|
||||
inherited CambiarEntidad(EntidadAnterior, Entidad);
|
||||
ConfigurarFrame(Self, Self.Entidad);
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -74,6 +74,11 @@ object frBarraDatos: TfrBarraDatos
|
||||
FontDown.Height = -11
|
||||
FontDown.Name = 'Tahoma'
|
||||
FontDown.Style = []
|
||||
FontDisabled.Charset = DEFAULT_CHARSET
|
||||
FontDisabled.Color = clWindowText
|
||||
FontDisabled.Height = -11
|
||||
FontDisabled.Name = 'MS Sans Serif'
|
||||
FontDisabled.Style = []
|
||||
Glyph.Data = {
|
||||
76020000424D7602000000000000760000002800000020000000200000000100
|
||||
04000000000000020000230B0000230B00001000000010000000000000005A39
|
||||
@ -126,6 +131,11 @@ object frBarraDatos: TfrBarraDatos
|
||||
FontDown.Height = -11
|
||||
FontDown.Name = 'Tahoma'
|
||||
FontDown.Style = []
|
||||
FontDisabled.Charset = DEFAULT_CHARSET
|
||||
FontDisabled.Color = clWindowText
|
||||
FontDisabled.Height = -11
|
||||
FontDisabled.Name = 'MS Sans Serif'
|
||||
FontDisabled.Style = []
|
||||
Glyph.Data = {
|
||||
76020000424D7602000000000000760000002800000020000000200000000100
|
||||
04000000000000020000230B0000230B00001000000010000000000000005A39
|
||||
@ -178,6 +188,11 @@ object frBarraDatos: TfrBarraDatos
|
||||
FontDown.Height = -11
|
||||
FontDown.Name = 'Tahoma'
|
||||
FontDown.Style = []
|
||||
FontDisabled.Charset = DEFAULT_CHARSET
|
||||
FontDisabled.Color = clWindowText
|
||||
FontDisabled.Height = -11
|
||||
FontDisabled.Name = 'MS Sans Serif'
|
||||
FontDisabled.Style = []
|
||||
Glyph.Data = {
|
||||
36100000424D3610000000000000360000002800000020000000200000000100
|
||||
2000000000000010000000000000000000000000000000000000FF00FF00FF00
|
||||
@ -318,10 +333,10 @@ object frBarraDatos: TfrBarraDatos
|
||||
end
|
||||
object RdxBotonLateral3: TRdxBotonLateral
|
||||
Left = 0
|
||||
Top = 150
|
||||
Top = 250
|
||||
Width = 135
|
||||
Height = 50
|
||||
Action = actFamilias
|
||||
Action = actProcedencias
|
||||
Alignment = taLeftJustify
|
||||
Color = 3618615
|
||||
ColorFocused = 5000268
|
||||
@ -340,60 +355,110 @@ object frBarraDatos: TfrBarraDatos
|
||||
FontDown.Height = -11
|
||||
FontDown.Name = 'Tahoma'
|
||||
FontDown.Style = []
|
||||
FontDisabled.Charset = DEFAULT_CHARSET
|
||||
FontDisabled.Color = clWindowText
|
||||
FontDisabled.Height = -11
|
||||
FontDisabled.Name = 'MS Sans Serif'
|
||||
FontDisabled.Style = []
|
||||
Glyph.Data = {
|
||||
86060000424D8606000000000000860200002800000020000000200000000100
|
||||
08000000000000040000120B0000120B0000940000009400000000000000FFFF
|
||||
FF00FF00FF0026252600A4A0A0005251510035353400F0FBFF0099B8CB009CB9
|
||||
CB0094B5CB0096B6CB0097B6CB0098B6CB0098B7CB009AB7CB009BB8CB008EB1
|
||||
CC0090B2CB0092B3CB0093B3CB0094B4CB0095B4CB0096B5CB007FA8CB0081AA
|
||||
CC0081A9CB0083AACB0085ACCC0084ABCB0085ACCB0087ADCC0087ADCB0089AE
|
||||
CB008BAFCC008AAECB008CAFCB008EB0CB0093B3CC006F9FCC0071A0CC0072A1
|
||||
CC0075A2CC0074A2CB0077A3CC0078A4CC0079A4CC007BA5CC007BA6CC007DA6
|
||||
CB007DA7CB0080A8CC0081A9CC0084AACC0086ABCC0000336700003366000135
|
||||
670002366900023567000335680004376A000437690005396C0006396C00073A
|
||||
6E00073B6D00083B6D00093C6F000B3E72000B3E71000D4074000D4073000D41
|
||||
73000F4276000F4376001043750011457800114577001245780013477A001347
|
||||
790014477A0016497C00174A7E00174A7D00184B7E001A4C7F001A4D7F001B4E
|
||||
81001C4F82001D5184001D5083001E5184001F5386001F528500205385002155
|
||||
880022558800225487002357890025588C00245689002457890026598C00285B
|
||||
8E002A5D90002C5F92002C5F91002D6093002F6295002E619300306396003164
|
||||
96003265980033669900336598006D9DCC006E9DCC00709ECC00709FCC00719F
|
||||
CC00719FCB0073A0CC0099CCFF007EA6CC00033569000A3C700016487C001A4C
|
||||
80002A5C90002C5E9200306296001616170042424300DDDDDD00CCCCCC009999
|
||||
9900777777006E6E6E0066666600616161005555550044444400333333002222
|
||||
2200111111000909090002020202020202020202020202020202020202020202
|
||||
0202020202020202020202020202020202020202020202020202860002020202
|
||||
0202020202020202020202020202020202020202020202020200757586000202
|
||||
0202020202020202020202020202020202020202020202020073757575768600
|
||||
0202020202020202020202020202020202020202020202007274757575277B2C
|
||||
86000202020202020202020202020202020202020202006E70727575767A2A2E
|
||||
7D198600020202020202020202020202020202020200836D8471757577292C30
|
||||
181D2024860002020202020202020202020202020069826C6F6E7576792A2D31
|
||||
1A1C2325130C93020202020202020202020202006465696A6B6E75787B2C2F33
|
||||
1B202412160E850202020202020202020202005F616768696B6E75282B2E321A
|
||||
362125140B08030202020202020202020200595C606366687C787C7C2C2F3335
|
||||
1F2212150E10060202020202020202020055575A5B5E627C90048A8A7C7C341E
|
||||
211126170F0986020202020202020200518054585A5D7C00908704048A8A7C7C
|
||||
24120A0D10090502020202020202004A4E505356817C8A008E87888804048A8A
|
||||
7C7C0B0809098D0202020202020046474C4D52537C008A008E87878788880404
|
||||
8A8A7C7C09098B020202020200424446484B4F7C8A0004008E01878787878888
|
||||
04048A8A7C7C8A02020202003E40434445497C008A0004008C8F010187878787
|
||||
8888048D8A8A8A02020202007E3D3F417F7C8A000400040007878F8F01018787
|
||||
8787019186868A02020202003B3A3D407C008A0004008700040187878F8F0101
|
||||
87870191868A02020202020038393C7C8A00040004008787898F010187878F8F
|
||||
010101918A0202020202020038377C008A00040087008F8787878F8F01018787
|
||||
8F8F01910202020202020200387C8600040004008787878F048787878F8F0101
|
||||
8791919102020202020202007C868600040087008F878787898F87878787908F
|
||||
0191020202020202020202007C86860004008787878F8F8787878F8F87870791
|
||||
9191020202020202020202028D788600878C0489048787048904878789908C91
|
||||
02020202020202020202020202028D008F878787878F8F8787878F8F07920202
|
||||
020202020202020202020202020202028D8F8F878787878F0487879200910202
|
||||
0202020202020202020202020202020202028D8F8F878787898F079102020202
|
||||
02020202020202020202020202020202020202028D8F8F878792009102020202
|
||||
020202020202020202020202020202020202020202028D8F0491020202020202
|
||||
0202020202020202020202020202020202020202020202028A91020202020202
|
||||
0202020202020202020202020202020202020202020202020202020202020202
|
||||
02020202020202020202}
|
||||
360C0000424D360C000000000000360000002800000020000000200000000100
|
||||
180000000000000C0000120B0000120B00000000000000000000373737373737
|
||||
3737373737373737373737373737373737373131313333333737373737373737
|
||||
3737373737373737373737373737373737373737373737373737373737373737
|
||||
3737373737373737373737373737373737373737373737373737373737373737
|
||||
3737373737373737373737373232321818180206090606062121212D2D2D3636
|
||||
3636363637373737373737373737373737373737373737373737373737373737
|
||||
3737373737373737373737373737373737373737373737373737373737373737
|
||||
3737373737373434341A1A1A03080A00596F00A8EA0047B1010A171212122929
|
||||
2933333337373737373737373737373737373737373737373737373737373737
|
||||
3737373737373737373737373737373737373737373737373737373737373737
|
||||
3434341C1C1C030607001E54009EDE00CCFF00B9FF0066FF005EEB0021540707
|
||||
0722222235353537373737373737373737373737373737373737373737373737
|
||||
3737373737373737373737373737373737373737373737373737373737373737
|
||||
0B0B0B003D4D00AEDA0061DF00ACF800CCFF00B9FF0066FF0066FF0066FF002D
|
||||
7210101035353537373737373737373737373737373737373737373737373736
|
||||
3636373737373737373737373737373737373737373737373737373737373737
|
||||
0808080096BF00CBFF0061DF00ACF800CCFF00B9FF0066FF0066FF0066FF0039
|
||||
8F11111134343437373737373737373737373737373737373737373737373737
|
||||
3737373737373737373737373737373737373737373737373737373737373737
|
||||
0808080095BF00CAFF005CDF00ACF800CCFF00B9FF0066FF0066FF0066FF0039
|
||||
8F11111135353537373737373737373737373737373736363636363636363636
|
||||
3636363636363636373737373737373737373737373737373737373737373737
|
||||
0808080095BF00C9FF005ADF00ACF800CCFF00B9FF0066FF0066FF0066FF0039
|
||||
8F1111113D3939363636373737574C4BB69292CBA8A1D5BFA9C0989080686080
|
||||
6860B09080CEB69E7D6E65816965373737373737373737373737373737373737
|
||||
0808080094BF00C8FF005ADF00ACF800CCFF00B9FF0066FF0066FF0066FF0039
|
||||
8F1111118B6C6C967474967474C09090D0A8A0F0E0C0FF9890E07060C06060A0
|
||||
5850704840B09080FFF0D0CBA1A19E807A594D4D373737373737373737373737
|
||||
0808080093BF00C7FF005ADF00ACF800CCFF00B9FF0066FF0066FF0066FF0039
|
||||
8F1111113635356C5757B08080C09090FFF8E0F0C0B0FF7870A0505040303090
|
||||
5050B06050A06860FFF8E0F0D8D0B080809A7373373737373737373737373737
|
||||
0808080092BF00C6FF005ADF00ACF800CCFF00B8FE0065FE0066FF0066FF0039
|
||||
8F111111363636383737A07070B09090FFF8F0E09890FFA09040384020283040
|
||||
3030E07870C06860FFF0F0C09890A070707F5E5E373737373737373737373737
|
||||
0808080091BF00C5FF005CE200ACF800CCFF00B5FB0057F0005FF80063FC0039
|
||||
8F111111353535373737534144906060E0D8D0E0B0B0FFC0B0FFFFFF403030A0
|
||||
5850FF8070D08880B080809058608B565E4D3F41373737373737373737373737
|
||||
0808080090BF00C4FF007EF000BFFD00CCFF00B9F9008CEE0052EB004BE4002F
|
||||
851414143737373737373737374E3F3F804850A06060FF9880FFB0A0FF8870FF
|
||||
8070FF8070A0605080485077464D453A3C373737373737373737373737373737
|
||||
0808080090BF00C3FF00C7FF00CAFF00CBFF00CCFF00C5FF0066FF0052EA0020
|
||||
76141414373737373737373737373737493A3A70404070404080484090484080
|
||||
4040704040704040623E3E423939373737373737373737373737373737313131
|
||||
050505008FBF00C2FF00C5FF00C9FF00CBFF00CCFF00C5FF0066FF0066FF0051
|
||||
CE010A182020203737373737373737373737373C36364E3333653E3E6D383F6D
|
||||
383F623E3E443535373737373737373737373737373737373737373737151515
|
||||
00314300AEEB00C1FF00C4FF00C8FF00CBFF00CCFF00BFFF0066FF0066FF0066
|
||||
FF004AB90E0E0E37373737373737373737373737373737373737373737373737
|
||||
3737373737373737373737373737373737373737373737373737373737151515
|
||||
005C7F00BCFF00C0FF00C3FF00C7FF00CAFF00CCFF00BFFF0066FF0066FF0066
|
||||
FF004CBF0E0E0E37373737373737373737373737373737373737373737373737
|
||||
3737373737373737373737373737373737373737373737373737373737151515
|
||||
005C7F00BAFF00BEFF00C2FF00C6FF00C9FF00CBFF00BFFF0066FF0066FF0066
|
||||
FF004CBF0E0E0E37373737373737373737373737373737373737373737373737
|
||||
3737373737373737373737373737373737373737373737373737373737151515
|
||||
005C7F00B9FF00BDFF00C1FF00C5FF00C8FF00CBFF00BFFF0066FF0066FF0066
|
||||
FF004CBF0E0E0E37373737373737373737373737373737373737373737373737
|
||||
3737373737373737373737373737373737373737373737373737373737151515
|
||||
005C7F00B8FF00BCFF00C0FF00C4FF00C7FF00CAFF00BFFF0066FF0066FF0066
|
||||
FF004CBF0E0E0E37373737373737373737373737373737373737373737373737
|
||||
3737373737373737373737373737373737373737373737373737373737151515
|
||||
005C7F00B8FF00BBFF00BFFF00C2FF01C6FF4FDAFFC2EFFF1C78FF0066FF0066
|
||||
FF004CBF0E0E0E37373737373737373737373737373737373737373737373737
|
||||
3737373737373737373737373737373737373737373737373737373737151515
|
||||
005C7F00B8FF00BAFF02BEFF50D5FFCEF4FFDAF7FF68E0FF06C7FF008EFF0066
|
||||
FF004CBF0E0E0E37373737373737373737373737373737373737373737373737
|
||||
3737373737373737373737373737373737373737373737373737373737151515
|
||||
005C7F02B8FF57D1FFD5F4FFD7F4FF6FCEFF1AB3FF03AFFF00B8FF00CAFF00B0
|
||||
FF0057BF0E0E0E37373737373737373737373737373737373737373737373737
|
||||
3737373737373737373737373737373737373737373737373737373737151515
|
||||
3B6C7FD4F3FFE2F9FF77BEF91252A4053374013987005BDC006AFF0073FF008A
|
||||
C000334110101037373737373737373737373737373737373737373737373737
|
||||
3737373737373737373737373737373737373737373737373737373737181818
|
||||
2727278FA8AF8CD2E50C1B304545456464644D4D4D17191C0030750017370808
|
||||
0822222236363637373737373737373737373737373737373737373737373737
|
||||
3737373737373737373737373737373737373737373737373737373737373737
|
||||
232323080808090D0E6D6D6DAFAFAFACACAC9797977676761919191C1C1C3737
|
||||
3737373737373737373737373737373737373737373737373737373737373737
|
||||
3737373737373737373737373737373737373737373737373737373737373737
|
||||
3737372F2F2F292929B8B8B8DADADAD3D3D3BBBBBB9797975454541A1A1A3737
|
||||
3737373737373737373737373737373737373737373737373737373737373737
|
||||
3737373737373737373737373737373737373737373737373737373737373737
|
||||
3737372A2A2A424242D7D7D7F3F3F3EAEAEAD3D3D3ADADAD6D6D6D1515153737
|
||||
3737373737373737373737373737373737373737373737373737373737373737
|
||||
3737373737373737373737373737373737373737373737373737373737373737
|
||||
3737373434341F1F1FD7D7D7FAFAFAF2F2F2DADADAB0B0B05252521C1C1C3737
|
||||
3737373737373737373737373737373737373737373737373737373737373737
|
||||
3737373737373737373737373737373737373737373737373737373737373737
|
||||
373737373737171717626262D9D9D9D7D7D7BABABA7B7B7B0F0F0F3232323737
|
||||
3737373737373737373737373737373737373737373737373737373737373737
|
||||
3737373737373737373737373737373737373737373737373737373737373737
|
||||
3737373737373636361616162626264C4C4C3434340C0C0C2C2C2C3737373737
|
||||
3737373737373737373737373737373737373737373737373737373737373737
|
||||
3737373737373737373737373737373737373737373737373737373737373737
|
||||
3737373737373737373737373131312929292C2C2C3737373737373737373737
|
||||
3737373737373737373737373737373737373737373737373737373737373737
|
||||
3737373737373737373737373737373737373737373737373737}
|
||||
Margin = 10
|
||||
ParentFont = False
|
||||
ParentColor = False
|
||||
@ -425,6 +490,11 @@ object frBarraDatos: TfrBarraDatos
|
||||
FontDown.Height = -11
|
||||
FontDown.Name = 'Tahoma'
|
||||
FontDown.Style = []
|
||||
FontDisabled.Charset = DEFAULT_CHARSET
|
||||
FontDisabled.Color = clWindowText
|
||||
FontDisabled.Height = -11
|
||||
FontDisabled.Name = 'MS Sans Serif'
|
||||
FontDisabled.Style = []
|
||||
Glyph.Data = {
|
||||
36100000424D3610000000000000360000002800000020000000200000000100
|
||||
2000000000000010000000000000000000000000000000000000FF00FF00FF00
|
||||
@ -563,6 +633,96 @@ object frBarraDatos: TfrBarraDatos
|
||||
Spacing = 12
|
||||
Align = alTop
|
||||
end
|
||||
object RdxBotonLateral4: TRdxBotonLateral
|
||||
Left = 0
|
||||
Top = 150
|
||||
Width = 135
|
||||
Height = 50
|
||||
Action = actFamilias
|
||||
Alignment = taLeftJustify
|
||||
Color = 3618615
|
||||
ColorFocused = 5000268
|
||||
ColorDown = 5755391
|
||||
ColorBorder = 8559266
|
||||
ColorHighLight = 16383743
|
||||
ColorShadow = 16383743
|
||||
GroupIndex = 1
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWhite
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
FontDown.Charset = DEFAULT_CHARSET
|
||||
FontDown.Color = clWindowText
|
||||
FontDown.Height = -11
|
||||
FontDown.Name = 'Tahoma'
|
||||
FontDown.Style = []
|
||||
FontDisabled.Charset = DEFAULT_CHARSET
|
||||
FontDisabled.Color = clWindowText
|
||||
FontDisabled.Height = -11
|
||||
FontDisabled.Name = 'MS Sans Serif'
|
||||
FontDisabled.Style = []
|
||||
Glyph.Data = {
|
||||
86060000424D8606000000000000860200002800000020000000200000000100
|
||||
08000000000000040000120B0000120B0000940000009400000000000000FFFF
|
||||
FF00FF00FF0026252600A4A0A0005251510035353400F0FBFF0099B8CB009CB9
|
||||
CB0094B5CB0096B6CB0097B6CB0098B6CB0098B7CB009AB7CB009BB8CB008EB1
|
||||
CC0090B2CB0092B3CB0093B3CB0094B4CB0095B4CB0096B5CB007FA8CB0081AA
|
||||
CC0081A9CB0083AACB0085ACCC0084ABCB0085ACCB0087ADCC0087ADCB0089AE
|
||||
CB008BAFCC008AAECB008CAFCB008EB0CB0093B3CC006F9FCC0071A0CC0072A1
|
||||
CC0075A2CC0074A2CB0077A3CC0078A4CC0079A4CC007BA5CC007BA6CC007DA6
|
||||
CB007DA7CB0080A8CC0081A9CC0084AACC0086ABCC0000336700003366000135
|
||||
670002366900023567000335680004376A000437690005396C0006396C00073A
|
||||
6E00073B6D00083B6D00093C6F000B3E72000B3E71000D4074000D4073000D41
|
||||
73000F4276000F4376001043750011457800114577001245780013477A001347
|
||||
790014477A0016497C00174A7E00174A7D00184B7E001A4C7F001A4D7F001B4E
|
||||
81001C4F82001D5184001D5083001E5184001F5386001F528500205385002155
|
||||
880022558800225487002357890025588C00245689002457890026598C00285B
|
||||
8E002A5D90002C5F92002C5F91002D6093002F6295002E619300306396003164
|
||||
96003265980033669900336598006D9DCC006E9DCC00709ECC00709FCC00719F
|
||||
CC00719FCB0073A0CC0099CCFF007EA6CC00033569000A3C700016487C001A4C
|
||||
80002A5C90002C5E9200306296001616170042424300DDDDDD00CCCCCC009999
|
||||
9900777777006E6E6E0066666600616161005555550044444400333333002222
|
||||
2200111111000909090002020202020202020202020202020202020202020202
|
||||
0202020202020202020202020202020202020202020202020202860002020202
|
||||
0202020202020202020202020202020202020202020202020200757586000202
|
||||
0202020202020202020202020202020202020202020202020073757575768600
|
||||
0202020202020202020202020202020202020202020202007274757575277B2C
|
||||
86000202020202020202020202020202020202020202006E70727575767A2A2E
|
||||
7D198600020202020202020202020202020202020200836D8471757577292C30
|
||||
181D2024860002020202020202020202020202020069826C6F6E7576792A2D31
|
||||
1A1C2325130C93020202020202020202020202006465696A6B6E75787B2C2F33
|
||||
1B202412160E850202020202020202020202005F616768696B6E75282B2E321A
|
||||
362125140B08030202020202020202020200595C606366687C787C7C2C2F3335
|
||||
1F2212150E10060202020202020202020055575A5B5E627C90048A8A7C7C341E
|
||||
211126170F0986020202020202020200518054585A5D7C00908704048A8A7C7C
|
||||
24120A0D10090502020202020202004A4E505356817C8A008E87888804048A8A
|
||||
7C7C0B0809098D0202020202020046474C4D52537C008A008E87878788880404
|
||||
8A8A7C7C09098B020202020200424446484B4F7C8A0004008E01878787878888
|
||||
04048A8A7C7C8A02020202003E40434445497C008A0004008C8F010187878787
|
||||
8888048D8A8A8A02020202007E3D3F417F7C8A000400040007878F8F01018787
|
||||
8787019186868A02020202003B3A3D407C008A0004008700040187878F8F0101
|
||||
87870191868A02020202020038393C7C8A00040004008787898F010187878F8F
|
||||
010101918A0202020202020038377C008A00040087008F8787878F8F01018787
|
||||
8F8F01910202020202020200387C8600040004008787878F048787878F8F0101
|
||||
8791919102020202020202007C868600040087008F878787898F87878787908F
|
||||
0191020202020202020202007C86860004008787878F8F8787878F8F87870791
|
||||
9191020202020202020202028D788600878C0489048787048904878789908C91
|
||||
02020202020202020202020202028D008F878787878F8F8787878F8F07920202
|
||||
020202020202020202020202020202028D8F8F878787878F0487879200910202
|
||||
0202020202020202020202020202020202028D8F8F878787898F079102020202
|
||||
02020202020202020202020202020202020202028D8F8F878792009102020202
|
||||
020202020202020202020202020202020202020202028D8F0491020202020202
|
||||
0202020202020202020202020202020202020202020202028A91020202020202
|
||||
0202020202020202020202020202020202020202020202020202020202020202
|
||||
02020202020202020202}
|
||||
Margin = 10
|
||||
ParentFont = False
|
||||
ParentColor = False
|
||||
TabOrder = 5
|
||||
Spacing = 12
|
||||
Align = alTop
|
||||
end
|
||||
end
|
||||
object pnlTitulo: TPanel
|
||||
Left = 0
|
||||
@ -633,5 +793,9 @@ object frBarraDatos: TfrBarraDatos
|
||||
Visible = False
|
||||
OnExecute = actArticulosModeloExecute
|
||||
end
|
||||
object actProcedencias: TAction
|
||||
Caption = 'Procedencias de cliente'
|
||||
OnExecute = actProcedenciasExecute
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -52,12 +52,15 @@ type
|
||||
RdxBotonLateral11: TRdxBotonLateral;
|
||||
RdxBotonLateral3: TRdxBotonLateral;
|
||||
RdxBotonLateral9: TRdxBotonLateral;
|
||||
actProcedencias: TAction;
|
||||
RdxBotonLateral4: TRdxBotonLateral;
|
||||
procedure actArticulosExecute(Sender: TObject);
|
||||
procedure actVendedoresExecute(Sender: TObject);
|
||||
procedure actInstaladoresExecute(Sender: TObject);
|
||||
procedure actFamiliasExecute(Sender: TObject);
|
||||
procedure actFPagoExecute(Sender: TObject);
|
||||
procedure actArticulosModeloExecute(Sender: TObject);
|
||||
procedure actProcedenciasExecute(Sender: TObject);
|
||||
public
|
||||
constructor Create (AOwner: TComponent); override;
|
||||
end;
|
||||
@ -70,7 +73,7 @@ implementation
|
||||
{$R *.DFM}
|
||||
uses
|
||||
Vendedores, Instaladores, FormasPago, Propiedades, Entidades,
|
||||
Familias, Articulos, ArticulosModelo, BaseDatos, Configuracion;
|
||||
Familias, Procedencias, Articulos, ArticulosModelo, BaseDatos, Configuracion;
|
||||
|
||||
constructor TfrBarraDatos.Create (AOwner: TComponent);
|
||||
begin
|
||||
@ -119,4 +122,14 @@ begin
|
||||
Contenido := TfrArticulosModelo.Create(Self);
|
||||
end;
|
||||
|
||||
procedure TfrBarraDatos.actProcedenciasExecute(Sender: TObject);
|
||||
begin
|
||||
CaptionModal := 'Lista de procedencias de cliente';
|
||||
HeightModal := 358;
|
||||
WidthModal := 530;
|
||||
ModoModal := Anadir;
|
||||
EntidadModal := entProcedencias;
|
||||
ContenidoModal := TfrProcedencias.Create(Self);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
360
Datos/Procedencias.dfm
Normal file
360
Datos/Procedencias.dfm
Normal file
@ -0,0 +1,360 @@
|
||||
object frProcedencias: TfrProcedencias
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 631
|
||||
Height = 457
|
||||
Color = 16383743
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
OnShow = RdxDBFrameShow
|
||||
BarraOperacion = brDoble
|
||||
object BarraProcedencias: TRdxBarraSuperior
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 631
|
||||
Height = 25
|
||||
Caption = 'Procedencias de cliente'
|
||||
BorderWidth = 1
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = 14470061
|
||||
Font.Height = -19
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
Color = 8934690
|
||||
ColorHighLight = 8623776
|
||||
ColorShadow = 8623776
|
||||
Align = alTop
|
||||
Alignment = taRightJustify
|
||||
TabOrder = 2
|
||||
UseDockManager = True
|
||||
Margen = 5
|
||||
object imgSombra: TImage
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 629
|
||||
Height = 8
|
||||
Align = alTop
|
||||
end
|
||||
end
|
||||
object brDoble: TRdxBarraInferior
|
||||
Left = 0
|
||||
Top = 407
|
||||
Width = 631
|
||||
Height = 50
|
||||
Caption = ' '
|
||||
ParentColor = True
|
||||
Visible = False
|
||||
ColorHighLight = clBtnFace
|
||||
ColorShadow = clBtnFace
|
||||
Align = alBottom
|
||||
TabOrder = 1
|
||||
UseDockManager = True
|
||||
Margen = 10
|
||||
object bAceptar: TRdxBoton
|
||||
Left = 10
|
||||
Top = 20
|
||||
Width = 75
|
||||
Height = 25
|
||||
Action = actAceptar
|
||||
Alignment = taLeftJustify
|
||||
Color = 14280169
|
||||
ColorFocused = 12775679
|
||||
ColorDown = 14280169
|
||||
ColorBorder = 8623776
|
||||
ColorHighLight = 8623776
|
||||
ColorShadow = 8623776
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
FontDown.Charset = DEFAULT_CHARSET
|
||||
FontDown.Color = clWindowText
|
||||
FontDown.Height = -11
|
||||
FontDown.Name = 'Tahoma'
|
||||
FontDown.Style = []
|
||||
FontDisabled.Charset = DEFAULT_CHARSET
|
||||
FontDisabled.Color = clWindowText
|
||||
FontDisabled.Height = -11
|
||||
FontDisabled.Name = 'MS Sans Serif'
|
||||
FontDisabled.Style = []
|
||||
Glyph.Data = {
|
||||
36030000424D3603000000000000360000002800000010000000100000000100
|
||||
18000000000000030000130B0000130B00000000000000000000FFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFAFAFAEBEBEBE6E6E6EBEBEBFAFAFAFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAFAFADCDCDCA8A8A898
|
||||
9898A8A8A8DCDCDCFAFAFAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFAFAFADCDCDC7DB90C75AC0E75AC0E848484A8A8A8EBEBEBFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAFAFADCDCDC7AB40D7DB90C84C50B7D
|
||||
B90C75AC0E949494D7D7D7FAFAFAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAFAFA
|
||||
DCDCDC7AB40D71A61084C50B84C50B87C90A89CD09848484A8A8A8EBEBEBFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFEBEBEB7AB40D71A61084C50B8CD2077AB40D7D
|
||||
B90C80BF0B89CD09949494D7D7D7FAFAFAFFFFFFFFFFFFFFFFFFFFFFFF7AB40D
|
||||
71A61092DB058CD20775AC0EDCDCDC80BF0B84C50B89CD09848484A8A8A8EBEB
|
||||
EBFFFFFFFFFFFFFFFFFFFFFFFF6EA11198E60375AC0E6EA111DCDCDCFAFAFAFF
|
||||
FFFF84C50B89CD0989CD09949494D7D7D7FAFAFAFFFFFFFFFFFFFFFFFF618D13
|
||||
75AC0E659212EBEBEBFAFAFAFFFFFFFFFFFF87C90A8CD20784C50B848484A8A8
|
||||
A8EBEBEBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFF8CD20792DB0587C90A949494D7D7D7FAFAFAFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF90D70692DB0584C50B8484
|
||||
84A8A8A8EBEBEBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFF96E30498E60387C90A949494D7D7D7FAFAFAFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF96E3049AEA0284C5
|
||||
0B848484A8A8A8EBEBEBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFF9AEA0292DB0584C50BADADADEBEBEBFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF92DB057AB4
|
||||
0D92DB05EBEBEBFAFAFAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
|
||||
Margin = 5
|
||||
ParentFont = False
|
||||
ParentColor = False
|
||||
TabStop = True
|
||||
TabOrder = 0
|
||||
Spacing = 6
|
||||
end
|
||||
object bCancelar: TRdxBoton
|
||||
Left = 95
|
||||
Top = 20
|
||||
Width = 75
|
||||
Height = 25
|
||||
Cancel = True
|
||||
Action = actCancelar
|
||||
Alignment = taLeftJustify
|
||||
Color = 14280169
|
||||
ColorFocused = 12775679
|
||||
ColorDown = 14280169
|
||||
ColorBorder = 8623776
|
||||
ColorHighLight = 8623776
|
||||
ColorShadow = 8623776
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
FontDown.Charset = DEFAULT_CHARSET
|
||||
FontDown.Color = clWindowText
|
||||
FontDown.Height = -11
|
||||
FontDown.Name = 'Tahoma'
|
||||
FontDown.Style = []
|
||||
FontDisabled.Charset = DEFAULT_CHARSET
|
||||
FontDisabled.Color = clWindowText
|
||||
FontDisabled.Height = -11
|
||||
FontDisabled.Name = 'MS Sans Serif'
|
||||
FontDisabled.Style = []
|
||||
Glyph.Data = {
|
||||
36030000424D3603000000000000360000002800000010000000100000000100
|
||||
18000000000000030000130B0000130B00000000000000000000FFFFFFFAFAFA
|
||||
EBEBEBE6E6E6EBEBEBFAFAFAFFFFFFFFFFFFFAFAFAEBEBEBEBEBEBFAFAFAFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFEBEBEBADADAD989898ADADADEBEBEBFFFFFFFA
|
||||
FAFADCDCDCA8A8A8A8A8A8DCDCDCFAFAFAFFFFFFFFFFFFFFFFFFFFFFFF1B1BCB
|
||||
0807BE0807BE949494D7D7D7F5F5F5DCDCDC0505BC0505BC848484A8A8A8EBEB
|
||||
EBFFFFFFFFFFFFFFFFFFFFFFFF393ADF5F5FF84B4CEA848484A3A3A3C8C8C813
|
||||
13C56867FD6B6BFF2827D3989898E6E6E6FFFFFFFFFFFFFFFFFFFFFFFF4F4EEC
|
||||
6363F96A6AFE4343E58484841313C55B5BF56A6AFE6A6AFE3839DE999999E6E6
|
||||
E6FFFFFFFFFFFFFFFFFFFFFFFF393ADE5A5AF45A5AF46766FC4343E55B5BF563
|
||||
63F96766FC5E5EF7201FCDA8A8A8EBEBEBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
393ADE5251EE5454F05F5EF76363F95555F16363F94A4BE9201FCCD7D7D7FAFA
|
||||
FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF393ADE4F4EEC5251EE5454F063
|
||||
63F94B4CEA201FCD989898E6E6E6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFF4A4BE94242E44A4BE94A4BE94B4CEA201FCD949494D7D7D7FAFA
|
||||
FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAFAFA4343E53839DE4242E442
|
||||
42E44A4BE94343E5848484A3A3A3DCDCDCFAFAFAFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFEBEBEB4F4EEC2D2DD63637DC3839DE4242E44242E41B1BCB848484A3A3
|
||||
A3DCDCDCFAFAFAFFFFFFFFFFFFFFFFFFFAFAFA3434DB3434DB2C2CD53333DA34
|
||||
34DB3434DB3C3CE04242E41313C5848484A8A8A8EBEBEBFFFFFFFFFFFFFFFFFF
|
||||
EBEBEB3434DB3333DA2222CF2827D3504FEC4242E43434DB3637DC3738DD1313
|
||||
C5999999E6E6E6FFFFFFFFFFFFFFFFFF5251EE393ADF1B1BCB3434DB3C3CE0A8
|
||||
A8A82D2DD53C3CE03434DB4242E41313C5ADADADEBEBEBFFFFFFFFFFFFFFFFFF
|
||||
504FEC4343E54343E54343E53434DADCDCDCFAFAFA2222CE393ADE3D3DE02D2D
|
||||
D5EBEBEBFAFAFAFFFFFFFFFFFFFFFFFFFFFFFF504FED4B4CEA4B4CEAEBEBEBFA
|
||||
FAFAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
|
||||
Margin = 5
|
||||
ParentFont = False
|
||||
ParentColor = False
|
||||
TabStop = True
|
||||
TabOrder = 1
|
||||
Spacing = 6
|
||||
end
|
||||
end
|
||||
object pnlCuerpo: TRdxPanel
|
||||
Left = 0
|
||||
Top = 25
|
||||
Width = 631
|
||||
Height = 382
|
||||
Caption = ' '
|
||||
BorderWidth = 10
|
||||
ParentColor = True
|
||||
ColorHighLight = 8623776
|
||||
ColorShadow = 8623776
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
UseDockManager = True
|
||||
object pnlBotones: TRdxPanel
|
||||
Left = 536
|
||||
Top = 10
|
||||
Width = 85
|
||||
Height = 362
|
||||
Caption = ' '
|
||||
BorderWidth = 10
|
||||
ParentColor = True
|
||||
ColorHighLight = 8623776
|
||||
ColorShadow = 8623776
|
||||
Align = alRight
|
||||
TabOrder = 0
|
||||
UseDockManager = True
|
||||
object bAnadir: TRdxBoton
|
||||
Left = 10
|
||||
Top = 0
|
||||
Width = 75
|
||||
Height = 19
|
||||
Action = actAnadir
|
||||
Alignment = taLeftJustify
|
||||
Color = 14280169
|
||||
ColorFocused = 12775679
|
||||
ColorDown = 14280169
|
||||
ColorBorder = 8623776
|
||||
ColorHighLight = 8623776
|
||||
ColorShadow = 8623776
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
FontDown.Charset = DEFAULT_CHARSET
|
||||
FontDown.Color = clWindowText
|
||||
FontDown.Height = -11
|
||||
FontDown.Name = 'Tahoma'
|
||||
FontDown.Style = []
|
||||
FontDisabled.Charset = DEFAULT_CHARSET
|
||||
FontDisabled.Color = clWindowText
|
||||
FontDisabled.Height = -11
|
||||
FontDisabled.Name = 'MS Sans Serif'
|
||||
FontDisabled.Style = []
|
||||
Margin = 10
|
||||
ParentFont = False
|
||||
ParentColor = False
|
||||
TabStop = True
|
||||
TabOrder = 0
|
||||
Spacing = 0
|
||||
end
|
||||
object bEliminar: TRdxBoton
|
||||
Left = 10
|
||||
Top = 26
|
||||
Width = 75
|
||||
Height = 19
|
||||
Action = actEliminar
|
||||
Alignment = taLeftJustify
|
||||
Color = 14280169
|
||||
ColorFocused = 12775679
|
||||
ColorDown = 14280169
|
||||
ColorBorder = 8623776
|
||||
ColorHighLight = 8623776
|
||||
ColorShadow = 8623776
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
FontDown.Charset = DEFAULT_CHARSET
|
||||
FontDown.Color = clWindowText
|
||||
FontDown.Height = -11
|
||||
FontDown.Name = 'Tahoma'
|
||||
FontDown.Style = []
|
||||
FontDisabled.Charset = DEFAULT_CHARSET
|
||||
FontDisabled.Color = clWindowText
|
||||
FontDisabled.Height = -11
|
||||
FontDisabled.Name = 'MS Sans Serif'
|
||||
FontDisabled.Style = []
|
||||
Margin = 10
|
||||
ParentFont = False
|
||||
ParentColor = False
|
||||
TabStop = True
|
||||
TabOrder = 1
|
||||
Spacing = 0
|
||||
end
|
||||
end
|
||||
object gridProcedencias: TcxGrid
|
||||
Left = 10
|
||||
Top = 10
|
||||
Width = 526
|
||||
Height = 362
|
||||
Align = alClient
|
||||
BevelInner = bvNone
|
||||
BevelKind = bkFlat
|
||||
BorderStyle = cxcbsNone
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
LookAndFeel.Kind = lfFlat
|
||||
LookAndFeel.NativeStyle = True
|
||||
object gridProcedenciasDBTableView1: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
DataController.DataSource = dsProcedencias
|
||||
DataController.KeyFieldNames = 'CODIGO'
|
||||
DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.FocusCellOnTab = True
|
||||
OptionsBehavior.FocusFirstCellOnNewRecord = True
|
||||
OptionsBehavior.GoToNextCellOnEnter = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsCustomize.ColumnGrouping = False
|
||||
OptionsCustomize.ColumnMoving = False
|
||||
OptionsCustomize.ColumnSorting = False
|
||||
OptionsData.Appending = True
|
||||
OptionsData.DeletingConfirmation = False
|
||||
OptionsSelection.InvertSelect = False
|
||||
OptionsView.CellEndEllipsis = True
|
||||
OptionsView.ColumnAutoWidth = True
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GridLineColor = 14280169
|
||||
OptionsView.GridLines = glHorizontal
|
||||
OptionsView.GroupByBox = False
|
||||
OptionsView.HeaderEndEllipsis = True
|
||||
OptionsView.NewItemRowInfoText = 'Click here to add a new row'
|
||||
OptionsView.RowSeparatorColor = 14280169
|
||||
Styles.StyleSheet = dmConfiguracion.StyleSheetGrid
|
||||
end
|
||||
object gridProcedenciasLevel1: TcxGridLevel
|
||||
GridView = gridProcedenciasDBTableView1
|
||||
end
|
||||
end
|
||||
end
|
||||
object dsProcedencias: TDataSource
|
||||
Left = 554
|
||||
Top = 107
|
||||
end
|
||||
object ActionList1: TActionList
|
||||
Left = 552
|
||||
Top = 144
|
||||
object actAnadir: TAction
|
||||
Caption = 'A&'#241'adir'
|
||||
OnExecute = actAnadirExecute
|
||||
OnUpdate = actAnadirUpdate
|
||||
end
|
||||
object actEliminar: TAction
|
||||
Caption = '&Eliminar'
|
||||
OnExecute = actEliminarExecute
|
||||
OnUpdate = actEliminarUpdate
|
||||
end
|
||||
object actAceptar: TAction
|
||||
Caption = '&Aceptar'
|
||||
OnExecute = actAceptarExecute
|
||||
end
|
||||
object actCancelar: TAction
|
||||
Caption = '&Cancelar'
|
||||
OnExecute = actCancelarExecute
|
||||
end
|
||||
end
|
||||
end
|
||||
254
Datos/Procedencias.pas
Normal file
254
Datos/Procedencias.pas
Normal file
@ -0,0 +1,254 @@
|
||||
{
|
||||
===============================================================================
|
||||
Copyright (©) 2007. 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: 03-04-2007
|
||||
Versión actual: 1.0.0
|
||||
Fecha versión actual: 03-04-2007
|
||||
===============================================================================
|
||||
Modificaciones:
|
||||
|
||||
Fecha Comentarios
|
||||
---------------------------------------------------------------------------
|
||||
===============================================================================
|
||||
}
|
||||
|
||||
unit Procedencias;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||||
Db, RdxBotones, RdxBarras, Grids, DBGrids, RXDBCtrl, ExtCtrls, RdxPaneles,
|
||||
IBCustomDataSet, IBQuery, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxEdit, cxDBData,
|
||||
cxGridLevel, cxClasses, cxControls, cxGridCustomView, Configuracion,
|
||||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid,
|
||||
RdxDBFrame, cxGridCardView, cxGridDBCardView, IB, IBErrorCodes, ActnList,
|
||||
Entidades, cxDataStorage;
|
||||
|
||||
|
||||
type
|
||||
TfrProcedencias = class(TRdxDBFrame)
|
||||
BarraProcedencias: TRdxBarraSuperior;
|
||||
dsProcedencias: TDataSource;
|
||||
brDoble: TRdxBarraInferior;
|
||||
bAceptar: TRdxBoton;
|
||||
bCancelar: TRdxBoton;
|
||||
pnlCuerpo: TRdxPanel;
|
||||
pnlBotones: TRdxPanel;
|
||||
bAnadir: TRdxBoton;
|
||||
bEliminar: TRdxBoton;
|
||||
gridProcedencias: TcxGrid;
|
||||
gridProcedenciasDBTableView1: TcxGridDBTableView;
|
||||
gridProcedenciasLevel1: TcxGridLevel;
|
||||
ActionList1: TActionList;
|
||||
actAnadir: TAction;
|
||||
actEliminar: TAction;
|
||||
actAceptar: TAction;
|
||||
actCancelar: TAction;
|
||||
imgSombra: TImage;
|
||||
procedure RdxDBFrameShow(Sender: TObject);
|
||||
procedure actAnadirExecute(Sender: TObject);
|
||||
procedure actEliminarExecute(Sender: TObject);
|
||||
procedure actAceptarExecute(Sender: TObject);
|
||||
procedure actCancelarExecute(Sender: TObject);
|
||||
procedure actAnadirUpdate(Sender: TObject);
|
||||
procedure actEliminarUpdate(Sender: TObject);
|
||||
private
|
||||
TablaProcedencias : TIBDataSet;
|
||||
procedure ProcedenciasOnNewRecord(DataSet: TDataSet);
|
||||
protected
|
||||
procedure ActivarModoAnadir; override;
|
||||
function CambiarEntidad(EntidadAnterior, Entidad : TRdxEntidad): Boolean; override;
|
||||
public
|
||||
constructor Create (AOwner : TComponent); override;
|
||||
destructor Destroy; override;
|
||||
published
|
||||
procedure AppException(Sender: TObject; E: Exception);
|
||||
end;
|
||||
|
||||
var
|
||||
frProcedencias: TfrProcedencias;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
{ TfrProcedencias }
|
||||
|
||||
uses
|
||||
BaseDatos, TablaProcedencias, Mensajes, Excepciones, Literales;
|
||||
|
||||
constructor TfrProcedencias.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited Create(AOwner);
|
||||
Entidad := entProcedencias;
|
||||
ConfigurarFrame(Self, Entidad);
|
||||
|
||||
Application.OnException := AppException;
|
||||
BaseDatos := dmBaseDatos.BD;
|
||||
Transaccion := dmBaseDatos.Transaccion;
|
||||
TablaProcedencias := TIBDataSet.Create(Self);
|
||||
TablaProcedencias.OnNewRecord := ProcedenciasOnNewRecord;
|
||||
dsProcedencias.DataSet := TablaProcedencias;
|
||||
|
||||
with TablaProcedencias do
|
||||
begin
|
||||
Database := BaseDatos;
|
||||
Transaction := Transaccion;
|
||||
InsertSQL.Assign(dmTablaProcedencias.sqlInsertar);
|
||||
ModifySQL.Assign(dmTablaProcedencias.sqlModificar);
|
||||
DeleteSQL.Assign(dmTablaProcedencias.sqlEliminar);
|
||||
SelectSQL.Assign(dmTablaProcedencias.sqlConsultar);
|
||||
end;
|
||||
bCancelar.Cancel := True;
|
||||
end;
|
||||
|
||||
destructor TfrProcedencias.Destroy;
|
||||
begin
|
||||
Application.OnException := NIL;
|
||||
TablaProcedencias.Close;
|
||||
TablaProcedencias.UnPrepare;
|
||||
TablaProcedencias.Free;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfrProcedencias.ProcedenciasOnNewRecord(DataSet: TDataSet);
|
||||
begin
|
||||
DataSet.FieldByName('CODIGO').AsInteger := dmTablaProcedencias.darContadorProcedencias;
|
||||
end;
|
||||
|
||||
procedure TfrProcedencias.AppException(Sender: TObject; E: Exception);
|
||||
begin
|
||||
if E.Message = 'Field ''DESCRIPCION'' must have a value' then begin
|
||||
VerMensaje(msgDatosFaltaDescripcionProc);
|
||||
TablaProcedencias.Edit;
|
||||
end
|
||||
else if E.Message = 'violation of PRIMARY or UNIQUE KEY constraint "UNQ_PROCEDENCIAS" on table "PROCEDENCIAS"' then begin
|
||||
VerMensajeFmt(msgDatosProcRepetida, [UpperCase(TablaProcedencias.FieldByName('DESCRIPCION').AsString)]);
|
||||
TablaProcedencias.Edit;
|
||||
end
|
||||
else
|
||||
TratarExcepcion(E);
|
||||
end;
|
||||
|
||||
procedure TfrProcedencias.ActivarModoAnadir;
|
||||
begin
|
||||
try
|
||||
with TablaProcedencias do
|
||||
begin
|
||||
Prepare;
|
||||
Open;
|
||||
|
||||
if RecordCount = 0 then
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('DESCRIPCION').AsString := ' ';
|
||||
Post;
|
||||
Delete
|
||||
end
|
||||
else begin
|
||||
Edit;
|
||||
Post;
|
||||
end;
|
||||
end;
|
||||
dmTablaProcedencias.InicializarGridProcedencias(gridProcedenciasDBTableView1);
|
||||
ActivarEdicionGridDetalles(gridProcedencias);
|
||||
except
|
||||
on E : EIBError do
|
||||
begin
|
||||
case E.IBErrorCode of
|
||||
isc_lock_conflict : begin
|
||||
Rollback;
|
||||
VerMensaje(msgDatosTablaFamBloqueada);
|
||||
CloseFrame;
|
||||
end
|
||||
else begin
|
||||
Rollback;
|
||||
TratarExcepcion(E);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
on E : Exception do begin
|
||||
Rollback;
|
||||
TratarExcepcion(E);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrProcedencias.RdxDBFrameShow(Sender: TObject);
|
||||
begin
|
||||
bCancelar.SetFocus;
|
||||
end;
|
||||
|
||||
procedure TfrProcedencias.actAnadirExecute(Sender: TObject);
|
||||
begin
|
||||
TablaProcedencias.Insert;
|
||||
gridProcedencias.SetFocus;
|
||||
end;
|
||||
|
||||
procedure TfrProcedencias.actEliminarExecute(Sender: TObject);
|
||||
begin
|
||||
if (VerMensajePregunta(msgDeseaBorrar) <> IDYES) then
|
||||
Exit;
|
||||
try
|
||||
if TablaProcedencias.RecordCount = 0 then
|
||||
{ Hacemos un cancel de la tabla por si el registro actual estuviera
|
||||
recien creado }
|
||||
TablaProcedencias.Cancel
|
||||
else
|
||||
TablaProcedencias.Delete
|
||||
except
|
||||
on E : EIBError do
|
||||
TratarExcepcion(E);
|
||||
on E : Exception do
|
||||
TratarExcepcion(E);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrProcedencias.actAceptarExecute(Sender: TObject);
|
||||
begin
|
||||
if TablaProcedencias.State in [dsEdit, dsInsert] then
|
||||
TablaProcedencias.Post;
|
||||
Commit;
|
||||
CloseFrame;
|
||||
end;
|
||||
|
||||
procedure TfrProcedencias.actCancelarExecute(Sender: TObject);
|
||||
begin
|
||||
try
|
||||
Rollback;
|
||||
CloseFrame;
|
||||
except
|
||||
on E : EIBError do
|
||||
TratarExcepcion(E);
|
||||
on E : Exception do
|
||||
TratarExcepcion(E);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrProcedencias.actAnadirUpdate(Sender: TObject);
|
||||
begin
|
||||
(Sender as TAction).Enabled := not BaseDatos.IsReadOnly;
|
||||
end;
|
||||
|
||||
procedure TfrProcedencias.actEliminarUpdate(Sender: TObject);
|
||||
begin
|
||||
(Sender as TAction).Enabled := not BaseDatos.IsReadOnly;
|
||||
end;
|
||||
|
||||
function TfrProcedencias.CambiarEntidad(EntidadAnterior, Entidad: TRdxEntidad): Boolean;
|
||||
begin
|
||||
inherited CambiarEntidad(EntidadAnterior, Entidad);
|
||||
ConfigurarFrame(Self, Self.Entidad);
|
||||
end;
|
||||
|
||||
end.
|
||||
14
Factuges.dpr
14
Factuges.dpr
@ -185,7 +185,7 @@ uses
|
||||
TablaCitas in 'BaseDatos\TablaCitas.pas' {dmTablaCitas: TDataModule},
|
||||
EditorEventos in 'Agenda\EditorEventos.pas' {frEditorEventos},
|
||||
CalendarioRecepciones in 'Agenda\CalendarioRecepciones.pas' {frCalendarioRecepciones: TRdxFrame},
|
||||
cxSchedulerEventEditor in 'C:\Archivos de programa\Developer Express Inc\ExpressScheduler 2\Sources\cxSchedulerEventEditor.pas' {cxSchedulerEventEditorForm},
|
||||
cxSchedulerEventEditor in '..\Archivos de programa\Developer Express Inc\ExpressScheduler 2\Sources\cxSchedulerEventEditor.pas' {cxSchedulerEventEditorForm},
|
||||
CalendarioMontajes in 'Agenda\CalendarioMontajes.pas' {frCalendarioMontajes: TRdxFrame},
|
||||
InformeBaseFR3 in 'Informes\InformeBaseFR3.pas' {dmInformeBaseFR3: TDataModule},
|
||||
InformeEstadoObra in 'Informes\InformeEstadoObra.pas' {dmInformeEstadoObra: TDataModule},
|
||||
@ -194,7 +194,17 @@ uses
|
||||
AlbaranesClientes in 'Clientes\AlbaranesClientes.pas' {frAlbaranesClientes: TRdxFrameAlbaranesCliente},
|
||||
InformeAlbaranCliente in 'Informes\InformeAlbaranCliente.pas' {dmInformeAlbaranCliente: TDataModule},
|
||||
ImprimirAlbaranCliente in 'Clientes\ImprimirAlbaranCliente.pas' {frImprimirAlbaranCliente: TRdxFrame},
|
||||
VistaRichEditor in 'VistaRichEditor.pas' {frVistaRichEdit: TFrame};
|
||||
VistaRichEditor in 'VistaRichEditor.pas' {frVistaRichEdit: TFrame},
|
||||
TablaProcedencias in 'BaseDatos\TablaProcedencias.pas' {dmTablaProcedencias: TDataModule},
|
||||
Procedencias in 'Datos\Procedencias.pas' {frProcedencias: TRdxDBFrame},
|
||||
ListadoFacturacionProcedencia in 'Clientes\ListadoFacturacionProcedencia.pas' {frListadoFacturacionProcedencia: TRdxFrame},
|
||||
InformeListadoFacturacionProcedencia in 'Informes\InformeListadoFacturacionProcedencia.pas' {dmInformeListadoFacturacionProcedencia: TDataModule},
|
||||
InformeListadoPresupuestosProcedencia in 'Informes\InformeListadoPresupuestosProcedencia.pas' {dmInformeListadoPresupuestosProcedencia: TDataModule},
|
||||
InformeListadoProcedencias in 'Informes\InformeListadoProcedencias.pas' {dmInformeListadoProcedencias: TDataModule},
|
||||
InformeListadoContratacionProcedencia in 'Informes\InformeListadoContratacionProcedencia.pas' {dmInformeListadoContratacionProcedencia: TDataModule},
|
||||
ListadoPresupuestosProcedencia in 'Clientes\ListadoPresupuestosProcedencia.pas' {frListadoPresupuestosProcedencia: TRdxFrame},
|
||||
ListadoProcedencias in 'Clientes\ListadoProcedencias.pas' {frListadoProcedencias: TRdxFrame},
|
||||
ListadoContratacionProcedencia in 'Clientes\ListadoContratacionProcedencia.pas' {frListadoContratacionProcedencia: TRdxFrame};
|
||||
|
||||
{$R *.RES}
|
||||
{$R Prueba.res}
|
||||
|
||||
4588
Factuges.drc
4588
Factuges.drc
File diff suppressed because it is too large
Load Diff
@ -40,6 +40,7 @@ type
|
||||
entVendedor,
|
||||
entInstalador,
|
||||
entFamilias,
|
||||
entProcedencias,
|
||||
entPropiedades,
|
||||
entFormasPago,
|
||||
entComisiones,
|
||||
@ -100,6 +101,10 @@ type
|
||||
entResumenFacturacionProveedores,
|
||||
entListadoProveedores,
|
||||
entListadoClientes,
|
||||
entListadoFacturacionProcedencia,
|
||||
entListadoContratacionProcedencia,
|
||||
entListadoProcedencias,
|
||||
entListadoPresupuestosProcedencia,
|
||||
entListadoLibros,
|
||||
entInformeTrimestralVentas,
|
||||
entInformeTrimestralCompras
|
||||
@ -123,6 +128,7 @@ const
|
||||
('vendedor'), //entVendedor
|
||||
('instalador'), //entInstalador
|
||||
('familias'), //entFamilias
|
||||
('procedencias'), //entProcedencias
|
||||
('propiedades'), //entPropiedades
|
||||
('formas de pago'), //entFormasPago
|
||||
('comisiones de vendedor'), //entComisiones
|
||||
@ -183,7 +189,11 @@ const
|
||||
('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
|
||||
);
|
||||
@ -226,6 +236,7 @@ begin
|
||||
entVendedor,
|
||||
entInstalador,
|
||||
entFamilias,
|
||||
entProcedencias,
|
||||
entPropiedades,
|
||||
entFormasPago,
|
||||
entComisiones,
|
||||
@ -261,7 +272,11 @@ begin
|
||||
entAbonoVarios,
|
||||
entFacturaProforma,
|
||||
entAlbaranCliente,
|
||||
entListadoClientes : Result := 'Clientes';
|
||||
entListadoClientes,
|
||||
entListadoFacturacionProcedencia,
|
||||
entListadoContratacionProcedencia,
|
||||
entListadoProcedencias,
|
||||
entListadoPresupuestosProcedencia : Result := 'Clientes';
|
||||
|
||||
//PROVEEDORES
|
||||
entProveedor,
|
||||
|
||||
@ -8,195 +8,200 @@
|
||||
resources were bound to the produced executable.
|
||||
*/
|
||||
|
||||
#define Literales_msgLibCierre 65280
|
||||
#define Literales_msgVisBorrarVisita 65281
|
||||
#define Literales_msgVisBorrarVisitas 65282
|
||||
#define Literales_msgTriCodigoErroneo 65283
|
||||
#define Literales_msgTriCerrado 65284
|
||||
#define Literales_msgTriFacTriCer 65285
|
||||
#define Literales_msgTriPredeterminadoErr 65286
|
||||
#define Literales_msgTriPredeterminadoOk 65287
|
||||
#define Literales_msgTriCerrarPredeterminado 65288
|
||||
#define Literales_msgOpcTablaContBloqueada 65289
|
||||
#define Literales_msgOpcContadoresInc 65290
|
||||
#define Literales_msgInfTri0 65291
|
||||
#define Literales_msgInfTri1 65292
|
||||
#define Literales_msgCliIniMayor 65296
|
||||
#define Literales_msgCliNoHayCli 65297
|
||||
#define Literales_msgCliListBene1 65298
|
||||
#define Literales_msgCliListBeneNoFac 65299
|
||||
#define Literales_msgCliListBeneCon1 65300
|
||||
#define Literales_msgCliListBeneCon2 65301
|
||||
#define Literales_msgCliListBeneCon3 65302
|
||||
#define Literales_msgCliListBeneCon4 65303
|
||||
#define Literales_msgCliListBeneCon5 65304
|
||||
#define Literales_msgCliListBeneNoCon 65305
|
||||
#define Literales_msgCliBorrarPropiedades 65306
|
||||
#define Literales_msgLibNoExisteEnt 65307
|
||||
#define Literales_msgLibEntBloqueada 65308
|
||||
#define Literales_msgLibNumEntRepetida 65309
|
||||
#define Literales_msgLibNumEntIncorrecta 65310
|
||||
#define Literales_msgLibFaltaDescEnt 65311
|
||||
#define Literales_msgCliNoExistePag 65312
|
||||
#define Literales_msgCliPagBloqueado 65313
|
||||
#define Literales_msgCliCodPagNoExiste 65314
|
||||
#define Literales_msgCliBorrarPago 65315
|
||||
#define Literales_msgCliFaltaCliPag 65316
|
||||
#define Literales_msgCliFaltaDescPag 65317
|
||||
#define Literales_msgCliErrorOp 65318
|
||||
#define Literales_msgCliSep1 65319
|
||||
#define Literales_msgCliSep2 65320
|
||||
#define Literales_msgCliSep3 65321
|
||||
#define Literales_msgCliSep4 65322
|
||||
#define Literales_msgCliSep5 65323
|
||||
#define Literales_msgCliSep6 65324
|
||||
#define Literales_msgCliSep7 65325
|
||||
#define Literales_msgCliSep8 65326
|
||||
#define Literales_msgCliSep9 65327
|
||||
#define Literales_msgCliSinProvincia 65328
|
||||
#define Literales_msgCliFaltaNombreCliFac 65329
|
||||
#define Literales_msgCliCodArtNoExiste 65330
|
||||
#define Literales_msgCliCodArtIncorrecto 65331
|
||||
#define Literales_msgCliFaltaFechaAlta 65332
|
||||
#define Literales_msgCliFaltaArticulos 65333
|
||||
#define Literales_msgCliFaltaFechaVto 65334
|
||||
#define Literales_msgCliFechaVtoMenorFechaAlta 65335
|
||||
#define Literales_msgCliNoExisteFac 65336
|
||||
#define Literales_msgCliFacBloqueado 65337
|
||||
#define Literales_msgCliCodFacProRepetido 65338
|
||||
#define Literales_msgCliCodFacProIncorrecto 65339
|
||||
#define Literales_msgCliNoExisteFacPro 65340
|
||||
#define Literales_msgCliFacProBloqueado 65341
|
||||
#define Literales_msgCliCodPagRepetido 65342
|
||||
#define Literales_msgCliCodPagIncorrecto 65343
|
||||
#define Literales_msgObrFaltaObr 65344
|
||||
#define Literales_msgObrAnadida 65345
|
||||
#define Literales_msgObrErrAnadir 65346
|
||||
#define Literales_msgObrNoExisteObr 65347
|
||||
#define Literales_msgObrObrBloqueado 65348
|
||||
#define Literales_msgObrInsRepetido 65349
|
||||
#define Literales_msgObrPedDesObl 65350
|
||||
#define Literales_msgObrPedSelec 65351
|
||||
#define Literales_msgObrPrePedBorrar 65352
|
||||
#define Literales_msgObrInsConOtrasTareas1 65353
|
||||
#define Literales_msgObrInsConOtrasTareas2 65354
|
||||
#define Literales_msgObrElijaContrago 65355
|
||||
#define Literales_msgObrEliminarDetalles 65356
|
||||
#define Literales_msgObrEliminarTodosDetalles 65357
|
||||
#define Literales_msgCliCodFacRepetido 65358
|
||||
#define Literales_msgCliCodFacIncorrecto 65359
|
||||
#define Literales_msgCliPreErrEliminarDoc 65360
|
||||
#define Literales_msgCliCodConRepetido 65361
|
||||
#define Literales_msgCliCodConIncorrecto 65362
|
||||
#define Literales_msgCliFaltaNombreCliCon 65363
|
||||
#define Literales_msgCliFaltaFechaAltaCon 65364
|
||||
#define Literales_msgCliFaltaArticulosCon 65365
|
||||
#define Literales_msgCliNoExisteCon 65366
|
||||
#define Literales_msgCliConBloqueado 65367
|
||||
#define Literales_msgCliCrearContrato 65368
|
||||
#define Literales_msgCliCodConNoExiste 65369
|
||||
#define Literales_litObrObra 65370
|
||||
#define Literales_litObrPedidos 65371
|
||||
#define Literales_litObrOtros 65372
|
||||
#define Literales_litObrEntregas 65373
|
||||
#define Literales_litObrMontajes 65374
|
||||
#define Literales_litObrRemates 65375
|
||||
#define Literales_msgCliSobraFechaDecisionPre 65376
|
||||
#define Literales_msgCliFaltaArticulosPre 65377
|
||||
#define Literales_msgCliNoExistePre 65378
|
||||
#define Literales_msgCliNoExistePreOrigen 65379
|
||||
#define Literales_msgCliPreBloqueado 65380
|
||||
#define Literales_msgCliPreYaAceptado 65381
|
||||
#define Literales_msgCliPreYaRechazado 65382
|
||||
#define Literales_msgCliCambiarAAceptar 65383
|
||||
#define Literales_msgCliCambiarARechazar 65384
|
||||
#define Literales_msgCliPreConContrato 65385
|
||||
#define Literales_msgCliPreYaFacturado 65386
|
||||
#define Literales_msgCliPreNoModificar 65387
|
||||
#define Literales_msgCliPreNoEliminar 65388
|
||||
#define Literales_msgCliCambiarTipoPre 65389
|
||||
#define Literales_msgCliNoExisteTipoPre 65390
|
||||
#define Literales_msgCliPreErrAnadirDoc 65391
|
||||
#define Literales_msgCliCliBloqueado 65392
|
||||
#define Literales_msgCliBorrarSucursal 65393
|
||||
#define Literales_msgCliBorrarSucursales 65394
|
||||
#define Literales_msgCliCodCliNoExiste 65395
|
||||
#define Literales_msgCliFaltaCodCli 65396
|
||||
#define Literales_msgCliCliNoElim 65397
|
||||
#define Literales_msgCliCliNoFacPag 65398
|
||||
#define Literales_msgCliNoExisteCodigo 65399
|
||||
#define Literales_msgCliCodigoIniMenor 65400
|
||||
#define Literales_msgCliCodigoIncorrecto 65401
|
||||
#define Literales_msgCliFaltanCodigos 65402
|
||||
#define Literales_msgCliCodPreRepetido 65403
|
||||
#define Literales_msgCliCodPreIncorrecto 65404
|
||||
#define Literales_msgCliFaltaNombreCliPre 65405
|
||||
#define Literales_msgCliFaltaFechaAltaPre 65406
|
||||
#define Literales_msgCliFaltaFechaDecisionPre 65407
|
||||
#define Literales_msgProvCodPagIncorrecto 65408
|
||||
#define Literales_msgProvNoExistePag 65409
|
||||
#define Literales_msgProvPagBloqueado 65410
|
||||
#define Literales_msgProvCodPagNoExiste 65411
|
||||
#define Literales_msgProvBorrarPago 65412
|
||||
#define Literales_msgProvFaltaProPag 65413
|
||||
#define Literales_msgProvFaltaDescPag 65414
|
||||
#define Literales_msgProvIniMayor 65415
|
||||
#define Literales_msgProvNoHayProv 65416
|
||||
#define Literales_msgCodPedNoExiste 65417
|
||||
#define Literales_msgCodPedIncorrecto 65418
|
||||
#define Literales_msgCliCodCliRepetido 65419
|
||||
#define Literales_msgCliCodCliIncorrecto 65420
|
||||
#define Literales_msgCliFaltaNombreCli 65421
|
||||
#define Literales_msgCliFaltaCli 65422
|
||||
#define Literales_msgCliNoExisteCli 65423
|
||||
#define Literales_msgTipFacturas2 65424
|
||||
#define Literales_msgProvCantidadNoValida 65425
|
||||
#define Literales_msgProvPrecioNoValido 65426
|
||||
#define Literales_msgProvDtoNoValido 65427
|
||||
#define Literales_msgProvBorrarFacPed 65428
|
||||
#define Literales_msgProvPedidoNoFacturar 65429
|
||||
#define Literales_msgProvPedYaFacturado 65430
|
||||
#define Literales_msgProvNoExisteFacProv 65431
|
||||
#define Literales_msgProvFacProvBloqueada 65432
|
||||
#define Literales_msgPedidoNoProveedor 65433
|
||||
#define Literales_msgSitPedIncorrecta 65434
|
||||
#define Literales_msgErrorFacturarPed 65435
|
||||
#define Literales_msgCodPedRepetido 65436
|
||||
#define Literales_msgPedDistintoProv 65437
|
||||
#define Literales_msgProvContratoRepetido 65438
|
||||
#define Literales_msgProvCodPagRepetido 65439
|
||||
#define Literales_msgProvFaltaProv 65440
|
||||
#define Literales_msgProvBorrarRepresentante 65441
|
||||
#define Literales_msgProvBorrarRepresentantes 65442
|
||||
#define Literales_msgProvFaltaCodProv 65443
|
||||
#define Literales_msgProvProvNoElim 65444
|
||||
#define Literales_msgProvCodFacRepetido 65445
|
||||
#define Literales_msgProvCodFacIncorrecto 65446
|
||||
#define Literales_msgProvFaltaNombreProvFac 65447
|
||||
#define Literales_msgProvFaltaFechaAltaFac 65448
|
||||
#define Literales_msgProvFaltaFechaVtoFac 65449
|
||||
#define Literales_msgProvFechaVtoAnteriorFac 65450
|
||||
#define Literales_msgProvFaltanDetallesFac 65451
|
||||
#define Literales_msgProvFaltaFormaPagoFac 65452
|
||||
#define Literales_msgProvFaltaTipoFac 65453
|
||||
#define Literales_msgTipFacturas0 65454
|
||||
#define Literales_msgTipFacturas1 65455
|
||||
#define Literales_msgInfTri0 65264
|
||||
#define Literales_msgInfTri1 65265
|
||||
#define Literales_msgLibNoExisteEnt 65280
|
||||
#define Literales_msgLibEntBloqueada 65281
|
||||
#define Literales_msgLibNumEntRepetida 65282
|
||||
#define Literales_msgLibNumEntIncorrecta 65283
|
||||
#define Literales_msgLibFaltaDescEnt 65284
|
||||
#define Literales_msgLibCierre 65285
|
||||
#define Literales_msgVisBorrarVisita 65286
|
||||
#define Literales_msgVisBorrarVisitas 65287
|
||||
#define Literales_msgTriCodigoErroneo 65288
|
||||
#define Literales_msgTriCerrado 65289
|
||||
#define Literales_msgTriFacTriCer 65290
|
||||
#define Literales_msgTriPredeterminadoErr 65291
|
||||
#define Literales_msgTriPredeterminadoOk 65292
|
||||
#define Literales_msgTriCerrarPredeterminado 65293
|
||||
#define Literales_msgOpcTablaContBloqueada 65294
|
||||
#define Literales_msgOpcContadoresInc 65295
|
||||
#define Literales_msgCliSep5 65296
|
||||
#define Literales_msgCliSep6 65297
|
||||
#define Literales_msgCliSep7 65298
|
||||
#define Literales_msgCliSep8 65299
|
||||
#define Literales_msgCliSep9 65300
|
||||
#define Literales_msgCliIniMayor 65301
|
||||
#define Literales_msgCliNoHayCli 65302
|
||||
#define Literales_msgCliListBene1 65303
|
||||
#define Literales_msgCliListBeneNoFac 65304
|
||||
#define Literales_msgCliListBeneCon1 65305
|
||||
#define Literales_msgCliListBeneCon2 65306
|
||||
#define Literales_msgCliListBeneCon3 65307
|
||||
#define Literales_msgCliListBeneCon4 65308
|
||||
#define Literales_msgCliListBeneCon5 65309
|
||||
#define Literales_msgCliListBeneNoCon 65310
|
||||
#define Literales_msgCliBorrarPropiedades 65311
|
||||
#define Literales_msgCliCodFacProIncorrecto 65312
|
||||
#define Literales_msgCliNoExisteFacPro 65313
|
||||
#define Literales_msgCliFacProBloqueado 65314
|
||||
#define Literales_msgCliCodPagRepetido 65315
|
||||
#define Literales_msgCliCodPagIncorrecto 65316
|
||||
#define Literales_msgCliNoExistePag 65317
|
||||
#define Literales_msgCliPagBloqueado 65318
|
||||
#define Literales_msgCliCodPagNoExiste 65319
|
||||
#define Literales_msgCliBorrarPago 65320
|
||||
#define Literales_msgCliFaltaCliPag 65321
|
||||
#define Literales_msgCliFaltaDescPag 65322
|
||||
#define Literales_msgCliErrorOp 65323
|
||||
#define Literales_msgCliSep1 65324
|
||||
#define Literales_msgCliSep2 65325
|
||||
#define Literales_msgCliSep3 65326
|
||||
#define Literales_msgCliSep4 65327
|
||||
#define Literales_msgObrElijaContrago 65328
|
||||
#define Literales_msgObrEliminarDetalles 65329
|
||||
#define Literales_msgObrEliminarTodosDetalles 65330
|
||||
#define Literales_msgCliCodFacRepetido 65331
|
||||
#define Literales_msgCliCodFacIncorrecto 65332
|
||||
#define Literales_msgCliSinProvincia 65333
|
||||
#define Literales_msgCliFaltaNombreCliFac 65334
|
||||
#define Literales_msgCliCodArtNoExiste 65335
|
||||
#define Literales_msgCliCodArtIncorrecto 65336
|
||||
#define Literales_msgCliFaltaFechaAlta 65337
|
||||
#define Literales_msgCliFaltaArticulos 65338
|
||||
#define Literales_msgCliFaltaFechaVto 65339
|
||||
#define Literales_msgCliFechaVtoMenorFechaAlta 65340
|
||||
#define Literales_msgCliNoExisteFac 65341
|
||||
#define Literales_msgCliFacBloqueado 65342
|
||||
#define Literales_msgCliCodFacProRepetido 65343
|
||||
#define Literales_litObrPedidos 65344
|
||||
#define Literales_litObrOtros 65345
|
||||
#define Literales_litObrEntregas 65346
|
||||
#define Literales_litObrMontajes 65347
|
||||
#define Literales_litObrRemates 65348
|
||||
#define Literales_msgObrFaltaObr 65349
|
||||
#define Literales_msgObrAnadida 65350
|
||||
#define Literales_msgObrErrAnadir 65351
|
||||
#define Literales_msgObrNoExisteObr 65352
|
||||
#define Literales_msgObrObrBloqueado 65353
|
||||
#define Literales_msgObrInsRepetido 65354
|
||||
#define Literales_msgObrPedDesObl 65355
|
||||
#define Literales_msgObrPedSelec 65356
|
||||
#define Literales_msgObrPrePedBorrar 65357
|
||||
#define Literales_msgObrInsConOtrasTareas1 65358
|
||||
#define Literales_msgObrInsConOtrasTareas2 65359
|
||||
#define Literales_msgCliPreNoModificar 65360
|
||||
#define Literales_msgCliPreNoEliminar 65361
|
||||
#define Literales_msgCliCambiarTipoPre 65362
|
||||
#define Literales_msgCliNoExisteTipoPre 65363
|
||||
#define Literales_msgCliPreErrAnadirDoc 65364
|
||||
#define Literales_msgCliPreErrEliminarDoc 65365
|
||||
#define Literales_msgCliCodConRepetido 65366
|
||||
#define Literales_msgCliCodConIncorrecto 65367
|
||||
#define Literales_msgCliFaltaNombreCliCon 65368
|
||||
#define Literales_msgCliFaltaFechaAltaCon 65369
|
||||
#define Literales_msgCliFaltaArticulosCon 65370
|
||||
#define Literales_msgCliNoExisteCon 65371
|
||||
#define Literales_msgCliConBloqueado 65372
|
||||
#define Literales_msgCliCrearContrato 65373
|
||||
#define Literales_msgCliCodConNoExiste 65374
|
||||
#define Literales_litObrObra 65375
|
||||
#define Literales_msgCliCodPreRepetido 65376
|
||||
#define Literales_msgCliCodPreIncorrecto 65377
|
||||
#define Literales_msgCliFaltaNombreCliPre 65378
|
||||
#define Literales_msgCliFaltaFechaAltaPre 65379
|
||||
#define Literales_msgCliFaltaFechaDecisionPre 65380
|
||||
#define Literales_msgCliSobraFechaDecisionPre 65381
|
||||
#define Literales_msgCliFaltaArticulosPre 65382
|
||||
#define Literales_msgCliNoExistePre 65383
|
||||
#define Literales_msgCliNoExistePreOrigen 65384
|
||||
#define Literales_msgCliPreBloqueado 65385
|
||||
#define Literales_msgCliPreYaAceptado 65386
|
||||
#define Literales_msgCliPreYaRechazado 65387
|
||||
#define Literales_msgCliCambiarAAceptar 65388
|
||||
#define Literales_msgCliCambiarARechazar 65389
|
||||
#define Literales_msgCliPreConContrato 65390
|
||||
#define Literales_msgCliPreYaFacturado 65391
|
||||
#define Literales_msgCliCodCliRepetido 65392
|
||||
#define Literales_msgCliCodCliIncorrecto 65393
|
||||
#define Literales_msgCliFaltaNombreCli 65394
|
||||
#define Literales_msgCliFaltaCli 65395
|
||||
#define Literales_msgCliNoExisteCli 65396
|
||||
#define Literales_msgCliCliBloqueado 65397
|
||||
#define Literales_msgCliBorrarSucursal 65398
|
||||
#define Literales_msgCliBorrarSucursales 65399
|
||||
#define Literales_msgCliCodCliNoExiste 65400
|
||||
#define Literales_msgCliFaltaCodCli 65401
|
||||
#define Literales_msgCliCliNoElim 65402
|
||||
#define Literales_msgCliCliNoFacPag 65403
|
||||
#define Literales_msgCliNoExisteCodigo 65404
|
||||
#define Literales_msgCliCodigoIniMenor 65405
|
||||
#define Literales_msgCliCodigoIncorrecto 65406
|
||||
#define Literales_msgCliFaltanCodigos 65407
|
||||
#define Literales_msgErrorFacturarPed 65408
|
||||
#define Literales_msgCodPedRepetido 65409
|
||||
#define Literales_msgPedDistintoProv 65410
|
||||
#define Literales_msgProvContratoRepetido 65411
|
||||
#define Literales_msgProvCodPagRepetido 65412
|
||||
#define Literales_msgProvCodPagIncorrecto 65413
|
||||
#define Literales_msgProvNoExistePag 65414
|
||||
#define Literales_msgProvPagBloqueado 65415
|
||||
#define Literales_msgProvCodPagNoExiste 65416
|
||||
#define Literales_msgProvBorrarPago 65417
|
||||
#define Literales_msgProvFaltaProPag 65418
|
||||
#define Literales_msgProvFaltaDescPag 65419
|
||||
#define Literales_msgProvIniMayor 65420
|
||||
#define Literales_msgProvNoHayProv 65421
|
||||
#define Literales_msgCodPedNoExiste 65422
|
||||
#define Literales_msgCodPedIncorrecto 65423
|
||||
#define Literales_msgProvFaltanDetallesFac 65424
|
||||
#define Literales_msgProvFaltaFormaPagoFac 65425
|
||||
#define Literales_msgProvFaltaTipoFac 65426
|
||||
#define Literales_msgTipFacturas0 65427
|
||||
#define Literales_msgTipFacturas1 65428
|
||||
#define Literales_msgTipFacturas2 65429
|
||||
#define Literales_msgProvCantidadNoValida 65430
|
||||
#define Literales_msgProvPrecioNoValido 65431
|
||||
#define Literales_msgProvDtoNoValido 65432
|
||||
#define Literales_msgProvBorrarFacPed 65433
|
||||
#define Literales_msgProvPedidoNoFacturar 65434
|
||||
#define Literales_msgProvPedYaFacturado 65435
|
||||
#define Literales_msgProvNoExisteFacProv 65436
|
||||
#define Literales_msgProvFacProvBloqueada 65437
|
||||
#define Literales_msgPedidoNoProveedor 65438
|
||||
#define Literales_msgSitPedIncorrecta 65439
|
||||
#define Literales_msgProvCodProvIncorrecto 65440
|
||||
#define Literales_msgProvFaltaNombreProv 65441
|
||||
#define Literales_msgProvNoExisteProv 65442
|
||||
#define Literales_msgProvProvBloqueado 65443
|
||||
#define Literales_msgProvCodProvNoExiste 65444
|
||||
#define Literales_msgProvFaltaProv 65445
|
||||
#define Literales_msgProvBorrarRepresentante 65446
|
||||
#define Literales_msgProvBorrarRepresentantes 65447
|
||||
#define Literales_msgProvFaltaCodProv 65448
|
||||
#define Literales_msgProvProvNoElim 65449
|
||||
#define Literales_msgProvCodFacRepetido 65450
|
||||
#define Literales_msgProvCodFacIncorrecto 65451
|
||||
#define Literales_msgProvFaltaNombreProvFac 65452
|
||||
#define Literales_msgProvFaltaFechaAltaFac 65453
|
||||
#define Literales_msgProvFaltaFechaVtoFac 65454
|
||||
#define Literales_msgProvFechaVtoAnteriorFac 65455
|
||||
#define Literales_msgDatosFamiliaModelo 65456
|
||||
#define Literales_msgDatosFaltaDescripcionProp 65457
|
||||
#define Literales_msgDatosTablaPropBloqueada 65458
|
||||
#define Literales_msgDatosPropiedadRepetida 65459
|
||||
#define Literales_msgDatosPropiedadUsada 65460
|
||||
#define Literales_msgDatosCopiaInvalida 65461
|
||||
#define Literales_msgDatosCopiaVacia 65462
|
||||
#define Literales_msgDatosFaltaDescripcionFpago 65463
|
||||
#define Literales_msgDatosTablaFpagoBloqueada 65464
|
||||
#define Literales_msgDatosFormaPagoRepetida 65465
|
||||
#define Literales_msgProvCodProvRepetido 65466
|
||||
#define Literales_msgProvCodProvIncorrecto 65467
|
||||
#define Literales_msgProvFaltaNombreProv 65468
|
||||
#define Literales_msgProvNoExisteProv 65469
|
||||
#define Literales_msgProvProvBloqueado 65470
|
||||
#define Literales_msgProvCodProvNoExiste 65471
|
||||
#define Literales_msgDatosNoExisteProcedencia 65457
|
||||
#define Literales_msgDatosFaltaDescripcionProc 65458
|
||||
#define Literales_msgDatosTablaProcBloqueada 65459
|
||||
#define Literales_msgDatosProcRepetida 65460
|
||||
#define Literales_msgDatosProcModelo 65461
|
||||
#define Literales_msgDatosFaltaDescripcionProp 65462
|
||||
#define Literales_msgDatosTablaPropBloqueada 65463
|
||||
#define Literales_msgDatosPropiedadRepetida 65464
|
||||
#define Literales_msgDatosPropiedadUsada 65465
|
||||
#define Literales_msgDatosCopiaInvalida 65466
|
||||
#define Literales_msgDatosCopiaVacia 65467
|
||||
#define Literales_msgDatosFaltaDescripcionFpago 65468
|
||||
#define Literales_msgDatosTablaFpagoBloqueada 65469
|
||||
#define Literales_msgDatosFormaPagoRepetida 65470
|
||||
#define Literales_msgProvCodProvRepetido 65471
|
||||
#define Literales_msgDatosCodVendRepetido 65472
|
||||
#define Literales_msgDatosCodVendIncorrecto 65473
|
||||
#define Literales_msgDatosFaltaNombreVend 65474
|
||||
@ -263,6 +268,13 @@
|
||||
#define Literales_msgFaltaConfig 65535
|
||||
STRINGTABLE
|
||||
BEGIN
|
||||
Literales_msgInfTri0, "No ha sido asignada la lista de tipos de operación al informe"
|
||||
Literales_msgInfTri1, "Existen más tipos de operacion que los iniciales 14!"
|
||||
Literales_msgLibNoExisteEnt, "La entrada %s no existe en el libro."
|
||||
Literales_msgLibEntBloqueada, "La entrada %s está siendo modificada por otro usuario."
|
||||
Literales_msgLibNumEntRepetida, "Ya existe la entrada %s. Cambie el número de entrada por otra que no exista."
|
||||
Literales_msgLibNumEntIncorrecta, "%s no es un número de entrada correcta para un libro. Cambie el número de entrada por otra e inténtelo de nuevo."
|
||||
Literales_msgLibFaltaDescEnt, "Es obligatorio introducir descripción de entrada."
|
||||
Literales_msgLibCierre, "CIERRE DE CAJA"
|
||||
Literales_msgVisBorrarVisita, "¿Desea borrar la visita de las %s?"
|
||||
Literales_msgVisBorrarVisitas, "¿Desea borrar todas las visitas del dia %s?"
|
||||
@ -274,8 +286,11 @@ BEGIN
|
||||
Literales_msgTriCerrarPredeterminado, "El trimestre que desea cerrar esta como predeterminado, antes de cerrarlo debe seleccionar otro como predeterminado"
|
||||
Literales_msgOpcTablaContBloqueada, "Los valores de los contadores están siendo modificados por otro usuario. Inténtelo más tarde."
|
||||
Literales_msgOpcContadoresInc, "Todos los contadores deben de ser números enteros."
|
||||
Literales_msgInfTri0, "No ha sido asignada la lista de tipos de operación al informe"
|
||||
Literales_msgInfTri1, "Existen más tipos de operacion que los iniciales 14!"
|
||||
Literales_msgCliSep5, "[Anulación de entrada "
|
||||
Literales_msgCliSep6, " al modificar "
|
||||
Literales_msgCliSep7, " al eliminar "
|
||||
Literales_msgCliSep8, " "
|
||||
Literales_msgCliSep9, " de proveedor: "
|
||||
Literales_msgCliIniMayor, "El nombre del cliente inicial debe ser alfabéticamente anterior al nombre del cliente final."
|
||||
Literales_msgCliNoHayCli, "No existen clientes dados de alta"
|
||||
Literales_msgCliListBene1, "El informe es anual por lo tanto la fecha de inicio y la final deben corresponder al mismo año"
|
||||
@ -287,11 +302,11 @@ BEGIN
|
||||
Literales_msgCliListBeneCon5, " Porcentaje beneficio: "
|
||||
Literales_msgCliListBeneNoCon, "No existen contratos de cliente"
|
||||
Literales_msgCliBorrarPropiedades, "¿Desea borrar todas las propiedades?"
|
||||
Literales_msgLibNoExisteEnt, "La entrada %s no existe en el libro."
|
||||
Literales_msgLibEntBloqueada, "La entrada %s está siendo modificada por otro usuario."
|
||||
Literales_msgLibNumEntRepetida, "Ya existe la entrada %s. Cambie el número de entrada por otra que no exista."
|
||||
Literales_msgLibNumEntIncorrecta, "%s no es un número de entrada correcta para un libro. Cambie el número de entrada por otra e inténtelo de nuevo."
|
||||
Literales_msgLibFaltaDescEnt, "Es obligatorio introducir descripción de entrada."
|
||||
Literales_msgCliCodFacProIncorrecto, "%s no es un código correcto para una factura proforma. Cambie el codigo de la factura por otro e inténtelo de nuevo."
|
||||
Literales_msgCliNoExisteFacPro, "La factura proforma %s no existe."
|
||||
Literales_msgCliFacProBloqueado, "La factura proforma %s está siendo modificada por otro usuario."
|
||||
Literales_msgCliCodPagRepetido, "Ya existe el pago de cliente %s. Cambie el código del pago por otro que no exista."
|
||||
Literales_msgCliCodPagIncorrecto, "%s no es un código correcto para un artículo. Cambie el codigo del artículo por otro e inténtelo de nuevo."
|
||||
Literales_msgCliNoExistePag, "El pago de cliente %s no existe."
|
||||
Literales_msgCliPagBloqueado, "El pago de cliente %s está siendo modificado por otro usuario."
|
||||
Literales_msgCliCodPagNoExiste, "No existe el artículo %s. Introduzca un codigo de artículo que sí exista."
|
||||
@ -303,11 +318,11 @@ BEGIN
|
||||
Literales_msgCliSep2, " de cliente: "
|
||||
Literales_msgCliSep3, ", "
|
||||
Literales_msgCliSep4, "] : "
|
||||
Literales_msgCliSep5, "[Anulación de entrada "
|
||||
Literales_msgCliSep6, " al modificar "
|
||||
Literales_msgCliSep7, " al eliminar "
|
||||
Literales_msgCliSep8, " "
|
||||
Literales_msgCliSep9, " de proveedor: "
|
||||
Literales_msgObrElijaContrago, "Elija el contrato del que desea abrir una obra"
|
||||
Literales_msgObrEliminarDetalles, "¿Desea eliminar esta linea?"
|
||||
Literales_msgObrEliminarTodosDetalles, "¿Desea eliminar todo?"
|
||||
Literales_msgCliCodFacRepetido, "Ya existe una factura de cliente con el código %s. Se ha reemplazado por el código %s para que pueda dar de alta la factura."
|
||||
Literales_msgCliCodFacIncorrecto, "%s no es un código correcto para una factura de cliente. Cambie el codigo de la factura por otro e inténtelo de nuevo."
|
||||
Literales_msgCliSinProvincia, "Antes de poder elegir una población debe indicar a qué provincia pertenece."
|
||||
Literales_msgCliFaltaNombreCliFac, "Es obligatorio introducir los datos del cliente al que pertenece esta factura."
|
||||
Literales_msgCliCodArtNoExiste, "No existe el artículo %s. Introduzca un codigo de artículo que sí exista."
|
||||
@ -319,11 +334,11 @@ BEGIN
|
||||
Literales_msgCliNoExisteFac, "La factura de cliente %s no existe."
|
||||
Literales_msgCliFacBloqueado, "La factura de cliente %s está siendo modificada por otro usuario."
|
||||
Literales_msgCliCodFacProRepetido, "Ya existe la factura proforma %s. Cambie el codigo de la factura por otro que no exista."
|
||||
Literales_msgCliCodFacProIncorrecto, "%s no es un código correcto para una factura proforma. Cambie el codigo de la factura por otro e inténtelo de nuevo."
|
||||
Literales_msgCliNoExisteFacPro, "La factura proforma %s no existe."
|
||||
Literales_msgCliFacProBloqueado, "La factura proforma %s está siendo modificada por otro usuario."
|
||||
Literales_msgCliCodPagRepetido, "Ya existe el pago de cliente %s. Cambie el código del pago por otro que no exista."
|
||||
Literales_msgCliCodPagIncorrecto, "%s no es un código correcto para un artículo. Cambie el codigo del artículo por otro e inténtelo de nuevo."
|
||||
Literales_litObrPedidos, "Pedidos "
|
||||
Literales_litObrOtros, "Otros "
|
||||
Literales_litObrEntregas, "Entregas "
|
||||
Literales_litObrMontajes, "Montajes "
|
||||
Literales_litObrRemates, "Remates "
|
||||
Literales_msgObrFaltaObr, "Es obligatorio introducir una obra."
|
||||
Literales_msgObrAnadida, "Se ha abierto la obra asociada al contrato %s."
|
||||
Literales_msgObrErrAnadir, "El contrato %s, ya tiene una obra abierta"
|
||||
@ -335,11 +350,11 @@ BEGIN
|
||||
Literales_msgObrPrePedBorrar, "¿Está seguro que desea eliminar pedido %s?"
|
||||
Literales_msgObrInsConOtrasTareas1, "No se ha podido eliminar el instalador por tener entregas,montajes o remates asociados"
|
||||
Literales_msgObrInsConOtrasTareas2, "No se ha podido eliminar todos los instaladores por tener entregas,montajes o remates asociados"
|
||||
Literales_msgObrElijaContrago, "Elija el contrato del que desea abrir una obra"
|
||||
Literales_msgObrEliminarDetalles, "¿Desea eliminar esta linea?"
|
||||
Literales_msgObrEliminarTodosDetalles, "¿Desea eliminar todo?"
|
||||
Literales_msgCliCodFacRepetido, "Ya existe una factura de cliente con el código %s. Se ha reemplazado por el código %s para que pueda dar de alta la factura."
|
||||
Literales_msgCliCodFacIncorrecto, "%s no es un código correcto para una factura de cliente. Cambie el codigo de la factura por otro e inténtelo de nuevo."
|
||||
Literales_msgCliPreNoModificar, "Este presupuesto no se puede modificar porque está %s."
|
||||
Literales_msgCliPreNoEliminar, "Este presupuesto no se puede eliminar porque está %s."
|
||||
Literales_msgCliCambiarTipoPre, "¿Desea convertir este presupuesto en un presupuesto de %s?"
|
||||
Literales_msgCliNoExisteTipoPre, "No existe el tipo de presupuesto %s."
|
||||
Literales_msgCliPreErrAnadirDoc, "No se ha podido añadirse el documento al presupuesto"
|
||||
Literales_msgCliPreErrEliminarDoc, "No se ha podido eliminar el documento seleccionado"
|
||||
Literales_msgCliCodConRepetido, "Ya existe un contrato con el código %s. Se ha reemplazado por el código %s para que pueda dar de alta el contrato."
|
||||
Literales_msgCliCodConIncorrecto, "%s no es un código correcto para un contrato de cliente. Cambie el codigo del contrato por otro e inténtelo de nuevo."
|
||||
@ -351,11 +366,11 @@ BEGIN
|
||||
Literales_msgCliCrearContrato, "¿Desea crear ahora el contrato relacionado a este presupuesto?"
|
||||
Literales_msgCliCodConNoExiste, "No existe el contrato %s. Introduzca un codigo de contrato que sí exista."
|
||||
Literales_litObrObra, "Obra "
|
||||
Literales_litObrPedidos, "Pedidos "
|
||||
Literales_litObrOtros, "Otros "
|
||||
Literales_litObrEntregas, "Entregas "
|
||||
Literales_litObrMontajes, "Montajes "
|
||||
Literales_litObrRemates, "Remates "
|
||||
Literales_msgCliCodPreRepetido, "Ya existe un presupuesto con el código %s. Se ha reemplazado por el código %s para que pueda dar de alta el presupuesto."
|
||||
Literales_msgCliCodPreIncorrecto, "%s no es un código correcto para un presupuesto de cliente. Cambie el codigo del presupuesto por otro e inténtelo de nuevo."
|
||||
Literales_msgCliFaltaNombreCliPre, "Es obligatorio introducir los datos del cliente al que pertenece este presupuesto."
|
||||
Literales_msgCliFaltaFechaAltaPre, "Debe indicar la fecha de alta del presupuesto."
|
||||
Literales_msgCliFaltaFechaDecisionPre, "Para poder aceptar o anular el presupuesto, debe indicar la fecha de decisión del presupuesto."
|
||||
Literales_msgCliSobraFechaDecisionPre, "El presupuesto está pendiente de decisión por lo que todavía no puede tener fecha de decisión. Por favor, borre la fecha de decisión o modifique la situación del presupuesto."
|
||||
Literales_msgCliFaltaArticulosPre, "Es obligatorio introducir al menos un concepto en el presupuesto."
|
||||
Literales_msgCliNoExistePre, "El presupuesto %s no existe."
|
||||
@ -367,11 +382,11 @@ BEGIN
|
||||
Literales_msgCliCambiarARechazar, "El presupuesto %s está aceptado. ¿Desea rechazarlo?"
|
||||
Literales_msgCliPreConContrato, "El presupuesto %s no se puede rechazar porque está aceptado y tiene un contrato asociado."
|
||||
Literales_msgCliPreYaFacturado, "El presupuesto %s ya está facturado."
|
||||
Literales_msgCliPreNoModificar, "Este presupuesto no se puede modificar porque está %s."
|
||||
Literales_msgCliPreNoEliminar, "Este presupuesto no se puede eliminar porque está %s."
|
||||
Literales_msgCliCambiarTipoPre, "¿Desea convertir este presupuesto en un presupuesto de %s?"
|
||||
Literales_msgCliNoExisteTipoPre, "No existe el tipo de presupuesto %s."
|
||||
Literales_msgCliPreErrAnadirDoc, "No se ha podido añadirse el documento al presupuesto"
|
||||
Literales_msgCliCodCliRepetido, "Ya existe el cliente %s. Cambie el codigo del cliente por otro que no exista."
|
||||
Literales_msgCliCodCliIncorrecto, "%s no es un código correcto para un cliente. Cambie el codigo del cliente por otro e inténtelo de nuevo."
|
||||
Literales_msgCliFaltaNombreCli, "Es obligatorio introducir el cliente."
|
||||
Literales_msgCliFaltaCli, "Es obligatorio introducir un cliente."
|
||||
Literales_msgCliNoExisteCli, "El cliente %s no existe."
|
||||
Literales_msgCliCliBloqueado, "El cliente %s está siendo modificado por otro usuario."
|
||||
Literales_msgCliBorrarSucursal, "¿Desea borrar esta sucursal?"
|
||||
Literales_msgCliBorrarSucursales, "¿Desea borrar todas las sucursales?"
|
||||
@ -383,11 +398,11 @@ BEGIN
|
||||
Literales_msgCliCodigoIniMenor, "El código de cliente inicial debe ser menor que el código de cliente final"
|
||||
Literales_msgCliCodigoIncorrecto, "%s no es un código correcto para un cliente. Cambie el codigo por otro e inténtelo de nuevo."
|
||||
Literales_msgCliFaltanCodigos, "Falta indicar o completar el intervalo de códigos de cliente para el listado."
|
||||
Literales_msgCliCodPreRepetido, "Ya existe un presupuesto con el código %s. Se ha reemplazado por el código %s para que pueda dar de alta el presupuesto."
|
||||
Literales_msgCliCodPreIncorrecto, "%s no es un código correcto para un presupuesto de cliente. Cambie el codigo del presupuesto por otro e inténtelo de nuevo."
|
||||
Literales_msgCliFaltaNombreCliPre, "Es obligatorio introducir los datos del cliente al que pertenece este presupuesto."
|
||||
Literales_msgCliFaltaFechaAltaPre, "Debe indicar la fecha de alta del presupuesto."
|
||||
Literales_msgCliFaltaFechaDecisionPre, "Para poder aceptar o anular el presupuesto, debe indicar la fecha de decisión del presupuesto."
|
||||
Literales_msgErrorFacturarPed, "Error. No se ha podido añadir el pedido %s a la factura."
|
||||
Literales_msgCodPedRepetido, "El código de pedido %s ya existe en la lista de pedidos de la factura."
|
||||
Literales_msgPedDistintoProv, "El pedido %s pertenece a un proveedor distinto al que figura en la factura."
|
||||
Literales_msgProvContratoRepetido, "El contrato %s ya está incluído en la lista."
|
||||
Literales_msgProvCodPagRepetido, "Ya existe el pago de proveedor %s. Cambie el código del pago por otro que no exista."
|
||||
Literales_msgProvCodPagIncorrecto, "%s no es un código correcto para un pago. Cambie el codigo del pago por otro e inténtelo de nuevo."
|
||||
Literales_msgProvNoExistePag, "El pago de proveedor %s no existe."
|
||||
Literales_msgProvPagBloqueado, "El pago de proveedor %s está siendo modificado por otro usuario."
|
||||
@ -399,11 +414,11 @@ BEGIN
|
||||
Literales_msgProvNoHayProv, "No existen proveedores dados de alta"
|
||||
Literales_msgCodPedNoExiste, "No existe el pedido a proveedor %s. Cambie el codigo del pedido por otro que sí exista."
|
||||
Literales_msgCodPedIncorrecto, "%s no es un código de pedido correcto. Cambie el codigo del pedido por otro e inténtelo de nuevo."
|
||||
Literales_msgCliCodCliRepetido, "Ya existe el cliente %s. Cambie el codigo del cliente por otro que no exista."
|
||||
Literales_msgCliCodCliIncorrecto, "%s no es un código correcto para un cliente. Cambie el codigo del cliente por otro e inténtelo de nuevo."
|
||||
Literales_msgCliFaltaNombreCli, "Es obligatorio introducir el cliente."
|
||||
Literales_msgCliFaltaCli, "Es obligatorio introducir un cliente."
|
||||
Literales_msgCliNoExisteCli, "El cliente %s no existe."
|
||||
Literales_msgProvFaltanDetallesFac, "Es necesario introducir al menos un pedido en la factura."
|
||||
Literales_msgProvFaltaFormaPagoFac, "Es necesario indicar la forma de pago."
|
||||
Literales_msgProvFaltaTipoFac, "Es necesario indicar el tipo de operación de la factura."
|
||||
Literales_msgTipFacturas0, "Todas"
|
||||
Literales_msgTipFacturas1, "General"
|
||||
Literales_msgTipFacturas2, "Inmovilizado"
|
||||
Literales_msgProvCantidadNoValida, "La cantidad introducida no es un valor correcto."
|
||||
Literales_msgProvPrecioNoValido, "El precio unidad introducido no es un valor correcto."
|
||||
@ -415,11 +430,11 @@ BEGIN
|
||||
Literales_msgProvFacProvBloqueada, "La factura de proveedor %s está siendo modificada por otro usuario."
|
||||
Literales_msgPedidoNoProveedor, "El pedido %s no pertenece al proveedor de la factura."
|
||||
Literales_msgSitPedIncorrecta, "No se puede añadir el pedido %s porque está %s y la factura es %s."
|
||||
Literales_msgErrorFacturarPed, "Error. No se ha podido añadir el pedido %s a la factura."
|
||||
Literales_msgCodPedRepetido, "El código de pedido %s ya existe en la lista de pedidos de la factura."
|
||||
Literales_msgPedDistintoProv, "El pedido %s pertenece a un proveedor distinto al que figura en la factura."
|
||||
Literales_msgProvContratoRepetido, "El contrato %s ya está incluído en la lista."
|
||||
Literales_msgProvCodPagRepetido, "Ya existe el pago de proveedor %s. Cambie el código del pago por otro que no exista."
|
||||
Literales_msgProvCodProvIncorrecto, "%s no es un código correcto para un proveedor. Cambie el codigo del proveedor por otro e inténtelo de nuevo."
|
||||
Literales_msgProvFaltaNombreProv, "Es obligatorio introducir el nombre del proveedor."
|
||||
Literales_msgProvNoExisteProv, "El proveedor %s no existe."
|
||||
Literales_msgProvProvBloqueado, "El proveedor %s está siendo modificado por otro usuario."
|
||||
Literales_msgProvCodProvNoExiste, "No existe el proveedor %s. Cambie el codigo del proveedor por otro que sí exista."
|
||||
Literales_msgProvFaltaProv, "Es obligatorio indicar un proveedor."
|
||||
Literales_msgProvBorrarRepresentante, "¿Desea borrar este representante?"
|
||||
Literales_msgProvBorrarRepresentantes, "¿Desea borrar todos los representantes?"
|
||||
@ -431,12 +446,12 @@ BEGIN
|
||||
Literales_msgProvFaltaFechaAltaFac, "La factura debe tener fecha de alta."
|
||||
Literales_msgProvFaltaFechaVtoFac, "La factura debe tener fecha de vencimiento."
|
||||
Literales_msgProvFechaVtoAnteriorFac, "La fecha de vencimiento no puede ser anterior a la fecha de alta de la factura."
|
||||
Literales_msgProvFaltanDetallesFac, "Es necesario introducir al menos un pedido en la factura."
|
||||
Literales_msgProvFaltaFormaPagoFac, "Es necesario indicar la forma de pago."
|
||||
Literales_msgProvFaltaTipoFac, "Es necesario indicar el tipo de operación de la factura."
|
||||
Literales_msgTipFacturas0, "Todas"
|
||||
Literales_msgTipFacturas1, "General"
|
||||
Literales_msgDatosFamiliaModelo, "No es posible eliminar la familia %s. Por ser necesaria para el resto de la aplicación."
|
||||
Literales_msgDatosNoExisteProcedencia, "No existe la procedencia de cliente"
|
||||
Literales_msgDatosFaltaDescripcionProc, "Es necesario que introduzca el nombre de la procedencia de cliente, o en su defecto, elimine la fila."
|
||||
Literales_msgDatosTablaProcBloqueada, "Las procedencias de cliente están siendo modificadas por otro usuario. Inténtelo más tarde."
|
||||
Literales_msgDatosProcRepetida, "Ya existe la procedencia de cliente %s. Cambie la procedencia por otra que no exista."
|
||||
Literales_msgDatosProcModelo, "No es posible eliminar la procedencia de cliente %s. Por ser necesaria para el resto de la aplicación."
|
||||
Literales_msgDatosFaltaDescripcionProp, "Es necesario que introduzca el nombre de la propiedad, o en su defecto, elimine la fila."
|
||||
Literales_msgDatosTablaPropBloqueada, "Las propiedades están siendo modificadas por otro usuario. Inténtelo más tarde."
|
||||
Literales_msgDatosPropiedadRepetida, "Ya existe la propiedad %s. Cambie la propiedad por otra que no exista."
|
||||
@ -447,11 +462,6 @@ BEGIN
|
||||
Literales_msgDatosTablaFpagoBloqueada, "Las formas de pago están siendo modificadas por otro usuario. Inténtelo más tarde."
|
||||
Literales_msgDatosFormaPagoRepetida, "Ya existe la forma de pago %s. Cambie la forma de pago por otra que no exista."
|
||||
Literales_msgProvCodProvRepetido, "Ya existe el proveedor %s. Cambie el codigo del proveedor por otro que no exista."
|
||||
Literales_msgProvCodProvIncorrecto, "%s no es un código correcto para un proveedor. Cambie el codigo del proveedor por otro e inténtelo de nuevo."
|
||||
Literales_msgProvFaltaNombreProv, "Es obligatorio introducir el nombre del proveedor."
|
||||
Literales_msgProvNoExisteProv, "El proveedor %s no existe."
|
||||
Literales_msgProvProvBloqueado, "El proveedor %s está siendo modificado por otro usuario."
|
||||
Literales_msgProvCodProvNoExiste, "No existe el proveedor %s. Cambie el codigo del proveedor por otro que sí exista."
|
||||
Literales_msgDatosCodVendRepetido, "Ya existe el vendedor %s. Cambie el codigo del vendedor por otro que no exista."
|
||||
Literales_msgDatosCodVendIncorrecto, "%s no es un código correcto para un vendedor. Cambie el codigo del vendedor por otro e inténtelo de nuevo."
|
||||
Literales_msgDatosFaltaNombreVend, "Es obligatorio introducir el nombre del vendedor."
|
||||
|
||||
BIN
Iconos/Clientes/clientes_32_procedencia.png
Normal file
BIN
Iconos/Clientes/clientes_32_procedencia.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 3.9 KiB |
21
Informes/InformeListadoContratacionProcedencia.dfm
Normal file
21
Informes/InformeListadoContratacionProcedencia.dfm
Normal file
@ -0,0 +1,21 @@
|
||||
inherited dmInformeListadoContratacionProcedencia: TdmInformeListadoContratacionProcedencia
|
||||
OldCreateOrder = True
|
||||
Left = 548
|
||||
Top = 252
|
||||
inherited FReport: TfrReport
|
||||
Dataset = dsTablaInforme
|
||||
ReportForm = {19000000}
|
||||
end
|
||||
object dsTablaInforme: TfrDBDataSet
|
||||
CloseDataSource = True
|
||||
DataSet = TablaInforme
|
||||
Left = 152
|
||||
Top = 24
|
||||
end
|
||||
object TablaInforme: TIBQuery
|
||||
BufferChunks = 1000
|
||||
CachedUpdates = False
|
||||
Left = 152
|
||||
Top = 80
|
||||
end
|
||||
end
|
||||
113
Informes/InformeListadoContratacionProcedencia.pas
Normal file
113
Informes/InformeListadoContratacionProcedencia.pas
Normal file
@ -0,0 +1,113 @@
|
||||
{
|
||||
===============================================================================
|
||||
Copyright (©) 2007. 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: 02-04-2007
|
||||
Versión actual: 1.0.0
|
||||
Fecha versión actual: 02-04-2007
|
||||
===============================================================================
|
||||
Modificaciones:
|
||||
|
||||
Fecha Comentarios
|
||||
---------------------------------------------------------------------------
|
||||
===============================================================================
|
||||
}
|
||||
|
||||
unit InformeListadoContratacionProcedencia;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, InformeBase, FR_IBXDB, FR_Shape, FR_Class, DB, IBCustomDataSet,
|
||||
IBQuery, FR_DSet, FR_DBSet, RdxEmpresaActiva;
|
||||
|
||||
type
|
||||
TdmInformeListadoContratacionProcedencia = class(TdmInformeBase)
|
||||
dsTablaInforme: TfrDBDataSet;
|
||||
TablaInforme: TIBQuery;
|
||||
private
|
||||
FFechaIni: TDateTime;
|
||||
FFechaFin: TDateTime;
|
||||
protected
|
||||
procedure RellenarCabecera(Band: TfrBand); override;
|
||||
procedure PrepararConsultas; override;
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
published
|
||||
property FechaIni : TDateTime read FFechaIni write FFechaIni;
|
||||
property FechaFin : TDateTime read FFechaFin write FFechaFin;
|
||||
end;
|
||||
|
||||
var
|
||||
dmInformeListadoContratacionProcedencia: TdmInformeListadoContratacionProcedencia;
|
||||
|
||||
implementation
|
||||
{$R *.dfm}
|
||||
|
||||
{ TdmInformeListadoFacturacionProcedencia }
|
||||
|
||||
constructor TdmInformeListadoContratacionProcedencia.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FNombreInforme := 'ListadoContratacionProcedencia.frf';
|
||||
end;
|
||||
|
||||
procedure TdmInformeListadoContratacionProcedencia.PrepararConsultas;
|
||||
begin
|
||||
inherited;
|
||||
with TablaInforme do
|
||||
begin
|
||||
Database := FBaseDatos;
|
||||
Transaction := FTransaccion;
|
||||
SQL.Clear;
|
||||
|
||||
SQL.Add('select coalesce(procedencias.codigo, ''-1''), coalesce(procedencias.descripcion, ''DESCONOCIDA'') as DESCRIPCION, ');
|
||||
SQL.Add('count(contratoscliente.codigo) as NUM_CONTRATOS, ');
|
||||
SQL.Add('coalesce(sum(contratoscliente.importetotal), 0) as IMPORTE_TOTAL ');
|
||||
SQL.Add('from procedencias ');
|
||||
SQL.Add('full outer join clientes on (clientes.procedencia = procedencias.codigo) ');
|
||||
SQL.Add('left join contratoscliente on ((contratoscliente.codigocliente = clientes.codigo) ');
|
||||
SQL.Add(' and(contratoscliente.FECHACONTRATO between :FECHAINI and :FECHAFIN)) ');
|
||||
SQL.Add('group by 1,2 ');
|
||||
SQL.Add('order by 3 DESC ');
|
||||
|
||||
ParamByName('FECHAINI').AsDate := FFechaIni;
|
||||
ParamByName('FECHAFIN').AsDate := FFechaFin;
|
||||
Prepare;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TdmInformeListadoContratacionProcedencia.RellenarCabecera(Band: TfrBand);
|
||||
var
|
||||
iCont : Integer;
|
||||
Objeto : TfrView;
|
||||
begin
|
||||
inherited;
|
||||
with Band do
|
||||
begin
|
||||
for iCont := 0 to Objects.Count - 1 do
|
||||
begin
|
||||
Objeto := Objects[iCont];
|
||||
if ((Objeto is TfrMemoView) and (Objeto.Name = 'CabParametros')) then
|
||||
begin
|
||||
with (Objeto as TfrMemoView) do
|
||||
begin
|
||||
Memo.Clear;
|
||||
Memo.Add('Rango de fechas: ' + DateToStr(FFechaIni) + ' - ' + DateToStr(FFechaFin));
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
21
Informes/InformeListadoFacturacionProcedencia.dfm
Normal file
21
Informes/InformeListadoFacturacionProcedencia.dfm
Normal file
@ -0,0 +1,21 @@
|
||||
inherited dmInformeListadoFacturacionProcedencia: TdmInformeListadoFacturacionProcedencia
|
||||
OldCreateOrder = True
|
||||
Left = 548
|
||||
Top = 252
|
||||
inherited FReport: TfrReport
|
||||
Dataset = dsTablaInforme
|
||||
ReportForm = {19000000}
|
||||
end
|
||||
object dsTablaInforme: TfrDBDataSet
|
||||
CloseDataSource = True
|
||||
DataSet = TablaInforme
|
||||
Left = 152
|
||||
Top = 24
|
||||
end
|
||||
object TablaInforme: TIBQuery
|
||||
BufferChunks = 1000
|
||||
CachedUpdates = False
|
||||
Left = 152
|
||||
Top = 80
|
||||
end
|
||||
end
|
||||
113
Informes/InformeListadoFacturacionProcedencia.pas
Normal file
113
Informes/InformeListadoFacturacionProcedencia.pas
Normal file
@ -0,0 +1,113 @@
|
||||
{
|
||||
===============================================================================
|
||||
Copyright (©) 2007. 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: 02-04-2007
|
||||
Versión actual: 1.0.0
|
||||
Fecha versión actual: 02-04-2007
|
||||
===============================================================================
|
||||
Modificaciones:
|
||||
|
||||
Fecha Comentarios
|
||||
---------------------------------------------------------------------------
|
||||
===============================================================================
|
||||
}
|
||||
|
||||
unit InformeListadoFacturacionProcedencia;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, InformeBase, FR_IBXDB, FR_Shape, FR_Class, DB, IBCustomDataSet,
|
||||
IBQuery, FR_DSet, FR_DBSet, RdxEmpresaActiva;
|
||||
|
||||
type
|
||||
TdmInformeListadoFacturacionProcedencia = class(TdmInformeBase)
|
||||
dsTablaInforme: TfrDBDataSet;
|
||||
TablaInforme: TIBQuery;
|
||||
private
|
||||
FFechaIni: TDateTime;
|
||||
FFechaFin: TDateTime;
|
||||
protected
|
||||
procedure RellenarCabecera(Band: TfrBand); override;
|
||||
procedure PrepararConsultas; override;
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
published
|
||||
property FechaIni : TDateTime read FFechaIni write FFechaIni;
|
||||
property FechaFin : TDateTime read FFechaFin write FFechaFin;
|
||||
end;
|
||||
|
||||
var
|
||||
dmInformeListadoFacturacionProcedencia: TdmInformeListadoFacturacionProcedencia;
|
||||
|
||||
implementation
|
||||
{$R *.dfm}
|
||||
|
||||
{ TdmInformeListadoFacturacionProcedencia }
|
||||
|
||||
constructor TdmInformeListadoFacturacionProcedencia.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FNombreInforme := 'ListadoFacturacionProcedencia.frf';
|
||||
end;
|
||||
|
||||
procedure TdmInformeListadoFacturacionProcedencia.PrepararConsultas;
|
||||
begin
|
||||
inherited;
|
||||
with TablaInforme do
|
||||
begin
|
||||
Database := FBaseDatos;
|
||||
Transaction := FTransaccion;
|
||||
SQL.Clear;
|
||||
|
||||
SQL.Add('select coalesce(procedencias.codigo, ''-1''), coalesce(procedencias.descripcion, ''DESCONOCIDA'') as DESCRIPCION, ');
|
||||
SQL.Add('count(facturascliente.codigo) as NUM_FACTURAS, ');
|
||||
SQL.Add('coalesce(sum(facturascliente.importetotal), 0) as IMPORTE_TOTAL ');
|
||||
SQL.Add('from procedencias ');
|
||||
SQL.Add('full outer join clientes on (clientes.procedencia = procedencias.codigo) ');
|
||||
SQL.Add('left join facturascliente on ((facturascliente.codigocliente = clientes.codigo) ');
|
||||
SQL.Add('and(facturascliente.FECHAFACTURA between :FECHAINI and :FECHAFIN))');
|
||||
SQL.Add('group by 1,2 ');
|
||||
SQL.Add('order by 3 DESC ');
|
||||
|
||||
ParamByName('FECHAINI').AsDate := FFechaIni;
|
||||
ParamByName('FECHAFIN').AsDate := FFechaFin;
|
||||
Prepare;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TdmInformeListadoFacturacionProcedencia.RellenarCabecera(Band: TfrBand);
|
||||
var
|
||||
iCont : Integer;
|
||||
Objeto : TfrView;
|
||||
begin
|
||||
inherited;
|
||||
with Band do
|
||||
begin
|
||||
for iCont := 0 to Objects.Count - 1 do
|
||||
begin
|
||||
Objeto := Objects[iCont];
|
||||
if ((Objeto is TfrMemoView) and (Objeto.Name = 'CabParametros')) then
|
||||
begin
|
||||
with (Objeto as TfrMemoView) do
|
||||
begin
|
||||
Memo.Clear;
|
||||
Memo.Add('Rango de fechas: ' + DateToStr(FFechaIni) + ' - ' + DateToStr(FFechaFin));
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
21
Informes/InformeListadoPresupuestosProcedencia.dfm
Normal file
21
Informes/InformeListadoPresupuestosProcedencia.dfm
Normal file
@ -0,0 +1,21 @@
|
||||
inherited dmInformeListadoPresupuestosProcedencia: TdmInformeListadoPresupuestosProcedencia
|
||||
OldCreateOrder = True
|
||||
Left = 548
|
||||
Top = 252
|
||||
inherited FReport: TfrReport
|
||||
Dataset = dsTablaInforme
|
||||
ReportForm = {19000000}
|
||||
end
|
||||
object dsTablaInforme: TfrDBDataSet
|
||||
CloseDataSource = True
|
||||
DataSet = TablaInforme
|
||||
Left = 152
|
||||
Top = 24
|
||||
end
|
||||
object TablaInforme: TIBQuery
|
||||
BufferChunks = 1000
|
||||
CachedUpdates = False
|
||||
Left = 152
|
||||
Top = 80
|
||||
end
|
||||
end
|
||||
116
Informes/InformeListadoPresupuestosProcedencia.pas
Normal file
116
Informes/InformeListadoPresupuestosProcedencia.pas
Normal file
@ -0,0 +1,116 @@
|
||||
{
|
||||
===============================================================================
|
||||
Copyright (©) 2007. 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: 02-04-2007
|
||||
Versión actual: 1.0.0
|
||||
Fecha versión actual: 02-04-2007
|
||||
===============================================================================
|
||||
Modificaciones:
|
||||
|
||||
Fecha Comentarios
|
||||
---------------------------------------------------------------------------
|
||||
===============================================================================
|
||||
}
|
||||
|
||||
unit InformeListadoPresupuestosProcedencia;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, InformeBase, FR_IBXDB, FR_Shape, FR_Class, DB, IBCustomDataSet,
|
||||
IBQuery, FR_DSet, FR_DBSet, RdxEmpresaActiva;
|
||||
|
||||
type
|
||||
TdmInformeListadoPresupuestosProcedencia = class(TdmInformeBase)
|
||||
dsTablaInforme: TfrDBDataSet;
|
||||
TablaInforme: TIBQuery;
|
||||
private
|
||||
FFechaIni: TDateTime;
|
||||
FFechaFin: TDateTime;
|
||||
protected
|
||||
procedure RellenarCabecera(Band: TfrBand); override;
|
||||
procedure PrepararConsultas; override;
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
published
|
||||
property FechaIni : TDateTime read FFechaIni write FFechaIni;
|
||||
property FechaFin : TDateTime read FFechaFin write FFechaFin;
|
||||
end;
|
||||
|
||||
var
|
||||
dmInformeListadoPresupuestosProcedencia: TdmInformeListadoPresupuestosProcedencia;
|
||||
|
||||
implementation
|
||||
{$R *.dfm}
|
||||
|
||||
{ TdmInformeListadoFacturacionProcedencia }
|
||||
|
||||
constructor TdmInformeListadoPresupuestosProcedencia.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FNombreInforme := 'ListadoPresupuestosProcedencia.frf';
|
||||
end;
|
||||
|
||||
procedure TdmInformeListadoPresupuestosProcedencia.PrepararConsultas;
|
||||
begin
|
||||
inherited;
|
||||
with TablaInforme do
|
||||
begin
|
||||
Database := FBaseDatos;
|
||||
Transaction := FTransaccion;
|
||||
SQL.Clear;
|
||||
|
||||
SQL.Add('select coalesce(procedencias.codigo, ''-1''), coalesce(procedencias.descripcion, ''DESCONOCIDA'') as DESCRIPCION, ');
|
||||
SQL.Add('COUNT(presupuestoscliente.codigo) as NUM_PRESUPUESTOS, ');
|
||||
SQL.Add('COUNT(CASE WHEN (presupuestoscliente.SITUACION = ''PENDIENTE'') THEN presupuestoscliente.codigo END) as NUM_PRE_PENDIENTES, ');
|
||||
SQL.Add('COUNT(CASE WHEN (presupuestoscliente.SITUACION = ''ACEPTADO'') THEN presupuestoscliente.codigo END) as NUM_PRE_ACEPTADOS, ');
|
||||
SQL.Add('COUNT(CASE WHEN (presupuestoscliente.SITUACION = ''RECHAZADO'') THEN presupuestoscliente.codigo END) as NUM_PRE_RECHAZADOS, ');
|
||||
SQL.Add('coalesce(sum(presupuestoscliente.importetotal), 0) as IMPORTE_TOTAL ');
|
||||
SQL.Add('from procedencias ');
|
||||
SQL.Add('full outer join clientes on (clientes.procedencia = procedencias.codigo) ');
|
||||
SQL.Add('left join presupuestoscliente on ((presupuestoscliente.codigocliente = clientes.codigo) ');
|
||||
SQL.Add(' and(presupuestoscliente.FECHAPRESUPUESTO between :FECHAINI and :FECHAFIN)) ');
|
||||
SQL.Add('group by 1,2 ');
|
||||
SQL.Add('order by 3 DESC ');
|
||||
|
||||
ParamByName('FECHAINI').AsDate := FFechaIni;
|
||||
ParamByName('FECHAFIN').AsDate := FFechaFin;
|
||||
Prepare;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TdmInformeListadoPresupuestosProcedencia.RellenarCabecera(Band: TfrBand);
|
||||
var
|
||||
iCont : Integer;
|
||||
Objeto : TfrView;
|
||||
begin
|
||||
inherited;
|
||||
with Band do
|
||||
begin
|
||||
for iCont := 0 to Objects.Count - 1 do
|
||||
begin
|
||||
Objeto := Objects[iCont];
|
||||
if ((Objeto is TfrMemoView) and (Objeto.Name = 'CabParametros')) then
|
||||
begin
|
||||
with (Objeto as TfrMemoView) do
|
||||
begin
|
||||
Memo.Clear;
|
||||
Memo.Add('Rango de fechas: ' + DateToStr(FFechaIni) + ' - ' + DateToStr(FFechaFin));
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
21
Informes/InformeListadoProcedencias.dfm
Normal file
21
Informes/InformeListadoProcedencias.dfm
Normal file
@ -0,0 +1,21 @@
|
||||
inherited dmInformeListadoProcedencias: TdmInformeListadoProcedencias
|
||||
OldCreateOrder = True
|
||||
Left = 548
|
||||
Top = 252
|
||||
inherited FReport: TfrReport
|
||||
Dataset = dsTablaInforme
|
||||
ReportForm = {19000000}
|
||||
end
|
||||
object dsTablaInforme: TfrDBDataSet
|
||||
CloseDataSource = True
|
||||
DataSet = TablaInforme
|
||||
Left = 152
|
||||
Top = 24
|
||||
end
|
||||
object TablaInforme: TIBQuery
|
||||
BufferChunks = 1000
|
||||
CachedUpdates = False
|
||||
Left = 152
|
||||
Top = 80
|
||||
end
|
||||
end
|
||||
103
Informes/InformeListadoProcedencias.pas
Normal file
103
Informes/InformeListadoProcedencias.pas
Normal file
@ -0,0 +1,103 @@
|
||||
{
|
||||
===============================================================================
|
||||
Copyright (©) 2007. 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: 02-04-2007
|
||||
Versión actual: 1.0.0
|
||||
Fecha versión actual: 02-04-2007
|
||||
===============================================================================
|
||||
Modificaciones:
|
||||
|
||||
Fecha Comentarios
|
||||
---------------------------------------------------------------------------
|
||||
===============================================================================
|
||||
}
|
||||
|
||||
unit InformeListadoProcedencias;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, InformeBase, FR_IBXDB, FR_Shape, FR_Class, DB, IBCustomDataSet,
|
||||
IBQuery, FR_DSet, FR_DBSet, RdxEmpresaActiva;
|
||||
|
||||
type
|
||||
TdmInformeListadoProcedencias = class(TdmInformeBase)
|
||||
dsTablaInforme: TfrDBDataSet;
|
||||
TablaInforme: TIBQuery;
|
||||
protected
|
||||
procedure RellenarCabecera(Band: TfrBand); override;
|
||||
procedure PrepararConsultas; override;
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
end;
|
||||
|
||||
var
|
||||
dmInformeListadoProcedencias: TdmInformeListadoProcedencias;
|
||||
|
||||
implementation
|
||||
{$R *.dfm}
|
||||
|
||||
{ TdmInformeListadoFacturacionProcedencia }
|
||||
|
||||
constructor TdmInformeListadoProcedencias.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FNombreInforme := 'ListadoProcedencias.frf';
|
||||
end;
|
||||
|
||||
procedure TdmInformeListadoProcedencias.PrepararConsultas;
|
||||
begin
|
||||
inherited;
|
||||
with TablaInforme do
|
||||
begin
|
||||
Database := FBaseDatos;
|
||||
Transaction := FTransaccion;
|
||||
SQL.Clear;
|
||||
SQL.Add('SELECT PROCEDENCIAS.CODIGO, ');
|
||||
SQL.Add('COALESCE(PROCEDENCIAS.DESCRIPCION, ''DESCONOCIDA'') as DESCRIPCION, ');
|
||||
SQL.Add('COUNT(CLIENTES.CODIGO) as NUM_CLIENTES');
|
||||
SQL.Add('FROM PROCEDENCIAS');
|
||||
SQL.Add('FULL OUTER JOIN CLIENTES ON (CLIENTES.PROCEDENCIA = PROCEDENCIAS.CODIGO) ');
|
||||
SQL.Add('GROUP BY 1,2 ');
|
||||
SQL.Add('ORDER BY 3 DESC');
|
||||
Prepare;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TdmInformeListadoProcedencias.RellenarCabecera(Band: TfrBand);
|
||||
var
|
||||
iCont : Integer;
|
||||
Objeto : TfrView;
|
||||
begin
|
||||
inherited;
|
||||
{
|
||||
with Band do
|
||||
begin
|
||||
for iCont := 0 to Objects.Count - 1 do
|
||||
begin
|
||||
Objeto := Objects[iCont];
|
||||
if ((Objeto is TfrMemoView) and (Objeto.Name = 'CabParametros')) then
|
||||
begin
|
||||
with (Objeto as TfrMemoView) do
|
||||
begin
|
||||
Memo.Clear;
|
||||
Memo.Add('Rango de fechas: ' + DateToStr(FFechaIni) + ' - ' + DateToStr(FFechaFin));
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -1,15 +1,15 @@
|
||||
object frInformesVentas: TfrInformesVentas
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 658
|
||||
Height = 556
|
||||
Width = 713
|
||||
Height = 624
|
||||
Color = 16383743
|
||||
ParentColor = False
|
||||
TabOrder = 0
|
||||
object BarraInformes: TRdxBarraSuperior
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 658
|
||||
Width = 713
|
||||
Height = 25
|
||||
Caption = 'Informes de ventas e ingresos '
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -28,7 +28,7 @@ object frInformesVentas: TfrInformesVentas
|
||||
object imgSombra: TImage
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 658
|
||||
Width = 713
|
||||
Height = 8
|
||||
Align = alTop
|
||||
end
|
||||
@ -36,8 +36,8 @@ object frInformesVentas: TfrInformesVentas
|
||||
object pnlCuerpo: TPanel
|
||||
Left = 0
|
||||
Top = 25
|
||||
Width = 658
|
||||
Height = 531
|
||||
Width = 713
|
||||
Height = 599
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
BorderWidth = 10
|
||||
@ -46,8 +46,8 @@ object frInformesVentas: TfrInformesVentas
|
||||
object RdxPanel1: TRdxPanel
|
||||
Left = 10
|
||||
Top = 10
|
||||
Width = 638
|
||||
Height = 511
|
||||
Width = 693
|
||||
Height = 579
|
||||
BorderStyle = bsSingle
|
||||
Caption = ' '
|
||||
BorderWidth = 1
|
||||
@ -59,8 +59,8 @@ object frInformesVentas: TfrInformesVentas
|
||||
UseDockManager = True
|
||||
object Panel1: TPanel
|
||||
Left = 1
|
||||
Top = 109
|
||||
Width = 636
|
||||
Top = 385
|
||||
Width = 691
|
||||
Height = 92
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
@ -147,7 +147,7 @@ object frInformesVentas: TfrInformesVentas
|
||||
object Panel2: TPanel
|
||||
Left = 74
|
||||
Top = 10
|
||||
Width = 552
|
||||
Width = 607
|
||||
Height = 72
|
||||
Align = alClient
|
||||
AutoSize = True
|
||||
@ -155,7 +155,7 @@ object frInformesVentas: TfrInformesVentas
|
||||
ParentColor = True
|
||||
TabOrder = 0
|
||||
object Panel3: TPanel
|
||||
Left = 276
|
||||
Left = 331
|
||||
Top = 0
|
||||
Width = 276
|
||||
Height = 72
|
||||
@ -203,7 +203,7 @@ object frInformesVentas: TfrInformesVentas
|
||||
object Panel4: TPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 276
|
||||
Width = 331
|
||||
Height = 72
|
||||
Align = alClient
|
||||
AutoSize = True
|
||||
@ -213,7 +213,7 @@ object frInformesVentas: TfrInformesVentas
|
||||
object Label1: TLabel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 276
|
||||
Width = 331
|
||||
Height = 20
|
||||
Align = alTop
|
||||
AutoSize = False
|
||||
@ -229,7 +229,7 @@ object frInformesVentas: TfrInformesVentas
|
||||
object Label2: TLabel
|
||||
Left = 0
|
||||
Top = 20
|
||||
Width = 276
|
||||
Width = 331
|
||||
Height = 52
|
||||
Align = alClient
|
||||
Caption =
|
||||
@ -260,7 +260,7 @@ object frInformesVentas: TfrInformesVentas
|
||||
object Panel5: TPanel
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 636
|
||||
Width = 691
|
||||
Height = 16
|
||||
Align = alTop
|
||||
BevelOuter = bvNone
|
||||
@ -269,8 +269,8 @@ object frInformesVentas: TfrInformesVentas
|
||||
end
|
||||
object Panel17: TPanel
|
||||
Left = 1
|
||||
Top = 17
|
||||
Width = 636
|
||||
Top = 293
|
||||
Width = 691
|
||||
Height = 92
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
@ -357,7 +357,7 @@ object frInformesVentas: TfrInformesVentas
|
||||
object Panel18: TPanel
|
||||
Left = 74
|
||||
Top = 10
|
||||
Width = 552
|
||||
Width = 607
|
||||
Height = 72
|
||||
Align = alClient
|
||||
AutoSize = True
|
||||
@ -365,7 +365,7 @@ object frInformesVentas: TfrInformesVentas
|
||||
ParentColor = True
|
||||
TabOrder = 0
|
||||
object Panel19: TPanel
|
||||
Left = 276
|
||||
Left = 331
|
||||
Top = 0
|
||||
Width = 276
|
||||
Height = 72
|
||||
@ -413,7 +413,7 @@ object frInformesVentas: TfrInformesVentas
|
||||
object Panel20: TPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 276
|
||||
Width = 331
|
||||
Height = 72
|
||||
Align = alClient
|
||||
AutoSize = True
|
||||
@ -423,7 +423,7 @@ object frInformesVentas: TfrInformesVentas
|
||||
object Label7: TLabel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 276
|
||||
Width = 331
|
||||
Height = 20
|
||||
Align = alTop
|
||||
AutoSize = False
|
||||
@ -439,7 +439,7 @@ object frInformesVentas: TfrInformesVentas
|
||||
object Label8: TLabel
|
||||
Left = 0
|
||||
Top = 20
|
||||
Width = 276
|
||||
Width = 331
|
||||
Height = 52
|
||||
Align = alClient
|
||||
Caption =
|
||||
@ -469,8 +469,8 @@ object frInformesVentas: TfrInformesVentas
|
||||
end
|
||||
object Panel22: TPanel
|
||||
Left = 1
|
||||
Top = 201
|
||||
Width = 636
|
||||
Top = 477
|
||||
Width = 691
|
||||
Height = 92
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
@ -553,11 +553,12 @@ object frInformesVentas: TfrInformesVentas
|
||||
0808080808080808080808080808080808080808080808080808080808080808
|
||||
0808}
|
||||
Transparent = True
|
||||
Visible = False
|
||||
end
|
||||
object Panel23: TPanel
|
||||
Left = 74
|
||||
Top = 10
|
||||
Width = 552
|
||||
Width = 607
|
||||
Height = 72
|
||||
Align = alClient
|
||||
AutoSize = True
|
||||
@ -565,7 +566,7 @@ object frInformesVentas: TfrInformesVentas
|
||||
ParentColor = True
|
||||
TabOrder = 0
|
||||
object Panel24: TPanel
|
||||
Left = 276
|
||||
Left = 331
|
||||
Top = 0
|
||||
Width = 276
|
||||
Height = 72
|
||||
@ -607,13 +608,14 @@ object frInformesVentas: TfrInformesVentas
|
||||
TabStop = True
|
||||
TabOrder = 0
|
||||
Spacing = 6
|
||||
Visible = False
|
||||
OnClick = RdxBoton4Click
|
||||
end
|
||||
end
|
||||
object Panel25: TPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 276
|
||||
Width = 331
|
||||
Height = 72
|
||||
Align = alClient
|
||||
AutoSize = True
|
||||
@ -623,7 +625,7 @@ object frInformesVentas: TfrInformesVentas
|
||||
object Label9: TLabel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 276
|
||||
Width = 331
|
||||
Height = 20
|
||||
Align = alTop
|
||||
AutoSize = False
|
||||
@ -635,11 +637,12 @@ object frInformesVentas: TfrInformesVentas
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Transparent = True
|
||||
Visible = False
|
||||
end
|
||||
object Label10: TLabel
|
||||
Left = 0
|
||||
Top = 20
|
||||
Width = 276
|
||||
Width = 331
|
||||
Height = 52
|
||||
Align = alClient
|
||||
Caption = 'Informe con los ingresos por ventas de un determinado trimestre'
|
||||
@ -650,6 +653,7 @@ object frInformesVentas: TfrInformesVentas
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
Transparent = True
|
||||
Visible = False
|
||||
WordWrap = True
|
||||
end
|
||||
end
|
||||
@ -665,6 +669,606 @@ object frInformesVentas: TfrInformesVentas
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
object Panel7: TPanel
|
||||
Left = 1
|
||||
Top = 109
|
||||
Width = 691
|
||||
Height = 92
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
BevelOuter = bvNone
|
||||
BorderWidth = 10
|
||||
ParentColor = True
|
||||
TabOrder = 4
|
||||
object Image2: TImage
|
||||
Left = 25
|
||||
Top = 10
|
||||
Width = 49
|
||||
Height = 72
|
||||
Align = alLeft
|
||||
Picture.Data = {
|
||||
07544269746D617036080000424D360800000000000036040000280000002000
|
||||
000020000000010008000000000000040000130B0000130B0000000100000001
|
||||
0000424242005252520073737300A5A5A500D4D4D400ECECEC00F7FFFF00FFFF
|
||||
FF00FF00FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00080808080808080808080808080808080808080808080808080808080808
|
||||
0808080808080808080808080808080808080808080808080808080808080808
|
||||
0808080808080808080808080808000808080808080808080808080808080808
|
||||
0808080808080808080808080800050000080808080808080808080808080808
|
||||
0808080808080808080808080005050504000008000808080808080808080808
|
||||
0808080808080808080808000505040401010000040008080808080808080808
|
||||
0808080808080808080800050404010100000404040400080808080808080808
|
||||
0808080808080808080004040101000004040404040404000008080808080808
|
||||
0808080808080808000401010000040404040404040404040000000808080808
|
||||
0808080808080800010100000404050405040504050405040400010000080808
|
||||
0808080808080001000004040505050505050505050505050504000104000008
|
||||
0808080808000000040405050505050505050501050505050505040001040400
|
||||
0008080800000404060706070607060706010607020706070607060400010400
|
||||
0808080004040706070607060706070107060106070107060706070604000008
|
||||
0808080207070607060706070601060701070601060701070607060706040008
|
||||
0808080802070706070607010706010607020706020607010606070607060400
|
||||
0808080808020707070707070107070107070107070307070307070707070704
|
||||
0208080808080207070707070703070702070701070707070707070707070202
|
||||
0808080808080802070707070707010707030707030707070707070702020808
|
||||
0808080808080808020707060706070107060706070607060707020208080808
|
||||
0808080808080808080207070707070703070707070707070202080808080808
|
||||
0808080808080808080802070706070606060706070702020808080808080808
|
||||
0808080808080808080808020707060706070707020208080808080808080808
|
||||
0808080808080808080808080207060607070202080808080808080808080808
|
||||
0808080808080808080808080802070702020808080808080808080808080808
|
||||
0808080808080808080808080808020208080808080808080808080808080808
|
||||
0808080808080808080808080808080808080808080808080808080808080808
|
||||
0808080808080808080808080808080808080808080808080808080808080808
|
||||
0808080808080808080808080808080808080808080808080808080808080808
|
||||
0808080808080808080808080808080808080808080808080808080808080808
|
||||
0808080808080808080808080808080808080808080808080808080808080808
|
||||
0808080808080808080808080808080808080808080808080808080808080808
|
||||
0808}
|
||||
Transparent = True
|
||||
end
|
||||
object Panel8: TPanel
|
||||
Left = 74
|
||||
Top = 10
|
||||
Width = 607
|
||||
Height = 72
|
||||
Align = alClient
|
||||
AutoSize = True
|
||||
BevelOuter = bvNone
|
||||
ParentColor = True
|
||||
TabOrder = 0
|
||||
object Panel9: TPanel
|
||||
Left = 331
|
||||
Top = 0
|
||||
Width = 276
|
||||
Height = 72
|
||||
Align = alRight
|
||||
BevelOuter = bvNone
|
||||
ParentColor = True
|
||||
TabOrder = 0
|
||||
object RdxBoton2: TRdxBoton
|
||||
Left = 16
|
||||
Top = 13
|
||||
Width = 103
|
||||
Height = 24
|
||||
Alignment = taLeftJustify
|
||||
Color = 14280169
|
||||
ColorFocused = 12775679
|
||||
ColorDown = 14280169
|
||||
ColorBorder = 8623776
|
||||
ColorHighLight = 8623776
|
||||
ColorShadow = 8623776
|
||||
Caption = 'Ejecutar informe >'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
FontDown.Charset = DEFAULT_CHARSET
|
||||
FontDown.Color = clWindowText
|
||||
FontDown.Height = -11
|
||||
FontDown.Name = 'Tahoma'
|
||||
FontDown.Style = []
|
||||
FontDisabled.Charset = DEFAULT_CHARSET
|
||||
FontDisabled.Color = clWindowText
|
||||
FontDisabled.Height = -11
|
||||
FontDisabled.Name = 'MS Sans Serif'
|
||||
FontDisabled.Style = []
|
||||
Margin = 5
|
||||
ParentFont = False
|
||||
ParentColor = False
|
||||
TabStop = True
|
||||
TabOrder = 0
|
||||
Spacing = 6
|
||||
OnClick = RdxBoton2Click
|
||||
end
|
||||
end
|
||||
object Panel10: TPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 331
|
||||
Height = 72
|
||||
Align = alClient
|
||||
AutoSize = True
|
||||
BevelOuter = bvNone
|
||||
ParentColor = True
|
||||
TabOrder = 1
|
||||
object Label3: TLabel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 331
|
||||
Height = 20
|
||||
Align = alTop
|
||||
AutoSize = False
|
||||
Caption = 'Listado de contratos por procedencia'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = 3692855
|
||||
Font.Height = -13
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Transparent = True
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 0
|
||||
Top = 20
|
||||
Width = 331
|
||||
Height = 52
|
||||
Align = alClient
|
||||
Caption =
|
||||
'Informe con el n'#250'mero de contratos y la suma total de todas ello' +
|
||||
's agrupado por la procedencia de cliente'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
Transparent = True
|
||||
WordWrap = True
|
||||
end
|
||||
end
|
||||
end
|
||||
object Panel11: TPanel
|
||||
Left = 10
|
||||
Top = 10
|
||||
Width = 15
|
||||
Height = 72
|
||||
Align = alLeft
|
||||
BevelOuter = bvNone
|
||||
ParentColor = True
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
object Panel12: TPanel
|
||||
Left = 1
|
||||
Top = 201
|
||||
Width = 691
|
||||
Height = 92
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
BevelOuter = bvNone
|
||||
BorderWidth = 10
|
||||
ParentColor = True
|
||||
TabOrder = 5
|
||||
object Image3: TImage
|
||||
Left = 25
|
||||
Top = 10
|
||||
Width = 49
|
||||
Height = 72
|
||||
Align = alLeft
|
||||
Picture.Data = {
|
||||
07544269746D617036080000424D360800000000000036040000280000002000
|
||||
000020000000010008000000000000040000130B0000130B0000000100000001
|
||||
0000424242005252520073737300A5A5A500D4D4D400ECECEC00F7FFFF00FFFF
|
||||
FF00FF00FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00080808080808080808080808080808080808080808080808080808080808
|
||||
0808080808080808080808080808080808080808080808080808080808080808
|
||||
0808080808080808080808080808000808080808080808080808080808080808
|
||||
0808080808080808080808080800050000080808080808080808080808080808
|
||||
0808080808080808080808080005050504000008000808080808080808080808
|
||||
0808080808080808080808000505040401010000040008080808080808080808
|
||||
0808080808080808080800050404010100000404040400080808080808080808
|
||||
0808080808080808080004040101000004040404040404000008080808080808
|
||||
0808080808080808000401010000040404040404040404040000000808080808
|
||||
0808080808080800010100000404050405040504050405040400010000080808
|
||||
0808080808080001000004040505050505050505050505050504000104000008
|
||||
0808080808000000040405050505050505050501050505050505040001040400
|
||||
0008080800000404060706070607060706010607020706070607060400010400
|
||||
0808080004040706070607060706070107060106070107060706070604000008
|
||||
0808080207070607060706070601060701070601060701070607060706040008
|
||||
0808080802070706070607010706010607020706020607010606070607060400
|
||||
0808080808020707070707070107070107070107070307070307070707070704
|
||||
0208080808080207070707070703070702070701070707070707070707070202
|
||||
0808080808080802070707070707010707030707030707070707070702020808
|
||||
0808080808080808020707060706070107060706070607060707020208080808
|
||||
0808080808080808080207070707070703070707070707070202080808080808
|
||||
0808080808080808080802070706070606060706070702020808080808080808
|
||||
0808080808080808080808020707060706070707020208080808080808080808
|
||||
0808080808080808080808080207060607070202080808080808080808080808
|
||||
0808080808080808080808080802070702020808080808080808080808080808
|
||||
0808080808080808080808080808020208080808080808080808080808080808
|
||||
0808080808080808080808080808080808080808080808080808080808080808
|
||||
0808080808080808080808080808080808080808080808080808080808080808
|
||||
0808080808080808080808080808080808080808080808080808080808080808
|
||||
0808080808080808080808080808080808080808080808080808080808080808
|
||||
0808080808080808080808080808080808080808080808080808080808080808
|
||||
0808080808080808080808080808080808080808080808080808080808080808
|
||||
0808}
|
||||
Transparent = True
|
||||
end
|
||||
object Panel13: TPanel
|
||||
Left = 74
|
||||
Top = 10
|
||||
Width = 607
|
||||
Height = 72
|
||||
Align = alClient
|
||||
AutoSize = True
|
||||
BevelOuter = bvNone
|
||||
ParentColor = True
|
||||
TabOrder = 0
|
||||
object Panel14: TPanel
|
||||
Left = 331
|
||||
Top = 0
|
||||
Width = 276
|
||||
Height = 72
|
||||
Align = alRight
|
||||
BevelOuter = bvNone
|
||||
ParentColor = True
|
||||
TabOrder = 0
|
||||
object RdxBoton1: TRdxBoton
|
||||
Left = 16
|
||||
Top = 13
|
||||
Width = 103
|
||||
Height = 24
|
||||
Alignment = taLeftJustify
|
||||
Color = 14280169
|
||||
ColorFocused = 12775679
|
||||
ColorDown = 14280169
|
||||
ColorBorder = 8623776
|
||||
ColorHighLight = 8623776
|
||||
ColorShadow = 8623776
|
||||
Caption = 'Ejecutar informe >'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
FontDown.Charset = DEFAULT_CHARSET
|
||||
FontDown.Color = clWindowText
|
||||
FontDown.Height = -11
|
||||
FontDown.Name = 'Tahoma'
|
||||
FontDown.Style = []
|
||||
FontDisabled.Charset = DEFAULT_CHARSET
|
||||
FontDisabled.Color = clWindowText
|
||||
FontDisabled.Height = -11
|
||||
FontDisabled.Name = 'MS Sans Serif'
|
||||
FontDisabled.Style = []
|
||||
Margin = 5
|
||||
ParentFont = False
|
||||
ParentColor = False
|
||||
TabStop = True
|
||||
TabOrder = 0
|
||||
Spacing = 6
|
||||
OnClick = RdxBoton1Click
|
||||
end
|
||||
end
|
||||
object Panel15: TPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 331
|
||||
Height = 72
|
||||
Align = alClient
|
||||
AutoSize = True
|
||||
BevelOuter = bvNone
|
||||
ParentColor = True
|
||||
TabOrder = 1
|
||||
object Label5: TLabel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 331
|
||||
Height = 20
|
||||
Align = alTop
|
||||
AutoSize = False
|
||||
Caption = 'Listado de facturaci'#243'n por procedencia'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = 3692855
|
||||
Font.Height = -13
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Transparent = True
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 0
|
||||
Top = 20
|
||||
Width = 331
|
||||
Height = 52
|
||||
Align = alClient
|
||||
Caption =
|
||||
'Informe con el n'#250'mero de facturas y la suma total de todas ellas' +
|
||||
' agrupado por la procedencia de cliente'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
Transparent = True
|
||||
WordWrap = True
|
||||
end
|
||||
end
|
||||
end
|
||||
object Panel16: TPanel
|
||||
Left = 10
|
||||
Top = 10
|
||||
Width = 15
|
||||
Height = 72
|
||||
Align = alLeft
|
||||
BevelOuter = bvNone
|
||||
ParentColor = True
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
object Panel27: TPanel
|
||||
Left = 1
|
||||
Top = 17
|
||||
Width = 691
|
||||
Height = 92
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
BevelOuter = bvNone
|
||||
BorderWidth = 10
|
||||
ParentColor = True
|
||||
TabOrder = 6
|
||||
object Image6: TImage
|
||||
Left = 25
|
||||
Top = 10
|
||||
Width = 49
|
||||
Height = 72
|
||||
Align = alLeft
|
||||
Picture.Data = {
|
||||
07544269746D617036080000424D360800000000000036040000280000002000
|
||||
000020000000010008000000000000040000130B0000130B0000000100000001
|
||||
0000424242005252520073737300A5A5A500D4D4D400ECECEC00F7FFFF00FFFF
|
||||
FF00FF00FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00080808080808080808080808080808080808080808080808080808080808
|
||||
0808080808080808080808080808080808080808080808080808080808080808
|
||||
0808080808080808080808080808000808080808080808080808080808080808
|
||||
0808080808080808080808080800050000080808080808080808080808080808
|
||||
0808080808080808080808080005050504000008000808080808080808080808
|
||||
0808080808080808080808000505040401010000040008080808080808080808
|
||||
0808080808080808080800050404010100000404040400080808080808080808
|
||||
0808080808080808080004040101000004040404040404000008080808080808
|
||||
0808080808080808000401010000040404040404040404040000000808080808
|
||||
0808080808080800010100000404050405040504050405040400010000080808
|
||||
0808080808080001000004040505050505050505050505050504000104000008
|
||||
0808080808000000040405050505050505050501050505050505040001040400
|
||||
0008080800000404060706070607060706010607020706070607060400010400
|
||||
0808080004040706070607060706070107060106070107060706070604000008
|
||||
0808080207070607060706070601060701070601060701070607060706040008
|
||||
0808080802070706070607010706010607020706020607010606070607060400
|
||||
0808080808020707070707070107070107070107070307070307070707070704
|
||||
0208080808080207070707070703070702070701070707070707070707070202
|
||||
0808080808080802070707070707010707030707030707070707070702020808
|
||||
0808080808080808020707060706070107060706070607060707020208080808
|
||||
0808080808080808080207070707070703070707070707070202080808080808
|
||||
0808080808080808080802070706070606060706070702020808080808080808
|
||||
0808080808080808080808020707060706070707020208080808080808080808
|
||||
0808080808080808080808080207060607070202080808080808080808080808
|
||||
0808080808080808080808080802070702020808080808080808080808080808
|
||||
0808080808080808080808080808020208080808080808080808080808080808
|
||||
0808080808080808080808080808080808080808080808080808080808080808
|
||||
0808080808080808080808080808080808080808080808080808080808080808
|
||||
0808080808080808080808080808080808080808080808080808080808080808
|
||||
0808080808080808080808080808080808080808080808080808080808080808
|
||||
0808080808080808080808080808080808080808080808080808080808080808
|
||||
0808080808080808080808080808080808080808080808080808080808080808
|
||||
0808}
|
||||
Transparent = True
|
||||
end
|
||||
object Panel28: TPanel
|
||||
Left = 74
|
||||
Top = 10
|
||||
Width = 607
|
||||
Height = 72
|
||||
Align = alClient
|
||||
AutoSize = True
|
||||
BevelOuter = bvNone
|
||||
ParentColor = True
|
||||
TabOrder = 0
|
||||
object Panel29: TPanel
|
||||
Left = 331
|
||||
Top = 0
|
||||
Width = 276
|
||||
Height = 72
|
||||
Align = alRight
|
||||
BevelOuter = bvNone
|
||||
ParentColor = True
|
||||
TabOrder = 0
|
||||
object RdxBoton5: TRdxBoton
|
||||
Left = 16
|
||||
Top = 13
|
||||
Width = 103
|
||||
Height = 24
|
||||
Alignment = taLeftJustify
|
||||
Color = 14280169
|
||||
ColorFocused = 12775679
|
||||
ColorDown = 14280169
|
||||
ColorBorder = 8623776
|
||||
ColorHighLight = 8623776
|
||||
ColorShadow = 8623776
|
||||
Caption = 'Ejecutar informe >'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
FontDown.Charset = DEFAULT_CHARSET
|
||||
FontDown.Color = clWindowText
|
||||
FontDown.Height = -11
|
||||
FontDown.Name = 'Tahoma'
|
||||
FontDown.Style = []
|
||||
FontDisabled.Charset = DEFAULT_CHARSET
|
||||
FontDisabled.Color = clWindowText
|
||||
FontDisabled.Height = -11
|
||||
FontDisabled.Name = 'MS Sans Serif'
|
||||
FontDisabled.Style = []
|
||||
Margin = 5
|
||||
ParentFont = False
|
||||
ParentColor = False
|
||||
TabStop = True
|
||||
TabOrder = 0
|
||||
Spacing = 6
|
||||
OnClick = RdxBoton5Click
|
||||
end
|
||||
end
|
||||
object Panel30: TPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 331
|
||||
Height = 72
|
||||
Align = alClient
|
||||
AutoSize = True
|
||||
BevelOuter = bvNone
|
||||
ParentColor = True
|
||||
TabOrder = 1
|
||||
object Label11: TLabel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 331
|
||||
Height = 20
|
||||
Align = alTop
|
||||
AutoSize = False
|
||||
Caption = 'Listado de presupuestos por procedencia'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = 3692855
|
||||
Font.Height = -13
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Transparent = True
|
||||
end
|
||||
object Label12: TLabel
|
||||
Left = 0
|
||||
Top = 20
|
||||
Width = 331
|
||||
Height = 52
|
||||
Align = alClient
|
||||
Caption =
|
||||
'Informe con el n'#250'mero de presupuestos (Aceptados, Rechazados y P' +
|
||||
'endientes) agrupado por la procedencia de cliente'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
Transparent = True
|
||||
WordWrap = True
|
||||
end
|
||||
end
|
||||
end
|
||||
object Panel31: TPanel
|
||||
Left = 10
|
||||
Top = 10
|
||||
Width = 15
|
||||
Height = 72
|
||||
Align = alLeft
|
||||
BevelOuter = bvNone
|
||||
ParentColor = True
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -64,11 +64,41 @@ type
|
||||
Label10: TLabel;
|
||||
Panel26: TPanel;
|
||||
imgSombra: TImage;
|
||||
Panel7: TPanel;
|
||||
Image2: TImage;
|
||||
Panel8: TPanel;
|
||||
Panel9: TPanel;
|
||||
RdxBoton2: TRdxBoton;
|
||||
Panel10: TPanel;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
Panel11: TPanel;
|
||||
Panel12: TPanel;
|
||||
Image3: TImage;
|
||||
Panel13: TPanel;
|
||||
Panel14: TPanel;
|
||||
RdxBoton1: TRdxBoton;
|
||||
Panel15: TPanel;
|
||||
Label5: TLabel;
|
||||
Label6: TLabel;
|
||||
Panel16: TPanel;
|
||||
Panel27: TPanel;
|
||||
Image6: TImage;
|
||||
Panel28: TPanel;
|
||||
Panel29: TPanel;
|
||||
RdxBoton5: TRdxBoton;
|
||||
Panel30: TPanel;
|
||||
Label11: TLabel;
|
||||
Label12: TLabel;
|
||||
Panel31: TPanel;
|
||||
procedure RdxBoton3Click(Sender: TObject);
|
||||
procedure bSeleccionarClick(Sender: TObject);
|
||||
procedure RdxBoton4Click(Sender: TObject);
|
||||
procedure RdxBoton2Click(Sender: TObject);
|
||||
procedure RdxBoton1Click(Sender: TObject);
|
||||
procedure RdxBoton5Click(Sender: TObject);
|
||||
protected
|
||||
function CambiarEntidad(EntidadAnterior, Entidad : TRdxEntidad): Boolean; override;
|
||||
function CambiarEntidad(EntidadAnterior, Entidad : TRdxEntidad): Boolean; override;
|
||||
public
|
||||
constructor Create (AOwner: TComponent); override;
|
||||
end;
|
||||
@ -82,6 +112,8 @@ implementation
|
||||
|
||||
uses
|
||||
Configuracion, ListadoPagosCliente, HistorialFacturacionClientes,
|
||||
ListadoFacturacionProcedencia, ListadoContratacionProcedencia,
|
||||
ListadoPresupuestosProcedencia,
|
||||
InformeTrimestral, TablaClientes, StrFunc, Mensajes, Literales;
|
||||
|
||||
procedure TfrInformesVentas.RdxBoton3Click(Sender: TObject);
|
||||
@ -120,4 +152,28 @@ begin
|
||||
ConfigurarFrame(Self, Self.Entidad);
|
||||
end;
|
||||
|
||||
procedure TfrInformesVentas.RdxBoton2Click(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
Contenido := TfrListadoContratacionProcedencia.Create(Self);
|
||||
Contenido.Entidad := entInformes;
|
||||
Contenido.Modo := Consultar;
|
||||
end;
|
||||
|
||||
procedure TfrInformesVentas.RdxBoton1Click(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
Contenido := TfrListadoFacturacionProcedencia.Create(Self);
|
||||
Contenido.Entidad := entInformes;
|
||||
Contenido.Modo := Consultar;
|
||||
end;
|
||||
|
||||
procedure TfrInformesVentas.RdxBoton5Click(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
Contenido := TfrListadoPresupuestosProcedencia.Create(Self);
|
||||
Contenido.Entidad := entInformes;
|
||||
Contenido.Modo := Consultar;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -103,6 +103,13 @@ resourcestring
|
||||
msgDatosFamiliaRepetida = 'Ya existe la familia %s. Cambie la familia por otra que no exista.';
|
||||
msgDatosFamiliaModelo = 'No es posible eliminar la familia %s. Por ser necesaria para el resto de la aplicación.';
|
||||
|
||||
// PROCEDENCIAS
|
||||
msgDatosNoExisteProcedencia = 'No existe la procedencia de cliente';
|
||||
msgDatosFaltaDescripcionProc = 'Es necesario que introduzca el nombre de la procedencia de cliente, o en su defecto, elimine la fila.';
|
||||
msgDatosTablaProcBloqueada = 'Las procedencias de cliente están siendo modificadas por otro usuario. Inténtelo más tarde.';
|
||||
msgDatosProcRepetida = 'Ya existe la procedencia de cliente %s. Cambie la procedencia por otra que no exista.';
|
||||
msgDatosProcModelo = 'No es posible eliminar la procedencia de cliente %s. Por ser necesaria para el resto de la aplicación.';
|
||||
|
||||
// PROPIEDADES
|
||||
msgDatosFaltaDescripcionProp = 'Es necesario que introduzca el nombre de la propiedad, o en su defecto, elimine la fila.';
|
||||
msgDatosTablaPropBloqueada = 'Las propiedades están siendo modificadas por otro usuario. Inténtelo más tarde.';
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
[BD]
|
||||
ABETO ARMARIOS SERVIDOR=servidor:E:\Proyectos\FactuGES 2000 v2 (Abeto)\Codigo\BD\abeto.gdb
|
||||
ABETO ARMARIOS DAVID=david:D:\Proyectos\FactuGES 2000 v2 (Abeto)\Codigo\BD\abeto.gdb
|
||||
ABETO ARMARIOS ROBERTO T=roberto:T:\Abeto\bd\abeto.gdb
|
||||
ABETO ARMARIOS ROBERTO=xp_vm:C:\Abeto\bd\abeto.gdb
|
||||
ABETO ARMARIOS DAVID T=david:T:\Codigo Abeto\bd\abeto.gdb
|
||||
|
||||
|
||||
Binary file not shown.
BIN
Temp/Informes/ListadoContratacionProcedencia.frf
Normal file
BIN
Temp/Informes/ListadoContratacionProcedencia.frf
Normal file
Binary file not shown.
BIN
Temp/Informes/ListadoFacturacionProcedencia.frf
Normal file
BIN
Temp/Informes/ListadoFacturacionProcedencia.frf
Normal file
Binary file not shown.
BIN
Temp/Informes/ListadoPresupuestosProcedencia.frf
Normal file
BIN
Temp/Informes/ListadoPresupuestosProcedencia.frf
Normal file
Binary file not shown.
BIN
Temp/Informes/ListadoProcedencias.frf
Normal file
BIN
Temp/Informes/ListadoProcedencias.frf
Normal file
Binary file not shown.
BIN
bd/ABETO.GDB
BIN
bd/ABETO.GDB
Binary file not shown.
Reference in New Issue
Block a user