1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| #---- Transfert du fichier sur le poste client si paramètre GXDTACLI=2 #CZE160514.sn
$SAVEFIC
If GXDTACLI=2 and GERRTRACE=0
ESSAI=1
REPCLI="#myDocuments"
Askui RETOUR="" With "UIAsk="+chr$(1)+"AskGetFile",
& "UIRemotePathFile="+chr$(1)+XMLFILENAME,
& "UIRemoteBinary="+chr$(1)+"0",
& "UILocalFileName="+chr$(1)+BANKFILE+"."+XFILEXT,
& "UILocalPathFile="+chr$(1)+REPCLI
STAT=val(RETOUR)
If STAT<>1 and ESSAI<=3
Gosub SAVEFIC
Elsif STAT<>1 and ESSAI>3
Call ERREUR("Le fichier n'a pu être transféré sur le poste client.\Il se trouve dans le répertoire BQE de l'applicatif") From GESECRAN
Endif
Elsif GXDTACLI=1 and GERRTRACE=0
#Génération du fichier
Infbox mess(44,GXERRMESS1,1) + XMLFILENAME + mess(45,GXERRMESS1,1)
Endif
#---- Transfert du fichier sur le poste client si paramètre GXDTACLI=2 #CZE160514.sn |
Partager