%{================================================================%}
%{= 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 , '/html/macros/exemples/garde/'
concat trim(cast(garde_code as char(5))) concat '.gif' as image
from BDVIN.vins
where pr_code = $(code)
%report{