Dim tmp() As Byte
Main.sd.OpenReadWrite(nome)
Main.Sd.Position = Main.Sd.CurrentFile.Size
If inreportr=False Then 'Scrive intestazione
inreportr = True
print ( "COEL METALREMOTE")
Dim tmp2() As Byte=leggilabel("report", "DR4")
Log("tmp2:",tmp2," ",Main.d," ",Main.m," ",Main.y)
tmp=JoinBytes(Array(tmp2 , " ",Main.d,"-",Main.m,"-",Main.y))
Log(tmp)
print (tmp ) ' Report degli errori
tmp=JoinBytes( Array("METAL DETECTOR : " , Nomemet))
print (tmp)
print ( "--------------------------------------------")
End If