%{================================================================%}
%{= 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{
nom
commune
Appellation
%row{
%{* une ligne sur 2 est en bleu *%}
%{*-----------------------------*%}
@DTW_ADD(Cpt,"1",Cpt)
@DTW_DIVREM(Cpt,"2",var)
%if (var=="0")
%else
%endif
@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) *%}
%{*-----------------------------------------------------*%}
" : 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{
vin
%row{
$(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 :
%}
%{*************************************************************%}
%{* 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) {