POA011FT - Personalização do Browse do Orçamento por Fases

Descrição

Este Ponto de Entrada está localizado na rotina Orçamento por Fases (OFIXA011), permitindo 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

Microsiga Protheus_11

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