From 14fffa8ba4ee5f0a61b07dd54ce4d8cac8fc15a4 Mon Sep 17 00:00:00 2001
From: George <george@MacBook-Air-de-George.local>
Date: Wed, 14 Oct 2026 10:29:02 -0500
Subject: [PATCH] =?UTF-8?q?NC=20de=20DESPACHO:=20lotes=20de=20la=20Entrega?=
 =?UTF-8?q?=20origen=20o=20de=20la=20factura,=20linea=20por=20linea.=20Ver?=
 =?UTF-8?q?si=C3=B3n=202.1.4.0?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Si la linea de la factura viene de una Entrega (BaseType 15) los lotes se
toman de la linea de la Entrega (BaseLine); si no, de la linea de la factura
(LineNum). Se valida que los lotes cubran la cantidad y se devuelve un error
claro por linea en vez del error generico de SAP.

Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
---
 .../ServicesLayer/Invoices/BE_Invoices.cs     | 16 ++++++-
 .../Net.Business.Services.csproj              |  6 +--
 .../Invoice/IInvoiceRepository.cs             |  1 +
 .../Invoice/InvoiceRepository.cs              | 19 +++++++++
 Net.Data/WMS/Picking/PickingRepository.cs     | 42 ++++++++++++++++++-
 docs/PICKING.md                               | 15 +++++++
 6 files changed, 94 insertions(+), 5 deletions(-)

diff --git a/Net.Business.Entities/ServicesLayer/Invoices/BE_Invoices.cs b/Net.Business.Entities/ServicesLayer/Invoices/BE_Invoices.cs
index b1613be..54b7e72 100644
--- a/Net.Business.Entities/ServicesLayer/Invoices/BE_Invoices.cs
+++ b/Net.Business.Entities/ServicesLayer/Invoices/BE_Invoices.cs
@@ -33,6 +33,20 @@ namespace Net.Business.Entities.ServicesLayer.Invoices
         public string U_SYP_MDSD { get; set; }
         public string U_SYP_MDCD { get; set; }
         public string U_SYP_MDTD { get; set; }
-        public List<BE_InvoicesLine> DocumentLines { get; set; }
+        public List<BE_InvoicesConsultaLine> DocumentLines { get; set; }
+    }
+
+    // Linea de factura leida de SAP: agrega el documento origen (BaseType 15 = Entrega)
+    public class BE_InvoicesConsultaLine : BE_InvoicesLine
+    {
+        public int? BaseType { get; set; }
+        public int? BaseEntry { get; set; }
+    }
+
+    // Entrega (DeliveryNotes) leida de SAP, solo para obtener los lotes por linea
+    public class BE_DeliveryNotesConsulta
+    {
+        public int DocEntry { get; set; }
+        public List<BE_InvoicesConsultaLine> DocumentLines { get; set; }
     }
 }
diff --git a/Net.Business.Services/Net.Business.Services.csproj b/Net.Business.Services/Net.Business.Services.csproj
index ab7efce..331222b 100644
--- a/Net.Business.Services/Net.Business.Services.csproj
+++ b/Net.Business.Services/Net.Business.Services.csproj
@@ -3,9 +3,9 @@
   <PropertyGroup>
     <TargetFramework>netcoreapp3.1</TargetFramework>
     <AssemblyName>ITCA_API_SAP_WMS</AssemblyName>
-    <Version>2.1.3</Version>
-    <AssemblyVersion>2.1.3.0</AssemblyVersion>
-    <FileVersion>2.1.3.0</FileVersion>
+    <Version>2.1.4</Version>
+    <AssemblyVersion>2.1.4.0</AssemblyVersion>
+    <FileVersion>2.1.4.0</FileVersion>
     <UserSecretsId>24763424-3300-4c85-87e3-503f8fdebd14</UserSecretsId>
     <!-- Antes solo estaba condicionado a Debug|AnyCPU - un "dotnet publish -c Release"
          (lo normal para IIS) se quedaba sin este archivo, y Startup.cs revienta con
