Function ProvjeraP(BrojRac As String) As String
Dim temp As String
Dim ImeF(1 To 2) As String
Dim ImeR(1 To 2) As String
Dim Brojac As Integer
Dim Putanja_Filea As String

Const PutTO = "C:\HCP\TO_FP"
Const PutFrom = "C:\HCP\FROM_FP"
ImeR(1) = "RCP_" & BrojRac & ".XML"  ' Broj rac iz polja me.Me.BROIZD + RCP_ tekst
ImeR(2) = "RCP_" & BrojRac & ".ERR"


Provjera1:
ImeF(1) = Dir(PutTO & "\" & ImeR(1))
If ImeF(1) = ImeR(1) Then
DoEvents
Brojac = Brojac + 1
If Brojac > 3 Then GoTo IZLAZ
   Zaustavi (Brojac)
   GoTo Provjera1
End If

Provjera2:
ImeF(2) = Dir(PutFrom & "\" & ImeR(2))
If ImeF(2) = ImeR(2) Then
Putanja_Filea = PutFrom & "\" & ImeF(2)
Close #1
Open Putanja_Filea For Input As 1
Input #1, temp
Close #1
MsgBox "Greška:" & temp & "!", vbExclamation, "Raun nije fiskaliziran"
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE GLSTAVKEMP1 SET Nefiskaliziran='" & "-1" & "' WHERE BROULIZ='" & Forms.frmIZLAZMP.BROIZD & "'"
DoCmd.SetWarnings True
GoTo Kraj
End If
    
Kraj:
    Exit Function
IZLAZ:
    MsgBox "Ra
un nije ispisan,greška u komunikaciji sa ureajem!", vbExclamation, "Obavijest"
    DoCmd.SetWarnings False
            DoCmd.RunSQL "UPDATE GLSTAVKEMP1 SET Nefiskaliziran='" & "-1" & "' WHERE BROULIZ='" & Forms.frmIZLAZMP.BROIZD & "'"
DoCmd.SetWarnings True
BrisiFile (PutTO)
GoTo Provjera2
    GoTo Kraj
    End Function
Function BrisiFile(Putanja As String)
Dim ImeF As String
   
       
 Putanja = Putanja & "\"
 ImeF = Dir(Putanja, vbDirectory)
 Do While ImeF <> ""
 
 ImeF = Dir
 If ImeF <> "." And ImeF <> ".." And ImeF <> "" Then
 Kill Putanja & "\" & ImeF
 End If
 Loop
       
End Function