TOTVS RH - TOTVS RH (Línea Protheus) MI - Gestión de Personal (SIGAGPE) - MsExecAuto para la rutina Gpea240

Duda
Uso de MsExecAuto para la rutina Gpea240

Ambiente
TOTVS RH - TOTVS RH (Línea Protheus) MI - Gestión de Personal (SIGAGPE) - A partir de la versión 12.1.17

Solución
Ejemplo de función de usuario con MsExecAuto para la rutina de Ausencias (Gpea240): 

User Function GP240INC() 
Local aCampos := {}
Local aItens := {}
Local aCposCab := {}

PRIVATE lMsErroAuto := .F.

aAdd(aCposCab, {"RA_FILIAL", "01", NIL})
aAdd(aCposCab, {"RA_MAT", "000001"}, NIL)

AADD(aCampos , {"R8_FILIAL" , "01" , NIL})
AADD(aCampos , {"R8_MAT" , "000001" , NIL})
AADD(aCampos , {"R8_DATA" , DATE() , NIL})
AADD(aCampos , {"R8_TIPOAFA" , "106" , NIL})
AADD(aCampos , {"R8_PD" , "106" , NIL})
AADD(aCampos , {"R8_DATAINI", DATE()+1 , NIL})
AADD(aCampos , {"R8_DURACAO" , 1 , NIL})
AADD(aCampos , {"R8_DATAFIM", DATE()+1 , NIL})
AADD(aCampos , {"R8_SEQ", "001" , NIL})

aAdd(aItens , aCampos)

MsExecAuto( { |a,x,y,z| Gpea240(a,x,y,z)}, NIL , aCposCab , aItens , 3) // 3 - Incluir, 4 - alterar

If lMsErroAuto
    MostraErro()
Else
    Alert("Registro Incluido!")
Endif

Return