dbedit com xharbour

[filizola]

pesquisei no forum, e nao achei, porque o dbedit nao funciona com xharbour.

[Antonio]

Ola filizola,

O que exatamente não funciona na dbedit()?

[filizola]

Subsystem Call ..: BASE
System Code .....: 1602
Default Status ..: False
Description .....: Argument error
Operation .......: array access
Arguments .......: [ 1] = Type: L Val: .T. [ 2] = Type: N Val: 1
Involved File ...:
Dos Error Code ..: 0

[Antonio]

Compila o trecho a seguir:

Código: Selecionar todos

/*
 *$Id
 *
 * Adaptado por Antonio Carlos <tonyenoe@terra.com.br>
 *
 * Modulo de teste da DBEDIT()
 * Data de inicio:  21/03/2006
 * Data de termino: 21/03/2006
 * Hora de inicio:  12:00:00
 * Hora de termino: 12:15:00
 *
 *$Id
 *
*/


#include <inkey.ch>

Func Main()
     Cls
     Set Date Brit
     Set Wrap On
     Set Scor Off

     private arq:={}
     if !file    ( 'teste.dbf')
             aadd  ( arq   ,{ 'nume' , 'c' ,  6 , 0})
             aadd  ( arq   ,{ 'desc' , 'c' , 10 , 0})
             aadd  ( arq   ,{ 'valo' , 'n' ,  6 , 2})
             aadd  ( arq   ,{ 'venc' , 'd' ,  8 , 0})
             dbcreate( 'teste' ,        arq  )
     endif

     @ 0,0 Clear to 24,78


     If select("te") == 0
        Use "teste.dbf" Alias te shared
        select('te')
     Endif

     nVal = fcount()
     Private Vetor1[nVal],Vetor2[nVal],Vetor3[nVal]

     Vetor1[1]='nume'
     Vetor1[2]='desc'
     Vetor1[3]='valo'
     Vetor1[4]='venc'


     Vetor2[1]=[@!]
     Vetor2[2]=[@!]
     Vetor2[3]=[@RE 99,999.99]
     Vetor2[4]=[99/99/9999]

     Vetor3[1]='Numero     '
     Vetor3[2]='Descricao  '
     Vetor3[3]='  Valor      '
     Vetor3[4]='Vencimento '


     @ 6,0 to 20,79 double color "r/n"
     Dbedit(7,1,19,78,Vetor1,"mFun",Vetor2,Vetor3,.t.,.t.)

     Function mFun()
         Para Modo
         nKey := K_ESC
         if LastKey() == nKey
                      Alert('Vou terminar')
                 Cls
             Quit
         Endif

         Set Cursor Off

         If Modo < 5
             Alert(str(modo))
         Endif

     Return (nil)

[filizola]

obrigado amigo, agora ví que o xharbour obriga a preencher o vetor com os campos a serem editados. agora o engraçado é que ele nao cria a barra divisoria do cabeçalho para os campo do arquivo ??!!!