XAS, Xml Server, Xml Services, XML Kiosk, Administration des Import/Export, (Web, Web Services, PDA, WidGet, Fat Client)

Administration des Import/Export, (Web, Web Services, PDA, WidGet, Fat Client)

Technologie	XAS.Technology	Version	V 6.0.1
Dernière modification	Lundi 16 Août 2010	Par	Zaïr BEZGHICHE
Dernière vérification	Mardi 17 Août 2010	Par	Support France
Thème	Administration des Import/Export, (Web, Web Services, PDA, WidGet, Fat Client)	Fonction	FrmImport.PicValid_Click

Prototype

Sub PicValid_Click ()

Usage
Administration-des-Import-Export.PicValid_Click(...)
HTTP (GET,POST)	SOAP WSDL	SOAP REST	XML-RPC

Format de sortie
XML	HTML	TEXT	EXCEL(CSV)

Code Source - développement open source

Sub PicValid_Click ()

Sub PicValid_Click ()
Dim Ret%
Dim s$
Dim sFile$
Ret = XasUserSetProperties(Cel(3), 1, "")
s = TxtUp.Text
If Trim$(s) <> "" Then
    sFile = UCase$(GlobPu.XasName) + "_JOB.TXT"
    Ret = XasUserCopyFile(0, s, sFile)
    Kill s
    Kill CStr(GlobPu.XasId) + "-TMPFILE.TXT"
    Kill UCase$(GlobPu.XasName) + "_JOBTMP.XML"
    CurCategorie = Trim$(Right$(cbo(25).Text, 10))
    Ret = XasUserSetProperties(Cel(3), 1, UCase$(GlobPu.XasName) + "_JOB.HTM")
    Ret = IMPDoJob(UCase$(GlobPu.XasName) + "_JOBTMP.XML", sFile, UCase$(GlobPu.XasName) + "_JOB.HTM")
    TimerJob.Enabled = True
End If

End Sub

Références Composants

Administration-des-Import-Export-MODIMP-IMPDoJob,

Références XAS.Technology

XasUserSetProperties , Trim , UCase , XasUserCopyFile , Kill , Cstr , Right ,

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.