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

- Sustituir en todos los controladores la llamada a la función CopyDataTableDA3 por CopyDataTableDA5

Browse Source 
- Facturas de cliente -> permitir abonos con importe 0.

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@305 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-08-05 15:05:15 +00:00
parent 70f9a6c532
commit f0bc0610ab
21 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
View File

@ -830,7 +830,7 @@ var
ASeleccionados : IBizAlbaranCliente;
begin
ASeleccionados := (Self.Buscar(ID_NULO) as IBizAlbaranCliente);
CopyDataTableDA3(AAlbaran.DataTable, ASeleccionados.DataTable, True);
CopyDataTableDA5(AAlbaran.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados;
end;

2
Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
View File

@ -907,7 +907,7 @@ var
ASeleccionados : IBizAlbaranProveedor;
begin
ASeleccionados := (Self.Buscar(ID_NULO) as IBizAlbaranProveedor);
CopyDataTableDA3(AAlbaran.DataTable, ASeleccionados.DataTable, True);
CopyDataTableDA5(AAlbaran.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados;
end;

2
Source/Modulos/Articulos/Controller/uArticulosController.pas
View File

@ -567,7 +567,7 @@ var
ASeleccionados : IBizArticulo;
begin
ASeleccionados := (Self.Buscar(ID_NULO) as IBizArticulo);
CopyDataTableDA3(AArticulos.DataTable, ASeleccionados.DataTable, True);
CopyDataTableDA5(AArticulos.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados;
end;

2
Source/Modulos/Comisiones/Controller/uComisionesController.pas
View File

@ -489,7 +489,7 @@ var
ASeleccionados : IBizComisiones;
begin
ASeleccionados := (Self.Buscar(ID_NULO) as IBizComisiones);
CopyDataTableDA3(AComisiones.DataTable, ASeleccionados.DataTable, True);
CopyDataTableDA5(AComisiones.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados;
end;

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

@ -262,7 +262,7 @@ var
ASeleccionados : IBizBalance;
begin
ASeleccionados := Self.Buscar(ID_NULO);
CopyDataTableDA3(ABalances.DataTable, ASeleccionados.DataTable, True);
CopyDataTableDA5(ABalances.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados;
end;

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

@ -363,7 +363,7 @@ var
ASeleccionados : IBizCuenta;
begin
ASeleccionados := Self.Buscar(ID_NULO);
CopyDataTableDA3(ACuentas.DataTable, ASeleccionados.DataTable, True);
CopyDataTableDA5(ACuentas.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados;
end;

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

@ -263,7 +263,7 @@ var
ASeleccionados : IBizCuentaEspecial;
begin
ASeleccionados := Self.Buscar(ID_NULO);
CopyDataTableDA3(ACuentasEspeciales.DataTable, ASeleccionados.DataTable, True);
CopyDataTableDA5(ACuentasEspeciales.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados;
end;

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

@ -286,7 +286,7 @@ var
ASeleccionados : IBizEpigrafe;
begin
ASeleccionados := Self.Buscar(ID_NULO);
CopyDataTableDA3(AEpigrafes.DataTable, ASeleccionados.DataTable, True);
CopyDataTableDA5(AEpigrafes.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados;
end;

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

@ -571,7 +571,7 @@ var
ASeleccionados : IBizSubCuenta;
begin
ASeleccionados := Self.Buscar(ID_NULO);
CopyDataTableDA3(ASubCuentas.DataTable, ASeleccionados.DataTable, True);
CopyDataTableDA5(ASubCuentas.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados;
end;

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

@ -235,7 +235,7 @@ var
ASeleccionados : IBizContacto;
begin
ASeleccionados := Self.Buscar(ID_NULO);
CopyDataTableDA3(AContactos.DataTable, ASeleccionados.DataTable, True);
CopyDataTableDA5(AContactos.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados;
end;

4
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

@ -658,7 +658,7 @@ begin
//En caso de ser un Abono no podra tener un importe total positivo
if (AFactura.TIPO = CTE_TIPO_ABONO) then
if (AFactura.IMPORTE_TOTAL >= 0) then
if (AFactura.IMPORTE_TOTAL > 0) then
raise Exception.Create('Un abono nunca no puede tener un importe positivo, asegurese que las cantidades sean negativas');
{ Asegurarse de valores en campos "automáticos" tanto
@ -924,7 +924,7 @@ var
ASeleccionados : IBizFacturaCliente;
begin
ASeleccionados := (Self.Buscar(ID_NULO) as IBizFacturaCliente);
CopyDataTableDA3(AFacturasCliente.DataTable, ASeleccionados.DataTable, True);
CopyDataTableDA5(AFacturasCliente.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados;
end;

2
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -929,7 +929,7 @@ var
ASeleccionados : IBizFacturaProveedor;
begin
ASeleccionados := (Self.Buscar(ID_NULO) as IBizFacturaProveedor);
CopyDataTableDA3(AFacturasProveedor.DataTable, ASeleccionados.DataTable, True);
CopyDataTableDA5(AFacturasProveedor.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados;
end;

2
Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas
View File

@ -109,7 +109,7 @@ var
ASeleccionados : IBizHistoricoMovimientos;
begin
ASeleccionados := (Self.Buscar(ID_NULO) as IBizHistoricoMovimientos);
CopyDataTableDA3(AArticulos.DataTable, ASeleccionados.DataTable, True);
CopyDataTableDA5(AArticulos.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados;
end;}

2
Source/Modulos/Inventario/Controller/uInventarioController.pas
View File

@ -371,7 +371,7 @@ var
ASeleccionados : IBizInventario;
begin
ASeleccionados := (Self.Buscar(ID_NULO) as IBizInventario);
CopyDataTableDA3(AArticulos.DataTable, ASeleccionados.DataTable, True);
CopyDataTableDA5(AArticulos.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados;
end;

2
Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas
View File

@ -639,7 +639,7 @@ var
ASeleccionados : IBizPedidoProveedor;
begin
ASeleccionados := (Self.Buscar(ID_NULO) as IBizPedidoProveedor);
CopyDataTableDA3(APedido.DataTable, ASeleccionados.DataTable, True);
CopyDataTableDA5(APedido.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados;
end;

2
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
View File

@ -607,7 +607,7 @@ var
ASeleccionados : IBizPresupuestoCliente;
begin
ASeleccionados := (Self.Buscar(ID_NULO) as IBizPresupuestoCliente);
CopyDataTableDA3(APresupuesto.DataTable, ASeleccionados.DataTable, True);
CopyDataTableDA5(APresupuesto.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados;
end;

2
Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
View File

@ -892,7 +892,7 @@ var
ASeleccionados : IBizRecibosCliente;
begin
ASeleccionados := (Self.Buscar(ID_NULO) as IBizRecibosCliente);
CopyDataTableDA3(ARecibosCliente.DataTable, ASeleccionados.DataTable, True);
CopyDataTableDA5(ARecibosCliente.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados;
end;

2
Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas
View File

@ -837,7 +837,7 @@ var
ASeleccionados : IBizRecibosProveedor;
begin
ASeleccionados := (Self.Buscar(ID_NULO) as IBizRecibosProveedor);
CopyDataTableDA3(ARecibosProveedor.DataTable, ASeleccionados.DataTable, True);
CopyDataTableDA5(ARecibosProveedor.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados;
end;

2
Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas
View File

@ -455,7 +455,7 @@ var
ASeleccionados : IBizRemesaCliente;
begin
ASeleccionados := (Self.Buscar(ID_NULO) as IBizRemesaCliente);
CopyDataTableDA3(ARemesasCliente.DataTable, ASeleccionados.DataTable, True);
CopyDataTableDA5(ARemesasCliente.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados;
end;

2
Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas
View File

@ -455,7 +455,7 @@ var
ASeleccionados : IBizRemesaProveedor;
begin
ASeleccionados := (Self.Buscar(ID_NULO) as IBizRemesaProveedor);
CopyDataTableDA3(ARemesasProveedor.DataTable, ASeleccionados.DataTable, True);
CopyDataTableDA5(ARemesasProveedor.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados;
end;

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

@ -335,7 +335,7 @@ var
ASeleccionados : IBizTipoIVA;
begin
ASeleccionados := (Self.Buscar(ID_NULO) as IBizTipoIVA);
CopyDataTableDA3(ATipoIVA.DataTable, ASeleccionados.DataTable, True);
CopyDataTableDA5(ATipoIVA.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados;
end;