diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas index 46619e26..8cc5a48f 100644 --- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas +++ b/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; diff --git a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas index f842b4e9..83268066 100644 --- a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas +++ b/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; diff --git a/Source/Modulos/Articulos/Controller/uArticulosController.pas b/Source/Modulos/Articulos/Controller/uArticulosController.pas index 18e6fac6..3e9337a8 100644 --- a/Source/Modulos/Articulos/Controller/uArticulosController.pas +++ b/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; diff --git a/Source/Modulos/Comisiones/Controller/uComisionesController.pas b/Source/Modulos/Comisiones/Controller/uComisionesController.pas index 8b0b14c0..248e7071 100644 --- a/Source/Modulos/Comisiones/Controller/uComisionesController.pas +++ b/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; diff --git a/Source/Modulos/Contabilidad/Controller/uBalancesController.pas b/Source/Modulos/Contabilidad/Controller/uBalancesController.pas index e45adbad..f60095c6 100644 --- a/Source/Modulos/Contabilidad/Controller/uBalancesController.pas +++ b/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; diff --git a/Source/Modulos/Contabilidad/Controller/uCuentasController.pas b/Source/Modulos/Contabilidad/Controller/uCuentasController.pas index ef3531e4..d950854d 100644 --- a/Source/Modulos/Contabilidad/Controller/uCuentasController.pas +++ b/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; diff --git a/Source/Modulos/Contabilidad/Controller/uCuentasEspecialesController.pas b/Source/Modulos/Contabilidad/Controller/uCuentasEspecialesController.pas index 9a547203..e44a2322 100644 --- a/Source/Modulos/Contabilidad/Controller/uCuentasEspecialesController.pas +++ b/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; diff --git a/Source/Modulos/Contabilidad/Controller/uEpigrafesController.pas b/Source/Modulos/Contabilidad/Controller/uEpigrafesController.pas index 3abf5193..85ded567 100644 --- a/Source/Modulos/Contabilidad/Controller/uEpigrafesController.pas +++ b/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; diff --git a/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas b/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas index 136c9988..4f90689f 100644 --- a/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas +++ b/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; diff --git a/Source/Modulos/Contactos/Controller/uContactosController.pas b/Source/Modulos/Contactos/Controller/uContactosController.pas index 3dcf4920..45cb140b 100644 --- a/Source/Modulos/Contactos/Controller/uContactosController.pas +++ b/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; diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas index 87d73fa7..4360e16b 100644 --- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas +++ b/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; diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas index 8979d60e..12cba1f4 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas +++ b/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; diff --git a/Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas b/Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas index 4f515665..1c2df3d0 100644 --- a/Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas +++ b/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;} diff --git a/Source/Modulos/Inventario/Controller/uInventarioController.pas b/Source/Modulos/Inventario/Controller/uInventarioController.pas index 6f48f453..63c17eed 100644 --- a/Source/Modulos/Inventario/Controller/uInventarioController.pas +++ b/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; diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas index 26e3a511..0172ab53 100644 --- a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas +++ b/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; diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas index 5ea0df3e..bbc3e2b2 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas +++ b/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; diff --git a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas index 53c5e422..344c3e7a 100644 --- a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas +++ b/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; diff --git a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas index 48832771..0b85970f 100644 --- a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas +++ b/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; diff --git a/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas b/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas index e470b6d2..3f5d7ccd 100644 --- a/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas +++ b/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; diff --git a/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas b/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas index e1b7dad1..143731c4 100644 --- a/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas +++ b/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; diff --git a/Source/Modulos/Tipos de IVA/Controller/uTiposIVAController.pas b/Source/Modulos/Tipos de IVA/Controller/uTiposIVAController.pas index 16eeab8c..c9e52448 100644 --- a/Source/Modulos/Tipos de IVA/Controller/uTiposIVAController.pas +++ b/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;