Discussion :

[morganC]

Bonjour a tous,

je vais bientôt finalisé mon petit développement et j'ai un petit problème de retour à la ligne.
Lors de l'impression de ma commande je peux choisir de l'envoyer par mail s'affiche alors la fenêtre ci-dessous que je pré-remplis:


Le problème est que je n'arrive pas retourner à la ligne dans le message ... voici mon code (il est bien plus explicite que moi ^^)

Code :

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

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
70
71
72
73
74
75
76
#############################################################
#----------------Envoi ZEBONCDEMAIL par mail----------------# 
#############################################################
 
 
Case ACTION
When "MESSAGERIE" : Gosub MESSAGERIE
Endcase
Return
 
 
#----------------Declaration des tables----------------# 
$OUVRE
If clalev([F:ZPOR])=0 : Local File    PORDER    [ZPOR] : Endif					#Commande fournisseur
If clalev([F:ZCNT])=0 : Local File    CONTACT    [ZCNT] : Endif					#Contact
If clalev([F:ZAIN])=0 : Local File    CONTACTCRM    [ZAIN] : Endif			#Contact (détails)
Return
 
 
#--------------Declaration des variables---------------# 
$DECLARE
Local Char MAIL(50) , NUMCDE(30) , CONTACTNOM(30) , CONTACTPRENOM(30) , CONTACTCIVILITE(30) , ACHETEURNOM(30) , ACHETEURPRENOM(30)
Local Char PARAMETRE (250)(1..100)
Local Char SERVEUR (30)
Return
 
 
#------------------Debut du programme------------------# 
$MESSAGERIE
#Infbox "Je passe bien par la :D ..." Titled "Attention!"
#OK=0
 
 
#Ouverture des tables
Gosub OUVRE
#Infbox "C'est bon j'ai ouvert mes tables" Titled "Attention!"
 
 
#Declaration des variables
Gosub DECLARE
#Infbox "Les variables sont declarees, fait toi plaisir ..." Titled "Attention!"
 
 
#Lier la table avec l'ecran
Read [F:ZPOR]POH0 = [M:POH0]POHNUM					#Lier la table PORDER a l'écran  avec le champ CCNCRM
 
#Restrisction pour trouver le contact par défaut du fournisseur
For[F:ZCNT] Where [F:ZCNT]BPATYP = 1 and [F:ZCNT]BPANUM = [F:ZPOR]BPSNUM and [F:ZCNT]CNTFLG = 2
 [L]MAIL = [F:ZCNT]WEB
 Infbox [F:ZCNT]CCNCRM Titled "Attention!"
Next
 
Read [F:ZAIN]AIN0	=[F:ZCNT]CCNCRM 			#Lier la table CONTACT et CONTACTCRM avec le champ CCNCRM
[L]CONTACTNOM = [F:ZAIN]CNTLNA					#Affecter une valeur a CONTACTNOM
[L]CONTACTPRENOM = [F:ZAIN]CNTFNA				#Affecter une valeur a CONTACTPRENOM
[L]CONTACTCIVILITE = vireblc((format$("LA941:20X",[F:ZAIN]CNTTTL)),1)				#Affecter une valeur a CONTACTCIVILITE
#Infbox [L]CONTACTCIVILITE + " " + [L]CONTACTNOM + " " + [L]CONTACTPRENOM Titled "ATTENTION!" 
 
#Renseigne les variables
[L]NUMCDE = [F:ZPOR]POHNUM
 
#Creation de la fenetre avec l'ajout des variables
NBPAR+=1:PARAMETRE(NBPAR) = "_EMailToList="+chr$(1)+[L]MAIL
NBPAR+=1:PARAMETRE(NBPAR) = "_EMailCCList="+chr$(1)+"test@test.fr"
NBPAR+=1:PARAMETRE(NBPAR) = "_EMailSubject="+chr$(1)+"Ci-joint notre commande n°" + [L]NUMCDE 
NBPAR+=1:PARAMETRE(NBPAR) = "_EMailMessage="+chr$(1)+[L]CONTACTCIVILITE + " " + [L]CONTACTNOM + " " + [L]CONTACTPRENOM + "," + chr$(10)+chr$(13)
NBPAR+=1:PARAMETRE(NBPAR) = "_EMailMessage="+chr$(2)+"Merci de prendre en compte notre commande" + [L]NUMCDE + "." + chr$(10)+chr$(13)
NBPAR+=1:PARAMETRE(NBPAR) = "_EMailMessage="+chr$(3)+"Cordialement ..."
 
 
Return
 
Subprog IMPRIME(NBPAR,PARAMETRE)
Variable Integer NBPAR
Variable Char PARAMETRE()()
End

Voila si quelqu'un à une astuce pour que entre les lignes 66 et 68 de mon code le retour chariot fonctionne car + chr$(10)+chr$(13) ne marche pas!

Merci à vous
Et DESOLE si la question est bête, je travail sur X3 tout juste depuis un petit mois ... :s

[Slevrot]

Bonjour,

Cherche peut etre du côté de :
Iomode adxirs
adxirs contient le séparateur d'enregistrements utilisé pour la lecture ou l'écriture sur un fichier texte.


Iomode adxirs chr$(13) + chr$(10)

Dans l'aide tu as cette explication :
adxirs est une chaîne de 2 caractères maximum utilisée en conjonction avec les instructions Rdseq et Wrseq. Ces instructions lisent et écrivent des données sous forme ascii, UCS2 ou UTF8, structurées en champs et en enregistrements :

- Rdseq fait une lecture jusqu'à la fin de l'enregistrement, délimité par la séquence définie par adxirs,

- Wrseq écrit un enregistrement se terminant par la séquence adxirs.

adxirs admet chr$(10) comme valeur par défaut.

adxirs est à positionner par l'instruction Iomode juste après l'ouverture du fichier texte. Cela permet de définir le séparateur d'enregistrement pour un fichier donné et non plus globalement comme cela était le cas pour les versions antérieures à la version 140.

[morganC]

Merci Slevrot pour ton aide mais malheureusement je n'ai pas trouvé mon bonheur ... :-s
Une autre idée??

[Slevrot]

Résolue ? alors c'était quoi la solution ?

[morganC]

Bonjour,

En réalité je n'ai pas vraiment trouvé de solution.
Au lieu d'afficher les infos dans une fenêtres, et laisser la possibilité de modifier le texte, je n'affiche plus la fenêtre et envois le mail directement.
et la + chr$(10)+chr$(13) marche comme il faut.