Detalles: deshabilitados los conceptos 'descuento' y repaso general.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@220 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Source/ApplicationBase/ApplicationBase.dproj

@@ -53,34 +53,6 @@
       
       
       
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
       <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@@ -95,6 +67,27 @@
     <DelphiCompile Include="ApplicationBase.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvJansD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PLuginSDK_D10R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
     <DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" />
     <DCCReference Include="Empresas\Controller\uEmpresasController.pas" />
     <DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />
@@ -128,20 +121,6 @@
     <DCCReference Include="Usuarios\Model\schUsuariosClient_Intf.pas" />
     <DCCReference Include="Usuarios\Model\schUsuariosServer_Intf.pas" />
     <DCCReference Include="Usuarios\Model\uBizUsuarios.pas" />
-    <DCCReference Include="Usuarios\Views\Base.dcp" />
-    <DCCReference Include="Usuarios\Views\dbrtl.dcp" />
-    <DCCReference Include="Usuarios\Views\dclIndyCore.dcp" />
-    <DCCReference Include="Usuarios\Views\designide.dcp" />
-    <DCCReference Include="Usuarios\Views\GUIBase.dcp" />
-    <DCCReference Include="Usuarios\Views\IndyCore.dcp" />
-    <DCCReference Include="Usuarios\Views\IndyProtocols.dcp" />
-    <DCCReference Include="Usuarios\Views\IndySystem.dcp" />
-    <DCCReference Include="Usuarios\Views\JvJansD11R.dcp" />
-    <DCCReference Include="Usuarios\Views\pckMD5.dcp" />
-    <DCCReference Include="Usuarios\Views\pckUCDataConnector.dcp" />
-    <DCCReference Include="Usuarios\Views\pckUserControl_RT.dcp" />
-    <DCCReference Include="Usuarios\Views\PLuginSDK_D10R.dcp" />
-    <DCCReference Include="Usuarios\Views\rtl.dcp" />
     <DCCReference Include="Usuarios\Views\uEditorCambiarPassword.pas">
       <Form>fEditorCambiarPassword</Form>
     </DCCReference>
@@ -178,13 +157,6 @@
       <Form>frViewUsuarios</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
-    <DCCReference Include="Usuarios\Views\vcl.dcp" />
-    <DCCReference Include="Usuarios\Views\vclactnband.dcp" />
-    <DCCReference Include="Usuarios\Views\vcldb.dcp" />
-    <DCCReference Include="Usuarios\Views\vcljpg.dcp" />
-    <DCCReference Include="Usuarios\Views\VclSmp.dcp" />
-    <DCCReference Include="Usuarios\Views\vclx.dcp" />
-    <DCCReference Include="Usuarios\Views\xmlrtl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line

Source/Base/Base.dproj

@@ -44,6 +44,8 @@
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      
       <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@@ -53,57 +55,57 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\GUIBase\adortl.dcp" />
