TCCommit é uma função não documentada no TDN (não para nós, meros mortais). Ela é uma função de uso Exclusivo com o dbAcces (TOPCONN) e possui as seguintes características.
Função:TCCommit( nOpc , uParam ) | ||||||||||||||||
|
Um exemplo de uso para a TCCommit é o programa U_R3V2Sal.prg (usado pelo meu “Brother” Rodrigo “OverFail” para retornar o salário do funcionário a partir do SR3 e de acordo com a Data de Referência. Rodrigo teve que recalcular a Folha de Pagamento de uma Empresa do ano de 2011) .
#INCLUDE "PROTHEUS.CH" Local aArea := GetArea() Local cCRLF := CRLF Local cSRASqlName := RetSqlName("SRA") Local nSalario := 0 DEFAULT cFil := SRA->RA_FILIAL cKeySeek += ( cFil + cMat ) cQuery += "UPDATE" + cCRLF TRYEXCEPTION TcCommit(1,ProcName()) //Begin Transaction IF ( TcSqlExec( cQuery ) < 0 ) TcCommit(2,ProcName()) //Commit CATCHEXCEPTION TcCommit(3) //RollBack ENDEXCEPTION RestArea( aSRAArea ) Return( nSalario ) |
outro exemplo:
#ifdef TOP |
[]s
иαldσ dj
A função ficou show no Roteiro de Calculo!!!! Rodrigo OverFail feat Naldo Dj ON x TOTVS-ABM Off... hehehehe!!!!
ResponderExcluirCorrigi os valores dos parâmetros:
ResponderExcluirFunção:TCCommit( nOpc , uParam )
nOPC : Obrigatório Tipo Numérico, define as opções para TCCommit
uParam : Opcional Tipo Indefinido.
Onde nOPC
1 Begin Transaction
2 End Transaction
3 RollBack
4 Commit
5 Especifico para AS/400?