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: |
| ||||||||||
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: |
| ||||||||
Retorno: |
|
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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas