Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (sueli.gomides), última alteração por admin em 24 jun, 2012

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.