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"