Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que permite alterar informações após a geração da Solicitação de Compras 

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

MNTUTIL_OS

Funções Genéricas de OS

Rotina(s) envolvida(s)

Nome Técnico

NGGERASC11

Ponto de Entrada

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Ponto de entrada que possibilita alterar informações após a geração da solicitação de compras

Programa Fonte:

MNTUTIL_OS.prw

Função:

NGGERASC11()

Parâmetros:

Nome

Tipo

Descrição

aCamposArray

Array com a chave da do insumo.

[1] STJ->TJ_ORDEM - Número da ordem.

[2] STJ->TJ_PLANO - Número do plano.

[3] STL->TL_TIPOREG - Tipo do insumo.

[4] STL->TL_CODIGO - Código do insumo.

 

Exemplo do Ponto de Entrada NGGERASC11()
#INCLUDE "PROTHEUS.CH"

User Function NGGERASC11()

    //               Filial           Ordem         Plano         Tipo Reg      Codigo     
    Local cKeySTL := xFilial("STL") + ParamIXB[1] + ParamIXB[2] + ParamIXB[3] + ParamIXB[4]
    Local aAreaSTL := STL->(GetArea())

    dbSelectArea("STL")
    dbSetOrder(4)
    If dbseek( cKeySTL )
        MsgInfo("Produto " + Alltrim(ParamIXB[4]) + " insumo é o que originou a S.C.")
    EndIf

    RestArea(aAreaSTL)

Return .T.