Exemplo de Rotina Automática - Programação de Férias - GPEA050

Descrição

Exemplo do funcionamento da rotina automática de Programação de Férias.

Exemplos

#include "tbiconn.ch"
#include "protheus.ch"

User Function progfer()

Local aCamp1 := {}
Local aIten1 := {}

PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01 " MODULO "GPE"

AADD(aCamp1 , {"RF_FILIAL" , 'D MG 01 ' , NIL})
AADD(aCamp1 , {"RF_MAT" , '000030' , NIL})
AADD(aCamp1 , {"RF_DFALVAT" , 10 , NIL})
aAdd(aIten1 , aCamp1)

MsExecAuto( { |a,x,y| Gpea050(a,x,y)}, NIL , aCamp1, 4)// 2 - Visualizar, 4 - Manutencao,, 5 - Exclusao

RESET ENVIRONMENT

Return()

Programa Fonte

GPEA050.PRX