Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: GPM70001 - Lanç. Mensais/ Lanç. Futuros
Descrição:
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:
Retorno
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
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas