%{================================================================%} %{= MACRO NET.DATA =%} %{= =%} %{= affichage d'une liste des producteurs (page2) après choix =%} %{= d'un code appellation (page1) =%} %{= =%} %{= But général : afficher la liste des producteurs (BDVIN) =%} %{================================================================%} %{****************************************************************%} %{* Déclaration de variables %} %{****************************************************************%} %define { Cpt= "1" var= "0" %} %{////////////////////////////////////////////////////////////////%} %{****************************************************************%} %{* SQL1: génère la liste des producteurs *%} %{****************************************************************%} %function (DTW_SQL) Fsql1() { select pr_nom, pr_commune, appellation, pr_code from BDVIN.producteurs P join BDVIN.Appellations A on P.appel_code = A.Appel_code where P.appel_code = $(code) order by pr_nom %report{ %row{ %{* une ligne sur 2 est en bleu *%} %{*-----------------------------*%} @DTW_ADD(Cpt,"1",Cpt) @DTW_DIVREM(Cpt,"2",var) %if (var=="0") %else %endif %}
nom commune Appellation
@DTW_rHTMLENCODE($(V1)) @DTW_rHTMLENCODE($(V2)) @DTW_rHTMLENCODE($(V3)) %{* on place dans la dernière colonne un formulaire *%} %{* avec deux champs cachés (code et la SAISIE initiale) *%} %{*-----------------------------------------------------*%}
%} %message{ %{* gestion des erreurs SQL *%} %{*-----------------------------*%} 100 : "

aucun producteur ...

" : CONTINUE %} %} %{****************************************************************%} %{* SQL2: génère la liste des vins d'un producteur *%} %{****************************************************************%} %function (DTW_SQL) Fsql2() { select vin_nom from BDVIN.vins where pr_code = $(code) %report{ %row{ %}
vin
$(V1)
%} %message{ 100 : "Aucun vin...":CONTINUE %} %} %{****************************************************************%} %{* SQL3: génère (sans une boite combo) la liste des appellations*%} %{* pouvant être choisies *%} %{****************************************************************%} %function (DTW_SQL) Fsql3() { select appellation, appel_code from BDVIN.appellations order by appellation %report{ %} %} %{////////////////////////////////////////////////////////////////%} %{****************************************************************%} %{* PAGE1: page HTML (formulaire qui débranche vers page2) *%} %{****************************************************************%} %html (page1) {

Entrez un début d'appellation :

@Fsql3()

%} %{*************************************************************%} %{* PAGE2: page HTML liste des prodcuteurs (utilise SQL1) *%} %{**************************************************************%} %html (page2) {

LISTE des producteurs
@Fsql1()

%} %{*******************************************************%} %{* PAGE3: page HTML détail des vins d'un producteur *%} %{*******************************************************%} %html (page3) {

Vins
Liste des vins du producteur $(code)

@Fsql2()
retour à la liste

%}