diff --git a/Build/Build.fbl6 b/Build/Build.fbl6
index 2d50d06..97bda47 100644
Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ
diff --git a/Database/scripts/VISTAS.SQL b/Database/scripts/VISTAS.SQL
index 8ff7e7f..9608527 100644
--- a/Database/scripts/VISTAS.SQL
+++ b/Database/scripts/VISTAS.SQL
@@ -449,3 +449,33 @@ where (ALBARANES_CLIENTE_DETALLES.ID_ARTICULO is not null) and (ALBARANES_CLIENT
/*and (FACTURAS_CLIENTE_DETALLES.cantidad > 0) Quitamos los abonos*/
and (ARTICULOS.INVENTARIABLE = 1)
;
+
+
+CREATE VIEW V_ETIQUETAS_ART_ALB(
+ ID,
+ ID_ALBARAN,
+ REFERENCIA_ALBARAN,
+ FECHA_PREVISTA_ENVIO,
+ REFERENCIA_CLIENTE,
+ POSICION,
+ TIPO_DETALLE,
+ REFERENCIA,
+ CONCEPTO,
+ CANTIDAD,
+ IMPORTE_UNIDAD,
+ DESCUENTO,
+ IMPORTE_TOTAL,
+ REFERENCIA_PROVEEDOR)
+AS
+SELECT DET.ID, DET.ID_ALBARAN, ALBARANES_CLIENTE.REFERENCIA, ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO, ALBARANES_CLIENTE.REFERENCIA_CLIENTE,
+ DET.POSICION, DET.TIPO_DETALLE,
+ ARTICULOS.REFERENCIA, F_RTFTOTEXT(DET.CONCEPTO) as CONCEPTO, DET.CANTIDAD,
+ DET.IMPORTE_UNIDAD,
+ DET.DESCUENTO,
+ DET.IMPORTE_TOTAL,
+ ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR
+FROM ALBARANES_CLIENTE_DETALLES DET
+LEFT OUTER JOIN ALBARANES_CLIENTE ON (DET.ID_ALBARAN = ALBARANES_CLIENTE.ID)
+LEFT OUTER JOIN ARTICULOS ON (DET.ID_ARTICULO = ARTICULOS.ID)
+ORDER BY DET.ID_ALBARAN, DET.POSICION
+;
\ No newline at end of file
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index 8593921..1ca3716 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -53,7 +53,7 @@
Delphi.Personality
VCLApplication
-FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse4310FalseFalseFalseFalseFalse30821252Rodax Software S.L.4.3.1.0FactuGESFactuGES4.3.1.0FactuGES.dprFalse
+FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse4320FalseFalseFalseFalseFalse30821252Rodax Software S.L.4.3.2.0FactuGESFactuGES4.3.2.0FactuGES.dprFalse
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index 81e2072..c74a51b 100644
--- a/Source/Cliente/FactuGES.rc
+++ b/Source/Cliente/FactuGES.rc
@@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
-FILEVERSION 4,3,1,0
-PRODUCTVERSION 4,3,1,0
+FILEVERSION 4,3,2,0
+PRODUCTVERSION 4,3,2,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
- VALUE "FileVersion", "4.3.1.0\0"
+ VALUE "FileVersion", "4.3.2.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
- VALUE "ProductVersion", "4.3.1.0\0"
+ VALUE "ProductVersion", "4.3.2.0\0"
END
END
BLOCK "VarFileInfo"
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index 0486a30..cab4175 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/GUIBase/uEditorPreview.dfm b/Source/GUIBase/uEditorPreview.dfm
index 576ff9f..295f457 100644
--- a/Source/GUIBase/uEditorPreview.dfm
+++ b/Source/GUIBase/uEditorPreview.dfm
@@ -273,31 +273,41 @@ inherited fEditorPreview: TfEditorPreview
object actExportarPDF: TAction
Category = 'Exportaci'#243'n'
Caption = 'Exportar a PDF...'
+ Enabled = False
ImageIndex = 21
+ Visible = False
OnExecute = actExportarPDFExecute
end
object actExportarRTF: TAction
Category = 'Exportaci'#243'n'
Caption = 'Exportar a documento Word...'
+ Enabled = False
ImageIndex = 24
+ Visible = False
OnExecute = actExportarRTFExecute
end
object actExportarExcel: TAction
Category = 'Exportaci'#243'n'
Caption = 'Exportar a libro Excel...'
+ Enabled = False
ImageIndex = 22
+ Visible = False
OnExecute = actExportarExcelExecute
end
object actExportarCorreo: TAction
Category = 'Exportaci'#243'n'
Caption = 'Enviar por correo electr'#243'nico...'
+ Enabled = False
ImageIndex = 25
+ Visible = False
OnExecute = actExportarCorreoExecute
end
object actExportarTexto: TAction
Category = 'Exportaci'#243'n'
Caption = 'Exportar a texto simple...'
+ Enabled = False
ImageIndex = 23
+ Visible = False
OnExecute = actExportarTextoExecute
end
end
diff --git a/Source/Informes/1/InfEtiquetasAlbaranCliente.fr3 b/Source/Informes/1/InfEtiquetasAlbaranCliente.fr3
deleted file mode 100644
index a2909ec..0000000
--- a/Source/Informes/1/InfEtiquetasAlbaranCliente.fr3
+++ /dev/null
@@ -1,22 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/Source/Informes/1/InfFacturaCliente.fr3 b/Source/Informes/1/InfFacturaCliente.fr3
index 78c69f1..a11dcc9 100644
--- a/Source/Informes/1/InfFacturaCliente.fr3
+++ b/Source/Informes/1/InfFacturaCliente.fr3
@@ -1,71 +1,73 @@
-
+
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
-
+
-
-
-
-
+
+
+
+
-
+
+
+
+
+
-
-
-
-
-
+
+
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
+
+
-
-
+
+
diff --git a/Source/Informes/1/InfRemesaCliente.fr3 b/Source/Informes/1/InfRemesaCliente.fr3
index f29490a..6c0ee71 100644
--- a/Source/Informes/1/InfRemesaCliente.fr3
+++ b/Source/Informes/1/InfRemesaCliente.fr3
@@ -1,8 +1,8 @@
-
+
-
-
+
+
@@ -12,13 +12,13 @@
-
+
-
+
@@ -39,17 +39,17 @@
-
+
-
+
-
+
-
-
+
+
diff --git a/Source/Informes/2/InfEtiquetasAlbaranCliente.fr3 b/Source/Informes/2/InfEtiquetasAlbaranCliente.fr3
deleted file mode 100644
index a2909ec..0000000
--- a/Source/Informes/2/InfEtiquetasAlbaranCliente.fr3
+++ /dev/null
@@ -1,22 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/Source/Informes/2/InfFacturaCliente.fr3 b/Source/Informes/2/InfFacturaCliente.fr3
index 8d412a9..564ae9e 100644
--- a/Source/Informes/2/InfFacturaCliente.fr3
+++ b/Source/Informes/2/InfFacturaCliente.fr3
@@ -1,71 +1,71 @@
-
+
-
-
-
-
-
-
+
+
+
+
+
+
-
-
-
-
+
+
+
+
-
+
-
-
-
-
-
+
+
+
+
+
-
+
-
+
-
+
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
+
+
+
+
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
+
diff --git a/Source/Informes/2/InfRemesaCliente.fr3 b/Source/Informes/2/InfRemesaCliente.fr3
index c83430f..45ba3cb 100644
--- a/Source/Informes/2/InfRemesaCliente.fr3
+++ b/Source/Informes/2/InfRemesaCliente.fr3
@@ -1,7 +1,7 @@
-
+
-
+
diff --git a/Source/Informes/5/InfEtiquetasAlbaranCliente.fr3 b/Source/Informes/5/InfEtiquetasAlbaranCliente.fr3
deleted file mode 100644
index a2909ec..0000000
--- a/Source/Informes/5/InfEtiquetasAlbaranCliente.fr3
+++ /dev/null
@@ -1,22 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/Source/Informes/5/InfFacturaCliente.fr3 b/Source/Informes/5/InfFacturaCliente.fr3
index 30feb62..c60727e 100644
--- a/Source/Informes/5/InfFacturaCliente.fr3
+++ b/Source/Informes/5/InfFacturaCliente.fr3
@@ -1,71 +1,71 @@
-
+
-
-
-
+
+
+
-
-
-
-
+
+
+
+
-
-
-
-
+
+
+
+
-
+
-
-
-
-
-
+
+
+
+
+
-
-
-
+
+
+
-
+
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
+
+
+
+
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
+
diff --git a/Source/Informes/5/InfPedidoCliente.fr3 b/Source/Informes/5/InfPedidoCliente.fr3
index edf4c4f..8fbe0f8 100644
--- a/Source/Informes/5/InfPedidoCliente.fr3
+++ b/Source/Informes/5/InfPedidoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -41,7 +41,7 @@
-
+
diff --git a/Source/Informes/5/InfRemesaCliente.fr3 b/Source/Informes/5/InfRemesaCliente.fr3
index c83430f..75bba0a 100644
--- a/Source/Informes/5/InfRemesaCliente.fr3
+++ b/Source/Informes/5/InfRemesaCliente.fr3
@@ -1,7 +1,7 @@
-
+
-
+
diff --git a/Source/Informes/6/InfEtiquetasAlbaranCliente.fr3 b/Source/Informes/6/InfEtiquetasAlbaranCliente.fr3
deleted file mode 100644
index a2909ec..0000000
--- a/Source/Informes/6/InfEtiquetasAlbaranCliente.fr3
+++ /dev/null
@@ -1,22 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/Source/Informes/6/InfFacturaCliente.fr3 b/Source/Informes/6/InfFacturaCliente.fr3
index ca9a34c..e6efe6f 100644
--- a/Source/Informes/6/InfFacturaCliente.fr3
+++ b/Source/Informes/6/InfFacturaCliente.fr3
@@ -1,68 +1,68 @@
-
+
-
-
-
+
+
+
-
-
-
-
+
+
+
+
-
-
-
-
+
+
+
+
-
+
-
-
-
-
-
+
+
+
+
+
-
-
-
+
+
+
-
+
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
+
+
+
+
-
-
-
-
-
-
-
+
+
+
+
+
+
+
diff --git a/Source/Informes/6/InfRemesaCliente.fr3 b/Source/Informes/6/InfRemesaCliente.fr3
index c83430f..52ffd00 100644
--- a/Source/Informes/6/InfRemesaCliente.fr3
+++ b/Source/Informes/6/InfRemesaCliente.fr3
@@ -1,7 +1,7 @@
-
+
-
+
diff --git a/Source/Informes/InfEtiquetasAlbaranCliente.fr3 b/Source/Informes/InfEtiquetasAlbaranCliente.fr3
new file mode 100644
index 0000000..02a4ba7
--- /dev/null
+++ b/Source/Informes/InfEtiquetasAlbaranCliente.fr3
@@ -0,0 +1,9 @@
+
+
+
+
+
+
+
+
+
diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
index 19e0d91..18ed7c6 100644
--- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
+++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
@@ -2492,6 +2492,136 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'IMPORTE_MEDIO_CLIENTE'
DataType = datCurrency
end>
+ end
+ item
+ Params = <>
+ Statements = <
+ item
+ Connection = 'IBX'
+ TargetTable = 'V_ETIQUETAS_ART_ALB'
+ StatementType = stAutoSQL
+ ColumnMappings = <
+ item
+ DatasetField = 'ID'
+ TableField = 'ID'
+ end
+ item
+ DatasetField = 'ID_ALBARAN'
+ TableField = 'ID_ALBARAN'
+ end
+ item
+ DatasetField = 'REFERENCIA_ALBARAN'
+ TableField = 'REFERENCIA_ALBARAN'
+ end
+ item
+ DatasetField = 'FECHA_PREVISTA_ENVIO'
+ TableField = 'FECHA_PREVISTA_ENVIO'
+ end
+ item
+ DatasetField = 'REFERENCIA_CLIENTE'
+ TableField = 'REFERENCIA_CLIENTE'
+ end
+ item
+ DatasetField = 'POSICION'
+ TableField = 'POSICION'
+ end
+ item
+ DatasetField = 'TIPO_DETALLE'
+ TableField = 'TIPO_DETALLE'
+ end
+ item
+ DatasetField = 'REFERENCIA'
+ TableField = 'REFERENCIA'
+ end
+ item
+ DatasetField = 'CONCEPTO'
+ TableField = 'CONCEPTO'
+ end
+ item
+ DatasetField = 'CANTIDAD'
+ TableField = 'CANTIDAD'
+ end
+ item
+ DatasetField = 'IMPORTE_UNIDAD'
+ TableField = 'IMPORTE_UNIDAD'
+ end
+ item
+ DatasetField = 'DESCUENTO'
+ TableField = 'DESCUENTO'
+ end
+ item
+ DatasetField = 'IMPORTE_TOTAL'
+ TableField = 'IMPORTE_TOTAL'
+ end
+ item
+ DatasetField = 'REFERENCIA_PROVEEDOR'
+ TableField = 'REFERENCIA_PROVEEDOR'
+ end>
+ end>
+ Name = 'Informe_Etiquetas_Articulos_Albaranes'
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ end
+ item
+ Name = 'ID_ALBARAN'
+ DataType = datInteger
+ end
+ item
+ Name = 'REFERENCIA_ALBARAN'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'FECHA_PREVISTA_ENVIO'
+ DataType = datDateTime
+ end
+ item
+ Name = 'REFERENCIA_CLIENTE'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'POSICION'
+ DataType = datInteger
+ end
+ item
+ Name = 'TIPO_DETALLE'
+ DataType = datString
+ Size = 25
+ end
+ item
+ Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'CONCEPTO'
+ DataType = datString
+ Size = 32765
+ end
+ item
+ Name = 'CANTIDAD'
+ DataType = datCurrency
+ end
+ item
+ Name = 'IMPORTE_UNIDAD'
+ DataType = datCurrency
+ end
+ item
+ Name = 'DESCUENTO'
+ DataType = datFloat
+ end
+ item
+ Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
+ end
+ item
+ Name = 'REFERENCIA_PROVEEDOR'
+ DataType = datString
+ Size = 255
+ end>
end>
JoinDataTables = <>
UnionDataTables = <>
@@ -2505,185 +2635,15 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
object frxReport: TfrxReport
Version = '4.7.71'
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 = 41407.765051446760000000
+ ReportOptions.CreateDate = 41478.551891354170000000
+ ReportOptions.LastChange = 41478.553933067130000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
- 'var'
- ' Pagina: Variant;'
- ''
- ''
- 'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);'
- 'var'
- ' Cadena: String;'
- 'begin'
- ' DatosEmpresa.Lines.Clear;'
- ' if ( <> '#39#39') then'
- ' Cadena := '#39'TLF: '#39' + ;'
- ' if ( <> '#39#39') then'
-
- ' Cadena := Cadena + '#39' FAX: '#39' + ;'
- ' DatosEmpresa.Lines.Add(Cadena);'
- 'end;'
- ''
- 'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);'
- 'begin'
- ' NombreEmpresa.Lines.Clear;'
- ' NombreEmpresa.Lines.Add();'
- 'end;'
- ''
- 'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);'
- 'var'
- ' ACadena : String;'
- 'begin'
- ' ACadena := '#39#39';'
- ' DireccionEnvio.Lines.Clear;'
- ''
- ' ACadena := '#39#39';'
- ''
- ' DireccionEnvio.Lines.Add();'
- ' if ( <> '#39#39') then'
- ' ACadena := + '#39' '#39';'
- ' if ( <> '#39#39') then'
- ' ACadena := ACadena + ;'
- ''
- ' if (ACadena <> '#39#39') then'
- ' DireccionEnvio.Lines.Add(ACadena);'
- ''
- ' if ( <> '#39#39') then'
- ' DireccionEnvio.Lines.Add();'
- 'end;'
- ''
- 'procedure Memo2OnBeforePrint(Sender: TfrxComponent);'
- 'begin'
- ' Memo2.Lines.Clear;'
- ' if (StrToFloat() < 0) then'
- ' Memo2.Lines.Add('#39'ORDEN DE DEVOLUCI'#211'N'#39')'
- ' else'
- ' Memo2.Lines.Add('#39'ALBAR'#193'N DE CLIENTE'#39')'
- 'end;'
- ''
- 'procedure Memo5OnBeforePrint(Sender: TfrxComponent);'
- 'begin'
- ' if (StrToFloat() < 0) then'
- ' begin'
- ' Memo5.Lines.Clear;'
- ' Memo5.Lines.Add('#39'N'#186' orden:'#39');'
- ' end;'
- 'end;'
- ''
- 'procedure Memo9OnBeforePrint(Sender: TfrxComponent);'
- 'begin'
- ' if (StrToFloat() < 0) then'
- ' begin'
- ' Memo9.Lines.Clear;'
- ' Memo9.Lines.Add('#39'Fecha orden:'#39');'
- ' end;'
- 'end;'
- ''
- 'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);'
- 'begin'
- ' if not Engine.FinalPass then'
- ' Set('#39'TotalPaginas'#39', ( + 1));'
- ''
- ' if Engine.FinalPass then'
- ' Set('#39'Pagina'#39', ( + 1));'
- 'end;'
- ''
- 'procedure frxReportOnStartReport(Sender: TfrxComponent);'
- 'begin'
- ' Set('#39'Pagina'#39', 0);'
- ' Set('#39'TotalPaginas'#39', 0);'
- 'end;'
- ''
- 'procedure Picture1OnBeforePrint(Sender: TfrxComponent);'
- 'begin'
- ' if then'
- ' begin '
- ' Picture1.Visible := True; '
- ' NombreEmpresa.Visible := False;'
-
- ' DatosEmpresa.Visible := False; ' +
- ' '
- ' end'
- ' else'
- ' begin '
- ' Picture1.Visible := False;'
- ' NombreEmpresa.Visible := True;'
- ' DatosEmpresa.Visible := True; '
- ' end'
- 'end;'
- ''
- 'procedure Memo26OnBeforePrint(Sender: TfrxComponent);'
- 'begin'
-
- ' if and ( <> ' +
- #39#39') then'
-
- ' Memo26.Visible := True ' +
- ' '
- ' else'
- ' Memo26.Visible := False '
- 'end;'
- ''
- 'procedure Memo27OnBeforePrint(Sender: TfrxComponent);'
- 'begin'
-
- ' if and ( <> '#39#39') ' +
- 'then'
-
- ' Memo27.Visible := True ' +
- ' '
- ' else'
- ' Memo27.Visible := False '
- 'end;'
- ''
- 'procedure eImporteUnidadOnBeforePrint(Sender: TfrxComponent);'
- 'begin'
- ' if then'
- ' begin '
- ' eImporteUnidad.Visible := True; '
- ' lImporteUnidad.Visible := True;'
- ' eDescuento.Visible := True;'
-
- ' lDescuento.Visible := True; ' +
- ' '
- ' eImporteTotal.Visible := True; '
- ' lImporteTotal.Visible := True; '
- ' ImporteUnidad.Visible := True;'
-
- ' Descuento.Visible := True; ' +
- ' '
- ' ImporteTotal.Visible := True; '
- ' end'
- ' else'
- ' begin '
- ' eImporteUnidad.Visible := False; '
- ' lImporteUnidad.Visible := False; '
- ' eImporteTotal.Visible := False; '
- ' lImporteTotal.Visible := False;'
- ' eDescuento.Visible := False;'
-
- ' lDescuento.Visible := False; ' +
- ' '
- ' ImporteUnidad.Visible := False; '
- ' ImporteTotal.Visible := False;'
-
- ' Descuento.Visible := False; ' +
- ' '
-
- ' eConcepto.Width := eConcepto.Width + ImporteTotal.Width + e' +
- 'Descuento.Width + ImporteUnidad.Width + 10;'
- ' Concepto.Width := eConcepto.Width - 10; '
- ' end '
- 'end;'
''
'begin'
''
@@ -2691,7 +2651,6 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
ShowProgress = False
StoreInDFM = False
OnGetValue = frxReportGetValue
- OnStartReport = 'frxReportOnStartReport'
Left = 145
Top = 16
end
@@ -4179,4 +4138,96 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Left = 288
Top = 200
end
+ object tbl_Etiquetas: TDAMemDataTable
+ RemoteUpdatesOptions = []
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ end
+ item
+ Name = 'ID_ALBARAN'
+ DataType = datInteger
+ end
+ item
+ Name = 'REFERENCIA_ALBARAN'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'FECHA_PREVISTA_ENVIO'
+ DataType = datDateTime
+ end
+ item
+ Name = 'REFERENCIA_CLIENTE'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'POSICION'
+ DataType = datInteger
+ end
+ item
+ Name = 'TIPO_DETALLE'
+ DataType = datString
+ Size = 25
+ end
+ item
+ Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'CONCEPTO'
+ DataType = datString
+ Size = 32765
+ end
+ item
+ Name = 'CANTIDAD'
+ DataType = datCurrency
+ end
+ item
+ Name = 'IMPORTE_UNIDAD'
+ DataType = datCurrency
+ end
+ item
+ Name = 'DESCUENTO'
+ DataType = datFloat
+ end
+ item
+ Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
+ end
+ item
+ Name = 'REFERENCIA_PROVEEDOR'
+ DataType = datString
+ Size = 255
+ end>
+ Params = <>
+ MasterParamsMappings.Strings = (
+ 'ID_ALBARAN=ID')
+ LogChanges = False
+ StreamingOptions = [soDisableEventsWhileStreaming]
+ RemoteFetchEnabled = False
+ LocalSchema = schReport
+ LocalDataStreamer = DABin2DataStreamer1
+ LogicalName = 'Informe_Etiquetas_Articulos_Albaranes'
+ IndexDefs = <>
+ Left = 504
+ Top = 480
+ end
+ object DADSEtiquetas: TDADataSource
+ DataSet = tbl_Etiquetas.Dataset
+ DataTable = tbl_Etiquetas
+ Left = 504
+ Top = 432
+ end
+ object frxDBEtiquetas: TfrxDBDataset
+ UserName = 'frxDBEtiquetas'
+ CloseDataSource = False
+ DataSource = DADSEtiquetas
+ BCDToCurrency = False
+ Left = 504
+ Top = 376
+ end
end
diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas
index 17d9dab..e77a903 100644
--- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas
+++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas
@@ -79,6 +79,9 @@ type
tbl_InformeObjetivosMensual: TDAMemDataTable;
tbl_InformeObjetivosTrimestral: TDAMemDataTable;
tbl_InformeObjetivosSemestral: TDAMemDataTable;
+ tbl_Etiquetas: TDAMemDataTable;
+ DADSEtiquetas: TDADataSource;
+ frxDBEtiquetas: TfrxDBDataset;
schReport: TDASchema;
procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject);
@@ -258,33 +261,35 @@ function TRptAlbaranesCliente.GenerarEtiquetas(const ListaID: TIntegerArray): Bi
var
i: Integer;
AInforme: Variant;
+ Condicion: TDAWhereExpression;
+ AArray : Array of TDAWhereExpression;
begin
Result := Binary.Create;
-
-
-
- //Vamos generando todos y cada uno de los albaranes recibidos
-// for i := 0 to ListaID.Count - 1 do
-// _GenerarAlbaran(AListaID.Items[i]);
-// frxReport.PreviewPages.SaveToStream(Result);
-
-
-
-
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
try
- tbl_Cabecera.Active := False;
- tbl_Detalles.Active := False;
- tbl_Cabecera.ParamByName('ID').AsInteger := ListaID.Items[0];
- tbl_Detalles.ParamByName('ID_ALBARAN').AsInteger := ListaID.Items[0];
+ with tbl_Etiquetas.DynamicWhere do
+ begin
- tbl_Cabecera.Active := True;
- tbl_Detalles.Active := True;
+ //Vamos generando todos y cada uno de los albaranes recibidos
+ SetLength(AArray, ListaID.Count);
+ for i := 0 to ListaID.Count - 1 do
+ AArray[i] := NewConstant(ListaID.Items[i], datInteger);
- AInforme := DarRutaFichero(DarRutaInformes, rptInfEtiquetas, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
+ // (ID_ALBARANES IN ...)
+ Condicion := NewBinaryExpression(NewField('', fld_AlbaranesCliente_DetallesID_ALBARAN), NewList(AArray), dboIn);
+ if IsEmpty then
+ Expression := Condicion
+ else
+ Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+ end;
+
+ tbl_Etiquetas.Active := False;
+ tbl_Etiquetas.Active := True;
+
+ AInforme := DarRutaFichero(DarRutaInformes, rptInfEtiquetas);
if VarIsNull(AInforme) then
raise Exception.Create (('Error Servidor: GenerarEtiquetas, no encuentra informe ' + rptInforme));
diff --git a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
index 20c4e67..7566d48 100644
--- a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
+++ b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
@@ -262,7 +262,7 @@ begin
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
USUARIO := AppFactuGES.UsuarioActivo.UserName;
FECHA_FACTURA := DateOf(Now);
- FECHA_VENCIMIENTO := DateOf(Now);
+ FECHA_VENCIMIENTO := DateOf(Now);
TIPO := CTE_TIPO_FACTURA;
ID_CLIENTE := ID_NULO;
ID_FORMA_PAGO := AppFactuGES.EmpresaActiva.ID_FORMA_PAGO;
diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
index b1af31b..38ff5a6 100644
--- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
+++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
@@ -4017,69 +4017,196 @@ object RptFacturasCliente: TRptFacturasCliente
EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports'
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
+ PreviewOptions.OutlineWidth = 180
PreviewOptions.Zoom = 1.000000000000000000
- PrintOptions.Printer = 'Por defecto'
+ PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0
- ReportOptions.CreateDate = 37800.807714351900000000
- ReportOptions.LastChange = 41197.580220925930000000
+ ReportOptions.CreateDate = 37871.995398692100000000
+ ReportOptions.LastChange = 41474.500467106500000000
+ ReportOptions.VersionBuild = '1'
+ ReportOptions.VersionMajor = '12'
+ ReportOptions.VersionMinor = '13'
+ ReportOptions.VersionRelease = '1'
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
- 'procedure Chart1OnBeforePrint(Sender: TfrxComponent);'
+ 'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);'
'begin'
- ' if ( <> 0) then'
- ' begin '
+ ' DatosCliente.Lines.Clear;'
+ ' DatosCliente.Lines.Add();'
+ ''
+ ' if ( <> '#39#39')'
+ ' or ( <> '#39#39') then'
- ' TLineSeries(Chart1.Series[0]).Title := '#39'Total facturado '#39' +' +
- ' VarToStr();'
+ ' DatosCliente.Lines.Add( + '#39' ' +
+ ' '#39' + );'
+ ''
+ ' if ( <> '#39#39') then'
+ ' DatosCliente.Lines.Add();'
+ 'end;'
+ ''
+ 'procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);'
+ 'begin'
+ ' BandaDetalles.StartNewPage := False;'
+ ' BandaDetalles.Visible := True;'
+ ' MemPrecio.Style := '#39'Concepto normal'#39';'
+ ' MemCantidad.Style := '#39'Concepto normal'#39';'
+ ' MemImpTotal.Style := '#39'Concepto normal'#39';'
+ ' RichConcepto.Visible := True;'
+ ' MemImpTotal.HideZeros := True;'
+ ' '
+ ' case of'
+ ' '#39'Salto'#39': begin'
+ ' BandaDetalles.StartNewPage := True;'
+ ' RichConcepto.Visible := False;'
+ ' end;'
+ ' '#39'Titulo'#39': begin'
+ ' MemPrecio.Style := '#39'Concepto titulo'#39';'
+ ' MemCantidad.Style := '#39'Concepto titulo'#39';'
+ ' MemImpTotal.Style := '#39'Concepto titulo'#39';'
+ ' end;'
+ ' '#39'Concepto'#39': begin'
+ ' MemPrecio.Style := '#39'Concepto normal'#39';'
+ ' MemCantidad.Style := '#39'Concepto normal'#39';'
+ ' MemImpTotal.Style := '#39'Concepto normal'#39';'
+ ' end;'
+ ' '#39'Subtotal'#39': begin'
+ ' MemPrecio.Style := '#39'Concepto subtotal'#39';'
+ ' MemCantidad.Style := '#39'Concepto subtotal'#39';'
+ ' MemImpTotal.Style := '#39'Concepto subtotal'#39';'
+
+ ' MemImpTotal.HideZeros := False; ' +
+ ' '
+ ' end;'
+ ' '#39'Descuento'#39': begin'
+ ' BandaDetalles.Visible := False;'
+ ' RichConcepto.Color := clNone;'
+ ' end;'
' end;'
- ' '
- ' if ( > 0) then'
- ' begin '
+ ''
+ ' RichConcepto.Color := MemImpTotal.Color;'
+ ' RichConcepto.Frame := MemImpTotal.Frame;'
+ 'end;'
+ ''
+ 'procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);'
+ 'begin'
- ' TLineSeries(Chart1.Series[1]).Title := '#39'Total facturado '#39' +' +
- ' VarToStr();'
+ ' Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1' +
+ '.Height - 1;'
+ 'end;'
+ ''
+ 'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);'
+ 'var'
+ ' Cadena: String;'
+ 'begin'
+ ' { '
+ ' DatosEmpresa.Lines.Clear;'
+ ' DatosEmpresa.Lines.Add();'
+ ' DatosEmpresa.Lines.Add();'
+ ''
+ ' Cadena := '#39#39';'
+ ' if ( <> '#39#39') then'
+ ' Cadena := '#39'TLF: '#39' + ;'
+ ' if ( <> '#39#39') then'
+ ' Cadena := Cadena + '#39' FAX: '#39' + ;'
+ ' DatosEmpresa.Lines.Add(Cadena);'
+ ''
+ ' Cadena := '#39#39';'
+ ' if ( <> '#39#39') then'
+ ' Cadena := ;'
+ ' if ( <> '#39#39') then'
+
+ ' Cadena := Cadena + '#39' '#39' + ;'
+ ' if ( <> '#39#39') then'
+
+ ' Cadena := Cadena + '#39' - '#39' + ;'
+ ' DatosEmpresa.Lines.Add(Cadena);'
+ ' } '
+ 'end;'
+ ''
+ 'procedure Memo15OnBeforePrint(Sender: TfrxComponent);'
+ 'begin'
+ ' Memo15.Lines.Clear;'
+ ' if (StrToFloat() < 0) then'
+ ' Memo15.Lines.Add('#39'ABONO'#39')'
+ ' else'
+ ' Memo15.Lines.Add('#39'FACTURA'#39')'
+ 'end;'
+ ''
+ 'procedure Memo20OnBeforePrint(Sender: TfrxComponent);'
+ 'begin'
+ ' if (StrToFloat() = 0) then'
+ ' begin'
+ ' Memo21.Lines.Clear;'
+ ' Memo29.Lines.Clear;'
+ ' end;'
+ ''
+ 'end;'
+ ''
+ 'procedure Memo11OnBeforePrint(Sender: TfrxComponent);'
+ 'var'
+ ' Cadena : String;'
+ 'begin'
+ ' if ( <> '#39#39') then'
+ ' begin'
+ ' Cadena := Memo11.Lines.Text;'
+ ' Memo11.Lines.Clear;'
+ ' Memo11.Lines.Add();'
+ ' Memo11.Lines.Add(Cadena);'
+ ' end'
+ 'end;'
+ ''
+ 'procedure Band2OnBeforePrint(Sender: TfrxComponent);'
+ 'begin'
+ ' if not Engine.FinalPass then'
+ ' Set('#39'TotalPaginas'#39', ( + 1));'
+ ''
+ ' if Engine.FinalPass then'
+ ' Set('#39'Pagina'#39', ( + 1));'
+ 'end;'
+ ''
+ 'procedure frxReportOnStartReport(Sender: TfrxComponent);'
+ 'begin'
+ ' Set('#39'Pagina'#39', 0);'
+ ' Set('#39'TotalPaginas'#39', 0);'
+ 'end;'
+ ''
+ 'procedure Picture1OnBeforePrint(Sender: TfrxComponent);'
+ 'begin'
+ ' if then'
+ ' begin '
+ ' Picture1.Visible := True; '
+ '// Picture2.Visible := True; '
+ '// Picture3.Visible := True; '
+ '// Picture4.Visible := True; '
+ '// Picture5.Visible := True; '
+ '// Picture6.Visible := True; '
+ ' Memo12.Visible := True;'
+
+ ' Memo14.Visible := True; ' +
+ ' '
' end'
' else'
' begin '
- ' Chart1.Series[1].Active := False;'
- ' end; '
+ ' Picture1.Visible := False;'
+ '// Picture2.Visible := False;'
+ '// Picture3.Visible := False;'
+ '// Picture4.Visible := False;'
+ '// Picture5.Visible := False;'
+ '// Picture6.Visible := False;'
+ ' Memo12.Visible := False;'
+
+ ' Memo14.Visible := False; ' +
+ ' '
+ ' end'
'end;'
''
- 'procedure Memo16OnBeforePrint(Sender: TfrxComponent);'
- 'var'
- ' Valor:Double; '
- 'begin'
-
- ' Valor := SUM() * 100; '
-
- ' if (SUM()' +
- ' = 0) then'
- ' Valor := 100 - Valor '
- ' else'
-
- ' Valor := 100 - (Valor/SUM()); '
''
- ' memo16.lines.add(FormatFloat('#39'#,##0.00 %'#39',Valor));'
- 'end;'
- ''
- 'procedure Memo46OnBeforePrint(Sender: TfrxComponent);'
- 'begin'
- ' if ( > 0) then'
- ' begin'
- ' Memo46.visible := True;'
- ' Memo47.visible := True; '
- ' end '
- ' else'
- ' begin'
- ' Memo46.visible := False;'
- ' Memo47.visible := False; '
- ' end; '
- 'end;'
''
'begin'
- 'end. ')
+ ''
+ 'end.')
ShowProgress = False
StoreInDFM = False
OnGetValue = frxReportGetValue
diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
index 37aae77..56f3ad3 100644
--- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
+++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
@@ -1079,6 +1079,7 @@ begin
// frxReport.Variables.Variables['VerCopia'] := 0;
frxReport.PrepareReport(False);
+// frxReport.PreviewPages.Print;
{
if VerCopia then
begin
diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.dfm
index 96d8584..d2d644b 100644
--- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.dfm
+++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.dfm
@@ -19,7 +19,6 @@ inherited fEditorFacturasClientePreview: TfEditorFacturasClientePreview
ExplicitWidth = 622
end
inherited TBXToolbar1: TTBXToolbar
- ExplicitWidth = 540
object TBXItem58: TTBXItem [1]
Action = actExportarRTF
Images = SmallImages
diff --git a/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.drc b/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.drc
index e41bb87..2a8ae35 100644
--- a/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.drc
+++ b/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.drc
@@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Data\uDataModuleInfMargenArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Data\InfMargenArticulo_data.res */
-/* c:\temp\dtf989.tmp */
+/* c:\temp\dtf230.tmp */
diff --git a/Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.drc b/Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.drc
index 1e3828c..f5ec32a 100644
--- a/Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.drc
+++ b/Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.drc
@@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Model\InfMargenArticulo_model.res */
-/* c:\temp\dtf987.tmp */
+/* c:\temp\dtf22E.tmp */
diff --git a/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.drc b/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.drc
index 2ebaa23..9dadde1 100644
--- a/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.drc
+++ b/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.drc
@@ -16,4 +16,4 @@ END
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\uViewInfMargenArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\uEditorInfMargenArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\InfMargenArticulo_view.res */
-/* c:\temp\dtf98D.tmp */
+/* c:\temp\dtf234.tmp */
diff --git a/Source/Modulos/Informe ventas por articulo/Data/InfVentasArticulo_data.drc b/Source/Modulos/Informe ventas por articulo/Data/InfVentasArticulo_data.drc
index fd0ff25..7a09d49 100644
--- a/Source/Modulos/Informe ventas por articulo/Data/InfVentasArticulo_data.drc
+++ b/Source/Modulos/Informe ventas por articulo/Data/InfVentasArticulo_data.drc
@@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\uDataModuleInfVentasArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\InfVentasArticulo_data.res */
-/* c:\temp\dtf97F.tmp */
+/* c:\temp\dtf226.tmp */
diff --git a/Source/Modulos/Informe ventas por articulo/Model/InfVentasArticulo_model.drc b/Source/Modulos/Informe ventas por articulo/Model/InfVentasArticulo_model.drc
index 9edbb1d..d3d278b 100644
--- a/Source/Modulos/Informe ventas por articulo/Model/InfVentasArticulo_model.drc
+++ b/Source/Modulos/Informe ventas por articulo/Model/InfVentasArticulo_model.drc
@@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Model\InfVentasArticulo_model.res */
-/* c:\temp\dtf97D.tmp */
+/* c:\temp\dtf224.tmp */
diff --git a/Source/Modulos/Informe ventas por articulo/Views/InfVentasArticulo_view.drc b/Source/Modulos/Informe ventas por articulo/Views/InfVentasArticulo_view.drc
index eb6071c..ea7d1aa 100644
--- a/Source/Modulos/Informe ventas por articulo/Views/InfVentasArticulo_view.drc
+++ b/Source/Modulos/Informe ventas por articulo/Views/InfVentasArticulo_view.drc
@@ -19,4 +19,4 @@ END
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\uViewInfVentasAlbArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\uEditorInfVentasAlbArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\InfVentasArticulo_view.res */
-/* c:\temp\dtf983.tmp */
+/* c:\temp\dtf22A.tmp */
diff --git a/Source/Modulos/Informes base/Controller/InformesBase_controller.drc b/Source/Modulos/Informes base/Controller/InformesBase_controller.drc
index 0111e38..5f916da 100644
--- a/Source/Modulos/Informes base/Controller/InformesBase_controller.drc
+++ b/Source/Modulos/Informes base/Controller/InformesBase_controller.drc
@@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Informes base\Controller\InformesBase_controller.res */
-/* c:\temp\dtf973.tmp */
+/* c:\temp\dtf21A.tmp */
diff --git a/Source/Modulos/Informes base/Data/Informes_data.drc b/Source/Modulos/Informes base/Data/Informes_data.drc
index 06aa907..dc47b09 100644
--- a/Source/Modulos/Informes base/Data/Informes_data.drc
+++ b/Source/Modulos/Informes base/Data/Informes_data.drc
@@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Informes base\Data\uDataModuleInformes.dfm */
/* C:\Codigo\Source\Modulos\Informes base\Data\Informes_data.res */
-/* c:\temp\dtf96F.tmp */
+/* c:\temp\dtf216.tmp */
diff --git a/Source/Modulos/Informes base/Model/Informes_model.drc b/Source/Modulos/Informes base/Model/Informes_model.drc
index 23119a3..5ae9c3c 100644
--- a/Source/Modulos/Informes base/Model/Informes_model.drc
+++ b/Source/Modulos/Informes base/Model/Informes_model.drc
@@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Informes base\Model\Informes_model.res */
-/* c:\temp\dtf96D.tmp */
+/* c:\temp\dtf214.tmp */
diff --git a/Source/Modulos/Informes base/Views/Informes_view.drc b/Source/Modulos/Informes base/Views/Informes_view.drc
index e0e2bda..f53329d 100644
--- a/Source/Modulos/Informes base/Views/Informes_view.drc
+++ b/Source/Modulos/Informes base/Views/Informes_view.drc
@@ -15,4 +15,4 @@ END
/* C:\Codigo\Source\Modulos\Informes base\Views\uViewInformes.dfm */
/* C:\Codigo\Source\Modulos\Informes base\Views\uEditorInformes.dfm */
/* C:\Codigo\Source\Modulos\Informes base\Views\Informes_view.res */
-/* c:\temp\dtf977.tmp */
+/* c:\temp\dtf21E.tmp */
diff --git a/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc b/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc
index 2067eb7..16bcc89 100644
--- a/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc
+++ b/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc
@@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.RES */
-/* c:\temp\dtf9AD.tmp */
+/* c:\temp\dtf254.tmp */
diff --git a/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc b/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc
index 4891d6d..a345195 100644
--- a/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc
+++ b/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc
@@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.RES */
-/* c:\temp\dtf9AB.tmp */
+/* c:\temp\dtf252.tmp */
diff --git a/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc b/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc
index ffc0b62..b55e409 100644
--- a/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc
+++ b/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc
@@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.RES */
-/* c:\temp\dtf9A9.tmp */
+/* c:\temp\dtf250.tmp */
diff --git a/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc b/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc
index 0f303d3..dc085f3 100644
--- a/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc
+++ b/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc
@@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.RES */
-/* c:\temp\dtfA15.tmp */
+/* c:\temp\dtf2BC.tmp */
diff --git a/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc b/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc
index afd563b..7efb1e5 100644
--- a/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc
+++ b/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc
@@ -26,4 +26,4 @@ END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorElegirArticulosPedidoCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorDireccionEntregaPedidoCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.RES */
-/* c:\temp\dtfA13.tmp */
+/* c:\temp\dtf2BA.tmp */
diff --git a/Source/Modulos/Remesas de cliente/Reports/uRptRemesasCliente_Server.dfm b/Source/Modulos/Remesas de cliente/Reports/uRptRemesasCliente_Server.dfm
index c1e7b44..ea8de01 100644
--- a/Source/Modulos/Remesas de cliente/Reports/uRptRemesasCliente_Server.dfm
+++ b/Source/Modulos/Remesas de cliente/Reports/uRptRemesasCliente_Server.dfm
@@ -797,18 +797,14 @@ object RptRemesasCliente: TRptRemesasCliente
PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37871.995398692100000000
- ReportOptions.LastChange = 39258.760263842600000000
- ReportOptions.VersionBuild = '1'
- ReportOptions.VersionMajor = '12'
- ReportOptions.VersionMinor = '13'
- ReportOptions.VersionRelease = '1'
+ ReportOptions.LastChange = 41472.553760856480000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
'procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);'
'begin'
- ' Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1' +
- '.Height - 1;'
+ '// Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummar' +
+ 'y1.Height;'
'end;'
''
'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);'
@@ -840,11 +836,44 @@ object RptRemesasCliente: TRptRemesasCliente
' DatosEmpresa.Lines.Add(Cadena);'
'end;'
''
+ 'procedure Band2OnBeforePrint(Sender: TfrxComponent);'
+ 'begin'
+ ' if not Engine.FinalPass then'
+ ' Set('#39'TotalPaginas'#39', ( + 1));'
+ ''
+ ' if Engine.FinalPass then'
+ ' Set('#39'Pagina'#39', ( + 1));'
+ 'end;'
+ ''
+ 'procedure frxReportOnStartReport(Sender: TfrxComponent);'
+ 'begin'
+ ' Set('#39'Pagina'#39', 0);'
+ ' Set('#39'TotalPaginas'#39', 0);'
+ 'end;'
+ ''
+ 'procedure PageFooter1OnBeforePrint(Sender: TfrxComponent);'
+ 'begin'
+ ' if Engine.FinalPass'
+ ' and ( = )then'
+ ' begin'
+ ' eTotal.Visible := True;'
+ ' vTotal.Visible := True;'
+ ' Cuadro.Visible := True;'
+ ' end'
+ ' else'
+ ' begin'
+ ' eTotal.Visible := False;'
+ ' vTotal.Visible := False;'
+ ' Cuadro.Visible := False;'
+ ' end;'
+ 'end;'
+ ''
'begin'
''
'end.')
ShowProgress = False
StoreInDFM = False
+ OnStartReport = 'frxReportOnStartReport'
Left = 169
Top = 16
end
diff --git a/Source/Modulos/Remesas de cliente/Reports/uRptRemesasCliente_Server.pas b/Source/Modulos/Remesas de cliente/Reports/uRptRemesasCliente_Server.pas
index 3ea5bb7..e83db70 100644
--- a/Source/Modulos/Remesas de cliente/Reports/uRptRemesasCliente_Server.pas
+++ b/Source/Modulos/Remesas de cliente/Reports/uRptRemesasCliente_Server.pas
@@ -60,7 +60,9 @@ procedure TRptRemesasCliente.DataModuleCreate(Sender: TObject);
begin
schReport.ConnectionManager := dmServer.ConnectionManager;
FConnection := dmServer.DarNuevaConexion;
- frxReport.EngineOptions.NewSilentMode := simReThrow;
+ frxReport.EngineOptions.NewSilentMode := simSilent;
+ frxReport.EngineOptions.EnableThreadSafe := True;
+ frxReport.EngineOptions.DoublePass := True;
frxDBCabecera.DataSource := DADataCabecera;
frxDBCabecera.CloseDataSource := False;
@@ -76,8 +78,9 @@ begin
Result := Binary.Create;
try
//Vamos generando todos y cada uno de los albaranes recibidos
- for i := 0 to ListaID.Count - 1 do
+ for i := 0 to ListaID.Count - 1 do begin
_GenerarRemesa(ListaID.Items[i]);
+ end;
frxReport.PreviewPages.SaveToStream(Result);
finally
end;
diff --git a/Source/Modulos/Tienda web/Data/TiendaWeb_data.drc b/Source/Modulos/Tienda web/Data/TiendaWeb_data.drc
index 76e1885..0562b9b 100644
--- a/Source/Modulos/Tienda web/Data/TiendaWeb_data.drc
+++ b/Source/Modulos/Tienda web/Data/TiendaWeb_data.drc
@@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Tienda web\Data\uDataModuleTiendaWeb.dfm */
/* C:\Codigo\Source\Modulos\Tienda web\Data\TiendaWeb_data.res */
-/* c:\temp\dtf9C3.tmp */
+/* c:\temp\dtf26A.tmp */
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index ee6c61f..0cf342d 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index 8b4ad0c..7931282 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -35,7 +35,7 @@
Delphi.Personality
- FalseTrueFalse/standaloneTrueFalse4310FalseFalseFalseFalseFalse308212524.3.1.04.3.1.0martes, 25 de junio de 2013 13:34
+ FalseTrueFalse/standaloneTrueFalse4320FalseFalseFalseFalseFalse308212524.3.2.04.3.2.0viernes, 19 de julio de 2013 13:48
ExpressPrinting System by Developer Express Inc.
FactuGES_Server.dprFalse
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index a313731..ae97282 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo\Resources\Iconos\Servidor.ico"
1 VERSIONINFO
-FILEVERSION 4,3,1,0
-PRODUCTVERSION 4,3,1,0
+FILEVERSION 4,3,2,0
+PRODUCTVERSION 4,3,2,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@@ -12,9 +12,9 @@ BEGIN
BEGIN
BLOCK "0C0A04E4"
BEGIN
- VALUE "FileVersion", "4.3.1.0\0"
- VALUE "ProductVersion", "4.3.1.0\0"
- VALUE "CompileDate", "martes, 02 de julio de 2013 12:14\0"
+ VALUE "FileVersion", "4.3.2.0\0"
+ VALUE "ProductVersion", "4.3.2.0\0"
+ VALUE "CompileDate", "martes, 23 de julio de 2013 16:59\0"
END
END
BLOCK "VarFileInfo"