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 ³POA011FT º Autor ³ Otavio Favarelli º Data ³ 16/01/13 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDescricao ³ º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ MIL º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function POA011FT
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çao da funçao FilBrowse().

Eventos de chamada do Ponto de Entrada

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Endereca a funcao de BROWSE ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
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("POA011FT") // Ponto de Entrada para Filtro no Browse
cFiltroX11 := ExecBlock("POA011FT")
FilBrowse('VS1',{}, cFiltroX11) // Filtra as compras
elseIf 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