Colegas do grupo, estou criando uma função para deletar itens de uma grid, mas ela não esta funcionando dá o seguinte erro:
Date: 29/03/2013 Time: 15:33:23
Error BASE/1072 Erro nos parÆ’metros: <>
Called from DATACONVERT:APAGAR(2298)
Called from (b)TELA(2874)
Called from _DOCONTROLEVENTPROCEDURE(1582)
Called from EVENTS(507)
Called from _DOMESSAGELOOP(0)
Called from _ACTIVATEWINDOW(1307)
Called from DOMETHOD(4649)
Called from TELA(2999)
Called from (b)DATACONVERT(197)
Called from DATACONVERT:SOMAMULT(0)
Called from (b)TELA(71)
Called from _DOCONTROLEVENTPROCEDURE(1582)
Called from EVENTS(1383)
Called from _DOMESSAGELOOP(0)
Called from _ACTIVATEWINDOW(1307)
Called from DOMETHOD(4649)
Called from TELA(165)
Called from (b)INICIARAMBIENTE(221)
Called from INICIARAMBIENTE:INITTELA(0)
Called from MAIN(21)
A função é chamada pela tecla [DEL] e é a seguinte:
Function Apagar()
IF Form_1.grid_1.ItemCount = 0
MSGINFO('Não há iTens')
ENDIF
i := Form_1.grid_1.Value
IF MSGYESNO('Excluir ?','Excluir Item')
IF i <> 0 // -> Aqui que está dando o erro
Form_1.Grid_1.DeleteItem(i)
IF i > Form_1.grid_1.Itemcount
Form_1.grid_1.Value:= i-1
ELSE
Form_1.grid_1.Value:= i
ENDIF
Form_1.grid_1.Setfocus
Form_1.grid_1.Refresh
ENDIF
ENDIF
RETURN Nil
Espero que algum colega do grupo saiba o porque deste erro, que eu acho que está certo, mas posso estar errado.
[]'s
Paulo - JacareÃ/SP