les solicito ayuda

[Jose Mario]

deseo pedirles ayuda

quiero que un mensaje no se me desaparezca por la rapides de la digitacion

asi como lo tengo no me gusta

porque desaparece, aparece mensaje y luego ntra a un loop que me digite insert y sale, si no es esa tecla no se sale

pero deseo que si digita otra tecla aparesca nuevamente l mensaje , pero no logro hacerlo

      IF _tally<>0
      lndiastrans=(gdfechal-fecha_ult_cambio)
        IF lndiastrans<lndiasoptimo
          Messagebox("Este producto se a cambiado en menos de "+transform(lndiastrans)+CHR(13)+ " dias ",0+32+256," Presione Tecla F1 ")

    Do While .T.

                              si lo coloco aqui me toma el enter y no el inser
    If Inkey()=28
   Exit
    Endif
  Enddo

        ENDIF
    endif

[Victor Espina]

El problema es que lo estas haciendo con MESSAGEBOX.. creo que la mejor forma seria con un Form tipo dialogo.

Victor Espina

[Jose Mario]

siempre a sido una alegria saber de ti victor, intentare hacer un form

gracias

[Juan Gonzalez]

IF _tally <> 0
    lndiastrans = (gdfechal - fecha_ult_cambio)
   
    IF lndiastrans < lndiasoptimo
       
        * Construimos el texto del mensaje
        lcMensaje = "Este producto se ha cambiado en menos de " + ALLTRIM(TRANSFORM(lndiastrans)) + " dias." + CHR(13) + CHR(13) + "Presione la tecla [ INSERT ] para continuar..."
       
        * Limpiamos cualquier tecla basura que esté en el buffer antes de entrar al ciclo
        CLEAR TYPEAHEAD
       
        DO WHILE .T.
            * WAIT WINDOW con NOWAIT muestra el mensaje sin bloquear la ejecución
            * y permite redibujarlo en cada vuelta del ciclo si fuera necesario.
            WAIT WINDOW lcMensaje TIMEOUT 1
           
            * INKEY(0) espera indefinidamente a que el usuario presione una tecla
            lnTecla = INKEY(0)
           
            * 28 es el código correspondiente a la tecla INSERT en FoxPro
            IF lnTecla = 28
                EXIT
            ELSE
                * Si presiona cualquier otra tecla, el ciclo continúa,
                * el mensaje vuelve a mostrarse y no permite avanzar al INSERT.
                LOOP
            ENDIF
        ENDDO
       
        * Limpiamos la ventana de espera al salir
        WAIT CLEAR
       
    ENDIF
ENDIF

--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/0f9837aa-1f67-4657-84c8-06038096a09an%40googlegroups.com.

[Mario Alfredo Oviedo Carranza]

gracias juan, esta mas facil d implementar, gracias

Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/-5p43qHQGqQ/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/CACBth-pHNcPj7O0yL_%2Br8-8ySLiQ3OpwyN%2B%3DYVGYqFz5LFF0TA%40mail.gmail.com.

[Mario Alfredo Oviedo Carranza]

no se sale juan, nunca sale

[Juan Gonzalez]

dejame probarlo de nuevo

Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAEQjMnkBjCR99N43KWEDQRuMwdQg1HxDQ0CPmeRX29YHNG2jjA%40mail.gmail.com.

[Mario Alfredo Oviedo Carranza]

ok

Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/CACBth-qmxD1_0i8q-7%2BYSi%2Bqnp45uvOf-Xd%2Btm-5nt68J0AvPw%40mail.gmail.com.

[Juan Gonzalez]

CLEAR
CLEAR ALL


PUBLIC gdfechal, fecha_ult_cambio, lndiasoptimo

gdfechal = DATE()                    && Fecha actual simulada
fecha_ult_cambio = DATE() - 2         && Cambiado hace 2 días (menor al óptimo)
lndiasoptimo = 5                      && Óptimo: 5 días
_tally = 1                            && Asignación directa sin declarar como PUBLIC

? "Iniciando prueba en Visual FoxPro..."
? "Fecha actual: " + DTOC(gdfechal)
? "Último cambio: " + DTOC(fecha_ult_cambio)
? "Días óptimos permitidos: " + ALLTRIM(STR(lndiasoptimo))
? "--------------------------------------------------"
? "¡Atención! A continuación saltará la validación..."


lnDummy = INKEY(1)

IF _tally <> 0
    lndiastrans = (gdfechal - fecha_ult_cambio)
   
    IF lndiastrans < lndiasoptimo
       
  

        lcMensaje = "Este producto se ha cambiado en menos de " + ALLTRIM(TRANSFORM(lndiastrans)) + " dias." + CHR(13) + CHR(13) + "Presione la tecla [ INSERT ] para continuar..."
       
       

        CLEAR TYPEAHEAD
       
       
        DO WHILE .T.

            * NOWAIT evita el bloqueo total y permite redibujar el aviso en pantalla
            WAIT WINDOW lcMensaje NOWAIT
           
       
            lnTecla = INKEY(0.1)
           
         
            IF lnTecla = 28 OR LASTKEY() = 22
                EXIT
            ENDIF
        ENDDO
       
     
        WAIT CLEAR
        CLEAR TYPEAHEAD
       
    ENDIF
ENDIF

? "¡Prueba superada! La tecla INSERT fue presionada correctamente y el programa continuó."
RETURN

Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAEQjMn%3DZn49rPKo1ZdxQdDGa2vq4NhOyR1F66kKaadfBdPAERw%40mail.gmail.com.

[Juan Gonzalez]

crea un prg y coloca este...   el inconveniente podria ser el cosigo ascii yo use el 22

[Jose Mario]

gracias anonimato funciono con inser

[Jose Mario]

gracias a tocos por ayudarme