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
|
print "Content-type:text/html\n\n";
print "<HTML>\n";
print "<HEAD>\n";
print "<link rel='stylesheet' href='../style.css' type='text/css' media='screen' />\n";
print "</HEAD>\n";
print "<BODY class='BODY2'>";
print "<script>top.frames.page2.stop_progressbar=1;</script>\n";
#############################Construction du fichier excel######################
open(fic,">$xls_partners_file") or die "Impossible d'ouvrir $xls_partners_file\n$!\n";
print fic "<TABLE width='100%' border='1' class='formulaire'>\n";
#Entte du tableau
print fic "<TR>\n";
print fic "<TD bgcolor='d0d0d0' colspan='6' align='center'><font size='4'><B>Partners list from $division (last update ".&TX2::Tools::GetDate('anglais').")</B></font></TD>\n";
print fic "</TR>\n";
print fic "<TR>\n";
print fic "<TD bgcolor='d0d0d0' width='10%' align='center'><b>BUYING GROUP</b></TD>\n";
print fic "<TD bgcolor='d0d0d0' width='10%' align='center'><b>SHIP TO NAME</b></TD>\n";
print fic "<TD bgcolor='d0d0d0' width='10%' align='center'><b>ZIP CODE</b></TD>\n";
print fic "<TD bgcolor='d0d0d0' width='10%' align='center'><b>TOWN</b></TD>\n";
print fic "<TD bgcolor='d0d0d0' width='10%' align='center'><b>SHIP TO SAP ACCOUNT</b></TD>\n";
print fic "<TD bgcolor='d0d0d0' width='50%' align='center'><b>EAN IDENTIFIER</b></TD>\n";
print fic "</TR>\n";
#Fin entte du tableau
for ($i=0;$i<=$#{@resultat};$i++)
{
print fic "<TR>\n";
print fic "<TD bgcolor=\'$XlsColor[$i%2]\' align='center'>$resultat[$i]{'BUYING_GROUP_NAME'}</TD>\n";
print fic "<TD bgcolor=\'$XlsColor[$i%2]\' align='center'>$resultat[$i]{'SHIP_TO_NAME'}</TD>\n";
print fic "<TD bgcolor=\'$XlsColor[$i%2]\' align='center'>$resultat[$i]{'ZIP_CODE'}</TD>\n";
print fic "<TD bgcolor=\'$XlsColor[$i%2]\' align='center'>$resultat[$i]{'TOWN'}</TD>\n";
print fic "<TD bgcolor=\'$XlsColor[$i%2]\' align='center'>$resultat[$i]{'SHIP_TO'}</TD>\n";
print fic "<TD bgcolor=\'$XlsColor[$i%2]\' align='center'>$resultat[$i]{'CUSTOMER_IDENTIFIER'}</TD>\n";
print fic "</TR>\n";
}
print fic "</TABLE>\n";
close(fic);
################################################################################
if(-e $xls_partners_file)
{
print "<BR><BR><BR><BR><BR><BR><p valign='top' align='center' style=\"font-size:'30px';color:'ccccff';align='center'\"> <img src='../images/tick_vert.gif'>File has been successfully generated !</p>\n";
print "<TABLE align='center' class='Bouton' onMouseOver=\"this.className='BoutonOver'\" onMouseOut=\"this.className='Bouton'\" onclick=\"self.location=('./partner_list.pl?CGISESSID=$id')\"><TR><TD><a href='#' class='lien1'>Go back to partners list</a></TD></TR></TABLE>";
print "<script>";
print "self.location=(\'$xls_partners_file\');";
print "</script>";
}
else
{
print "<table width=100% height=100% valign='middle'><tr><td height='100%' valign='middle'><p style=\"font-size:'30px';color:'cc0000'>\" valign='middle' align='center'><img src='../images/croix_rouge.gif'> File has not been generated !</p><p align='center'>Please <a class='lien1' href='./partner_list.pl?CGISESSID=$id'>Retry</a> or contact <a class='lien1' href=mailto:'euredi@saint-gobain.com'>euredi@saint-gobain.com</a></p></TD></TR></TABLE></center><br>";
}
print "</BODY></HTML>\n"; |
