"исходный код"
put_tek_iin=allt(pat1)+allt(str(iyear))+'\DBF\IIN\'
set defa to &put_tek_iin
sele 0
use UDIL
sele UDIL
set filter to MONTH(UDIL.dmg)=imonth and YEAR(UDIL.dmg)=iYear
set order to tag TABN
SET RELATION TO UDIL.tabn INTO SPLP ADDI
SET RELATION TO UDIL.tabn INTO SR, UDIL.kzatr INTO ZATR ADDI
SELECT UDIL
GO TOP
*
oForm=CreateObject("iin_26")
oForm.Show(1)

"добавил не месте *"
sele udil
go top
if eof()
append blank
repl udil.dmg with ctod('01.'+ltrim(str(imonth))+'.'+ltrim(str(iyear)))
endif