Linha Microsiga Protheus

Árvore de páginas

PONTO DE ENTRADA PARA INCLUIR OU ALTERAR VALORES DOS CAMPOS DA TABELA SCP

Características do Requisito

Linha de Produto:

Microsiga Protheus.

Segmento:

Manufatura.

Módulo:

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

Rotina:

Rotina

Nome Técnico

MNTA420.

O.S. Corretiva.

Rotina(s) envolvida(s)

Nome Técnico

MNTA410

O.S. Preventiva.

MNTA340Confirmação

MNTA990

Programação de O.S.
MNTA420O.S. Corretiva.

Parâmetro(s):

MV_NGMNTES = S, MV_NGGERSA = S.

Tickets relacionados

3273900.

País(es):

Todos.

Banco(s) de Dados:

Todos.

Ponto de Entrada

Descrição:

Ponto de entrada que possibilita incluir ou alterar valores dos campos da tabela SCP. Com exceção dos campos CP_NUM, CP_EMISSAO, CP_ITEM, CP_PRODUTO, CP_LOCAL, CP_DATPRF e CP_OP que são utilizados nos índices da tabela o restante é editável.

Localização:

SIGAMNT - Em Atualizações > Controle de Oficina > Ordem de Serviço > Corretiva.

Programa Fonte:

MNTUTIL_OS.

Função:

NGGERASA()

Parâmetros:
NomeTipoPode alterarDescrição
cCodProdCaractérSim.

Código do Produto.

cNumOPCaractérSim.Número da ordem de produção.
aBLOArrayNão.Array com os Insumos(STL).
cItemPosCaracterSim.Código do Item.
cPLNCaractérSim.Plano da OS.

Retorno:

Nome

Tipo

Descrição

Obrigatório

aRet

Array

Array que irá retornar com os novos valores, deverá possuir 2 posições sendo uma do array aCab e outra do aItem.

Sim

Exemplo do ponto de entrada NGALTSCP
#Include 'Protheus.ch'

User Function NGALTSCP()

    Local cCodProd  := PARAMIXB[1] //Código do Produto
    Local cNumOP    := PARAMIXB[2] //Numero da ordem de produção
    Local aInsSTL   := PARAMIXB[3] //Array com os Insumos(STL)
    Local cItemPos  := PARAMIXB[4] //Código do Item
    Local cPlano    := PARAMIXB[5] //Plano da OS
    Local cTipoReg  := "P"         //Sempre sera realizado apenas para insumos do tipo produto
    Local cSeqRela  := "0  "       //Apenas altera para insumos previstos

    Local aRet      := {} //Array com os novos valores para atualizar a SCP
    Local aRetCab   := {}
    Local aRetItem  := {}
    Local cObsSTL   := ""

    dbselectArea( "STL" )
    dbsetorder(2) //TL_FILIAL+TL_TIPOREG+TL_SEQRELA+TL_CODIGO+TL_ORDEM+TL_PLANO
    If dbSeek( xFilial("STL") + cTipoReg + cSeqRela + cCodProd + cNumOP + cPlano)
        cObsSTL :=  STL->TL_OBSERVA
    EndIf

    aRetItem := { {"CP_OBS" ,cObsSTL ,NIL} }

    aAdd( aRet , aRetCab )
    aAdd( aRet , aRetItem )

Return aRet