Tareas #1413: Repasar los sumatorios de bases imponibles de aplicacion en general ya que salen en el grid

Tareas #1416: Exportar a fichero excel los presupuestos de cliente
Tareas #1417: Cambiar el logo de todos los informes en keiblair

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@240 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2

Source/GUIBase/uViewGrid.dfm

@@ -198,17 +198,18 @@ inherited frViewGrid: TfrViewGrid
       PrinterPage.ScaleMode = smFit
       PrinterPage._dxMeasurementUnits_ = 0
       PrinterPage._dxLastMU_ = 2
-      ReportDocument.CreationDate = 42066.687593773150000000
+      ReportDocument.CreationDate = 42284.521152384260000000
       StyleManager = dmBase.dxPrintStyleManager1
       OptionsCards.Shadow.Depth = 0
-      OptionsExpanding.ExpandGroupRows = True
-      OptionsExpanding.ExpandMasterRows = True
       OptionsFormatting.SuppressBackgroundBitmaps = True
       OptionsFormatting.UseNativeStyles = True
       OptionsFormatting.ConsumeSelectionStyle = True
       OptionsLevels.Unwrap = True
+      OptionsPagination.OneGroupPerPage = True
+      OptionsPagination.TopLevelGroup = True
       OptionsRefinements.TransparentGraphics = True
       OptionsSize.AutoWidth = True
+      OptionsView.Footers = False
       OptionsView.Caption = False
       OptionsView.ExpandButtons = False
       OptionsView.FilterBar = False

Source/Informes/1/InformeObjetivosAgentesAlbaranes.fr3

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41152,7308040509" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;    if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10;    begin                      &#13;&#10;       mContinua.Visible := False;&#13;&#10;    end                 &#13;&#10;    else&#13;&#10;    begin                &#13;&#10;       mContinua.Visible := True;&#13;&#10;    end               &#13;&#10;  end;               &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C4400000020446174615365743D226672784442496E666F726D654F626A657469766F732220446174615365744E616D653D226672784442496E666F726D654F626A657469766F73220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
+<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="42284,7263637963" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;    if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10;    begin                      &#13;&#10;       mContinua.Visible := False;&#13;&#10;    end                 &#13;&#10;    else&#13;&#10;    begin                &#13;&#10;       mContinua.Visible := True;&#13;&#10;    end               &#13;&#10;  end;               &#13;&#10;end;&#13;&#10;&#13;&#10;procedure grupoAgenteOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;UnAgentePorPagina&#62; = 1) then&#13;&#10;     grupoAgente.StartNewPage := True&#13;&#10;  else&#13;&#10;     grupoAgente.StartNewPage := False;  &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C4400000020446174615365743D226672784442496E666F726D654F626A657469766F732220446174615365744E616D653D226672784442496E666F726D654F626A657469766F73220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F732200010C19000000204E616D653D22556E4167656E7465506F72506167696E61220000055374796C650100">
   <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
   <TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
     <TfrxPageHeader Name="Band1" Height="104,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@@ -13,7 +13,7 @@
     <TfrxPageFooter Name="" Height="23,77953" Left="0" Top="354" Width="1009,13451" PrintOnLastPage="False">
       <TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
     </TfrxPageFooter>
-    <TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="180" Width="1009,13451" Condition="frxDBInformeObjetivos.&#34;AGENTE&#34;" ReprintOnNewPage="True">
+    <TfrxGroupHeader Name="grupoAgente" Height="40" Left="0" Restrictions="2" Top="180" Width="1009,13451" OnBeforePrint="grupoAgenteOnBeforePrint" Condition="frxDBInformeObjetivos.&#34;AGENTE&#34;" ReprintOnNewPage="True">
       <TfrxMemoView Name="Memo27" Left="0" Top="25" Width="103" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Intervalo"/>
       <TfrxMemoView Name="Memo28" Align="baLeft" Left="218" Top="25" Width="80" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Unidades obj."/>
       <TfrxMemoView Name="Memo49" Align="baLeft" Left="398" Top="25" Width="100" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Uni. conseguidas"/>

Source/Informes/1/InformeObjetivosAgentesFacturas.fr3

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41152,7311528935" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;    if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10;    begin                      &#13;&#10;       mContinua.Visible := False;&#13;&#10;    end                 &#13;&#10;    else&#13;&#10;    begin                &#13;&#10;       mContinua.Visible := True;&#13;&#10;    end               &#13;&#10;  end;               &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C4400000020446174615365743D226672784442496E666F726D654F626A657469766F732220446174615365744E616D653D226672784442496E666F726D654F626A657469766F73220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
+<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="42284,7266520602" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;    if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10;    begin                      &#13;&#10;       mContinua.Visible := False;&#13;&#10;    end                 &#13;&#10;    else&#13;&#10;    begin                &#13;&#10;       mContinua.Visible := True;&#13;&#10;    end               &#13;&#10;  end;               &#13;&#10;end;&#13;&#10;&#13;&#10;procedure grupoAgenteOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;UnAgentePorPagina&#62; = 1) then&#13;&#10;     grupoAgente.StartNewPage := True&#13;&#10;  else&#13;&#10;     grupoAgente.StartNewPage := False;  &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C4400000020446174615365743D226672784442496E666F726D654F626A657469766F732220446174615365744E616D653D226672784442496E666F726D654F626A657469766F73220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F732200010C19000000204E616D653D22556E4167656E7465506F72506167696E61220000055374796C650100">
   <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
   <TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
     <TfrxPageHeader Name="Band1" Height="104,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@@ -13,7 +13,7 @@
     <TfrxPageFooter Name="" Height="23,77953" Left="0" Top="354" Width="1009,13451" PrintOnLastPage="False">
       <TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
     </TfrxPageFooter>
-    <TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="180" Width="1009,13451" Condition="frxDBInformeObjetivos.&#34;AGENTE&#34;" ReprintOnNewPage="True">
+    <TfrxGroupHeader Name="grupoAgente" Height="40" Left="0" Restrictions="2" Top="180" Width="1009,13451" OnBeforePrint="grupoAgenteOnBeforePrint" Condition="frxDBInformeObjetivos.&#34;AGENTE&#34;" ReprintOnNewPage="True">
       <TfrxMemoView Name="Memo27" Left="0" Top="25" Width="103" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Intervalo"/>
       <TfrxMemoView Name="Memo28" Align="baLeft" Left="218" Top="25" Width="80" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Unidades obj."/>
       <TfrxMemoView Name="Memo49" Align="baLeft" Left="398" Top="25" Width="100" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Uni. conseguidas"/>

Source/Informes/2/InformeObjetivosAgentesAlbaranes.fr3

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40952,7636454282" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;    if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10;    begin                      &#13;&#10;       mContinua.Visible := False;&#13;&#10;    end                 &#13;&#10;    else&#13;&#10;    begin                &#13;&#10;       mContinua.Visible := True;&#13;&#10;    end               &#13;&#10;  end;               &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C4400000020446174615365743D226672784442496E666F726D654F626A657469766F732220446174615365744E616D653D226672784442496E666F726D654F626A657469766F73220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
+<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="42284,7270555324" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;    if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10;    begin                      &#13;&#10;       mContinua.Visible := False;&#13;&#10;    end                 &#13;&#10;    else&#13;&#10;    begin                &#13;&#10;       mContinua.Visible := True;&#13;&#10;    end               &#13;&#10;  end;               &#13;&#10;end;&#13;&#10;&#13;&#10;procedure grupoAgenteOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;UnAgentePorPagina&#62; = 1) then&#13;&#10;     grupoAgente.StartNewPage := True&#13;&#10;  else&#13;&#10;     grupoAgente.StartNewPage := False;  &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C4400000020446174615365743D226672784442496E666F726D654F626A657469766F732220446174615365744E616D653D226672784442496E666F726D654F626A657469766F73220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F732200010C19000000204E616D653D22556E4167656E7465506F72506167696E61220000055374796C650100">
   <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
   <TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
     <TfrxPageHeader Name="Band1" Height="104,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@@ -13,7 +13,7 @@
     <TfrxPageFooter Name="" Height="23,77953" Left="0" Top="354" Width="1009,13451" PrintOnLastPage="False">
       <TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
     </TfrxPageFooter>
-    <TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="180" Width="1009,13451" Condition="frxDBInformeObjetivos.&#34;AGENTE&#34;" ReprintOnNewPage="True">
+    <TfrxGroupHeader Name="grupoAgente" Height="40" Left="0" Restrictions="2" Top="180" Width="1009,13451" OnBeforePrint="grupoAgenteOnBeforePrint" Condition="frxDBInformeObjetivos.&#34;AGENTE&#34;" ReprintOnNewPage="True">
       <TfrxMemoView Name="Memo27" Left="0" Top="25" Width="103" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Intervalo"/>
       <TfrxMemoView Name="Memo28" Align="baLeft" Left="218" Top="25" Width="80" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Unidades obj."/>
       <TfrxMemoView Name="Memo49" Align="baLeft" Left="398" Top="25" Width="100" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Uni. conseguidas"/>

Source/Informes/2/InformeObjetivosAgentesFacturas.fr3

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41151,7399836921" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;    if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10;    begin                      &#13;&#10;       mContinua.Visible := False;&#13;&#10;    end                 &#13;&#10;    else&#13;&#10;    begin                &#13;&#10;       mContinua.Visible := True;&#13;&#10;    end               &#13;&#10;  end;               &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C4400000020446174615365743D226672784442496E666F726D654F626A657469766F732220446174615365744E616D653D226672784442496E666F726D654F626A657469766F73220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
+<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="42284,7272855787" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;    if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10;    begin                      &#13;&#10;       mContinua.Visible := False;&#13;&#10;    end                 &#13;&#10;    else&#13;&#10;    begin                &#13;&#10;       mContinua.Visible := True;&#13;&#10;    end               &#13;&#10;  end;               &#13;&#10;end;&#13;&#10;&#13;&#10;procedure grupoAgenteOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;UnAgentePorPagina&#62; = 1) then&#13;&#10;     grupoAgente.StartNewPage := True&#13;&#10;  else&#13;&#10;     grupoAgente.StartNewPage := False;  &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C4400000020446174615365743D226672784442496E666F726D654F626A657469766F732220446174615365744E616D653D226672784442496E666F726D654F626A657469766F73220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F732200010C19000000204E616D653D22556E4167656E7465506F72506167696E61220000055374796C650100">
   <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
   <TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
     <TfrxPageHeader Name="Band1" Height="104,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@@ -13,7 +13,7 @@
     <TfrxPageFooter Name="" Height="23,77953" Left="0" Top="354" Width="1009,13451" PrintOnLastPage="False">
       <TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
     </TfrxPageFooter>
