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: |
| ||||
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: |
|
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