%{================================================================%}
%{= MACRO NET.DATA =%}
%{= =%}
%{= affichage d'une liste sans sélection (sans page d'appel) =%}
%{= =%}
%{= But général : afficher la liste des appellations (BDVIN) =%}
%{================================================================%}
%{================================================================%}
%{= mémorisation clé de la dernière ligne =%}
%{================================================================%}
%define{
savcle = " "
%}
%{****************************************************************%}
%{* SQL1: génère la liste des appellations dans un tableau HTML *%}
%{****************************************************************%}
%function (DTW_SQL) Fsql1() {
%{* Requête SQL *%}
%{*--------------*%}
select Appellation, Region_code from BDVIN.Appellations
where Appellation > '@DTW_rADDQUOTE($(savcle)) '
order by Appellation
fetch first 20 rows only
%{* traitement du résultat *%}
%{*------------------------*%}
%report{
| Appellation |
Region_code |
%{* pour chaque ligne retournée *%}
%{*-----------------------------*%}
%row{
| $(V1) |
$(V2) |
@DTW_assign(savcle, $(V1))
%}
%{=================================================================%}
%{= formulaire, dans lequel la dernière clé est cachée afin d'être %}
%{= transmise (les variables ne sont pas persistantes) =%}
%{=================================================================%}
%}
%}
%{****************************************************************%}
%{* PAGE1: page HTML liste des appellations (utilise SQL1) *%}
%{****************************************************************%}
%html (page1) {
LISTE des APPELLATIONS
@Fsql1()
%}