From cb705030cb6369c39ecfcb6caef7584355f19937 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Fri, 17 Jan 2014 15:12:33 +0000
Subject: [PATCH] =?UTF-8?q?cambios=20de=20validaci=C3=B3n=20solicitados=20?=
 =?UTF-8?q?por=20Susana?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@210 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
---
 Build/Build.fbpInf                            |   6 +++---
 .../Controller/uClientesController.pas        |  14 ++++++++++++++
 .../Modulos/Contactos/Views/uViewCliente.dfm  |   2 ++
 Source/Servidor/FactuGES_Server.RES           | Bin 23208 -> 23204 bytes
 Source/Servidor/FactuGES_Server.rc            |   2 +-
 5 files changed, 20 insertions(+), 4 deletions(-)

diff --git a/Build/Build.fbpInf b/Build/Build.fbpInf
index 9b63b41..aaee386 100644
--- a/Build/Build.fbpInf
+++ b/Build/Build.fbpInf
@@ -14,8 +14,8 @@
     <Notes>
       <![CDATA[]]>
     </Notes>
-    <LastBuildRun>00:00:01</LastBuildRun>
-    <LastBuildStart>14/01/2014 15:34:24</LastBuildStart>
-    <LastBuildState>True</LastBuildState>
+    <LastBuildRun>00:00:13</LastBuildRun>
+    <LastBuildStart>12/12/2013 10:39:51</LastBuildStart>
+    <LastBuildState>False</LastBuildState>
   </properties>
 </project>
diff --git a/Source/Modulos/Contactos/Controller/uClientesController.pas b/Source/Modulos/Contactos/Controller/uClientesController.pas
index 23deacb..06b6d82 100644
--- a/Source/Modulos/Contactos/Controller/uClientesController.pas
+++ b/Source/Modulos/Contactos/Controller/uClientesController.pas
@@ -420,6 +420,20 @@ begin
       end;
     end;
 
+    if Length(AContacto.PROVINCIA) = 0 then
+    raise Exception.Create('Debe indicar la provincia del cliente.');
+
+    if Length(AContacto.POBLACION) = 0 then
+    raise Exception.Create('Debe indicar la población del cliente.');
+
+    if Length(AContacto.CODIGO_POSTAL) = 0 then
+    raise Exception.Create('Debe indicar el código postal del cliente.');
+
+    if Length((AContacto as IBizCliente).TIPO_CLIENTE) = 0 then
+    raise Exception.Create('Debe indicar tipo de cliente que es.');
+
+    if Length((AContacto as IBizCliente).GRUPO_CLIENTE) = 0 then
+    raise Exception.Create('Debe indicar la marca con la que va a trabajar el cliente.');
 
     // Por ahora no existe el concepto de direcciones de entrega asi que esto está desactivado
     if Result and (AContacto.Direcciones.RecordCount = 0) then
diff --git a/Source/Modulos/Contactos/Views/uViewCliente.dfm b/Source/Modulos/Contactos/Views/uViewCliente.dfm
index b2703a0..9b1f69b 100644
--- a/Source/Modulos/Contactos/Views/uViewCliente.dfm
+++ b/Source/Modulos/Contactos/Views/uViewCliente.dfm
@@ -86,6 +86,7 @@ inherited frViewCliente: TfrViewCliente
     inherited cbProvincia: TcxDBComboBox
       Left = 132
       Top = 494
+      Properties.DropDownListStyle = lsEditFixedList
       Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.SkinName = ''
@@ -206,6 +207,7 @@ inherited frViewCliente: TfrViewCliente
     inherited cbPoblacion: TcxDBComboBox
       Left = 132
       Top = 521
+      Properties.DropDownListStyle = lsEditFixedList
       Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.SkinName = ''
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 053697719c72b051e753ad8b565fc7493ef46b4a..02d5ca3cd67716ffe040b0357ee526aa3ea6a17c 100644
GIT binary patch
delta 75
zcmZ3nm2t^d#tnBO7*|Zb8zB!Q|3*YJvQ3VRRAziMxi+$zIgLSi^6yAl(K3cihE#?k
dhCCoy%%H=dz+lK=KG`rzo7tGbaB_T<Cjc!x7wG^1

delta 79
zcmZ3om2t&Z#tnBO7}rd`8zB!Q|3*YJa!rnmRAziOxi+$zIg3Gc^6yAl$y|m^hL;RQ
j49N`n3^@#`48;sO3<?Z}45pKHqqLb#7)&NdM|lDOqi-2V

diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index a2c9ba5..1d6a2eb 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "4.3.4.0\0"
               VALUE "ProductVersion", "4.3.4.0\0"
-              VALUE "CompileDate", "miércoles, 15 de enero de 2014 15:44\0"
+              VALUE "CompileDate", "viernes, 17 de enero de 2014 15:31\0"
          END
     END
     BLOCK "VarFileInfo"