Se arregla #447: Al dar de alta un cliente o proveedor me sale la tupla como duplicada y tiene que refrescar para que salga bien

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

Build/Build.fbpInf

@@ -6,7 +6,7 @@
   <propertysets/>
   <variables>
     <project_path>
-      <![CDATA[C:\Codigo Tecsitel]]>
+      <![CDATA[C:\Codigo tecsitel]]>
     </project_path>
   </variables>
   <properties>

Source/Cliente/FactuGES.rc

@@ -1,7 +1,7 @@
-MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico"
+MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Factuges.ico"
 1 VERSIONINFO
-FILEVERSION 1,8,3,0
+FILEVERSION 1,8,5,0
-PRODUCTVERSION 1,8,3,0
+PRODUCTVERSION 1,8,5,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "1.8.3.0\0"
+              VALUE "FileVersion", "1.8.5.0\0"
               VALUE "InternalName", "FactuGES\0"
               VALUE "ProductName", "FactuGES\0"
-              VALUE "ProductVersion", "1.8.3.0\0"
+              VALUE "ProductVersion", "1.8.5.0\0"
          END
     END
     BLOCK "VarFileInfo"

Source/Modulos/Contactos/Model/uBizContactos.pas

@@ -517,7 +517,6 @@ end;
 procedure TBizContacto.OnNewRecord(Sender: TDADataTable);
 begin
   inherited;
-  ID := GetRecNo; // -1, -2, -3...
   IniciarValoresContactoNuevo;
 end;
 

Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm

@@ -1882,6 +1882,7 @@ object srvContactos: TsrvContactos
             Name = 'ID'
             DataType = datAutoInc
             GeneratorName = 'GEN_CONTACTOS_ID'
+            ServerAutoRefresh = True
             DictionaryEntry = 'Contactos_ID'
             InPrimaryKey = True
           end

Source/Modulos/Contactos/Views/uViewContactos.dfm

@@ -18,6 +18,11 @@ inherited frViewContactos: TfrViewContactos
           Column = cxGridViewNOMBRE
         end>
       OptionsBehavior.PullFocusing = True
+      object cxGridViewID: TcxGridDBColumn
+        DataBinding.FieldName = 'ID'
+        Visible = False
+        VisibleForCustomization = False
+      end
       object cxGridViewREFERENCIA: TcxGridDBColumn
         Caption = 'C'#243'digo'
         DataBinding.FieldName = 'REFERENCIA'
@@ -132,10 +137,14 @@ inherited frViewContactos: TfrViewContactos
           Width = 322
         end
         inherited eLista: TcxComboBox
+          Left = 412
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
+          ExplicitLeft = 412
+          ExplicitWidth = 215
+          Width = 215
         end
       end
       inherited TBXAlignmentPanel1: TTBXAlignmentPanel

Source/Modulos/Contactos/Views/uViewContactos.pas

@@ -39,6 +39,7 @@ type
     cxGridViewEMAIL_2: TcxGridDBColumn;
     cxGridViewPAGINA_WEB: TcxGridDBColumn;
     cxGridViewREFERENCIA: TcxGridDBColumn;
+    cxGridViewID: TcxGridDBColumn;
   protected
     FContactos: IBizContacto;
     function GetContactos: IBizContacto; virtual;

Source/Servidor/FactuGES_Server.dproj

@@ -38,6 +38,9 @@
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">5</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.8.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.8.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 20 de julio de 2010 11:19</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
       
       
+      
+      
+      
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>

Source/Servidor/FactuGES_Server.rc

@@ -1,7 +1,7 @@
-MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Servidor.ico"
+MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico"
 1 VERSIONINFO
-FILEVERSION 1,8,3,0
+FILEVERSION 1,8,5,0
-PRODUCTVERSION 1,8,3,0
+PRODUCTVERSION 1,8,5,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -12,9 +12,9 @@ BEGIN
     BEGIN
          BLOCK "0C0A04E4"
          BEGIN
-              VALUE "FileVersion", "1.8.3.0\0"
+              VALUE "FileVersion", "1.8.5.0\0"
-              VALUE "ProductVersion", "1.8.3.0\0"
+              VALUE "ProductVersion", "1.8.5.0\0"
-              VALUE "CompileDate", "martes, 20 de julio de 2010 11:19\0"
+              VALUE "CompileDate", "miércoles, 22 de septiembre de 2010 19:15\0"
          END
     END
     BLOCK "VarFileInfo"