Wykrywanie podwójnych kodów kreskowych w symfoni handel

int sub OnTimer()

   string KomputerFiskalizujacy = "ASUS-PC" // nazwa komputera do, którego podłączona jest drukarka fiskalna
   dispatch nt = "WScript.Network"
   string sPlik, sMaska = KatalogFirmy() + "*.fsk"
   dispatch fso = "Scripting.FileSystemObject"

   if  nt.ComputerName == KomputerFiskalizujacy then
             sPlik = find file ( sMaska )
               while sPlik
                FiskalizujDokument( Val ( fso.GetBaseName(sPlik) )) 
                fso.DeleteFile( sPlik )
               sPlik = find next file
               wend
   endif

   OnTimer = 0
endsub