Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada para validar a exclusão de uma Solicitação de Compra (MNTA420)

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

MNTA420

O.S. Corretiva

Rotina(s) envolvida(s)

Nome Técnico

MNTA420U

Ponto de Entrada

País(es):

Todos.

Banco(s) de Dados:

Todos.

Sistema(s) Operacional(is):

Todos.

Ponto de Entrada

Descrição:

Ponto de entrada utilizado na rotina de O.S. Corretiva (MNTA420) para validar a exclusão de uma Solicitação de Compra.

Localização:

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

Programa Fonte:

MNTA420.prx

Função:

MNTA430U()

Parâmetros:
NomeTipoDescrição
ParamIXB[1]CaracterFilial da Solicitação de Compra
ParamIXB[2]CaracterOrdem da Solicitação de Compra
ParamIXB[3]CaracterNúmero da Solicitação de Compra
ParamIXB[4]CaracterCódigo da Solicitação de Compra

Retorno:

Nome

Tipo

Descrição

Obrigatório

 lRet

Lógico

Verifica se é permitido excluir a solicitação de compra

X

 

Exemplo do Ponto de Entrada MNTA420U
#Include "Protheus.ch"

User Function MNTA420U()

	Local cFilSC1 := ParamIXB[1]
	Local cOrdem := ParamIXB[2]
	Local cOP := ParamIXB[3]
	Local cCodPSC1 := ParamIXB[4]
	Local aArea := SC1->(GetArea())
	Local lRet := .F.

	dbSelectArea("SC1")
	dbSetOrder(4) //C1_FILIAL+C1_OP+C1_NUM+C1_ITEM
	If dbSeek(cFilSC1+cOrdem+cOP)

		While !Eof() .and. SC1->C1_FILIAL == xFilial("SC1") .And. Alltrim(SC1->C1_OP) == cOrdem+cOP .And. Alltrim(SC1->C1_PRODUTO) == Alltrim(cCodPSC1)

			If MsgYesNo("Deseja excluir a solicitação de compra numero "+ Alltrim(SC1->C1_NUM)+ " item " + Alltrim(SC1->C1_ITEM)+ "? ")
				lRet := .T.
			EndIf

			dbSelectArea("SC1")
			dbSkip()

		End

	EndIf

	RestArea(aArea)

Return lRet