FORUMS PROFESSIONNELS
WINDEV
,
WEBDEV
et
WINDEV Mobile
Accueil
|
Messages récents
|
Connexion
|
Déconnexion
|
Français
Accueil
→
WINDEV 25
→
WX - Exemplo de Barra de Progresso
WX - Exemplo de Barra de Progresso
Débuté par adrianoboller, 09 mai 2015 21:04 - 2 réponses
Connectez-vous…
adrianoboller
#1
Membre enregistré
3 657 messages
Popularité : +175 (223 votes)
Posté le 09 mai 2015 - 21:04
//Lista de Preço
PROGBAR_
01
=
0
ok is
boolean
=
HExecuteQuery
(
QRY_
Delete_ListaPreco
,
hQueryDefault
)
IF
ok
=
True
THEN
FOR EACH PC005_Produtos
PROGBAR_
01
+
=
1
PC005_Produtos.pc005_valorunitario_real_normal
=
PC005_Produtos.pc005_valorunitario_euro_normal
*
EDT_
ValorEuro
PC005_Produtos.pc005_valorunitario_real_promocional
=
PC005_Produtos.pc005_valorunitario_euro_promocional
*
EDT_
ValorEuro
HModify
(
PC005_Produtos
)
END
FOR EACH PC005_Produtos
PROGBAR_
01
+
=
1
PC013_ListaPrecos.pc013_codproduto
=
PC005_Produtos.pc005_codproduto
PC013_ListaPrecos.pc013_descricao
=
PC005_Produtos.pc005_descricao_br
PC013_ListaPrecos.pc013_sigla
=
PC005_Produtos.pc005_sigla
IF
CBOX_
EmPromocao
..
Value
=
False
PC013_ListaPrecos.pc013_valorunitario
=
PC005_Produtos.pc005_valorunitario_real_normal
ELSE IF
CBOX_
EmPromocao
..
Value
=
True
PC013_ListaPrecos.pc013_valorunitario
=
PC005_Produtos.pc005_valorunitario_real_promocional
END
HAdd
(
PC013_ListaPrecos
)
END
FOR EACH PC006_CustosAdicionais
PROGBAR_
01
+
=
1
PC006_CustosAdicionais.pc006_valorunitario_real_normal
=
PC006_CustosAdicionais.pc006_valorunitario_euro_normal
*
EDT_
ValorEuro
PC006_CustosAdicionais.pc006_valorunitario_real_promocional
=
PC006_CustosAdicionais.pc006_valorunitario_euro_promocional
*
EDT_
ValorEuro
HModify
(
PC006_CustosAdicionais
)
END
FOR EACH PC006_CustosAdicionais
PROGBAR_
01
+
=
1
PC013_ListaPrecos.pc013_codproduto
=
100
+
PC006_CustosAdicionais.pc006_codproduto
PC013_ListaPrecos.pc013_descricao
=
PC006_CustosAdicionais.pc006_descricao_br
PC013_ListaPrecos.pc013_sigla
=
PC006_CustosAdicionais.pc006_sigla
IF
CBOX_
EmPromocao
..
Value
=
False
PC013_ListaPrecos.pc013_valorunitario
=
PC006_CustosAdicionais.pc006_valorunitario_real_normal
ELSE IF
CBOX_
EmPromocao
..
Value
=
True
PC013_ListaPrecos.pc013_valorunitario
=
PC006_CustosAdicionais.pc006_valorunitario_real_promocional
END
HAdd
(
PC013_ListaPrecos
)
END
PROGBAR_
01
=
100
ToastDisplay
(
"Lista de preço criada com sucesso!"
,
toastLong
,
vaMiddle
,
haCenter
)
END
Signaler
0
0
adrianoboller
#2
Membre enregistré
3 657 messages
Popularité : +175 (223 votes)
Posté le 09 mai 2015 - 21:05
Signaler
0
0
JOSE ELIELSON SILVA
#3
Membre enregistré
14 messages
Popularité : +5 (7 votes)
Posté le 28 mai 2015 - 14:39
// outra opção para incrementar a barra de progresso poderia ser:
PROGBAR_
01
+
+
// em vez de
PROGBAR_
01
+
=
1
Signaler
1
0
→ Revenir à WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Type de recherche
Uniquement les sujets
Tous les messages
Période de recherche
Date indifférente
Moins d'une heure
Moins de 24 heures
Moins d'une semaine
Moins d'un mois
Moins d'un an
Annuler
Aperçu de votre message
Ajouter une image
Importer une image depuis une URL
Envoyer une image depuis un fichier de votre disque
Déposez ici un fichier ou cliquez sur "Parcourir..."
ou
Annuler
0%
WLangage
SQL
XML, HTML
JAVA, Javascript
Texte