-    <TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="180" Width="1009,13451" Condition="frxDBInformeObjetivos.&#34;AGENTE&#34;" ReprintOnNewPage="True">
+    <TfrxGroupHeader Name="grupoAgente" Height="40" Left="0" Restrictions="2" Top="180" Width="1009,13451" OnBeforePrint="grupoAgenteOnBeforePrint" Condition="frxDBInformeObjetivos.&#34;AGENTE&#34;" ReprintOnNewPage="True">
       <TfrxMemoView Name="Memo27" Left="0" Top="25" Width="103" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Intervalo"/>
       <TfrxMemoView Name="Memo28" Align="baLeft" Left="218" Top="25" Width="80" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Unidades obj."/>
       <TfrxMemoView Name="Memo49" Align="baLeft" Left="398" Top="25" Width="100" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Uni. conseguidas"/>

Source/Informes/5/InformeObjetivosAgentesAlbaranes.fr3

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41152,7313098495" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;    if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10;    begin                      &#13;&#10;       mContinua.Visible := False;&#13;&#10;    end                 &#13;&#10;    else&#13;&#10;    begin                &#13;&#10;       mContinua.Visible := True;&#13;&#10;    end               &#13;&#10;  end;               &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C4400000020446174615365743D226672784442496E666F726D654F626A657469766F732220446174615365744E616D653D226672784442496E666F726D654F626A657469766F73220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
+<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="42284,7275828935" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;    if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10;    begin                      &#13;&#10;       mContinua.Visible := False;&#13;&#10;    end                 &#13;&#10;    else&#13;&#10;    begin                &#13;&#10;       mContinua.Visible := True;&#13;&#10;    end               &#13;&#10;  end;               &#13;&#10;end;&#13;&#10;&#13;&#10;procedure grupoAgenteOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;UnAgentePorPagina&#62; = 1) then&#13;&#10;     grupoAgente.StartNewPage := True&#13;&#10;  else&#13;&#10;     grupoAgente.StartNewPage := False;  &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C4400000020446174615365743D226672784442496E666F726D654F626A657469766F732220446174615365744E616D653D226672784442496E666F726D654F626A657469766F73220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F732200010C19000000204E616D653D22556E4167656E7465506F72506167696E61220000055374796C650100">
   <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
   <TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
     <TfrxPageHeader Name="Band1" Height="104,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@@ -13,7 +13,7 @@
     <TfrxPageFooter Name="" Height="23,77953" Left="0" Top="354" Width="1009,13451" PrintOnLastPage="False">
       <TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
     </TfrxPageFooter>
-    <TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="180" Width="1009,13451" Condition="frxDBInformeObjetivos.&#34;AGENTE&#34;" ReprintOnNewPage="True">
+    <TfrxGroupHeader Name="grupoAgente" Height="40" Left="0" Restrictions="2" Top="180" Width="1009,13451" OnBeforePrint="grupoAgenteOnBeforePrint" Condition="frxDBInformeObjetivos.&#34;AGENTE&#34;" ReprintOnNewPage="True">
       <TfrxMemoView Name="Memo27" Left="0" Top="25" Width="103" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Intervalo"/>
       <TfrxMemoView Name="Memo28" Align="baLeft" Left="218" Top="25" Width="80" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Unidades obj."/>
       <TfrxMemoView Name="Memo49" Align="baLeft" Left="398" Top="25" Width="100" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Uni. conseguidas"/>

Source/Informes/5/InformeObjetivosAgentesFacturas.fr3

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41152,7315131134" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;    if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10;    begin                      &#13;&#10;       mContinua.Visible := False;&#13;&#10;    end                 &#13;&#10;    else&#13;&#10;    begin                &#13;&#10;       mContinua.Visible := True;&#13;&#10;    end               &#13;&#10;  end;               &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C4400000020446174615365743D226672784442496E666F726D654F626A657469766F732220446174615365744E616D653D226672784442496E666F726D654F626A657469766F73220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
+<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="42284,7278503819" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;    if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10;    begin                      &#13;&#10;       mContinua.Visible := False;&#13;&#10;    end                 &#13;&#10;    else&#13;&#10;    begin                &#13;&#10;       mContinua.Visible := True;&#13;&#10;    end               &#13;&#10;  end;               &#13;&#10;end;&#13;&#10;&#13;&#10;procedure grupoAgenteOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;UnAgentePorPagina&#62; = 1) then&#13;&#10;     grupoAgente.StartNewPage := True&#13;&#10;  else&#13;&#10;     grupoAgente.StartNewPage := False;  &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C4400000020446174615365743D226672784442496E666F726D654F626A657469766F732220446174615365744E616D653D226672784442496E666F726D654F626A657469766F73220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F732200010C19000000204E616D653D22556E4167656E7465506F72506167696E61220000055374796C650100">
   <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
   <TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
     <TfrxPageHeader Name="Band1" Height="104,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@@ -13,7 +13,7 @@
     <TfrxPageFooter Name="" Height="23,77953" Left="0" Top="354" Width="1009,13451" PrintOnLastPage="False">
       <TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
     </TfrxPageFooter>
-    <TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="180" Width="1009,13451" Condition="frxDBInformeObjetivos.&#34;AGENTE&#34;" ReprintOnNewPage="True">
+    <TfrxGroupHeader Name="grupoAgente" Height="40" Left="0" Restrictions="2" Top="180" Width="1009,13451" OnBeforePrint="grupoAgenteOnBeforePrint" Condition="frxDBInformeObjetivos.&#34;AGENTE&#34;" ReprintOnNewPage="True">
       <TfrxMemoView Name="Memo27" Left="0" Top="25" Width="103" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Intervalo"/>
       <TfrxMemoView Name="Memo28" Align="baLeft" Left="218" Top="25" Width="80" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Unidades obj."/>
       <TfrxMemoView Name="Memo49" Align="baLeft" Left="398" Top="25" Width="100" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Uni. conseguidas"/>

Source/Informes/8/InformeObjetivosAgentesAlbaranes.fr3

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41572,786678125" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;    if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10;    begin                      &#13;&#10;       mContinua.Visible := False;&#13;&#10;    end                 &#13;&#10;    else&#13;&#10;    begin                &#13;&#10;       mContinua.Visible := True;&#13;&#10;    end               &#13;&#10;  end;               &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C4400000020446174615365743D226672784442496E666F726D654F626A657469766F732220446174615365744E616D653D226672784442496E666F726D654F626A657469766F73220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
+<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="42284,7284063079" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;    if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10;    begin                      &#13;&#10;       mContinua.Visible := False;&#13;&#10;    end                 &#13;&#10;    else&#13;&#10;    begin                &#13;&#10;       mContinua.Visible := True;&#13;&#10;    end               &#13;&#10;  end;               &#13;&#10;end;&#13;&#10;&#13;&#10;procedure grupoAgenteOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;UnAgentePorPagina&#62; = 1) then&#13;&#10;     grupoAgente.StartNewPage := True&#13;&#10;  else&#13;&#10;     grupoAgente.StartNewPage := False;  &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C4400000020446174615365743D226672784442496E666F726D654F626A657469766F732220446174615365744E616D653D226672784442496E666F726D654F626A657469766F73220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F732200010C19000000204E616D653D22556E4167656E7465506F72506167696E61220000055374796C650100">
   <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
   <TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
     <TfrxPageHeader Name="Band1" Height="104,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@@ -13,7 +13,7 @@
     <TfrxPageFooter Name="" Height="23,77953" Left="0" Top="354" Width="1009,13451" PrintOnLastPage="False">
       <TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
     </TfrxPageFooter>
-    <TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="180" Width="1009,13451" Condition="frxDBInformeObjetivos.&#34;AGENTE&#34;" ReprintOnNewPage="True">
+    <TfrxGroupHeader Name="grupoAgente" Height="40" Left="0" Restrictions="2" Top="180" Width="1009,13451" OnBeforePrint="grupoAgenteOnBeforePrint" Condition="frxDBInformeObjetivos.&#34;AGENTE&#34;" ReprintOnNewPage="True">
       <TfrxMemoView Name="Memo27" Left="0" Top="25" Width="103" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Intervalo"/>
       <TfrxMemoView Name="Memo28" Align="baLeft" Left="218" Top="25" Width="80" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Unidades obj."/>
       <TfrxMemoView Name="Memo49" Align="baLeft" Left="398" Top="25" Width="100" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Uni. conseguidas"/>

Source/Informes/8/InformeObjetivosAgentesFacturas.fr3

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41572,7868235185" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;    if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10;    begin                      &#13;&#10;       mContinua.Visible := False;&#13;&#10;    end                 &#13;&#10;    else&#13;&#10;    begin                &#13;&#10;       mContinua.Visible := True;&#13;&#10;    end               &#13;&#10;  end;               &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C4400000020446174615365743D226672784442496E666F726D654F626A657469766F732220446174615365744E616D653D226672784442496E666F726D654F626A657469766F73220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
+<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="42284,7286470139" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;    if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10;    begin                      &#13;&#10;       mContinua.Visible := False;&#13;&#10;    end                 &#13;&#10;    else&#13;&#10;    begin                &#13;&#10;       mContinua.Visible := True;&#13;&#10;    end               &#13;&#10;  end;               &#13;&#10;end;&#13;&#10;&#13;&#10;procedure grupoAgenteOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;UnAgentePorPagina&#62; = 1) then&#13;&#10;     grupoAgente.StartNewPage := True&#13;&#10;  else&#13;&#10;     grupoAgente.StartNewPage := False;  &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C4400000020446174615365743D226672784442496E666F726D654F626A657469766F732220446174615365744E616D653D226672784442496E666F726D654F626A657469766F73220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F732200010C19000000204E616D653D22556E4167656E7465506F72506167696E61220000055374796C650100">
   <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
   <TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
     <TfrxPageHeader Name="Band1" Height="104,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@@ -13,7 +13,7 @@
     <TfrxPageFooter Name="" Height="23,77953" Left="0" Top="354" Width="1009,13451" PrintOnLastPage="False">
       <TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
     </TfrxPageFooter>
-    <TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="180" Width="1009,13451" Condition="frxDBInformeObjetivos.&#34;AGENTE&#34;" ReprintOnNewPage="True">
+    <TfrxGroupHeader Name="grupoAgente" Height="40" Left="0" Restrictions="2" Top="180" Width="1009,13451" OnBeforePrint="grupoAgenteOnBeforePrint" Condition="frxDBInformeObjetivos.&#34;AGENTE&#34;" ReprintOnNewPage="True">
       <TfrxMemoView Name="Memo27" Left="0" Top="25" Width="103" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Intervalo"/>
       <TfrxMemoView Name="Memo28" Align="baLeft" Left="218" Top="25" Width="80" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Unidades obj."/>
       <TfrxMemoView Name="Memo49" Align="baLeft" Left="398" Top="25" Width="100" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Uni. conseguidas"/>

Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm

@@ -2659,162 +2659,23 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
     PreviewOptions.Zoom = 1.000000000000000000
     PrintOptions.Printer = 'Por defecto'
     PrintOptions.PrintOnSheet = 0
