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

Se arregla fallo en la clase de negocio de recibos de cliente y proveedor, ya que se hacia apertura de la tabla de recibis compensados, antes de asignar la clausula where que nos permitiria no hacer fech de todos los elementos.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@135 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
roberto 2010-07-19 16:54:16 +00:00
parent f2c4e7954f
commit d5a1bb79fa
17 changed files with 370 additions and 378 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

BIN
Build/Installer.fbl6
View File

Binary file not shown.

BIN
Source/Base/Base.res
View File

Binary file not shown.

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo noviseda\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo noviseda\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 1,0,7,0 FILEVERSION 1,0,8,0
PRODUCTVERSION 1,0,7,0 PRODUCTVERSION 1,0,8,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "1.0.7.0\0" VALUE "FileVersion", "1.0.8.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "1.0.7.0\0" VALUE "ProductVersion", "1.0.8.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

2
Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas
View File

@ -49,7 +49,7 @@ begin
// Update_Asiento_Factura(aChange); // Update_Asiento_Factura(aChange);
end; end;
ctDelete: begin ctDelete: begin
Delete_Asiento_Factura(aChange); // Delete_Asiento_Factura(aChange);
end; end;
end; end;

2
Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas
View File

@ -52,7 +52,7 @@ begin
// Update_Asiento_Factura(aChange); // Update_Asiento_Factura(aChange);
end; end;
ctDelete: begin ctDelete: begin
Delete_Asiento_Factura(aChange); // Delete_Asiento_Factura(aChange);
end; end;
end; end;

2
Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.res */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1E0.tmp */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA6.tmp */

2
Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.res */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1DE.tmp */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA4.tmp */

2
Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.res */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1DC.tmp */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA2.tmp */

2
Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.res */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf254.tmp */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf11A.tmp */

2
Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc
View File

@ -27,4 +27,4 @@ END
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uViewArticulosPendientes.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uViewArticulosPendientes.dfm */
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorArticulosPendientes.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorArticulosPendientes.dfm */
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.res */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.res */
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.drf */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf118.tmp */

4
Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas
View File

@ -149,10 +149,6 @@ procedure TBizRecibosCliente.SetRecibosCompensados(const Value: IBizRecibosCompe
begin begin
FRecibosCompensados := Value; FRecibosCompensados := Value;
EnlazarMaestroDetalle(FRecibosCompensadosLink, FRecibosCompensados); EnlazarMaestroDetalle(FRecibosCompensadosLink, FRecibosCompensados);
if Assigned(FRecibosCompensados) then
if not FRecibosCompensados.DataTable.Active then
FRecibosCompensados.DataTable.Active := True;
end; end;
function TBizRecibosCliente._GetCliente: IBizCliente; function TBizRecibosCliente._GetCliente: IBizCliente;

4
Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedor.pas
View File

@ -143,10 +143,6 @@ procedure TBizRecibosProveedor.SetRecibosCompensados(const Value: IBizRecibosCom
begin begin
FRecibosCompensados := Value; FRecibosCompensados := Value;
EnlazarMaestroDetalle(FRecibosCompensadosLink, FRecibosCompensados); EnlazarMaestroDetalle(FRecibosCompensadosLink, FRecibosCompensados);
if Assigned(FRecibosCompensados) then
if not FRecibosCompensados.DataTable.Active then
FRecibosCompensados.DataTable.Active := True;
end; end;
function TBizRecibosProveedor._GetProveedor: IBizProveedor; function TBizRecibosProveedor._GetProveedor: IBizProveedor;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo noviseda\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo noviseda\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 1,0,7,0 FILEVERSION 1,0,8,0
PRODUCTVERSION 1,0,7,0 PRODUCTVERSION 1,0,8,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,11 +13,11 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "1.0.7.0\0" VALUE "FileVersion", "1.0.8.0\0"
VALUE "InternalName", "FactuGES Servidor\0" VALUE "InternalName", "FactuGES Servidor\0"
VALUE "ProductName", "FactuGES Servidor\0" VALUE "ProductName", "FactuGES Servidor\0"
VALUE "ProductVersion", "1.0.7.0\0" VALUE "ProductVersion", "1.0.8.0\0"
VALUE "CompileDate", "jueves, 01 de julio de 2010 19:29\0" VALUE "CompileDate", "lunes, 19 de julio de 2010 18:25\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"