Histórico da Página
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#INCLUDE 'PROTHEUS.CH' #INCLUDE "TBICONN.CH" User Function GP240INC() Local oModel := Nil Local oSubMdl := Nil Local nI := 0 Local aCab := {} Local aItem:= {} Local aItens:={} Local aSeek:= {} Local nTam := TamSx3("R8_SEQ")[1] Local nSeq := 0 Local cRAFilial := "01" Local cMat := "00010" Local dStart := Date() Private cProcesso := "" aEval({'SRA','SR8'},{|x|CHKFILE(x)}) SRA->(DbSetOrder(1)) If(SRA->(DbSeek(cRAFilial + cMat))) oModel := FWLoadModel("GPEA240") oModel:SetOperation(4) if(oModel:Activate()) oSubMdl := oModel:GetModel("GPEA240_SR8") if(oSubMdl:Length() > 1) nSeq := oSubMdl:AddLine() else if(oSubMdl:IsInserted()) nSeq := 1 else nSeq := oSubMdl:AddLine() endIf endIf oSubMdl:SetValue("R8_FILIAL", xFilial("SR8")) oSubMdl:SetValue("R8_MAT" , SRA->RA_MAT) oSubMdl:SetValue("R8_DATA" , dStart) oSubMdl:SetValue("R8_SEQ" , StrZero(nSeq,nTam)) oSubMdl:SetValue("R8_TIPOAFA" , "001") oSubMdl:SetValue("R8_PD" , "305") oSubMdl:SetValue("R8_DATAINI" , dStart) oSubMdl:SetValue("R8_DATAFIM" , dStart) oSubMdl:SetValue("R8_DURACAO" , 1) oSubMdl:SetValue("R8_PROCES" , SRA->RA_PROCES) oSubMdl:SetValue("R8_PER" , AnoMes(dStart)) oSubMdl:SetValue("R8_NUMPAGO" , "01") if(oModel:VldData()) oModel:CommitData() else aLog := oModel:GetErrorMessage() aEval(aLog,{|x|ConOut(x)}) endIf endIf else ConOut("Matrícula inválida -> "+cMat) endIf Return |
04. DEMAIS INFORMAÇÕES
Para uso da rotina de execauto do GPEA240 na versão 11, deve-se considerar a documentação presente no link abaixo:
Exemplo de Rotina Automática - Cadastro de Afastamentos - GPEA240Não há.
05. ASSUNTOS RELACIONADOS
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas