Contratos

Ventas/ProductosServicios.aspx.vb

@@ -2187,20 +2187,27 @@ Partial Class ProductosyServicios
             ' CargaClasificacionesDetalles()
         End If
 
-        Try
-            Dim Dr = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue.ToEntero()))(0)
-            If Boolean.Parse(Dr("EsAcumulador").ToString) Then
-                MostarOcultarDivTamanio(True)
-            Else
-                MostarOcultarDivTamanio(False)
-            End If
-            'SI ES MOTOBATERIA
-            If DdlClasificacion.SelectedValue = "20517" Then
-                MostarOcultarDivTamanio(True)
-            End If
-        Catch ex As Exception
-            OnError("Ocurrió un error al mostrar los tamaños", ex)
-        End Try
+
+        If DdlClasificacion.SelectedValue.ToEntero > 0 Then
+            Try
+                Dim Dr = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue.ToEntero()))(0)
+                If Boolean.Parse(Dr("EsAcumulador").ToString) Then
+                    MostarOcultarDivTamanio(True)
+                Else
+                    MostarOcultarDivTamanio(False)
+                End If
+                'SI ES MOTOBATERIA
+                If DdlClasificacion.SelectedValue = "20517" Then
+                    MostarOcultarDivTamanio(True)
+                End If
+            Catch ex As Exception
+                OnError("Ocurrió un error al mostrar los tamaños", ex)
+            End Try
+        End If
+
+
+
+
     End Sub
 
     Private Sub MostarOcultarDivTamanio(Mostrar As Boolean)