FOROS PROFESIONALES
WINDEV
,
WEBDEV
y
WINDEV Mobile
Inicio
|
Mensajes recientes
|
Conéctese...
|
Desconectar
|
Español
Inicio
→
WINDEV 25
→
WX - Exemplo de Barra de Progresso
WX - Exemplo de Barra de Progresso
Iniciado por adrianoboller, 09,may. 2015 21:04 - 2 respuestas
Conéctese…
adrianoboller
#1
Miembro registrado
3.661 mensajes
Popularité : +175 (223 votes)
Publicado el 09,mayo 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
Informar
0
0
adrianoboller
#2
Miembro registrado
3.661 mensajes
Popularité : +175 (223 votes)
Publicado el 09,mayo 2015 - 21:05
Informar
0
0
JOSE ELIELSON SILVA
#3
Miembro registrado
14 mensajes
Popularité : +5 (7 votes)
Publicado el 28,mayo 2015 - 14:39
// outra opção para incrementar a barra de progresso poderia ser:
PROGBAR_
01
+
+
// em vez de
PROGBAR_
01
+
=
1
Informar
1
0
→ Volver a WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Búsqueda Tipo
Sólo temas
Todos los mensajes
Periodo Buscar
Cualquier fecha
Última hora
Última 24 horas
Última semana
Último mes
Último año
Cancelar
Vista previa del mensaje
Añadiendo una imagen
Importar una imagen desde una URL
Enviar una imagen desde un archivo de su disco
Arrastrar un archivo o click en "Examinar..."
o
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto