Ponto-de-Entrada: IA000FIL - Filtro no BROWSER da rotina Entrada NF de Peças
| 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:
Ponto de entrada na rotina Entrada NF de Peça (OFIIA000), executado no momento do levantamento do BROWSER com a finalidade de filtrar os registros das tabelas VI0.
Eventos
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³ IA000FIL ºAutor ³ MIL º Data ³ 02/06/10 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³Filtra a tabela VI0 antes da chamada do BROWSE º±±
±±º ³ º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function IA000FIL()
Local nRec := FM_SQL("SELECT SF1.R_E_C_N_O_ AS RECSF1 FROM "+RetSqlName("SF1")+" SF1 WHERE SF1.F1_FILIAL='"+xFilial("SF1")+"' AND SF1.F1_DOC='"+VI0->VI0_NUMNFI+"' AND SF1.F1_SERIE='"+VI0->VI0_SERNFI+"' AND SF1.F1_FORNECE = '"+VI0->VI0_CODFOR+"' AND SF1.F1_LOJA = '"+VI0->VI0_LOJFOR+"' AND SF1.D_E_L_E_T_ = ' ' ")
Local lRet := .t.
If nRec > 0
lRet := .f.
EndIf
Return lRet
Programa Fonte
OFIIA000.PRW
Sintaxe
IA000FIL - Filtro no BROWSER da rotina Entrada NF de Peças ( [ ] ) --> lRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| Array of Record |
Retorno
lRet
- (logico)
- Se .f. não aparece no BROWSE
Observações
Function OFIIA000()
Local cFiltro := ""
Private aRotina := MenuDef()
Private cCadastro := OemToAnsi(STR0006)
Private cMarcar:=GetMark()
Private cParam := ""
If ExistBlock("PEIA000") // Ponto de Entrada para desviou de chamada da Rotina de Entrada de NF Peça
ExecBlock("PEIA000",.f.,.f.,{})
Return
EndIf
If ExistBlock("IA000FIL")
cFiltro := ExecBlock("IA000FIL",.f.,.f.)
FilBrowse( "VI0" , {} , cFiltro ) // Filtra Box do Usuario e Status
Endif
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Endereca a funcao de BROWSE ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
Markbrow("VI0","VI0_OK","FS_FILIA000BROW()",,.f.,cMarcar,,,,,,,)
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |