MsNewGetDados inicializar com Nat 0

Olá pessoal. Tudo certo?

Então estou com uma duvida, estou fazendo uma tela aonde tem uma MsNewGetDados, aonde nela tem um SQL que puxa dados de alguma tabela, e nessa tela tem opções como cadastro, alterar e excluir, só que para alterar e excluir ele pega as informações dependendo do Nat. Só que tem um problema se a pessoa não clicar em alguma linha da grid e clicar direto em alterar ou excluir ele pega o nat 1 da msnewgetdados, assim pegando as informações da primeira linha da MsNewGetDados, tem como setar para quando ativar o dialog ele iniciar com 0 ou algo assim? Para não puxar nada e assim não fazer nada, só podendo, se selecionar alguma linha da grid. Pois tentei iniciar com nat := 0, só que quando ativa o dialog ele volta a 1.

Se alguém souber agradeço.

1 curtida

Local cDelOk := “U_GENA012()”

User Function GENA012()
alaert:=‘’
IF !NwDeleted(oGetDados1)
TCSQLEXEC(“UPDATE “+RETSQLNAME(“ZZ0”)+” SET ZZ0_STATUS =‘C’ WHERE NOT D_E_L_E_T_ = ‘’ AND ZZ0_ID = ‘“+acols[oGetDados1:nAt,1]+”’" )
ELSE
TCSQLEXEC("UPDATE “+RETSQLNAME(“ZZ0”)+” SET ZZ0_STATUS =’ ’ WHERE NOT D_E_L_E_T_ = '
’ AND ZZ0_ID = '”+acols[oGetDados1:nAt,1]+“'” )
ENDIF
Return .T.