PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 23 → WX - Cancelamento de transações no HFSQL
WX - Cancelamento de transações no HFSQL
Débuté par BOLLER, 21 avr. 2018 01:13 - Aucune réponse
Membre enregistré
2 864 messages
Popularité : +89 (91 votes)
Posté le 21 avril 2018 - 01:13
boa noite!

Segue abaixo exemplo de uma procedure feita pelo meu cliente Paulo Viana de Brumado - BA

A algum tempo atrás comentei sobre o cancelamento de transações no HFSQL

Essa rotina faz o processo e disponibiliza acesso a tabela

//Libera tabelas
Procedure glo_cancelar_transacao()

HCheckStructure("*",hNoCheck)

Tabelas is string=HListFile(hLstAll) //captura nome das tabelas




FOR EACH STRING sResultado OF Tabelas SEPARATED by CR

ToastDeleteAll()

ToastDisplay("Aguarde - "+sResultado,toastShort,vaMiddle,haCenter)

HTransactionFree(sResultado)

END




ToastDeleteAll()

ToastDisplay("Aguarde - conexao 01",toastShort,vaMiddle,haCenter)HTransactionCancel(conexao01)ToastDeleteAll()

ToastDisplay("Aguarde - conexao 02",toastShort,vaMiddle,haCenter)HTransactionCancel(conexao02)ToastDeleteAll()

ToastDisplay("Aguarde - conexao 03",toastShort,vaMiddle,haCenter)HTransactionCancel(conexao03)ToastDeleteAll()

ToastDisplay("Aguarde - conexao 01",toastShort,vaMiddle,haCenter)

HTransactionCancel(conexao03)



Info("Fim de processamento, sistema sera finalizado")

EndProgram()


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/