Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS Manutenção de Ativos

Linha de Produto:

Linha Protheus

Segmento:

Manufatura

Módulo:

TOTVS Manufatura (Linha Protheus) - Manutenção de ativos (SIGAMNT)

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

Exemplo MNTA5102()
#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

  • Não se aplica.