Histórico da Página

Descrição

Exemplo do funcionamento da rotina automática de afastamentos.

Exemplos

USER FUNCTION GP240INC()
Local aCampos := {}
Local aItens := {}

PRIVATE lMsErroAuto := .F

AADD(aCampos , {"R8_MAT" , "000013" , NIL})
AADD(aCampos , {"R8_DATA" , DATE() , NIL})
AADD(aCampos , {"R8_TIPO" , "1" , NIL})
AADD(aCampos , {"R8_DATAINI", DATE()+1 , NIL})
AADD(aCampos , {"R8_DATAFIM", DATE()+30 , NIL})
AADD(aCampos , {"R8_AFARAIS", "20" , NIL})

aAdd(aItens , aCampos)

MsExecAuto( { |a,x,y,z| Gpea240(a,x,y,z)}, NIL , aCampos , aItens , 3) // 3 - Inclusao, 4 - ALTERAR

If lMsErroAuto
MostraErro()
Else
Alert("Título incluído com sucesso!")
Endif

RETURN

Programa Fonte

GPER240.PRX