Ponto de entrada chamado na exclusão de uma O.S., permitindo a exclusão de tabelas específicas na rotina de O.S. Corretiva (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 executado na rotina de O.S. Corretiva (MNTA420) ao excluir uma O.S., permitindo a exclusão de uma tabela específica relacionada a O.S. |
Localização: | SIGAMNT: Atualizações/Controle de Oficina/Ordem de Serviço/Corretiva |
Programa Fonte: | MNTA420.prx |
Função: | MNTA420G() |
Retorno: | .T. |
Exemplo do Ponto de Entrada MNTA420G()
#INCLUDE 'PROTHEUS.CH' User Function MNTA420G() DbSelectArea("SZA") DbSetOrder(4) If DbSeek(xFilial("SZA")+STJ->TJ_ORDEM+STJ->TJ_PLANO) While !Eof() .And. SZA->ZA_FILIAL == xFilial("SZA") .And. SZA->ZA_OS == STJ->TJ_ORDEM .And. SZA->ZA_PLANO == STJ->TJ_PLANO RecLock("SZA", .F.) DbDelete() MsUnlock("SZA") DbSelectArea("SZA") DbSkip() End EndIf Return .T.
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas