Home

Linha Microsiga Protheus

Páginas filhas
  • Exemplo de Rotina Automática - Cadastro de Afastamentos - GPEA240

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

poirly

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("Título Afastamento incluído com sucesso!")

Endif

 

RETURN

Programa Fonte

GPER240.PRX