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(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