Arreglos varios

git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@76 f33bb606-9f5c-448d-9c99-757f00063c96

Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm

@@ -225,6 +225,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
       DataBinding.DataField = 'DESCUENTO'
       DataBinding.DataSource = dsDatosComerciales
       Properties.AssignedValues.MinValue = True
+      Properties.DisplayFormat = ',0.00 %;-,0.00 %'
       Properties.ImmediatePost = True
       Style.BorderColor = clWindowFrame
       Style.BorderStyle = ebs3D
@@ -305,6 +306,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
       DataBinding.DataField = 'DESCUENTO2'
       DataBinding.DataSource = dsDatosComerciales
       Properties.AssignedValues.MinValue = True
+      Properties.EditFormat = ',0.00 %;-,0.00 %'
       Properties.ImmediatePost = True
       Style.BorderColor = clWindowFrame
       Style.BorderStyle = ebs3D

Source/Modulos/Contactos/Views/uViewContacto.dfm

@@ -444,6 +444,7 @@ inherited frViewContacto: TfrViewContacto
       Top = 28
       DataBinding.DataField = 'REFERENCIA'
       DataBinding.DataSource = dsContacto
+      Enabled = False
       Style.BorderColor = clWindowFrame
       Style.BorderStyle = ebs3D
       Style.Color = clWindow
@@ -541,6 +542,7 @@ inherited frViewContacto: TfrViewContacto
               object dxLayoutControlContactoItem25: TdxLayoutItem
                 AlignHorz = ahClient
                 CaptionOptions.Text = 'C'#243'digo:'
+                Enabled = False
                 Control = eReferencia
                 ControlOptions.ShowBorder = False
               end

Source/Modulos/Contactos/Views/uViewDireccionesEntrega.dfm

@@ -66,8 +66,10 @@ inherited frViewDireccionesEntrega: TfrViewDireccionesEntrega
         DataBinding.FieldName = 'PORTE'
         PropertiesClassName = 'TcxCurrencyEditProperties'
         Properties.Alignment.Horz = taRightJustify
+        Visible = False
         FooterAlignmentHorz = taRightJustify
         HeaderAlignmentHorz = taRightJustify
+        VisibleForCustomization = False
         Width = 54
       end
     end

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>

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "1.0.0.0\0"
               VALUE "ProductVersion", "1.0.0.0\0"
-              VALUE "CompileDate", "jueves, 28 de enero de 2010 12:57\0"
+              VALUE "CompileDate", "viernes, 29 de enero de 2010 18:04\0"
          END
     END
     BLOCK "VarFileInfo"