Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS Manutenção de Ativos

Linha de Produto:

Linha Protheus

Segmento:

Manufatura

Módulo:

TOTVS Manufatura (Linha Protheus) - Manutenção de ativos (SIGAMNT)

Função:

NGNOGERASA()

País:Brasil


02. DESCRIÇÃO

Descrição

Ponto de Entrada que permite validar a Geração de Solicitação ao Armazém no modulo de Manutenção de Ativos e Gestão de frotas.

Variáveis passadas por parâmetro para o Ponto de Entrada:

cCodProd - Código do Produto onde é criado a Solicitação de Armazém.

cNumOP - Número da Operação formado por "Numero da OS/SS origem" + "Sigla de origem SS/OS" + "001"

nQtd - Quantidade do produto requisitado no momento.

cAlmox - Almoxarifado em que o produto se encontra (Local de Estoque).

dDatGerasa - Data da Geração da Solicitação de Armazém.

cCCGerasa - Centro de Custo da S.A.

If(cObs = Nil,cBemGeraSA,If(Empty(cObs),cBemGerasa,cObs)) - Observação para gravar na Solicitação do Armazém.

cItemSA - Item da Solicitação ao Almoxarifado.

aBLO - Array multidimensional contendo os insumos para realizar o bloqueio.

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Ordem de Serviço/Corretiva.

Evento:

Cadastro de O.S. corretiva. - (MNTA420)

Inclusão de O.S. de reforma. - (MNTA450)

OBS: Se os parâmetros MV_NGMNTES e MV_NGGERSA estiverem com o conteúdo igual a 'S', o Ponto de Entrada é chamado na liberação de uma Ordem de Serviço, antes de gerar uma Solicitação ao Armazém.

Programa Fonte:

MNTUTIL_OS.PRW

Função:

NGNOGERASA()

Retorno:

NomeTipoDescriçãoObrigatório
lRetPELógicoRetorna .T. para a solicitação do armazém não ser gerada.Sim

03. DEMAIS INFORMAÇÕES

Exemplo NGNOGERASA()
#Include 'PROTHEUS.ch'
//+------------------------------------------------------------------------------
//  - Retorna - .T. para não gerar Solicitação de Armazém.
//            - .F. para gerar Solicitação de Armazém.
//+------------------------------------------------------------------------------
User function NGNOGERASA()
 
    Local lRetPE := .F.
 
    lRetPE := MsgYesNo("Deseja cancelar a geração de solicitação ao armazém?")
 
Return lRetPE


04. ASSUNTOS RELACIONADOS

  • Não se aplica.