-- que sea cero el valor de enrada en almacen, de prestamo de proveedor

Inventarios/EntradasSalidas.aspx.vb

@@ -2541,6 +2541,7 @@ Partial Class Inventarios_EntradasSalidas
         DivDepartamentoEntrega.Visible = False
         TxtDepartamentoEntrega.Text = ""
         TxtPedidoContrato.Text = ""
+        txtPrecio.Enabled = True
 
         Select Case CveConcepto
             Case "1", "2", "22", "32", "33" ' ENTRADAS
@@ -2588,6 +2589,7 @@ Partial Class Inventarios_EntradasSalidas
                 TrProveedor.Visible = True
                 DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
                 DdlProveedor.DataBind()
+                txtPrecio.Enabled = False
 
             Case Else
                 TrSubProyecto.Visible = False
@@ -5414,6 +5416,7 @@ Partial Class Inventarios_EntradasSalidas
         limpiarModalDetalle()
         UpAgregar.Update()
         RegistraScript("$('#ModalAgregar').modal()")
+        If DdlConcepto.SelectedValue = "28" Then txtPrecio.Text = "0.00" 'préstamo proveedor
     End Sub
 
     Private Sub ActualizarPS()