| XML Kiosk |
| Technologie | XAS.Technology | Version | V 6.0.1 |
| Dernière modification | Jeudi 26 Août 2010 | Par | Zaïr BEZGHICHE |
| Dernière vérification | Jeudi 2 Septembre 2010 | Par | Support France |
| Thème | Administration des Import/Export, (Web, Web Services, PDA, WidGet, Fat Client) | Fonction | MODIMP.IMPEntityCreate |
| Prototype |
| Function IMPEntityCreate (IdXml As Integer, iIndice As Integer) As Integer |
| Usage | |||
| Administration-des-Import-Export.IMPEntityCreate(...) | |||
| HTTP (GET,POST) | SOAP WSDL | SOAP REST | XML-RPC |
| Format de sortie | |||
| XML | HTML | TEXT | EXCEL(CSV) |
| Code Source - développement open source |
| Function IMPEntityCreate (IdXml As Integer, iIndice As Integer) As Integer |
Function IMPEntityCreate (IdXml As Integer, iIndice As Integer) As Integer
Dim Ret%
Dim sCrea$
sCrea = Date$
IMPEntityCreate = False
If CurXmlData(iIndice) <> "" Then
Select Case CurXmlTable(iIndice)
Case "CLIENT"
Ret = IMPInsertCLIENT(IdXml, iIndice, sCrea)
Case "PRODUIT"
Ret = IMPInsertPRODUIT(IdXml, iIndice, sCrea)
Case "SITE"
Ret = IMPInsertSITE(IdXml, iIndice, sCrea)
Case "TRANSACTION"
Ret = IMPGetSQLDataClient(0)
Ret = IMPInsertTRAN(IdXml, iIndice, sCrea)
Case "TRANSACARTICLE"
Ret = IMPInsertLICMD(IdXml, iIndice, sCrea)
Case "PIEDCMD"
Ret = IMPInsertCMD(IdXml, iIndice, sCrea)
If Ret = True Then
Ret = IMPUpdateCMD(IdXml, iIndice, sCrea)
End If
Case Else
Exit Function
End Select
If Ret = True Then
CurNbEntity = CurNbEntity + 1
IMPEntityCreate = True
End If
End If
End Function
|
| Références XAS.Technology |
| Date , |
| Audience |
| Cette documentation est destinée aux personnes s'intéressant aux systèmes d'information collaboratifs. Les Webservices, les architectures collabortives et distribuées, les moteurs transactionnelles et les concepts de programmation orientés objet. |
| XAS Services - Zaïr BEZGHICHE - Copyright 1991-2011 tous droits réservés- Powered by XAS.Technology |