End With
     
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
Kill "C:\HCP\TO_FP\Footer.xml"
Kill "C:\HCP\TO_FP\RCP_" & Me.BROIZD & ".XML"
Kill "C:\HCP\TO_FP\CMD.OK"
    GoTo Kraj
    End Function