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
|
//Empresas
|
||||||
TablaEmpresas,
|
TablaEmpresas,
|
||||||
//Datos
|
//Datos
|
||||||
TablaArticulos, TablaVendedores, TablaInstaladores, TablaFamilias, TablaPropiedades,
|
TablaArticulos, TablaVendedores, TablaInstaladores, TablaFamilias, TablaProcedencias, TablaPropiedades,
|
||||||
TablaFormasPago, TablaProvincias, TablaPoblaciones, TablaPropiedadesArticulo, TablaValores,
|
TablaFormasPago, TablaProvincias, TablaPoblaciones, TablaPropiedadesArticulo, TablaValores,
|
||||||
//Proveedores
|
//Proveedores
|
||||||
TablaProveedores, TablaRepresentantesProveedor, TablaFacturasProveedor,
|
TablaProveedores, TablaRepresentantesProveedor, TablaFacturasProveedor,
|
||||||
@ -266,6 +266,7 @@ begin
|
|||||||
Application.CreateForm(TdmTablaDocumentos, dmTablaDocumentos);
|
Application.CreateForm(TdmTablaDocumentos, dmTablaDocumentos);
|
||||||
// Datos
|
// Datos
|
||||||
Application.CreateForm(TdmTablaFamilias, dmTablaFamilias);
|
Application.CreateForm(TdmTablaFamilias, dmTablaFamilias);
|
||||||
|
Application.CreateForm(TdmTablaProcedencias, dmTablaProcedencias);
|
||||||
Application.CreateForm(TdmTablaPropiedades, dmTablaPropiedades);
|
Application.CreateForm(TdmTablaPropiedades, dmTablaPropiedades);
|
||||||
Application.CreateForm(TdmTablaValores, dmTablaValores);
|
Application.CreateForm(TdmTablaValores, dmTablaValores);
|
||||||
Application.CreateForm(TdmTablaPropiedadesArticulo, dmTablaPropiedadesArticulo);
|
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
|
object Calle: TcxDBTextEdit
|
||||||
Left = 139
|
Left = 139
|
||||||
Top = 22
|
Top = 22
|
||||||
Width = 300
|
|
||||||
Height = 21
|
|
||||||
AutoSize = False
|
AutoSize = False
|
||||||
DataBinding.DataField = 'CALLE'
|
DataBinding.DataField = 'CALLE'
|
||||||
DataBinding.DataSource = dsDireccion
|
DataBinding.DataSource = dsDireccion
|
||||||
@ -270,12 +268,12 @@ object frCliente: TfrCliente
|
|||||||
Properties.ReadOnly = False
|
Properties.ReadOnly = False
|
||||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
|
Height = 21
|
||||||
|
Width = 300
|
||||||
end
|
end
|
||||||
object Provincia: TcxDBButtonEdit
|
object Provincia: TcxDBButtonEdit
|
||||||
Left = 139
|
Left = 139
|
||||||
Top = 48
|
Top = 48
|
||||||
Width = 300
|
|
||||||
Height = 21
|
|
||||||
DataBinding.DataField = 'PROVINCIA'
|
DataBinding.DataField = 'PROVINCIA'
|
||||||
DataBinding.DataSource = dsDireccion
|
DataBinding.DataSource = dsDireccion
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
@ -332,12 +330,11 @@ object frCliente: TfrCliente
|
|||||||
Properties.OnButtonClick = ProvinciaPropertiesButtonClick
|
Properties.OnButtonClick = ProvinciaPropertiesButtonClick
|
||||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
|
Width = 300
|
||||||
end
|
end
|
||||||
object Poblacion: TcxDBButtonEdit
|
object Poblacion: TcxDBButtonEdit
|
||||||
Left = 139
|
Left = 139
|
||||||
Top = 75
|
Top = 75
|
||||||
Width = 300
|
|
||||||
Height = 21
|
|
||||||
DataBinding.DataField = 'POBLACION'
|
DataBinding.DataField = 'POBLACION'
|
||||||
DataBinding.DataSource = dsDireccion
|
DataBinding.DataSource = dsDireccion
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
@ -393,12 +390,11 @@ object frCliente: TfrCliente
|
|||||||
Properties.OnButtonClick = PoblacionPropertiesButtonClick
|
Properties.OnButtonClick = PoblacionPropertiesButtonClick
|
||||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
||||||
TabOrder = 5
|
TabOrder = 5
|
||||||
|
Width = 300
|
||||||
end
|
end
|
||||||
object Telefono1: TcxDBTextEdit
|
object Telefono1: TcxDBTextEdit
|
||||||
Left = 139
|
Left = 139
|
||||||
Top = 102
|
Top = 102
|
||||||
Width = 110
|
|
||||||
Height = 21
|
|
||||||
AutoSize = False
|
AutoSize = False
|
||||||
DataBinding.DataField = 'TELEFONO1'
|
DataBinding.DataField = 'TELEFONO1'
|
||||||
DataBinding.DataSource = dsDireccion
|
DataBinding.DataSource = dsDireccion
|
||||||
@ -406,12 +402,12 @@ object frCliente: TfrCliente
|
|||||||
Properties.ReadOnly = False
|
Properties.ReadOnly = False
|
||||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
||||||
TabOrder = 6
|
TabOrder = 6
|
||||||
|
Height = 21
|
||||||
|
Width = 110
|
||||||
end
|
end
|
||||||
object Movil1: TcxDBTextEdit
|
object Movil1: TcxDBTextEdit
|
||||||
Left = 139
|
Left = 139
|
||||||
Top = 128
|
Top = 128
|
||||||
Width = 110
|
|
||||||
Height = 21
|
|
||||||
AutoSize = False
|
AutoSize = False
|
||||||
DataBinding.DataField = 'MOVIL1'
|
DataBinding.DataField = 'MOVIL1'
|
||||||
DataBinding.DataSource = dsDireccion
|
DataBinding.DataSource = dsDireccion
|
||||||
@ -419,12 +415,12 @@ object frCliente: TfrCliente
|
|||||||
Properties.ReadOnly = False
|
Properties.ReadOnly = False
|
||||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
||||||
TabOrder = 9
|
TabOrder = 9
|
||||||
|
Height = 21
|
||||||
|
Width = 110
|
||||||
end
|
end
|
||||||
object PersonaContacto: TcxDBTextEdit
|
object PersonaContacto: TcxDBTextEdit
|
||||||
Left = 139
|
Left = 139
|
||||||
Top = 155
|
Top = 155
|
||||||
Width = 300
|
|
||||||
Height = 21
|
|
||||||
AutoSize = False
|
AutoSize = False
|
||||||
DataBinding.DataField = 'PERSONACONTACTO'
|
DataBinding.DataField = 'PERSONACONTACTO'
|
||||||
DataBinding.DataSource = dsDireccion
|
DataBinding.DataSource = dsDireccion
|
||||||
@ -432,12 +428,12 @@ object frCliente: TfrCliente
|
|||||||
Properties.ReadOnly = False
|
Properties.ReadOnly = False
|
||||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
||||||
TabOrder = 11
|
TabOrder = 11
|
||||||
|
Height = 21
|
||||||
|
Width = 300
|
||||||
end
|
end
|
||||||
object Telefono2: TcxDBTextEdit
|
object Telefono2: TcxDBTextEdit
|
||||||
Left = 329
|
Left = 329
|
||||||
Top = 102
|
Top = 102
|
||||||
Width = 110
|
|
||||||
Height = 21
|
|
||||||
AutoSize = False
|
AutoSize = False
|
||||||
DataBinding.DataField = 'TELEFONO2'
|
DataBinding.DataField = 'TELEFONO2'
|
||||||
DataBinding.DataSource = dsDireccion
|
DataBinding.DataSource = dsDireccion
|
||||||
@ -445,12 +441,12 @@ object frCliente: TfrCliente
|
|||||||
Properties.ReadOnly = False
|
Properties.ReadOnly = False
|
||||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
||||||
TabOrder = 7
|
TabOrder = 7
|
||||||
|
Height = 21
|
||||||
|
Width = 110
|
||||||
end
|
end
|
||||||
object Movil2: TcxDBTextEdit
|
object Movil2: TcxDBTextEdit
|
||||||
Left = 329
|
Left = 329
|
||||||
Top = 128
|
Top = 128
|
||||||
Width = 110
|
|
||||||
Height = 21
|
|
||||||
AutoSize = False
|
AutoSize = False
|
||||||
DataBinding.DataField = 'MOVIL2'
|
DataBinding.DataField = 'MOVIL2'
|
||||||
DataBinding.DataSource = dsDireccion
|
DataBinding.DataSource = dsDireccion
|
||||||
@ -458,12 +454,12 @@ object frCliente: TfrCliente
|
|||||||
Properties.ReadOnly = False
|
Properties.ReadOnly = False
|
||||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
||||||
TabOrder = 10
|
TabOrder = 10
|
||||||
|
Height = 21
|
||||||
|
Width = 110
|
||||||
end
|
end
|
||||||
object Fax: TcxDBTextEdit
|
object Fax: TcxDBTextEdit
|
||||||
Left = 491
|
Left = 491
|
||||||
Top = 102
|
Top = 102
|
||||||
Width = 133
|
|
||||||
Height = 21
|
|
||||||
AutoSize = False
|
AutoSize = False
|
||||||
DataBinding.DataField = 'FAX'
|
DataBinding.DataField = 'FAX'
|
||||||
DataBinding.DataSource = dsDireccion
|
DataBinding.DataSource = dsDireccion
|
||||||
@ -471,12 +467,12 @@ object frCliente: TfrCliente
|
|||||||
Properties.ReadOnly = False
|
Properties.ReadOnly = False
|
||||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
||||||
TabOrder = 8
|
TabOrder = 8
|
||||||
|
Height = 21
|
||||||
|
Width = 133
|
||||||
end
|
end
|
||||||
object CodigoPostal: TcxDBTextEdit
|
object CodigoPostal: TcxDBTextEdit
|
||||||
Left = 491
|
Left = 491
|
||||||
Top = 49
|
Top = 49
|
||||||
Width = 133
|
|
||||||
Height = 21
|
|
||||||
AutoSize = False
|
AutoSize = False
|
||||||
DataBinding.DataField = 'CODIGOPOSTAL'
|
DataBinding.DataField = 'CODIGOPOSTAL'
|
||||||
DataBinding.DataSource = dsDireccion
|
DataBinding.DataSource = dsDireccion
|
||||||
@ -484,12 +480,12 @@ object frCliente: TfrCliente
|
|||||||
Properties.ReadOnly = False
|
Properties.ReadOnly = False
|
||||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
||||||
TabOrder = 4
|
TabOrder = 4
|
||||||
|
Height = 21
|
||||||
|
Width = 133
|
||||||
end
|
end
|
||||||
object Numero: TcxDBTextEdit
|
object Numero: TcxDBTextEdit
|
||||||
Left = 491
|
Left = 491
|
||||||
Top = 22
|
Top = 22
|
||||||
Width = 40
|
|
||||||
Height = 21
|
|
||||||
AutoSize = False
|
AutoSize = False
|
||||||
DataBinding.DataField = 'NUMERO'
|
DataBinding.DataField = 'NUMERO'
|
||||||
DataBinding.DataSource = dsDireccion
|
DataBinding.DataSource = dsDireccion
|
||||||
@ -497,12 +493,12 @@ object frCliente: TfrCliente
|
|||||||
Properties.ReadOnly = False
|
Properties.ReadOnly = False
|
||||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
|
Height = 21
|
||||||
|
Width = 40
|
||||||
end
|
end
|
||||||
object Piso: TcxDBTextEdit
|
object Piso: TcxDBTextEdit
|
||||||
Left = 584
|
Left = 584
|
||||||
Top = 22
|
Top = 22
|
||||||
Width = 40
|
|
||||||
Height = 21
|
|
||||||
AutoSize = False
|
AutoSize = False
|
||||||
DataBinding.DataField = 'PISO'
|
DataBinding.DataField = 'PISO'
|
||||||
DataBinding.DataSource = dsDireccion
|
DataBinding.DataSource = dsDireccion
|
||||||
@ -510,12 +506,12 @@ object frCliente: TfrCliente
|
|||||||
Properties.ReadOnly = False
|
Properties.ReadOnly = False
|
||||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
|
Height = 21
|
||||||
|
Width = 40
|
||||||
end
|
end
|
||||||
object Correo: TcxDBTextEdit
|
object Correo: TcxDBTextEdit
|
||||||
Left = 139
|
Left = 139
|
||||||
Top = 181
|
Top = 181
|
||||||
Width = 300
|
|
||||||
Height = 21
|
|
||||||
AutoSize = False
|
AutoSize = False
|
||||||
DataBinding.DataField = 'CORREO'
|
DataBinding.DataField = 'CORREO'
|
||||||
DataBinding.DataSource = dsDireccion
|
DataBinding.DataSource = dsDireccion
|
||||||
@ -523,6 +519,8 @@ object frCliente: TfrCliente
|
|||||||
Properties.ReadOnly = False
|
Properties.ReadOnly = False
|
||||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
||||||
TabOrder = 12
|
TabOrder = 12
|
||||||
|
Height = 21
|
||||||
|
Width = 300
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object pagSucursales: TTabSheet
|
object pagSucursales: TTabSheet
|
||||||
@ -872,13 +870,38 @@ object frCliente: TfrCliente
|
|||||||
Font.Style = []
|
Font.Style = []
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
end
|
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
|
object Codigo: TcxDBButtonEdit
|
||||||
Left = 151
|
Left = 151
|
||||||
Top = 35
|
Top = 35
|
||||||
Width = 110
|
|
||||||
Height = 21
|
|
||||||
DataBinding.DataField = 'CODIGO'
|
DataBinding.DataField = 'CODIGO'
|
||||||
DataBinding.DataSource = dsCliente
|
DataBinding.DataSource = dsCliente
|
||||||
|
ParentFont = False
|
||||||
Properties.Buttons = <
|
Properties.Buttons = <
|
||||||
item
|
item
|
||||||
Default = True
|
Default = True
|
||||||
@ -931,38 +954,27 @@ object frCliente: TfrCliente
|
|||||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
|
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
OnExit = CodigoExit
|
OnExit = CodigoExit
|
||||||
|
Width = 110
|
||||||
end
|
end
|
||||||
object Nombre: TcxDBTextEdit
|
object Nombre: TcxDBTextEdit
|
||||||
Left = 151
|
Left = 151
|
||||||
Top = 62
|
Top = 62
|
||||||
Width = 485
|
|
||||||
Height = 21
|
|
||||||
AutoSize = False
|
AutoSize = False
|
||||||
DataBinding.DataField = 'NOMBRE'
|
DataBinding.DataField = 'NOMBRE'
|
||||||
DataBinding.DataSource = dsCliente
|
DataBinding.DataSource = dsCliente
|
||||||
|
ParentFont = False
|
||||||
Properties.ReadOnly = False
|
Properties.ReadOnly = False
|
||||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
|
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
end
|
|
||||||
object Procedencia: TcxDBTextEdit
|
|
||||||
Left = 151
|
|
||||||
Top = 88
|
|
||||||
Width = 300
|
|
||||||
Height = 21
|
Height = 21
|
||||||
AutoSize = False
|
Width = 485
|
||||||
DataBinding.DataField = 'PROCEDENCIA'
|
|
||||||
DataBinding.DataSource = dsCliente
|
|
||||||
Properties.ReadOnly = False
|
|
||||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
|
|
||||||
TabOrder = 3
|
|
||||||
end
|
end
|
||||||
object Vendedor: TcxDBButtonEdit
|
object Vendedor: TcxDBButtonEdit
|
||||||
Left = 520
|
Left = 520
|
||||||
Top = 88
|
Top = 88
|
||||||
Width = 115
|
|
||||||
Height = 21
|
|
||||||
DataBinding.DataField = 'VENDEDOR'
|
DataBinding.DataField = 'VENDEDOR'
|
||||||
DataBinding.DataSource = dsCliente
|
DataBinding.DataSource = dsCliente
|
||||||
|
ParentFont = False
|
||||||
Properties.Buttons = <
|
Properties.Buttons = <
|
||||||
item
|
item
|
||||||
Default = True
|
Default = True
|
||||||
@ -1014,31 +1026,34 @@ object frCliente: TfrCliente
|
|||||||
Properties.ReadOnly = False
|
Properties.ReadOnly = False
|
||||||
Properties.OnButtonClick = VendedorPropertiesButtonClick
|
Properties.OnButtonClick = VendedorPropertiesButtonClick
|
||||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
|
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
|
||||||
TabOrder = 4
|
TabOrder = 3
|
||||||
|
Width = 115
|
||||||
end
|
end
|
||||||
object Observaciones: TcxDBMemo
|
object Observaciones: TcxDBMemo
|
||||||
Left = 151
|
Left = 151
|
||||||
Top = 115
|
Top = 115
|
||||||
Width = 485
|
|
||||||
Height = 71
|
|
||||||
DataBinding.DataField = 'OBSERVACIONES'
|
DataBinding.DataField = 'OBSERVACIONES'
|
||||||
DataBinding.DataSource = dsCliente
|
DataBinding.DataSource = dsCliente
|
||||||
|
ParentFont = False
|
||||||
Properties.ReadOnly = False
|
Properties.ReadOnly = False
|
||||||
Properties.ScrollBars = ssVertical
|
Properties.ScrollBars = ssVertical
|
||||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
|
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
|
||||||
TabOrder = 5
|
TabOrder = 4
|
||||||
|
Height = 71
|
||||||
|
Width = 485
|
||||||
end
|
end
|
||||||
object NIF: TcxDBTextEdit
|
object NIF: TcxDBTextEdit
|
||||||
Left = 342
|
Left = 342
|
||||||
Top = 35
|
Top = 35
|
||||||
Width = 109
|
|
||||||
Height = 21
|
|
||||||
AutoSize = False
|
AutoSize = False
|
||||||
DataBinding.DataField = 'NIFCIF'
|
DataBinding.DataField = 'NIFCIF'
|
||||||
DataBinding.DataSource = dsCliente
|
DataBinding.DataSource = dsCliente
|
||||||
|
ParentFont = False
|
||||||
Properties.ReadOnly = False
|
Properties.ReadOnly = False
|
||||||
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
|
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
|
Height = 21
|
||||||
|
Width = 109
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
@ -1275,4 +1290,8 @@ object frCliente: TfrCliente
|
|||||||
Left = 16
|
Left = 16
|
||||||
Top = 96
|
Top = 96
|
||||||
end
|
end
|
||||||
|
object dsProcedencias: TDataSource
|
||||||
|
Left = 16
|
||||||
|
Top = 168
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -35,7 +35,8 @@ uses
|
|||||||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid,
|
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid,
|
||||||
cxGridCardView, cxGridDBCardView, RxMemDS, Configuracion, cxMemo,
|
cxGridCardView, cxGridDBCardView, RxMemDS, Configuracion, cxMemo,
|
||||||
cxDBEdit, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit, AdvPanel,
|
cxDBEdit, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit, AdvPanel,
|
||||||
cxDataStorage;
|
cxDataStorage, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit,
|
||||||
|
cxDBLookupComboBox, IBCustomDataSet;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrCliente = class(TRdxFrameClientes)
|
TfrCliente = class(TRdxFrameClientes)
|
||||||
@ -70,7 +71,6 @@ type
|
|||||||
eObservaciones: TLabel;
|
eObservaciones: TLabel;
|
||||||
Codigo: TcxDBButtonEdit;
|
Codigo: TcxDBButtonEdit;
|
||||||
Nombre: TcxDBTextEdit;
|
Nombre: TcxDBTextEdit;
|
||||||
Procedencia: TcxDBTextEdit;
|
|
||||||
Vendedor: TcxDBButtonEdit;
|
Vendedor: TcxDBButtonEdit;
|
||||||
Observaciones: TcxDBMemo;
|
Observaciones: TcxDBMemo;
|
||||||
NIF: TcxDBTextEdit;
|
NIF: TcxDBTextEdit;
|
||||||
@ -100,6 +100,8 @@ type
|
|||||||
Piso: TcxDBTextEdit;
|
Piso: TcxDBTextEdit;
|
||||||
Label1: TLabel;
|
Label1: TLabel;
|
||||||
Correo: TcxDBTextEdit;
|
Correo: TcxDBTextEdit;
|
||||||
|
cbxProcedencia: TcxDBLookupComboBox;
|
||||||
|
dsProcedencias: TDataSource;
|
||||||
procedure bSalirClick(Sender: TObject);
|
procedure bSalirClick(Sender: TObject);
|
||||||
procedure bAceptarClick(Sender: TObject);
|
procedure bAceptarClick(Sender: TObject);
|
||||||
procedure CodigoExit(Sender: TObject);
|
procedure CodigoExit(Sender: TObject);
|
||||||
@ -121,6 +123,7 @@ type
|
|||||||
procedure PoblacionPropertiesButtonClick(Sender: TObject;
|
procedure PoblacionPropertiesButtonClick(Sender: TObject;
|
||||||
AButtonIndex: Integer);
|
AButtonIndex: Integer);
|
||||||
private
|
private
|
||||||
|
FTablaProcedencias : TIBDataSet;
|
||||||
FCodigoProvincia : Variant;
|
FCodigoProvincia : Variant;
|
||||||
FCodigoPoblacion : Variant;
|
FCodigoPoblacion : Variant;
|
||||||
FCodigoProvinciaDireccion : Variant;
|
FCodigoProvinciaDireccion : Variant;
|
||||||
@ -187,10 +190,10 @@ implementation
|
|||||||
{$R *.DFM}
|
{$R *.DFM}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
IBCustomDataSet, RdxFrameVendedores, TablaClientes, Mensajes, Provincias, Entidades,
|
RdxFrameVendedores, TablaClientes, Mensajes, Provincias, Entidades,
|
||||||
Poblaciones, Clientes, Variants, Vendedores, BaseDatos, RdxFrameProvincias,
|
Poblaciones, Clientes, Variants, Vendedores, BaseDatos, RdxFrameProvincias,
|
||||||
RdxFramePoblaciones, TablaProvincias, StrFunc, TablaPoblaciones, Excepciones,
|
RdxFramePoblaciones, TablaProvincias, StrFunc, TablaPoblaciones, Excepciones,
|
||||||
IBErrorCodes, TablaSucursalesCliente, TablaVendedores, Literales;
|
IBErrorCodes, TablaSucursalesCliente, TablaVendedores, Literales, TablaProcedencias;
|
||||||
|
|
||||||
constructor TfrCliente.Create (AOwner : TComponent);
|
constructor TfrCliente.Create (AOwner : TComponent);
|
||||||
begin
|
begin
|
||||||
@ -229,6 +232,17 @@ begin
|
|||||||
RefreshSQL.Assign(dmTablaClientes.sqlConsultar);
|
RefreshSQL.Assign(dmTablaClientes.sqlConsultar);
|
||||||
end;
|
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
|
with TablaSucursales do
|
||||||
begin
|
begin
|
||||||
Database := BaseDatos;
|
Database := BaseDatos;
|
||||||
@ -758,6 +772,10 @@ begin
|
|||||||
TablaSucursales.UnPrepare;
|
TablaSucursales.UnPrepare;
|
||||||
TablaSucursales.Free;
|
TablaSucursales.Free;
|
||||||
|
|
||||||
|
FTablaProcedencias.Close;
|
||||||
|
FTablaProcedencias.UnPrepare;
|
||||||
|
FTablaProcedencias.Free;
|
||||||
|
|
||||||
TablaClientes.Close;
|
TablaClientes.Close;
|
||||||
TablaClientes.UnPrepare;
|
TablaClientes.UnPrepare;
|
||||||
TablaClientes.Free;
|
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.Height = -11
|
||||||
FontDown.Name = 'Tahoma'
|
FontDown.Name = 'Tahoma'
|
||||||
FontDown.Style = []
|
FontDown.Style = []
|
||||||
|
FontDisabled.Charset = DEFAULT_CHARSET
|
||||||
|
FontDisabled.Color = clWindowText
|
||||||
|
FontDisabled.Height = -11
|
||||||
|
FontDisabled.Name = 'MS Sans Serif'
|
||||||
|
FontDisabled.Style = []
|
||||||
Glyph.Data = {
|
Glyph.Data = {
|
||||||
76020000424D7602000000000000760000002800000020000000200000000100
|
76020000424D7602000000000000760000002800000020000000200000000100
|
||||||
04000000000000020000230B0000230B00001000000010000000000000005A39
|
04000000000000020000230B0000230B00001000000010000000000000005A39
|
||||||
@ -126,6 +131,11 @@ object frBarraDatos: TfrBarraDatos
|
|||||||
FontDown.Height = -11
|
FontDown.Height = -11
|
||||||
FontDown.Name = 'Tahoma'
|
FontDown.Name = 'Tahoma'
|
||||||
FontDown.Style = []
|
FontDown.Style = []
|
||||||
|
FontDisabled.Charset = DEFAULT_CHARSET
|
||||||
|
FontDisabled.Color = clWindowText
|
||||||
|
FontDisabled.Height = -11
|
||||||
|
FontDisabled.Name = 'MS Sans Serif'
|
||||||
|
FontDisabled.Style = []
|
||||||
Glyph.Data = {
|
Glyph.Data = {
|
||||||
76020000424D7602000000000000760000002800000020000000200000000100
|
76020000424D7602000000000000760000002800000020000000200000000100
|
||||||
04000000000000020000230B0000230B00001000000010000000000000005A39
|
04000000000000020000230B0000230B00001000000010000000000000005A39
|
||||||
@ -178,6 +188,11 @@ object frBarraDatos: TfrBarraDatos
|
|||||||
FontDown.Height = -11
|
FontDown.Height = -11
|
||||||
FontDown.Name = 'Tahoma'
|
FontDown.Name = 'Tahoma'
|
||||||
FontDown.Style = []
|
FontDown.Style = []
|
||||||
|
FontDisabled.Charset = DEFAULT_CHARSET
|
||||||
|
FontDisabled.Color = clWindowText
|
||||||
|
FontDisabled.Height = -11
|
||||||
|
FontDisabled.Name = 'MS Sans Serif'
|
||||||
|
FontDisabled.Style = []
|
||||||
Glyph.Data = {
|
Glyph.Data = {
|
||||||
36100000424D3610000000000000360000002800000020000000200000000100
|
36100000424D3610000000000000360000002800000020000000200000000100
|
||||||
2000000000000010000000000000000000000000000000000000FF00FF00FF00
|
2000000000000010000000000000000000000000000000000000FF00FF00FF00
|
||||||
@ -318,10 +333,10 @@ object frBarraDatos: TfrBarraDatos
|
|||||||
end
|
end
|
||||||
object RdxBotonLateral3: TRdxBotonLateral
|
object RdxBotonLateral3: TRdxBotonLateral
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 150
|
Top = 250
|
||||||
Width = 135
|
Width = 135
|
||||||
Height = 50
|
Height = 50
|
||||||
Action = actFamilias
|
Action = actProcedencias
|
||||||
Alignment = taLeftJustify
|
Alignment = taLeftJustify
|
||||||
Color = 3618615
|
Color = 3618615
|
||||||
ColorFocused = 5000268
|
ColorFocused = 5000268
|
||||||
@ -340,60 +355,110 @@ object frBarraDatos: TfrBarraDatos
|
|||||||
FontDown.Height = -11
|
FontDown.Height = -11
|
||||||
FontDown.Name = 'Tahoma'
|
FontDown.Name = 'Tahoma'
|
||||||
FontDown.Style = []
|
FontDown.Style = []
|
||||||
|
FontDisabled.Charset = DEFAULT_CHARSET
|
||||||
|
FontDisabled.Color = clWindowText
|
||||||
|
FontDisabled.Height = -11
|
||||||
|
FontDisabled.Name = 'MS Sans Serif'
|
||||||
|
FontDisabled.Style = []
|
||||||
Glyph.Data = {
|
Glyph.Data = {
|
||||||
86060000424D8606000000000000860200002800000020000000200000000100
|
360C0000424D360C000000000000360000002800000020000000200000000100
|
||||||
08000000000000040000120B0000120B0000940000009400000000000000FFFF
|
180000000000000C0000120B0000120B00000000000000000000373737373737
|
||||||
FF00FF00FF0026252600A4A0A0005251510035353400F0FBFF0099B8CB009CB9
|
3737373737373737373737373737373737373131313333333737373737373737
|
||||||
CB0094B5CB0096B6CB0097B6CB0098B6CB0098B7CB009AB7CB009BB8CB008EB1
|
3737373737373737373737373737373737373737373737373737373737373737
|
||||||
CC0090B2CB0092B3CB0093B3CB0094B4CB0095B4CB0096B5CB007FA8CB0081AA
|
3737373737373737373737373737373737373737373737373737373737373737
|
||||||
CC0081A9CB0083AACB0085ACCC0084ABCB0085ACCB0087ADCC0087ADCB0089AE
|
3737373737373737373737373232321818180206090606062121212D2D2D3636
|
||||||
CB008BAFCC008AAECB008CAFCB008EB0CB0093B3CC006F9FCC0071A0CC0072A1
|
3636363637373737373737373737373737373737373737373737373737373737
|
||||||
CC0075A2CC0074A2CB0077A3CC0078A4CC0079A4CC007BA5CC007BA6CC007DA6
|
3737373737373737373737373737373737373737373737373737373737373737
|
||||||
CB007DA7CB0080A8CC0081A9CC0084AACC0086ABCC0000336700003366000135
|
3737373737373434341A1A1A03080A00596F00A8EA0047B1010A171212122929
|
||||||
670002366900023567000335680004376A000437690005396C0006396C00073A
|
2933333337373737373737373737373737373737373737373737373737373737
|
||||||
6E00073B6D00083B6D00093C6F000B3E72000B3E71000D4074000D4073000D41
|
3737373737373737373737373737373737373737373737373737373737373737
|
||||||
73000F4276000F4376001043750011457800114577001245780013477A001347
|
3434341C1C1C030607001E54009EDE00CCFF00B9FF0066FF005EEB0021540707
|
||||||
790014477A0016497C00174A7E00174A7D00184B7E001A4C7F001A4D7F001B4E
|
0722222235353537373737373737373737373737373737373737373737373737
|
||||||
81001C4F82001D5184001D5083001E5184001F5386001F528500205385002155
|
3737373737373737373737373737373737373737373737373737373737373737
|
||||||
880022558800225487002357890025588C00245689002457890026598C00285B
|
0B0B0B003D4D00AEDA0061DF00ACF800CCFF00B9FF0066FF0066FF0066FF002D
|
||||||
8E002A5D90002C5F92002C5F91002D6093002F6295002E619300306396003164
|
7210101035353537373737373737373737373737373737373737373737373736
|
||||||
96003265980033669900336598006D9DCC006E9DCC00709ECC00709FCC00719F
|
3636373737373737373737373737373737373737373737373737373737373737
|
||||||
CC00719FCB0073A0CC0099CCFF007EA6CC00033569000A3C700016487C001A4C
|
0808080096BF00CBFF0061DF00ACF800CCFF00B9FF0066FF0066FF0066FF0039
|
||||||
80002A5C90002C5E9200306296001616170042424300DDDDDD00CCCCCC009999
|
8F11111134343437373737373737373737373737373737373737373737373737
|
||||||
9900777777006E6E6E0066666600616161005555550044444400333333002222
|
3737373737373737373737373737373737373737373737373737373737373737
|
||||||
2200111111000909090002020202020202020202020202020202020202020202
|
0808080095BF00CAFF005CDF00ACF800CCFF00B9FF0066FF0066FF0066FF0039
|
||||||
0202020202020202020202020202020202020202020202020202860002020202
|
8F11111135353537373737373737373737373737373736363636363636363636
|
||||||
0202020202020202020202020202020202020202020202020200757586000202
|
3636363636363636373737373737373737373737373737373737373737373737
|
||||||
0202020202020202020202020202020202020202020202020073757575768600
|
0808080095BF00C9FF005ADF00ACF800CCFF00B9FF0066FF0066FF0066FF0039
|
||||||
0202020202020202020202020202020202020202020202007274757575277B2C
|
8F1111113D3939363636373737574C4BB69292CBA8A1D5BFA9C0989080686080
|
||||||
86000202020202020202020202020202020202020202006E70727575767A2A2E
|
6860B09080CEB69E7D6E65816965373737373737373737373737373737373737
|
||||||
7D198600020202020202020202020202020202020200836D8471757577292C30
|
0808080094BF00C8FF005ADF00ACF800CCFF00B9FF0066FF0066FF0066FF0039
|
||||||
181D2024860002020202020202020202020202020069826C6F6E7576792A2D31
|
8F1111118B6C6C967474967474C09090D0A8A0F0E0C0FF9890E07060C06060A0
|
||||||
1A1C2325130C93020202020202020202020202006465696A6B6E75787B2C2F33
|
5850704840B09080FFF0D0CBA1A19E807A594D4D373737373737373737373737
|
||||||
1B202412160E850202020202020202020202005F616768696B6E75282B2E321A
|
0808080093BF00C7FF005ADF00ACF800CCFF00B9FF0066FF0066FF0066FF0039
|
||||||
362125140B08030202020202020202020200595C606366687C787C7C2C2F3335
|
8F1111113635356C5757B08080C09090FFF8E0F0C0B0FF7870A0505040303090
|
||||||
1F2212150E10060202020202020202020055575A5B5E627C90048A8A7C7C341E
|
5050B06050A06860FFF8E0F0D8D0B080809A7373373737373737373737373737
|
||||||
211126170F0986020202020202020200518054585A5D7C00908704048A8A7C7C
|
0808080092BF00C6FF005ADF00ACF800CCFF00B8FE0065FE0066FF0066FF0039
|
||||||
24120A0D10090502020202020202004A4E505356817C8A008E87888804048A8A
|
8F111111363636383737A07070B09090FFF8F0E09890FFA09040384020283040
|
||||||
7C7C0B0809098D0202020202020046474C4D52537C008A008E87878788880404
|
3030E07870C06860FFF0F0C09890A070707F5E5E373737373737373737373737
|
||||||
8A8A7C7C09098B020202020200424446484B4F7C8A0004008E01878787878888
|
0808080091BF00C5FF005CE200ACF800CCFF00B5FB0057F0005FF80063FC0039
|
||||||
04048A8A7C7C8A02020202003E40434445497C008A0004008C8F010187878787
|
8F111111353535373737534144906060E0D8D0E0B0B0FFC0B0FFFFFF403030A0
|
||||||
8888048D8A8A8A02020202007E3D3F417F7C8A000400040007878F8F01018787
|
5850FF8070D08880B080809058608B565E4D3F41373737373737373737373737
|
||||||
8787019186868A02020202003B3A3D407C008A0004008700040187878F8F0101
|
0808080090BF00C4FF007EF000BFFD00CCFF00B9F9008CEE0052EB004BE4002F
|
||||||
87870191868A02020202020038393C7C8A00040004008787898F010187878F8F
|
851414143737373737373737374E3F3F804850A06060FF9880FFB0A0FF8870FF
|
||||||
010101918A0202020202020038377C008A00040087008F8787878F8F01018787
|
8070FF8070A0605080485077464D453A3C373737373737373737373737373737
|
||||||
8F8F01910202020202020200387C8600040004008787878F048787878F8F0101
|
0808080090BF00C3FF00C7FF00CAFF00CBFF00CCFF00C5FF0066FF0052EA0020
|
||||||
8791919102020202020202007C868600040087008F878787898F87878787908F
|
76141414373737373737373737373737493A3A70404070404080484090484080
|
||||||
0191020202020202020202007C86860004008787878F8F8787878F8F87870791
|
4040704040704040623E3E423939373737373737373737373737373737313131
|
||||||
9191020202020202020202028D788600878C0489048787048904878789908C91
|
050505008FBF00C2FF00C5FF00C9FF00CBFF00CCFF00C5FF0066FF0066FF0051
|
||||||
02020202020202020202020202028D008F878787878F8F8787878F8F07920202
|
CE010A182020203737373737373737373737373C36364E3333653E3E6D383F6D
|
||||||
020202020202020202020202020202028D8F8F878787878F0487879200910202
|
383F623E3E443535373737373737373737373737373737373737373737151515
|
||||||
0202020202020202020202020202020202028D8F8F878787898F079102020202
|
00314300AEEB00C1FF00C4FF00C8FF00CBFF00CCFF00BFFF0066FF0066FF0066
|
||||||
02020202020202020202020202020202020202028D8F8F878792009102020202
|
FF004AB90E0E0E37373737373737373737373737373737373737373737373737
|
||||||
020202020202020202020202020202020202020202028D8F0491020202020202
|
3737373737373737373737373737373737373737373737373737373737151515
|
||||||
0202020202020202020202020202020202020202020202028A91020202020202
|
005C7F00BCFF00C0FF00C3FF00C7FF00CAFF00CCFF00BFFF0066FF0066FF0066
|
||||||
0202020202020202020202020202020202020202020202020202020202020202
|
FF004CBF0E0E0E37373737373737373737373737373737373737373737373737
|
||||||
02020202020202020202}
|
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
|
Margin = 10
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
@ -425,6 +490,11 @@ object frBarraDatos: TfrBarraDatos
|
|||||||
FontDown.Height = -11
|
FontDown.Height = -11
|
||||||
FontDown.Name = 'Tahoma'
|
FontDown.Name = 'Tahoma'
|
||||||
FontDown.Style = []
|
FontDown.Style = []
|
||||||
|
FontDisabled.Charset = DEFAULT_CHARSET
|
||||||
|
FontDisabled.Color = clWindowText
|
||||||
|
FontDisabled.Height = -11
|
||||||
|
FontDisabled.Name = 'MS Sans Serif'
|
||||||
|
FontDisabled.Style = []
|
||||||
Glyph.Data = {
|
Glyph.Data = {
|
||||||
36100000424D3610000000000000360000002800000020000000200000000100
|
36100000424D3610000000000000360000002800000020000000200000000100
|
||||||
2000000000000010000000000000000000000000000000000000FF00FF00FF00
|
2000000000000010000000000000000000000000000000000000FF00FF00FF00
|
||||||
@ -563,6 +633,96 @@ object frBarraDatos: TfrBarraDatos
|
|||||||
Spacing = 12
|
Spacing = 12
|
||||||
Align = alTop
|
Align = alTop
|
||||||
end
|
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
|
end
|
||||||
object pnlTitulo: TPanel
|
object pnlTitulo: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
@ -633,5 +793,9 @@ object frBarraDatos: TfrBarraDatos
|
|||||||
Visible = False
|
Visible = False
|
||||||
OnExecute = actArticulosModeloExecute
|
OnExecute = actArticulosModeloExecute
|
||||||
end
|
end
|
||||||
|
object actProcedencias: TAction
|
||||||
|
Caption = 'Procedencias de cliente'
|
||||||
|
OnExecute = actProcedenciasExecute
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -52,12 +52,15 @@ type
|
|||||||
RdxBotonLateral11: TRdxBotonLateral;
|
RdxBotonLateral11: TRdxBotonLateral;
|
||||||
RdxBotonLateral3: TRdxBotonLateral;
|
RdxBotonLateral3: TRdxBotonLateral;
|
||||||
RdxBotonLateral9: TRdxBotonLateral;
|
RdxBotonLateral9: TRdxBotonLateral;
|
||||||
|
actProcedencias: TAction;
|
||||||
|
RdxBotonLateral4: TRdxBotonLateral;
|
||||||
procedure actArticulosExecute(Sender: TObject);
|
procedure actArticulosExecute(Sender: TObject);
|
||||||
procedure actVendedoresExecute(Sender: TObject);
|
procedure actVendedoresExecute(Sender: TObject);
|
||||||
procedure actInstaladoresExecute(Sender: TObject);
|
procedure actInstaladoresExecute(Sender: TObject);
|
||||||
procedure actFamiliasExecute(Sender: TObject);
|
procedure actFamiliasExecute(Sender: TObject);
|
||||||
procedure actFPagoExecute(Sender: TObject);
|
procedure actFPagoExecute(Sender: TObject);
|
||||||
procedure actArticulosModeloExecute(Sender: TObject);
|
procedure actArticulosModeloExecute(Sender: TObject);
|
||||||
|
procedure actProcedenciasExecute(Sender: TObject);
|
||||||
public
|
public
|
||||||
constructor Create (AOwner: TComponent); override;
|
constructor Create (AOwner: TComponent); override;
|
||||||
end;
|
end;
|
||||||
@ -70,7 +73,7 @@ implementation
|
|||||||
{$R *.DFM}
|
{$R *.DFM}
|
||||||
uses
|
uses
|
||||||
Vendedores, Instaladores, FormasPago, Propiedades, Entidades,
|
Vendedores, Instaladores, FormasPago, Propiedades, Entidades,
|
||||||
Familias, Articulos, ArticulosModelo, BaseDatos, Configuracion;
|
Familias, Procedencias, Articulos, ArticulosModelo, BaseDatos, Configuracion;
|
||||||
|
|
||||||
constructor TfrBarraDatos.Create (AOwner: TComponent);
|
constructor TfrBarraDatos.Create (AOwner: TComponent);
|
||||||
begin
|
begin
|
||||||
@ -119,4 +122,14 @@ begin
|
|||||||
Contenido := TfrArticulosModelo.Create(Self);
|
Contenido := TfrArticulosModelo.Create(Self);
|
||||||
end;
|
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.
|
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},
|
TablaCitas in 'BaseDatos\TablaCitas.pas' {dmTablaCitas: TDataModule},
|
||||||
EditorEventos in 'Agenda\EditorEventos.pas' {frEditorEventos},
|
EditorEventos in 'Agenda\EditorEventos.pas' {frEditorEventos},
|
||||||
CalendarioRecepciones in 'Agenda\CalendarioRecepciones.pas' {frCalendarioRecepciones: TRdxFrame},
|
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},
|
CalendarioMontajes in 'Agenda\CalendarioMontajes.pas' {frCalendarioMontajes: TRdxFrame},
|
||||||
InformeBaseFR3 in 'Informes\InformeBaseFR3.pas' {dmInformeBaseFR3: TDataModule},
|
InformeBaseFR3 in 'Informes\InformeBaseFR3.pas' {dmInformeBaseFR3: TDataModule},
|
||||||
InformeEstadoObra in 'Informes\InformeEstadoObra.pas' {dmInformeEstadoObra: TDataModule},
|
InformeEstadoObra in 'Informes\InformeEstadoObra.pas' {dmInformeEstadoObra: TDataModule},
|
||||||
@ -194,7 +194,17 @@ uses
|
|||||||
AlbaranesClientes in 'Clientes\AlbaranesClientes.pas' {frAlbaranesClientes: TRdxFrameAlbaranesCliente},
|
AlbaranesClientes in 'Clientes\AlbaranesClientes.pas' {frAlbaranesClientes: TRdxFrameAlbaranesCliente},
|
||||||
InformeAlbaranCliente in 'Informes\InformeAlbaranCliente.pas' {dmInformeAlbaranCliente: TDataModule},
|
InformeAlbaranCliente in 'Informes\InformeAlbaranCliente.pas' {dmInformeAlbaranCliente: TDataModule},
|
||||||
ImprimirAlbaranCliente in 'Clientes\ImprimirAlbaranCliente.pas' {frImprimirAlbaranCliente: TRdxFrame},
|
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 *.RES}
|
||||||
{$R Prueba.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,
|
entVendedor,
|
||||||
entInstalador,
|
entInstalador,
|
||||||
entFamilias,
|
entFamilias,
|
||||||
|
entProcedencias,
|
||||||
entPropiedades,
|
entPropiedades,
|
||||||
entFormasPago,
|
entFormasPago,
|
||||||
entComisiones,
|
entComisiones,
|
||||||
@ -100,6 +101,10 @@ type
|
|||||||
entResumenFacturacionProveedores,
|
entResumenFacturacionProveedores,
|
||||||
entListadoProveedores,
|
entListadoProveedores,
|
||||||
entListadoClientes,
|
entListadoClientes,
|
||||||
|
entListadoFacturacionProcedencia,
|
||||||
|
entListadoContratacionProcedencia,
|
||||||
|
entListadoProcedencias,
|
||||||
|
entListadoPresupuestosProcedencia,
|
||||||
entListadoLibros,
|
entListadoLibros,
|
||||||
entInformeTrimestralVentas,
|
entInformeTrimestralVentas,
|
||||||
entInformeTrimestralCompras
|
entInformeTrimestralCompras
|
||||||
@ -123,6 +128,7 @@ const
|
|||||||
('vendedor'), //entVendedor
|
('vendedor'), //entVendedor
|
||||||
('instalador'), //entInstalador
|
('instalador'), //entInstalador
|
||||||
('familias'), //entFamilias
|
('familias'), //entFamilias
|
||||||
|
('procedencias'), //entProcedencias
|
||||||
('propiedades'), //entPropiedades
|
('propiedades'), //entPropiedades
|
||||||
('formas de pago'), //entFormasPago
|
('formas de pago'), //entFormasPago
|
||||||
('comisiones de vendedor'), //entComisiones
|
('comisiones de vendedor'), //entComisiones
|
||||||
@ -183,7 +189,11 @@ const
|
|||||||
('resumen de facturación por proveedores'), //entResumenFacturacionProveedores
|
('resumen de facturación por proveedores'), //entResumenFacturacionProveedores
|
||||||
('listado de proveedores'), //entListadoProveedores
|
('listado de proveedores'), //entListadoProveedores
|
||||||
('listado de clientes'), //entListadoClientes
|
('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 libro'), //entListadoLibros
|
||||||
|
('listado de presupustos por procedencia de cliente'), //entListadoPresupuestosProcedencia
|
||||||
('listado trimestral de ventas'), //entInformeTrimestralVentas
|
('listado trimestral de ventas'), //entInformeTrimestralVentas
|
||||||
('listado trimestral de compras') //entInformeTrimestralCompras
|
('listado trimestral de compras') //entInformeTrimestralCompras
|
||||||
);
|
);
|
||||||
@ -226,6 +236,7 @@ begin
|
|||||||
entVendedor,
|
entVendedor,
|
||||||
entInstalador,
|
entInstalador,
|
||||||
entFamilias,
|
entFamilias,
|
||||||
|
entProcedencias,
|
||||||
entPropiedades,
|
entPropiedades,
|
||||||
entFormasPago,
|
entFormasPago,
|
||||||
entComisiones,
|
entComisiones,
|
||||||
@ -261,7 +272,11 @@ begin
|
|||||||
entAbonoVarios,
|
entAbonoVarios,
|
||||||
entFacturaProforma,
|
entFacturaProforma,
|
||||||
entAlbaranCliente,
|
entAlbaranCliente,
|
||||||
entListadoClientes : Result := 'Clientes';
|
entListadoClientes,
|
||||||
|
entListadoFacturacionProcedencia,
|
||||||
|
entListadoContratacionProcedencia,
|
||||||
|
entListadoProcedencias,
|
||||||
|
entListadoPresupuestosProcedencia : Result := 'Clientes';
|
||||||
|
|
||||||
//PROVEEDORES
|
//PROVEEDORES
|
||||||
entProveedor,
|
entProveedor,
|
||||||
|
|||||||
@ -8,195 +8,200 @@
|
|||||||
resources were bound to the produced executable.
|
resources were bound to the produced executable.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#define Literales_msgLibCierre 65280
|
#define Literales_msgInfTri0 65264
|
||||||
#define Literales_msgVisBorrarVisita 65281
|
#define Literales_msgInfTri1 65265
|
||||||
#define Literales_msgVisBorrarVisitas 65282
|
#define Literales_msgLibNoExisteEnt 65280
|
||||||
#define Literales_msgTriCodigoErroneo 65283
|
#define Literales_msgLibEntBloqueada 65281
|
||||||
#define Literales_msgTriCerrado 65284
|
#define Literales_msgLibNumEntRepetida 65282
|
||||||
#define Literales_msgTriFacTriCer 65285
|
#define Literales_msgLibNumEntIncorrecta 65283
|
||||||
#define Literales_msgTriPredeterminadoErr 65286
|
#define Literales_msgLibFaltaDescEnt 65284
|
||||||
#define Literales_msgTriPredeterminadoOk 65287
|
#define Literales_msgLibCierre 65285
|
||||||
#define Literales_msgTriCerrarPredeterminado 65288
|
#define Literales_msgVisBorrarVisita 65286
|
||||||
#define Literales_msgOpcTablaContBloqueada 65289
|
#define Literales_msgVisBorrarVisitas 65287
|
||||||
#define Literales_msgOpcContadoresInc 65290
|
#define Literales_msgTriCodigoErroneo 65288
|
||||||
#define Literales_msgInfTri0 65291
|
#define Literales_msgTriCerrado 65289
|
||||||
#define Literales_msgInfTri1 65292
|
#define Literales_msgTriFacTriCer 65290
|
||||||
#define Literales_msgCliIniMayor 65296
|
#define Literales_msgTriPredeterminadoErr 65291
|
||||||
#define Literales_msgCliNoHayCli 65297
|
#define Literales_msgTriPredeterminadoOk 65292
|
||||||
#define Literales_msgCliListBene1 65298
|
#define Literales_msgTriCerrarPredeterminado 65293
|
||||||
#define Literales_msgCliListBeneNoFac 65299
|
#define Literales_msgOpcTablaContBloqueada 65294
|
||||||
#define Literales_msgCliListBeneCon1 65300
|
#define Literales_msgOpcContadoresInc 65295
|
||||||
#define Literales_msgCliListBeneCon2 65301
|
#define Literales_msgCliSep5 65296
|
||||||
#define Literales_msgCliListBeneCon3 65302
|
#define Literales_msgCliSep6 65297
|
||||||
#define Literales_msgCliListBeneCon4 65303
|
#define Literales_msgCliSep7 65298
|
||||||
#define Literales_msgCliListBeneCon5 65304
|
#define Literales_msgCliSep8 65299
|
||||||
#define Literales_msgCliListBeneNoCon 65305
|
#define Literales_msgCliSep9 65300
|
||||||
#define Literales_msgCliBorrarPropiedades 65306
|
#define Literales_msgCliIniMayor 65301
|
||||||
#define Literales_msgLibNoExisteEnt 65307
|
#define Literales_msgCliNoHayCli 65302
|
||||||
#define Literales_msgLibEntBloqueada 65308
|
#define Literales_msgCliListBene1 65303
|
||||||
#define Literales_msgLibNumEntRepetida 65309
|
#define Literales_msgCliListBeneNoFac 65304
|
||||||
#define Literales_msgLibNumEntIncorrecta 65310
|
#define Literales_msgCliListBeneCon1 65305
|
||||||
#define Literales_msgLibFaltaDescEnt 65311
|
#define Literales_msgCliListBeneCon2 65306
|
||||||
#define Literales_msgCliNoExistePag 65312
|
#define Literales_msgCliListBeneCon3 65307
|
||||||
#define Literales_msgCliPagBloqueado 65313
|
#define Literales_msgCliListBeneCon4 65308
|
||||||
#define Literales_msgCliCodPagNoExiste 65314
|
#define Literales_msgCliListBeneCon5 65309
|
||||||
#define Literales_msgCliBorrarPago 65315
|
#define Literales_msgCliListBeneNoCon 65310
|
||||||
#define Literales_msgCliFaltaCliPag 65316
|
#define Literales_msgCliBorrarPropiedades 65311
|
||||||
#define Literales_msgCliFaltaDescPag 65317
|
#define Literales_msgCliCodFacProIncorrecto 65312
|
||||||
#define Literales_msgCliErrorOp 65318
|
#define Literales_msgCliNoExisteFacPro 65313
|
||||||
#define Literales_msgCliSep1 65319
|
#define Literales_msgCliFacProBloqueado 65314
|
||||||
#define Literales_msgCliSep2 65320
|
#define Literales_msgCliCodPagRepetido 65315
|
||||||
#define Literales_msgCliSep3 65321
|
#define Literales_msgCliCodPagIncorrecto 65316
|
||||||
#define Literales_msgCliSep4 65322
|
#define Literales_msgCliNoExistePag 65317
|
||||||
#define Literales_msgCliSep5 65323
|
#define Literales_msgCliPagBloqueado 65318
|
||||||
#define Literales_msgCliSep6 65324
|
#define Literales_msgCliCodPagNoExiste 65319
|
||||||
#define Literales_msgCliSep7 65325
|
#define Literales_msgCliBorrarPago 65320
|
||||||
#define Literales_msgCliSep8 65326
|
#define Literales_msgCliFaltaCliPag 65321
|
||||||
#define Literales_msgCliSep9 65327
|
#define Literales_msgCliFaltaDescPag 65322
|
||||||
#define Literales_msgCliSinProvincia 65328
|
#define Literales_msgCliErrorOp 65323
|
||||||
#define Literales_msgCliFaltaNombreCliFac 65329
|
#define Literales_msgCliSep1 65324
|
||||||
#define Literales_msgCliCodArtNoExiste 65330
|
#define Literales_msgCliSep2 65325
|
||||||
#define Literales_msgCliCodArtIncorrecto 65331
|
#define Literales_msgCliSep3 65326
|
||||||
#define Literales_msgCliFaltaFechaAlta 65332
|
#define Literales_msgCliSep4 65327
|
||||||
#define Literales_msgCliFaltaArticulos 65333
|
#define Literales_msgObrElijaContrago 65328
|
||||||
#define Literales_msgCliFaltaFechaVto 65334
|
#define Literales_msgObrEliminarDetalles 65329
|
||||||
#define Literales_msgCliFechaVtoMenorFechaAlta 65335
|
#define Literales_msgObrEliminarTodosDetalles 65330
|
||||||
#define Literales_msgCliNoExisteFac 65336
|
#define Literales_msgCliCodFacRepetido 65331
|
||||||
#define Literales_msgCliFacBloqueado 65337
|
#define Literales_msgCliCodFacIncorrecto 65332
|
||||||
#define Literales_msgCliCodFacProRepetido 65338
|
#define Literales_msgCliSinProvincia 65333
|
||||||
#define Literales_msgCliCodFacProIncorrecto 65339
|
#define Literales_msgCliFaltaNombreCliFac 65334
|
||||||
#define Literales_msgCliNoExisteFacPro 65340
|
#define Literales_msgCliCodArtNoExiste 65335
|
||||||
#define Literales_msgCliFacProBloqueado 65341
|
#define Literales_msgCliCodArtIncorrecto 65336
|
||||||
#define Literales_msgCliCodPagRepetido 65342
|
#define Literales_msgCliFaltaFechaAlta 65337
|
||||||
#define Literales_msgCliCodPagIncorrecto 65343
|
#define Literales_msgCliFaltaArticulos 65338
|
||||||
#define Literales_msgObrFaltaObr 65344
|
#define Literales_msgCliFaltaFechaVto 65339
|
||||||
#define Literales_msgObrAnadida 65345
|
#define Literales_msgCliFechaVtoMenorFechaAlta 65340
|
||||||
#define Literales_msgObrErrAnadir 65346
|
#define Literales_msgCliNoExisteFac 65341
|
||||||
#define Literales_msgObrNoExisteObr 65347
|
#define Literales_msgCliFacBloqueado 65342
|
||||||
#define Literales_msgObrObrBloqueado 65348
|
#define Literales_msgCliCodFacProRepetido 65343
|
||||||
#define Literales_msgObrInsRepetido 65349
|
#define Literales_litObrPedidos 65344
|
||||||
#define Literales_msgObrPedDesObl 65350
|
#define Literales_litObrOtros 65345
|
||||||
#define Literales_msgObrPedSelec 65351
|
#define Literales_litObrEntregas 65346
|
||||||
#define Literales_msgObrPrePedBorrar 65352
|
#define Literales_litObrMontajes 65347
|
||||||
#define Literales_msgObrInsConOtrasTareas1 65353
|
#define Literales_litObrRemates 65348
|
||||||
#define Literales_msgObrInsConOtrasTareas2 65354
|
#define Literales_msgObrFaltaObr 65349
|
||||||
#define Literales_msgObrElijaContrago 65355
|
#define Literales_msgObrAnadida 65350
|
||||||
#define Literales_msgObrEliminarDetalles 65356
|
#define Literales_msgObrErrAnadir 65351
|
||||||
#define Literales_msgObrEliminarTodosDetalles 65357
|
#define Literales_msgObrNoExisteObr 65352
|
||||||
#define Literales_msgCliCodFacRepetido 65358
|
#define Literales_msgObrObrBloqueado 65353
|
||||||
#define Literales_msgCliCodFacIncorrecto 65359
|
#define Literales_msgObrInsRepetido 65354
|
||||||
#define Literales_msgCliPreErrEliminarDoc 65360
|
#define Literales_msgObrPedDesObl 65355
|
||||||
#define Literales_msgCliCodConRepetido 65361
|
#define Literales_msgObrPedSelec 65356
|
||||||
#define Literales_msgCliCodConIncorrecto 65362
|
#define Literales_msgObrPrePedBorrar 65357
|
||||||
#define Literales_msgCliFaltaNombreCliCon 65363
|
#define Literales_msgObrInsConOtrasTareas1 65358
|
||||||
#define Literales_msgCliFaltaFechaAltaCon 65364
|
#define Literales_msgObrInsConOtrasTareas2 65359
|
||||||
#define Literales_msgCliFaltaArticulosCon 65365
|
#define Literales_msgCliPreNoModificar 65360
|
||||||
#define Literales_msgCliNoExisteCon 65366
|
#define Literales_msgCliPreNoEliminar 65361
|
||||||
#define Literales_msgCliConBloqueado 65367
|
#define Literales_msgCliCambiarTipoPre 65362
|
||||||
#define Literales_msgCliCrearContrato 65368
|
#define Literales_msgCliNoExisteTipoPre 65363
|
||||||
#define Literales_msgCliCodConNoExiste 65369
|
#define Literales_msgCliPreErrAnadirDoc 65364
|
||||||
#define Literales_litObrObra 65370
|
#define Literales_msgCliPreErrEliminarDoc 65365
|
||||||
#define Literales_litObrPedidos 65371
|
#define Literales_msgCliCodConRepetido 65366
|
||||||
#define Literales_litObrOtros 65372
|
#define Literales_msgCliCodConIncorrecto 65367
|
||||||
#define Literales_litObrEntregas 65373
|
#define Literales_msgCliFaltaNombreCliCon 65368
|
||||||
#define Literales_litObrMontajes 65374
|
#define Literales_msgCliFaltaFechaAltaCon 65369
|
||||||
#define Literales_litObrRemates 65375
|
#define Literales_msgCliFaltaArticulosCon 65370
|
||||||
#define Literales_msgCliSobraFechaDecisionPre 65376
|
#define Literales_msgCliNoExisteCon 65371
|
||||||
#define Literales_msgCliFaltaArticulosPre 65377
|
#define Literales_msgCliConBloqueado 65372
|
||||||
#define Literales_msgCliNoExistePre 65378
|
#define Literales_msgCliCrearContrato 65373
|
||||||
#define Literales_msgCliNoExistePreOrigen 65379
|
#define Literales_msgCliCodConNoExiste 65374
|
||||||
#define Literales_msgCliPreBloqueado 65380
|
#define Literales_litObrObra 65375
|
||||||
#define Literales_msgCliPreYaAceptado 65381
|
#define Literales_msgCliCodPreRepetido 65376
|
||||||
#define Literales_msgCliPreYaRechazado 65382
|
#define Literales_msgCliCodPreIncorrecto 65377
|
||||||
#define Literales_msgCliCambiarAAceptar 65383
|
#define Literales_msgCliFaltaNombreCliPre 65378
|
||||||
#define Literales_msgCliCambiarARechazar 65384
|
#define Literales_msgCliFaltaFechaAltaPre 65379
|
||||||
#define Literales_msgCliPreConContrato 65385
|
#define Literales_msgCliFaltaFechaDecisionPre 65380
|
||||||
#define Literales_msgCliPreYaFacturado 65386
|
#define Literales_msgCliSobraFechaDecisionPre 65381
|
||||||
#define Literales_msgCliPreNoModificar 65387
|
#define Literales_msgCliFaltaArticulosPre 65382
|
||||||
#define Literales_msgCliPreNoEliminar 65388
|
#define Literales_msgCliNoExistePre 65383
|
||||||
#define Literales_msgCliCambiarTipoPre 65389
|
#define Literales_msgCliNoExistePreOrigen 65384
|
||||||
#define Literales_msgCliNoExisteTipoPre 65390
|
#define Literales_msgCliPreBloqueado 65385
|
||||||
#define Literales_msgCliPreErrAnadirDoc 65391
|
#define Literales_msgCliPreYaAceptado 65386
|
||||||
#define Literales_msgCliCliBloqueado 65392
|
#define Literales_msgCliPreYaRechazado 65387
|
||||||
#define Literales_msgCliBorrarSucursal 65393
|
#define Literales_msgCliCambiarAAceptar 65388
|
||||||
#define Literales_msgCliBorrarSucursales 65394
|
#define Literales_msgCliCambiarARechazar 65389
|
||||||
#define Literales_msgCliCodCliNoExiste 65395
|
#define Literales_msgCliPreConContrato 65390
|
||||||
#define Literales_msgCliFaltaCodCli 65396
|
#define Literales_msgCliPreYaFacturado 65391
|
||||||
#define Literales_msgCliCliNoElim 65397
|
#define Literales_msgCliCodCliRepetido 65392
|
||||||
#define Literales_msgCliCliNoFacPag 65398
|
#define Literales_msgCliCodCliIncorrecto 65393
|
||||||
#define Literales_msgCliNoExisteCodigo 65399
|
#define Literales_msgCliFaltaNombreCli 65394
|
||||||
#define Literales_msgCliCodigoIniMenor 65400
|
#define Literales_msgCliFaltaCli 65395
|
||||||
#define Literales_msgCliCodigoIncorrecto 65401
|
#define Literales_msgCliNoExisteCli 65396
|
||||||
#define Literales_msgCliFaltanCodigos 65402
|
#define Literales_msgCliCliBloqueado 65397
|
||||||
#define Literales_msgCliCodPreRepetido 65403
|
#define Literales_msgCliBorrarSucursal 65398
|
||||||
#define Literales_msgCliCodPreIncorrecto 65404
|
#define Literales_msgCliBorrarSucursales 65399
|
||||||
#define Literales_msgCliFaltaNombreCliPre 65405
|
#define Literales_msgCliCodCliNoExiste 65400
|
||||||
#define Literales_msgCliFaltaFechaAltaPre 65406
|
#define Literales_msgCliFaltaCodCli 65401
|
||||||
#define Literales_msgCliFaltaFechaDecisionPre 65407
|
#define Literales_msgCliCliNoElim 65402
|
||||||
#define Literales_msgProvCodPagIncorrecto 65408
|
#define Literales_msgCliCliNoFacPag 65403
|
||||||
#define Literales_msgProvNoExistePag 65409
|
#define Literales_msgCliNoExisteCodigo 65404
|
||||||
#define Literales_msgProvPagBloqueado 65410
|
#define Literales_msgCliCodigoIniMenor 65405
|
||||||
#define Literales_msgProvCodPagNoExiste 65411
|
#define Literales_msgCliCodigoIncorrecto 65406
|
||||||
#define Literales_msgProvBorrarPago 65412
|
#define Literales_msgCliFaltanCodigos 65407
|
||||||
#define Literales_msgProvFaltaProPag 65413
|
#define Literales_msgErrorFacturarPed 65408
|
||||||
#define Literales_msgProvFaltaDescPag 65414
|
#define Literales_msgCodPedRepetido 65409
|
||||||
#define Literales_msgProvIniMayor 65415
|
#define Literales_msgPedDistintoProv 65410
|
||||||
#define Literales_msgProvNoHayProv 65416
|
#define Literales_msgProvContratoRepetido 65411
|
||||||
#define Literales_msgCodPedNoExiste 65417
|
#define Literales_msgProvCodPagRepetido 65412
|
||||||
#define Literales_msgCodPedIncorrecto 65418
|
#define Literales_msgProvCodPagIncorrecto 65413
|
||||||
#define Literales_msgCliCodCliRepetido 65419
|
#define Literales_msgProvNoExistePag 65414
|
||||||
#define Literales_msgCliCodCliIncorrecto 65420
|
#define Literales_msgProvPagBloqueado 65415
|
||||||
#define Literales_msgCliFaltaNombreCli 65421
|
#define Literales_msgProvCodPagNoExiste 65416
|
||||||
#define Literales_msgCliFaltaCli 65422
|
#define Literales_msgProvBorrarPago 65417
|
||||||
#define Literales_msgCliNoExisteCli 65423
|
#define Literales_msgProvFaltaProPag 65418
|
||||||
#define Literales_msgTipFacturas2 65424
|
#define Literales_msgProvFaltaDescPag 65419
|
||||||
#define Literales_msgProvCantidadNoValida 65425
|
#define Literales_msgProvIniMayor 65420
|
||||||
#define Literales_msgProvPrecioNoValido 65426
|
#define Literales_msgProvNoHayProv 65421
|
||||||
#define Literales_msgProvDtoNoValido 65427
|
#define Literales_msgCodPedNoExiste 65422
|
||||||
#define Literales_msgProvBorrarFacPed 65428
|
#define Literales_msgCodPedIncorrecto 65423
|
||||||
#define Literales_msgProvPedidoNoFacturar 65429
|
#define Literales_msgProvFaltanDetallesFac 65424
|
||||||
#define Literales_msgProvPedYaFacturado 65430
|
#define Literales_msgProvFaltaFormaPagoFac 65425
|
||||||
#define Literales_msgProvNoExisteFacProv 65431
|
#define Literales_msgProvFaltaTipoFac 65426
|
||||||
#define Literales_msgProvFacProvBloqueada 65432
|
#define Literales_msgTipFacturas0 65427
|
||||||
#define Literales_msgPedidoNoProveedor 65433
|
#define Literales_msgTipFacturas1 65428
|
||||||
#define Literales_msgSitPedIncorrecta 65434
|
#define Literales_msgTipFacturas2 65429
|
||||||
#define Literales_msgErrorFacturarPed 65435
|
#define Literales_msgProvCantidadNoValida 65430
|
||||||
#define Literales_msgCodPedRepetido 65436
|
#define Literales_msgProvPrecioNoValido 65431
|
||||||
#define Literales_msgPedDistintoProv 65437
|
#define Literales_msgProvDtoNoValido 65432
|
||||||
#define Literales_msgProvContratoRepetido 65438
|
#define Literales_msgProvBorrarFacPed 65433
|
||||||
#define Literales_msgProvCodPagRepetido 65439
|
#define Literales_msgProvPedidoNoFacturar 65434
|
||||||
#define Literales_msgProvFaltaProv 65440
|
#define Literales_msgProvPedYaFacturado 65435
|
||||||
#define Literales_msgProvBorrarRepresentante 65441
|
#define Literales_msgProvNoExisteFacProv 65436
|
||||||
#define Literales_msgProvBorrarRepresentantes 65442
|
#define Literales_msgProvFacProvBloqueada 65437
|
||||||
#define Literales_msgProvFaltaCodProv 65443
|
#define Literales_msgPedidoNoProveedor 65438
|
||||||
#define Literales_msgProvProvNoElim 65444
|
#define Literales_msgSitPedIncorrecta 65439
|
||||||
#define Literales_msgProvCodFacRepetido 65445
|
#define Literales_msgProvCodProvIncorrecto 65440
|
||||||
#define Literales_msgProvCodFacIncorrecto 65446
|
#define Literales_msgProvFaltaNombreProv 65441
|
||||||
#define Literales_msgProvFaltaNombreProvFac 65447
|
#define Literales_msgProvNoExisteProv 65442
|
||||||
#define Literales_msgProvFaltaFechaAltaFac 65448
|
#define Literales_msgProvProvBloqueado 65443
|
||||||
#define Literales_msgProvFaltaFechaVtoFac 65449
|
#define Literales_msgProvCodProvNoExiste 65444
|
||||||
#define Literales_msgProvFechaVtoAnteriorFac 65450
|
#define Literales_msgProvFaltaProv 65445
|
||||||
#define Literales_msgProvFaltanDetallesFac 65451
|
#define Literales_msgProvBorrarRepresentante 65446
|
||||||
#define Literales_msgProvFaltaFormaPagoFac 65452
|
#define Literales_msgProvBorrarRepresentantes 65447
|
||||||
#define Literales_msgProvFaltaTipoFac 65453
|
#define Literales_msgProvFaltaCodProv 65448
|
||||||
#define Literales_msgTipFacturas0 65454
|
#define Literales_msgProvProvNoElim 65449
|
||||||
#define Literales_msgTipFacturas1 65455
|
#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_msgDatosFamiliaModelo 65456
|
||||||
#define Literales_msgDatosFaltaDescripcionProp 65457
|
#define Literales_msgDatosNoExisteProcedencia 65457
|
||||||
#define Literales_msgDatosTablaPropBloqueada 65458
|
#define Literales_msgDatosFaltaDescripcionProc 65458
|
||||||
#define Literales_msgDatosPropiedadRepetida 65459
|
#define Literales_msgDatosTablaProcBloqueada 65459
|
||||||
#define Literales_msgDatosPropiedadUsada 65460
|
#define Literales_msgDatosProcRepetida 65460
|
||||||
#define Literales_msgDatosCopiaInvalida 65461
|
#define Literales_msgDatosProcModelo 65461
|
||||||
#define Literales_msgDatosCopiaVacia 65462
|
#define Literales_msgDatosFaltaDescripcionProp 65462
|
||||||
#define Literales_msgDatosFaltaDescripcionFpago 65463
|
#define Literales_msgDatosTablaPropBloqueada 65463
|
||||||
#define Literales_msgDatosTablaFpagoBloqueada 65464
|
#define Literales_msgDatosPropiedadRepetida 65464
|
||||||
#define Literales_msgDatosFormaPagoRepetida 65465
|
#define Literales_msgDatosPropiedadUsada 65465
|
||||||
#define Literales_msgProvCodProvRepetido 65466
|
#define Literales_msgDatosCopiaInvalida 65466
|
||||||
#define Literales_msgProvCodProvIncorrecto 65467
|
#define Literales_msgDatosCopiaVacia 65467
|
||||||
#define Literales_msgProvFaltaNombreProv 65468
|
#define Literales_msgDatosFaltaDescripcionFpago 65468
|
||||||
#define Literales_msgProvNoExisteProv 65469
|
#define Literales_msgDatosTablaFpagoBloqueada 65469
|
||||||
#define Literales_msgProvProvBloqueado 65470
|
#define Literales_msgDatosFormaPagoRepetida 65470
|
||||||
#define Literales_msgProvCodProvNoExiste 65471
|
#define Literales_msgProvCodProvRepetido 65471
|
||||||
#define Literales_msgDatosCodVendRepetido 65472
|
#define Literales_msgDatosCodVendRepetido 65472
|
||||||
#define Literales_msgDatosCodVendIncorrecto 65473
|
#define Literales_msgDatosCodVendIncorrecto 65473
|
||||||
#define Literales_msgDatosFaltaNombreVend 65474
|
#define Literales_msgDatosFaltaNombreVend 65474
|
||||||
@ -263,6 +268,13 @@
|
|||||||
#define Literales_msgFaltaConfig 65535
|
#define Literales_msgFaltaConfig 65535
|
||||||
STRINGTABLE
|
STRINGTABLE
|
||||||
BEGIN
|
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_msgLibCierre, "CIERRE DE CAJA"
|
||||||
Literales_msgVisBorrarVisita, "¿Desea borrar la visita de las %s?"
|
Literales_msgVisBorrarVisita, "¿Desea borrar la visita de las %s?"
|
||||||
Literales_msgVisBorrarVisitas, "¿Desea borrar todas las visitas del dia %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_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_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_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_msgCliSep5, "[Anulación de entrada "
|
||||||
Literales_msgInfTri1, "Existen más tipos de operacion que los iniciales 14!"
|
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_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_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"
|
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_msgCliListBeneCon5, " Porcentaje beneficio: "
|
||||||
Literales_msgCliListBeneNoCon, "No existen contratos de cliente"
|
Literales_msgCliListBeneNoCon, "No existen contratos de cliente"
|
||||||
Literales_msgCliBorrarPropiedades, "¿Desea borrar todas las propiedades?"
|
Literales_msgCliBorrarPropiedades, "¿Desea borrar todas las propiedades?"
|
||||||
Literales_msgLibNoExisteEnt, "La entrada %s no existe en el libro."
|
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_msgLibEntBloqueada, "La entrada %s está siendo modificada por otro usuario."
|
Literales_msgCliNoExisteFacPro, "La factura proforma %s no existe."
|
||||||
Literales_msgLibNumEntRepetida, "Ya existe la entrada %s. Cambie el número de entrada por otra que no exista."
|
Literales_msgCliFacProBloqueado, "La factura proforma %s está siendo modificada por otro usuario."
|
||||||
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_msgCliCodPagRepetido, "Ya existe el pago de cliente %s. Cambie el código del pago por otro que no exista."
|
||||||
Literales_msgLibFaltaDescEnt, "Es obligatorio introducir descripción de entrada."
|
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_msgCliNoExistePag, "El pago de cliente %s no existe."
|
||||||
Literales_msgCliPagBloqueado, "El pago de cliente %s está siendo modificado por otro usuario."
|
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."
|
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_msgCliSep2, " de cliente: "
|
||||||
Literales_msgCliSep3, ", "
|
Literales_msgCliSep3, ", "
|
||||||
Literales_msgCliSep4, "] : "
|
Literales_msgCliSep4, "] : "
|
||||||
Literales_msgCliSep5, "[Anulación de entrada "
|
Literales_msgObrElijaContrago, "Elija el contrato del que desea abrir una obra"
|
||||||
Literales_msgCliSep6, " al modificar "
|
Literales_msgObrEliminarDetalles, "¿Desea eliminar esta linea?"
|
||||||
Literales_msgCliSep7, " al eliminar "
|
Literales_msgObrEliminarTodosDetalles, "¿Desea eliminar todo?"
|
||||||
Literales_msgCliSep8, " "
|
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_msgCliSep9, " de proveedor: "
|
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_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_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."
|
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_msgCliNoExisteFac, "La factura de cliente %s no existe."
|
||||||
Literales_msgCliFacBloqueado, "La factura de cliente %s está siendo modificada por otro usuario."
|
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_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_litObrPedidos, "Pedidos "
|
||||||
Literales_msgCliNoExisteFacPro, "La factura proforma %s no existe."
|
Literales_litObrOtros, "Otros "
|
||||||
Literales_msgCliFacProBloqueado, "La factura proforma %s está siendo modificada por otro usuario."
|
Literales_litObrEntregas, "Entregas "
|
||||||
Literales_msgCliCodPagRepetido, "Ya existe el pago de cliente %s. Cambie el código del pago por otro que no exista."
|
Literales_litObrMontajes, "Montajes "
|
||||||
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_litObrRemates, "Remates "
|
||||||
Literales_msgObrFaltaObr, "Es obligatorio introducir una obra."
|
Literales_msgObrFaltaObr, "Es obligatorio introducir una obra."
|
||||||
Literales_msgObrAnadida, "Se ha abierto la obra asociada al contrato %s."
|
Literales_msgObrAnadida, "Se ha abierto la obra asociada al contrato %s."
|
||||||
Literales_msgObrErrAnadir, "El contrato %s, ya tiene una obra abierta"
|
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_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_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_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_msgCliPreNoModificar, "Este presupuesto no se puede modificar porque está %s."
|
||||||
Literales_msgObrEliminarDetalles, "¿Desea eliminar esta linea?"
|
Literales_msgCliPreNoEliminar, "Este presupuesto no se puede eliminar porque está %s."
|
||||||
Literales_msgObrEliminarTodosDetalles, "¿Desea eliminar todo?"
|
Literales_msgCliCambiarTipoPre, "¿Desea convertir este presupuesto en un presupuesto de %s?"
|
||||||
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_msgCliNoExisteTipoPre, "No existe el tipo de presupuesto %s."
|
||||||
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_msgCliPreErrAnadirDoc, "No se ha podido añadirse el documento al presupuesto"
|
||||||
Literales_msgCliPreErrEliminarDoc, "No se ha podido eliminar el documento seleccionado"
|
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_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."
|
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_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_msgCliCodConNoExiste, "No existe el contrato %s. Introduzca un codigo de contrato que sí exista."
|
||||||
Literales_litObrObra, "Obra "
|
Literales_litObrObra, "Obra "
|
||||||
Literales_litObrPedidos, "Pedidos "
|
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_litObrOtros, "Otros "
|
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_litObrEntregas, "Entregas "
|
Literales_msgCliFaltaNombreCliPre, "Es obligatorio introducir los datos del cliente al que pertenece este presupuesto."
|
||||||
Literales_litObrMontajes, "Montajes "
|
Literales_msgCliFaltaFechaAltaPre, "Debe indicar la fecha de alta del presupuesto."
|
||||||
Literales_litObrRemates, "Remates "
|
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_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_msgCliFaltaArticulosPre, "Es obligatorio introducir al menos un concepto en el presupuesto."
|
||||||
Literales_msgCliNoExistePre, "El presupuesto %s no existe."
|
Literales_msgCliNoExistePre, "El presupuesto %s no existe."
|
||||||
@ -367,11 +382,11 @@ BEGIN
|
|||||||
Literales_msgCliCambiarARechazar, "El presupuesto %s está aceptado. ¿Desea rechazarlo?"
|
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_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_msgCliPreYaFacturado, "El presupuesto %s ya está facturado."
|
||||||
Literales_msgCliPreNoModificar, "Este presupuesto no se puede modificar porque está %s."
|
Literales_msgCliCodCliRepetido, "Ya existe el cliente %s. Cambie el codigo del cliente por otro que no exista."
|
||||||
Literales_msgCliPreNoEliminar, "Este presupuesto no se puede eliminar porque está %s."
|
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_msgCliCambiarTipoPre, "¿Desea convertir este presupuesto en un presupuesto de %s?"
|
Literales_msgCliFaltaNombreCli, "Es obligatorio introducir el cliente."
|
||||||
Literales_msgCliNoExisteTipoPre, "No existe el tipo de presupuesto %s."
|
Literales_msgCliFaltaCli, "Es obligatorio introducir un cliente."
|
||||||
Literales_msgCliPreErrAnadirDoc, "No se ha podido añadirse el documento al presupuesto"
|
Literales_msgCliNoExisteCli, "El cliente %s no existe."
|
||||||
Literales_msgCliCliBloqueado, "El cliente %s está siendo modificado por otro usuario."
|
Literales_msgCliCliBloqueado, "El cliente %s está siendo modificado por otro usuario."
|
||||||
Literales_msgCliBorrarSucursal, "¿Desea borrar esta sucursal?"
|
Literales_msgCliBorrarSucursal, "¿Desea borrar esta sucursal?"
|
||||||
Literales_msgCliBorrarSucursales, "¿Desea borrar todas las sucursales?"
|
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_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_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_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_msgErrorFacturarPed, "Error. No se ha podido añadir el pedido %s a la factura."
|
||||||
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_msgCodPedRepetido, "El código de pedido %s ya existe en la lista de pedidos de la factura."
|
||||||
Literales_msgCliFaltaNombreCliPre, "Es obligatorio introducir los datos del cliente al que pertenece este presupuesto."
|
Literales_msgPedDistintoProv, "El pedido %s pertenece a un proveedor distinto al que figura en la factura."
|
||||||
Literales_msgCliFaltaFechaAltaPre, "Debe indicar la fecha de alta del presupuesto."
|
Literales_msgProvContratoRepetido, "El contrato %s ya está incluído en la lista."
|
||||||
Literales_msgCliFaltaFechaDecisionPre, "Para poder aceptar o anular el presupuesto, debe indicar la fecha de decisión del presupuesto."
|
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_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_msgProvNoExistePag, "El pago de proveedor %s no existe."
|
||||||
Literales_msgProvPagBloqueado, "El pago de proveedor %s está siendo modificado por otro usuario."
|
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_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_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_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_msgProvFaltanDetallesFac, "Es necesario introducir al menos un pedido en la factura."
|
||||||
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_msgProvFaltaFormaPagoFac, "Es necesario indicar la forma de pago."
|
||||||
Literales_msgCliFaltaNombreCli, "Es obligatorio introducir el cliente."
|
Literales_msgProvFaltaTipoFac, "Es necesario indicar el tipo de operación de la factura."
|
||||||
Literales_msgCliFaltaCli, "Es obligatorio introducir un cliente."
|
Literales_msgTipFacturas0, "Todas"
|
||||||
Literales_msgCliNoExisteCli, "El cliente %s no existe."
|
Literales_msgTipFacturas1, "General"
|
||||||
Literales_msgTipFacturas2, "Inmovilizado"
|
Literales_msgTipFacturas2, "Inmovilizado"
|
||||||
Literales_msgProvCantidadNoValida, "La cantidad introducida no es un valor correcto."
|
Literales_msgProvCantidadNoValida, "La cantidad introducida no es un valor correcto."
|
||||||
Literales_msgProvPrecioNoValido, "El precio unidad introducido 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_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_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_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_msgProvCodProvIncorrecto, "%s no es un código correcto para un proveedor. Cambie el codigo del proveedor por otro e inténtelo de nuevo."
|
||||||
Literales_msgCodPedRepetido, "El código de pedido %s ya existe en la lista de pedidos de la factura."
|
Literales_msgProvFaltaNombreProv, "Es obligatorio introducir el nombre del proveedor."
|
||||||
Literales_msgPedDistintoProv, "El pedido %s pertenece a un proveedor distinto al que figura en la factura."
|
Literales_msgProvNoExisteProv, "El proveedor %s no existe."
|
||||||
Literales_msgProvContratoRepetido, "El contrato %s ya está incluído en la lista."
|
Literales_msgProvProvBloqueado, "El proveedor %s está siendo modificado por otro usuario."
|
||||||
Literales_msgProvCodPagRepetido, "Ya existe el pago de proveedor %s. Cambie el código del pago por otro que no exista."
|
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_msgProvFaltaProv, "Es obligatorio indicar un proveedor."
|
||||||
Literales_msgProvBorrarRepresentante, "¿Desea borrar este representante?"
|
Literales_msgProvBorrarRepresentante, "¿Desea borrar este representante?"
|
||||||
Literales_msgProvBorrarRepresentantes, "¿Desea borrar todos los representantes?"
|
Literales_msgProvBorrarRepresentantes, "¿Desea borrar todos los representantes?"
|
||||||
@ -431,12 +446,12 @@ BEGIN
|
|||||||
Literales_msgProvFaltaFechaAltaFac, "La factura debe tener fecha de alta."
|
Literales_msgProvFaltaFechaAltaFac, "La factura debe tener fecha de alta."
|
||||||
Literales_msgProvFaltaFechaVtoFac, "La factura debe tener fecha de vencimiento."
|
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_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_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_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_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."
|
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_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_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_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_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_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."
|
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
|
object frInformesVentas: TfrInformesVentas
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 658
|
Width = 713
|
||||||
Height = 556
|
Height = 624
|
||||||
Color = 16383743
|
Color = 16383743
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
object BarraInformes: TRdxBarraSuperior
|
object BarraInformes: TRdxBarraSuperior
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 658
|
Width = 713
|
||||||
Height = 25
|
Height = 25
|
||||||
Caption = 'Informes de ventas e ingresos '
|
Caption = 'Informes de ventas e ingresos '
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
@ -28,7 +28,7 @@ object frInformesVentas: TfrInformesVentas
|
|||||||
object imgSombra: TImage
|
object imgSombra: TImage
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 658
|
Width = 713
|
||||||
Height = 8
|
Height = 8
|
||||||
Align = alTop
|
Align = alTop
|
||||||
end
|
end
|
||||||
@ -36,8 +36,8 @@ object frInformesVentas: TfrInformesVentas
|
|||||||
object pnlCuerpo: TPanel
|
object pnlCuerpo: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 25
|
Top = 25
|
||||||
Width = 658
|
Width = 713
|
||||||
Height = 531
|
Height = 599
|
||||||
Align = alClient
|
Align = alClient
|
||||||
BevelOuter = bvNone
|
BevelOuter = bvNone
|
||||||
BorderWidth = 10
|
BorderWidth = 10
|
||||||
@ -46,8 +46,8 @@ object frInformesVentas: TfrInformesVentas
|
|||||||
object RdxPanel1: TRdxPanel
|
object RdxPanel1: TRdxPanel
|
||||||
Left = 10
|
Left = 10
|
||||||
Top = 10
|
Top = 10
|
||||||
Width = 638
|
Width = 693
|
||||||
Height = 511
|
Height = 579
|
||||||
BorderStyle = bsSingle
|
BorderStyle = bsSingle
|
||||||
Caption = ' '
|
Caption = ' '
|
||||||
BorderWidth = 1
|
BorderWidth = 1
|
||||||
@ -59,8 +59,8 @@ object frInformesVentas: TfrInformesVentas
|
|||||||
UseDockManager = True
|
UseDockManager = True
|
||||||
object Panel1: TPanel
|
object Panel1: TPanel
|
||||||
Left = 1
|
Left = 1
|
||||||
Top = 109
|
Top = 385
|
||||||
Width = 636
|
Width = 691
|
||||||
Height = 92
|
Height = 92
|
||||||
Align = alTop
|
Align = alTop
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
@ -147,7 +147,7 @@ object frInformesVentas: TfrInformesVentas
|
|||||||
object Panel2: TPanel
|
object Panel2: TPanel
|
||||||
Left = 74
|
Left = 74
|
||||||
Top = 10
|
Top = 10
|
||||||
Width = 552
|
Width = 607
|
||||||
Height = 72
|
Height = 72
|
||||||
Align = alClient
|
Align = alClient
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
@ -155,7 +155,7 @@ object frInformesVentas: TfrInformesVentas
|
|||||||
ParentColor = True
|
ParentColor = True
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
object Panel3: TPanel
|
object Panel3: TPanel
|
||||||
Left = 276
|
Left = 331
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 276
|
Width = 276
|
||||||
Height = 72
|
Height = 72
|
||||||
@ -203,7 +203,7 @@ object frInformesVentas: TfrInformesVentas
|
|||||||
object Panel4: TPanel
|
object Panel4: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 276
|
Width = 331
|
||||||
Height = 72
|
Height = 72
|
||||||
Align = alClient
|
Align = alClient
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
@ -213,7 +213,7 @@ object frInformesVentas: TfrInformesVentas
|
|||||||
object Label1: TLabel
|
object Label1: TLabel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 276
|
Width = 331
|
||||||
Height = 20
|
Height = 20
|
||||||
Align = alTop
|
Align = alTop
|
||||||
AutoSize = False
|
AutoSize = False
|
||||||
@ -229,7 +229,7 @@ object frInformesVentas: TfrInformesVentas
|
|||||||
object Label2: TLabel
|
object Label2: TLabel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 20
|
Top = 20
|
||||||
Width = 276
|
Width = 331
|
||||||
Height = 52
|
Height = 52
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Caption =
|
Caption =
|
||||||
@ -260,7 +260,7 @@ object frInformesVentas: TfrInformesVentas
|
|||||||
object Panel5: TPanel
|
object Panel5: TPanel
|
||||||
Left = 1
|
Left = 1
|
||||||
Top = 1
|
Top = 1
|
||||||
Width = 636
|
Width = 691
|
||||||
Height = 16
|
Height = 16
|
||||||
Align = alTop
|
Align = alTop
|
||||||
BevelOuter = bvNone
|
BevelOuter = bvNone
|
||||||
@ -269,8 +269,8 @@ object frInformesVentas: TfrInformesVentas
|
|||||||
end
|
end
|
||||||
object Panel17: TPanel
|
object Panel17: TPanel
|
||||||
Left = 1
|
Left = 1
|
||||||
Top = 17
|
Top = 293
|
||||||
Width = 636
|
Width = 691
|
||||||
Height = 92
|
Height = 92
|
||||||
Align = alTop
|
Align = alTop
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
@ -357,7 +357,7 @@ object frInformesVentas: TfrInformesVentas
|
|||||||
object Panel18: TPanel
|
object Panel18: TPanel
|
||||||
Left = 74
|
Left = 74
|
||||||
Top = 10
|
Top = 10
|
||||||
Width = 552
|
Width = 607
|
||||||
Height = 72
|
Height = 72
|
||||||
Align = alClient
|
Align = alClient
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
@ -365,7 +365,7 @@ object frInformesVentas: TfrInformesVentas
|
|||||||
ParentColor = True
|
ParentColor = True
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
object Panel19: TPanel
|
object Panel19: TPanel
|
||||||
Left = 276
|
Left = 331
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 276
|
Width = 276
|
||||||
Height = 72
|
Height = 72
|
||||||
@ -413,7 +413,7 @@ object frInformesVentas: TfrInformesVentas
|
|||||||
object Panel20: TPanel
|
object Panel20: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 276
|
Width = 331
|
||||||
Height = 72
|
Height = 72
|
||||||
Align = alClient
|
Align = alClient
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
@ -423,7 +423,7 @@ object frInformesVentas: TfrInformesVentas
|
|||||||
object Label7: TLabel
|
object Label7: TLabel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 276
|
Width = 331
|
||||||
Height = 20
|
Height = 20
|
||||||
Align = alTop
|
Align = alTop
|
||||||
AutoSize = False
|
AutoSize = False
|
||||||
@ -439,7 +439,7 @@ object frInformesVentas: TfrInformesVentas
|
|||||||
object Label8: TLabel
|
object Label8: TLabel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 20
|
Top = 20
|
||||||
Width = 276
|
Width = 331
|
||||||
Height = 52
|
Height = 52
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Caption =
|
Caption =
|
||||||
@ -469,8 +469,8 @@ object frInformesVentas: TfrInformesVentas
|
|||||||
end
|
end
|
||||||
object Panel22: TPanel
|
object Panel22: TPanel
|
||||||
Left = 1
|
Left = 1
|
||||||
Top = 201
|
Top = 477
|
||||||
Width = 636
|
Width = 691
|
||||||
Height = 92
|
Height = 92
|
||||||
Align = alTop
|
Align = alTop
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
@ -553,11 +553,12 @@ object frInformesVentas: TfrInformesVentas
|
|||||||
0808080808080808080808080808080808080808080808080808080808080808
|
0808080808080808080808080808080808080808080808080808080808080808
|
||||||
0808}
|
0808}
|
||||||
Transparent = True
|
Transparent = True
|
||||||
|
Visible = False
|
||||||
end
|
end
|
||||||
object Panel23: TPanel
|
object Panel23: TPanel
|
||||||
Left = 74
|
Left = 74
|
||||||
Top = 10
|
Top = 10
|
||||||
Width = 552
|
Width = 607
|
||||||
Height = 72
|
Height = 72
|
||||||
Align = alClient
|
Align = alClient
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
@ -565,7 +566,7 @@ object frInformesVentas: TfrInformesVentas
|
|||||||
ParentColor = True
|
ParentColor = True
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
object Panel24: TPanel
|
object Panel24: TPanel
|
||||||
Left = 276
|
Left = 331
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 276
|
Width = 276
|
||||||
Height = 72
|
Height = 72
|
||||||
@ -607,13 +608,14 @@ object frInformesVentas: TfrInformesVentas
|
|||||||
TabStop = True
|
TabStop = True
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
Spacing = 6
|
Spacing = 6
|
||||||
|
Visible = False
|
||||||
OnClick = RdxBoton4Click
|
OnClick = RdxBoton4Click
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object Panel25: TPanel
|
object Panel25: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 276
|
Width = 331
|
||||||
Height = 72
|
Height = 72
|
||||||
Align = alClient
|
Align = alClient
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
@ -623,7 +625,7 @@ object frInformesVentas: TfrInformesVentas
|
|||||||
object Label9: TLabel
|
object Label9: TLabel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 276
|
Width = 331
|
||||||
Height = 20
|
Height = 20
|
||||||
Align = alTop
|
Align = alTop
|
||||||
AutoSize = False
|
AutoSize = False
|
||||||
@ -635,11 +637,12 @@ object frInformesVentas: TfrInformesVentas
|
|||||||
Font.Style = [fsBold]
|
Font.Style = [fsBold]
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
Transparent = True
|
Transparent = True
|
||||||
|
Visible = False
|
||||||
end
|
end
|
||||||
object Label10: TLabel
|
object Label10: TLabel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 20
|
Top = 20
|
||||||
Width = 276
|
Width = 331
|
||||||
Height = 52
|
Height = 52
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Caption = 'Informe con los ingresos por ventas de un determinado trimestre'
|
Caption = 'Informe con los ingresos por ventas de un determinado trimestre'
|
||||||
@ -650,6 +653,7 @@ object frInformesVentas: TfrInformesVentas
|
|||||||
Font.Style = []
|
Font.Style = []
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
Transparent = True
|
Transparent = True
|
||||||
|
Visible = False
|
||||||
WordWrap = True
|
WordWrap = True
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
@ -665,6 +669,606 @@ object frInformesVentas: TfrInformesVentas
|
|||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
end
|
end
|
||||||
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
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -64,11 +64,41 @@ type
|
|||||||
Label10: TLabel;
|
Label10: TLabel;
|
||||||
Panel26: TPanel;
|
Panel26: TPanel;
|
||||||
imgSombra: TImage;
|
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 RdxBoton3Click(Sender: TObject);
|
||||||
procedure bSeleccionarClick(Sender: TObject);
|
procedure bSeleccionarClick(Sender: TObject);
|
||||||
procedure RdxBoton4Click(Sender: TObject);
|
procedure RdxBoton4Click(Sender: TObject);
|
||||||
|
procedure RdxBoton2Click(Sender: TObject);
|
||||||
|
procedure RdxBoton1Click(Sender: TObject);
|
||||||
|
procedure RdxBoton5Click(Sender: TObject);
|
||||||
protected
|
protected
|
||||||
function CambiarEntidad(EntidadAnterior, Entidad : TRdxEntidad): Boolean; override;
|
function CambiarEntidad(EntidadAnterior, Entidad : TRdxEntidad): Boolean; override;
|
||||||
public
|
public
|
||||||
constructor Create (AOwner: TComponent); override;
|
constructor Create (AOwner: TComponent); override;
|
||||||
end;
|
end;
|
||||||
@ -82,6 +112,8 @@ implementation
|
|||||||
|
|
||||||
uses
|
uses
|
||||||
Configuracion, ListadoPagosCliente, HistorialFacturacionClientes,
|
Configuracion, ListadoPagosCliente, HistorialFacturacionClientes,
|
||||||
|
ListadoFacturacionProcedencia, ListadoContratacionProcedencia,
|
||||||
|
ListadoPresupuestosProcedencia,
|
||||||
InformeTrimestral, TablaClientes, StrFunc, Mensajes, Literales;
|
InformeTrimestral, TablaClientes, StrFunc, Mensajes, Literales;
|
||||||
|
|
||||||
procedure TfrInformesVentas.RdxBoton3Click(Sender: TObject);
|
procedure TfrInformesVentas.RdxBoton3Click(Sender: TObject);
|
||||||
@ -120,4 +152,28 @@ begin
|
|||||||
ConfigurarFrame(Self, Self.Entidad);
|
ConfigurarFrame(Self, Self.Entidad);
|
||||||
end;
|
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.
|
end.
|
||||||
|
|||||||
@ -103,6 +103,13 @@ resourcestring
|
|||||||
msgDatosFamiliaRepetida = 'Ya existe la familia %s. Cambie la familia por otra que no exista.';
|
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.';
|
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
|
// PROPIEDADES
|
||||||
msgDatosFaltaDescripcionProp = 'Es necesario que introduzca el nombre de la propiedad, o en su defecto, elimine la fila.';
|
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.';
|
msgDatosTablaPropBloqueada = 'Las propiedades están siendo modificadas por otro usuario. Inténtelo más tarde.';
|
||||||
|
|||||||
@ -1,6 +1,6 @@
|
|||||||
[BD]
|
[BD]
|
||||||
ABETO ARMARIOS SERVIDOR=servidor:E:\Proyectos\FactuGES 2000 v2 (Abeto)\Codigo\BD\abeto.gdb
|
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 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
|
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