PROFESSIONAL NEWSGROUPS
WINDEV
,
WEBDEV
and
WINDEV Mobile
Home
|
Recent messages
|
Connect
|
Sign out
|
English
Home
→
WINDEV 25
→
Exemplo de Commit e Rollback usando 2 procedures
Exemplo de Commit e Rollback usando 2 procedures
Started by BOLLER, Mar., 28 2020 2:36 PM - 2 replies
Connect yourself…
BOLLER
#1
Registered member
3,651 messages
Popularité : +175 (223 votes)
Posted on March, 28 2020 - 2:36 PM
Procedure inicial
// Summary: <specify the procedure action>
// Syntax:
// Evento_Gravar ()
//
// Parameters:
//
None
// Return value:
//
None
//
// For instance:
// Indicate an example.
//
Procedure
Evento_Gravar
(
)
HTransactionStart
(
MyHfsql01
,
"T032_Usuarios,T034_UsuarioXDiretiva"
)
ScreenToFile
(
)
ok
is boolean
erro
is int
IF
gs
_Acao
=
"Incluir"
THEN
//T032_Usuarios.T032_Usuarios_ID = GET_SEQ(T032_Usuarios) // numerador automatico feito via sequence no banco oracle/postgresql se usar hfsql pode remover essa linha
ok
=
HAdd
(
T032_Usuarios
)
IF
ok
=
False
THEN
erro
+
+
END
ELSE IF
gs
_Acao
=
"Alterar"
ok
=
HModify
(
T032_Usuarios
)
IF
ok
=
False
THEN
erro
+
+
END
END
IF
ok
=
True
THEN
erro
+
=
SecWin_CadastraUsuarioXDiretiva
(
T032_Usuarios.T032_Usuarios_ID
,
T032_Usuarios.T032_Login
)
END
IF
erro
=
0
THEN
HTransactionEnd
(
MyHfsql01
)
//commit
ELSE
HTransactionCancel
(
MyHfsql01
)
//rollback
END
TableDisplay
(
TABLE_
T032_Usuarios
,
taInit
)
{
gs
_NameWindow
,
indWindow
}
..
Plane
=
1
gs
_Acao
=
""
gn
_Id
=
0
// Summary: <specify the procedure action>
// Syntax:
//[ <Result> = ] SecWin_CadastraUsuarioXDiretiva (<gUsuarioID>, <gLogin>)
//
// Parameters:
//
gUsuarioID:
//
gLogin: <specify the role of gLogin>
Procedure
SecWin_CadastraUsuarioXDiretiva
(
gUsuarioID
,
gLogin
)
erro
is
8
-
byte int
=
0
FOR
E
ACH T034_UsuarioXDiretiva
IF
T034_UsuarioXDiretiva.T032_Usuarios_ID
=
gUsuarioID
THEN
IF
HDelete
(
T034_UsuarioXDiretiva
) =
False
erro
+
+
END
END
END
FOR
E
ACH T033_Diretivas
T034_UsuarioXDiretiva.T032_Usuarios_ID
=
gUsuarioID
T034_UsuarioXDiretiva.T034_Login
=
gLogin
T034_UsuarioXDiretiva.T033_Diretivas_ID
=
T033_Diretivas.T033_Diretivas_ID
T034_UsuarioXDiretiva.T034_Janela
=
T033_Diretivas.T033_NomeJanela
T034_UsuarioXDiretiva.T034_Status
=
1
IF
HAdd
(
T034_UsuarioXDiretiva
) =
True
erro
+
+
END
END
RESULT
erro
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Report
0
0
BOLLER
#2
Registered member
3,651 messages
Popularité : +175 (223 votes)
Posted on March, 28 2020 - 2:39 PM
IF
erro
=
0
THEN
HTransactionEnd
(
MyHfsql01
)
//commit
Info
(
"Gravou com sucesso!"
)
ELSE
HTransactionCancel
(
MyHfsql01
)
//rollback
Info
(
"Procedimento cancelado"
)
END
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Report
1
0
BOLLER
#3
Registered member
3,651 messages
Popularité : +175 (223 votes)
Posted on March, 28 2020 - 2:50 PM
É possivel tambem ter variaveis auxiliares para contabilizar erros e tempo de execução
datahoraInicial
is
datetime
=
DateSys
(
) +
TimeSys
(
)
transactionsstart
(
...
........)
erro
+
=
proc01
( )
erro
+
=
proc02
( )
datahorafinal
is
datetime
=
DateSys
(
) +
TimeSys
(
)
//ip do terminal ou login reservar
IF
ErrorInfo
(
) <
>
0
erro
+
+
END
IF
erro
=
0
THEN
HTransactionEnd
(
MyHfsql01
)
//commit
Info
(
"Gravou com sucesso!"
)
ELSE
HTransactionCancel
(
MyHfsql01
)
//rollback
Info
(
"Procedimento cancelado"
)
END
Log
(
Login
,
datahoraInicial
,
datahorafinal
,
erro
)
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Report
0
0
→ Go back to WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Close this window
Search type
Only topics
All the messages
Search period
Any time
Past hour
Past 24 hours
Past week
Past month
Past year
Cancel
Preview of your message
Adding an image
Import an image from a URL
Send an image from a file of your disk
Drop a file or click "Browse..."
or
Cancel
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Text