01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:

Função:MNTA330F()
País:Brasil


02. DESCRIÇÃO

Descrição:

Ponto de entrada executado na rotina de Plano de Manutenção (MNTA330) que permite alterar a OS no processo de inclusão de um plano

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Plano Manutenção/Plano

Programa Fonte:

MNTA330.prw

Função:

MNTA330F()

Retorno:

Nulo.

03. DEMAIS INFORMAÇÕES

#INCLUDE "PROTHEUS.CH"
 
User Function MNTA330F()   
 
    Local cPlano := STI->TI_PLANO   
     
    dbSelectArea("STJ")
    dbSetOrder(17) 
    dbSeek(xFilial("STJ")+cPlano)  
    While !Eof() .And. xFilial("STJ") == STJ->TJ_FILIAL .And. STJ->TJ_PLANO == cPlano    
        MsgInfo("Ordem de Serviço gerada: " + STJ->TJ_ORDEM)    
        dbSelectAreA("STJ")    
        dbSkip()   
    EndDo
         
Return


04. ASSUNTOS RELACIONADOS