Arreglo de contactos para que se vea o no si es proveedor o acredor (en ficha de proveedor o ficha de cliente)

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@334 f4e31baf-9722-1c47-927c-6f952f962d4b

Source/Modulos/Contactos/Views/uEditorCliente.dfm

@@ -685,13 +685,17 @@ inherited fEditorCliente: TfEditorCliente
             ExplicitWidth = 862
             Width = 862
           end
-          inherited rdTipoSubcuenta: TDBRadioGroup
+          inherited layoutApunteGroup_Root: TdxLayoutGroup
+            inherited layoutApunteGroup1: TdxLayoutGroup
+              inherited layoutApunteItem7: TdxLayoutItem
                 Visible = False
               end
             end
           end
         end
       end
+    end
+  end
   inherited StatusBar: TJvStatusBar
     Top = 626
     Width = 896

Source/Modulos/Contactos/Views/uEditorContacto.dfm

@@ -110,6 +110,10 @@ inherited fEditorContacto: TfEditorContacto
           ExplicitWidth = 618
           inherited eEntidad: TcxDBTextEdit
             Top = 57
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitTop = 57
             ExplicitWidth = 114
             Width = 114
@@ -117,6 +121,10 @@ inherited fEditorContacto: TfEditorContacto
           inherited eSucursal: TcxDBTextEdit
             Left = 403
             Top = 57
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitLeft = 403
             ExplicitTop = 57
             ExplicitWidth = 112
@@ -124,16 +132,28 @@ inherited fEditorContacto: TfEditorContacto
           end
           inherited eCuenta: TcxDBTextEdit
             Top = 84
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitTop = 84
             ExplicitWidth = 194
             Width = 194
           end
           inherited eDC: TcxDBTextEdit
             Top = 84
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitTop = 84
           end
           inherited eTitular: TcxDBTextEdit
             Top = 30
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitTop = 30
             ExplicitWidth = 194
             Width = 194

Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas

@@ -3,7 +3,7 @@ unit schFacturasProveedorClient_Intf;
 interface
 
 uses
-  Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
@@ -374,7 +374,7 @@ type
   end;
 
   { TFacturasProveedorDataTableRules }
-  TFacturasProveedorDataTableRules = class(TDADataTableRules, IFacturasProveedor)
+  TFacturasProveedorDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor)
   private
     f_OBSERVACIONES: IROStrings;
     procedure OBSERVACIONES_OnChange(Sender: TObject);
@@ -716,7 +716,7 @@ type
   end;
 
   { TFacturasProveedor_DetallesDataTableRules }
-  TFacturasProveedor_DetallesDataTableRules = class(TDADataTableRules, IFacturasProveedor_Detalles)
+  TFacturasProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor_Detalles)
   private
   protected
     { Property getters and setters }

Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas

@@ -3,7 +3,7 @@ unit schRecibosProveedorClient_Intf;
 interface
 
 uses
-  Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
@@ -447,7 +447,7 @@ type
   end;
 
   { TRecibosCompensadosProvDataTableRules }
-  TRecibosCompensadosProvDataTableRules = class(TDADataTableRules, IRecibosCompensadosProv)
+  TRecibosCompensadosProvDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosProv)
   private
   protected
     { Property getters and setters }
@@ -926,7 +926,7 @@ type
   end;
 
   { TRecibosProveedorDataTableRules }
-  TRecibosProveedorDataTableRules = class(TDADataTableRules, IRecibosProveedor)
+  TRecibosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IRecibosProveedor)
   private
   protected
     { Property getters and setters }
@@ -1255,7 +1255,7 @@ type
   end;
 
   { TPagosProveedorDataTableRules }
-  TPagosProveedorDataTableRules = class(TDADataTableRules, IPagosProveedor)
+  TPagosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPagosProveedor)
   private
   protected
     { Property getters and setters }

Source/Servidor/FactuGES_Server.dproj

@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
 	<PropertyGroup>
 		<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
@@ -29,9 +29,6 @@
 		<Borland.ProjectType/>
 		<BorlandProject>
 			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">4</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.2.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.2.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 22 de julio de 2008 19:27</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      
-      
-      
 						<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
 					</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
 	</ProjectExtensions>

Source/Servidor/FactuGES_Server.rc

@@ -16,7 +16,7 @@ BEGIN
               VALUE "FileVersion", "2.2.4.0\0"
               VALUE "ProductName", "FactuGES (Servidor)\0"
               VALUE "ProductVersion", "2.2.4.0\0"
-              VALUE "CompileDate", "miércoles, 19 de noviembre de 2008 17:04\0"
+              VALUE "CompileDate", "jueves, 20 de noviembre de 2008 12:46\0"
          END
     END
     BLOCK "VarFileInfo"