PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → WX -  Cancelamento de transações no HFSQL
WX - Cancelamento de transações no HFSQL
Iniciado por BOLLER, abr., 21 2018 1:13 AM - Sem resposta
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em abril, 21 2018 - 1:13 AM
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/