PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV 25 → WX - Exemplo de lógica de como controlar um Estoque e dar alertas e mostrar a imagem do produto
WX - Exemplo de lógica de como controlar um Estoque e dar alertas e mostrar a imagem do produto
Débuté par BOLLER, 10 mai 2017 16:47 - Aucune réponse
#1
Membre enregistré
3 655 messages
Popularité : +175 (223 votes)
Posté le 10 mai 2017 - 16:47
// Remplit les activités de ce produit
REQ_Activités.ParamIDProduit = gnIDProduit
TableDisplay(TABLE_Activités, taReExecuteQuery)


// Affiche les informations complémentaires sur ce produit
HReadSeekFirst(Produit, IDProduit, gnIDProduit)
FileToScreen(FEN_Produit,Produit)


// Etat du stock
SWITCH Produit.Stock
// Plus en stock
CASE 0
LIB_EtatStock = "Non disponible"
LIB_EtatStock..Color = RGB (253,54,0)
// Stock en alerte
CASE <= REQ_Produits.StockMin
LIB_EtatStock = "Alerte stock"
LIB_EtatStock..Color = RGB (253,149,0)
// En stock
OTHER CASE
LIB_EtatStock = "En stock"
LIB_EtatStock..Color = RGB(0,142,0)
END

LIB_StockNB = produit.Stock + " / " + Produit.StockMin


//Photo
HReadSeekFirst(Photo,IDProduit,gnIDProduit)
IF HFound(Photo) THEN
IMG_Photo = Photo.Chemin
END


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
→ Revenir à WINDEV 25