PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

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
Membre enregistré
3 651 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
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 09 mai 2015 - 21:05
:merci:
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