Linha Microsiga Protheus

Árvore de páginas

PONTO DE ENTRADA QUE PERMITE VALIDAR A GERAÇÃO DE SOLICITAÇÃO AO ARMAZÉM (S.A.).

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas

Rotina:

Rotina

Nome Técnico

MNTUTIL_OS

Funções Genéricas relacionadas à O.S.

Rotina(s) envolvida(s)

Nome Técnico

MNTUTIL_OS

MNTA420

MNTA450

Funções Genéricas relacionadas à O.S.

Cadastro de O.S. corretiva.

Inclusão de O.S. de reforma.

Chamados Relacionados

MNG-4557

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

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.


Eventos:

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
Exemplo 1
#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