diff --git a/Net.Data/ServicesLayer/Invoice/IInvoiceRepository.cs b/Net.Data/ServicesLayer/Invoice/IInvoiceRepository.cs
index 4244e4e..4b38bad 100644
--- a/Net.Data/ServicesLayer/Invoice/IInvoiceRepository.cs
+++ b/Net.Data/ServicesLayer/Invoice/IInvoiceRepository.cs
@@ -13,5 +13,6 @@ namespace Net.Data.ServicesLayer
         Task<BE_ResultadoTransaccion<BE_BaseResponseSap>> SetCreateInvoices(BE_Invoices entidad);
         Task<BE_ResultadoTransaccion<BE_InvoicesConsulta>> GetInvoice(int docEntry);
         Task<BE_ResultadoTransaccion<BE_BaseResponseSap>> ReOpen(int docEntry);
+        Task<BE_ResultadoTransaccion<BE_DeliveryNotesConsulta>> GetDeliveryNote(int docEntry);
     }
 }
diff --git a/Net.Data/ServicesLayer/Invoice/InvoiceRepository.cs b/Net.Data/ServicesLayer/Invoice/InvoiceRepository.cs
index e74ccd7..bd5abae 100644
--- a/Net.Data/ServicesLayer/Invoice/InvoiceRepository.cs
+++ b/Net.Data/ServicesLayer/Invoice/InvoiceRepository.cs
@@ -92,6 +92,25 @@ namespace Net.Data.ServicesLayer
             }
         }
 
+        //  GET DELIVERY NOTE (para obtener los lotes de la entrega origen de una factura)
+        public async Task<BE_ResultadoTransaccion<BE_DeliveryNotesConsulta>> GetDeliveryNote(int docEntry)
+        {
+            _metodoName = regex.Match(System.Reflection.MethodBase.GetCurrentMethod().DeclaringType.Name).Groups[1].Value.ToString();
+
+            ResultadoTransaccion<BE_DeliveryNotesConsulta> resultadoTransaccion = new ResultadoTransaccion<BE_DeliveryNotesConsulta>(_metodoName, _aplicacionName);
+            try
+            {
+                string cadena = $"DeliveryNotes({docEntry})";
+                List<BE_DeliveryNotesConsulta> objectList = await _connectServiceLayer.GetAsync<BE_DeliveryNotesConsulta>(cadena, 0, true);
+
+                return resultadoTransaccion.GetInformacionResultado(0, 0, "Se Listo correctamento...!!!", objectList);
+            }
+            catch (Exception ex)
+            {
+                return resultadoTransaccion.GetInformacionResultado(-1, -1, ex.Message.ToString());
+            }
+        }
+
         public async Task<BE_ResultadoTransaccion<BE_BaseResponseSap>> ReOpen(int docEntry)
         {
             _metodoName = regex.Match(System.Reflection.MethodBase.GetCurrentMethod().DeclaringType.Name).Groups[1].Value.ToString();
diff --git a/Net.Data/WMS/Picking/PickingRepository.cs b/Net.Data/WMS/Picking/PickingRepository.cs
index 2e9658c..166cb0a 100644
--- a/Net.Data/WMS/Picking/PickingRepository.cs
+++ b/Net.Data/WMS/Picking/PickingRepository.cs
@@ -213,13 +213,42 @@ namespace Net.Data.WMS.Picking
                             });
 
                             // == REALIZA DISTRIBUCION DE STOCK POR LOTE / ALMACEN
