%{================================================================%} %{= MACRO NET.DATA =%} %{= =%} %{= affichage d'une liste des articles apres selection =%} %{= =%} %{= But g‚n‚ral : exemple de macro avec des DataLink DB2/400 =%} %{================================================================%} %define { DATABASE="*LOCAL" bib="WEBDB" fichier ="articles" %} %function(DTW_SQL) query() { select noart, libart, prix, qtestock, DLURLPATHONLY(url) from $(bib).$(fichier) where libart LIKE '%$(lib)%' %report{
$(N1) | $(N2) | $(N3) | $(N4) | Image |
---|---|---|---|---|
$(V1) | @DTW_rHTMLENCODE($(V2)) | $(V3) | $(V4) |
renseignez les parametres suivants :
%} %message{ 100: "Aucun article contenant $(lib)":CONTINUE %} %} %function(DTW_SQL) ecrit() { insert into webdb.wwwcde (noart, qte, soc) values('$(CODART)', $(QTE), '$(SOC)') %message{ default: "Erreur lors de la saisie":exit 0: "merci de votre commande.": continue %} %} %html(input){
Entrez un libellé :
%} %html(result){Votre critère $(lib)
@query()
%} %html(ecriture){
%}