-    ReportOptions.CreateDate = 39065.872423495400000000
+    ReportOptions.CreateDate = 37800.807714351900000000
-    ReportOptions.LastChange = 41807.752059861110000000
+    ReportOptions.LastChange = 42284.683293877320000000
     ScriptLanguage = 'PascalScript'
     ScriptText.Strings = (
-      'var'
+      'procedure mContinuaOnBeforePrint(Sender: TfrxComponent);'
-      '  Pagina: Variant;'
-      ''
-      ''
-      'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);'
-      'var'
-      '  ACadena : String;'
       'begin'
-      '  ACadena := '#39#39';'
+      ' if Engine.FinalPass then'
-      '  DireccionEnvio.Lines.Clear;'
-      ''
-      '  ACadena := '#39#39';'
-      ''
-      '  DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">);'
-      '  if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39') then'
-      '     ACadena := <frxDBCabecera."CODIGO_POSTAL"> + '#39' '#39';'
-      '  if (<frxDBCabecera."POBLACION"> <> '#39#39') then'
-      '     ACadena := ACadena + <frxDBCabecera."POBLACION">;'
-      ''
-      '  if (ACadena <> '#39#39') then'
-      '       DireccionEnvio.Lines.Add(ACadena);'
-      ''
-      
-        '  ACadena := '#39#39';                                                ' +
-        '    '
-      '  if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then'
-      '       ACadena := <frxDBCabecera."PROVINCIA">;'
-      ''
-      '  if (<frxDBCabecera."PAIS"> <> '#39#39') then'
-      '       ACadena := ACadena + '#39' - '#39' + <frxDBCabecera."PAIS">;'
-      '    '
-      '  DireccionEnvio.Lines.Add(ACadena);                 '
-      'end;'
-      ''
-      'procedure Memo2OnBeforePrint(Sender: TfrxComponent);'
-      'begin'
-      '  Memo2.Lines.Clear;'
-      '  if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then'
-      '     Memo2.Lines.Add('#39'RETURN ORDER'#39')'
-      '  else'
-      '     Memo2.Lines.Add('#39'DELIVERY NOTE'#39')'
-      'end;'
-      ''
-      'procedure Memo5OnBeforePrint(Sender: TfrxComponent);'
-      'begin'
-      '  if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then'
       '  begin'
-      '     Memo5.Lines.Clear;'
+      '    if (<Page#> = <TotalPages#>) then'
-      '     Memo5.Lines.Add('#39'Order number:'#39');'
+      '    begin                      '
-      '  end;'
+      '       mContinua.Visible := False;'
-      'end;'
+      '    end                 '
-      ''
+      '    else'
-      'procedure Memo9OnBeforePrint(Sender: TfrxComponent);'
+      '    begin                '
-      'begin'
+      '       mContinua.Visible := True;'
-      '  if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then'
+      '    end               '
-      '  begin'
+      '  end;               '
-      '     Memo9.Lines.Clear;'
-      '     Memo9.Lines.Add('#39'Date order:'#39');'
-      '  end;'
-      'end;'
-      ''
-      'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);'
-      'begin'
-      '  if not Engine.FinalPass then'
-      '     Set('#39'TotalPaginas'#39', (<TotalPaginas> + 1));'
-      ''
-      '  if Engine.FinalPass then'
-      '     Set('#39'Pagina'#39', (<Pagina> + 1));'
-      'end;'
-      ''
-      'procedure frxReportOnStartReport(Sender: TfrxComponent);'
-      'begin'
-      '  Set('#39'Pagina'#39', 0);'
-      '  Set('#39'TotalPaginas'#39', 0);'
-      'end;'
-      ''
-      'procedure Memo26OnBeforePrint(Sender: TfrxComponent);'
-      'begin'
-      
-        '  if <VerObservaciones> and (<frxDBCabecera."OBSERVACIONES"> <> ' +
-        #39#39') then'
-      
-        '     Memo26.Visible := True                                     ' +
-        '               '
-      '  else'
-      '     Memo26.Visible := False              '
-      'end;'
-      ''
-      'procedure Memo27OnBeforePrint(Sender: TfrxComponent);'
-      'begin'
-      
-        '  if <VerIncidencias> and (<frxDBCabecera."INCIDENCIAS"> <> '#39#39') ' +
-        'then'
-      
-        '     Memo27.Visible := True                                     ' +
-        '               '
-      '  else'
-      '     Memo27.Visible := False              '
-      'end;'
-      ''
-      'procedure eImporteUnidadOnBeforePrint(Sender: TfrxComponent);'
-      'begin'
-      '  if <VerPrecios> 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;'
-      ''
-      'procedure Overlay1OnBeforePrint(Sender: TfrxComponent);'
-      'begin'
-      '  if <ShowLogotipo> then'
-      '  begin'
-      
-        '     Overlay1.Visible := True;                                  ' +
-        '     '
-      '  end'
-      '  else'
-      '  begin              '
-      '     Overlay1.Visible := False;   '
-      '  end  '
       'end;'
       ''
       'begin'

Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas

@@ -102,6 +102,7 @@ type
     FListaIDAgentes: TIntegerArray;
     FListaNombresAgentes : TStringList;
     FTopN: Integer;
+    FUnAgentePorPagina: Integer;
 
     //Genera cada uno de los albaranes a imprimir
     procedure _GenerarAlbaran(const AID: Integer);
@@ -121,7 +122,7 @@ type
 
     function GenerarInformeAlbaranesGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; const TopN: Integer; const Serie: Variant): Binary;
 
-    function GenerarInformeObjetivosAgentesAlbaranes(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary;
+    function GenerarInformeObjetivosAgentesAlbaranes(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; const TopN: Integer; const UnAgentePorPagina: Integer): Binary;
 
 
   end;
@@ -361,7 +362,7 @@ end;
 
 function TRptAlbaranesCliente.GenerarInformeObjetivosAgentesAlbaranes(
   const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
-  const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary;
+  const ListaIDAgentes: TIntegerArray; const TopN: Integer; const UnAgentePorPagina: Integer): Binary;
 var
   AStream: TMemoryStream;
   AInforme: Variant;
@@ -375,6 +376,7 @@ begin
     FIdEmpresa := IdEmpresa;
     FAno1 := Ano1;
     FIntervalo := Intervalo;
+    FUnAgentePorPagina := UnAgentePorPagina;
 
     if Assigned(FListaIDAgentes) then
        FListaIDClientes.Free;
@@ -396,7 +398,7 @@ begin
 
     frxReport.LoadFromFile(AInforme, True);
     IniciarParametrosInforme;
-
+    frxReport.Variables.Variables['UnAgentePorPagina'] := FUnAgentePorPagina;
     frxReport.PrepareReport(False);
     frxReport.PreviewPages.SaveToStream(Result);
 

Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesDevCliente.dfm

@@ -8,6 +8,12 @@ inherited frViewAlbaranesDevCliente: TfrViewAlbaranesDevCliente
           Kind = skSum
           Position = spFooter
           Column = cxGridViewPERSONA_CONTACTO
+        end
+        item
+          Format = ',0.00 '#8364';-,0.00 '#8364
+          Kind = skSum
+          Position = spFooter
+          Column = cxGridViewIMPORTE_TOTAL
         end>
       DataController.Summary.FooterSummaryItems = <
         item
@@ -23,6 +29,11 @@ inherited frViewAlbaranesDevCliente: TfrViewAlbaranesDevCliente
           Format = ',0.00 '#8364';-,0.00 '#8364
           Kind = skSum
           Column = cxGridViewPERSONA_CONTACTO
+        end
+        item
+          Format = ',0.00 '#8364';-,0.00 '#8364
+          Kind = skSum
+          Column = cxGridViewIMPORTE_TOTAL
         end>
       inherited cxGridViewNUM_COPIAS: TcxGridDBColumn
         IsCaptionAssigned = True

Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas

@@ -134,6 +134,7 @@ type
     FDesglosado : Boolean;
     FShowLogotipo: Boolean;
     FTopN: Integer;
+    FUnAgentePorPagina: Integer;
 
     //Genera cada una de las facturas a imprimir
     procedure _GenerarFactura(const ID: Integer; const VerSello: Boolean = True; const VerCopia: Boolean = True);
@@ -155,7 +156,7 @@ type
     function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
     function GenerarInformeFacturasGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; const TopN: Integer): Binary;
     function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
-    function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary;
+    function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; const TopN: Integer; const UnAgentePorPagina: Integer): Binary;
   end;
 
 implementation
@@ -539,7 +540,7 @@ end;
 
 function TRptFacturasCliente.GenerarInformeObjetivosAgentesFacturas(
   const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
-  const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary;
+  const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; const TopN: Integer; const UnAgentePorPagina: Integer): Binary;
 var
   AStream: TMemoryStream;
   AInforme: Variant;
@@ -556,6 +557,7 @@ begin
     FAgentesActivos := AgentesActivos;
     FFechaVenInicio := Null;
     FFechaVenFin := Null;
+    FUnAgentePorPagina := UnAgentePorPagina;
 
     if Assigned(FListaIDAgentes) then
        FListaIDClientes.Free;
@@ -577,7 +579,7 @@ begin
 
     frxReport.LoadFromFile(AInforme, True);
     IniciarParametrosInforme;
-
+    frxReport.Variables.Variables['UnAgentePorPagina'] := FUnAgentePorPagina;
     frxReport.PrepareReport(False);
     frxReport.PreviewPages.SaveToStream(Result);
 

Source/Modulos/Facturas proforma/Views/uEditorFacturasProforma.dfm

@@ -107,11 +107,34 @@ inherited fEditorFacturasProforma: TfEditorFacturasProforma
       ExplicitWidth = 842
       ExplicitHeight = 417
       inherited cxGridView: TcxGridDBTableView
+        DataController.Summary.DefaultGroupSummaryItems = <
+          item
+            Format = ',0.00 '#8364';-,0.00 '#8364
+            Kind = skSum
+            Position = spFooter
+            Column = frViewFacturasProforma1.cxGridViewBASE_IMPONIBLE
+          end
+          item
+            Format = ',0.00 '#8364';-,0.00 '#8364
+            Kind = skSum
+            Position = spFooter
+            Column = frViewFacturasProforma1.cxGridViewIMPORTE_TOTAL
+          end>
         DataController.Summary.FooterSummaryItems = <
           item
             Format = '0 facturas'
             Kind = skCount
             Column = frViewFacturasProforma1.cxGridViewREFERENCIA
+          end
+          item
+            Format = ',0.00 '#8364';-,0.00 '#8364
+            Kind = skSum
+            Column = frViewFacturasProforma1.cxGridViewBASE_IMPONIBLE
+          end
+          item
+            Format = ',0.00 '#8364';-,0.00 '#8364
+            Kind = skSum
+            Column = frViewFacturasProforma1.cxGridViewIMPORTE_TOTAL
           end>
         inherited cxGridViewNUM_COPIAS: TcxGridDBColumn
           IsCaptionAssigned = True

Source/Modulos/Facturas proforma/Views/uViewFacturasProforma.dfm

