GPM70001 - Lanç. Mensais Lanç. Futuros -- 10362

Esta implementação possibilita a manipulação dos dados gravados nas tabelas de Lançamentos Mensais (SRC) e Lançamentos Futuros (SRK).

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.

GPM70001.PRW

GPM70001 - Lanç. Mensais/ Lanç. Futuros ( [ cFil ], [ cMat ], [ cVerba ], [ nDestino ] ) --> Nil

Nil(nulo)

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.

#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