-

Ventas/CatAutorizacionLimites.aspx.vb

@@ -1,5 +1,4 @@
-
-Imports Extensiones
+Imports Extensiones
 
 Partial Class Ventas_CatAutorizacionLimites
     Inherits ClsPaginas
@@ -24,6 +23,8 @@ Partial Class Ventas_CatAutorizacionLimites
 #End Region
 
     Private Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            CargaCombos()
             CargaDatos()
         End If
     End Sub
@@ -63,8 +64,12 @@ Partial Class Ventas_CatAutorizacionLimites
 
         UpModal.Update()
     End Sub
+    Private Sub CargaDatos()
+        Dim CveCliente As Integer = -1
+        If DdlClienteFiltro.SelectedValue.ToEntero() <= 0 Then
+            CveCliente = -1
         Else
-        Dim CveCliente As Integer = -1
+            CveCliente = DdlClienteFiltro.SelectedValue.ToEntero()
         End If
 
         Dim FechaI, FechaF As Date