-    <DCCReference Include="..\GUIBase\cxDataD11.dcp" />
-    <DCCReference Include="..\GUIBase\cxEditorsD11.dcp" />
-    <DCCReference Include="..\GUIBase\cxExportD11.dcp" />
-    <DCCReference Include="..\GUIBase\cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\GUIBase\cxGridD11.dcp" />
-    <DCCReference Include="..\GUIBase\cxIntl6D11.dcp" />
-    <DCCReference Include="..\GUIBase\cxIntlPrintSys3D11.dcp" />
-    <DCCReference Include="..\GUIBase\cxLibraryD11.dcp" />
-    <DCCReference Include="..\GUIBase\cxPageControlD11.dcp" />
-    <DCCReference Include="..\GUIBase\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\GUIBase\dbrtl.dcp" />
-    <DCCReference Include="..\GUIBase\dclIndyCore.dcp" />
-    <DCCReference Include="..\GUIBase\designide.dcp" />
-    <DCCReference Include="..\GUIBase\dsnap.dcp" />
-    <DCCReference Include="..\GUIBase\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\GUIBase\dxPSCoreD11.dcp" />
-    <DCCReference Include="..\GUIBase\dxThemeD11.dcp" />
-    <DCCReference Include="..\GUIBase\GUISDK_D11.dcp" />
-    <DCCReference Include="..\GUIBase\IndyCore.dcp" />
-    <DCCReference Include="..\GUIBase\IndyProtocols.dcp" />
-    <DCCReference Include="..\GUIBase\IndySystem.dcp" />
-    <DCCReference Include="..\GUIBase\Jcl.dcp" />
-    <DCCReference Include="..\GUIBase\JclVcl.dcp" />
-    <DCCReference Include="..\GUIBase\JSDialog100.dcp" />
-    <DCCReference Include="..\GUIBase\JvCmpD11R.dcp" />
-    <DCCReference Include="..\GUIBase\JvCoreD11R.dcp" />
-    <DCCReference Include="..\GUIBase\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\GUIBase\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\GUIBase\JvMMD11R.dcp" />
-    <DCCReference Include="..\GUIBase\JvNetD11R.dcp" />
-    <DCCReference Include="..\GUIBase\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\GUIBase\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\GUIBase\JvSystemD11R.dcp" />
-    <DCCReference Include="..\GUIBase\pckMD5.dcp" />
-    <DCCReference Include="..\GUIBase\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\GUIBase\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\GUIBase\PngComponentsD10.dcp" />
-    <DCCReference Include="..\GUIBase\PNG_D10.dcp" />
-    <DCCReference Include="..\GUIBase\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\GUIBase\rtl.dcp" />
-    <DCCReference Include="..\GUIBase\TB2k_D10.dcp" />
-    <DCCReference Include="..\GUIBase\tbx_d10.dcp" />
-    <DCCReference Include="..\GUIBase\vcl.dcp" />
-    <DCCReference Include="..\GUIBase\vclactnband.dcp" />
-    <DCCReference Include="..\GUIBase\vcldb.dcp" />
-    <DCCReference Include="..\GUIBase\vcljpg.dcp" />
-    <DCCReference Include="..\GUIBase\VclSmp.dcp" />
-    <DCCReference Include="..\GUIBase\vclx.dcp" />
-    <DCCReference Include="..\GUIBase\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
       <DesignClass>TForm</DesignClass>

Source/Base/Controladores/uControllerDetallesBase.pas

@@ -290,8 +290,8 @@ begin
   Result.Values[TIPO_DETALLE_CONCEPTO] := TIPO_DETALLE_CONCEPTO;
   Result.Values[TIPO_DETALLE_TITULO] := TIPO_DETALLE_TITULO;
   Result.Values[TIPO_DETALLE_SUBTOTAL] := TIPO_DETALLE_SUBTOTAL;
-  Result.Values[TIPO_DETALLE_DESCUENTO] := TIPO_DETALLE_DESCUENTO;
+  //Result.Values[TIPO_DETALLE_DESCUENTO] := TIPO_DETALLE_DESCUENTO;
-  Result.Values[TIPO_DETALLE_SALTO] := TIPO_DETALLE_SALTO;
+  //Result.Values[TIPO_DETALLE_SALTO] := TIPO_DETALLE_SALTO;
 end;
 
 function TControllerDetallesBase.DarTotalImporteTotal(ADataTable: IDAStronglyTypedDataTable): Double;

Source/Base_Group.groupproj

@@ -8,6 +8,7 @@
     <Projects Include="Base\Base.dproj" />
     <Projects Include="Cliente\FactuGES.dproj" />
     <Projects Include="GUIBase\GUIBase.dproj" />
+    <Projects Include="Servidor\FactuGES_Server.dproj" />
   </ItemGroup>
   <ProjectExtensions>
     <Borland.Personality>Default.Personality</Borland.Personality>
@@ -51,14 +52,23 @@
   <Target Name="FactuGES:Make">
     <MSBuild Projects="Cliente\FactuGES.dproj" Targets="Make" />
   </Target>
