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: MNTA420G - Exclusão de Ordem de Serviço Corretiva
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: 
Ponto de entrada chamado na exclusão de uma O.S. Corretiva, fazendo a exclusão por exemplo de alguma tabela específica que esteja relacionada a O.S.
Programa Fonte 
MNTA420.PRW
Sintaxe

MNTA420G - Exclusão de Ordem de Serviço Corretiva ( ) --> .T.

Retorno
    .T.()
Exemplos 
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()   EndEndIf   Return .t.