01. VISÃO GERAL

Linha de Produto:Microsiga Protheus®
Segmento:Serviços
Módulo:SIGAGPE
Função:GPEA550 - Lançamentos Fixos
Abrangências:Microsiga Protheus 12
Versões:Microsiga Protheus 12
Sistemas Operacionais:Todos
Compatível com as Bases de Dados:Todos
Nível de Acesso:Nível 1 (Acesso Clientes)
Idiomas:Todos

02. DESCRIÇÃO

Função utilizada para manutenção de lançamentos fixos por funcionários via rotina automática (ExecAuto). Mais informações sobre a rotina em Lançamentos Fixos V12 - (GPEA550 - SIGAGPE - V12).

03. INFORMAÇÕES TÉCNICAS

nOpcAuto

Operação

4 - Inclusão/Alteração
5 - Exclusão

aCabAuto

Array com informações do funcionário a ser feita a manutenção dos lançamentos fixos

aCabAuto[1] Filial
aCabAuto[2] Matricula

aItemAuto

Array com os campos da tabela RG1 - Lançamentos Fixos a serem informados 

O array deve seguir o padrão exigido pela MsGetDAuto
Sendo um array multi dimensional onde cada posição do array aItemAuto correspondente a uma linha da grid.

As informações devem ser passadas seguindo a estrutura:
[nX][1] Nome do campo
[nX][2] Conteúdo do campo
[nX][3] Nil

04. EXEMPLOS

Ao efetuar as manutenções, é necessário posicionar no funcionário a ser feito o lançamento conforme exemplos abaixo.

#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"

User Function fIncAuto()
	Local cFilialog	:= "D MG 01 "
	Local cMatric	:= "000002"
	Local aCabAuto	:= {}
 	Local aItemAuto := {}
	Local aLinha	:= {}
	Local lAutom	:= .T. //execucao sem interface
	Local nOpc		:= 4

	Private lMsErroAuto := .F.

	PREPARE ENVIRONMENT EMPRESA "T1" FILIAL cFilialog
		ConOut("Inicio: " + Time())

		dbSelectArea("SRA")
		dbSetOrder(1)
		If SRA->(MsSeek(xFilial() + cMatric))
			aadd(aCabAuto, { "RG1_FILIAL",	cFilialog,	Nil })		// Código da Filial
			aadd(aCabAuto, { "RG1_MAT",		cMatric,	Nil })		// Matrícula do funcionário

			//Campos RG1 a serem informados
			aadd(aLinha, { "RG1_ORDEM",		"001",				Nil	})	// Ordem do lançamento do funcionário
			aadd(aLinha, { "RG1_TPCALC",	"1",				Nil	})
			aadd(aLinha, { "RG1_PD",		"001",				Nil	})
			aadd(aLinha, { "RG1_VALOR",		1000.00,			Nil	})
			aadd(aLinha, { "RG1_DINIPG",	Ctod("02/02/2024"),	Nil	})
			aadd(aLinha, { "RG1_ROT",		"FOL",				Nil	})
			aadd(aItemAuto,aLinha)

			//Chama a rotina
			MsExecAuto({|a, b, c, d| GPEA550(a,b,c,d)}, nOpc, lAutom, aCabAuto, aItemAuto)

			//Faz a validacao
			If !lMsErroAuto
				ConOut("Inclusao efetuada!")
			Else
				MostraErro()
			EndIf
		EndIf
		ConOut("Fim : " + Time())

	RESET ENVIRONMENT

Return

    If !lMsErroAuto
		ConOut(PadC("Cadastro realizado!", 80))
	Else
		ConOut(PadC("Erro no cadastro!", 80))
	EndIf
	
	ConOut("Fim : " + Time())
	
	RESET ENVIRONMENT
	
Return NIL


Para realizar uma edição em um registro específico da RG1, é necessário identificar o item pelo recurso LINPOS da MsGetDAuto

#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"

User Function fExecAlt()
	
	Local aTurno := {}
	Local aItens := {}
	Local aAux	 := {}
	Local nOpcAuto := 0
	
	Private lMsErroAuto := .F.
	
	PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01" MODULO "GPE"
	
	ConOut("Inicio: " + Time())
	ConOut(PadC("Rotina Automatica Tabela de Horário Padrão", 80))
	
	aAdd(aTurno, {"PJ_FILIAL", "D MG 01 ", Nil}) 	// Código da Filial
	aAdd(aTurno, {"PJ_TURNO" , 		"001", Nil}) 	// Código do Turno
	aAdd(aTurno, {"PJ_SEMANA", 		 "01", Nil}) 	// Sequência
	
	// Utilizar o campo Dia para posicionar dentro da linha desejada de cada sequência
	// Deve informar o dia por extenso e sem acentos (Domingo, Segunda, Terca... Sabado)
	aAdd(aAux, {"LINPOS", "PJ_DIA", "Segunda" }) // Posiciona na linha
	
	// Adiciona os campos que serão alterados
	aAdd(aAux, {"PJ_ENTRA1" , 09.00, Nil }) // 1a Entrada
	aAdd(aAux, {"PJ_SAIDA1" , 12.00, Nil }) // 1a Saida
	aAdd(aAux, {"PJ_ENTRA2" , 13.00, Nil }) // 2a Entrada
	aAdd(aAux, {"PJ_SAIDA2" , 18.00, Nil }) // 2a Saida
	
	Aadd(aItens, aAux)
	
	// Indica que será uma alteração
	nOpcAuto := 4
	
	//Chamada do ExecAuto
	MSExecAuto( {|x, y, z| PONA080(x, y, z)}, aTurno, aItens, nOpcAuto )
	
	If !lMsErroAuto
		ConOut(PadC("Cadastro realizado!", 80))
	Else
		ConOut(PadC("Erro no cadastro!", 80))
	EndIf
	
	ConOut("Fim : " + Time())
	
	RESET ENVIRONMENT
	
Return NIL


Utilizando a operação 5 - Exclusão é possível excluir todos os registros de um mesmo funcionário, sem especificar a linha do grid.
Para exclusão de um registro específico, utilizar a opção de alteração acima com os recursos LINPOS e AUTDELETA.

#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"

User Function fExecauto()
    
    Local aTurno := {}
    Local aItens := {} // Será enviado vazio
    Local nOpcAuto := 0
    
    Private lMsErroAuto := .F.
    
    PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01" MODULO "GPE"
    
    ConOut("Inicio: " + Time())
    ConOut(PadC("Rotina Automatica Tabela de Horário Padrão", 80))
    
    aAdd(aTurno, {"PJ_FILIAL", "D MG 01 ", Nil})	// Código da Filial
    aAdd(aTurno, {"PJ_TURNO" , 		"001", Nil})	// Código do Turno
    aAdd(aTurno, {"PJ_SEMANA", 		 "01", Nil})	// Sequência
    
    // Identifica que será uma Exclusão
    nOpcAuto := 5
    
    //Chamada do ExecAuto
    MSExecAuto( {|x, y, z| PONA080(x, y, z)}, aTurno, aItens, nOpcAuto )
    
    If !lMsErroAuto
        ConOut(PadC("Cadastro realizado!", 80))
    Else
        ConOut(PadC("Erro no cadastro!", 80))
    EndIf
    
    ConOut("Fim : " + Time())
    
    RESET ENVIRONMENT
    
Return NIL