Linha Microsiga Protheus

Árvore de páginas

Adiciona descrição da Etapa na S.S. automatica no retorno de O.S. mod 2.

Características do Requisito

Linha de Produto:

Microsiga Protheus.

Segmento:

Manufatura.

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas.

Rotina:

Rotina

Nome Técnico

MNTA435

Retorno Mod. 2

Rotina(s) envolvida(s)

Nome Técnico

MNTA435

Retorno Mod. 2

País(es):

Todos.

Banco(s) de Dados:

Todos.

Sistema(s) Operacional(is):

Todos.

Ponto de Entrada

Descrição:

O ponto de entrada tem como finalidade adicionar a descrição da Etapa na S.S. gerado através da resposta de etapa na rotina de Retorno de O.S. Modelo 2.

Ponto de Entrada é executado ao salvar os dados da O.S.

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Retorno O.S./Retorno Mod. 2(MNTA435).

Programa Fonte:

MNTA435.prw

Função:

fGrava435()

Parametros:
NomeTipoDescrição
PARAMIXB[1]CarácterCampo de Observação que será gravado.
PARAMIXB[2]CarácterCódigo do bem.
PARAMIXB[3]CarácterCódigo da ordem de serviço.
PARAMIXB[4]CarácterCódigo do plano.
PARAMIXB[5]Carácter

Código da tarefa.

PARAMIXB[6]CarácterCódigo da etapa.
PARAMIXB[7]CarácterSequencia da etapa.
Retorno:
Nome
Tipo
Descrição

cObsServ

Carácter

Observação da S.S.



Exemplo 1
#include 'protheus.ch'


//-------------------------------------------------------------------
/*/{Protheus.doc} MNTA435M
Adiciona descrição da Etapa na S.S. automática no retorno de O.S. mod 2.

@author  NG Informática
@since   13/11/2018
@version P12
@return  cObsServ, Carácter,  Observação da S.S.
/*/
//-------------------------------------------------------------------
User Function MNTA435M()


    Local cObsServ := ParamIXB[1]
    Local cCodBem  := ParamIXB[2]
    Local cOrdem   := ParamIXB[3]
    Local cPlano   := ParamIXB[4]
    Local cTarefa  := ParamIXB[5]
    Local cEtapa   := ParamIXB[6]
    Local cSeqEta  := ParamIXB[7]
    Local aArea     := GetArea()
    
    dbselectArea("TPA")
    dbSetOrder(1)//TPA_FILIAL + TPA_ETAPA
    If dbSeek( xFilial("TPA") + cEtapa )
        cObsServ := Chr(13) + Chr(10)
        cObsServ += "Descrição: " + TPA->TPA_DESCRI
    EndIf


    RestArea(aArea)
    

Return cObsServ