Ponto-de-Entrada: MNTA420F - Validação de Ordem de Serviço
Versões: | Microsiga Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Idiomas: | Espanhol , Inglês |
Descrição:
Checagem de validação antes da exclusão da O.S., verificando por exemplo alguma condição que a mesma não poderá ser excluída.
Programa Fonte
MNTA420.PRW
Sintaxe
MNTA420F - Validação de Ordem de Serviço ( ) --> .T. / .F.
Retorno
-
.T. / .F.(logico)
- Verdadeiro ou Falso
Exemplos
User Function MNTA420F()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 If SZA->ZA_STATUS == "L" .And. SZA->ZA_LIBOK == "L" MsgStop("O.S. não poderá ser excluida pois existe RMS liberada.","ATENÇÃO") Return .f. EndIf DbSelectArea("SZA") DbSkip() End EndIf Return .t.
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas