Arreglo de los importes modificados en los pedidos a proveedor que al generar su albaran correspondiente cogia el importe del catalogo siempre, y arreglo de la copia de la ref. de cliente de un pedido de cliente a un albaran de cliente

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@149 c93665c3-c93d-084d-9b98-7d5f4a9c3376

Source/Cliente/FactuGES.bdsproj

@@ -126,7 +126,7 @@
 			<Directories Name="SearchPath">..\Lib;..\Modulos\Lib</Directories>
 			<Directories Name="Packages">PluginSDK_D10R;GUISDK_D10;DataAbstract_D10;Base;GUIBase;Usuarios;Contactos_plugin;Empresas_plugin;Empresas_controller;Empresas_model;rtl</Directories>
 			<Directories Name="Conditionals">_VER6;</Directories>
-			<Directories Name="DebugSourceDirs">T:\Codigo (Luis Leon)\Source\Modulos\Pedidos de cliente\Controller\</Directories>
+			<Directories Name="DebugSourceDirs">E:\Codigo (Luis Leon)\Source\Modulos\Pedidos de cliente\Controller\</Directories>
 			<Directories Name="UsePackages">True</Directories>
 		</Directories>
 		<Parameters>

Source/Cliente/FactuGES.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "E:\Codigo (Luis León)\Source\Iconos\Factuges.ico"
 1 VERSIONINFO
-FILEVERSION 2,2,3,0
-PRODUCTVERSION 2,2,3,0
+FILEVERSION 2,2,4,0
+PRODUCTVERSION 2,2,4,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,7 +13,7 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "2.2.3.0\0"
+              VALUE "FileVersion", "2.2.4.0\0"
               VALUE "InternalName", "FactuGES\0"
               VALUE "ProductName", "FactuGES\0"
               VALUE "ProductVersion", "2.1.4\0"

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

@@ -186,7 +186,7 @@ begin
   if not Assigned(APedido) then
     raise Exception.Create ('Pedido no asignado (CopiarArticulosAAlbaran)');
 
-
+  //Si esta asignado el inventario recibido es por una entrada de articulos de un pedido a almacén
   if Assigned(AInventarioRecibido) then
   begin
     if not AInventarioRecibido.DataTable.Active then
@@ -210,12 +210,21 @@ begin
           ADetallesController.Add(ADetalles, TIPO_DETALLE_CONCEPTO);
           ADetallesController.AnadirArticulo(ADetalles, AInventarioRecibido.REFERENCIA, tCliente);
           ADetalles.Edit;
-          ADetalles.CANTIDAD := AInventarioRecibido.CANTIDAD;
+
+          APedido.Detalles.First;
+          if not APedido.Detalles.DataTable.Locate(fld_ArticulosREFERENCIA, ADetalles.REFERENCIA, []) 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;
+          ADetalles.IMPORTE_PORTE := APedido.Detalles.IMPORTE_PORTE;
+
+          ADetalles.CANTIDAD := AInventarioRecibido.CANTIDAD;          
           ADetalles.Post;
         end;
 
         AInventarioRecibido.Next;
       end;
+
     finally
       ADetallesController := NIL;
       AArticulosController := NIL;
@@ -242,6 +251,9 @@ begin
             ADetallesController.Add(ADetalles, TIPO_DETALLE_CONCEPTO);
             ADetallesController.AnadirArticulo(ADetalles, APedido.Detalles.REFERENCIA, tCliente);
             ADetalles.Edit;
+            ADetalles.IMPORTE_UNIDAD := APedido.Detalles.IMPORTE_UNIDAD;
+            ADetalles.DESCUENTO := APedido.Detalles.DESCUENTO;
+            ADetalles.IMPORTE_PORTE := APedido.Detalles.IMPORTE_PORTE;
             ADetalles.CANTIDAD := APedido.Detalles.CANTIDAD;
             ADetalles.Post;
           end;
@@ -310,7 +322,7 @@ begin
     Self.Anadir(AAlbaran);
     CopiarPedidoAAlbaran(APedido, AAlbaran);
     CopiarArticulosAAlbaran(APedido, AAlbaran, AInventarioRecibido);
-
+    RecalcularImportes(AAlbaran);
     Result := True;
   finally
     APedido := NIL;

Source/Modulos/Relaciones/Pedidos de cliente - Albaranes de cliente/uGenerarAlbaranesCliUtils.pas

@@ -49,6 +49,7 @@ begin
   // El albarán tiene que venir ya abierto y posicionado donde hay que copiar
   AAlbaran.ID_CLIENTE := APedido.ID_CLIENTE;
   AAlbaran.ID_PEDIDO := APedido.ID;
+  AAlbaran.REFERENCIA_CLIENTE := APedido.REFERENCIA_CLIENTE;
   AAlbaran.CALLE := APedido.CALLE;
   AAlbaran.CODIGO_POSTAL := APedido.CODIGO_POSTAL;
   AAlbaran.POBLACION := APedido.POBLACION;