From 2feca4472fe7b902a9930bba7b45365c3493a827 Mon Sep 17 00:00:00 2001 From: david Date: Tue, 14 Apr 2009 16:49:23 +0000 Subject: [PATCH] =?UTF-8?q?Problema=20con=20LOCATES=20y=20nueva=20versi?= =?UTF-8?q?=C3=B3n=20de=20DA.=20Al=20realizar=20un=20locate=20sobre=20un?= =?UTF-8?q?=20campo=20de=20tipo=20integer=20con=20valor=20real=20NULL=20(q?= =?UTF-8?q?ue=20es=20un=200=20en=20integer),=20el=20locate=20no=20tiene=20?= =?UTF-8?q?en=20cuenta=20el=200=20si=20no=20el=20NULL.=20(detectado=20en?= =?UTF-8?q?=20Tecsitel)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@414 f4e31baf-9722-1c47-927c-6f952f962d4b --- .../Controller/uAlbaranesProveedorController.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas index 09f4f8cf..bd1b3a0f 100644 --- a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas +++ b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas @@ -219,7 +219,7 @@ begin APedido.Detalles.First; //Se cambia porque puede haber articulos del pedido que no tengan referencia de proveedor // if not APedido.Detalles.DataTable.Locate(fld_ArticulosREFERENCIA, ADetalles.REFERENCIA, []) then - if not APedido.Detalles.DataTable.Locate(fld_INVENTARIOID_ARTICULO, ADetalles.ID_ARTICULO, []) then + if not APedido.Detalles.Locate(fld_INVENTARIOID_ARTICULO, VarArrayOf([ADetalles.DataTable.FieldByName('ID_ARTICULO').AsVariant]), []) then raise Exception.Create(Format('No se ha encontrado el artículo del pedido con REFERENCIA %s (CopiarArticulosAAlbaran)', [ADetalles.REFERENCIA])); ADetalles.IMPORTE_UNIDAD := APedido.Detalles.IMPORTE_UNIDAD; ADetalles.DESCUENTO := APedido.Detalles.DESCUENTO;