eFacturas Subir facturas

Compras/Compras.aspx.vb

@@ -9155,7 +9155,7 @@ Partial Class Compras_Compras
             ObjCompra.RollBack()
             If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
 
-            SeActualizoDetalle = False
+
         Finally
             If Retorno Then
                 If ObjContabilidad.MensajePolizaDescuadre IsNot Nothing AndAlso ObjContabilidad.MensajePolizaDescuadre.ToString <> "" Then
@@ -9192,23 +9192,22 @@ Partial Class Compras_Compras
         UpBitacora.Update()
 
 
-        If SeActualizoDetalle Then
-            MandaCorreoActualizacionDetalle(CveCompra)
+        If SeActualizoDetalle AndAlso UsuarioActual.CveEmpresa = 119 Then
+            MandaCorreoActualizacionDetalle()
         End If
 
     End Sub
 
-    Private Sub MandaCorreoActualizacionDetalle(CveCompra As Integer)
+    Private Sub MandaCorreoActualizacionDetalle()
+
 
-        If UsuarioActual.CveRol <> 1 Then
-            Exit Sub
-        End If
 
         Dim DTCorreos As New DataTable
         Dim DTMovimientos As New DataTable
         Dim strBody As New StringBuilder
         Dim Asunto, Para, ArrayCC, Body As String
-        Para = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo")
+        'Para = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo")
+        Para = "fernanda.romo@agrojam.com.mx"
 
         If Para.ToString = "" AndAlso UsuarioActual.CveRol = 1 Then
             Para = Para & ";oscar.irigoyen@adssistemas.mx;rene.molina@adssistemas.mx"
@@ -9260,8 +9259,8 @@ Partial Class Compras_Compras
         Asunto = $"Actualizacion de Compra: {SerieFolioCompra} Proveedor: {HplProveedor.Text}"
         ArrayCC = ""
         Body = strBody.ToString
-            Dim Mail As New ClsSisMail()
-            Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, ArrayCC)
+        Dim Mail As New ClsSisMail()
+        Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, ArrayCC)