Exemplo de Rotina Automática - Cadastro de Afastamentos - GPEA240

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(aCampos , {"R8_SEQ", "001" , 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("Afastamento incluído com sucesso!")

Endif

RETURN

Programa Fonte

GPER240.PRX