- Repaso global

- Habilitado portapapeles

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

Source/ApplicationBase/Usuarios/Model/schUsuariosClient_Intf.pas

@@ -9,12 +9,12 @@ const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_USUARIOS = '{18238182-68F3-4CCD-8B76-C307A41B5EF7}';
+  RID_USUARIOS = '{190ECFD6-8BF8-463A-A069-134DC883028F}';
-  RID_USUARIOS_EVENTOS = '{D4A4F285-457C-44C7-A76D-3D5A9FBAB6C7}';
+  RID_USUARIOS_EVENTOS = '{CA759DA6-3907-41E0-8214-9BC7C8630DE0}';
-  RID_USUARIOS_LOGON = '{44400882-287E-4EFC-8C03-AF919EF4868D}';
+  RID_USUARIOS_LOGON = '{243F3788-11A9-45F4-B185-AA2D73BE1D71}';
-  RID_PERMISOS = '{CCB894E4-E131-4989-9CAA-08EADFD0186A}';
+  RID_PERMISOS = '{F3432FFB-2820-4EB5-89C6-0D64DB88682D}';
-  RID_PERMISOSEX = '{555705FA-FCF2-48B2-B2D8-DC488D48C451}';
+  RID_PERMISOSEX = '{05E24A98-1A49-4D0F-A11E-49B4B37F7489}';
-  RID_PERFILES = '{0AED66D4-81D4-4E48-8BCB-8FEA425DCE37}';
+  RID_PERFILES = '{6C36D997-1C57-4896-A3CE-4B74F465AC38}';
 
   { Data table names }
   nme_USUARIOS = 'USUARIOS';
@@ -129,7 +129,7 @@ const
 type
   { IUSUARIOS }
   IUSUARIOS = interface(IDAStronglyTypedDataTable)
