Histórico da Página

//Exemplo 1 - Inclusão de filtro por data na busca dos movimentos pendentes.
User Function DLV001WH()
Local cRet := "AND DB_DATA > '20080101'"
Return cRet

//Exemplo 2 - Abertura de tela para permitir informar o endereço e filtrar somente movimentos deste endereço.
User Function DLV001WH()
Local cFunc := ParamIxb[2]
Local cEndereco := Space(TamSx3("D12_ENDORI")[1])
Local cRet := ""

   If cFunc == 'COF01' //Permite trocar o endereço somente se a função for conferência
   
      VTClear()
      WMSVTCabec('Endereço PE',.F.,.F.,.T.)
      @ 02, 00 VTSay PadR('Informe o endereço',VTMaxCol()) 
      @ 03, 00 VTGet cEndereco Pict '@!' 
      VTRead()

      cRet := " AND D12_ENDORI = '" + AllTrim(cEndereco) + "'"

   EndIf

Return cRet