Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: VXC01FIL - Controle de consulta do Estoque
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 Consulta de Veiculos (VEIXC001), executado na consulta de veículos do atendimento.Finalidade: Controlar quais as Filiais tem permissão para consultar o Estoque.
Eventos
User Function VXC01FIL()
Local nRecSM0 := SM0->(Recno())
Local cCodSM0 := SM0->M0_CODIGO
 
MsgAlert("O Ponto de Entrada VXC01FIL foi executado.")
 
cFilVV1 := space(len(VV1->VV1_FILIAL))
aAdd( aFilVV1 , "" )
DbSelectArea("SM0")
DbSetOrder(1)
DbGoTop()
DbSeek( cCodSM0 )
Do While !Eof() .and. cCodSM0 == SM0->M0_CODIGO
aAdd( aFilVV1 , SM0->M0_CODFIL )
aAdd( aNomFil ,{ SM0->M0_CODFIL, SM0->M0_FILIAL })
DbSkip()
EndDo
DbGoTo(nRecSM0)
Return 
Programa Fonte 
VEIXC001.PRW
Sintaxe

VXC01FIL - Controle de consulta do Estoque ( [ ] )

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
Array of Record
Retorno
    ()
Observações
 Static Function FS_LEVANTA(cTipo,lRefresh)
Local nRecSM0 := SM0->(Recno())
Local cCodSM0 := SM0->M0_CODIGO
Local nPos    := 0
Local cQuery  := ""
Local cQAlSQL := "ALIASSQL"
Local lTikCor := .f. 
Local aFilAtu := {}
Local lFWCodFil := FindFunction("FWCodFil")
Do Case
Case cTipo == "FIL" // Levanta Filiais
If ExistBlock("VXC01FIL") // PE utilizado para criar o Vetor (aFilVV1) com as possiveis FILIAIS da Consulta F7
ExecBlock("VXC01FIL",.F.,.F.)
Else
If lFWCodFil
aFilAtu := FWArrFilAtu()
aFilVV1 := FWAllFilial( aFilAtu[3] , aFilAtu[4] , aFilAtu[1] , .f. )
aAdd( aFilVV1 , "" )
Asort(aFilVV1)
 
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não