Linha Microsiga Protheus

Árvore de páginas

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 := "U_IA000FIL()"
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