diff --git a/Build/Build.fbl6 b/Build/Build.fbl6
index 0d47ad4..578da83 100644
Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index 9bffa75..a12fba3 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\TrueFalse4180FalseFalseFalseFalseFalse30821252Rodax Software S.L.4.1.8.0FactuGESFactuGES4.1.8.0FactuGES.dprFalse
+FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse4190FalseFalseFalseFalseFalse30821252Rodax Software S.L.4.1.9.0FactuGESFactuGES4.1.9.0FactuGES.dprFalse
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index 5936bf9..fbb1ee5 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,1,8,0
-PRODUCTVERSION 4,1,8,0
+FILEVERSION 4,1,9,0
+PRODUCTVERSION 4,1,9,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.1.8.0\0"
+ VALUE "FileVersion", "4.1.9.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
- VALUE "ProductVersion", "4.1.8.0\0"
+ VALUE "ProductVersion", "4.1.9.0\0"
END
END
BLOCK "VarFileInfo"
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index 7529b0b..cfe4c95 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Informes/1/InfAlbaranCliente.fr3 b/Source/Informes/1/InfAlbaranCliente.fr3
index 9cca04f..b82b74f 100644
--- a/Source/Informes/1/InfAlbaranCliente.fr3
+++ b/Source/Informes/1/InfAlbaranCliente.fr3
@@ -1,13 +1,14 @@
-
+
-
+
-
-
+
+
+
@@ -16,7 +17,7 @@
-
+
@@ -32,7 +33,7 @@
-
+
@@ -49,10 +50,12 @@
-
-
-
-
+
+
+
+
+
+
diff --git a/Source/Informes/2/InfAlbaranCliente.fr3 b/Source/Informes/2/InfAlbaranCliente.fr3
index 4f07732..aecd5ce 100644
--- a/Source/Informes/2/InfAlbaranCliente.fr3
+++ b/Source/Informes/2/InfAlbaranCliente.fr3
@@ -1,13 +1,14 @@
-
+
-
+
-
-
+
+
+
@@ -15,8 +16,9 @@
+
-
+
@@ -32,7 +34,7 @@
-
+
@@ -48,13 +50,14 @@
-
-
-
-
+
+
+
+
+
diff --git a/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.dpk b/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.dpk
index 1fec071..735e087 100644
Binary files a/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.dpk and b/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.dpk differ
diff --git a/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.dproj b/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.dproj
index a96cd2f..005a32e 100644
--- a/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.dproj
+++ b/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.dproj
@@ -49,14 +49,14 @@
MainSource
+
+
+
+
-
-
-
-
diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas
index a5ea024..8886a8b 100644
--- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas
+++ b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas
@@ -229,7 +229,8 @@ begin
ShowHourglassCursor;
try
- AStream := FDataModule.GetRptAlbaranes(AListaID);
+
+ AStream := FDataModule.GetRptAlbaranes(AListaID, VerImprimirPrecios, VerImprimirRefProveedor, VerImprimirObservaciones, VerImprimirIncidencias);
try
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
if Assigned(AEditor) then
@@ -237,6 +238,10 @@ begin
try
AEditor.Controller := Self;
AEditor.ListaID := AListaID;
+ AEditor.VerPrecios := VerImprimirPrecios;
+ AEditor.VerRefProveedor := VerImprimirRefProveedor;
+ AEditor.VerPrecios := VerImprimirObservaciones;
+ AEditor.VerRefProveedor := VerImprimirIncidencias;
AEditor.Title := 'Albarán - ' + AppFactuGES.EmpresaActiva.NOMBRE;
AEditor.LoadFromStream(AStream);
AEditor.TablaImpresion := nme_AlbaranesCliente;
diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
index a6f9f19..aee3e85 100644
--- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
+++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
@@ -9,9 +9,9 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_ListaAnosAlbaranes = '{14DE36A6-6267-4FEF-9D03-91E337C4602E}';
- RID_AlbaranesCliente = '{9D1A3BBF-BC06-4825-86E7-68E320A7C34A}';
- RID_AlbaranesCliente_Detalles = '{0E595562-8280-4291-A4AA-045E2B28A195}';
+ RID_ListaAnosAlbaranes = '{97E74705-E58C-4C35-8BD8-4FB92B071A41}';
+ RID_AlbaranesCliente = '{C7D38181-D27A-4E22-8F3C-A75AC30C5415}';
+ RID_AlbaranesCliente_Detalles = '{CD08D967-9833-4D28-85E1-44C419A73C09}';
{ Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@@ -165,7 +165,7 @@ const
type
{ IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
- ['{F8651CA9-7AA5-49D3-9B88-D00550F83AC8}']
+ ['{7BF69765-6C17-4529-8B77-AE37159DABE2}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -200,7 +200,7 @@ type
{ IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
- ['{B0B8190A-97CB-4B5E-9FBE-B1C6BB0335DC}']
+ ['{BD3E70CF-6C9E-4DEF-B2C5-111B4354674D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -811,7 +811,7 @@ type
{ IAlbaranesCliente_Detalles }
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{DCF15520-3EF3-45FE-B9D1-A4228A0485B4}']
+ ['{C04F5C39-EDA5-480C-8A9D-AE3C282D097D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
index 7ef8417..0b362d7 100644
--- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
+++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
@@ -9,14 +9,14 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_ListaAnosAlbaranesDelta = '{73BEA046-51D4-4B2C-AB1A-5C1862B754E7}';
- RID_AlbaranesClienteDelta = '{2A0822ED-223A-48D9-A3DA-63062ED57B5F}';
- RID_AlbaranesCliente_DetallesDelta = '{F64591E6-7183-4BD7-811D-A91F8746DB07}';
+ RID_ListaAnosAlbaranesDelta = '{9E9C7882-2EDF-423A-8B9F-22368EA2C950}';
+ RID_AlbaranesClienteDelta = '{C0D2EB08-F338-466A-BF04-1A86B1F4DB68}';
+ RID_AlbaranesCliente_DetallesDelta = '{A979524D-4C7B-4853-9AE2-EF0FEB0F920B}';
type
{ IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
- ['{73BEA046-51D4-4B2C-AB1A-5C1862B754E7}']
+ ['{9E9C7882-2EDF-423A-8B9F-22368EA2C950}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -50,7 +50,7 @@ type
{ IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
- ['{2A0822ED-223A-48D9-A3DA-63062ED57B5F}']
+ ['{C0D2EB08-F338-466A-BF04-1A86B1F4DB68}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -662,7 +662,7 @@ type
{ IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
- ['{F64591E6-7183-4BD7-811D-A91F8746DB07}']
+ ['{A979524D-4C7B-4853-9AE2-EF0FEB0F920B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
index 127a0b4..94ff3d1 100644
--- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
+++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
@@ -809,7 +809,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
item
Name = 'ID_ALBARAN'
DataType = datInteger
- Value = ''
+ Value = '123'
end>
Statements = <
item
@@ -818,13 +818,13 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
SQL =
'SELECT DET.ID, DET.ID_ALBARAN,'#10' DET.POSICION, DET.TIPO_DET' +
'ALLE,'#10' ARTICULOS.REFERENCIA, F_RTFTOTEXT(DET.CONCEPTO) as ' +
- 'CONCEPTO, DET.CANTIDAD,'#10' DET.IMPORTE_UNIDAD - (DET.IMPORTE' +
- '_UNIDAD * (COALESCE(DET.DESCUENTO,0) / 100)) as IMPORTE_UNIDAD, ' +
- 'DET.IMPORTE_TOTAL,'#10' ARTICULOS.REFERENCIA_PROV as REFERENCI' +
- 'A_PROVEEDOR'#10'FROM ALBARANES_CLIENTE_DETALLES DET'#10'LEFT OUTER JOIN ' +
- 'ARTICULOS ON (DET.ID_ARTICULO = ARTICULOS.ID)'#10#10'WHERE DET.ID_ALBA' +
- 'RAN = :ID_ALBARAN AND {Where}'#10'ORDER BY DET.ID_ALBARAN, DET.POSIC' +
- 'ION;'#10
+ 'CONCEPTO, DET.CANTIDAD,'#10' DET.IMPORTE_UNIDAD,'#10' DET.DE' +
+ 'SCUENTO,'#10'/* DET.IMPORTE_UNIDAD - (DET.IMPORTE_UNIDAD * (CO' +
+ 'ALESCE(DET.DESCUENTO,0) / 100)) as IMPORTE_NETO,*/'#10' DET.IM' +
+ 'PORTE_TOTAL,'#10' ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROV' +
+ 'EEDOR'#10'FROM ALBARANES_CLIENTE_DETALLES DET'#10'LEFT OUTER JOIN ARTICU' +
+ 'LOS ON (DET.ID_ARTICULO = ARTICULOS.ID)'#10#10'WHERE DET.ID_ALBARAN = ' +
+ ':ID_ALBARAN AND {Where}'#10'ORDER BY DET.ID_ALBARAN, DET.POSICION;'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -868,6 +868,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = ''
SQLOrigin = 'REFERENCIA_PROVEEDOR'
+ end
+ item
+ DatasetField = 'DESCUENTO'
+ TableField = 'DESCUENTO'
end>
end>
Name = 'Informe_Detalles'
@@ -905,6 +909,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
end
item
Name = 'IMPORTE_UNIDAD'
+ DataType = datCurrency
+ end
+ item
+ Name = 'DESCUENTO'
DataType = datFloat
end
item
@@ -1807,136 +1815,183 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
- ReportOptions.CreateDate = 37800.807714351900000000
- ReportOptions.LastChange = 40644.654743692130000000
+ ReportOptions.CreateDate = 39065.872423495400000000
+ ReportOptions.LastChange = 40842.791316122700000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
- 'procedure Chart1OnBeforePrint(Sender: TfrxComponent);'
+ 'var'
+ ' Pagina: Variant;'
+ ''
+ ''
+ 'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);'
+ 'var'
+ ' Cadena: String;'
'begin'
- ' '
- ' if ( <> 0) then'
- ' begin '
+ ' DatosEmpresa.Lines.Clear;'
+ ' if ( <> '#39#39') then'
+ ' Cadena := '#39'TLF: '#39' + ;'
+ ' if ( <> '#39#39') then'
- ' TLineSeries(Chart1.Series[0]).Title := '#39'Servidos '#39' + VarToS' +
- 'tr();'
-
- ' TLineSeries(Chart1.Series[2]).Title := '#39'Incidencias '#39' + Var' +
- 'ToStr();'
-
- ' TLineSeries(Chart1.Series[4]).Title := '#39'Fuera de fecha '#39' + ' +
- 'VarToStr();'
-
- ' TLineSeries(Chart1.Series[6]).Title := '#39#211'rdenes dev. '#39' + Va' +
- 'rToStr();'
+ ' 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;'
- ' '
- ' if ( > 0) then'
+ '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; '
+ ' Picture2.Visible := True; '
+ ' Picture3.Visible := True; '
+ ' Picture4.Visible := True; '
+ ' Picture5.Visible := True; '
+ ' Picture6.Visible := True; '
+ ' Memo25.Visible := True;'
+ ' NombreEmpresa.Visible := False;'
- ' TLineSeries(Chart1.Series[1]).Title := '#39'Servidos '#39' + VarToS' +
- 'tr();'
-
- ' TLineSeries(Chart1.Series[3]).Title := '#39'Incidencias '#39' + Var' +
- 'ToStr();'
-
- ' TLineSeries(Chart1.Series[5]).Title := '#39'Fuera de fecha '#39' + ' +
- 'VarToStr();'
-
- ' TLineSeries(Chart1.Series[7]).Title := '#39#211'rdenes dev. '#39' + Va' +
- 'rToStr();'
+ ' DatosEmpresa.Visible := False; ' +
+ ' '
' end'
' else'
' begin '
- ' Chart1.Series[1].Active := False;'
- ' Chart1.Series[3].Active := False;'
- ' Chart1.Series[5].Active := False;'
- ' Chart1.Series[7].Active := False; '
- ' end;'
- ''
- ' if ( <> 0) then'
- ' begin'
- '//Solo Servidos '
- ' if ( = 1) then'
- ' begin'
- ' Chart1.Series[0].Active := True;'
- ' Chart1.Series[1].Active := True;'
- ' Chart1.Series[2].Active := False;'
- ' Chart1.Series[3].Active := False;'
- ' Chart1.Series[4].Active := False;'
- ' Chart1.Series[5].Active := False;'
- ' Chart1.Series[6].Active := False;'
- ' Chart1.Series[7].Active := False;'
- ' end'
-
- '//Solo Incidencias ' +
- ' '
- ' else if ( = 2) then'
- ' begin'
- ' Chart1.Series[0].Active := False;'
- ' Chart1.Series[1].Active := False;'
- ' Chart1.Series[2].Active := True;'
- ' Chart1.Series[3].Active := True;'
- ' Chart1.Series[4].Active := False;'
- ' Chart1.Series[5].Active := False;'
- ' Chart1.Series[6].Active := False;'
- ' Chart1.Series[7].Active := False;'
- ' end'
-
- '//Solo Fuera de Fecha ' +
- ' '
- ' else if ( = 3) then'
- ' begin'
- ' Chart1.Series[0].Active := False;'
- ' Chart1.Series[1].Active := False;'
- ' Chart1.Series[2].Active := False;'
- ' Chart1.Series[3].Active := False;'
- ' Chart1.Series[4].Active := True;'
- ' Chart1.Series[5].Active := True;'
- ' Chart1.Series[6].Active := False;'
- ' Chart1.Series[7].Active := False;'
- ' end '
-
- '//Solo Ordenes de devolucion ' +
- ' ' +
- ' '
- ' else if ( = 4) then'
- ' begin'
- ' Chart1.Series[0].Active := False;'
- ' Chart1.Series[1].Active := False;'
- ' Chart1.Series[2].Active := False;'
- ' Chart1.Series[3].Active := False;'
- ' Chart1.Series[4].Active := False;'
- ' Chart1.Series[5].Active := False;'
- ' Chart1.Series[6].Active := True;'
- ' Chart1.Series[7].Active := True;'
- ' end; '
- ' '
- ' end;'
+ ' Picture1.Visible := False;'
+ ' Picture2.Visible := False;'
+ ' Picture3.Visible := False;'
+ ' Picture4.Visible := False;'
+ ' Picture5.Visible := False;'
+ ' Picture6.Visible := False;'
+ ' Memo25.Visible := False;'
+ ' NombreEmpresa.Visible := True;'
+ ' DatosEmpresa.Visible := True; '
+ ' end'
'end;'
''
- 'procedure Memo16OnBeforePrint(Sender: TfrxComponent);'
- 'var'
- ' Valor:Double; '
+ 'procedure Memo26OnBeforePrint(Sender: TfrxComponent);'
'begin'
- '{ '
- ' Valor := SUM() * 100; '
+ ' if and ( <> ' +
+ #39#39') then'
- ' if (SUM()' +
- ' = 0) then'
- ' Valor := 100 - Valor '
+ ' Memo26.Visible := True ' +
+ ' '
' else'
-
- ' Valor := 100 - (Valor/SUM()); '
+ ' Memo26.Visible := False '
+ 'end;'
''
- ' memo16.lines.add(FormatFloat('#39'#,##0.00 %'#39',Valor));'
- '} '
+ '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; '
+ ' eImporteTotal.Visible := True; '
+ ' lImporteTotal.Visible := True; '
+ ' ImporteUnidad.Visible := True; '
+ ' ImporteTotal.Visible := True; '
+ ' end'
+ ' else'
+ ' begin '
+ ' eImporteUnidad.Visible := False; '
+ ' lImporteUnidad.Visible := False; '
+ ' eImporteTotal.Visible := False; '
+ ' lImporteTotal.Visible := False; '
+ ' ImporteUnidad.Visible := False; '
+ ' ImporteTotal.Visible := False;'
+
+ ' eConcepto.Width := eConcepto.Width + ImporteTotal.Width + I' +
+ 'mporteUnidad.Width + 10;'
+
+ ' Concepto.Width := Concepto.Width + ImporteTotal.Width + Imp' +
+ 'orteUnidad.Width; '
+ ' end '
'end;'
''
'begin'
- 'end. ')
+ ''
+ 'end.')
ShowProgress = False
StoreInDFM = False
OnGetValue = frxReportGetValue
@@ -2376,6 +2431,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
end
item
Name = 'IMPORTE_UNIDAD'
+ DataType = datCurrency
+ end
+ item
+ Name = 'DESCUENTO'
DataType = datFloat
end
item
@@ -2391,7 +2450,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
item
Name = 'ID_ALBARAN'
DataType = datInteger
- Value = ''
+ Value = '123'
end>
MasterParamsMappings.Strings = (
'ID_ALBARAN=ID')
diff --git a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
index 0075e6f..e216d6c 100644
--- a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
+++ b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
@@ -840,16 +840,6 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DataType = datSmallInt
Value = ''
end
- item
- Name = 'FECHA_ALTA'
- DataType = datDateTime
- Value = ''
- end
- item
- Name = 'FECHA_MODIFICACION'
- DataType = datDateTime
- Value = ''
- end
item
Name = 'USUARIO'
DataType = datString
@@ -902,9 +892,9 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'IA, :PERSONA_CONTACTO,'#10' :TELEFONO, :IMPORTE_NETO, :IMPORTE_P' +
'ORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :IVA' +
', :IMPORTE_IVA, :IMPORTE_TOTAL, :OBSERVACIONES,'#10' :INCIDENCIA' +
- 'S, :INCIDENCIAS_ACTIVAS, :FECHA_ALTA, :FECHA_MODIFICACION,'#10' ' +
- ':USUARIO, :ID_FORMA_PAGO, :FECHA_PREVISTA_ENVIO, :FECHA_ENVIO,'#10' ' +
- ' :FECHA_RECEPCION, :ID_ALBARAN_DEV)'#10#10
+ 'S, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP, CURRENT_TIMESTAMP,'#10' ' +
+ ' :USUARIO, :ID_FORMA_PAGO, :FECHA_PREVISTA_ENVIO, :FECHA_ENVI' +
+ 'O,'#10' :FECHA_RECEPCION, :ID_ALBARAN_DEV)'#10#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1073,16 +1063,6 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DataType = datSmallInt
Value = ''
end
- item
- Name = 'FECHA_ALTA'
- DataType = datDateTime
- Value = ''
- end
- item
- Name = 'FECHA_MODIFICACION'
- DataType = datDateTime
- Value = ''
- end
item
Name = 'USUARIO'
DataType = datString
@@ -1138,12 +1118,12 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' ' +
' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' OBSERVACIONES = :OBSERVA' +
'CIONES, '#10' INCIDENCIAS = :INCIDENCIAS, '#10' INCIDENCIAS_ACTIVA' +
- 'S = :INCIDENCIAS_ACTIVAS, '#10' FECHA_ALTA = :FECHA_ALTA, '#10' FE' +
- 'CHA_MODIFICACION = :FECHA_MODIFICACION, '#10' USUARIO = :USUARIO,' +
- ' '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' FECHA_PREVISTA_ENVIO ' +
- '= :FECHA_PREVISTA_ENVIO, '#10' FECHA_ENVIO = :FECHA_ENVIO, '#10' F' +
- 'ECHA_RECEPCION = :FECHA_RECEPCION,'#10' ID_ALBARAN_DEV = :ID_ALBA' +
- 'RAN_DEV'#10' WHERE'#10' (ID = :OLD_ID)'#10
+ 'S = :INCIDENCIAS_ACTIVAS, '#10' FECHA_MODIFICACION = CURRENT_TIME' +
+ 'STAMP,'#10' USUARIO = :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PA' +
+ 'GO, '#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO, '#10' FECH' +
+ 'A_ENVIO = :FECHA_ENVIO, '#10' FECHA_RECEPCION = :FECHA_RECEPCION,' +
+ #10' ID_ALBARAN_DEV = :ID_ALBARAN_DEV'#10' WHERE'#10' (ID = :OLD_ID)' +
+ #10
StatementType = stSQL
ColumnMappings = <>
end>
diff --git a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
index f9bf532..9d36327 100644
--- a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
+++ b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
@@ -9,9 +9,9 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_ListaAnosAlbaranes = '{DCE523D3-B15A-40EE-9B47-9361FE439404}';
- RID_AlbaranesProveedor = '{6B6C4CC5-85E7-44E7-A12E-09502AE76066}';
- RID_AlbaranesProveedor_Detalles = '{462A059B-E769-4C13-BD57-CA2DF45B5A7C}';
+ RID_ListaAnosAlbaranes = '{98D7B136-B7B5-4752-A6A7-FA4DA78F9F91}';
+ RID_AlbaranesProveedor = '{3D378181-80D9-4ACB-8CDD-405C735C9E64}';
+ RID_AlbaranesProveedor_Detalles = '{21C597CD-B3DF-4B1F-9FD9-5C28713E211D}';
{ Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@@ -159,7 +159,7 @@ const
type
{ IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
- ['{62EAAFE2-3068-4D25-A37E-6158C88B9DC9}']
+ ['{F9DF0229-A5B1-42A1-9FC4-EF535631B1C1}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -194,7 +194,7 @@ type
{ IAlbaranesProveedor }
IAlbaranesProveedor = interface(IDAStronglyTypedDataTable)
- ['{3744DF7C-2532-421F-81C9-A36DB6E45B39}']
+ ['{6E9B6CFF-35D0-4A6E-A176-9B569D453557}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -757,7 +757,7 @@ type
{ IAlbaranesProveedor_Detalles }
IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable)
- ['{BECB0B29-05CC-4C96-94D3-698989CE1793}']
+ ['{8D8878BC-70B7-4059-AE14-3CD914908425}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
diff --git a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
index 7c19151..db12ae4 100644
--- a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
+++ b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
@@ -9,14 +9,14 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_ListaAnosAlbaranesDelta = '{EF015A95-C6D1-401E-A6A6-86F2CA9666B7}';
- RID_AlbaranesProveedorDelta = '{FECA98BD-AD60-4D59-BA3F-A8DC611C07E9}';
- RID_AlbaranesProveedor_DetallesDelta = '{A4442F40-9AF5-4666-B9C7-8C453A7518C3}';
+ RID_ListaAnosAlbaranesDelta = '{DB9DEA01-7FC2-4E0F-B54E-413F1154998B}';
+ RID_AlbaranesProveedorDelta = '{9A475349-808C-47EC-BC60-A25DB945FA9D}';
+ RID_AlbaranesProveedor_DetallesDelta = '{A4C8326F-19C5-4746-BDB7-71A170AF14E0}';
type
{ IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
- ['{EF015A95-C6D1-401E-A6A6-86F2CA9666B7}']
+ ['{DB9DEA01-7FC2-4E0F-B54E-413F1154998B}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -50,7 +50,7 @@ type
{ IAlbaranesProveedorDelta }
IAlbaranesProveedorDelta = interface(IAlbaranesProveedor)
- ['{FECA98BD-AD60-4D59-BA3F-A8DC611C07E9}']
+ ['{9A475349-808C-47EC-BC60-A25DB945FA9D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -614,7 +614,7 @@ type
{ IAlbaranesProveedor_DetallesDelta }
IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles)
- ['{A4442F40-9AF5-4666-B9C7-8C453A7518C3}']
+ ['{A4C8326F-19C5-4746-BDB7-71A170AF14E0}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
diff --git a/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm b/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
index a7c881e..8b49199 100644
--- a/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
+++ b/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
@@ -823,16 +823,6 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
DataType = datSmallInt
Value = ''
end
- item
- Name = 'FECHA_ALTA'
- DataType = datDateTime
- Value = ''
- end
- item
- Name = 'FECHA_MODIFICACION'
- DataType = datDateTime
- Value = ''
- end
item
Name = 'USUARIO'
DataType = datString
@@ -887,9 +877,9 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'_CONTACTO,'#10' :TELEFONO,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' ' +
' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :IMPORTE_' +
'TOTAL,'#10' :OBSERVACIONES,'#10' :INCIDENCIAS,'#10' :INCIDENCIAS_AC' +
- 'TIVAS,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' ' +
- ' :ID_ALMACEN,'#10' :ID_FORMA_PAGO,'#10' :IMPORTE_NETO,'#10' :IMPO' +
- 'RTE_PORTE,'#10' :ID_ALBARAN_DEV);'#10
+ 'TIVAS,'#10' CURRENT_TIMESTAMP,'#10' CURRENT_TIMESTAMP,'#10' :USUARI' +
+ 'O,'#10' :ID_ALMACEN,'#10' :ID_FORMA_PAGO,'#10' :IMPORTE_NETO,'#10' :' +
+ 'IMPORTE_PORTE,'#10' :ID_ALBARAN_DEV);'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1061,16 +1051,6 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
DataType = datSmallInt
Value = ''
end
- item
- Name = 'FECHA_ALTA'
- DataType = datDateTime
- Value = ''
- end
- item
- Name = 'FECHA_MODIFICACION'
- DataType = datDateTime
- Value = ''
- end
item
Name = 'USUARIO'
DataType = datString
@@ -1125,12 +1105,11 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'PORTE_DESCUENTO,'#10' IVA = :IVA,'#10' IMPORTE_IVA = :IMPORTE_IVA,' +
#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' OBSERVACIONES = :OBSERV' +
'ACIONES,'#10' INCIDENCIAS = :INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS' +
- ' = :INCIDENCIAS_ACTIVAS,'#10' FECHA_ALTA = :FECHA_ALTA,'#10' FECHA' +
- '_MODIFICACION = :FECHA_MODIFICACION,'#10' USUARIO = :USUARIO,'#10' ' +
- ' ID_ALMACEN = :ID_ALMACEN,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ' +
- ' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PO' +
- 'RTE,'#10' ID_ALBARAN_DEV = :ID_ALBARAN_DEV'#10' WHERE'#10' (ID = :OLD_I' +
- 'D);'#10
+ ' = :INCIDENCIAS_ACTIVAS,'#10' FECHA_MODIFICACION = CURRENT_TIMEST' +
+ 'AMP,'#10' USUARIO = :USUARIO,'#10' ID_ALMACEN = :ID_ALMACEN,'#10' I' +
+ 'D_FORMA_PAGO = :ID_FORMA_PAGO,'#10' IMPORTE_NETO = :IMPORTE_NETO,' +
+ #10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' ID_ALBARAN_DEV = :ID_AL' +
+ 'BARAN_DEV'#10' WHERE'#10' (ID = :OLD_ID);'#10
StatementType = stSQL
ColumnMappings = <>
end>
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 871aebe..15aca7d 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\dtf338.tmp */
+/* c:\temp\dtfD3.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 d45cce3..6b3ef8d 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\dtf336.tmp */
+/* c:\temp\dtfD1.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 7023121..5fd56e6 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\dtf33C.tmp */
+/* c:\temp\dtfD7.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 513362d..3f00737 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\dtf32E.tmp */
+/* c:\temp\dtfC9.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 d0e4bff..134bbbb 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\dtf32C.tmp */
+/* c:\temp\dtfC7.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 4736e0b..e47cd86 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\dtf332.tmp */
+/* c:\temp\dtfCD.tmp */
diff --git a/Source/Modulos/Informes base/Controller/InformesBase_controller.drc b/Source/Modulos/Informes base/Controller/InformesBase_controller.drc
index 4082db0..f3d1810 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\dtf322.tmp */
+/* c:\temp\dtfBD.tmp */
diff --git a/Source/Modulos/Informes base/Data/Informes_data.drc b/Source/Modulos/Informes base/Data/Informes_data.drc
index c881353..694b662 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\dtf31E.tmp */
+/* c:\temp\dtfB9.tmp */
diff --git a/Source/Modulos/Informes base/Model/Informes_model.drc b/Source/Modulos/Informes base/Model/Informes_model.drc
index d7ff84c..fcee6d1 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\dtf31C.tmp */
+/* c:\temp\dtfB7.tmp */
diff --git a/Source/Modulos/Informes base/Views/Informes_view.drc b/Source/Modulos/Informes base/Views/Informes_view.drc
index 37c9888..2654004 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\dtf326.tmp */
+/* c:\temp\dtfC1.tmp */
diff --git a/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc b/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc
index b58b9b3..09ab45f 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\dtf370.tmp */
+/* c:\temp\dtf10B.tmp */
diff --git a/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc b/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc
index 9b37aa8..3af1dba 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\dtf36E.tmp */
+/* c:\temp\dtf109.tmp */
diff --git a/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc b/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc
index 2f84bfb..63cc1ae 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\dtf36C.tmp */
+/* c:\temp\dtf107.tmp */
diff --git a/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc b/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc
index 1e3900b..4380467 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\dtf3D4.tmp */
+/* c:\temp\dtf16F.tmp */
diff --git a/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc b/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc
index 2ab33c5..9e65d4b 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\dtf3D2.tmp */
+/* c:\temp\dtf16D.tmp */
diff --git a/Source/Modulos/Tienda web/Data/TiendaWeb_data.drc b/Source/Modulos/Tienda web/Data/TiendaWeb_data.drc
index b1db392..79221a1 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\dtf386.tmp */
+/* c:\temp\dtf121.tmp */
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 7c74fad..a41ab6d 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 73ba743..4e12568 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -35,7 +35,7 @@
Delphi.Personality
- FalseTrueFalse/standaloneTrueFalse4180FalseFalseFalseFalseFalse308212524.1.8.04.1.8.0lunes, 03 de octubre de 2011 16:13
+ FalseTrueFalse/standaloneTrueFalse4190FalseFalseFalseFalseFalse308212524.1.9.04.1.9.0lunes, 03 de octubre de 2011 17:23
ExpressPrinting System by Developer Express Inc.
FactuGES_Server.dprFalse
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index b7afabf..413f622 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,1,8,0
-PRODUCTVERSION 4,1,8,0
+FILEVERSION 4,1,9,0
+PRODUCTVERSION 4,1,9,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@@ -12,9 +12,9 @@ BEGIN
BEGIN
BLOCK "0C0A04E4"
BEGIN
- VALUE "FileVersion", "4.1.8.0\0"
- VALUE "ProductVersion", "4.1.8.0\0"
- VALUE "CompileDate", "lunes, 03 de octubre de 2011 17:23\0"
+ VALUE "FileVersion", "4.1.9.0\0"
+ VALUE "ProductVersion", "4.1.9.0\0"
+ VALUE "CompileDate", "lunes, 31 de octubre de 2011 11:24\0"
END
END
BLOCK "VarFileInfo"