Linha Microsiga Protheus

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 4 minutos

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:MNTA420U()
País:Brasil


02. DESCRIÇÃO

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: Em Atualizações > Controle de Oficina > Ordens de Serviço > Corretiva.

Programa Fonte:

MNTA420.prw

Função:

MNTA420U()

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:

NomeTipoDescriçãoObrigatório

lRet

Lógico

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

X

03. DEMAIS INFORMAÇÕES

Exemplo 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


04. ASSUNTOS RELACIONADOS

  • Não se aplica.