1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69
| *` ----------------------------------------------------
**` User name (OS): Frank Chang
**` Date and time: 05/23/05, 11:20:04
**` ----------------------------------------------------
**` Method: Office_GetData
**` Description: Opens the xml file, and interprets it with the 4DVar tags. A new file is generated from this method.
**`
**`
**` Parameters:
**`$1: Text, the name of the file to open.
**` ----------------------------------------------------
C_TEXTE($1)
C_TEXTE($outputXML;$inputXML)
C_BLOB($inBlob;$outBlob)
C_HEURE($docref)
$inputXML:=$1
**`Do any pre-processing. Meaning that any variables that are necessary for this action to execute, should
**`be set here:
**`
OFOBJL_Off_SetXMLVars
OFOBJL_Off_SetStaticVars
OFOBJL_Off_BindVariables
$docref:=Creer document("";"xml")
Si (OK=1)
FERMER DOCUMENT($docref)
DOCUMENT VERS BLOB($inputXML;$inBlob)
TRAITER BALISES HTML($inBlob;$outBlob)
BLOB VERS DOCUMENT(DOCUMENT;$outBlob)
Si (OK=1)
Si (◊OFOBJL_spacer=":")
C_TEXTE($cmd)
**`If on a mac, set the creator and document type
CHANGER CREATEUR DOCUMENT(DOCUMENT;"XCEL")
CHANGER TYPE DOCUMENT(DOCUMENT;"XMLS")
$cmd:="open "+OFOBJL_Off_FilterPath (DOCUMENT)
LANCER PROCESS EXTERNE($cmd)
**Sinon
C_ENTIER LONG($test)
$test:=AP ShellExecute (DOCUMENT)
Fin de si
Sinon
ALERTE("Unable to create the document: "+DOCUMENT)
Fin de si
**`Else
**`ALERT("Unable to create the document: "+Document)
Fin de si |
Partager