Archivado/LuisLeon_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cambios de validación solicitados por Susana

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@210 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2014-01-17 15:12:33 +00:00
parent 91f6aef125
commit cb705030cb
5 changed files with 20 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Build/Build.fbpInf
View File

@ -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>

14
Source/Modulos/Contactos/Controller/uClientesController.pas
View File

@ -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

2
Source/Modulos/Contactos/Views/uViewCliente.dfm
View File

@ -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 = ''

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.rc
View File

@ -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"