Ponto de Entrada

Descrição:

Ponto de entrada VM200VLD na rotina Trans. Recep Nfs (VEIVM200), no botão Filtrar, permite criar validações para permitir ou não a execução do filtro. Se retornar positivo, realiza a busca e apresenta os dados; se retornar negativo, não.

Localização:

Atualizações / Mov Saida / Trans/recep de NFs

Eventos:

@ 067 , 002 SAY (STR0010+":") SIZE 55,8 OF oTScroll1 PIXEL COLOR CLR_BLUE // Pedido

@ 066 , 025 MSGET o1NumPed VAR c1NumPed PICTURE "@!" SIZE 54,08 OF oTScroll1 PIXEL COLOR CLR_BLACK


@ 087 , 032 BUTTON o1Filtro PROMPT STR0011 OF oTScroll1 SIZE 60,09 PIXEL ACTION ( VM200018_FiltraTela(1)) // Filtrar


_________


@ 067 , 002 SAY (STR0033+":") SIZE 55,8 OF oTScroll2 PIXEL COLOR CLR_BLUE // Retorno

@ 066 , 025 MSGET o2Retorn VAR c2Retorn PICTURE "@!" SIZE 54,08 OF oTScroll2 PIXEL COLOR CLR_BLACK


@ 087 , 032 BUTTON o2Filtro PROMPT STR0011 OF oTScroll2 SIZE 60,09 PIXEL ACTION ( VM200018_FiltraTela(2)) // Filtrar

//

@ 001 , 001 LISTBOX oLbVQ1 ;

__________________


@ 067 , 002 SAY (STR0033+":") SIZE 55,8 OF oTScroll3 PIXEL COLOR CLR_BLUE // Retorno

@ 066 , 025 MSGET o3Return VAR c3Return PICTURE "@!" SIZE 54,08 OF oTScroll3 PIXEL COLOR CLR_BLACK


@ 087 , 032 BUTTON o3Filtro PROMPT STR0011 OF oTScroll3 SIZE 60,09 PIXEL ACTION ( VM200018_FiltraTela(3) ) // Filtrar

//

@ 001 , 001 LISTBOX oLbVQ4 ;

Programa Fonte:

VEIVM200.PRW

Função:

VM200018_FILTRATELA()

Parâmetros:

Primeira Aba:

NomeTipoDescrição

nOpcTela

Numerico

Tela que chamou o PE

c1FilNFI

Caracter

Filial selecionada

c1NumNFI

Caracter

NF informada

c1SerNFI

Caracter

Serie da NF

c1CodCli

Caracter

Código do Cliente

c1LojCli

Caracter

Loja do Cliente

d1DatIni

Data

Data inicial

d1DatFin

Data

Data final

c1NumPed

Caracter

Numero do pedido


Segunda Aba:

NomeTipoDescrição

nOpcTela

NumericoTela que chamou o PE

c2NumNFI

CaracterNF informada

c2SerNFI

CaracterSerie da NF

c2CodCli

CaracterCódigo do Cliente

c2LojCli

CaracterLoja do Cliente

d2DatIni

DataData inicial

d2DatFin

DataData final

c2NumPed

Caracter

Numero do pedido


Terceira Aba:

NomeTipoDescrição

nOpcTela

NumericoTela que chamou o PE

c3NumNFI

CaracterNF informada

c3SerNFI

CaracterSerie da NF

c3TipTPR

Caracter

Tipo de registro

d3DatIni

DataData inicial

d3DatFin

DataData final

c3NumPed

Caracter

Numero do pedido

Retorno:
NomeTipoDescrição

lValid

Boolean

Verdadeiro ou Falso

Exemplo:

Include totvs.ch

/*

VM200VLD - Ponto de Entrada na Tela de Transmissao/Recepcao de Vendas e Bonus de Veiculos

Executado ao clicar no botão Filtro

Permite ao usuário criar validações antes de executar o filtro


Retorno do Ponto de Entrada:

Verdadeiro ou Falso


*/

User Function VM200VLD()

Local cFilialPE := ParamIXB[02] // Filial selecionada

Local aFiliais := FWLoadSM0()

Local nX :=0


If ParamIXB[01] == 1 //se for o botão da 1ª aba

For nX:= 1 to Len(aFiliais)

If aFiliais[nX][2] == cFilialPE .AND. aFiliais[nX][11] == .T.

Return .T.

ElseIf aFiliais[nX][2] == cFilialPE

MsgInfo("Usuário sem acesso para a filial selecionada","Acesso Negado")

Return .F.

EndIf


Next

EndIf


If ParamIXB[01] == 2

MsgInfo("Segunda aba","PE_VM200VLD")

EndIf


If ParamIXB[01] == 3

MsgInfo("Terceira aba","PE_VM200VLD")

EndIf

Return .T.