Compras pago deudores otros egresos ingresos, correciones efacturas, correciones redireccion anexo auxiliar 119, inicio ver inconcistencias en acciones

Compras/eFacturas.aspx.vb

@@ -3514,11 +3514,11 @@ Partial Class Compras_eFacturas
             BtnVincularPago.Visible = False
             If DTDocumentosRelacionados.Rows.Count > 0 Then
                 SerieFolioIE = DTDocumentosRelacionados.Rows(0)("SerieFolio").ToString
-                DivVincularPagoManualmente.Visible = False
+                'DivVincularPagoManualmente.Visible = False
                 BtnVincularPago.Visible = True
                 TieneRegistros = True
             Else
-                DivVincularPagoManualmente.Visible = True
+                'DivVincularPagoManualmente.Visible = True
                 BtnVincularPago.Visible = False
             End If
 
@@ -3614,7 +3614,7 @@ Partial Class Compras_eFacturas
                 If Not (FechaDoRecibo >= FT1 And FechaDoRecibo < FT2) Then
 
                     If TieneRegistros AndAlso UsuarioActual.TienePermisoProceso(286) Then
-                        DivVincularPagoManualmente.Visible = True
+                        'DivVincularPagoManualmente.Visible = True
                     End If
 
                     MSGComplemento = MSGComplemento & " Existen mas de 3 días de diferencia entre la fecha del documento y la fecha de complemento. "
@@ -3650,7 +3650,7 @@ Partial Class Compras_eFacturas
                     MSGComplemento = MSGComplemento & $" Existe una diferencia mayor a $5.00  ({Math.Abs(DiferenciaImportes).ToString("###,###,###.00")})"
 
                     If TieneRegistros AndAlso UsuarioActual.TienePermisoProceso(286) Then
-                        DivVincularPagoManualmente.Visible = True
+                        'DivVincularPagoManualmente.Visible = True
                     End If
                 End If
             Else
@@ -3658,13 +3658,13 @@ Partial Class Compras_eFacturas
                 BtnVincularPago.Visible = False
                 MSGComplemento = MSGComplemento & $" No se encontraron pagos "
                 If TieneRegistros AndAlso UsuarioActual.TienePermisoProceso(286) Then
-                    DivVincularPagoManualmente.Visible = True
+                    ' DivVincularPagoManualmente.Visible = True
                 End If
             End If
         Else
             BtnVincularPago.Visible = False
             MSGComplemento = MSGComplemento & $"No se encontraron compras relacionadas"
-            DivVincularPagoManualmente.Visible = False
+            'DivVincularPagoManualmente.Visible = False
         End If
 
 
@@ -3697,7 +3697,7 @@ Partial Class Compras_eFacturas
         Else
             LblMensajeComlementoError.Text = ""
             DVMensajecomplementoError.Visible = False
-            DivVincularPagoManualmente.Visible = False
+            ' DivVincularPagoManualmente.Visible = False
         End If
 
 
@@ -3708,18 +3708,18 @@ Partial Class Compras_eFacturas
         ListaComprasPUE = ListaComprasPUEInterna
 
 
-        If DivVincularPagoManualmente.Visible Then
+        'If DivVincularPagoManualmente.Visible Then
 
-            For Each GvRowValidaCompra As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
-                If GvRowValidaCompra.DataKey("CveCompra").ToEntero > 0 Then
-                    DivVincularPagoManualmente.Visible = True
-                    Exit For
-                Else
-                    DivVincularPagoManualmente.Visible = False
-                End If
-            Next
+        '    For Each GvRowValidaCompra As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
+        '        If GvRowValidaCompra.DataKey("CveCompra").ToEntero > 0 Then
+        '            DivVincularPagoManualmente.Visible = True
+        '            Exit For
+        '        Else
+        '            DivVincularPagoManualmente.Visible = False
+        '        End If
+        '    Next
 
-        End If
+        'End If
 
         BtnVincularPago.Attributes.Add("data-toggle", "")
         BtnVincularPago.Attributes.Add("data-popout", "")