M380ZEMP - Alteração de Empenho

Este ponto de entrada tem como objetivo permitir ao usuário determinar se o processo de zerar o empenho será, ou não executado quando for confirmada a alteração. É possível  utilizá-lo para determinar, por exemplo, se o usuário tem, ou não permissão para zerar o empenho.LOCALIZAÇÃO: Ponto de entrada localizado na função "A380ZEmp" da rotina de ajuste de empenhos. É nesta função que o usuário confirma se o empenho será, ou não zerado.EM QUE PONTO: Será executado quando o usuário clicar no botão "Zera Empenho Lote/Endereço" durante a rotina de alteração do empenho. UTILIZAÇÃO: Quando o usuário clicar no botão "Zera Empenho Lote/Endereço" o sistema emite um aviso solicitando ao usuário a confirmação para zerar o empenho. Se o PE retornar um valor lógico falso (.F.) o sistema não emitirá o aviso e o processo de zerar empenhos não será realizado.PARÂMETROS DE ENVIO: Nenhum parâmetro é enviado ao ponto de entrada.PARÂMETROS DE RETORNO: Deverá ser retornado um valor lógico verdadeiro (.T.) ou falso (.F.) indicando ao sistema se o processo de zerar empenhos será ou não realizado.

null

MATA380.PRX

M380ZEMP - Alteração de Empenho ( [ ] ) --> lRet

lRet()
• Deverá ser retornado um valor lógico verdadeiro (.T.) ou falso (.F.) indicando ao sistema, se o processo de zerar empenhos será,, ou não realizado.

null

#include "rwmake.ch"#include "protheus.ch"User Function M380ZEMP()Local lRet := .T.If Upper(cUserName) # 'ADMINISTRADOR'    Aviso('PE: M380ZEMP', 'Usuário não tem permissão para zerar empenhos!', {'OK'})    lRet := .F.EndIfReturn lRet