Gostaria de saber como fazer para evitar que itens sejam duplicados no Browse. Quando vc digita um código em uma linha e na linha de baixa digita o mesmo código. Preciso evitar que o usuário possa digitar dois códigos repetidos.
Segue o programa.
@ 250,30 BROWSE BROWSE_1 ;
width 800 ;
height 170 ;
HEADERS { ' S ','Item' , 'Exame', 'Descricao do Exame', 'Codigo AMB' , 'Data Coleta' , 'Preco em R$','Prazo','Medicam.'} ;
widthS { 25 , 40 , 60 , 250, 110 , 90 , 90, 50, 70 } ;
WORKAREA CAD ;
fields { 'FLG' , 'item' , 'Codex' , 'Nomex' , 'Codamb' , 'Datcol' ,'Preco','Prazo','Remedio' } ;
READONLY {.T. , .T. , .F. , .T. , .T. , .T. , .T., .T., .T. } ;
VALID { , , { || busc_exa() } , , , , , , } ;
VALIDMESSAGES { ,,' EXAME NAO CADASTRADO ',,,,,,} ;
FONT "MS Sans Serif" SIZE 8 ;
EDIT INPLACE ;
IMAGE {"br0.BMP","br1.BMP","br2.bmp","br3.bmp","br4.bmp","br5.bmp"} ;
LOCK ;
ON GOTFOCUS {|| Pesqexa() } ;
ON HEADCLICK { ,,{ || Premedio()}, { || Pesq_descr()} , { || Pesq_AMB()} ,,}
E a função de pesquisa.
function busc_exa
if EXAM->(DBseek(MemVar.Cad.Codex))
Return .t.
else
Return .f.
endif
return
Obrigado.