A mi me funciona asi (30-01-2008)
@ 1,06 GET oGet Var xCod_pais OF oDlg Pict "@!@K 999" ;
Valid(IF(s004->(DBSeek(PadL(AllTrim(xCod_pais),3,"0"))),;
(Alert("C¢digo ya existe") ,.F. ),;
(oGet:cText(PadL(AllTrim(xCod_pais),3,"0")) ,.T. ) ) ) ;
When Tipo = "N"
dherly@hotmail.com
dherly@hotmail.com