Ayuda Para Búsqueda – by Ing. Horace Se pide: pide : Crear una Ayuda para Búsqueda para todos aquellos campos ATINN de tabla CAWN que sean iguales a 000000093!
CASO 1 (Ayuda para Búsqueda elemenal! SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME. PARAMETER p_per lke c!"#-!$## MATCHCODE OBJECT %c!c& %c!c&.. SELECTION-SCREEN EN' OF BLOCK block1. Siendo "cac#i "cac#i $na $na Ayuda para Búsqueda %lemenal "l matc#code $unciona %a medias& ya que no $iltra por 000000093
salida&
CASO ' (%lemeno de aos con un ominio Con )alores Pre*i+ados! SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME. PARAMETERS( p_per $)pe %&&c. SELECTION-SCREEN EN' OF BLOCK block1.
Siendo "##c un elemeno de daos con un dominio con ,alores pre*i+ados -OA& Tener en cuenta que los 'alores que se encuentran pre$i(ados en el )ominio son est*ticos+ mientras que si los 'alores son encontrados en la CAWN son din*micos+ es decir que si se agregan datos a la CAWN la ayuda a sociada no 'a a estar actuali,ada! %lemeno de daos&
ominio&
Salida&
CASO / (Ayuda de Búsqueda Programable! -alida en un .istBo/: T*PE-POOLS( +r,. 'ATA( #!,e T*PE +r,_ l/$ T*PE +r,_+!l0e/ +!l0e LIKE LINE OF l/$. !$!( be# o2 $_c!"# occ0r/ 3 !$"r$ lke c!"#-!$"r$ e# o2 $_c!"#. PARAMETERS( p/_p!r,4135 AS LISTBOX VISIBLE LENGTH 13. AT SELECTION-SCREEN O6TP6T. /elec$ !$"r$ #$o $!ble $_c!"# 2ro, c!"# "&ere !$## 7 833333339:;8. loop !$ $_c!"#. #!,e 7 8PS_PARM8. <,/,o #o,bre =0e el c!,po co# ,!$c&coe +!l0e-ke) 7 /)-$!b>. +!l0e-$e>$ 7 $_c!"#-!$"r$. APPEN' ?AL6E TO LIST. e#loop. CALL F6NCTION 8?RM_SET_?AL6ES8 E@PORTING I' 7 NAME ?AL6ES 7 LIST.
Salida&
CASO 0(Ayuda de Búsqueda Programable! A mi entender me(or que Caso 3 %me(or $ormato& Ayuda para un parameter y para un selectoptions ---------------------------------------------------------------------- TABLAS ---------------------------------------------------------------------- $!ble/( c!"#. 'ATA( BEGIN OF 2el/ OCC6RS 13. INCL6'E STR6CT6RE &elp_+!l0e. 'ATA( EN' OF 2el/. 'ATA( BEGIN OF +!l0e$!b OCC6RS 13 !$"r$ T*PE c!"#-!$"r$ EN' OF +!l0e$!b. ---------------------------------------------------------------------- SELECTION-SCREEN ----------------------------------------------------------------------
SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME. p!r!,e$er( p_p!r! lke c!"#-!$"r$. /elec$-op$o#/( /_p!r! 2or c!"#-!$"r$ #o-e>$e#/o#. SELECTION-SCREEN EN' OF BLOCK block1. ---------------------------------------------------------------------- INITIALIATION ---------------------------------------------------------------------- INITIALIATION. /elec$ !$"r$ #$o $!ble +!l0e$!b 2ro, c!"# "&ere !$## 7 833333339:;8. Ar,! c!,po/ p!r! el ,!$c&coe. 2el/-$!b#!,e 7 8CAWN8. 2el/-2el#!,e 7 8ATWRT8. 2el/-/elec$2l! 7 8@8. APPEN' 2el/. CLEAR 2el/.
---------------------------------------------------------------------- AT SELECTION-SCREEN ---------------------------------------------------------------------- M!$c& coe p!r! /elec$-op$o#/ LOW AT SELECTION-SCREEN ON ?AL6E-RE6EST FOR /_p!r!-lo". CALL F6NCTION 8HELP_?AL6ES_GET_WITH_TABLE8 E@PORTING $!b#!,e 7 8CAWN8 $$le_#_+!l0e/_l/$ 7 8C!r!c$erD/$c!8 $$el 7 8Selecco#e l! c!r!c$erD/$c!8 IMPORTING /elec$_+!l0e 7 /_p!r!-lo" TABLES 2el/ 7 2el/ +!l0e$!b 7 +!l0e$!b. HIGH AT SELECTION-SCREEN ON ?AL6E-RE6EST FOR /_p!r!-&&. CALL F6NCTION 8HELP_?AL6ES_GET_WITH_TABLE8 E@PORTING $!b#!,e 7 8CAWN8 $$le_#_+!l0e/_l/$ 7 8C!r!c$erD/$c!8 $$el 7 8Selecco#e l! c!r!c$erD/$c!8 IMPORTING /elec$_+!l0e 7 /_p!r!-&& TABLES 2el/ 7 2el/ +!l0e$!b 7 +!l0e$!b. M!$c& coe p!r! p!r!,e$er AT SELECTION-SCREEN ON ?AL6E-RE6EST FOR p_p!r!. CALL F6NCTION 8HELP_?AL6ES_GET_WITH_TABLE8 E@PORTING $!b#!,e 7 8CAWN8 $$le_#_+!l0e/_l/$ 7 8C!r!c$erD/$c!8 $$el 7 8Selecco#e l! c!r!c$erD/$c!8 IMPORTING /elec$_+!l0e 7 p_p!r! TABLES 2el/ 7 2el/ +!l0e$!b 7 +!l0e$!b.
Salida&
