Histórico da Página
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 |
aCabAuto | Array com informações do funcionário a ser feita a manutenção dos lançamentos fixos: aCabAuto[1] Filial |
aItemAuto | Array com os campos da tabela RG1 - Lançamentos Fixos a serem informados: O array deve seguir o padrão exigido pela MsGetDAuto |
04. EXEMPLOS
Ao efetuar as manutenções, é necessário posicionar no funcionário a ser feito o lançamento conforme exemplos abaixo:
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"
User Function fExecInc()
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 Nil
|
Templatedocumentos |
---|
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: GPM670FIM - Integração de Títulos
Descrição: O ponto de entrada é executado após o processo da integração de títulos com o financeiro. Programa Fonte GPEM670.PRX Sintaxe GPM670FIM - Integração de Títulos ( [ ] ) Parâmetros:
Retorno
Variáveis
|