Árvore de páginas

Ponto-de-Entrada: MNTA420E - 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:
Chamado depois da confirmação da inclusão de algum insumos previsto na O.S. Corretiva. Como exemplo para gravar algum campo de usuário.
Programa Fonte
MNTA420.PRW
Sintaxe

MNTA420E - Ordem de Serviço Corretiva ( ) --> .T.

Retorno
    .T.(logico)
  • Verdadeiro
Exemplos
User Function MNTA420E()  Local i For i:= 1 to Len(aGetIns)     DbSelectArea("STL")    DbSetOrder(1)    If DbSeek( xFilial("STL") + cOSAtu + "000000" + "0     " + aGETINS[i][nTIP] + aGETINS[i][nCOD] )	RecLock("STL",.F.)	STL->TL_NUMRMS := SZA->ZA_NUM	MsUnlock("STL")    EndIfNext i	Return .t.