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: |
| ||||||||
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: |
| |||||||||||||||
Retorno: |
|
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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas