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

- 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

Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas

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

Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas

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

Source/Modulos/Articulos/Controller/uArticulosController.pas

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

Source/Modulos/Comisiones/Controller/uComisionesController.pas

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

Source/Modulos/Contabilidad/Controller/uBalancesController.pas

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

Source/Modulos/Contabilidad/Controller/uCuentasController.pas

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

Source/Modulos/Contabilidad/Controller/uCuentasEspecialesController.pas

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

Source/Modulos/Contabilidad/Controller/uEpigrafesController.pas

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

Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas

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

Source/Modulos/Contactos/Controller/uContactosController.pas

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

Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas

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

Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas

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

Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas

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

Source/Modulos/Inventario/Controller/uInventarioController.pas

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

Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas

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

Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas

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

Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas

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

Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas

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

Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas

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

Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas

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

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

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