Function CRITCreateCriteres (sBase As String, sFileSrc As String) As Integer
Dim Ret%
Dim sDataOnFile$
Dim iSize%
Dim OnBoucle%
Dim Fnum%
Dim s$
Dim sCrit$
Dim sRef$
Dim sRet$
Dim sA$
 
Ret = pExecute("CHANGEDATABASE('" + sBase + "')")
Ret = pTmpExecute("CHANGEDATABASE('" + sBase + "')")

s = sFileSrc
Open s For Input As Fnum
OnBoucle = True
While (OnBoucle = True)
    sDataOnFile = String$(1000, 0)
    Get #Fnum, -1, sDataOnFile
    If Mid$(sDataOnFile, 3, 1) = Chr$(0) Then
	OnBoucle = False
    Else
	s = XasCStrToStr(sDataOnFile)
	If s <> "" Then
	    s = s + ";"
	    sCrit = "'" + CRITCreateType(s, 1, "Typec13") + "','"
	    sCrit = sCrit + CRITCreateType(s, 5, "Typec14") + "','"
	    sCrit = sCrit + CRITCreateType(s, 9, "Typec15") + "','"
	    sCrit = sCrit + CRITCreateType(s, 13, "Typec16") + "'"
	    sRef = GetCharByIndice(s, ";", 1)
	    sRef = sRef + GetCharByIndice(s, ";", 5)
	    sRef = sRef + GetCharByIndice(s, ";", 9)
	    sRef = sRef + GetCharByIndice(s, ";", 13)
	    sRet = CRITCreateProduit(sRef, sCrit, GetCharByIndice(s, ";", 16))
	    XasSleep 1
	    If sRet <> "" Then
		sA = CRITCreateAPI(sRet, "001", sRef, sCrit, "SetAttribut")
		sA = CRITCreateAPI(sRet, "002", sRef, sCrit, "GetAttribut")
		sA = CRITCreateAPI(sRet, "003", sRef, sCrit, "Open")
		sA = CRITCreateAPI(sRet, "004", sRef, sCrit, "Read")
		sA = CRITCreateAPI(sRet, "005", sRef, sCrit, "Write")
		sA = CRITCreateAPI(sRet, "006", sRef, sCrit, "Close")
	    End If
	End If
    End If
Wend
Close Fnum
Ret = pExecute("FLUSHDATABASE('" + sBase + "')")
End Function