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, -1, -1)
+                    'CargaEstadosCuenta(context, 119, 227774)
+                    CargaEstadosCuenta(context, 119, -1)
             End Select
         Catch ex As Exception
             ex.GuardaLog(ex.ToString())
@@ -341,7 +341,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
             End If
         End Using
 
-        If DTClientes IsNot Nothing Then
+        If DTClientes IsNot Nothing Then
             For Each RowCliente As DataRow In DTClientes.Rows
                 Dim CveCliente As Integer = RowCliente("CveCliente").ToString().ToEntero()
                 Dim Correo As String = RowCliente("CobranzaCorreo").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