@@ -13,11 +13,34 @@ inherited frViewFacturasProforma: TfrViewFacturasProforma
     inherited cxGridView: TcxGridDBTableView
       DataController.KeyFieldNames = 'ID'
       DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded]
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Format = ',0.00 '#8364';-,0.00 '#8364
+          Kind = skSum
+          Position = spFooter
+          Column = cxGridViewBASE_IMPONIBLE
+        end
+        item
+          Format = ',0.00 '#8364';-,0.00 '#8364
+          Kind = skSum
+          Position = spFooter
+          Column = cxGridViewIMPORTE_TOTAL
+        end>
       DataController.Summary.FooterSummaryItems = <
         item
           Format = '0 facturas'
           Kind = skCount
           Column = cxGridViewREFERENCIA
+        end
+        item
+          Format = ',0.00 '#8364';-,0.00 '#8364
+          Kind = skSum
+          Column = cxGridViewBASE_IMPONIBLE
+        end
+        item
+          Format = ',0.00 '#8364';-,0.00 '#8364
+          Kind = skSum
+          Column = cxGridViewIMPORTE_TOTAL
         end>
       DataController.OnCompare = cxGridViewDataControllerCompare
       OptionsCustomize.ColumnHidingOnGrouping = False
@@ -115,8 +138,10 @@ inherited frViewFacturasProforma: TfrViewFacturasProforma
         Caption = 'Base Imponible'
         DataBinding.FieldName = 'BASE_IMPONIBLE'
         PropertiesClassName = 'TcxCurrencyEditProperties'
+        Properties.Alignment.Horz = taRightJustify
         Visible = False
         FooterAlignmentHorz = taRightJustify
+        GroupSummaryAlignment = taRightJustify
         HeaderAlignmentHorz = taRightJustify
       end
       object cxGridViewDESCUENTO: TcxGridDBColumn
@@ -163,6 +188,7 @@ inherited frViewFacturasProforma: TfrViewFacturasProforma
         PropertiesClassName = 'TcxCurrencyEditProperties'
         Properties.Alignment.Horz = taRightJustify
         FooterAlignmentHorz = taRightJustify
+        GroupSummaryAlignment = taRightJustify
         HeaderAlignmentHorz = taRightJustify
         Width = 128
       end

Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeObjetivosAlbaranesReport.pas

@@ -13,6 +13,7 @@ type
     function GetAno1: Variant;
     function GetAno2: Variant;
     function GetNTop: Variant;
+    function GetUnAgentePorPagina: Boolean;
 
     function GetListaIDAgentes: TIntegerArray;
 
@@ -20,6 +21,7 @@ type
     property Ano1: Variant read GetAno1;
     property Ano2: Variant read GetAno2;
     property NTop: Variant read GetNTop;
+    property UnAgentePorPagina: Boolean read GetUnAgentePorPagina;
 
     property ListaIDAgentes: TIntegerArray read GetListaIDAgentes;
   end;

Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeObjetivosFacturasReport.pas

@@ -13,6 +13,7 @@ type
     function GetAno1: Variant;
     function GetAno2: Variant;
     function GetNTop: Variant;
+    function GetUnAgentePorPagina: Boolean;
 
     function GetAgentesActivos: Boolean;
     function GetListaIDAgentes: TIntegerArray;
@@ -21,6 +22,7 @@ type
     property Ano1: Variant read GetAno1;
     property Ano2: Variant read GetAno2;
     property NTop: Variant read GetNTop;
+    property UnAgentePorPagina: Boolean read GetUnAgentePorPagina;
 
     property AgentesActivos: Boolean read GetAgentesActivos;    
     property ListaIDAgentes: TIntegerArray read GetListaIDAgentes;

Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas

@@ -713,6 +713,7 @@ procedure TGestorInformesController.VerInformeObjetivosAlbaranes;
 var
   AStream: Binary;
   AEditor : IEditorInformeObjetivosAlbaranesReport;
+  AUnAgentePorPagina: Integer;
 begin
   AEditor := NIL;
   ShowHourglassCursor;
@@ -722,8 +723,13 @@ begin
       AEditor.Controller := Self;
       AEditor.Title := 'Informe comparativo de objetivos de agentes de albaranes';
 
+      if (AEditor.UnAgentePorPagina) then
+         AUnAgentePorPagina:= 1
+      else
+         AUnAgentePorPagina:= 0;
+
       AStream := FDataModule.GenerarInformeObjetivosAgentesAlbaranes(AppFactuGES.EmpresaActiva.ID,
-        AEditor.Intervalo, AEditor.Ano1, AEditor.Ano2, AEditor.ListaIDAgentes, AEditor.NTop);
+        AEditor.Intervalo, AEditor.Ano1, AEditor.Ano2, AEditor.ListaIDAgentes, AEditor.NTop, AUnAgentePorPagina);
 
       AEditor.LoadFromStream(AStream);
       AEditor.Preview;
@@ -739,6 +745,8 @@ procedure TGestorInformesController.VerInformeObjetivosFacturas;
 var
   AStream: Binary;
   AEditor : IEditorInformeObjetivosFacturasReport;
+  AUnAgentePorPagina: Integer;
+    
 begin
   AEditor := NIL;
   ShowHourglassCursor;
@@ -748,8 +756,13 @@ begin
       AEditor.Controller := Self;
       AEditor.Title := 'Informe comparativo de objetivos de agentes de facturas';
 
+      if (AEditor.UnAgentePorPagina) then
+         AUnAgentePorPagina:= 1
+      else
+         AUnAgentePorPagina:= 0;
+
       AStream := FDataModule.GenerarInformeObjetivosAgentesFacturas(AppFactuGES.EmpresaActiva.ID,
-        AEditor.Intervalo, AEditor.Ano1, AEditor.Ano2, AEditor.AgentesActivos, AEditor.ListaIDAgentes, AEditor.NTop);
+        AEditor.Intervalo, AEditor.Ano1, AEditor.Ano2, AEditor.AgentesActivos, AEditor.ListaIDAgentes, AEditor.NTop, AUnAgentePorPagina);
 
       AEditor.LoadFromStream(AStream);
       AEditor.Preview;

Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas

@@ -29,7 +29,7 @@ type
     //MODULO ALBARANES DE CLIENTE
     function DarListaAnosAlbaranesCli: TStringList;
     function GenerarInformeAlbaranesCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant; const Serie: Variant): Binary;
-    function GenerarInformeObjetivosAgentesAlbaranes(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; Const NTop: Variant): Binary;
+    function GenerarInformeObjetivosAgentesAlbaranes(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; Const NTop: Variant; const UnAgentePorPagina: Integer): Binary;
 
     //MODULO FACTURAS DE CLIENTE
     function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
@@ -38,7 +38,7 @@ type
     function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant): Binary;
     function DarListaAnosFacturasCli: TStringList;
     function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
-    function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; Const NTop: Variant): Binary;
+    function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; Const NTop: Variant; const UnAgentePorPagina: Integer): Binary;
 
     //MODULO RECIBOS DE CLIENTE
     function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
@@ -319,16 +319,16 @@ begin
 end;
 
 function TDataModuleGestorInformes.GenerarInformeObjetivosAgentesAlbaranes(const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
-  const ListaIDAgentes: TIntegerArray; const NTop: Variant): Binary;
+  const ListaIDAgentes: TIntegerArray; const NTop: Variant; const UnAgentePorPagina: Integer): Binary;
 begin
-    Result := (RORemoteService as IsrvGestorInformes).GenerarInformeObjetivosAgentesAlbaranes(IdEmpresa, Intervalo, Ano1, Ano2, ListaIdAgentes, NTop);
+    Result := (RORemoteService as IsrvGestorInformes).GenerarInformeObjetivosAgentesAlbaranes(IdEmpresa, Intervalo, Ano1, Ano2, ListaIdAgentes, NTop, UnAgentePorPagina);
 end;
 
 function TDataModuleGestorInformes.GenerarInformeObjetivosAgentesFacturas(
   const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
-  const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; const NTop: Variant): Binary;
+  const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; const NTop: Variant; const UnAgentePorPagina: Integer): Binary;
 begin
-    Result := (RORemoteService as IsrvGestorInformes).GenerarInformeObjetivosAgentesFacturas(IdEmpresa, Intervalo, Ano1, Ano2, AgentesActivos, ListaIdAgentes, NTop);
+    Result := (RORemoteService as IsrvGestorInformes).GenerarInformeObjetivosAgentesFacturas(IdEmpresa, Intervalo, Ano1, Ano2, AgentesActivos, ListaIdAgentes, NTop, UnAgentePorPagina);
 end;
 
 procedure TDataModuleGestorInformes.getInforme;

Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas

@@ -18,7 +18,7 @@ type
     //MODULO ALBARANES DE CLIENTE
     function DarListaAnosAlbaranesCli: TStringList;
     function GenerarInformeAlbaranesCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant; const Serie: Variant): Binary;
-    function GenerarInformeObjetivosAgentesAlbaranes(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; Const NTop: Variant): Binary;
+    function GenerarInformeObjetivosAgentesAlbaranes(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; Const NTop: Variant; const UnAgentePorPagina: Integer): Binary;
 
     //MODULO FACTURAS DE CLIENTE
     function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
@@ -27,7 +27,7 @@ type
     function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant): Binary;
     function DarListaAnosFacturasCli: TStringList;
     function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
-    function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; Const NTop: Variant): Binary;        
+    function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; Const NTop: Variant; const UnAgentePorPagina: Integer): Binary;        
 
     //MODULO RECIBOS DE CLIENTE
     function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;

Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas

@@ -45,7 +45,7 @@ type
     function GenerarInformeAlbaranesCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; const TopN: Integer; const Serie: Variant): Binary;
     function DarListaAnosAlbaranesCli: StringArray;
     function GenerarInformeObjetivosAgentesAlbaranes(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray;
-                                             const TopN: Integer): Binary;
+                                             const TopN: Integer; const UnAgentePorPagina: Integer): Binary;
 
     //MODULO FACTURAS CLIENTE
     function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
@@ -56,7 +56,7 @@ type
     function DarListaAnosFacturasCli: StringArray;
     function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
     function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray;
-                                             const TopN: Integer): Binary;
+                                             const TopN: Integer; const UnAgentePorPagina: Integer): Binary;
 
     //MODULO RECIBOS CLIENTE
     function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
@@ -378,13 +378,13 @@ end;
 
 function TsrvGestorInformes.GenerarInformeObjetivosAgentesAlbaranes(
   const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
-  const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary;
+  const ListaIDAgentes: TIntegerArray; const TopN: Integer; const UnAgentePorPagina: Integer): Binary;
 var
   AReportGenerator : TRptAlbaranesCliente;
 begin
   AReportGenerator := TRptAlbaranesCliente.Create(nil);
   try
-    Result := AReportGenerator.GenerarInformeObjetivosAgentesAlbaranes(IdEmpresa, Intervalo, Ano1, Ano2, ListaIDAgentes, TopN);
+    Result := AReportGenerator.GenerarInformeObjetivosAgentesAlbaranes(IdEmpresa, Intervalo, Ano1, Ano2, ListaIDAgentes, TopN, UnAgentePorPagina);
   finally
     FreeAndNIL(AReportGenerator);
   end;
