OK. Muchas gracias por tu ayuda me funcionó. Atentamente Julio Rodrigo Ponce HInestroza BUENO, PUEDES HACERLO MAS O MENOS ASÍ bDCIUTER := {|| cGetSel:=CONSULTA(oDCIUTER,"MCIUDAD",oDlg,mDCIUTER) ,; IIF(len(ALLTRIM(cGetSel))<>0,(mCEDOTER:=SUBSTR(cGetSel,1,3),; ...