%{================================================================%}
%{= MACRO NET.DATA =%}
%{= =%}
%{= affichage d'une liste des producteurs (page2) après saisie =%}
%{= d'une partie de l'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 from BDVIN.producteurs P
join BDVIN1.Appellations A
on P.appel_code = A.Appel_code
where upper(Appellation) like '@DTW_rUPPERCASE($(SAISIE))%'
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
%{* ici les variables sont "encodées en HTML valide) *%}
%{* é transformé en é etc... *%}
%{*--------------------------------------------------*%}
| @DTW_rHTMLENCODE($(V1)) |
@DTW_rHTMLENCODE($(V2)) |
@DTW_rHTMLENCODE($(V3)) |
%}
%}
%message{
%{* gestion des erreurs SQL *%}
%{*-----------------------------*%}
100 : "aucun producteur ...
" : CONTINUE
-104 : "
Valeur numerique ..." : CONTINUE
%}
%}
%{////////////////////////////////////////////////////////////////%}
%{****************************************************************%}
%{* 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()
%}