Se repasan todos los validar de los controller para asegurarnos que se hace post del objeto de negocio, para evitar el problema que surge cuando solo ponemos el nombre y sin salir del campo damos a guardar

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@303 f4e31baf-9722-1c47-927c-6f952f962d4b

Source/ApplicationBase/Ejercicios/Controller/uEjerciciosController.pas

@@ -201,6 +201,8 @@ end;
 
 function TEjerciciosController.ValidarEjercicio(AEjercicio: IBizEjercicio): Boolean;
 begin
+  Result := False;
+   
   if not Assigned(AEjercicio) then
     raise Exception.Create ('Ejercicio no asignado');
 

Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas

@@ -238,6 +238,8 @@ end;
 
 function TEmpresasController.ValidarEmpresa(AEmpresa: IBizEmpresa): Boolean;
 begin
+  Result := False;
+  
   if not Assigned(AEmpresa) then
     raise Exception.Create ('Empresa no asignada (ValidarEmpresa)');
 

Source/Modulos/Almacenes/Controller/uAlmacenesController.pas

@@ -179,6 +179,12 @@ function TAlmacenesController.ValidarAlmacen(AAlmacen: IBizAlmacen): Boolean;
 begin
   Result := False;
 
+  if not Assigned(AAlmacen) then
+     raise Exception.Create ('Alamcen no asignado');
+
+  if (AAlmacen.DataTable.State in dsEditModes) then
+      AAlmacen.DataTable.Post;
+
   if Length(AAlmacen.NOMBRE) = 0 then
     raise Exception.Create('Debe indicar al menos el nombre de este almacén.');
 
@@ -186,7 +192,6 @@ begin
   AAlmacen.Edit;
   try
     AAlmacen.USUARIO := AppFactuGES.UsuarioActivo.UserName;
-
     Result := True;
   finally
     AAlmacen.Post;
@@ -365,9 +370,6 @@ begin
   begin
     ShowHourglassCursor;
     try
-      if (AAlmacen.DataTable.State in dsEditModes) then
-          AAlmacen.DataTable.Post;
-
 //      AsignarCodigo(AAlmacen);
       AAlmacen.DataTable.ApplyUpdates;
 

Source/Modulos/Contabilidad/Controller/uApuntesController.pas

@@ -233,6 +233,8 @@ function TApuntesController.ValidarApunte(AApunte: IBizApunte): Boolean;
 var
   Descuadre : Currency;
 begin
+  Result := False;
+  
   if not Assigned(AApunte) then
     raise Exception.Create ('Apuntes no asignados');
 

Source/Modulos/Contabilidad/Controller/uAsientosController.pas

@@ -206,6 +206,8 @@ end;
 
 function TAsientosController.ValidarAsiento(AAsiento: IBizAsiento): Boolean;
 begin
+  Result := False;
+  
   if not Assigned(AAsiento) then
     raise Exception.Create ('Asiento no asignado');
 

Source/Modulos/Contabilidad/Controller/uBalancesController.pas

@@ -159,6 +159,8 @@ end;
 
 function TBalancesController.ValidarBalance(ABalance: IBizBalance): Boolean;
 begin
+  Result := False;
+
   if not Assigned(ABalance) then
     raise Exception.Create ('Balance no asignado');
 

Source/Modulos/Contabilidad/Controller/uCuentasController.pas

@@ -172,6 +172,8 @@ end;
 
 function TCuentasController.ValidarCuenta(ACuenta: IBizCuenta): Boolean;
 begin
+  Result := False;
+
   if not Assigned(ACuenta) then
     raise Exception.Create ('Cuenta no asignado');
 

Source/Modulos/Contabilidad/Controller/uCuentasEspecialesController.pas

@@ -160,6 +160,7 @@ end;
 
 function TCuentasEspecialesController.ValidarCuentaEspecial(ACuentaEspecial: IBizCuentaEspecial): Boolean;
 begin
+  Result := False;
   if not Assigned(ACuentaEspecial) then
     raise Exception.Create ('CuentaEspecial no asignado');
 

Source/Modulos/Contabilidad/Controller/uEpigrafesController.pas

@@ -180,6 +180,8 @@ end;
 
 function TEpigrafesController.ValidarEpigrafe(AEpigrafe: IBizEpigrafe): Boolean;
 begin
+  Result := False;
+  
   if not Assigned(AEpigrafe) then
     raise Exception.Create ('Epigrafe no asignado');
 

Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas

@@ -386,6 +386,8 @@ end;
 
 function TSubCuentasController.ValidarSubCuenta(ASubCuenta: IBizSubCuenta): Boolean;
 begin
+  Result := False;
+  
   if not Assigned(ASubCuenta) then
     raise Exception.Create ('SubCuenta no asignado');
 

Source/Modulos/Contactos/Controller/uGruposClienteController.pas

@@ -123,6 +123,8 @@ end;
 
 function TGruposClienteController.ValidarGrupoCliente(AGrupoCliente: IBizGrupoCliente): Boolean;
 begin
+  Result := False;
+  
   if not Assigned(AGrupoCliente) then
     raise Exception.Create ('GrupoCliente no asignada');
 

Source/Modulos/Contactos/Controller/uGruposProveedorController.pas

@@ -123,6 +123,8 @@ end;
 
 function TGruposProveedorController.ValidarGrupoProveedor(AGrupoProveedor: IBizGrupoProveedor): Boolean;
 begin
