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	Jeudi 14 Janvier 2010	Par	Zaïr BEZGHICHE
Dernière vérification	Lundi 25 Janvier 2010	Par	Support France
Thème	Administration des Import/Export, (Web, Web Services, PDA, WidGet, Fat Client)	Fonction	FrmImport.FaireFichier

Prototype

Function FaireFichier (Id As Integer) As Integer

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

Format de sortie
XML	HTML	TEXT	EXCEL(CSV)

Code Source - développement open source

Function FaireFichier (Id As Integer) As Integer

Function FaireFichier (Id As Integer) As Integer
Dim Ret%
Dim sData$
Dim i%
Dim FileTableHtml$


FileTableHtml = GlobPu.XasName + "_Table.XLS"
Kill FileTableHtml
Ret = XasUserSetProperties(PicPrint(1), 254, FileTableHtml)
Ret = XasUserSetProperties(PicPrint(1), 131, "resizable=yes,scrollbars=yes")
FileTableHtml = GlobPu.XasName + "_Table.HTM"
Kill FileTableHtml
Ret = XasUserSetProperties(PicPrint(0), 254, FileTableHtml)
Ret = XasUserSetProperties(PicPrint(0), 131, "resizable=yes,scrollbars=yes")

Ret = IMPTrace(FileTableHtml, "" + Chr$(13) + Chr$(10))
Ret = IMPTrace(FileTableHtml, "" + Chr$(13) + Chr$(10))
Ret = IMPTrace(FileTableHtml, "" + Chr$(13) + Chr$(10))
Ret = IMPTrace(FileTableHtml, " " + Chr$(13) + Chr$(10))

Ret = IMPTrace(FileTableHtml, "LISTING..." + Chr$(13) + Chr$(10))
Ret = IMPTrace(FileTableHtml, "" + Chr$(13) + Chr$(10))
Ret = IMPTrace(FileTableHtml, "" + Chr$(13) + Chr$(10))
Ret = IMPTrace(FileTableHtml, "" + Chr$(13) + Chr$(10))
Ret = IMPTrace(FileTableHtml, "")
Ret = IMPTrace(FileTableHtml, "")
Ret = IMPTrace(FileTableHtml, "")
Ret = IMPTrace(FileTableHtml, "")
Cel(4).Visible = False
Cel(5).Visible = True
Ret = DoGrid(GridList, 100)

sData = "Select TOP 30000 NumCompta, Adresse, adresseSuite, Cp,Ville, tpe_longitude,tpe_latitude,Tpe_Speed, CodeClient "
sData = sData + " FROM Client"
sData = sData + " WHERE Type.integer =" + CStr(Id)
sData = sData + " AND tpe_Speed.integer >=" + CStr(stx(0).Text)
sData = sData + " AND tpe_Speed.integer <=" + CStr(stx(1).Text)
sData = sData + " ORDER By tpe_Speed.integer ASC"

Ret = pExecute(sData)
While (Ret = True)
    i = i + 1
    If i < 100 Then
	GridList.Row = i
	GridList.Col = 1
	sData = OnSqlGetItem(0)
	GridList.Text = sData
	
	GridList.Col = 2
	sData = ""
	sData = sData + OnSqlGetItem(1) + " - " + OnSqlGetItem(2) + Chr$(13) + Chr$(10)
	sData = sData + OnSqlGetItem(3) + " - " + OnSqlGetItem(4)
	sData = sData + ""
	GridList.Text = sData
	
	GridList.Col = 3
	sData = IMPGetGeocodage(OnSqlGetItem(5), OnSqlGetItem(6), False, OnSqlGetItem(1))
	GridList.Text = sData
	GridList.Col = 4
	sData = OnSqlGetItem(7)
	GridList.Text = sData
	GridList.Col = 5
	sData = OnSqlGetItem(8)
	GridList.Text = sData
    End If
    Ret = IMPTrace(FileTableHtml, "")
    sData = OnSqlGetItem(0)
    Ret = IMPTrace(FileTableHtml, "")
    sData = OnSqlGetItem(1) + " - "
    sData = sData + OnSqlGetItem(3) + " - " + OnSqlGetItem(4)
    Ret = IMPTrace(FileTableHtml, "")

    sData = IMPGetGeocodage(OnSqlGetItem(5), OnSqlGetItem(6), True, OnSqlGetItem(1))
    Ret = IMPTrace(FileTableHtml, "")
    Ret = IMPTrace(FileTableHtml, "")
    Ret = IMPTrace(FileTableHtml, "" + Chr$(13) + Chr$(10))
    Ret = pMoveNext(0)
Wend
Ret = IMPTrace(FileTableHtml, "Numéro Adresse LCN Adresse XAS Cotation XAS
" + sData + " " + sData + " " + sData + " " + OnSqlGetItem(7) + "" + Chr$(13) + Chr$(10))
Ret = XasUserCopyFile(0, FileTableHtml, GlobPu.XasName + "_Table.XLS")
End Function

Références Composants

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

Références XAS.Technology

Kill , XasUserSetProperties , Chr , Cstr , XasUserCopyFile ,

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.