GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV
,
WEBDEV
e
WINDEV Mobile
Inicio
|
Mensagens recentes
|
Conecte-se...
|
Disconnect
|
Português
Inicio
→
WINDEV 25
→
ParallelTaskExecute
ParallelTaskExecute
Iniciado por FETOUI MOHAMED, mai., 10 2016 5:38 PM - Sem resposta
Conecte-se…
FETOUI MOHAMED
#1
Membro registado
148 mensagems
Popularité : +4 (14 votes)
Publicado em maio, 10 2016 - 5:38 PM
Hello
I tried to parallelize the processing of calculating the stock is based on parallel tasks.
At run time I have a little problem. When I run the program a message appears saying that the connection was interrupted.
NB: My files are in HFCS WINDEV 20
My code is as follows:
TableDeleteAll
(
LIBTableInvent
)
HExecuteQuery
(
Req_Article_TP
)
TableDisplay
(
LIBTableInvent
)
WinRedraw
(
)
RécupèreStock
(
)
// Procedure RécupèreStock()
ParallelTaskRequestCancelation
(
TABTache
)
ArrayDeleteAll
(
TABTache
)
FOR
ALL
LIGNE nligne DE LIBTableInvent
soit T
=
TâcheParallèleExécute
(
CalculeStockMagasin
,
(
COL_
Refrence
[
nligne
]
,
Sit_NumSite
,
Sai_Année
)
)
TâcheParallèleExécuteAprès
(T,
AfficheStock
,
(
ValeurRenvoyéeTâchePrécédente
,
nligne
)
,
tpoThreadPrincipal
)
Procedure
INTERNE AfficheStock
(
pStockDispo
,
pLigne
)
LIBTableInvent
[
pLigne
,
4
]
=
pStockDispo
FIN
Ajoute
(
TABTache
,T)
FIN
HFreeQuery
(
Req_StockV_TP
)
HFreeQuery
(
Req_StockA_TP
)
///// Procedure CalculeStockMagasin
Procedure
CalculeStockMagasin
(
pRefrence
,
pSite
,
pAnnée
)
////////////////////////////////// Earn quantities per item FILE "ONLINE SALES"
Req_StockV_TP.Param1_Ref
=
pRefrence
Req_StockV_TP.Param1_Depot
=
v
Dep
Req_StockV_TP.Param1_Année
=
pAnnée
Req_StockV_TP.Param1_Site
=
pSite
Req_StockV_TP.Param1_EtatCommande
=
"FA;BL"
HExecuteQuery
(
Req_StockV_TP
)
HReadFirst
(
Req_StockV_TP
)
IF
Not
HOut
(
(
Req_StockV_TP
)
Quantité_V
=
Req_StockV_TP.la_somme_Quantite_Livr
FIN
Req_StockV_TP.Param1_Ref
=
pRefrence
Req_StockV_TP.Param1_Depot
=
v
Dep
Req_StockV_TP.Param1_Année
=
pAnnée
Req_StockV_TP.Param1_Site
=
pSite
Req_StockV_TP.Param1_EtatCommande
=
"AV;RB"
// RETURN
HExecuteQuery
(
Req_StockV_TP
)
HReadFirst
(
Req_StockV_TP
,
hSansRafraîchir
)
IF
Not
HOut
(
Req_StockV_TP
)
Quantité_V
-
=
Req_StockV_TP.la_somme_Quantite_Livr
FIN
////////////////////////////////// Earn quantities per item FILE "BUY ONLINE"
Req_StockA_TP.Param1_ref
=
pRefrence
Req_StockA_TP.Param1_Depot
=
v
Dep
Req_StockA_TP.Param1_Année
=
pAnnée
Req_StockA_TP.Param1_Site
=
pSite
Req_StockA_TP.Param1_EtatCommande
=
"FA;BL"
HExecuteQuery
(
Req_StockA_TP
)
HReadFirst
(
Req_StockA_TP
,
hNoRefresh
)
IF
Not
HOut
(
Req_StockA_TP
)
Quantité_A
=
Req_StockA_TP.la_somme_Quantite_Livr
FIN
Req_StockA_TP.Param1_ref
=
pRefrence
Req_StockA_TP.Param1_Depot
=
v
Dep
Req_StockA_TP.Param1_Année
=
pAnnée
Req_StockA_TP.Param1_Site
=
pSite
Req_StockA_TP.Param1_EtatCommande
=
"AV;RB"
HExecuteQuery
(
Req_StockA_TP
)
HReadFirst
(
Req_StockA_TP
,
hNoRefresh
)
IF
Not
HOut
(
Req_StockA_TP
)
Quantité_A
-
=
Req_StockA_TP.la_somme_Quantite_Livr
FIN
v
StockDispo
=
Quantité_V
-
Quantité_A
SI
ErreurDétectée
(
)
ALORS
RENVOYER
(
-
1
)
SINON
RENVOYER
v
StockDispo
FIN
Thank you for giving me a track.
cordially
--
FETOUI MOHAMED
Développeur, Consultant et Formateur WinDev, WebDev et WinDev Mobile
fib.fetouimed@gmail.com
https://www.linkedin.com/pub/mohamed-el-fetoui/a0/680/109
MAROC+212(0)661249774
Membre de
http://www.be-dev.be
Skype : FETOUI MOHAMED
Denunciar
0
0
→ Voltar para WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Tipo de Pesquisa
Apenas tópicos
Todas as mensagens
Período de pesquisa
Qualquer momento
Última hora
Últimas 24 horas
Semana passada
Mês passado
Ano passado
Cancelar
Pré-visualização da sua mensagem
Adicionar imagem
Importar uma imagem de uma URL
Enviar uma imagem a partir do seu disco
Deixe um ficheiro ou clique em "Procurar ..."
ou
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto