Compras Bitacoras

Compras/Compras.aspx.vb

@@ -9012,7 +9012,7 @@ Partial Class Compras_Compras
                                         End If
                                     End If
 
-                                    If Not ObjCompra.AddCompraDetalle(CveCompra, Row("CveUM").ToString.ToEntero, Row("CvePS").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, -1, CveAF,
+                                    If ObjCompra.AddCompraDetalle(CveCompra, Row("CveUM").ToString.ToEntero, Row("CvePS").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, -1, CveAF,
                                                                           Row("Cantidad").ToString.ToDecimal, Row("PU").ToString.ToDecimal, Row("IVA").ToString.ToDecimal, Row("Total").ToString.ToDecimal, Row("Descuento").ToString.ToDecimal,
                                                                           Row("Obs").ToString, Row("CveOrdenCompraDetalle").ToString.ToEntero, TipoRecepcion, Row("CveContrato").ToString.ToEntero, Row("CvePresupuestoEgreso").ToString.ToEntero,
                                                                           AplicaCostoIndirecto:=Row("AplicaCostoIndirecto").ToString.ToEntero, EstatusAlmacen:=Row("EntregaDirecta").ToString.ToEntero, CvePersonal:=CvePersonal,
@@ -9021,7 +9021,17 @@ Partial Class Compras_Compras
                                                                           IVAPorcentaje:=Row("IVAPorcentaje").ToString.ToDecimal, RetIVAPorcentaje:=Row("RetIVAPorcentaje").ToString.ToDecimal, RetISRPorcentaje:=Row("RetISRPorcentaje").ToString.ToDecimal,
                                                                           IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDecimal, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDecimal, NoDeducible:=If((Row("NoDeducible").ToString().ToUpper().Contiene("TRUE", "1")) AndAlso EsNoDeducible, True, False),
                                                                           CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero, CveCultivoCuadroDetalle:=Row("CveCultivoCuadroDetalle").ToString.ToEntero) Then
+                                        Dim objGeneral As New ClsGenerales(ObjCompra.IniciaTransacSQL)
 
+                                        Dim NuevoDetalle As String = $"Cantidad: {Row("Cantidad").ToString} Producto: {Row("CodigoPS").ToString}, PU: {Row("PU").ToString.ToDecimal}, Total: {Row("Total").ToString.ToDecimal}"
+
+                                        If Not objGeneral.AddHistorialBitacora(441, -1, -1, -1, -1, -1, CveCompra, -1, NuevoDetalle, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, "", "", "") Then
+                                            Retorno = False
+                                            Exit For
+                                        End If
+
+
+                                    Else
                                         Retorno = False
                                         Exit For
                                     End If
@@ -9201,7 +9211,7 @@ Partial Class Compras_Compras
         Para = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo")
 
         If Para.ToString = "" AndAlso UsuarioActual.CveRol = 1 Then
-            Para = "oscar.irigoyen@adssistemas.mx"
+            Para = Para & ";oscar.irigoyen@adssistemas.mx;rene.molina@adssistemas.mx"
         End If
 
         Dim uri As Uri = HttpContext.Current.Request.Url
@@ -9240,14 +9250,14 @@ Partial Class Compras_Compras
         strBody.Append("      </style> ")
         strBody.Append("</head> ")
         strBody.Append("<body>")
-        strBody.Append($"<p> Se realizo una actualización en los detalles de la compra <a href='{URlCompleta}' >{SerieFolioCompra}</a> </p>")
+        strBody.Append($"<p> Se realizo una actualización en los detalles de la compra <a href='{URlCompleta}' >{SerieFolioCompra}</a> del proveedor {HplProveedor.Text}</p>")
         strBody.Append("</body>")
 
         strBody.Append("</html>")
 
 
         '' ENVIO DEL CORREO
-        Asunto = $"Actualizacion de Compra {SerieFolioCompra}"
+        Asunto = $"Actualizacion de Compra: {SerieFolioCompra} Proveedor: {HplProveedor.Text}"
         ArrayCC = ""
         Body = strBody.ToString
             Dim Mail As New ClsSisMail()