@@ -392,13 +392,13 @@ end;
 
 function TsrvGestorInformes.GenerarInformeObjetivosAgentesFacturas(
   const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
-  const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary;
+  const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; const TopN: Integer; const UnAgentePorPagina: Integer): Binary;
 var
   AReportGenerator : TRptFacturasCliente;
 begin
   AReportGenerator := TRptFacturasCliente.Create(nil);
   try
-    Result := AReportGenerator.GenerarInformeObjetivosAgentesFacturas(IdEmpresa, Intervalo, Ano1, Ano2, AgentesActivos, ListaIDAgentes, TopN);
+    Result := AReportGenerator.GenerarInformeObjetivosAgentesFacturas(IdEmpresa, Intervalo, Ano1, Ano2, AgentesActivos, ListaIDAgentes, TopN, UnAgentePorPagina);
   finally
     FreeAndNIL(AReportGenerator);
   end;

Source/Modulos/Gestor de informes/Views/uEditorInformeObjetivosAlbaranesReport.dfm

@@ -1,24 +1,24 @@
 inherited fEditorInformeObjetivosAlbaranesReport: TfEditorInformeObjetivosAlbaranesReport
   Caption = 'fEditorInformeObjetivosAlbaranesReport'
   ClientHeight = 655
-  ClientWidth = 895
+  ClientWidth = 975
-  ExplicitWidth = 903
+  ExplicitWidth = 983
   ExplicitHeight = 689
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
-    Width = 895
+    Width = 975
-    ExplicitWidth = 895
+    ExplicitWidth = 975
     inherited Image1: TImage
-      Left = 868
+      Left = 948
       ExplicitLeft = 868
     end
   end
   inherited TBXDock: TTBXDock
-    Width = 895
+    Width = 975
-    ExplicitWidth = 895
+    ExplicitWidth = 975
     inherited tbxMenu: TTBXToolbar
-      ExplicitWidth = 895
+      ExplicitWidth = 975
     end
     inherited TBXToolbar1: TTBXToolbar
       ExplicitWidth = 591
@@ -31,19 +31,19 @@ inherited fEditorInformeObjetivosAlbaranesReport: TfEditorInformeObjetivosAlbara
   end
   inherited StatusBar: TJvStatusBar
     Top = 636
-    Width = 895
+    Width = 975
     ExplicitTop = 636
-    ExplicitWidth = 895
+    ExplicitWidth = 975
   end
   inherited TBXMultiDockIzquierdo: TTBXMultiDock
     Height = 534
     ExplicitHeight = 534
   end
   inherited TBXMultiDockDerecho: TTBXMultiDock
-    Left = 703
+    Left = 783
     Width = 192
     Height = 534
-    ExplicitLeft = 703
+    ExplicitLeft = 783
     ExplicitWidth = 192
     ExplicitHeight = 534
     inherited pnlParametros: TTBXDockablePanel

Source/Modulos/Gestor de informes/Views/uEditorInformeObjetivosAlbaranesReport.pas

@@ -33,6 +33,7 @@ type
     function GetSerie: variant;
     function GetListaIDAgentes: TIntegerArray;
     function GetNTop: Variant;
+    function GetUnAgentePorPagina: Boolean;
 
     procedure RefrescarInforme;
 
@@ -46,6 +47,7 @@ type
     property ListaIDAgentes: TIntegerArray read GetListaIDAgentes;
     property NTop: Variant read GetNTop;
     property Serie: Variant read GetSerie;
+    property UnAgentePorPagina: Boolean read GetUnAgentePorPagina;
 
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -118,20 +120,32 @@ begin
   Result := frViewIntervaloComparativo1.Serie;
 end;
 
+function TfEditorInformeObjetivosAlbaranesReport.GetUnAgentePorPagina: Boolean;
+begin
+  Result := frViewFiltroAgentes1.cbxPaginado.Checked;
+end;
+
 procedure TfEditorInformeObjetivosAlbaranesReport.RefrescarInforme;
 var
   AStream: Binary;
+  AUnAgentePorPagina: Integer;
 begin
   ShowHourglassCursor;
   try
 
+  if UnAgentePorPagina then
+     AUnAgentePorPagina:= 1
+  else
+     AUnAgentePorPagina:= 0;
+
     AStream := (Controller as IGestorInformesController).DataModule.GenerarInformeObjetivosAgentesAlbaranes(
       AppFactuGES.EmpresaActiva.ID,
       Intervalo,
       Ano1,
       Ano2,
       ListaIDAgentes,
-      NTop);
+      NTop,
+      AUnAgentePorPagina);
 
     LoadFromStream(AStream);
     Report.ShowPreparedReport;

Source/Modulos/Gestor de informes/Views/uEditorInformeObjetivosFacturasReport.dfm

@@ -91,7 +91,7 @@ inherited fEditorInformeObjetivosFacturasReport: TfEditorInformeObjetivosFactura
           Width = 182
           ExplicitWidth = 182
           inherited Label3: TLabel
-            Width = 172
+            Width = 106
           end
           inherited cbIntervalo: TcxComboBox
             Style.LookAndFeel.SkinName = ''
@@ -110,7 +110,7 @@ inherited fEditorInformeObjetivosFacturasReport: TfEditorInformeObjetivosFactura
           Width = 182
           ExplicitWidth = 182
           inherited lis: TLabel
-            Width = 172
+            Width = 19
           end
           inherited cbAno1: TcxComboBox
             Style.LookAndFeel.SkinName = ''
@@ -126,7 +126,7 @@ inherited fEditorInformeObjetivosFacturasReport: TfEditorInformeObjetivosFactura
           Visible = False
           ExplicitWidth = 182
           inherited Label1: TLabel
-            Width = 172
+            Width = 88
           end
           inherited cbAno2: TcxComboBox
             Style.LookAndFeel.SkinName = ''
@@ -143,9 +143,6 @@ inherited fEditorInformeObjetivosFacturasReport: TfEditorInformeObjetivosFactura
           Visible = False
           ExplicitTop = 224
           ExplicitWidth = 182
-          inherited Label2: TLabel
-            Width = 172
-          end
         end
         inherited TBXAlignmentPanel5: TTBXAlignmentPanel
           Top = 176
@@ -154,7 +151,7 @@ inherited fEditorInformeObjetivosFacturasReport: TfEditorInformeObjetivosFactura
           ExplicitTop = 176
           ExplicitWidth = 182
           inherited Label4: TLabel
-            Width = 172
+            Width = 92
           end
           inherited cbSerie: TcxComboBox
             Properties.Items.Strings = (

Source/Modulos/Gestor de informes/Views/uEditorInformeObjetivosFacturasReport.pas

@@ -34,6 +34,7 @@ type
     function GetListaIDAgentes: TIntegerArray;
     function GetAgentesActivos: Boolean;
     function GetNTop: Variant;
+    function GetUnAgentePorPagina: Boolean;
 
     procedure RefrescarInforme;
 
@@ -48,6 +49,7 @@ type
     property AgentesActivos: Boolean read GetAgentesActivos;
     property NTop: Variant read GetNTop;
     property Serie: Variant read GetSerie;
+    property UnAgentePorPagina: Boolean read GetUnAgentePorPagina;
 
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -125,13 +127,24 @@ begin
   Result := frViewIntervaloComparativo1.Serie;
 end;
 
+function TfEditorInformeObjetivosFacturasReport.GetUnAgentePorPagina: Boolean;
+begin
+  Result := frViewFiltroAgentes1.cbxPaginado.Checked;
+end;
+
 procedure TfEditorInformeObjetivosFacturasReport.RefrescarInforme;
 var
   AStream: Binary;
+  AUnAgentePorPagina: Integer;
 begin
   ShowHourglassCursor;
   try
 
+  if UnAgentePorPagina then
+     AUnAgentePorPagina:= 1
+  else
+     AUnAgentePorPagina:= 0;
+
     AStream := (Controller as IGestorInformesController).DataModule.GenerarInformeObjetivosAgentesFacturas(
       AppFactuGES.EmpresaActiva.ID,
       Intervalo,
@@ -139,7 +152,8 @@ begin
       Ano2,
       AgentesActivos,
       ListaIDAgentes,
-      NTop);
+      NTop,
+      AUnAgentePorPagina);
 
     LoadFromStream(AStream);
     Report.ShowPreparedReport;

Source/Modulos/Gestor de informes/Views/uViewFiltroAgentes.dfm

@@ -138,4 +138,14 @@ inherited frViewFiltroAgentes: TfrViewFiltroAgentes
     TabStop = True
     OnClick = rbTodosAgentesClick
   end
+  object cbxPaginado: TCheckBox
+    Left = 28
+    Top = 50
+    Width = 146
+    Height = 17
+    Caption = 'Un agente por hoja'
+    Checked = True
+    State = cbChecked
+    TabOrder = 7
+  end
 end

Source/Modulos/Gestor de informes/Views/uViewFiltroAgentes.pas

@@ -21,6 +21,7 @@ type
     bElegirAgente: TBitBtn;
     edtAgente: TcxTextEdit;
     rbAgentesActivos: TRadioButton;
+    cbxPaginado: TCheckBox;
     procedure rbTodosAgentesClick(Sender: TObject);
     procedure rbUnAgenteClick(Sender: TObject);
     procedure CustomViewCreate(Sender: TObject);

Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas

@@ -3,7 +3,7 @@ unit schPedidosClienteClient_Intf;
 interface
 
 uses
-  Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
@@ -239,7 +239,7 @@ type
   end;
 
   { TListaAnosPedidosDataTableRules }
-  TListaAnosPedidosDataTableRules = class(TDADataTableRules, IListaAnosPedidos)
+  TListaAnosPedidosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosPedidos)
   private
   protected
     { Property getters and setters }
@@ -292,7 +292,7 @@ type
   end;
 
   { TPedidosProveedorDataTableRules }
-  TPedidosProveedorDataTableRules = class(TDADataTableRules, IPedidosProveedor)
+  TPedidosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor)
   private
   protected
     { Property getters and setters }
@@ -571,7 +571,7 @@ type
   end;
 
   { TPedidosClienteDataTableRules }
-  TPedidosClienteDataTableRules = class(TDADataTableRules, IPedidosCliente)
+  TPedidosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPedidosCliente)
   private
     f_OBSERVACIONES: IROStrings;
     f_INCIDENCIAS: IROStrings;
@@ -914,7 +914,7 @@ type
   end;
 
   { TPedidosCliente_DetallesDataTableRules }
-  TPedidosCliente_DetallesDataTableRules = class(TDADataTableRules, IPedidosCliente_Detalles)
+  TPedidosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosCliente_Detalles)
   private
   protected
     { Property getters and setters }
@@ -1045,7 +1045,7 @@ type
   end;
 
   { TPedidosCliente_Articulos_PendientesDataTableRules }
-  TPedidosCliente_Articulos_PendientesDataTableRules = class(TDADataTableRules, IPedidosCliente_Articulos_Pendientes)
+  TPedidosCliente_Articulos_PendientesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosCliente_Articulos_Pendientes)
   private
   protected
     { Property getters and setters }
@@ -1158,7 +1158,7 @@ type
   end;
 
   { TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules }
