From 58bebcea631d9c080efeaa19e5d9f2ed3767b2c7 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Wed, 26 Mar 2008 10:47:22 +0000
Subject: [PATCH] Arreglo de informe de albaran de cliente

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@183 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 Source/Base/Base.res                          | Bin 384 -> 4748 bytes
 .../Reports/uRptAlbaranesCliente_Server.dfm   | 260 +++++++--
 Source/Servidor/FactuGES_Server.dproj         | 501 +++++++++---------
 3 files changed, 459 insertions(+), 302 deletions(-)

diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 8b251f312bcccec5485024f6fe8d80e1cdf25746..1641339fcc482e7e3492d1b45813a86619622c33 100644
GIT binary patch
literal 4748
zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg
zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?<w4U-ol;S2jC7
zx4(byej2@_#)0HWvg0i^wC4Xli+W*aXJ^(njceK|Kb@c3qFNX>p${kR>3GhM`oH*q
zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W
zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7
z{BT%G%irdMe*|oDJmgvJ<ltI;x5J<Oc>aA2`9B<Z5Toyra?r{a4$fnJHGXo6Pmcq8
z{JGCD500t1h4|yI?-f&xoj9;YT&Ch&JLO*X#NC3sCI0Xmc<f_vh`jn-1E!?th$%QM
znzGM|)$vl3f7;nE+9qR}|A?C$H3K&BFdq9?uxrIqHIne#5?8G@da2ybWLGKA686M2
z*LJMMMk4<U`dzFC9}HrSxLfOGll{P#??xir)$c2}C;ql+y-&Wa(LP{PgPk1E1@{uR
zIMCNz;u9;r(axhQvEx%?i#p<Vn=Z!SK%f10?4_`0@RY8lXRM3(t(nFSzJ$4kJr6&x
ze)~B%biu*TY$HDstHD=|UGxJceYiUQQa0Gu(p3og@%ZJ><6Xi*?M~Q;)@Sbfwf3uf
zVaWkbU<NjR3%=~AdoZbkXp`f@b0%GBT^$^V5e(n|#O(?P)hBbF)4n%2cw6U#adPM!
zz(!`V|Bfl{aH0)Y&w;SK7R4<z{p;Gwz1D%l86L3ZFZQ&=pB$<&esXT|OZ?=AGaWoe
z{>jU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv
zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N|
z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc
z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0
zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38=
zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W
zVvPDBKHh;i=RU4J_ta3E;)M<P+=2X7;VbzliQZ=IHV#+fr#{!(ukt%UJMS8=332qg
z7jD)rSbpCW+^j*cd6LUEe8#9n&v!NEJM(@?SHvB$=h@|)fjw|&qD?NQ5A&R>n>Y+L
zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m
z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJu<OVP
zzHjp+hnwo*3NQE$JTA(agu~silV5T`du+GJgWGi_7mAy`Nk8fLt~%GF$;XXcE-ri?
zyIglyyzA`K-);4Eem2MZm07RBza@W3UP)d`Rz=RFk-I);`s{$L%yyBNX0OTjo5Gk0
zs}g44uXg*l%xo^{`#0=kd*2?}Cz22Bv2;Gu?;3o~(D#gk1OKYQSCAb$(&vu@_pvWO
z>gbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T
z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC
zy(^m((;DnQmDQ<zX+PK(Lfu@ox#mOnbZjSDl}IBqv$qwK+2@))5$ba>Katmw!@c`|
G?EMQ&4NnpP

delta 11
ScmeBCZD5|Duvteife`=|>;pCc

diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
index 41c1523b..3aaab1e1 100644
--- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm	
+++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm	
@@ -304,26 +304,26 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
             SQL = 
               'SELECT'#10'  V_ALBARANES_CLIENTE.ID,'#10'  V_ALBARANES_CLIENTE.ID_EMPRES' +
               'A,'#10'  V_ALBARANES_CLIENTE.ID_CLIENTE,'#10'  V_ALBARANES_CLIENTE.NOMBR' +
-              'E,'#10'  V_CLIENTES.NOMBRE_COMERCIAL,'#10'  V_ALBARANES_CLIENTE.FECHA_AL' +
-              'BARAN,'#10'  V_ALBARANES_CLIENTE.REFERENCIA,'#10'  V_ALBARANES_CLIENTE.R' +
-              'EFERENCIA_CLIENTE,'#10'  V_ALBARANES_CLIENTE.ID_PEDIDO,'#10'  V_ALBARANE' +
-              'S_CLIENTE.REF_PEDIDO,'#10'  V_ALBARANES_CLIENTE.CODIGO_POSTAL,'#10'  V_A' +
-              'LBARANES_CLIENTE.POBLACION,'#10'  V_ALBARANES_CLIENTE.PROVINCIA,'#10'  V' +
-              '_ALBARANES_CLIENTE.PERSONA_CONTACTO,'#10'  V_ALBARANES_CLIENTE.TELEF' +
-              'ONO,'#10'  V_ALBARANES_CLIENTE.CALLE,'#10'  V_ALBARANES_CLIENTE.OBSERVAC' +
-              'IONES,'#10'  V_ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10'  V_ALBARANES_CLIENT' +
-              'E.FECHA_PREVISTA_ENVIO,'#10'  EMPRESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' ' +
-              ' EMPRESAS.NOMBRE AS NOMBRE_EMPRESA,'#10'  EMPRESAS.RAZON_SOCIAL AS R' +
-              'AZON_SOCIAL_EMPRESA,'#10'  EMPRESAS.CALLE AS CALLE_EMPRESA,'#10'  EMPRES' +
-              'AS.CODIGO_POSTAL AS CODIGO_POSTAL_EMPRESA,'#10'  EMPRESAS.POBLACION ' +
-              'AS POBLACION_EMPRESA,'#10'  EMPRESAS.PROVINCIA AS PROVINCIA_EMPRESA,' +
-              #10'  EMPRESAS.TELEFONO_1 AS TELEFONO_1_EMPRESA,'#10'  EMPRESAS.FAX AS ' +
-              'FAX_EMPRESA,'#10'  EMPRESAS.MOVIL_1 AS MOVIL_1_EMPRESA,'#10'  EMPRESAS.E' +
-              'MAIL_1 AS EMAIL_1_EMPRESA,'#10'  EMPRESAS.PAGINA_WEB AS PAGINA_WEB_E' +
-              'MPRESA'#10'FROM'#10'    V_ALBARANES_CLIENTE'#10'  LEFT OUTER JOIN V_CLIENTES' +
-              ' ON (V_CLIENTES.ID = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10'  LEFT OUTE' +
-              'R JOIN EMPRESAS ON (EMPRESAS.ID = V_ALBARANES_CLIENTE.ID_EMPRESA' +
-              ')'#10'WHERE V_ALBARANES_CLIENTE.ID = :ID'
+              'E,'#10'  V_CLIENTES.NOMBRE_COMERCIAL,'#10'  V_CLIENTES.NIF_CIF,'#10'  V_ALBA' +
+              'RANES_CLIENTE.FECHA_ALBARAN,'#10'  V_ALBARANES_CLIENTE.REFERENCIA,'#10' ' +
+              ' V_ALBARANES_CLIENTE.REFERENCIA_CLIENTE,'#10'  V_ALBARANES_CLIENTE.I' +
+              'D_PEDIDO,'#10'  V_ALBARANES_CLIENTE.REF_PEDIDO,'#10'  V_ALBARANES_CLIENT' +
+              'E.CODIGO_POSTAL,'#10'  V_ALBARANES_CLIENTE.POBLACION,'#10'  V_ALBARANES_' +
+              'CLIENTE.PROVINCIA,'#10'  V_ALBARANES_CLIENTE.PERSONA_CONTACTO,'#10'  V_A' +
+              'LBARANES_CLIENTE.TELEFONO,'#10'  V_ALBARANES_CLIENTE.CALLE,'#10'  V_ALBA' +
+              'RANES_CLIENTE.OBSERVACIONES,'#10'  V_ALBARANES_CLIENTE.IMPORTE_TOTAL' +
+              ','#10'  V_ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,'#10'  EMPRESAS.NIF_CIF' +
+              ' AS NIF_CIF_EMPRESA,'#10'  EMPRESAS.NOMBRE AS NOMBRE_EMPRESA,'#10'  EMPR' +
+              'ESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10'  EMPRESAS.CALLE AS C' +
+              'ALLE_EMPRESA,'#10'  EMPRESAS.CODIGO_POSTAL AS CODIGO_POSTAL_EMPRESA,' +
+              #10'  EMPRESAS.POBLACION AS POBLACION_EMPRESA,'#10'  EMPRESAS.PROVINCIA' +
+              ' AS PROVINCIA_EMPRESA,'#10'  EMPRESAS.TELEFONO_1 AS TELEFONO_1_EMPRE' +
+              'SA,'#10'  EMPRESAS.FAX AS FAX_EMPRESA,'#10'  EMPRESAS.MOVIL_1 AS MOVIL_1' +
+              '_EMPRESA,'#10'  EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10'  EMPRESAS.PAGI' +
+              'NA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10'    V_ALBARANES_CLIENTE'#10'  LEFT' +
+              ' OUTER JOIN V_CLIENTES ON (V_CLIENTES.ID = V_ALBARANES_CLIENTE.I' +
+              'D_CLIENTE)'#10'  LEFT OUTER JOIN EMPRESAS ON (EMPRESAS.ID = V_ALBARA' +
+              'NES_CLIENTE.ID_EMPRESA)'#10'WHERE V_ALBARANES_CLIENTE.ID = :ID'#10
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -449,6 +449,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
               item
                 DatasetField = 'PROVINCIA_EMPRESA'
                 TableField = 'PROVINCIA_EMPRESA'
+              end
+              item
+                DatasetField = 'NIF_CIF'
+                TableField = '<unknown>'
+                SQLOrigin = 'NIF_CIF'
               end>
           end>
         Name = 'Informe_Cabecera'
@@ -466,7 +471,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
             DataType = datInteger
           end
           item
-            Name = 'REFERENCIA'
+            Name = 'NOMBRE'
             DataType = datString
             Size = 255
           end
@@ -475,13 +480,19 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
             DataType = datString
             Size = 255
           end
+          item
+            Name = 'NIF_CIF'
+            DataType = datString
+            Size = 15
+          end
           item
             Name = 'FECHA_ALBARAN'
             DataType = datDateTime
           end
           item
-            Name = 'ID_PEDIDO'
-            DataType = datInteger
+            Name = 'REFERENCIA'
+            DataType = datString
+            Size = 255
           end
           item
             Name = 'REFERENCIA_CLIENTE'
@@ -489,29 +500,24 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
             Size = 255
           end
           item
-            Name = 'OBSERVACIONES'
-            DataType = datMemo
+            Name = 'ID_PEDIDO'
+            DataType = datInteger
           end
           item
             Name = 'REF_PEDIDO'
             DataType = datString
             Size = 255
           end
-          item
-            Name = 'NOMBRE'
-            DataType = datString
-            Size = 255
-          end
-          item
-            Name = 'CALLE'
-            DataType = datString
-            Size = 255
-          end
           item
             Name = 'CODIGO_POSTAL'
             DataType = datString
             Size = 10
           end
+          item
+            Name = 'POBLACION'
+            DataType = datString
+            Size = 255
+          end
           item
             Name = 'PROVINCIA'
             DataType = datString
@@ -528,13 +534,17 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
             Size = 25
           end
           item
-            Name = 'POBLACION'
+            Name = 'CALLE'
             DataType = datString
             Size = 255
           end
+          item
+            Name = 'OBSERVACIONES'
+            DataType = datMemo
+          end
           item
             Name = 'IMPORTE_TOTAL'
-            DataType = datFloat
+            DataType = datCurrency
           end
           item
             Name = 'FECHA_PREVISTA_ENVIO'
@@ -618,12 +628,12 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
               '.ID_ALBARAN,'#10'       ALBARANES_CLIENTE_DETALLES.POSICION, ALBARAN' +
               'ES_CLIENTE_DETALLES.TIPO_DETALLE,'#10'       ALBARANES_CLIENTE_DETAL' +
               'LES.CONCEPTO, ALBARANES_CLIENTE_DETALLES.CANTIDAD,'#10'       ALBARA' +
-              'NES_CLIENTE_DETALLES.IMPORTE_UNIDAD, ALBARANES_CLIENTE_DETALLES.' +
-              'IMPORTE_TOTAL,'#10'       ARTICULOS.REFERENCIA, ARTICULOS.FAMILIA, A' +
-              'RTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM ALBARANES' +
-              '_CLIENTE_DETALLES'#10'LEFT JOIN ARTICULOS ON (ALBARANES_CLIENTE_DETA' +
-              'LLES.ID_ARTICULO = ARTICULOS.ID)'#10'WHERE ID_ALBARAN = :ID_ALBARAN'#10 +
-              'ORDER BY POSICION'
+              'NES_CLIENTE_DETALLES.DESCUENTO,'#10'       ALBARANES_CLIENTE_DETALLE' +
+              'S.IMPORTE_UNIDAD, ALBARANES_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10'    ' +
+              '   ARTICULOS.REFERENCIA, ARTICULOS.FAMILIA, ARTICULOS.REFERENCIA' +
+              '_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM ALBARANES_CLIENTE_DETALLES'#10'L' +
+              'EFT JOIN ARTICULOS ON (ALBARANES_CLIENTE_DETALLES.ID_ARTICULO = ' +
+              'ARTICULOS.ID)'#10'WHERE ID_ALBARAN = :ID_ALBARAN'#10'ORDER BY POSICION'#10
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -669,6 +679,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
               item
                 DatasetField = 'ID_ALBARAN'
                 TableField = 'ID_ALBARAN'
+              end
+              item
+                DatasetField = 'DESCUENTO'
+                TableField = 'DESCUENTO'
               end>
           end>
         Name = 'Informe_Detalles'
@@ -690,11 +704,6 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
             DataType = datString
             Size = 10
           end
-          item
-            Name = 'REFERENCIA'
-            DataType = datString
-            Size = 255
-          end
           item
             Name = 'CONCEPTO'
             DataType = datString
@@ -705,12 +714,21 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
             DataType = datInteger
           end
           item
-            Name = 'IMPORTE_UNIDAD'
+            Name = 'DESCUENTO'
             DataType = datFloat
           end
+          item
+            Name = 'IMPORTE_UNIDAD'
+            DataType = datCurrency
+          end
           item
             Name = 'IMPORTE_TOTAL'
-            DataType = datFloat
+            DataType = datCurrency
+          end
+          item
+            Name = 'REFERENCIA'
+            DataType = datString
+            Size = 255
           end
           item
             Name = 'FAMILIA'
@@ -1044,21 +1062,159 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
   object frxReport: TfrxReport
     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.OutlineWidth = 180
     PreviewOptions.Zoom = 1.000000000000000000
     PrintOptions.Printer = 'Default'
     PrintOptions.PrintOnSheet = 0
-    ReportOptions.CreateDate = 39532.793686689800000000
-    ReportOptions.LastChange = 39532.800402905090000000
+    ReportOptions.CreateDate = 37871.995398692100000000
+    ReportOptions.LastChange = 39532.759439363400000000
+    ReportOptions.VersionBuild = '1'
+    ReportOptions.VersionMajor = '12'
+    ReportOptions.VersionMinor = '13'
+    ReportOptions.VersionRelease = '1'
     ScriptLanguage = 'PascalScript'
     ScriptText.Strings = (
+      'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);'
+      'begin'
+      '  DatosCliente.Lines.Clear;'
+      '  DatosCliente.Lines.Add(<frxDBCabecera."CALLE">);'
+      ''
+      '  if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39')'
+      '  or (<frxDBCabecera."POBLACION"> <> '#39#39') then'
+      
+        '     DatosCliente.Lines.Add(<frxDBCabecera."CODIGO_POSTAL"> + '#39' ' +
+        ' '#39' + <frxDBCabecera."POBLACION">);'
+      ''
+      '  if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then'
+      '     DatosCliente.Lines.Add(<frxDBCabecera."PROVINCIA">);'
+      '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;'
+      ''
+      '  case <frxDBDetalles."TIPO_DETALLE"> 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';'
+      '       end;'
+      '  '#39'Descuento'#39': begin'
+      '       BandaDetalles.Visible := False;'
+      '       RichConcepto.Color := clNone;'
+      '       end;'
+      '  end;'
+      ''
+      '  RichConcepto.Color := MemImpTotal.Color;'
+      '  RichConcepto.Frame := MemImpTotal.Frame;'
+      'end;'
+      ''
+      'procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);'
+      'begin'
+      '// if Engine.FreeSpace > ReportSummary1.Height then    '
+      
+        '    Engine.CurY := Engine.PageHeight - ReportSummary1.Height - P' +
+        'ageFooter1.Height - 1;'
+      'end;'
+      ''
+      'procedure Memo15OnBeforePrint(Sender: TfrxComponent);'
+      'begin'
+      '  Memo15.Lines.Clear;'
+      '  if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then'
+      '       Memo15.Lines.Add('#39'ORDEN DEVOLUCI'#211'N'#39')'
+      '  else'
+      '     Memo15.Lines.Add('#39'ALBAR'#193'N'#39')'
+      'end;'
+      ''
+      'procedure Band2OnBeforePrint(Sender: TfrxComponent);'
+      'begin'
+      '  if not Engine.FinalPass then'
+      '     Set('#39'TotalPaginas'#39', (<TotalPaginas> + 1));'
+      ''
+      '  if Engine.FinalPass then'
+      '     Set('#39'Pagina'#39', (<Pagina> + 1));'
+      ''
+      '  if Engine.FinalPass and (<TotalPaginas> > <Pagina>) then'
+      '  begin              '
+      '     LineaCorta0.visible := False;  '
+      '     LineaLarga0.visible := True;         '
+      '     LineaCorta1.visible := False;'
+      '     LineaLarga1.visible := True;         '
+      '     LineaCorta2.visible := False;  '
+      '     LineaLarga2.visible := True;         '
+      '     LineaCorta3.visible := False;  '
+      '     LineaLarga3.visible := True;         '
+      '  end'
+      '  else'
+      '  begin'
+      '     LineaCorta0.visible := True;  '
+      '     LineaLarga0.visible := False;         '
+      '     LineaCorta1.visible := True;'
+      '     LineaLarga1.visible := False;'
+      '     LineaCorta2.visible := True;      '
+      '     LineaLarga2.visible := False;'
+      '     LineaCorta3.visible := True;  '
+      '     LineaLarga3.visible := False;         '
+      '  end;'
+      'end;'
+      ''
+      'procedure frxReportOnStartReport(Sender: TfrxComponent);'
+      'begin'
+      '  Set('#39'Pagina'#39', 0);'
+      '  Set('#39'TotalPaginas'#39', 0);'
+      'end;'
+      ''
+      
+        'procedure ReportSummary1OnAfterCalcHeight(Sender: TfrxComponent)' +
+        ';'
+      'begin'
+      
+        '//Es peor el remedio que la enfermedad, en el caso de sobre pasa' +
+        'r en uno el numero de conceptos para que no quepa el reportsumar' +
+        'y,'
+      
+        '//no hay forma de ponerlo al final en la p'#225'gina siguiente hasta ' +
+        'que el numero de conceptos rellene al menos un concepto de la si' +
+        'guiente hoja.                                                   ' +
+        '                                                                ' +
+        '                                                                ' +
+        '                                                                ' +
+        '                                                                ' +
+        '                 '
+      '//  if Engine.FreeSpace > ReportSummary1.Height then'
+      
+        '//    Engine.CurY := Engine.PageHeight - ReportSummary1.Height -' +
+        ' PageFooter1.Height - 1;  '
+      'end;'
       ''
       'begin'
       ''
       'end.')
     ShowProgress = False
     StoreInDFM = False
+    OnStartReport = 'frxReportOnStartReport'
     Left = 169
     Top = 16
   end
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index 109b1a07..93e9a190 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,254 +1,255 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-	<PropertyGroup>
-		<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
-		<MainSource>FactuGES_Server.dpr</MainSource>
-		<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
-		<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
-		<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
-		<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
-	</PropertyGroup>
-	<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
-		<Version>7.0</Version>
-		<DCC_DebugInformation>False</DCC_DebugInformation>
-		<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
-		<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
-		<DCC_MapFile>3</DCC_MapFile>
-		<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
-		<DCC_Define>RELEASE</DCC_Define>
-	</PropertyGroup>
-	<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
-		<Version>7.0</Version>
-		<DCC_MapFile>3</DCC_MapFile>
-		<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
-		<DCC_Define>DEBUG;</DCC_Define>
-		<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
-	</PropertyGroup>
-	<ProjectExtensions>
-		<Borland.Personality>Delphi.Personality</Borland.Personality>
-		<Borland.ProjectType/>
-		<BorlandProject>
-			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.1.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.1.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 25 de marzo de 2008 19:25</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-						<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
-					</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
-	</ProjectExtensions>
-	<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
-	<ItemGroup>
-		<DelphiCompile Include="FactuGES_Server.dpr">
-			<MainSource>MainSource</MainSource>
-		</DelphiCompile>
-		<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
-		<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
-		<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
-		<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
-			<Form>srvEjercicios</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
-		<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
-			<Form>srvEmpresas</Form>
-			<DesignClass>TDARemoteService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
-		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
-		<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
-		<DCCReference Include="..\Base\schBase_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"/>
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
-			<Form>srvAlbaranesCliente</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
-			<Form>srvAlbaranesProveedor</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
-			<Form>srvAlmacenes</Form>
-			<DesignClass>TDARemoteService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
-		<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
-			<Form>srvContabilidad</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
-		<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
-			<Form>RptEtiquetasContacto</Form>
-			<DesignClass>TDataModule</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
-			<Form>RptFichasEmpleado</Form>
-			<DesignClass>TDataModule</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
-			<Form>srvContactos</Form>
-			<DesignClass>TDARemoteService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
-			<Form>RptFacturasCliente</Form>
-			<DesignClass>TDataModule</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
-			<Form>srvFacturasCliente</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
-			<Form>srvFacturasProveedor</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
-		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
-		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
-			<Form>srvHistoricoMovimientos</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
-			<Form>srvInventario</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
-			<Form>srvPedidosProveedor</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
-			<Form>RptPresupuestosCliente</Form>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
-			<Form>srvPresupuestosCliente</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
-			<Form>RptRecibosCliente</Form>
-			<DesignClass>TDataModule</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
-			<Form>srvRecibosCliente</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
-			<Form>srvRecibosProveedor</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
-			<Form>srvReferencias</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
-		<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
-			<Form>srvRemesasCliente</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
-			<Form>srvRemesasProveedor</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
-		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
-			<Form>srvUnidadesMedida</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
-		<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
-		<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
-			<Form>srvConfiguracion</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="Configuracion\uConexionBD.pas">
-			<Form>frConexionBD</Form>
-			<DesignClass>TFrame</DesignClass>
-		</DCCReference>
-		<DCCReference Include="Configuracion\uConfGeneral.pas">
-			<Form>frConfGeneral</Form>
-			<DesignClass>TFrame</DesignClass>
-		</DCCReference>
-		<DCCReference Include="Configuracion\uConfiguracion.pas">
-			<Form>fConfiguracion</Form>
-			<DesignClass>TForm</DesignClass>
-		</DCCReference>
-		<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
-			<Form>FrameConfiguracion</Form>
-			<DesignClass>TFrame</DesignClass>
-		</DCCReference>
-		<DCCReference Include="srvLogin_Impl.pas">
-			<Form>srvLogin</Form>
-			<DesignClass>TDARemoteService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="uAcercaDe.pas">
-			<Form>fAcercaDe</Form>
-		</DCCReference>
-		<DCCReference Include="uDataModuleServer.pas">
-			<Form>dmServer</Form>
-			<DesignClass>TDataModule</DesignClass>
-		</DCCReference>
-		<DCCReference Include="uServerMainForm.pas">
-			<Form>fServerForm</Form>
-		</DCCReference>
-		<DCCReference Include="Utiles\RegExpr.pas"/>
-		<DCCReference Include="Utiles\uBusinessUtils.pas"/>
-		<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
-		<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
-		<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
-		<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
-		<DCCReference Include="Utiles\uServerAppUtils.pas"/>
-		<DCCReference Include="Utiles\uSesionesUtils.pas"/>
-	</ItemGroup>
+  <PropertyGroup>
+    <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
+    <MainSource>FactuGES_Server.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_MapFile>3</DCC_MapFile>
+    <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
+    <DCC_Define>RELEASE</DCC_Define>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_MapFile>3</DCC_MapFile>
+    <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
+    <DCC_Define>DEBUG;</DCC_Define>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.1.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.1.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 25 de marzo de 2008 19:25</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
+    </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="FactuGES_Server.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
+    <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
+    <DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
+    <DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
+      <Form>srvEjercicios</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
+    <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
+      <Form>srvEmpresas</Form>
+      <DesignClass>TDARemoteService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
+    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
+    <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
+    <DCCReference Include="..\Base\schBase_Intf.pas" />
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas" />
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
+      <Form>srvAlbaranesCliente</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
+      <Form>srvAlbaranesProveedor</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
+      <Form>srvAlmacenes</Form>
+      <DesignClass>TDARemoteService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
+    <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
+      <Form>srvContabilidad</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
+    <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
+      <Form>RptEtiquetasContacto</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
+      <Form>RptFichasEmpleado</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
+      <Form>srvContactos</Form>
+      <DesignClass>TDARemoteService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
+      <Form>RptFacturasCliente</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
+      <Form>srvFacturasCliente</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
+      <Form>srvFacturasProveedor</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
+    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
+    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
+      <Form>srvHistoricoMovimientos</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
+      <Form>srvInventario</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
+      <Form>srvPedidosProveedor</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
+      <Form>RptPresupuestosCliente</Form>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
+      <Form>srvPresupuestosCliente</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
+      <Form>RptRecibosCliente</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
+      <Form>srvRecibosCliente</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
+      <Form>srvRecibosProveedor</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
+      <Form>srvReferencias</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
+      <Form>srvRemesasCliente</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
+      <Form>srvRemesasProveedor</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
+    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
+      <Form>srvUnidadesMedida</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
+    <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
+    <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
+      <Form>srvConfiguracion</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="Configuracion\uConexionBD.pas">
+      <Form>frConexionBD</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
+    <DCCReference Include="Configuracion\uConfGeneral.pas">
+      <Form>frConfGeneral</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
+    <DCCReference Include="Configuracion\uConfiguracion.pas">
+      <Form>fConfiguracion</Form>
+      <DesignClass>TForm</DesignClass>
+    </DCCReference>
+    <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
+      <Form>FrameConfiguracion</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
+    <DCCReference Include="srvLogin_Impl.pas">
+      <Form>srvLogin</Form>
+      <DesignClass>TDARemoteService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uAcercaDe.pas">
+      <Form>fAcercaDe</Form>
+    </DCCReference>
+    <DCCReference Include="uDataModuleServer.pas">
+      <Form>dmServer</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uServerMainForm.pas">
+      <Form>fServerForm</Form>
+    </DCCReference>
+    <DCCReference Include="Utiles\RegExpr.pas" />
+    <DCCReference Include="Utiles\uBusinessUtils.pas" />
+    <DCCReference Include="Utiles\uDatabaseUtils.pas" />
+    <DCCReference Include="Utiles\uReferenciasUtils.pas" />
+    <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
+    <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
+    <DCCReference Include="Utiles\uServerAppUtils.pas" />
+    <DCCReference Include="Utiles\uSesionesUtils.pas" />
+  </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
 [Exception Log]