Ashx/TareasProgramadas.ashx

@@ -41,8 +41,8 @@ Public Class TareasProgramadas : Implements IHttpHandler
                     retorno = ""
                     context.Response.Write(retorno)
                 Case "EstadosCuenta"
-                    'CargaEstadosCuenta(context, 119, 227736)
+                    'CargaEstadosCuenta(context, 119, 227774)
-                    CargaEstadosCuenta(context, -1, -1)
+                    CargaEstadosCuenta(context, 119, -1)
             End Select
         Catch ex As Exception
             ex.GuardaLog(ex.ToString())
@@ -435,9 +435,6 @@ Public Class TareasProgramadas : Implements IHttpHandler
                     drr("CveMoneda") = drt("CveMoneda")
                     DtCxCFact.Rows.Add(drr)
                 Next
-            Else
-                Retorno = False
-                Return Retorno
             End If
 
             If DtCxCFact IsNot Nothing Then
@@ -470,6 +467,11 @@ Public Class TareasProgramadas : Implements IHttpHandler
             TotalIng = SaldoIngPesos + SaldoIngDolaresPesos
             TotalAnt = SaldoAntPesos + SaldoAntDolaresPesos
 
+            If TotalIng.RoundSQL(2) = 0 AndAlso TotalAnt.RoundSQL(2) = 0 Then
+                Retorno = False
+                Return Retorno
+            End If
+
             Dim DtCxCFact2 As DataTable = DtCxCFact.FiltraParametros($"TipoDocto IN ({TipoDocto2})")
 
             'INGRESOS

Ventas/Clientes.aspx.vb

@@ -3910,7 +3910,7 @@ Partial Class Clientes
                                                         Gracias por la atención brindada al presente.<br /> Reciba un cordial saludo.<br />
                                                         <br />
                                                         <b>ESTE CORREO SE GENERO EN FORMA AUTOMATICA.</b>", TxtNombreComercial.Text, UsuarioActual.Empresa.Empresa)
-                        Dim Hilo As New System.Threading.Thread(Sub() MandaCorreo2(File, TxtCobranzaCorreo.Text, $"Estado Actual de Cartera {UsuarioActual.Empresa.Empresa}", Cuerpo))
+                        Dim Hilo As New System.Threading.Thread(Sub() MandaCorreoEstadoCuenta(File, TxtCobranzaCorreo.Text, $"Estado Actual de Cartera {UsuarioActual.Empresa.Empresa}", Cuerpo, GuardarBitacora:=True))
                         Hilo.Start()
                         Alert("El correo se envió con éxito", TipoMensaje.MsgInformacion)
                     Catch ex As Exception
@@ -3977,7 +3977,7 @@ Partial Class Clientes
             End If
         End If
     End Sub
-    Private Sub MandaCorreo2(File As Byte(), Para As String, Asunto As String, Body As String)
+    Private Sub MandaCorreoEstadoCuenta(File As Byte(), Para As String, Asunto As String, Body As String, Optional GuardarBitacora As Boolean = False)
 
         Dim a As String = String.Format("{0} -- {1} ---- -->", Asunto, Para)
         'a.GuardaLog()
@@ -3986,7 +3986,13 @@ Partial Class Clientes
         Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
         LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = File, .NombreArchivo = "EstadoDeCuenta.pdf"})
 
-        Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=LSRutasMail)
+        Dim Envio As Boolean = Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=LSRutasMail)
+
+        If Envio AndAlso GuardarBitacora Then
+            Using ObjBitacora As New ClsOIEventos
+                ObjBitacora.AddEventoBitacora("Se envió correo con el estado de cuenta del cliente", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCliente:=Me.CveCliente)
+            End Using
+        End If
 
     End Sub
 #End Region
@@ -5731,7 +5737,8 @@ Partial Class Clientes
         Dim a As String = String.Format("{0} -- {1} ---- -->", Asunto, Para)
         a.GuardaLog()
         Dim Mail As New ClsSisMail()
-        Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body)
+        Dim Envio As Boolean = Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body)
+
     End Sub
     Protected Sub BtnCobranzaSMS_Click(sender As Object, e As EventArgs)
         Dim Telefono = CobranzaTelefono

Ventas/Ventas.aspx.vb

@@ -6739,11 +6739,11 @@ Partial Class Ventas
                     End If
                 End If
                 'ENVIAR POLIZA VIRTUAL
-                'If ErrorList.Count = 0 Then
+                If ErrorList.Count = 0 Then
-                '    If UsuarioActual.Empresa.Funcionalidad(576) = "1" Then
+                    If UsuarioActual.Empresa.Funcionalidad(576) = "1" Then
-                '        GeneraPolizaVentaWS(ObjFactura)
+                        GeneraPolizaVentaWS(ObjFactura)
-                '    End If
+                    End If
-                'End If
+                End If
 
                 If ObjFactura.CveVenta > 0 AndAlso ErrorList.Count = 0 Then
 
@@ -23752,7 +23752,7 @@ Partial Class Ventas
             DtUsados = ObjAcum.DtResultados.Copy()
         End If
         ObjAcum.Dispose()
-
+        Try
             For Each Row As DataRow In DtUsados.Rows
                 Dim obj As New Modelos.MPolizaVentaWS
                 'DATOS DEL CLIENTE
@@ -23794,6 +23794,10 @@ Partial Class Ventas
 
                 EnviarPolizaVentaWS(obj)
             Next
+        Catch ex As Exception
+            OnError("Ocurrió un error al generar la poliza virtual", ex)
+        End Try
+
 
     End Sub