+  Result := False;
+  
   if not Assigned(AGrupoProveedor) then
     raise Exception.Create ('GrupoProveedor no asignada');
 

Source/Modulos/Contactos/Controller/uProcedenciasClienteController.pas

@@ -123,6 +123,8 @@ end;
 
 function TProcedenciasClienteController.ValidarProcedenciaCliente(AProcedenciaCliente: IBizProcedenciaCliente): Boolean;
 begin
+  Result := False;
+  
   if not Assigned(AProcedenciaCliente) then
     raise Exception.Create ('ProcedenciaCliente no asignada');
 

Source/Modulos/Familias/Controller/uFamiliasController.pas

@@ -131,7 +131,15 @@ end;
 
 function TFamiliasController.ValidarAlmacen(AFamilia: IBizFamilia): Boolean;
 begin
-//
+  Result := False;
+
+  if not Assigned(AFamilia) then
+    raise Exception.Create ('Familia no asignada');
+
+  if (AFamilia.DataTable.State in dsEditModes) then
+      AFamilia.DataTable.Post;
+
+  Result := True;
 end;
 
 procedure TFamiliasController.ValidarObjetos;
@@ -193,7 +201,7 @@ begin
   Result := False;
 
   if not Assigned(AFamilia) then
-    raise Exception.Create ('Almacen no asignada');
+    raise Exception.Create ('Familia no asignada');
 
   ValidarObjetos;
 
@@ -201,11 +209,7 @@ begin
   begin
     ShowHourglassCursor;
     try
-      if (AFamilia.DataTable.State in dsEditModes) then
-          AFamilia.DataTable.Post;
-
       AFamilia.DataTable.ApplyUpdates;
-
       Result := True;
     finally
       HideHourglassCursor;

Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas

@@ -177,6 +177,8 @@ end;
 
 function TFormasPagoController.ValidarFormaPago(AFormaPago: IBizFormaPago): Boolean;
 begin
+  Result := False;
+  
   if not Assigned(AFormaPago) then
     raise Exception.Create ('Forma de pago no asignada');
 

Source/Modulos/Tipos de IVA/Controller/uTiposIVAController.pas

@@ -212,6 +212,8 @@ end;
 
 function TTiposIVAController.ValidarTipoIVA(ATipoIVA: IBizTipoIVA): Boolean;
 begin
+  Result := False;
+
   if not Assigned(ATipoIVA) then
     raise Exception.Create ('TipoIVA no asignado');
 

Source/Modulos/Unidades de medida/Controller/uUnidadesMedidaController.pas

@@ -27,7 +27,7 @@ type
     procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
     function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
 
-    function ValidarAlmacen(AUnidadMedida: IBizUnidadMedida): Boolean;
+    function ValidarUnidadMedida(AUnidadMedida: IBizUnidadMedida): Boolean;
 
     //Estos son los tres métodos a sobre escribir si se desea heredar toda la logica de
     //este controller
@@ -129,9 +129,17 @@ begin
   inherited;
 end;
 
-function TUnidadesMedidaController.ValidarAlmacen(AUnidadMedida: IBizUnidadMedida): Boolean;
+function TUnidadesMedidaController.ValidarUnidadMedida(AUnidadMedida: IBizUnidadMedida): Boolean;
 begin
-//
+  Result := False;
+
+  if not Assigned(AUnidadMedida) then
+    raise Exception.Create ('Unidad de medida no asignada');
+
+  if (AUnidadMedida.DataTable.State in dsEditModes) then
+      AUnidadMedida.DataTable.Post;
+
+  Result := True;
 end;
 
 procedure TUnidadesMedidaController.ValidarObjetos;
@@ -197,15 +205,11 @@ begin
 
   ValidarObjetos;
 
-  if ValidarAlmacen(AUnidadMedida) then
+  if ValidarUnidadMedida(AUnidadMedida) then
   begin
     ShowHourglassCursor;
     try
-      if (AUnidadMedida.DataTable.State in dsEditModes) then
-          AUnidadMedida.DataTable.Post;
-
       AUnidadMedida.DataTable.ApplyUpdates;
-
       Result := True;
     finally
       HideHourglassCursor;

Source/Servidor/FactuGES_Server.dproj

@@ -28,7 +28,7 @@
 		<Borland.Personality>Delphi.Personality</Borland.Personality>
 		<Borland.ProjectType/>
 		<BorlandProject>
-			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.2.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.2.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 23 de mayo de 2008 17:19</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">4</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.2.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.2.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 22 de julio de 2008 19:27</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
 						<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
 					</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
 	</ProjectExtensions>

Source/Servidor/FactuGES_Server.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
 1 VERSIONINFO
-FILEVERSION 2,2,3,0
+FILEVERSION 2,2,4,0
-PRODUCTVERSION 2,2,3,0
+PRODUCTVERSION 2,2,4,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "2.2.3.0\0"
+              VALUE "FileVersion", "2.2.4.0\0"
               VALUE "ProductName", "FactuGES (Servidor)\0"
-              VALUE "ProductVersion", "2.2.3.0\0"
+              VALUE "ProductVersion", "2.2.4.0\0"
-              VALUE "CompileDate", "miércoles, 30 de julio de 2008 12:09\0"
+              VALUE "CompileDate", "jueves, 31 de julio de 2008 12:02\0"
          END
     END
     BLOCK "VarFileInfo"