//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

// outra opção para incrementar a barra de progresso poderia ser:

PROGBAR_01++

// em vez de

PROGBAR_01+=1