Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada usado no Retorno de O.S em Lote (MNTA510) para considerar o filtro.

Características do Requisito 

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

Manutenção de Ativos

Rotina:

Rotina

Nome Técnico

MNTA510

Retorno de OS em Lote

Chamados Relacionados

 

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

P.E utilizado para considerar os parâmetros de filtro no Retorno de O.S em Lote (MNTA510).

Para utilização do exemplo abaixo, deverá ser cadastrado, via configurador, no grupo de perguntas (SX1) 'MNT510' os parâmetros MV_PAR11 e MV_PAR12.

Localização:

Módulo de Manutenção de Ativos e Gestão de Frotas (SIGAMNT): Atualizações / Retorno O.S. / Em Lote.

Eventos:

Retorno de O.S em Lote (MNTA510).

Programa Fonte:

MNTA510.PRX

Função:

MNTA5102()

Retorno:

Nome

Tipo

Descrição

Obrigatório

cCONDEN

Caractere

Array com o campo a ser adicionado.

Sim

Exemplo:

#Include 'Protheus.ch'
User Function MNTA5102()

Local cCONDEN := ""
Local cUsuIni := MV_PAR11
Local cUsuFim := MV_PAR12
Local aUsers, nG

If Empty( cUsuIni ) .And. Empty( cUsuFim )
    cCONDEN := '.T.'
    Return cCONDEN 
EndIf

aUsers := AllUsers()
For nG := 1 To Len( aUsers )
    If aScan( aUsers[ nG ][ 1 ], { | x | AllTrim( x ) == AllTrim( cUsuIni ) } ) > 0
        cUsuIni := aUsers[ nG ][ 1 ][ 2 ]
    EndIf
    If aScan( aUsers[ nG ][ 1 ], { | x | AllTrim( x ) == AllTrim( cUsuFim ) } ) > 0
        cUsuFim := aUsers[ nG ][ 1 ][ 2 ]
    EndIf
Next nG

If Empty( cUsuIni ) 
    cCONDEN := "STJ->TJ_USUAINI <= " + ValToSql( cUsuFim )
Else
    cCONDEN := "STJ->TJ_USUAINI >= " + ValToSql( cUsuIni ) + " .And. STJ->TJ_USUAINI <= " + ValToSql( cUsuFim )
EndIf

Return cCONDEN