%{================================================================%}
%{= MACRO NET.DATA =%}
%{= =%}
%{= affichage d'une liste des producteurs (page2) après saisie =%}
%{= d'un code appellation (page1) =%}
%{= =%}
%{= But général : afficher la liste des producteurs (BDVIN) =%}
%{================================================================%}
%{****************************************************************%}
%{* Déclaration de variables %}
%{****************************************************************%}
%define {
Cpt= "1"
var= "0"
%{* variable d'environnement du serveur *%}
REMOTE_ADDR = %ENVVAR
%}
%{////////////////////////////////////////////////////////////////%}
%{****************************************************************%}
%{* SQL1: génère la liste des producteurs *%}
%{****************************************************************%}
%function (DTW_SQL) Fsql1() {
select pr_nom, pr_commune from BDVIN.producteurs
where appel_code = $(code_appel) order by pr_nom
%report{
| pr_nom |
pr_commune |
%row{
%{* une ligne sur 2 est en bleu *%}
%{*-----------------------------*%}
@DTW_ADD(Cpt,"1",Cpt)
@DTW_DIVREM(Cpt,"2",var)
%if (var=="0")
%else
%endif
%{* dans tous les cas, affichage des 2 colonnes *%}
%{*---------------------------------------------*%}
| $(V1) |
$(V2) |
%}
%}
%message{
%{* gestion des erreurs SQL *%}
%{*-----------------------------*%}
100 : "aucun producteur ...
" : CONTINUE
-206 : "
Votre saisie doit etre numérique" : CONTINUE
%}
%}
%{////////////////////////////////////////////////////////////////%}
%{****************************************************************%}
%{* PAGE1: page HTML (formulaire qui débranche vers page2) *%}
%{****************************************************************%}
%html (page1) {
Entrez un code appellation :
votre adresse d'origine est : $(REMOTE_ADDR)
%}
%{*************************************************************%}
%{* PAGE2: page HTML liste des prodcuteurs (utilise SQL1) *%}
%{**************************************************************%}
%html (page2) {
LISTE des producteurs
@Fsql1()
%}