Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada - MA106VLG

Características

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAEST - Estoque e Custos

Rotina:

Rotina

Nome Técnico

MATA106.PRX

Gerar Pré Requisição

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

Ponto de Entrada

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:

Nome:Tipo:Descrição:Obrigatório:
lRetLógico.T. = Permite Gerar a Pré-Requisição - .T. = Não permite gerar a Pré-Requisição.Sim

 

Exemplo:

#Include 'Protheus.ch'

User Function MA106VLG()

Local lRet := .T.

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