Correcion en catalogo de subtipos de AF

AF/CatSubTipos.aspx.vb

@@ -18,8 +18,10 @@ Partial Class AF_CatSubTipos
 	End Sub
 
     Private Sub CargaTipos()
+        DdlTipos.Items.Clear()
         DdlTipos.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
         DdlTipos.DataBind()
+        DdlTipos.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
 
     Private Sub CargaGlobal()
@@ -46,7 +48,6 @@ Partial Class AF_CatSubTipos
         Else
             CargaGrid("")
         End If
-        CargaGlobal()
     End Sub
 
 #Region "G V  D A T O S"
@@ -92,7 +93,8 @@ Partial Class AF_CatSubTipos
             CargaGrid("")
         End If
 
-        If Not TieneError Then
+        If Not TieneError Then
+            CargaGlobal()
             CargaDatos()
         End If
     End Sub
@@ -133,7 +135,8 @@ Partial Class AF_CatSubTipos
             CargaGrid("")
         End If
 
-        If Not TieneError Then
+        If Not TieneError Then
+            CargaGlobal()
             CargaDatos()
         End If
     End Sub
@@ -199,7 +202,9 @@ Partial Class AF_CatSubTipos
         End If
         ObjAF.Dispose()
 
-        If Not TieneError Then
+        If Not TieneError Then
+            CargaGlobal()
+
             CargaDatos()
         End If