Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

App_Code/Modelos.vb

@@ -4233,6 +4233,15 @@ Namespace Modelos
                 Return Retorno
             End If
 
+            'VALIDACION DE PEDIDOS: SI ESTA ENTEGADO NO SE PUEDA CANCELAR
+            If UsuarioActual.CveEmpresa = 72 AndAlso ObjFactura.TipoDocto = "Ped" AndAlso TieneAlmacen AndAlso ObjFactura.SaldoAlmacen <> 0 Then
+                Retorno.Mensaje = "El pedido no se puede cancelar debido ha que ya fue entregado."
+                Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia
+
+                Return Retorno
+            End If
+
+
             Dim CveEstatusRefacturacion As Integer = If(ObjFactura.CveEstatusRefacturacion <= 0, 0, ObjFactura.CveEstatusRefacturacion)
 
             Dim CancelacionFecha As Date

Bancos/PagoElectronicoGrupos.aspx.vb

@@ -3344,7 +3344,7 @@ Partial Class Bancos_PagoElectronicoGrupos
     End Sub
 
     Private Sub MandaCorreo(Para As String, Asunto As String, Body As String, CveIE As Integer, Comprobante As String, File As Byte())
-
+        Try
             Dim Mail As New ClsSisMail()
             Para = If(Para IsNot Nothing, Para, "")
             Asunto = If(Asunto IsNot Nothing, Asunto, "")
@@ -3377,6 +3377,10 @@ Partial Class Bancos_PagoElectronicoGrupos
                 objIE.UpdateBancos_IENotificaciones(1, "-1", "-1", CveIE)
                 objIE.Dispose()
             End If
+        Catch ex As Exception
+            OnError("Ocurrio un error al enviar el correo", ex)
+        End Try
+
     End Sub