diff --git a/Source/Base/Base.bdsproj b/Source/Base/Base.bdsproj
index 44563cc0..fd07f729 100644
--- a/Source/Base/Base.bdsproj
+++ b/Source/Base/Base.bdsproj
@@ -170,8 +170,7 @@
1.0.0.0
-
-
+
ExpressCommonLibrary by Developer Express Inc.
ExpressEditors Library 5 by Developer Express Inc.
ExpressDataController by Developer Express Inc.
diff --git a/Source/Informes/InfAlbaranCliente.fr3 b/Source/Informes/InfAlbaranCliente.fr3
index e0780676..83612349 100644
--- a/Source/Informes/InfAlbaranCliente.fr3
+++ b/Source/Informes/InfAlbaranCliente.fr3
@@ -1,47 +1,55 @@
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Informes/InfFacturaCliente.fr3 b/Source/Informes/InfFacturaCliente.fr3
index c87aedb0..28bfb534 100644
--- a/Source/Informes/InfFacturaCliente.fr3
+++ b/Source/Informes/InfFacturaCliente.fr3
@@ -1,69 +1,77 @@
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
diff --git a/Source/Informes/InfPedidoCliente.fr3 b/Source/Informes/InfPedidoCliente.fr3
index 78d44642..b16cca46 100644
--- a/Source/Informes/InfPedidoCliente.fr3
+++ b/Source/Informes/InfPedidoCliente.fr3
@@ -1,37 +1,45 @@
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas
index 5c61593b..98593ab2 100644
--- a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas
+++ b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas
@@ -38,7 +38,7 @@ type
function NewItem : IBizAlbaranCliente;
// Report
- function GetReport(const AID: String): Binary;
+ function GetReport(const AID: String; const ShowLogotipo: Boolean = False): Binary;
function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
end;
@@ -76,9 +76,9 @@ begin
Result := (RORemoteService as IsrvAlbaranesCliente).GetNextAutoInc(aGeneratorName)
end;
-function TDataModuleAlbaranesCliente.GetReport(const AID: String): Binary;
+function TDataModuleAlbaranesCliente.GetReport(const AID: String; const ShowLogotipo: Boolean = False): Binary;
begin
- Result := (RORemoteService as IsrvAlbaranesCliente).GenerateReport(AID)
+ Result := (RORemoteService as IsrvAlbaranesCliente).GenerateReport(AID, ShowLogotipo)
end;
function TDataModuleAlbaranesCliente.NewItem: IBizAlbaranCliente;
diff --git a/Source/Modulos/Albaranes de cliente/Model/Data/uIDataModuleAlbaranesClienteReport.pas b/Source/Modulos/Albaranes de cliente/Model/Data/uIDataModuleAlbaranesClienteReport.pas
index d24c138e..4886639e 100644
--- a/Source/Modulos/Albaranes de cliente/Model/Data/uIDataModuleAlbaranesClienteReport.pas
+++ b/Source/Modulos/Albaranes de cliente/Model/Data/uIDataModuleAlbaranesClienteReport.pas
@@ -8,7 +8,7 @@ uses
type
IDataModuleAlbaranesClienteReport = interface
['{42C55204-5AB9-403E-8385-1A62B02D8234}']
- function GetReport(const AID: String): Binary;
+ function GetReport(const AID: String; const ShowLogotipo: Boolean = False): Binary;
function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
end;
diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
index 181a7513..bd77cd8c 100644
--- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
+++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
@@ -1321,13 +1321,14 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Top = 158
end
object frxReport: TfrxReport
- Version = '3.23.7'
+ Version = '4.3'
DotMatrixReport = False
EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports'
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Por defecto'
+ PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 39286.749813368060000000
ScriptLanguage = 'PascalScript'
@@ -1385,28 +1386,9 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
'end.')
ShowProgress = False
StoreInDFM = False
+ OnGetValue = frxReportGetValue
Left = 169
Top = 16
- Datasets = <
- item
- DataSet = frxDBCabecera
- DataSetName = 'frxDBCabecera'
- end
- item
- DataSet = frxDBDetalles
- DataSetName = 'frxDBDetalles'
- end>
- Variables = <>
- Style = <
- item
- Name = 'Style1'
- Color = clNone
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -27
- Font.Name = 'Arial'
- Font.Style = []
- end>
end
object frxDBCabecera: TfrxDBDataset
UserName = 'frxDBCabecera'
diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas
index 732ffa1b..409010d0 100644
--- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas
+++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas
@@ -29,12 +29,14 @@ type
DataDictionary: TDADataDictionary;
frxReport: TfrxReport;
procedure DataModuleCreate(Sender: TObject);
+ procedure frxReportGetValue(const VarName: string; var Value: Variant);
private
FConnection: IDAConnection;
+ FShowLogotipo: Boolean;
//Genera cada uno de los albaranes a imprimir
procedure GenerarAlbaran(const ID: integer); overload;
public
- function GenerarAlbaran(const AID : String): Binary; overload;
+ function GenerarAlbaran(const AID : String; const AConLogotipo: Boolean = False): Binary; overload;
function GenerarEtiquetas(const AID : Integer; withRefCliente: Boolean): Binary;
end;
@@ -62,10 +64,11 @@ procedure TRptAlbaranesCliente.DataModuleCreate(Sender: TObject);
begin
schReport.ConnectionManager := dmServer.ConnectionManager;
FConnection := dmServer.DarNuevaConexion;
+ FShowLogotipo := False;
frxReport.EngineOptions.NewSilentMode := simReThrow;
end;
-function TRptAlbaranesCliente.GenerarAlbaran(const AID: String): Binary;
+function TRptAlbaranesCliente.GenerarAlbaran(const AID: String; const AConLogotipo: Boolean = False): Binary;
var
ID_Albaranes: TStringList;
i: Integer;
@@ -74,6 +77,7 @@ begin
FConnection.BeginTransaction;
try
+ FShowLogotipo := AConLogotipo;
ID_Albaranes := TStringList.Create;
ID_Albaranes.CommaText := AID;
@@ -88,6 +92,12 @@ begin
end;
end;
+procedure TRptAlbaranesCliente.frxReportGetValue(const VarName: string; var Value: Variant);
+begin
+ if VarName = 'ShowLogotipo' then
+ Value := FShowLogotipo;
+end;
+
procedure TRptAlbaranesCliente.GenerarAlbaran(const ID: integer);
var
AStream: TMemoryStream;
diff --git a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas
index f80cf026..8043f739 100644
--- a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas
+++ b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas
@@ -38,7 +38,7 @@ type
protected
{ IsrvAlbaranesCliente methods }
function GetNextAutoInc(const GeneratorName: String): Integer;
- function GenerateReport(const ID: String): Binary;
+ function GenerateReport(const ID: String; const ShowLogotipo: Boolean): Binary;
function GenerateEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
end;
@@ -94,13 +94,13 @@ begin
end;
end;
-function TsrvAlbaranesCliente.GenerateReport(const ID: String): Binary;
+function TsrvAlbaranesCliente.GenerateReport(const ID: String; const ShowLogotipo: Boolean): Binary;
var
AReportGenerator : TRptAlbaranesCliente;
begin
AReportGenerator := TRptAlbaranesCliente.Create(nil);
try
- Result := AReportGenerator.GenerarAlbaran(ID);
+ Result := AReportGenerator.GenerarAlbaran(ID, ShowLogotipo);
finally
FreeAndNIL(AReportGenerator);
end;
diff --git a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas
index 91e02280..7c355b4e 100644
--- a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas
+++ b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas
@@ -33,7 +33,7 @@ type
function NewItem : IBizFacturaCliente;
// Report
- function GetReport(const AFacturaID: String): Binary;
+ function GetReport(const AFacturaID: String; const ShowLogotipo: Boolean = False): Binary;
end;
implementation
@@ -65,9 +65,9 @@ begin
Result := (RORemoteService as IsrvFacturasCliente).GetNextAutoInc(aGeneratorName)
end;
-function TDataModuleFacturasCliente.GetReport(const AFacturaID: String): Binary;
+function TDataModuleFacturasCliente.GetReport(const AFacturaID: String; const ShowLogotipo: Boolean = False): Binary;
begin
- Result := (RORemoteService as IsrvFacturasCliente).GenerateReport(AFacturaID)
+ Result := (RORemoteService as IsrvFacturasCliente).GenerateReport(AFacturaID, ShowLogotipo)
end;
function TDataModuleFacturasCliente.NewItem: IBizFacturaCliente;
diff --git a/Source/Modulos/Facturas de cliente/FacturasCliente_Group.bdsgroup b/Source/Modulos/Facturas de cliente/FacturasCliente_Group.bdsgroup
index c45b3b5f..3a90d2f1 100644
--- a/Source/Modulos/Facturas de cliente/FacturasCliente_Group.bdsgroup
+++ b/Source/Modulos/Facturas de cliente/FacturasCliente_Group.bdsgroup
@@ -8,13 +8,7 @@
-
-
-
-
-
-
-
+
..\..\Base\Base.bdsproj
..\..\Base\ControllerBase\ControllerBase.bdsproj
..\..\Base\GUIBase\GUIBase.bdsproj
diff --git a/Source/Modulos/Facturas de cliente/Model/Data/uIDataModuleFacturasClienteReport.pas b/Source/Modulos/Facturas de cliente/Model/Data/uIDataModuleFacturasClienteReport.pas
index 4651b208..8f95e9e5 100644
--- a/Source/Modulos/Facturas de cliente/Model/Data/uIDataModuleFacturasClienteReport.pas
+++ b/Source/Modulos/Facturas de cliente/Model/Data/uIDataModuleFacturasClienteReport.pas
@@ -8,7 +8,7 @@ uses
type
IDataModuleFacturasClienteReport = interface
['{F498AC70-AA38-4C06-B301-85A4AC0B210B}']
- function GetReport(const AFacturaID: String): Binary;
+ function GetReport(const AFacturaID: String; const ShowLogotipo: Boolean = False): Binary;
end;
implementation
diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
index 5a9d6c6e..4d8dc2b8 100644
--- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
+++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
@@ -1253,7 +1253,7 @@ object RptFacturasCliente: TRptFacturasCliente
PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37871.995398692100000000
- ReportOptions.LastChange = 39290.847101226850000000
+ ReportOptions.LastChange = 39701.539507187500000000
ReportOptions.VersionBuild = '1'
ReportOptions.VersionMajor = '12'
ReportOptions.VersionMinor = '13'
@@ -1399,11 +1399,20 @@ object RptFacturasCliente: TRptFacturasCliente
' Set('#39'TotalPaginas'#39', 0);'
'end;'
''
+ 'procedure Picture1OnBeforePrint(Sender: TfrxComponent);'
+ 'begin'
+ ' if then'
+ ' Picture1.Visible := True'
+ ' else'
+ ' Picture1.Visible := False; '
+ 'end;'
+ ''
'begin'
''
'end.')
ShowProgress = False
StoreInDFM = False
+ OnGetValue = frxReportGetValue
OnStartReport = 'frxReportOnStartReport'
Left = 169
Top = 16
diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
index c2449288..40903bbe 100644
--- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
+++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
@@ -32,12 +32,14 @@ type
DataDictionary: TDADataDictionary;
frxReport: TfrxReport;
procedure DataModuleCreate(Sender: TObject);
+ procedure frxReportGetValue(const VarName: string; var Value: Variant);
private
FConnection: IDAConnection;
+ FShowLogotipo: Boolean;
//Genera cada uno de los albaranes a imprimir
procedure GenerarFactura(const ID: integer); overload;
public
- function GenerarFactura(const AFacturaID : String): Binary; overload;
+ function GenerarFactura(const AFacturaID: String; const AConLogotipo: Boolean = False): Binary; overload;
end;
implementation
@@ -53,20 +55,26 @@ const
{ Dataset names for schReport }
ds_InformeFacturasCliente = 'InformeFacturasCliente';
ds_InformeFacturasCliente_Detalles = 'InformeFacturasCliente_Detalles';
- ds_InformeFacturasCliente_Vencimientos = 'InformeFacturasCliente_Vencimientos';
+ ds_InformeFacturasCliente_Vencimientos = 'InformeFacturasCliente_Vencimientos';
{ TRptFacturasCliente }
-
procedure TRptFacturasCliente.DataModuleCreate(Sender: TObject);
begin
schReport.ConnectionManager := dmServer.ConnectionManager;
FConnection := dmServer.DarNuevaConexion;
- frxReport.EngineOptions.NewSilentMode := simReThrow;
+ FShowLogotipo := False;
+ frxReport.EngineOptions.NewSilentMode := simReThrow;
end;
-function TRptFacturasCliente.GenerarFactura(const AFacturaID: String): Binary;
+procedure TRptFacturasCliente.frxReportGetValue(const VarName: string; var Value: Variant);
+begin
+ if VarName = 'ShowLogotipo' then
+ Value := FShowLogotipo;
+end;
+
+function TRptFacturasCliente.GenerarFactura(const AFacturaID: String; const AConLogotipo: Boolean = False): Binary;
var
ID_Facturas: TStringList;
i: Integer;
@@ -76,6 +84,7 @@ begin
FConnection.BeginTransaction;
try
+ FShowLogotipo := AConLogotipo;
ID_Facturas := TStringList.Create;
ID_Facturas.CommaText := AFacturaID;
@@ -116,7 +125,6 @@ begin
DABINAdapter.WriteDataset(AStream, dsVencimientos, [woRows, woSchema], -1);
DABINAdapter.ReadDataset(AStream, tbl_Vencimientos, TRUE, '', TRUE, TRUE);
-
frxReport.LoadFromFile(DarRutaInformes + rptFacturaCliente, True);
frxReport.PrepareReport(False);
diff --git a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas
index ec05a933..e9d4c894 100644
--- a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas
+++ b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas
@@ -36,7 +36,7 @@ type
protected
{ IsrvFacturasCliente methods }
function GetNextAutoInc(const GeneratorName: String): Integer;
- function GenerateReport(const FacturaID: String): Binary;
+ function GenerateReport(const FacturaID: String; const ShowLogotipo: Boolean): Binary;
end;
implementation
@@ -78,13 +78,13 @@ begin
bpFacturasCliente.BusinessRulesID := BIZ_SERVER_FACTURAS_CLIENTE;
end;
-function TsrvFacturasCliente.GenerateReport(const FacturaID: String): Binary;
+function TsrvFacturasCliente.GenerateReport(const FacturaID: String; const ShowLogotipo: Boolean): Binary;
var
AReportGenerator : TRptFacturasCliente;
begin
AReportGenerator := TRptFacturasCliente.Create(nil);
try
- Result := AReportGenerator.GenerarFactura(FacturaID);
+ Result := AReportGenerator.GenerarFactura(FacturaID, ShowLogotipo);
finally
FreeAndNIL(AReportGenerator);
end;
diff --git a/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteReportController.pas b/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteReportController.pas
index b72a01a5..859d3c62 100644
--- a/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteReportController.pas
+++ b/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteReportController.pas
@@ -63,7 +63,7 @@ begin
ShowHourglassCursor;
try
- AStream := FDataModule.GetReport(AID);
+ AStream := FDataModule.GetReport(AID, True);
try
CreateEditor('EditorPedidosClientePreview', IEditorPedidosClientePreview, AEditor);
AEditor.LoadFromStream(AStream);
diff --git a/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.bdsproj b/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.bdsproj
index 30ba4394..dd4243d6 100644
--- a/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.bdsproj
+++ b/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.bdsproj
@@ -172,7 +172,7 @@
-