diff --git a/Inventarios/ResguardoMaterial.aspx.vb b/Inventarios/ResguardoMaterial.aspx.vb index e3cfa6f5d..460a99f76 100644 --- a/Inventarios/ResguardoMaterial.aspx.vb +++ b/Inventarios/ResguardoMaterial.aspx.vb @@ -127,6 +127,7 @@ Partial Class Inventarios_ResguardoMaterial Try Dim CvePersonal As Integer = Request.QueryString("CvePersonal").ToString.ToEntero OcultarControles(CvePersonal) + TxtFecha.Enabled = False Catch ex As Exception End Try @@ -140,7 +141,8 @@ Partial Class Inventarios_ResguardoMaterial Private Sub OcultarControles(CvePersonal As Integer) - DdlPersonal.ddl.SelectedValueExist(CvePersonal) + DdlPersonal.SelectedValue = CvePersonal.ToString() + DdlPersonal.SelectedText = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal).FiltroPrimeroValor("NombreCompleto") DdlPersonal.Enabled = False DVTipo.Visible = False End Sub @@ -931,10 +933,11 @@ Partial Class Inventarios_ResguardoMaterial If Not TieneError Then Dim Msg As New StringBuilder If Concepto = 23 Then - Msg.AppendFormat("
Resguardo con Folio: {1}", CveMovimientoSalida, FolioSalida) + 'FolioEntrada + Msg.AppendFormat("
Resguardo con Folio: {1}", CveMovimientoSalida, FolioEntrada) Msg.AppendFormat("
Imprimir Resguardo ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoSalida))) - Msg.AppendFormat("


El Movimiento de control se registro con el Folio: {1}", CveMovimientoEntrada, FolioEntrada) + Msg.AppendFormat("


El Movimiento de control se registro con el Folio: {1}", CveMovimientoEntrada, FolioSalida) Else Msg.AppendFormat("
Liberación de Resguardo con Folio: {1}", CveMovimientoEntrada, FolioEntrada) Msg.AppendFormat("
Imprimir liberación de Resguardo ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada)))