Linha Microsiga Protheus

Árvore de páginas

Carregando...

Versões comparadas

Versão antiga 2

changes.mady.by.user admin

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Otavio de Albergaria B. Favarelli

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

...

Portuguese

Pagetitle
IA000FIL - Filtro no BROWSER da rotina Entrada NF de Peças
IA000FIL - Filtro no BROWSER da rotina Entrada NF de Peças

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

    cFiltro    :=    ExecBlock("IA000FIL",.f.,.f.)


 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