Version 2.1.15.0: avisar en el Message si falla la transferencia automatica de la NC

Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>

Net.Data/ServicesLayer/StockTransfer/TransferenciaAutomaticaNC.cs

@@ -16,11 +16,14 @@ namespace Net.Data.ServicesLayer.StockTransfer
         // Por cada almacen de origen (WarehouseCode) y almacen destino (U_ITC_ALMDES) distintos de las lineas de la NC
         // crea una transferencia de stock en SAP, con las cantidades y lotes de esas lineas y la NC como referencia.
         // Luego agrega a la NC una referencia por cada transferencia creada.
-        // OJO: si SAP rechaza una transferencia se ignora (la NC ya esta creada) y no se informa al consumidor.
-        public static void Crear(BE_CreditNotesNotes creditNotesNotes, int docEntryNC, IHttpClientFactory clientFactory, IConfiguration configuration, CreditNotesRepository creditNotesRepository)
+        // La NC ya esta creada, asi que un fallo aqui NO la deshace ni responde error (el consumidor reintentaria y
+        // duplicaria la NC). Devuelve el texto de advertencia para el mensaje de la respuesta ("" si todo salio bien):
+        // transferencias que SAP rechazo y/o la referencia que no se pudo agregar a la NC.
+        public static string Crear(BE_CreditNotesNotes creditNotesNotes, int docEntryNC, IHttpClientFactory clientFactory, IConfiguration configuration, CreditNotesRepository creditNotesRepository)
         {
             List<string> ListaUnicaAlmacen = creditNotesNotes.DocumentLines.Select(x => x.WarehouseCode).Distinct().ToList();
             List<int> ListDocEntry = new List<int>();
+            List<string> Advertencias = new List<string>();
             ListaUnicaAlmacen.ForEach(Almacen =>
             {
                 List<string> ListaUnicaAlmDestino = creditNotesNotes.DocumentLines.Where(Linea => Linea.WarehouseCode == Almacen).ToList().Select(x => x.U_ITC_ALMDES).Distinct().ToList().Where(x => !string.IsNullOrEmpty(x)).ToList();
@@ -83,6 +86,10 @@ namespace Net.Data.ServicesLayer.StockTransfer
                         {
                             ListDocEntry.Add((int)ResultTransfer.Data.DocEntry);
                         }
+                        else
+                        {
+                            Advertencias.Add($"no se creo la transferencia {Almacen} -> {Destino}: {ResultTransfer.Message}");
+                        }
                     }
                 });
             });
@@ -108,7 +115,15 @@ namespace Net.Data.ServicesLayer.StockTransfer
                 };
 
                 var Actualizacion = creditNotesRepository.UpdateCreateCreditNotes(credit, docEntryNC).Result;
+                if (Actualizacion.StatusCode == -1)
+                {
+                    Advertencias.Add($"se crearon las transferencias {string.Join(", ", ListDocEntry)} pero no se pudo agregar su referencia a la NC: {Actualizacion.Message}");
+                }
             }
+
+            return Advertencias.Count == 0
+                ? ""
+                : " ADVERTENCIA: la nota de credito se creo, pero " + string.Join("; ", Advertencias) + ".";
         }
     }
 }

Net.Data/WMS/Picking/PickingRepository.cs

@@ -282,8 +282,8 @@ namespace Net.Data.WMS.Picking
                                 else
                                 {
                                     // Transferencias de stock automaticas por almacen destino (U_ITC_ALMDES) y su referencia en la NC
-                                    TransferenciaAutomaticaNC.Crear(creditNotesNotes, (int)result_creditNotesRepository.Data.DocEntry, _clientFactory, _configuration, _creditNotesRepository);
-                                    return resultadoTransaccion.GetInformacionResultado((int)result_creditNotesRepository.Data.DocEntry, result_creditNotesRepository.Data.DocNum.ToString(), "Se registro correctamente...!!!", entidad);
+                                    var advertenciaTransferencias = TransferenciaAutomaticaNC.Crear(creditNotesNotes, (int)result_creditNotesRepository.Data.DocEntry, _clientFactory, _configuration, _creditNotesRepository);
+                                    return resultadoTransaccion.GetInformacionResultado((int)result_creditNotesRepository.Data.DocEntry, result_creditNotesRepository.Data.DocNum.ToString(), "Se registro correctamente...!!!" + advertenciaTransferencias, entidad);
                                 }
                             }
                             else
@@ -464,8 +464,8 @@ namespace Net.Data.WMS.Picking
                             {
 
                                 // Transferencias de stock automaticas por almacen destino (U_ITC_ALMDES) y su referencia en la NC
-                                TransferenciaAutomaticaNC.Crear(creditNotesNotes, (int)result_creditNotesRepository.Data.DocEntry, _clientFactory, _configuration, _creditNotesRepository);
-                                return resultadoTransaccion.GetInformacionResultado((int)result_creditNotesRepository.Data.DocEntry, result_creditNotesRepository.Data.DocNum.ToString(), "Se registro correctamente...!!!", entidad);
+                                var advertenciaTransferencias = TransferenciaAutomaticaNC.Crear(creditNotesNotes, (int)result_creditNotesRepository.Data.DocEntry, _clientFactory, _configuration, _creditNotesRepository);
+                                return resultadoTransaccion.GetInformacionResultado((int)result_creditNotesRepository.Data.DocEntry, result_creditNotesRepository.Data.DocNum.ToString(), "Se registro correctamente...!!!" + advertenciaTransferencias, entidad);
                             }
                         }
                         else

Net.Data/WMS/Recibo/ReciboRepository.cs

@@ -531,8 +531,8 @@ namespace Net.Data.WMS.Recibo
                         {
                             // Transferencias de stock automaticas por almacen destino (U_ITC_ALMDES). OJO: en Recibo las lineas de la NC no llenan
                             // U_ITC_ALMDES, por lo que hoy no se genera ninguna
-                            TransferenciaAutomaticaNC.Crear(creditNotesNotes, (int)result_creditNotesRepository.Data.DocEntry, _clientFactory, _configuration, _creditNotesRepository);
-                            return resultadoTransaccion.GetInformacionResultado((int)result_creditNotesRepository.Data.DocEntry, result_creditNotesRepository.Data.DocNum.ToString(), "Se registro correctamente...!!!", entidad);
+                            var advertenciaTransferencias = TransferenciaAutomaticaNC.Crear(creditNotesNotes, (int)result_creditNotesRepository.Data.DocEntry, _clientFactory, _configuration, _creditNotesRepository);
+                            return resultadoTransaccion.GetInformacionResultado((int)result_creditNotesRepository.Data.DocEntry, result_creditNotesRepository.Data.DocNum.ToString(), "Se registro correctamente...!!!" + advertenciaTransferencias, entidad);
                         }
 
                     }