Sommaire
Fonctionnement
Crystal Reports
IMPRIME
Date
COPIER_TABLEAU
EST_WEEKEND
Decimal
COPIER_TABLEAU
Développement
LIEN_OUVRIR
VALIDER
VALIDER_TRANSACTION
VISU_ECRAN
Entier
COPIER_TABLEAU
Entier Court
COPIER_TABLEAU
Fichier
CHEMIN_VERS_VOLUME
CREER_REPERTOIRE
CSV_VERS_XLSX
DEZIPPER
ENVOYER
LISTER_FICHIERS
LISTER_REPERTOIRES
RECUP_EMPREINTE
RECUP_EXTENSION
RECUP_NOM
RECUP_NOM_COMPLET
SUPPR_REPERTOIRE
TELECHARGER
VOLUME_VERS_CHEMIN
ZIPPER
FTP
ENVOYER
LISTER
SUPPRIMER
TELECHARGER
Image
GENERER_CODE
IMAP
LISTER_DOSSIERS
JSON
COMPTER
DEFINIR_VALEUR
RECUP_CLES
RECUP_TYPE
RECUP_POS_CLE
RECUP_UN
RECUP_VALEUR
SUPPR_CLE
VERS_TAB
SMS
ENVOYER
SMTP
ENVOYER_EMAIL
Stock
RECUP_COUT
RECUP_QTE_DISPO
Texte
ALEATOIRE
COMPTER_OCCURRENCES
COPIER_TABLEAU
DECOUPER
EST_NUMERIQUE
HTML_DECODE
HTML_ENCODE
HTML_VERS_TXT
LIEN_DECODE
LIEN_ENCODE
REMPLACER
RTF_VERS_TXT
VERS_BASE64
Utilisateur
VERIF_PASSE
Vente
RECUP_TARIF
SOLDER_COMMANDE
func X3.FR_CRYSTAL_IMPRIME(Char ETAT_IN, Char LANGUE_IN, Integer FORMAT_IN, Clbfile CHEMIN_IN, Char() PARAM_TAB_IN, Char() VALEUR_TAB_IN) : Tinyint

Lance une impression Crystal Reports vers un fichier sur le serveur

  • ETAT_IN Char Code de l'état X3 à imprimer
  • LANGUE_IN Char Langue pour l'impression
  • FORMAT_IN Integer Format du fichier à générer :
    • 3 Microsoft Word (*.doc)
    • 5 Format RTF (*.rtf)
    • 9 Texte ASCII
    • 10 Texte ASCII paginé
    • 27 Microsoft Excel 97-2000 (*.xls)
    • 28 Microsoft Excel 97-2000 données uniquement (*.xls)
    • 29 Adobe Acrobat (*.pdf)
    • 31 Microsoft Excel Workbook données uniquement (*xlsx)
  • CHEMIN_IN Clbfile Chemin complet ou volume vers le fichier à générer
  • PARAM_TAB_IN Char() Tableau de paramètres tels que définis dans la fiche de l'état
  • VALEUR_TAB_IN Char() Tableau de valeurs des paramètres
Retour Tinyint 1 si oui et 0 si non
Exemple

Lance l'état standard des factures sur un numéro de facture, dans la langue courante et l'enregistre en pdf dans le répertoire tmp du dossier
Local Char TBPAR(30)(25)
Local Char TBVAL(60)(25)
Local Shortint NB
[L]NB=1

[L]TBPAR([L]NB) = "facturedeb" : [L]TBVAL([L]NB) = "ZAINV1404ZA011000004" : [L]NB+=1
[L]TBPAR([L]NB) = "facturefin" : [L]TBVAL([L]NB) = "ZAINV1404ZA011000004" : [L]NB+=1
[L]TBPAR([L]NB) = "codimp" : [L]TBVAL([L]NB) = "2" : [L]NB+=1

If func X3.FR_CRYSTAL_IMPRIME("SBONFACP", [V]GLANGUE, 29, filpath("tmp","report","pdf"), [L]TBPAR, [L]TBVAL)
Infbox "Fichier créé"
Else
Infbox "Erreur renvoyée="+[V]GX3ERR
Endif