+                            // Linea por linea: si la factura tiene una Entrega (BaseType 15) como documento
+                            // origen, los lotes salen de la linea de esa Entrega (BaseLine); si no, de la
+                            // propia linea de la factura (LineNum).
+                            var Entregas = new Dictionary<int, BE_DeliveryNotesConsulta>();
+                            var ErroresLote = new List<string>();
                             creditNotesNotes.DocumentLines.ForEach(line =>
                             {
                                 #region CONSULTA A HANA
 
                                 //List<BE_ItemStock> ListaStock = HelperStock.Get(line.ItemCode, entidad.CodigoAlmacen);
                                 var ReferenciaFactura = _invoices.DocumentLines.FirstOrDefault(t => t.LineNum == line.LineNum);
-                                var ListaStock = _invoices.DocumentLines.FirstOrDefault(InvoiceLine => InvoiceLine.LineNum == ReferenciaFactura.BaseLine).BatchNumbers;
+                                List<BE_InvoicesBatchNumbers> ListaStock;
+
+                                if (ReferenciaFactura.BaseType == 15 && ReferenciaFactura.BaseEntry.HasValue && ReferenciaFactura.BaseLine.HasValue)
+                                {
+                                    int DocEntryEntrega = ReferenciaFactura.BaseEntry.Value;
+                                    if (!Entregas.TryGetValue(DocEntryEntrega, out BE_DeliveryNotesConsulta Entrega))
+                                    {
+                                        var response_entrega = invoicestRepository.GetDeliveryNote(DocEntryEntrega).Result;
+                                        Entrega = (response_entrega.DocEntry == -1) ? null : response_entrega.ListData?.FirstOrDefault();
+                                        Entregas[DocEntryEntrega] = Entrega;
+                                    }
+
+                                    if (Entrega == null)
+                                    {
+                                        ErroresLote.Add($"Linea {line.LineNum} ({line.ItemCode}): no se pudo leer la Entrega {DocEntryEntrega} origen de la factura");
+                                        return;
+                                    }
+
+                                    var LineaEntrega = Entrega.DocumentLines?.FirstOrDefault(t => t.LineNum == ReferenciaFactura.BaseLine.Value);
+                                    ListaStock = LineaEntrega?.BatchNumbers ?? new List<BE_InvoicesBatchNumbers>();
+                                }
+                                else
+                                {
+                                    ListaStock = ReferenciaFactura.BatchNumbers ?? new List<BE_InvoicesBatchNumbers>();
+                                }
 
                                 double CantidadPendiente = (double)line.Quantity;
                                 var ListOrdenadaFecha = ListaStock;
@@ -240,9 +269,20 @@ namespace Net.Data.WMS.Picking
                                     }
                                 });
 
+                                // Hay lotes de origen pero no alcanzan para la cantidad a devolver
+                                if (ListaStock.Count > 0 && CantidadPendiente > 0.000001)
+                                {
+                                    ErroresLote.Add($"Linea {line.LineNum} ({line.ItemCode}): los lotes de origen no cubren la cantidad {line.Quantity} (faltan {CantidadPendiente})");
+                                }
+
                                 #endregion
                             });
 
+                            if (ErroresLote.Count > 0)
+                            {
+                                return resultadoTransaccion.GetInformacionResultado("SAP: No se pudo asignar lotes a la nota de credito. " + string.Join(" | ", ErroresLote), entidad);
+                            }
+
                             if (creditNotesNotes.DocumentLines.Count > 0)
                             {
                                 var result_creditNotesRepository = _creditNotesRepository.SetCreateCreditNotes(creditNotesNotes).Result;
diff --git a/docs/PICKING.md b/docs/PICKING.md
index 33d9480..36f7796 100644
--- a/docs/PICKING.md
+++ b/docs/PICKING.md
@@ -38,6 +38,21 @@ Historial: en 2.1.1.0 el filtro se aplicaba a todos los procesos, por lo que
 DESPACHO y PICKING no generaban la NC si no llegaba `"cierre"`. Corregido en
 2.1.2.0.
 
+## Lotes de la nota de crédito en DESPACHO (versión 2.1.4.0)
+
+Se resuelve **línea por línea** según el documento origen de la línea de la factura:
+
+| La línea de la factura tiene... | Los lotes salen de... |
+|---|---|
+| Entrega como origen (`BaseType = 15`) | La línea de la **Entrega** (`DeliveryNotes(BaseEntry)`, línea `BaseLine`). |
+| Otro origen o ninguno | La **propia línea de la factura** (`LineNum`). |
+
+Si hay lotes de origen y no cubren la cantidad a devolver, o no se puede leer
+la Entrega, la API responde un error con la línea y el artículo en vez de
+enviar lotes incompletos a SAP. Si no hay lotes de origen (artículo sin
+control por lote) la línea se envía sin lotes. PICKING (estado 13) no cambia:
+genera un lote nuevo por fecha y hora.
+
 ## Resumen del contrato
 
 | Método | Ruta | Cambia hoy | Qué hace |