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 @@
- 00:00:01
- 14/01/2014 15:34:24
- True
+ 00:00:13
+ 12/12/2013 10:39:51
+ False
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 0536977..02d5ca3 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
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"