Clarion - Como ubicar un registro en un FileDrop

 
Vista:

Como ubicar un registro en un FileDrop

Publicado por Omar García (42 intervenciones) el 03/08/2001 22:31:19
Colegas, una duda:
Alguien me puede decir en donde esta el error de este código. Proviene del proyecto CLUBMANAGER que viene como ejemplo en el directorion de Clarion 5 y superiores.
Se supone que la rutina debe quitar cualquier selección a un objeto Lista (FILEDROP CLASS) y posteriormente marcar uno o varios de sus elementos, deacuerdo a una condición IF, pero simplemente no pasa nada y siempre aparecer marcado el primer registro
MarkCommitteAndTypeList ROUTINE
!Collect Marked Committees
?COM:Committee{PROP:Selected}= 0
LOOP LoopIndex = 1 TO RECORDS(Queue:FileDrop:1)
GET(Queue:FileDrop:1,LoopIndex)
IF INSTRING(CLIP(Queue:FileDrop:1.Committee),CTRL:ReportFilter,1)
Queue:FileDrop:1.Mark = True
PUT(Queue:FileDrop:1)
END
END
Hasta donde investigue la propiedad -MARK que ustedes ven ahí, sirve para que en un objeto QUEUE se establezca si está marcado más de un registro, pero no marca nada. Cabe aclarar que aunque el ejemplo esta en Clarion 5.0, el programa fue hecho con la verisón 2.0 de este lenguaje.
Espero y puedan darme su opinión
Atte. Omar García.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder