Histórico de movimientos -> Arreglados iconos de estado en la columna tipo de movimiento.

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

Source/Cliente/FactuGES.dpr

@@ -1,7 +1,6 @@
 program FactuGES;
 
 uses
-  ExceptionLog,
   Forms,
   Windows,
   SysUtils,

Source/Cliente/FactuGES.dproj

@@ -45,7 +45,7 @@
     <DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_ResourcePath>
     <DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_ObjPath>
     <DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_IncludePath>
-    <DCC_Define>DEBUG;EUREKALOG;EUREKALOG_VER6</DCC_Define>
+    <DCC_Define>DEBUG;</DCC_Define>
     <DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
     <DCC_DebugVN>True</DCC_DebugVN>
     <DCC_SymbolReferenceInfo>2</DCC_SymbolReferenceInfo>
@@ -59,6 +59,10 @@
       
       
       
+      
+      
+      
+      
       <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>
@@ -88,7 +92,7 @@
 <!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=6011
-Activate=1
+Activate=0
 Activate Handle=1
 Save Log File=1
 Foreground Tab=0

Source/Modulos/Historico de movimientos/Model/schHistoricoMovimientosClient_Intf.pas

@@ -3,7 +3,7 @@ unit schHistoricoMovimientosClient_Intf;
 interface
 
 uses
-  Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
@@ -141,7 +141,7 @@ type
   end;
 
   { THistoricoMovimientosDataTableRules }
-  THistoricoMovimientosDataTableRules = class(TDADataTableRules, IHistoricoMovimientos)
+  THistoricoMovimientosDataTableRules = class(TIntfObjectDADataTableRules, IHistoricoMovimientos)
   private
   protected
     { Property getters and setters }

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

@@ -1887,6 +1887,7 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos
     object rasladar1: TMenuItem [4]
       Caption = 'Trasladar'
       ImageIndex = 23
+      Visible = False
     end
     inherited N1: TMenuItem [5]
     end

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

@@ -32,42 +32,46 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
       end
       object cxGridViewFECHA: TcxGridDBColumn
         DataBinding.FieldName = 'FECHA'
+        Width = 60
       end
       object cxGridViewTIPO_MOVIMIENTO: TcxGridDBColumn
         DataBinding.FieldName = 'TIPO_MOVIMIENTO'
         PropertiesClassName = 'TcxImageComboBoxProperties'
+        Properties.DefaultDescription = 'Salida'
+        Properties.DefaultImageIndex = 2
         Properties.Images = GridPNGImageList
         Properties.Items = <
           item
             Description = 'Entrada'
-            ImageIndex = 2
-            Value = 'Entrada'
-          end
-          item
-            Description = 'Salida'
             ImageIndex = 3
-            Value = 'Salida'
+            Tag = 1
+            Value = 'Entrada'
           end>
-        Properties.LargeImages = GridPNGImageList
       end
       object cxGridViewFAMILIA: TcxGridDBColumn
         Caption = 'Familia'
         DataBinding.FieldName = 'FAMILIA'
+        Width = 50
       end
       object cxGridViewREFERENCIA: TcxGridDBColumn
         DataBinding.FieldName = 'REFERENCIA'
+        Width = 50
       end
       object cxGridViewDESCRIPCION: TcxGridDBColumn
         DataBinding.FieldName = 'DESCRIPCION'
+        Width = 102
       end
       object cxGridViewFABRICANTE: TcxGridDBColumn
         DataBinding.FieldName = 'FABRICANTE'
+        Width = 41
       end
       object cxGridViewREFERENCIA_FABR: TcxGridDBColumn
         DataBinding.FieldName = 'REFERENCIA_FABR'
+        Width = 41
       end
       object cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn
         DataBinding.FieldName = 'UNIDAD_MEDIDA'
+        Width = 43
       end
       object cxGridViewCANTIDAD: TcxGridDBColumn
         DataBinding.FieldName = 'CANTIDAD'
@@ -75,12 +79,15 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
         Properties.Alignment.Horz = taRightJustify
         FooterAlignmentHorz = taRightJustify
         HeaderAlignmentHorz = taRightJustify
+        Width = 41
       end
       object cxGridViewNOMBRE_ALMACEN: TcxGridDBColumn
         DataBinding.FieldName = 'NOMBRE_ALMACEN'
