Perguntas Controle de transações

//No meu execauto informo apenas os campos obrigatórios
Begin Transaction
	MsProcTxt("Incluindo Pedido de Venda (SC5)...")
	MsExecAuto({|x, y, z| Mata410(x, y, z)}, aCab, aDet, 3)
		
	dbSelectArea("SC5")
	dbSetOrder(1)
	If lMsErroAuto
		RollBackSx8()
		MsProcTxt("Ocorreu um erro!")
		MostraErro()
		DisarmTransaction()
		Break
	Else
		MsAguarde({|| AcessaPV(cNumPV,"A410Altera")},"Alterar Pedido de Vendas","Abrindo Pedido de Venda "+cNumPV)
	Endif

End Transaction

//depois que tudo deu certo eu abro o pedido de venda para alterar


Static Function AcessaPV(cPedido,cRotina)
	Local aArea := GetArea()
	Private Inclui    := .F.
	Private Altera    := .T.
	Private nOpca     := 1
	Private cCadastro := "Pedido de Vendas"
	Private aRotina := {}
	
	MsProcTxt("Localizando Pedido de Venda "+cPedido)
	
	DbSelectArea("SC5")
	SC5->(dbSetOrder(1))
	SC5->(dbSeek(xFilial("SC5")+cPedido))
	If SC5->(!EOF())
		MsProcTxt("Abrindo Pedido de Venda "+cPedido)
		SC5->(DbGoTo(Recno()))
		MatA410(Nil, Nil, Nil, Nil, cRotina)
	Endif
	SC5->(DbCloseArea())
	MsProcTxt("Fim")
	RestArea(aArea)
Return