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> <Notes>
<![CDATA[]]> <![CDATA[]]>
</Notes> </Notes>
<LastBuildRun>00:00:01</LastBuildRun> <LastBuildRun>00:00:13</LastBuildRun>
<LastBuildStart>14/01/2014 15:34:24</LastBuildStart> <LastBuildStart>12/12/2013 10:39:51</LastBuildStart>
<LastBuildState>True</LastBuildState> <LastBuildState>False</LastBuildState>
</properties> </properties>
</project> </project>

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

@ -420,6 +420,20 @@ begin
end; end;
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 // Por ahora no existe el concepto de direcciones de entrega asi que esto está desactivado
if Result and (AContacto.Direcciones.RecordCount = 0) then 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 inherited cbProvincia: TcxDBComboBox
Left = 132 Left = 132
Top = 494 Top = 494
Properties.DropDownListStyle = lsEditFixedList
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
@ -206,6 +207,7 @@ inherited frViewCliente: TfrViewCliente
inherited cbPoblacion: TcxDBComboBox inherited cbPoblacion: TcxDBComboBox
Left = 132 Left = 132
Top = 521 Top = 521
Properties.DropDownListStyle = lsEditFixedList
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.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 BEGIN
VALUE "FileVersion", "4.3.4.0\0" VALUE "FileVersion", "4.3.4.0\0"
VALUE "ProductVersion", "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
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"