duvida simples com foco?

[pena]

Boa tarde, seguinte, quando o usuario por ventura zerar o key de um registro, na validação eu testo ele
e gostaria de buscar o ultimo codigo + 1, que a rotina oRotas>ProximoCodigo() ja faz

Código: Selecionar todos

   If Frm_Rotas.T_Codigo.Value = 0
      MsgSTOP("Informe o código da Rotas","Rotas")
      Frm_Rotas.T_Codigo.Value = str(oRotas:ProximoCodigo(),6)     --> aqui da o erro de compilação
      Frm_Rotas.T_Codigo.SetFocus
      Return .f.
   Endif

ERRO = Invalid lvalue ()

ja tentei substituir a linha por

Código: Selecionar todos

cCodigo:= str(oRotas:ProximoCodigo(),6) 

na tela fica assim

Código: Selecionar todos

   @ Lpg+010,080 TEXTBOX T_Codigo               ;
                 WIDTH 60                       ;
                 VALUE cCodigo                  ;
                 FONT 'Arial' SIZE 09           ;
                 FONTCOLOR BLACK BOLD           ;
                 TOOLTIP 'Código da Rota'       ;
                 NUMERIC INPUTMASK "999999"     ;
                 ON LOSTFOCUS Carrega_Rotas(0)