-- cambio en obtención de globaldtsubpro

Ventas/ClientesAbonar.aspx.vb

@@ -1767,13 +1767,21 @@ Partial Class Ventas_ClientesAbonar
 
         DtImpuestos = CargaTotalesImpuestos(DtImpuestos)
 
-        Dim DrSubProyecto As DataRow = GlobalDTSubProyectos(-1, ObjFacturaDevolucion.CveSubProyecto).Rows(0)
-
+        Dim DrSubProyecto As DataRow = GlobalDTSubProyectos(-1, ObjFacturaDevolucion.CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
         Dim Cantidad As Decimal = 1
-        Dim CveProyecto As Integer = DrSubProyecto("CveProyecto").ToString().ToEntero()
-        Dim CveSubProyecto As Integer = DrSubProyecto("CveSubProyecto").ToString.ToEntero
-        Dim SubProyecto As String = DrSubProyecto("SubProyecto").ToString
-        Dim Proyecto As String = DrSubProyecto("Proyecto").ToString
+        Dim CveProyecto As Integer
+        Dim CveSubProyecto As Integer
+        Dim SubProyecto As String
+        Dim Proyecto As String
+        If DrSubProyecto IsNot Nothing Then
+            CveProyecto = DrSubProyecto("CveProyecto").ToString().ToEntero()
+            CveSubProyecto = DrSubProyecto("CveSubProyecto").ToString.ToEntero
+            SubProyecto = DrSubProyecto("SubProyecto").ToString
+            Proyecto = DrSubProyecto("Proyecto").ToString
+        Else
+            Alert("Ocurrió un error al obtener información de la sucursal")
+            Exit Sub
+        End If
 
         Dim CveSATNC As Integer
         Dim ArrayNC As String() = UsuarioActual.Empresa.Funcionalidad(591).Split(",".ToCharArray())