Discussion :

[BBARON]

Bonjour,

Est-il possible dans Crystal Report d'imprimer une pièce jointe associée à un article X3.
Je souhaiterai, à la suite d'un bon de sortie matière, imprimer une gamme opératoire qui est sous excel et qui est rattachée à l'article du BS.
Merci de votre aide

[castorameur]

Bonjour,

Je ne l'ai jamais fait mais je sais qu'il est possible d'insérer un objet OLE Excel dans un état crystal pour exécuter une macro.
A essayer.

Sinon pour les questions pur crystal il vaut mieux poster ici http://www.developpez.net/forums/f35...ystal-reports/

Après dans X3 vous pouvez appeler des instructions systèmes. Je ne parlerais pas des web services qui demandent pas mal de compétences.

[jeromecha]

Je ne sais pas comment on imprime une pièce jointe ... mais je peux te dire comment on liste les pièces associées à un article :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
select  * from AOBJTXT
where ABREV_0='ITM' and  IDENT1_0=code_article

[jeromecha]

Je me rappelle avoir réfléchi au problème et j'étais arrivé à faire un lien vers la pièce jointe mais sans pouvoir l'imprimer.
Pour faire le lien il suffit de mettre un texte simple et dans l'éditeur de mise en forme, onglet lien hypertext mettre le nom du champ dans la formule :

[Cereal123]

Bonjour,

Oui c'est possible.
Dans X3, il faut associer le code standard AIMPTXT à ton état.
X3 ira chercher les pièces jointes liées à ton objet pour les imprimer.

C.

[digitfree]

Comme je pense que ça intéresse pas mal de monde, peux-tu nous dire comment tu fais pratiquement cette association AIMPTXT sur l'état CR ?

[digitfree]

Bonjour,
Je me permettais de revenir vers Cereal123 pour savoir comment pratiquement tu fais cette association AIMPTXT avec l'état CR ?
Merci d'avance

[BBARON]

Bonjour à tous et particulièrement à Cereal123,

Je suis bigrement intéressé par ton post. Qu'entends-tu par "associer un code standard" ?
Est ce dans l'état CR ou bien dans le paramétrage de l'état X3 ?
Merci de ton aide

[castorameur]

A priori il faut utiliser l'écran AOBJTXT3
Par contre je n'ai pas encore eu à l'utiliser donc je vais chercher comment il est déclenché

[rvduclos]

Bonjour,

je suis aussi intéressé par cette impression de pièce jointe.
Il existe un traitement standard AIMPTXT "Impression des pièces Jointes" (dont on a évidemment pas les sources), j'ai donc essayé de mettre ce traitement sur l'état ITMMASTER par exemple, en pensant que le traitement allait lancer une procédure d'impression pour ces pièces jointes mais cela aurait été trop simple... message d'erreur "IMPRIME : Etiquette inexistante", et ce traitement ne doit pas être utilisé ainsi si cette étiquette IMPRIME n'existe pas. et aucune autre info dans l'aide !

Peut-être que Cereal123 nous en dira plus...

[Cereal123]

Bonjour,

Désolé, je reprends le fil de discussion après quelques jours de congés.
Je n'arrive plus à remettre la main sur la procédure qui permet d'utiliser AIMPTXT !!
Ceci dit, vous pouvez activer le paramètre général IMPPCEJOIN qui permet d'imprimer les pièces jointes associées à un objet.
Il est situé dans Superviseur/Impression :



Lorsque vous demandez l'impression de l'état, une boite de dialogue par pièce jointe s'affiche à l'écran, demandant à l'utilisateur la destination de l'impression de la PJ.

C.

[chris0677]

# Traitement spécifique des PE de AIMP1 #
# ------------------------------------- #
$ACTION
Case ACTION
When "FIN" : Gosub FIN
Endcase
Return

$FIN
Local Integer I
# Si édition du dossier de fabrication depuis les OF
If ([F:ARP]RPTCOD="DOSFAB") and (GFONCTION="GESMFG") Then
If !clalev([F:YAOX]) : Local File AOBJTXT[YAOX] : Endif
If !clalev([F:YMFI]) : Local File MFGITM[YMFI] : Endif
Local Char TBPAR(50)(1..10) , TBVAL(250)(1..10)
Local Integer NBPAR
Local Char PRT # Imprimante

# On récupère la destination du dossier de fabrication
PRT=[M:RPT]PRT
NBPAR = 1 : TBPAR(NBPAR) = "docjoin" # Paramètre de l'état ADOC

# Pour chaque article lancé
For I=0 To [M:MFG1]NBLIG-1
# Recherche des PJ de catégorie 5 sur l'article
Filter [F:YAOX] Where ABREV='ITM' and IDENT1=[M:MFG1]ITMREF(I) and find(CAT,5,6)
For[F:YAOX]
Local Char YDEST : Raz YDEST
If [F:YAOX]CAT=5 # A4
Call PARAM(GFCYDEF(8),"YDESTA4",YDEST) From ADOVAL
Elsif [F:YAOX]CAT=6 # A3
Call PARAM(GFCYDEF(8),"YDESTA3",YDEST) From ADOVAL
Endif

If YDEST<>"" & [M:RPT]IMPRIME<>1
PRT=YDEST
Endif
TBVAL(NBPAR) = [F:YAOX]NAM # Chemin du fichier
Call ETAT("ADOC",PRT," ",0,"",TBPAR,TBVAL) From AIMP3
Next
Next I
Endif
Return