-  TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules = class(TDADataTableRules, IPedidoCliente_ArticulosPendientesPedirAProv)
+  TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules = class(TIntfObjectDADataTableRules, IPedidoCliente_ArticulosPendientesPedirAProv)
   private
   protected
     { Property getters and setters }
@@ -1313,7 +1313,7 @@ type
   end;
 
   { TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDataTableRules }
-  TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDataTableRules = class(TDADataTableRules, IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos)
+  TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDataTableRules = class(TIntfObjectDADataTableRules, IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos)
   private
   protected
     { Property getters and setters }

Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas

@@ -3,7 +3,7 @@ unit schPresupuestosClienteClient_Intf;
 interface
 
 uses
-  Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
@@ -163,7 +163,7 @@ type
   end;
 
   { TListaAnosPresupuestosDataTableRules }
-  TListaAnosPresupuestosDataTableRules = class(TDADataTableRules, IListaAnosPresupuestos)
+  TListaAnosPresupuestosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosPresupuestos)
   private
   protected
     { Property getters and setters }
@@ -440,7 +440,7 @@ type
   end;
 
   { TPresupuestosClienteDataTableRules }
-  TPresupuestosClienteDataTableRules = class(TDADataTableRules, IPresupuestosCliente)
+  TPresupuestosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente)
   private
     f_PORTADA: IROStrings;
     f_MEMORIA: IROStrings;
@@ -809,7 +809,7 @@ type
   end;
 
   { TPresupuestosCliente_DetallesDataTableRules }
-  TPresupuestosCliente_DetallesDataTableRules = class(TDADataTableRules, IPresupuestosCliente_Detalles)
+  TPresupuestosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente_Detalles)
   private
   protected
     { Property getters and setters }

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm

@@ -2,7 +2,6 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
   Caption = 'Lista de presupuestos de cliente'
   ClientWidth = 805
   ExplicitWidth = 813
-  ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -125,7 +124,7 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
     Width = 805
     ExplicitWidth = 805
     inherited tbxMain: TTBXToolbar
-      ExplicitWidth = 740
+      ExplicitWidth = 805
       object TBXItem47: TTBXItem [13]
         Action = actEnviarEMail
         DisplayMode = nbdmImageAndText
@@ -210,6 +209,10 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
     inherited actImprimir: TAction
       Visible = True
     end
+    inherited actExportarExcel: TAction
+      Enabled = True
+      Visible = True
+    end
     object actGenerarAlbaranCli: TAction
       Category = 'Acciones'
       Caption = 'Generar albar'#225'n de cliente'

Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm

@@ -21,6 +21,12 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
           Kind = skSum
           Position = spFooter
           Column = cxGridViewIMPORTE_TOTAL
+        end
+        item
+          Format = ',0.00 '#8364';-,0.00 '#8364
+          Kind = skSum
+          Position = spFooter
+          Column = cxGridViewBASE_IMPONIBLE
         end>
       DataController.Summary.FooterSummaryItems = <
         item
@@ -32,6 +38,11 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
           Format = ',0.00 '#8364';-,0.00 '#8364
           Kind = skSum
           Column = cxGridViewIMPORTE_TOTAL
+        end
+        item
+          Format = ',0.00 '#8364';-,0.00 '#8364
+          Kind = skSum
+          Column = cxGridViewBASE_IMPONIBLE
         end>
       DataController.OnCompare = cxGridViewDataControllerCompare
       OptionsCustomize.ColumnHidingOnGrouping = False
@@ -133,6 +144,10 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
       object cxGridViewBASE_IMPONIBLE: TcxGridDBColumn
         Caption = 'Base Imponible'
         DataBinding.FieldName = 'BASE_IMPONIBLE'
+        PropertiesClassName = 'TcxCurrencyEditProperties'
+        FooterAlignmentHorz = taRightJustify
+        GroupSummaryAlignment = taRightJustify
+        HeaderAlignmentHorz = taRightJustify
       end
       object cxGridViewIVA: TcxGridDBColumn
         DataBinding.FieldName = 'IVA'
@@ -146,8 +161,9 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
         DataBinding.FieldName = 'IMPORTE_TOTAL'
         PropertiesClassName = 'TcxCurrencyEditProperties'
         Properties.Alignment.Horz = taRightJustify
-        BestFitMaxWidth = 60
+        BestFitMaxWidth = 90
         FooterAlignmentHorz = taRightJustify
+        GroupSummaryAlignment = taRightJustify
         HeaderAlignmentHorz = taRightJustify
         Width = 63
       end

Source/Servicios/FactuGES.RODL

@@ -1022,6 +1022,8 @@
 </Parameter>
 <Parameter Name="TopN" DataType="Integer" Flag="In" >
 </Parameter>
+<Parameter Name="UnAgentePorPagina" DataType="Integer" Flag="In" >
+</Parameter>
 </Parameters>
 </Operation>
 <Operation Name="GenerarInformeObjetivosAgentesFacturas" UID="{D5E9992E-C205-45F3-A2C0-FDF54F1C13CD}">
@@ -1042,6 +1044,8 @@
 </Parameter>
 <Parameter Name="TopN" DataType="Integer" Flag="In" >
 </Parameter>
+<Parameter Name="UnAgentePorPagina" DataType="Integer" Flag="In" >
+</Parameter>
 </Parameters>
 </Operation>
 </Operations>

Source/Servicios/FactuGES_Intf.pas

@@ -835,9 +835,9 @@ type
                                                 const TopN: Integer; const Serie: Variant): Binary;
     function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
     function GenerarInformeObjetivosAgentesAlbaranes(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; 
-                                                     const TopN: Integer): Binary;
+                                                     const TopN: Integer; const UnAgentePorPagina: Integer): Binary;
     function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; 
-                                                    const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary;
+                                                    const ListaIDAgentes: TIntegerArray; const TopN: Integer; const UnAgentePorPagina: Integer): Binary;
   end;
 
   { CosrvGestorInformes }
@@ -886,9 +886,9 @@ type
                                                 const TopN: Integer; const Serie: Variant): Binary;
     function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
     function GenerarInformeObjetivosAgentesAlbaranes(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; 
-                                                     const TopN: Integer): Binary;
+                                                     const TopN: Integer; const UnAgentePorPagina: Integer): Binary;
     function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; 
-                                                    const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary;
+                                                    const ListaIDAgentes: TIntegerArray; const TopN: Integer; const UnAgentePorPagina: Integer): Binary;
   end;
 
   { IsrvComisiones }
@@ -3112,7 +3112,7 @@ begin
 end;
 
 function TsrvGestorInformes_Proxy.GenerarInformeObjetivosAgentesAlbaranes(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; 
-                                                                          const TopN: Integer): Binary;
+                                                                          const TopN: Integer; const UnAgentePorPagina: Integer): Binary;
 begin
   try
     result := nil;
@@ -3123,6 +3123,7 @@ begin
     __Message.Write('Ano2', TypeInfo(Variant), Ano2, []);
     __Message.Write('ListaIDAgentes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDAgentes, []);
     __Message.Write('TopN', TypeInfo(Integer), TopN, []);
+    __Message.Write('UnAgentePorPagina', TypeInfo(Integer), UnAgentePorPagina, []);
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
@@ -3135,7 +3136,7 @@ begin
 end;
 
 function TsrvGestorInformes_Proxy.GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; 
-                                                                         const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary;
+                                                                         const ListaIDAgentes: TIntegerArray; const TopN: Integer; const UnAgentePorPagina: Integer): Binary;
 begin
   try
     result := nil;
@@ -3147,6 +3148,7 @@ begin
     __Message.Write('AgentesActivos', TypeInfo(Boolean), AgentesActivos, []);
     __Message.Write('ListaIDAgentes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDAgentes, []);
     __Message.Write('TopN', TypeInfo(Integer), TopN, []);
+    __Message.Write('UnAgentePorPagina', TypeInfo(Integer), UnAgentePorPagina, []);
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);

Source/Servicios/FactuGES_Invk.pas

@@ -2708,7 +2708,7 @@ end;
 
 procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeObjetivosAgentesAlbaranes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
 { function GenerarInformeObjetivosAgentesAlbaranes(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; 
-                                                     const TopN: Integer): Binary; }
+                                                     const TopN: Integer; const UnAgentePorPagina: Integer): Binary; }
 var
   IdEmpresa: Integer;
   Intervalo: Variant;
@@ -2716,6 +2716,7 @@ var
   Ano2: Variant;
   ListaIDAgentes: FactuGES_Intf.TIntegerArray;
   TopN: Integer;
+  UnAgentePorPagina: Integer;
   lResult: Binary;
   __lObjectDisposer: TROObjectDisposer;
 begin
@@ -2728,8 +2729,9 @@ begin
     __Message.Read('Ano2', TypeInfo(Variant), Ano2, []);
     __Message.Read('ListaIDAgentes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDAgentes, []);
     __Message.Read('TopN', TypeInfo(Integer), TopN, []);
+    __Message.Read('UnAgentePorPagina', TypeInfo(Integer), UnAgentePorPagina, []);
 
-    lResult := (__Instance as IsrvGestorInformes).GenerarInformeObjetivosAgentesAlbaranes(IdEmpresa, Intervalo, Ano1, Ano2, ListaIDAgentes, TopN);
+    lResult := (__Instance as IsrvGestorInformes).GenerarInformeObjetivosAgentesAlbaranes(IdEmpresa, Intervalo, Ano1, Ano2, ListaIDAgentes, TopN, UnAgentePorPagina);
 
     __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeObjetivosAgentesAlbaranesResponse');
     __Message.Write('Result', TypeInfo(Binary), lResult, []);
@@ -2749,7 +2751,7 @@ end;
 
 procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeObjetivosAgentesFacturas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
 { function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; 
-                                                    const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary; }
+                                                    const ListaIDAgentes: TIntegerArray; const TopN: Integer; const UnAgentePorPagina: Integer): Binary; }
 var
   IdEmpresa: Integer;
   Intervalo: Variant;
@@ -2758,6 +2760,7 @@ var
   AgentesActivos: Boolean;
   ListaIDAgentes: FactuGES_Intf.TIntegerArray;
   TopN: Integer;
+  UnAgentePorPagina: Integer;
   lResult: Binary;
   __lObjectDisposer: TROObjectDisposer;
 begin
