Como ficaria esse cadastro no five, levando em conta a sintaxe @ say @ get
cls
do while .t.
select 1
use fabrica
set index to fabrica
go bottom
mCodigo = strzero(val(codigo), 4, 0)
@ 02, 00 to 22, 79
@ 02, 02 say "Cadastro de Fornecedores"
@ 05, 04 say "C¢digo ===========> "
@ 07, 04 say "Nome Fabricante ==> "
@ 05, 24 get mCodigo pict "@k ####" valid !empty(mCodigo)
read
if lastkey() = 27
close all
return 0
endif
mCodigo = strzero(val(mCodigo), 4, 0)
@ 05, 24 say mCodigo
seek (mCodigo)
if found()
MTEC = 4 // OPCAO DEFAULT (PROXIMO)
DO while MTEC = 4 .OR. MTEC = 5
select FABRICA
mCodigo = CODIGO
@ 05, 24 say mCodigo
@ 07, 24 SAY RAZAOSOC
@ 09, 02 prompt "ALTERAR"
@ 09, col()+2 prompt "EXCLUIR"
@ 09, col()+2 prompt "RETORNAR"
@ 09, col()+2 prompt "PROXIMO"
@ 09, col()+2 prompt "ANTERIOR"
menu to MTEC
if MTEC = 2
delete
skip
if eof()
go bottom
endif
elseif MTEC = 3
exit
elseif MTEC = 4
skip
if eof()
go bott
endif
elseif MTEC = 5
skip -1
if bof()
go top
endif
endif
ENDDO
ELSE
MTEC = 0
endif
IF !(MTEC=2 .OR. MTEC=3)
MDESC = RAZAOSOC
@ 07, 24 get MDESC
read
select FABRICA
seek mcodigo
if !found()
append blank
endif
rlock()
mgrava=.t.
replace CODIGO WITH MCODIGO
replace RAZAOSOC WITH MDESC
commit
unlock
endif
enddo
close all
return .t.
grato
Farley