Publicado el Dejar un comentario

Error en tamaño base de datos 4 GB

-2147217900:No se pudo asignar espacio para el objeto ‘dbo.ventas’.’PK_ventas’ de la base de datos ‘C:\MyBusinessDatabase\MyBusinessPos2012.mdf’ porque el grupo de archivos ‘PRIMARY’ está lleno. Elimine archivos innecesarios, quite objetos del grupo de archivos, agregue archivos adicionales al grupo de archivos o establezca la opción de crecimiento automático para los archivos existentes en el grupo de archivos con el fin de crear espacio en el disco. in line 717

Sistema: -2147217900 No se pudo asignar espacio para el

Publicado el Dejar un comentario

Solución al error: Jetpack has locked your site’s login page.

Solución definitiva al error: “Jetpack has locked your site’s login page” y al error

  1. Es necesario iniciar sesión con tu cuenta de WordPress.com
  2. Dar clic a este enlace: http://bit.ly/2uxtH0Y
  3. Elegir tu sitio donde te apareció el mensaje de bloqueo, para desbloquear.
  4. En este momento, prueba ingresar nuevamente con tu usuario en tu página que estaba bloqueada.

 

Publicado el Dejar un comentario

PuntoV080, Cuando se presiona un tecla en el punto de venta

Sub Main()

Me.usuarioRequerido = 0

‘If Ambiente.Tag = 115 Then
‘LlenaPartida “Z002”
‘ Script.RunForm “RECOMENDADOS”, Me, Ambiente, , True
‘End If

If Parent.KeyControl = 1 Then
Exit Sub
End If

If ArticuloTiempoAire = False Then
If Ambiente.Tag = 118 Then
If Question(“Esta seguro de querer dejar esta venta como pendiente”) Then
Me.BorraVenta = True
Me.FinalizaOperacion
Exit Sub
End If
End If
End If

‘If Ambiente.Tag = 115 Then

‘End If

‘If Ambiente.Tag = 187 Then
‘ FinalizaOperacion
‘ CancelaProceso = True
‘ txtFields(4) = “”
‘End If

End Sub

Function ArticuloTiempoAire()
Dim rstPV

Set rstPV = Rst(“SELECT articulo FROM partvta WHERE venta = ” & Me.Venta & ” AND (articulo = ‘RMOVISTAR’ OR ” & _
“articulo = ‘RTELCEL’ OR articulo = ‘RIUSACELL’ OR articulo = ‘RUNEFON’ OR articulo = ‘RNEXTEL’)”, Ambiente.Connection)

If Not rstPV.EOF Then
ArticuloTiempoAire = True
Else
ArticuloTiempoAire = False
End If

rstPV.Close
Set rstPV = Nothing
End Function