Clipper/FiveWin - Como llamar el Box

Estimados amigos,

Yo tengo un script echo por un experto en Clipper, lo cual es más o menos así

Case

Box{11, {"&SI", "&NO"}.......

Me gustaría saber como llamo el " &SI" y el "&NO", tipo...

do ???

Saludos,

Letchev

Letchev, el comando que existe en Clipper puro no funciona así y creo que no es lo que necesitas. El comando box de clipper es @nTop, nLeft, nBottom, Right BOX cCaracteresBox y no tiene para opciones.
Lo que creo que necesitas es un Alert que funciona así:
nOpcion := Alert( "Desea Modificar el fichero ?", { "Si", "No", "Cancela" } )

Esta función te devolverá el número de opción seleccionada.
Saludos.
Gustavo.

Estimado Gustavo,

Por favor, haga download de esta biblioteca más el "exemplo.prg".
http://orbita.starmedia.com/~centralgratis/diniz/jcklib.zip

Después me contestas otra vez.

Gracias por la ayuda.

Letchev

He mirado el ejemplo que me comentaste.
La función Box que utiliza debe estar en el .LIB que viene con el ejemplo.
Mira si cuando estás haciendo el link estás agregando esa librería.
De todas maneras eso funciona como el Alert con la diferencia que le puedes poner en qué línea quieres abrir la caja.
Saludos.
Gustavo.

Ok. En FoxPro está así:

SCAN ALL
SELECT string1
LOCATE FOR word = string.word
IF FOUND()
SELECT string1
LOCATE FOR word = string.word
IF FOUND()
nCount = nCount + 1
ENDIF
ENDIF
ENDSCAN

Sería el comando "do while .not. eof()" ??? o hay otro mejor?

Saludos desde LasVenas Abiertas de América Latina,

Letchev

Por favor, ignoras la anterior!

Letchev, creo que con el do while !eof() lo solucionarías.
Aunque te aconsejo que te crees un índice por lo que quieres buscar y funcionaría mucho mejor.
Sería algo así:

cBusca := "cadena a buscar"
Select 1
Use BASE1
INDEX ON campo TO BASE1.NTX / o CDX depende del que quieras
Select 2
Use BASE2
INDEX ON campo TO BASE2.NTX
DbSelectArea( "BASE1" )
BASE1->( DbSetOrder( "BASE1.NTX" ) )
If BASE1->( DbSeek( cCadena ) )
// Do while !Eof() .and. BASE1->campo == cCadena
BASE2->( DbSetOrder( "BASE2.NTX" ) )
If BASE2->( DbSeek( cCadena ) )
Do while !Eof() .and. BASE2->campo == cCadena
nCount ++
BASE2->( DbSkip() )
EndDo
// BASE1->( DbSkip() )
//EndDo
EndIf

Si miras las líneas que están comentadas con // ( la del de do while, Base1->( dbskip() ) y enddo ) es porque lo que que hace este programita es buscar en la primer base y si la encuentra, busca en la segunda base todas las veces que aparece. Estoy suponiendo que en la primer base no se repite porque sino estaría volviendo a buscar en la segunda lo mismo.
No se si me explico bien.
Espero que sea eso lo que necesitas.
Saludos.
Gustavo.

Letchev y Master Gustavo:

Funcionaria mejor con un filtro o con un scope ?

Saludos, Armando