+  <Target Name="FactuGES_Server">
+    <MSBuild Projects="Servidor\FactuGES_Server.dproj" Targets="" />
+  </Target>
+  <Target Name="FactuGES_Server:Clean">
+    <MSBuild Projects="Servidor\FactuGES_Server.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FactuGES_Server:Make">
+    <MSBuild Projects="Servidor\FactuGES_Server.dproj" Targets="Make" />
+  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;FactuGES" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;FactuGES;FactuGES_Server" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;FactuGES:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;FactuGES:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;FactuGES:Make;FactuGES_Server:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/GUIBase/GUIBase.dproj

@@ -58,22 +58,22 @@
     <DelphiCompile Include="GUIBase.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\Base.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\dxBarD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxBarD11.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\dxBarExtItemsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD11.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\dxLayoutControlD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\dxPScxCommonD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\dxPScxGrid6LnkD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\dxPsPrVwAdvD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPsPrVwAdvD11.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\frx11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\frxe11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\fs11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\JvAppFrmD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\JvCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
     <DCCReference Include="uDialogBase.pas">
       <Form>fDialogBase</Form>
     </DCCReference>

Source/GUIBase/uViewDetallesBase.dfm

@@ -155,8 +155,6 @@ inherited frViewDetallesBase: TfrViewDetallesBase
     TabOrder = 1
     LookAndFeel.Kind = lfStandard
     LookAndFeel.NativeStyle = True
-    ExplicitTop = 94
-    ExplicitHeight = 210
     object cxGridView: TcxGridDBTableView
       NavigatorButtons.ConfirmDelete = False
       FilterBox.Visible = fvNever
@@ -195,7 +193,8 @@ inherited frViewDetallesBase: TfrViewDetallesBase
       OptionsView.CellEndEllipsis = True
       OptionsView.CellAutoHeight = True
       OptionsView.ColumnAutoWidth = True
-      OptionsView.GridLines = glNone
+      OptionsView.GridLineColor = cl3DLight
+      OptionsView.GridLines = glHorizontal
       OptionsView.GroupByBox = False
       OptionsView.HeaderEndEllipsis = True
       Styles.OnGetContentStyle = cxGridViewStylesGetContentStyle
@@ -337,6 +336,31 @@ inherited frViewDetallesBase: TfrViewDetallesBase
       DragHandleStyle = dhNone
       Images = ContenidoImageList
       TabOrder = 0
+      object TBXSubmenuItem1: TTBXSubmenuItem
+        Caption = 'A'#241'adir...'
+        DisplayMode = nbdmImageAndText
+        ImageIndex = 12
+        object TBXItem16: TTBXItem
+          Action = actAnadirCapitulo
+          Images = ContenidoImageList
+        end
+        object TBXSeparatorItem7: TTBXSeparatorItem
+        end
+        object TBXItem15: TTBXItem
+          Action = actAnadirTitulo
+          Images = ContenidoImageList
+        end
+        object TBXItem14: TTBXItem
+          Action = actAnadirSubtotal
+          Images = ContenidoImageList
+        end
+        object TBXItem12: TTBXItem
+          Action = actAnadirDescuento
+          Images = ContenidoImageList
+        end
+      end
+      object TBXSeparatorItem6: TTBXSeparatorItem
+      end
       object TBXItem1: TTBXItem
         Action = actAnadir
         DisplayMode = nbdmImageAndText
@@ -395,7 +419,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
   object ActionListContenido: TActionList
     Images = ContenidoImageList
     Left = 40
-    Top = 136
+    Top = 168
     object actAnadir: TAction
       Category = 'Operaciones'
       Caption = 'A'#241'adir'
@@ -503,6 +527,34 @@ inherited frViewDetallesBase: TfrViewDetallesBase
       Category = 'Editar'
       Caption = 'Pegar'
     end
