Discussion :

[morganC]

Bonjour à tous,

je souhaiterais tester l’existence d'un fichier sur le serveur.

voici comment je fait: (Ca ne marche pas --' )

Code :

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

1
2
3
If filinfo(filpath("\\Serveur2003\PDF X3",[L]NUMCDEVENTE+"_mail","pdf","",""),0) >= 0 then
Gosub EMAIL
#Fermeture de la boite d'attente d'exportation

Le fichier existe bien et le chemin est le bon ...
J'ai aussi testé de récupérer la taille du fichier en octet en changent le 0 du filinfo par un 7

Code :

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

filinfo(filpath("\\Serveur2003\PDF X3",[L]NUMCDEVENTE+"_mail","pdf","",""),0)

Mais sa me retourne rien

Quelqu'un c'est comment je pourrais tester l'existence d'un fichier?

Mercii

[Alsace]

Bonjour,

Ce n'est pas évident de répondre sans avoir votre arborescence sous les yeux mais voici quelques remarques :

• ne mettez pas les deux derniers arguments de filpath (même s'ils sont vides ou surtout s'ils sont vides)
• Mettre effectivement 7 comme paramètre
• je n'utilise personnellement jamais filpath pour un chemin sur un autre serveur (je mets directement le chemin dans une variable texte)
• est ce que le chemin est accessible du serveur ou du client ou des deux ?

En espérant vous avoir aidé.

[morganC]

9a ne marche toujours pas pourtant, j'ai suivis votre conseil et j'ai mis mon chemin en variable ...
Voici la partie du code qui est en question ...

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
[L]CHEMIN = "\\Serveur2003\PDF X3\"+[L]NUMCDEVENTE+"_mail.pdf"
Infbox [L]CHEMIN Titled "Attention!"
 
[L]TAILLEFICHIERPDF = filinfo([L]CHEMIN,7)
Infbox [L]TAILLEFICHIERPDF Titled "Attention!"
 
#Test si le fichier généré existe
If TAILLEFICHIERPDF > 0 then
Gosub EMAIL
#Fermeture de la boite d'attente
Call FERME_VLC() From GESECRAN
Infbox "L'AR n°" + [L]NUMCDEVENTE + " à bien été envoyé!" Titled "Informations" Sleep 6
 
Else
Call FERME_VLC() From GESECRAN
Errbox "Erreur Email", "Le fichier joint (.PDF) n'à pas été trouvé.", "Le mail n'à pas été envoyé." Titled "Attention!"
 
Endif
 
Next
 
Return

Sa me retourne toujours vide "" :-/
Le chemin est bon car dans le même code je genère mon état que j'enregistre dans ce même répertoire...

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
Report RETOUR="serveur2003.aaaa.lan:1890@" With
& "__REPORT="+chr$(1)+"ZEARCOMMANDEMAIL.rpt",
& "__DESTINATION="+chr$(1)+"3",
& "__TYPDBA="+chr$(1)+"1",
& "__DBSERVER="+chr$(1)+"AAAAASRVX3",
& "__DBDATABASE="+chr$(1)+"AAAAASRVX3",
& "__DBUSER="+chr$(1)+"AAAAAAA",
& "__DBPASSWORD="+chr$(1)+"aaaa",
& "__APPLICATION="+chr$(1)+nomap+";srvx3.aaaa.lan;1802",
& "__APPRPT="+chr$(1)+nomap+";srvx3.aaaa.lan;1802",
& "_FormatExport="+chr$(1)+"29",
& "_ExportFile="+chr$(1)+"\\Serveur2003\PDF X3\"+[L]NUMCDEVENTE+"_mail.pdf",
& "X3DOS="+chr$(1)+nomap+";"+adxmac(-1)+";"+num$(adxtcp),
& "commandedeb="+chr$(1)+[L]NUMCDEVENTE,
& "commandefin="+chr$(1)+[L]NUMCDEVENTE,
& "impselections="+chr$(1)+num$(1)
Sleep 20

[Alsace]

Bonjour,

Vous dîtes cela me retourne "".
Mais TAILLEFICHIERPDF est bien déclaré en integer ?

[morganC]

Oui ma variable est bien déclaré en integer ^^
Je vous met mon code en entier, cela pourra peut-être vous aidez d'avantage ...

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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
###############################################################################################
#-----------------Envoi des commandes de vente aux clients par mail depuis X3-----------------#
#------------------------------------MOCO 13/08/2012------------------------------------------#
###############################################################################################
 
$ACTION
Case ACTION
    When "EXEC" : Gosub EXEC
Endcase
Return
 
 
#----------------Declaration des tables----------------# 
$OUVRE
If clalev([F:ZCNT])=0    :    Local File    CONTACT    [ZCNT]    :    Endif      #Table Contact
If clalev([F:ZAIN])=0    :    Local File    CONTACTCRM    [ZAIN]    :    Endif      #Table Contact (détails)
If clalev([F:ZFCY])=0    :    Local File    FACILITY    [ZFCY]    :    Endif #Table Site
If clalev([F:ZSRD])=0    :    Local File    SORDER    [ZSRD]    :    Endif    #Table Commande de vente
If clalev([F:ZAUT])=0    :    Local File    AUTILIS    [ZAUT]    :    Endif     #Table Utilisateur
Return
 
 
#--------------Declaration des variables---------------# 
$DECLARE
Local Char NUMCDEVENTE(30) , NUMCDEVENTECLI(50) , MAILCLIENT(50) , CONTACTNOM(30) , CONTACTPRENOM(30) , CONTACTCIVILITE(30)
Local Char NUMCLIENT(30) , MAILCLIENT(50) , CONTACTNOM(30) , CONTACTPRENOM(30) , CONTACTCIVILITE(30)
Local Char VENDEURSOCIETE(50) , VENDEURNOM(50) , VENDEURFAX(30) , VENDEURMAIL(50) , VENDEURTEL(30) 
Local Integer TAILLEFICHIERPDF(250)
Local Char CHEMIN(250) 
Return
 
 
#-----------Lancement du programme principal-----------#
$EXEC
 
#Ouverture des tables
Gosub OUVRE
 
#Declaration des variables
Gosub DECLARE
 
#Numéro d'appels d'offre
[L]NUMCDEVENTE = [M:SOH0]SOHNUM
[L]NUMCDEVENTECLI = [M:SOH0]CUSORDREF
 
 
#Numéro du client
[L]NUMCLIENT = [M:SOH0]BPCORD
 
 
#Restrisction pour trouver le contact par defaut du client
#BPATYP(Type entité); BPANUM(Entité); BPCORD(client); CNTFLG(Par défaut)
For[F:ZCNT] Where [F:ZCNT]BPATYP = 1 and [F:ZCNT]BPANUM = [M:SOH0]BPCORD and [F:ZCNT]CNTFLG = 2
 
[L]MAILCLIENT = [F:ZCNT]WEB               #Mail du fournisseur
 
 
#Lier la table CONTACTCRM (details) et CONTACT avec le champ CCNCRM (Code)
Read [F:ZAIN]AIN0 = [F:ZCNT]CCNCRM
[L]CONTACTNOM = [F:ZAIN]CNTLNA                                           #Nom du contact
[L]CONTACTPRENOM = [F:ZAIN]CNTFNA                                        #Prenom du contact
[L]CONTACTCIVILITE = vireblc((format$("LA941:20X",[F:ZAIN]CNTTTL)),1)    #Civilite du contact recup du menu et nettoyage des espaces
 
 
#Lier la table FACILITY à l'ecran  avec le champ SALFCY (Site)
Read [F:ZFCY]FCY0=[M:SOH0]SALFCY
[L]VENDEURSOCIETE = [F:ZFCY]FCYNAM             #Nom de la societe
 
 
#Lecture info utilisateur
Read [F:ZAUT]CODUSR=GUSER
[L]VENDEURNOM = [F:ZAUT]NOMUSR                 #Nom et prenom du vendeur
[L]VENDEURTEL = [F:ZAUT]TELEP                  #Tel du vendeur
[L]VENDEURFAX = [F:ZAUT]FAX                    #Fax du vendeur
[L]VENDEURMAIL = [F:ZAUT]ADDEML                #Email du vendeur
 
 
#Vérification si le contact à un email
If len([L]MAILCLIENT)=0
Infbox "Erreur Email", "Pas d'adresse mail de définit pour le contact du client" Titled "Attention!"
End
Endif
 
 
#Vérification si le TCI à un email
If len([L]VENDEURMAIL)=0
Infbox "Erreur Email", "Vous n'avez pas d'adresse mail de définit" Titled "Attention!"
End
Endif
 
 
# Affichage de la boite d'attente d'envois du mail
Call OUVRE_VLC("Envoi de l'AR de commande n°" + [L]NUMCDEVENTE,"","") From GESECRAN
Call AFF_VLC("", "") From GESECRAN
 
 
#Infbox "NUMCDEVENTE --> " + [L]NUMCDEVENTE Titled "Attention!"
#Infbox "NUMCDEVENTECLI --> " + [L]NUMCDEVENTECLI Titled "Attention!"
#Infbox "MAILCLIENT --> " + [L]MAILCLIENT Titled "Attention!"
#Infbox "CONTACTNOM --> " + [L]CONTACTNOM Titled "Attention!"
#Infbox "CONTACTPRENOM --> " + [L]CONTACTPRENOM Titled "Attention!"
#Infbox "CONTACTCIVILITE --> " + [L]CONTACTCIVILITE Titled "Attention!"
#Infbox "NUMCLIENT --> " + [L]NUMCLIENT Titled "Attention!"
#Infbox "MAILCLIENT --> " + [L]MAILCLIENT Titled "Attention!"
#Infbox "CONTACTNOM --> " + [L]CONTACTNOM Titled "Attention!"
#Infbox "CONTACTPRENOM --> " + [L]CONTACTPRENOM Titled "Attention!"
#Infbox "CONTACTCIVILITE --> " + [L]CONTACTCIVILITE Titled "Attention!"
#Infbox "VENDEURSOCIETE --> " + [L]VENDEURSOCIETE Titled "Attention!"
#Infbox "VENDEURNOM --> " + [L]VENDEURNOM Titled "Attention!"
#Infbox "VENDEURFAX --> " + [L]VENDEURFAX Titled "Attention!"
#Infbox "VENDEURMAIL --> " + [L]VENDEURMAIL Titled "Attention!"
#Infbox "VENDEURTEL --> " + [L]VENDEURTEL Titled "Attention!"
 
 
#Lance
Gosub PDF
 
[L]CHEMIN = "\\Serveur2003\PDF X3\"+[L]NUMCDEVENTE+"_mail.pdf"
Infbox [L]CHEMIN Titled "Attention!"
 
[L]TAILLEFICHIERPDF = filinfo([L]CHEMIN,7)
Infbox [L]TAILLEFICHIERPDF Titled "Attention!"
 
#Test si le fichier généré existe
If TAILLEFICHIERPDF > 0 then
Gosub EMAIL
#Fermeture de la boite d'attente 
Call FERME_VLC() From GESECRAN
Infbox "L'AR n°" + [L]NUMCDEVENTE + " à bien été envoyé!" Titled "Informations" Sleep 6
 
Else
Call FERME_VLC() From GESECRAN
Errbox "Erreur Email", "Le fichier joint (.PDF) n'à pas été trouvé.", "Le mail n'à pas été envoyé." Titled "Attention!"
 
Endif
 
Next
 
Return
 
 
#-----------Création du devis au format pdf------------# 
$PDF
 
Report RETOUR="serveur2003.aaaa.lan:1890@" With
& "__REPORT="+chr$(1)+"ZEARCOMMANDEMAIL.rpt",
& "__DESTINATION="+chr$(1)+"3",
& "__TYPDBA="+chr$(1)+"1",
& "__DBSERVER="+chr$(1)+"AAAAAASRVX3",
& "__DBDATABASE="+chr$(1)+"AAAAAASRVX3",
& "__DBUSER="+chr$(1)+"aaaaa",
& "__DBPASSWORD="+chr$(1)+"tiger",
& "__APPLICATION="+chr$(1)+nomap+";srvx3.aaaa.lan;1802",
& "__APPRPT="+chr$(1)+nomap+";srvx3.aaaa.lan;1802",
& "_FormatExport="+chr$(1)+"29",
& "_ExportFile="+chr$(1)+"\\Serveur2003\PDF X3\"+[L]NUMCDEVENTE+"_mail.pdf",
& "X3DOS="+chr$(1)+nomap+";"+adxmac(-1)+";"+num$(adxtcp),
& "commandedeb="+chr$(1)+[L]NUMCDEVENTE,
& "commandefin="+chr$(1)+[L]NUMCDEVENTE,
& "impselections="+chr$(1)+num$(1)
Sleep 20
 
Return
 
 
#-----------Envoi du devis en pièce jointe------------# 
$EMAIL
 
Send GSERMES With
& "__TO="+chr$(1)+"m.colin@eynardrobin.fr",
& "__CC="+chr$(1)+"m.colin@eynardrobin.fr",
& "__SUJET="+chr$(1)+[L]VENDEURSOCIETE + "- Ref : " + [L]NUMCDEVENTECLI + " - AR n°" + [L]NUMCDEVENTE,
& "__NOTE="+chr$(1)+"Bonjour " + [L]CONTACTCIVILITE + " " + [L]CONTACTNOM + "," +chr$(10)+chr$(13)+chr$(10)+chr$(13),
& "__NOTE="+chr$(2)+"Suite à votre commande n°" + [L]NUMCDEVENTECLI + " veuillez trouver ci-joint notre accusé de réception de commande n°" + [L]NUMCDEVENTE + "." +chr$(10)+chr$(13)+chr$(10)+chr$(13),
& "__NOTE="+chr$(3)+"Cordialement,"+chr$(10)+chr$(13)+chr$(10)+chr$(13),
& "__NOTE="+chr$(4)+toupper([L]VENDEURSOCIETE) + " " + chr$(10)+chr$(13),
& "__NOTE="+chr$(5)+[L]VENDEURNOM + " " + chr$(10)+chr$(13),
& "__NOTE="+chr$(6)+"Tel : "+format$("K:2X[.]2X[.]2X[.]2X[.]2X",[L]VENDEURTEL) + chr$(10)+chr$(13),
& "__NOTE="+chr$(7)+"Fax : "+format$("K:2X[.]2X[.]2X[.]2X[.]2X",[L]VENDEURFAX) + chr$(10)+chr$(13),
& "__NOTE="+chr$(8)+"Mail : "+[L]VENDEURMAIL + chr$(10)+chr$(13),
& "__JOINT="+chr$(1)+"\\Serveur2003\PDF X3\"+[L]NUMCDEVENTE+"_mail.pdf"
 
Return
 
End
 
 
 
#############################################################
#-------------------------Petit plus------------------------# 
#############################################################
 
#Exemple de Infbox pour tester les valeurs...
#Infbox [L]DEMANDEURNOM Titled "Attention!"
 
#Adresse mail:
#& "__TO="+chr$(1)+[L]MAILCLIENT, 
#& "__CC="+chr$(1)+[L]DEMANDEURMAIL,

[Alsace]

Dans ce cas, il faut plutôt mettre :

Code :

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

Infbox num$([L]TAILLEFICHIERPDF) Titled "Attention!"

que retourne maintenant le infbox ?

[morganC]

le infbox me retourne " -31 "

[Alsace]

Je suis désolé mais là je ne vois pas.
Pour moi c'est un problème d'accès au fichier. (oui c'est le même programme qui génère le fichier mais l'informatique ....)
Moi j'essaierai de générer le fichier dans un répertoire adonix du serveur X3 (dans tmp par exemple) pour être certain que X3 voit bien le fichier (avec filpath cette fois ci).

[morganC]

Je vais tester ce que vous me dite, je reviendrais vers vous une fois tester...
En tout cas merci beaucoup d'avoir essayé ^^

[siro1]

Peut-etre n'aime t il pas les espaces dans le filpath ...

[morganC]

j'ai déjà essayé de supprimer les espaces ... mais rien ne change ...

[siro1]

As tu essayer le debeugeur ? qu'en est-il ?

[morganC]

Le débugger? je ne sais pas si on parle de la même chose mais si oui alors il ne me retourne aucune erreur.

[siro1]

==> DBGAFF

quand tu dis que filinfo ne te retourne rien, ça veut dire quoi "rien" ?

[morganC]

en fait x3 n'arrive pas a trouver le fichier et donc que le fichier existe ou non, filinfo me retourne toujours -31.
Pourtant je vais regarder dans le même dossier ou x3 quelques lignes de code avant créer bien le fichier .PDF

[siro1]

Essaye de décomposer le problème pour trouver d'où vient l'erreur, je pense aussi que cela peut être un problème d'accès.

Essaye de travailler dans le dossier X3 (un dossier tmp) ==> filpath("tmp","fichier","pdf","")

qui donne (par exemple) :

"C:\SAGE\SAGEERPX3V6\X3V6STD\Dossiers\DEMOFRA\tmp\fichier.pdf"

rien ne t'empeche ensuite de le copie dans le dossier voulu ==> Call COPIE ("rep de départ","rep de destination",STAT) From ORDSYS

tiens nous au courant ...

[jeromecha]

Un bon vieux déterrage de post !!!

Par défaut filinfo cherche le fichier sur le serveur X3. Si on veut accéder à un fichier du poste local il faut le préfixer par #@.
Exemple :

Code :

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

#@C:\toto_650\backup\Nouveau.txt

Bien sûr ça ne fonctionne pas en client web.