Ponto-de-Entrada: GPM70001 - Lanç. Mensais/ Lanç. Futuros
Versões: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
Compatível Países: | Brasil |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Idiomas: | Espanhol , Inglês |
Descrição:
Esta implementação possibilita a manipulação dos dados gravados nas tabelas de Lançamentos Mensais (SRC) e Lançamentos Futuros (SRK).
Eventos
O Ponto de Entrada será chamado após a gravação de cada lançamento, sendo assim, em cada entrada no P.E. a linha posicionada na tabela SRC ou SRK será o último registro incluído/alterado.
Programa Fonte
GPM70001.PRW
Sintaxe
GPM70001 - Lanç. Mensais/ Lanç. Futuros ( [ cFil ], [ cMat ], [ cVerba ], [ nDestino ] ) --> Nil
Parâmetros:
Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
cFil | Caracter | Filial corrente | |||||||||||||||
cMat | Caracter | Última matrícula gravada | |||||||||||||||
cVerba | Caracter | Última verba gravada | |||||||||||||||
nDestino | Numérico | Identifica a tabela de destino: 1 = Lançamento Mensal (SRC) , 2 = Lançamentos Futuros (SRK) |
Retorno
-
Nil(nulo)
Observações
Serão passados quatro variáveis para a função do usuário via ParamIXB.
cFil := ParamIXB[1]
cMat := ParamIxb[2]
cVerba := ParamIxb[3]
nDestino := ParamIxb[4]
A tabela estará posicionada sempre no último registro incluído/alterado.
Exemplos
#INCLUDE 'RWMAKE.CH'/*±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± Este Ponto de Entrada devera ser utilizado para manipulacao dos dados ±±±± gravados na tabala de Lanc. Mensais (SRC) ou Lanc. Futuros (SRK) ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±*/USER FUNCTION GPM70001Local cFil := Paramixb[1] //-- Filial correnteLocal cMat := Paramixb[2] //-- MatriculaLocal cVerba := Paramixb[3] //-- VerbaLocal nDestino := Paramixb[4] //-- 1 = Lanc. Mensal (SRC) / 2= Lanc. Futuros (SRK)Local dDataPag := CtoD("//")//Neste exemplo o P.E. esta sendo utilizado para aumentar em 1 dia a data de pagamento. If nDestino == 1 dDataPag := SRC->RC_DATA SRC->RC_DATA := dDataPag + 1 SRC->( MsUnlock() )Else dDataPag := SRK->RK_DTVENC SRK->RK_DTVENC := dDataPag + 1 SRK->( MsUnlock() )EndIfReturn Nil
Variáveis
Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
Array of Record | Global | Não |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas