Gracias Jose Luis, colegas que le dieron un vistazo a mi problema Adapte el ejemplo de Jose Luis a mi function y quedo asi: FUNCTION EDITAFILE(oWnd) LOCAL oBrow,oFntArial,oFntArial2,oCol LOCAL AliasCmp LOCAL cFilCompra:=cImpLoc+"WI"+SUBSTR(TIME(),1,2)+SUBSTR(TIME(),4,2)+SUBSTR(TIME(),7,2)+".DBF" ...