import.css=/download/attachments/327912/newLayout.css |
Ponto-de-Entrada: MNTA4104 - Ordem de Serviço Manual
Descrição:
Chamado depois da confirmação de uma O.S. Manual, onde por exemplo, faz a gravação de algum campo de usuário.
Programa Fonte
MNTA410.PRX
Sintaxe
MNTA4104 - Ordem de Serviço Manual ( )
Retorno
Exemplos
User Function MNTA4104() Local iFor i:= 1 to Len(aGetIns) DbSelectArea("STL") DbSetOrder(1) If DbSeek( xFilial("STL")+cOSAtu+STL->TL_PLANO+aGETINS[i][1]+aGETINS[i][nTIP]+aGETINS[i][nCOD] ) RecLock("STL",.F.) STL->TL_NUMRMS := SZA->ZA_NUM MsUnlock("STL") EndIfNext i Return .t. |