Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada executado para inibir a tela de preenchimento do código de produto e almoxarifado na rotina de Esquema de Rodados (MNTA231)

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

MNTA420

O.S. Corretiva




Rotina(s) envolvida(s)

Nome Técnico

MNTA231Movimentação de Esquema de Pneus

MNTA2319

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 executado na rotina de Esquema de Rodados (MNTA231) para inibir a tela de preenchimento de produto e almoxarifado

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Ordem de Serviço/Corretiva. Outras Ações: Rodados

Programa Fonte:

MNTA231.prx

Função:

MNTA2319()


Parâmetros:
NomeTipoDescrição
ParamIXBCaracterIndica o bem usado na movimentação

Retorno:

Nome

Tipo

Descrição

Obrigatório

 aRet

Array

Array bidimensional, sendo a primeira posição o código do produto destino e a segunda o código do almoxarifado destino

X

 

Exemplo do Ponto de Entrada MNTA2319()
#Include 'Protheus.ch'

User Function MNTA2319()

    Local aRet      := {}
    Local cRod      := ParamIXB[1] //Código do Rodado em uso.
    Local cCodPro   := '' //Código do Produto
    Local cCodAlm   := '' //Código do almoxarifado

    //Busca o código do produto e almoxarifado da tabela de bens
    //caso não esteja preenchido, passa por padrão {'01', '01'}

    dbSelectArea("ST9")
    dbSetOrder(1)
    If dbSeek(xFilial("ST9") + cRod )
        cCodPro := If(!Empty(ST9->T9_CODESTO), ST9->T9_CODESTO,'01')
        cCodAlm := If(!Empty(ST9->T9_LOCPAD), ST9->T9_LOCPAD,'01')
    EndIf

    aRet := {cCodPro,; //1ªposição: Código do Produto destino.
             cCodAlm} //2ªposição: Código do Almoxarifado destino.

Return aRet