Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@303 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-07-31 10:10:52 +00:00
parent 99f3d28230
commit 5d3bb5aeb7
20 changed files with 61 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/ApplicationBase/Ejercicios/Controller/uEjerciciosController.pas
View File

@ -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');

2
Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas
View File

@ -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)');

10
Source/Modulos/Almacenes/Controller/uAlmacenesController.pas
View File

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

2
Source/Modulos/Contabilidad/Controller/uApuntesController.pas
View File

@ -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');

2
Source/Modulos/Contabilidad/Controller/uAsientosController.pas
View File

@ -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');

2
Source/Modulos/Contabilidad/Controller/uBalancesController.pas
View File

@ -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');

2
Source/Modulos/Contabilidad/Controller/uCuentasController.pas
View File

@ -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');

1
Source/Modulos/Contabilidad/Controller/uCuentasEspecialesController.pas
View File

@ -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');

2
Source/Modulos/Contabilidad/Controller/uEpigrafesController.pas
View File

@ -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');

2
Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas
View File

@ -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');

2
Source/Modulos/Contactos/Controller/uGruposClienteController.pas
View File

@ -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');

2
Source/Modulos/Contactos/Controller/uGruposProveedorController.pas
View File

@ -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');

2
Source/Modulos/Contactos/Controller/uProcedenciasClienteController.pas
View File

@ -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');

16
Source/Modulos/Familias/Controller/uFamiliasController.pas
View File

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

2
Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas
View File

@ -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');

2
Source/Modulos/Tipos de IVA/Controller/uTiposIVAController.pas
View File

@ -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');

20
Source/Modulos/Unidades de medida/Controller/uUnidadesMedidaController.pas
View File

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

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.dproj
View File

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

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
1 VERSIONINFO
FILEVERSION 2,2,3,0
PRODUCTVERSION 2,2,3,0
FILEVERSION 2,2,4,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 "CompileDate", "miércoles, 30 de julio de 2008 12:09\0"
VALUE "ProductVersion", "2.2.4.0\0"
VALUE "CompileDate", "jueves, 31 de julio de 2008 12:02\0"
END
END
BLOCK "VarFileInfo"