Histórico da Página
01. VISÃO GERAL
Linha de Produto: | Microsiga Protheus |
Segmento: | Serviços |
Módulo: | SIGAGPE |
Função: |
GPEM670 | |
Abrangências: | Microsiga Protheus 12 |
Versões: | Microsiga Protheus |
10 | |
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)O ponto de entrada é executado na finalização do processamento da integração de títulos com o financeiro, para processos do usuário após a conclusão da integração.
03. INFORMAÇÕES TÉCNICAS
...
Programa Fonte: | GPEM670.PRX |
Sintaxe |
: |
4 - Inclusão/Alteração
5 - Exclusão
Array com informações do funcionário a ser feita a manutenção dos lançamentos fixos:
aCabAuto[1] Filial
aCabAuto[2] Matricula
Array com os campos da tabela RG1 - Lançamentos Fixos a serem informados:
O array deve seguir o padrão exigido pela MsGetDAutoSendo 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:
GPM670FIM - Finalização do processamento da integração de títulos ([]) | |
Parâmetros: | Não há |
Retorno: | Nulo |
04. EXEMPLOS
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
Bloco de código | ||||||||||
| ||||||||||
#INCLUDE "PROTHEUS.CH" #INCLUDE "TBICONN.CH" User Function fExecIncGPM670FIM() Local cFilialog := "D MG 01 " Local cMatric cMsg := "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 |
...
Versões: | Microsiga Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
O ponto de entrada é executado após o processo da integração de títulos com o financeiro.
GPEM670.PRX
GPM670FIM - Integração de Títulos ( [ ] )
...
Integração de títulos finalizada! Acionado PE GPM670FIM."
MsgAlert( cMsg )
Return
|
Templatedocumentos |
---|
...
- ()
...