@@ -2771,8 +2774,9 @@ begin
     __Message.Read('AgentesActivos', TypeInfo(Boolean), AgentesActivos, []);
     __Message.Read('ListaIDAgentes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDAgentes, []);
     __Message.Read('TopN', TypeInfo(Integer), TopN, []);
+    __Message.Read('UnAgentePorPagina', TypeInfo(Integer), UnAgentePorPagina, []);
 
-    lResult := (__Instance as IsrvGestorInformes).GenerarInformeObjetivosAgentesFacturas(IdEmpresa, Intervalo, Ano1, Ano2, AgentesActivos, ListaIDAgentes, TopN);
+    lResult := (__Instance as IsrvGestorInformes).GenerarInformeObjetivosAgentesFacturas(IdEmpresa, Intervalo, Ano1, Ano2, AgentesActivos, ListaIDAgentes, TopN, UnAgentePorPagina);
 
     __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeObjetivosAgentesFacturasResponse');
     __Message.Write('Result', TypeInfo(Binary), lResult, []);

Source/Servidor/FactuGES_Server.dproj

@@ -1,427 +1,424 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-  <PropertyGroup>
+	<PropertyGroup>
-    <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
+		<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
-    <MainSource>FactuGES_Server.dpr</MainSource>
+		<MainSource>FactuGES_Server.dpr</MainSource>
-    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+		<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
-    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+		<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
-    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+		<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
-    <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
+		<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
-    <DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
+		<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
-  </PropertyGroup>
+	</PropertyGroup>
-  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+	<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
-    <Version>7.0</Version>
+		<Version>7.0</Version>
-    <DCC_DebugInformation>False</DCC_DebugInformation>
+		<DCC_DebugInformation>False</DCC_DebugInformation>
-    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+		<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
-    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+		<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
-    <DCC_MapFile>3</DCC_MapFile>
+		<DCC_MapFile>3</DCC_MapFile>
-    <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
+		<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
-    <DCC_Define>RELEASE</DCC_Define>
+		<DCC_Define>RELEASE</DCC_Define>
-  </PropertyGroup>
+	</PropertyGroup>
-  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+	<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
-    <Version>7.0</Version>
+		<Version>7.0</Version>
-    <DCC_MapFile>3</DCC_MapFile>
+		<DCC_MapFile>3</DCC_MapFile>
-    <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
+		<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
-    <DCC_Define>DEBUG;</DCC_Define>
+		<DCC_Define>DEBUG;</DCC_Define>
-    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+		<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
-    <DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
+		<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
-    <DCC_DebugVN>True</DCC_DebugVN>
+		<DCC_DebugVN>True</DCC_DebugVN>
-    <DCC_UnitSearchPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
+		<DCC_UnitSearchPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
-    <DCC_ResourcePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
+		<DCC_ResourcePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
-    <DCC_ObjPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
+		<DCC_ObjPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
-    <DCC_IncludePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
+		<DCC_IncludePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
-  </PropertyGroup>
+	</PropertyGroup>
-  <ProjectExtensions>
+	<ProjectExtensions>
-    <Borland.Personality>Delphi.Personality</Borland.Personality>
+		<Borland.Personality>Delphi.Personality</Borland.Personality>
-    <Borland.ProjectType />
+		<Borland.ProjectType/>
-    <BorlandProject>
+		<BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">4</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">4.4.4.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">4.4.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 22 de abril de 2015 17:48</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">4</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">4.4.4.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">4.4.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 22 de abril de 2015 17:48</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      
+						<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
-      
+					</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
-      
+	</ProjectExtensions>
-      <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
+	<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
-    </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
+	<ItemGroup>
-  </ProjectExtensions>
+		<DelphiCompile Include="FactuGES_Server.dpr">
-  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+			<MainSource>MainSource</MainSource>
-  <ItemGroup>
+		</DelphiCompile>
-    <DelphiCompile Include="FactuGES_Server.dpr">
+		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
-      <MainSource>MainSource</MainSource>
+		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
-    </DelphiCompile>
+		<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/>
-    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
+		<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
-    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
+			<Form>srvEmpresas</Form>
-    <DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" />
+			<DesignClass>TDARemoteService</DesignClass>
-    <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
+		</DCCReference>
-      <Form>srvEmpresas</Form>
+		<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
-      <DesignClass>TDARemoteService</DesignClass>
+			<Form>srvProvinciasPoblaciones_Impl</Form>
-    </DCCReference>
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
+		</DCCReference>
-      <Form>srvProvinciasPoblaciones_Impl</Form>
+		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
-      <DesignClass>TDataModule</DesignClass>
+		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
-    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
+			<Form>srvUsuarios</Form>
-    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
+		</DCCReference>
-      <Form>srvUsuarios</Form>
+		<DCCReference Include="..\Base\schBase_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
-    <DCCReference Include="..\Base\schBase_Intf.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
-    <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
-    <DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
+			<Form>RptAlbaranesCliente</Form>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
+		</DCCReference>
-      <Form>RptAlbaranesCliente</Form>
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<DesignClass>TDataModule</DesignClass>
-    </DCCReference>
+			<Form>RptWordAlbaranCliente</Form>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
+		</DCCReference>
-      <DesignClass>TDataModule</DesignClass>
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
-      <Form>RptWordAlbaranCliente</Form>
+			<Form>srvAlbaranesCliente</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
+		</DCCReference>
-      <Form>srvAlbaranesCliente</Form>
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
+			<Form>RptAlbaranesProveedor</Form>
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
+		</DCCReference>
-      <Form>RptAlbaranesProveedor</Form>
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<DesignClass>TDataModule</DesignClass>
-    </DCCReference>
+			<Form>RptWordAlbaranProveedor</Form>
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
+		</DCCReference>
-      <DesignClass>TDataModule</DesignClass>
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
-      <Form>RptWordAlbaranProveedor</Form>
+			<Form>srvAlbaranesProveedor</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
+		</DCCReference>
-      <Form>srvAlbaranesProveedor</Form>
+		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
-    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
+			<Form>srvAlmacenes</Form>
-    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
+			<DesignClass>TDARemoteService</DesignClass>
-    <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
+		</DCCReference>
-      <Form>srvAlmacenes</Form>
+		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
-      <DesignClass>TDARemoteService</DesignClass>
+		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/>
-    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
-    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
+			<Form>srvArticulos</Form>
-    <DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" />
+			<DesignClass>TDARemoteService</DesignClass>
-    <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
+		</DCCReference>
-      <Form>srvArticulos</Form>
+		<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
-      <DesignClass>TDARemoteService</DesignClass>
+		<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
-    <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
-    <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
+			<Form>RptComisiones</Form>
-    <DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
+		</DCCReference>
-      <Form>RptComisiones</Form>
+		<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<Form>srvComisiones</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
+		</DCCReference>
-      <Form>srvComisiones</Form>
+		<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizAgentesServer.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizAgentesServer.pas" />
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
+		<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
+			<Form>RptEtiquetasContacto</Form>
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
+		</DCCReference>
-      <Form>RptEtiquetasContacto</Form>
+		<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<Form>RptFichasEmpleado</Form>
-    </DCCReference>
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
+		</DCCReference>
-      <Form>RptFichasEmpleado</Form>
+		<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<Form>srvContactos</Form>
-    </DCCReference>
+			<DesignClass>TDARemoteService</DesignClass>
-    <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
+		</DCCReference>
-      <Form>srvContactos</Form>
+		<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
-      <DesignClass>TDARemoteService</DesignClass>
+		<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
-    <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
+			<Form>srvFabricantes</Form>
-    <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
+		</DCCReference>
-      <Form>srvFabricantes</Form>
+		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
-    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
-    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
+			<Form>RptFacturasCliente</Form>
-    <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
+		</DCCReference>
-      <Form>RptFacturasCliente</Form>
+		<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<DesignClass>TDataModule</DesignClass>
-    </DCCReference>
+			<Form>RptWordFacturaCliente</Form>
-    <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
+		</DCCReference>
-      <DesignClass>TDataModule</DesignClass>
+		<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
-      <Form>RptWordFacturaCliente</Form>
+			<Form>srvFacturasCliente</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
+		</DCCReference>
-      <Form>srvFacturasCliente</Form>
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
+			<Form>RptFacturasProveedor</Form>
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
+		</DCCReference>
-      <Form>RptFacturasProveedor</Form>
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<Form>srvFacturasProveedor</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
+		</DCCReference>
-      <Form>srvFacturasProveedor</Form>
+		<DCCReference Include="..\Modulos\Facturas proforma\Model\schFacturasProformaClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Facturas proforma\Model\schFacturasProformaServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Facturas proforma\Model\uBizFacturasProformaServer.pas"/>
-    <DCCReference Include="..\Modulos\Facturas proforma\Model\schFacturasProformaClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Facturas proforma\Reports\uRptFacturasProforma_Server.pas">
-    <DCCReference Include="..\Modulos\Facturas proforma\Model\schFacturasProformaServer_Intf.pas" />
+			<Form>RptFacturasProforma</Form>
-    <DCCReference Include="..\Modulos\Facturas proforma\Model\uBizFacturasProformaServer.pas" />
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="..\Modulos\Facturas proforma\Reports\uRptFacturasProforma_Server.pas">
+		</DCCReference>
-      <Form>RptFacturasProforma</Form>
+		<DCCReference Include="..\Modulos\Facturas proforma\Servidor\srvFacturasProforma_Impl.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<Form>srvFacturasProforma</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Facturas proforma\Servidor\srvFacturasProforma_Impl.pas">
+		</DCCReference>
-      <Form>srvFacturasProforma</Form>
+		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
-    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
+			<Form>srvFamilias</Form>
-    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
+		</DCCReference>
-      <Form>srvFamilias</Form>
+		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
-    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
+			<Form>srvFormasPago</Form>
-    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
+		</DCCReference>
-      <Form>srvFormasPago</Form>
+		<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
-      <DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvGestorDocumentos</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
+		</DCCReference>
-      <Form>srvGestorDocumentos</Form>
+		<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
-      <DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvGestorInformes</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
+		</DCCReference>
-      <Form>srvGestorInformes</Form>
+		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
-    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
+			<Form>srvHistoricoMovimientos</Form>
-    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
+		</DCCReference>
-      <Form>srvHistoricoMovimientos</Form>
+		<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Impresiones\Servidor\srvImpresiones_Impl.pas">
-    <DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesClient_Intf.pas" />
+			<Form>srvImpresiones</Form>
-    <DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesServer_Intf.pas" />
+			<DesignClass>TDARemoteService</DesignClass>
-    <DCCReference Include="..\Modulos\Impresiones\Servidor\srvImpresiones_Impl.pas">
+		</DCCReference>
-      <Form>srvImpresiones</Form>
+		<DCCReference Include="..\Modulos\Informe margen por articulo\Servidor\srvInfMargenArticulo_Impl.pas">
-      <DesignClass>TDARemoteService</DesignClass>
+			<Form>srvInfMargenArticulo</Form>
-    </DCCReference>
+			<DesignClass>TDARemoteService</DesignClass>
-    <DCCReference Include="..\Modulos\Informe margen por articulo\Servidor\srvInfMargenArticulo_Impl.pas">
+		</DCCReference>
-      <Form>srvInfMargenArticulo</Form>
+		<DCCReference Include="..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloClient_Intf.pas"/>
-      <DesignClass>TDARemoteService</DesignClass>
+		<DCCReference Include="..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Informe ventas por articulo\Servidor\srvInfVentasArticulo_Impl.pas">
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloClient_Intf.pas" />
+			<Form>srvInfVentasArticulo</Form>
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloServer_Intf.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\Servidor\srvInfVentasArticulo_Impl.pas">
+		</DCCReference>
-      <Form>srvInfVentasArticulo</Form>
+		<DCCReference Include="..\Modulos\Informes base\Model\schInformesClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Informes base\Model\schInformesServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Informes base\Servidor\srvInformes_Impl.pas">
-    <DCCReference Include="..\Modulos\Informes base\Model\schInformesClient_Intf.pas" />
+			<Form>srvInformes</Form>
-    <DCCReference Include="..\Modulos\Informes base\Model\schInformesServer_Intf.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Informes base\Servidor\srvInformes_Impl.pas">
+		</DCCReference>
-      <Form>srvInformes</Form>
+		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
-    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
+			<Form>srvInventario</Form>
-    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
+		</DCCReference>
-      <Form>srvInventario</Form>
+		<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
-    <DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
-    <DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
+			<Form>srvObras</Form>
-    <DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
+		</DCCReference>
-      <Form>srvObras</Form>
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
+			<Form>RptPedidosProveedor</Form>
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
+		</DCCReference>
-      <Form>RptPedidosProveedor</Form>
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<DesignClass>TDataModule</DesignClass>
-    </DCCReference>
+			<Form>RptWordPedidoProveedor</Form>
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
+		</DCCReference>
-      <DesignClass>TDataModule</DesignClass>
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
-      <Form>RptWordPedidoProveedor</Form>
+			<Form>srvPedidosProveedor</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
+		</DCCReference>
-      <Form>srvPedidosProveedor</Form>
+		<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas"/>
-    <DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas">
-    <DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas" />
+			<Form>RptPedidosCliente</Form>
-    <DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas" />
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas">
+		</DCCReference>
-      <Form>RptPedidosCliente</Form>
+		<DCCReference Include="..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<Form>srvPedidosCliente</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas">
+		</DCCReference>
-      <Form>srvPedidosCliente</Form>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
+			<Form>RptPresupuestosCliente</Form>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
+		</DCCReference>
-      <Form>RptPresupuestosCliente</Form>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<DesignClass>TDataModule</DesignClass>
-    </DCCReference>
+			<Form>RptWordCertificadoTrabajo</Form>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
+		</DCCReference>
-      <DesignClass>TDataModule</DesignClass>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
-      <Form>RptWordCertificadoTrabajo</Form>
+			<DesignClass>TDataModule</DesignClass>
-    </DCCReference>
+			<Form>RptWordPresupuestoCliente</Form>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
+		</DCCReference>
-      <DesignClass>TDataModule</DesignClass>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
-      <Form>RptWordPresupuestoCliente</Form>
+			<Form>srvPresupuestosCliente</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
+		</DCCReference>
-      <Form>srvPresupuestosCliente</Form>
+		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
-    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
+			<Form>RptRecibosCliente</Form>
-    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
+		</DCCReference>
-      <Form>RptRecibosCliente</Form>
+		<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<Form>srvRecibosCliente</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
+		</DCCReference>
-      <Form>srvRecibosCliente</Form>
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
+			<Form>RptRecibosProveedor</Form>
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
+		</DCCReference>
-      <Form>RptRecibosProveedor</Form>
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<Form>srvRecibosProveedor</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
+		</DCCReference>
-      <Form>srvRecibosProveedor</Form>
+		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
-    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
+			<Form>srvReferencias</Form>
-    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
+		</DCCReference>
-      <Form>srvReferencias</Form>
+		<DCCReference Include="..\Modulos\Registro de correos\Servidor\srvRegistroCorreos_Impl.pas">
-      <DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvRegistroCorreos</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Registro de correos\Servidor\srvRegistroCorreos_Impl.pas">
+		</DCCReference>
-      <Form>srvRegistroCorreos</Form>
+		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
-    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
-    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
+			<Form>RptRemesasCliente</Form>
-    <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
+		</DCCReference>
-      <Form>RptRemesasCliente</Form>
+		<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<Form>srvRemesasCliente</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
+		</DCCReference>
-      <Form>srvRemesasCliente</Form>
+		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
-    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas">
-    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
+			<Form>RptRemesasProveedor</Form>
-    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas">
+		</DCCReference>
-      <Form>RptRemesasProveedor</Form>
+		<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<Form>srvRemesasProveedor</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
+		</DCCReference>
-      <Form>srvRemesasProveedor</Form>
+		<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscAddressBookServer.pas"/>
-    <DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscCustomerServer.pas"/>
-    <DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscManufacturerServer.pas"/>
-    <DCCReference Include="..\Modulos\Tienda web\Model\uBizOscAddressBookServer.pas" />
+		<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscOrderServer.pas"/>
-    <DCCReference Include="..\Modulos\Tienda web\Model\uBizOscCustomerServer.pas" />
+		<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscProductServer.pas"/>
-    <DCCReference Include="..\Modulos\Tienda web\Model\uBizOscManufacturerServer.pas" />
+		<DCCReference Include="..\Modulos\Tienda web\Model\uBizTiendaWebServer.pas"/>
-    <DCCReference Include="..\Modulos\Tienda web\Model\uBizOscOrderServer.pas" />
+		<DCCReference Include="..\Modulos\Tienda web\Servidor\srvTiendaWeb_Impl.pas">
-    <DCCReference Include="..\Modulos\Tienda web\Model\uBizOscProductServer.pas" />
+			<Form>srvTiendaWeb</Form>
-    <DCCReference Include="..\Modulos\Tienda web\Model\uBizTiendaWebServer.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Tienda web\Servidor\srvTiendaWeb_Impl.pas">
+		</DCCReference>
-      <Form>srvTiendaWeb</Form>
+		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
-    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
+			<Form>srvTiposIVA</Form>
-    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
+		</DCCReference>
-      <Form>srvTiposIVA</Form>
+		<DCCReference Include="..\Modulos\TiposDocumento\Model\schTiposDocumentoClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\TiposDocumento\Model\schTiposDocumentoServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\TiposDocumento\Servidor\srvTiposDocumento_Impl.pas">
-    <DCCReference Include="..\Modulos\TiposDocumento\Model\schTiposDocumentoClient_Intf.pas" />
+			<Form>srvTiposDocumento</Form>
-    <DCCReference Include="..\Modulos\TiposDocumento\Model\schTiposDocumentoServer_Intf.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\TiposDocumento\Servidor\srvTiposDocumento_Impl.pas">
+		</DCCReference>
-      <Form>srvTiposDocumento</Form>
+		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
-    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
+			<Form>srvUnidadesMedida</Form>
-    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
+		</DCCReference>
-      <Form>srvUnidadesMedida</Form>
+		<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
-    </DCCReference>
+		<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
-    <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
+			<Form>srvConfiguracion</Form>
-    <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
+		</DCCReference>
-      <Form>srvConfiguracion</Form>
+		<DCCReference Include="Configuracion\uConexionBD.pas">
-      <DesignClass>TDataAbstractService</DesignClass>
+			<Form>frConexionBD</Form>
-    </DCCReference>
+			<DesignClass>TFrame</DesignClass>
-    <DCCReference Include="Configuracion\uConexionBD.pas">
+		</DCCReference>
-      <Form>frConexionBD</Form>
+		<DCCReference Include="Configuracion\uConexionOSC.pas">
-      <DesignClass>TFrame</DesignClass>
+			<Form>frConexionOSC</Form>
-    </DCCReference>
+			<DesignClass>TFrame</DesignClass>
-    <DCCReference Include="Configuracion\uConexionOSC.pas">
+		</DCCReference>
-      <Form>frConexionOSC</Form>
+		<DCCReference Include="Configuracion\uConfGeneral.pas">
-      <DesignClass>TFrame</DesignClass>
+			<Form>frConfGeneral</Form>
-    </DCCReference>
+			<DesignClass>TFrame</DesignClass>
-    <DCCReference Include="Configuracion\uConfGeneral.pas">
+		</DCCReference>
-      <Form>frConfGeneral</Form>
+		<DCCReference Include="Configuracion\uConfiguracion.pas">
-      <DesignClass>TFrame</DesignClass>
+			<Form>fConfiguracion</Form>
-    </DCCReference>
+			<DesignClass>TForm</DesignClass>
-    <DCCReference Include="Configuracion\uConfiguracion.pas">
+		</DCCReference>
-      <Form>fConfiguracion</Form>
+		<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
-      <DesignClass>TForm</DesignClass>
+			<Form>FrameConfiguracion</Form>
-    </DCCReference>
+			<DesignClass>TFrame</DesignClass>
-    <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
+		</DCCReference>
-      <Form>FrameConfiguracion</Form>
+		<DCCReference Include="srvLogin_Impl.pas">
-      <DesignClass>TFrame</DesignClass>
+			<Form>srvLogin</Form>
-    </DCCReference>
+			<DesignClass>TDARemoteService</DesignClass>
-    <DCCReference Include="srvLogin_Impl.pas">
+		</DCCReference>
-      <Form>srvLogin</Form>
+		<DCCReference Include="uAcercaDe.pas">
-      <DesignClass>TDARemoteService</DesignClass>
+			<Form>fAcercaDe</Form>
-    </DCCReference>
+		</DCCReference>
-    <DCCReference Include="uAcercaDe.pas">
+		<DCCReference Include="uDataModuleServer.pas">
-      <Form>fAcercaDe</Form>
+			<Form>dmServer</Form>
-    </DCCReference>
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="uDataModuleServer.pas">
+		</DCCReference>
-      <Form>dmServer</Form>
+		<DCCReference Include="uServerMainForm.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<Form>fServerForm</Form>
-    </DCCReference>
+		</DCCReference>
-    <DCCReference Include="uServerMainForm.pas">
+		<DCCReference Include="Utiles\AHWord97.pas"/>
-      <Form>fServerForm</Form>
+		<DCCReference Include="Utiles\MidasSpeedFix.pas"/>
-    </DCCReference>
+		<DCCReference Include="Utiles\uBusinessUtils.pas"/>
-    <DCCReference Include="Utiles\AHWord97.pas" />
+		<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
-    <DCCReference Include="Utiles\MidasSpeedFix.pas" />
+		<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
-    <DCCReference Include="Utiles\uBusinessUtils.pas" />
+		<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
-    <DCCReference Include="Utiles\uDatabaseUtils.pas" />
+		<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
-    <DCCReference Include="Utiles\uReferenciasUtils.pas" />
+		<DCCReference Include="Utiles\uServerAppUtils.pas"/>
-    <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
+		<DCCReference Include="Utiles\uSesionesUtils.pas"/>
-    <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
+		<DCCReference Include="Utiles\uTiendaWebUtils.pas"/>
-    <DCCReference Include="Utiles\uServerAppUtils.pas" />
+	</ItemGroup>
-    <DCCReference Include="Utiles\uSesionesUtils.pas" />
-    <DCCReference Include="Utiles\uTiendaWebUtils.pas" />
-  </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
 [Exception Log]

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "4.4.4.0\0"
               VALUE "ProductVersion", "4.4.4.0\0"
-              VALUE "CompileDate", "viernes, 11 de septiembre de 2015 10:44\0"
+              VALUE "CompileDate", "miércoles, 07 de octubre de 2015 12:30\0"
          END
     END
     BLOCK "VarFileInfo"