01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:

Função:MNTA5102()
País:Brasil


02. DESCRIÇÃO

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.

Programa Fonte:

MNTA510.prw

Função:

MNTA5102()

Retorno:

NomeTipoDescriçãoObrigatório

cCONDEN

Caractere

Array com o campo a ser adicionado.

Sim

03. DEMAIS INFORMAÇÕES

#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


04. ASSUNTOS RELACIONADOS