Repaso a presupuestos:

- Activado duplicar por que ya duplica los registros del contenido.
- Arreglado un problema de autorefresco en el grid.

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

Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas

@@ -270,6 +270,7 @@ begin
       USUARIO := AppFactuGES.UsuarioActivo.UserName;
       FECHA_PRESUPUESTO := DateOf(Now);
       INCIDENCIAS_ACTIVAS := 0;
+      DataTable.FieldByName('INCIDENCIAS').AsVariant := Null;
       REFERENCIA := '';
     end;
     Result.Post;

Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm

@@ -76,6 +76,7 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
         DataType = datString
         Size = 15
         DisplayLabel = 'PresupuestosCliente_NIF_CIF'
+        ServerAutoRefresh = True
         DictionaryEntry = 'PresupuestosCliente_NIF_CIF'
       end
       item
@@ -83,6 +84,7 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
         DataType = datString
         Size = 255
         DisplayLabel = 'PresupuestosCliente_NOMBRE'
+        ServerAutoRefresh = True
         DictionaryEntry = 'PresupuestosCliente_NOMBRE'
       end
       item
@@ -90,6 +92,7 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
         DataType = datString
         Size = 255
         DisplayLabel = 'PedidosCliente_REFERENCIA_CLIENTE'
+        ServerAutoRefresh = True
         DictionaryEntry = 'PresupuestosCliente_REFERENCIA_CLIENTE'
       end
       item

Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm

@@ -180,18 +180,21 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
             Name = 'NIF_CIF'
             DataType = datString
             Size = 15
+            ServerAutoRefresh = True
             DictionaryEntry = 'PresupuestosCliente_NIF_CIF'
           end
           item
             Name = 'NOMBRE'
             DataType = datString
             Size = 255
+            ServerAutoRefresh = True
             DictionaryEntry = 'PresupuestosCliente_NOMBRE'
           end
           item
             Name = 'REFERENCIA_CLIENTE'
             DataType = datString
             Size = 255
+            ServerAutoRefresh = True
             DictionaryEntry = 'PresupuestosCliente_REFERENCIA_CLIENTE'
           end
           item
@@ -1208,7 +1211,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
     DeleteCommandName = 'Delete_PresupuestosCliente'
     UpdateCommandName = 'Update_PresupuestosCliente'
     ReferencedDataset = 'PresupuestosCliente'
-    ProcessorOptions = [poPrepareCommands]
+    ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
     UpdateMode = updWhereKeyOnly
     Left = 184
     Top = 24

Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk

@@ -30,7 +30,7 @@ requires
   PresupuestosCliente_model,
   PresupuestosCliente_controller,
   Articulos_view;
-  
+
 contains
   uPresupuestosClienteViewRegister in 'uPresupuestosClienteViewRegister.pas',
   uEditorPresupuestosCliente in 'uEditorPresupuestosCliente.pas' {fEditorPresupuestosCliente: TfEditorPedidosCliente},

Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj

@@ -43,32 +43,6 @@
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
       <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">Intraweb 8.0 Design Package for Borland Development Studio 2006</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">PresupuestosCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
@@ -77,54 +51,49 @@
     <DelphiCompile Include="PresupuestosCliente_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="Articulos_view.dcp" />
+    <DCCReference Include="..\..\..\Servidor\Articulos_view.dcp" />
-    <DCCReference Include="Articulos_viewvclrtl.dcp" />
+    <DCCReference Include="..\..\..\Servidor\Base.dcp" />
-    <DCCReference Include="Base.dcp" />
+    <DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
-    <DCCReference Include="GUIBase.dcp" />
+    <DCCReference Include="..\..\..\Servidor\PresupuestosCliente_controller.dcp" />
-    <DCCReference Include="PresupuestosCliente_controller.dcp" />
+    <DCCReference Include="..\..\..\Servidor\PresupuestosCliente_model.dcp" />
-    <DCCReference Include="PresupuestosCliente_model.dcp" />
-    <DCCReference Include="rtl.dcp" />
-    <DCCReference Include="rtlcontainsuPresupuestosClienteViewRegisterin.dcp" />
     <DCCReference Include="uEditorElegirArticulosPresupuestoCliente.pas">
-      <DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>
       <Form>fEditorElegirArticulosPresupuestoCliente</Form>
+      <DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>
     </DCCReference>
     <DCCReference Include="uEditorElegirPresupuestosCliente.pas">
-      <DesignClass>TfEditorElegirPedidosCliente</DesignClass>
       <Form>fEditorElegirPresupuestosCliente</Form>
+      <DesignClass>TfEditorElegirPedidosCliente</DesignClass>
     </DCCReference>
     <DCCReference Include="uEditorPresupuestoCliente.pas">
-      <DesignClass>TfEditorPedidoCliente</DesignClass>
       <Form>fEditorPresupuestoCliente</Form>
