Function IMPInsertCMD (IdXml As Integer, iIndice As Integer, sCreation As String) As Integer
Dim Ret%
Dim sData$
Dim j%
Dim s$
 

IMPInsertCMD = False
sData = "select tranid "
sData = sData + " FROM PiedCmd  "
sData = sData + " WHERE PiedCmd.tranid.xxKey=" + CStr(CurNumPiece)
Ret = pExecute(sData)
If Ret = False Then
    Ret = pExecute("CLEAR")
    Ret = pExecute("Select Id From Transaction WHERE id.xxKey=" + CurNumPiece)
    If Ret = True Then
	sData = " INSERT INTO Transaction.PiedCmd (type,Creation,Maj,tranid,NumPiece,"
	sData = sData + "add1liv,add2liv,cpliv,villeliv,telliv,faxliv,"
	sData = sData + "add1fac,add2fac,cpfac,villefac,telfac,faxfac,"
	For j = 1 To CurMaxChamp(iIndice)
	    If CurNomChamp(iIndice, j) <> "" Then
		sData = sData + CurNomChamp(iIndice, j) + ","
	    End If
	Next j
	sData = sData + "statut  ) VALUES ("
	sData = sData + "'" + CStr(CurXmlType(iIndice)) + "',"
	sData = sData + "'" + sCreation + "',"
	sData = sData + "'" + sCreation + "',"
	sData = sData + "'" + CurNumPiece + "',"
	Ret = XasXMLGetAttributbyName(IdXml, CurXmlChamp(iIndice), s)
	sData = sData + "'" + s + "',"
	For j = 2 To 7
	    sData = sData + "'" + XasSetChar(CurDataClient(j), "'", "''", 0, 0) + "',"
	Next j
	For j = 2 To 7
	    sData = sData + "'" + XasSetChar(CurDataClient(j), "'", "''", 0, 0) + "',"
	Next j
	For j = 1 To CurMaxChamp(iIndice)
	    Ret = XasXMLGetAttributbyName(IdXml, CurNomChamp(iIndice, j), s)
	    If CurNomChamp(iIndice, j) <> "" Then
		sData = sData + "'" + XasSetChar(s, "'", "''", 0, 0) + "',"
	    End If
	Next j
	sData = sData + "'1' )"
	Ret = pExecute(sData)
	If Ret <> False Then
	    CurNbMission = CurNbMission + 1
	    IMPInsertCMD = Ret
	End If
    End If
Else
'    While (Ret = True)
'
'        Ret = pMoveNext(0)
'    Wend
    'qte="1000" pU="0000000"  montant=""
End If
End Function