Busqueda Combobox

[jmeza]

Hola, consulta en un combobox de pawercobov9 como podría programar la búsqueda que coincida con una parte del nombre que este en cualquier posición a lo largo de la escritura Ej: nombre de clientes.
Si alguien me puede ayudar con la rutina como hacerlo
Se lo agradezco
Saludos

[Kuk]

@jmeza, mira a ver, no lo he probado casi pero algo así debes hacer. Lo mismo tienes que ajustar algo:


ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 idx-1 pic 9(4).
01 idx-2 pic 9(4) comp-5.

01 max pic 9(4) comp-5.

01 sw-enontr pic x.
88 sw-enontr-si value 's'.
88 sw-enontr-no value 'n'.

01 lineaCombo pic x(20).

01 buscar pic x(20).
01 buscLength pic 9(4) comp-5 value 0.


01 msg pic x(100).

PROCEDURE DIVISION.

move 'de5' to buscar

compute buscLength = function stored-char-length(buscar)

move 1 to idx-1
move "ListCount" OF CmCombo1 to max

set sw-enontr-no to true

perform until idx-1 > max or sw-enontr-si
move "ListString"(idx-1) OF CmCombo1 to lineaCombo

move 1 to idx-2

perform until idx-2 + buscLength > length of buscar or sw-enontr-si
if lineaCombo(idx-2:buscLength) = buscar(1:buscLength)
set sw-enontr-si to true
end-if

add 1 to idx-2
end-perform

if sw-enontr-no
add 1 to idx-1
end-if
end-perform

if sw-enontr-si
move idx-1 to "ListIndex" OF CmCombo1

string "Encontrado en la línea " idx-1 " del combo."
delimited by size into msg

INVOKE pow-self "DisplayMessage" USING msg 64

else
INVOKE pow-self "DisplayMessage" USING "No encontrado." 64
end-if

[Fito]

Hola.

Acá te paso un ejemplo simple para buscar un string dentro de otro. Podés correrlo, está funcional...

Saludos

Fito...

[jmeza]

Hola.

Acá te paso un ejemplo simple para buscar un string dentro de otro. Podés correrlo, está funcional...

Saludos

Fito...

Hola Fito
El ejemplo enviado falta un archivo que esta en el call,
da error

comienzo.
call "prgbuscar" cancel "prgBuscar".

[fastpho]

@jmeza , en el ejemplo que subio @Fito , esta el prgbuscar como un script

ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.

01 palabra pic x(20).
01 linea pic x(100).

01 wlen pic s9(5) comp-5.

01 i pic 9(8).
01 h pic 9(8).
01 si pic 9(8).

PROCEDURE DIVISION.

comienzo.
move "Text" of txtPalabra to palabra.

compute wlen = function stored-char-length(palabra).

move "ListCount" of cmbDatos to h.

move zeros to "ListIndex" of cmbDatos.

move zeros to si.
perform varying i from 1 by 1 until i > h
move "ListString"(i) of cmbDatos to linea

move function upper-case(linea) to linea
inspect linea tallying si for all palabra(1:wlen)

if si not = zeros
move i to "ListIndex" of cmbDatos
exit perform
end-if
end-perform.

exit program.


Saludos...