+    object actAnadirCapitulo: TAction
+      Category = 'Operaciones'
+      Caption = 'Un cap'#237'tulo'
+      ImageIndex = 12
+      OnExecute = actAnadirCapituloExecute
+      OnUpdate = actAnadirCapituloUpdate
+    end
+    object actAnadirTitulo: TAction
+      Category = 'Operaciones'
+      Caption = 'T'#237'tulo de cap'#237'tulo'
+      ImageIndex = 13
+      OnExecute = actAnadirTituloExecute
+      OnUpdate = actAnadirTituloUpdate
+    end
+    object actAnadirSubtotal: TAction
+      Category = 'Operaciones'
+      Caption = 'Subtotal de cap'#237'tulo'
+      ImageIndex = 15
+      OnExecute = actAnadirSubtotalExecute
+      OnUpdate = actAnadirSubtotalUpdate
+    end
+    object actAnadirDescuento: TAction
+      Category = 'Operaciones'
+      Caption = 'L'#237'nea de descuento'
+      ImageIndex = 17
+      OnExecute = actAnadirDescuentoExecute
+      OnUpdate = actAnadirDescuentoUpdate
+    end
   end
   object DADataSource: TDADataSource
     Left = 8
@@ -711,9 +763,129 @@ inherited frViewDetallesBase: TfrViewDetallesBase
           601587A78381CF4C941A00005C20FBD97F751C0A0000000049454E44AE426082}
         Name = 'PngImage11'
         Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          61000000097048597300000B3A00000B3A01647F570D000002604944415478DA
+          8DD25B48D35100C7F1EF7FEA9C96A60F4A362DF141C399E59BD05D4ABA5A60D9
+          5BF8522F4119F4926610425A4F121145CFF5605E085C299A5D347AE8E2D0E5C8
+          B55AA5CD69CD369DEEF2DFFFF4DFC4E122B3DFDBE19CF3F9712E5273C3C54AA0
+          95D81CABA96F6C638508219054409C3AAE8D99B8FB20F05FC8B2C012E4AF5161
+          694560B984E16501CFAC60D01262D4AE44C69FA46FB46418C94A4DC3139C637C
+          7C9AD3C12AF2A49CC8FCB94B57A518E0F96B1969D645D906071AB5A3F797933B
+          B93E2E975660F40F535FDFCEC3555964DA1DF45931D70E884D5120DC6EECD772
+          247788345D00110A31ECF9495DF60C17B697D3E3B270ADE9112F9232E97F3269
+          56FB8EAA802D0A2CB627660C1394154420C0E0948BC7C5095CD953418773901B
+          75BD9C55774ECCD2D5524813A98422C089FD09D1F6FCA94E761615E09355D02F
+          919F9749B13E078BEB3B03031F09089960928C46A3C1FACEB97089F9B99A85B3
+          677FA174CEC4CDAA6AFC0409A1F0557131EA74122F24925312F1CCFBF0FB64AC
+          D34E7A6E9BDD1160F35A1729B66E821376CE1FD273A6F2006F9D766495D0092D
+          89229E49B70787D78D1C2F501405BBFB07A3AD130B80B7AB31FACEB7AAD359E3
+          D331627380174AF7E671785F09AFAC363ABB4DC44D6B407DB4046D1C81B11052
+          F8332C8D542B6DE30D71E822C32D2527D73797EF3030E418A7FBBE19C5A4D4B0
+          1A13E16D49EA25FE09C4600D52A1A144FF7E97A1800F2E27CF3A2CC816C520DA
+          C44874CD3F81266977D1467DDFBAEC743ECF4C31D6EF62DE142C13EDE2E9FF01
+          D7A5ADC9695A63C02623BB15348A06C5AB1C14F7C4CBC535BF015419481881D7
+          D75A0000000049454E44AE426082}
+        Name = 'PngImage12'
+        Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          61000000097048597300000B3A00000B3A01647F570D000001A24944415478DA
+          9D923B2C43511CC6BFEB158B129341A283342241448C44D46222418C2261A0F1
+          58BD26A193C482A18B8DC463D284A5212D121D3CDB26A452214A5295287A1FBD
+          F738E75EBDE90DD5C6B7DC9C73CFF7FBFEFFFF39DCE2EC4417804D18D53D3E63
+          DF42061142C0510019EC2930FC706C885941D2025220BF8A82B98C807462E0B4
+          80B77782D3808CEB9092156C6C7A9E33000EBC0970EF51B4568491C3B104058A
+          2000220F598883C822129F3104BC41B86E7035E921353A80A53BDD05E8305FA0
+          A450A4876528A20042CD8A48CD920459E221BCBEC1B1F37845F33A2920A80392
+          E96DE6B096CCF3DF66FA9544D55CBC3482E3061B4B5F9D3A44BF3E83DEF67C3D
+          DD94F70992A01508C664066B3977E2EC641F73265B2505047580C59CA3F55E7E
+          A7F54C01321F87427B6E3E5A330CCE6A2DC5827D1BB8B4713AA0AE2C8AA2E01E
+          A4A7D08F490FE5FA30DA6731ECADAC7BE075FB412E86B55BF8D8B5A7BDAA8D2A
+          0DE07B88E039164724A63DB097DBB00A51CBF84BF5037EC200AEC0FD0FB35A41
+          360036B8A41A9BAA75335B6704A48AAB5D560F27CDFF02A49A99BE008A302DB4
+          AC93694C0000000049454E44AE426082}
+        Name = 'PngImage16'
+        Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          610000000970485973000017120000171201679FD252000002354944415478DA
+          9D93DF4B936114C73FEF9CDB9C947A23A546E185062E4308122AB5488942A18B
+          A2A228229088EEBA0B83EECCCBCAEA1FA8ABD29B0CACB0FC1176538ACA963FA6
+          A2AEF9966E6E367CF7EEDDF3F4CEB5B4B640FAC281E7E19CF339E73987479152
+          92D2A34BCAC6650B9A8FD4A0A40089E42BCDE941D128E85AD212E7A896B48F83
+          9B00FF939CB703C6BC26A0FD22D25AB0F5B68DE0467242EB804CD535B352DF32
+          DC5C75B2737B1E617D8D79DF0ACD53605FAEA1B6AA8FDEA15F1D24DE9249B3B9
+          2B6837B2B853DD4457749496960ECE8D5772F9C0C8BAFF3720530709B97F404B
+          EE3E6E1D69E04DC0C3BDD6573CC986DD0EFE0DE80F43DC489E8716E175693977
+          8F37D1A90E71FFF65BAE9AF32ACB379D0246A7F7A7034A3C4E6A5DE568868112
+          55282B2DA4B278179EC0570606A6D0A5412CC7C062B130F9594D071CF617F2F0
+          CC35A2C4889B65E644800955C52A159CDBEC84D734739506934195DEC75FD201
+          F5C162AE379EE4933A8B61221CD2865D5AF9160AE38F8430AC122104B3A12526
+          9E2F86FE00E83AB8A60BC8D31CB8BD7E8840757D298D27AA189CF4F2B27B98AC
+          A0056C906DCB425F886F74D0FEC0BE0E99710884397DCC389F90F8CE17D15053
+          C188DF47F7B331EADC7BE8B14DD791F80139C495B6B3F68E40ECE0E94C6B5C72
+          4418BCB0485D4539E30195F79D1E0C8FA8902FA43B15A36CFE8D7F4B69558EBA
+          F616F714951430B3FA9D85FE006BC3B163B243BEDB1AA04D39E4CCB775E95E03
+          2324B0080B22224EC9A7F2432AE627BA3D288D657888700000000049454E44AE
+          426082}
+        Name = 'PngImage13'
+        Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          61000000097048597300000B3A00000B3A01647F570D000001784944415478DA
+          8DD1BF4BC3401407F0EFF9B38BC5D141B10E1637FF02A988205550C15FB3829B
+          A06EFE9C0A767170712A82B33FA0A08576A92D220EA2C5522D562B75B175A918
+          AA4DDA26E725DAC38049F38684E4EE7DDEBD7764C7B33A01E008FA985CDAF41E
+          A346504A411840E7A79A740BBEC39225C410F883FC1B0C263501A35061434028
+          50C492325219C512B6B8B1457440F4AA0252C863A0338BE661BF2584036AF5C0
+          7913C61C71B4DA4A08C7DE30B476A96D0AACF4C0D56D835C1621BD0BF09DBE26
+          D8EFF1F50B3C71A05A7DD09165BD29504411670C717B6E35E464B9037D5DF548
+          DE64107EC43E4B9EE533987137F2EAF6862FD04A095412A1948A88C4F318D94E
+          6B887FCE8EBB07A15A3DCD01A7A3EEA7F7F6172892043040168B506406B19344
+          EF058CEEE63464DA89E0410A6EDD2DF4B6E5D1920EA19CCB180EEB3A0B2C84F8
+          67BF3A730E7C06BDA6937EFE00F612FA647E02F5617A4D84B8D82B524D66FBA3
+          BA7533A056B229602999106A0698F7F61BDF228CEAE9FA9FA3C1000000004945
+          4E44AE426082}
+        Name = 'PngImage15'
+        Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          61000000097048597300000E9C00000E9C01079453DD000000534944415478DA
+          63FCFFFF3F03258071F018C0C8C848944940F58CB80CB0075207A0E20E407C10
+          BB7EDC0680288286A07B19DD0082861063005E43883500A72174710145614051
+          2C509C0E284B89E4028A0D0000DBA366E1865C514F0000000049454E44AE4260
+          82}
+        Name = 'PngImage14'
+        Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          61000000097048597300004E2000004E2001167D99DE000000D34944415478DA
+          63FCFFFF3F03258091AA063032329A00A9F940AC03C45780381188CF20A94F01
+          6263A09E4C5C065C06523381780A10E700713A10EB42A56D80B81E883D817AFE
+          E03200C46144B211C69701E2D540EC0BC46F50F410E1024B20DE0EC499506F31
+          E033005B189403F15220DE0077161E03D003B9018D26C98000208E06E24E7457
+          01F59C21640048F174508803F171F47001EAD1C5678008106F06E250207E8214
+          13483EF8CF88CB001668883702F111A8302866A602F10C625C0072F659209E83
+          642346CCE00C0372C0C01B000040D57DE18A8F9E290000000049454E44AE4260
+          82}
+        Name = 'PngImage17'
+        Background = clWindow
       end>
     Left = 40
