Histórico da Página

Descrição:

Ponto de entrada VM200VLD na rotina "Trans. Recep Nfs" (VEIVM200), no botão Filtrar, permite criar “Transmitir Nfs”, para que seja possível realizar validações para permitir ou não a execução do filtrotransmissão da nota selecionada. Se o PE retornar positivo, realiza a busca e apresenta os dadostransmissão; se retornar negativo, não.

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

//

If ExistBlock("VM200VLD")

lPEValid := ExecBlock("VM200VLD",.f.,.f.,{nTp,aSF2})

If !lPEValid

Return()

EndIf

EndIf

If ExistBlock("VM200VLD")

lPEValid := ExecBlock("VM200VLD",.f.,.f.,{nTp,aVQ1})

If !lPEValid

Return()

EndIf

EndIf@ 001 , 001 LISTBOX oLbVQ4 ;

Função:

VM200018FS_FILTRATELAXML ()