[VFP] MESSAGEBOX -INPUTBOX

1,028 views
Skip to first unread message

Jairo Miranda

unread,
Dec 23, 2015, 9:20:18 AM12/23/15
to publicesvfoxpro
Buenos días foro, alguien sabe si existe una forma de combinar un 
MESSAGEBOX al estilo Inpubox, es decir poder en el messagebox() introducir unva valorrry al dar en 
aceptar haga una busqueda o reemplace texto o algo más?
Alguna Idea ??
JM

Luis Maria Guayan

unread,
Dec 23, 2015, 9:25:36 AM12/23/15
to publice...@googlegroups.com
Mira si INPUTBOX te sirve:

? INPUTBOX("Buscar","Cuadro de búsqueda")

Luis María Guayán
Tucumán, Argentina
_______________________________
Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com

Jairo Miranda

unread,
Dec 23, 2015, 1:55:58 PM12/23/15
to publicesvfoxpro

Jairo Miranda

unread,
Dec 23, 2015, 1:57:38 PM12/23/15
to publicesvfoxpro
Si sirve, el problema es que evita que copies y pegues un patrón de palabra.. o hay alguna forma de permitir esto..
Ctrl+ v

JM 

El 23 de diciembre de 2015, 9:26, Luis Maria Guayan <luism...@gmail.com> escribió:

Luis Maria Guayan

unread,
Dec 23, 2015, 2:09:49 PM12/23/15
to publice...@googlegroups.com
Si funciona Copiar y Pegar en el cuadro de texto de INPUTBOX()

_CLIPTEXT = "Nada corre como un zorro!!!"
INPUTBOX("Presiona Ctrl+V", "Presiona Ctrl+V")

Luis María Guayán
Tucumán, Argentina
_______________________________
Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com

Jairo Miranda

unread,
Dec 23, 2015, 3:50:16 PM12/23/15
to publicesvfoxpro
ok.. podrá ser por algún  set de inicio ? 
esto son los set que tengo 

SET SYSMENU OFF
SET STATUS BAR OFF
SET TALK OFF
SET UNIQUE OFF
SET CONFIRM OFF
SET SAFETY OFF
SET ECHO OFF
SET BELL OFF
SET DELETE ON
SET CENTURY ON
SET NEAR ON
SET STRICTDATE  TO 0
SET REPROCESS TO 1 SECONDS
SET MULTILOCKS ON
SET ESCAPE OFF
SET CONSOLE OFF
SET ENGINEBEHAVIOR 70
SET DATE TO DMY
CLOSE DATABASES all

JM 

ZeRoberto

unread,
Dec 23, 2015, 5:29:47 PM12/23/15
to publicesvfoxpro
Debe ser por el SET SYSMENU OFF

integral

unread,
Dec 23, 2015, 8:23:50 PM12/23/15
to Comunidad de Visual Foxpro en Español

Estimado Amigo .

Debes de utilizarlo como SET SYSMENU ON

Saludos,

INTEGRAL

Walter Sánchez

unread,
Dec 24, 2015, 12:10:05 AM12/24/15
to publice...@googlegroups.com
Yo lo uso en algunas busquedas de esta forma:

xBuscar = ALLTRIM(INPUTBOX("Ingrese Busqueda: Fecha, Número ó Nombre", "Buscar", ""))
IF EMPTY(xBuscar)
   RETURN .f.
ENDIF
sele guiasventa
DO CASE 
   *> Fecha
   CASE SUBSTR(xBuscar,3,1)='/' AND SUBSTR(xBuscar,6,1)='/'
        SET ORDER TO TAG LLAVE03   && DTOS(FECHA_DOC)
        =SEEK(DTOS(CTOD(xBuscar)))
   *> Nombre
   CASE INLIST(UPPER(xBuscar), 'A','B','C','D','E','F','G','H','I','J','K','L','M','N','Ñ') OR ;
        INLIST(UPPER(xBuscar), 'O','P','Q','R','S','T','U','V','W','X','Y','Z')
        SET ORDER TO TAG LLAVE04   && CLIENTE
        =SEEK(UPPER(xBuscar))
   *> Numero
   CASE INLIST(xBuscar,'1','2','3','4','5','6','7','8','9','0')
        SET ORDER TO TAG LLAVE05   && NUM_DOC
        xBuscar=PADL(xBuscar,8,"0")
        =SEEK(xBuscar)
   OTHERWISE 
        MESSAGEBOX("Dato no Valido...",48,"Mensaje")
ENDCASE 
Thisform.Refresh 


Espero te sea util

Saludo
Walter Sánchez
Iquitos-Perú

Reply all
Reply to author
Forward
0 new messages