-    Top = 112
+    Top = 136
     Bitmap = {}
   end
   object cxStyleRepository: TcxStyleRepository
@@ -721,12 +893,22 @@ inherited frViewDetallesBase: TfrViewDetallesBase
     Top = 168
     PixelsPerInch = 96
     object cxStyle_SUBTOTAL: TcxStyle
-      AssignedValues = [svColor]
+      AssignedValues = [svColor, svFont]
-      Color = 552722127
+      Color = 13298687
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
     end
     object cxStyle_TITULO: TcxStyle
-      AssignedValues = [svColor]
+      AssignedValues = [svColor, svFont]
       Color = 546166271
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
     end
     object cxStyle_DESCUENTO: TcxStyle
       AssignedValues = [svColor]

Source/GUIBase/uViewDetallesBase.pas

@@ -109,6 +109,17 @@ type
     cxStyle_ESPECIALES: TcxStyle;
     cxStyle_NORMAL_PAR: TcxStyle;
     cxStyle_NORMAL_IMPAR: TcxStyle;
+    TBXSubmenuItem1: TTBXSubmenuItem;
+    TBXSeparatorItem6: TTBXSeparatorItem;
+    actAnadirCapitulo: TAction;
+    actAnadirTitulo: TAction;
+    actAnadirSubtotal: TAction;
+    actAnadirDescuento: TAction;
+    TBXItem12: TTBXItem;
+    TBXItem14: TTBXItem;
+    TBXItem15: TTBXItem;
+    TBXItem16: TTBXItem;
+    TBXSeparatorItem7: TTBXSeparatorItem;
     procedure actAnadirExecute(Sender: TObject);
     procedure actEliminarExecute(Sender: TObject);
     procedure actSubirExecute(Sender: TObject);
@@ -144,6 +155,14 @@ type
     procedure cxGridViewCustomDrawCell(Sender: TcxCustomGridTableView;
       ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
       var ADone: Boolean);
