Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Manufatura | ||||
Módulo: | SIGAEST - Estoque e Custos | ||||
Rotina: |
| ||||
Cadastros Iniciais: | Cadastro de produto e Saldo inicial. | ||||
Ponto de Entrada: | MA106VLG | ||||
| Requisito (ISSUE): | MMAN-3398 | ||||
País(es): | Todos | ||||
Banco(s) de Dados: | Todos Homologados pela TOTVS | ||||
Sistema(s) Operacional(is): | Todos Homologados pela TOTVS |
Descrição: | O ponto de entrada verifica as validações internas de bloqueio orçamentário antes de Gerar a Pré-Requisição. | ||||||||
Eventos: | O ponto de entrada é verificado na função A106Proc no momento de Gerar a Pré-Requisição. (Variável nOpcA = 1). | ||||||||
Programa Fonte: | MATA106.PRX | ||||||||
Retorno: |
|
Exemplo:
#Include 'Protheus.ch'
User Function MA106VLG()
Local lRet := .T.
//Validações do usuário.
Return lRet
local cQuery := ""
local alista := {}
Local N := 0
Local cTexto := ""
DbSelectarea('SCP')
DbSetorder(1)
DbSeek(xFilial('SCP'))
Do While !EOF() .and. CP_FILIAL = xfilial('SCP')
If CP_PREREQU <> 'S' .and. CP_OK == ThisMark()
aadd(alista,{CP_FILIAL,CP_NUM, CP_PRODUTO,CP_QUANT, CP_SOLICIT})
EndIf
DbSkip()
enddo
cTexto := "As seguintes SA e solicitante foram marcadas :"
for n:= 1 to len(aLista)
cTexto += alista[n,2]+'/'+alista[n,5]+' ;'
next n
If MsgYesNo (cTexto+ ' Gerar agora ??? ')
lRet := .T.
Else
lRet := .F.
Endif
Return lRet