-  ['{5F277EA3-FF65-43CC-B1A8-50D00B3E3822}']
+  ['{4039ABB1-B663-4DFA-8549-14CA71056FD6}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -296,7 +296,7 @@ type
 
   { IUSUARIOS_EVENTOS }
   IUSUARIOS_EVENTOS = interface(IDAStronglyTypedDataTable)
-  ['{7FC08ED8-B62A-4453-A226-24B40BB04CCC}']
+  ['{6E1A8BC6-48E1-4831-A571-4DCF7C3A8DA6}']
     { Property getters and setters }
     function GetAPLICACIONValue: String;
     procedure SetAPLICACIONValue(const aValue: String);
@@ -427,7 +427,7 @@ type
 
   { IUSUARIOS_LOGON }
   IUSUARIOS_LOGON = interface(IDAStronglyTypedDataTable)
-  ['{845645BA-5BAD-44ED-84C2-74D3F81E0083}']
+  ['{9343561D-EEC6-478D-891D-E1BE34EB2FD4}']
     { Property getters and setters }
     function GetLOGONIDValue: String;
     procedure SetLOGONIDValue(const aValue: String);
@@ -510,7 +510,7 @@ type
 
   { IPERMISOS }
   IPERMISOS = interface(IDAStronglyTypedDataTable)
-  ['{1D5F033A-E579-4522-8956-ECC91BA8C7FB}']
+  ['{BDFA2EDF-FEA0-4089-AD25-8D484E9CC6CA}']
     { Property getters and setters }
     function GetID_USUARIOValue: Integer;
     procedure SetID_USUARIOValue(const aValue: Integer);
@@ -581,7 +581,7 @@ type
 
   { IPERMISOSEX }
   IPERMISOSEX = interface(IDAStronglyTypedDataTable)
-  ['{F66BA47E-0FBC-4722-8B77-30EFAEEA322D}']
+  ['{5CF900FA-631D-4FC6-99AF-F173251A0378}']
     { Property getters and setters }
     function GetID_USUARIOValue: Integer;
     procedure SetID_USUARIOValue(const aValue: Integer);
@@ -664,7 +664,7 @@ type
 
   { IPERFILES }
   IPERFILES = interface(IDAStronglyTypedDataTable)
-  ['{A0CEAB90-971B-4ED8-B5FE-878458800586}']
+  ['{2738B3A7-8644-46C1-AD68-CFA62CE0809E}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);

Source/ApplicationBase/Usuarios/Model/schUsuariosServer_Intf.pas

@@ -9,17 +9,17 @@ const
   { Delta rules ids 
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_USUARIOSDelta = '{688C2060-89DB-41D0-A50A-C2BDE4B94D1A}';
+  RID_USUARIOSDelta = '{4AA9CBE4-007A-4CAD-844C-05539CD289CA}';
-  RID_USUARIOS_EVENTOSDelta = '{4E223C46-38E2-40E2-BE89-AC621F603773}';
+  RID_USUARIOS_EVENTOSDelta = '{0918F32D-4334-419F-9936-186CC23BC165}';
-  RID_USUARIOS_LOGONDelta = '{BE97DDD1-B35B-4F26-AABC-CEEC3086C437}';
+  RID_USUARIOS_LOGONDelta = '{15D6AADF-D24A-4BAE-96D5-2A26AD60E3DA}';
-  RID_PERMISOSDelta = '{5C7AFB8C-8585-4A61-ACF8-10F7D370098B}';
+  RID_PERMISOSDelta = '{CE343111-2CF7-4C07-A7C5-CB72513E533C}';
-  RID_PERMISOSEXDelta = '{C226534A-2B76-4384-AC0D-33760634C8CE}';
+  RID_PERMISOSEXDelta = '{99649DB7-B027-45F5-A665-76B477807E8D}';
-  RID_PERFILESDelta = '{F37D69E0-A239-418E-87B6-9354DEDD1956}';
+  RID_PERFILESDelta = '{A09AC663-B18E-4894-B84C-9FEA6C000A44}';
 
 type
   { IUSUARIOSDelta }
   IUSUARIOSDelta = interface(IUSUARIOS)
-  ['{688C2060-89DB-41D0-A50A-C2BDE4B94D1A}']
+  ['{4AA9CBE4-007A-4CAD-844C-05539CD289CA}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldUSERNAMEValue : String;
@@ -185,7 +185,7 @@ type
 
   { IUSUARIOS_EVENTOSDelta }
   IUSUARIOS_EVENTOSDelta = interface(IUSUARIOS_EVENTOS)
-  ['{4E223C46-38E2-40E2-BE89-AC621F603773}']
+  ['{0918F32D-4334-419F-9936-186CC23BC165}']
     { Property getters and setters }
     function GetOldAPLICACIONValue : String;
     function GetOldID_USUARIOValue : Integer;
@@ -316,7 +316,7 @@ type
 
   { IUSUARIOS_LOGONDelta }
   IUSUARIOS_LOGONDelta = interface(IUSUARIOS_LOGON)
-  ['{BE97DDD1-B35B-4F26-AABC-CEEC3086C437}']
+  ['{15D6AADF-D24A-4BAE-96D5-2A26AD60E3DA}']
     { Property getters and setters }
     function GetOldLOGONIDValue : String;
     function GetOldID_USUARIOValue : Integer;
@@ -398,7 +398,7 @@ type
 
   { IPERMISOSDelta }
   IPERMISOSDelta = interface(IPERMISOS)
-  ['{5C7AFB8C-8585-4A61-ACF8-10F7D370098B}']
+  ['{CE343111-2CF7-4C07-A7C5-CB72513E533C}']
     { Property getters and setters }
     function GetOldID_USUARIOValue : Integer;
     function GetOldMODULOValue : String;
@@ -468,7 +468,7 @@ type
 
   { IPERMISOSEXDelta }
   IPERMISOSEXDelta = interface(IPERMISOSEX)
-  ['{C226534A-2B76-4384-AC0D-33760634C8CE}']
+  ['{99649DB7-B027-45F5-A665-76B477807E8D}']
     { Property getters and setters }
     function GetOldID_USUARIOValue : Integer;
     function GetOldMODULOValue : String;
@@ -550,7 +550,7 @@ type
 
   { IPERFILESDelta }
   IPERFILESDelta = interface(IPERFILES)
-  ['{F37D69E0-A239-418E-87B6-9354DEDD1956}']
+  ['{A09AC663-B18E-4894-B84C-9FEA6C000A44}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldUSERNAMEValue : String;

Source/ApplicationBase/Usuarios/Views/uViewUsuario.dfm

@@ -13,6 +13,7 @@ inherited frViewUsuario: TfrViewUsuario
     Align = alTop
     ParentBackground = True
     TabOrder = 0
+    TabStop = False
     AutoContentSizes = [acsWidth]
     DesignSize = (
       509
@@ -53,12 +54,16 @@ inherited frViewUsuario: TfrViewUsuario
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 0
       Width = 164
     end
@@ -73,12 +78,16 @@ inherited frViewUsuario: TfrViewUsuario
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 1
       Width = 108
     end
@@ -97,12 +106,16 @@ inherited frViewUsuario: TfrViewUsuario
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 2
       Width = 194
     end
@@ -111,14 +124,20 @@ inherited frViewUsuario: TfrViewUsuario
       Top = 167
       Properties.EchoMode = eemPassword
       Properties.PasswordChar = '*'
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 4
       Width = 121
     end
@@ -127,14 +146,20 @@ inherited frViewUsuario: TfrViewUsuario
       Top = 194
       Properties.EchoMode = eemPassword
       Properties.PasswordChar = '*'
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 5
       Width = 372
     end
@@ -146,14 +171,22 @@ inherited frViewUsuario: TfrViewUsuario
       Properties.ImmediateUpdateText = True
       Properties.PostPopupValueOnTab = True
       Properties.OnValidate = cbPerfilPropertiesValidate
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
+      Style.ButtonStyle = bts3D
+      Style.PopupBorderStyle = epbsFrame3D
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 3
       Width = 194
     end

Source/ApplicationBase/Usuarios/Views/uViewUsuario.pas

@@ -8,7 +8,13 @@ uses
   dxLayoutControl, cxCurrencyEdit, uCustomView, cxControls, DB, uDAInterfaces,
   uDADataTable, ActnList, cxCheckBox, cxDBEdit, cxMaskEdit, cxSpinEdit,
   cxHyperLinkEdit, cxContainer, cxEdit, cxTextEdit, Buttons, PngSpeedButton,
-  uBizUsuarios, cxDropDownEdit, ExtCtrls;
+  uBizUsuarios, cxDropDownEdit, ExtCtrls, dxSkinsCore, dxSkinBlack, dxSkinBlue,
+  dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
+  dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
+  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
+  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
+  dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
+  dxSkinsdxLCPainter;
 
 type
   IViewUsuario = interface(IViewBase)

Source/Base/Base.dpk

@@ -88,7 +88,7 @@ contains
   uConfigurarConexion in 'Conexion\uConfigurarConexion.pas' {fConfigurarConexion: TForm},
   uSistemaFunc in 'Utiles\uSistemaFunc.pas',
   FactuGES_Intf in '..\Servicios\FactuGES_Intf.pas',
-  uGridUtils in 'Utiles\uGridUtils.pas',
+  uGridStatusUtils in 'Utiles\uGridStatusUtils.pas',
   uDateUtils in 'Utiles\uDateUtils.pas',
   uDataModuleConfiguracion in 'Configuracion\uDataModuleConfiguracion.pas' {dmConfiguracion: TDataModule},
   uViewRegistryUtils in 'Utiles\ClassRegistry\uViewRegistryUtils.pas',
@@ -106,6 +106,10 @@ contains
   schBase_Intf in 'schBase_Intf.pas',
   uDataModuleBase in 'uDataModuleBase.pas' {DataModuleBase: TDataModule},
   uStringsUtils in 'Utiles\uStringsUtils.pas',
-  uAppInfoUtils in 'Utiles\uAppInfoUtils.pas';
+  uAppInfoUtils in 'Utiles\uAppInfoUtils.pas',
+  Ctltortf in 'Utiles\Ctltortf.pas',
+  uRTFUtils in 'Utiles\uRTFUtils.pas',
+  ClipboardUtils in 'Utiles\ClipboardUtils.pas',
+  uGridClipboardUtils in 'Utiles\uGridClipboardUtils.pas';
 
 end.

Source/Base/Base.dproj

@@ -53,58 +53,58 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\adortl.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\cxDataD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\cxExportD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\cxGridD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\cxIntl6D11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\cxIntlPrintSys3D11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\cxPageControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dclIndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\designide.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dsnap.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxPSCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\GUISDK_D11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\IndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\IndyProtocols.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\IndySystem.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Jcl.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JclVcl.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JSDialog100.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JvCmpD11R.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JvCoreD11R.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JvMMD11R.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JvNetD11R.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JvSystemD11R.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\pckMD5.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\RemObjects_Indy_D11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\TB2k_D10.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\VclSmp.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\vclx.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\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\RemObjects_Indy_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>
@@ -132,18 +132,22 @@
     <DCCReference Include="Utiles\ClassRegistry\uEditorRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClassRegistry\uInformeRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClassRegistry\uViewRegistryUtils.pas" />
+    <DCCReference Include="Utiles\ClipboardUtils.pas" />
+    <DCCReference Include="Utiles\Ctltortf.pas" />
     <DCCReference Include="Utiles\uAppInfoUtils.pas" />
     <DCCReference Include="Utiles\uCalculosUtils.pas" />
     <DCCReference Include="Utiles\uDataTableUtils.pas" />
     <DCCReference Include="Utiles\uDateUtils.pas" />
     <DCCReference Include="Utiles\uDBSelectionListUtils.pas" />
     <DCCReference Include="Utiles\uDialogUtils.pas" />
-    <DCCReference Include="Utiles\uGridUtils.pas" />
+    <DCCReference Include="Utiles\uGridClipboardUtils.pas" />
+    <DCCReference Include="Utiles\uGridStatusUtils.pas" />
     <DCCReference Include="Utiles\uInfoProjectUtils.pas" />
     <DCCReference Include="Utiles\uIntegerListUtils.pas" />
     <DCCReference Include="Utiles\uMD5.pas" />
     <DCCReference Include="Utiles\uNumUtils.pas" />
     <DCCReference Include="Utiles\uPasswordUtils.pas" />
+    <DCCReference Include="Utiles\uRTFUtils.pas" />
     <DCCReference Include="Utiles\uSistemaFunc.pas" />
     <DCCReference Include="Utiles\uStringsUtils.pas" />
   </ItemGroup>

Source/Base/Controladores/uControllerDetallesBase.pas

@@ -33,6 +33,7 @@ type
     procedure ActualizarTotales(ADataTable: IDAStronglyTypedDataTable);
     function DarTotalImporteTotal(ADataTable: IDAStronglyTypedDataTable): Double;
     function LocalizarPosicion(ADataTable: IDAStronglyTypedDataTable; const APosicion: Integer): Boolean;
+    procedure Renumerar(DataTable: TDADataTable; LocalizaPosicion: Integer);
     function DarListaTiposDetalle: TStringList;
   end;
 

Source/Base/Utiles/ClipboardUtils.pas

@@ -0,0 +1,148 @@
+{+------------------------------------------------------------
+ | Unit ClipboardUtils
+ |
+ | Version: 1.1  Created: 05/05/96, 12:56:57
+ |               Last Modified: 18.3.2001
+ | Author : P. Below
+ | Project: Common Utilities
+ | Description:
+ |   Routines to copy string lists and stream to and
+ |   from the clipboard.
+ +------------------------------------------------------------}
+Unit ClipboardUtils;
+
+interface
+
+Uses Classes;
+
+  Procedure CopyStringsToClipboard( fmt: Cardinal; S: TStrings );
+  Procedure CopyStreamToClipboard( fmt: Cardinal; S: TStream );
+  Procedure CopyStringsFromClipboard( fmt: Cardinal; S: TStrings );
+  Procedure CopyStreamFromClipboard( fmt: Cardinal; S: TStream );
+  Function  GetClipFmtname( fmt: Word ): String;
+
+Implementation
+
+Uses WinTypes, WinProcs, SysUtils, Clipbrd;
+
+Procedure CopyStringsToClipboard( fmt: Cardinal; S: TStrings );
+  Var
+    MemStr: TMemoryStream;
+  Begin
+    MemStr := TMemoryStream.Create;
+    try
+      S.SaveToStream(MemStr);
+      CopyStreamToClipboard( fmt, MemStr );
+    finally
+      MemStr.Free;
+    end;
+  End; { CopyStringsToClipboard }
+
+Procedure CopyStreamToClipboard( fmt: Cardinal; S: TStream );
+  Var
+    hMem: THandle;
+    pMem: Pointer;
+  Begin
+    S.Position := 0;
+    hMem := GlobalAlloc( GHND or GMEM_DDESHARE, S.Size );
+    If hMem <> 0 Then Begin
+      pMem := GlobalLock( hMem );
+      If pMem <> Nil Then Begin
+        try
+          S.Read( pMem^, S.Size );
+          S.Position := 0;
+        finally
+          GlobalUnlock( hMem );
+        end;
+        Clipboard.Open;
+        try
+          Clipboard.SetAsHandle( fmt, hMem );
+        finally
+          Clipboard.Close;
+        end;
+      End { If }
+      Else Begin
+        GlobalFree( hMem );
+        OutOfMemoryError;
+      End;
+    End { If }
+    Else
+      OutOfMemoryError;
+  End; { CopyStreamToClipboard }
+
+Procedure CopyStringsFromClipboard( fmt: Cardinal; S: TStrings );
+  Var
+    MemStr: TMemoryStream;
+  Begin
+    MemStr:= TMemoryStream.Create;
+    try
+      CopyStreamFromClipboard( fmt, MemStr );
+      MemStr.Position := 0;
+      S.LoadFromStream( MemStr );
+    finally
+      MemStr.Free;
+    end;
+  End; { CopyStringsFromClipboard }
+
+Procedure CopyStreamFromClipboard( fmt: Cardinal; S: TStream );
+  Var
+    hMem: THandle;
+    pMem: Pointer;
+  Begin
+    hMem := Clipboard.GetAsHandle( fmt );
+    If hMem <> 0 Then Begin
+      pMem := GlobalLock( hMem );
+      If pMem <> Nil Then Begin
+        try
+          S.Write( pMem^, GlobalSize( hMem ));
+          S.Position := 0;
+        finally  
+          GlobalUnlock( hMem );
+        end;  
+      End { If }
+      Else
+        raise Exception.Create(
+          'CopyStreamFromClipboard: could not lock global handle '+
+          'obtained from clipboard!');
+    End; { If }
+  End; { CopyStreamFromClipboard }
+
+Function  GetClipFmtname( fmt: Word ): String;
+Var
+  buf: Array [0..60] of Char;
+Begin
+  If GetclipboardFormatName( fmt, buf, Pred(Sizeof(buf))) <> 0 Then
+    Result := StrPas(buf)
+  Else
+    Case fmt of
+        1: Result := 'CF_TEXT';
+        2: Result := 'CF_BITMAP';
+        3: Result := 'CF_METAFILEPICT';
+        4: Result := 'CF_SYLK';
+        5: Result := 'CF_DIF';
+        6: Result := 'CF_TIFF';
+        7: Result := 'CF_OEMTEXT';
+        8: Result := 'CF_DIB';
+        9: Result := 'CF_PALETTE';
+       10: Result := 'CF_PENDATA';
+       11: Result := 'CF_RIFF';
+       12: Result := 'CF_WAVE';
+       13: Result := 'CF_UNICODETEXT';
+       14: Result := 'CF_ENHMETAFILE';
+       15: Result := 'CF_HDROP (Win 95)';
+       16: Result := 'CF_LOCALE (Win 95)';
+       17: Result := 'CF_MAX (Win 95)';
+    $0080: Result := 'CF_OWNERDISPLAY';
+    $0081: Result := 'CF_DSPTEXT';
+    $0082: Result := 'CF_DSPBITMAP';
+    $0083: Result := 'CF_DSPMETAFILEPICT';
+    $008E: Result := 'CF_DSPENHMETAFILE';
+    $0200..$02FF: Result := 'private format';
+    $0300..$03FF: Result := 'GDI object';
+    Else
+      Result := 'unknown format';
+    End; {Case}
+End;
+
+
+End { Unit ClipboardUtils }.

Source/Base/Utiles/Ctltortf.pas

@@ -0,0 +1,581 @@
+{*************************************************************}
+{          Delphi Control to RTF Conversion VCL               }
+{ Version:   1.0                                              }
+{ Author:    K. Nishita                                       }
+{ E-Mail:    info@nishita.com                                 }
+{ Home Page: http://nishita.com                               }
+{ Created:   3/1/2000                                         }
+{ Type:      Freeware                                         }
+{ Legal:     Copyright (c) 1999 by K. Nishita                 }
+{*************************************************************}
+{ This component convert Delphi grid, edit, listbox, memo,    }
+{ and label to Rich Text Format.                              }
+{*************************************************************}
+{ Please see example program for more information.            }
+{*************************************************************}
+{                     IMPORTANT NOTE:                         }
+{ This software is provided 'as-is', without any express or   }
+{ implied warranty. In no event will the author be held       }
+{ liable for any damages arising from the use of this         }
+{ software.                                                   }
+{ Permission is granted to anyone to use this software for    }
+{ any purpose, including commercial applications, and to      }
+{ alter it and redistribute it freely, subject to the         }
+{ following restrictions:                                     }
+{ 1. The origin of this software must not be misrepresented,  }
+{    you must not claim that you wrote the original software. }
+{    If you use this software in a product, an acknowledgment }
+{    in the product documentation would be appreciated but is }
+{    not required.                                            }
+{ 2. Altered source versions must be plainly marked as such,  }
+{    and must not be misrepresented as being the original     }
+{    software.                                                }
+{ 3. This notice may not be removed or altered from any       }
+{    source distribution.                                     }
+{ 4. You must register this software by visiting              } 
+{    http://nishita.com.                                      }
+{*************************************************************}
+
+unit CtlToRTF;
+
+interface
+
+uses
+  SysUtils, {$IFDEF WIN32} Windows, {$ELSE} WinTypes, WinProcs,{$ENDIF} Messages, Classes, Graphics, Controls,
+  StdCtrls, ExtCtrls, Grids, Forms, cxGridTableView;
+
+type
+  TCtrlToRTF = class(TComponent)
+  private
+    { Private declarations }
+  FFileName:string;
+  RTF:TMemoryStream;
+  FontTable:TStringList;
+  procedure StreamWriteStr(var ms: TMemoryStream; s: string);
+  function GetRTFFontTableName(FontName:string):string;
+  function GetRTFFontAttrib(Style:TFontStyles):string;
+  function GetRTFFontSize(Size:Integer):string;
+  function GetRTFAlignment(Alignment:TAlignment):string;
+  function GetRTFFontColorTableName(Color:TColor):string;
+    function GetRTF: String;
+
+  protected
+    { Protected declarations }
+  public
+    { Public declarations }
+  constructor Create(AOwner: TComponent); override;
+  destructor Destroy; override;
+  procedure CreateRTFHeader;
+  procedure AddFontToTable(Font:TFont);
+  procedure ImageToRTF(Image:TImage;Alignment:TAlignment);
+  procedure MemoToRTF(Memo:TMemo);
+  procedure ListBoxToRTF(pList:TListBox);
+  procedure StringListToRTF(pStringList:TStringList;Font:TFont;Alignment:TAlignment);
+  procedure StringToRTF(pString:String;Font:TFont;Alignment:TAlignment);
+  procedure TextBufToRTF(TextBuf:pointer;size:word;Font:TFont;Alignment:TAlignment);
+  procedure LabelToRTF(pLabel:TLabel);
+  procedure EditToRTF(pEdit:TEdit);
+  procedure GridToRTF(Grid:TStringGrid);
+  procedure cxGridViewToRTF(cxGridView:TcxGridTableView);
+  procedure SaveToFile(pFileName:String);
+  published
+    property RTFText : String read GetRTF;
+  end;
+
+procedure Register;
+
+implementation
+
+//{$IFDEF WIN32}
+// {$R *.D32}
+//{$ELSE}
+// {$R *.D16}
+//{$ENDIF}
+
+constructor TCtrlToRTF.Create(AOwner: TComponent);
+begin
+inherited Create(AOwner);
+RTF:=TMemoryStream.Create;
+FontTable:=TStringList.Create;
+end;
+
+destructor TCtrlToRTF.Destroy;
+begin
+RTF.Free;
+FontTable.Free;
+inherited Destroy;
+end;
+
+procedure TCtrlToRTF.CreateRTFHeader;
+var i:Integer;
+begin
+StreamWriteStr(RTF,'{\rtf1\ansi\ansicpg1252\deff0\deftab720');
+StreamWriteStr(RTF,'{\fonttbl');
+for i:=0 to FontTable.count-1 do
+StreamWriteStr(RTF,FontTable.Strings[i]);
+StreamWriteStr(RTF,'}');
+StreamWriteStr(RTF,'{\colortbl');
+StreamWriteStr(RTF,'\red0\green0\blue0;');     {Black}
+StreamWriteStr(RTF,'\red128\green0\blue0;');   {Maroon}
+StreamWriteStr(RTF,'\red0\green128\blue0;');  {Green}
+StreamWriteStr(RTF,'\red128\green128\blue0;');  {Olive}
+StreamWriteStr(RTF,'\red0\green0\blue128;');   {Navy}
+StreamWriteStr(RTF,'\red128\green0\blue128;');  {Purple}
+StreamWriteStr(RTF,'\red0\green128\blue128;');  {Teal}
+StreamWriteStr(RTF,'\red128\green128\blue128;'); {Gray}
+StreamWriteStr(RTF,'\red192\green192\blue192;'); {Silver}
+StreamWriteStr(RTF,'\red255\green0\blue0;');   {Red}
+StreamWriteStr(RTF,'\red0\green255\blue0;');   {Lime}
+StreamWriteStr(RTF,'\red255\green255\blue0;');   {Yellow}
+StreamWriteStr(RTF,'\red0\green0\blue255;');     {Blue}
+StreamWriteStr(RTF,'\red255\green0\blue255;');  {Fuchsia}
+StreamWriteStr(RTF,'\red0\green255\blue255;');   {Aqua}
+StreamWriteStr(RTF,'\red255\green255\blue255;'); {White}
+StreamWriteStr(RTF,'}');
+end;
+
+procedure TCtrlToRTF.cxGridViewToRTF(cxGridView: TcxGridTableView);
+var i,j:Integer;
+    Temp:double;
+    FontColor,FontAttrib,FontSize,FontName:String;
+begin
+{FontColor:=GetRTFFontColorTableName(cxGridView.Font.Color);
+FontSize:=GetRTFFontSize(cxGridView.Font.Size);
+FontAttrib:=GetRTFFontAttrib(cxGridView.Font.Style);
+FontName:=GetRTFFontTableName(cxGridView.Font.Name);}
+
+CreateRTFHeader;
+
+FontColor:=GetRTFFontColorTableName(Windows.GetSysColor(COLOR_BTNTEXT));
+FontSize:=GetRTFFontSize(8);
+FontAttrib:=GetRTFFontAttrib([]);
+FontName:=GetRTFFontTableName('Tahoma');
+
+
+StreamWriteStr(RTF,'\par \pard\plain\cgrid');
+StreamWriteStr(RTF,'{\stylesheet{\nowidctlpar\widctlpar\adjustright \fs20\cgrid \snext0 Normal;}');
+StreamWriteStr(RTF,'{\*\cs10 \additive Default Paragraph Font;}}');
+StreamWriteStr(RTF,'{\*\pnseclvl1\pnucrm\pnstart1\pnindent720\pnhang{\pntxta');
+StreamWriteStr(RTF,'.}}{\*\pnseclvl2\pnucltr\pnstart1\pnindent720\pnhang');
+StreamWriteStr(RTF,'{\pntxta .}}{\*\pnseclvl3\pndec\pnstart1'+'\pnindent720\pnhang{\pntxta');
+StreamWriteStr(RTF,'.}}{\*\pnseclvl4\pnlcltr\pnstart1\pnindent720\pnhang{\pntxta');
+StreamWriteStr(RTF,')}}{\*\pnseclvl5\pndec\pnstart1\pnindent720\pnhang{\pntxtb (}{\pntxta');
+StreamWriteStr(RTF,')}}{\*\pnseclvl6\pnlcltr\pnstart1\pnindent720\pnhang');
+StreamWriteStr(RTF,'{\pntxtb (}{\pntxta )}}{\*\pnseclvl7\pnlcrm\pnstart1\pnindent720'+
+'\pnhang{\pntxtb (}{\pntxta');
+StreamWriteStr(RTF,')}}{\*\pnseclvl8\pnlcltr\pnstart1\pnindent720\pnhang{\pntxtb (}{\pntxta');
+StreamWriteStr(RTF,')}}{\*\pnseclvl9\pnlcrm\pnstart1\pnindent720\pnhang{\pntxtb (}{\pntxta )}}');
+
+for i:=0 to cxGridView.Controller.SelectedRowCount-1 do
+begin
+  StreamWriteStr(RTF,'\trowd');
+  StreamWriteStr(RTF,'\trgaph108');
+  StreamWriteStr(RTF,'\trrh260');
+  StreamWriteStr(RTF,'\trleft90');
+  StreamWriteStr(RTF,'\trbrdrt\brdrs\brdrw10');
+  StreamWriteStr(RTF,'\trbrdrl\brdrs\brdrw10');
+  StreamWriteStr(RTF,'\trbrdrb\brdrs\brdrw10');
+  StreamWriteStr(RTF,'\trbrdrr\brdrs\brdrw10');
+  StreamWriteStr(RTF,'\trbrdrh\brdrs\brdrw10');
+  StreamWriteStr(RTF,'\trbrdrv\brdrs\brdrw10');
+
+  for j:=0 to cxGridView.VisibleColumnCount-1 do
+  begin
+    StreamWriteStr(RTF,'\clvertalt');
+    StreamWriteStr(RTF,'\clbrdrt\brdrs\brdrw10');
+    StreamWriteStr(RTF,'\clbrdrl\brdrs\brdrw10');
+    StreamWriteStr(RTF,'\clbrdrb\brdrs\brdrw10');
+    StreamWriteStr(RTF,'\clbrdrr\brdrs\brdrw10');
+    // ¿¿¿¿¿  if (j<cxGridView.FixedCols) or (i<cxGridView.FixedRows) then StreamWriteStr(RTF,'\clcbpat8');
+
+    {if (j=0) or (i=0) then StreamWriteStr(RTF,'\clshdng1500');}
+
+    StreamWriteStr(RTF,'\cltxlrtb');
+    Temp:=(j+1)*cxGridView.VisibleColumns[j].Width;
+    Temp:=(Temp/Screen.pixelsperinch)*1440.0+108.0;
+    StreamWriteStr(RTF,'\cellx'+IntToStr(round(Temp)));
+  end;
+
+  StreamWriteStr(RTF,'\pard\ri-123\nowidctlpar\widctlpar\intbl\adjustright');
+  StreamWriteStr(RTF,' {'+FontName+FontSize+FontAttrib+FontColor+'\cgrid0');
+
+  for j:=0 to cxGridView.VisibleColumnCount-1 do
+    StreamWriteStr(RTF, cxGridView.DataController.DisplayTexts[cxGridView.Controller.SelectedRows[i].RecordIndex, cxGridView.VisibleColumns[j].Index] +'\cell ');
+  StreamWriteStr(RTF,'}');
+  StreamWriteStr(RTF,'\pard \nowidctlpar\widctlpar\intbl\adjustright {\row}');
+  end;
+
+  StreamWriteStr(RTF,'\pard\nowidctlpar\widctlpar\adjustright {');
+end;
+
+procedure TCtrlToRTF.GridToRTF(Grid:TStringGrid);
+var i,j:Integer;
+    Temp:double;
+    FontColor,FontAttrib,FontSize,FontName:String;
+begin
+FontColor:=GetRTFFontColorTableName(Grid.Font.Color);
+FontSize:=GetRTFFontSize(Grid.Font.Size);
+FontAttrib:=GetRTFFontAttrib(Grid.Font.Style);
+FontName:=GetRTFFontTableName(Grid.Font.Name);
+StreamWriteStr(RTF,'\par \pard\plain\cgrid');
+StreamWriteStr(RTF,'{\stylesheet{\nowidctlpar\widctlpar\adjustright \fs20\cgrid \snext0 Normal;}');
+StreamWriteStr(RTF,'{\*\cs10 \additive Default Paragraph Font;}}');
+StreamWriteStr(RTF,'{\*\pnseclvl1\pnucrm\pnstart1\pnindent720\pnhang{\pntxta');
+StreamWriteStr(RTF,'.}}{\*\pnseclvl2\pnucltr\pnstart1\pnindent720\pnhang');
+StreamWriteStr(RTF,'{\pntxta .}}{\*\pnseclvl3\pndec\pnstart1'+'\pnindent720\pnhang{\pntxta');
+StreamWriteStr(RTF,'.}}{\*\pnseclvl4\pnlcltr\pnstart1\pnindent720\pnhang{\pntxta');
+StreamWriteStr(RTF,')}}{\*\pnseclvl5\pndec\pnstart1\pnindent720\pnhang{\pntxtb (}{\pntxta');
+StreamWriteStr(RTF,')}}{\*\pnseclvl6\pnlcltr\pnstart1\pnindent720\pnhang');
+StreamWriteStr(RTF,'{\pntxtb (}{\pntxta )}}{\*\pnseclvl7\pnlcrm\pnstart1\pnindent720'+
+'\pnhang{\pntxtb (}{\pntxta');
+StreamWriteStr(RTF,')}}{\*\pnseclvl8\pnlcltr\pnstart1\pnindent720\pnhang{\pntxtb (}{\pntxta');
+StreamWriteStr(RTF,')}}{\*\pnseclvl9\pnlcrm\pnstart1\pnindent720\pnhang{\pntxtb (}{\pntxta )}}');
+
+for i:=0 to Grid.RowCount-1 do
+begin
+StreamWriteStr(RTF,'\trowd');
+StreamWriteStr(RTF,'\trgaph108');
+StreamWriteStr(RTF,'\trrh260');
+StreamWriteStr(RTF,'\trleft90');
+StreamWriteStr(RTF,'\trbrdrt\brdrs\brdrw10');
+StreamWriteStr(RTF,'\trbrdrl\brdrs\brdrw10');
+StreamWriteStr(RTF,'\trbrdrb\brdrs\brdrw10');
+StreamWriteStr(RTF,'\trbrdrr\brdrs\brdrw10');
+StreamWriteStr(RTF,'\trbrdrh\brdrs\brdrw10');
+StreamWriteStr(RTF,'\trbrdrv\brdrs\brdrw10');
+
+for j:=0 to Grid.ColCount-1 do
+begin
+StreamWriteStr(RTF,'\clvertalt');
+StreamWriteStr(RTF,'\clbrdrt\brdrs\brdrw10');
+StreamWriteStr(RTF,'\clbrdrl\brdrs\brdrw10');
+StreamWriteStr(RTF,'\clbrdrb\brdrs\brdrw10');
+StreamWriteStr(RTF,'\clbrdrr\brdrs\brdrw10');
+if (j<Grid.FixedCols) or (i<Grid.FixedRows) then StreamWriteStr(RTF,'\clcbpat8');
+{if (j=0) or (i=0) then StreamWriteStr(RTF,'\clshdng1500');}
+StreamWriteStr(RTF,'\cltxlrtb');
+Temp:=(j+1)*Grid.DefaultColWidth;
+Temp:=(Temp/Screen.pixelsperinch)*1440.0+108.0;
+StreamWriteStr(RTF,'\cellx'+IntToStr(round(Temp)));
+end;
+StreamWriteStr(RTF,'\pard\ri-123\nowidctlpar\widctlpar\intbl\adjustright');
+StreamWriteStr(RTF,' {'+FontName+FontSize+FontAttrib+FontColor+'\cgrid0');
+for j:=0 to Grid.ColCount-1 do
+StreamWriteStr(RTF,Grid.Cells[j,i]+'\cell ');
+StreamWriteStr(RTF,'}');
+StreamWriteStr(RTF,'\pard \nowidctlpar\widctlpar\intbl\adjustright {\row}');
+end;
+
+StreamWriteStr(RTF,'\pard\nowidctlpar\widctlpar\adjustright {');
+end;
+
+
+procedure TCtrlToRTF.ImageToRTF(Image:TImage;Alignment:TAlignment);
+type
+PtrRec = record
+Lo : Word;
+Hi : Word;
+end;
+PHugeByteArray = ^THugeByteArray;
+THugeByteArray = array[0..0] of Byte;
+function GetBigPointer(lp : pointer; Offset : LongInt) : Pointer;
+begin
+{$IFDEF WIN32}
+GetBigPointer := @PHugeByteArray(lp)^[Offset];
+{$ELSE}
+Offset := Offset + PTRREC(lp).Lo;
+GetBigPointer := Ptr(PtrRec(lp).Hi + PtrRec(Offset).Hi * SelectorInc, PtrRec(Offset).Lo);
+{$ENDIF}
+end;
+var
+hmf,hGlobal:THandle;
+i,j: integer;
+FCanvas : TCanvas;
+lpBits:pointer;
+dwSize,count:LongInt;
+Ch:char;
+h,h1,w,w1:double;
+TempBuf:PChar;
+Align:string;
+pPPoint:PPoint;
+pPSize:PSize;
+begin
+FCanvas := TCanvas.Create;
+FCanvas.Handle := CreateMetafile(nil);
+SetMapMode(FCanvas.Handle, mm_AnIsoTropic);
+{$IFDEF WIN32}
+SetWindowOrgEx(FCanvas.Handle, 0, 0, pPPoint);
+SetWindowExtEx(FCanvas.Handle, Image.Width, Image.Height, pPSize);
+{$ELSE}
+SetWindowOrg(FCanvas.Handle, 0, 0);
+SetWindowExt(FCanvas.Handle, Image.Width, Image.Height);
+{$ENDIF}
+FCanvas.StretchDraw(rect(0,0, Image.Width, Image.Height), Image.Picture.Graphic);
+hmf:=CloseMetafile(FCanvas.Handle);
+{$IFDEF WIN32}
+dwSize:=GetMetaFileBitsEx(hmf,dwSize,nil);
+GetMem(lpBits,dwSize);
+GetMetaFileBitsEx(hmf,dwSize,lpBits);
+{$ELSE}
+hGlobal := GetMetaFileBits( hmf );
+dwSize := GlobalSize(hGlobal);
+lpBits := GlobalLock( hGlobal );
+{$ENDIF}
+h:= Image.Height;
+h1:=h;
+w:= Image.Width;
+w1:=w;
+h:= (h/Screen.pixelsperinch)*1440.0;
+w:= (w/Screen.pixelsperinch)*1440.0;
+h1:=26.46875*h1;
+w1:=26.46875*w1;
+Align:=GetRTFAlignment(Alignment);
+StreamWriteStr(RTF,'\par \pard'+Align+'\plain\cgrid {\pict');
+StreamWriteStr(RTF,'\picscalex100');
+StreamWriteStr(RTF,'\picscaley100');
+StreamWriteStr(RTF,'\piccropl0');
+StreamWriteStr(RTF,'\piccropr0');
+StreamWriteStr(RTF,'\piccropt0');
+StreamWriteStr(RTF,'\piccropb0');
+StreamWriteStr(RTF,'\picw'+ inttostr(round(w1)));
+StreamWriteStr(RTF,'\pich'+ inttostr(round(h1)));
+StreamWriteStr(RTF,'\picwgoal'+inttostr(round(w)));
+StreamWriteStr(RTF,'\pichgoal'+inttostr(round(h)));
+StreamWriteStr(RTF,'\wmetafile8 \bin'+IntToStr(dwSize));
+RTF.Write(lpBits^,dwSize);
+{$IFDEF WIN32}
+FreeMem(lpBits);
+{$ELSE}
+GlobalUnLock( hGlobal );
+{$ENDIF}
+StreamWriteStr(RTF,'}');
+DeleteMetaFile(hmf);
+FCanvas.Free;
+end;
+
+procedure TCtrlToRTF.MemoToRTF(Memo:TMemo);
+var i:Integer;
+    Align, FontColor,FontAttrib,FontSize,FontName:String;
+begin
+Align:=GetRTFAlignment(Memo.Alignment);
+FontColor:=GetRTFFontColorTableName(Memo.Font.Color);
+FontSize:=GetRTFFontSize(Memo.Font.Size);
+FontAttrib:=GetRTFFontAttrib(Memo.Font.Style);
+FontName:=GetRTFFontTableName(Memo.Font.Name);
+StreamWriteStr(RTF,'\par \pard'+Align+'\plain'+FontName+FontSize+FontAttrib+FontColor);
+for i:=0 to Memo.Lines.Count-1 do
+begin
+StreamWriteStr(RTF,' \par '+Memo.Lines[i]);
+end;
+end;
+
+procedure TCtrlToRTF.LabelToRTF(pLabel:TLabel);
+var i:Integer;
+    Align, FontColor,FontAttrib,FontSize,FontName:String;
+begin
+Align:=GetRTFAlignment(pLabel.Alignment);
+FontColor:=GetRTFFontColorTableName(pLabel.Font.Color);
+FontSize:=GetRTFFontSize(pLabel.Font.Size);
+FontAttrib:=GetRTFFontAttrib(pLabel.Font.Style);
+FontName:=GetRTFFontTableName(pLabel.Font.Name);
+StreamWriteStr(RTF,'\par \pard'+Align+'\plain'+FontName+FontSize+FontAttrib+FontColor+' '+pLabel.Caption);
+end;
+
+procedure TCtrlToRTF.TextBufToRTF(TextBuf:pointer;size:word;Font:TFont;Alignment:TAlignment);
+var i:Integer;
+    Align, FontColor,FontAttrib,FontSize,FontName:String;
+begin
+Align:=GetRTFAlignment(Alignment);
+FontColor:=GetRTFFontColorTableName(Font.Color);
+FontSize:=GetRTFFontSize(Font.Size);
+FontAttrib:=GetRTFFontAttrib(Font.Style);
+FontName:=GetRTFFontTableName(Font.Name);
+StreamWriteStr(RTF,'\par \pard'+Align+'\plain'+FontName+FontSize+FontAttrib+FontColor+' \par');
+RTF.Write(TextBuf^,size);
+end;
+
+procedure TCtrlToRTF.ListBoxToRTF(pList:TListBox);
+var i:Integer;
+    FontColor,FontAttrib,FontSize,FontName:String;
+begin
+FontColor:=GetRTFFontColorTableName(pList.Font.Color);
+FontSize:=GetRTFFontSize(pList.Font.Size);
+FontAttrib:=GetRTFFontAttrib(pList.Font.Style);
+FontName:=GetRTFFontTableName(pList.Font.Name);
+StreamWriteStr(RTF,'\par \pard\plain'+FontName+FontSize+FontAttrib+FontColor);
+for i:=0 to pList.Items.Count-1 do
+begin
+StreamWriteStr(RTF,' \par '+pList.Items[i]);
+end;
+end;
+
+procedure TCtrlToRTF.StringListToRTF(pStringList:TStringList;Font:TFont;Alignment:TAlignment);
+var i:Integer;
+    Align, FontColor,FontAttrib,FontSize,FontName:String;
+begin
+Align:=GetRTFAlignment(Alignment);
+FontColor:=GetRTFFontColorTableName(Font.Color);
+FontSize:=GetRTFFontSize(Font.Size);
+FontAttrib:=GetRTFFontAttrib(Font.Style);
+FontName:=GetRTFFontTableName(Font.Name);
+StreamWriteStr(RTF,'\par \pard'+Align+'\plain'+FontName+FontSize+FontAttrib+FontColor);
+for i:=0 to pStringList.Count-1 do
+begin
+StreamWriteStr(RTF,' \par '+pStringList.strings[i]);
+end;
+end;
+
+procedure TCtrlToRTF.StringToRTF(pString:String;Font:TFont;Alignment:TAlignment);
+var Align, FontColor,FontAttrib,FontSize,FontName:String;
+begin
+Align:=GetRTFAlignment(Alignment);
+FontColor:=GetRTFFontColorTableName(Font.Color);
+FontSize:=GetRTFFontSize(Font.Size);
+FontAttrib:=GetRTFFontAttrib(Font.Style);
+FontName:=GetRTFFontTableName(Font.Name);
+StreamWriteStr(RTF,'\par \pard'+Align+'\plain'+FontName+FontSize+FontAttrib+FontColor+' '+pString);
+end;
+
+
+procedure TCtrlToRTF.EditToRTF(pEdit:TEdit);
+begin
+  StringToRTF(pEdit.Text,pEdit.Font,taLeftJustify);
+end;
+
+
+function TCtrlToRTF.GetRTFFontTableName(FontName:string):string;
+var i:Integer;
+begin
+Result := '\f0';
+for i:=0 to FontTable.Count-1 do
+begin
+if Pos(FontName,FontTable.Strings[i]) > 0 then
+begin
+Result := '\f'+IntToStr(i);
+Exit;
+end;
+end;
+end;
+
+function TCtrlToRTF.GetRTFFontAttrib(Style:TFontStyles):string;
+var retval:string;
+begin
+retval:='';
+if fsBold in Style then
+retval := retval+'\b';
+if fsItalic in Style then
+retval := retval+'\c';
+if fsUnderline in Style then
+retval := retval+'\ul';
+if fsStrikeOut in Style then
+retval := retval+'\strike';
+Result:=retval;
+end;
+
+function TCtrlToRTF.GetRTFFontSize(Size:Integer):string;
+begin
+Result:='\fs'+IntToStr(size*2);
+end;
+
+function TCtrlToRTF.GetRTF: String;
+var
+  A : TStringList;
+begin
+  StreamWriteStr(RTF,#13#10+'}}');
+  RTF.Position := 0;
+  A := TStringList.Create;
+  try
+    A.LoadFromStream(RTF);
+    Result := A.Text;
+  finally
+    FreeANDNIL(A);
+  end;
+end;
+
+function TCtrlToRTF.GetRTFAlignment(Alignment:TAlignment):string;
+var Align:String;
+begin
+if Alignment = taCenter then Align := '\qc'
+else if Alignment = taRightJustify then Align := '\qr'
+else Align:='';
+Result := Align;
+end;
+
+function TCtrlToRTF.GetRTFFontColorTableName(Color:TColor):string;
+begin
+if Color = clBlack then  Result:='\cf0'
+else if Color =clMaroon then Result:='\cf1'
+else if Color =clGreen then  Result:='\cf2'
+else if Color =clOlive then  Result:='\cf3'
+else if Color =clNavy then   Result:='\cf4'
+else if Color =clPurple then Result:='\cf5'
+else if Color =clTeal then   Result:='\cf6'
+else if Color =clGray then   Result:='\cf7'
+else if Color =clSilver then Result:='\cf8'
+else if Color =clRed then    Result:='\cf9'
+else if Color =clLime then   Result:='\cf10'
+else if Color =clYellow then Result:='\cf11'
+else if Color =clBlue then   Result:='\cf12'
+else if Color =clFuchsia then Result:='\cf13'
+else if Color =clAqua then   Result:='\cf14'
+else if Color =clWhite then  Result:='\cf15';
+end;
+
+procedure TCtrlToRTF.AddFontToTable(Font:TFont);
+var  DC: HDC;
+     SaveFont: HFont;
+     SysMetrics, Metrics: TTextMetric;
+     Temp:byte;
+I: Integer;
+charset,family:string;
+begin
+DC := GetDC(0);
+SaveFont := SelectObject(DC, Font.Handle);
+GetTextMetrics(DC, Metrics);
+SelectObject(DC, SaveFont);
+ReleaseDC(0, DC);
+for I:=0 to FontTable.Count-1 do
+begin
+if Pos(Font.Name,FontTable.Strings[i]) > 0 then
+Exit;
+end;
+case Metrics.tmCharSet of
+ANSI_CHARSET: charset:='fcharset0';
+DEFAULT_CHARSET: charset:='fcharset1';
+SYMBOL_CHARSET: charset:='fcharset2';
+SHIFTJIS_CHARSET: charset:='fcharset128';
+OEM_CHARSET: charset:='fcharset255';
+else charset:='';
+end;
+Temp:=Metrics.tmPitchAndFamily;
+Temp:= (Temp shr 4) shl 4;
+case Temp of
+FF_DECORATIVE:	family:='fdecorative';
+FF_DONTCARE:	family:='fdontcare';
+FF_MODERN:	family:='fmodern';
+FF_ROMAN:	family:='froman';
+FF_SCRIPT:	family:='fscript';
+FF_SWISS:	family:='fswiss';
+else family:='froman';
+end;
+FontTable.Add('{\f'+IntToStr(FontTable.Count)+'\'+family+'\'+charset+' '+font.name+';}');
+end;
+
+procedure TCtrlToRTF.SaveToFile(pFileName:String);
+begin
+StreamWriteStr(RTF,#13#10+'}}');
+RTF.SaveToFile(pFileName);
+end;
+
+procedure TCtrlToRTF.StreamWriteStr(var ms: TMemoryStream; s: string);
+begin
+ms.Write(s[1], Length(s));
+end;
+
+procedure Register;
+begin
+  RegisterComponents('CynapSYS', [TCtrlToRTF]);
+end;
+
+end.
+ 

Source/Base/Utiles/uGridClipboardUtils.pas

@@ -0,0 +1,518 @@
+unit uGridClipboardUtils;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxGrid;
+
+procedure PegarSeleccionGridDesdePortapapeles (AGrid : TcxGrid);
+procedure CopiarSeleccionGridAlPortapapeles (AGrid : TcxGrid);
+procedure CortarSeleccionGridAlPortapapeles (AGrid : TcxGrid);
+function HayDatosEnPortapapeles: Boolean;
+
+
+procedure CopiarGridAlPortapapelesRTF (AGrid : TcxGrid; const ASoloSeleccion : Boolean = false);
+procedure CopiarGridAlPortapapelesHTML (AGrid : TcxGrid; const ASoloSeleccion : Boolean = false);
+procedure CopiarGridAlPortapapelesTXT (AGrid : TcxGrid; const ASoloSeleccion : Boolean = false);
+procedure CopiarGridAlPortapapelesExcel (AGrid : TcxGrid; const ASoloSeleccion : Boolean = false);
+
+implementation
+
+uses
+  cxVariants, CtlToRTF, Clipbrd, DB, cxExport, cxGridExportLink, cxCustomData,
+  uSistemaFunc, ClipboardUtils, cxDBData, cxGridLevel, uStringsUtils,
+  cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
+  cxGridTableView, cxGridDBTableView, cxGridDBDataDefinitions, uGridStatusUtils;
+
+
+
+procedure RenumerarCampoPosicion(ADataSet : TDataSet);
+var
+  iContador : Integer;
+  AField : TField;
+begin
+  AField := ADataSet.FindField('POSICION');
+  if Assigned(AField) and not (ADataSet.IsEmpty) then
+  begin
+    ADataSet.Last;
+    iContador := ADataSet.RecordCount;
+    repeat
+      ADataSet.Edit;
+      AField.AsInteger := iContador - 1;
+      ADataSet.Post;
+      AdataSet.Prior;
+      iContador := iContador - 1;
+    until ADataSet.BOF;
+  end;
+end;
+
+
+{$REGION 'LoadGridRowsFromStream'}
+procedure LoadGridRowsFromStream(AView : TcxGridDBTableView; AStream: TStream;
+  var ACaption : String);
+var
+  AValueNameList: TStringList;
+  AValueTypeList: TStringList;
+  ADataSet : TDataSet;
+  ARecordID : Integer;
+  ARecordIndex : Integer;
+  bEstabaVacia : Boolean;
+
+  iContador : Integer;
+  AValueName, AValueType : String;
+  iCols, NumCols : integer;
+  NumFilas: Integer;
+  AReader: TcxReader;
+  AValue : Variant;
+  AIndex : integer;
+
+  function _BuscarColumna (const AName, ATypeValue : String; var AIndex : Integer) : Boolean;
+  var
+    i : Integer;
+    bNombreOk : Boolean;
+  begin
+    AIndex := -1;
+    Result := False;
+    for i := 0 to AView.ItemCount - 1 do
+    begin
+      bNombreOk := False;
+      if (AView.Items[i].DataBinding is TcxGridItemDBDataBinding) then
+        with (AView.Items[i].DataBinding as TcxGridItemDBDataBinding) do
+          bNombreOk := (FieldName = AName)
+      else
+        bNombreOk := (AView.Items[i].Caption = AName);
+
+      if bNombreOk and (AView.Items[i].DataBinding.ValueType = ATypeValue) then
+      begin
+        AIndex := i;
+        Result := True;
+        Break;
+      end;
+    end;
+  end;
+
+
+begin
+  if not Assigned(AView) then
+    raise Exception.Create('Vista no asignada (SaveGridViewToStream)');
+
+  if not Assigned(AStream) then
+    raise Exception.Create('Stream no asignado (SaveGridViewToStream)');
+
+  ADataSet := AView.DataController.DataSource.DataSet;
+  AReader := TcxReader.Create(AStream);
+  AValueNameList := TStringList.Create;
+  AValueTypeList := TStringList.Create;
+
+  try
+    AIndex := -1;
+    ACaption := AReader.ReadString;
+    NumCols := AReader.ReadInteger; // nº de columnas
+    for iContador := 0 to NumCols - 1 do
+    begin
+      AValueName := AReader.ReadString;
+      AValueType := AReader.ReadString;
+
+      AValueNameList.Add(AValueName);
+      AValueTypeList.Add(AValueType);
+    end;
+
+    NumFilas := AReader.ReadInteger;
+    bEstabaVacia := ADataSet.IsEmpty;
+
+    AView.DataController.BeginUpdate;
+    try
+
+      // Localizar el punto donde se empieza a insertar
+      if not bEstabaVacia then
+      begin
+        ARecordIndex := AView.DataController.FocusedRecordIndex;
+        if ARecordIndex >= 0 then
+          ARecordID := AView.DataController.GetRecordId(ARecordIndex);
+        ADataSet.Locate(AView.DataController.KeyFieldNames, ARecordID, []);
+      end;
+
+      for iContador := 0 to NumFilas - 1 do
+      begin
+        // Insertar una tupla de la forma adecuada
+        if bEstabaVacia then
+          ADataSet.Append
+        else begin
+          if iContador > 0 then
+            ADataSet.Next;
+          ADataSet.Insert;
+        end;
+
+        try
+          for iCols := 0 to NumCols - 1 do
+          begin
+            AValue := AReader.ReadVariant;
+            if (Pos(AValueNameList[iCols], AView.DataController.KeyFieldNames) = 0) then
+              if _BuscarColumna(AValueNameList[iCols], AValueTypeList[iCols], AIndex) then
+              begin
+                if AIndex <> -1 then
+                  ADataSet.FieldByName(AView.DataController.GetItemField(AIndex).FieldName).Value := AValue;
+              end;
+          end;
+        finally
+          ADataSet.Post;
+        end;
+      end;
+
+      RenumerarCampoPosicion(ADataSet);
+
+    finally
+      AView.DataController.EndUpdate;
+    end;
+  finally
+    FreeANDNIL(AReader);
+    FreeANDNIL(AValueNameList);
+    FreeANDNIL(AValueTypeList);
+  end;
+end;
+{$ENDREGION}
+
+{$REGION 'SaveGridRowsToStream'}
+procedure SaveGridRowsToStream(AView : TcxGridDBTableView; AStream: TStream;
+  const ACaption : String; const ASoloSeleccion : Boolean = false);
+var
+  AWriter: TcxWriter;
+  i, j : integer;
+  AName, AValueType : String;
+
+  procedure _CopyForEachRowProc(ARowIndex: Integer; ARowInfo: TcxRowInfo);
+  var
+    iCols: Integer;
+  begin
+    for iCols := 0 to AView.ItemCount - 1 do
+      AWriter.WriteVariant(AView.DataController.GetRowValue(ARowInfo, iCols));
+  end;
+
+begin
+  if not Assigned(AView) then
+    raise Exception.Create('Vista no asignada (SaveGridViewToStream)');
+
+  if not Assigned(AStream) then
+    raise Exception.Create('Stream no asignado (SaveGridViewToStream)');
+
+  if EsCadenaVacia(ACaption) then
+    raise Exception.Create('Etiqueta no asignada (SaveGridViewToStream)');
+
+  AWriter := TcxWriter.Create(AStream);
+  try
+    AWriter.WriteString(ACaption);
+
+    AWriter.WriteInteger(AView.ItemCount);
+    for i := 0 to AView.ItemCount - 1 do
+    begin
+      AName := '';
+      AValueType := '';
+
+      if AView.Items[i].DataBinding is TcxGridItemDBDataBinding then
+        AName := (AView.Items[i].DataBinding as TcxGridItemDBDataBinding).FieldName;
+
+      if EsCadenaVacia(AName) then
+        AName := AView.Items[i].Caption;
+
+      AValueType := AView.Items[i].DataBinding.ValueType;
+
+      AWriter.WriteString(AName);
+      AWriter.WriteString(AValueType);
+    end;
+
+    with AView.DataController do
+    begin
+      if ASoloSeleccion then
+      begin
+        AWriter.WriteInteger(GetSelectedCount);
+        for I := 0 to GetSelectedCount - 1 do
+        begin
+          J := GetSelectedRowIndex(I);
+          _CopyForEachRowProc(J, GetRowInfo(J));
+        end;
+      end
+      else begin
+        AWriter.WriteInteger(GetRowCount);
+        for I := 0 to GetRowCount - 1 do
+          _CopyForEachRowProc(I, GetRowInfo(I));
+      end;
+    end;
+  finally
+    FreeANDNIL(AWriter);
+  end;
+end;
+{$ENDREGION}
+
+
+function HTMLToClipFmt(const AHTML: string): string;
+const
+  CR = #13#10;
+  DescriptionSize = 105;
+  HeaderSize = 47;
+  FooterSize1 = 58;
+  FooterSize2 = 24;
+
+  function GetHeader: string;
+  begin
+    Result := 'Version:0.9' + CR;
+    Result := Result + Format('StartHTML:%.10d', [DescriptionSize]) + CR;
+    Result := Result + Format('EndHTML:%.10d', [DescriptionSize + HeaderSize + Length(AHTML) + FooterSize1])  + CR;
+    Result := Result + Format('StartFragment:%.10d', [DescriptionSize + HeaderSize]) + CR;
+    Result := Result + Format('EndFragment:%.10d', [DescriptionSize + HeaderSize + Length(AHTML) + FooterSize2]) + CR;
+    Result := Result + '<html>' + CR + '<head></head>' + '<body>' + '<!--StartFragment-->' + '<code><pre>';
+  end;
+
+  function GetFooter: string;
+  begin
+    Result := '</pre></code><!--EndFragment-->';
+    Result := Result + '</body>' + CR + '</html>'
+end;
+
+begin
+  Result := GetHeader + AHTML + GetFooter;
+end;
+
+function FormatHTMLClipboardHeader(HTMLText: string): string;
+{http://www.swissdelphicenter.ch/torry/showcode.php?id=1391}
+const
+  CrLf = #13#10;
+begin
+  Result := 'Version:0.9' + CrLf;
+  Result := Result + 'StartHTML:-1' + CrLf;
+  Result := Result + 'EndHTML:-1' + CrLf;
+  Result := Result + 'StartFragment:000081' + CrLf;
+  Result := Result + 'EndFragment:°°°°°°' + CrLf;
+  Result := Result + HTMLText + CrLf;
+  Result := StringReplace(Result, '°°°°°°', Format('%.6d', [Length(Result)]), []);
+end;
+
+
+procedure CopiarGridAlPortapapelesHTML (AGrid : TcxGrid; const ASoloSeleccion : Boolean = false);
+  const
+    CR = #13#10;
+    DescriptionSize = 105;
+    HeaderSize = 47;
+    FooterSize1 = 58;
+    FooterSize2 = 24;
+
+  function GetHeader(const AHTML: string): string;
+  begin
+    Result := 'Version:0.9' + CR;
+    Result := Result + Format('StartHTML:%.10d', [DescriptionSize]) + CR;
+    Result := Result + Format('EndHTML:%.10d', [DescriptionSize + HeaderSize + Length(AHTML) + FooterSize1])  + CR;
+    Result := Result + Format('StartFragment:%.10d', [DescriptionSize + HeaderSize]) + CR;
+    Result := Result + Format('EndFragment:%.10d', [DescriptionSize + HeaderSize + Length(AHTML) + FooterSize2]) + CR;
+    Result := Result + '<html>' + CR + '<head></head>' + '<body>' + '<!--StartFragment-->' + '<code><pre>';
+  end;
+
+  function GetFooter: string;
+  begin
+    Result := '</pre></code><!--EndFragment-->';
+    Result := Result + '</body>' + CR + '</html>'
+  end;
+
+var
+  AFicheroTMP : String;
+  AStringList : TStringList;
+  HTMLText : String;
+  CF_HTML : Cardinal;
+begin
+  if not Assigned(AGrid) then
+    raise Exception.Create('Vista no asignada (CopiarSeleccionGridAlPortapapelesTXT)');
+
+  AFicheroTMP := DarFicheroHTMLTemporal;
+  ExportGridToHTML(AFicheroTMP, AGrid, True, not ASoloSeleccion);
+
+  if FileExists(AFicheroTMP) then
+  begin
+    AStringList := TStringList.Create;
+    try
+      AStringList.LoadFromFile(AFicheroTMP);
+      HTMLText := AStringList.Text;
+      AStringList.Insert(0, GetHeader(HTMLText));
+      AStringList.Add(GetFooter);
+
+      CF_HTML := RegisterClipboardFormat ('HTML Format');
+      if CF_HTML = 0 then
+        raise Exception.Create('Error al registrar formato CF_HTML (CopiarSeleccionGridAlPortapapelesHTML)');
+
+      CopyStringsToClipboard(CF_HTML, AStringList);
+    finally
+      FreeANDNIL(AStringList);
+      DeleteFile(AFicheroTMP)
+    end;
+  end;
+end;
+
+procedure CopiarGridAlPortapapelesRTF (AGrid : TcxGrid; const ASoloSeleccion : Boolean = false);
+var
+  ARTFConv : TCtrlToRTF;
+  AStringList : TStringList;
+  CF_RTF : Cardinal;
+begin
+  if not Assigned(AGrid) then
+    raise Exception.Create('Grid no asignado (CopiarSeleccionGridAlPortapapelesTXT)');
+
+  ARTFConv := TCtrlToRTF.Create(NIL);
+  try
+    ARTFConv.cxGridViewToRTF(TcxGridTableView(AGrid.ActiveView));
+
+    CF_RTF := RegisterClipboardFormat('Rich Text Format');
+    if CF_RTF = 0 then
+      raise Exception.Create('Error al registrar formato CF_RTF (CopiarSeleccionGridAlPortapapelesRTF)');
+
+    AStringList := TStringList.Create;
+    try
+      AStringList.Add(ARTFConv.RTFText);
+      CopyStringsToClipboard(CF_RTF, AStringList);
+    finally
+      FreeANDNIL(AStringList);
+    end;
+  finally
+    FreeANDNIL(ARTFConv);
+  end;
+end;
+
+
+procedure CopiarGridAlPortapapelesTXT (AGrid : TcxGrid; const ASoloSeleccion : Boolean = false);
+{var
+  iFilas, iCols : Integer;}
+begin
+  if not Assigned(AGrid) then
+    raise Exception.Create('Grid no asignado (CopiarSeleccionGridAlPortapapelesTXT)');
+
+  TcxGridTableView(AGrid.ActiveView).CopyToClipboard(not ASoloSeleccion);
+
+{  for iFilas := 0 to AGrid.ActiveView.Controller.SelectedRowCount-1 do
+  begin
+    for iCols := 0 to cxGridView.VisibleColumnCount-1 do
+    begin
+
+    end;
+    StreamWriteStr(RTF, cxGridView.DataController.DisplayTexts[cxGridView.Controller.SelectedRows[i].RecordIndex, cxGridView.VisibleColumns[j].Index] +'\cell ');
+  }
+end;
+
+procedure CopiarGridAlPortapapelesExcel (AGrid : TcxGrid; const ASoloSeleccion : Boolean = false);
+var
+  AFicheroTMP : String;
+  AStream : TFileStream;
+  CF_HTML : Cardinal;
+begin
+  if not Assigned(AGrid) then
+    raise Exception.Create('Vista no asignada (CopiarSeleccionGridAlPortapapelesTXT)');
+
+  AFicheroTMP := DarFicheroExcelTemporal;
+  ExportGridToExcel(AFicheroTMP, AGrid, True, not ASoloSeleccion);
+
+  if FileExists(AFicheroTMP) then
+  begin
+    AStream := TFileStream.Create(AFicheroTMP, fmOpenRead);
+    try
+      CF_HTML := RegisterClipboardFormat ('HTML Format');
+      if CF_HTML = 0 then
+        raise Exception.Create('Error al registrar formato CF_HTML (CopiarSeleccionGridAlPortapapelesHTML)');
+
+      CopyStreamToClipboard(CF_HTML, AStream);
+    finally
+      FreeANDNIL(AStream);
+      DeleteFile(AFicheroTMP)
+    end;
+  end;
+end;
+
+
+procedure CopiarSeleccionGridAlPortapapeles (AGrid : TcxGrid);
+var
+  AMemStream : TMemoryStream;
+  CF_FACTUGES : Cardinal;
+  AGridStatus : TcxGridStatus;
+begin
+  if not Assigned(AGrid) then
+    raise Exception.Create('Grid no asignado (CopiarSeleccionGridAlPortapapelesTXT)');
+
+  AGridStatus := TcxGridStatus.Create(TcxGridDBTableView(AGrid.ActiveView));
+  Clipboard.Open;
+  try
+    CopiarGridAlPortapapelesTXT(AGrid);
+    CopiarGridAlPortapapelesRTF(AGrid);
+    CopiarGridAlPortapapelesHTML(AGrid);
+
+    AMemStream := TMemoryStream.Create;
+    try
+      SaveGridRowsToStream(TcxGridDBTableView(AGrid.ActiveView), AMemStream, AGrid.ActiveView.Name, True);
+      CF_FACTUGES := RegisterClipboardFormat ('FactuGES Format');
+      if CF_FACTUGES = 0 then
+        raise Exception.Create('Error al registrar formato CF_HTML (CopiarSeleccionGridAlPortapapelesHTML)');
+      CopyStreamToClipboard(CF_FACTUGES, AMemStream);
+    finally
+      FreeAndNil(AMemStream);
+    end;
+  finally
+    Clipboard.Close;
+    AGridStatus.Restore(TcxGridDBTableView(AGrid.ActiveView));
+    FreeAndNil(AGridStatus);
+  end;
+end;
+
+
+procedure CortarSeleccionGridAlPortapapeles (AGrid : TcxGrid);
+begin
+  ShowHourglassCursor;
+  try
+    CopiarSeleccionGridAlPortapapeles(AGrid);
+    AGrid.ActiveView.DataController.DeleteSelection;
+    RenumerarCampoPosicion(TcxGridDBTableView(AGrid.ActiveView).DataController.DataSet);
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+
+procedure PegarSeleccionGridDesdePortapapeles (AGrid : TcxGrid);
+var
+  AMemStream : TMemoryStream;
+  CF_FACTUGES : Cardinal;
+  ACaption : String;
+  AGridStatus : TcxGridStatus;
+begin
+  if not Assigned(AGrid) then
+    raise Exception.Create('Grid no asignado (PegarSeleccionGridDesdePortapapeles)');
+
+  CF_FACTUGES := RegisterClipboardFormat ('FactuGES Format');
+  if CF_FACTUGES = 0 then
+    raise Exception.Create('Error al registrar formato CF_FACTUGES (PegarSeleccionGridDesdePortapapeles)');
+
+  if not Clipboard.HasFormat(CF_FACTUGES) then
+    raise Exception.Create('No hay nada en el portapapeles');
+
+  AGridStatus := TcxGridStatus.Create(TcxGridDBTableView(AGrid.ActiveView));
+  Clipboard.Open;
+  try
+     AMemStream := TMemoryStream.Create;
+    try
+      CopyStreamFromClipboard(CF_FACTUGES, AMemStream);
+      LoadGridRowsFromStream(TcxGridDBTableView(AGrid.ActiveView), AMemStream, ACaption);
+    finally
+      FreeAndNil(AMemStream);
+    end;
+  finally
+    Clipboard.Close;
+    AGridStatus.Restore(TcxGridDBTableView(AGrid.ActiveView));
+    FreeAndNil(AGridStatus);
+  end;
+end;
+
+function HayDatosEnPortapapeles: Boolean;
+var
+  CF_FACTUGES : Cardinal;
+begin
+  CF_FACTUGES := RegisterClipboardFormat ('FactuGES Format');
+  if CF_FACTUGES = 0 then
+    raise Exception.Create('Error al registrar formato CF_FACTUGES (HayDatosEnPortapapeles)');
+
+  Result := Clipboard.HasFormat(CF_FACTUGES);
+end;
+
+end.

Source/Base/Utiles/uGridStatusUtils.pas

@@ -1,4 +1,4 @@
-unit uGridUtils;
+unit uGridStatusUtils;
 
 interface
 
@@ -56,11 +56,11 @@ procedure SeleccionarFilasDesdeGrid(const AView : TcxGridDBTableView;
 
 implementation
 
-
 uses
   uDADataTable, uDAInterfaces, cxVariants;
 
 
+{$REGION 'TRecordInfos'}
 procedure TRecordInfos.Notify(Ptr: Pointer; Action: TListNotification);
 begin
   if Action in [lnExtracted, lnDeleted] then
@@ -188,12 +188,15 @@ procedure TcxGridStatus.LoadGridViewTopFocusedRecords(AView: TcxGridDBTableView)
 var
   ARecord: TcxCustomGridRecord;
 begin
-  ARecord := FindRecordEx(AView, AFocusedRow);
+  if Assigned(AFocusedRow) then
-  if Assigned(ARecord) then
+  begin
-    ARecord.Focused := True;
+    ARecord := FindRecordEx(AView, AFocusedRow);
-  ARecord := FindRecordEx(AView, TopRow);
+    if Assigned(ARecord) then
-  if Assigned(ARecord) then
+      ARecord.Focused := True;
-    AView.Controller.TopRowIndex := ARecord.Index;
+    ARecord := FindRecordEx(AView, TopRow);
+    if Assigned(ARecord) then
+      AView.Controller.TopRowIndex := ARecord.Index;
+  end;
 end;
 
 type
@@ -289,9 +292,10 @@ begin
   finally
     AView.EndUpdate;
     AGridStatus.Restore(AView);
+    FreeANDNIL(AGridStatus);    
     HideHourglassCursor;
   end;
 end;
-
+{$ENDREGION}
 
 end.

Source/Base/Utiles/uIntegerListUtils.pas

@@ -20,7 +20,7 @@ implementation
 
 function TIntegerList.GetInteger(Index: integer): integer;
 begin
-  result := Integer(Items[index]);
+  Result := Integer(Items[index]);
 end;
 
 procedure TIntegerList.SetInteger(Index: integer; Value: integer);

Source/Base/Utiles/uRTFUtils.pas

@@ -0,0 +1,203 @@
+unit uRTFUtils;
+
+interface
+
+function RtfToText(ARTFText: String): String;
+
+implementation
+
+uses
+  Forms, Classes, SysUtils, StdCtrls, ComCtrls;
+
+
+{
+  Convert RTF enabled text to plain.
+  http://www.delphipraxis.net/topic45179.html
+}
+
+// HAY QUE LIMPIAR LA CADENA DE ENTRADA DE SALTOS DE LÍNEA (#$D#$A) POR QUE
+// SI NO, NO ES UNA CADENA CON TEXTO RTF VÁLIDO
+
+function RtfToText(ARTFText: String): String;
+const
+  SaltoLinea = #13#10; //--> #$D#$A
+var
+  aSource: string; // <- Para almacenar la cadena de entrada sin saltos de línea
+  Source: string;
+  NChar: Integer;
+
+  function ProcessGroupRecursevly: string;
+
+  function HexToInt(HexStr: String): Integer;
+  begin
+    result := StrToInt('$' + HexStr);
+  end;
+
+  procedure SkipStar;
+  var
+     BracesOpened: Integer;
+     Escaped: Boolean;
+  begin
+       BracesOpened:=1;
+       Escaped:=false;
+       while BracesOpened>0
+             do begin
+                Inc (NChar);
+                case Source [NChar] of
+                     '{': if Escaped
+                             then Escaped:=false
+                             else Inc (BracesOpened);
+                     '}': if Escaped
+                             then Escaped:=false
+                             else Dec (BracesOpened);
+                     '\': Escaped:=not Escaped;
+                     else Escaped:=false;
+                end;
+             end;
+  end;
+
+  function UnicodeCharCode2ANSIChar (aCode: LongInt): Char;
+  type
+      TUnicode2ANSITable=array [$0410..$044f] of Char;
+  const
+       Unicode2ANSITable: TUnicode2AnsiTable=('À', 'Á', 'Â', 'Ã', 'Ä', 'Å', 'Æ', 'Ç', 'È', 'É', 'Ê', 'Ë', 'Ì', 'Í', 'Î', 'Ï', 'Ð', 'Ñ', 'Ò', 'Ó', 'Ô', 'Õ', 'Ö', '×', 'Ø', 'Ù', 'Ú', 'Û', 'Ü', 'Ý', 'Þ', 'ß',
+                                               'à', 'á', 'â', 'ã', 'ä', 'å', 'æ', 'ç', 'è', 'é', 'ê', 'ë', 'ì', 'í', 'î', 'ï', 'ð', 'ñ', 'ò', 'ó', 'ô', 'õ', 'ö', '÷', 'ø', 'ù', 'ú', 'û', 'ü', 'ý', 'þ', 'ÿ');
+  begin
+       if (Low (Unicode2ANSITable)<=aCode) and (aCode<=High (Unicode2ANSITable)) then
+        UnicodeCharCode2ANSIChar:=Unicode2ANSITable [aCode]
+       else UnicodeCharCode2ANSIChar:='?';
+  end;
+
+  var
+     Control, NumericValue, TextValue: string;
+  begin
+       Result:='';
+       Inc (NChar);
+       while NChar<=Length (Source)
+             do case Source [NChar] of
+                     '{': Result:=Result+ProcessGroupRecursevly;
+                     '}': begin
+                               Inc (NChar);
+                               Break;
+                          end;
+                     '\': begin
+                               Inc (NChar);
+                               case Source [NChar] of
+                                    '''': begin
+                                               Result:=Result+Chr (HexToInt (Copy (Source, NChar+1, 2)));
+                                               Inc (NChar, 3);
+                                          end;
+                                    '~': Result:=Result+#$20;
+                                    '*': SkipStar;
+                                    'a'..'z': begin
+                                                   Control:='';
+                                                   while Source [NChar] in ['a'..'z']
+                                                         do begin
+                                                            Control:=Control+Source [NChar];
+                                                            Inc (NChar);
+                                                         end;
+                                                   if Source [NChar]='-'
+                                                      then begin
+                                                           NumericValue:=Source [NChar];
+                                                           Inc (NChar);
+                                                      end
+                                                      else NumericValue:='';
+                                                    while Source [NChar] in ['0'..'9']
+                                                          do begin
+                                                             NumericValue:=NumericValue+Source [NChar];
+                                                             Inc (NChar);
+                                                          end;
+                                                    if Source [NChar]='{'
+                                                       then ProcessGroupRecursevly;
+                                                    TextValue:='';
+                                                    if not (Source [NChar] in ['a'..'z', '{', '}', '\'])
+                                                       then begin
+                                                            Inc (NChar);
+                                                            while not (Source [NChar] in ['{', '}', '\'])
+                                                                  do begin
+                                                                     TextValue:=TextValue+Source [NChar];
+                                                                     Inc (NChar);
+                                                                  end;
+                                                       end;
+                                                    if (Control='line') or (Control='par')
+                                                       then Result:=Result+#$0D#$0A
+                                                       else if Control='tab'
+                                                               then Result:=Result+#$09
+                                                               else if Control='u'
+                                                                       then Result:=Result+UnicodeCharCode2ANSIChar (StrToInt (NumericValue))
+                                                                       else if Control='colortbl'
+                                                                               then TextValue:='';
+                                                   if Length (TextValue)>0
+                                                      then if (not ((TextValue [Length (TextValue)]=';') and (Source [NChar]='}')))
+                                                              then begin
+                                                                   Result:=Result+TextValue;
+                                                                   TextValue:='';
+                                                              end;
+                                              end;
+                                    else begin
+                                         Result:=Result+Source [NChar];
+                                         Inc (NChar);
+                                    end;
+                               end;
+                     end;
+                     else begin
+                          Result:=Result+Source [NChar];
+                          Inc (NChar);
+                     end;
+             end;
+  end;
+
+  function InitSource: Boolean;
+  var
+     BracesCount: Integer;
+     Escaped: Boolean;
+  begin
+       if Copy (aSource, 1, 5) <> '{\rtf' then
+        InitSource:=false
+       else begin
+               Source:='';
+               BracesCount:=0;
+               Escaped:=false;
+               NChar:=1;
+               while (NChar<=Length (aSource)) and (BracesCount>=0)
+                     do begin
+                        if not (aSource [NChar] in [#$0D, #$0A])
+                           then begin
+                                Source:=Source+aSource [NChar];
+                                case aSource [NChar] of
+                                     '{': if not Escaped
+                                             then Inc (BracesCount)
+                                             else Escaped:=false;
+                                     '}': if not Escaped
+                                             then Dec (BracesCount)
+                                             else Escaped:=false;
+                                     '\': Escaped:=true;
+                                     else Escaped:=false;
+                                end;
+                           end;
+                        Inc (NChar);
+                     end;
+               InitSource:=BracesCount=0;
+          end;
+  end;
+
+begin
+  // Hay que quitar el salto de línea al final de la aSource RTF
+  aSource := StringReplace(ARTFText, SaltoLinea, '', [rfReplaceAll]);
+
+  // o bien:
+  //
+  //aSource := Copy( cLinea, 1, length(cLinea)-2) );
+  
+  if InitSource then
+  begin
+    NChar:=1;
+    Result:= PChar(ProcessGroupRecursevly);
+  end
+  else
+    Result := PChar(aSource);
+end;
+
+end.
+
+

Source/Base/Utiles/uSistemaFunc.pas

@@ -33,6 +33,8 @@ function DarFicheroTemporal : String;
 function DarFicheroJPGTemporal : String;
 function DarFicheroBMPTemporal : String;
 function DarFicheroTIFFTemporal : String;
+function DarFicheroHTMLTemporal : String;
+function DarFicheroExcelTemporal : String;
 function DarFicheroWordExportar (var Fichero : String) : Boolean;
 function DarVersionFichero (Executable : String) : String;
 function DarFechaFichero (Executable : String) : String;
@@ -145,6 +147,22 @@ begin
   Result := Copy(Cadena, 0, (Length(Cadena)-3)) + 'bmp';
 end;
 
+function DarFicheroExcelTemporal : String;
+var
+  Cadena : String;
+begin
+  Cadena := DarFicheroTemporal;
+  Result := Copy(Cadena, 0, (Length(Cadena)-3)) + 'xls';
+end;
+
+function DarFicheroHTMLTemporal : String;
+var
+  Cadena : String;
+begin
+  Cadena := DarFicheroTemporal;
+  Result := Copy(Cadena, 0, (Length(Cadena)-3)) + 'html';
+end;
+
 function DarFicheroJPGTemporal : String;
 var
   Cadena : String;

Source/Cliente/FactuGES.dproj

@@ -75,42 +75,6 @@
       
       
       
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\PluginSDK_D10R.bpl">PluginSDK for Delphi 10 (Runtime)</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>

Source/GUIBase/GUIBase.dproj

@@ -58,52 +58,52 @@
     <DelphiCompile Include="GUIBase.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Base.dcp" />
+    <DCCReference Include="..\Base\Utiles\Base.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\cxLibraryD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dbrtl.dcp" />
+    <DCCReference Include="..\Base\Utiles\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxBarD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxBarD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxBarExtItemsD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxBarExtItemsD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxComnD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxComnD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxLayoutControlD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxPSCoreD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxPSCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxPScxCommonD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxPScxCommonD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxPScxGrid6LnkD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxPScxGrid6LnkD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxPsPrVwAdvD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxPsPrVwAdvD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinBlackD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxSkinBlackD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinBlueD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxSkinBlueD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinCaramelD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxSkinCaramelD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinCoffeeD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxSkinCoffeeD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinGlassOceansD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxSkinGlassOceansD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkiniMaginaryD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxSkiniMaginaryD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinLilianD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxSkinLilianD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinLiquidSkyD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxSkinLiquidSkyD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinLondonLiquidSkyD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxSkinLondonLiquidSkyD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinMcSkinD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxSkinMcSkinD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinMoneyTwinsD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxSkinMoneyTwinsD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinOffice2007BlackD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxSkinOffice2007BlackD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinOffice2007BlueD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxSkinOffice2007BlueD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinOffice2007GreenD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxSkinOffice2007GreenD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinOffice2007PinkD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxSkinOffice2007PinkD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinOffice2007SilverD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxSkinOffice2007SilverD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinsCoreD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxSkinsCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinscxPCPainterD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxSkinscxPCPainterD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinsdxLCPainterD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxSkinsdxLCPainterD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinSilverD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxSkinSilverD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinStardustD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxSkinStardustD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinValentineD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxSkinValentineD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinXmas2008BlueD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxSkinXmas2008BlueD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxThemeD11.dcp" />
+    <DCCReference Include="..\Base\Utiles\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\frx11.dcp" />
+    <DCCReference Include="..\Base\Utiles\frx11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\frxe11.dcp" />
+    <DCCReference Include="..\Base\Utiles\frxe11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\fs11.dcp" />
+    <DCCReference Include="..\Base\Utiles\fs11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JvAppFrmD11R.dcp" />
+    <DCCReference Include="..\Base\Utiles\JvAppFrmD11R.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Base\Utiles\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\rtl.dcp" />
+    <DCCReference Include="..\Base\Utiles\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\vcl.dcp" />
+    <DCCReference Include="..\Base\Utiles\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\vcldb.dcp" />
+    <DCCReference Include="..\Base\Utiles\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\vcljpg.dcp" />
+    <DCCReference Include="..\Base\Utiles\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\vclx.dcp" />
+    <DCCReference Include="..\Base\Utiles\vclx.dcp" />
     <DCCReference Include="uDialogBase.pas">
       <Form>fDialogBase</Form>
     </DCCReference>

Source/GUIBase/uEditorDBItem.dfm

@@ -47,10 +47,6 @@ inherited fEditorDBItem: TfEditorDBItem
     TabOrder = 2
     object pagGeneral: TTabSheet
       Caption = 'General'
-      ExplicitLeft = 0
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 0
     end
   end
   inherited StatusBar: TJvStatusBar

Source/GUIBase/uViewDetallesBase.dfm

@@ -10,7 +10,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
     Left = 0
     Top = 0
     Width = 451
-    Height = 68
+    Height = 73
     AutoSize = True
     ButtonWidth = 141
     Caption = 'ToolBar1'
@@ -42,30 +42,29 @@ inherited frViewDetallesBase: TfrViewDetallesBase
       Top = 0
       Action = actSubir
       AutoSize = True
-      Wrap = True
     end
     object ToolButton4: TToolButton
-      Left = 0
+      Left = 184
-      Top = 22
+      Top = 0
       Action = actBajar
       AutoSize = True
     end
     object ToolButton14: TToolButton
-      Left = 56
+      Left = 240
-      Top = 22
+      Top = 0
       Action = FontEdit1
       AutoSize = True
       Wrap = True
     end
     object FontName: TJvFontComboBox
       Left = 0
-      Top = 44
+      Top = 22
       Width = 145
       Height = 22
       DroppedDownWidth = 145
       MaxMRUCount = 0
       FontName = 'Tahoma'
-      ItemIndex = 42
+      ItemIndex = 43
       Options = [foTrueTypeOnly, foNoOEMFonts, foScalableOnly, foWysiWyg]
       Sorted = True
       TabOrder = 2
@@ -75,7 +74,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
     end
     object FontSize: TEdit
       Left = 145
-      Top = 44
+      Top = 22
       Width = 26
       Height = 22
       Hint = 'Font Size|Select font size'
@@ -86,7 +85,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
     end
     object UpDown1: TUpDown
       Left = 171
-      Top = 44
+      Top = 22
       Width = 16
       Height = 22
       Associate = FontSize
@@ -95,7 +94,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
     end
     object ToolButton13: TToolButton
       Left = 187
-      Top = 44
+      Top = 22
       Width = 8
       Caption = 'ToolButton13'
       ImageIndex = 10
@@ -103,64 +102,62 @@ inherited frViewDetallesBase: TfrViewDetallesBase
     end
     object ToolButton6: TToolButton
       Left = 195
-      Top = 44
+      Top = 22
       Action = RichEditBold1
       AutoSize = True
     end
     object ToolButton7: TToolButton
       Left = 261
-      Top = 44
+      Top = 22
       Action = RichEditItalic1
       AutoSize = True
     end
     object ToolButton8: TToolButton
       Left = 328
-      Top = 44
+      Top = 22
       Action = RichEditUnderline1
       AutoSize = True
     end
     object ToolButton12: TToolButton
-      Left = 411
+      Left = 0
-      Top = 44
+      Top = 22
       Width = 8
       Caption = 'ToolButton12'
       ImageIndex = 10
+      Wrap = True
       Style = tbsSeparator
     end
     object ToolButton9: TToolButton
-      Left = 419
+      Left = 0
-      Top = 44
+      Top = 52
       Action = RichEditAlignLeft1
       AutoSize = True
     end
     object ToolButton10: TToolButton
-      Left = 564
+      Left = 145
-      Top = 44
+      Top = 52
       Action = RichEditAlignCenter1
       AutoSize = True
     end
     object ToolButton11: TToolButton
-      Left = 689
+      Left = 270
-      Top = 44
+      Top = 52
       Action = RichEditAlignRight1
       AutoSize = True
     end
   end
   object cxGrid: TcxGrid
     Left = 0
-    Top = 94
+    Top = 99
     Width = 451
-    Height = 210
+    Height = 205
     Align = alClient
     TabOrder = 1
     LookAndFeel.Kind = lfStandard
     LookAndFeel.NativeStyle = True
-    ExplicitTop = 99
-    ExplicitHeight = 205
     object cxGridView: TcxGridDBTableView
       NavigatorButtons.ConfirmDelete = False
       FilterBox.Visible = fvNever
-      OnCustomDrawCell = cxGridViewCustomDrawCell
       OnEditing = cxGridViewEditing
       OnEditKeyDown = cxGridViewEditKeyDown
       OnEditValueChanged = cxGridViewEditValueChanged
@@ -176,11 +173,10 @@ inherited frViewDetallesBase: TfrViewDetallesBase
           Kind = skSum
         end>
       DataController.Summary.SummaryGroups = <>
-      OptionsBehavior.AlwaysShowEditor = True
       OptionsBehavior.CellHints = True
+      OptionsBehavior.CopyCaptionsToClipboard = False
       OptionsBehavior.FocusCellOnTab = True
       OptionsBehavior.GoToNextCellOnEnter = True
-      OptionsBehavior.BestFitMaxRecordCount = 20
       OptionsBehavior.FocusCellOnCycle = True
       OptionsCustomize.ColumnFiltering = False
       OptionsCustomize.ColumnGrouping = False
@@ -193,6 +189,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
       OptionsSelection.MultiSelect = True
       OptionsSelection.UnselectFocusedRecordOnExit = False
       OptionsView.CellEndEllipsis = True
+      OptionsView.NoDataToDisplayInfoText = '<No hay datos>'
       OptionsView.CellAutoHeight = True
       OptionsView.ColumnAutoWidth = True
       OptionsView.GridLineColor = cl3DLight
@@ -331,12 +328,11 @@ inherited frViewDetallesBase: TfrViewDetallesBase
   end
   object TBXDock1: TTBXDock
     Left = 0
-    Top = 68
+    Top = 73
     Width = 451
     Height = 26
     BackgroundOnToolbars = False
     UseParentBackground = True
-    ExplicitTop = 73
     object TBXToolbar1: TTBXToolbar
       Left = 0
       Top = 0
@@ -526,14 +522,20 @@ inherited frViewDetallesBase: TfrViewDetallesBase
     object actDetallesCortar: TAction
       Category = 'Editar'
       Caption = 'Cortar'
+      OnExecute = actDetallesCortarExecute
+      OnUpdate = actDetallesCortarUpdate
     end
     object actDetallesCopiar: TAction
       Category = 'Editar'
       Caption = 'Copiar'
+      OnExecute = actDetallesCopiarExecute
+      OnUpdate = actDetallesCopiarUpdate
     end
     object actDetallesPegar: TAction
       Category = 'Editar'
       Caption = 'Pegar'
+      OnExecute = actDetallesPegarExecute
+      OnUpdate = actDetallesPegarUpdate
     end
     object actAnadirCapitulo: TAction
       Category = 'Operaciones'
@@ -563,6 +565,16 @@ inherited frViewDetallesBase: TfrViewDetallesBase
       OnExecute = actAnadirDescuentoExecute
       OnUpdate = actAnadirDescuentoUpdate
     end
+    object actExportar: TAction
+      Category = 'Editar'
+      Caption = 'Exportar a Microsoft Excel'
+    end
+    object actSeleccionarTodo: TAction
+      Category = 'Editar'
+      Caption = 'Seleccionar todo'
+      OnExecute = actSeleccionarTodoExecute
+      OnUpdate = actSeleccionarTodoUpdate
+    end
   end
   object DADataSource: TDADataSource
     Left = 8
@@ -944,19 +956,31 @@ inherited frViewDetallesBase: TfrViewDetallesBase
     PopupMenus = <
       item
         GridView = cxGridView
-        HitTypes = [gvhtCell]
+        HitTypes = [gvhtNone, gvhtCell, gvhtRecord, gvhtRowIndicator]
         Index = 0
-      end
+        PopupMenu = GridGeneralPopupMenu
-      item
-        HitTypes = []
-        Index = 1
       end>
     Left = 112
     Top = 136
   end
-  object GridIndicatorPopupMenu: TPopupMenu
+  object GridGeneralPopupMenu: TPopupMenu
     Left = 144
     Top = 136
+    object Copiar1: TMenuItem
+      Action = actDetallesCortar
+    end
+    object Copiar2: TMenuItem
+      Action = actDetallesCopiar
+    end
+    object Pegar1: TMenuItem
+      Action = actDetallesPegar
+    end
+    object N3: TMenuItem
+      Caption = '-'
+    end
+    object Aadir2: TMenuItem
+      Action = actAnadir
+    end
     object Eliminar1: TMenuItem
       Action = actEliminar
     end
@@ -969,5 +993,17 @@ inherited frViewDetallesBase: TfrViewDetallesBase
     object Bajar1: TMenuItem
       Action = actBajar
     end
+    object N4: TMenuItem
+      Caption = '-'
+    end
+    object Seleccionartodo1: TMenuItem
+      Action = actSeleccionarTodo
+    end
+    object Anchoautomtico2: TMenuItem
+      Action = actAnchoAutomatico
+    end
+    object ExportaraMicrosoftExcel1: TMenuItem
+      Action = actExportar
+    end
   end
 end

Source/GUIBase/uViewDetallesBase.pas

@@ -9,7 +9,8 @@ uses
   uDADataTable, cxGridLevel, cxClasses, cxControls, cxGridCustomView,
   cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ImgList,
   PngImageList, cxGrid, cxImageComboBox, cxTextEdit, cxMaskEdit, cxCheckBox,
-  uGridUtils, uControllerDetallesBase, cxCurrencyEdit, ExtCtrls, Grids, DBGrids, StdCtrls,
+  uGridStatusUtils, uControllerDetallesBase, cxCurrencyEdit,
+  ExtCtrls, Grids, DBGrids, StdCtrls,
   ExtActns, StdActns, cxRichEdit, JvExStdCtrls, JvCombobox, JvColorCombo,
   TB2Item, TBX, TB2Dock, TB2Toolbar, uDAInterfaces, dxSkinsCore, dxSkinBlack,
   dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary,
@@ -27,9 +28,14 @@ type
     procedure ContraerTodo;
     procedure AjustarAncho;
 
+    procedure GotoFirst;
+    procedure GotoLast;
+
     procedure SaveGridStatus;
     procedure RestoreGridStatus;
 
+    procedure SeleccionarTodo;
+
     procedure BeginUpdate;
     procedure EndUpdate;
 
@@ -128,11 +134,22 @@ type
     TBXItem16: TTBXItem;
     TBXSeparatorItem7: TTBXSeparatorItem;
     cxGridPopupMenu: TcxGridPopupMenu;
-    GridIndicatorPopupMenu: TPopupMenu;
+    GridGeneralPopupMenu: TPopupMenu;
     dsds1: TMenuItem;
     Bajar1: TMenuItem;
     Eliminar1: TMenuItem;
     N1: TMenuItem;
+    Copiar1: TMenuItem;
+    Copiar2: TMenuItem;
+    Pegar1: TMenuItem;
+    N3: TMenuItem;
+    Aadir2: TMenuItem;
+    N4: TMenuItem;
+    Anchoautomtico2: TMenuItem;
+    actExportar: TAction;
+    ExportaraMicrosoftExcel1: TMenuItem;
+    actSeleccionarTodo: TAction;
+    Seleccionartodo1: TMenuItem;
     procedure actAnadirExecute(Sender: TObject);
     procedure actEliminarExecute(Sender: TObject);
     procedure actSubirExecute(Sender: TObject);
@@ -165,9 +182,6 @@ type
     procedure TBXItem13Click(Sender: TObject);
     procedure actAnchoAutomaticoExecute(Sender: TObject);
     procedure actAnchoAutomaticoUpdate(Sender: TObject);
-    procedure cxGridViewCustomDrawCell(Sender: TcxCustomGridTableView;
-      ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
-      var ADone: Boolean);
     procedure actAnadirCapituloUpdate(Sender: TObject);
     procedure actAnadirTituloUpdate(Sender: TObject);
     procedure actAnadirSubtotalUpdate(Sender: TObject);
@@ -176,6 +190,14 @@ type
     procedure actAnadirTituloExecute(Sender: TObject);
     procedure actAnadirSubtotalExecute(Sender: TObject);
     procedure actAnadirDescuentoExecute(Sender: TObject);
+    procedure actDetallesCopiarExecute(Sender: TObject);
+    procedure actDetallesCopiarUpdate(Sender: TObject);
+    procedure actDetallesPegarExecute(Sender: TObject);
+    procedure actSeleccionarTodoExecute(Sender: TObject);
+    procedure actSeleccionarTodoUpdate(Sender: TObject);
+    procedure actDetallesPegarUpdate(Sender: TObject);
+    procedure actDetallesCortarExecute(Sender: TObject);
+    procedure actDetallesCortarUpdate(Sender: TObject);
   private
     FController : IControllerDetallesBase;
     FDetalles: IDAStronglyTypedDataTable;
@@ -190,9 +212,8 @@ type
     function GetDetalles: IDAStronglyTypedDataTable;
     procedure SetDetalles(const Value: IDAStronglyTypedDataTable);
 
-    function darPosicionCAMPO(const Nombre:String): Integer;
+    function DarPosicionCAMPO(const Nombre:String): Integer;
-    function darListaSeleccionados: TIntegerArray;
+    function DarListaSeleccionados: TIntegerArray;
-
   protected
     function HayQueRecalcular(AItem: TcxCustomGridTableItem): Boolean; virtual;
     function EsTipoEditable(AItem: TcxCustomGridTableItem): Boolean; virtual;
@@ -200,9 +221,11 @@ type
     function DarFuentePorDefecto(const ATipo : String = TIPO_DETALLE_CONCEPTO): TFont; virtual;
     function GetFocusedView : TcxGridDBTableView; virtual;
     function GetGrid : TcxGrid; virtual;
-    procedure SeleccionarRowActual;
+    procedure SeleccionarFilaActual;
 
   public
+    procedure GotoFirst;
+    procedure GotoLast;
     procedure BeginUpdate;
     procedure EndUpdate;
     procedure SaveGridStatus;
@@ -210,20 +233,20 @@ type
     procedure ExpandirTodo;
     procedure ContraerTodo;
     procedure AjustarAncho;
-    function IsEmpty : Boolean;     
+    procedure SeleccionarTodo;
+    function IsEmpty : Boolean;
     destructor Destroy; override;
     property _FocusedView : TcxGridDBTableView read GetFocusedView;
     property _Grid : TcxGrid read GetGrid;
     property Controller: IControllerDetallesBase read GetController write SetController;
     property Detalles: IDAStronglyTypedDataTable read GetDetalles write SetDetalles;
-
   end;
 
 implementation
 {$R *.dfm}
 
 uses
-  uDMBase, uCalculosUtils, dxOffice11;
+  uDMBase, uCalculosUtils, dxOffice11, uSistemaFunc, uGridClipboardUtils;
 
 function EnumFontsProc(var LogFont: TLogFont; var TextMetric: TTextMetric;
   FontType: Integer; Data: Pointer): Integer; stdcall;
@@ -239,29 +262,29 @@ var
 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;
+  bEsMultiSelect := _FocusedView.OptionsSelection.MultiSelect;
   if bEsMultiSelect then
-    cxGridView.OptionsSelection.MultiSelect := False;
+    _FocusedView.OptionsSelection.MultiSelect := False;
 
-  cxGridView.BeginUpdate;
+  _FocusedView.BeginUpdate;
   try
-    if cxGridView.Controller.EditingController.IsEditing then
+    if _FocusedView.Controller.EditingController.IsEditing then
-       cxGridView.Controller.EditingController.Edit.PostEditValue;
+       _FocusedView.Controller.EditingController.Edit.PostEditValue;
 
     if Assigned(Controller) and Assigned(FDetalles) then
     begin
-        Controller.add(FDetalles, TIPO_DETALLE_TITULO);
+        Controller.Add(FDetalles, TIPO_DETALLE_TITULO);
-        Controller.add(FDetalles, TIPO_DETALLE_CONCEPTO);
+        Controller.Add(FDetalles, TIPO_DETALLE_CONCEPTO);
-        Controller.add(FDetalles, TIPO_DETALLE_CONCEPTO);
+        Controller.Add(FDetalles, TIPO_DETALLE_CONCEPTO);
-        Controller.add(FDetalles, TIPO_DETALLE_SUBTOTAL);
+        Controller.Add(FDetalles, TIPO_DETALLE_SUBTOTAL);
 //        Controller.add(FDetalles, TIPO_DETALLE_DESCUENTO);
     end;
   finally
-    cxGridView.EndUpdate;
+    _FocusedView.EndUpdate;
 
     // Dejo la propiedad MultiSelect como estaba
     if bEsMultiSelect then
-       cxGridView.OptionsSelection.MultiSelect := bEsMultiSelect;
+       _FocusedView.OptionsSelection.MultiSelect := bEsMultiSelect;
   end;
 end;
 
@@ -279,22 +302,21 @@ begin
   // el registro actual y no el nuevo registro que voy a añadir
   bEsMultiSelect := cxGridView.OptionsSelection.MultiSelect;
   if bEsMultiSelect then
-    cxGridView.OptionsSelection.MultiSelect := False;
+    _FocusedView.OptionsSelection.MultiSelect := False;
 
-  cxGridView.BeginUpdate;
+  _FocusedView.BeginUpdate;
   try
-    if cxGridView.Controller.EditingController.IsEditing then
+    if _FocusedView.Controller.EditingController.IsEditing then
-       cxGridView.Controller.EditingController.Edit.PostEditValue;
+       _FocusedView.Controller.EditingController.Edit.PostEditValue;
 
-    if Assigned(Controller)
+    if Assigned(Controller) and Assigned(FDetalles) then
-    and Assigned(FDetalles) then
+        Controller.Add(FDetalles, TIPO_DETALLE_DESCUENTO);
-        Controller.add(FDetalles, TIPO_DETALLE_DESCUENTO);
   finally
-    cxGridView.EndUpdate;
+    _FocusedView.EndUpdate;
 
     // Dejo la propiedad MultiSelect como estaba
     if bEsMultiSelect then
-       cxGridView.OptionsSelection.MultiSelect := bEsMultiSelect;
+       _FocusedView.OptionsSelection.MultiSelect := bEsMultiSelect;
   end;
 end;
 
@@ -312,21 +334,21 @@ begin
   // el registro actual y no el nuevo registro que voy a añadir
   bEsMultiSelect := cxGridView.OptionsSelection.MultiSelect;
   if bEsMultiSelect then
-    cxGridView.OptionsSelection.MultiSelect := False;
+    _FocusedView.OptionsSelection.MultiSelect := False;
 
-  cxGridView.BeginUpdate;
+  _FocusedView.BeginUpdate;
   try
-    if cxGridView.Controller.EditingController.IsEditing then
+    if _FocusedView.Controller.EditingController.IsEditing then
-       cxGridView.Controller.EditingController.Edit.PostEditValue;
+       _FocusedView.Controller.EditingController.Edit.PostEditValue;
 
     if Assigned(Controller) and Assigned(FDetalles) then
       Controller.Add(FDetalles, TIPO_DETALLE_CONCEPTO);
   finally
-    cxGridView.EndUpdate;
+    _FocusedView.EndUpdate;
 
     // Dejo la propiedad MultiSelect como estaba
     if bEsMultiSelect then
-       cxGridView.OptionsSelection.MultiSelect := bEsMultiSelect;
+       _FocusedView.OptionsSelection.MultiSelect := bEsMultiSelect;
   end;
 end;
 
@@ -338,21 +360,21 @@ begin
   // el registro actual y no el nuevo registro que voy a añadir
   bEsMultiSelect := cxGridView.OptionsSelection.MultiSelect;
   if bEsMultiSelect then
-    cxGridView.OptionsSelection.MultiSelect := False;
+    _FocusedView.OptionsSelection.MultiSelect := False;
 
-  cxGridView.BeginUpdate;
+  _FocusedView.BeginUpdate;
   try
-    if cxGridView.Controller.EditingController.IsEditing then
+    if _FocusedView.Controller.EditingController.IsEditing then
-       cxGridView.Controller.EditingController.Edit.PostEditValue;
+       _FocusedView.Controller.EditingController.Edit.PostEditValue;
 
     if Assigned(Controller) and Assigned(FDetalles) then
-        Controller.add(FDetalles, TIPO_DETALLE_SUBTOTAL);
+        Controller.Add(FDetalles, TIPO_DETALLE_SUBTOTAL);
   finally
-    cxGridView.EndUpdate;
+    _FocusedView.EndUpdate;
 
     // Dejo la propiedad MultiSelect como estaba
     if bEsMultiSelect then
-       cxGridView.OptionsSelection.MultiSelect := bEsMultiSelect;
+       _FocusedView.OptionsSelection.MultiSelect := bEsMultiSelect;
   end;
 end;
 
@@ -372,19 +394,19 @@ begin
   if bEsMultiSelect then
     cxGridView.OptionsSelection.MultiSelect := False;
 
-  cxGridView.BeginUpdate;
+  _FocusedView.BeginUpdate;
   try
-    if cxGridView.Controller.EditingController.IsEditing then
+    if _FocusedView.Controller.EditingController.IsEditing then
-       cxGridView.Controller.EditingController.Edit.PostEditValue;
+       _FocusedView.Controller.EditingController.Edit.PostEditValue;
 
     if Assigned(Controller) and Assigned(FDetalles) then
-        Controller.add(FDetalles, TIPO_DETALLE_TITULO);
+        Controller.Add(FDetalles, TIPO_DETALLE_TITULO);
   finally
-    cxGridView.EndUpdate;
+    _FocusedView.EndUpdate;
 
     // Dejo la propiedad MultiSelect como estaba
     if bEsMultiSelect then
-       cxGridView.OptionsSelection.MultiSelect := bEsMultiSelect;
+       _FocusedView.OptionsSelection.MultiSelect := bEsMultiSelect;
   end;
 end;
 
@@ -399,17 +421,16 @@ var
   AuxTop, AuxRow:Integer;
 
 begin
-  cxGridView.BeginUpdate;
+  _FocusedView.BeginUpdate;
   try
-    if Assigned(Controller)
+    if Assigned(Controller) and Assigned(FDetalles) then
-    and Assigned(FDetalles) then
     begin
       AuxTop := cxGridView.Controller.TopRowIndex;
       AuxRow := cxGridView.DataController.FocusedRowIndex;
 
-      Controller.delete(FDetalles, darListaSeleccionados);
+      Controller.Delete(FDetalles, darListaSeleccionados);
 
-      if(FDetalles.RecordCount > 0) then
+      if (FDetalles.RecordCount > 0) then
       begin
         //Selecciona en el grid el registro siguiente
         if (AuxRow < cxGridView.DataController.RowCount-1) then
@@ -417,15 +438,15 @@ begin
         else
            Dec(AuxRow);
 
-        cxGridView.DataController.SelectRows(AuxRow,AuxRow);
+        _FocusedView.DataController.SelectRows(AuxRow,AuxRow);
-        cxGridView.Controller.TopRowIndex := AuxTop;
+        _FocusedView.Controller.TopRowIndex := AuxTop;
       end;
     end
   finally
-    cxGridView.EndUpdate;
+    _FocusedView.EndUpdate;
   end;
 
-  SeleccionarRowActual;
+  SeleccionarFilaActual;
 end;
 
 procedure TfrViewDetallesBase.actEliminarUpdate(Sender: TObject);
@@ -440,11 +461,11 @@ end;
 procedure TfrViewDetallesBase.actSubirUpdate(Sender: TObject);
 begin
   inherited;
-  if not Assigned(cxGridView.Controller.FocusedRow) then
+  if not Assigned(_FocusedView.Controller.FocusedRow) then
     (Sender as TAction).Enabled := False
   else
     (Sender as TAction).Enabled := (not ReadOnly)
-                                   and (not cxGridView.Controller.FocusedRow.IsFirst)
+                                   and (not _FocusedView.Controller.FocusedRow.IsFirst)
 end;
 
 procedure TfrViewDetallesBase.AjustarAncho;
@@ -510,63 +531,6 @@ begin
   CurEdit := Nil;
 end;
 
-procedure TfrViewDetallesBase.cxGridViewCustomDrawCell(
-  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
-  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
-{var
-   R : TRect;
-   sVal : String ;
-   iFlag : Integer ;}
-begin
-{   R := AViewInfo.Bounds;
-   FillGradientRect(ACanvas.Handle, R, clWindow, AViewInfo.EditViewInfo.BackgroundColor, False);
-   if AViewInfo.GridRecord.Values[TcxGridDBColumn(AViewInfo.Item).Index] <> Null then
-   begin
-      sVal := AViewInfo.GridRecord.Values[TcxGridDBColumn(AViewInfo.Item).Index];
-      Dec(R.Right);
-      Inc(R.Left);
-      case TcxGridDBColumn(AViewInfo.Item).HeaderAlignmentHorz Of
-        taLeftJustify: iFlag := cxAlignLeft ;
-        taRightJustify: iFlag := cxAlignRight ;
-        taCenter: iFlag := cxAlignCenter ;
-      end;}
-      {// Draw text transparently
-      ACanvas.Brush.Style := bsClear ;
-      ACanvas.DrawTexT(sVal, r, cxAlignVCenter or iFlag);}
-//   end;
-   //ADone := True ;
-end;
-
-
-{var
-  ATipo : String;
-begin
-  inherited;
-
-  if not AViewInfo.Selected then
-  begin
-
-  end;
-
-  ATipo := DarTipoConcepto(AViewInfo.GridRecord);
-  if (ATipo = TIPO_DETALLE_SUBTOTAL) and
-     not (AViewInfo.Item.Index in [cxGridViewTIPO.Index, cxGridViewVISIBLE.Index]) then
-  begin
-      AViewInfo.EditViewInfo.Paint(ACanvas);
-      AViewInfo.Item.Focused
-      if not AViewInfo.Item.FocusWithSelection then
-        FillGradientRect(ACanvas.Handle, AViewInfo.Bounds, clWindow, AViewInfo.EditViewInfo.BackgroundColor, False);
-      ACanvas.DrawComplexFrame(AViewInfo.Bounds, clBtnShadow, clBtnShadow, [bTop], 1);
-      ADone := True;
-  end
-  else begin
-      AViewInfo.EditViewInfo.Paint(ACanvas);
-      if not AViewInfo.Item.FocusWithSelection then
-        FillGradientRect(ACanvas.Handle, AViewInfo.Bounds, clWindow, AViewInfo.EditViewInfo.BackgroundColor, False);
-      ADone := True;
-  end;
-end;}
-
 procedure TfrViewDetallesBase.cxGridViewEditing(Sender: TcxCustomGridTableView;
   AItem: TcxCustomGridTableItem; var AAllow: Boolean);
 begin
@@ -867,6 +831,18 @@ begin
   Result := cxGrid;
 end;
 
+procedure TfrViewDetallesBase.GotoFirst;
+begin
+  if Assigned(_FocusedView) then
+    _FocusedView.DataController.GotoFirst;
+end;
+
+procedure TfrViewDetallesBase.GotoLast;
+begin
+  if Assigned(_FocusedView) then
+    _FocusedView.DataController.GotoLast;
+end;
+
 function TfrViewDetallesBase.HayQueRecalcular(AItem: TcxCustomGridTableItem): Boolean;
 begin
   Result := (AItem = cxGridViewTIPO)
@@ -906,7 +882,7 @@ begin
     FGridStatus := TcxGridStatus.Create(_FocusedView);
 end;
 
-procedure TfrViewDetallesBase.SeleccionarRowActual;
+procedure TfrViewDetallesBase.SeleccionarFilaActual;
 begin
   //Quitamos lo que hubiera seleccionado
   cxGrid.ActiveView.DataController.ClearSelection;
@@ -915,6 +891,14 @@ begin
           SelectRows(GetFocusedRowIndex,GetFocusedRowIndex);
 end;
 
+procedure TfrViewDetallesBase.SeleccionarTodo;
+begin
+  if Assigned(_FocusedView) then
+  begin
+    _FocusedView.Controller.SelectAll;
+  end;
+end;
+
 procedure TfrViewDetallesBase.SetController(const Value: IControllerDetallesBase);
 var
   AListaValores : TStringList;
@@ -969,9 +953,8 @@ end;
 procedure TfrViewDetallesBase.TBXItem13Click(Sender: TObject);
 begin
   inherited;
-    if cxGridView.Controller.EditingController.IsEditing then
+    if _FocusedView.Controller.EditingController.IsEditing then
-       cxGridView.Controller.EditingController.Edit.PostEditValue;
+       _FocusedView.Controller.EditingController.Edit.PostEditValue;
-
 end;
 
 procedure TfrViewDetallesBase.actAnadirUpdate(Sender: TObject);
@@ -983,7 +966,7 @@ end;
 procedure TfrViewDetallesBase.actAnchoAutomaticoExecute(Sender: TObject);
 begin
   inherited;
-  cxGridView.ApplyBestFit;
+  AjustarAncho
 end;
 
 procedure TfrViewDetallesBase.actAnchoAutomaticoUpdate(Sender: TObject);
@@ -994,16 +977,15 @@ end;
 
 procedure TfrViewDetallesBase.actBajarExecute(Sender: TObject);
 begin
-  cxGridView.BeginUpdate;
+  _FocusedView.BeginUpdate;
   try
-    if cxGridView.Controller.EditingController.IsEditing then
+    if _FocusedView.Controller.EditingController.IsEditing then
-       cxGridView.Controller.EditingController.Edit.PostEditValue;
+       _FocusedView.Controller.EditingController.Edit.PostEditValue;
 
-    if Assigned(Controller)
+    if Assigned(Controller) and Assigned(FDetalles) then
-    and Assigned(FDetalles) then
        Controller.move(FDetalles, darListaSeleccionados, 1);
   finally
-    cxGridView.EndUpdate;
+    _FocusedView.EndUpdate;
   end;
 end;
 
@@ -1017,17 +999,81 @@ begin
                                    and (not cxGridView.Controller.FocusedRow.IsLast)
 end;
 
+procedure TfrViewDetallesBase.actDetallesCopiarExecute(Sender: TObject);
+begin
+  ShowHourglassCursor;
+  try
+    CopiarSeleccionGridAlPortapapeles(_Grid);
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+procedure TfrViewDetallesBase.actDetallesCopiarUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Enabled := Assigned(cxGridView.Controller.FocusedRow)
+end;
+
+procedure TfrViewDetallesBase.actDetallesCortarExecute(Sender: TObject);
+begin
+  ShowHourglassCursor;
+  try
+    CortarSeleccionGridAlPortapapeles(_Grid);
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+procedure TfrViewDetallesBase.actDetallesCortarUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Enabled := Assigned(cxGridView.Controller.FocusedRow)
+end;
+
+procedure TfrViewDetallesBase.actDetallesPegarExecute(Sender: TObject);
+var
+  i : Integer;
+  AIndex : Integer;
+  ADataSet : TDataSet;
+begin
+  ShowHourglassCursor;
+  try
+    PegarSeleccionGridDesdePortapapeles(_Grid);
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+procedure TfrViewDetallesBase.actDetallesPegarUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Enabled := HayDatosEnPortapapeles;
+end;
+
+procedure TfrViewDetallesBase.actSeleccionarTodoExecute(Sender: TObject);
+begin
+  inherited;
+  SeleccionarTodo;
+end;
+
+procedure TfrViewDetallesBase.actSeleccionarTodoUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Enabled := Assigned(DADataSource.DataTable);
+end;
+
 procedure TfrViewDetallesBase.actSubirExecute(Sender: TObject);
 begin
-  cxGridView.BeginUpdate;
+  _FocusedView.BeginUpdate;
   try
-    if cxGridView.Controller.EditingController.IsEditing then
+    if _FocusedView.Controller.EditingController.IsEditing then
-       cxGridView.Controller.EditingController.Edit.PostEditValue;
+       _FocusedView.Controller.EditingController.Edit.PostEditValue;
 
     if Assigned(Controller) and Assigned(FDetalles) then
       Controller.Move(FDetalles, DarListaSeleccionados, -1);
   finally
-    cxGridView.EndUpdate;
+    _FocusedView.EndUpdate;
   end;
 end;
 

Source/GUIBase/uViewGrid.dfm

@@ -178,7 +178,7 @@ inherited frViewGrid: TfrViewGrid
       PrinterPage.ScaleMode = smFit
       PrinterPage._dxMeasurementUnits_ = 0
       PrinterPage._dxLastMU_ = 2
-      ReportDocument.CreationDate = 39588.971240405100000000
+      ReportDocument.CreationDate = 39594.399142789350000000
       StyleManager = dxPrintStyleManager1
       OptionsCards.Shadow.Depth = 0
       OptionsExpanding.ExpandGroupRows = True

Source/GUIBase/uViewGrid.pas

@@ -89,7 +89,7 @@ type
     procedure SetViewFiltros(const Value: IViewFiltroBase); override;
     function AddFilterGrid(const Operacion: tcxFilterBoolOperatorKind): TcxFilterCriteriaItemList;
   public
-    function esSeleccionCeldaDatos: Boolean; override;
+    function EsSeleccionCeldaDatos: Boolean; override;
     procedure Preview; override;
     procedure Print; override;
     constructor Create(AOwner: TComponent); override;

Source/GUIBase/uViewGridBase.pas

@@ -16,7 +16,7 @@ uses
   cxDataStorage, cxEdit, DB, cxDBData, uDADataTable, cxGridLevel,
   cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
   cxGridTableView, cxGridDBTableView, cxGrid, Menus, ActnList, Grids,
-  DBGrids, JvComponent, JvFormAutoSize, uGridUtils, uViewFiltroBase,
+  DBGrids, JvComponent, JvFormAutoSize, uGridStatusUtils, uViewFiltroBase,
   uDAInterfaces;
 
 type

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

@@ -160,10 +160,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
     object pagContenido: TTabSheet
       Caption = 'Contenido'
       ImageIndex = 1
-      ExplicitLeft = 0
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 0
       inline frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente
         Left = 0
         Top = 0
@@ -196,12 +192,14 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
             ExplicitLeft = 278
             ExplicitTop = 0
           end
-          inherited ToolButton14: TToolButton [4]
+          inherited ToolButton14: TToolButton
             Left = 334
             Top = 0
+            Wrap = False
             ExplicitLeft = 334
+            ExplicitTop = 0
           end
-          inherited FontName: TJvFontComboBox [5]
+          inherited FontName: TJvFontComboBox
             Left = 399
             Top = 0
             ExplicitLeft = 399
@@ -213,13 +211,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
             ExplicitLeft = 544
             ExplicitTop = 0
           end
-          inherited UpDown1: TUpDown
+          inherited ToolButton13: TToolButton [7]
-            Left = 586
-            Top = 0
-            ExplicitLeft = 586
-            ExplicitTop = 0
-          end
-          inherited ToolButton13: TToolButton
             Left = 0
             Top = 0
             Wrap = True
@@ -227,49 +219,52 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
             ExplicitTop = 0
             ExplicitHeight = 30
           end
-          inherited ToolButton6: TToolButton [9]
+          inherited UpDown1: TUpDown [8]
             Left = 0
             Top = 30
             ExplicitLeft = 0
             ExplicitTop = 30
           end
-          inherited ToolButton7: TToolButton [10]
+          inherited ToolButton6: TToolButton
-            Left = 66
+            Left = 17
             Top = 30
-            Wrap = False
+            ExplicitLeft = 17
-            ExplicitLeft = 66
             ExplicitTop = 30
           end
-          inherited ToolButton8: TToolButton [11]
+          inherited ToolButton7: TToolButton
-            Left = 133
+            Left = 83
             Top = 30
-            ExplicitLeft = 133
+            ExplicitLeft = 83
             ExplicitTop = 30
           end
-          inherited ToolButton12: TToolButton [12]
+          inherited ToolButton8: TToolButton
-            Left = 216
+            Left = 150
             Top = 30
-            Wrap = False
+            ExplicitLeft = 150
-            ExplicitLeft = 216
-            ExplicitTop = 30
-            ExplicitHeight = 22
-          end
-          inherited ToolButton9: TToolButton [13]
-            Left = 224
-            Top = 30
-            ExplicitLeft = 224
             ExplicitTop = 30
           end
-          inherited ToolButton10: TToolButton [14]
+          inherited ToolButton12: TToolButton
-            Left = 369
+            Left = 233
             Top = 30
-            ExplicitLeft = 369
+            ExplicitLeft = 233
             ExplicitTop = 30
           end
-          inherited ToolButton11: TToolButton [15]
+          inherited ToolButton9: TToolButton
-            Left = 494
+            Left = 241
             Top = 30
-            ExplicitLeft = 494
+            ExplicitLeft = 241
+            ExplicitTop = 30
+          end
+          inherited ToolButton10: TToolButton
+            Left = 386
+            Top = 30
+            ExplicitLeft = 386
+            ExplicitTop = 30
+          end
+          inherited ToolButton11: TToolButton
+            Left = 511
+            Top = 30
+            ExplicitLeft = 511
             ExplicitTop = 30
           end
         end
@@ -277,40 +272,24 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
           Top = 77
           Width = 751
           Height = 301
-          ExplicitTop = 72
+          ExplicitTop = 77
           ExplicitWidth = 751
-          ExplicitHeight = 306
+          ExplicitHeight = 301
         end
         inherited TBXDock1: TTBXDock
           Top = 51
           Width = 751
           ExplicitTop = 51
-          ExplicitWidth = 757
+          ExplicitWidth = 751
           inherited TBXToolbar1: TTBXToolbar
             ExplicitWidth = 626
           end
         end
-        inherited cxGridPopupMenu: TcxGridPopupMenu
-          PopupMenus = <
-            item
-              GridView = frViewDetallesAlbaranCliente1.cxGridView
-              HitTypes = [gvhtCell]
-              Index = 0
-            end
-            item
-              HitTypes = []
-              Index = 1
-            end>
-        end
       end
     end
     object pagInicidencias: TTabSheet
       Caption = 'Incidencias'
       ImageIndex = 2
-      ExplicitLeft = 0
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 0
       inline frViewIncidenciasCli: TfrViewIncidencias
         Left = 0
         Top = 0
@@ -329,7 +308,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
         ExplicitHeight = 378
         inherited pnlSup: TPanel
           Width = 751
-          ExplicitWidth = 757
+          ExplicitWidth = 751
           inherited eIncidenciaActiva: TcxDBCheckBox
             ExplicitHeight = 21
           end
@@ -419,8 +398,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
         StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 164
         ExplicitTop = 112
-        ExplicitWidth = 93
+        ExplicitWidth = 188
-        Width = 93
+        Width = 188
       end
       inherited ImporteIVA: TcxDBCurrencyEdit
         Left = 555
@@ -433,8 +412,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
         StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 555
         ExplicitTop = 38
-        ExplicitWidth = 137
+        ExplicitWidth = 182
-        Width = 137
+        Width = 182
       end
       inherited ImporteTotal: TcxDBCurrencyEdit
         Left = 485
@@ -446,8 +425,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
         StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 485
         ExplicitTop = 112
-        ExplicitWidth = 137
+        ExplicitWidth = 252
-        Width = 137
+        Width = 252
       end
       inherited edtDescuento: TcxDBSpinEdit
         Left = 93
@@ -482,8 +461,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
         StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 484
         ExplicitTop = 11
-        ExplicitWidth = 92
+        ExplicitWidth = 253
-        Width = 92
+        Width = 253
       end
       inherited edtRE: TcxDBSpinEdit
         Left = 484
@@ -508,8 +487,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
         StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 555
         ExplicitTop = 65
-        ExplicitWidth = 56
+        ExplicitWidth = 182
-        Width = 56
+        Width = 182
       end
       inherited eImporteNeto: TcxDBCurrencyEdit
         Left = 93
@@ -521,8 +500,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
         StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 93
         ExplicitTop = 11
-        ExplicitWidth = 147
+        ExplicitWidth = 259
-        Width = 147
+        Width = 259
       end
       inherited ePorte: TcxDBCurrencyEdit
         Left = 93
@@ -535,8 +514,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
         StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 93
         ExplicitTop = 139
-        ExplicitWidth = 147
+        ExplicitWidth = 259
-        Width = 147
+        Width = 259
       end
       inherited eIVA: TcxDBLookupComboBox
         Left = 93
@@ -548,8 +527,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
         StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 93
         ExplicitTop = 38
-        ExplicitWidth = 81
+        ExplicitWidth = 121
-        Width = 81
+        Width = 121
       end
       inherited bTiposIVA: TButton
         Left = 220
@@ -568,8 +547,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
         StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 93
         ExplicitTop = 65
-        ExplicitWidth = 219
+        ExplicitWidth = 259
-        Width = 219
+        Width = 259
       end
       inherited dxLayoutControl1Group_Root: TdxLayoutGroup
         inherited dxLayoutControl1Group1: TdxLayoutGroup

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

@@ -135,18 +135,6 @@ inherited fEditorAlbaranDevCliente: TfEditorAlbaranDevCliente
           Top = 51
           ExplicitWidth = 751
         end
-        inherited cxGridPopupMenu: TcxGridPopupMenu
-          PopupMenus = <
-            item
-              GridView = frViewDetallesAlbaranCliente1.cxGridView
-              HitTypes = [gvhtCell]
-              Index = 0
-            end
-            item
-              HitTypes = []
-              Index = 1
-            end>
-        end
       end
     end
     inherited pagInicidencias: TTabSheet

Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas

@@ -88,7 +88,7 @@ uses
 //  uFacturasClienteController, uBizFacturasCliente, uGenerarFacturasCliAlbCliUtils,
 //  uInventarioController, uGenerarAlbaranesCliUtils,
   uEditorBase,
-  cxCustomData, uGridUtils, uDBSelectionListUtils;
+  cxCustomData, uGridStatusUtils, uDBSelectionListUtils;
 
 {$R *.dfm}
 

Source/Modulos/Albaranes de cliente/Views/uEditorElegirAlbaranesCliente.pas

@@ -43,7 +43,7 @@ implementation
 
 uses
   uEditorGridBase, cxGridCustomTableView, uIntegerListUtils, uDBSelectionListUtils,
-  uGridUtils, uEditorBase, uAlbaranesClienteController, cxGridLevel;
+  uGridStatusUtils, uEditorBase, uAlbaranesClienteController, cxGridLevel;
 
 {$R *.dfm}
 

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

@@ -1,21 +1,23 @@
 inherited frViewAlbaranCliente: TfrViewAlbaranCliente
-  Width = 822
+  Width = 903
   Height = 550
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
-  ExplicitWidth = 822
+  ExplicitWidth = 903
   ExplicitHeight = 550
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 822
+    Width = 903
     Height = 550
     Align = alClient
     ParentBackground = True
     TabOrder = 0
+    TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
+    ExplicitWidth = 822
     DesignSize = (
-      822
+      903
       550)
     object Label1: TLabel
       Left = 22
@@ -40,21 +42,25 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
       Style.Shadow = False
       Style.ButtonStyle = bts3D
       Style.ButtonTransparency = ebtNone
       Style.PopupBorderStyle = epbsFrame3D
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 2
-      Width = 119
+      Width = 294
     end
     object memObservaciones: TcxDBMemo
-      Left = 440
+      Left = 482
       Top = 387
       Anchors = [akLeft, akTop, akRight, akBottom]
       DataBinding.DataField = 'OBSERVACIONES'
@@ -64,12 +70,16 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Style.BorderStyle = ebs3D
       Style.HotTrack = False
       Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 21
-      Height = 253
+      Height = 141
-      Width = 186
+      Width = 360
     end
     object eReferencia: TcxDBTextEdit
       Left = 116
@@ -86,21 +96,25 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
       StyleDisabled.Color = clMenuBar
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
       StyleDisabled.TextColor = clWindowText
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 0
-      Width = 143
+      Width = 294
     end
     inline frViewClienteAlbaran: TfrViewDatosYSeleccionCliente
-      Left = 440
+      Left = 482
       Top = 28
-      Width = 350
+      Width = 360
       Height = 212
       Align = alTop
       AutoSize = True
@@ -112,37 +126,63 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       ParentFont = False
       TabOrder = 17
       ReadOnly = False
-      ExplicitLeft = 440
+      ExplicitLeft = 482
       ExplicitTop = 28
+      ExplicitWidth = 360
       inherited dxLayoutControl1: TdxLayoutControl
+        Width = 360
         Align = alTop
         inherited edtlNombre: TcxDBTextEdit
-          ExplicitWidth = 224
+          Style.LookAndFeel.SkinName = ''
-          Width = 224
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 286
+          Width = 286
         end
         inherited edtNIFCIF: TcxDBTextEdit
-          ExplicitWidth = 562
+          Style.LookAndFeel.SkinName = ''
-          Width = 562
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 286
+          Width = 286
         end
         inherited edtCalle: TcxDBTextEdit
-          ExplicitWidth = 562
+          Style.LookAndFeel.SkinName = ''
-          Width = 562
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 286
+          Width = 286
         end
         inherited edtPoblacion: TcxDBTextEdit
-          ExplicitWidth = 177
+          Style.LookAndFeel.SkinName = ''
-          Width = 177
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 168
+          Width = 168
         end
         inherited edtProvincia: TcxDBTextEdit
-          ExplicitWidth = 327
+          Style.LookAndFeel.SkinName = ''
-          Width = 327
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 286
+          Width = 286
         end
         inherited edtCodigoPostal: TcxDBTextEdit
-          Left = 268
+          Left = 307
-          ExplicitLeft = 268
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitLeft = 307
         end
         inherited Button3: TBitBtn
-          Left = 158
+          Left = 197
-          ExplicitLeft = 158
+          ExplicitLeft = 197
         end
       end
       inherited DADataSource: TDADataSource
@@ -172,14 +212,18 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 8
-      Width = 263
+      Width = 294
     end
     object ePoblacion: TcxDBTextEdit
       Left = 116
@@ -191,17 +235,21 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 9
-      Width = 162
+      Width = 193
     end
     object eCodigoPostal: TcxDBTextEdit
-      Left = 345
+      Left = 387
       Top = 251
       DataBinding.DataField = 'CODIGO_POSTAL'
       DataBinding.DataSource = DADataSource
@@ -210,12 +258,16 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 10
       Width = 65
     end
@@ -229,14 +281,18 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 11
-      Width = 263
+      Width = 294
     end
     object ePersonaContacto: TcxDBTextEdit
       Left = 116
@@ -249,14 +305,18 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 12
-      Width = 84
+      Width = 294
     end
     object eTlfTrabajo: TcxDBTextEdit
       Left = 116
@@ -268,17 +328,21 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 13
-      Width = 122
+      Width = 294
     end
     object bElegirDireccion: TBitBtn
-      Left = 238
+      Left = 280
       Top = 359
       Width = 172
       Height = 23
@@ -287,7 +351,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       TabOrder = 14
     end
     object Button1: TButton
-      Left = 278
+      Left = 320
       Top = 138
       Width = 132
       Height = 23
@@ -307,15 +371,19 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
       StyleDisabled.TextColor = clWindowText
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 5
-      Width = 16
+      Width = 156
     end
     object cbFormaPago: TcxDBLookupComboBox
       Left = 116
@@ -336,19 +404,23 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
       Style.ButtonStyle = bts3D
       Style.PopupBorderStyle = epbsFrame3D
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 3
-      Width = 32
+      Width = 156
     end
     object bFormasPago: TButton
-      Left = 278
+      Left = 320
       Top = 109
       Width = 132
       Height = 23
@@ -357,7 +429,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       OnClick = bFormasPagoClick
     end
     object eFechaRecepcion: TcxDBDateEdit
-      Left = 574
+      Left = 616
       Top = 330
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_RECEPCION'
@@ -370,16 +442,20 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
       Style.ButtonStyle = bts3D
       Style.PopupBorderStyle = epbsFrame3D
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 20
-      Width = 123
+      Width = 226
     end
     object cbConAlmacen: TCheckBox
       Left = 32
@@ -409,16 +485,20 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
       Style.ButtonStyle = bts3D
       Style.PopupBorderStyle = epbsFrame3D
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 16
-      Width = 69
+      Width = 193
     end
     object eRefFacturaCli: TcxDBTextEdit
       Left = 116
@@ -435,19 +515,23 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
       StyleDisabled.Color = clMenuBar
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
       StyleDisabled.TextColor = clWindowText
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 7
-      Width = 207
+      Width = 294
     end
     object eFechaPrevista: TcxDBDateEdit
-      Left = 574
+      Left = 616
       Top = 276
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_PREVISTA_ENVIO'
@@ -460,18 +544,22 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
       Style.Shadow = False
       Style.ButtonStyle = bts3D
       Style.ButtonTransparency = ebtNone
       Style.PopupBorderStyle = epbsFrame3D
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 18
-      Width = 122
+      Width = 226
     end
     object eRefCliente: TcxDBTextEdit
       Left = 116
@@ -487,19 +575,23 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
       StyleDisabled.Color = clMenuBar
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
       StyleDisabled.TextColor = clWindowText
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 1
-      Width = 284
+      Width = 294
     end
     object eFechaEnvio: TcxDBDateEdit
-      Left = 574
+      Left = 616
       Top = 303
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_ENVIO'
@@ -512,16 +604,20 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
       Style.ButtonStyle = bts3D
       Style.PopupBorderStyle = epbsFrame3D
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 19
-      Width = 217
+      Width = 226
     end
     object dxLayoutControl1Group_Root: TdxLayoutGroup
       ShowCaption = False

Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas

@@ -15,7 +15,13 @@ uses
 //  uBizPedidosCliente, uPedidosClienteController,
 
   ExtCtrls, cxLookupEdit, cxDBLookupEdit, uBizFormasPago,
-  cxDBLookupComboBox, uFormasPagoController, uAlmacenesController, uDAInterfaces;
+  cxDBLookupComboBox, uFormasPagoController, uAlmacenesController, uDAInterfaces,
+  dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee,
+  dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
+  dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black,
+  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
+  dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters,
+  dxSkinValentine, dxSkinXmas2008Blue, dxSkinsdxLCPainter;
 
 type
   IViewAlbaranCliente = interface(IViewBase)

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

@@ -5,97 +5,146 @@ inherited frViewAlbaranDevCliente: TfrViewAlbaranDevCliente
       ExplicitWidth = 299
     end
     inherited edtFechaAlbaran: TcxDBDateEdit
-      ExplicitWidth = 119
+      Style.LookAndFeel.SkinName = ''
-      Width = 119
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
     end
     inherited memObservaciones: TcxDBMemo
-      ExplicitWidth = 186
+      Style.LookAndFeel.SkinName = ''
-      ExplicitHeight = 253
+      StyleDisabled.LookAndFeel.SkinName = ''
-      Height = 253
+      StyleFocused.LookAndFeel.SkinName = ''
-      Width = 186
+      StyleHot.LookAndFeel.SkinName = ''
     end
     inherited eReferencia: TcxDBTextEdit
-      ExplicitWidth = 143
+      Style.LookAndFeel.SkinName = ''
-      Width = 143
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
     end
     inherited frViewClienteAlbaran: TfrViewDatosYSeleccionCliente
-      Width = 350
-      ExplicitWidth = 350
       inherited dxLayoutControl1: TdxLayoutControl
-        Width = 350
         inherited edtlNombre: TcxDBTextEdit
-          ExplicitWidth = 224
+          Style.LookAndFeel.SkinName = ''
-          Width = 224
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
         end
         inherited edtNIFCIF: TcxDBTextEdit
-          ExplicitWidth = 562
+          Style.LookAndFeel.SkinName = ''
-          Width = 562
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
         end
         inherited edtCalle: TcxDBTextEdit
-          ExplicitWidth = 562
+          Style.LookAndFeel.SkinName = ''
-          Width = 562
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
         end
         inherited edtPoblacion: TcxDBTextEdit
-          ExplicitWidth = 177
+          Style.LookAndFeel.SkinName = ''
-          Width = 177
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
         end
         inherited edtProvincia: TcxDBTextEdit
-          ExplicitWidth = 327
+          Style.LookAndFeel.SkinName = ''
-          Width = 327
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+        end
+        inherited edtCodigoPostal: TcxDBTextEdit
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
         end
       end
     end
     inherited eCalle: TcxDBTextEdit
-      ExplicitWidth = 263
+      Style.LookAndFeel.SkinName = ''
-      Width = 263
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
     end
     inherited ePoblacion: TcxDBTextEdit
-      ExplicitWidth = 162
+      Style.LookAndFeel.SkinName = ''
-      Width = 162
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+    end
+    inherited eCodigoPostal: TcxDBTextEdit
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
     end
     inherited eProvincia: TcxDBTextEdit
-      ExplicitWidth = 263
+      Style.LookAndFeel.SkinName = ''
-      Width = 263
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
     end
     inherited ePersonaContacto: TcxDBTextEdit
-      ExplicitWidth = 84
+      Style.LookAndFeel.SkinName = ''
-      Width = 84
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
     end
     inherited eTlfTrabajo: TcxDBTextEdit
-      ExplicitWidth = 122
+      Style.LookAndFeel.SkinName = ''
-      Width = 122
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
     end
     inherited eReferenciaPedidoCli: TcxTextEdit
-      ExplicitWidth = 16
+      Style.LookAndFeel.SkinName = ''
-      Width = 16
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
     end
     inherited cbFormaPago: TcxDBLookupComboBox
-      ExplicitWidth = 32
+      Style.LookAndFeel.SkinName = ''
-      Width = 32
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
     end
     inherited eFechaRecepcion: TcxDBDateEdit
-      ExplicitWidth = 123
+      Style.LookAndFeel.SkinName = ''
-      Width = 123
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
     end
     inherited cbAlmacen: TcxDBLookupComboBox
-      ExplicitWidth = 69
+      Style.LookAndFeel.SkinName = ''
-      Width = 69
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
     end
     inherited eRefFacturaCli: TcxDBTextEdit
-      ExplicitWidth = 207
+      Style.LookAndFeel.SkinName = ''
-      Width = 207
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
     end
     inherited eFechaPrevista: TcxDBDateEdit
-      ExplicitWidth = 122
+      Style.LookAndFeel.SkinName = ''
-      Width = 122
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
     end
     inherited eRefCliente: TcxDBTextEdit
-      ExplicitWidth = 284
+      Style.LookAndFeel.SkinName = ''
-      Width = 284
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
     end
     inherited eFechaEnvio: TcxDBDateEdit
-      ExplicitWidth = 217
+      Style.LookAndFeel.SkinName = ''
-      Width = 217
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
     end
     inherited dxLayoutControl1Group_Root: TdxLayoutGroup
       inherited dxLayoutControl1Group6: TdxLayoutGroup

Source/Modulos/Albaranes de cliente/Views/uViewAlbaranDevCliente.pas

@@ -8,7 +8,13 @@ uses
   dxLayoutControl, StdCtrls, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit,
   cxDBLookupComboBox, cxTextEdit, Buttons, uCustomView, uViewBase,
   uViewDatosYSeleccionCliente, cxDBEdit, cxMemo, cxContainer, cxEdit,
-  cxMaskEdit, cxCalendar, cxControls, uDAInterfaces;
+  cxMaskEdit, cxCalendar, cxControls, uDAInterfaces, dxSkinsCore, dxSkinBlack,
+  dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary,
+  dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
+  dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
+  dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
+  dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine,
+  dxSkinXmas2008Blue, dxSkinsdxLCPainter;
 
 type
   TfrViewAlbaranDevCliente = class(TfrViewAlbaranCliente)

Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.cfg

@@ -0,0 +1,40 @@
+-$A8
+-$B-
+-$C+
+-$D-
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L-
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$Y-
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-$M16384,1048576
+-K$00400000
+-E"C:\Codigo Tecsitel\Output\Debug"
+-LE"C:\Codigo Tecsitel\Output\Debug\Cliente"
+-LN"C:\Codigo Tecsitel\Source\Modulos\Lib"
+-U..\..\..\Lib;..\..\Lib;"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Imports";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\Indy10";"C:\Codigo Tecsitel\Lib";"C:\Codigo Tecsitel\Lib\RemObjects\RemObjects_SDK";"C:\Codigo Tecsitel\Lib\RemObjects\Data_Abstract";"C:\Codigo Tecsitel\Lib\CCPack";"C:\Codigo Tecsitel\Lib\CFPack";"C:\Codigo Tecsitel\Lib\GUISDK";"C:\Codigo Tecsitel\Lib\PluginSDK";"C:\Codigo Tecsitel\Lib\DevExpressVCL";"C:\Codigo Tecsitel\Lib\FastReport4";"C:\Codigo Tecsitel\Lib\JCL";"C:\Codigo Tecsitel\Lib\JVCL";"C:\Codigo Tecsitel\Lib\PngComponents";"C:\Codigo Tecsitel\Lib\cxIntl6";"C:\Codigo Tecsitel\Lib\cxIntlPrintSys3";"C:\Codigo Tecsitel\Lib\TB2k+TBX";"C:\Codigo Tecsitel\Lib\Mustangpeak\MPCommonLib";"C:\Codigo Tecsitel\Lib\Mustangpeak\EasyListview";"C:\Codigo Tecsitel\Lib\JSDialog";"C:\Codigo Tecsitel\Lib\UserControl";;"C:\Codigo Tecsitel\Source\Lib";
+-O..\..\..\Lib;..\..\Lib;"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Imports";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\Indy10";"C:\Codigo Tecsitel\Lib";"C:\Codigo Tecsitel\Lib\RemObjects\RemObjects_SDK";"C:\Codigo Tecsitel\Lib\RemObjects\Data_Abstract";"C:\Codigo Tecsitel\Lib\CCPack";"C:\Codigo Tecsitel\Lib\CFPack";"C:\Codigo Tecsitel\Lib\GUISDK";"C:\Codigo Tecsitel\Lib\PluginSDK";"C:\Codigo Tecsitel\Lib\DevExpressVCL";"C:\Codigo Tecsitel\Lib\FastReport4";"C:\Codigo Tecsitel\Lib\JCL";"C:\Codigo Tecsitel\Lib\JVCL";"C:\Codigo Tecsitel\Lib\PngComponents";"C:\Codigo Tecsitel\Lib\cxIntl6";"C:\Codigo Tecsitel\Lib\cxIntlPrintSys3";"C:\Codigo Tecsitel\Lib\TB2k+TBX";"C:\Codigo Tecsitel\Lib\Mustangpeak\MPCommonLib";"C:\Codigo Tecsitel\Lib\Mustangpeak\EasyListview";"C:\Codigo Tecsitel\Lib\JSDialog";"C:\Codigo Tecsitel\Lib\UserControl";;"C:\Codigo Tecsitel\Source\Lib";
+-I..\..\..\Lib;..\..\Lib;"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Imports";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\Indy10";"C:\Codigo Tecsitel\Lib";"C:\Codigo Tecsitel\Lib\RemObjects\RemObjects_SDK";"C:\Codigo Tecsitel\Lib\RemObjects\Data_Abstract";"C:\Codigo Tecsitel\Lib\CCPack";"C:\Codigo Tecsitel\Lib\CFPack";"C:\Codigo Tecsitel\Lib\GUISDK";"C:\Codigo Tecsitel\Lib\PluginSDK";"C:\Codigo Tecsitel\Lib\DevExpressVCL";"C:\Codigo Tecsitel\Lib\FastReport4";"C:\Codigo Tecsitel\Lib\JCL";"C:\Codigo Tecsitel\Lib\JVCL";"C:\Codigo Tecsitel\Lib\PngComponents";"C:\Codigo Tecsitel\Lib\cxIntl6";"C:\Codigo Tecsitel\Lib\cxIntlPrintSys3";"C:\Codigo Tecsitel\Lib\TB2k+TBX";"C:\Codigo Tecsitel\Lib\Mustangpeak\MPCommonLib";"C:\Codigo Tecsitel\Lib\Mustangpeak\EasyListview";"C:\Codigo Tecsitel\Lib\JSDialog";"C:\Codigo Tecsitel\Lib\UserControl";;"C:\Codigo Tecsitel\Source\Lib";
+-R..\..\..\Lib;..\..\Lib;"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Imports";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\Indy10";"C:\Codigo Tecsitel\Lib";"C:\Codigo Tecsitel\Lib\RemObjects\RemObjects_SDK";"C:\Codigo Tecsitel\Lib\RemObjects\Data_Abstract";"C:\Codigo Tecsitel\Lib\CCPack";"C:\Codigo Tecsitel\Lib\CFPack";"C:\Codigo Tecsitel\Lib\GUISDK";"C:\Codigo Tecsitel\Lib\PluginSDK";"C:\Codigo Tecsitel\Lib\DevExpressVCL";"C:\Codigo Tecsitel\Lib\FastReport4";"C:\Codigo Tecsitel\Lib\JCL";"C:\Codigo Tecsitel\Lib\JVCL";"C:\Codigo Tecsitel\Lib\PngComponents";"C:\Codigo Tecsitel\Lib\cxIntl6";"C:\Codigo Tecsitel\Lib\cxIntlPrintSys3";"C:\Codigo Tecsitel\Lib\TB2k+TBX";"C:\Codigo Tecsitel\Lib\Mustangpeak\MPCommonLib";"C:\Codigo Tecsitel\Lib\Mustangpeak\EasyListview";"C:\Codigo Tecsitel\Lib\JSDialog";"C:\Codigo Tecsitel\Lib\UserControl";;"C:\Codigo Tecsitel\Source\Lib";
+-GD

Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.cfg

@@ -0,0 +1,40 @@
+-$A8
+-$B-
+-$C+
+-$D-
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L-
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$Y-
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-$M16384,1048576
+-K$00400000
+-E"C:\Codigo Tecsitel\Output\Debug"
+-LE"C:\Codigo Tecsitel\Output\Debug\Cliente"
+-LN"C:\Codigo Tecsitel\Source\Modulos\Lib"
+-U..\..\..\Lib;..\..\Lib;"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Imports";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\Indy10";"C:\Codigo Tecsitel\Lib";"C:\Codigo Tecsitel\Lib\RemObjects\RemObjects_SDK";"C:\Codigo Tecsitel\Lib\RemObjects\Data_Abstract";"C:\Codigo Tecsitel\Lib\CCPack";"C:\Codigo Tecsitel\Lib\CFPack";"C:\Codigo Tecsitel\Lib\GUISDK";"C:\Codigo Tecsitel\Lib\PluginSDK";"C:\Codigo Tecsitel\Lib\DevExpressVCL";"C:\Codigo Tecsitel\Lib\FastReport4";"C:\Codigo Tecsitel\Lib\JCL";"C:\Codigo Tecsitel\Lib\JVCL";"C:\Codigo Tecsitel\Lib\PngComponents";"C:\Codigo Tecsitel\Lib\cxIntl6";"C:\Codigo Tecsitel\Lib\cxIntlPrintSys3";"C:\Codigo Tecsitel\Lib\TB2k+TBX";"C:\Codigo Tecsitel\Lib\Mustangpeak\MPCommonLib";"C:\Codigo Tecsitel\Lib\Mustangpeak\EasyListview";"C:\Codigo Tecsitel\Lib\JSDialog";"C:\Codigo Tecsitel\Lib\UserControl";;"C:\Codigo Tecsitel\Source\Lib";
+-O..\..\..\Lib;..\..\Lib;"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Imports";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\Indy10";"C:\Codigo Tecsitel\Lib";"C:\Codigo Tecsitel\Lib\RemObjects\RemObjects_SDK";"C:\Codigo Tecsitel\Lib\RemObjects\Data_Abstract";"C:\Codigo Tecsitel\Lib\CCPack";"C:\Codigo Tecsitel\Lib\CFPack";"C:\Codigo Tecsitel\Lib\GUISDK";"C:\Codigo Tecsitel\Lib\PluginSDK";"C:\Codigo Tecsitel\Lib\DevExpressVCL";"C:\Codigo Tecsitel\Lib\FastReport4";"C:\Codigo Tecsitel\Lib\JCL";"C:\Codigo Tecsitel\Lib\JVCL";"C:\Codigo Tecsitel\Lib\PngComponents";"C:\Codigo Tecsitel\Lib\cxIntl6";"C:\Codigo Tecsitel\Lib\cxIntlPrintSys3";"C:\Codigo Tecsitel\Lib\TB2k+TBX";"C:\Codigo Tecsitel\Lib\Mustangpeak\MPCommonLib";"C:\Codigo Tecsitel\Lib\Mustangpeak\EasyListview";"C:\Codigo Tecsitel\Lib\JSDialog";"C:\Codigo Tecsitel\Lib\UserControl";;"C:\Codigo Tecsitel\Source\Lib";
+-I..\..\..\Lib;..\..\Lib;"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Imports";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\Indy10";"C:\Codigo Tecsitel\Lib";"C:\Codigo Tecsitel\Lib\RemObjects\RemObjects_SDK";"C:\Codigo Tecsitel\Lib\RemObjects\Data_Abstract";"C:\Codigo Tecsitel\Lib\CCPack";"C:\Codigo Tecsitel\Lib\CFPack";"C:\Codigo Tecsitel\Lib\GUISDK";"C:\Codigo Tecsitel\Lib\PluginSDK";"C:\Codigo Tecsitel\Lib\DevExpressVCL";"C:\Codigo Tecsitel\Lib\FastReport4";"C:\Codigo Tecsitel\Lib\JCL";"C:\Codigo Tecsitel\Lib\JVCL";"C:\Codigo Tecsitel\Lib\PngComponents";"C:\Codigo Tecsitel\Lib\cxIntl6";"C:\Codigo Tecsitel\Lib\cxIntlPrintSys3";"C:\Codigo Tecsitel\Lib\TB2k+TBX";"C:\Codigo Tecsitel\Lib\Mustangpeak\MPCommonLib";"C:\Codigo Tecsitel\Lib\Mustangpeak\EasyListview";"C:\Codigo Tecsitel\Lib\JSDialog";"C:\Codigo Tecsitel\Lib\UserControl";;"C:\Codigo Tecsitel\Source\Lib";
+-R..\..\..\Lib;..\..\Lib;"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Imports";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\Indy10";"C:\Codigo Tecsitel\Lib";"C:\Codigo Tecsitel\Lib\RemObjects\RemObjects_SDK";"C:\Codigo Tecsitel\Lib\RemObjects\Data_Abstract";"C:\Codigo Tecsitel\Lib\CCPack";"C:\Codigo Tecsitel\Lib\CFPack";"C:\Codigo Tecsitel\Lib\GUISDK";"C:\Codigo Tecsitel\Lib\PluginSDK";"C:\Codigo Tecsitel\Lib\DevExpressVCL";"C:\Codigo Tecsitel\Lib\FastReport4";"C:\Codigo Tecsitel\Lib\JCL";"C:\Codigo Tecsitel\Lib\JVCL";"C:\Codigo Tecsitel\Lib\PngComponents";"C:\Codigo Tecsitel\Lib\cxIntl6";"C:\Codigo Tecsitel\Lib\cxIntlPrintSys3";"C:\Codigo Tecsitel\Lib\TB2k+TBX";"C:\Codigo Tecsitel\Lib\Mustangpeak\MPCommonLib";"C:\Codigo Tecsitel\Lib\Mustangpeak\EasyListview";"C:\Codigo Tecsitel\Lib\JSDialog";"C:\Codigo Tecsitel\Lib\UserControl";;"C:\Codigo Tecsitel\Source\Lib";
+-GD

Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranDevProveedor.dfm

@@ -156,18 +156,6 @@ inherited fEditorAlbaranDevProveedor: TfEditorAlbaranDevProveedor
         inherited TBXDock1: TTBXDock
           Top = 73
         end
-        inherited cxGridPopupMenu: TcxGridPopupMenu
-          PopupMenus = <
-            item
-              GridView = frViewDetallesAlbaranProveedor1.cxGridView
-              HitTypes = [gvhtCell]
-              Index = 0
-            end
-            item
-              HitTypes = []
-              Index = 1
-            end>
-        end
       end
     end
     inherited pagInicidencias: TTabSheet

Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm

@@ -248,18 +248,6 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
             ExplicitWidth = 626
           end
         end
-        inherited cxGridPopupMenu: TcxGridPopupMenu
-          PopupMenus = <
-            item
-              GridView = frViewDetallesAlbaranProveedor1.cxGridView
-              HitTypes = [gvhtCell]
-              Index = 0
-            end
-            item
-              HitTypes = []
-              Index = 1
-            end>
-        end
       end
     end
     object pagInicidencias: TTabSheet

Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas

@@ -62,7 +62,7 @@ uses
   uDataModuleAlbaranesProveedor, uDataModuleUsuarios, uFactuGES_App,
 //  uGenerarFacturasProvAlbProvUtils, uGenerarAlbaranesProvUtils,
   uEditorBase, schAlbaranesProveedorClient_Intf,
-  uGridUtils, uDBSelectionListUtils;
+  uGridStatusUtils, uDBSelectionListUtils;
 
 {$R *.dfm}
 

Source/Modulos/Albaranes de proveedor/Views/uEditorElegirAlbaranesProveedor.pas

@@ -44,7 +44,7 @@ implementation
 
 uses
   uEditorGridBase, cxGridCustomTableView, uIntegerListUtils, uDBSelectionListUtils,
-  uGridUtils, uEditorBase, uAlbaranesProveedorController;
+  uGridStatusUtils, uEditorBase, uAlbaranesProveedorController;
 
 {$R *.dfm}
 

Source/Modulos/Almacenes/Views/uEditorAlmacenes.dfm

@@ -147,14 +147,6 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
         BuiltInStyle = True
       end
     end
-    inherited cxViewGridPopupMenu: TcxGridPopupMenu
-      PopupMenus = <
-        item
-          GridView = frViewAlmacenes1.cxGridView
-          HitTypes = [gvhtCell]
-          Index = 0
-        end>
-    end
   end
   inherited EditorActionList: TActionList [4]
     inherited actNuevo: TAction

Source/Modulos/Articulos/Views/Articulos_view.dproj

@@ -55,13 +55,13 @@
     <DelphiCompile Include="Articulos_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Albaranes de cliente\Articulos_controller.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\Articulos_controller.dcp" />
-    <DCCReference Include="..\..\Albaranes de cliente\Articulos_model.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\Articulos_model.dcp" />
-    <DCCReference Include="..\..\Albaranes de cliente\Contactos_view.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\Contactos_view.dcp" />
-    <DCCReference Include="..\..\Albaranes de cliente\Fabricantes_controller.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\Fabricantes_controller.dcp" />
-    <DCCReference Include="..\..\Albaranes de cliente\Familias_controller.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\Familias_controller.dcp" />
-    <DCCReference Include="..\..\Albaranes de cliente\GUIBase.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\GUIBase.dcp" />
-    <DCCReference Include="..\..\Albaranes de cliente\UnidadesMedida_controller.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\UnidadesMedida_controller.dcp" />
     <DCCReference Include="uArticulosViewRegister.pas" />
     <DCCReference Include="uEditorArticulo.pas">
       <Form>fEditorArticulo</Form>

Source/Modulos/Articulos/Views/uEditorElegirArticulos.pas

@@ -44,7 +44,7 @@ implementation
 
 uses
   uEditorGridBase, cxGridCustomTableView, uIntegerListUtils, uDBSelectionListUtils,
-  uGridUtils, uEditorBase, uArticulosController;
+  uGridStatusUtils, uEditorBase, uArticulosController;
 
 {$R *.dfm}
 

Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm

@@ -46,6 +46,8 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
     end
   end
   inherited cxGrid: TcxGrid
+    ExplicitTop = 99
+    ExplicitWidth = 935
     ExplicitHeight = 205
     inherited cxGridView: TcxGridDBTableView
       inherited cxGridViewTIPO: TcxGridDBColumn
@@ -135,6 +137,8 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
     end
   end
   inherited TBXDock1: TTBXDock
+    ExplicitTop = 73
+    ExplicitWidth = 935
     inherited TBXToolbar1: TTBXToolbar
       inherited TBXSubmenuItem1: TTBXSubmenuItem
         object TBXSeparatorItem8: TTBXSeparatorItem [4]

Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas

@@ -80,7 +80,7 @@ begin
     cxGridView.EndUpdate;
   end;
 
-  SeleccionarRowActual;
+  SeleccionarFilaActual;
 end;
 
 procedure TfrViewDetallesArticulos.AnadirArticulosInterno;
@@ -141,7 +141,7 @@ begin
     end;
   end;
 
-  SeleccionarRowActual;
+  SeleccionarFilaActual;
 end;
 
 procedure TfrViewDetallesArticulos.cxGridViewREFERENCIAPropertiesButtonClick(
@@ -271,7 +271,7 @@ begin
     cxGridView.EndUpdate;
   end;
 
-  SeleccionarRowActual;
+  SeleccionarFilaActual;
 end;
 
 procedure TfrViewDetallesArticulos.actBuscarArticuloUpdate(Sender: TObject);

Source/Modulos/Contactos/Views/uEditorClientes.dfm

@@ -163,14 +163,6 @@ inherited fEditorClientes: TfEditorClientes
         BuiltInReportLink = True
       end
     end
-    inherited cxViewGridPopupMenu: TcxGridPopupMenu
-      PopupMenus = <
-        item
-          GridView = frViewClientes1.cxGridView
-          HitTypes = [gvhtCell]
-          Index = 0
-        end>
-    end
     inherited dxPrintStyleManager1: TdxPrintStyleManager
       inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
         BuiltInStyle = True

Source/Modulos/Contactos/Views/uEditorClientes.pas

@@ -34,7 +34,7 @@ type
 implementation
 
 uses
-  uGridUtils, uDataModuleContactos, uDMBase, uEditorGridBase, uBizContactos,
+  uGridStatusUtils, uDataModuleContactos, uDMBase, uEditorGridBase, uBizContactos,
   uDBSelectionListUtils, uDataModuleUsuarios, uDialogUtils, uFactuGES_App,
   uGruposClienteController, uBizGruposCliente, uClientesController;
 

Source/Modulos/Contactos/Views/uEditorElegirClientes.dfm

@@ -219,14 +219,6 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
         BuiltInReportLink = True
       end
     end
-    inherited cxViewGridPopupMenu: TcxGridPopupMenu
-      PopupMenus = <
-        item
-          GridView = frViewClientes1.cxGridView
-          HitTypes = [gvhtCell]
-          Index = 0
-        end>
-    end
     inherited dxPrintStyleManager1: TdxPrintStyleManager
       inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
         BuiltInStyle = True

Source/Modulos/Contactos/Views/uEditorElegirClientes.pas

@@ -45,7 +45,7 @@ implementation
 
 uses
   uEditorGridBase, cxGridCustomTableView, uIntegerListUtils, uEditorContactos,
-  uGridUtils, uEditorBase, cxControls, uDBSelectionListUtils,
+  uGridStatusUtils, uEditorBase, cxControls, uDBSelectionListUtils,
   uDialogUtils;
 
 {$R *.dfm}

Source/Modulos/Contactos/Views/uEditorElegirProveedores.dfm

@@ -221,14 +221,6 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
         BuiltInReportLink = True
       end
     end
-    inherited cxViewGridPopupMenu: TcxGridPopupMenu
-      PopupMenus = <
-        item
-          GridView = frViewProveedores1.cxGridView
-          HitTypes = [gvhtCell]
-          Index = 0
-        end>
-    end
     inherited dxPrintStyleManager1: TdxPrintStyleManager
       inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
         BuiltInStyle = True

Source/Modulos/Contactos/Views/uEditorElegirProveedores.pas

@@ -44,7 +44,7 @@ implementation
 
 uses
   uEditorGridBase, cxGridCustomTableView, uIntegerListUtils, uEditorContactos,
-  uGridUtils, uEditorBase, cxControls, uDBSelectionListUtils;
+  uGridStatusUtils, uEditorBase, cxControls, uDBSelectionListUtils;
 
 {$R *.dfm}
 

Source/Modulos/Contactos/Views/uEditorEmpleados.dfm

@@ -167,14 +167,6 @@ inherited fEditorEmpleados: TfEditorEmpleados
         BuiltInStyle = True
       end
     end
-    inherited cxViewGridPopupMenu: TcxGridPopupMenu
-      PopupMenus = <
-        item
-          GridView = frViewEmpleados1.cxGridView
-          HitTypes = [gvhtCell]
-          Index = 0
-        end>
-    end
   end
   inherited EditorActionList: TActionList [4]
     Left = 72

Source/Modulos/Contactos/Views/uEditorEmpleados.pas

@@ -32,7 +32,7 @@ type
 implementation
 
 uses
-  uGridUtils, uEditorGridBase, uDataModuleUsuarios, uDialogUtils, uBizContactos,
+  uGridStatusUtils, uEditorGridBase, uDataModuleUsuarios, uDialogUtils, uBizContactos,
   uEmpleadosController, uDBSelectionListUtils, uFactuGES_App;
 
 {$R *.dfm}

Source/Modulos/Contactos/Views/uEditorProveedores.dfm

@@ -142,14 +142,6 @@ inherited fEditorProveedores: TfEditorProveedores
         BuiltInReportLink = True
       end
     end
-    inherited cxViewGridPopupMenu: TcxGridPopupMenu
-      PopupMenus = <
-        item
-          GridView = frViewProveedores1.cxGridView
-          HitTypes = [gvhtCell]
-          Index = 0
-        end>
-    end
     inherited dxPrintStyleManager1: TdxPrintStyleManager
       inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
         BuiltInStyle = True

Source/Modulos/Contactos/Views/uEditorProveedores.pas

@@ -31,7 +31,7 @@ type
 implementation
 
 uses
-  uGridUtils, uEditorGridBase, uDataModuleUsuarios, uDialogUtils, uBizContactos,
+  uGridStatusUtils, uEditorGridBase, uDataModuleUsuarios, uDialogUtils, uBizContactos,
   uDBSelectionListUtils, uProveedoresController, uFactuGES_App;
 
 {$R *.dfm}

Source/Modulos/Facturas de cliente/Views/uEditorElegirFacturasCliente.dfm

@@ -224,14 +224,6 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
         BuiltInReportLink = True
       end
     end
-    inherited cxViewGridPopupMenu: TcxGridPopupMenu
-      PopupMenus = <
-        item
-          GridView = frViewFacturasCliente1.cxGridView
-          HitTypes = [gvhtCell]
-          Index = 0
-        end>
-    end
     inherited dxPrintStyleManager1: TdxPrintStyleManager
       inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
         BuiltInStyle = True

Source/Modulos/Facturas de cliente/Views/uEditorElegirFacturasCliente.pas

@@ -70,7 +70,7 @@ implementation
 
 uses
   uEditorGridBase, cxGridCustomTableView, uIntegerListUtils, uDBSelectionListUtils,
-  uGridUtils, uDialogUtils, uEditorBase, uFacturasClienteController, uDateUtils;
+  uGridStatusUtils, uDialogUtils, uEditorBase, uFacturasClienteController, uDateUtils;
 
 {$R *.dfm}
 

Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm

@@ -343,15 +343,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
             ExplicitWidth = 702
           end
         end
-        inherited cxGridPopupMenu: TcxGridPopupMenu
-          PopupMenus = <
-            item
-              GridView = frViewDetallesFacturaCliente1.cxGridView
-              HitTypes = [gvhtNone, gvhtCell, gvhtRecord, gvhtRowIndicator]
-              Index = 0
-              PopupMenu = frViewDetallesFacturaCliente1.GridGeneralPopupMenu
-            end>
-        end
       end
     end
   end

Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm

@@ -197,14 +197,6 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
         BuiltInStyle = True
       end
     end
-    inherited cxViewGridPopupMenu: TcxGridPopupMenu
-      PopupMenus = <
-        item
-          GridView = frViewFacturasCliente1.cxGridView
-          HitTypes = [gvhtCell]
-          Index = 0
-        end>
-    end
   end
   inherited EditorActionList: TActionList [4]
     Left = 136

Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas

@@ -75,7 +75,7 @@ uses
 //  uPedidosClienteController, uBizPedidosCliente,
 //  uGenerarFacturasCliAlbCliUtils,
   uBizAlbaranesCliente,
-  uEditorBase,  uGridUtils, uDBSelectionListUtils, udialogUtils;
+  uEditorBase,  uGridStatusUtils, uDBSelectionListUtils, udialogUtils;
 
 {$R *.dfm}
 

Source/Modulos/Facturas de cliente/Views/uViewDetallesFacturaCliente.dfm

@@ -1,88 +1,2 @@
 inherited frViewDetallesFacturaCliente: TfrViewDetallesFacturaCliente
-  inherited ToolBar1: TToolBar
-    Height = 95
-    ExplicitHeight = 95
-    inherited FontName: TJvFontComboBox [4]
-      Left = 56
-      Top = 22
-      ExplicitLeft = 56
-      ExplicitTop = 22
-    end
-    inherited ToolButton14: TToolButton [5]
-      Left = 201
-      Wrap = False
-      ExplicitLeft = 201
-    end
-    inherited FontSize: TEdit
-      Left = 266
-      Top = 22
-      ExplicitLeft = 266
-      ExplicitTop = 22
-    end
-    inherited UpDown1: TUpDown
-      Left = 308
-      Top = 22
-      ExplicitLeft = 308
-      ExplicitTop = 22
-    end
-    inherited ToolButton13: TToolButton
-      Left = 325
-      Top = 22
-      ExplicitLeft = 325
-      ExplicitTop = 22
-    end
-    inherited ToolButton11: TToolButton [9]
-      Left = 333
-      Top = 22
-      ExplicitLeft = 333
-      ExplicitTop = 22
-    end
-    inherited ToolButton12: TToolButton [10]
-      Left = 0
-      Top = 22
-      Wrap = True
-      ExplicitLeft = 0
-      ExplicitTop = 22
-      ExplicitHeight = 27
-    end
-    inherited ToolButton9: TToolButton [11]
-      Left = 0
-      Top = 49
-      ExplicitLeft = 0
-      ExplicitTop = 49
-    end
-    inherited ToolButton10: TToolButton [12]
-      Left = 145
-      Top = 49
-      ExplicitLeft = 145
-      ExplicitTop = 49
-    end
-    inherited ToolButton6: TToolButton [13]
-      Left = 270
-      Top = 49
-      ExplicitLeft = 270
-      ExplicitTop = 49
-    end
-    inherited ToolButton7: TToolButton [14]
-      Left = 336
-      Top = 49
-      Wrap = True
-      ExplicitLeft = 336
-      ExplicitTop = 49
-    end
-    inherited ToolButton8: TToolButton [15]
-      Left = 0
-      Top = 71
-      ExplicitLeft = 0
-      ExplicitTop = 71
-    end
-  end
-  inherited cxGrid: TcxGrid
-    Top = 121
-    Height = 183
-  end
-  inherited TBXDock1: TTBXDock
-    Top = 95
-    ExplicitTop = 68
-  end
 end

Source/Modulos/Facturas de cliente/Views/uViewDetallesFacturaCliente.pas

@@ -12,7 +12,14 @@ uses
   Grids, DBGrids, StdCtrls, ExtCtrls, cxRichEdit, StdActns, ExtActns,
   JvExStdCtrls, JvCombobox, JvColorCombo, TB2Item, TBX, TB2Dock, TB2Toolbar,
   uControllerDetallesArticulos, uViewDetallesArticulos, uBizFacturasCliente,
-  uDAInterfaces, cxDropDownEdit, cxButtonEdit;
+  uDAInterfaces, cxDropDownEdit, cxButtonEdit, dxSkinsCore, dxSkinBlack,
+  dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary,
+  dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
+  dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
+  dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
+  dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine,
+  dxSkinXmas2008Blue, dxSkinscxPCPainter, Menus, cxGridCustomPopupMenu,
+  cxGridPopupMenu;
 
 type
   IViewDetallesFacturaCliente = interface(IViewDetallesArticulos)
@@ -22,7 +29,7 @@ type
     property Factura: IBizFacturaCliente read GetFactura write SetFactura;
   end;
 
-  TfrViewDetallesFacturaCliente = class(TfrViewDetallesArticulos)
+  TfrViewDetallesFacturaCliente = class(TfrViewDetallesArticulos, IViewDetallesFacturaCliente)
   protected
     FFactura: IBizFacturaCliente;
     function GetFactura: IBizFacturaCliente;

Source/Modulos/Facturas de cliente/Views/uViewElegirArticulosFacturasCliente.dfm

@@ -13,16 +13,22 @@ inherited frViewElegirArticulosFacturasCliente: TfrViewElegirArticulosFacturasCl
     inherited TBXDockablePanel1: TTBXDockablePanel
       inherited dxLayoutControl1: TdxLayoutControl
         inherited txtFiltroTodo: TcxTextEdit
-          ExplicitWidth = 273
+          Style.LookAndFeel.SkinName = ''
-          Width = 273
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
         end
         inherited edtFechaIniFiltro: TcxDateEdit
-          ExplicitWidth = 121
+          Style.LookAndFeel.SkinName = ''
-          Width = 121
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
         end
         inherited edtFechaFinFiltro: TcxDateEdit
-          ExplicitWidth = 121                                          
+          Style.LookAndFeel.SkinName = ''
-          Width = 121
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
         end
       end
     end

Source/Modulos/Facturas de cliente/Views/uViewElegirArticulosFacturasCliente.pas

@@ -11,7 +11,13 @@ uses
   cxGridCustomPopupMenu, cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
   uDADataTable, cxGridLevel, cxGridCustomTableView, cxGridTableView,
   cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg,
-  ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase;
+  ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase,
+  dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee,
+  dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
+  dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black,
+  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
+  dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters,
+  dxSkinValentine, dxSkinXmas2008Blue, dxSkinscxPCPainter, uDAInterfaces;
 
 type
   IViewElegirArticulosFacturasCliente = interface(IViewArticulos)

Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm

@@ -14,6 +14,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
     Align = alClient
     ParentBackground = True
     TabOrder = 0
+    TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
     LookAndFeel = dxLayoutOfficeLookAndFeel1
     DesignSize = (
@@ -32,13 +33,17 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       Style.Color = clInfoBk
       Style.HotTrack = False
       Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
       StyleDisabled.Color = clMenuBar
       StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
       StyleDisabled.TextColor = clWindowText
       StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 0
-      Width = 159
+      Width = 158
     end
     object edtFecha: TcxDBDateEdit
       Left = 124
@@ -51,15 +56,19 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       Style.Color = clInfoBk
       Style.HotTrack = False
       Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
       Style.Shadow = False
       Style.ButtonStyle = bts3D
       Style.ButtonTransparency = ebtNone
       Style.PopupBorderStyle = epbsFrame3D
       StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 1
-      Width = 159
+      Width = 158
     end
     object memObservaciones: TcxDBMemo
       Left = 22
@@ -72,17 +81,21 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       Style.BorderStyle = ebs3D
       Style.HotTrack = False
       Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 4
-      Height = 159
+      Height = 151
-      Width = 301
+      Width = 260
     end
     inline frViewClienteFactura: TfrViewDatosYSeleccionCliente
       Left = 310
       Top = 30
-      Width = 314
+      Width = 119
       Height = 215
       Font.Charset = DEFAULT_CHARSET
       Font.Color = clWindowText
@@ -94,41 +107,65 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       ReadOnly = False
       ExplicitLeft = 310
       ExplicitTop = 30
-      ExplicitWidth = 314
+      ExplicitWidth = 119
       ExplicitHeight = 215
       inherited dxLayoutControl1: TdxLayoutControl
-        Width = 314
+        Width = 119
         Height = 215
         ExplicitWidth = 314
         ExplicitHeight = 215
         inherited edtlNombre: TcxDBTextEdit
           DataBinding.DataSource = DADataSource
-          ExplicitWidth = 224
+          Style.LookAndFeel.SkinName = ''
-          Width = 224
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 210
+          Width = 210
         end
         inherited edtNIFCIF: TcxDBTextEdit
           DataBinding.DataSource = DADataSource
-          ExplicitWidth = 562
+          Style.LookAndFeel.SkinName = ''
-          Width = 562
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 210
+          Width = 210
         end
         inherited edtCalle: TcxDBTextEdit
           DataBinding.DataSource = DADataSource
-          ExplicitWidth = 562
+          Style.LookAndFeel.SkinName = ''
-          Width = 562
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 210
+          Width = 210
         end
         inherited edtPoblacion: TcxDBTextEdit
           DataBinding.DataSource = DADataSource
-          ExplicitWidth = 177
+          Style.LookAndFeel.SkinName = ''
-          Width = 177
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 92
+          Width = 92
         end
         inherited edtProvincia: TcxDBTextEdit
           DataBinding.DataSource = DADataSource
-          ExplicitWidth = 327
+          Style.LookAndFeel.SkinName = ''
-          Width = 327
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 210
+          Width = 210
         end
         inherited edtCodigoPostal: TcxDBTextEdit
           Left = 192
           DataBinding.DataSource = DADataSource
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
           ExplicitLeft = 192
         end
         inherited Button3: TBitBtn
@@ -158,16 +195,20 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
       Style.ButtonStyle = bts3D
       Style.PopupBorderStyle = epbsFrame3D
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 2
-      Width = 78
+      Width = 20
     end
     object bFormasPago: TButton
       Left = 150

Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas

@@ -9,7 +9,13 @@ uses
   cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, dxLayoutControl,
   cxMemo, cxMaskEdit, cxDropDownEdit, cxCalendar, cxSpinEdit, StdCtrls, Mask,
   DBCtrls, cxGraphics, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit,
-  cxDBLookupComboBox, uFormasPagoController, uDAInterfaces, uBizFormasPago;
+  cxDBLookupComboBox, uFormasPagoController, uDAInterfaces, uBizFormasPago,
+  dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee,
+  dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
+  dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black,
+  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
+  dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters,
+  dxSkinValentine, dxSkinXmas2008Blue, dxSkinsdxLCPainter;
 
 type
   IViewFacturaCliente = interface(IViewBase)

Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm

@@ -196,14 +196,6 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
         BuiltInStyle = True
       end
     end
-    inherited cxViewGridPopupMenu: TcxGridPopupMenu
-      PopupMenus = <
-        item
-          GridView = frViewFacturasProveedor1.cxGridView
-          HitTypes = [gvhtCell]
-          Index = 0
-        end>
-    end
   end
   inherited EditorActionList: TActionList [4]
     Left = 136

Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas

@@ -63,7 +63,7 @@ implementation
 
 uses
   uDataModuleFacturasProveedor, uDataModuleUsuarios,
-  uGridUtils, uDBSelectionListUtils, uFactuGES_App,
+  uGridStatusUtils, uDBSelectionListUtils, uFactuGES_App,
   uAlbaranesProveedorController, uBizAlbaranesProveedor,
   uEditorBase;
 

Source/Modulos/Familias/Controller/Familias_controller.cfg

@@ -0,0 +1,39 @@
+-$A8
+-$B-
+-$C+
+-$D-
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L-
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$Y-
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-$M16384,1048576
+-K$00400000
+-E"C:\Codigo Tecsitel\Output\Debug"
+-LE"C:\Codigo Tecsitel\Output\Debug\Cliente"
+-LN"C:\Codigo Tecsitel\Source\Modulos\Lib"
+-U"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Imports";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\Indy10";"C:\Codigo Tecsitel\Lib";"C:\Codigo Tecsitel\Lib\RemObjects\RemObjects_SDK";"C:\Codigo Tecsitel\Lib\RemObjects\Data_Abstract";"C:\Codigo Tecsitel\Lib\CCPack";"C:\Codigo Tecsitel\Lib\CFPack";"C:\Codigo Tecsitel\Lib\GUISDK";"C:\Codigo Tecsitel\Lib\PluginSDK";"C:\Codigo Tecsitel\Lib\DevExpressVCL";"C:\Codigo Tecsitel\Lib\FastReport4";"C:\Codigo Tecsitel\Lib\JCL";"C:\Codigo Tecsitel\Lib\JVCL";"C:\Codigo Tecsitel\Lib\PngComponents";"C:\Codigo Tecsitel\Lib\cxIntl6";"C:\Codigo Tecsitel\Lib\cxIntlPrintSys3";"C:\Codigo Tecsitel\Lib\TB2k+TBX";"C:\Codigo Tecsitel\Lib\Mustangpeak\MPCommonLib";"C:\Codigo Tecsitel\Lib\Mustangpeak\EasyListview";"C:\Codigo Tecsitel\Lib\JSDialog";"C:\Codigo Tecsitel\Lib\UserControl";;"C:\Codigo Tecsitel\Source\Lib";
+-O"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Imports";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\Indy10";"C:\Codigo Tecsitel\Lib";"C:\Codigo Tecsitel\Lib\RemObjects\RemObjects_SDK";"C:\Codigo Tecsitel\Lib\RemObjects\Data_Abstract";"C:\Codigo Tecsitel\Lib\CCPack";"C:\Codigo Tecsitel\Lib\CFPack";"C:\Codigo Tecsitel\Lib\GUISDK";"C:\Codigo Tecsitel\Lib\PluginSDK";"C:\Codigo Tecsitel\Lib\DevExpressVCL";"C:\Codigo Tecsitel\Lib\FastReport4";"C:\Codigo Tecsitel\Lib\JCL";"C:\Codigo Tecsitel\Lib\JVCL";"C:\Codigo Tecsitel\Lib\PngComponents";"C:\Codigo Tecsitel\Lib\cxIntl6";"C:\Codigo Tecsitel\Lib\cxIntlPrintSys3";"C:\Codigo Tecsitel\Lib\TB2k+TBX";"C:\Codigo Tecsitel\Lib\Mustangpeak\MPCommonLib";"C:\Codigo Tecsitel\Lib\Mustangpeak\EasyListview";"C:\Codigo Tecsitel\Lib\JSDialog";"C:\Codigo Tecsitel\Lib\UserControl";;"C:\Codigo Tecsitel\Source\Lib";
+-I"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Imports";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\Indy10";"C:\Codigo Tecsitel\Lib";"C:\Codigo Tecsitel\Lib\RemObjects\RemObjects_SDK";"C:\Codigo Tecsitel\Lib\RemObjects\Data_Abstract";"C:\Codigo Tecsitel\Lib\CCPack";"C:\Codigo Tecsitel\Lib\CFPack";"C:\Codigo Tecsitel\Lib\GUISDK";"C:\Codigo Tecsitel\Lib\PluginSDK";"C:\Codigo Tecsitel\Lib\DevExpressVCL";"C:\Codigo Tecsitel\Lib\FastReport4";"C:\Codigo Tecsitel\Lib\JCL";"C:\Codigo Tecsitel\Lib\JVCL";"C:\Codigo Tecsitel\Lib\PngComponents";"C:\Codigo Tecsitel\Lib\cxIntl6";"C:\Codigo Tecsitel\Lib\cxIntlPrintSys3";"C:\Codigo Tecsitel\Lib\TB2k+TBX";"C:\Codigo Tecsitel\Lib\Mustangpeak\MPCommonLib";"C:\Codigo Tecsitel\Lib\Mustangpeak\EasyListview";"C:\Codigo Tecsitel\Lib\JSDialog";"C:\Codigo Tecsitel\Lib\UserControl";;"C:\Codigo Tecsitel\Source\Lib";
+-R"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Imports";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\Indy10";"C:\Codigo Tecsitel\Lib";"C:\Codigo Tecsitel\Lib\RemObjects\RemObjects_SDK";"C:\Codigo Tecsitel\Lib\RemObjects\Data_Abstract";"C:\Codigo Tecsitel\Lib\CCPack";"C:\Codigo Tecsitel\Lib\CFPack";"C:\Codigo Tecsitel\Lib\GUISDK";"C:\Codigo Tecsitel\Lib\PluginSDK";"C:\Codigo Tecsitel\Lib\DevExpressVCL";"C:\Codigo Tecsitel\Lib\FastReport4";"C:\Codigo Tecsitel\Lib\JCL";"C:\Codigo Tecsitel\Lib\JVCL";"C:\Codigo Tecsitel\Lib\PngComponents";"C:\Codigo Tecsitel\Lib\cxIntl6";"C:\Codigo Tecsitel\Lib\cxIntlPrintSys3";"C:\Codigo Tecsitel\Lib\TB2k+TBX";"C:\Codigo Tecsitel\Lib\Mustangpeak\MPCommonLib";"C:\Codigo Tecsitel\Lib\Mustangpeak\EasyListview";"C:\Codigo Tecsitel\Lib\JSDialog";"C:\Codigo Tecsitel\Lib\UserControl";;"C:\Codigo Tecsitel\Source\Lib";

Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.dfm

@@ -268,14 +268,6 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos
         BuiltInStyle = True
       end
     end
-    inherited cxViewGridPopupMenu: TcxGridPopupMenu
-      PopupMenus = <
-        item
-          GridView = frViewHistoricoMovimientos1.cxGridView
-          HitTypes = [gvhtCell]
-          Index = 0
-        end>
-    end
   end
   inherited EditorActionList: TActionList [4]
     Left = 88

Source/Modulos/Inventario/Views/uEditorDetalleReservas.dfm

@@ -217,14 +217,6 @@ inherited fEditorDetalleReservas: TfEditorDetalleReservas
         BuiltInStyle = True
       end
     end
-    inherited cxViewGridPopupMenu: TcxGridPopupMenu
-      PopupMenus = <
-        item
-          GridView = frViewDetalleReservas1.cxGridView
-          HitTypes = [gvhtCell]
-          Index = 0
-        end>
-    end
   end
   inherited EditorActionList: TActionList [4]
     Left = 96

Source/Modulos/Inventario/Views/uEditorElegirArticulosAlmacen.dfm

@@ -223,14 +223,6 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen
         BuiltInReportLink = True
       end
     end
-    inherited cxViewGridPopupMenu: TcxGridPopupMenu
-      PopupMenus = <
-        item
-          GridView = frViewInventario1.cxGridView
-          HitTypes = [gvhtCell]
-          Index = 0
-        end>
-    end
     inherited dxPrintStyleManager1: TdxPrintStyleManager
       inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
         BuiltInStyle = True

Source/Modulos/Inventario/Views/uEditorElegirArticulosAlmacen.pas

@@ -46,7 +46,7 @@ implementation
 
 uses
   uEditorGridBase, cxGridCustomTableView, uIntegerListUtils, uDBSelectionListUtils,
-  uGridUtils, uEditorBase, uInventarioController;
+  uGridStatusUtils, uEditorBase, uInventarioController;
 
 
 { TfEditorElegirArticulosAlmacen }

Source/Modulos/Inventario/Views/uEditorEntradaSalidaArticulos.dfm

@@ -223,14 +223,6 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
         BuiltInReportLink = True
       end
     end
-    inherited cxViewGridPopupMenu: TcxGridPopupMenu
-      PopupMenus = <
-        item
-          GridView = frViewListaArticulos.cxGridView
-          HitTypes = [gvhtCell]
-          Index = 0
-        end>
-    end
     inherited dxPrintStyleManager1: TdxPrintStyleManager
       inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
         BuiltInStyle = True

Source/Modulos/Inventario/Views/uEditorInventario.dfm

@@ -215,14 +215,6 @@ inherited fEditorInventario: TfEditorInventario
         BuiltInReportLink = True
       end
     end
-    inherited cxViewGridPopupMenu: TcxGridPopupMenu
-      PopupMenus = <
-        item
-          GridView = frViewInventario1.cxGridView
-          HitTypes = [gvhtCell]
-          Index = 0
-        end>
-    end
     inherited dxPrintStyleManager1: TdxPrintStyleManager
       inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
         BuiltInStyle = True

Source/Modulos/Inventario/Views/uEditorInventario.pas

@@ -87,7 +87,7 @@ implementation
 {$R *.DFM}
 
 uses
-  cxControls, uGridUtils, uDataModuleInventario, uDataModuleUsuarios,
+  cxControls, uGridStatusUtils, uDataModuleInventario, uDataModuleUsuarios,
   uEditorBase, uDBSelectionListUtils, cxGridDBTableView, cxGridCustomTableView,
   uAlmacenesController, uFactuGES_App,
   //uGenerarAlbaranesProvUtils,

Source/Modulos/Obras/Views/uEditorObras.dfm

@@ -147,14 +147,6 @@ inherited fEditorObras: TfEditorObras
         BuiltInReportLink = True
       end
     end
-    inherited cxViewGridPopupMenu: TcxGridPopupMenu
-      PopupMenus = <
-        item
-          GridView = frViewObras1.cxGridView
-          HitTypes = [gvhtCell]
-          Index = 0
-        end>
-    end
     inherited dxPrintStyleManager1: TdxPrintStyleManager
       inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
         BuiltInStyle = True

Source/Modulos/Pedidos a proveedor/Views/uEditorElegirPedidosProveedor.dfm

@@ -207,14 +207,6 @@ inherited fEditorElegirPedidosProveedor: TfEditorElegirPedidosProveedor
         BuiltInReportLink = True
       end
     end
-    inherited cxViewGridPopupMenu: TcxGridPopupMenu
-      PopupMenus = <
-        item
-          GridView = frViewPedidosProveedor1.cxGridView
-          HitTypes = [gvhtCell]
-          Index = 0
-        end>
-    end
     inherited dxPrintStyleManager1: TdxPrintStyleManager
       inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
         BuiltInStyle = True

Source/Modulos/Pedidos a proveedor/Views/uEditorElegirPedidosProveedor.pas

@@ -45,7 +45,7 @@ implementation
 
 uses
   uEditorGridBase, cxGridCustomTableView, uIntegerListUtils, uDBSelectionListUtils,
-  uGridUtils, uEditorBase, uPedidosProveedorController;
+  uGridStatusUtils, uEditorBase, uPedidosProveedorController;
 
 {$R *.dfm}
 

Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas

@@ -72,7 +72,7 @@ type
 implementation
 
 uses
-  uViewDatosYSeleccionProveedor, uDataModuleUsuarios, uGridUtils, uDialogUtils,
+  uViewDatosYSeleccionProveedor, uDataModuleUsuarios, uGridStatusUtils, uDialogUtils,
   uFactuGES_App;
 
 {$R *.dfm}

Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm

@@ -177,14 +177,6 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
         BuiltInStyle = True
       end
     end
-    inherited cxViewGridPopupMenu: TcxGridPopupMenu
-      PopupMenus = <
-        item
-          GridView = frViewPedidosProveedor1.cxGridView
-          HitTypes = [gvhtCell]
-          Index = 0
-        end>
-    end
   end
   inherited EditorActionList: TActionList [4]
     Left = 16

Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas

@@ -61,7 +61,7 @@ uses
   uDataModulePedidosProveedor, uDataModuleUsuarios, uFactuGES_App, uEditorDBBase,
   uGenerarAlbaranesProvUtils,
 //  uInventarioController, uBizInventario,
-  uDialogUtils, uGridUtils, uDBSelectionListUtils;
+  uDialogUtils, uGridStatusUtils, uDBSelectionListUtils;
 //  uAlbaranesProveedorController, uBizAlbaranesProveedor,
 //  uGenerarPedidosProvUtils, ;
 

Source/Modulos/Presupuestos de cliente/Views/uEditorElegirPresupuestosCliente.pas

@@ -44,7 +44,7 @@ implementation
 
 uses
   uEditorGridBase, cxGridCustomTableView, uIntegerListUtils, uDBSelectionListUtils,
-  uGridUtils, uEditorBase, uPresupuestosClienteController,
+  uGridStatusUtils, uEditorBase, uPresupuestosClienteController,
   cxGridLevel;
 
 {$R *.dfm}

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

@@ -289,15 +289,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
             ExplicitWidth = 702
           end
         end
-        inherited cxGridPopupMenu: TcxGridPopupMenu
-          PopupMenus = <
-            item
-              GridView = frViewDetallesPresupuestoCliente1.cxGridView
-              HitTypes = [gvhtIndicator]
-              Index = 0
-              PopupMenu = frViewDetallesPresupuestoCliente1.GridIndicatorPopupMenu
-            end>
-        end
       end
     end
     object pagPortada: TTabSheet

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

@@ -76,7 +76,7 @@ uses
 //  uBizAlbaranesCliente, uAlbaranesClienteController,
   uEditorBase, uEditorDBBase, uDialogUtils,
 //  uFacturasClienteController, uBizFacturasCliente,
-  uGridUtils, uDBSelectionListUtils;
+  uGridStatusUtils, uDBSelectionListUtils;
 //  uGenerarPresupuestosProvUtils, uGenerarAlbaranesCliUtils;
 
 

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

@@ -1,119 +1,68 @@
 inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
   inherited ToolBar1: TToolBar
-    Height = 100
+    inherited ToolButton13: TToolButton [1]
-    ExplicitHeight = 100
+      Left = 65
-    inherited ToolButton14: TToolButton [1]
-      Left = 109
       Wrap = False
-      ExplicitLeft = 109
+      ExplicitLeft = 65
     end
-    inherited ToolButton2: TToolButton [2]
+    inherited UpDown1: TUpDown [2]
-      Left = 174
+      Left = 73
-      ExplicitLeft = 174
+      ExplicitLeft = 73
     end
-    inherited ToolButton4: TToolButton
+    inherited ToolButton12: TToolButton [3]
-      Left = 288
-      ExplicitLeft = 288
-    end
-    inherited ToolButton12: TToolButton [4]
-      Top = 0
-      ExplicitTop = 0
-    end
-    inherited ToolButton3: TToolButton [5]
       Left = 0
-      Top = 30
+      Wrap = True
       ExplicitLeft = 0
-      ExplicitTop = 30
+      ExplicitHeight = 30
     end
-    inherited FontName: TJvFontComboBox [6]
+    inherited ToolButton11: TToolButton
-      Left = 55
+      Wrap = False
-      Top = 30
-      ExplicitLeft = 55
-      ExplicitTop = 30
     end
-    inherited ToolButton9: TToolButton [7]
+    inherited ToolButton9: TToolButton [6]
-      Left = 200
+      Left = 250
       Top = 30
       Wrap = True
-      ExplicitLeft = 200
+      ExplicitLeft = 250
       ExplicitTop = 30
     end
-    inherited ToolButton11: TToolButton [8]
+    inherited ToolButton2: TToolButton [7]
-      Left = 0
+    end
-      ExplicitLeft = 0
+    inherited ToolButton4: TToolButton [8]
+      Left = 114
+      ExplicitLeft = 114
     end
     inherited FontSize: TEdit [9]
-      Left = 141
+      Left = 170
-      Top = 52
+      ExplicitLeft = 170
-      Width = 58
-      ExplicitLeft = 141
-      ExplicitTop = 52
-      ExplicitWidth = 58
     end
-    inherited UpDown1: TUpDown [10]
+    inherited ToolButton6: TToolButton [10]
-      Left = 199
+      Left = 212
-      Top = 52
+      Wrap = False
-      ExplicitLeft = 199
+      ExplicitLeft = 212
-      ExplicitTop = 52
     end
-    inherited ToolButton10: TToolButton [11]
+    inherited ToolButton3: TToolButton [11]
-      Left = 216
+      Left = 278
-      ExplicitLeft = 216
     end
-    inherited ToolButton13: TToolButton [12]
+    inherited ToolButton7: TToolButton
-      Left = 341
+      Left = 333
-      Top = 52
+      Wrap = True
-      ExplicitLeft = 341
+      ExplicitLeft = 333
-      ExplicitTop = 52
     end
-    inherited ToolButton6: TToolButton [13]
+    inherited FontName: TJvFontComboBox [13]
-      Left = 349
+      Left = 0
-      Top = 52
+      Top = 74
-      ExplicitLeft = 349
+      ExplicitLeft = 0
-      ExplicitTop = 52
+      ExplicitTop = 74
     end
-    inherited ToolButton7: TToolButton [14]
+    inherited ToolButton10: TToolButton [14]
-      Left = 415
+      Left = 145
-      Top = 52
+      Top = 74
-      ExplicitLeft = 415
+      ExplicitLeft = 145
-      ExplicitTop = 52
+      ExplicitTop = 74
     end
-    inherited ToolButton8: TToolButton [15]
+    inherited ToolButton8: TToolButton
-      Left = 482
+      Left = 270
-      Top = 52
+      ExplicitLeft = 270
-      ExplicitLeft = 482
-      ExplicitTop = 52
     end
   end
-  inherited cxGrid: TcxGrid
-    Top = 126
-    Height = 178
-    ExplicitHeight = 178
-    inherited cxGridView: TcxGridDBTableView
-      inherited cxGridViewREFERENCIA: TcxGridDBColumn
-        Width = 89
-      end
-      inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn
-        Width = 82
-      end
-      inherited cxGridViewDESCRIPCION: TcxGridDBColumn
-        Width = 315
-      end
-      inherited cxGridViewCANTIDAD: TcxGridDBColumn
-        Width = 94
-      end
-      inherited cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn
-        DataBinding.FieldName = 'UNIDAD_MEDIDA'
-      end
-      inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn
-        Width = 70
-      end
-      inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn
-        Width = 69
-      end
-    end
-  end
-  inherited TBXDock1: TTBXDock
-    Top = 100
-  end
 end

Source/Modulos/Recibos de cliente/Views/uEditorElegirRecibosCliente.pas

@@ -37,7 +37,13 @@ uses
 
   uViewRecibosCliente, uEditorRecibosCliente, uBizRecibosCliente, uIEditorElegirRecibosCliente,
   Buttons, cxRadioGroup, cxMaskEdit, cxDropDownEdit, cxCalendar, cxControls,
-  cxContainer, cxEdit, cxTextEdit, TBXDkPanels, JSDialog;
+  cxContainer, cxEdit, cxTextEdit, TBXDkPanels, JSDialog, dxSkinsCore,
+  dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans,
+  dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
+  dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
+  dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
+  dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine,
+  dxSkinXmas2008Blue, uDAInterfaces;
   
 
 type
@@ -82,7 +88,7 @@ implementation
 
 uses
   uEditorGridBase, cxGridCustomTableView, uIntegerListUtils, uDBSelectionListUtils,
-  uGridUtils, uDialogUtils, uEditorBase, uRecibosClienteController;
+  uGridStatusUtils, uDialogUtils, uEditorBase, uRecibosClienteController;
 
 {$R *.dfm}
 

Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm

@@ -179,14 +179,6 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
         BuiltInStyle = True
       end
     end
-    inherited cxViewGridPopupMenu: TcxGridPopupMenu
-      PopupMenus = <
-        item
-          GridView = frViewRecibosCliente1.cxGridView
-          HitTypes = [gvhtCell]
-          Index = 0
-        end>
-    end
   end
   inherited EditorActionList: TActionList [4]
     Left = 136

Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas

@@ -74,7 +74,7 @@ implementation
 
 uses
   uDataModuleRecibosCliente, uDataModuleUsuarios, uFactuGES_App, 
-  uGridUtils, uDBSelectionListUtils;
+  uGridStatusUtils, uDBSelectionListUtils;
 
 {$R *.dfm}
 

Source/Modulos/Recibos de proveedor/Views/uEditorElegirRecibosProveedor.dfm

@@ -216,14 +216,6 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
         BuiltInReportLink = True
       end
     end
-    inherited cxViewGridPopupMenu: TcxGridPopupMenu
-      PopupMenus = <
-        item
-          GridView = frViewRecibosProveedor1.cxGridView
-          HitTypes = [gvhtCell]
-          Index = 0
-        end>
-    end
     inherited dxPrintStyleManager1: TdxPrintStyleManager
       inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
         BuiltInStyle = True

Source/Modulos/Recibos de proveedor/Views/uEditorElegirRecibosProveedor.pas

@@ -82,7 +82,7 @@ implementation
 
 uses
   uEditorGridBase, cxGridCustomTableView, uIntegerListUtils, uDBSelectionListUtils,
-  uGridUtils, uDialogUtils, uEditorBase, uRecibosProveedorController;
+  uGridStatusUtils, uDialogUtils, uEditorBase, uRecibosProveedorController;
 
 {$R *.dfm}
 

Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dfm

@@ -162,14 +162,6 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
         BuiltInReportLink = True
       end
     end
-    inherited cxViewGridPopupMenu: TcxGridPopupMenu
-      PopupMenus = <
-        item
-          GridView = frViewRecibosProveedor1.cxGridView
-          HitTypes = [gvhtCell]
-          Index = 0
-        end>
-    end
     inherited dxPrintStyleManager1: TdxPrintStyleManager
       inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
         BuiltInStyle = True

Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.pas

@@ -60,7 +60,7 @@ implementation
 
 uses
   uCustomEditor, uDataModuleRemesasCliente, uDataModuleUsuarios,
-  uGridUtils, uDBSelectionListUtils, uFactuGES_App,
+  uGridStatusUtils, uDBSelectionListUtils, uFactuGES_App,
   uEditorDBBase,  uBizFamilias, uFamiliasController,
 //  uBancaElectronicaController,
   cxGrid, cxGridCustomTableView; //, uListaRemesasCliente;

Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas

@@ -60,7 +60,7 @@ implementation
 
 uses
   uCustomEditor, uDataModuleRemesasProveedor, uDataModuleUsuarios,
-  uGridUtils, uDBSelectionListUtils, uFactuGES_App,
+  uGridStatusUtils, uDBSelectionListUtils, uFactuGES_App,
   uEditorDBBase,  uBizFamilias, uFamiliasController,
 //  uBancaElectronicaController,
   cxGrid, cxGridCustomTableView; //, uListaRemesasProveedor;

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "1.0.4.0\0"
               VALUE "ProductVersion", "1.0.4.0\0"
-              VALUE "CompileDate", "lunes, 26 de mayo de 2008 18:50\0"
+              VALUE "CompileDate", "viernes, 30 de mayo de 2008 18:41\0"
          END
     END
     BLOCK "VarFileInfo"

Source/Servidor/uServerMainForm.dfm

@@ -3,8 +3,8 @@ object fServerForm: TfServerForm
   Top = 611
   BorderStyle = bsDialog
   Caption = 'FactuGES Server'
-  ClientHeight = 140
+  ClientHeight = 159
-  ClientWidth = 267
+  ClientWidth = 299
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -19,7 +19,7 @@ object fServerForm: TfServerForm
   object JvGradient1: TJvGradient
     Left = 0
     Top = 57
-    Width = 267
+    Width = 299
     Height = 4
     Align = alTop
     StartColor = 2971346
@@ -29,15 +29,16 @@ object fServerForm: TfServerForm
   object Panel1: TPanel
     Left = 0
     Top = 0
-    Width = 267
+    Width = 299
     Height = 57
     Align = alTop
     BevelOuter = bvNone
     TabOrder = 0
+    ExplicitWidth = 267
     object Image1: TImage
       Left = 0
       Top = 0
-      Width = 267
+      Width = 299
       Height = 57
       Align = alClient
       Center = True