Rep personal DIM

Compras/eFacturas.aspx.vb

@@ -2790,6 +2790,8 @@ Partial Class Compras_eFacturas
     Protected Sub LnkverificarSolicitudes_Click(ByVal sender As Object, ByVal e As EventArgs)
         Try
             Dim sbResultado As StringBuilder = New StringBuilder()
+            Dim TipoMensaje = ModExtensiones.TipoMensaje.MsgInformacion
+
 
             For Each GvRow As GridViewRow In GVSolicitudesPendientes.Rows
                 Dim CveSolicitudActual As Integer = GvRow.DataKey("CveSolicitud").ToEntero()
@@ -2800,17 +2802,33 @@ Partial Class Compras_eFacturas
                 Dim resultVerificacion As List(Of String) = New List(Of String)()
                 Dim ResultadoVerificaionOK = False
                 Dim SeVerifico = False
-                Dim TipoMensaje = ModExtensiones.TipoMensaje.MsgInformacion
+
                 Dim ResultadoSolicitudOK = False
                 Dim api = New GeneralesAPIeFacturas()
 
+                Dim Verificar As Boolean = True
+
                 If idSolicitud.Length = 0 Then
                     Dim ObjApiSolicitud As JToken = CType(api.GeneraSolicitud(UsuarioActual.CveEmpresa, CveTipoSolicitud, CveSolicitudActual), JToken)
 
                     If Not (ObjApiSolicitud Is Nothing) Then
                         resultSolicitud = ObjApiSolicitud.[Select](Function(token) token.Values().Aggregate(Function(i, j) $"{i}|{j}").Value(Of String)()).ToList()
                         ResultadoSolicitudOK = Boolean.Parse(resultSolicitud(0))
-                        sbResultado.Append($"Solicitud {Folio}  solicitada a SAT.<br>")
+
+                        Try
+                            sbResultado.Append($"Solicitud {Folio}  { resultSolicitud(1)}.<br>")
+
+                            If resultSolicitud(1).Contains("No se Generaron solicitudes al SAT") Then
+                                Verificar = False
+                            Else
+                                Verificar = True
+                            End If
+                        Catch ex As Exception
+                            sbResultado.Append($"Solicitud {Folio}  solicitada a SAT.<br>")
+                            Verificar = False
+                        End Try
+
+
                     Else
                         TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
                     End If
@@ -2821,13 +2839,24 @@ Partial Class Compras_eFacturas
                     resultSolicitud.Add("")
                     resultSolicitud.Add("")
                     ResultadoSolicitudOK = True
+                    Verificar = True
                 End If
 
-                If ResultadoSolicitudOK Then
+                If ResultadoSolicitudOK And Verificar Then
                     Dim ObjApiVerificacion As JToken = CType(api.VerificaSolicitudesNominas(UsuarioActual.CveEmpresa, CveTipoSolicitud, CveSolicitudActual), JToken)
 
                     If Not (ObjApiVerificacion Is Nothing) Then
                         resultVerificacion = ObjApiVerificacion.[Select](Function(token) token.Values().Aggregate(Function(i, j) $"{i}|{j}").Value(Of String)()).ToList()
+
+                        'If UsuarioActual.CveRol = 1 Then
+                        '    Dim respesta = New StringBuilder
+                        '    For Each s As String In resultVerificacion
+                        '        respesta.AppendLine($"{s} - ")
+                        '    Next
+
+                        '    Alert(respesta.ToString)
+                        'End If
+
                         ResultadoVerificaionOK = Boolean.Parse(resultVerificacion(0))
                         SeVerifico = True
                     Else
@@ -2835,7 +2864,7 @@ Partial Class Compras_eFacturas
                     End If
                 Else
 
-                    If resultSolicitud.Count = 4 Then
+                    If resultSolicitud.Count >= 4 Then
                         sbResultado.Append($"({resultSolicitud(1)})<br>  Folio:{Folio} <br> ")
                     Else
                         sbResultado.Append($"Solicitud pendiente de verificar en SAT <br> Folio:{Folio} <br>")
@@ -2844,22 +2873,30 @@ Partial Class Compras_eFacturas
                     TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
                 End If
 
-                If SeVerifico AndAlso resultVerificacion.Count = 4 Then
 
-                    If ResultadoVerificaionOK Then
-                        sbResultado.Append($"Solicitud procesada.<br> Folio: {Folio} <br> {resultVerificacion(1)}")
+                'If UsuarioActual.CveRol = 1 Then
+                '    Alert($"SeVerifico {SeVerifico.ToString} resultVerificacion.Count {resultVerificacion.Count }")
+                'End If
+                If Verificar Then
+                    If SeVerifico AndAlso resultVerificacion.Count >= 4 Then
+
+                        If ResultadoVerificaionOK Then
+                            sbResultado.Append($"Solicitud procesadaFolio: {Folio} <br> {resultVerificacion(1)}")
+                        Else
+                            sbResultado.Append($"Solicitud  no verificada <br>  Folio: {Folio}{resultVerificacion(1)}.<br>")
+                            TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
+                        End If
                     Else
-                        sbResultado.Append($"Solicitud  no verificada <br>  Folio: {Folio}{resultVerificacion(1)}.<br>")
+                        sbResultado.Append($"Se presento un error al verificar la solicitud Folio: {Folio}. <br>")
                         TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
                     End If
-                Else
-                    sbResultado.Append($"Se presento un error al verificar la solicitud <br> Folio: {Folio}.")
-                    TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
                 End If
 
-                Alert(sbResultado.ToString(), TipoMensaje)
+
+
             Next
 
+            Alert(sbResultado.ToString(), TipoMensaje)
             cargasolicitudes()
         Catch ex As Exception
             Alert(ex.StackTrace)