%{================================================================%} %{= MACRO NET.DATA =%} %{= =%} %{= affichage d'une liste des producteurs (page2) après saisie =%} %{= d'une partie del'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 upper(Appellation) like '@DTW_rUPPERCASE($(SAISIE))%' order by pr_nom %report{
nom | commune | Appellation | |
---|---|---|---|
@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 SAIIE initiale) *%} %{*-----------------------------------------------------*%} |
vin |
---|
$(V1) |
Entrez un début d'appellation :
LISTE des producteurs
@Fsql1()
Vins
Liste des vins du producteur $(code)
@Fsql2()
retour à la liste