Créée un fichier spool de type binaire sur l’AS/400 à partir d’un fichier d’impression.
Cette fonction rend possible d’imprimer un état vers un spool AS/400.
Syntaxe
bResult = ASCreeSpool(NomFichier_prn, Connexion, options [, user_data, user_name, user_text [, nb_copies, nom_spool [, output_queue, outpout priority, form_type]]] )
bResult
Booléen - Vrai si la commande a réussi, Faux en cas d'erreur.
NomFichier_prn
Fichier d’impression au format de l’imprimante destination (PCL ou autre). Utiliser iDestination(iFichier, « nom_fichier ») pour créer le fichier d’impression à partir d’une impression WinDev classique.
Connexion
Connexion - nom de la connexion
Options
Options de base du spool. Les valeurs possibles sont une combinaison des constantes suivantes :
ASsplHold Créer le spool en état suspendu.
ASsplSave Sauvegarde du spool après impression
User_data (10 caractères)
Donnée utilisateur. Identifiant court de l’impression. Appelée aussi reference utilisateur. Permet de retrouver rapidement le spool par la suite.
User_name
Nom de l’utilisateur devenant propriétaire du spool. Valeurs possibles:
· nom d’utilisateur
· *CURRENT (par défaut) -> utilisateur actif
User_text (100 caractères)
Texte utilisateur. Permet de placer un descriptif personnalisé.
Nb_copies
Nombre de copies à imprimer
Nom_spool (10 caractères)
Nom du fichier spool à créer
Output_Queue
Nom de la file de sortie à utiliser. Valeurs possibles :
· Nom d’une file de données (*LIBL/OUTQ, ou OUTQ)
· *JOB (par défaut)
Output_priority
Priorité de sortie. Valeurs possibles :
1-9
*JOB (par défaut)
Form_type (10 caractères)
Type d’imprimé. Valeurs possibles : *STD ou chaine libre
Exemple
// redirige l'imression de ETAT_Etat1 vers un fichier
iDestination(iFichier, fRépertoireTemp()+"etat_impr.prn")
iImprimeEtat(ETAT_Etat1)
// exemple 1
SI PAS ASCreeSpool(fRépertoireTemp()+"etat_impr.prn", MaConnexion1,0, "QPGMR", "DOC0099", "Facture client XYZ") ALORS
FIN
// exemple 2
SI PAS ASCreeSpool(fRépertoireTemp()+"etat_impr.prn", MaConnexion1,ASsplHold+ASsplSave, "*CURRENT", "DOC0099", "Facture client XYZ",2, "MONSPOOL","PRT_EAC", 1, "FRM01") ALORS
Erreur(ErreurInfo(errComplet))
FIN