Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Diego Oliveira

Gravado em

comparado com

Nova versão 4

changes.mady.by.user Diego Oliveira

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

PE MNTA6566 Altera visualização de campo na rotina abastecimento de posto interno

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas

Rotina:

MNTA656 - Abastecimento de Posto Interno

Chamados Relacionados

INOVBANCO-13422                                                      

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Permite

que

o

when

dos

campos

do

cabeçalho

(Data/Hora/Tipo

Lançamento/Responsável)

do

Abastecimento

Lote

Posto

Interno

possam

ser

personalizados.

Localização:

SIGAMNT: Atualizações/ Controle de Combustíveis/ Abastecimento/Abast. Lote Posto Interno

Programa Fonte:

MNTA656.prw

Função:

MNTA6566()

Parâmetros:

Nome

Tipo

Descrição

nVarNumerico

Define qual campo está sendo validado.

1 - Data abastecimento

2 - Hora abastecimento

3 - Tipo lançamento

4 - Responsável

lWhenLógico

Condição corrente passada pela rotina padrão, define se o campo estará aberto ou fechado.

.T. - Aberto

.F. - Fechado

nOpcNumerico

Define a operação que esta em execução no momento.

1 - Pesquisar
2 - Visualizar
3 - Incluir
4 - Alterar
5 - Excluir

Retorno:
TipoDescrição
LógicoCondição que define se o campo estará aberto ou fechado

 

Bloco de código
languagecpp
themeEclipse
titleExemplo do ponto de entrada MNTA6566
User Function MNTA6566()
    Local nVar  := PARAMIXB[1]
    Local lWhen := PARAMIXB[2]
    Local nOpc  := PARAMIXB[3]


    If nOpc == 3
        If nVar == 1    //Data
            lWhen := .T.
        ElseIf nVar == 2 //Hora
            lWhen := .T.
        ElseIf nVar == 3 //Tipo lançamento
            lWhen := .F.
        ElseIf nVar == 4 //Responsavel
            lWhen := .T.
        EndIf
    EndIf

Return lWhen