\n";
print "\n";
print " | \n";
print " | \n";
print "Ref | \n";
print "Désignation | \n";
print "Qté | \n";
print "Prix unitaire HT | \n";
print "Sous-total HT | \n";
print " | \n";
print "
\n";
# se connecter a la base
$dbh = DBI->connect("dbi:Pg:dbname=s_marchand", postgres, ) or die $DBI::errstr;
#mettre_produit_au_panier();
afficher_calepin();
# se deconnecter de la base
$dbh->disconnect;
#afficher la fin de la page de selection des produits
print "\n";
# boutons de gestion de la commande
print "
\n";
print "\n";
print " | \n";
print " | \n";
print "\n";
print " | \n";
print " | \n";
print "\n";
print "
\n";
print "
\n";
print "\n";
print "";
print "Pour ajouter des articles, retournez sur le catalogue et sélectionnez les articles choisis.
\n";
print "Pour supprimer un article de votre sélection, vous devez le décocher, puis cliquer sur le bouton recalculer pour mettre à jour les totaux.
\n";
print "Pour commander plusieurs exemplaires d\'un produit, modifiez sa quantité puis recalculez le montant de votre commande.
\n";
print "Lorsque vous êtes satisfait de votre sélection, cliquez sur le bouton commander.\n";
print "<\BODY>\n";
print "<\HTML>\n";
sub mettre_produit_au_panier {
# rentrer le produit selectionne dans le panier du client
$cursor = $dbh->prepare( "INSERT INTO panier VALUES ('$ID_client_el','$code_famille','$code_produit',1)" );
$cursor->execute;
$cursor->finish;
}
sub afficher_calepin {
# recuperer les produits selectionnes par le client concerne
$cursor = $dbh->prepare( "SELECT pa.code_famille, pa.code_produit, pr.denomination, pa.qte, pr.prix_ht FROM produits pr, panier pa WHERE pa.id_client_el like '$ID_client_el' AND pa.code_famille = pr.code_famille AND pa.code_produit= pr.code_produit" );
$cursor->execute;
$cpt = 1;
while ( @lgcom = $cursor->fetchrow) {
($code_famille,$code_produit,$denomination,$qte,$prix_ht) = @lgcom;
print "
\n";
print " | \n";
print "$cpt | \n";
print "$code_famille $code_produit | \n";
print "$denomination | \n";
print " | \n";
print "$prix_ht | \n";
$s_total = $prix_ht * $qte;
print "$s_total | \n";
print "\n";
print "\n";
print "
\n";
$total_ht += $s_total;
$cpt++;
}
print "\n";
$cursor->finish;
# calcul de la tva
$tva = $total_ht * $taux_tva;
# calcul du total hors taxe
$total_ttc = $total_ht + $tva ;
# affichage des totaux
print "\n";
print " | \n";
print " | \n";
print " | \n";
print " | \n";
print " | \n";
print "
Total H\.T\. \: | \n";
print "
$total_ht | \n";
print "
\n";
print "\n";
print " | \n";
print " | \n";
print " | \n";
print " | \n";
print " | \n";
print "T\.V\.A\.\ (19,6 \%\) \: | \n";
print "$tva | \n";
print "
\n";
print "\n";
print " | \n";
print " | \n";
print " | \n";
print " | \n";
print " | \n";
print "TOTAL T\.\T.\C\. \: | \n";
print "$total_ttc | \n";
print "
\n";
print "\n";
print " | \n";
print "
\n";
print "
\n";
print "