+    procedure actAnadirCapituloUpdate(Sender: TObject);
+    procedure actAnadirTituloUpdate(Sender: TObject);
+    procedure actAnadirSubtotalUpdate(Sender: TObject);
+    procedure actAnadirDescuentoUpdate(Sender: TObject);
+    procedure actAnadirCapituloExecute(Sender: TObject);
+    procedure actAnadirTituloExecute(Sender: TObject);
+    procedure actAnadirSubtotalExecute(Sender: TObject);
+    procedure actAnadirDescuentoExecute(Sender: TObject);
 
   private
     FController : IControllerDetallesBase;
@@ -202,6 +221,77 @@ begin
 end;
 
 
+procedure TfrViewDetallesBase.actAnadirCapituloExecute(Sender: TObject);
+var
+  bEsMultiSelect : Boolean;
+begin
+  // Debo quitar el multiselect porque provoca que se quede seleccionado
+  // el registro actual y no el nuevo registro que voy a añadir
+  bEsMultiSelect := cxGridView.OptionsSelection.MultiSelect;
+  if bEsMultiSelect then
+    cxGridView.OptionsSelection.MultiSelect := False;
+
+  cxGridView.BeginUpdate;
+  try
+    if cxGridView.Controller.EditingController.IsEditing then
+       cxGridView.Controller.EditingController.Edit.PostEditValue;
+
+    if Assigned(Controller) and Assigned(FDetalles) then
+    begin
+        Controller.add(FDetalles, TIPO_DETALLE_TITULO);
+        Controller.add(FDetalles, TIPO_DETALLE_CONCEPTO);
+        Controller.add(FDetalles, TIPO_DETALLE_CONCEPTO);
+        Controller.add(FDetalles, TIPO_DETALLE_SUBTOTAL);
+//        Controller.add(FDetalles, TIPO_DETALLE_DESCUENTO);
+    end;
+  finally
+    cxGridView.EndUpdate;
+
+    // Dejo la propiedad MultiSelect como estaba
+    if bEsMultiSelect then
+       cxGridView.OptionsSelection.MultiSelect := bEsMultiSelect;
+  end;
+end;
+
+procedure TfrViewDetallesBase.actAnadirCapituloUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Enabled := not ReadOnly;
+end;
+
+procedure TfrViewDetallesBase.actAnadirDescuentoExecute(Sender: TObject);
+var
+  bEsMultiSelect : Boolean;
+begin
+  // Debo quitar el multiselect porque provoca que se quede seleccionado
+  // el registro actual y no el nuevo registro que voy a añadir
+  bEsMultiSelect := cxGridView.OptionsSelection.MultiSelect;
+  if bEsMultiSelect then
+    cxGridView.OptionsSelection.MultiSelect := False;
+
+  cxGridView.BeginUpdate;
+  try
+    if cxGridView.Controller.EditingController.IsEditing then
+       cxGridView.Controller.EditingController.Edit.PostEditValue;
+
+    if Assigned(Controller)
+    and Assigned(FDetalles) then
+        Controller.add(FDetalles, TIPO_DETALLE_DESCUENTO);
+  finally
+    cxGridView.EndUpdate;
+
+    // Dejo la propiedad MultiSelect como estaba
+    if bEsMultiSelect then
+       cxGridView.OptionsSelection.MultiSelect := bEsMultiSelect;
+  end;
+end;
+
+procedure TfrViewDetallesBase.actAnadirDescuentoUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Enabled := not ReadOnly;
+end;
+
 procedure TfrViewDetallesBase.actAnadirExecute(Sender: TObject);
 var
   bEsMultiSelect : Boolean;
@@ -229,6 +319,70 @@ begin
   end;
 end;
 
