Dbedit ou Tbrowse

[mvbrandao]

Olá pessoal, será que alguem teria rotinas de como Incluir, alterar e excluir registros em forma de tabelas... estou aprendendo e estou fazendo um programinha para controlar nf de serviços aqui da empresa e nos itens da nf gostaria de colocar um dbedit ou tbrowse, já dei uma olhada nos prg's que vem com o clipper mas não tive sucesso. se de fico grato....


Valeu.. so uma

Mvbrandão

[rochinha]

Amiguinho

Veja:

FUNCTION MeuCadastro
USE arquivo INDEX indice1, indice2, indiceX
DBEDIT(0, 0, 24, 79,,'funcao','','','')
RETURN

FUNCTION funcao
parameters modo,ponteiro
private pos_cursor,registro,salva_tela
KeyAction = LASTKEY()
do case
case modo < 4
retorno = 1
case KeyAction = 27 // ESC sai fora do DBEDIT e da rotina
retorno = 0
case KeyAction = 13
// tecla ENTER para alterar
SELE arquivo
SAVE SCREEN TO E_DICAO
CARREGA( "MOSTRA" ) // Carrega dados do DBF
CARGETA( "NOVO" ) // Apresenta os mesmos
REST SCREEN FROM E_DICAO
IF LASTKEY() <> 27
REGLOCK
SALVAR()
COMMIT
ENDIF
retorno = 2
case KeyAction = 21 .or. KeyAction = 7
// tecla DELETE
SELE arquivo
RLOCK()
dbDELETE()
COMMIT
retorno = 2
case KeyAction = 22 .or. KeyAction = 14
// tecla INSERT
SELE arquivo
SAVE SCREEN TO E_DICAO
CARREGA( "NOVO" ) // Carrega dados do DBF
CARGETA( "NOVO" ) // Apresenta os mesmos
REST SCREEN FROM E_DICAO
IF LASTKEY() <> 27
RLOCK()
SALVAR()
COMMIT
ENDIF
retorno = 2
otherwise
retorno = 1
endcase
return(retorno)

FUNCTION carrega( modo )
IF modo = "NOVO"
GO BOTTOM
SKIP
ENDIF
M->CAMPO1 := arquivo->CAMPO1
M->CAMPO1 := arquivo->CAMPO2
M->CAMPO3 := arquivo->CAMPO3
RETURN .T.

FUNCTION salvar()
arquivo->CAMPO1 := M->CAMPO1
arquivo->CAMPO1 := M->CAMPO2
arquivo->CAMPO3 := M->CAMPO3
RETURN .T.

FUNCTION carrega( modo )
// MONTE SUA TELA DE gets
READ
RETURN .T.

Não foi dificil, né?

@braços :?)

[mvbrandao]

Vale Rochinha....

Mvbrandão