+      <DesignClass>TfEditorPedidoCliente</DesignClass>
     </DCCReference>
     <DCCReference Include="uEditorPresupuestosCliente.pas">
-      <DesignClass>TfEditorPedidosCliente</DesignClass>
       <Form>fEditorPresupuestosCliente</Form>
+      <DesignClass>TfEditorPedidosCliente</DesignClass>
     </DCCReference>
     <DCCReference Include="uEditorPresupuestosClienteReport.pas">
-      <DesignClass>TfEditorPedidosClientePreview</DesignClass>
       <Form>fEditorPresupuestosClientePreview</Form>
+      <DesignClass>TfEditorPedidosClientePreview</DesignClass>
     </DCCReference>
     <DCCReference Include="uPresupuestosClienteViewRegister.pas" />
     <DCCReference Include="uViewDetallesPresupuestoCliente.pas">
-      <DesignClass>TFrame</DesignClass>
       <Form>frViewDetallesPresupuestoCliente</Form>
+      <DesignClass>TFrame</DesignClass>
     </DCCReference>
     <DCCReference Include="uViewDireccionEntregaPresupuestoCliente.pas" />
     <DCCReference Include="uViewElegirArticulosPresupuestosCliente.pas">
-      <DesignClass>TFrame</DesignClass>
       <Form>frViewElegirArticulosPresupuestosCliente</Form>
+      <DesignClass>TFrame</DesignClass>
     </DCCReference>
     <DCCReference Include="uViewPresupuestoCliente.pas">
-      <DesignClass>TFrame</DesignClass>
       <Form>frViewPresupuestoCliente</Form>
+      <DesignClass>TFrame</DesignClass>
     </DCCReference>
     <DCCReference Include="uViewPresupuestosCliente.pas">
-      <DesignClass>TFrame</DesignClass>
       <Form>frViewPresupuestosCliente</Form>
+      <DesignClass>TFrame</DesignClass>
     </DCCReference>
-    <DCCReference Include="vcl.dcp" />
-    <DCCReference Include="vclrtl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line

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

@@ -124,7 +124,7 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
     Width = 674
     ExplicitWidth = 674
     inherited tbxMain: TTBXToolbar
-      ExplicitWidth = 561
+      ExplicitWidth = 632
     end
     inherited tbxMenu: TTBXToolbar
       ExplicitWidth = 674
@@ -163,10 +163,6 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
     inherited actImprimir: TAction
       Visible = True
     end
-    inherited actDuplicar: TAction
-      Enabled = False
-      Visible = False
-    end
     object actGenerarAlbaranCli: TAction
       Category = 'Acciones'
       Caption = 'Generar albar'#225'n de cliente'

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

@@ -37,11 +37,11 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
         DataBinding.FieldName = 'ID'
         OnCustomDrawCell = cxGridViewIDCustomDrawCell
         OnGetCellHint = cxGridViewIDGetCellHint
-        BestFitMaxWidth = 15
+        OnGetDisplayText = cxGridViewIDGetDisplayText
+        BestFitMaxWidth = 20
         MinWidth = 15
-        Options.HorzSizing = False
         VisibleForCustomization = False
-        Width = 15
+        Width = 20
         IsCaptionAssigned = True
       end
       object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn
@@ -64,14 +64,17 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
         Properties.ShowDescriptions = False
         Visible = False
         BestFitMaxWidth = 20
+        MinWidth = 10
         Options.HorzSizing = False
         VisibleForCustomization = False
-        Width = 20
+        Width = 10
       end
       object cxGridViewINCIDENCIAS: TcxGridDBColumn
         DataBinding.FieldName = 'INCIDENCIAS'
         Visible = False
+        BestFitMaxWidth = 10
         VisibleForCustomization = False
+        Width = 20
       end
       object cxGridViewREFERENCIA: TcxGridDBColumn
         DataBinding.FieldName = 'REFERENCIA'

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

@@ -68,6 +68,8 @@ type
       ARecord: TcxCustomGridRecord; ACellViewInfo: TcxGridTableDataCellViewInfo;
       const AMousePos: TPoint; var AHintText: TCaption;
       var AIsHintMultiLine: Boolean; var AHintTextRect: TRect);
+    procedure cxGridViewIDGetDisplayText(Sender: TcxCustomGridTableItem;
+      ARecord: TcxCustomGridRecord; var AText: string);
 
   private
     //Filtros relativos a la vista
@@ -234,6 +236,14 @@ begin
   end;
 end;
 
+procedure TfrViewPresupuestosCliente.cxGridViewIDGetDisplayText(
+  Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
+  var AText: string);
+begin
+  inherited;
+  AText := '';
+end;
+
 procedure TfrViewPresupuestosCliente.cxGridViewStylesGetContentStyle(Sender:
         TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem:
         TcxCustomGridTableItem; out AStyle: TcxStyle);