Histórico da Página

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

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

    Private lMsErroAuto := .F.

    PREPARE ENVIRONMENT EMPRESA "T1" FILIAL cFilialog MODULO "GPE"

    	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

			aadd(aLinha, { "LINPOS", "RG1_ORDEM", "002" })	// Identificando a linha da grid pela Ordem do lançamento
 		  	//aadd(aLinha, { "AUTDELETA", "S", Nil })	// Uso em caso de exclusão de linha específica
	
			//Informações a serem alteradas
			aAdd(aLinha, { "RG1_VALOR", 500.00, Nil })

			aadd(aItemAuto,aLinha)

			//Chamada do ExecAuto
			MsExecAuto({|a, b, c, d| GPEA550(a,b,c,d)}, nOpcAuto, .T.lAutom, aCabAuto, aItemAuto)

			If !lMsErroAuto
				ConOut("Manutencao concluida!")
			Else
				MostraErro()
			EndIf
		EndIf

    	ConOut("Fim : " + Time())

    RESET ENVIRONMENT   
Return NIL

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

User Function fExecautofExecExcl()
 	Local cFilialog	:= "D MG 01 "
	Local cMatric	:= "000002" 
    Local aTurno aCabAuto	:= {}
    Local aItensaItemAuto := {}	// Enviar vazio
  	Local lAutom	:= .T.	// SeráExecucao enviadosem vaziointerface
    Local nOpcAuto 	:= 0
    5	// Identifica Exclusão

    Private lMsErroAuto := .F.
    
    PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01" cFilialog MODULO "GPE"
    
 	   ConOut("Inicio: " + Time())
    ConOut(PadC("Rotina Automatica Tabela de Horário Padrão", 80))


		dbSelectArea("SRA")
	    dbSetOrder(1)
	    
    aAdd(aTurnoIf SRA->(MsSeek(xFilial() + cMatric))
			aAdd(aCabAuto, {"PJRG1_FILIAL", "D MG 01 ", Nil})		cFilialog,	Nil})    // Código da Filial
    aAdd(aTurno, {"PJ_TURNO" , 		"001", Nil})	// Código do Turno
    aAdd(aTurnoaCabAuto, {"PJRG1_SEMANAMAT", 		 "01", cMatric,	Nil})	// Sequência
    
    // IdentificaMatrícula que será uma Exclusão
    nOpcAuto := 5
    
    do funcionário

			//Chamada do ExecAuto
    MSExecAuto( {|x, y, z| PONA080(x, y, z			MsExecAuto({|a, b, c, d| GPEA550(a,b,c,d)}, aTurnonOpcAuto, aItenslAutom, nOpcAutoaCabAuto, aItemAuto)
    
    
		If !lMsErroAuto
        			ConOut(PadC("CadastroExclusao realizadorealizada!", 80))
    Else
        ConOut(PadC("Erro no cadastro!", 80))
    EndIf
    		Else
			MostraErro()
		EndIf
	EndIf

    ConOut("Fim : " + Time())
    
    RESET ENVIRONMENT
    
Return NIL