%define { START_ROW_NUM = "1" RPT_MAX_ROWS = "25" DTW_SET_TOTAL_ROWS = "YES" %} %{================================================================%} %{= MACRO NET.DATA =%} %{= =%} %{= affichage d'une liste sans sélection (sans page d'appel) =%} %{= par tranche de 15 lignes =%} %{= But général : afficher la liste des appellations (BDVIN) =%} %{= =%} %{= START_ROW_NUM contient le n° de la ligne de début d'affichage=%} %{= RPT_ROW_NUM contient le nombre de lignes à afficher =%} %{= DTW_SET_TOTAL_ROWS demande à charger une variable TOTAL_ROWS =%} %{================================================================%} %{****************************************************************%} %{* 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 order by Appellation %{* traitement du résultat *%} %{*------------------------*%} %report{ %{* gestion ligne précédente/ligne suivante *%} %{*-----------------------------------------*%} @DTW_ADD(START_ROW_NUM, RPT_MAX_ROWS, suivant) @DTW_SUBTRACT(START_ROW_NUM, RPT_MAX_ROWS, precedent)

Affichage lignes $(START_ROW_NUM) A @DTW_rSUBTRACT(suivant, "1")

%{* pour chaque ligne retournée *%} %{*-----------------------------*%} %row{ %}
Appellation Region_code
$(V1) $(V2)

%IF (START_ROW_NUM > RPT_MAX_ROWS) PAGE PRECEDENTE | %ELSE PAGE PRECEDENTE | %ENDIF %IF (suivant < TOTAL_ROWS) PAGE SUIVANTE %ELSE PAGE SUIVANTE %ENDIF

(nombre total de lignes : $(TOTAL_ROWS) )

%} %} %{****************************************************************%} %{* PAGE1: page HTML liste des appellations (utilise SQL1) *%} %{****************************************************************%} %html (page1) {

LISTE des APPELLATIONS

@Fsql1()
%}