Function ProvjeraP(BrojRac As String) As String
    Const PutTO = "C:\HCP\TO_FP"
    Const PutFrom = "C:\HCP\FROM_FP"
     
    
    Dim temp As String
    Dim ImeF(1 To 2) As String
    Dim ImeR(1 To 2) As String
    Dim fs, R, F
    Dim Brojac As Integer
    Dim I As Integer
    Dim Putanja_Filea As String
       'BrojRac = "Footer.xml"
    'BrojRac = " & Me.BROIZD & " ' Broj rac iz polja me.Me.BROIZD + RCP_ tekst
    ImeR(1) = "\RCP_" & BrojRac & ".XML"  ' Broj rac iz polja me.Me.BROIZD + RCP_ tekst
     ImeR(2) = "\RCP_" & BrojRac & ".ERR"
ImeF(1) = Dir(ImeR(1))
ImeF(2) = Dir(ImeR(2))
Provjera1:
If ImeF(1) = ImeR(1) Then
DoEvents
Brojac = Brojac + 1
   If Brojac > 3 Then GoTo IZLAZ
   Zaustavi (Brojac)
   GoTo Provjera1
End If

Provjera2:
    If ImeF(2) = ImeR(2) Then
    Putanja_Filea = .foundfiles(I)
    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)
'Kill "C:\HCP\TO_FP\Footer.xml"
'Kill "C:\HCP\TO_FP\RCP_" & Me.BROIZD & ".XML"
'Kill "C:\HCP\TO_FP\CMD.OK"
GoTo Provjera2
    GoTo Kraj
    End Function