Linha Microsiga Protheus

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 4 minutos

01. DADOS GERAIS

Produto:

TOTVS Manutenção de Ativos

Linha de Produto:

Linha Protheus

Segmento:

Manufatura

Módulo:

TOTVS Manufatura (Linha Protheus) - Manutenção de ativos (SIGAMNT)

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:

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:

NomeTipoDescrição

cObsServ

Carácter

Observação da S.S.

03. DEMAIS INFORMAÇÕES

Exemplo MNTA435M()
#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.