--

OC/OC.aspx.vb

@@ -8765,11 +8765,11 @@ Partial Class OC_OC
 
         If NumRemision.Trim.Length > 0 Then
             If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then
-
                 Dim ObjOC As New ClsOC(OcTransaccion)
                 If ObjOC.GetVerificaNumRemision(CveProveedor, TipoOC, NumRemision, UsuarioActual.CveEmpresa, CveOrdenCompraValida) Then
                     If ObjOC.DtResultados.Rows.Count > 0 Then
                         Alert($"La remision  ya se encuentra asignada a la { If(TipoOC = "OC", "Orden de compra", "Requisición")}  <a target='_blank' class='Texto' href='./OC.aspx?OC={ObjOC.DtResultados.Rows(0)("CveOrdenCompra").ToString()}' >{ObjOC.DtResultados.Rows(0)("Folio").ToString() }</a>.", TipoMensaje.MsgAdvertencia)
+                        TxtNumRemision.Text = ""
                     Else
                         NumRemisionValida = True
                     End If
@@ -8781,15 +8781,12 @@ Partial Class OC_OC
             NumRemisionValida = True
         End If
         If NumRemisionValida Then
-
             If CveOrdenCompra > 0 And BtnGuardar.Enabled And BtnGuardar.Visible Then
                 LnkActualizarNumRemision.Visible = True
             End If
-
         End If
 
         UPPEmp.Update()
-
         Return NumRemisionValida
 
     End Function