+        Width = 42
       end
       object cxGridViewCAUSA: TcxGridDBColumn
         DataBinding.FieldName = 'CAUSA'
+        Width = 38
       end
     end
     object cxGridDBTableView1: TcxGridDBTableView [1]
@@ -129,12 +136,19 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
     end
   end
   inherited dxComponentPrinter: TdxComponentPrinter
+    Left = 400
+    Top = 160
     inherited dxComponentPrinterLink: TdxGridReportLink
       ReportDocument.CreationDate = 38673.741107951390000000
       BuiltInReportLink = True
     end
   end
+  inherited dxPSEngineController1: TdxPSEngineController
+    Left = 328
+    Top = 160
+  end
   inherited cxStyleRepository1: TcxStyleRepository
+    Top = 160
     inherited cxStyleSelection: TcxStyle
       AssignedValues = [svColor, svFont, svTextColor]
     end
@@ -148,7 +162,12 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
       TextColor = clNavy
     end
     object cxStyleSalida: TcxStyle
-      AssignedValues = [svTextColor]
+      AssignedValues = [svFont, svTextColor]
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = []
       TextColor = clGreen
     end
   end
@@ -352,22 +371,17 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
           CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73
           ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC
           CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F
-          F73EE77CFEFC2FF784F3FB25D29F33000001B74944415478DACDD3BF4BDC6018
+          F73EE77CFEFC2FF784F3FB25D29F33000000FE4944415478DA63FCFFFF3F0325
-          07F0EF9BE44D2EC99B5C2E69AF873F7051EEE88928D2BB8250E9E67FD03A94AE
+          8091AA06303232A248F2ACE2F8FF25EC0723BA26143DF80CE05EC2FEFFFFAFFF
-          3A39B675D045E9D26EA55B8BB33AB9B82938D82EF66CE970AB52151585430F3C
+          0CDF927E31926500D73CB6FFED4E450CE51B7B197EE4FF66246800EF5ACEFF0C
-          CCE5F5798B6314C1A17D20BC2FC9FB7C42BEEF1B26A5C47D8AFD3F40616C119C
+          FF800A80B682F14F06860ABB6486F7DF3F314CDFB992E167F51F46FC06ACE6FC
-          1BF0031742D8705D5BD0D8600C655A5357CF745D835ABEF4AE783BE0BA199A9B
+          BFCCBB8FE1C3D78F0CEFBF7D84D040CD6F3EBF6778F3E51DC3DE6367187EB7FF
-          EF83C07D4B405ED3D8F19D01E1D9221B3853C552D7DCEECE0935B03796651C71
+          61C46900CF528EFFD3DD1AB06A06E12F3FBE32DC3EF39CE1CF94BF8C580DE09E
-          CE41230853C0422A406F08B3397FA254EE991F7D5EC4E6461D860E388E013BC3
+          CF0EF6F3F4FD8B516383831BAEF9EFD47FB85DC0350312EA0CE03000FAF53703
-          71DE8C7176162B80A50125CEF5F1DEC77D33C32303B0B4180F42035991C0F724
+          8392BC38580EA699A45860AD64F9AFAC268EA2992403588A98FFFFFFF91F4533
-          1E861A36BF1D63EBC72996A74BA940BBB32B6283D5217691E410F8929ADBF01C
+          4906306733FD47D78CD70072C0C01B0000F574D6E1505448120000000049454E
-          09E14A74140CFCAC1D62FBD7295666FB530111C7EDD71D9DD1A7A7CF86711E47
+          44AE426082}
-          C8247B609068B56254AA8F70B0D7C076ED00ABF343A90005265D9ABEC817725F
+        Name = 'Salida'
-          AA2383D8FAFE1B4C030C0AD7F332948786CB4B89B50F4FD2015549226D4AFA65
-          14795F9BCD96DA9557DCE4FBBAAEC3B64D1894EAFAC7CADA8D802A758F3E67D2
-          B2F8676AE80E42FF8F3A1BA6A9B65153006E05AE4BD0D548DA49395F08EB7ED6
-          F97B4E6E04FED9CF7405E802B6E1F5AC5DBC0000000049454E44AE426082}
-        Name = 'Entrada'
         Background = clWindow
       end
       item
