Merge branch 'master' of http://192.168.10.111:8383/SIG

Compras/Compras.aspx.vb

@@ -1295,6 +1295,7 @@ Partial Class Compras_Compras
                 ViewState("CveFactura") = Request("CveFactura").ToEntero
 
                 Dim RFC As String = CargaFactura(CveFactura)
+                If RFC.Trim <> String.Empty Then
                     DdlProveedor.Visible = False
                     HplProveedor.Visible = True
                     GvInv.Visible = True
@@ -1370,6 +1371,8 @@ Partial Class Compras_Compras
 
                     If UsuarioActual.Empresa.Funcionalidad(562).ToEntero > 0 Then CargaGastosServicios(UsuarioActual.Empresa.Funcionalidad(562).ToEntero)
 
+                End If
+
             ElseIf Request("CveCompra") IsNot Nothing AndAlso IsNumeric(Request("CveCompra")) AndAlso Request("CveCompra").ToEntero > 0 Then
 
                 ViewState("CveCompra") = Request("CveCompra")
@@ -1741,10 +1744,14 @@ Partial Class Compras_Compras
 
                         XMLDoc.Load(Archivo)
                     Catch ex As Exception
-
+                        Try
                             Dim oReader = New StreamReader(Archivo, Encoding.GetEncoding("ISO-8859-1"))
                             XMLDoc.Load(oReader)
                             oReader.Dispose()
+                        Catch ex2 As Exception
+                            GuardaLog("Error al intentar leer el XML del SAT. Error:" & ex2.ToString())
+                        End Try
+
 
                     End Try
 
@@ -2083,9 +2090,10 @@ Partial Class Compras_Compras
 
         ObjeFacturas.Dispose()
 
+        If RFC <> "" Then
             Dim ObjSAT As New ClsSAT
-        Dim RFCRequest As String = Request("RFC").ToString
+
-        If ObjSAT.GetListado69B(2, UsuarioActual.CveEmpresa, RFCRequest) Then
+            If ObjSAT.GetListado69B(2, UsuarioActual.CveEmpresa, RFC) Then
                 If ObjSAT.DtResultados.Rows.Count > 0 Then
                     Dim Estatus As String = ObjSAT.DtResultados.Rows(0)("Situacion").ToString
                     BtnGuardar.Enabled = False
@@ -2096,6 +2104,8 @@ Partial Class Compras_Compras
                 End If
             End If
             ObjSAT.Dispose()
+        End If
+
 
 
         Return RFC

Ventas/Ventas.aspx.vb

@@ -22252,7 +22252,13 @@ Partial Class Ventas
             Exit Sub
         End If
 
+
+        If VentaSaldoAlmacen < 0 Then
             LBAplicaDevolucion.Visible = True
+        ElseIf VentaSaldoAlmacen >= 0 Then
+            LBAplicaDevolucion.Visible = False
+        End If
+
         Dim SeEsconde As Boolean = False
 
         If DtDetalle IsNot Nothing AndAlso DtDetalle.Rows.Count > 0 Then