Archivado/LuisLeon_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Primera subida de módulo nuevo de facturas proforma

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@197 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2013-12-02 18:23:44 +00:00
parent 4dbb372f0c
commit 5babc1f3e7
203 changed files with 34123 additions and 1039 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

68
Database/scripts/factuges.sql
View File

@ -127,6 +127,9 @@ SET GENERATOR GEN_CLIENTES_DTOS_ART_ID TO 1;
CREATE GENERATOR GEN_CLIENTES_GRUPOS_ID; CREATE GENERATOR GEN_CLIENTES_GRUPOS_ID;
SET GENERATOR GEN_CLIENTES_GRUPOS_ID TO 1; SET GENERATOR GEN_CLIENTES_GRUPOS_ID TO 1;
CREATE GENERATOR GEN_CLIENTES_TIPOS_ID;
SET GENERATOR GEN_CLIENTES_TIPOS_ID TO 1;
CREATE GENERATOR GEN_COMISIONES_LIQUID_ID; CREATE GENERATOR GEN_COMISIONES_LIQUID_ID;
SET GENERATOR GEN_COMISIONES_LIQUID_ID TO 1; SET GENERATOR GEN_COMISIONES_LIQUID_ID TO 1;
@ -157,9 +160,6 @@ SET GENERATOR GEN_EMPRESAS_DATOS_BANCO_ID TO 1;
CREATE GENERATOR GEN_EMPRESAS_ID; CREATE GENERATOR GEN_EMPRESAS_ID;
SET GENERATOR GEN_EMPRESAS_ID TO 1; SET GENERATOR GEN_EMPRESAS_ID TO 1;
CREATE GENERATOR GEN_EMPRESAS_USUARIOS_ID;
SET GENERATOR GEN_EMPRESAS_USUARIOS_ID TO 1;
CREATE GENERATOR GEN_FABRICANTES_ID; CREATE GENERATOR GEN_FABRICANTES_ID;
SET GENERATOR GEN_FABRICANTES_ID TO 1; SET GENERATOR GEN_FABRICANTES_ID TO 1;
@ -509,7 +509,8 @@ CREATE TABLE CLIENTES_DATOS (
VENCIMIENTO_FACTURAS_1 SMALLINT, VENCIMIENTO_FACTURAS_1 SMALLINT,
VENCIMIENTO_FACTURAS_2 SMALLINT, VENCIMIENTO_FACTURAS_2 SMALLINT,
VENCIMIENTO_FACTURAS_3 SMALLINT, VENCIMIENTO_FACTURAS_3 SMALLINT,
FELICITACION TIPO_BOOLEANO FELICITACION TIPO_BOOLEANO,
TIPO_CLIENTE VARCHAR(255) COLLATE ES_ES
); );
CREATE TABLE CLIENTES_DTOS_PROVEEDORES ( CREATE TABLE CLIENTES_DTOS_PROVEEDORES (
@ -531,6 +532,11 @@ CREATE TABLE CLIENTES_GRUPOS (
DESCRIPCION VARCHAR(255) DESCRIPCION VARCHAR(255)
); );
CREATE TABLE CLIENTES_TIPOS (
ID TIPO_ID NOT NULL,
DESCRIPCION VARCHAR(255)
);
CREATE TABLE COMISIONES_LIQUIDADAS ( CREATE TABLE COMISIONES_LIQUIDADAS (
ID TIPO_ID NOT NULL, ID TIPO_ID NOT NULL,
ID_EMPRESA TIPO_ID, ID_EMPRESA TIPO_ID,
@ -701,12 +707,6 @@ CREATE TABLE EMPRESAS_DATOS_BANCO (
SWIFT VARCHAR(255) COLLATE ES_ES SWIFT VARCHAR(255) COLLATE ES_ES
); );
CREATE TABLE EMPRESAS_USUARIOS (
ID TIPO_ID NOT NULL,
ID_EMPRESA TIPO_ID NOT NULL,
ID_USUARIO TIPO_ID NOT NULL
);
CREATE TABLE FABRICANTES ( CREATE TABLE FABRICANTES (
ID TIPO_ID NOT NULL, ID TIPO_ID NOT NULL,
DESCRIPCION VARCHAR(255) DESCRIPCION VARCHAR(255)
@ -1308,6 +1308,44 @@ CREATE TABLE AGENTES_OBJETIVOS_FAC (
/**** Views ****/ /**** Views ****/
/******************************************************************************/ /******************************************************************************/
CREATE VIEW V_EMPRESAS(
ID,
NIF_CIF,
NOMBRE,
RAZON_SOCIAL,
CALLE,
POBLACION,
PROVINCIA,
CODIGO_POSTAL,
TELEFONO_1,
TELEFONO_2,
MOVIL_1,
MOVIL_2,
FAX,
EMAIL_1,
EMAIL_2,
PAGINA_WEB,
NOTAS,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
LOGOTIPO,
REGISTRO_MERCANTIL,
PARAM_TIEMPO,
PARAM_MARGEN,
ID_TIPO_IVA,
ID_FORMA_PAGO,
ID_ALMACEN,
ID_PERFIL)
AS
select E.ID, E.NIF_CIF, E.NOMBRE, E.RAZON_SOCIAL, E.CALLE, E.POBLACION,
E.PROVINCIA, E.CODIGO_POSTAL, E.TELEFONO_1, E.TELEFONO_2, E.MOVIL_1, E.MOVIL_2,
E.FAX, E.EMAIL_1, E.EMAIL_2, E.PAGINA_WEB, E.NOTAS, E.FECHA_ALTA, E.FECHA_MODIFICACION,
E.USUARIO, E.LOGOTIPO, E.REGISTRO_MERCANTIL, E.PARAM_TIEMPO, E.PARAM_MARGEN, E.ID_TIPO_IVA,
E.ID_FORMA_PAGO, E.ID_ALMACEN, EP.id_perfil
from empresas E
left join empresas_PERFILES EP on (EP.ID_EMPRESA = E.ID)
;
/* View: V_ALB_CLI_SITUACION */ /* View: V_ALB_CLI_SITUACION */
CREATE VIEW V_ALB_CLI_SITUACION( CREATE VIEW V_ALB_CLI_SITUACION(
@ -1915,7 +1953,6 @@ FROM CONTACTOS
/* View: V_CLIENTES */
/* View: V_CLIENTES */ /* View: V_CLIENTES */
CREATE VIEW V_CLIENTES( CREATE VIEW V_CLIENTES(
ID, ID,
@ -1959,7 +1996,8 @@ CREATE VIEW V_CLIENTES(
TIENDA_WEB, TIENDA_WEB,
CODIGO_ASIGNADO, CODIGO_ASIGNADO,
DESCUENTO, DESCUENTO,
FELICITACION) FELICITACION,
TIPO_CLIENTE)
AS AS
SELECT SELECT
V_CONTACTOS.ID, V_CONTACTOS.ID,
@ -2003,7 +2041,8 @@ SELECT
CLIENTES_DATOS.TIENDA_WEB, CLIENTES_DATOS.TIENDA_WEB,
CLIENTES_DATOS.CODIGO_ASIGNADO, CLIENTES_DATOS.CODIGO_ASIGNADO,
CLIENTES_DATOS.DESCUENTO, CLIENTES_DATOS.DESCUENTO,
CLIENTES_DATOS.FELICITACION CLIENTES_DATOS.FELICITACION,
CLIENTES_DATOS.TIPO_CLIENTE
FROM FROM
V_CONTACTOS V_CONTACTOS
LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE) LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE)
@ -5027,6 +5066,7 @@ ALTER TABLE CLIENTES_DATOS ADD CONSTRAINT PK_CLIENTES_DATOS PRIMARY KEY (ID_CLIE
ALTER TABLE CLIENTES_DTOS_PROVEEDORES ADD CONSTRAINT PK_CLIENTES_DTOS_PROV PRIMARY KEY (ID); ALTER TABLE CLIENTES_DTOS_PROVEEDORES ADD CONSTRAINT PK_CLIENTES_DTOS_PROV PRIMARY KEY (ID);
ALTER TABLE CLIENTES_DTOS_ARTICULOS ADD CONSTRAINT PK_CLIENTES_DTOS_ART PRIMARY KEY (ID); ALTER TABLE CLIENTES_DTOS_ARTICULOS ADD CONSTRAINT PK_CLIENTES_DTOS_ART PRIMARY KEY (ID);
ALTER TABLE CLIENTES_GRUPOS ADD CONSTRAINT PK_CLIENTES_GRUPOS PRIMARY KEY (ID); ALTER TABLE CLIENTES_GRUPOS ADD CONSTRAINT PK_CLIENTES_GRUPOS PRIMARY KEY (ID);
ALTER TABLE CLIENTES_TIPOS ADD CONSTRAINT PK_CLIENTES_TIPOS PRIMARY KEY (ID);
ALTER TABLE COMISIONES_LIQUIDADAS ADD CONSTRAINT PK_COMISIONES_LIQUIDADAS PRIMARY KEY (ID); ALTER TABLE COMISIONES_LIQUIDADAS ADD CONSTRAINT PK_COMISIONES_LIQUIDADAS PRIMARY KEY (ID);
ALTER TABLE CONFIGURACION ADD CONSTRAINT PK_CONFIGURACION PRIMARY KEY (ID); ALTER TABLE CONFIGURACION ADD CONSTRAINT PK_CONFIGURACION PRIMARY KEY (ID);
ALTER TABLE CONTACTOS ADD CONSTRAINT PK_CONTACTOS PRIMARY KEY (ID); ALTER TABLE CONTACTOS ADD CONSTRAINT PK_CONTACTOS PRIMARY KEY (ID);
@ -5040,7 +5080,6 @@ ALTER TABLE EMPLEADOS_GRUPOS ADD CONSTRAINT PK_EMPLEADOS_GRUPOS PRIMARY KEY (ID)
ALTER TABLE EMPRESAS ADD CONSTRAINT PK_EMPRESAS PRIMARY KEY (ID); ALTER TABLE EMPRESAS ADD CONSTRAINT PK_EMPRESAS PRIMARY KEY (ID);
ALTER TABLE EMPRESAS_CONTACTOS ADD CONSTRAINT PK_EMPRESAS_CONTACTOS PRIMARY KEY (ID); ALTER TABLE EMPRESAS_CONTACTOS ADD CONSTRAINT PK_EMPRESAS_CONTACTOS PRIMARY KEY (ID);
ALTER TABLE EMPRESAS_DATOS_BANCO ADD CONSTRAINT PK_EMPRESAS_DATOS_BANCO PRIMARY KEY (ID); ALTER TABLE EMPRESAS_DATOS_BANCO ADD CONSTRAINT PK_EMPRESAS_DATOS_BANCO PRIMARY KEY (ID);
ALTER TABLE EMPRESAS_USUARIOS ADD CONSTRAINT PK_EMPRESAS_USUARIOS PRIMARY KEY (ID);
ALTER TABLE FABRICANTES ADD PRIMARY KEY (ID); ALTER TABLE FABRICANTES ADD PRIMARY KEY (ID);
ALTER TABLE FACTURAS_CLIENTE ADD CONSTRAINT PK_FACTURAS_CLIENTE PRIMARY KEY (ID); ALTER TABLE FACTURAS_CLIENTE ADD CONSTRAINT PK_FACTURAS_CLIENTE PRIMARY KEY (ID);
ALTER TABLE FACTURAS_CLIENTE_DETALLES ADD CONSTRAINT PK_FACTURAS_CLIENTE_DETALLES PRIMARY KEY (ID); ALTER TABLE FACTURAS_CLIENTE_DETALLES ADD CONSTRAINT PK_FACTURAS_CLIENTE_DETALLES PRIMARY KEY (ID);
@ -5170,7 +5209,6 @@ CREATE INDEX IDX_CONTACTOS_DATOS_BANCO ON CONTACTOS_DATOS_BANCO (ID_CONTACTO);
CREATE INDEX IDX_CONTACTOS_PER_ID_CONTACTO ON CONTACTOS_DATOS_PERSONAL (ID_CONTACTO); CREATE INDEX IDX_CONTACTOS_PER_ID_CONTACTO ON CONTACTOS_DATOS_PERSONAL (ID_CONTACTO);
CREATE INDEX IDX_CONTACTOS_DIR_ID_CONTACTO ON CONTACTOS_DIRECCIONES (ID_CONTACTO); CREATE INDEX IDX_CONTACTOS_DIR_ID_CONTACTO ON CONTACTOS_DIRECCIONES (ID_CONTACTO);
CREATE INDEX IDX_EMPRESAS_CONTACTOS ON EMPRESAS_CONTACTOS (ID_EMPRESA, ID_CONTACTO); CREATE INDEX IDX_EMPRESAS_CONTACTOS ON EMPRESAS_CONTACTOS (ID_EMPRESA, ID_CONTACTO);
CREATE INDEX IDX_EMPRESAS_USUARIOS ON EMPRESAS_USUARIOS (ID_EMPRESA, ID_USUARIO);
CREATE INDEX IDX_FACTURAS_CLIENTE ON FACTURAS_CLIENTE (ID_FORMA_PAGO); CREATE INDEX IDX_FACTURAS_CLIENTE ON FACTURAS_CLIENTE (ID_FORMA_PAGO);
CREATE INDEX IDX_FACTURAS_CLIENTE1 ON FACTURAS_CLIENTE (ID_TIPO_IVA); CREATE INDEX IDX_FACTURAS_CLIENTE1 ON FACTURAS_CLIENTE (ID_TIPO_IVA);
CREATE INDEX IDX_FACTURAS_CLIENTE2 ON FACTURAS_CLIENTE (ID_COMISION_LIQUIDADA); CREATE INDEX IDX_FACTURAS_CLIENTE2 ON FACTURAS_CLIENTE (ID_COMISION_LIQUIDADA);

4
Database/scripts/factuges_sysdata.sql
View File

@ -2,6 +2,10 @@ SET SQL DIALECT 3;
SET NAMES UTF8; SET NAMES UTF8;
INSERT INTO PERFILES (ID, DESCRIPCION) VALUES (1, 'usuario');
INSERT INTO PERFILES (ID, DESCRIPCION) VALUES (2, 'administrador');
COMMIT WORK;
INSERT INTO PERIODOS_AUX (ID, PERIODO, VALOR, DESCRIPCION) VALUES (1, 'MENSUAL', 1, 'Ene'); INSERT INTO PERIODOS_AUX (ID, PERIODO, VALOR, DESCRIPCION) VALUES (1, 'MENSUAL', 1, 'Ene');
INSERT INTO PERIODOS_AUX (ID, PERIODO, VALOR, DESCRIPCION) VALUES (2, 'MENSUAL', 2, 'Feb'); INSERT INTO PERIODOS_AUX (ID, PERIODO, VALOR, DESCRIPCION) VALUES (2, 'MENSUAL', 2, 'Feb');
INSERT INTO PERIODOS_AUX (ID, PERIODO, VALOR, DESCRIPCION) VALUES (3, 'MENSUAL', 3, 'Mar'); INSERT INTO PERIODOS_AUX (ID, PERIODO, VALOR, DESCRIPCION) VALUES (3, 'MENSUAL', 3, 'Mar');

34
Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas
View File

@ -11,7 +11,8 @@ type
IEmpresasController = interface(IControllerBase) IEmpresasController = interface(IControllerBase)
['{2F0AB21C-4F19-446E-87C4-B9C1038850FC}'] ['{2F0AB21C-4F19-446E-87C4-B9C1038850FC}']
function Buscar(const ID: Integer): IBizEmpresa; function Buscar(const ID: Integer): IBizEmpresa;
function BuscarTodos: IBizEmpresa; function BuscarTodos: IBizEmpresa; overload;
function BuscarTodos(const ID_PERFIL: Integer): IBizEmpresa; overload;
procedure Ver(AEmpresa : IBizEmpresa); procedure Ver(AEmpresa : IBizEmpresa);
procedure VerTodos(AEmpresas: IBizEmpresa); procedure VerTodos(AEmpresas: IBizEmpresa);
function Nuevo : IBizEmpresa; function Nuevo : IBizEmpresa;
@ -49,7 +50,8 @@ type
procedure Anadir(AEmpresa : IBizEmpresa); virtual; procedure Anadir(AEmpresa : IBizEmpresa); virtual;
function Buscar(const ID: Integer): IBizEmpresa; virtual; function Buscar(const ID: Integer): IBizEmpresa; virtual;
function BuscarTodos: IBizEmpresa; virtual; function BuscarTodos: IBizEmpresa; overload; virtual;
function BuscarTodos(const ID_PERFIL: Integer): IBizEmpresa; overload;
function Nuevo : IBizEmpresa; virtual; function Nuevo : IBizEmpresa; virtual;
procedure Ver(AEmpresa : IBizEmpresa); virtual; procedure Ver(AEmpresa : IBizEmpresa); virtual;
procedure VerTodos(AEmpresas: IBizEmpresa); virtual; procedure VerTodos(AEmpresas: IBizEmpresa); virtual;
@ -68,8 +70,8 @@ type
implementation implementation
uses uses
uEditorRegistryUtils, cxControls, DB, uFactuGES_App, uStringsUtils, uDAInterfaces, uEditorRegistryUtils, cxControls, DB, uFactuGES_App, uStringsUtils,
uDataModuleEmpresas, uIEditorEmpresa, uBizEmpresasDatosBancarios; uDataModuleEmpresas, uIEditorEmpresa, uBizEmpresasDatosBancarios, schEmpresasClient_Intf;
{ TEmpresasController } { TEmpresasController }
@ -133,6 +135,30 @@ begin
Result := FDataModule.GetItem(ID) Result := FDataModule.GetItem(ID)
end; end;
function TEmpresasController.BuscarTodos(const ID_PERFIL: Integer): IBizEmpresa;
var
Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
Result := BuscarTodos;
with Result.DataTable.DynamicWhere do
begin
// ID_PERFIL
Condicion := NewBinaryExpression(NewField('', fld_EmpresasID_PERFIL), NewConstant(ID_PERFIL, datInteger), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
Result.open;
finally
HideHourglassCursor;
end;
end;
function TEmpresasController.BuscarTodos: IBizEmpresa; function TEmpresasController.BuscarTodos: IBizEmpresa;
begin begin
Result := FDataModule.GetItems; Result := FDataModule.GetItems;

4
Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm
View File

@ -207,6 +207,10 @@ inherited DataModuleEmpresas: TDataModuleEmpresas
DataType = datSmallInt DataType = datSmallInt
DisplayLabel = 'Empresas_ID_ALMACEN' DisplayLabel = 'Empresas_ID_ALMACEN'
DictionaryEntry = 'Empresas_ID_ALMACEN' DictionaryEntry = 'Empresas_ID_ALMACEN'
end
item
Name = 'ID_PERFIL'
DataType = datInteger
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

43
Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas
View File

@ -9,8 +9,8 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Empresas = '{88621D33-852A-4B38-8FFB-0894C98719CA}'; RID_Empresas = '{293CB9A8-A5CC-4A9C-80D0-74E9DC888BD8}';
RID_EmpresasDatosBanco = '{E2ABA941-53D7-41CD-9755-CCBD66A72247}'; RID_EmpresasDatosBanco = '{DA3363E9-7834-447F-8266-B7410A41CEDB}';
{ Data table names } { Data table names }
nme_Empresas = 'Empresas'; nme_Empresas = 'Empresas';
@ -44,6 +44,7 @@ const
fld_EmpresasID_TIPO_IVA = 'ID_TIPO_IVA'; fld_EmpresasID_TIPO_IVA = 'ID_TIPO_IVA';
fld_EmpresasID_FORMA_PAGO = 'ID_FORMA_PAGO'; fld_EmpresasID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_EmpresasID_ALMACEN = 'ID_ALMACEN'; fld_EmpresasID_ALMACEN = 'ID_ALMACEN';
fld_EmpresasID_PERFIL = 'ID_PERFIL';
{ Empresas field indexes } { Empresas field indexes }
idx_EmpresasID = 0; idx_EmpresasID = 0;
@ -73,6 +74,7 @@ const
idx_EmpresasID_TIPO_IVA = 24; idx_EmpresasID_TIPO_IVA = 24;
idx_EmpresasID_FORMA_PAGO = 25; idx_EmpresasID_FORMA_PAGO = 25;
idx_EmpresasID_ALMACEN = 26; idx_EmpresasID_ALMACEN = 26;
idx_EmpresasID_PERFIL = 27;
{ EmpresasDatosBanco fields } { EmpresasDatosBanco fields }
fld_EmpresasDatosBancoID = 'ID'; fld_EmpresasDatosBancoID = 'ID';
@ -103,7 +105,7 @@ const
type type
{ IEmpresas } { IEmpresas }
IEmpresas = interface(IDAStronglyTypedDataTable) IEmpresas = interface(IDAStronglyTypedDataTable)
['{50BEAD2C-AEF9-4858-AF21-E427E1B39CC6}'] ['{A0B6BA3C-6931-4E7C-94B1-4E916B0F6E1D}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -211,6 +213,10 @@ type
procedure SetID_ALMACENValue(const aValue: SmallInt); procedure SetID_ALMACENValue(const aValue: SmallInt);
function GetID_ALMACENIsNull: Boolean; function GetID_ALMACENIsNull: Boolean;
procedure SetID_ALMACENIsNull(const aValue: Boolean); procedure SetID_ALMACENIsNull(const aValue: Boolean);
function GetID_PERFILValue: Integer;
procedure SetID_PERFILValue(const aValue: Integer);
function GetID_PERFILIsNull: Boolean;
procedure SetID_PERFILIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -268,6 +274,8 @@ type
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property ID_ALMACEN: SmallInt read GetID_ALMACENValue write SetID_ALMACENValue; property ID_ALMACEN: SmallInt read GetID_ALMACENValue write SetID_ALMACENValue;
property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull; property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull;
property ID_PERFIL: Integer read GetID_PERFILValue write SetID_PERFILValue;
property ID_PERFILIsNull: Boolean read GetID_PERFILIsNull write SetID_PERFILIsNull;
end; end;
{ TEmpresasDataTableRules } { TEmpresasDataTableRules }
@ -385,6 +393,10 @@ type
procedure SetID_ALMACENValue(const aValue: SmallInt); virtual; procedure SetID_ALMACENValue(const aValue: SmallInt); virtual;
function GetID_ALMACENIsNull: Boolean; virtual; function GetID_ALMACENIsNull: Boolean; virtual;
procedure SetID_ALMACENIsNull(const aValue: Boolean); virtual; procedure SetID_ALMACENIsNull(const aValue: Boolean); virtual;
function GetID_PERFILValue: Integer; virtual;
procedure SetID_PERFILValue(const aValue: Integer); virtual;
function GetID_PERFILIsNull: Boolean; virtual;
procedure SetID_PERFILIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -441,6 +453,8 @@ type
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property ID_ALMACEN: SmallInt read GetID_ALMACENValue write SetID_ALMACENValue; property ID_ALMACEN: SmallInt read GetID_ALMACENValue write SetID_ALMACENValue;
property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull; property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull;
property ID_PERFIL: Integer read GetID_PERFILValue write SetID_PERFILValue;
property ID_PERFILIsNull: Boolean read GetID_PERFILIsNull write SetID_PERFILIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -450,7 +464,7 @@ type
{ IEmpresasDatosBanco } { IEmpresasDatosBanco }
IEmpresasDatosBanco = interface(IDAStronglyTypedDataTable) IEmpresasDatosBanco = interface(IDAStronglyTypedDataTable)
['{092FC338-3912-4550-982D-89A97A0ACFDD}'] ['{AB33F3C2-E3BB-41C1-AC47-543080C0A67B}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1202,6 +1216,27 @@ begin
DataTable.Fields[idx_EmpresasID_ALMACEN].AsVariant := Null; DataTable.Fields[idx_EmpresasID_ALMACEN].AsVariant := Null;
end; end;
function TEmpresasDataTableRules.GetID_PERFILValue: Integer;
begin
result := DataTable.Fields[idx_EmpresasID_PERFIL].AsInteger;
end;
procedure TEmpresasDataTableRules.SetID_PERFILValue(const aValue: Integer);
begin
DataTable.Fields[idx_EmpresasID_PERFIL].AsInteger := aValue;
end;
function TEmpresasDataTableRules.GetID_PERFILIsNull: boolean;
begin
result := DataTable.Fields[idx_EmpresasID_PERFIL].IsNull;
end;
procedure TEmpresasDataTableRules.SetID_PERFILIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_EmpresasID_PERFIL].AsVariant := Null;
end;
{ TEmpresasDatosBancoDataTableRules } { TEmpresasDatosBancoDataTableRules }
constructor TEmpresasDatosBancoDataTableRules.Create(aDataTable: TDADataTable); constructor TEmpresasDatosBancoDataTableRules.Create(aDataTable: TDADataTable);

51
Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas
View File

@ -9,13 +9,13 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_EmpresasDelta = '{43119B6A-7006-4045-B378-1516B8CA32E1}'; RID_EmpresasDelta = '{78465C96-13EC-4CAE-806F-50EFEE766C85}';
RID_EmpresasDatosBancoDelta = '{A79108BB-E362-4338-9188-6D5683DCE289}'; RID_EmpresasDatosBancoDelta = '{E4194A47-772D-40BC-8DF0-9D4C7AFDEC77}';
type type
{ IEmpresasDelta } { IEmpresasDelta }
IEmpresasDelta = interface(IEmpresas) IEmpresasDelta = interface(IEmpresas)
['{43119B6A-7006-4045-B378-1516B8CA32E1}'] ['{78465C96-13EC-4CAE-806F-50EFEE766C85}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
@ -44,6 +44,7 @@ type
function GetOldID_TIPO_IVAValue : SmallInt; function GetOldID_TIPO_IVAValue : SmallInt;
function GetOldID_FORMA_PAGOValue : SmallInt; function GetOldID_FORMA_PAGOValue : SmallInt;
function GetOldID_ALMACENValue : SmallInt; function GetOldID_ALMACENValue : SmallInt;
function GetOldID_PERFILValue : Integer;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -73,6 +74,7 @@ type
property OldID_TIPO_IVA : SmallInt read GetOldID_TIPO_IVAValue; property OldID_TIPO_IVA : SmallInt read GetOldID_TIPO_IVAValue;
property OldID_FORMA_PAGO : SmallInt read GetOldID_FORMA_PAGOValue; property OldID_FORMA_PAGO : SmallInt read GetOldID_FORMA_PAGOValue;
property OldID_ALMACEN : SmallInt read GetOldID_ALMACENValue; property OldID_ALMACEN : SmallInt read GetOldID_ALMACENValue;
property OldID_PERFIL : Integer read GetOldID_PERFILValue;
end; end;
{ TEmpresasBusinessProcessorRules } { TEmpresasBusinessProcessorRules }
@ -244,6 +246,12 @@ type
function GetOldID_ALMACENIsNull: Boolean; virtual; function GetOldID_ALMACENIsNull: Boolean; virtual;
procedure SetID_ALMACENValue(const aValue: SmallInt); virtual; procedure SetID_ALMACENValue(const aValue: SmallInt); virtual;
procedure SetID_ALMACENIsNull(const aValue: Boolean); virtual; procedure SetID_ALMACENIsNull(const aValue: Boolean); virtual;
function GetID_PERFILValue: Integer; virtual;
function GetID_PERFILIsNull: Boolean; virtual;
function GetOldID_PERFILValue: Integer; virtual;
function GetOldID_PERFILIsNull: Boolean; virtual;
procedure SetID_PERFILValue(const aValue: Integer); virtual;
procedure SetID_PERFILIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -354,6 +362,10 @@ type
property ID_ALMACENIsNull : Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull; property ID_ALMACENIsNull : Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull;
property OldID_ALMACEN : SmallInt read GetOldID_ALMACENValue; property OldID_ALMACEN : SmallInt read GetOldID_ALMACENValue;
property OldID_ALMACENIsNull : Boolean read GetOldID_ALMACENIsNull; property OldID_ALMACENIsNull : Boolean read GetOldID_ALMACENIsNull;
property ID_PERFIL : Integer read GetID_PERFILValue write SetID_PERFILValue;
property ID_PERFILIsNull : Boolean read GetID_PERFILIsNull write SetID_PERFILIsNull;
property OldID_PERFIL : Integer read GetOldID_PERFILValue;
property OldID_PERFILIsNull : Boolean read GetOldID_PERFILIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -363,7 +375,7 @@ type
{ IEmpresasDatosBancoDelta } { IEmpresasDatosBancoDelta }
IEmpresasDatosBancoDelta = interface(IEmpresasDatosBanco) IEmpresasDatosBancoDelta = interface(IEmpresasDatosBanco)
['{A79108BB-E362-4338-9188-6D5683DCE289}'] ['{E4194A47-772D-40BC-8DF0-9D4C7AFDEC77}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -1387,6 +1399,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_ALMACEN] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_ALMACEN] := Null;
end; end;
function TEmpresasBusinessProcessorRules.GetID_PERFILValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_PERFIL];
end;
function TEmpresasBusinessProcessorRules.GetID_PERFILIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_PERFIL]);
end;
function TEmpresasBusinessProcessorRules.GetOldID_PERFILValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasID_PERFIL];
end;
function TEmpresasBusinessProcessorRules.GetOldID_PERFILIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasID_PERFIL]);
end;
procedure TEmpresasBusinessProcessorRules.SetID_PERFILValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_PERFIL] := aValue;
end;
procedure TEmpresasBusinessProcessorRules.SetID_PERFILIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_PERFIL] := Null;
end;
{ TEmpresasDatosBancoBusinessProcessorRules } { TEmpresasDatosBancoBusinessProcessorRules }
constructor TEmpresasDatosBancoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TEmpresasDatosBancoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

389
Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm
View File

@ -21,7 +21,7 @@ object srvEmpresas: TsrvEmpresas
item item
Connection = 'IBX' Connection = 'IBX'
Default = True Default = True
TargetTable = 'EMPRESAS' TargetTable = 'V_EMPRESAS'
Name = 'IBX' Name = 'IBX'
StatementType = stAutoSQL StatementType = stAutoSQL
ColumnMappings = < ColumnMappings = <
@ -132,6 +132,10 @@ object srvEmpresas: TsrvEmpresas
item item
DatasetField = 'ID_ALMACEN' DatasetField = 'ID_ALMACEN'
TableField = 'ID_ALMACEN' TableField = 'ID_ALMACEN'
end
item
DatasetField = 'ID_PERFIL'
TableField = 'ID_PERFIL'
end> end>
end> end>
Name = 'Empresas' Name = 'Empresas'
@ -291,6 +295,10 @@ object srvEmpresas: TsrvEmpresas
Name = 'ID_ALMACEN' Name = 'ID_ALMACEN'
DataType = datSmallInt DataType = datSmallInt
DictionaryEntry = 'Empresas_ID_ALMACEN' DictionaryEntry = 'Empresas_ID_ALMACEN'
end
item
Name = 'ID_PERFIL'
DataType = datInteger
end> end>
end end
item item
@ -463,6 +471,380 @@ object srvEmpresas: TsrvEmpresas
ColumnMappings = <> ColumnMappings = <>
end> end>
Name = 'AnadirReferenciasEmpresa' Name = 'AnadirReferenciasEmpresa'
end
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_EMPRESAS_ID'
Value = ''
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
Value = ''
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'RAZON_SOCIAL'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CALLE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
Value = ''
end
item
Name = 'TELEFONO_2'
DataType = datString
Size = 25
Value = ''
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
Value = ''
end
item
Name = 'MOVIL_2'
DataType = datString
Size = 25
Value = ''
end
item
Name = 'FAX'
DataType = datString
Size = 25
Value = ''
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'EMAIL_2'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'NOTAS'
DataType = datMemo
Value = ''
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = ''
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
Value = ''
end
item
Name = 'LOGOTIPO'
DataType = datBlob
Value = ''
end
item
Name = 'REGISTRO_MERCANTIL'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PARAM_TIEMPO'
DataType = datCurrency
Value = ''
end
item
Name = 'PARAM_MARGEN'
DataType = datFloat
Value = ''
end
item
Name = 'ID_TIPO_IVA'
DataType = datSmallInt
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
DataType = datSmallInt
Value = ''
end
item
Name = 'ID_ALMACEN'
DataType = datSmallInt
Value = ''
end>
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'EMPRESAS'
SQL =
'INSERT'#10' INTO EMPRESAS'#10' (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, C' +
'ALLE, POBLACION, PROVINCIA,'#10' CODIGO_POSTAL, TELEFONO_1, TELE' +
'FONO_2, MOVIL_1, MOVIL_2, '#10' FAX, EMAIL_1, EMAIL_2, PAGINA_WE' +
'B, NOTAS, FECHA_ALTA, '#10' FECHA_MODIFICACION, USUARIO, LOGOTIP' +
'O, REGISTRO_MERCANTIL, '#10' PARAM_TIEMPO, PARAM_MARGEN, ID_TIPO' +
'_IVA, ID_FORMA_PAGO, '#10' ID_ALMACEN)'#10' VALUES'#10' (:ID, :NIF_C' +
'IF, :NOMBRE, :RAZON_SOCIAL, :CALLE, :POBLACION,'#10' :PROVINCIA,' +
' :CODIGO_POSTAL, :TELEFONO_1, :TELEFONO_2, '#10' :MOVIL_1, :MOVI' +
'L_2, :FAX, :EMAIL_1, :EMAIL_2, :PAGINA_WEB, '#10' :NOTAS, :FECHA' +
'_ALTA, :FECHA_MODIFICACION, :USUARIO, '#10' :LOGOTIPO, :REGISTRO' +
'_MERCANTIL, :PARAM_TIEMPO, :PARAM_MARGEN, '#10' :ID_TIPO_IVA, :I' +
'D_FORMA_PAGO, :ID_ALMACEN)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_Empresas'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datAutoInc
Value = ''
end>
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'EMPRESAS'
SQL = 'DELETE '#10' FROM'#10' EMPRESAS'#10' WHERE'#10' (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_Empresas'
end
item
Params = <
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
Value = ''
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'RAZON_SOCIAL'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CALLE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
Value = ''
end
item
Name = 'TELEFONO_2'
DataType = datString
Size = 25
Value = ''
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
Value = ''
end
item
Name = 'MOVIL_2'
DataType = datString
Size = 25
Value = ''
end
item
Name = 'FAX'
DataType = datString
Size = 25
Value = ''
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'EMAIL_2'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'NOTAS'
DataType = datMemo
Value = ''
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = ''
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
Value = ''
end
item
Name = 'LOGOTIPO'
DataType = datBlob
Value = ''
end
item
Name = 'REGISTRO_MERCANTIL'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PARAM_TIEMPO'
DataType = datCurrency
Value = ''
end
item
Name = 'PARAM_MARGEN'
DataType = datFloat
Value = ''
end
item
Name = 'ID_TIPO_IVA'
DataType = datSmallInt
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
DataType = datSmallInt
Value = ''
end
item
Name = 'ID_ALMACEN'
DataType = datSmallInt
Value = ''
end
item
Name = 'OLD_ID'
DataType = datAutoInc
Value = ''
end>
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'EMPRESAS'
SQL =
'UPDATE EMPRESAS'#10' SET '#10' NIF_CIF = :NIF_CIF, '#10' NOMBRE = :NO' +
'MBRE, '#10' RAZON_SOCIAL = :RAZON_SOCIAL, '#10' CALLE = :CALLE, '#10' ' +
' POBLACION = :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' COD' +
'IGO_POSTAL = :CODIGO_POSTAL, '#10' TELEFONO_1 = :TELEFONO_1, '#10' ' +
' TELEFONO_2 = :TELEFONO_2, '#10' MOVIL_1 = :MOVIL_1, '#10' MOVIL_2' +
' = :MOVIL_2, '#10' FAX = :FAX, '#10' EMAIL_1 = :EMAIL_1, '#10' EMAI' +
'L_2 = :EMAIL_2, '#10' PAGINA_WEB = :PAGINA_WEB, '#10' NOTAS = :NOT' +
'AS, '#10' FECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FE' +
'CHA_MODIFICACION, '#10' USUARIO = :USUARIO, '#10' LOGOTIPO = :LOGO' +
'TIPO, '#10' REGISTRO_MERCANTIL = :REGISTRO_MERCANTIL, '#10' PARAM_' +
'TIEMPO = :PARAM_TIEMPO, '#10' PARAM_MARGEN = :PARAM_MARGEN, '#10' ' +
'ID_TIPO_IVA = :ID_TIPO_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,' +
' '#10' ID_ALMACEN = :ID_ALMACEN'#10' WHERE'#10' (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_Empresas'
end> end>
RelationShips = < RelationShips = <
item item
@ -751,8 +1133,11 @@ object srvEmpresas: TsrvEmpresas
end end
object bpEmpresas: TDABusinessProcessor object bpEmpresas: TDABusinessProcessor
Schema = schEmpresas Schema = schEmpresas
InsertCommandName = 'Insert_Empresas'
DeleteCommandName = 'Delete_Empresas'
UpdateCommandName = 'Update_Empresas'
ReferencedDataset = 'Empresas' ReferencedDataset = 'Empresas'
ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands] ProcessorOptions = [poAutoGenerateRefreshDataset]
UpdateMode = updWhereKeyOnly UpdateMode = updWhereKeyOnly
Left = 264 Left = 264
Top = 24 Top = 24

24
Source/ApplicationBase/Usuarios/Views/uEditorLogin.dfm
View File

@ -1074,28 +1074,4 @@ object fEditorLogin: TfEditorLogin
Left = 344 Left = 344
Top = 64 Top = 64
end end
object JvAppRegistryStorage1: TJvAppRegistryStorage
StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
StorageOptions.BooleanAsString = False
Root = 'Software\%APPL_NAME%'
SubStorages = <>
Left = 14
Top = 168
end
object JvFormStorage1: TJvFormStorage
AppStorage = JvAppRegistryStorage1
AppStoragePath = '\'
Options = []
StoredProps.Strings = (
'edtUser.Text'
'edtPassword.Text')
StoredValues = <
item
Name = 'Ruta'
Value = ''
end>
Left = 48
Top = 168
end
end end

4
Source/ApplicationBase/Usuarios/Views/uEditorLogin.pas
View File

@ -23,8 +23,6 @@ type
JvGradient1: TJvGradient; JvGradient1: TJvGradient;
Button1: TButton; Button1: TButton;
Timer1: TTimer; Timer1: TTimer;
JvAppRegistryStorage1: TJvAppRegistryStorage;
JvFormStorage1: TJvFormStorage;
Image1: TImage; Image1: TImage;
procedure bAceptarClick(Sender: TObject); procedure bAceptarClick(Sender: TObject);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
@ -113,7 +111,7 @@ end;
procedure TfEditorLogin.FormShow(Sender: TObject); procedure TfEditorLogin.FormShow(Sender: TObject);
begin begin
Self.Caption := AppFactuGES.AppFullName; Self.Caption := AppFactuGES.AppFullName;
JvFormStorage1.RestoreFormPlacement; // JvFormStorage1.RestoreFormPlacement; Que se meta usuario y contraseña siempre
// Hacer login automática si hay usuario/password y no hay más de una base // Hacer login automática si hay usuario/password y no hay más de una base
// de datos como opción para conectarse. // de datos como opción para conectarse.

2
Source/ApplicationBase/uFactuGES_App.pas
View File

@ -386,7 +386,7 @@ begin
//Añadimos las diferentes empresas que existan //Añadimos las diferentes empresas que existan
AEmpresasController := TEmpresasController.Create; AEmpresasController := TEmpresasController.Create;
AEmpresas := AEmpresasController.BuscarTodos; AEmpresas := AEmpresasController.BuscarTodos(AppFactuGES.UsuarioActivo.ID_PERFIL);
AEmpresas.DataTable.Active := True; AEmpresas.DataTable.Active := True;
AEmpresas.Datatable.First; AEmpresas.Datatable.First;

104
Source/Base/Base.dproj
View File

@ -56,62 +56,62 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Contactos\Views\adortl.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\designide.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\dsnap.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\dxCoreD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\Jcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\rtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\vcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\vclx.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\xmlrtl.dcp" />
<DCCReference Include="..\Modulos\Impresiones\Data\uDataModuleImpresiones.pas"> <DCCReference Include="..\Modulos\Impresiones\Data\uDataModuleImpresiones.pas">
<Form>DataModuleImpresiones</Form> <Form>DataModuleImpresiones</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\adortl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\designide.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\dsnap.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\dxCoreD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\Jcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\rtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\vcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\vcldb.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\vclx.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\xmlrtl.dcp" />
<DCCReference Include="..\Modulos\Registro de correos\Data\uDataModuleRegistroCorreos.pas"> <DCCReference Include="..\Modulos\Registro de correos\Data\uDataModuleRegistroCorreos.pas">
<Form>DataModuleRegistroCorreos</Form> <Form>DataModuleRegistroCorreos</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>

2
Source/Cliente/uMainMenuController.pas
View File

@ -78,7 +78,7 @@ begin
if Assigned(AListaEmpresasItem) then if Assigned(AListaEmpresasItem) then
begin begin
AEmpresas := AppFactuGES.EmpresasController.BuscarTodos; AEmpresas := AppFactuGES.EmpresasController.BuscarTodos(AppFactuGES.UsuarioActivo.ID_PERFIL);
try try
AEmpresas.DataTable.Active := True; AEmpresas.DataTable.Active := True;
while not AEmpresas.DataTable.EOF do while not AEmpresas.DataTable.EOF do

2
Source/Cliente/uNavPaneController.pas
View File

@ -127,7 +127,7 @@ begin
end; end;
// Crear páginas con empresas y rellenarlas // Crear páginas con empresas y rellenarlas
AEmpresas := AppFactuGES.EmpresasController.BuscarTodos; AEmpresas := AppFactuGES.EmpresasController.BuscarTodos(AppFactuGES.UsuarioActivo.ID_PERFIL);
try try
AEmpresas.DataTable.Active := True; AEmpresas.DataTable.Active := True;

17
Source/Cliente/uPantallaPrincipal.pas
View File

@ -193,10 +193,17 @@ procedure TfPantallaPrincipal.FormShow(Sender: TObject);
begin begin
InicializarUI; InicializarUI;
//Solo verá Luis los informes //Solo verá los informes el perfil SuperAdministrador(11) y Administrador(9), están en la tabla usuarios
if (AppFactuGES.UsuarioActivo.ID <> 1) if (AppFactuGES.UsuarioActivo.ID_PERFIL <> 11) then
and (AppFactuGES.UsuarioActivo.ID <> 3) then begin
actMenuInformes.Visible := False; Perfiles1.Visible := False;
actAnadirEmpresa.Visible := False;
if (AppFactuGES.UsuarioActivo.ID_PERFIL <> 9) then
begin
Administracin1.Visible := False;
actMenuInformes.Visible := False;
end;
end;
end; end;
procedure TfPantallaPrincipal.RefrescarUI; procedure TfPantallaPrincipal.RefrescarUI;
@ -337,7 +344,7 @@ begin
NavPaneController.InitNavPane; NavPaneController.InitNavPane;
try try
AListaEmpresas := AppFactuGES.EmpresasController.BuscarTodos; AListaEmpresas := AppFactuGES.EmpresasController.BuscarTodos(AppFactuGES.UsuarioActivo.ID_PERFIL);
if Assigned(AListaEmpresas) then if Assigned(AListaEmpresas) then
begin begin
AListaEmpresas.Active := True; AListaEmpresas.Active := True;

48
Source/GUIBase/GUIBase.dproj
View File

@ -59,30 +59,30 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\Base.dcp" /> <DCCReference Include="..\Modulos\Pedidos de cliente\Base.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Pedidos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\cxTreeListD11.dcp" /> <DCCReference Include="..\Modulos\Pedidos de cliente\cxTreeListD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Pedidos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxBarD11.dcp" /> <DCCReference Include="..\Modulos\Pedidos de cliente\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxBarExtItemsD11.dcp" /> <DCCReference Include="..\Modulos\Pedidos de cliente\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxComnD11.dcp" /> <DCCReference Include="..\Modulos\Pedidos de cliente\dxComnD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Pedidos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxLayoutControlD11.dcp" /> <DCCReference Include="..\Modulos\Pedidos de cliente\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxPSCoreD11.dcp" /> <DCCReference Include="..\Modulos\Pedidos de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxPScxCommonD11.dcp" /> <DCCReference Include="..\Modulos\Pedidos de cliente\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\Modulos\Pedidos de cliente\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxPsPrVwAdvD11.dcp" /> <DCCReference Include="..\Modulos\Pedidos de cliente\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Pedidos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\frx11.dcp" /> <DCCReference Include="..\Modulos\Pedidos de cliente\frx11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\frxe11.dcp" /> <DCCReference Include="..\Modulos\Pedidos de cliente\frxe11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\fs11.dcp" /> <DCCReference Include="..\Modulos\Pedidos de cliente\fs11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\JvAppFrmD11R.dcp" /> <DCCReference Include="..\Modulos\Pedidos de cliente\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Pedidos de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\rtl.dcp" /> <DCCReference Include="..\Modulos\Pedidos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\vcl.dcp" /> <DCCReference Include="..\Modulos\Pedidos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\vcldb.dcp" /> <DCCReference Include="..\Modulos\Pedidos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Pedidos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\vclx.dcp" /> <DCCReference Include="..\Modulos\Pedidos de cliente\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

3
Source/Informes/1/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

3
Source/Informes/1/InfPedidoCliente.fr3
View File

File diff suppressed because one or more lines are too long

6
Source/Informes/4/InfAlbaranProveedor.fr3
View File

File diff suppressed because one or more lines are too long

3
Source/Informes/6/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

62
Source/Informes/8/InfAlbaranCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

67
Source/Informes/8/InfAlbaranProveedor.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

51
Source/Informes/8/InfComisiones.fr3 Normal file
View File

@ -0,0 +1,51 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="41572,7821660069" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; Cadena: String;&#13;&#10;begin&#13;&#10; DatosEmpresa.Lines.Clear;&#13;&#10; DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;RAZON_SOCIAL&#34;&#62;);&#13;&#10; DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;CALLE_EMPRESA&#34;&#62;);&#13;&#10;&#13;&#10; Cadena := '';&#13;&#10; if (&#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;FAX&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX&#34;&#62;;&#13;&#10; DatosEmpresa.Lines.Add(Cadena);&#13;&#10;&#13;&#10; Cadena := '';&#13;&#10; if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' ' + &#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' - ' + &#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62;;&#13;&#10; DatosEmpresa.Lines.Add(Cadena);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo26OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (&#60;FechaIni&#62; &#60;&#62; '') then&#13;&#10; Memo31.Visible := True&#13;&#10; else&#13;&#10; Memo31.Visible := False;&#13;&#10;end;&#13;&#10;&#13;&#10;BEGIN&#13;&#10;&#13;&#10;END." ShowProgress="False" StoreInDFM="False" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D2266727844424361626563657261220000095661726961626C657301010C0F000000204E616D653D22204665636861732200010C10000000204E616D653D224665636861496E692200010C10000000204E616D653D22466563686146696E220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band2" Height="115,08652142" Left="0" Top="16" Width="1046,92981">
<TfrxShapeView Name="Shape2" Left="401,07112" Top="56,69295" Width="638,74057" Height="49,35436" ShowHint="False" Color="16777215" Frame.Color="8421504" Shape="skRoundRectangle"/>
<TfrxMemoView Name="Memo15" Left="399,93723" Top="11,33859" Width="639,43352" Height="41,57483" ShowHint="False" Font.Charset="1" Font.Color="12632256" Font.Height="-32" Font.Name="Tahoma" Font.Style="1" Frame.Color="14211288" HAlign="haRight" ParentFont="False" Text="LIQUIDACIONES DE COMISIONES"/>
<TfrxMemoView Name="Memo7" Left="419,30736" Top="83,14966" Width="612,50433" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Página nº: [&#60;Page#&#62;] / [&#60;TotalPages#&#62;]"/>
<TfrxMemoView Name="Memo31" Left="419,52783" Top="60,47248" Width="612,28386" Height="18,89765" OnBeforePrint="Memo26OnBeforePrint" ShowHint="False" HAlign="haRight" Text="Desde [FechaIni] hasta [FechaFin]"/>
<TfrxPictureView Name="Picture2" Left="10" Top="21" Width="226" Height="85" OnBeforePrint="Picture1OnBeforePrint" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="183,92919" Top="20,35436" Width="209,41744" Height="80,69295" OnBeforePrint="DatosEmpresaOnBeforePrint" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
</TfrxPageHeader>
<TfrxMasterData Name="MasterData1" Height="22,67718" Left="0" Top="287" Width="1046,92981" ColumnWidth="0" ColumnGap="0" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo2" Left="4" Top="2" Width="64,47248" Height="18,89765" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;FECHA&#34;]"/>
<TfrxMemoView Name="Memo9" Left="77,9765" Top="2" Width="63,47248" Height="18,89765" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo10" Left="235,80334" Top="1,88976378000001" Width="521,95292677" Height="18,89765" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;CLIENTE&#34;]"/>
<TfrxMemoView Name="Memo13" Left="149,1812" Top="2" Width="81,37013" Height="18,89765" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo29" Left="767,24459" Top="1,88976378" Width="101,63791" Height="19,11812" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;IMPORTE_COMISIONABLE&#34;]"/>
<TfrxMemoView Name="Memo19" Left="914,64626" Top="1,88976378000001" Width="120,53556" Height="19,11812" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;IMPORTE_COMISION&#34;]"/>
<TfrxLineView Name="Line8" Left="72,5906" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line5" Left="145,51181102" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line10" Left="233,95275591" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line4" Left="763,46456693" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line3" Left="874,96062992" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Typ="1"/>
<TfrxLineView Name="Line7" Left="1040,50393701" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line1" Left="0,37795276" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
</TfrxMasterData>
<TfrxGroupHeader Name="GroupHeader1" Height="75,5906" Left="0" Top="191" Width="1046,92981" Condition="frxDBCabecera.&#34;ID_COMISION_LIQUIDADA&#34;" OutlineText="frxDBCabecera.&#34;ID_COMISION_LIQUIDADA&#34;">
<TfrxMemoView Name="Memo18" Left="875,07143" Top="52,91342" Width="165,92130622" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Imp. comisión "/>
<TfrxMemoView Name="Memo27" Left="0" Top="0" Width="1040,8825" Height="52,91340291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo14" Left="60,25201" Top="30,23624" Width="412,18924" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;AGENTE&#34;]"/>
<TfrxMemoView Name="Memo6" Left="174,99227" Top="3,77952999999999" Width="253,44898" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;REFERENCIA_COMISION&#34;]"/>
<TfrxMemoView Name="Memo16" Left="525,35467" Top="3,77952999999999" Width="948,8825" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBCabecera.&#34;FECHA_COMISION&#34;]"/>
<TfrxMemoView Name="Memo17" Left="555,59091" Top="30,23624" Width="476,44125" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;DESCRIPCION&#34;]"/>
<TfrxMemoView Name="Memo20" Left="11,33859" Top="3,77952999999999" Width="160,75603" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Nº liquidación de comisiones:"/>
<TfrxMemoView Name="Memo21" Left="480,00031" Top="3,77952999999999" Width="42,45671" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Fecha:"/>
<TfrxMemoView Name="Memo22" Left="480,00031" Top="30,23624" Width="72,69295" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Descripción:"/>
<TfrxMemoView Name="Memo25" Left="11,33859" Top="30,23624" Width="46,01577" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Agente:"/>
<TfrxMemoView Name="Memo23" Left="0" Top="52,91342" Width="73,32282" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Fec. factura"/>
<TfrxMemoView Name="Memo1" Left="72,5906" Top="52,91342" Width="73,32282" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ref. factura"/>
<TfrxMemoView Name="Memo3" Left="145,63791" Top="52,91342" Width="88,44094" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo4" Left="234,03958" Top="52,91342" Width="532,91355913" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo24" Left="763,46464016" Top="52,91342" Width="113,38583898" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Imp. comisionable"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="41,57483" Left="0" Top="330" Width="1046,92981">
<TfrxMemoView Name="Memo28" Left="0" Top="0" Width="1040,8825" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo30" Left="877,22882" Top="3,77953" Width="157,953" Height="19,11812" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaBottom" Text="Total comisión: [frxDBCabecera.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo5" Left="659" Top="3,77953" Width="215" Height="19" ShowHint="False" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaBottom" Text="Total comisionable:[SUM(&#60;frxDBCabecera.&#34;IMPORTE_COMISIONABLE&#34;&#62;,MasterData1)]"/>
</TfrxGroupFooter>
</TfrxReportPage>
</TfrxReport>

57
Source/Informes/8/InfComisionesDesglosado.fr3 Normal file
View File

@ -0,0 +1,57 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="41572,7822699884" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; Cadena: String;&#13;&#10;begin&#13;&#10; DatosEmpresa.Lines.Clear;&#13;&#10; DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;RAZON_SOCIAL&#34;&#62;);&#13;&#10; DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;CALLE_EMPRESA&#34;&#62;);&#13;&#10;&#13;&#10; Cadena := '';&#13;&#10; if (&#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;FAX&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX&#34;&#62;;&#13;&#10; DatosEmpresa.Lines.Add(Cadena);&#13;&#10;&#13;&#10; Cadena := '';&#13;&#10; if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' ' + &#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' - ' + &#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62;;&#13;&#10; DatosEmpresa.Lines.Add(Cadena);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo26OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (&#60;FechaIni&#62; &#60;&#62; '') then&#13;&#10; Memo31.Visible := True&#13;&#10; else&#13;&#10; Memo31.Visible := False;&#13;&#10;end;&#13;&#10;&#13;&#10;BEGIN&#13;&#10;&#13;&#10;END." ShowProgress="False" StoreInDFM="False" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D2266727844424361626563657261220000095661726961626C657301010C0F000000204E616D653D22204665636861732200010C10000000204E616D653D224665636861496E692200010C10000000204E616D653D22466563686146696E220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band2" Height="115,08652142" Left="0" Top="16" Width="1046,92981">
<TfrxPictureView Name="Picture1" Left="7,77953" Top="20,22047" Width="160,03598" Height="80,03154" OnBeforePrint="Picture1OnBeforePrint" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="171,92919" Top="20,35436" Width="221,41744" Height="80,69295" OnBeforePrint="DatosEmpresaOnBeforePrint" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxShapeView Name="Shape2" Left="401,07112" Top="56,69295" Width="638,74057" Height="49,35436" ShowHint="False" Color="16777215" Frame.Color="8421504" Shape="skRoundRectangle"/>
<TfrxMemoView Name="Memo15" Left="399,93723" Top="11,33859" Width="639,43352" Height="41,57483" ShowHint="False" Font.Charset="1" Font.Color="12632256" Font.Height="-32" Font.Name="Tahoma" Font.Style="1" Frame.Color="14211288" HAlign="haRight" ParentFont="False" Text="LIQUIDACIONES DE COMISIONES"/>
<TfrxMemoView Name="Memo7" Left="419,30736" Top="83,14966" Width="612,50433" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Página nº: [&#60;Page#&#62;] / [&#60;TotalPages#&#62;]"/>
<TfrxMemoView Name="Memo31" Left="419,52783" Top="60,47248" Width="612,28386" Height="18,89765" OnBeforePrint="Memo26OnBeforePrint" ShowHint="False" HAlign="haRight" Text="Desde [FechaIni] hasta [FechaFin]"/>
</TfrxPageHeader>
<TfrxMasterData Name="MasterData1" Height="22,67718" Left="0" Top="287" Width="1046,92981" ColumnWidth="0" ColumnGap="0" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo2" Left="4" Top="2" Width="64,47248" Height="18,89765" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;FECHA&#34;]"/>
<TfrxMemoView Name="Memo9" Left="77,9765" Top="2" Width="63,47248" Height="18,89765" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo10" Left="235,80334" Top="1,88976378000001" Width="257,38582677" Height="18,89765" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;CLIENTE&#34;]"/>
<TfrxMemoView Name="Memo11" Left="502,67716535" Top="1,88976378000001" Width="257,3859" Height="18,89765" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo12" Left="877,85051331" Top="1,88976378000001" Width="60,69295" Height="18,89765" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 %" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBCabecera.&#34;COMISION&#34;]"/>
<TfrxMemoView Name="Memo13" Left="149,1812" Top="2" Width="81,37013" Height="18,89765" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo29" Left="767,24459" Top="1,88976378" Width="101,63791" Height="19,11812" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;IMPORTE_COMISIONABLE&#34;]"/>
<TfrxMemoView Name="Memo19" Left="948,66203" Top="1,88976378000001" Width="86,51979" Height="19,11812" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;IMPORTE_COMISION&#34;]"/>
<TfrxLineView Name="Line8" Left="72,5906" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line5" Left="145,51181102" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line10" Left="233,95275591" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line9" Left="498,8976378" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line4" Left="763,46456693" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line3" Left="874,96062992" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Typ="1"/>
<TfrxLineView Name="Line6" Left="946,77165354" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line7" Left="1040,50393701" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line1" Left="0,37795276" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
</TfrxMasterData>
<TfrxGroupHeader Name="GroupHeader1" Height="75,5906" Left="0" Top="191" Width="1046,92981" Condition="frxDBCabecera.&#34;ID_COMISION_LIQUIDADA&#34;" OutlineText="frxDBCabecera.&#34;ID_COMISION_LIQUIDADA&#34;">
<TfrxMemoView Name="Memo18" Left="946,8825" Top="52,91342" Width="94,11023622" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Imp. comisión "/>
<TfrxMemoView Name="Memo27" Left="0" Top="0" Width="1040,8825" Height="52,91340291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo14" Left="60,25201" Top="30,23624" Width="412,18924" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;AGENTE&#34;]"/>
<TfrxMemoView Name="Memo6" Left="174,99227" Top="3,77952999999999" Width="253,44898" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;REFERENCIA_COMISION&#34;]"/>
<TfrxMemoView Name="Memo16" Left="525,35467" Top="3,77952999999999" Width="948,8825" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBCabecera.&#34;FECHA_COMISION&#34;]"/>
<TfrxMemoView Name="Memo17" Left="555,59091" Top="30,23624" Width="476,44125" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;DESCRIPCION&#34;]"/>
<TfrxMemoView Name="Memo20" Left="11,33859" Top="3,77952999999999" Width="160,75603" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Nº liquidación de comisiones:"/>
<TfrxMemoView Name="Memo21" Left="480,00031" Top="3,77952999999999" Width="42,45671" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Fecha:"/>
<TfrxMemoView Name="Memo22" Left="480,00031" Top="30,23624" Width="72,69295" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Descripción:"/>
<TfrxMemoView Name="Memo25" Left="11,33859" Top="30,23624" Width="46,01577" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Agente:"/>
<TfrxMemoView Name="Memo23" Left="0" Top="52,91342" Width="73,32282" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Fec. factura"/>
<TfrxMemoView Name="Memo1" Left="72,5906" Top="52,91342" Width="73,32282" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ref. factura"/>
<TfrxMemoView Name="Memo3" Left="145,63791" Top="52,91342" Width="88,44094" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo4" Left="234,03958" Top="52,91342" Width="264,56692913" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo8" Left="498,51968504" Top="52,91342" Width="264,56700236" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo24" Left="763,46464016" Top="52,91342" Width="113,38583898" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Imp. comisionable"/>
<TfrxMemoView Name="Memo5" Left="875,39425" Top="52,91342" Width="71,81097236" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Porcentaje"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="41,57483" Left="0" Top="330" Width="1046,92981">
<TfrxMemoView Name="Memo28" Left="0" Top="0" Width="1040,8825" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo30" Left="865,22882" Top="3,77953" Width="169,953" Height="19" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaBottom" Text="Total comisión: [frxDBCabecera.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo26" Left="689" Top="3,77953" Width="184" Height="19" ShowHint="False" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaBottom" Text="Total comisionable: [SUM(&#60;frxDBCabecera.&#34;IMPORTE_COMISIONABLE&#34;&#62;,MasterData1)]"/>
</TfrxGroupFooter>
</TfrxReportPage>
</TfrxReport>

75
Source/Informes/8/InfFacturaCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

75
Source/Informes/8/InfFacturaProveedor.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

49
Source/Informes/8/InfPedidoCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

46
Source/Informes/8/InfPedidoProveedor.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

90
Source/Informes/8/InfReciboCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

56
Source/Informes/8/InfRemesaCliente.fr3 Normal file
View File

@ -0,0 +1,56 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="41473,4487332176" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;// Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1.Height;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; Cadena: String;&#13;&#10;begin&#13;&#10; DatosEmpresa.Lines.Clear;&#13;&#10; DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;RAZON_SOCIAL&#34;&#62;);&#13;&#10; DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;CALLE_EMPRESA&#34;&#62;);&#13;&#10;&#13;&#10; Cadena := '';&#13;&#10; if (&#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;FAX&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX&#34;&#62;;&#13;&#10; DatosEmpresa.Lines.Add(Cadena);&#13;&#10;&#13;&#10; Cadena := '';&#13;&#10; if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' ' + &#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' - ' + &#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62;;&#13;&#10; DatosEmpresa.Lines.Add(Cadena);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Band2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if not Engine.FinalPass then&#13;&#10; Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10; if Engine.FinalPass then&#13;&#10; Set('Pagina', (&#60;Pagina&#62; + 1));&#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; Set('Pagina', 0);&#13;&#10; Set('TotalPaginas', 0);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageFooter1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass and (&#60;TotalPaginas&#62; = &#60;Pagina&#62;)then&#13;&#10; begin&#13;&#10; eTotal.Visible := True;&#13;&#10; vTotal.Visible := True;&#13;&#10; Cuadro.Visible := True;&#13;&#10; end&#13;&#10; else&#13;&#10; begin&#13;&#10; eTotal.Visible := False;&#13;&#10; vTotal.Visible := False;&#13;&#10; Cuadro.Visible := False;&#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E6173220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" Columns="1" ColumnWidth="209,999791666667" ColumnPositions.Text="0" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band2" Height="258,70866142" Left="0" Top="16" Width="718,101251175" OnBeforePrint="Band2OnBeforePrint">
<TfrxMemoView Name="Memo23" Left="3,77953" Top="228,5671" Width="92,22047" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ref. recibo"/>
<TfrxMemoView Name="Memo24" Left="564,69326" Top="228,5671" Width="153,41744" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe "/>
<TfrxPictureView Name="Picture1" Left="7,77953" Top="20,22047" Width="160,03598" Height="80,03154" OnBeforePrint="Picture1OnBeforePrint" ShowHint="False" DataField="LOGOTIPO" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="166,92919" Top="17,35436" Width="221,41744" Height="80,69295" OnBeforePrint="DatosEmpresaOnBeforePrint" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxShapeView Name="Shape1" Left="7,55906" Top="113,3859" Width="257,00804" Height="94,48825" ShowHint="False" Color="16777215" Frame.Color="8421504" Shape="skRoundRectangle"/>
<TfrxShapeView Name="Shape2" Left="325,48052" Top="113,3859" Width="393,07112" Height="94,48825" ShowHint="False" Color="16777215" Frame.Color="8421504" Shape="skRoundRectangle"/>
<TfrxMemoView Name="Memo16" Left="15,11812" Top="116,94496" Width="65,13389" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Nº remesa:"/>
<TfrxMemoView Name="Memo17" Left="15,11812" Top="162,29932" Width="45,35436" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Fecha:"/>
<TfrxMemoView Name="Memo18" Left="15,11812" Top="184,9765" Width="60,47248" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Página nº:"/>
<TfrxMemoView Name="Memo3" Left="211,8859" Top="228,5671" Width="241,0671" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo4" Left="453,953" Top="228,5671" Width="110,74026" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="NIF / CIF"/>
<TfrxMemoView Name="Memo5" Left="80,03154" Top="116,94496" Width="176,9765" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo6" Left="60,25201" Top="162,29932" Width="196,75603" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;FECHA_REMESA&#34;]"/>
<TfrxMemoView Name="Memo7" Left="75,37013" Top="184,9765" Width="181,63791" Height="18,89765" ShowHint="False" Text="[&#60;Pagina&#62;] / [&#60;TotalPaginas&#62;]"/>
<TfrxMemoView Name="Memo15" Left="396,1577" Top="18,89765" Width="314,39394" Height="64,25201" ShowHint="False" Font.Charset="1" Font.Color="12632256" Font.Height="-48" Font.Name="Tahoma" Font.Style="1" Frame.Color="14211288" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="REMESA"/>
<TfrxMemoView Name="Memo8" Left="95,82158333" Top="228,5671" Width="115,89765" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Vencimiento"/>
<TfrxMemoView Name="Memo22" Left="15,11812" Top="139,84261" Width="68,91342" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Descripción:"/>
<TfrxMemoView Name="Memo25" Left="87,5906" Top="139,84261" Width="169,41744" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;DESCRIPCION&#34;]"/>
<TfrxMemoView Name="Memo19" Left="336,37817" Top="139,84261" Width="42,45671" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Titular:"/>
<TfrxMemoView Name="Memo26" Left="382,39394" Top="139,84261" Width="331,93723" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;TITULAR&#34;]"/>
<TfrxMemoView Name="Memo27" Left="336,37817" Top="117,16543" Width="176,9765" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Datos de la cuenta"/>
<TfrxMemoView Name="Memo28" Left="336,37817" Top="162,51979" Width="75,5906" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. entidad:"/>
<TfrxMemoView Name="Memo29" Left="415,52783" Top="162,51979" Width="53,13389" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;ENTIDAD&#34;]"/>
<TfrxMemoView Name="Memo30" Left="472,44125" Top="162,51979" Width="83,14966" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. sucursal:"/>
<TfrxMemoView Name="Memo31" Left="559,14997" Top="162,51979" Width="147,62214" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;SUCURSAL&#34;]"/>
<TfrxMemoView Name="Memo32" Left="336,37817" Top="185,19697" Width="26,45671" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="DC:"/>
<TfrxMemoView Name="Memo33" Left="366,39394" Top="185,19697" Width="34,23624" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;DC&#34;]"/>
<TfrxMemoView Name="Memo34" Left="472,44125" Top="185,19697" Width="83,14966" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. cuenta:"/>
<TfrxMemoView Name="Memo37" Left="559,14997" Top="185,19697" Width="147,62214" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;CUENTA&#34;]"/>
<TfrxLineView Name="Line2" Left="4" Top="229,54" Width="0" Height="774,803149606299" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line5" Left="95,92146" Top="229,54" Width="0" Height="774,803149606299" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line4" Left="453,9094" Top="229,54" Width="0" Height="774,803149606299" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line3" Left="564,28346457" Top="229,54" Width="0" Height="774,803149606299" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line1" Left="718" Top="229,54" Width="0" Height="774,803149606299" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line9" Left="211,62461333" Top="229,54" Width="0" Height="774,803149606299" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
</TfrxPageHeader>
<TfrxMasterData Name="BandaDetalles" Height="19,11812" Left="0" Top="335" Width="718,101251175" AllowSplit="True" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
<TfrxMemoView Name="MemPrecio" Left="460,40153087" Top="2" Width="101,56298724" Height="15,11811024" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;NIF_CIF_CLIENTE&#34;]"/>
<TfrxMemoView Name="MemImpTotal" Left="566,36216811" Top="2" Width="147,16535189" Height="15,11811024" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HAlign="haRight" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="MemCantidad" Left="218,46837457" Top="2" Width="229,44892874" Height="15,11811024" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;NOMBRE_CLIENTE&#34;]"/>
<TfrxMemoView Name="Memo21" Left="99,22449" Top="2" Width="110,89765" Height="15,11812" ShowHint="False" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;FECHA_VENCIMIENTO&#34;]"/>
<TfrxMemoView Name="Memo2" Left="6,18491" Top="2" Width="84" Height="15,11812" ShowHint="False" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;REFERENCIA&#34;]"/>
</TfrxMasterData>
<TfrxPageFooter Name="PageFooter1" Height="42,70866142" Left="0" Top="414" Width="718,101251175" OnBeforePrint="PageFooter1OnBeforePrint">
<TfrxShapeView Name="Cuadro" Left="3,77953" Top="0" Width="714,708661417323" Height="28,88188" ShowHint="False" Color="16777215" Frame.Color="8421504"/>
<TfrxMemoView Name="vtotal" Left="566,9295" Top="3,77953" Width="147,87415" Height="22,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="etotal" Left="430,86642" Top="6,67718" Width="132" Height="16" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total remesa:"/>
<TfrxLineView Name="Linea" Left="3,77953" Top="0" Width="714,330708661417" Height="0" ShowHint="False" Frame.Typ="4"/>
</TfrxPageFooter>
</TfrxReportPage>
</TfrxReport>

65
Source/Informes/8/InfRemesaProveedor.fr3 Normal file
View File

@ -0,0 +1,65 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="40672,5958106019" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; Cadena: String;&#13;&#10;begin&#13;&#10; DatosEmpresa.Lines.Clear;&#13;&#10; DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;RAZON_SOCIAL&#34;&#62;);&#13;&#10; DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;CALLE_EMPRESA&#34;&#62;);&#13;&#10;&#13;&#10; Cadena := '';&#13;&#10; if (&#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;FAX&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX&#34;&#62;;&#13;&#10; DatosEmpresa.Lines.Add(Cadena);&#13;&#10;&#13;&#10; Cadena := '';&#13;&#10; if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' ' + &#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' - ' + &#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62;;&#13;&#10; DatosEmpresa.Lines.Add(Cadena);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Band2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if not Engine.FinalPass then&#13;&#10; Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10; if Engine.FinalPass then&#13;&#10; Set('Pagina', (&#60;Pagina&#62; + 1));&#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; Set('Pagina', 0);&#13;&#10; Set('TotalPaginas', 0);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageFooter1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass&#13;&#10; and (&#60;TotalPaginas&#62; = &#60;Pagina&#62;) then&#13;&#10; begin&#13;&#10; Cuadro.Visible := True;&#13;&#10; eTotal.Visible := True;&#13;&#10; vTotal.Visible := True;&#13;&#10; end&#13;&#10; else&#13;&#10; begin&#13;&#10; Cuadro.Visible := False;&#13;&#10; eTotal.Visible := False;&#13;&#10; vTotal.Visible := False;&#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E6173220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band2" Height="258,70866142" Left="0" Top="16" Width="1046,92981" OnBeforePrint="Band2OnBeforePrint">
<TfrxMemoView Name="Memo23" Left="3,77953" Top="228,5671" Width="80,88188" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ref. recibo"/>
<TfrxMemoView Name="Memo24" Left="887,95856667" Top="228,5671" Width="158,97124333" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe "/>
<TfrxPictureView Name="Picture1" Left="7,77953" Top="20,22047" Width="160,03598" Height="80,03154" OnBeforePrint="Picture1OnBeforePrint" ShowHint="False" DataField="LOGOTIPO" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="166,92919" Top="17,35436" Width="221,41744" Height="80,69295" OnBeforePrint="DatosEmpresaOnBeforePrint" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxShapeView Name="Shape1" Left="7,55906" Top="113,3859" Width="257,00804" Height="94,48825" ShowHint="False" Color="16777215" Frame.Color="8421504" Shape="skRoundRectangle"/>
<TfrxShapeView Name="Shape2" Left="639,181510000002" Top="113,3859" Width="393,07112" Height="94,48825" ShowHint="False" Color="16777215" Frame.Color="8421504" Shape="skRoundRectangle"/>
<TfrxMemoView Name="Memo16" Left="15,11812" Top="116,94496" Width="65,13389" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Nº remesa:"/>
<TfrxMemoView Name="Memo17" Left="15,11812" Top="162,29932" Width="45,35436" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Fecha:"/>
<TfrxMemoView Name="Memo18" Left="15,11812" Top="184,9765" Width="60,47248" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Página nº:"/>
<TfrxMemoView Name="Memo3" Left="303,59462" Top="228,5671" Width="225,94898" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo4" Left="530,21026667" Top="228,5671" Width="133,41744" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="NIF / CIF"/>
<TfrxMemoView Name="Memo5" Left="80,03154" Top="116,94496" Width="176,9765" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo6" Left="60,25201" Top="162,29932" Width="196,75603" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;FECHA_REMESA&#34;]"/>
<TfrxMemoView Name="Memo7" Left="75,37013" Top="184,9765" Width="181,63791" Height="18,89765" ShowHint="False" Text="[&#60;Pagina&#62;] / [&#60;TotalPaginas&#62;]"/>
<TfrxLineView Name="Line1" Left="1046,81911" Top="229,54" Width="0" Height="459,212598425197" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxMemoView Name="Memo15" Left="464,18924" Top="18,89765" Width="567,62245" Height="64,25201" ShowHint="False" Font.Charset="1" Font.Color="12632256" Font.Height="-48" Font.Name="Tahoma" Font.Style="1" Frame.Color="14211288" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="REMESA"/>
<TfrxLineView Name="Line2" Left="4" Top="229,54" Width="0" Height="459,212598425197" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line5" Left="84,58287" Top="228,20666667" Width="0" Height="459,212598425197" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line4" Left="530,16666667" Top="229,54" Width="0" Height="459,212598425197" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxMemoView Name="Memo8" Left="195,86889333" Top="228,66141732" Width="107,33859" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Vencimiento"/>
<TfrxLineView Name="Line9" Left="304" Top="228,43568333" Width="0" Height="459,212598425197" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxMemoView Name="Memo22" Left="15,11812" Top="139,84261" Width="68,91342" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Descripción:"/>
<TfrxMemoView Name="Memo25" Left="87,5906" Top="139,84261" Width="169,41744" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;DESCRIPCION&#34;]"/>
<TfrxMemoView Name="Memo19" Left="650,079160000002" Top="139,84261" Width="42,45671" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Titular:"/>
<TfrxMemoView Name="Memo26" Left="696,094930000002" Top="139,84261" Width="331,93723" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;TITULAR&#34;]"/>
<TfrxMemoView Name="Memo27" Left="650,079160000002" Top="117,16543" Width="176,9765" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Datos de la cuenta"/>
<TfrxMemoView Name="Memo28" Left="650,079160000002" Top="162,51979" Width="75,5906" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. entidad:"/>
<TfrxMemoView Name="Memo29" Left="729,228820000002" Top="162,51979" Width="53,13389" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;ENTIDAD&#34;]"/>
<TfrxMemoView Name="Memo30" Left="786,142240000002" Top="162,51979" Width="83,14966" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. sucursal:"/>
<TfrxMemoView Name="Memo31" Left="872,850960000002" Top="162,51979" Width="147,62214" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;SUCURSAL&#34;]"/>
<TfrxMemoView Name="Memo32" Left="650,079160000002" Top="185,19697" Width="26,45671" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="DC:"/>
<TfrxMemoView Name="Memo33" Left="680,094930000002" Top="185,19697" Width="34,23624" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;DC&#34;]"/>
<TfrxMemoView Name="Memo34" Left="786,142240000002" Top="185,19697" Width="83,14966" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. cuenta:"/>
<TfrxMemoView Name="Memo37" Left="872,850960000002" Top="185,19697" Width="147,62214" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;CUENTA&#34;]"/>
<TfrxMemoView Name="Memo11" Left="663,41775" Top="228,10513333" Width="224,12616" Height="27,2125984251969" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Número de cuenta"/>
<TfrxLineView Name="Line7" Left="888,18955" Top="228,7718" Width="0" Height="459,212598425197" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxMemoView Name="Memo36" Left="86,26252333" Top="228,66141732" Width="111,11812" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ref. factura prov."/>
<TfrxLineView Name="Line8" Left="195,78478667" Top="229,10235" Width="0" Height="459,212598425197" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line3" Left="664,55124457" Top="228,87333333" Width="0" Height="459,212598425197" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
</TfrxPageHeader>
<TfrxMasterData Name="BandaDetalles" Height="19,11812" Left="0" Top="335" Width="1046,92981" AllowSplit="True" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
<TfrxMemoView Name="MemPrecio" Left="548,6640542" Top="2,66666667" Width="109,12204724" Height="15,11811024" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;NIF_CIF_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="MemImpTotal" Left="895,18127811" Top="2" Width="147,16535189" Height="15,11811024" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HAlign="haRight" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="MemCantidad" Left="310,5104279" Top="2" Width="214,33080874" Height="15,11811024" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;NOMBRE_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo21" Left="213,94372333" Top="2" Width="84,44094" Height="15,11812" ShowHint="False" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;FECHA_VENCIMIENTO&#34;]"/>
<TfrxMemoView Name="Memo2" Left="9,96444" Top="2" Width="61,32282" Height="15,11812" ShowHint="False" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo12" Left="696,10018667" Top="2,44619667000001" Width="29,75191724" Height="15,11811024" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;ENTIDAD_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo14" Left="731,89548667" Top="2,66666666999998" Width="29,75191724" Height="15,11811024" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;SUCURSAL_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo20" Left="766,79839333" Top="2,66666665999998" Width="18,41332724" Height="15,11811024" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;DC_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo35" Left="789,92177" Top="2,66666666999998" Width="82,66533724" Height="15,11811024" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;CUENTA_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo39" Left="88,92919" Top="2" Width="106,67718" Height="15,11812" ShowHint="False" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;REFERENCIA_FACTURA_PROV&#34;]"/>
</TfrxMasterData>
<TfrxPageFooter Name="PageFooter1" Height="30,23624" Left="0" Top="414" Width="1046,92981" OnBeforePrint="PageFooter1OnBeforePrint">
<TfrxShapeView Name="Cuadro" Left="3,77953" Top="0" Width="1042,81911" Height="28,88188" ShowHint="False" Color="16777215" Frame.Color="8421504"/>
<TfrxMemoView Name="vTotal" Left="923,93723" Top="1,10235" Width="117,63791" Height="22,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="eTotal" Left="784,09462" Top="7,77953000000002" Width="132" Height="16" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total remesa:"/>
<TfrxLineView Name="Line6" Left="3,77953" Top="0" Width="1043,14960629921" Height="0" ShowHint="False" Frame.Typ="4"/>
</TfrxPageFooter>
</TfrxReportPage>
</TfrxReport>

61
Source/Informes/8/InformeIVAClientes.fr3 Normal file
View File

@ -0,0 +1,61 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40585,5037237847" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403990003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="513" Top="4" Width="495" Height="129" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="521,85807" Top="13" Width="478" Height="19" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE IVA DE FACTURAS DE CLIENTE"/>
<TfrxMemoView Name="Memo3" Left="521,85807" Top="34,89765" Width="478" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="552" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoFacturas.&#34;MES&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="88,77953" Top="25" Width="463,7480315" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo49" Left="552,5275615" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
<TfrxMemoView Name="Memo50" Left="726,5433315" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo51" Left="821,5433315" Top="25" Width="95,24409449" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
<TfrxMemoView Name="Memo52" Left="916,78742599" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo8" Left="633,8661515" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="0" Top="3,77953" Width="485,37013" Height="13" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,78" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo4" Left="88,78" Top="0" Width="463,75" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="552,53" Top="0" Width="81,34" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NIF_CIF&#34;]"/>
<TfrxMemoView Name="Memo21" Left="633,87" Top="0" Width="92,68" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo29" Left="726,55" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo30" Left="821,55" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="916,55" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="309" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="916" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Left="821" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Left="726" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="726" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="345" Width="1009,13451">
<TfrxMemoView Name="Memo13" Left="0" Top="60" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de facturas de cliente"/>
<TfrxMemoView Name="Memo16" Left="383,62987" Top="60" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo17" Left="478,62987" Top="60" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
<TfrxMemoView Name="Memo22" Left="573,62987" Top="60" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo23" Left="0" Top="23" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de las facturas de cliente"/>
</TfrxHeader>
<TfrxMasterData Name="DatosMAestros2" Height="17" Left="0" Top="440" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0">
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="383,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo10" Left="383,63" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo11" Left="478,63" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo12" Left="573,63" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxReportSummary Name="ReportSummary1" Height="15" Left="0" Top="517" Width="1009,13451">
<TfrxMemoView Name="Memo24" Align="baLeft" Left="0" Top="0" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total: "/>
<TfrxMemoView Name="Memo25" Align="baLeft" Left="383,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo26" Align="baLeft" Left="478,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo32" Align="baLeft" Left="573,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
</TfrxReportPage>
</TfrxReport>

65
Source/Informes/8/InformeIVAClientesDesglosado.fr3 Normal file
View File

@ -0,0 +1,65 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40585,5038973264" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10; &#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403990003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="512" Top="3" Width="495" Height="129" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="520,85807" Top="12" Width="478" Height="19" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE IVA DE FACTURAS DE CLIENTE"/>
<TfrxMemoView Name="Memo3" Left="520,85807" Top="33,89765" Width="478" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="635" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="255" Width="1009,13451" Condition="frxDBInformeListadoFacturas.&#34;NOMBRE&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="88,77953" Top="25" Width="463,7480315" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo49" Left="552,5275615" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
<TfrxMemoView Name="Memo50" Left="726,5433315" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo51" Left="821,5433315" Top="25" Width="95,24409449" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
<TfrxMemoView Name="Memo52" Left="916,78742599" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo8" Left="633,8661515" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="0" Top="2,77953" Width="485,37013" Height="20" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="315" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,78" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo4" Left="88,78" Top="0" Width="463,75" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="552,53" Top="0" Width="81,34" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NIF_CIF&#34;]"/>
<TfrxMemoView Name="Memo21" Left="633,87" Top="0" Width="92,68" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo29" Left="726,55" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo30" Left="821,55" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="916,55" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="352" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="916" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Left="821" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Left="726" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="726" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="428" Width="1009,13451">
<TfrxMemoView Name="Memo13" Left="0" Top="60" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de facturas de cliente"/>
<TfrxMemoView Name="Memo16" Left="383,62987" Top="60" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo17" Left="478,62987" Top="60" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
<TfrxMemoView Name="Memo22" Left="573,62987" Top="60" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo23" Left="0" Top="23" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de las facturas de cliente"/>
</TfrxHeader>
<TfrxMasterData Name="DatosMAestros2" Height="17" Left="0" Top="523" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0">
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="383,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo10" Left="383,63" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo11" Left="478,63" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo12" Left="573,63" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxReportSummary Name="ReportSummary1" Height="15" Left="0" Top="600" Width="1009,13451">
<TfrxMemoView Name="Memo24" Align="baLeft" Left="0" Top="0" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total: "/>
<TfrxMemoView Name="Memo25" Align="baLeft" Left="383,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo26" Align="baLeft" Left="478,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo32" Align="baLeft" Left="573,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
<TfrxGroupHeader Name="GroupHeader1" Height="23" Left="0" Top="212" Width="1009,13451" Condition="frxDBInformeListadoFacturas.&#34;MES&#34;">
<TfrxMemoView Name="Memo1" Left="0" Top="1" Width="485,37013" Height="20" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="20" Left="0" Top="388" Width="1009,13451"/>
</TfrxReportPage>
</TfrxReport>

62
Source/Informes/8/InformeIVAProveedores.fr3 Normal file
View File

@ -0,0 +1,62 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40585,5040753935" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403990003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C35000000204E616D653D22546578746F506172616D6574726F73222056616C75653D22262336303B4665636861496E6963696F262336323B220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="542" Top="9" Width="465" Height="122" ShowHint="False" Color="13434828" Frame.Width="0,1" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="545,85807" Top="14" Width="452" Height="16,88188" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE IVA FACTURAS DE PROVEEDOR"/>
<TfrxMemoView Name="Memo3" Left="545,85807" Top="34" Width="452" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="558" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoFacturas.&#34;MES&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="87" Top="25" Width="463,7480315" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo49" Left="550,677165354331" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
<TfrxMemoView Name="Memo50" Left="724" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo51" Left="818,57483" Top="25" Width="95,24409449" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
<TfrxMemoView Name="Memo52" Left="914,267716535433" Top="25" Width="94,1102362204724" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo8" Left="632" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="0" Top="3,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="86,95698" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="13" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo4" Left="87" Top="0" Width="463,75" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="550,81138" Top="0" Width="81,25984252" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NIF_CIF&#34;]"/>
<TfrxMemoView Name="Memo21" Left="631,93700787" Top="0" Width="92,5984252" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo29" Left="724,53543307" Top="0" Width="94,48818898" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="13" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo30" Left="818,64566929" Top="0" Width="95,24409449" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="913,86501" Top="0" Width="94,64276" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="309" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="914,11812" Top="0,37774772" Width="94,488188976378" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Left="816,22936" Top="0,37774772" Width="97,8897637795276" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Left="724,54" Top="0,37774772" Width="94,48818898" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="723,57139" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter>
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="651" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMasterData Name="DatosMaestros2" Height="17,007874015748" Left="0" Top="446" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0">
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="381,32282" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo10" Left="381,65368" Top="0" Width="94,48818898" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="13" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo11" Left="476,3624" Top="0" Width="95,24409449" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo12" Left="571,63018" Top="0" Width="94,64276" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxReportSummary Name="ReportSummary1" Height="15,1181102362205" Left="0" Top="523" Width="1009,13451">
<TfrxMemoView Name="Memo24" Left="0" Top="0" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total: "/>
<TfrxMemoView Name="Memo25" Left="381,73253" Top="0" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo26" Left="476,30736" Top="0" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo32" Left="571,08689" Top="0" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
<TfrxHeader Name="Header1" Height="75,59055118" Left="0" Top="350" Width="1009,13451">
<TfrxMemoView Name="Memo1" Left="0" Top="26,45671" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de las facturas de proveedor"/>
<TfrxMemoView Name="Memo13" Align="baBottom" Left="0" Top="60,59055118" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de facturas de proveedor"/>
<TfrxMemoView Name="Memo16" Align="baBottom" Left="381,73253" Top="60,59055118" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo17" Align="baBottom" Left="476,30736" Top="60,59055118" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
<TfrxMemoView Name="Memo22" Align="baBottom" Left="571,08689" Top="60,59055118" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
</TfrxHeader>
</TfrxReportPage>
</TfrxReport>

66
Source/Informes/8/InformeIVAProveedoresDesglosado.fr3 Normal file
View File

@ -0,0 +1,66 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40585,5325244213" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403990003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C35000000204E616D653D22546578746F506172616D6574726F73222056616C75653D22262336303B4665636861496E6963696F262336323B220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="541" Top="8" Width="465" Height="122" ShowHint="False" Color="13434828" Frame.Width="0,1" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="544,85807" Top="13" Width="452" Height="16,88188" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE IVA FACTURAS DE PROVEEDOR"/>
<TfrxMemoView Name="Memo3" Left="544,85807" Top="33" Width="452" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="644" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="23,59802" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="255" Width="1009,13451" Condition="frxDBInformeListadoFacturas.&#34;NOMBRE&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="87" Top="25" Width="463,7480315" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo49" Left="550,67716535" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
<TfrxMemoView Name="Memo50" Left="724" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo51" Left="818,57483" Top="25" Width="95,24409449" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
<TfrxMemoView Name="Memo52" Left="914,26771654" Top="25" Width="94,11023622" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo8" Left="632" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="0" Top="3,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="315" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="86,95698" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="13" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo4" Left="87" Top="0" Width="462,75" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="13" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="550,68" Top="0" Width="81,25984252" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NIF_CIF&#34;]"/>
<TfrxMemoView Name="Memo21" Left="632" Top="0" Width="92,5984252" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo29" Left="724" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="12" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo30" Left="818,57" Top="0" Width="95,24409449" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="914,27" Top="0" Width="94,11" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="352" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="914,11812" Top="0,37774772" Width="94,488188976378" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Left="816,22936" Top="0,37774772" Width="97,8897637795276" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Left="724,35436" Top="0,37774772" Width="94,488188976378" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="724,57139" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter>
<TfrxMasterData Name="DatosMaestros2" Height="17,007874015748" Left="0" Top="532" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0">
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="382,32282" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo10" Left="381,65368" Top="0" Width="94,48818898" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="12" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo11" Left="476,3624" Top="0" Width="95,24409449" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo12" Left="571,63018" Top="0" Width="94,64276" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxReportSummary Name="ReportSummary1" Height="15,1181102362205" Left="0" Top="609" Width="1009,13451">
<TfrxMemoView Name="Memo24" Left="0" Top="0" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total: "/>
<TfrxMemoView Name="Memo25" Left="381,73253" Top="0" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo26" Left="476,30736" Top="0" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo32" Left="571,08689" Top="0" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
<TfrxHeader Name="Header1" Height="75,59055118" Left="0" Top="436" Width="1009,13451">
<TfrxMemoView Name="Memo1" Left="0" Top="26,45671" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de las facturas de proveedor"/>
<TfrxMemoView Name="Memo13" Align="baBottom" Left="0" Top="60,59055118" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de facturas de proveedor"/>
<TfrxMemoView Name="Memo16" Align="baBottom" Left="381,73253" Top="60,59055118" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo17" Align="baBottom" Left="476,30736" Top="60,59055118" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
<TfrxMemoView Name="Memo22" Align="baBottom" Left="571,08689" Top="60,59055118" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
</TfrxHeader>
<TfrxGroupHeader Name="GroupHeader1" Height="22,67718" Left="0" Top="212" Width="1009,13451" Condition="frxDBInformeListadoFacturas.&#34;MES&#34;">
<TfrxMemoView Name="Memo5" Left="0" Top="3,55906" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="22,67718" Left="0" Top="393" Width="1009,13451"/>
</TfrxReportPage>
</TfrxReport>

152
Source/Informes/8/InformeListadoAlbaranesClienteGrafComp.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

69
Source/Informes/8/InformeListadoBeneficiosGrafComp.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

63
Source/Informes/8/InformeListadoFacturasCliente.fr3 Normal file
View File

@ -0,0 +1,63 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40585,5326245833" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403990003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxShapeView Name="Shape5" Left="512,14193" Top="3,10235" Width="495" Height="129" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxMemoView Name="NombreCliente" Left="521" Top="12,10235" Width="478" Height="19" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE FACTURAS DE CLIENTE"/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxMemoView Name="Memo3" Left="521" Top="34" Width="478" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="590" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoFacturas.&#34;MES&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="259,01577" Top="25" Width="384,96846" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo49" Left="643,98423" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="725,32282" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo51" Left="820,32282" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
<TfrxMemoView Name="Memo52" Left="915,32282" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo8" Left="88,77953" Top="25" Width="85,11812" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="0" Top="2,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo1" Left="173,89765" Top="25" Width="85,11812" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo4" Align="baLeft" Left="259,02" Top="0" Width="384,97" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Align="baLeft" Left="643,99" Top="0" Width="81,34" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Align="baLeft" Left="88,78" Top="0" Width="85,12" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo18" Align="baLeft" Left="0" Top="0" Width="88,78" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo29" Align="baLeft" Left="725,33" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo30" Align="baLeft" Left="820,33" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo31" Align="baLeft" Left="915,33" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo5" Align="baLeft" Left="173,9" Top="0" Width="85,12" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_VENCIMIENTO&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="17" Left="0" Top="309" Width="1009,13451">
<TfrxMemoView Name="Memo53" Left="0" Top="0" Width="725" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo6" Left="915" Top="0" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Left="820" Top="0" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Left="725" Top="0" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
</TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="346" Width="1009,13451">
<TfrxMemoView Name="Memo13" Left="0" Top="60" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de facturas de cliente"/>
<TfrxMemoView Name="Memo16" Left="383,62987" Top="60" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo17" Left="478,62987" Top="60" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
<TfrxMemoView Name="Memo22" Left="573,62987" Top="60" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo23" Left="0" Top="25" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de las facturas de cliente"/>
</TfrxHeader>
<TfrxMasterData Name="DAtosMaestros2" Height="17" Left="0" Top="441" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0">
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="383,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo10" Left="383,63" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo11" Left="478,63" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo12" Left="573,63" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxReportSummary Name="ReportSummary1" Height="52" Left="0" Top="518" Width="1009,13451">
<TfrxMemoView Name="Memo24" Align="baLeft" Left="0" Top="0" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total: "/>
<TfrxMemoView Name="Memo25" Align="baLeft" Left="383,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo26" Align="baLeft" Left="478,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo32" Align="baLeft" Left="573,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
</TfrxReportPage>
</TfrxReport>

68
Source/Informes/8/InformeListadoFacturasClienteDesglosado.fr3 Normal file
View File

@ -0,0 +1,68 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40585,5328214815" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403990003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="513" Top="5" Width="495" Height="129" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="521,85807" Top="14" Width="478" Height="19" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE FACTURAS DE CLIENTE"/>
<TfrxMemoView Name="Memo3" Left="521,85807" Top="35,89765" Width="478" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="670" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="21" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="252" Width="1009,13451" Condition="frxDBInformeListadoFacturas.&#34;NOMBRE&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="259,01577" Top="25" Width="384,96846" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo49" Left="643,98423" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="725,32282" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo51" Left="820,32282" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
<TfrxMemoView Name="Memo52" Left="915,32282" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo8" Left="88,77953" Top="25" Width="85,11812" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="0" Top="2,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo1" Left="173,89765" Top="25" Width="85,11812" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="312" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo4" Align="baLeft" Left="259,02" Top="0" Width="384,97" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Align="baLeft" Left="643,99" Top="0" Width="81,34" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Align="baLeft" Left="88,78" Top="0" Width="85,12" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo18" Align="baLeft" Left="0" Top="0" Width="88,78" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo29" Align="baLeft" Left="725,33" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo30" Align="baLeft" Left="820,33" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo31" Align="baLeft" Left="915,33" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo5" Align="baLeft" Left="173,9" Top="0" Width="85,12" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_VENCIMIENTO&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="17" Left="0" Top="349" Width="1009,13451">
<TfrxMemoView Name="Memo53" Align="baLeft" Left="0" Top="0" Width="725" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo6" Left="915" Top="0" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Left="820" Top="0" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Left="725" Top="0" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
</TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="426" Width="1009,13451">
<TfrxMemoView Name="Memo13" Left="0" Top="60" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de facturas de cliente"/>
<TfrxMemoView Name="Memo16" Left="383,62987" Top="60" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo17" Left="478,62987" Top="60" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
<TfrxMemoView Name="Memo22" Left="573,62987" Top="60" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo23" Left="0" Top="25" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de las facturas de cliente"/>
</TfrxHeader>
<TfrxMasterData Name="DAtosMaestros2" Height="17" Left="0" Top="521" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0">
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="383,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo10" Left="383,63" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo11" Left="478,63" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo12" Left="573,63" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxReportSummary Name="ReportSummary1" Height="52" Left="0" Top="598" Width="1009,13451">
<TfrxMemoView Name="Memo24" Align="baLeft" Left="0" Top="0" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total: "/>
<TfrxMemoView Name="Memo25" Align="baLeft" Left="383,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo26" Align="baLeft" Left="478,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo32" Align="baLeft" Left="573,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
<TfrxGroupHeader Name="GroupHeader1" Height="20" Left="0" Top="212" Width="1009,13451" Condition="frxDBInformeListadoFacturas.&#34;MES&#34;">
<TfrxMemoView Name="Memo33" Left="0" Top="2" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="20" Left="0" Top="386" Width="1009,13451"/>
</TfrxReportPage>
</TfrxReport>

84
Source/Informes/8/InformeListadoFacturasClienteGrafComp.fr3 Normal file
View File

@ -0,0 +1,84 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41572,7858621759" ScriptLanguage="PascalScript" ScriptText.Text="procedure Chart1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (&#60;Ano1&#62; &#60;&#62; 0) then&#13;&#10; begin &#13;&#10; TLineSeries(Chart1.Series[0]).Title := 'Total facturado ' + VarToStr(&#60;Ano1&#62;);&#13;&#10; end;&#13;&#10; &#13;&#10; if (&#60;Ano2&#62; &#62; 0) then&#13;&#10; begin &#13;&#10; TLineSeries(Chart1.Series[1]).Title := 'Total facturado ' + VarToStr(&#60;Ano2&#62;);&#13;&#10; end&#13;&#10; else&#13;&#10; begin &#13;&#10; Chart1.Series[1].Active := False;&#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo16OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; Valor:Double; &#13;&#10;begin&#13;&#10; Valor := SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;IMPORTE_TOTAL1&#34;&#62;) * 100; &#13;&#10; if (SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;IMPORTE_TOTAL&#34;&#62;) = 0) then&#13;&#10; Valor := 100 - Valor &#13;&#10; else&#13;&#10; Valor := 100 - (Valor/SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;IMPORTE_TOTAL&#34;&#62;)); &#13;&#10;&#13;&#10; memo16.lines.add(FormatFloat('#,##0.00 %',Valor));&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo18OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (&#60;Ano2&#62; &#62; 0) then&#13;&#10; begin&#13;&#10; Memo46.visible := True;&#13;&#10; Memo47.visible := True; &#13;&#10; Memo48.visible := True;&#13;&#10; Memo49.visible := True; &#13;&#10; Memo42.visible := True;&#13;&#10; Memo51.visible := True; &#13;&#10; end&#13;&#10; else&#13;&#10; begin&#13;&#10; Memo46.visible := False;&#13;&#10; Memo47.visible := False; &#13;&#10; Memo48.visible := False;&#13;&#10; Memo49.visible := False; &#13;&#10; Memo42.visible := False;&#13;&#10; Memo51.visible := False; &#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;end. " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C7C00000020446174615365743D226672784442496E666F726D654C69737461646F4167656E7465734D61796F724661637475726163696F6E526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4167656E7465734D61796F724661637475726163696F6E526573756D656E2200010C7A00000020446174615365743D226672784442496E666F726D654C69737461646F436C69656E7465734D61796F724465736375656E746F526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F436C69656E7465734D61796F724465736375656E746F526573756D656E2200010C7E00000020446174615365743D226672784442496E666F726D654C69737461646F436C69656E7465734D61796F724661637475726163696F6E526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F436C69656E7465734D61796F724661637475726163696F6E526573756D656E2200010C6000000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D70220000095661726961626C657301010C12000000204E616D653D22205661726961626C65732200010C0D000000204E616D653D2253657269652200010C0C000000204E616D653D22416E6F312200010C0C000000204E616D653D22416E6F32220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxMasterData Name="MasterData1" Height="15" Left="0" Top="294" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasGrafComp" DataSetName="frxDBInformeListadoFacturasGrafComp" RowCount="0">
<TfrxMemoView Name="Memo17" Left="113,93" Top="0" Width="131,66" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturasGrafComp.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo1" Left="2" Top="0" Width="93,55" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturasGrafComp.&#34;DESCRIPCION&#34;]"/>
<TfrxMemoView Name="Memo2" Left="264,93" Top="0" Width="131,66" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturasGrafComp.&#34;IMPORTE_TOTAL1&#34;]"/>
<TfrxMemoView Name="Memo3" Left="452" Top="0" Width="131,66" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturasGrafComp.&#34;DIFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo4" Left="605" Top="0" Width="111,66" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturasGrafComp.&#34;PORCENTAJE&#34;] %"/>
</TfrxMasterData>
<TfrxMasterData Name="MasterData2" Height="301" Left="0" Top="364" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasGrafComp" DataSetName="frxDBInformeListadoFacturasGrafComp" RowCount="0">
<TfrxChartView Name="Chart1" Left="4" Top="7" Width="709" Height="293" OnBeforePrint="Chart1OnBeforePrint" ShowHint="False" PropData="0543686172740A7E0200005450463006544368617274054368617274044C656674020003546F7002000557696474680390010648656967687403FA00144261636B57616C6C2E50656E2E56697369626C6508104C6567656E642E416C69676E6D656E7407086C61426F74746F6D114C6567656E642E426576656C5769647468020A0D4672616D652E56697369626C6508165669657733444F7074696F6E732E526F746174696F6E02000A426576656C4F75746572070662764E6F6E6505436F6C6F720707636C5768697465000A544261725365726965730753657269657331194D61726B732E43616C6C6F75742E42727573682E436F6C6F720707636C426C61636B0D4D61726B732E56697369626C6508055469746C65060A546F74616C20416E6F310F426172576964746850657263656E74023C124772616469656E742E446972656374696F6E070B6764546F70426F74746F6D0C5856616C7565732E4E616D650601580D5856616C7565732E4F72646572070B6C6F417363656E64696E670C5956616C7565732E4E616D6506034261720D5956616C7565732E4F7264657207066C6F4E6F6E6500000A544261725365726965730753657269657332194D61726B732E43616C6C6F75742E42727573682E436F6C6F720707636C426C61636B0D4D61726B732E56697369626C6508055469746C65060A546F74616C20416E6F320F426172576964746850657263656E74023C124772616469656E742E446972656374696F6E070B6764546F70426F74746F6D0C5856616C7565732E4E616D650601580D5856616C7565732E4F72646572070B6C6F417363656E64696E670C5956616C7565732E4E616D6506034261720D5956616C7565732E4F7264657207066C6F4E6F6E650000000E4368617274456C65766174696F6E0359010A5365726965734461746101010CB30100002044617461547970653D2264744442446174612220446174615365743D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702220536F72744F726465723D22736F4E6F6E652220546F704E3D2230222058547970653D227874546578742220536F75726365313D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702E262333343B4445534352495043494F4E262333343B2220536F75726365323D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702E262333343B496D706F7274655F746F74616C262333343B222058536F757263653D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702E262333343B4445534352495043494F4E262333343B222059536F757263653D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702E262333343B496D706F7274655F746F74616C262333343B2200010C2D0100002044617461547970653D2264744442446174612220446174615365743D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702220536F72744F726465723D22736F4E6F6E652220546F704E3D2230222058547970653D227874546578742220536F75726365323D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702E262333343B496D706F7274655F746F74616C31262333343B222059536F757263653D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702E262333343B496D706F7274655F746F74616C31262333343B220000"/>
</TfrxMasterData>
<TfrxPageHeader Name="Band1" Height="158,10235" Left="0" Top="16" Width="718,101251175" OnBeforePrint="Band1OnBeforePrint">
<TfrxShapeView Name="Shape5" Left="320,90569" Top="2,10235" Width="397" Height="134" ShowHint="False" Color="13095676" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="330,98423" Top="8,10235" Width="379,01577" Height="22" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO ESTADÍSTICO DE FACTURAS DE CLIENTE"/>
<TfrxMemoView Name="Memo7" Left="331" Top="33,10235" Width="378" Height="97" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]"/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="5470709" Frame.Typ="4" Frame.Width="4"/>
<TfrxPictureView Name="Picture1" Left="3" Top="43" Width="160,03598" Height="80,03154" OnBeforePrint="Picture1OnBeforePrint" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" HightQuality="False"/>
</TfrxPageHeader>
<TfrxHeader Name="Header1" Height="40" Left="0" Top="234" Width="718,101251175">
<TfrxMemoView Name="Memo5" Left="2" Top="25" Width="93,55115913" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haCenter" ParentFont="False" Text="Intervalo"/>
<TfrxMemoView Name="Memo30" Left="113,92919" Top="25" Width="131,66138559" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haCenter" ParentFont="False" Text="Facturación (B.I)"/>
<TfrxMemoView Name="Memo9" Left="113" Top="4" Width="131,03927" Height="18,9" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" HAlign="haCenter" HideZeros="True" ParentFont="False" Text="Valores del año [&#60;Ano1&#62;]"/>
<TfrxMemoView Name="Memo10" Left="264,92919" Top="25" Width="131,66138559" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haCenter" ParentFont="False" Text="Facturación (B.I.)"/>
<TfrxMemoView Name="Memo11" Left="264" Top="4" Width="131,03927" Height="18,9" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" HAlign="haCenter" HideZeros="True" ParentFont="False" Text="Valores del año [&#60;Ano2&#62;]"/>
<TfrxMemoView Name="Memo12" Left="407" Top="4" Width="310,03927" Height="18,9" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" HideZeros="True" ParentFont="False" Text="Comparativa del año [&#60;Ano1&#62;] respecto al año [&#60;Ano2&#62;]"/>
<TfrxMemoView Name="Memo13" Left="452" Top="25" Width="131,66138559" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haCenter" ParentFont="False" Text="Diferencia"/>
<TfrxMemoView Name="Memo14" Left="605" Top="25" Width="111,66138559" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haCenter" ParentFont="False" Text="Porcentaje"/>
</TfrxHeader>
<TfrxFooter Name="Footer1" Height="15" Left="0" Top="329" Width="718,101251175">
<TfrxMemoView Name="Memo6" Left="113,93" Top="0" Width="131,66" Height="15" ShowHint="False" Color="13095676" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;IMPORTE_TOTAL&#34;&#62;)]"/>
<TfrxMemoView Name="Memo8" Left="264,93" Top="0" Width="131,66" Height="15" ShowHint="False" Color="13095676" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;IMPORTE_TOTAL1&#34;&#62;)]"/>
<TfrxMemoView Name="Memo15" Left="452" Top="0" Width="131,66" Height="15" ShowHint="False" Color="13095676" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;IMPORTE_TOTAL&#34;&#62;) - SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;IMPORTE_TOTAL1&#34;&#62;)]"/>
<TfrxMemoView Name="Memo16" Left="605" Top="0" Width="111,66" Height="15" OnBeforePrint="Memo16OnBeforePrint" ShowHint="False" Color="13095676" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=""/>
</TfrxFooter>
<TfrxMasterData Name="MasterData3" Height="15" Left="0" Top="750" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoClientesMayorFacturacionResumen" DataSetName="frxDBInformeListadoClientesMayorFacturacionResumen" RowCount="0">
<TfrxMemoView Name="Memo23" Left="2" Top="0" Width="300" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoClientesMayorFacturacionResumen.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo24" Align="baLeft" Left="302" Top="0" Width="68" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoClientesMayorFacturacionResumen.&#34;NUMFAC&#34;] "/>
<TfrxMemoView Name="Memo25" Align="baLeft" Left="370" Top="0" Width="128" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoClientesMayorFacturacionResumen.&#34;IMPORTE_TOTAL_ANO1&#34;] "/>
<TfrxMemoView Name="Memo26" Align="baLeft" Left="628" Top="0" Width="90" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoClientesMayorFacturacionResumen.&#34;PORCENTAJE&#34;] % "/>
<TfrxMemoView Name="Memo47" Align="baLeft" Left="498" Top="0" Width="130" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoClientesMayorFacturacionResumen.&#34;IMPORTE_TOTAL_ANO2&#34;] "/>
</TfrxMasterData>
<TfrxMasterData Name="MasterData4" Height="15" Left="0" Top="850" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoClientesMayorDescuentoResumen" DataSetName="frxDBInformeListadoClientesMayorDescuentoResumen" RowCount="0">
<TfrxMemoView Name="Memo34" Left="2" Top="0" Width="286" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoClientesMayorDescuentoResumen.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo35" Align="baLeft" Left="288" Top="0" Width="90" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text=" [frxDBInformeListadoClientesMayorDescuentoResumen.&#34;IMPORTE_DESCUENTO&#34;] "/>
<TfrxMemoView Name="Memo36" Align="baLeft" Left="468" Top="0" Width="90" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoClientesMayorDescuentoResumen.&#34;IMPORTE_TOTAL&#34;] "/>
<TfrxMemoView Name="Memo37" Align="baLeft" Left="558" Top="0" Width="90" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoClientesMayorDescuentoResumen.&#34;IMPORTE_COBRADO&#34;]"/>
<TfrxMemoView Name="Memo38" Align="baLeft" Left="648" Top="0" Width="70" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text=" [frxDBInformeListadoClientesMayorDescuentoResumen.&#34;PORCENTAJE&#34;] % "/>
<TfrxMemoView Name="Memo49" Align="baLeft" Left="378" Top="0" Width="90" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoClientesMayorDescuentoResumen.&#34;IMPORTE_DESCUENTO2&#34;] "/>
</TfrxMasterData>
<TfrxHeader Name="Header2" Height="45" Left="0" Top="685" Width="718,101251175">
<TfrxMemoView Name="Memo18" Left="2" Top="30" Width="300" Height="15" OnBeforePrint="Memo18OnBeforePrint" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" ParentFont="False" Text="Nombre"/>
<TfrxMemoView Name="Memo19" Align="baLeft" Left="302" Top="30" Width="68" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Nº facturas"/>
<TfrxMemoView Name="Memo20" Left="3" Top="9" Width="259,03927" Height="18,9" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="5" HideZeros="True" ParentFont="False" Text="Clientes con mayor capital facturado"/>
<TfrxMemoView Name="Memo21" Align="baLeft" Left="370" Top="30" Width="128" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Imp. total (B.I.) [&#60;Ano1&#62;]"/>
<TfrxMemoView Name="Memo22" Align="baLeft" Left="628" Top="30" Width="90" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Porcentaje (%)"/>
<TfrxMemoView Name="Memo46" Align="baLeft" Left="498" Top="30" Width="130" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Imp. total (B.I.) [&#60;Ano2&#62;]"/>
</TfrxHeader>
<TfrxHeader Name="Header3" Height="45" Left="0" Top="785" Width="718,101251175">
<TfrxMemoView Name="Memo27" Left="2" Top="30" Width="286" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" ParentFont="False" Text="Nombre"/>
<TfrxMemoView Name="Memo28" Align="baLeft" Left="288" Top="30" Width="90" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Imp. Dto. [&#60;Ano1&#62;]"/>
<TfrxMemoView Name="Memo29" Left="3" Top="9" Width="285,03927" Height="18,9" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="5" HideZeros="True" ParentFont="False" Text="Clientes con mayor descuento aplicado"/>
<TfrxMemoView Name="Memo31" Align="baLeft" Left="468" Top="30" Width="90" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Imp total (Neto)"/>
<TfrxMemoView Name="Memo32" Align="baLeft" Left="648" Top="30" Width="70" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Medio (%)"/>
<TfrxMemoView Name="Memo33" Align="baLeft" Left="558" Top="30" Width="90" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Imp. cobrado (B.I)"/>
<TfrxMemoView Name="Memo48" Align="baLeft" Left="378" Top="30" Width="90" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Imp. dto. [&#60;Ano2&#62;]"/>
</TfrxHeader>
<TfrxMasterData Name="MasterData5" Height="15" Left="0" Top="945" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoAgentesMayorFacturacionResumen" DataSetName="frxDBInformeListadoAgentesMayorFacturacionResumen" RowCount="0">
<TfrxMemoView Name="Memo40" Left="2" Top="1" Width="351" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoAgentesMayorFacturacionResumen.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo44" Align="baLeft" Left="353" Top="1" Width="130" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoAgentesMayorFacturacionResumen.&#34;IMPORTE_TOTAL_ANO1&#34;] "/>
<TfrxMemoView Name="Memo45" Align="baLeft" Left="613" Top="1" Width="105" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoAgentesMayorFacturacionResumen.&#34;PORCENTAJE&#34;] % "/>
<TfrxMemoView Name="Memo51" Align="baLeft" Left="483" Top="1" Width="130" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoAgentesMayorFacturacionResumen.&#34;IMPORTE_TOTAL_ANO2&#34;] "/>
</TfrxMasterData>
<TfrxHeader Name="Header4" Height="40" Left="0" Top="885" Width="718,101251175">
<TfrxMemoView Name="Memo39" Left="2" Top="26" Width="351" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" ParentFont="False" Text="Nombre"/>
<TfrxMemoView Name="Memo41" Left="3" Top="4" Width="285,03927" Height="18,9" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="5" HideZeros="True" ParentFont="False" Text="Agentes con mayor capital facturado"/>
<TfrxMemoView Name="Memo42" Align="baLeft" Left="483" Top="26" Width="130" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Imp. total (B.I.)[&#60;Ano2&#62;]"/>
<TfrxMemoView Name="Memo43" Align="baLeft" Left="613" Top="26" Width="105" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Porcentaje (%)"/>
<TfrxMemoView Name="Memo50" Align="baLeft" Left="353" Top="26" Width="130" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Imp. total (B.I.)[&#60;Ano1&#62;]"/>
</TfrxHeader>
</TfrxReportPage>
</TfrxReport>

39
Source/Informes/8/InformeListadoFacturasClientePendientes.fr3 Normal file
View File

@ -0,0 +1,39 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40585,5330131134" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403990003546F70021008446174617365747301010C6400000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E746573220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="140" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxPictureView Name="Logotipo" Left="0" Top="3,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="3,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="95,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="513" Top="3" Width="495" Height="129" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="521,85807" Top="12" Width="478" Height="19" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE FACTURAS DE CLIENTE PENDIENTES"/>
<TfrxMemoView Name="Memo3" Left="521,85807" Top="33,89765" Width="478" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="394" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="216" Width="1009,13451" Condition="frxDBInformeListadoFacturasPendientes.&#34;MES&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo52" Left="718,11023622" Top="25" Width="154,89765" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="135,69639" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="304,5906" Top="25" Width="413,37004213" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo49" Left="873" Top="25" Width="135,50393701" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo8" Left="135" Top="25" Width="85,0393700787402" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="0" Top="2,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo1" Left="219,7718" Top="24,9448818897638" Width="85,03937008" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="276" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturasPendientes" DataSetName="frxDBInformeListadoFacturasPendientes" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo31" Left="718,11023622" Top="0" Width="155,76377953" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;IMPORTE_TOTAL&#34;] "/>
<TfrxMemoView Name="Memo4" Left="304,71" Top="0" Width="413,37004213" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="873,70903" Top="0" Width="135,5" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="134,92913386" Top="0" Width="85,04901" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="134,92913386" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo5" Left="220,21274" Top="0" Width="85,02" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes.&#34;FECHA_VENCIMIENTO&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="313" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="717,73228346" Top="0,37774772" Width="155,14173228" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)] "/>
<TfrxMemoView Name="Memo14" Left="872,87401574" Top="0,37774772" Width="135,5" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="717,73228346" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturasPendientes.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter>
</TfrxReportPage>
</TfrxReport>

43
Source/Informes/8/InformeListadoFacturasClientePendientesDesglosado.fr3 Normal file
View File

@ -0,0 +1,43 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40585,5332376389" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403990003546F70021008446174617365747301010C6400000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E746573220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="140" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxPictureView Name="Logotipo" Left="0" Top="3,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="3,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="95,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="512" Top="6" Width="495" Height="129" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="520,85807" Top="15" Width="478" Height="19" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE FACTURAS DE CLIENTE PENDIENTES"/>
<TfrxMemoView Name="Memo3" Left="520,85807" Top="36,89765" Width="478" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="474" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="256" Width="1009,13451" Condition="frxDBInformeListadoFacturasPendientes.&#34;NOMBRE&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo52" Left="718,11023622" Top="25" Width="154,89765" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="135,69639" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="304,5906" Top="25" Width="413,37004213" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo49" Left="873" Top="25" Width="135,50393701" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo8" Left="135" Top="25" Width="85,0393700787402" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="0" Top="1,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo1" Left="219,7718" Top="24,9448818897638" Width="85,03937008" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="316" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturasPendientes" DataSetName="frxDBInformeListadoFacturasPendientes" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo31" Left="718,11023622" Top="0" Width="155,76377953" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;IMPORTE_TOTAL&#34;] "/>
<TfrxMemoView Name="Memo4" Left="304,71" Top="0" Width="413,37004213" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="873,70903" Top="0" Width="135,5" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="134,92913386" Top="0" Width="85,04901" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="134,92913386" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo5" Left="220,21274" Top="0" Width="85,02" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes.&#34;FECHA_VENCIMIENTO&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="353" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="717,73228346" Top="0,37774772" Width="155,14173228" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)] "/>
<TfrxMemoView Name="Memo14" Left="872,87401574" Top="0,37774772" Width="135,5" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="717,73228346" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturasPendientes.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter>
<TfrxGroupHeader Name="GroupHeader1" Height="20" Left="0" Top="216" Width="1009,13451" Condition="frxDBInformeListadoFacturasPendientes.&#34;MES&#34;">
<TfrxMemoView Name="Memo9" Left="0" Top="1" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="20" Left="0" Top="394" Width="1009,13451"/>
</TfrxReportPage>
</TfrxReport>

63
Source/Informes/8/InformeListadoFacturasProveedor.fr3 Normal file
View File

@ -0,0 +1,63 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40585,533636088" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403990003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C35000000204E616D653D22546578746F506172616D6574726F73222056616C75653D22262336303B4665636861496E6963696F262336323B220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="541" Top="8" Width="465" Height="122" ShowHint="False" Color="13434828" Frame.Width="0,1" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="544,85807" Top="13" Width="452" Height="16,88188" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE FACTURAS DE PROVEEDOR"/>
<TfrxMemoView Name="Memo3" Left="544,85807" Top="33" Width="452" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="596" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoFacturas.&#34;MES&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="256,92919" Top="25" Width="387,4094" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text=" Proveedor"/>
<TfrxMemoView Name="Memo49" Left="644" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="724" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo51" Left="818,57483" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
<TfrxMemoView Name="Memo52" Left="913,35436" Top="25" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo8" Left="88" Top="25" Width="85,03937008" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="0" Top="2,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo1" Left="172,85838" Top="25" Width="85,03937008" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
<TfrxMemoView Name="Memo4" Left="257,59060732" Top="0" Width="386,8188415" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="644,40944882" Top="0" Width="79,748031496063" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="88,06299213" Top="0" Width="85,0393652" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,0629921259843" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo29" Left="724,15748031" Top="0" Width="94,48818898" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo30" Left="818,26771654" Top="0" Width="95,24409449" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="912,75590551" Top="0" Width="94,64276" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo5" Left="172,85838" Top="0" Width="85,0393652" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_VENCIMIENTO&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="309" Width="1009,13451">
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="723,77952756" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo6" Left="913,51181102" Top="0,37774772" Width="94,48818898" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Left="817,13385827" Top="0,37774772" Width="96,3779527559055" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Left="724,15748031" Top="0,37774772" Width="94,1102362204724" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
</TfrxGroupFooter>
<TfrxMasterData Name="DatosMaestros2" Height="17,00787402" Left="0" Top="446" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0">
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="381,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo10" Left="381,65368" Top="0" Width="94,48818898" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo11" Left="476,3624" Top="0" Width="95,24409449" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo12" Left="571,09" Top="0" Width="94,49" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxHeader Name="Header1" Height="75,59055118" Left="0" Top="350" Width="1009,13451">
<TfrxMemoView Name="Memo13" Align="baBottom" Left="0" Top="60,59055118" Width="381,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de facturas de proveedor"/>
<TfrxMemoView Name="Memo16" Align="baBottom" Left="381,73253" Top="60,59055118" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo17" Align="baBottom" Left="476,30736" Top="60,59055118" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
<TfrxMemoView Name="Memo22" Align="baBottom" Left="571,08689" Top="60,59055118" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo23" Left="0" Top="30,23624" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de las facturas de proveedor"/>
</TfrxHeader>
<TfrxReportSummary Name="ReportSummary1" Height="52,91342" Left="0" Top="523" Width="1009,13451">
<TfrxMemoView Name="Memo24" Left="0" Top="0,11812" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total: "/>
<TfrxMemoView Name="Memo25" Left="381,73253" Top="0,11812" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo26" Left="476,30736" Top="0,11812" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo32" Left="571,08689" Top="0,11812" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
</TfrxReportPage>
</TfrxReport>

68
Source/Informes/8/InformeListadoFacturasProveedorDesglosado.fr3 Normal file
View File

@ -0,0 +1,68 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40585,5337899537" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; Set('Pagina', 0);&#13;&#10; Set('TotalPaginas', 0); &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Band1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if not Engine.FinalPass then&#13;&#10; Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10; if Engine.FinalPass then&#13;&#10; Set('Pagina', (&#60;Pagina&#62; + 1)); &#13;&#10;end;&#13;&#10;&#13;&#10;procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 &#13;&#10; if ((&#60;Pagina&#62; + 1) = &#60;TotalPaginas&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403990003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C35000000204E616D653D22546578746F506172616D6574726F73222056616C75653D22262336303B4665636861496E6963696F262336323B220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="543" Top="9" Width="465" Height="122" ShowHint="False" Color="13434828" Frame.Width="0,1" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="546,85807" Top="14" Width="452" Height="16,88188" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE FACTURAS DE PROVEEDOR"/>
<TfrxMemoView Name="Memo3" Left="546,85807" Top="34" Width="452" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="682" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="255" Width="1009,13451" Condition="frxDBInformeListadoFacturas.&#34;NOMBRE&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="256,92919" Top="25" Width="387,4094" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text=" Proveedor"/>
<TfrxMemoView Name="Memo49" Left="644" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="724" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo51" Left="818,57483" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
<TfrxMemoView Name="Memo52" Left="913,35436" Top="25" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo8" Left="88" Top="25" Width="85,03937008" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="0" Top="2,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo1" Left="172,85838" Top="25" Width="85,03937008" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="315" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
<TfrxMemoView Name="Memo4" Left="257,59060732" Top="0" Width="386,8188415" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="644,40944882" Top="0" Width="79,748031496063" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="88,06299213" Top="0" Width="85,0393652" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,0629921259843" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo29" Left="724,15748031" Top="0" Width="94,48818898" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo30" Left="818,26771654" Top="0" Width="95,24409449" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="913,35" Top="0" Width="94,49" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo5" Left="172,85838" Top="0" Width="85,0393652" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_VENCIMIENTO&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="352" Width="1009,13451">
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="723,77952756" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo6" Left="913,35" Top="0,37774772" Width="94,48818898" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Left="817,13385827" Top="0,37774772" Width="96,3779527559055" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Left="724,15748031" Top="0,37774772" Width="94,1102362204724" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
</TfrxGroupFooter>
<TfrxMasterData Name="DatosMaestros2" Height="17,00787402" Left="0" Top="532" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0">
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="381,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo10" Left="381,65368" Top="0" Width="94,48818898" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="12" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo11" Left="476,3624" Top="0" Width="95,24409449" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="13" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo12" Left="571,09" Top="0" Width="94,49" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxHeader Name="Header1" Height="75,59055118" Left="0" Top="436" Width="1009,13451">
<TfrxMemoView Name="Memo13" Align="baBottom" Left="0" Top="60,59055118" Width="381,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de facturas de proveedor"/>
<TfrxMemoView Name="Memo16" Align="baBottom" Left="381,73253" Top="60,59055118" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo17" Align="baBottom" Left="476,30736" Top="60,59055118" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
<TfrxMemoView Name="Memo22" Align="baBottom" Left="571,08689" Top="60,59055118" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo23" Left="0" Top="30,23624" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de las facturas de proveedor"/>
</TfrxHeader>
<TfrxReportSummary Name="ReportSummary1" Height="52,91342" Left="0" Top="609" Width="1009,13451">
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="16,03896" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo24" Left="0" Top="0,11812" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total: "/>
<TfrxMemoView Name="Memo25" Left="381,73253" Top="0,11812" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo26" Left="476,30736" Top="0,11812" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo32" Left="571,08689" Top="0,11812" Width="94,49" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
<TfrxGroupHeader Name="GroupHeader1" Height="22,67718" Left="0" Top="212" Width="1009,13451" Condition="frxDBInformeListadoFacturas.&#34;MES&#34;">
<TfrxMemoView Name="Memo33" Left="0" Top="3,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="22,67718" Left="0" Top="393" Width="1009,13451"/>
</TfrxReportPage>
</TfrxReport>

71
Source/Informes/8/InformeListadoFacturasProveedorGrafComp.fr3 Normal file
View File

@ -0,0 +1,71 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41572,78611625" ScriptLanguage="PascalScript" ScriptText.Text="procedure Chart1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (&#60;Ano1&#62; &#60;&#62; 0) then&#13;&#10; begin &#13;&#10; TLineSeries(Chart1.Series[0]).Title := 'Total facturado ' + VarToStr(&#60;Ano1&#62;);&#13;&#10; end;&#13;&#10; &#13;&#10; if (&#60;Ano2&#62; &#62; 0) then&#13;&#10; begin &#13;&#10; TLineSeries(Chart1.Series[1]).Title := 'Total facturado ' + VarToStr(&#60;Ano2&#62;);&#13;&#10; end&#13;&#10; else&#13;&#10; begin &#13;&#10; Chart1.Series[1].Active := False;&#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo16OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; Valor:Double; &#13;&#10;begin&#13;&#10; &#13;&#10; Valor := SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;IMPORTE_TOTAL1&#34;&#62;) * 100; &#13;&#10; if (SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;IMPORTE_TOTAL&#34;&#62;) = 0) then&#13;&#10; Valor := 100 - Valor &#13;&#10; else&#13;&#10; Valor := 100 - (Valor/SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;IMPORTE_TOTAL&#34;&#62;)); &#13;&#10;&#13;&#10; memo16.lines.add(FormatFloat('#,##0.00 %',Valor));&#13;&#10; &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo18OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (&#60;Ano2&#62; &#62; 0) then&#13;&#10; begin&#13;&#10; Memo39.visible := True;&#13;&#10; Memo40.visible := True;&#13;&#10; Memo41.visible := True;&#13;&#10; Memo42.visible := True; &#13;&#10; end&#13;&#10; else&#13;&#10; begin&#13;&#10; Memo39.visible := False;&#13;&#10; Memo40.visible := False;&#13;&#10; Memo41.visible := False;&#13;&#10; Memo42.visible := False; &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;end. " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C6000000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702200010C4200000020446174615365744E616D653D226672784442496E666F726D654C69737461646F50726F766565646F7265734D61796F724465736375656E746F526573756D656E2200010C4400000020446174615365744E616D653D226672784442496E666F726D654C69737461646F50726F766565646F7265734D61796F724661637475726163696F6E526573756D656E220000095661726961626C657301010C12000000204E616D653D22205661726961626C65732200010C0D000000204E616D653D2253657269652200010C0C000000204E616D653D22416E6F312200010C0C000000204E616D653D22416E6F32220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxMasterData Name="MasterData1" Height="15" Left="0" Top="294" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasGrafComp" DataSetName="frxDBInformeListadoFacturasGrafComp" RowCount="0">
<TfrxMemoView Name="Memo17" Left="113,93" Top="0" Width="131,66" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturasGrafComp.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo1" Left="2" Top="0" Width="93,55" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturasGrafComp.&#34;DESCRIPCION&#34;]"/>
<TfrxMemoView Name="Memo2" Left="264,93" Top="0" Width="131,66" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturasGrafComp.&#34;IMPORTE_TOTAL1&#34;]"/>
<TfrxMemoView Name="Memo3" Left="452" Top="0" Width="131,66" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturasGrafComp.&#34;DIFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo4" Left="605" Top="0" Width="111,66" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturasGrafComp.&#34;PORCENTAJE&#34;] %"/>
</TfrxMasterData>
<TfrxMasterData Name="MasterData2" Height="301" Left="0" Top="364" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasGrafComp" DataSetName="frxDBInformeListadoFacturasGrafComp" RowCount="0">
<TfrxChartView Name="Chart1" Left="4" Top="7" Width="709" Height="293" OnBeforePrint="Chart1OnBeforePrint" ShowHint="False" PropData="0543686172740A7E0200005450463006544368617274054368617274044C656674020003546F7002000557696474680390010648656967687403FA00144261636B57616C6C2E50656E2E56697369626C6508104C6567656E642E416C69676E6D656E7407086C61426F74746F6D114C6567656E642E426576656C5769647468020A0D4672616D652E56697369626C6508165669657733444F7074696F6E732E526F746174696F6E02000A426576656C4F75746572070662764E6F6E6505436F6C6F720707636C5768697465000A544261725365726965730753657269657331194D61726B732E43616C6C6F75742E42727573682E436F6C6F720707636C426C61636B0D4D61726B732E56697369626C6508055469746C65060A546F74616C20416E6F310F426172576964746850657263656E74023C124772616469656E742E446972656374696F6E070B6764546F70426F74746F6D0C5856616C7565732E4E616D650601580D5856616C7565732E4F72646572070B6C6F417363656E64696E670C5956616C7565732E4E616D6506034261720D5956616C7565732E4F7264657207066C6F4E6F6E6500000A544261725365726965730753657269657332194D61726B732E43616C6C6F75742E42727573682E436F6C6F720707636C426C61636B0D4D61726B732E56697369626C6508055469746C65060A546F74616C20416E6F320F426172576964746850657263656E74023C124772616469656E742E446972656374696F6E070B6764546F70426F74746F6D0C5856616C7565732E4E616D650601580D5856616C7565732E4F72646572070B6C6F417363656E64696E670C5956616C7565732E4E616D6506034261720D5956616C7565732E4F7264657207066C6F4E6F6E650000000E4368617274456C65766174696F6E0359010A5365726965734461746101010CB30100002044617461547970653D2264744442446174612220446174615365743D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702220536F72744F726465723D22736F4E6F6E652220546F704E3D2230222058547970653D227874546578742220536F75726365313D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702E262333343B4445534352495043494F4E262333343B2220536F75726365323D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702E262333343B496D706F7274655F746F74616C262333343B222058536F757263653D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702E262333343B4445534352495043494F4E262333343B222059536F757263653D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702E262333343B496D706F7274655F746F74616C262333343B2200010C2D0100002044617461547970653D2264744442446174612220446174615365743D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702220536F72744F726465723D22736F4E6F6E652220546F704E3D2230222058547970653D227874546578742220536F75726365323D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702E262333343B496D706F7274655F746F74616C31262333343B222059536F757263653D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702E262333343B496D706F7274655F746F74616C31262333343B220000"/>
</TfrxMasterData>
<TfrxPageHeader Name="Band1" Height="158,10235" Left="0" Top="16" Width="718,101251175" OnBeforePrint="Band1OnBeforePrint">
<TfrxShapeView Name="Shape5" Left="320,90569" Top="2,10235" Width="397" Height="134" ShowHint="False" Color="13095676" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="330,98423" Top="8,10235" Width="379,01577" Height="22" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO ESTADÍSTICO DE FACTURAS DE PROVEEDOR"/>
<TfrxMemoView Name="Memo7" Left="331" Top="33,10235" Width="378" Height="97" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]"/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="5470709" Frame.Typ="4" Frame.Width="4"/>
<TfrxPictureView Name="Picture1" Left="3" Top="43" Width="160,03598" Height="80,03154" OnBeforePrint="Picture1OnBeforePrint" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" HightQuality="False"/>
</TfrxPageHeader>
<TfrxHeader Name="Header1" Height="40" Left="0" Top="234" Width="718,101251175">
<TfrxMemoView Name="Memo5" Left="2" Top="25" Width="93,55115913" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haCenter" ParentFont="False" Text="Intervalo"/>
<TfrxMemoView Name="Memo30" Left="113,92919" Top="25" Width="131,66138559" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haCenter" ParentFont="False" Text="Facturación (B.I)"/>
<TfrxMemoView Name="Memo9" Left="113" Top="4" Width="131,03927" Height="18,9" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" HAlign="haCenter" HideZeros="True" ParentFont="False" Text="Valores del año [&#60;Ano1&#62;]"/>
<TfrxMemoView Name="Memo10" Left="264,92919" Top="25" Width="131,66138559" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haCenter" ParentFont="False" Text="Facturación (B.I)"/>
<TfrxMemoView Name="Memo11" Left="264" Top="4" Width="131,03927" Height="18,9" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" HAlign="haCenter" HideZeros="True" ParentFont="False" Text="Valores del año [&#60;Ano2&#62;]"/>
<TfrxMemoView Name="Memo12" Left="408" Top="4" Width="309,03927" Height="18,9" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" HideZeros="True" ParentFont="False" Text="Comparativa del año [&#60;Ano1&#62;] respecto al año [&#60;Ano2&#62;]"/>
<TfrxMemoView Name="Memo13" Left="452" Top="25" Width="131,66138559" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haCenter" ParentFont="False" Text="Diferencia"/>
<TfrxMemoView Name="Memo14" Left="605" Top="25" Width="111,66138559" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haCenter" ParentFont="False" Text="Porcentaje"/>
</TfrxHeader>
<TfrxFooter Name="Footer1" Height="15" Left="0" Top="329" Width="718,101251175">
<TfrxMemoView Name="Memo6" Left="113,93" Top="0" Width="131,66" Height="15" ShowHint="False" Color="13095676" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;IMPORTE_TOTAL&#34;&#62;)]"/>
<TfrxMemoView Name="Memo8" Left="264,93" Top="0" Width="131,66" Height="15" ShowHint="False" Color="13095676" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;IMPORTE_TOTAL1&#34;&#62;)]"/>
<TfrxMemoView Name="Memo15" Left="452" Top="0" Width="131,66" Height="15" ShowHint="False" Color="13095676" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;IMPORTE_TOTAL&#34;&#62;) - SUM(&#60;frxDBInformeListadoFacturasGrafComp.&#34;IMPORTE_TOTAL1&#34;&#62;)]"/>
<TfrxMemoView Name="Memo16" Left="605" Top="0" Width="111,66" Height="15" OnBeforePrint="Memo16OnBeforePrint" ShowHint="False" Color="13095676" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=""/>
</TfrxFooter>
<TfrxMasterData Name="MasterData3" Height="15" Left="0" Top="750" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoProveedoresMayorFacturacionResumen" RowCount="0">
<TfrxMemoView Name="Memo23" Left="2" Top="0" Width="300" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoProveedoresMayorFacturacionResumen.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo24" Align="baLeft" Left="302" Top="0" Width="80" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoProveedoresMayorFacturacionResumen.&#34;NUMFAC&#34;] "/>
<TfrxMemoView Name="Memo25" Align="baLeft" Left="382" Top="0" Width="125" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoProveedoresMayorFacturacionResumen.&#34;IMPORTE_TOTAL_ANO1&#34;] "/>
<TfrxMemoView Name="Memo26" Align="baLeft" Left="632" Top="0" Width="86" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoProveedoresMayorFacturacionResumen.&#34;PORCENTAJE&#34;] % "/>
<TfrxMemoView Name="Memo40" Align="baLeft" Left="507" Top="0" Width="125" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoProveedoresMayorFacturacionResumen.&#34;IMPORTE_TOTAL_ANO2&#34;] "/>
</TfrxMasterData>
<TfrxMasterData Name="MasterData4" Height="15" Left="0" Top="850" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoProveedoresMayorDescuentoResumen" RowCount="0">
<TfrxMemoView Name="Memo34" Left="2" Top="0" Width="276" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoProveedoresMayorDescuentoResumen.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo35" Align="baLeft" Left="278" Top="0" Width="90" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text=" [frxDBInformeListadoProveedoresMayorDescuentoResumen.&#34;IMPORTE_DESCUENTO&#34;] "/>
<TfrxMemoView Name="Memo36" Align="baLeft" Left="458" Top="0" Width="90" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoProveedoresMayorDescuentoResumen.&#34;IMPORTE_TOTAL&#34;] "/>
<TfrxMemoView Name="Memo37" Align="baLeft" Left="548" Top="0" Width="105" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoProveedoresMayorDescuentoResumen.&#34;IMPORTE_COBRADO&#34;]"/>
<TfrxMemoView Name="Memo38" Align="baLeft" Left="653" Top="0" Width="65" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text=" [frxDBInformeListadoProveedoresMayorDescuentoResumen.&#34;PORCENTAJE&#34;] % "/>
<TfrxMemoView Name="Memo42" Align="baLeft" Left="368" Top="0" Width="90" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text=" [frxDBInformeListadoProveedoresMayorDescuentoResumen.&#34;IMPORTE_DESCUENTO2&#34;] "/>
</TfrxMasterData>
<TfrxHeader Name="Header2" Height="45" Left="0" Top="685" Width="718,101251175">
<TfrxMemoView Name="Memo18" Left="2" Top="30" Width="300" Height="15" OnBeforePrint="Memo18OnBeforePrint" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" ParentFont="False" Text="Nombre"/>
<TfrxMemoView Name="Memo19" Align="baLeft" Left="302" Top="30" Width="80" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Nº facturas"/>
<TfrxMemoView Name="Memo20" Left="3" Top="9" Width="259,03927" Height="18,9" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="5" HideZeros="True" ParentFont="False" Text="Proveedores con mayor capital facturado"/>
<TfrxMemoView Name="Memo21" Align="baLeft" Left="382" Top="30" Width="125" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Imp. total (B.I) [&#60;Ano1&#62;]"/>
<TfrxMemoView Name="Memo22" Align="baLeft" Left="632" Top="30" Width="86" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Porcentaje (%)"/>
<TfrxMemoView Name="Memo39" Align="baLeft" Left="507" Top="30" Width="125" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Imp. total (B.I) [&#60;Ano2&#62;]"/>
</TfrxHeader>
<TfrxHeader Name="Header3" Height="45" Left="0" Top="785" Width="718,101251175">
<TfrxMemoView Name="Memo27" Left="2" Top="30" Width="276" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" ParentFont="False" Text="Nombre"/>
<TfrxMemoView Name="Memo28" Align="baLeft" Left="278" Top="30" Width="90" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Imp. Dto. [&#60;Ano1&#62;]"/>
<TfrxMemoView Name="Memo29" Left="3" Top="9" Width="285,03927" Height="18,9" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="5" HideZeros="True" ParentFont="False" Text="Proveedores con mayor descuento aplicado"/>
<TfrxMemoView Name="Memo31" Align="baLeft" Left="458" Top="30" Width="90" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Imp. total (Neto)"/>
<TfrxMemoView Name="Memo32" Align="baLeft" Left="653" Top="30" Width="65" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Medio (%)"/>
<TfrxMemoView Name="Memo33" Align="baLeft" Left="548" Top="30" Width="105" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Imp. cobrado (B.I.)"/>
<TfrxMemoView Name="Memo41" Align="baLeft" Left="368" Top="30" Width="90" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Imp. Dto. [&#60;Ano2&#62;]"/>
</TfrxHeader>
</TfrxReportPage>
</TfrxReport>

55
Source/Informes/8/InformeListadoFacturasProveedorPendientes.fr3 Normal file
View File

@ -0,0 +1,55 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40585,5340501157" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoFacturasPendResumen.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo11.Lines.Text := ' ' + ACadena; &#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo10OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoFacturasPendientes.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo10.Lines.Text := ' ' + ACadena; &#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403990003546F70021008446174617365747301010C6400000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732200010C6600000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617350656E64526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E64526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="151,10235" Left="0" Top="16" Width="1009,13451">
<TfrxShapeView Name="Shape5" Left="544,14193" Top="14,10235" Width="465" Height="122" ShowHint="False" Color="13434828" Frame.Width="0,1" Shape="skRoundRectangle"/>
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxMemoView Name="NombreCliente" Left="548" Top="19,10235" Width="452" Height="16,88188" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE FACTURAS DE PROVEEDOR PENDIENTES"/>
<TfrxMemoView Name="Memo3" Left="548" Top="39,10235" Width="452" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="543" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="227" Width="1009,13451" Condition="frxDBInformeListadoFacturasPendientes.&#34;MES&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo52" Left="838,36220961" Top="25" Width="100" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="97,88976378" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="247,61417323" Top="25" Width="250" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo49" Left="939" Top="25" Width="70" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo8" Left="97,88976378" Top="25" Width="75" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="-0,44094" Top="2,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo1" Left="172,95275591" Top="25" Width="75" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
<TfrxMemoView Name="Memo9" Left="497,5201" Top="25" Width="340,5" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" ParentFont="False" VAlign="vaCenter" Text="Domiciliación"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="287" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturasPendientes" DataSetName="frxDBInformeListadoFacturasPendientes" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo31" Left="838,36" Top="0" Width="100" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="13" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;IMPORTE_TOTAL&#34;] "/>
<TfrxMemoView Name="Memo4" Left="247,61" Top="0" Width="250" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="13" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="939" Top="0" Width="70" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="97,88976378" Top="0" Width="75" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="13" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="98,13385827" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo5" Left="172,95" Top="0" Width="75" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="13" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;FECHA_VENCIMIENTO&#34;]"/>
<TfrxMemoView Name="Memo10" Left="497,52" Top="0" Width="340,37777213" Height="17,00787402" OnBeforePrint="Memo10OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="13" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;DATOS_BANCARIOS&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="324" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="838,91371" Top="0,37774772" Width="100" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)] "/>
<TfrxMemoView Name="Memo14" Left="939" Top="0,37774772" Width="70" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="838,55912346" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturasPendientes.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter>
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="651" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMasterData Name="DatosMaestros2" Height="17,00787402" Left="0" Top="430" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasPendResumen" DataSetName="frxDBInformeListadoFacturasPendResumen" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo11" Left="0" Top="0" Width="495" Height="17,00787402" OnBeforePrint="Memo11OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasPendResumen.&#34;DATOS_BANCARIOS&#34;]"/>
<TfrxMemoView Name="Memo12" Left="495" Top="0" Width="108" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasPendResumen.&#34;IMPORTE_TOTAL&#34;] "/>
</TfrxMasterData>
<TfrxGroupHeader Name="GroupHeader1" Height="45,35436" Left="0" Top="365" Width="1009,13451" Condition="frxDBInformeListadoFacturasPendResumen.&#34;MES&#34;">
<TfrxMemoView Name="Memo13" Left="-0,44094" Top="9" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="RESUMEN POR DOMICILIACIÓN [frxDBInformeListadoFacturasPendResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo16" Left="0" Top="30,35436" Width="495" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Domiciliación"/>
<TfrxMemoView Name="Memo15" Left="495" Top="30,35436" Width="108" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="15,8740157480315" Left="0" Top="467" Width="1009,13451">
<TfrxMemoView Name="Memo22" Left="0" Top="0" Width="495" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturasPendResumen.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo17" Left="495" Top="0" Width="108" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasPendResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)] "/>
</TfrxGroupFooter>
</TfrxReportPage>
</TfrxReport>

59
Source/Informes/8/InformeListadoFacturasProveedorPendientesDesglosado.fr3 Normal file
View File

@ -0,0 +1,59 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40585,5354942824" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo10OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoFacturasPendientes.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo10.Lines.Text := ' ' + ACadena; &#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoFacturasPendResumen.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo11.Lines.Text := ' ' + ACadena; &#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403990003546F70021008446174617365747301010C6400000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732200010C6600000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617350656E64526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E64526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="151,1" Left="0" Top="16" Width="1009,13451">
<TfrxShapeView Name="Shape5" Left="541,14193" Top="14,1" Width="465" Height="122" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxMemoView Name="NombreCliente" Left="553" Top="19,1" Width="446" Height="16,88188" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE FACTURAS DE PROVEEDOR PENDIENTES"/>
<TfrxMemoView Name="Memo3" Left="544" Top="39,1" Width="455" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="629" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="4,70037" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="270" Width="1009,13451" Condition="frxDBInformeListadoFacturasPendientes.&#34;NOMBRE&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo52" Left="838,8" Top="25" Width="100" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="97,88976378" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="247,61417323" Top="25" Width="250" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo49" Left="938,26778" Top="25" Width="70" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo8" Left="97,88976378" Top="25" Width="75" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="0" Top="2,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo1" Left="172,95275591" Top="25" Width="75" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
<TfrxMemoView Name="Memo9" Left="497,5201" Top="25" Width="340,5" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" ParentFont="False" VAlign="vaCenter" Text="Domiciliación"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="330" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturasPendientes" DataSetName="frxDBInformeListadoFacturasPendientes" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo31" Left="838,80314961" Top="0" Width="100" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="13" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;IMPORTE_TOTAL&#34;] "/>
<TfrxMemoView Name="Memo4" Left="247,61" Top="0" Width="250" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="938,27" Top="0" Width="70" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="97,88976378" Top="0" Width="75" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="97,89" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo5" Left="172,95275591" Top="0" Width="75" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="13" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;FECHA_VENCIMIENTO&#34;]"/>
<TfrxMemoView Name="Memo10" Left="497,5201" Top="0" Width="340,5" Height="17,00787402" OnBeforePrint="Memo10OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="13" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;DATOS_BANCARIOS&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="367" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="838,8" Top="0,37774772" Width="100" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)] "/>
<TfrxMemoView Name="Memo14" Left="938,27" Top="0,37774772" Width="70" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="838,55912346" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturasPendientes.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter>
<TfrxMasterData Name="DatosMaestros2" Height="17,00787402" Left="0" Top="516" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasPendResumen" DataSetName="frxDBInformeListadoFacturasPendResumen" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo11" Left="0" Top="0" Width="495" Height="17,00787402" OnBeforePrint="Memo11OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="13" ParentFont="False" Text="[frxDBInformeListadoFacturasPendResumen.&#34;DATOS_BANCARIOS&#34;]"/>
<TfrxMemoView Name="Memo12" Left="494,22851" Top="0" Width="107,76377953" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasPendResumen.&#34;IMPORTE_TOTAL&#34;] "/>
</TfrxMasterData>
<TfrxGroupHeader Name="GroupHeader1" Height="45,35436" Left="0" Top="451" Width="1009,13451" Condition="frxDBInformeListadoFacturasPendResumen.&#34;TITULO&#34;">
<TfrxMemoView Name="Memo13" Left="0" Top="9" Width="746,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="RESUMEN POR DOMICILIACIÓN [frxDBInformeListadoFacturasPendResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo16" Left="0" Top="30,45671" Width="495" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Domiciliación"/>
<TfrxMemoView Name="Memo15" Left="494,22851" Top="30,45671" Width="108,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="15,87401575" Left="0" Top="553" Width="1009,13451">
<TfrxMemoView Name="Memo22" Left="0" Top="0" Width="495" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturasPendResumen.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo17" Left="494,22851" Top="0" Width="108,24408228" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasPendResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)] "/>
</TfrxGroupFooter>
<TfrxGroupHeader Name="GroupHeader2" Height="22,67718" Left="0" Top="227" Width="1009,13451" Condition="frxDBInformeListadoFacturasPendientes.&#34;MES&#34;">
<TfrxMemoView Name="Memo23" Left="0" Top="3,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter2" Height="22,67718" Left="0" Top="408" Width="1009,13451"/>
</TfrxReportPage>
</TfrxReport>

53
Source/Informes/8/InformeListadoPedidos.fr3 Normal file
View File

@ -0,0 +1,53 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40585,5356705556" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403990003546F70021008446174617365747301010C2900000020446174615365744E616D653D226672784442496E666F726D654C69737461646F50656469646F732200010C3000000020446174615365744E616D653D226672784442496E666F726D654C69737461646F50656469646F73526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="541" Top="6" Width="465" Height="122" ShowHint="False" Color="13434828" Frame.Width="0,1" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="544,85807" Top="11" Width="452" Height="16,88188" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE PEDIDOS A PROVEEDOR"/>
<TfrxMemoView Name="Memo3" Left="544,85807" Top="31" Width="452" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="552" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoPedidos.&#34;MES&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº pedido"/>
<TfrxMemoView Name="Memo28" Left="181,45671" Top="25" Width="464,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo49" Left="645,7953" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="727,13389" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Emisión"/>
<TfrxMemoView Name="Memo51" Left="822,13389" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Recepción"/>
<TfrxMemoView Name="Memo52" Left="917,13389" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo8" Left="88,77953" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="0" Top="2,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoPedidos.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoPedidos" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo4" Left="181,46" Top="0" Width="464,34" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoPedidos.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="645,8" Top="0" Width="81,34" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoPedidos.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="88,78" Top="0" Width="92,68" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoPedidos.&#34;FECHA_PEDIDO&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,78" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoPedidos.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo29" Left="727,14" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoPedidos.&#34;FECHA_CONFIRMACION&#34;]"/>
<TfrxMemoView Name="Memo30" Left="822,14" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="dd.mm.yyyy" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoPedidos.&#34;FECHA_ENTREGA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="917,14" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoPedidos.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="309" Width="1009,13451">
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="917" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoPedidos.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo6" Left="917" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoPedidos.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
</TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="345" Width="1009,13451">
<TfrxMemoView Name="Memo13" Left="0" Top="60" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de los pedidos de proveedor"/>
<TfrxMemoView Name="Memo22" Left="383,62987" Top="60" Width="120" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo23" Left="0" Top="28" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de los pedidos de proveedor"/>
</TfrxHeader>
<TfrxReportSummary Name="ReportSummary1" Height="15" Left="0" Top="517" Width="1009,13451">
<TfrxMemoView Name="Memo24" Left="0" Top="0" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total: "/>
<TfrxMemoView Name="Memo32" Left="383,62987" Top="0" Width="120" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoPedidosResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
<TfrxMasterData Name="DatosMaestros2" Height="17" Left="0" Top="440" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoPedidosResumen" RowCount="0">
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="383,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoPedidosResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo12" Left="383,63" Top="0" Width="120" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoPedidosResumen.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
</TfrxReportPage>
</TfrxReport>

57
Source/Informes/8/InformeListadoPedidosDesglosado.fr3 Normal file
View File

@ -0,0 +1,57 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40585,5358741435" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403990003546F70021008446174617365747301010C2900000020446174615365744E616D653D226672784442496E666F726D654C69737461646F50656469646F732200010C3000000020446174615365744E616D653D226672784442496E666F726D654C69737461646F50656469646F73526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="542" Top="10" Width="465" Height="122" ShowHint="False" Color="13434828" Frame.Width="0,1" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="545,85807" Top="15" Width="452" Height="16,88188" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE PEDIDOS A PROVEEDOR"/>
<TfrxMemoView Name="Memo3" Left="545,85807" Top="35" Width="452" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="632" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="252" Width="1009,13451" Condition="frxDBInformeListadoPedidos.&#34;NOMBRE&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº pedido"/>
<TfrxMemoView Name="Memo28" Left="181,45671" Top="25" Width="464,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo49" Left="645,7953" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="727,13389" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Emisión"/>
<TfrxMemoView Name="Memo51" Left="822,13389" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Recepción"/>
<TfrxMemoView Name="Memo52" Left="917,13389" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo8" Left="88,77953" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="0" Top="2,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoPedidos.&#34;NOMBRE&#34;]"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="312" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoPedidos" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo4" Left="181,46" Top="0" Width="464,34" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoPedidos.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="645,8" Top="0" Width="81,34" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoPedidos.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="88,78" Top="0" Width="92,68" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoPedidos.&#34;FECHA_PEDIDO&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,78" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoPedidos.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo29" Left="727,14" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoPedidos.&#34;FECHA_CONFIRMACION&#34;]"/>
<TfrxMemoView Name="Memo30" Left="822,14" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="dd.mm.yyyy" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoPedidos.&#34;FECHA_ENTREGA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="917,14" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoPedidos.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="349" Width="1009,13451">
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="917" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoPedidos.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo6" Left="917" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoPedidos.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
</TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="425" Width="1009,13451">
<TfrxMemoView Name="Memo13" Left="0" Top="60" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de los pedidos de proveedor"/>
<TfrxMemoView Name="Memo22" Left="383,62987" Top="60" Width="120" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo23" Left="0" Top="28" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de los pedidos de proveedor"/>
</TfrxHeader>
<TfrxReportSummary Name="ReportSummary1" Height="15" Left="0" Top="597" Width="1009,13451">
<TfrxMemoView Name="Memo24" Left="0" Top="0" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total: "/>
<TfrxMemoView Name="Memo32" Left="383,62987" Top="0" Width="120" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoPedidosResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
<TfrxMasterData Name="DatosMaestros2" Height="17" Left="0" Top="520" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoPedidosResumen" RowCount="0">
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="383,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoPedidosResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo12" Left="383,63" Top="0" Width="120" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoPedidosResumen.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupHeader Name="GroupHeader1" Height="20" Left="0" Top="212" Width="1009,13451" Condition="frxDBInformeListadoPedidos.&#34;MES&#34;">
<TfrxMemoView Name="Memo1" Left="0" Top="2" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoPedidos.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="20" Left="0" Top="385" Width="1009,13451"/>
</TfrxReportPage>
</TfrxReport>

53
Source/Informes/8/InformeListadoPresupuestos.fr3 Normal file
View File

@ -0,0 +1,53 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40585,5360496991" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403990003546F70021008446174617365747301010C2E00000020446174615365744E616D653D226672784442496E666F726D654C69737461646F507265737570756573746F732200010C3500000020446174615365744E616D653D226672784442496E666F726D654C69737461646F507265737570756573746F73526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxShapeView Name="Shape5" Left="510,14193" Top="2,10235" Width="495" Height="125" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxMemoView Name="NombreCliente" Left="517" Top="9,10235" Width="480" Height="20" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE PRESUPUESTOS DE CLIENTE"/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxMemoView Name="Memo3" Left="516" Top="31" Width="481" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="552" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoPresupuestos.&#34;MES&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº presupuesto"/>
<TfrxMemoView Name="Memo28" Left="181,45671" Top="25" Width="464,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo49" Left="645,7953" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="727,13389" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Fecha decisión"/>
<TfrxMemoView Name="Memo51" Left="822,13389" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo52" Left="917,13389" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo8" Left="88,77953" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="0" Top="2,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoPresupuestos.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoPresupuestos" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo4" Left="181,46" Top="0" Width="464,34" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoPresupuestos.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="645,8" Top="0" Width="81,34" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoPresupuestos.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="88,78" Top="0" Width="92,68" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoPresupuestos.&#34;FECHA_PRESUPUESTO&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,78" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoPresupuestos.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo29" Left="727,14" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoPresupuestos.&#34;FECHA_DECISION&#34;]"/>
<TfrxMemoView Name="Memo30" Left="822,14" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoPresupuestos.&#34;FACTURA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="917,14" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoPresupuestos.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="309" Width="1009,13451">
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="917" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoPresupuestos.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo6" Left="917" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoPresupuestos.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
</TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="345" Width="1009,13451">
<TfrxMemoView Name="Memo13" Left="0" Top="60" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de los presupuestos de cliente"/>
<TfrxMemoView Name="Memo22" Left="383,62987" Top="60" Width="120" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo23" Left="0" Top="29" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de los presupuestos de cliente"/>
</TfrxHeader>
<TfrxReportSummary Name="ReportSummary1" Height="15" Left="0" Top="517" Width="1009,13451">
<TfrxMemoView Name="Memo24" Align="baLeft" Left="0" Top="0" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total: "/>
<TfrxMemoView Name="Memo32" Align="baLeft" Left="383,62987" Top="0" Width="120" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoPresupuestosResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
<TfrxMasterData Name="DatosMaestros2" Height="17" Left="0" Top="440" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoPresupuestosResumen" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="383,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoPresupuestosResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo12" Left="383,63" Top="0" Width="120" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoPresupuestosResumen.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
</TfrxReportPage>
</TfrxReport>

57
Source/Informes/8/InformeListadoPresupuestosDesglosado.fr3 Normal file
View File

@ -0,0 +1,57 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40585,536502581" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403990003546F70021008446174617365747301010C2E00000020446174615365744E616D653D226672784442496E666F726D654C69737461646F507265737570756573746F732200010C3500000020446174615365744E616D653D226672784442496E666F726D654C69737461646F507265737570756573746F73526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="513" Top="5" Width="495" Height="125" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="519,85807" Top="12" Width="480" Height="20" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE PRESUPUESTOS DE CLIENTE"/>
<TfrxMemoView Name="Memo3" Left="518,85807" Top="33,89765" Width="481" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="637" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="257" Width="1009,13451" Condition="frxDBInformeListadoPresupuestos.&#34;NOMBRE&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº presupuesto"/>
<TfrxMemoView Name="Memo28" Left="181,45671" Top="25" Width="464,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo49" Left="645,7953" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="727,13389" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Fecha decisión"/>
<TfrxMemoView Name="Memo51" Left="822,13389" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo52" Left="917,13389" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo8" Left="88,77953" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="0" Top="2,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoPresupuestos.&#34;NOMBRE&#34;]"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="317" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoPresupuestos" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo4" Left="181,46" Top="0" Width="464,34" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoPresupuestos.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="645,8" Top="0" Width="81,34" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoPresupuestos.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="88,78" Top="0" Width="92,68" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoPresupuestos.&#34;FECHA_PRESUPUESTO&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,78" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoPresupuestos.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo29" Left="727,14" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoPresupuestos.&#34;FECHA_DECISION&#34;]"/>
<TfrxMemoView Name="Memo30" Left="822,14" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoPresupuestos.&#34;FACTURA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="917,14" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoPresupuestos.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="354" Width="1009,13451">
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="917" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoPresupuestos.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo6" Left="917" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoPresupuestos.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
</TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="430" Width="1009,13451">
<TfrxMemoView Name="Memo13" Left="0" Top="60" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de los presupuestos de cliente"/>
<TfrxMemoView Name="Memo22" Left="383,62987" Top="60" Width="120" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo23" Left="0" Top="29" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de los presupuestos de cliente"/>
</TfrxHeader>
<TfrxReportSummary Name="ReportSummary1" Height="15" Left="0" Top="602" Width="1009,13451">
<TfrxMemoView Name="Memo24" Align="baLeft" Left="0" Top="0" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total: "/>
<TfrxMemoView Name="Memo32" Align="baLeft" Left="383,62987" Top="0" Width="120" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoPresupuestosResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
<TfrxMasterData Name="DatosMaestros2" Height="17" Left="0" Top="525" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoPresupuestosResumen" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="383,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoPresupuestosResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo12" Left="383,63" Top="0" Width="120" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoPresupuestosResumen.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupHeader Name="GroupHeader1" Height="25" Left="0" Top="212" Width="1009,13451" Condition="frxDBInformeListadoPresupuestos.&#34;MES&#34;">
<TfrxMemoView Name="Memo1" Left="0" Top="5" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoPresupuestos.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="20" Left="0" Top="390" Width="1009,13451"/>
</TfrxReportPage>
</TfrxReport>

55
Source/Informes/8/InformeListadoRecibosCliPendientes.fr3 Normal file
View File

@ -0,0 +1,55 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40585,538138125" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403990003546F70021008446174617365747301010C3300000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E6469656E7465732200010C3400000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E64526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C15000000204E616D653D224E6577205661726961626C6531220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxShapeView Name="Shape5" Left="512,90569" Top="2,10235" Width="495" Height="134" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxMemoView Name="NombreCliente" Left="517,98423" Top="8,10235" Width="482,01577" Height="22" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE RECIBOS DE CLIENTE PENDIENTES"/>
<TfrxMemoView Name="Memo3" Left="518" Top="33,10235" Width="481" Height="97" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="523" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953000000002" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoRecibosPendientes.&#34;MES&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Align="baLeft" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Align="baLeft" Left="248,77953" Top="25" Width="250" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo49" Align="baRight" Left="919,13451" Top="25" Width="90" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Align="baLeft" Left="168,77953" Top="25" Width="80" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
<TfrxMemoView Name="Memo52" Align="baRight" Left="799,13451" Top="25" Width="120" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo8" Align="baLeft" Left="88,77953" Top="25" Width="80" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha emisión"/>
<TfrxMemoView Name="Memo7" Left="7,55906" Top="2,77952999999999" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoRecibosPendientes.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo4" Left="498,77953" Top="25" Width="300" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Domiciliación"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoRecibosPendientes" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo29" Left="168,78" Top="0" Width="80" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibosPendientes.&#34;FECHA_VENCIMIENTO&#34;]"/>
<TfrxMemoView Name="Memo1" Left="248,78" Top="0" Width="250" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibosPendientes.&#34;NOMBRE_CLIENTE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="918,78" Top="0" Width="90" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibosPendientes.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="88,78" Top="0" Width="80" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibosPendientes.&#34;FECHA_EMISION&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,78" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibosPendientes.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="798,78" Top="0" Width="120" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoRecibosPendientes.&#34;IMPORTE_TOTAL&#34;] "/>
<TfrxMemoView Name="Memo5" Left="498,78" Top="0" Width="300" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibosPendientes.&#34;DATOS_BANCARIOS&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="309" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="799" Top="0,377747720000002" Width="120" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoRecibosPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,377747720000002" Width="799" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibosPendientes.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo9" Left="919" Top="0" Width="90" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
</TfrxGroupFooter>
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="651" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxGroupHeader Name="GroupHeader1" Height="45" Left="0" Top="345" Width="1009,13451" Condition="frxDBInformeListadoRecibosPendResumen.&#34;MES&#34;">
<TfrxMemoView Name="Memo13" Left="1" Top="6" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="RESUMEN POR DOMICILIACIÓN [frxDBInformeListadoRecibosPendResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo16" Align="baLeft" Left="0" Top="30" Width="495" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Domiciliación"/>
<TfrxMemoView Name="Memo15" Align="baLeft" Left="495" Top="30" Width="108" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros2" Height="17" Left="0" Top="410" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoRecibosPendResumen" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo11" Left="0" Top="0" Width="495" Height="17,00787402" OnBeforePrint="Memo11OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoRecibosPendResumen.&#34;DATOS_BANCARIOS&#34;]"/>
<TfrxMemoView Name="Memo12" Left="495" Top="0" Width="108" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoRecibosPendResumen.&#34;IMPORTE_TOTAL&#34;] "/>
</TfrxMasterData>
<TfrxGroupFooter Name="GroupFooter1" Height="16" Left="0" Top="447" Width="1009,13451">
<TfrxMemoView Name="Memo22" Left="0" Top="0" Width="495" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibosPendResumen.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo17" Left="495" Top="0" Width="108" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoRecibosPendResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)] "/>
</TfrxGroupFooter>
</TfrxReportPage>
</TfrxReport>

59
Source/Informes/8/InformeListadoRecibosCliPendientesDesglosado.fr3 Normal file
View File

@ -0,0 +1,59 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40585,5382274306" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403990003546F70021008446174617365747301010C3300000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E6469656E7465732200010C3400000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E64526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxShapeView Name="Shape5" Left="512,90569" Top="1,10235" Width="495" Height="135" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxMemoView Name="NombreCliente" Left="517,98423" Top="4,10235" Width="482,01577" Height="23" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE RECIBOS DE CLIENTE PENDIENTES"/>
<TfrxMemoView Name="Memo3" Left="518" Top="29,10235" Width="481" Height="101" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="603" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953000000002" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="252" Width="1009,13451" Condition="frxDBInformeListadoRecibosPendientes.&#34;NOMBRE_CLIENTE&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Align="baLeft" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Align="baLeft" Left="248,77953" Top="25" Width="250" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo49" Align="baRight" Left="919,13451" Top="25" Width="90" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Align="baLeft" Left="168,77953" Top="25" Width="80" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
<TfrxMemoView Name="Memo52" Align="baRight" Left="799,13451" Top="25" Width="120" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo8" Align="baLeft" Left="88,77953" Top="25" Width="80" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha emisión"/>
<TfrxMemoView Name="Memo7" Left="7,55906" Top="2,77952999999999" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoRecibosPendientes.&#34;NOMBRE_CLIENTE&#34;]"/>
<TfrxMemoView Name="Memo4" Left="498,77953" Top="25" Width="300" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Domiciliación"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="312" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoRecibosPendientes" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo29" Left="168,78" Top="0" Width="80" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibosPendientes.&#34;FECHA_VENCIMIENTO&#34;]"/>
<TfrxMemoView Name="Memo1" Left="248,78" Top="0" Width="250" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibosPendientes.&#34;NOMBRE_CLIENTE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="918,78" Top="0" Width="90" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibosPendientes.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="88,78" Top="0" Width="80" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibosPendientes.&#34;FECHA_EMISION&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,78" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibosPendientes.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="798,78" Top="0" Width="120" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoRecibosPendientes.&#34;IMPORTE_TOTAL&#34;] "/>
<TfrxMemoView Name="Memo5" Left="498,78" Top="0" Width="300" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibosPendientes.&#34;DATOS_BANCARIOS&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="349" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="799" Top="0" Width="120" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoRecibosPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0" Width="799" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibosPendientes.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo9" Left="919" Top="0" Width="90" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
</TfrxGroupFooter>
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="651" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxGroupHeader Name="GroupHeader1" Height="45" Left="0" Top="425" Width="1009,13451" Condition="frxDBInformeListadoRecibosPendResumen.&#34;MES&#34;">
<TfrxMemoView Name="Memo13" Left="1" Top="6" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="RESUMEN POR DOMICILIACIÓN [frxDBInformeListadoRecibosPendResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo16" Align="baLeft" Left="0" Top="30" Width="495" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Domiciliación"/>
<TfrxMemoView Name="Memo15" Align="baLeft" Left="495" Top="30" Width="108" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros2" Height="17" Left="0" Top="490" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoRecibosPendResumen" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo11" Left="0" Top="0" Width="495" Height="17,00787402" OnBeforePrint="Memo11OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoRecibosPendResumen.&#34;DATOS_BANCARIOS&#34;]"/>
<TfrxMemoView Name="Memo12" Left="495" Top="0" Width="108" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoRecibosPendResumen.&#34;IMPORTE_TOTAL&#34;] "/>
</TfrxMasterData>
<TfrxGroupFooter Name="GroupFooter1" Height="16" Left="0" Top="527" Width="1009,13451">
<TfrxMemoView Name="Memo22" Left="0" Top="0" Width="495" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibosPendResumen.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo17" Left="495" Top="0" Width="108" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoRecibosPendResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)] "/>
</TfrxGroupFooter>
<TfrxGroupHeader Name="GroupHeader2" Height="20" Left="0" Top="212" Width="1009,13451" Condition="frxDBInformeListadoRecibosPendientes.&#34;MES&#34;">
<TfrxMemoView Name="Memo10" Left="1" Top="0" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoRecibosPendientes.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter2" Height="20" Left="0" Top="385" Width="1009,13451"/>
</TfrxReportPage>
</TfrxReport>

52
Source/Informes/8/InformeListadoRecibosCliente.fr3 Normal file
View File

@ -0,0 +1,52 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40585,5366475463" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403990003546F70021008446174617365747301010C2900000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F732200010C3000000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxShapeView Name="Shape5" Left="512,14193" Top="2,10235" Width="495" Height="132" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxMemoView Name="NombreCliente" Left="515" Top="10,10235" Width="482" Height="26" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE RECIBOS DE CLIENTE"/>
<TfrxMemoView Name="Memo3" Left="515" Top="39,10235" Width="481" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="557" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953000000002" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoRecibos.&#34;MES&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="276,45671" Top="25" Width="464,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo49" Left="740,7953" Top="25" Width="134,25201" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="181,45671" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
<TfrxMemoView Name="Memo52" Left="875,04731" Top="25" Width="136,06299213" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo8" Left="88,77953" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha emisión"/>
<TfrxMemoView Name="Memo7" Left="7,55906" Top="2,77952999999999" Width="485,37013" Height="15,1181102362205" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoRecibos.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoRecibos" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo29" Left="181,46" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibos.&#34;FECHA_VENCIMIENTO&#34;]"/>
<TfrxMemoView Name="Memo1" Left="276,46" Top="0" Width="464,34" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibos.&#34;NOMBRE_CLIENTE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="740,8" Top="0" Width="134,25" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoRecibos.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="88,78" Top="0" Width="92,68" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibos.&#34;FECHA_EMISION&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,78" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibos.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="875,05" Top="0" Width="136,06" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="309" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="875" Top="0,377747720000002" Width="136,06" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,377747720000002" Width="875" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibos.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter>
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="651" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="345" Width="1009,13451">
<TfrxMemoView Name="Memo13" Left="0" Top="60" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de los recibos de cliente"/>
<TfrxMemoView Name="Memo22" Left="383,62987" Top="60" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo23" Left="7,55906" Top="29" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de los recibos de cliente"/>
</TfrxHeader>
<TfrxReportSummary Name="ReportSummary1" Height="20" Left="0" Top="517" Width="1009,13451">
<TfrxMemoView Name="Memo24" Left="0" Top="0" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total: "/>
<TfrxMemoView Name="Memo32" Left="383,62987" Top="0" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoRecibosResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
<TfrxMasterData Name="DatosMaestros2" Height="17" Left="0" Top="440" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoRecibosResumen" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="383,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoRecibosResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo12" Left="383,63" Top="0" Width="94,64276" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoRecibosResumen.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
</TfrxReportPage>
</TfrxReport>

56
Source/Informes/8/InformeListadoRecibosClienteDesglosado.fr3 Normal file
View File

@ -0,0 +1,56 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40585,5367983102" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403990003546F70021008446174617365747301010C2900000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F732200010C3000000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxShapeView Name="Shape5" Left="513,14193" Top="3,10235" Width="495" Height="134" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxMemoView Name="NombreCliente" Left="521" Top="9,10235" Width="482" Height="24" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE RECIBOS DE CLIENTE"/>
<TfrxMemoView Name="Memo3" Left="522" Top="36,10235" Width="481" Height="96" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="637" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953000000002" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="14" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="252" Width="1009,13451" Condition="frxDBInformeListadoRecibos.&#34;NOMBRE_CLIENTE&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="276,45671" Top="25" Width="464,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo49" Left="740,7953" Top="25" Width="134,25201" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="181,45671" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
<TfrxMemoView Name="Memo52" Left="875,04731" Top="25" Width="136,06299213" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo8" Left="88,77953" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha emisión"/>
<TfrxMemoView Name="Memo7" Left="7,55906" Top="2,77952999999999" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoRecibos.&#34;NOMBRE_CLIENTE&#34;]"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="312" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoRecibos" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo29" Left="181,46" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibos.&#34;FECHA_VENCIMIENTO&#34;]"/>
<TfrxMemoView Name="Memo1" Left="276,46" Top="0" Width="464,34" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibos.&#34;NOMBRE_CLIENTE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="740,8" Top="0" Width="134,25" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoRecibos.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="88,78" Top="0" Width="92,68" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibos.&#34;FECHA_EMISION&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,78" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibos.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="875,05" Top="0" Width="136,06" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="349" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="875" Top="0,377747720000002" Width="136,06" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,377747720000002" Width="875" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibos.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="425" Width="1009,13451">
<TfrxMemoView Name="Memo13" Left="0" Top="60" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de los recibos de cliente"/>
<TfrxMemoView Name="Memo22" Left="383,62987" Top="60" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo23" Left="7,55906" Top="29" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de los recibos de cliente"/>
</TfrxHeader>
<TfrxReportSummary Name="ReportSummary1" Height="20" Left="0" Top="597" Width="1009,13451">
<TfrxMemoView Name="Memo24" Left="0" Top="0" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total: "/>
<TfrxMemoView Name="Memo32" Left="383,62987" Top="0" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoRecibosResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
<TfrxMasterData Name="DatosMaestros2" Height="17" Left="0" Top="520" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoRecibosResumen" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="383,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoRecibosResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo12" Left="383,63" Top="0" Width="94,64276" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoRecibosResumen.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupHeader Name="GroupHeader1" Height="20" Left="0" Top="212" Width="1009,13451" Condition="frxDBInformeListadoRecibos.&#34;MES&#34;">
<TfrxMemoView Name="Memo4" Left="0" Top="0" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoRecibos.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="20" Left="0" Top="385" Width="1009,13451"/>
</TfrxReportPage>
</TfrxReport>

55
Source/Informes/8/InformeListadoRecibosProvPendientes.fr3 Normal file
View File

@ -0,0 +1,55 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40585,5387398843" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo5OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoRecibosPendientes.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo5.Lines.Text := ' ' + ACadena; &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoRecibosPendResumen.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo11.Lines.Text := ' ' + ACadena; &#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403990003546F70021008446174617365747301010C3300000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E6469656E7465732200010C3400000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E64526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="542" Top="9" Width="465" Height="122" ShowHint="False" Color="13434828" Frame.Width="0,1" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="545,85807" Top="14" Width="452" Height="16,88188" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE RECIBOS A PROVEEDOR PENDIENTES"/>
<TfrxMemoView Name="Memo3" Left="545,85807" Top="34" Width="452" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="527" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953000000002" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoRecibosPendientes.&#34;MES&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="248,77953" Top="25" Width="250" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo49" Align="baLeft" Left="918,77953" Top="25" Width="90" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="168,77953" Top="25" Width="80" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
<TfrxMemoView Name="Memo52" Align="baLeft" Left="798,77953" Top="25" Width="120" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo8" Left="88,77953" Top="25" Width="80" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha emisión"/>
<TfrxMemoView Name="Memo7" Left="0" Top="2,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoRecibosPendientes.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo4" Left="498,77953" Top="25" Width="300" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Domiciliación"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoRecibosPendientes" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo29" Left="168,78" Top="0" Width="80" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibosPendientes.&#34;FECHA_VENCIMIENTO&#34;]"/>
<TfrxMemoView Name="Memo1" Left="248,78" Top="0" Width="250" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibosPendientes.&#34;NOMBRE_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo20" Left="918,78" Top="0" Width="90" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibosPendientes.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="88,78" Top="0" Width="80" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibosPendientes.&#34;FECHA_EMISION&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,78" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoRecibosPendientes.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="798,78" Top="0" Width="120" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoRecibosPendientes.&#34;IMPORTE_TOTAL&#34;] "/>
<TfrxMemoView Name="Memo5" Left="498,78" Top="0" Width="300" Height="17,00787402" OnBeforePrint="Memo5OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibosPendientes.&#34;DATOS_BANCARIOS&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="309" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="799" Top="0" Width="120" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoRecibosPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0" Width="799" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibosPendientes.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo9" Left="919" Top="0" Width="90" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
</TfrxGroupFooter>
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="651" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxGroupHeader Name="GroupHeader1" Height="45" Left="0" Top="345" Width="1009,13451" Condition="frxDBInformeListadoRecibosPendResumen.&#34;MES&#34;">
<TfrxMemoView Name="Memo13" Left="0" Top="8" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="RESUMEN POR DOMICILIACIÓN [frxDBInformeListadoRecibosPendResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo16" Left="0" Top="30" Width="495" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Domiciliación"/>
<TfrxMemoView Name="Memo15" Left="495" Top="30" Width="108" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros2" Height="17" Left="0" Top="410" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoRecibosPendResumen" RowCount="0">
<TfrxMemoView Name="Memo11" Left="0" Top="0" Width="495" Height="17,00787402" OnBeforePrint="Memo11OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoRecibosPendResumen.&#34;DATOS_BANCARIOS&#34;]"/>
<TfrxMemoView Name="Memo12" Left="495" Top="0" Width="108" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoRecibosPendResumen.&#34;IMPORTE_TOTAL&#34;] "/>
</TfrxMasterData>
<TfrxGroupFooter Name="GroupFooter1" Height="20" Left="0" Top="447" Width="1009,13451">
<TfrxMemoView Name="Memo22" Left="0" Top="0" Width="495" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibosPendResumen.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo17" Left="495" Top="0" Width="108" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoRecibosPendResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)] "/>
</TfrxGroupFooter>
</TfrxReportPage>
</TfrxReport>

58
Source/Informes/8/InformeListadoRecibosProvPendientesDesglosado.fr3 Normal file
View File

@ -0,0 +1,58 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40585,5389643981" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo5OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoRecibosPendientes.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo5.Lines.Text := ' ' + ACadena; &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoRecibosPendResumen.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo11.Lines.Text := ' ' + ACadena; &#13;&#10; end;&#13;&#10;end;&#13;&#10; &#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403990003546F70021008446174617365747301010C3300000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E6469656E7465732200010C3400000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E64526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451">
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="542" Top="11" Width="465" Height="122" ShowHint="False" Color="13434828" Frame.Width="0,1" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="545,85807" Top="16" Width="452" Height="16,88188" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE RECIBOS A PROVEEDOR PENDIENTES"/>
<TfrxMemoView Name="Memo3" Left="545,85807" Top="36" Width="452" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="607" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953000000002" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="252" Width="1009,13451" Condition="frxDBInformeListadoRecibosPendientes.&#34;NOMBRE_PROVEEDOR&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="248,77953" Top="25" Width="250" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo49" Align="baLeft" Left="918,77953" Top="25" Width="90" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="168,77953" Top="25" Width="80" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
<TfrxMemoView Name="Memo52" Align="baLeft" Left="798,77953" Top="25" Width="120" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo8" Left="88,77953" Top="25" Width="80" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha emisión"/>
<TfrxMemoView Name="Memo7" Left="0" Top="2,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoRecibosPendientes.&#34;NOMBRE_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo4" Left="498,77953" Top="25" Width="300" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Domiciliación"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17" Left="0" Top="312" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoRecibosPendientes" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo29" Left="168,78" Top="0" Width="80" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibosPendientes.&#34;FECHA_VENCIMIENTO&#34;]"/>
<TfrxMemoView Name="Memo1" Left="248,78" Top="0" Width="250" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibosPendientes.&#34;NOMBRE_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo20" Left="918,78" Top="0" Width="90" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibosPendientes.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="88,78" Top="0" Width="80" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibosPendientes.&#34;FECHA_EMISION&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,78" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoRecibosPendientes.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="798,78" Top="0" Width="120" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoRecibosPendientes.&#34;IMPORTE_TOTAL&#34;] "/>
<TfrxMemoView Name="Memo5" Left="498,78" Top="0" Width="300" Height="17,00787402" OnBeforePrint="Memo5OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibosPendientes.&#34;DATOS_BANCARIOS&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="349" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="799" Top="0" Width="120" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoRecibosPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0" Width="799" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibosPendientes.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo9" Left="919" Top="0" Width="90" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
</TfrxGroupFooter>
<TfrxGroupHeader Name="GroupHeader1" Height="45" Left="0" Top="425" Width="1009,13451" Condition="frxDBInformeListadoRecibosPendResumen.&#34;MES&#34;">
<TfrxMemoView Name="Memo13" Left="0" Top="8" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="RESUMEN POR DOMICILIACIÓN [frxDBInformeListadoRecibosPendResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo16" Left="0" Top="30" Width="495" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Domiciliación"/>
<TfrxMemoView Name="Memo15" Left="495" Top="30" Width="108" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros2" Height="17" Left="0" Top="490" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoRecibosPendResumen" RowCount="0">
<TfrxMemoView Name="Memo11" Left="0" Top="0" Width="495" Height="17,00787402" OnBeforePrint="Memo11OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoRecibosPendResumen.&#34;DATOS_BANCARIOS&#34;]"/>
<TfrxMemoView Name="Memo12" Left="495" Top="0" Width="108" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoRecibosPendResumen.&#34;IMPORTE_TOTAL&#34;] "/>
</TfrxMasterData>
<TfrxGroupFooter Name="GroupFooter1" Height="20" Left="0" Top="527" Width="1009,13451">
<TfrxMemoView Name="Memo22" Left="0" Top="0" Width="495" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibosPendResumen.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo17" Left="495" Top="0" Width="108" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoRecibosPendResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)] "/>
</TfrxGroupFooter>
<TfrxGroupHeader Name="GroupHeader2" Height="20" Left="0" Top="212" Width="1009,13451" Condition="frxDBInformeListadoRecibosPendientes.&#34;MES&#34;">
<TfrxMemoView Name="Memo10" Left="0" Top="1" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoRecibosPendientes.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter2" Height="20" Left="0" Top="385" Width="1009,13451"/>
</TfrxReportPage>
</TfrxReport>

51
Source/Informes/8/InformeListadoRecibosProveedor.fr3 Normal file
View File

@ -0,0 +1,51 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40585,5384268056" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403990003546F70021008446174617365747301010C2900000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F732200010C3000000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="543" Top="11" Width="465" Height="122" ShowHint="False" Color="13434828" Frame.Width="0,1" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="546,85807" Top="16" Width="452" Height="16,88188" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE RECIBOS A PROVEEDOR"/>
<TfrxMemoView Name="Memo3" Left="546,85807" Top="36" Width="452" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="552" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953000000002" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoRecibos.&#34;MES&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="276,45671" Top="25" Width="464,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo49" Left="740,7953" Top="25" Width="134,25201" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="181,45671" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
<TfrxMemoView Name="Memo52" Left="875,04731" Top="25" Width="136,06299213" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo8" Left="88,77953" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha emisión"/>
<TfrxMemoView Name="Memo7" Left="0" Top="2,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoRecibos.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoRecibos" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo29" Left="181,46" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibos.&#34;FECHA_VENCIMIENTO&#34;]"/>
<TfrxMemoView Name="Memo1" Left="276,46" Top="0" Width="464,34" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibos.&#34;NOMBRE_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo20" Left="740,8" Top="0" Width="134,25" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoRecibos.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="88,78" Top="0" Width="92,68" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibos.&#34;FECHA_EMISION&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,78" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoRecibos.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="875,05" Top="0" Width="136,06" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="309" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="875" Top="0,377747720000002" Width="136,06" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,377747720000002" Width="875" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibos.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="345" Width="1009,13451">
<TfrxMemoView Name="Memo13" Left="0" Top="60" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de los recibos de proveedor"/>
<TfrxMemoView Name="Memo22" Left="383,62987" Top="60" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo23" Left="0" Top="32" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de los recibos de proveedor"/>
</TfrxHeader>
<TfrxReportSummary Name="ReportSummary1" Height="15" Left="0" Top="517" Width="1009,13451">
<TfrxMemoView Name="Memo24" Align="baLeft" Left="0" Top="0" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total: "/>
<TfrxMemoView Name="Memo32" Align="baLeft" Left="383,62987" Top="0" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoRecibosResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
<TfrxMasterData Name="DatosMaestros2" Height="17" Left="0" Top="440" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoRecibosResumen" RowCount="0">
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="383,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoRecibosResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo12" Left="383,63" Top="0" Width="94,64276" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoRecibosResumen.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
</TfrxReportPage>
</TfrxReport>

55
Source/Informes/8/InformeListadoRecibosProveedorDesglosado.fr3 Normal file
View File

@ -0,0 +1,55 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40585,5385762963" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403990003546F70021008446174617365747301010C2900000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F732200010C3000000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="543" Top="11" Width="465" Height="122" ShowHint="False" Color="13434828" Frame.Width="0,1" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="546,85807" Top="16" Width="452" Height="16,88188" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE RECIBOS A PROVEEDOR"/>
<TfrxMemoView Name="Memo3" Left="546,85807" Top="36" Width="452" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="632" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="252" Width="1009,13451" Condition="frxDBInformeListadoRecibos.&#34;NOMBRE_PROVEEDOR&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="276,45671" Top="25" Width="464,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo49" Left="740,7953" Top="25" Width="134,25201" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="181,45671" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
<TfrxMemoView Name="Memo52" Left="875,04731" Top="25" Width="136,06299213" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo8" Left="88,77953" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha emisión"/>
<TfrxMemoView Name="Memo7" Left="0" Top="2,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoRecibos.&#34;NOMBRE_PROVEEDOR&#34;]"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="312" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoRecibos" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo29" Left="181,46" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibos.&#34;FECHA_VENCIMIENTO&#34;]"/>
<TfrxMemoView Name="Memo1" Left="276,46" Top="0" Width="464,34" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibos.&#34;NOMBRE_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo20" Left="740,8" Top="0" Width="134,25" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoRecibos.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="88,78" Top="0" Width="92,68" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibos.&#34;FECHA_EMISION&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,78" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoRecibos.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="875,05" Top="0" Width="136,06" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="349" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="875" Top="0,377747720000002" Width="136,06" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,377747720000002" Width="875" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibos.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="425" Width="1009,13451">
<TfrxMemoView Name="Memo13" Left="0" Top="60" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de los recibos de proveedor"/>
<TfrxMemoView Name="Memo22" Left="383,62987" Top="60" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo23" Left="0" Top="32" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de los recibos de proveedor"/>
</TfrxHeader>
<TfrxReportSummary Name="ReportSummary1" Height="15" Left="0" Top="597" Width="1009,13451">
<TfrxMemoView Name="Memo24" Align="baLeft" Left="0" Top="0" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total: "/>
<TfrxMemoView Name="Memo32" Align="baLeft" Left="383,62987" Top="0" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoRecibosResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
<TfrxMasterData Name="DatosMaestros2" Height="17" Left="0" Top="520" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoRecibosResumen" RowCount="0">
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="383,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoRecibosResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo12" Left="383,63" Top="0" Width="94,64276" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoRecibosResumen.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupHeader Name="GroupHeader1" Height="20" Left="0" Top="212" Width="1009,13451" Condition="frxDBInformeListadoRecibos.&#34;MES&#34;">
<TfrxMemoView Name="Memo4" Left="0" Top="2" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoRecibos.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="20" Left="0" Top="385" Width="1009,13451"/>
</TfrxReportPage>
</TfrxReport>

57
Source/Informes/8/InformeObjetivosAgentesAlbaranes.fr3 Normal file
View File

@ -0,0 +1,57 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41572,786678125" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C4400000020446174615365743D226672784442496E666F726D654F626A657469766F732220446174615365744E616D653D226672784442496E666F726D654F626A657469766F73220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="104,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxMemoView Name="DatosEmpresa" Left="171" Top="5,10235" Width="141" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="97,10235" Width="312" Height="0" ShowHint="False" Frame.Color="5470709" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="513" Top="5" Width="495" Height="93" ShowHint="False" Color="13095676" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="521,85807" Top="14" Width="478" Height="19" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE OBJETIVOS DE AGENTES (ALBARANES)"/>
<TfrxMemoView Name="Memo3" Left="521,85807" Top="35,89765" Width="478" Height="55" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
<TfrxPictureView Name="Picture1" Left="3" Top="10,89765" Width="160,03598" Height="80,03154" OnBeforePrint="Picture1OnBeforePrint" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" HightQuality="False"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="354" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="180" Width="1009,13451" Condition="frxDBInformeObjetivos.&#34;AGENTE&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="103" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Intervalo"/>
<TfrxMemoView Name="Memo28" Align="baLeft" Left="218" Top="25" Width="80" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Unidades obj."/>
<TfrxMemoView Name="Memo49" Align="baLeft" Left="398" Top="25" Width="100" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Uni. conseguidas"/>
<TfrxMemoView Name="Memo50" Align="baLeft" Left="693" Top="25" Width="105" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Diferencia imp."/>
<TfrxMemoView Name="Memo51" Align="baLeft" Left="798" Top="25" Width="105" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Imp. medio uni."/>
<TfrxMemoView Name="Memo52" Align="baLeft" Left="903" Top="25" Width="105" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Imp. medio cli."/>
<TfrxMemoView Name="Memo8" Align="baLeft" Left="103" Top="25" Width="50" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Altas cli."/>
<TfrxMemoView Name="Memo7" Left="0" Top="2,77953" Width="552,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;AGENTE&#34;]"/>
<TfrxMemoView Name="Memo1" Align="baLeft" Left="153" Top="25" Width="65" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cli. activos"/>
<TfrxMemoView Name="Memo9" Align="baLeft" Left="298" Top="25" Width="100" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe obj."/>
<TfrxMemoView Name="Memo10" Align="baLeft" Left="498" Top="25" Width="100" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Imp. conseguido"/>
<TfrxMemoView Name="Memo11" Align="baLeft" Left="598" Top="25" Width="95" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Diferencial uni."/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="240" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeObjetivos" DataSetName="frxDBInformeObjetivos" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo4" Align="baLeft" Left="218" Top="0" Width="80" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="-16777194" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;CANTIDAD_OBJETIVO&#34;]"/>
<TfrxMemoView Name="Memo20" Align="baLeft" Left="298" Top="0" Width="100" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="-16777194" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;IMPORTE_OBJETIVO&#34;]"/>
<TfrxMemoView Name="Memo21" Align="baLeft" Left="103" Top="0" Width="50" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;ALTAS_CLIENTE&#34;]"/>
<TfrxMemoView Name="Memo18" Align="baLeft" Left="0" Top="0" Width="103" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;DESCRIPCION&#34;]"/>
<TfrxMemoView Name="Memo29" Align="baLeft" Left="398" Top="0" Width="100" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;CANTIDAD_CONSEGUIDA&#34;] / [frxDBInformeObjetivos.&#34;CANTIDAD_DEVUELTA&#34;] = [frxDBInformeObjetivos.&#34;CANTIDAD_TOTAL_CONSEGUIDA&#34;]"/>
<TfrxMemoView Name="Memo30" Align="baLeft" Left="498" Top="0" Width="100" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;IMPORTE_TOTAL_CONSEGUIDO&#34;]"/>
<TfrxMemoView Name="Memo31" Left="598" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="-16777194" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;CANTIDAD_RESULTADO&#34;]"/>
<TfrxMemoView Name="Memo5" Align="baLeft" Left="153" Top="0" Width="65" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;CLIENTES_TOTALES&#34;]"/>
<TfrxMemoView Name="Memo12" Left="693" Top="0" Width="105" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="-16777194" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;IMPORTE_RESULTADO&#34;]"/>
<TfrxMemoView Name="Memo13" Align="baLeft" Left="798" Top="0" Width="105" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;IMPORTE_MEDIO_UNIDAD&#34;]"/>
<TfrxMemoView Name="Memo16" Align="baLeft" Left="903" Top="0" Width="105" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;IMPORTE_MEDIO_CLIENTE&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="17" Left="0" Top="277" Width="1009,13451">
<TfrxMemoView Name="Memo53" Align="baLeft" Left="0" Top="0" Width="103" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo6" Align="baLeft" Left="903" Top="0" Width="105" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo14" Align="baLeft" Left="798" Top="0" Width="105" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo15" Align="baLeft" Left="693" Top="0" Width="105" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;IMPORTE_RESULTADO&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo2" Align="baLeft" Left="103" Top="0" Width="50" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;ALTAS_CLIENTE&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo17" Align="baLeft" Left="153" Top="0" Width="65" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo19" Align="baLeft" Left="218" Top="0" Width="80" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;CANTIDAD_OBJETIVO&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo22" Align="baLeft" Left="398" Top="0" Width="100" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;CANTIDAD_CONSEGUIDA&#34;&#62;,DatosMaestros1)] / [SUM(&#60;frxDBInformeObjetivos.&#34;CANTIDAD_DEVUELTA&#34;&#62;,DatosMaestros1)] = [SUM(&#60;frxDBInformeObjetivos.&#34;CANTIDAD_TOTAL_CONSEGUIDA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo23" Align="baLeft" Left="298" Top="0" Width="100" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;IMPORTE_OBJETIVO&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo24" Align="baLeft" Left="498" Top="0" Width="100" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;IMPORTE_TOTAL_CONSEGUIDO&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo25" Align="baLeft" Left="598" Top="0" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;CANTIDAD_RESULTADO&#34;&#62;,DatosMaestros1)]"/>
</TfrxGroupFooter>
</TfrxReportPage>
</TfrxReport>

57
Source/Informes/8/InformeObjetivosAgentesFacturas.fr3 Normal file
View File

@ -0,0 +1,57 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41572,7868235185" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C4400000020446174615365743D226672784442496E666F726D654F626A657469766F732220446174615365744E616D653D226672784442496E666F726D654F626A657469766F73220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="104,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxMemoView Name="DatosEmpresa" Left="171" Top="5,10235" Width="141" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="97,10235" Width="312" Height="0" ShowHint="False" Frame.Color="5470709" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="513" Top="5" Width="495" Height="93" ShowHint="False" Color="13095676" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="521,85807" Top="14" Width="478" Height="19" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE OBJETIVOS DE AGENTES (FACTURAS)"/>
<TfrxMemoView Name="Memo3" Left="521,85807" Top="35,89765" Width="478" Height="55" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
<TfrxPictureView Name="Picture1" Left="3" Top="10,89765" Width="160,03598" Height="80,03154" OnBeforePrint="Picture1OnBeforePrint" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" HightQuality="False"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="354" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="180" Width="1009,13451" Condition="frxDBInformeObjetivos.&#34;AGENTE&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="103" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Intervalo"/>
<TfrxMemoView Name="Memo28" Align="baLeft" Left="218" Top="25" Width="80" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Unidades obj."/>
<TfrxMemoView Name="Memo49" Align="baLeft" Left="398" Top="25" Width="100" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Uni. conseguidas"/>
<TfrxMemoView Name="Memo50" Align="baLeft" Left="693" Top="25" Width="105" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Diferencia imp."/>
<TfrxMemoView Name="Memo51" Align="baLeft" Left="798" Top="25" Width="105" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Imp. medio uni."/>
<TfrxMemoView Name="Memo52" Align="baLeft" Left="903" Top="25" Width="105" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Imp. medio cli."/>
<TfrxMemoView Name="Memo8" Align="baLeft" Left="103" Top="25" Width="50" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Altas cli."/>
<TfrxMemoView Name="Memo7" Left="0" Top="2,77953" Width="552,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;AGENTE&#34;]"/>
<TfrxMemoView Name="Memo1" Align="baLeft" Left="153" Top="25" Width="65" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cli. activos"/>
<TfrxMemoView Name="Memo9" Align="baLeft" Left="298" Top="25" Width="100" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe obj."/>
<TfrxMemoView Name="Memo10" Align="baLeft" Left="498" Top="25" Width="100" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Imp. conseguido"/>
<TfrxMemoView Name="Memo11" Align="baLeft" Left="598" Top="25" Width="95" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Diferencial uni."/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="240" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeObjetivos" DataSetName="frxDBInformeObjetivos" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo4" Align="baLeft" Left="218" Top="0" Width="80" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="-16777194" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;CANTIDAD_OBJETIVO&#34;]"/>
<TfrxMemoView Name="Memo20" Align="baLeft" Left="298" Top="0" Width="100" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="-16777194" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;IMPORTE_OBJETIVO&#34;]"/>
<TfrxMemoView Name="Memo21" Align="baLeft" Left="103" Top="0" Width="50" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;ALTAS_CLIENTE&#34;]"/>
<TfrxMemoView Name="Memo18" Align="baLeft" Left="0" Top="0" Width="103" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;DESCRIPCION&#34;]"/>
<TfrxMemoView Name="Memo29" Align="baLeft" Left="398" Top="0" Width="100" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;CANTIDAD_CONSEGUIDA&#34;] / [frxDBInformeObjetivos.&#34;CANTIDAD_DEVUELTA&#34;] = [frxDBInformeObjetivos.&#34;CANTIDAD_TOTAL_CONSEGUIDA&#34;]"/>
<TfrxMemoView Name="Memo30" Align="baLeft" Left="498" Top="0" Width="100" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;IMPORTE_TOTAL_CONSEGUIDO&#34;]"/>
<TfrxMemoView Name="Memo31" Left="598" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="-16777194" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;CANTIDAD_RESULTADO&#34;]"/>
<TfrxMemoView Name="Memo5" Align="baLeft" Left="153" Top="0" Width="65" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;CLIENTES_TOTALES&#34;]"/>
<TfrxMemoView Name="Memo12" Left="693" Top="0" Width="105" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="-16777194" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;IMPORTE_RESULTADO&#34;]"/>
<TfrxMemoView Name="Memo13" Align="baLeft" Left="798" Top="0" Width="105" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;IMPORTE_MEDIO_UNIDAD&#34;]"/>
<TfrxMemoView Name="Memo16" Align="baLeft" Left="903" Top="0" Width="105" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;IMPORTE_MEDIO_CLIENTE&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="17" Left="0" Top="277" Width="1009,13451">
<TfrxMemoView Name="Memo53" Align="baLeft" Left="0" Top="0" Width="103" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo6" Align="baLeft" Left="903" Top="0" Width="105" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo14" Align="baLeft" Left="798" Top="0" Width="105" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo15" Align="baLeft" Left="693" Top="0" Width="105" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;IMPORTE_RESULTADO&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo2" Align="baLeft" Left="103" Top="0" Width="50" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;ALTAS_CLIENTE&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo17" Align="baLeft" Left="153" Top="0" Width="65" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo19" Align="baLeft" Left="218" Top="0" Width="80" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;CANTIDAD_OBJETIVO&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo22" Align="baLeft" Left="398" Top="0" Width="100" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;CANTIDAD_CONSEGUIDA&#34;&#62;,DatosMaestros1)] / [SUM(&#60;frxDBInformeObjetivos.&#34;CANTIDAD_DEVUELTA&#34;&#62;,DatosMaestros1)] = [SUM(&#60;frxDBInformeObjetivos.&#34;CANTIDAD_TOTAL_CONSEGUIDA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo23" Align="baLeft" Left="298" Top="0" Width="100" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;IMPORTE_OBJETIVO&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo24" Align="baLeft" Left="498" Top="0" Width="100" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;IMPORTE_TOTAL_CONSEGUIDO&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo25" Align="baLeft" Left="598" Top="0" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;CANTIDAD_RESULTADO&#34;&#62;,DatosMaestros1)]"/>
</TfrxGroupFooter>
</TfrxReportPage>
</TfrxReport>

8
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas
View File

@ -198,8 +198,8 @@ begin
AEditor.ListaID := AListaID; AEditor.ListaID := AListaID;
AEditor.VerPrecios := VerImprimirPrecios; AEditor.VerPrecios := VerImprimirPrecios;
AEditor.VerRefProveedor := VerImprimirRefProveedor; AEditor.VerRefProveedor := VerImprimirRefProveedor;
AEditor.VerPrecios := VerImprimirObservaciones; AEditor.VerObservaciones := VerImprimirObservaciones;
AEditor.VerRefProveedor := VerImprimirIncidencias; AEditor.VerIncidencias := VerImprimirIncidencias;
AEditor.Title := 'Albarán - ' + AppFactuGES.EmpresaActiva.NOMBRE; AEditor.Title := 'Albarán - ' + AppFactuGES.EmpresaActiva.NOMBRE;
AEditor.LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
AEditor.Preview; AEditor.Preview;
@ -240,8 +240,8 @@ begin
AEditor.ListaID := AListaID; AEditor.ListaID := AListaID;
AEditor.VerPrecios := VerImprimirPrecios; AEditor.VerPrecios := VerImprimirPrecios;
AEditor.VerRefProveedor := VerImprimirRefProveedor; AEditor.VerRefProveedor := VerImprimirRefProveedor;
AEditor.VerPrecios := VerImprimirObservaciones; AEditor.VerObservaciones := VerImprimirObservaciones;
AEditor.VerRefProveedor := VerImprimirIncidencias; AEditor.VerIncidencias := VerImprimirIncidencias;
AEditor.Title := 'Albarán - ' + AppFactuGES.EmpresaActiva.NOMBRE; AEditor.Title := 'Albarán - ' + AppFactuGES.EmpresaActiva.NOMBRE;
AEditor.LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
AEditor.TablaImpresion := nme_AlbaranesCliente; AEditor.TablaImpresion := nme_AlbaranesCliente;

26
Source/Modulos/Albaranes de proveedor/AlbaranesProveedor_Group.groupproj
View File

@ -14,6 +14,8 @@
<Projects Include="..\Articulos\Views\Articulos_view.dproj" /> <Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" /> <Projects Include="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" />
<Projects Include="..\Facturas de proveedor\Model\FacturasProveedor_model.dproj" />
<Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" />
<Projects Include="..\Inventario\Controller\Inventario_controller.dproj" /> <Projects Include="..\Inventario\Controller\Inventario_controller.dproj" />
<Projects Include="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" /> <Projects Include="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" />
<Projects Include="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" /> <Projects Include="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" />
@ -191,14 +193,32 @@
<Target Name="AlbaranesCliente_view:Make"> <Target Name="AlbaranesCliente_view:Make">
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Make" /> <MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Make" />
</Target> </Target>
<Target Name="FacturasProveedor_model">
<MSBuild Projects="..\Facturas de proveedor\Model\FacturasProveedor_model.dproj" Targets="" />
</Target>
<Target Name="FacturasProveedor_model:Clean">
<MSBuild Projects="..\Facturas de proveedor\Model\FacturasProveedor_model.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasProveedor_model:Make">
<MSBuild Projects="..\Facturas de proveedor\Model\FacturasProveedor_model.dproj" Targets="Make" />
</Target>
<Target Name="FacturasProveedor_view">
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="" />
</Target>
<Target Name="FacturasProveedor_view:Clean">
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasProveedor_view:Make">
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;AlbaranesProveedor_model;AlbaranesProveedor_data;AlbaranesProveedor_controller;AlbProv_FacProv_relation;FacturasProveedor_controller;PedProv_AlbProv_relation;Inventario_controller;AlbaranesProveedor_view;AlbaranesProveedor_plugin;FactuGES;FactuGES_Server;AlbaranesCliente_view" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;AlbaranesProveedor_model;AlbaranesProveedor_data;AlbaranesProveedor_controller;AlbProv_FacProv_relation;FacturasProveedor_controller;PedProv_AlbProv_relation;Inventario_controller;AlbaranesProveedor_view;AlbaranesProveedor_plugin;FactuGES;FactuGES_Server;AlbaranesCliente_view;FacturasProveedor_model;FacturasProveedor_view" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesProveedor_model:Clean;AlbaranesProveedor_data:Clean;AlbaranesProveedor_controller:Clean;AlbProv_FacProv_relation:Clean;FacturasProveedor_controller:Clean;PedProv_AlbProv_relation:Clean;Inventario_controller:Clean;AlbaranesProveedor_view:Clean;AlbaranesProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesCliente_view:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesProveedor_model:Clean;AlbaranesProveedor_data:Clean;AlbaranesProveedor_controller:Clean;AlbProv_FacProv_relation:Clean;FacturasProveedor_controller:Clean;PedProv_AlbProv_relation:Clean;Inventario_controller:Clean;AlbaranesProveedor_view:Clean;AlbaranesProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesCliente_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_view:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesProveedor_model:Make;AlbaranesProveedor_data:Make;AlbaranesProveedor_controller:Make;AlbProv_FacProv_relation:Make;FacturasProveedor_controller:Make;PedProv_AlbProv_relation:Make;Inventario_controller:Make;AlbaranesProveedor_view:Make;AlbaranesProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesCliente_view:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesProveedor_model:Make;AlbaranesProveedor_data:Make;AlbaranesProveedor_controller:Make;AlbProv_FacProv_relation:Make;FacturasProveedor_controller:Make;PedProv_AlbProv_relation:Make;Inventario_controller:Make;AlbaranesProveedor_view:Make;AlbaranesProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesCliente_view:Make;FacturasProveedor_model:Make;FacturasProveedor_view:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

8
Source/Modulos/Albaranes de proveedor/Controller/View/uIEditorAlbaranesProveedorPreview.pas
View File

@ -15,6 +15,14 @@ type
function GetVerRefProveedor: Boolean; function GetVerRefProveedor: Boolean;
procedure SetVerRefProveedor(const Value: Boolean); procedure SetVerRefProveedor(const Value: Boolean);
property VerRefProveedor : Boolean read GetVerRefProveedor write SetVerRefProveedor; property VerRefProveedor : Boolean read GetVerRefProveedor write SetVerRefProveedor;
function GetVerIncidencias: Boolean;
procedure SetVerIncidencias(const Value: Boolean);
property VerIncidencias : Boolean read GetVerIncidencias write SetVerIncidencias;
function GetVerObservaciones: Boolean;
procedure SetObservaciones(const Value: Boolean);
property VerObservaciones : Boolean read GetVerObservaciones write SetObservaciones;
end; end;

27
Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
View File

@ -61,9 +61,11 @@ type
function EsEliminable(AAlbaran: IBizAlbaranProveedor): Boolean; function EsEliminable(AAlbaran: IBizAlbaranProveedor): Boolean;
procedure Preview(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false; procedure Preview(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false;
const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True); const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
function Print(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false; function Print(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false;
const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True): Boolean; const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Boolean;
procedure GenerarEmailAlbaran(AAlbaran : IBizAlbaranProveedor; procedure GenerarEmailAlbaran(AAlbaran : IBizAlbaranProveedor;
const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True); const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True);
@ -157,9 +159,11 @@ type
function EsEliminable(AAlbaran: IBizAlbaranProveedor): Boolean; function EsEliminable(AAlbaran: IBizAlbaranProveedor): Boolean;
procedure Preview(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false; procedure Preview(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false;
const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True); const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
function Print(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false; function Print(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false;
const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True): Boolean; const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Boolean;
procedure GenerarEmailAlbaran(AAlbaran : IBizAlbaranProveedor; procedure GenerarEmailAlbaran(AAlbaran : IBizAlbaranProveedor;
const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True); const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True);
@ -495,7 +499,7 @@ var
begin begin
ShowHourglassCursor; ShowHourglassCursor;
try try
Result := BuscarAlbaranesNormales; Result := BuscarTodos;
with Result.DataTable.DynamicWhere do with Result.DataTable.DynamicWhere do
begin begin
@ -1019,8 +1023,7 @@ begin
end; end;
function TAlbaranesProveedorController.EnviarEmailAlbaranes( function TAlbaranesProveedorController.EnviarEmailAlbaranes(
AAlbaranes: IBizAlbaranProveedor; const VerPrecios: Boolean; AAlbaranes: IBizAlbaranProveedor; const VerPrecios: Boolean; const VerRefProveedor: Boolean): Boolean;
const VerRefProveedor: Boolean): Boolean;
var var
ADialog : IDialogListaAlbaranesProveedorEnvioEMail; ADialog : IDialogListaAlbaranesProveedorEnvioEMail;
ARespuesta : Integer; ARespuesta : Integer;
@ -1256,7 +1259,8 @@ begin
end; end;
procedure TAlbaranesProveedorController.Preview(AAlbaran: IBizAlbaranProveedor; AllItems: Boolean = false; procedure TAlbaranesProveedorController.Preview(AAlbaran: IBizAlbaranProveedor; AllItems: Boolean = false;
const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True); const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
var var
AReportController : IAlbaranesProveedorReportController; AReportController : IAlbaranesProveedorReportController;
ID_Albaranes: TIntegerList; ID_Albaranes: TIntegerList;
@ -1282,7 +1286,7 @@ begin
else else
ID_Albaranes.Add(AAlbaran.ID); ID_Albaranes.Add(AAlbaran.ID);
AReportController.Preview(ID_Albaranes, VerPrecios, VerRefProveedor); AReportController.Preview(ID_Albaranes, VerPrecios, VerRefProveedor, VerImprimirObservaciones, VerImprimirIncidencias);
finally finally
AReportController := NIL; AReportController := NIL;
FreeANDNIL(ID_Albaranes) FreeANDNIL(ID_Albaranes)
@ -1290,7 +1294,8 @@ begin
end; end;
function TAlbaranesProveedorController.Print(AAlbaran: IBizAlbaranProveedor; AllItems: Boolean = false; function TAlbaranesProveedorController.Print(AAlbaran: IBizAlbaranProveedor; AllItems: Boolean = false;
const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True): Boolean; const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Boolean;
var var
AReportController : IAlbaranesProveedorReportController; AReportController : IAlbaranesProveedorReportController;
ID_Albaranes: TIntegerList; ID_Albaranes: TIntegerList;
@ -1316,7 +1321,7 @@ begin
else else
ID_Albaranes.Add(AAlbaran.ID); ID_Albaranes.Add(AAlbaran.ID);
Result := AReportController.Print(ID_Albaranes, VerPrecios, VerRefProveedor); Result := AReportController.Print(ID_Albaranes, VerPrecios, VerRefProveedor, VerImprimirObservaciones, VerImprimirIncidencias);
finally finally
AReportController := NIL; AReportController := NIL;
FreeANDNIL(ID_Albaranes) FreeANDNIL(ID_Albaranes)

26
Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorReportController.pas
View File

@ -11,9 +11,11 @@ type
IAlbaranesProveedorReportController = interface(IControllerBase) IAlbaranesProveedorReportController = interface(IControllerBase)
['{11F9D087-C6BE-4401-AB13-4342025D62BB}'] ['{11F9D087-C6BE-4401-AB13-4342025D62BB}']
procedure Preview(const AListaID : TIntegerList; procedure Preview(const AListaID : TIntegerList;
const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True); const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
function Print(const AListaID : TIntegerList; function Print(const AListaID : TIntegerList;
const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True): Boolean; const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Boolean;
function ExportToWord(const AID: Integer; const AFileName : String = ''; function ExportToWord(const AID: Integer; const AFileName : String = '';
const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True): Boolean; const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True): Boolean;
function ExportToPDF(const AID: Integer; const AFileName : String = ''; function ExportToPDF(const AID: Integer; const AFileName : String = '';
@ -29,9 +31,11 @@ type
destructor Destroy; override; destructor Destroy; override;
procedure Preview(const AListaID : TIntegerList; procedure Preview(const AListaID : TIntegerList;
const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True); const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
function Print(const AListaID : TIntegerList; function Print(const AListaID : TIntegerList;
const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True): Boolean; const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Boolean;
function ExportToWord(const AID: Integer; const AFileName : String = ''; function ExportToWord(const AID: Integer; const AFileName : String = '';
const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True): Boolean; const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True): Boolean;
function ExportToPDF(const AID: Integer; const AFileName : String = ''; function ExportToPDF(const AID: Integer; const AFileName : String = '';
@ -117,7 +121,8 @@ begin
end; end;
procedure TAlbaranesProveedorReportController.Preview(const AListaID: TIntegerList; procedure TAlbaranesProveedorReportController.Preview(const AListaID: TIntegerList;
const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True); const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorAlbaranesProveedorPreview; AEditor : IEditorAlbaranesProveedorPreview;
@ -126,7 +131,7 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetReport(AListaID, VerPrecios, VerRefProveedor); AStream := FDataModule.GetReport(AListaID, VerPrecios, VerRefProveedor, VerImprimirObservaciones, VerImprimirIncidencias);
try try
CreateEditor('EditorAlbaranesProveedorPreview', IEditorAlbaranesProveedorPreview, AEditor); CreateEditor('EditorAlbaranesProveedorPreview', IEditorAlbaranesProveedorPreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
@ -136,6 +141,8 @@ begin
AEditor.ListaID := AListaID; AEditor.ListaID := AListaID;
AEditor.VerPrecios := VerPrecios; AEditor.VerPrecios := VerPrecios;
AEditor.VerRefProveedor := VerRefProveedor; AEditor.VerRefProveedor := VerRefProveedor;
AEditor.VerObservaciones := VerImprimirObservaciones;
AEditor.VerIncidencias := VerImprimirIncidencias;
AEditor.Title := 'Albarán de proveedor - ' + AppFactuGES.EmpresaActiva.NOMBRE; AEditor.Title := 'Albarán de proveedor - ' + AppFactuGES.EmpresaActiva.NOMBRE;
AEditor.LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
AEditor.Preview; AEditor.Preview;
@ -153,7 +160,8 @@ begin
end; end;
function TAlbaranesProveedorReportController.Print(const AListaID: TIntegerList; function TAlbaranesProveedorReportController.Print(const AListaID: TIntegerList;
const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True): Boolean; const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Boolean;
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorAlbaranesProveedorPreview; AEditor : IEditorAlbaranesProveedorPreview;
@ -163,7 +171,7 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetReport(AListaID, VerPrecios, VerRefProveedor); AStream := FDataModule.GetReport(AListaID, VerPrecios, VerRefProveedor, VerImprimirObservaciones, VerImprimirIncidencias);
try try
CreateEditor('EditorAlbaranesProveedorPreview', IEditorAlbaranesProveedorPreview, AEditor); CreateEditor('EditorAlbaranesProveedorPreview', IEditorAlbaranesProveedorPreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
@ -173,6 +181,8 @@ begin
AEditor.ListaID := AListaID; AEditor.ListaID := AListaID;
AEditor.VerPrecios := VerPrecios; AEditor.VerPrecios := VerPrecios;
AEditor.VerRefProveedor := VerRefProveedor; AEditor.VerRefProveedor := VerRefProveedor;
AEditor.VerObservaciones := VerImprimirObservaciones;
AEditor.VerIncidencias := VerImprimirIncidencias;
AEditor.Title := 'Albarán de proveedor - ' + AppFactuGES.EmpresaActiva.NOMBRE; AEditor.Title := 'Albarán de proveedor - ' + AppFactuGES.EmpresaActiva.NOMBRE;
AEditor.LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
AEditor.TablaImpresion := nme_AlbaranesProveedor; AEditor.TablaImpresion := nme_AlbaranesProveedor;

16
Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.pas
View File

@ -37,11 +37,11 @@ type
// Report // Report
function GetReport(const ListaID: TIntegerList; const ImprimirPrecio: Boolean = True; function GetReport(const ListaID: TIntegerList; const ImprimirPrecio: Boolean = True;
const ImprimirRefProveedor: Boolean = True): Binary; const ImprimirRefProveedor: Boolean = True; const VerObservaciones: Boolean = False; const VerIncidencias: Boolean = False): Binary;
function GetRptWordAlbaran(const AID: Integer; const ImprimirPrecio: Boolean = True; function GetRptWordAlbaran(const AID: Integer; const ImprimirPrecio: Boolean = True;
const ImprimirRefProveedor: Boolean = True): Binary; const ImprimirRefProveedor: Boolean = True): Binary;
function GetRptPDFAlbaran(const AID: Integer; const ImprimirPrecio: Boolean = True; function GetRptPDFAlbaran(const AID: Integer; const ImprimirPrecio: Boolean = True;
const ImprimirRefProveedor: Boolean = True): Binary; const ImprimirRefProveedor: Boolean = True; const VerObservaciones: Boolean = False; const VerIncidencias: Boolean = False): Binary;
function GetAnosItems : TStringList; function GetAnosItems : TStringList;
end; end;
@ -68,23 +68,23 @@ begin
end; end;
function TDataModuleAlbaranesProveedor.GetReport(const ListaID: TIntegerList; function TDataModuleAlbaranesProveedor.GetReport(const ListaID: TIntegerList;
const ImprimirPrecio: Boolean = True; const ImprimirPrecio: Boolean = True; const ImprimirRefProveedor: Boolean = True;
const ImprimirRefProveedor: Boolean = True): Binary; const VerObservaciones: Boolean = False; const VerIncidencias: Boolean = False): Binary;
var var
AParam : TIntegerArray; AParam : TIntegerArray;
begin begin
AParam := ListaID.ToIntegerArray; AParam := ListaID.ToIntegerArray;
try try
Result := (RORemoteService as IsrvAlbaranesProveedor).GenerarInforme(AParam, Result := (RORemoteService as IsrvAlbaranesProveedor).GenerarInforme(AParam,
ImprimirPrecio, ImprimirRefProveedor); ImprimirPrecio, ImprimirRefProveedor, VerObservaciones, VerIncidencias);
finally finally
FreeANDNil(AParam); FreeANDNil(AParam);
end; end;
end; end;
function TDataModuleAlbaranesProveedor.GetRptPDFAlbaran(const AID: Integer; function TDataModuleAlbaranesProveedor.GetRptPDFAlbaran(const AID: Integer;
const ImprimirPrecio: Boolean = True; const ImprimirPrecio: Boolean = True; const ImprimirRefProveedor: Boolean = True;
const ImprimirRefProveedor: Boolean = True): Binary; const VerObservaciones: Boolean = False; const VerIncidencias: Boolean = False): Binary;
var var
AParam : TIntegerArray; AParam : TIntegerArray;
begin begin
@ -92,7 +92,7 @@ begin
try try
AParam.Add(AID); AParam.Add(AID);
Result := (RORemoteService as IsrvAlbaranesProveedor).GenerarInformeEnPDF(AParam, Result := (RORemoteService as IsrvAlbaranesProveedor).GenerarInformeEnPDF(AParam,
ImprimirPrecio, ImprimirRefProveedor); ImprimirPrecio, ImprimirRefProveedor, VerObservaciones, VerIncidencias);
finally finally
FreeANDNil(AParam); FreeANDNil(AParam);
end; end;

4
Source/Modulos/Albaranes de proveedor/Model/Data/uIDataModuleAlbaranesProveedorReport.pas
View File

@ -9,11 +9,11 @@ type
IDataModuleAlbaranesProveedorReport = interface IDataModuleAlbaranesProveedorReport = interface
['{FC37B698-7FBF-4658-BBD0-CBD4F6891CDF}'] ['{FC37B698-7FBF-4658-BBD0-CBD4F6891CDF}']
function GetReport(const ListaID: TIntegerList; const ImprimirPrecio: Boolean = True; function GetReport(const ListaID: TIntegerList; const ImprimirPrecio: Boolean = True;
const ImprimirRefProveedor: Boolean = True): Binary; const ImprimirRefProveedor: Boolean = True; const VerObservaciones: Boolean = False; const VerIncidencias: Boolean = False): Binary;
function GetRptWordAlbaran(const AID: Integer; const ImprimirPrecio: Boolean = True; function GetRptWordAlbaran(const AID: Integer; const ImprimirPrecio: Boolean = True;
const ImprimirRefProveedor: Boolean = True): Binary; const ImprimirRefProveedor: Boolean = True): Binary;
function GetRptPDFAlbaran(const AID: Integer; const ImprimirPrecio: Boolean = True; function GetRptPDFAlbaran(const AID: Integer; const ImprimirPrecio: Boolean = True;
const ImprimirRefProveedor: Boolean = True): Binary; const ImprimirRefProveedor: Boolean = True; const VerObservaciones: Boolean = False; const VerIncidencias: Boolean = False): Binary;
end; end;
implementation implementation

29
Source/Modulos/Albaranes de proveedor/Reports/uRptAlbaranesProveedor_Server.pas
View File

@ -51,15 +51,18 @@ type
FConnection: IDAConnection; FConnection: IDAConnection;
FImprimirPrecio : Boolean; FImprimirPrecio : Boolean;
FImprimirRefProveedor : Boolean; FImprimirRefProveedor : Boolean;
FVerObservaciones : Boolean;
FVerIncidencias : Boolean;
//Genera cada uno de los albaranes a imprimir //Genera cada uno de los albaranes a imprimir
procedure _GenerarAlbaran(const AID: Integer); procedure _GenerarAlbaran(const AID: Integer);
public public
function GenerarAlbaran(const AListaID : TIntegerArray; function GenerarAlbaran(const AListaID : TIntegerArray;
const ImprimirPrecio: Boolean = True; const ImprimirPrecio: Boolean; const ImprimirRefProveedor: Boolean;
const ImprimirRefProveedor: Boolean = True): Binary; const VerObservaciones: Boolean; const VerIncidencias: Boolean): Binary;
function GenerarAlbaranEnPDF(const ListaID : TIntegerArray; function GenerarAlbaranEnPDF(const ListaID : TIntegerArray;
const ImprimirPrecio: Boolean = True; const ImprimirPrecio: Boolean; const ImprimirRefProveedor: Boolean;
const ImprimirRefProveedor: Boolean = True): Binary; const VerObservaciones: Boolean; const VerIncidencias: Boolean): Binary;
end; end;
implementation implementation
@ -106,17 +109,24 @@ begin
Value := FImprimirPrecio; Value := FImprimirPrecio;
if VarName = 'ImprimirRefProveedor' then if VarName = 'ImprimirRefProveedor' then
Value := FImprimirRefProveedor; Value := FImprimirRefProveedor;
if VarName = 'VerObservaciones' then
Value := FVerObservaciones;
if VarName = 'VerIncidencias' then
Value := FVerIncidencias;
end; end;
function TRptAlbaranesProveedor.GenerarAlbaran(const AListaID : TIntegerArray; function TRptAlbaranesProveedor.GenerarAlbaran(const AListaID : TIntegerArray;
const ImprimirPrecio: Boolean = True; const ImprimirPrecio: Boolean; const ImprimirRefProveedor: Boolean;
const ImprimirRefProveedor: Boolean = True): Binary; const VerObservaciones: Boolean; const VerIncidencias: Boolean): Binary;
var var
i: Integer; i: Integer;
begin begin
Result := Binary.Create; Result := Binary.Create;
FImprimirPrecio := ImprimirPrecio; FImprimirPrecio := ImprimirPrecio;
FImprimirRefProveedor := ImprimirRefProveedor; FImprimirRefProveedor := ImprimirRefProveedor;
FVerObservaciones := VerObservaciones;
FVerIncidencias := VerIncidencias;
try try
//Vamos generando todos y cada uno de los albaranes recibidos //Vamos generando todos y cada uno de los albaranes recibidos
for i := 0 to AListaID.Count - 1 do for i := 0 to AListaID.Count - 1 do
@ -127,14 +137,17 @@ begin
end; end;
function TRptAlbaranesProveedor.GenerarAlbaranEnPDF(const ListaID: TIntegerArray; function TRptAlbaranesProveedor.GenerarAlbaranEnPDF(const ListaID: TIntegerArray;
const ImprimirPrecio: Boolean = True; const ImprimirPrecio: Boolean; const ImprimirRefProveedor: Boolean;
const ImprimirRefProveedor: Boolean = True): Binary; const VerObservaciones: Boolean; const VerIncidencias: Boolean): Binary;
var var
i: Integer; i: Integer;
begin begin
Result := Binary.Create; Result := Binary.Create;
FImprimirPrecio := ImprimirPrecio; FImprimirPrecio := ImprimirPrecio;
FImprimirRefProveedor := ImprimirRefProveedor; FImprimirRefProveedor := ImprimirRefProveedor;
FVerObservaciones := VerObservaciones;
FVerIncidencias := VerIncidencias;
try try
//Vamos generando todos y cada uno de los presupuestos recibidos //Vamos generando todos y cada uno de los presupuestos recibidos
for i := 0 to ListaID.Count - 1 do for i := 0 to ListaID.Count - 1 do

17
Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.pas
View File

@ -33,9 +33,11 @@ type
var aConnectionName: string); var aConnectionName: string);
protected protected
function GenerarInforme(const ListaID: TIntegerArray; function GenerarInforme(const ListaID: TIntegerArray;
const ImprimirPrecio: Boolean; const ImprimirRefProveedor: Boolean): Binary; const ImprimirPrecio: Boolean; const ImprimirRefProveedor: Boolean;
const VerObservaciones: Boolean; const VerIncidencias: Boolean): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; function GenerarInformeEnPDF(const ListaID: TIntegerArray;
const ImprimirPrecio: Boolean; const ImprimirRefProveedor: Boolean): Binary; const ImprimirPrecio: Boolean; const ImprimirRefProveedor: Boolean;
const VerObservaciones: Boolean; const VerIncidencias: Boolean): Binary;
end; end;
@ -83,28 +85,29 @@ begin
end; end;
function TsrvAlbaranesProveedor.GenerarInforme(const ListaID: TIntegerArray; function TsrvAlbaranesProveedor.GenerarInforme(const ListaID: TIntegerArray;
const ImprimirPrecio: Boolean; const ImprimirRefProveedor: Boolean): Binary; const ImprimirPrecio: Boolean; const ImprimirRefProveedor: Boolean;
const VerObservaciones: Boolean; const VerIncidencias: Boolean): Binary;
var var
AReportGenerator : TRptAlbaranesProveedor; AReportGenerator : TRptAlbaranesProveedor;
begin begin
AReportGenerator := TRptAlbaranesProveedor.Create(nil); AReportGenerator := TRptAlbaranesProveedor.Create(nil);
try try
Result := AReportGenerator.GenerarAlbaran(ListaID, Result := AReportGenerator.GenerarAlbaran(ListaID, ImprimirPrecio, ImprimirRefProveedor, VerObservaciones, VerIncidencias);
ImprimirPrecio, ImprimirRefProveedor);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;
end; end;
function TsrvAlbaranesProveedor.GenerarInformeEnPDF(const ListaID: TIntegerArray; function TsrvAlbaranesProveedor.GenerarInformeEnPDF(const ListaID: TIntegerArray;
const ImprimirPrecio: Boolean; const ImprimirRefProveedor: Boolean): Binary; const ImprimirPrecio: Boolean; const ImprimirRefProveedor: Boolean;
const VerObservaciones: Boolean; const VerIncidencias: Boolean): Binary;
var var
AReportGenerator : TRptAlbaranesProveedor; AReportGenerator : TRptAlbaranesProveedor;
begin begin
AReportGenerator := TRptAlbaranesProveedor.Create(nil); AReportGenerator := TRptAlbaranesProveedor.Create(nil);
try try
Result := AReportGenerator.GenerarAlbaranEnPDF(ListaID, Result := AReportGenerator.GenerarAlbaranEnPDF(ListaID,
ImprimirPrecio, ImprimirRefProveedor); ImprimirPrecio, ImprimirRefProveedor, VerObservaciones, VerIncidencias);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;

38
Source/Modulos/Albaranes de proveedor/Views/uDialogOpcionesImpresionAlbaranesProveedor.dfm
View File

@ -1,9 +1,9 @@
inherited fDialogOpcionesImpresionAlbaranesProveedor: TfDialogOpcionesImpresionAlbaranesProveedor inherited fDialogOpcionesImpresionAlbaranesProveedor: TfDialogOpcionesImpresionAlbaranesProveedor
Caption = 'Opciones para albar'#225'n a proveedor' Caption = 'Opciones para albar'#225'n a proveedor'
ClientHeight = 186 ClientHeight = 247
ClientWidth = 393 ClientWidth = 393
ExplicitWidth = 399 ExplicitWidth = 399
ExplicitHeight = 218 ExplicitHeight = 279
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited Bevel2: TBevel inherited Bevel2: TBevel
@ -11,15 +11,15 @@ inherited fDialogOpcionesImpresionAlbaranesProveedor: TfDialogOpcionesImpresionA
ExplicitWidth = 393 ExplicitWidth = 393
end end
inherited Bevel3: TBevel inherited Bevel3: TBevel
Top = 142 Top = 203
Width = 393 Width = 393
ExplicitTop = 195 ExplicitTop = 195
ExplicitWidth = 393 ExplicitWidth = 393
end end
inherited pnlBotones: TPanel inherited pnlBotones: TPanel
Top = 144 Top = 205
Width = 393 Width = 393
ExplicitTop = 197 ExplicitTop = 144
ExplicitWidth = 393 ExplicitWidth = 393
inherited btnAceptar: TButton inherited btnAceptar: TButton
Left = 229 Left = 229
@ -49,9 +49,9 @@ inherited fDialogOpcionesImpresionAlbaranesProveedor: TfDialogOpcionesImpresionA
end end
inherited pnlCuerpo: TPanel inherited pnlCuerpo: TPanel
Width = 393 Width = 393
Height = 76 Height = 137
ExplicitWidth = 393 ExplicitWidth = 393
ExplicitHeight = 129 ExplicitHeight = 76
object cbVerPrecios: TCheckBox object cbVerPrecios: TCheckBox
AlignWithMargins = True AlignWithMargins = True
Left = 50 Left = 50
@ -66,7 +66,7 @@ inherited fDialogOpcionesImpresionAlbaranesProveedor: TfDialogOpcionesImpresionA
object cbVerRefProveedor: TCheckBox object cbVerRefProveedor: TCheckBox
AlignWithMargins = True AlignWithMargins = True
Left = 50 Left = 50
Top = 52 Top = 98
Width = 441 Width = 441
Height = 17 Height = 17
Caption = 'Mostrar las referencias de proveedor de los conceptos' Caption = 'Mostrar las referencias de proveedor de los conceptos'
@ -75,6 +75,28 @@ inherited fDialogOpcionesImpresionAlbaranesProveedor: TfDialogOpcionesImpresionA
TabOrder = 1 TabOrder = 1
Visible = False Visible = False
end end
object cbVerIncidencias: TCheckBox
AlignWithMargins = True
Left = 50
Top = 52
Width = 441
Height = 17
Caption = 'Mostrar las incidencias del albar'#225'n'
Checked = True
State = cbChecked
TabOrder = 2
end
object cbVerObservaciones: TCheckBox
AlignWithMargins = True
Left = 50
Top = 75
Width = 441
Height = 17
Caption = 'Mostrar las observaciones del albar'#225'n'
Checked = True
State = cbChecked
TabOrder = 3
end
end end
inherited ActionList1: TActionList inherited ActionList1: TActionList
Top = 16 Top = 16

11
Source/Modulos/Albaranes de proveedor/Views/uDialogOpcionesImpresionAlbaranesProveedor.pas
View File

@ -10,6 +10,8 @@ type
TfDialogOpcionesImpresionAlbaranesProveedor = class(TfDialogBase) TfDialogOpcionesImpresionAlbaranesProveedor = class(TfDialogBase)
cbVerPrecios: TCheckBox; cbVerPrecios: TCheckBox;
cbVerRefProveedor: TCheckBox; cbVerRefProveedor: TCheckBox;
cbVerIncidencias: TCheckBox;
cbVerObservaciones: TCheckBox;
procedure actAceptarExecute(Sender: TObject); procedure actAceptarExecute(Sender: TObject);
procedure actCancelarExecute(Sender: TObject); procedure actCancelarExecute(Sender: TObject);
private private
@ -18,13 +20,13 @@ type
{ Public declarations } { Public declarations }
end; end;
function ElegirOpcionesImpresionAlbaranProveedor(var AVerPrecios : Boolean; var AVerRefProveedor : Boolean): Boolean; function ElegirOpcionesImpresionAlbaranProveedor(var AVerPrecios : Boolean; var AVerRefProveedor : Boolean; var AVerObservaciones : Boolean; var AVerIncidencias : Boolean): Boolean;
implementation implementation
{$R *.dfm} {$R *.dfm}
function ElegirOpcionesImpresionAlbaranProveedor(var AVerPrecios : Boolean; var AVerRefProveedor : Boolean): Boolean; function ElegirOpcionesImpresionAlbaranProveedor(var AVerPrecios : Boolean; var AVerRefProveedor : Boolean; var AVerObservaciones : Boolean; var AVerIncidencias : Boolean): Boolean;
var var
AEditor : TfDialogOpcionesImpresionAlbaranesProveedor; AEditor : TfDialogOpcionesImpresionAlbaranesProveedor;
begin begin
@ -32,12 +34,17 @@ begin
try try
AEditor.cbVerPrecios.Checked := AVerPrecios; AEditor.cbVerPrecios.Checked := AVerPrecios;
AEditor.cbVerRefProveedor.Checked := AVerRefProveedor; AEditor.cbVerRefProveedor.Checked := AVerRefProveedor;
AEditor.cbVerObservaciones.Checked := AVerObservaciones;
AEditor.cbVerIncidencias.Checked := AVerIncidencias;
Result := (AEditor.ShowModal = mrOk); Result := (AEditor.ShowModal = mrOk);
if Result then if Result then
begin begin
AVerPrecios := AEditor.cbVerPrecios.Checked; AVerPrecios := AEditor.cbVerPrecios.Checked;
AVerRefProveedor := AEditor.cbVerRefProveedor.Checked; AVerRefProveedor := AEditor.cbVerRefProveedor.Checked;
AVerObservaciones := AEditor.cbVerObservaciones.Checked;
AVerIncidencias := AEditor.cbVerIncidencias.Checked;
end; end;
finally finally
AEditor.Release; AEditor.Release;

50
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm
View File

@ -166,6 +166,10 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
ImageIndex = 1 ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewDetallesAlbaranProveedor1: TfrViewDetallesAlbaranProveedor inline frViewDetallesAlbaranProveedor1: TfrViewDetallesAlbaranProveedor
Left = 0 Left = 0
Top = 0 Top = 0
@ -218,7 +222,13 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ExplicitTop = 0 ExplicitTop = 0
ExplicitWidth = 170 ExplicitWidth = 170
end end
inherited ToolButton13: TToolButton [7] inherited UpDown1: TUpDown
Left = 714
Top = 0
ExplicitLeft = 714
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
Wrap = True Wrap = True
@ -226,55 +236,47 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ExplicitTop = 0 ExplicitTop = 0
ExplicitHeight = 27 ExplicitHeight = 27
end end
inherited UpDown1: TUpDown [8] inherited ToolButton6: TToolButton [9]
Left = 0 Left = 0
Top = 27 Top = 27
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton6: TToolButton [9]
Left = 17
Top = 27
ExplicitLeft = 17
ExplicitTop = 27
end
inherited ToolButton7: TToolButton [10] inherited ToolButton7: TToolButton [10]
Left = 83 Left = 66
Top = 27 Top = 27
Wrap = False ExplicitLeft = 66
ExplicitLeft = 83
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton8: TToolButton [11] inherited ToolButton8: TToolButton [11]
Left = 150 Left = 133
Top = 27 Top = 27
ExplicitLeft = 150 ExplicitLeft = 133
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton12: TToolButton [12] inherited ToolButton12: TToolButton [12]
Left = 233 Left = 216
Top = 27 Top = 27
Wrap = False ExplicitLeft = 216
ExplicitLeft = 233
ExplicitTop = 27 ExplicitTop = 27
ExplicitHeight = 22 ExplicitHeight = 22
end end
inherited ToolButton9: TToolButton [13] inherited ToolButton9: TToolButton [13]
Left = 241 Left = 224
Top = 27 Top = 27
ExplicitLeft = 241 ExplicitLeft = 224
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton10: TToolButton [14] inherited ToolButton10: TToolButton [14]
Left = 386 Left = 369
Top = 27 Top = 27
ExplicitLeft = 386 ExplicitLeft = 369
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton11: TToolButton [15] inherited ToolButton11: TToolButton [15]
Left = 511 Left = 494
Top = 27 Top = 27
ExplicitLeft = 511 ExplicitLeft = 494
ExplicitTop = 27 ExplicitTop = 27
end end
end end
@ -309,6 +311,10 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0

16
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas
View File

@ -243,15 +243,19 @@ var
AllItems: Boolean; AllItems: Boolean;
FImprimirPrecios : Boolean; FImprimirPrecios : Boolean;
FImprimirRefProveedor : Boolean; FImprimirRefProveedor : Boolean;
FVerObservaciones : Boolean;
FVerIncidencias: Boolean;
begin begin
inherited; inherited;
AllItems := False; AllItems := False;
FImprimirPrecios := False; FImprimirPrecios := False;
FImprimirRefProveedor := True; FImprimirRefProveedor := True;
FVerObservaciones := True;
FVerIncidencias := False;
if ElegirOpcionesImpresionAlbaranProveedor(FImprimirPrecios, FImprimirRefProveedor) then if ElegirOpcionesImpresionAlbaranProveedor(FImprimirPrecios, FImprimirRefProveedor, FVerObservaciones, FVerIncidencias) then
FController.Preview(FAlbaran, AllItems, FImprimirPrecios, FImprimirRefProveedor); FController.Preview(FAlbaran, AllItems, FImprimirPrecios, FImprimirRefProveedor, FVerObservaciones, FVerIncidencias);
end; end;
procedure TfEditorAlbaranProveedor.OnClienteFinalChanged(Sender: TObject); procedure TfEditorAlbaranProveedor.OnClienteFinalChanged(Sender: TObject);
@ -318,15 +322,19 @@ var
AllItems: Boolean; AllItems: Boolean;
FImprimirPrecios : Boolean; FImprimirPrecios : Boolean;
FImprimirRefProveedor : Boolean; FImprimirRefProveedor : Boolean;
FVerObservaciones : Boolean;
FVerIncidencias: Boolean;
begin begin
inherited; inherited;
AllItems := False; AllItems := False;
FImprimirPrecios := False; FImprimirPrecios := False;
FImprimirRefProveedor := True; FImprimirRefProveedor := True;
FVerObservaciones := True;
FVerIncidencias := False;
if ElegirOpcionesImpresionAlbaranProveedor(FImprimirPrecios, FImprimirRefProveedor) then if ElegirOpcionesImpresionAlbaranProveedor(FImprimirPrecios, FImprimirRefProveedor, FVerObservaciones, FVerIncidencias) then
FController.Preview(FAlbaran, AllItems, FImprimirPrecios, FImprimirRefProveedor); FController.Preview(FAlbaran, AllItems, FImprimirPrecios, FImprimirRefProveedor, FVerObservaciones, FVerIncidencias);
end; end;
procedure TfEditorAlbaranProveedor.RecalcularPortePorUnidad; procedure TfEditorAlbaranProveedor.RecalcularPortePorUnidad;

25
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas
View File

@ -99,14 +99,18 @@ var
AAlbaranes : IBizAlbaranProveedor; AAlbaranes : IBizAlbaranProveedor;
FImprimirPrecios : Boolean; FImprimirPrecios : Boolean;
FImprimirRefProveedor : Boolean; FImprimirRefProveedor : Boolean;
FVerObservaciones : Boolean;
FVerIncidencias : Boolean;
begin begin
inherited; inherited;
FImprimirPrecios := False; FImprimirPrecios := False;
FImprimirRefProveedor := True; FImprimirRefProveedor := True;
FVerObservaciones := True;
FVerIncidencias := False;
if ViewGrid.NumSeleccionados = 1 then begin if ViewGrid.NumSeleccionados = 1 then begin
if ElegirOpcionesImpresionAlbaranProveedor(FImprimirPrecios, FImprimirRefProveedor) then if ElegirOpcionesImpresionAlbaranProveedor(FImprimirPrecios, FImprimirRefProveedor, FVerObservaciones, FVerIncidencias) then
FController.GenerarEmailAlbaran(FAlbaranes, FImprimirPrecios, FImprimirRefProveedor) FController.GenerarEmailAlbaran(FAlbaranes, FImprimirPrecios, FImprimirRefProveedor)
end end
else begin else begin
@ -116,7 +120,7 @@ begin
AAlbaranes := (Controller as IAlbaranesProveedorController).ExtraerSeleccionados(Albaranes) as IBizAlbaranProveedor; AAlbaranes := (Controller as IAlbaranesProveedorController).ExtraerSeleccionados(Albaranes) as IBizAlbaranProveedor;
if Assigned(AAlbaranes) then begin if Assigned(AAlbaranes) then begin
if ElegirOpcionesImpresionAlbaranProveedor(FImprimirPrecios, FImprimirRefProveedor) then if ElegirOpcionesImpresionAlbaranProveedor(FImprimirPrecios, FImprimirRefProveedor, FVerObservaciones, FVerIncidencias) then
if FController.EnviarEmailAlbaranes(AAlbaranes, FImprimirPrecios, FImprimirRefProveedor) then if FController.EnviarEmailAlbaranes(AAlbaranes, FImprimirPrecios, FImprimirRefProveedor) then
RefrescarInterno; RefrescarInterno;
end; end;
@ -284,12 +288,16 @@ var
AllItems: Boolean; AllItems: Boolean;
FImprimirPrecios : Boolean; FImprimirPrecios : Boolean;
FImprimirRefProveedor : Boolean; FImprimirRefProveedor : Boolean;
FImprimirObservaciones: Boolean;
FImprimirIncidencias: Boolean;
begin begin
AAlbaranes := Nil; AAlbaranes := Nil;
AllItems := False; AllItems := False;
FImprimirPrecios := False; FImprimirPrecios := False;
FImprimirRefProveedor := True; FImprimirRefProveedor := True;
FImprimirObservaciones := True;
FImprimirIncidencias := False;
if MultiSelect and Assigned(ViewGrid) then if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1); AllItems := (ViewGrid.NumSeleccionados > 1);
@ -317,8 +325,8 @@ begin
if Assigned(AAlbaranes) then if Assigned(AAlbaranes) then
begin begin
if ElegirOpcionesImpresionAlbaranProveedor(FImprimirPrecios, FImprimirRefProveedor) then if ElegirOpcionesImpresionAlbaranProveedor(FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
if FController.Print(AAlbaranes, AllItems, FImprimirPrecios, FImprimirRefProveedor) then if FController.Print(AAlbaranes, AllItems, FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
RefrescarInterno; RefrescarInterno;
end; end;
end; end;
@ -384,13 +392,16 @@ var
AllItems: Boolean; AllItems: Boolean;
FImprimirPrecios : Boolean; FImprimirPrecios : Boolean;
FImprimirRefProveedor : Boolean; FImprimirRefProveedor : Boolean;
FImprimirObservaciones: Boolean;
FImprimirIncidencias: Boolean;
begin begin
AAlbaranes := Nil; AAlbaranes := Nil;
AllItems := False; AllItems := False;
FImprimirPrecios := False; FImprimirPrecios := False;
FImprimirRefProveedor := True; FImprimirRefProveedor := True;
FImprimirObservaciones := True;
FImprimirIncidencias := False;
if MultiSelect and Assigned(ViewGrid) then if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1); AllItems := (ViewGrid.NumSeleccionados > 1);
@ -419,8 +430,8 @@ begin
if Assigned(AAlbaranes) then if Assigned(AAlbaranes) then
begin begin
if ElegirOpcionesImpresionAlbaranProveedor(FImprimirPrecios, FImprimirRefProveedor) then if ElegirOpcionesImpresionAlbaranProveedor(FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
FController.Preview(AAlbaranes, AllItems, FImprimirPrecios, FImprimirRefProveedor); FController.Preview(AAlbaranes, AllItems, FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
end; end;
end; end;
end; end;

1
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedorReport.dfm
View File

@ -4,7 +4,6 @@ inherited fEditorAlbaranesProveedorPreview: TfEditorAlbaranesProveedorPreview
TextHeight = 13 TextHeight = 13
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 540
object TBXItem58: TTBXItem [1] object TBXItem58: TTBXItem [1]
Action = actExportarRTF Action = actExportarRTF
Images = SmallImages Images = SmallImages

33
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedorReport.pas
View File

@ -19,14 +19,25 @@ type
private private
FVerPrecios : Boolean; FVerPrecios : Boolean;
FVerRefProveedor : Boolean; FVerRefProveedor : Boolean;
FVerObservaciones : Boolean;
FVerIncidencias : Boolean;
function GetVerPrecios: Boolean; function GetVerPrecios: Boolean;
function GetVerRefProveedor: Boolean; function GetVerRefProveedor: Boolean;
function GetVerIncidencias: Boolean;
function GetVerObservaciones: Boolean;
procedure SetVerPrecios(const Value: Boolean); procedure SetVerPrecios(const Value: Boolean);
procedure SetVerRefProveedor(const Value: Boolean); procedure SetVerRefProveedor(const Value: Boolean);
procedure SetObservaciones(const Value: Boolean);
procedure SetVerIncidencias(const Value: Boolean);
{ Private declarations } { Private declarations }
public public
property VerPrecios : Boolean read GetVerPrecios write SetVerPrecios; property VerPrecios : Boolean read GetVerPrecios write SetVerPrecios;
property VerRefProveedor : Boolean read GetVerRefProveedor write SetVerRefProveedor; property VerRefProveedor : Boolean read GetVerRefProveedor write SetVerRefProveedor;
property VerObservaciones : Boolean read GetVerObservaciones write SetObservaciones;
property VerIncidencias : Boolean read GetVerIncidencias write SetVerIncidencias;
end; end;
@ -53,6 +64,16 @@ begin
end; end;
function TfEditorAlbaranesProveedorPreview.GetVerIncidencias: Boolean;
begin
Result := FVerIncidencias;
end;
function TfEditorAlbaranesProveedorPreview.GetVerObservaciones: Boolean;
begin
Result := FVerObservaciones;
end;
function TfEditorAlbaranesProveedorPreview.GetVerPrecios: Boolean; function TfEditorAlbaranesProveedorPreview.GetVerPrecios: Boolean;
begin begin
Result := FVerPrecios; Result := FVerPrecios;
@ -63,6 +84,18 @@ begin
Result := FVerRefProveedor; Result := FVerRefProveedor;
end; end;
procedure TfEditorAlbaranesProveedorPreview.SetObservaciones(
const Value: Boolean);
begin
FVerObservaciones := Value;
end;
procedure TfEditorAlbaranesProveedorPreview.SetVerIncidencias(
const Value: Boolean);
begin
FVerIncidencias := Value;
end;
procedure TfEditorAlbaranesProveedorPreview.SetVerPrecios(const Value: Boolean); procedure TfEditorAlbaranesProveedorPreview.SetVerPrecios(const Value: Boolean);
begin begin
FVerPrecios := Value; FVerPrecios := Value;

103
Source/Modulos/Albaranes de proveedor/Views/uEditorElegirAlbaranesProveedor.dfm
View File

@ -2,57 +2,8 @@ inherited fEditorElegirAlbaranesProveedor: TfEditorElegirAlbaranesProveedor
Caption = 'Seleccionar albar'#225'n de proveedor' Caption = 'Seleccionar albar'#225'n de proveedor'
ClientWidth = 790 ClientWidth = 790
ExplicitWidth = 798 ExplicitWidth = 798
ExplicitHeight = 538
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object pnlHeader: TPanel
Left = 0
Top = 0
Width = 656
Height = 64
Align = alTop
BevelOuter = bvNone
Color = clWhite
Padding.Left = 25
Padding.Top = 8
Padding.Right = 25
Padding.Bottom = 8
ParentBackground = False
TabOrder = 5
object lblTitle: TLabel
AlignWithMargins = True
Left = 25
Top = 8
Width = 606
Height = 13
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 8
Align = alTop
Caption = 'Seleccione el albar'#225'n de proveedor'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
ExplicitWidth = 135
end
object lblComments: TLabel
AlignWithMargins = True
Left = 50
Top = 29
Width = 581
Height = 27
Margins.Left = 25
Margins.Top = 0
Margins.Right = 0
Align = alClient
ExplicitWidth = 3
ExplicitHeight = 13
end
end
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 790 Width = 790
Visible = False Visible = False
@ -63,14 +14,14 @@ inherited fEditorElegirAlbaranesProveedor: TfEditorElegirAlbaranesProveedor
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Top = 87 Top = 91
Width = 790 Width = 790
ExplicitTop = 87 ExplicitTop = 91
ExplicitWidth = 790 ExplicitWidth = 790
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
Left = 427 Left = 427
ExplicitLeft = 427 ExplicitLeft = 427
ExplicitWidth = 126 ExplicitWidth = 228
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -128,6 +79,54 @@ inherited fEditorElegirAlbaranesProveedor: TfEditorElegirAlbaranesProveedor
Width = 790 Width = 790
ExplicitWidth = 790 ExplicitWidth = 790
end end
object pnlHeader: TPanel [3]
Left = 0
Top = 27
Width = 790
Height = 64
Align = alTop
BevelOuter = bvNone
Color = clWhite
Padding.Left = 25
Padding.Top = 8
Padding.Right = 25
Padding.Bottom = 8
ParentBackground = False
TabOrder = 4
object lblTitle: TLabel
AlignWithMargins = True
Left = 25
Top = 8
Width = 740
Height = 13
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 8
Align = alTop
Caption = 'Seleccione el albar'#225'n de proveedor'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
ExplicitWidth = 198
end
object lblComments: TLabel
AlignWithMargins = True
Left = 50
Top = 29
Width = 715
Height = 24
Margins.Left = 25
Margins.Top = 0
Margins.Right = 0
Align = alClient
ExplicitWidth = 3
ExplicitHeight = 13
end
end
inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4] inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4]
Left = 0 Left = 0
Top = 449 Top = 449

39
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm
View File

@ -37,10 +37,6 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
end> end>
DataController.OnCompare = cxGridViewDataControllerCompare DataController.OnCompare = cxGridViewDataControllerCompare
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
inherited cxGridViewICONO: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
object cxGridViewNUM_COPIAS: TcxGridDBColumn object cxGridViewNUM_COPIAS: TcxGridDBColumn
DataBinding.FieldName = 'NUM_COPIAS' DataBinding.FieldName = 'NUM_COPIAS'
MinWidth = 30 MinWidth = 30
@ -213,24 +209,22 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
Width = 188 Width = 188
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 210 Left = 229
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 210 ExplicitLeft = 229
ExplicitWidth = 294 ExplicitWidth = 294
Width = 294 Width = 294
end end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
Left = 447 Left = 487
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 447 ExplicitLeft = 487
ExplicitWidth = 215
Width = 215
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@ -535,6 +529,31 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
AE426082} AE426082}
Name = 'PngImage3' Name = 'PngImage3'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000001974455874536F6674776172650041646F626520496D616765526561
647971C9653C000002034944415478DA63FCFFFF3FC394C53BFE33900172623D
1819610600394469FAF3F71FC3EF3F7F19ACFDF319CEED98866A806DD17E14C5
87FB1CC134B2F8AE761B86B9ABF632CC5BBA09D3007CE0D7EFBF609B4178C986
83D80D40770136B0AED69461E59623B80D80391B04FE01E5FEFCF907B7D9B7FE
04C3AA4A6386B53B8EE13700E692BD9D760CCEE587E03607359F66585A6AC0B0
69CF49FC06C06CFE7CFB30C3CBC5B1F87CE48261C0C15E0706FBE20360D999EC
710C5CD2D60C3C37FF333C0DCF66D0B7B1038B7F7D709FE14E4B3CC385339718
300C00391BE6E7676D6A0C5C6FCD19642EEF60782BABC1F035CF9581E3D53B86
A78DEB186E73A9327C927A88302023CA8DC1B1F4208AFB402E502EB9C0702FC5
9A81E3F22D86DF02620CAF9EBF6360B6546538EBD7C3C0BC230D6140729833D8
5658A887B49E011BA0D5FE98E1C1A54686CF213D0C1FDE7D61F8CCC8C2603A2D
8861E58F4406E6EDA90803E2821C50A22CB2F33CD800F9D28B0C379AA2197EAF
3BC8F0919191E1D3BB9F0C2C527C0C4FF36730301F29461810E587F03BDCA019
460CA2FFBC18DEEDDCC870F7CD6706E33667861F4F5E331CE9BFC0F0894B8A81
C1E83BC280502F6B86D5DB8EA28481D3B55486FFFBFE313CB8FE8CE1715C25C3
1F73482C307CFEC4C0BC643A03E39B3308034009031D68F3BE61B07DB28781E9
E36F86DF060298F2BFBE4700003F4A71F77ECF59220000000049454E44AE4260
82}
Name = 'PngImage4'
Background = clWindow
end> end>
Bitmap = {} Bitmap = {}
end end

4
Source/Modulos/Contactos/Controller/Contactos_controller.dpk
View File

@ -87,6 +87,8 @@ contains
uAgentesController in 'uAgentesController.pas', uAgentesController in 'uAgentesController.pas',
uIEditorAgente in 'View\uIEditorAgente.pas', uIEditorAgente in 'View\uIEditorAgente.pas',
uIEditorAgentes in 'View\uIEditorAgentes.pas', uIEditorAgentes in 'View\uIEditorAgentes.pas',
uIEditorElegirAgentes in 'View\uIEditorElegirAgentes.pas'; uIEditorElegirAgentes in 'View\uIEditorElegirAgentes.pas',
uTiposClienteController in 'uTiposClienteController.pas',
uIEditorTiposCliente in 'View\uIEditorTiposCliente.pas';
end. end.

14
Source/Modulos/Contactos/Controller/Contactos_controller.dproj
View File

@ -43,6 +43,18 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclDebugExpert100.bpl">JCL Debug IDE extension</Excluded_Packages> <Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclDebugExpert100.bpl">JCL Debug IDE extension</Excluded_Packages>
<Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclProjectAnalysisExpert100.bpl">JCL Project Analyzer</Excluded_Packages> <Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclProjectAnalysisExpert100.bpl">JCL Project Analyzer</Excluded_Packages>
<Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclFavoriteFoldersExpert100.bpl">JCL Open and Save IDE dialogs with favorite folders</Excluded_Packages> <Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclFavoriteFoldersExpert100.bpl">JCL Open and Save IDE dialogs with favorite folders</Excluded_Packages>
@ -66,6 +78,7 @@
<DCCReference Include="uGruposProveedorController.pas" /> <DCCReference Include="uGruposProveedorController.pas" />
<DCCReference Include="uPersonalContactoController.pas" /> <DCCReference Include="uPersonalContactoController.pas" />
<DCCReference Include="uProveedoresController.pas" /> <DCCReference Include="uProveedoresController.pas" />
<DCCReference Include="uTiposClienteController.pas" />
<DCCReference Include="View\adortl.dcp" /> <DCCReference Include="View\adortl.dcp" />
<DCCReference Include="View\ApplicationBase.dcp" /> <DCCReference Include="View\ApplicationBase.dcp" />
<DCCReference Include="View\Base.dcp" /> <DCCReference Include="View\Base.dcp" />
@ -109,6 +122,7 @@
<DCCReference Include="View\uIEditorPersonalContacto.pas" /> <DCCReference Include="View\uIEditorPersonalContacto.pas" />
<DCCReference Include="View\uIEditorProveedor.pas" /> <DCCReference Include="View\uIEditorProveedor.pas" />
<DCCReference Include="View\uIEditorProveedores.pas" /> <DCCReference Include="View\uIEditorProveedores.pas" />
<DCCReference Include="View\uIEditorTiposCliente.pas" />
<DCCReference Include="View\vcl.dcp" /> <DCCReference Include="View\vcl.dcp" />
<DCCReference Include="View\vclactnband.dcp" /> <DCCReference Include="View\vclactnband.dcp" />
<DCCReference Include="View\vcldb.dcp" /> <DCCReference Include="View\vcldb.dcp" />

BIN
Source/Modulos/Contactos/Controller/Contactos_controller.identcache
View File

Binary file not shown.

26
Source/Modulos/Contactos/Controller/View/uIEditorTiposCliente.pas Normal file
View File

@ -0,0 +1,26 @@
unit uIEditorTiposCliente;
interface
uses
uEditorDBBase, uBizTiposCliente, uTiposClienteController, uGUIBase;
type
IEditorTiposCliente = interface(ICustomEditor)
['{144F2713-B4CC-47EA-B3F0-40E1674F93EF}']
function ShowModal : Integer;
procedure Show;
function GetTiposCliente: IBizTipoCliente;
procedure SetTiposCliente(const Value: IBizTipoCliente);
property TiposCliente: IBizTipoCliente read GetTiposCliente write SetTiposCliente;
function GetController : ITiposClienteController;
procedure SetController (const Value : ITiposClienteController);
property Controller : ITiposClienteController read GetController write SetController;
end;
implementation
end.

219
Source/Modulos/Contactos/Controller/uTiposClienteController.pas Normal file
View File

@ -0,0 +1,219 @@
unit uTiposClienteController;
interface
uses
Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem,
uIDataModuleClientes, uBizTiposCliente;
type
ITiposClienteController = interface(IControllerBase)
['{2A0278F1-6C90-4040-84A7-BB91C5700239}']
function BuscarTodos: IBizTipoCliente;
procedure VerTodos(ATiposCliente: IBizTipoCliente);
procedure Anadir(ATipoCliente : IBizTipoCliente);
function Eliminar(ATipoCliente : IBizTipoCliente): Boolean;
function Guardar(ATipoCliente : IBizTipoCliente): Boolean;
procedure DescartarCambios(ATipoCliente : IBizTipoCliente);
function Localizar(ATiposCliente: IBizTipoCliente; ADescripcion:String): Boolean;
function DarListaTiposCliente: TStringList;
end;
TTiposClienteController = class(TControllerBase, ITiposClienteController)
protected
FDataModule : IDataModuleClientes;
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
function ValidarTipoCliente(ATipoCliente: IBizTipoCliente): Boolean;
procedure AsignarDataModule; virtual;
public
constructor Create; override;
destructor Destroy; override;
function Eliminar(ATipoCliente : IBizTipoCliente): Boolean;
function Guardar(ATipoCliente : IBizTipoCliente): Boolean;
procedure DescartarCambios(ATipoCliente : IBizTipoCliente); virtual;
procedure Anadir(ATipoCliente : IBizTipoCliente);
function BuscarTodos: IBizTipoCliente;
procedure VerTodos(ATiposCliente: IBizTipoCliente);
function Localizar(ATiposCliente: IBizTipoCliente; ADescripcion:String): Boolean;
function DarListaTiposCliente: TStringList;
end;
implementation
uses
cxControls, DB, uEditorRegistryUtils,
uIEditorTiposCliente, uDataModuleClientes,
uDAInterfaces, uDataTableUtils,
uDateUtils, uROTypes, DateUtils, Controls, Windows, schContactosClient_Intf;
{ TTiposClienteController }
procedure TTiposClienteController.Anadir(ATipoCliente: IBizTipoCliente);
begin
ATipoCliente.Insert;
end;
procedure TTiposClienteController.AsignarDataModule;
begin
FDataModule := TDataModuleClientes.Create(Nil);
end;
function TTiposClienteController.BuscarTodos: IBizTipoCliente;
begin
Result := FDataModule.GetTiposCliente;
end;
constructor TTiposClienteController.Create;
begin
inherited;
AsignarDataModule;
end;
function TTiposClienteController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
begin
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
end;
function TTiposClienteController.DarListaTiposCliente: TStringList;
var
ATiposCliente: IBizTipoCliente;
begin
ATiposCliente := BuscarTodos;
ATiposCliente.DataTable.Active := True;
Result := TStringList.Create;
try
with Result do
begin
ATiposCliente.DataTable.First;
while not ATiposCliente.DataTable.EOF do
begin
Add(ATiposCliente.DESCRIPCION);
ATiposCliente.DataTable.Next;
end;
end;
finally
ATiposCliente := NIL;
end;
end;
procedure TTiposClienteController.DescartarCambios(ATipoCliente: IBizTipoCliente);
begin
if not Assigned(ATipoCliente) then
raise Exception.Create ('GrupoCliente no asignado');
ShowHourglassCursor;
try
if (ATipoCliente.State in dsEditModes) then
ATipoCliente.Cancel;
ATipoCliente.DataTable.CancelUpdates;
finally
HideHourglassCursor;
end;
end;
destructor TTiposClienteController.Destroy;
begin
FDataModule := Nil;
inherited;
end;
function TTiposClienteController.ValidarTipoCliente(ATipoCliente: IBizTipoCliente): Boolean;
begin
if not Assigned(ATipoCliente) then
raise Exception.Create ('TipoCliente no asignada');
if (ATipoCliente.DataTable.State in dsEditModes) then
ATipoCliente.DataTable.Post;
if Length(ATipoCliente.DESCRIPCION) = 0 then
raise Exception.Create('Debe indicar al menos la descripción de este tipo.');
Result := True;
end;
procedure TTiposClienteController.VerTodos(ATiposCliente: IBizTipoCliente);
var
AEditor : IEditorTiposCliente;
begin
AEditor := NIL;
CreateEditor('EditorTiposCliente', IEditorTiposCliente, AEditor);
if Assigned(AEditor) then
try
AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
AEditor.TiposCliente := ATiposCliente;
AEditor.ShowModal;
finally
AEditor.Release;
AEditor := NIL;
end;
end;
function TTiposClienteController.Eliminar(ATipoCliente: IBizTipoCliente): Boolean;
begin
if not Assigned(ATipoCliente) then
raise Exception.Create ('TipoCliente no asignada');
ShowHourglassCursor;
try
if (ATipoCliente.State in dsEditModes) then
ATipoCliente.Cancel;
ATipoCliente.Delete;
ATipoCliente.DataTable.ApplyUpdates;
HideHourglassCursor;
Result := True;
finally
HideHourglassCursor;
end;
end;
procedure TTiposClienteController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
begin
inherited;
//
end;
function TTiposClienteController.Guardar(ATipoCliente: IBizTipoCliente): Boolean;
begin
Result := False;
if ValidarTipoCliente(ATipoCliente) then
begin
ShowHourglassCursor;
try
if (ATipoCliente.DataTable.State in dsEditModes) then
ATipoCliente.DataTable.Post;
ATipoCliente.DataTable.ApplyUpdates;
Result := True;
finally
HideHourglassCursor;
end;
end;
end;
function TTiposClienteController.Localizar(ATiposCliente: IBizTipoCliente; ADescripcion: String): Boolean;
begin
Result := True;
ShowHourglassCursor;
try
with ATiposCliente.DataTable do
begin
DisableControls;
First;
if not Locate(fld_TiposClienteDESCRIPCION, ADescripcion, []) then
Result := False;
EnableControls;
end;
finally
HideHourglassCursor;
end;
end;
end.

40
Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
View File

@ -23,6 +23,9 @@ inherited DataModuleClientes: TDataModuleClientes
DataSet = tbl_PersonalContacto.Dataset DataSet = tbl_PersonalContacto.Dataset
Left = 440 Left = 440
end end
inherited ds_ListaAnosObjetivosAlb: TDADataSource
DataSet = tbl_ListaAnosObjetivosAlb.Dataset
end
object tbl_Clientes: TDAMemDataTable object tbl_Clientes: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
@ -278,6 +281,11 @@ inherited DataModuleClientes: TDataModuleClientes
DataType = datSmallInt DataType = datSmallInt
DisplayLabel = #191'Felicitaci'#243'n?' DisplayLabel = #191'Felicitaci'#243'n?'
DictionaryEntry = 'Clientes_FELICITACION' DictionaryEntry = 'Clientes_FELICITACION'
end
item
Name = 'TIPO_CLIENTE'
DataType = datString
Size = 255
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
@ -463,4 +471,36 @@ inherited DataModuleClientes: TDataModuleClientes
Left = 448 Left = 448
Top = 336 Top = 336
end end
object tbl_TiposCliente: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CLIENTES_TIPOS_ID'
Required = True
DictionaryEntry = 'TiposCliente_ID'
InPrimaryKey = True
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DisplayLabel = 'TiposCliente_DESCRIPCION'
DictionaryEntry = 'TiposCliente_DESCRIPCION'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Contactos
LogicalName = 'TiposCliente'
IndexDefs = <>
Left = 560
Top = 80
end
object ds_TiposCliente: TDADataSource
DataSet = tbl_TiposCliente.Dataset
DataTable = tbl_TiposCliente
Left = 560
Top = 32
end
end end

19
Source/Modulos/Contactos/Data/uDataModuleClientes.pas
View File

@ -8,7 +8,7 @@ uses
uDACDSDataTable, uDABINAdapter, uRORemoteService, uDACDSDataTable, uDABINAdapter, uRORemoteService,
uROClient, uROBinMessage, uROWinInetHttpChannel, uROClient, uROBinMessage, uROWinInetHttpChannel,
uBizClientesDescuentos, uBizClientesDescuentosArt, uBizClientesDescuentos, uBizClientesDescuentosArt,
uBizGruposCliente, uBizContactos, uDataModuleContactos, uBizGruposCliente, uBizTiposCliente, uBizContactos, uDataModuleContactos,
uIDataModuleClientes, uDADesigntimeCall, uDARemoteDataAdapter, uIDataModuleClientes, uDADesigntimeCall, uDARemoteDataAdapter,
uDADataStreamer, uRODynamicRequest, uDAInterfaces, uDAMemDataTable, uDADataStreamer, uRODynamicRequest, uDAInterfaces, uDAMemDataTable,
uDABin2DataStreamer, uControllerBase, uBizContactosDatosBancarios, uDABin2DataStreamer, uControllerBase, uBizContactosDatosBancarios,
@ -24,6 +24,8 @@ type
ds_GruposCliente: TDADataSource; ds_GruposCliente: TDADataSource;
tbl_ClientesDescuentosArticulos: TDAMemDataTable; tbl_ClientesDescuentosArticulos: TDAMemDataTable;
ds_ClientesDescuentosArticulos: TDADataSource; ds_ClientesDescuentosArticulos: TDADataSource;
tbl_TiposCliente: TDAMemDataTable;
ds_TiposCliente: TDADataSource;
protected protected
function _GetDescuentos: IBizClienteDescuentos; function _GetDescuentos: IBizClienteDescuentos;
function _GetDescuentosArticulos: IBizClienteDescuentosArticulos; function _GetDescuentosArticulos: IBizClienteDescuentosArticulos;
@ -34,6 +36,7 @@ type
function GetItemsTiendaWeb : IBizCliente; function GetItemsTiendaWeb : IBizCliente;
function GetItemsFelicitacion : IBizCliente; function GetItemsFelicitacion : IBizCliente;
function GetGruposCliente : IBizGrupoCliente; function GetGruposCliente : IBizGrupoCliente;
function GetTiposCliente : IBizTipoCliente;
end; end;
implementation implementation
@ -151,6 +154,20 @@ begin
end; end;
end; end;
function TDataModuleClientes.GetTiposCliente: IBizTipoCliente;
var
ATipoCliente : TDAMemDataTable;
begin
ShowHourglassCursor;
try
ATipoCliente := CloneDataTable(tbl_TiposCliente);
ATipoCliente.BusinessRulesID := BIZ_CLIENT_TIPOSCLIENTE;
Result := (ATipoCliente as IBizTipoCliente);
finally
HideHourglassCursor;
end;
end;
function TDataModuleClientes.NewItem: IBizCliente; function TDataModuleClientes.NewItem: IBizCliente;
begin begin
Result := GetItem(ID_NULO) Result := GetItem(ID_NULO)

3
Source/Modulos/Contactos/Model/Contactos_model.dpk
View File

@ -59,6 +59,7 @@ contains
uBizAgentesComisiones in 'uBizAgentesComisiones.pas', uBizAgentesComisiones in 'uBizAgentesComisiones.pas',
uBizClientesDescuentos in 'uBizClientesDescuentos.pas', uBizClientesDescuentos in 'uBizClientesDescuentos.pas',
uBizAgentesObjetivosFacturas in 'uBizAgentesObjetivosFacturas.pas', uBizAgentesObjetivosFacturas in 'uBizAgentesObjetivosFacturas.pas',
uBizAgentesObjetivosAlbaranes in 'uBizAgentesObjetivosAlbaranes.pas'; uBizAgentesObjetivosAlbaranes in 'uBizAgentesObjetivosAlbaranes.pas',
uBizTiposCliente in 'uBizTiposCliente.pas';
end. end.

1
Source/Modulos/Contactos/Model/Contactos_model.dproj
View File

@ -80,6 +80,7 @@
<DCCReference Include="uBizGruposCliente.pas" /> <DCCReference Include="uBizGruposCliente.pas" />
<DCCReference Include="uBizGruposEmpleado.pas" /> <DCCReference Include="uBizGruposEmpleado.pas" />
<DCCReference Include="uBizGruposProveedor.pas" /> <DCCReference Include="uBizGruposProveedor.pas" />
<DCCReference Include="uBizTiposCliente.pas" />
<DCCReference Include="vcl.dcp" /> <DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" /> <DCCReference Include="vcldb.dcp" />
</ItemGroup> </ItemGroup>

BIN
Source/Modulos/Contactos/Model/Contactos_model.identcache
View File

Binary file not shown.

4
Source/Modulos/Contactos/Model/Data/uIDataModuleClientes.pas
View File

@ -3,7 +3,8 @@ unit uIDataModuleClientes;
interface interface
uses uses
uBizContactos, uIDataModuleContactos, uBizGruposCliente, uBizContactosDatosBancarios; uBizContactos, uIDataModuleContactos, uBizGruposCliente,
uBizTiposCliente, uBizContactosDatosBancarios;
type type
IDataModuleClientes = interface(IDataModuleContactos) IDataModuleClientes = interface(IDataModuleContactos)
@ -17,6 +18,7 @@ type
function GetItemsTiendaWeb : IBizCliente; function GetItemsTiendaWeb : IBizCliente;
function GetItemsFelicitacion : IBizCliente; function GetItemsFelicitacion : IBizCliente;
function GetGruposCliente : IBizGrupoCliente; function GetGruposCliente : IBizGrupoCliente;
function GetTiposCliente : IBizTipoCliente;
end; end;

231
Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
View File

@ -9,27 +9,28 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Contactos = '{291D5023-2485-4738-BA4B-8CFD1087564D}'; RID_Contactos = '{FC98FC9D-2174-484A-84DB-29A5FF522A49}';
RID_GruposCliente = '{3202886D-ABFE-4D93-8B7C-DCC767B8E13E}'; RID_GruposCliente = '{FAE5A018-A73D-4F40-BC2B-D43431C80929}';
RID_DatosBancarios = '{48378F5C-39D8-4F3E-AF60-30E3B15C1BD6}'; RID_DatosBancarios = '{204762D1-0752-48E4-8D13-73A6E478ABC2}';
RID_Clientes = '{6BB9F834-2CD8-4CE1-AEF2-2F632139E4E6}'; RID_Clientes = '{9BE4C879-165C-4D3F-9BBA-526B77860B3F}';
RID_Proveedores = '{64948969-32BB-4EE9-B51E-798A988B6BB9}'; RID_Proveedores = '{7B7762CE-6B42-4B50-A194-78BE5FFB71E5}';
RID_Empleados = '{EC0F7AAD-8090-489F-A5C7-004A80A7682A}'; RID_Empleados = '{0B610962-07D1-4C7D-BC7B-65AC8824DDC4}';
RID_DireccionesContacto = '{497F22D7-6679-4BF4-B909-4F0DD68F1B0D}'; RID_DireccionesContacto = '{68C042FD-68F6-440A-B10F-0314491B1100}';
RID_ClientesDescuentos = '{DD4D5290-DC73-45F2-AA7D-FB799D9AE6AE}'; RID_ClientesDescuentos = '{845D6324-B528-4907-923D-7A1E0517F59A}';
RID_GruposProveedor = '{3C14F4A5-17DB-44DC-8E26-0AD2F3231245}'; RID_GruposProveedor = '{B5573F10-E1CB-400B-8595-F5E7E6812CAE}';
RID_GruposEmpleado = '{D7511C4F-EE3D-4C78-B5EF-A3935874DD92}'; RID_GruposEmpleado = '{6EF2382C-65F9-4429-8EFE-7BBE4F35FEED}';
RID_Contactos_Refresh = '{76C8D865-64CD-4DD5-8A80-F82AA6683E27}'; RID_Contactos_Refresh = '{5A18AE89-0712-468F-A606-94C4B8BBF4DE}';
RID_ContratosEmpleados = '{6DB2FA18-7E29-43FF-8D71-67A5481B8E84}'; RID_ContratosEmpleados = '{D4DDC2BA-74CF-4EBC-AEF9-476BDE3FDFE7}';
RID_DescripcionesProveedores = '{D3734658-7727-47E1-9C43-AB4D4BD58EF4}'; RID_DescripcionesProveedores = '{8F5E1C48-6D57-4DBB-9621-EEEF38163532}';
RID_PersonalContacto = '{B3F92D0E-5DCC-4723-BDC0-E2045C0B4F74}'; RID_PersonalContacto = '{8CBD048B-EEF4-46F3-A027-B66E39125D87}';
RID_Agentes_Comisiones = '{716B55E8-F461-4131-A90A-3E5291CF1319}'; RID_Agentes_Comisiones = '{3FEA025A-89BF-4B2F-84DB-29BECC676846}';
RID_ListaAnosObjetivosAlb = '{492D6536-8A33-44D0-86B9-A4512BD54E62}'; RID_ListaAnosObjetivosAlb = '{67328F62-088C-4B54-A4EA-256CEAEE2D1A}';
RID_Agentes = '{271490F9-AFF6-4904-9F85-097B4CB0AAA2}'; RID_Agentes = '{8F775E20-FF8D-4966-94D4-CAA4B3EDE612}';
RID_ClientesDescuentosArticulos = '{20759DA3-0B2D-4A5D-852F-6DB6725E7D19}'; RID_ClientesDescuentosArticulos = '{5A7F7F18-FFC7-4BBD-9632-0EF2C3A855C9}';
RID_Agentes_Objetivos_albaranes = '{DFE878FE-9DF3-46C4-BFF1-90CF546A31EF}'; RID_Agentes_Objetivos_albaranes = '{6C51A34C-790F-477E-8F90-341B0FE11746}';
RID_Agentes_Objetivos_facturas = '{73C0859D-9EFA-45A8-AA4C-F8F6572C985B}'; RID_Agentes_Objetivos_facturas = '{F8E77A40-78F2-44F5-BA10-4DA0BF8FE0CE}';
RID_ListaAnosObjetivosFac = '{5A1B02F6-EA0E-4B3D-8067-DAAA0FE5178D}'; RID_ListaAnosObjetivosFac = '{4A823B2D-CD57-404E-A7DD-587779C21C84}';
RID_TiposCliente = '{E6135AF1-7B14-4726-979D-7DDC74BFB4D2}';
{ Data table names } { Data table names }
nme_Contactos = 'Contactos'; nme_Contactos = 'Contactos';
@ -53,6 +54,7 @@ const
nme_Agentes_Objetivos_albaranes = 'Agentes_Objetivos_albaranes'; nme_Agentes_Objetivos_albaranes = 'Agentes_Objetivos_albaranes';
nme_Agentes_Objetivos_facturas = 'Agentes_Objetivos_facturas'; nme_Agentes_Objetivos_facturas = 'Agentes_Objetivos_facturas';
nme_ListaAnosObjetivosFac = 'ListaAnosObjetivosFac'; nme_ListaAnosObjetivosFac = 'ListaAnosObjetivosFac';
nme_TiposCliente = 'TiposCliente';
{ Contactos fields } { Contactos fields }
fld_ContactosID = 'ID'; fld_ContactosID = 'ID';
@ -177,6 +179,7 @@ const
fld_ClientesCODIGO_ASIGNADO = 'CODIGO_ASIGNADO'; fld_ClientesCODIGO_ASIGNADO = 'CODIGO_ASIGNADO';
fld_ClientesDESCUENTO = 'DESCUENTO'; fld_ClientesDESCUENTO = 'DESCUENTO';
fld_ClientesFELICITACION = 'FELICITACION'; fld_ClientesFELICITACION = 'FELICITACION';
fld_ClientesTIPO_CLIENTE = 'TIPO_CLIENTE';
{ Clientes field indexes } { Clientes field indexes }
idx_ClientesID = 0; idx_ClientesID = 0;
@ -221,6 +224,7 @@ const
idx_ClientesCODIGO_ASIGNADO = 39; idx_ClientesCODIGO_ASIGNADO = 39;
idx_ClientesDESCUENTO = 40; idx_ClientesDESCUENTO = 40;
idx_ClientesFELICITACION = 41; idx_ClientesFELICITACION = 41;
idx_ClientesTIPO_CLIENTE = 42;
{ Proveedores fields } { Proveedores fields }
fld_ProveedoresID = 'ID'; fld_ProveedoresID = 'ID';
@ -664,10 +668,18 @@ const
{ ListaAnosObjetivosFac field indexes } { ListaAnosObjetivosFac field indexes }
idx_ListaAnosObjetivosFacANO = 0; idx_ListaAnosObjetivosFacANO = 0;
{ TiposCliente fields }
fld_TiposClienteID = 'ID';
fld_TiposClienteDESCRIPCION = 'DESCRIPCION';
{ TiposCliente field indexes }
idx_TiposClienteID = 0;
idx_TiposClienteDESCRIPCION = 1;
type type
{ IContactos } { IContactos }
IContactos = interface(IDAStronglyTypedDataTable) IContactos = interface(IDAStronglyTypedDataTable)
['{1CBC2D1C-3449-4C91-B2C6-6AF07E1EABCB}'] ['{DFDDB687-2921-467A-BB23-198E5B922F84}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -966,7 +978,7 @@ type
{ IGruposCliente } { IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable) IGruposCliente = interface(IDAStronglyTypedDataTable)
['{B9DBD6F1-AE60-44F7-8E0B-A6093CD02F7E}'] ['{1AE838BB-826E-4CA2-AAA1-D6049D08A77B}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1013,7 +1025,7 @@ type
{ IDatosBancarios } { IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable) IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{B6A49401-06FA-450A-B833-31DB18866E07}'] ['{AEB463FE-AD2E-442F-BAAB-D8AD664AC39D}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1144,7 +1156,7 @@ type
{ IClientes } { IClientes }
IClientes = interface(IDAStronglyTypedDataTable) IClientes = interface(IDAStronglyTypedDataTable)
['{1B30B5ED-D974-4FF4-ACEF-83E365A1D686}'] ['{4F9EC316-7AC6-4C71-968A-5BAA61CAFCA4}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1313,6 +1325,10 @@ type
procedure SetFELICITACIONValue(const aValue: SmallInt); procedure SetFELICITACIONValue(const aValue: SmallInt);
function GetFELICITACIONIsNull: Boolean; function GetFELICITACIONIsNull: Boolean;
procedure SetFELICITACIONIsNull(const aValue: Boolean); procedure SetFELICITACIONIsNull(const aValue: Boolean);
function GetTIPO_CLIENTEValue: String;
procedure SetTIPO_CLIENTEValue(const aValue: String);
function GetTIPO_CLIENTEIsNull: Boolean;
procedure SetTIPO_CLIENTEIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -1400,6 +1416,8 @@ type
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property FELICITACION: SmallInt read GetFELICITACIONValue write SetFELICITACIONValue; property FELICITACION: SmallInt read GetFELICITACIONValue write SetFELICITACIONValue;
property FELICITACIONIsNull: Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull; property FELICITACIONIsNull: Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull;
property TIPO_CLIENTE: String read GetTIPO_CLIENTEValue write SetTIPO_CLIENTEValue;
property TIPO_CLIENTEIsNull: Boolean read GetTIPO_CLIENTEIsNull write SetTIPO_CLIENTEIsNull;
end; end;
{ TClientesDataTableRules } { TClientesDataTableRules }
@ -1576,6 +1594,10 @@ type
procedure SetFELICITACIONValue(const aValue: SmallInt); virtual; procedure SetFELICITACIONValue(const aValue: SmallInt); virtual;
function GetFELICITACIONIsNull: Boolean; virtual; function GetFELICITACIONIsNull: Boolean; virtual;
procedure SetFELICITACIONIsNull(const aValue: Boolean); virtual; procedure SetFELICITACIONIsNull(const aValue: Boolean); virtual;
function GetTIPO_CLIENTEValue: String; virtual;
procedure SetTIPO_CLIENTEValue(const aValue: String); virtual;
function GetTIPO_CLIENTEIsNull: Boolean; virtual;
procedure SetTIPO_CLIENTEIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -1662,6 +1684,8 @@ type
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property FELICITACION: SmallInt read GetFELICITACIONValue write SetFELICITACIONValue; property FELICITACION: SmallInt read GetFELICITACIONValue write SetFELICITACIONValue;
property FELICITACIONIsNull: Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull; property FELICITACIONIsNull: Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull;
property TIPO_CLIENTE: String read GetTIPO_CLIENTEValue write SetTIPO_CLIENTEValue;
property TIPO_CLIENTEIsNull: Boolean read GetTIPO_CLIENTEIsNull write SetTIPO_CLIENTEIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -1671,7 +1695,7 @@ type
{ IProveedores } { IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable) IProveedores = interface(IDAStronglyTypedDataTable)
['{36A8200A-5E50-497C-A0F2-BAFAD4B5A2C9}'] ['{62DCC209-287A-4380-8D4B-83913824D08F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2162,7 +2186,7 @@ type
{ IEmpleados } { IEmpleados }
IEmpleados = interface(IDAStronglyTypedDataTable) IEmpleados = interface(IDAStronglyTypedDataTable)
['{DE26478A-6B56-40DD-9CFF-176D1B41AFE0}'] ['{A5050F92-4FC8-4B4F-BCFF-7BBA2CB4EDEE}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2593,7 +2617,7 @@ type
{ IDireccionesContacto } { IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable) IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{2A82A155-3A4B-44BF-9A1B-C197A50F39B1}'] ['{907598A0-83B2-4A54-A19D-82FF0656D8F8}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2808,7 +2832,7 @@ type
{ IClientesDescuentos } { IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable) IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{DCD380B7-39A2-446F-9ACF-53057F43F28C}'] ['{C7856FE7-0714-4949-B67D-882FFB8DC44E}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2891,7 +2915,7 @@ type
{ IGruposProveedor } { IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable) IGruposProveedor = interface(IDAStronglyTypedDataTable)
['{EC66CD85-3FE0-4DE0-A543-8FA1DBCF33E0}'] ['{3B8825BB-FF71-47C9-A232-E0931855228A}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2938,7 +2962,7 @@ type
{ IGruposEmpleado } { IGruposEmpleado }
IGruposEmpleado = interface(IDAStronglyTypedDataTable) IGruposEmpleado = interface(IDAStronglyTypedDataTable)
['{37D061A4-7D65-41B8-9DAF-33B393EE50E5}'] ['{F6D330DB-5908-4E6C-9063-62CDA0A13EF7}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2985,7 +3009,7 @@ type
{ IContactos_Refresh } { IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable) IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{47A29D73-F2AF-4DA5-BA66-FC09A1FA7DA6}'] ['{DA718CA5-E280-45E1-A143-299A9CCCE433}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3260,7 +3284,7 @@ type
{ IContratosEmpleados } { IContratosEmpleados }
IContratosEmpleados = interface(IDAStronglyTypedDataTable) IContratosEmpleados = interface(IDAStronglyTypedDataTable)
['{01E65909-DD8B-44B1-AB39-73F2047DC2FF}'] ['{137AAE38-80D8-469E-AD22-9627330E7B2F}']
{ Property getters and setters } { Property getters and setters }
function GetCONTRATOValue: String; function GetCONTRATOValue: String;
procedure SetCONTRATOValue(const aValue: String); procedure SetCONTRATOValue(const aValue: String);
@ -3295,7 +3319,7 @@ type
{ IDescripcionesProveedores } { IDescripcionesProveedores }
IDescripcionesProveedores = interface(IDAStronglyTypedDataTable) IDescripcionesProveedores = interface(IDAStronglyTypedDataTable)
['{EF6069F3-8A7F-49A7-9AA6-FCB4FD7BC6F2}'] ['{8172171A-10E0-409A-8E0B-D5D9365ABB23}']
{ Property getters and setters } { Property getters and setters }
function GetDESCRIPCION_PROVEEDORValue: String; function GetDESCRIPCION_PROVEEDORValue: String;
procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String);
@ -3330,7 +3354,7 @@ type
{ IPersonalContacto } { IPersonalContacto }
IPersonalContacto = interface(IDAStronglyTypedDataTable) IPersonalContacto = interface(IDAStronglyTypedDataTable)
['{24490A3B-6DEC-4546-8433-2B73B85E5B93}'] ['{02E89BFD-3160-4164-BF61-221FF595CB3A}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3473,7 +3497,7 @@ type
{ IAgentes_Comisiones } { IAgentes_Comisiones }
IAgentes_Comisiones = interface(IDAStronglyTypedDataTable) IAgentes_Comisiones = interface(IDAStronglyTypedDataTable)
['{191150F9-E106-4E8A-8124-32860D4F8894}'] ['{B2B154B4-F8DA-46FB-A06F-5000849254F6}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3556,7 +3580,7 @@ type
{ IListaAnosObjetivosAlb } { IListaAnosObjetivosAlb }
IListaAnosObjetivosAlb = interface(IDAStronglyTypedDataTable) IListaAnosObjetivosAlb = interface(IDAStronglyTypedDataTable)
['{B8BF52B7-476E-410A-9720-8B30EB132FCD}'] ['{53124C57-F091-4204-AD95-FB2195C92120}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: SmallInt; function GetANOValue: SmallInt;
procedure SetANOValue(const aValue: SmallInt); procedure SetANOValue(const aValue: SmallInt);
@ -3591,7 +3615,7 @@ type
{ IAgentes } { IAgentes }
IAgentes = interface(IDAStronglyTypedDataTable) IAgentes = interface(IDAStronglyTypedDataTable)
['{FD432FBB-8219-433D-924F-22901565FFF3}'] ['{535CB005-A65B-46CB-9265-8D882CF9BC29}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3926,7 +3950,7 @@ type
{ IClientesDescuentosArticulos } { IClientesDescuentosArticulos }
IClientesDescuentosArticulos = interface(IDAStronglyTypedDataTable) IClientesDescuentosArticulos = interface(IDAStronglyTypedDataTable)
['{007089E4-2A88-4E59-9F39-DBA5E0DD0C57}'] ['{BF0D2DCF-FE11-4DB2-8860-5234FD2EA0B4}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -4057,7 +4081,7 @@ type
{ IAgentes_Objetivos_albaranes } { IAgentes_Objetivos_albaranes }
IAgentes_Objetivos_albaranes = interface(IDAStronglyTypedDataTable) IAgentes_Objetivos_albaranes = interface(IDAStronglyTypedDataTable)
['{93BAC2FE-520D-454C-95D2-15A72D48968A}'] ['{A4F09DDA-8A26-4DA2-925F-EE02B2E6D290}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -4164,7 +4188,7 @@ type
{ IAgentes_Objetivos_facturas } { IAgentes_Objetivos_facturas }
IAgentes_Objetivos_facturas = interface(IDAStronglyTypedDataTable) IAgentes_Objetivos_facturas = interface(IDAStronglyTypedDataTable)
['{B28387E5-80DE-4340-9114-CC7AE7ECF05A}'] ['{F0B134F6-AE87-4835-B443-997AD16988DB}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -4271,7 +4295,7 @@ type
{ IListaAnosObjetivosFac } { IListaAnosObjetivosFac }
IListaAnosObjetivosFac = interface(IDAStronglyTypedDataTable) IListaAnosObjetivosFac = interface(IDAStronglyTypedDataTable)
['{8E1FC0F1-1AFF-47F6-8FCB-619723CC5DA6}'] ['{E2EB26D2-2409-4320-AF04-A0A4834E1D84}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: SmallInt; function GetANOValue: SmallInt;
procedure SetANOValue(const aValue: SmallInt); procedure SetANOValue(const aValue: SmallInt);
@ -4304,6 +4328,53 @@ type
end; end;
{ ITiposCliente }
ITiposCliente = interface(IDAStronglyTypedDataTable)
['{C44A4DE6-41B4-436D-9CA7-7165BD25595A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean;
procedure SetIDIsNull(const aValue: Boolean);
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
function GetDESCRIPCIONIsNull: Boolean;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
end;
{ TTiposClienteDataTableRules }
TTiposClienteDataTableRules = class(TIntfObjectDADataTableRules, ITiposCliente)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetIDIsNull: Boolean; virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
implementation implementation
uses Variants, uROBinaryHelpers; uses Variants, uROBinaryHelpers;
@ -5965,6 +6036,27 @@ begin
DataTable.Fields[idx_ClientesFELICITACION].AsVariant := Null; DataTable.Fields[idx_ClientesFELICITACION].AsVariant := Null;
end; end;
function TClientesDataTableRules.GetTIPO_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_ClientesTIPO_CLIENTE].AsString;
end;
procedure TClientesDataTableRules.SetTIPO_CLIENTEValue(const aValue: String);
begin
DataTable.Fields[idx_ClientesTIPO_CLIENTE].AsString := aValue;
end;
function TClientesDataTableRules.GetTIPO_CLIENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_ClientesTIPO_CLIENTE].IsNull;
end;
procedure TClientesDataTableRules.SetTIPO_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesTIPO_CLIENTE].AsVariant := Null;
end;
{ TProveedoresDataTableRules } { TProveedoresDataTableRules }
constructor TProveedoresDataTableRules.Create(aDataTable: TDADataTable); constructor TProveedoresDataTableRules.Create(aDataTable: TDADataTable);
@ -10152,6 +10244,60 @@ begin
end; end;
{ TTiposClienteDataTableRules }
constructor TTiposClienteDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TTiposClienteDataTableRules.Destroy;
begin
inherited;
end;
function TTiposClienteDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_TiposClienteID].AsInteger;
end;
procedure TTiposClienteDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_TiposClienteID].AsInteger := aValue;
end;
function TTiposClienteDataTableRules.GetIDIsNull: boolean;
begin
result := DataTable.Fields[idx_TiposClienteID].IsNull;
end;
procedure TTiposClienteDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_TiposClienteID].AsVariant := Null;
end;
function TTiposClienteDataTableRules.GetDESCRIPCIONValue: String;
begin
result := DataTable.Fields[idx_TiposClienteDESCRIPCION].AsString;
end;
procedure TTiposClienteDataTableRules.SetDESCRIPCIONValue(const aValue: String);
begin
DataTable.Fields[idx_TiposClienteDESCRIPCION].AsString := aValue;
end;
function TTiposClienteDataTableRules.GetDESCRIPCIONIsNull: boolean;
begin
result := DataTable.Fields[idx_TiposClienteDESCRIPCION].IsNull;
end;
procedure TTiposClienteDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_TiposClienteDESCRIPCION].AsVariant := Null;
end;
initialization initialization
RegisterDataTableRules(RID_Contactos, TContactosDataTableRules); RegisterDataTableRules(RID_Contactos, TContactosDataTableRules);
RegisterDataTableRules(RID_GruposCliente, TGruposClienteDataTableRules); RegisterDataTableRules(RID_GruposCliente, TGruposClienteDataTableRules);
@ -10174,5 +10320,6 @@ initialization
RegisterDataTableRules(RID_Agentes_Objetivos_albaranes, TAgentes_Objetivos_albaranesDataTableRules); RegisterDataTableRules(RID_Agentes_Objetivos_albaranes, TAgentes_Objetivos_albaranesDataTableRules);
RegisterDataTableRules(RID_Agentes_Objetivos_facturas, TAgentes_Objetivos_facturasDataTableRules); RegisterDataTableRules(RID_Agentes_Objetivos_facturas, TAgentes_Objetivos_facturasDataTableRules);
RegisterDataTableRules(RID_ListaAnosObjetivosFac, TListaAnosObjetivosFacDataTableRules); RegisterDataTableRules(RID_ListaAnosObjetivosFac, TListaAnosObjetivosFacDataTableRules);
RegisterDataTableRules(RID_TiposCliente, TTiposClienteDataTableRules);
end. end.

249
Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
View File

@ -9,32 +9,33 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ContactosDelta = '{924489BD-4BF1-490A-80E1-292384CDE36B}'; RID_ContactosDelta = '{0D14A3EF-8221-4271-BB6E-C28975FF9384}';
RID_GruposClienteDelta = '{00B6FC09-D8A1-4AF6-B6DF-2BCEF361091C}'; RID_GruposClienteDelta = '{A90F7994-1ABF-4A46-8CD2-1397FA5FA695}';
RID_DatosBancariosDelta = '{359B215D-847C-407A-9553-F0E7AE268DAE}'; RID_DatosBancariosDelta = '{9137AF65-F02A-46E3-8E69-439A2138AEDA}';
RID_ClientesDelta = '{71CCE505-5A15-4B1E-A807-8DA7DFE6C36C}'; RID_ClientesDelta = '{AE74F38D-EC62-478C-9009-91DFA765C1BA}';
RID_ProveedoresDelta = '{F3854348-13E9-465B-9E6E-67EC43F26D2E}'; RID_ProveedoresDelta = '{007E9A07-B1B7-449A-88D5-E230A1268906}';
RID_EmpleadosDelta = '{8A94BFD2-C61E-46A8-9620-CF7E1C97D7B5}'; RID_EmpleadosDelta = '{E44640BF-985F-493D-9681-A58B1E9C5048}';
RID_DireccionesContactoDelta = '{C480F508-E137-4093-8BF2-DF49EF2AB3DE}'; RID_DireccionesContactoDelta = '{CD29AE32-0F09-43B0-BD60-0BABB4F28F91}';
RID_ClientesDescuentosDelta = '{B4C0F049-8B81-4EFB-9E8E-592A72FE25A6}'; RID_ClientesDescuentosDelta = '{95022EA1-5BE2-4708-BA5B-77536F57D331}';
RID_GruposProveedorDelta = '{129AA285-FCCC-42C8-B31E-288EDB9500DA}'; RID_GruposProveedorDelta = '{0ABA7E39-36B3-44E2-B3E1-8BFF6D38B7CA}';
RID_GruposEmpleadoDelta = '{F6F9AD04-610E-4F13-AC1F-7ACDB1761FE8}'; RID_GruposEmpleadoDelta = '{6BD3D176-0D39-439D-8782-8F79DC7C2C90}';
RID_Contactos_RefreshDelta = '{755CB99F-48D6-47A3-B95B-0580F7586656}'; RID_Contactos_RefreshDelta = '{2FA063C0-9DCA-4BF6-A9A7-FD4D319ECF88}';
RID_ContratosEmpleadosDelta = '{7E590734-DDA2-4025-ACC6-0F16255B130A}'; RID_ContratosEmpleadosDelta = '{D0F4C06F-1363-49E5-8094-158E6E33781A}';
RID_DescripcionesProveedoresDelta = '{57434ABA-AADE-4CD2-930E-6309C476941F}'; RID_DescripcionesProveedoresDelta = '{30864B1C-279D-4203-95F3-38A1D42044E0}';
RID_PersonalContactoDelta = '{8B6FE0F0-8635-483F-8FCC-0D386BF286DD}'; RID_PersonalContactoDelta = '{E60BCF43-0FAA-4EF1-BD68-0BC8328AE3A9}';
RID_Agentes_ComisionesDelta = '{A136E396-E02A-4776-BB9D-6C2AF7228D09}'; RID_Agentes_ComisionesDelta = '{A4522C74-DA90-4B25-9757-FC901C4297C0}';
RID_ListaAnosObjetivosAlbDelta = '{FC0A5B37-290A-4872-93FD-EDA0FCCEC000}'; RID_ListaAnosObjetivosAlbDelta = '{2D43A4A9-A60F-4847-90D8-506A9E438E8F}';
RID_AgentesDelta = '{A42667F1-F22B-4E4C-A840-C80695B7291C}'; RID_AgentesDelta = '{B0FC98F6-07E3-4186-ACF7-4525A8B771C7}';
RID_ClientesDescuentosArticulosDelta = '{49185AEC-BA8D-4CDE-9F02-1C02A34FEF09}'; RID_ClientesDescuentosArticulosDelta = '{FC2F2307-6B92-4C15-BDC7-5A140CBF00F0}';
RID_Agentes_Objetivos_albaranesDelta = '{1CF088C7-E0C8-4090-85A1-14A3838B781F}'; RID_Agentes_Objetivos_albaranesDelta = '{BF428235-7C8E-4ABB-B20A-4CAD58BD98EC}';
RID_Agentes_Objetivos_facturasDelta = '{B10C7599-1FB6-4CA6-AADF-0FFB60329EC9}'; RID_Agentes_Objetivos_facturasDelta = '{BC496438-46AC-4530-83E8-558F3ACDFB57}';
RID_ListaAnosObjetivosFacDelta = '{01C5B570-6CCD-4680-B6C9-CFC0DB37A4DE}'; RID_ListaAnosObjetivosFacDelta = '{292DE1F7-DE87-44ED-AB50-050BC49C8CB1}';
RID_TiposClienteDelta = '{FA885475-ECC3-45C8-BF6B-DBE4E19F6C00}';
type type
{ IContactosDelta } { IContactosDelta }
IContactosDelta = interface(IContactos) IContactosDelta = interface(IContactos)
['{924489BD-4BF1-490A-80E1-292384CDE36B}'] ['{0D14A3EF-8221-4271-BB6E-C28975FF9384}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -333,7 +334,7 @@ type
{ IGruposClienteDelta } { IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente) IGruposClienteDelta = interface(IGruposCliente)
['{00B6FC09-D8A1-4AF6-B6DF-2BCEF361091C}'] ['{A90F7994-1ABF-4A46-8CD2-1397FA5FA695}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -379,7 +380,7 @@ type
{ IDatosBancariosDelta } { IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios) IDatosBancariosDelta = interface(IDatosBancarios)
['{359B215D-847C-407A-9553-F0E7AE268DAE}'] ['{9137AF65-F02A-46E3-8E69-439A2138AEDA}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -509,7 +510,7 @@ type
{ IClientesDelta } { IClientesDelta }
IClientesDelta = interface(IClientes) IClientesDelta = interface(IClientes)
['{71CCE505-5A15-4B1E-A807-8DA7DFE6C36C}'] ['{AE74F38D-EC62-478C-9009-91DFA765C1BA}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -553,6 +554,7 @@ type
function GetOldCODIGO_ASIGNADOValue : String; function GetOldCODIGO_ASIGNADOValue : String;
function GetOldDESCUENTOValue : Float; function GetOldDESCUENTOValue : Float;
function GetOldFELICITACIONValue : SmallInt; function GetOldFELICITACIONValue : SmallInt;
function GetOldTIPO_CLIENTEValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -597,6 +599,7 @@ type
property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue; property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldFELICITACION : SmallInt read GetOldFELICITACIONValue; property OldFELICITACION : SmallInt read GetOldFELICITACIONValue;
property OldTIPO_CLIENTE : String read GetOldTIPO_CLIENTEValue;
end; end;
{ TClientesBusinessProcessorRules } { TClientesBusinessProcessorRules }
@ -857,6 +860,12 @@ type
function GetOldFELICITACIONIsNull: Boolean; virtual; function GetOldFELICITACIONIsNull: Boolean; virtual;
procedure SetFELICITACIONValue(const aValue: SmallInt); virtual; procedure SetFELICITACIONValue(const aValue: SmallInt); virtual;
procedure SetFELICITACIONIsNull(const aValue: Boolean); virtual; procedure SetFELICITACIONIsNull(const aValue: Boolean); virtual;
function GetTIPO_CLIENTEValue: String; virtual;
function GetTIPO_CLIENTEIsNull: Boolean; virtual;
function GetOldTIPO_CLIENTEValue: String; virtual;
function GetOldTIPO_CLIENTEIsNull: Boolean; virtual;
procedure SetTIPO_CLIENTEValue(const aValue: String); virtual;
procedure SetTIPO_CLIENTEIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -1027,6 +1036,10 @@ type
property FELICITACIONIsNull : Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull; property FELICITACIONIsNull : Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull;
property OldFELICITACION : SmallInt read GetOldFELICITACIONValue; property OldFELICITACION : SmallInt read GetOldFELICITACIONValue;
property OldFELICITACIONIsNull : Boolean read GetOldFELICITACIONIsNull; property OldFELICITACIONIsNull : Boolean read GetOldFELICITACIONIsNull;
property TIPO_CLIENTE : String read GetTIPO_CLIENTEValue write SetTIPO_CLIENTEValue;
property TIPO_CLIENTEIsNull : Boolean read GetTIPO_CLIENTEIsNull write SetTIPO_CLIENTEIsNull;
property OldTIPO_CLIENTE : String read GetOldTIPO_CLIENTEValue;
property OldTIPO_CLIENTEIsNull : Boolean read GetOldTIPO_CLIENTEIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -1036,7 +1049,7 @@ type
{ IProveedoresDelta } { IProveedoresDelta }
IProveedoresDelta = interface(IProveedores) IProveedoresDelta = interface(IProveedores)
['{F3854348-13E9-465B-9E6E-67EC43F26D2E}'] ['{007E9A07-B1B7-449A-88D5-E230A1268906}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -1527,7 +1540,7 @@ type
{ IEmpleadosDelta } { IEmpleadosDelta }
IEmpleadosDelta = interface(IEmpleados) IEmpleadosDelta = interface(IEmpleados)
['{8A94BFD2-C61E-46A8-9620-CF7E1C97D7B5}'] ['{E44640BF-985F-493D-9681-A58B1E9C5048}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -1962,7 +1975,7 @@ type
{ IDireccionesContactoDelta } { IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto) IDireccionesContactoDelta = interface(IDireccionesContacto)
['{C480F508-E137-4093-8BF2-DF49EF2AB3DE}'] ['{CD29AE32-0F09-43B0-BD60-0BABB4F28F91}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -2177,7 +2190,7 @@ type
{ IClientesDescuentosDelta } { IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos) IClientesDescuentosDelta = interface(IClientesDescuentos)
['{B4C0F049-8B81-4EFB-9E8E-592A72FE25A6}'] ['{95022EA1-5BE2-4708-BA5B-77536F57D331}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
@ -2259,7 +2272,7 @@ type
{ IGruposProveedorDelta } { IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor) IGruposProveedorDelta = interface(IGruposProveedor)
['{129AA285-FCCC-42C8-B31E-288EDB9500DA}'] ['{0ABA7E39-36B3-44E2-B3E1-8BFF6D38B7CA}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2305,7 +2318,7 @@ type
{ IGruposEmpleadoDelta } { IGruposEmpleadoDelta }
IGruposEmpleadoDelta = interface(IGruposEmpleado) IGruposEmpleadoDelta = interface(IGruposEmpleado)
['{F6F9AD04-610E-4F13-AC1F-7ACDB1761FE8}'] ['{6BD3D176-0D39-439D-8782-8F79DC7C2C90}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2351,7 +2364,7 @@ type
{ IContactos_RefreshDelta } { IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh) IContactos_RefreshDelta = interface(IContactos_Refresh)
['{755CB99F-48D6-47A3-B95B-0580F7586656}'] ['{2FA063C0-9DCA-4BF6-A9A7-FD4D319ECF88}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
@ -2626,7 +2639,7 @@ type
{ IContratosEmpleadosDelta } { IContratosEmpleadosDelta }
IContratosEmpleadosDelta = interface(IContratosEmpleados) IContratosEmpleadosDelta = interface(IContratosEmpleados)
['{7E590734-DDA2-4025-ACC6-0F16255B130A}'] ['{D0F4C06F-1363-49E5-8094-158E6E33781A}']
{ Property getters and setters } { Property getters and setters }
function GetOldCONTRATOValue : String; function GetOldCONTRATOValue : String;
@ -2660,7 +2673,7 @@ type
{ IDescripcionesProveedoresDelta } { IDescripcionesProveedoresDelta }
IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores) IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores)
['{57434ABA-AADE-4CD2-930E-6309C476941F}'] ['{30864B1C-279D-4203-95F3-38A1D42044E0}']
{ Property getters and setters } { Property getters and setters }
function GetOldDESCRIPCION_PROVEEDORValue : String; function GetOldDESCRIPCION_PROVEEDORValue : String;
@ -2694,7 +2707,7 @@ type
{ IPersonalContactoDelta } { IPersonalContactoDelta }
IPersonalContactoDelta = interface(IPersonalContacto) IPersonalContactoDelta = interface(IPersonalContacto)
['{8B6FE0F0-8635-483F-8FCC-0D386BF286DD}'] ['{E60BCF43-0FAA-4EF1-BD68-0BC8328AE3A9}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -2836,7 +2849,7 @@ type
{ IAgentes_ComisionesDelta } { IAgentes_ComisionesDelta }
IAgentes_ComisionesDelta = interface(IAgentes_Comisiones) IAgentes_ComisionesDelta = interface(IAgentes_Comisiones)
['{A136E396-E02A-4776-BB9D-6C2AF7228D09}'] ['{A4522C74-DA90-4B25-9757-FC901C4297C0}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_AGENTEValue : Integer; function GetOldID_AGENTEValue : Integer;
@ -2918,7 +2931,7 @@ type
{ IListaAnosObjetivosAlbDelta } { IListaAnosObjetivosAlbDelta }
IListaAnosObjetivosAlbDelta = interface(IListaAnosObjetivosAlb) IListaAnosObjetivosAlbDelta = interface(IListaAnosObjetivosAlb)
['{FC0A5B37-290A-4872-93FD-EDA0FCCEC000}'] ['{2D43A4A9-A60F-4847-90D8-506A9E438E8F}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : SmallInt; function GetOldANOValue : SmallInt;
@ -2952,7 +2965,7 @@ type
{ IAgentesDelta } { IAgentesDelta }
IAgentesDelta = interface(IAgentes) IAgentesDelta = interface(IAgentes)
['{A42667F1-F22B-4E4C-A840-C80695B7291C}'] ['{B0FC98F6-07E3-4186-ACF7-4525A8B771C7}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -3287,7 +3300,7 @@ type
{ IClientesDescuentosArticulosDelta } { IClientesDescuentosArticulosDelta }
IClientesDescuentosArticulosDelta = interface(IClientesDescuentosArticulos) IClientesDescuentosArticulosDelta = interface(IClientesDescuentosArticulos)
['{49185AEC-BA8D-4CDE-9F02-1C02A34FEF09}'] ['{FC2F2307-6B92-4C15-BDC7-5A140CBF00F0}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
@ -3417,7 +3430,7 @@ type
{ IAgentes_Objetivos_albaranesDelta } { IAgentes_Objetivos_albaranesDelta }
IAgentes_Objetivos_albaranesDelta = interface(IAgentes_Objetivos_albaranes) IAgentes_Objetivos_albaranesDelta = interface(IAgentes_Objetivos_albaranes)
['{1CF088C7-E0C8-4090-85A1-14A3838B781F}'] ['{BF428235-7C8E-4ABB-B20A-4CAD58BD98EC}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_AGENTEValue : Integer; function GetOldID_AGENTEValue : Integer;
@ -3523,7 +3536,7 @@ type
{ IAgentes_Objetivos_facturasDelta } { IAgentes_Objetivos_facturasDelta }
IAgentes_Objetivos_facturasDelta = interface(IAgentes_Objetivos_facturas) IAgentes_Objetivos_facturasDelta = interface(IAgentes_Objetivos_facturas)
['{B10C7599-1FB6-4CA6-AADF-0FFB60329EC9}'] ['{BC496438-46AC-4530-83E8-558F3ACDFB57}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_AGENTEValue : Integer; function GetOldID_AGENTEValue : Integer;
@ -3629,7 +3642,7 @@ type
{ IListaAnosObjetivosFacDelta } { IListaAnosObjetivosFacDelta }
IListaAnosObjetivosFacDelta = interface(IListaAnosObjetivosFac) IListaAnosObjetivosFacDelta = interface(IListaAnosObjetivosFac)
['{01C5B570-6CCD-4680-B6C9-CFC0DB37A4DE}'] ['{292DE1F7-DE87-44ED-AB50-050BC49C8CB1}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : SmallInt; function GetOldANOValue : SmallInt;
@ -3661,6 +3674,52 @@ type
end; end;
{ ITiposClienteDelta }
ITiposClienteDelta = interface(ITiposCliente)
['{FA885475-ECC3-45C8-BF6B-DBE4E19F6C00}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
end;
{ TTiposClienteBusinessProcessorRules }
TTiposClienteBusinessProcessorRules = class(TDABusinessProcessorRules, ITiposCliente, ITiposClienteDelta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
property OldIDIsNull : Boolean read GetOldIDIsNull;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
implementation implementation
uses uses
@ -6085,6 +6144,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFELICITACION] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFELICITACION] := Null;
end; end;
function TClientesBusinessProcessorRules.GetTIPO_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIPO_CLIENTE];
end;
function TClientesBusinessProcessorRules.GetTIPO_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIPO_CLIENTE]);
end;
function TClientesBusinessProcessorRules.GetOldTIPO_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTIPO_CLIENTE];
end;
function TClientesBusinessProcessorRules.GetOldTIPO_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTIPO_CLIENTE]);
end;
procedure TClientesBusinessProcessorRules.SetTIPO_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIPO_CLIENTE] := aValue;
end;
procedure TClientesBusinessProcessorRules.SetTIPO_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIPO_CLIENTE] := Null;
end;
{ TProveedoresBusinessProcessorRules } { TProveedoresBusinessProcessorRules }
constructor TProveedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TProveedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -12151,6 +12241,80 @@ begin
end; end;
{ TTiposClienteBusinessProcessorRules }
constructor TTiposClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TTiposClienteBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TTiposClienteBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposClienteID];
end;
function TTiposClienteBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposClienteID]);
end;
function TTiposClienteBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposClienteID];
end;
function TTiposClienteBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposClienteID]);
end;
procedure TTiposClienteBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposClienteID] := aValue;
end;
procedure TTiposClienteBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposClienteID] := Null;
end;
function TTiposClienteBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposClienteDESCRIPCION];
end;
function TTiposClienteBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposClienteDESCRIPCION]);
end;
function TTiposClienteBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposClienteDESCRIPCION];
end;
function TTiposClienteBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposClienteDESCRIPCION]);
end;
procedure TTiposClienteBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposClienteDESCRIPCION] := aValue;
end;
procedure TTiposClienteBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposClienteDESCRIPCION] := Null;
end;
initialization initialization
RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_GruposClienteDelta, TGruposClienteBusinessProcessorRules); RegisterBusinessProcessorRules(RID_GruposClienteDelta, TGruposClienteBusinessProcessorRules);
@ -12173,5 +12337,6 @@ initialization
RegisterBusinessProcessorRules(RID_Agentes_Objetivos_albaranesDelta, TAgentes_Objetivos_albaranesBusinessProcessorRules); RegisterBusinessProcessorRules(RID_Agentes_Objetivos_albaranesDelta, TAgentes_Objetivos_albaranesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_Agentes_Objetivos_facturasDelta, TAgentes_Objetivos_facturasBusinessProcessorRules); RegisterBusinessProcessorRules(RID_Agentes_Objetivos_facturasDelta, TAgentes_Objetivos_facturasBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ListaAnosObjetivosFacDelta, TListaAnosObjetivosFacBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ListaAnosObjetivosFacDelta, TListaAnosObjetivosFacBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_TiposClienteDelta, TTiposClienteBusinessProcessorRules);
end. end.

18
Source/Modulos/Contactos/Model/uBizContactos.pas
View File

@ -56,6 +56,9 @@ type
function GetGRUPO_CLIENTEValue: String; function GetGRUPO_CLIENTEValue: String;
procedure SetGRUPO_CLIENTEValue(const aValue: String); procedure SetGRUPO_CLIENTEValue(const aValue: String);
function GetTIPO_CLIENTEValue: String;
procedure SetTIPO_CLIENTEValue(const aValue: String);
function GetNOMBRE_COMERCIALValue: String; function GetNOMBRE_COMERCIALValue: String;
procedure SetNOMBRE_COMERCIALValue(const aValue: String); procedure SetNOMBRE_COMERCIALValue(const aValue: String);
@ -107,6 +110,7 @@ type
procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String);
property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
property TIPO_CLIENTE: String read GetTIPO_CLIENTEValue write SetTIPO_CLIENTEValue;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property VENCIMIENTO_FACTURAS_1: Smallint read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; property VENCIMIENTO_FACTURAS_1: Smallint read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
property VENCIMIENTO_FACTURAS_2: Smallint read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; property VENCIMIENTO_FACTURAS_2: Smallint read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
@ -307,6 +311,9 @@ type
function GetGRUPO_CLIENTEValue: String; function GetGRUPO_CLIENTEValue: String;
procedure SetGRUPO_CLIENTEValue(const aValue: String); procedure SetGRUPO_CLIENTEValue(const aValue: String);
function GetTIPO_CLIENTEValue: String;
procedure SetTIPO_CLIENTEValue(const aValue: String);
function GetNOMBRE_COMERCIALValue: String; function GetNOMBRE_COMERCIALValue: String;
procedure SetNOMBRE_COMERCIALValue(const aValue: String); procedure SetNOMBRE_COMERCIALValue(const aValue: String);
@ -362,6 +369,7 @@ type
property Descuentos: IBizClienteDescuentos read GetDescuentos write SetDescuentos; property Descuentos: IBizClienteDescuentos read GetDescuentos write SetDescuentos;
property DescuentosArt: IBizClienteDescuentosArticulos read GetDescuentosArt write SetDescuentosArt; property DescuentosArt: IBizClienteDescuentosArticulos read GetDescuentosArt write SetDescuentosArt;
property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
property TIPO_CLIENTE: String read GetTIPO_CLIENTEValue write SetTIPO_CLIENTEValue;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property VENCIMIENTO_FACTURAS_1: Smallint read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; property VENCIMIENTO_FACTURAS_1: Smallint read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
property VENCIMIENTO_FACTURAS_2: Smallint read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; property VENCIMIENTO_FACTURAS_2: Smallint read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
@ -769,6 +777,11 @@ begin
result := DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger; result := DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger;
end; end;
function TBizCliente.GetTIPO_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_ClientesTIPO_CLIENTE].AsString;
end;
function TBizCliente.GetVENCIMIENTO_FACTURAS_1Value: SmallInt; function TBizCliente.GetVENCIMIENTO_FACTURAS_1Value: SmallInt;
begin begin
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsSmallInt; result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsSmallInt;
@ -799,6 +812,11 @@ begin
DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger := aValue; DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger := aValue;
end; end;
procedure TBizCliente.SetTIPO_CLIENTEValue(const aValue: String);
begin
DataTable.Fields[idx_ClientesTIPO_CLIENTE].AsString := aValue;
end;
procedure TBizCliente.SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); procedure TBizCliente.SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt);
begin begin
DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsSmallInt := aValue; DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsSmallInt := aValue;

37
Source/Modulos/Contactos/Model/uBizTiposCliente.pas Normal file
View File

@ -0,0 +1,37 @@
unit uBizTiposCliente;
interface
uses
uDAInterfaces, uDADataTable, schContactosClient_Intf;
const
BIZ_CLIENT_TIPOSCLIENTE = 'Client.TipoCliente';
type
IBizTipoCliente = interface(ITiposCliente)
['{E9966A2D-CFBC-49D0-8C3B-ADCE1604C942}']
end;
TBizTipoCliente = class(TTiposClienteDataTableRules, IBizTipoCliente)
protected
procedure AfterOpen(Sender: TDADataTable); override;
end;
implementation
{ TBizGrupoCliente }
procedure TBizTipoCliente.AfterOpen(Sender: TDADataTable);
begin
inherited;
DataTable.Sort([fld_TiposClienteDESCRIPCION], [sdAscending]);
end;
initialization
RegisterDataTableRules(BIZ_CLIENT_TIPOSCLIENTE, TBizTipoCliente);
finalization
end.

8
Source/Modulos/Contactos/Plugin/uPluginContactos.dfm
View File

@ -261,6 +261,11 @@ object PluginContactos: TPluginContactos
OnExecute = actAgentesExecute OnExecute = actAgentesExecute
OnUpdate = actAgentesUpdate OnUpdate = actAgentesUpdate
end end
object actTiposCliente: TAction
Caption = 'Tipos de Cliente'
ImageIndex = 5
OnExecute = actTiposClienteExecute
end
end end
object MainMenu: TMainMenu object MainMenu: TMainMenu
Images = SmallImages Images = SmallImages
@ -291,6 +296,9 @@ object PluginContactos: TPluginContactos
Tag = 102 Tag = 102
Action = actGruposCliente Action = actGruposCliente
end end
object actTiposCliente1: TMenuItem
Action = actTiposCliente
end
end end
object Compras1: TMenuItem object Compras1: TMenuItem
Caption = '&Compras' Caption = '&Compras'

19
Source/Modulos/Contactos/Plugin/uPluginContactos.pas
View File

@ -35,6 +35,8 @@ type
Empresa1: TMenuItem; Empresa1: TMenuItem;
actAgentes: TAction; actAgentes: TAction;
Agentes1: TMenuItem; Agentes1: TMenuItem;
actTiposCliente: TAction;
actTiposCliente1: TMenuItem;
procedure actClientesExecute(Sender: TObject); procedure actClientesExecute(Sender: TObject);
procedure actProveedoresExecute(Sender: TObject); procedure actProveedoresExecute(Sender: TObject);
procedure actEmpleadosExecute(Sender: TObject); procedure actEmpleadosExecute(Sender: TObject);
@ -44,6 +46,7 @@ type
procedure actEmpleadosUpdate(Sender: TObject); procedure actEmpleadosUpdate(Sender: TObject);
procedure actAgentesExecute(Sender: TObject); procedure actAgentesExecute(Sender: TObject);
procedure actAgentesUpdate(Sender: TObject); procedure actAgentesUpdate(Sender: TObject);
procedure actTiposClienteExecute(Sender: TObject);
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -56,9 +59,9 @@ implementation
uses uses
Forms, Dialogs, uGUIBase, uCustomEditor, SysUtils, uContactosController, Forms, Dialogs, uGUIBase, uCustomEditor, SysUtils, uContactosController,
uClientesController, uProveedoresController, uEmpleadosController, uAgentesController, uClientesController, uProveedoresController, uEmpleadosController, uAgentesController,
uGruposClienteController, uBizGruposCliente, uGruposProveedorController, uGruposClienteController, uTiposClienteController, uBizGruposCliente, uBizTiposCliente,
uBizGruposProveedor, uGruposEmpleadoController, uBizGruposEmpleado, uGruposProveedorController, uBizGruposProveedor, uGruposEmpleadoController,
uContactosViewRegister, uBizContactos, uFactuGES_App; uBizGruposEmpleado, uContactosViewRegister, uBizContactos, uFactuGES_App;
function GetModule : TModuleController; function GetModule : TModuleController;
begin begin
@ -141,6 +144,16 @@ begin
AProveedoresController.VerTodos(AProveedores); AProveedoresController.VerTodos(AProveedores);
end; end;
procedure TPluginContactos.actTiposClienteExecute(Sender: TObject);
var
ATipoClienteController : ITiposClienteController;
ATiposCliente : IBizTipoCliente;
begin
ATipoClienteController := TTiposClienteController.Create;
ATiposCliente := (ATipoClienteController.BuscarTodos as IBizTipoCliente);
ATipoClienteController.VerTodos(ATiposCliente);
end;
procedure TPluginContactos.actEmpleadosExecute(Sender: TObject); procedure TPluginContactos.actEmpleadosExecute(Sender: TObject);
var var
AEmpleadosController : IEmpleadosController; AEmpleadosController : IEmpleadosController;

84
Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
View File

@ -559,6 +559,10 @@ object srvContactos: TsrvContactos
item item
DatasetField = 'EMAIL_ADMINISTRACION' DatasetField = 'EMAIL_ADMINISTRACION'
TableField = 'EMAIL_ADMINISTRACION' TableField = 'EMAIL_ADMINISTRACION'
end
item
DatasetField = 'TIPO_CLIENTE'
TableField = 'TIPO_CLIENTE'
end> end>
end> end>
Name = 'Clientes' Name = 'Clientes'
@ -790,6 +794,11 @@ object srvContactos: TsrvContactos
Name = 'FELICITACION' Name = 'FELICITACION'
DataType = datSmallInt DataType = datSmallInt
DictionaryEntry = 'Clientes_FELICITACION' DictionaryEntry = 'Clientes_FELICITACION'
end
item
Name = 'TIPO_CLIENTE'
DataType = datString
Size = 255
end> end>
end end
item item
@ -2866,6 +2875,39 @@ object srvContactos: TsrvContactos
Name = 'ANO' Name = 'ANO'
DataType = datSmallInt DataType = datSmallInt
end> end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CLIENTES_TIPOS'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end>
end>
Name = 'TiposCliente'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CLIENTES_TIPOS_ID'
DictionaryEntry = 'TiposCliente_ID'
InPrimaryKey = True
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DictionaryEntry = 'TiposCliente_DESCRIPCION'
end>
end> end>
JoinDataTables = <> JoinDataTables = <>
UnionDataTables = <> UnionDataTables = <>
@ -3610,6 +3652,12 @@ object srvContactos: TsrvContactos
Name = 'FELICITACION' Name = 'FELICITACION'
DataType = datSmallInt DataType = datSmallInt
Value = '' Value = ''
end
item
Name = 'TIPO_CLIENTE'
DataType = datString
Size = 255
Value = ''
end> end>
Statements = < Statements = <
item item
@ -3621,13 +3669,13 @@ object srvContactos: TsrvContactos
'UEO, REGIMEN_IVA, ID_TIPO_IVA, ID_FORMA_PAGO,'#10' TIENDA_WEB, C' + 'UEO, REGIMEN_IVA, ID_TIPO_IVA, ID_FORMA_PAGO,'#10' TIENDA_WEB, C' +
'ODIGO_ASIGNADO, DESCUENTO, RAPEL, ID_AGENTE, EMAIL_ADMINISTRACIO' + 'ODIGO_ASIGNADO, DESCUENTO, RAPEL, ID_AGENTE, EMAIL_ADMINISTRACIO' +
'N,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENTO_FACTURAS_2, VENCIMIE' + 'N,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENTO_FACTURAS_2, VENCIMIE' +
'NTO_FACTURAS_3,'#10' FELICITACION)'#10' VALUES'#10' (:ID_CLIENTE, :G' + 'NTO_FACTURAS_3,'#10' FELICITACION, TIPO_CLIENTE)'#10' VALUES'#10' (:' +
'RUPO_CLIENTE, :RECARGO_EQUIVALENCIA, :NOMBRE_COMERCIAL,'#10' :BL' + 'ID_CLIENTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA, :NOMBRE_COMER' +
'OQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA, :ID_TIPO_IVA, :ID_FORMA_' + 'CIAL,'#10' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA, :ID_TIPO_I' +
'PAGO,'#10' :TIENDA_WEB, :CODIGO_ASIGNADO, :DESCUENTO, :RAPEL, :I' + 'VA, :ID_FORMA_PAGO,'#10' :TIENDA_WEB, :CODIGO_ASIGNADO, :DESCUEN' +
'D_AGENTE, :EMAIL_ADMINISTRACION,'#10' :VENCIMIENTO_FACTURAS_1, :' + 'TO, :RAPEL, :ID_AGENTE, :EMAIL_ADMINISTRACION,'#10' :VENCIMIENTO' +
'VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACTURAS_3,'#10' :FELICITAC' + '_FACTURAS_1, :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACTURAS_3,'#10' ' +
'ION)'#10' '#10#10 ' :FELICITACION, :TIPO_CLIENTE)'#10' '#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -3756,6 +3804,12 @@ object srvContactos: TsrvContactos
DataType = datSmallInt DataType = datSmallInt
Value = '' Value = ''
end end
item
Name = 'TIPO_CLIENTE'
DataType = datString
Size = 255
Value = ''
end
item item
Name = 'OLD_ID_CLIENTE' Name = 'OLD_ID_CLIENTE'
Value = '' Value = ''
@ -3776,8 +3830,8 @@ object srvContactos: TsrvContactos
'MINISTRACION = :EMAIL_ADMINISTRACION,'#10' VENCIMIENTO_FACTURAS_1' + 'MINISTRACION = :EMAIL_ADMINISTRACION,'#10' VENCIMIENTO_FACTURAS_1' +
' = :VENCIMIENTO_FACTURAS_1,'#10' VENCIMIENTO_FACTURAS_2 = :VENCIM' + ' = :VENCIMIENTO_FACTURAS_1,'#10' VENCIMIENTO_FACTURAS_2 = :VENCIM' +
'IENTO_FACTURAS_2,'#10' VENCIMIENTO_FACTURAS_3 = :VENCIMIENTO_FACT' + 'IENTO_FACTURAS_2,'#10' VENCIMIENTO_FACTURAS_3 = :VENCIMIENTO_FACT' +
'URAS_3,'#10' FELICITACION = :FELICITACION'#10' WHERE'#10' (ID_CLIENTE' + 'URAS_3,'#10' FELICITACION = :FELICITACION,'#10' TIPO_CLIENTE = :TI' +
' = :OLD_ID_CLIENTE)'#10 'PO_CLIENTE'#10' WHERE'#10' (ID_CLIENTE = :OLD_ID_CLIENTE)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -6284,6 +6338,18 @@ object srvContactos: TsrvContactos
item item
Name = 'Agentes_Objetivos_facturas_IMPORTE_OBJETIVO' Name = 'Agentes_Objetivos_facturas_IMPORTE_OBJETIVO'
DataType = datCurrency DataType = datCurrency
end
item
Name = 'TiposCliente_ID'
DataType = datAutoInc
GeneratorName = 'GEN_CLIENTES_TIPOS_ID'
Required = True
DisplayLabel = 'ID'
end
item
Name = 'TiposCliente_DESCRIPCION'
DataType = datString
Size = 255
end> end>
Left = 126 Left = 126
Top = 14 Top = 14

3
Source/Modulos/Contactos/Views/Contactos_view.dpk
View File

@ -133,6 +133,7 @@ contains
uViewClienteDescuentosArticulos in 'uViewClienteDescuentosArticulos.pas' {frViewClienteDescuentosArticulos: TFrame}, uViewClienteDescuentosArticulos in 'uViewClienteDescuentosArticulos.pas' {frViewClienteDescuentosArticulos: TFrame},
uEditorElegirAgentes in 'uEditorElegirAgentes.pas' {fEditorElegirAgentes: TCustomEditor}, uEditorElegirAgentes in 'uEditorElegirAgentes.pas' {fEditorElegirAgentes: TCustomEditor},
uViewAgenteObjetivosAlbaranes in 'uViewAgenteObjetivosAlbaranes.pas' {frViewAgenteObjetivosAlbaranes: TFrame}, uViewAgenteObjetivosAlbaranes in 'uViewAgenteObjetivosAlbaranes.pas' {frViewAgenteObjetivosAlbaranes: TFrame},
uViewAgenteObjetivosFacturas in 'uViewAgenteObjetivosFacturas.pas' {frViewAgenteObjetivosFacturas: TFrame}; uViewAgenteObjetivosFacturas in 'uViewAgenteObjetivosFacturas.pas' {frViewAgenteObjetivosFacturas: TFrame},
uEditorTiposCliente in 'uEditorTiposCliente.pas' {fEditorTiposCliente: TCustomEditor};
end. end.

122
Source/Modulos/Contactos/Views/Contactos_view.dproj
View File

@ -49,65 +49,58 @@
<DelphiCompile Include="Contactos_view.dpk"> <DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\adortl.dcp" /> <DCCReference Include="adortl.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" /> <DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="..\Articulos_controller.dcp" /> <DCCReference Include="Articulos_controller.dcp" />
<DCCReference Include="..\Base.dcp" /> <DCCReference Include="Base.dcp" />
<DCCReference Include="..\bdertl.dcp" /> <DCCReference Include="bdertl.dcp" />
<DCCReference Include="..\ccpackD11.dcp" /> <DCCReference Include="ccpackD11.dcp" />
<DCCReference Include="..\cfpack_d11.dcp" /> <DCCReference Include="cfpack_d11.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" /> <DCCReference Include="Contactos_controller.dcp" />
<DCCReference Include="..\Contactos_model.dcp" /> <DCCReference Include="Contactos_model.dcp" />
<DCCReference Include="..\cxDataD11.dcp" /> <DCCReference Include="cxDataD11.dcp" />
<DCCReference Include="..\cxEditorsD11.dcp" /> <DCCReference Include="cxEditorsD11.dcp" />
<DCCReference Include="..\cxExportD11.dcp" /> <DCCReference Include="cxExportD11.dcp" />
<DCCReference Include="..\cxExtEditorsD11.dcp" /> <DCCReference Include="cxExtEditorsD11.dcp" />
<DCCReference Include="..\cxGridD11.dcp" /> <DCCReference Include="cxGridD11.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" /> <DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="..\cxPageControlD11.dcp" /> <DCCReference Include="cxPageControlD11.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" /> <DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" /> <DCCReference Include="dbrtl.dcp" />
<DCCReference Include="..\dclcxLibraryD11.dcp" /> <DCCReference Include="dclcxLibraryD11.dcp" />
<DCCReference Include="..\designide.dcp" /> <DCCReference Include="designide.dcp" />
<DCCReference Include="..\dsnap.dcp" /> <DCCReference Include="dsnap.dcp" />
<DCCReference Include="..\dxComnD11.dcp" /> <DCCReference Include="dxComnD11.dcp" />
<DCCReference Include="..\dxCoreD11.dcp" /> <DCCReference Include="dxCoreD11.dcp" />
<DCCReference Include="..\dxGDIPlusD11.dcp" /> <DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="..\dxLayoutControlD11.dcp" /> <DCCReference Include="dxLayoutControlD11.dcp" />
<DCCReference Include="..\dxPSCoreD11.dcp" /> <DCCReference Include="dxPSCoreD11.dcp" />
<DCCReference Include="..\dxPScxCommonD11.dcp" /> <DCCReference Include="dxPScxCommonD11.dcp" />
<DCCReference Include="..\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\dxPSLnksD11.dcp" /> <DCCReference Include="dxPSLnksD11.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" /> <DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="..\FormasPago_controller.dcp" /> <DCCReference Include="FormasPago_controller.dcp" />
<DCCReference Include="..\FormasPago_model.dcp" /> <DCCReference Include="FormasPago_model.dcp" />
<DCCReference Include="..\GUIBase.dcp" /> <DCCReference Include="GUIBase.dcp" />
<DCCReference Include="..\GUISDK_D11R.dcp" /> <DCCReference Include="GUISDK_D11R.dcp" />
<DCCReference Include="..\Jcl.dcp" /> <DCCReference Include="Jcl.dcp" />
<DCCReference Include="..\JclVcl.dcp" /> <DCCReference Include="JclVcl.dcp" />
<DCCReference Include="..\JSDialog100.dcp" /> <DCCReference Include="JSDialog100.dcp" />
<DCCReference Include="..\JvAppFrmD11R.dcp" /> <DCCReference Include="JvAppFrmD11R.dcp" />
<DCCReference Include="..\JvCoreD11R.dcp" /> <DCCReference Include="JvCoreD11R.dcp" />
<DCCReference Include="..\JvCtrlsD11R.dcp" /> <DCCReference Include="JvCtrlsD11R.dcp" />
<DCCReference Include="..\JvGlobusD11R.dcp" /> <DCCReference Include="JvGlobusD11R.dcp" />
<DCCReference Include="..\JvPageCompsD11R.dcp" /> <DCCReference Include="JvPageCompsD11R.dcp" />
<DCCReference Include="..\JvStdCtrlsD11R.dcp" /> <DCCReference Include="JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\JvSystemD11R.dcp" /> <DCCReference Include="JvSystemD11R.dcp" />
<DCCReference Include="..\PngComponentsD10.dcp" /> <DCCReference Include="PngComponentsD10.dcp" />
<DCCReference Include="..\PNG_D10.dcp" /> <DCCReference Include="PNG_D10.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" /> <DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="..\rtl.dcp" /> <DCCReference Include="rtl.dcp" />
<DCCReference Include="..\tb2k_d10.dcp" /> <DCCReference Include="tb2k_d10.dcp" />
<DCCReference Include="..\tbx_d10.dcp" /> <DCCReference Include="tbx_d10.dcp" />
<DCCReference Include="..\TiposIVA_controller.dcp" /> <DCCReference Include="TiposIVA_controller.dcp" />
<DCCReference Include="..\TiposIVA_model.dcp" /> <DCCReference Include="TiposIVA_model.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\vcljpg.dcp" />
<DCCReference Include="..\vclshlctrls.dcp" />
<DCCReference Include="..\vclx.dcp" />
<DCCReference Include="..\xmlrtl.dcp" />
<DCCReference Include="uContactosViewRegister.pas" /> <DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorAgente.pas"> <DCCReference Include="uEditorAgente.pas">
<Form>fEditorAgente</Form> <Form>fEditorAgente</Form>
@ -200,6 +193,10 @@
<Form>fEditorProveedores</Form> <Form>fEditorProveedores</Form>
<DesignClass>TCustomEditor</DesignClass> <DesignClass>TCustomEditor</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorTiposCliente.pas">
<Form>fEditorEmpleado</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uViewAgente.pas"> <DCCReference Include="uViewAgente.pas">
<Form>frViewAgente</Form> <Form>frViewAgente</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
@ -296,6 +293,13 @@
<Form>frViewProveedores</Form> <Form>frViewProveedores</Form>
<DesignClass>TCustomView</DesignClass> <DesignClass>TCustomView</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclshlctrls.dcp" />
<DCCReference Include="vclx.dcp" />
<DCCReference Include="xmlrtl.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

BIN
Source/Modulos/Contactos/Views/Contactos_view.identcache
View File

Binary file not shown.

Some files were not shown because too many files have changed in this diff Show More