Exibir origem

01. DADOS GERAIS

Produto:
Linha de Produto:
Segmento:
Módulo:
Função:	MNTA435M()
País:	Brasil

02. DESCRIÇÃO

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 de OS/Retorno Mod. 2

Programa Fonte:

MNTA435.prw

Função:

MNTA435M()

Parâmetros:

Nome	Tipo	Descrição
PARAMIXB[1]	Carácter	Campo de Observação que será gravado.
PARAMIXB[2]	Carácter	Código do bem.
PARAMIXB[3]	Carácter	Código da ordem de serviço.
PARAMIXB[4]	Carácter	Código do plano.
PARAMIXB[5]	Carácter	Código da tarefa.
PARAMIXB[6]	Carácter	Código da etapa.
PARAMIXB[7]	Carácter	Sequencia da etapa.

Retorno:

Nome	Tipo	Descrição
cObsServ	Carácter	Observação da S.S.

03. DEMAIS INFORMAÇÕES

#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

04. ASSUNTOS RELACIONADOS

Não se aplica.