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
| #############################################################
#----------------Envoi ZEBONCDEMAIL par mail----------------#
#############################################################
$ACTION
Case ACTION
When "MESSAGERIE" : Gosub MESSAGERIE
Endcase
Return
#----------------Declaration des tables----------------#
$OUVRE
If clalev([F:ZPOR])=0 : Local File PORDER [ZPOR] : Endif #Table Commande fournisseur
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:ZAUT])=0 : Local File AUTILIS [ZAUT] : Endif #Table Utilisateur
If clalev([F:ZFLY])=0 : Local File FACILITY [ZFLY] : Endif #Table Site
Return
#--------------Declaration des variables---------------#
$DECLARE
Local Char MAILFOURNISSEUR(50) , NUMCDE(30) , CONTACTNOM(30) , CONTACTPRENOM(30) , CONTACTCIVILITE(30) , ACHETEURNOM(30)
Local Char ACHETEURSOCIETE(50) , ACHETEURFAX(30) , ACHETEURMAIL(50) , ACHETEURTEL(30)
Local Char PARAMETRE (250)(1..100)
Local Char SERVEUR (30)
Return
#------------------Debut du programme------------------#
$MESSAGERIE
#Ouverture des tables
Gosub OUVRE
#Declaration des variables
Gosub DECLARE
#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]MAILFOURNISSEUR = [F:ZCNT]WEB #Mail du fournisseur
Next
Read [F:ZAIN]AIN0 = [F:ZCNT]CCNCRM #Lier la table CONTACTCRM (détails) et CONTACT avec le champ 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) #Civilité du contact recup du menu et nettoyage des espaces
Read [F:ZAUT]CODUSR = [F:ZPOR]BUY #Lier la table AUTILIS et PORDER avec les champs BUY
[L]ACHETEURNOM = [F:ZAUT]NOMUSR #Nom et prenom de l'acheteur
[L]ACHETEURTEL = [F:ZAUT]TELEP #Tel de l'acheteur
[L]ACHETEURFAX = [F:ZAUT]FAX #Fax de l'acheteur
[L]ACHETEURMAIL = [F:ZAUT]ADDEML #Email de l'acheteur
Read [F:ZFLY]FCY0 = [F:ZPOR]INVFCY #Lier la table PORDER et FACILITY avec le champ CCNCRM
[L]ACHETEURSOCIETE = [F:ZFLY]FCYNAM #Societe de l'acheteur
[L]NUMCDE = [F:ZPOR]POHNUM #Num de commande
#Creation de la fenetre avec l'ajout des variables
NBPAR+=1:PARAMETRE(NBPAR) = "_EMailToList="+chr$(1)+[L]MAILFOURNISSEUR
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" + chr$(10)+chr$(13)
NBPAR+=1:PARAMETRE(NBPAR) = "_EMailMessage="+chr$(4)+[L]ACHETEURNOM + chr$(10)+chr$(13)+chr$(10)+chr$(13)
NBPAR+=1:PARAMETRE(NBPAR) = "_EMailMessage="+chr$(5)+[L]ACHETEURSOCIETE + chr$(10)+chr$(13)
NBPAR+=1:PARAMETRE(NBPAR) = "_EMailMessage="+chr$(6)+"Téléphone : " + [L]ACHETEURTEL + chr$(10)+chr$(13)
NBPAR+=1:PARAMETRE(NBPAR) = "_EMailMessage="+chr$(7)+"Fax : " + [L]ACHETEURFAX + chr$(10)+chr$(13)
NBPAR+=1:PARAMETRE(NBPAR) = "_EMailMessage="+chr$(8)+"Mail : " + [L]ACHETEURMAIL + chr$(10)+chr$(13)
NBPAR+=1:PARAMETRE(NBPAR) = "_ExportFile="+chr$(1)+"\\Serveur2003\pdf x3"+"[L]NUMCDE"+".PDF"
Return
Subprog IMPRIME(NBPAR,PARAMETRE)
Variable Integer NBPAR
Variable Char PARAMETRE()()
End
#############################################################
#-------------------------Petit plus------------------------#
#############################################################
#Exemple de Infbox pour tester les valeurs...
#Infbox [L]ACHETEURSOCIETE Titled "Attention!"
#Si "OK=0" alors on n'affiche pas de fenêtre et l'envois du mail est directe
#Pour ajouter quelqu'un en Copie ...
#NBPAR+=1:PARAMETRE(NBPAR) = "_EMailCCList="+chr$(1)+"test@test.fr" |
Partager