-

Inventarios/RecepcionUsados.aspx.vb

@@ -1730,11 +1730,12 @@ Partial Class Inventarios_RecepcionUsados
         DivClienteSucursal.Visible = False
         DdlClientesSucursales.Items.Clear()
 
-        Me.EsDistribuidor = CBool(GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("EsDistribuidor", $"CveCliente = {DdlClientes.SelectedValue.ToEntero()}"))
-
-        CargaSucursalesCliente()
-        CargaFacturasCliente()
+        If DdlClientes.SelectedValue.ToEntero > 0 Then
+            Me.EsDistribuidor = CBool(GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=DdlClientes.SelectedValue.ToEntero()).FiltroPrimeroValor("EsDistribuidor", ""))
 
+            CargaSucursalesCliente()
+            CargaFacturasCliente()
+        End If
         UpGenerales.Update()
     End Sub
     Private Sub CargaFacturasCliente()
@@ -2767,6 +2768,8 @@ Partial Class Inventarios_RecepcionUsados
                     "", "-1", "-1", "-1", "", "", "", -1, "", "", CveTamaño)
 
             End If
+        Else
+            Alert("No se pudo cargar el producto", TipoMensaje.MsgError)
         End If
         ObjPS.Dispose()
     End Sub