12806314 DRHROTPRT-2571 DT PE Gp110LnOk na rotina de Lançamento de Valores Futuro

O ponto de entrada Gp110LnOk pode ser utilizado quando o usuário deseja fazer a verificação do conteúdo de algum campo presente na rotina.

Por exemplo:

Se o campo em questão não tem um valor maior do que o estipulado, se o campo não está vazio ou de acordo com o/os parâmetro(s) informado pelo usuário na hora de criar o Ponto de Entrada.

Caso o retorno por algum motivo seja Falso(.F.) a rotina não permitirá Salvar a alteração.

#INCLUDE 'Protheus.ch'

User Function Gp110LnOk()

Local lRet := .F.
Local cMat := "010101"
Local cPd := "002"
Local cCcusto := "000000001"
Local cProces := "00001"

SRK->(DBSETORDER( 1 )) //RK_FILIAL+RK_MAT+RK_PD+RK_CC+RK_PROCES

IF SRK->(DBSEEK( xFilial("SRK") + cMat + cPd + cCcusto + cProces )) // Verifica se a verba existe
lRet := .T.
ENDIF

Return lRet