Tempo aproximado para leitura: 00:02:00 min

Dúvida
Como validar as informações digitadas através do Ponto de Entrada MT100LOK?

Ambiente
Cross Segmento - Backoffice (Linha Protheus) – ADVPL – A partir da versão 11.80

Solução
Para buscar os valores da linha para a validação do ponto é necessário acessar o aCols da rotina no momento do ponto.

#Include 'Protheus.ch'

User Function MT100LOK()
Local _nCC := acols[1][20] // centro de custo da primeira linha.
Local bRet

IF Empty(_nCC)
  bRet := MsgNoYes('Não tem centro de Custo, deseja bloquear?','Bloqueio')
ELSE 
   bRet := .t. 
ENDIF

Return bRet

Saiba mais
MT100LOK