Histórico da Página
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: |
| ||||||||
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. nItemSA 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: |
|
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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 |