+procedure TfrViewDetallesBase.actAnadirSubtotalExecute(Sender: TObject);
+var
+  bEsMultiSelect : Boolean;
+begin
+  // Debo quitar el multiselect porque provoca que se quede seleccionado
+  // el registro actual y no el nuevo registro que voy a añadir
+  bEsMultiSelect := cxGridView.OptionsSelection.MultiSelect;
+  if bEsMultiSelect then
+    cxGridView.OptionsSelection.MultiSelect := False;
+
+  cxGridView.BeginUpdate;
+  try
+    if cxGridView.Controller.EditingController.IsEditing then
+       cxGridView.Controller.EditingController.Edit.PostEditValue;
+
+    if Assigned(Controller) and Assigned(FDetalles) then
+        Controller.add(FDetalles, TIPO_DETALLE_SUBTOTAL);
+  finally
+    cxGridView.EndUpdate;
+
+    // Dejo la propiedad MultiSelect como estaba
+    if bEsMultiSelect then
+       cxGridView.OptionsSelection.MultiSelect := bEsMultiSelect;
+  end;
+end;
+
+procedure TfrViewDetallesBase.actAnadirSubtotalUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Enabled := not ReadOnly;
+end;
+
+procedure TfrViewDetallesBase.actAnadirTituloExecute(Sender: TObject);
+var
+  bEsMultiSelect : Boolean;
+begin
+  // Debo quitar el multiselect porque provoca que se quede seleccionado
+  // el registro actual y no el nuevo registro que voy a añadir
+  bEsMultiSelect := cxGridView.OptionsSelection.MultiSelect;
+  if bEsMultiSelect then
+    cxGridView.OptionsSelection.MultiSelect := False;
+
+  cxGridView.BeginUpdate;
+  try
+    if cxGridView.Controller.EditingController.IsEditing then
+       cxGridView.Controller.EditingController.Edit.PostEditValue;
+
+    if Assigned(Controller) and Assigned(FDetalles) then
+        Controller.add(FDetalles, TIPO_DETALLE_TITULO);
+  finally
+    cxGridView.EndUpdate;
+
+    // Dejo la propiedad MultiSelect como estaba
+    if bEsMultiSelect then
+       cxGridView.OptionsSelection.MultiSelect := bEsMultiSelect;
+  end;
+end;
+
+procedure TfrViewDetallesBase.actAnadirTituloUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Enabled := not ReadOnly;
+end;
+
 procedure TfrViewDetallesBase.actEliminarExecute(Sender: TObject);
 var
   AuxTop, AuxRow:Integer;
@@ -533,9 +687,7 @@ begin
       AStyle := cxStyle_NORMAL_IMPAR;
   end;
 
-
+  AStyle := NIL;
-
-{  AStyle := NIL;
   if Assigned(ARecord) then
   begin
     ATipo := DarTipoConcepto(ARecord);
@@ -548,7 +700,7 @@ begin
 
     if ATipo = TIPO_DETALLE_DESCUENTO then
       AStyle := cxStyle_DESCUENTO;
-  end;}
+  end;
 end;
 
 function TfrViewDetallesBase.DarFuentePorDefecto(const ATipo: String): TFont;

Source/GUIBase/uViewGridBase.pas

@@ -166,13 +166,36 @@ begin
   RegisterCustomContainer(TfrViewGridBase);
 end;
 
+procedure BestFitAllColumns (TheView:TcxGridDBTableView; ALimit:Integer = 0);
+var
+  i : Integer ;
+begin
+   try
+      TheView.BeginUpdate;
+      for i :=  0 to TheView.VisibleColumnCount-1 do
+      begin
+        //TheView.VisibleColumns[i].BestFitMaxWidth := 0;
+        TheView.VisibleColumns[i].ApplyBestFit;
+        if (ALimit > 0) then
+        begin
+          if (TheView.VisibleColumns[i].Width > ALimit) then
+            TheView.VisibleColumns[i].Width := ALimit;
+        end;
+      end;
+   finally
+      TheView.EndUpdate;
+   end;
+End;
+
 { TfrViewGrid }
 
 procedure TfrViewGridBase.AjustarAncho;
 begin
   if Assigned(_FocusedView) then
+  begin
     _FocusedView.ApplyBestFit;
   end;
+end;
 
 procedure TfrViewGridBase.AnadirOtrosFiltros;
 begin