Function CRITCreateAPI (sKey As String, sNum As String, sRef As String, sCrit As String, sName As String) As String
Dim Ret%
Dim sData$
Dim sNewKey$

sData = "Select cle From ArticleCompo WHERE cle.string IN ( "
sData = sData + "Select CodeProduit From Produit WHERE reference.string='" + sRef + sNum + "' )"
Ret = pExecute(sData)
If Ret = True And OnSqlGetItem(0) <> "" Then
    CRITCreateAPI = OnSqlGetItem(0)
    Exit Function
End If
GlobCpt = GlobCpt + 1
Ret = pExecute("CLEAR")
sData = "INSERT INTO Produit (Type, codeclient, Creation, maj, reference, name,"
sData = sData + "c13, c14, c15, c16, pointsdebit, pointscredit,action) "
sData = sData + " VALUES ('1','0.0','" + Date$ + "','" + Date$
sData = sData + "','" + sRef + sNum + "','" + sRef + "." + sName + "',"
sData = sData + sCrit + ",'1','1','FONCTION=EKIOSK;P1=" + sName + ";')"
Ret = pExecute(sData)
If Ret = True Then
    Ret = XasUserGetString(1, sNewKey)
    Ret = pExecute("CLEAR")
    sData = "Select CodeProduit From Produit WHERE CodeProduit.xxKey = " + sKey  
    Ret = pExecute(sData)
    If Ret = True Then
	sData = "INSERT INTO Produit.ArticleCompo (Id, cle) VALUES ('" + sKey + "','" + sNewKey + "')"
	Ret = pExecute(sData)
	If Ret = True Then
	    CRITCreateAPI = sNewKey
	End If
    End If
End If

End Function