PC Toledo

Oi genta ja vi isso, ja fiz isso, ja procurei mas não lembro de não acho, hehehe, alguem por favor me da um help ai preciso colocar dentro do dbedit uma função que quando apertar a tecla delete ele apaga o registro.

Valeu ai gente.

Veja se é isso !!!

Código: Selecionar todos

dbedit(01,01,15,64,FIELDS,"AUX_",pics,heads,chr(194)+chr(196),chr(179),chr(193)+CHR(196))

********************
FUNC AUX_(modo,pos)
********************
LOCAL aQUADRO:= savenv( 01, 00, 23, 79 )  //uso na VL
local valret:=1
setcursor(0)
restscreen(row(),n2,row(),n4,transf(savescreen(row(),n2,row(),n4),repli('X'+chr(63),2*n4)))
Inkey(0)

SETCURSOR( 1 )

keyboard chr(lastkey())
if lastkey()==27 .OR. lastkey()==70 .OR. lastkey()==102
    valret := 0
ELSEIF lastkey()==13  //TECLA ENTER
   IF vTIPOPESQ="S"
       valret := 0
   ENDIF
ELSEif LASTKEY()=67 .OR. LASTKEY()=99     // letra c/C
   CLEAR TYPEAHEAD

   SELE TIPSERV
   SET ORDER TO 1
   GOTO BOTT
   vCOD=CODSERV+1

   APPE BLAN
   REPL CODSERV WITH vCOD

   SET ORDER TO 1
   GOTO TOP
ELSEif LASTKEY()=65 .OR. LASTKEY()=97     // letra a/A
   CLEAR TYPEAHEAD
   IF vTIPOPESQ="S"
      valret := 0
      return(valret)
   ENDIF
   ALTERAREG()  // CHAMA OUTRA FUNÇÃO

   GOTO TOP
ELSEif LASTKEY()=7                         // TECLA DEL / DELETAR
   NOPC:= MsgBox2({"Deseja Realmente Escluir ?"},;
          "Aviso do Programa")
   IF nOPC == 1
      TRAVAREG()
      DELE
      LIBERAREG()
      GOTO TOP
   ENDIF
Elseif lastkey()==19
   keyboard chr(26)
elseif lastkey()==4
   keyboard chr(2)
elseif lastkey()==-1
ENDIF
return(valret)

Abraços

Cara valeu fiz umas modificações só pra deletar mesmo, mas ajudou um montão,
Obrigado...

Apenas, para completar...não deixe de dar uma olhada no TBROWSE() na minha opnião e de varios outros...tem muito mas poder de fogo que no DBEDIT()

Abraços
Leonardo Machado

PC Toledo

Deletar registro dentro do dbedit

Deletar registro dentro do dbedit