No it only write to a text file with fPuts instruction.

>And the code for scriviLog? Did you have some opened transactions?
>
>
>>>How you open this file? For EXCLUSIVE or SHARED use? Can you post the code
>>where it happens?
>>

>>
>>Parameters xEvent
>>llok = .f.
>>Do case
>>	case xevent = 1
>>		If !Empty(thisform.grd1.RecordSource) and Used(thisform.grd1.RecordSource)
>>			thisFORM.grd1.ActivateCell(1,1)
>>			Select (thisform.grd1.RecordSource)
>>			Scatter MEMVAR fields codcdc,tipcod,codart
>>			lLOk = .t.
>>		EndIf 	
>>
>>		With thisform.shape1
>>			Try
>>				If !Used('log')
>>					Use 'log' Again In 0 Order 'sessione'
>>				EndIf
>>				.Tag = ''
>>			Catch to oErr
>>				If oErr.errorno = 1705
>>					.Tag = Alltrim(Str(Val(.Tag) + 1))
>>					.backColor = Rgb(255,0,0)
>>				EndIf
>>			EndTry
>>			Do case
>>				Case Val(.Tag) > 2
>>					=scriviLog("last chance to access to File log ")
>>
>>					If !Used('log')
>>						Use 'log' Again In 0 Order 'sessione'
>>					EndIf
>>					=scriviLog("File log now accessible ")
>>					.Tag = ''
>>				Case Val(.Tag) > 0
>>					=scriviLog("File log non accessible, try " + .tag)
>>					Return 	
>>			EndCase
>>			If Empty(.tag)
>>				.backcolor = Rgb(207,224,220)
>>			EndIf 	
>>		EndWith
>>		If Seek(zSessione,'log','sessione')	
>>&& that's the line which causes the error
>>			Replace oralast with Datetime() in 'log'
>>&&------------------------------------------------
>>		EndIf 	
>>
>>		thisform.LockScreen = .t.
>>		If zTipoPc = '1'
>>			llenable=TmMain()
>>		else
>>			llEnable = 1
>>			If !thisform.godateprod(Date()) or ;
>>				Datetime() - dateprod.lastagg  > 20*(zIntervallo/1000)
>>				thisform.BackColor = Rgb(255,128,128)
>>				llenable = -1
>>			Else
>>				thisform.ResetToDefault('BackColor')
>>			EndIf 		
>>		EndIf
>>
>>		If Used('log')
>>			Use in 'log'
>>		EndIf 	
>>
>>		thisform.plsSTP.Enabled = llenable > 0
>>		thisform.container1.Visible = llenable = 0
>>
>>		If llEnable >= 0
>>			thisform.loadcursor()
>>			If llOk
>>				If !Empty(thisform.grd1.RecordSource)
>>					Select (thisform.grd1.RecordSource)
>>					Locate for codcdc+tipcod+codart == m.codcdc+m.tipcod + m.codart
>>					If !Found()
>>						Locate
>>					EndIf 	
>>					With thisform.grd1
>>						llrowheight = .rowHeight
>>						.rowheight = .height
>>						.refresh()
>>						.rowheight = llrowheight
>>					EndWith
>>				EndIf
>>			EndIf
>>		EndIf
>>		If llEnable = -1	
>>			thisform.LockScreen = .f.
>>			Release thisform
>>			Return .f.
>>		EndIf 	
>>
>>		thisform.container1.txtgen1.value = ;
>>				Iif(thisform.GoDateProd(Date()),Str(dateprod.numbol,2) + ' - ' + Str(dateprod.numord,7),'')
>>		thisform.LockScreen = .f.
>>		*------------------------------------------------------------------------		
>>	case xevent = 2
>>		=TmConsuntivo()
>>EndCase 		
>>
>>

>>
>>this procedure occurs every 30 seconds