POXA011FBR - Filtro do browse do Orçamento por Fases.

Descrição

Este ponto de entrada está localizado na rotina Orçamento por Fases (OFIXA011). Tem como finalidade personalizar o filtro do browse da rotina.

Observações

Exemplos

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³POXA011FBR º Autor ³ Otavio Favarelli º Data ³ 16/01/13 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDescricao ³ º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ MIL º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function POXA011FBR
MsgInfo("Ponto de entrada 'POXA011FBR' executado com sucesso!")
Return

Preview

Veja também

Idioma

Português(Brasil)

Versões

Todas

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

Retorno

cFiltroX11 - informe as instruções em linguagem ADVPL para utilização da função FilBrowse().

Eventos de chamada do Ponto de Entrada

DBSelectArea("VAI")
DBSetOrder(4)
DBSeek(xFilial("VAI")+__cUserId)
cFilVend := ""
cFilFase := ""
if VAI->VAI_TIPTEC == "4"
cFilVend := 'VS1->VS1_CODVEN="'VAI->VAI_CODVEN'" .AND.'
endif
if Alltrim(VAI->VAI_FASORC) != ""
cFilFase := '.AND. VS1->VS1_STATUS $ "' + Alltrim(VAI->VAI_FASORC) + '"'
endif
//
dbSelectArea("VS1")
dbSetOrder(1)
//
If ExistBlock("POXA011FBR") // Ponto de Entrada para Filtro no Browse
cFiltroX11 := ExecBlock("POXA011FBR")
FilBrowse('VS1',{},cFilVend + 'VS1->VS1_TIPORC $ "12"' + cFilFase + cFilAgend + ' .AND. ' + cFiltroX11) // Filtra as compras
Else
FilBrowse('VS1',{},cFilVend + 'VS1->VS1_TIPORC $ "12" ' + cFilFase + cFilAgend) // Filtra as compras
Endif
//
mBrowse( 6, 1,22,75,"VS1",,,,,,aCores)
//

VS1->(dbClearFilter())

Variáveis

Programa Fonte

OFIXA011.PRW