-- funcionamiento con enter, al igual que el tab,. en el registro de OC

OC/OC.aspx.vb

@@ -1047,22 +1047,25 @@ Partial Class OC_OC
                 LnkDescargarPSExcel.Visible = True
             End If
 
+            MostrarUsuarioAsignado()
+            ValidaCancelacionConAlamcen()
+
+            Me.Form.DefaultButton = ""
+
             If CveOrdenCompra > 0 Then
                 GvD.Columns(20).Visible = False
 
             Else
-                If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                    TxtCant.Text = "1"
+                    TxtCant.Focus()
                     RegistraScript("abrirDdlPS();", "A1")
+                    UPPDetalle.Update()
                 End If
             End If
 
         End If
 
-        MostrarUsuarioAsignado()
-        ValidaCancelacionConAlamcen()
-
-        Me.Form.DefaultButton = ""
-
     End Sub
     Protected Sub OrdenarGvPS(ByVal sender As Object, ByVal e As EventArgs)
 
@@ -1830,7 +1833,7 @@ Partial Class OC_OC
                 CboE.DataBind()
             End If
 
-            If objOC.GetOrdenesDetalle(pCveOrdenCompra, UsuarioActual.cveempresa) Then
+            If objOC.GetOrdenesDetalle(pCveOrdenCompra, UsuarioActual.CveEmpresa) Then
                 DtDetalle = objOC.DtResultados
             End If
 
@@ -2303,6 +2306,7 @@ Partial Class OC_OC
             CboUM.DataSource = GlobalDTProductosServiciosEquivalencias(Cvepsgvd, -1, UsuarioActual.CveEmpresa)
             CboUM.DataBind()
         End If
+
     End Sub
     Protected Sub LbVerInventario_Click(sender As Object, e As EventArgs) Handles LbVerInventario.Click
         RegistraScript(String.Format("AbrirVentana('/Inventarios/PopUpExistenciasAlmacen.aspx?CvePS={0}',800,547,'N');", DdlP2.SelectedValue))
@@ -2369,6 +2373,11 @@ Partial Class OC_OC
                 ObjOC.Dispose()
             End If
         End If
+
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+            txtPrecioUnitario.Focus()
+            UPPDetalle.Update()
+        End If
     End Sub
 #End Region