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
|
<%@language=vbscript%>
<!--#include file="../pdf/fpdf.asp"-->
<!--#include file="../connections/connexion.asp"-->
<%
if request.Cookies("num_adherent")="" then
response.redirect("../identification.asp")
else if request.Cookies("num_adherent")<>"" AND request.cookies("num")="" or request.QueryString("type")="" then
response.redirect("./")
else if request.Cookies("num_adherent")<>"" AND request.cookies("num")<>"" AND request.QueryString("type")<>"" then
sql="select * from SOUSCRIPTION where num_adherent='" & request.Cookies("num_adherent") & "'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn
sql="select * from VALIDATION where num_adherent='" & request.Cookies("num_adherent") & "' AND num=" & request.cookies("num") & " And type_garantie='" & request.QueryString("type") & "'"
set rs1=server.CreateObject("ADODB.RECORDSET")
rs1.open sql,conn
if not rs1.eof then
duree=rs1("duree")
date_fin=DateAdd("m",duree,rs1("date_deb"))
date_fin=date_fin-1
Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF
pdf.SetPath("../pdf/fpdf/")
pdf.Open()
pdf.AddPage()
pdf.AddFont "IDAutomationSC39xS"
pdf.AddFont "OCRAExtended"
pdf.Image "../images/fnge.jpg",10,10,100,20
pdf.Cell 0,30,"",5,1
pdf.SetFont "OCRAExtended","",15
pdf.Cell 0,5,"Garantie de paiement fournisseur",5,1
pdf.SetFont "OCRAExtended","",15
pdf.SetTextColor 128,0,0
pdf.Cell 0,10,"N° K1 " & formatnumber(request.Cookies("num_adherent"),0) & "/" & date_fin,5,1
pdf.SetFont "OCRAExtended","",10
pdf.SetTextColor 128,0,0
pdf.Cell 10,5,formatcurrency(rs1("mnt_solicite"),0),5,1
pdf.Cell 10,5,"(" & ucase(rs1("mnt_solicite_lettre")) & " €uros)",5,1
pdf.Cell 0,2,"",5,1
pdf.SetFont "courier","",10
pdf.SetTextColor 0,0,0
pdf.MultiCell 0,5,"Nous sommes informés que, en date du " & rs1("date_deb") & ", vous avez conclu avec " & rs("entreprise") & " un contrat de location no.A pour au prix total de :"
pdf.Cell 0,2,"",5,1
pdf.SetFont "OCRAExtended","",10
pdf.SetTextColor 128,0,0
pdf.Cell 0,5," " &formatcurrency(rs1("mnt_solicite"),0),5,1
pdf.Cell 0,5," " &"(" & ucase(rs1("mnt_solicite_lettre")) & " €uros)",5,1
pdf.Cell 0,2,"",5,1
pdf.SetFont "courier","",10
pdf.SetTextColor 0,0,0
pdf.MultiCell 0,5,"Conformément aux termes du contrat, le paiement de la marchandise doit être garanti jusqu'à ( % du prix total) par une garantie bancaire."
pdf.Cell 0,2,"",5,1
pdf.MultiCell 0,5,"Ceci dit, nous, UBS SA, nous engageons par la présente, de façon irrévocable, à vous payer, indépendamment de la validité et des effets juridiques du contrat en question et sans faire valoir d'exception ni d'objection résultant dudit contrat, à votre première demande, tout montant jusqu'à concurrence du montant maximal précité à réception par nous-mêmes de votre demande de paiement dûment signée attestant que :"
pdf.Cell 0,2,"",5,1
pdf.MultiCell 0,5,"Vous avez livré à la marchandise commandée conformément aux termes du contrat susmentionné et à l'échéance, vous n'avez pas obtenu paiement de du montant réclamé sous cette garantie."
pdf.Cell 0,2,"",5,1
pdf.MultiCell 0,5,"Pour des raisons d'identification, votre demande de paiement écrite ne sera considérée comme valable que si elle nous parvient par l'intermédiaire d'une de nos banques correspondantes, accompagnée d'une déclaration de cette dernière certifiant qu'elle a procédé à la vérification des signatures y figurant."
pdf.Cell 0,2,"",5,1
pdf.MultiCell 0,5,"Votre appel est également acceptable dans la mesure où il nous est transmis dans son intégralité par la banque en question au moyen d'un télex/SWIFT dûment testé, confirmant qu'elle nous a fait parvenir l'original par courrier recommandé ou un service de courrier et que les signatures y figurant ont fait l'objet d'une vérification par cette dernière."
pdf.Cell 0,2,"",5,1
pdf.MultiCell 0,5,"Notre garantie est valable jusqu'au ("& date_fin &") et s'éteindra automatiquement et entièrement si votre demande de paiement ou le télex/SWIFT n'est pas en notre possession à l'adresse ci-dessus d'ici cette date au plus tard, qu'il s'agisse d'un jour ouvrable ou non."
pdf.Cell 0,2,"",5,1
pdf.MultiCell 0,5,"Tout paiement effectué en vertu de cette garantie au titre d'exécution d'un appel sera fait en réduction de notre engagement."
pdf.Cell 0,2,"",5,1
pdf.MultiCell 0,5,"Cet engagement est soumis au droit suisse, le lieu d'exécution et la forme juridique sont à "& rs1("ville")&"."
pdf.Cell 0,10,"",5,1
pdf.SetFont "courier","",9
pdf.Cell 0,1,"Le Fondé de Pouvoir Le Fondé de Pouvoir",5,1
pdf.Cell 0,0,"___________________ ___________________",5,1
pdf.Cell 0,8,"Par Délégation Par Délégation",5,1
pdf.SetTextColor 127,128,0
pdf.Cell 0,5,"__________________________________________________________________________________________________",5,30
pdf.SetTextColor 0,0,0
pdf.Cell 0,5,"EUROSECURE SA",5,1
pdf.SetFont "IDAutomationSC39xS","",15
pdf.SetTextColor 128,0,0
pdf.Cell 0,10,"K1 " & formatnumber(request.Cookies("num_adherent"),0) & "/" & date_fin,5,1
pdf.Output()
else
response.redirect("./")
end if
end if
end if
end if
%> |