@@ -456,19 +470,27 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
           CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73
           ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC
           CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F
-          F73EE77CFEFC2FF784F3FB25D29F33000000FE4944415478DA63FCFFFF3F0325
+          F73EE77CFEFC2FF784F3FB25D29F33000001B74944415478DACDD3BF4BDC6018
-          8091AA06303232A248F2ACE2F8FF25EC0723BA26143DF80CE05EC2FEFFFFAFFF
+          07F0EF9BE44D2EC99B5C2E69AF873F7051EEE88928D2BB8250E9E67FD03A94AE
-          0CDF927E31926500D73CB6FFED4E450CE51B7B197EE4FF66246800EF5ACEFF0C
+          3A39B675D045E9D26EA55B8BB33AB9B82938D82EF66CE970AB52151585430F3C
-          FF800A80B682F14F06860ABB6486F7DF3F314CDFB992E167F51F46FC06ACE6FC
+          CCE5F5798B6314C1A17D20BC2FC9FB7C42BEEF1B26A5C47D8AFD3F40616C119C
-          BFCCBB8FE1C3D78F0CEFBF7D84D040CD6F3EBF6778F3E51DC3DE6367187EB7FF
+          1BF0031742D8705D5BD0D8600C655A5357CF745D835ABEF4AE783BE0BA199A9B
-          61C46900CF528EFFD3DD1AB06A06E12F3FBE32DC3EF39CE1CF94BF8C580DE09E
+          EF83C07D4B405ED3D8F19D01E1D9221B3853C552D7DCEECE0935B03796651C71
-          CF0EF6F3F4FD8B516383831BAEF9EFD47FB85DC0350312EA0CE03000FAF53703
+          CE41230853C0422A406F08B3397FA254EE991F7D5EC4E6461D860E388E013BC3
-          8392BC38580EA699A45860AD64F9AFAC268EA2992403588A98FFFFFFF91F4533
+          71DE8C7176162B80A50125CEF5F1DEC77D33C32303B0B4180F42035991C0F724
-          4906306733FD47D78CD70072C0C01B0000F574D6E1505448120000000049454E
+          1E861A36BF1D63EBC72996A74BA940BBB32B6283D5217691E410F8929ADBF01C
-          44AE426082}
+          09E14A74140CFCAC1D62FBD7295666FB530111C7EDD71D9DD1A7A7CF86711E47
-        Name = 'Salida'
+          C8247B609068B56254AA8F70B0D7C076ED00ABF343A90005265D9ABEC817725F
+          AA2383D8FAFE1B4C030C0AD7F332948786CB4B89B50F4FD2015549226D4AFA65
+          14795F9BCD96DA9557DCE4FBBAAEC3B64D1894EAFAC7CADA8D802A758F3E67D2
+          B2F8676AE80E42FF8F3A1BA6A9B65153006E05AE4BD0D548DA49395F08EB7ED6
+          F97B4E6E04FED9CF7405E802B6E1F5AC5DBC0000000049454E44AE426082}
+        Name = 'Entrada'
         Background = clWindow
       end>
     Bitmap = {}
   end
+  inherited cxViewGridPopupMenu: TcxGridPopupMenu
+    Top = 152
+  end
 end

Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.pas

@@ -38,11 +38,11 @@ type
     cxGridViewFECHA: TcxGridDBColumn;
     cxGridViewCANTIDAD: TcxGridDBColumn;
     cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn;
-    cxGridViewTIPO_MOVIMIENTO: TcxGridDBColumn;
     cxGridViewCAUSA: TcxGridDBColumn;
     cxStyleSalida: TcxStyle;
     cxGridViewFABRICANTE: TcxGridDBColumn;
     cxGridViewREFERENCIA_FABR: TcxGridDBColumn;
+    cxGridViewTIPO_MOVIMIENTO: TcxGridDBColumn;
 
     procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);
     procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "1.2.8.0\0"
               VALUE "ProductVersion", "1.2.8.0\0"
-              VALUE "CompileDate", "viernes, 05 de septiembre de 2008 13:18\0"
+              VALUE "CompileDate", "viernes, 05 de septiembre de 2008 17:14\0"
          END
     END
     BLOCK "VarFileInfo"