%{================================================================%}
%{= 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 |
%row{
| $(V1) |
@DTW_rHTMLENCODE($(V2)) |
$(V3) |
$(V4) |
) |
%}
Si vous souhaitez passer commande :
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){
Exemple net.data avec des images
requête sur le fichier $(fichier)
Entrez un libellé :
%}
%html(result){
résultat de net.data avec des images
requête sur $(fichier) - Liste résultat
Votre critère $(lib)
@query()
Autre requête
%}
%html(ecriture){
enregistrement de votre commande
ecriture de votre commande en cours .....
@ecrit()
Autre requête
%}