Amigos, com o fragmento de codigo abaixo, qual a melhor maneira e como devo fazer para quando substituir o nome do KIT, ele varra o arquivo e troque os outros nomes.
Por exemplo:
Kit1 - teste - item 1 ** quando altero o teste ele altere os outros
Kit1 - teste - item 2 (sem o locate, pode ser com o locate mesmo)
Kit1 - teste - item 3
Use kit
Index on codigo to teste for codigo=vrec1
keyb chr(5)
Declare m1m[fcount()]
for i=1 to 5
m1m=fieldname(i)
next
:
:
DBEDIT(l1,c1,l2,c2,m1m,"ttc",,,"*")
*___________________________________*
FUNCTION ttc
parameters mode, counter
do case
case lastkey()=13
campo=fieldname(counter)
coled=col()
lined=row()
bcod=codigo
set cursor on
@ lined,coled get &campo //valid &campo <> codigo .and. &campo <> codestoque este valid tava dando certo, mas dava pau
read com campo numerico >>Outra duvida
set cursor off Substitiu pelo o if abaixo
if campo=fieldname(1)
replace codigo with upper(bcod)
endif
if campo=fieldname(2)
bnome=nomedokit
replace nomedokit with upper(bnome)
endif
keyb chr(4)
case lastkey()=27
restscreen(06,00,17,80,tel77)
do menuesto
otherwise
endcase
_________
Obrigado
Alterando no Dbedit
Moderador: Moderadores