Histórico da Página

Preview

Veja também

Idioma

Português(Brasil)

VersõesTodas

Microsiga Protheus 11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

Retorno

Retorno lRetorno variavel logica (.T. ou .f.)

Eventos de chamada do Ponto de Entrada

if lIntegra261  

lMSErroAuto := .f.  

MSExecAuto(\{|x, y| MATA261(x,y)\},aItensNew,3)  

If lMsErroAuto   

MostraErro()   

DisarmTransaction()   

MsgInfo(STR0013,STR0005)   

return .f.  

EndIf

endif

//

//

if !FM_PILHA("OFIOM430")  

OFIXI001(VS1->VS1_NUMORC,.t.)

Endif

// Ponto de entrada depois da gravação da transferencia.

if ExistBlock("OXX002DTR")   

lRetorn := ExecBlock("OXX002DTR",.f.,.f.)   

if !lRetorn   DisarmTransaction()   

return .f.   

Endif

Endif

END TRANSACTION