import.css=/download/attachments/327912/newLayout.css |
Ponto-de-Entrada: MNTA420G - Exclusão de Ordem de Serviço Corretiva
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
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. |