Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: OPM030FIL - Criação de Filtro do Índice Temporário
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil)
Descrição: 
Este Ponto de Entrada está localizado na rotina OFIPM030, permitindo criar o filtro do índice temporário.
Eventos
User Function OPM030FIL()
cRet := ParamIXB[1]
MsgInfo(“Ponto de Entrada OPM030FIL”,”Atencao”)
cRet := “”
return cRet 
Programa Fonte 
OFIPM030.PRW
Sintaxe

OPM030FIL - Criação de Filtro do Índice Temporário ( [ ] ) --> cRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
Array of Record
Retorno
    cRet(logico)
  • Filtro do indice temporário.
Observações
 tatic Function F045SE1(cAliasE1,cIndexE1,cChaveE1,cForE1)
Local cTipTit := Left(Alltrim(GetNewPar("MV_TIPPER","TP"))+space(3),Len(SE1->E1_TIPO)) // Tipo de Titulo Provisorio
Dbselectarea("SE1")
cAliasE1 := "SE1"
cIndexE1 := CriaTrab(nil,.f.)
cChaveE1 := "E1_FILIAL+E1_CLIENTE+E1_LOJA+E1_PORTADO"
If Empty(MV_PAR02)
cForE1 := 'E1_TIPO=="'+cTipTit+'"' // Seleciona apenas os Titulos Provisorios PADRAO ( "MV_TIPPER" )
Else
cForE1 := '(E1_TIPO$"'+MV_PAR02+'" .and. E1_VALOR==E1_SALDO)' // Tipo de Titulos escolhido pelo usuario
Endif
 
If ExistBlock("OPM030FIL")
cForE1 += ExecBlock("OPM030FIL",.F.,.F.)
EndIf
 
IndRegua(cAliasE1,cIndexE1,cChaveE1,,cForE1,STR0002) //"Selecionando Registros"
nIndexE1 := RetIndex("SE1")
dbSelectArea(cAliasE1)
#IFNDEF TOP
dbSetIndex(cIndexE1+OrdBagExt())
#ENDIF
dbSetOrder(nIndexE1+1)
nIndSE1 := nIndexE1+1
Return
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não