PC Toledo

Pesquisei aqui tudo mas não consegui.....

vejamos...

v1 := {'Emissor','Banco','Agencia','Praca','ncc','docum','valor','VENCTO'}
v2 := {'@!','@!','@!','@!','@!','@X','99999.99','@D'}
v3 := {'Emissor','Banco','Agˆncia','Pra‡a','C/C','N§ cheq', 'Valor','Venct§'}
dbedit (5, 1, 20, 78 , v1, 'FUNC_DB', v2, v3 , 'ÄÂÄ', .t.)

Mas quando tenta rodar no xharbour dá um erro dizendo Type Mismatch.

Se faço só
dbedit() // sem nenhum parametros até que vai.

Tem alguma coisa errada com a função ?

Mário

Olá Mario,
De uma procurada aqui no forum, que já foi postado um DBEDIT , que funciona melhor que o proprio DBEDIT do xharbour, ele usa funções e comandos do tbrowse.

dbedit (5, 1, 20, 78 , v1, 'FUNC_DB', v2, v3 , 'ÄÂÄ', .t.)
TROQUE POR
dbedit (5, 1, 20, 78 , v1, 'FUNC_DB', v2, v3 , 'ÄÂÄ', "")

Fiz da forma como o colega esbasso falou mas surgiu este erro :
Error BASE/9999 Argument error: STRZERO Arguments: ( [
1] = Type: O Val: { TBROWSE Object } [ 2] = Type: N Val:
3 [ 3] = Type: U)

E fiz com o dbedit que o colega Sygecom falou.

Mário

Já descobri.
Ocorre que, na função do usuário, FUNC_DB, eu estava recebendo o 3º parametro como se fosse a ultima tecla pressionada.
Mas o terceiro vem como um objeto TBROWSE.
Obrigado a Todos
Mário

VEJA UM EXEMPLO NO LINK AKI DO FORUM:

viewtopic.php?t=7650

SAUDAÇÕES :xau