MUNDOSAP - Filtro ALV .Quan , INT

Uno de los que falla es ZDURACION por ejemplo he estado cambiando los tipos intype y nada .
HE ovbiado la pantalla de sel y captura de datos
Gracias
*********************************************

report zid167_listado_nec_sk.

include zid167_listado_nec_sk_top.
include zid167_listado_nec_sk_form.

initialization.

at selection-screen output.
perform pantalla_seleccion.

start-of-selection.
perform seleccionar_ordenes.

*&---------------------------------------------------------------------*
*& Include ZID167_LISTADO_NEC_SK_TOP
*&
*&---------------------------------------------------------------------*

tables: plko, aufk, afih, afko, zid167_skill_v, zid167_nec,
zid167_3, zid167_5 , icon.

type-pools: slis , icon.

constants: gc_orden(4) type c value 'C100',
gc_opera(4) type c value 'C200',
gc_secue(4) type c value 'C300',
gc_skill(4) type c value 'C500',
gc_neces(4) type c value 'C500',
gc_certi(4) type c value 'C700'.

ranges: gr_iphas for afih-iphas.

types: begin of ts_ordenes,
aufnr like aufk-aufnr,
aufpl like afko-aufpl,
iloan like afih-iloan,
tplnr like iloa-tplnr,
ltxa1 like afvc-ltxa1,
vornr like afvc-vornr,
sumnr like afvc-sumnr,
anzzl like afvc-anzzl,
subvornr like afvc-vornr,
arbeh like afvv-arbeh,
arbei like afvv-arbei,
dauno like afvv-dauno,
daune like afvv-daune,
usr00 like afvu-usr00,
usr01 like afvu-usr01,
usr02 like afvu-usr02,
end of ts_ordenes,
tt_ordenes type standard table of ts_ordenes,
begin of ts_orden,
aufnr like aufk-aufnr,
auart like aufk-auart,
vaplz like aufk-vaplz,
erdat like aufk-erdat,
objnr like aufk-objnr,
equnr like afih-equnr,
sermat like afih-sermat,
serialnr like afih-serialnr,
revnr like afih-revnr,
iloan like afih-iloan,
aufpl like afko-aufpl,
gstrp like afko-gstrp,
gsuzs like afko-gsuzs,
plnty like afko-plnty,
plnnr like afko-plnnr,
plnal like afko-plnal,
stat_sist like bsvx-sttxt,
stat_user like bsvx-sttxt,
tplnr like iloa-tplnr,
end of ts_orden,
begin of ts_afvv,
* aufpl LIKE afvc-aufpl,
ltxa1 like afvc-ltxa1,
arbeh like afvv-arbeh,
arbei like afvv-arbei,
anzzl like afvc-anzzl,
dauno like afvv-dauno ,
daune like afvv-daune,
vornr like afvc-vornr,
subvornr like afvc-vornr,
sumnr like afvc-sumnr,
usr00 like afvu-usr00,
usr01 like afvu-usr01,
usr02 like afvu-usr02,
end of ts_afvv,
begin of ts_skill,
zzcode like zid167_skill_v-zzcode,
zzsec like zid167_skill_v-zzsec,
zzskill like zid167_skill_v-zzskill,
zzrecursos type string,
zzduracion like zid167_skill_v-zzduracion,
zzunidad like zid167_skill_v-zzunidad,
zzdescripcion like zid167_skill_v-zzdescripcion,
zzsubcontratada like zid167_skill_v-zzsubcontratada,
zzdes_skill type string,
end of ts_skill,
begin of ts_necesidad,
zznec like zid167_3-zznec,
zztype_nec like zid167_5-zztype_nec,
zztype like zid167_nec-zztype,
zztype_des type string,
zzdes_nec like zid167_nec_cat_v-zznec_des,
zzdes_ty like zid167_nec_cat_v-zztype_des,
end of ts_necesidad,
begin of ts_plko_key,
plnty like plko-plnty,
plnnr like plko-plnnr,
plnal like plko-plnal,
end of ts_plko_key,
begin of ts_tl,
ktext like plko-ktext,
tl_perseo(11) type c,
end of ts_tl,
begin of ts_data,
aufnr like aufk-aufnr,
auart like aufk-auart,
vaplz like aufk-vaplz,
erdat like aufk-erdat,
objnr like aufk-objnr,
equnr like afih-equnr,
sermat like afih-sermat,
serialnr like afih-serialnr,
revnr like afih-revnr,
iloan like afih-iloan,
aufpl like afko-aufpl,
gstrp like afko-gstrp,
gsuzs like afko-gsuzs,
plnty like afko-plnty,
plnnr like afko-plnnr,
plnal like afko-plnal,
stat_sist like bsvx-sttxt,
stat_user like bsvx-sttxt,
tplnr like iloa-tplnr,
icon_des(4).
include type ts_afvv.
include type ts_skill.
include type ts_necesidad.
include type ts_tl.
* operacion TYPE ts_afvv.
* skill TYPE ts_skill ,
* necesidad TYPE ts_necesidad,
* tl TYPE ts_tl,
types: end of ts_data,
tt_data type standard table of ts_data,
begin of ts_code,
code like afvu-usr00,
end of ts_code,
tt_code type standard table of ts_code,
begin of ts_afvc,
aufpl like afvc-aufpl,
aplzl like afvc-aplzl,
ltxa1 like afvc-ltxa1,
vornr like afvc-vornr,
sumnr like afvc-sumnr,
anzzl like afvc-anzzl,
arbeh like afvv-arbeh,
arbei like afvv-arbei,
dauno like afvv-dauno,
daune like afvv-daune,
usr00 like afvu-usr00,
usr01 like afvu-usr01,
usr02 like afvu-usr02,
end of ts_afvc,
tt_afvc type standard table of ts_afvc,
begin of ts_plpo,
plnty like plko-plnty,
plnnr like plko-plnnr,
plnal like plko-plnal,
zaehl like plko-zaehl,
datuv like plko-datuv,
ktext like plko-ktext,
vornr like plpo-vornr,
sumnr like plpo-sumnr,
arbei like plpo-arbei,
arbeh like plpo-arbeh,
anzzl like plpo-anzzl,
dauno like plpo-dauno,
daune like plpo-daune,
usr00 like plpo-usr00,
usr01 like plpo-usr01,
usr02 like plpo-usr02,
end of ts_plpo,
tt_plpo type standard table of ts_plpo.

data gt_data type tt_data with header line.

*&---------------------------------------------------------------------*
*& Include ZID167_LISTADO_NEC_SK_FORM
*&---------------------------------------------------------------------*
*----------------------------------------------------------------------*
* DECLARACIÓN TYPES-SPOOL
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form PANTALLA_SELECCION
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*

*&---------------------------------------------------------------------*
*& Form formato_alv
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->PS_LAYOUT text
*----------------------------------------------------------------------*
form formato_alv using ps_layout type slis_layout_alv.

clear ps_layout.
ps_layout-zebra = 'X'.
ps_layout-detail_popup = 'X'.
ps_layout-f2code = '&ETA'.
ps_layout-colwidth_optimize = 'X'.
ps_layout-f2code = 'PICK'.

endform. "formato_alv

*&---------------------------------------------------------------------*
*& Form set_status
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->RT_EXTAB text
*----------------------------------------------------------------------*
form set_status using rt_extab type slis_t_extab. "#EC CALLED
set pf-status 'ST_LISTADO'.
endform. "asig_status
*& Form MOSTRAR_ALV_NEC_ORD
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form mostrar_alv_nec_ord .

data: ls_layout type slis_layout_alv,
ls_variant like disvariant,
lt_fieldcat type slis_t_fieldcat_alv.

perform crear_catalogo_campos_nec_ord using lt_fieldcat.
perform formato_alv using ls_layout.

ls_variant-report = sy-repid.
ls_variant-handle = 'NECE'.

* Mostrar ALV
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
i_callback_program = sy-repid
i_callback_pf_status_set = 'SET_STATUS'
i_callback_user_command = 'USER_COMMAND'
is_layout = ls_layout
it_fieldcat = lt_fieldcat
is_variant = ls_variant
i_save = 'X'
tables
t_outtab = gt_data.

endform. " MOSTRAR_ALV_NEC_ORD
*&---------------------------------------------------------------------*
*& Form CREAR_CATALOGO_CAMPOS_SK_ORD
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_LT_FIELDCAT text
*----------------------------------------------------------------------*
form crear_catalogo_campos_sk_ord using pt_fieldcat type slis_t_fieldcat_alv.

data: ls_fieldcat type slis_fieldcat_alv.
refresh pt_fieldcat.

clear ls_fieldcat.
ls_fieldcat-fieldname = 'AUFNR'.
ls_fieldcat-seltext_m = text-027.
ls_fieldcat-emphasize = gc_orden.
ls_fieldcat-hotspot = 'X'.
ls_fieldcat-edit_mask = '==ALPHA'.
append ls_fieldcat to pt_fieldcat.

clear ls_fieldcat.
ls_fieldcat-fieldname = 'VORNR'.
ls_fieldcat-seltext_m = text-003.
ls_fieldcat-emphasize = gc_opera.
append ls_fieldcat to pt_fieldcat.

clear ls_fieldcat.
ls_fieldcat-fieldname = 'SUBVORNR'.
ls_fieldcat-seltext_m = text-004.
ls_fieldcat-emphasize = gc_opera.
append ls_fieldcat to pt_fieldcat.

clear ls_fieldcat.
ls_fieldcat-fieldname = 'LTXA1'.
ls_fieldcat-seltext_m = text-028.
ls_fieldcat-outputlen = 40.
ls_fieldcat-lowercase = 'X'.
ls_fieldcat-emphasize = gc_opera.
append ls_fieldcat to pt_fieldcat.

clear ls_fieldcat.
ls_fieldcat-fieldname = 'ARBEI'.
ls_fieldcat-seltext_m = text-022.
ls_fieldcat-emphasize = gc_opera.
append ls_fieldcat to pt_fieldcat.

clear ls_fieldcat.
ls_fieldcat-fieldname = 'ARBEH'.
ls_fieldcat-seltext_m = text-023.
ls_fieldcat-emphasize = gc_opera.
append ls_fieldcat to pt_fieldcat.

clear ls_fieldcat.
ls_fieldcat-fieldname = 'ANZZL'.
ls_fieldcat-seltext_m = text-024.
ls_fieldcat-emphasize = gc_opera.
append ls_fieldcat to pt_fieldcat.

clear ls_fieldcat.
ls_fieldcat-fieldname = 'DAUNO'.
ls_fieldcat-seltext_m = text-025.
ls_fieldcat-emphasize = gc_opera.
append ls_fieldcat to pt_fieldcat.

clear ls_fieldcat.
ls_fieldcat-fieldname = 'DAUNE'.
ls_fieldcat-seltext_m = text-026.
ls_fieldcat-emphasize = gc_opera.
append ls_fieldcat to pt_fieldcat.

clear ls_fieldcat.
ls_fieldcat-fieldname = 'EQUNR'.
ls_fieldcat-seltext_m = text-034.
ls_fieldcat-emphasize = gc_orden.
ls_fieldcat-edit_mask = '==ALPHA'.
ls_fieldcat-hotspot = 'X'.
append ls_fieldcat to pt_fieldcat.

clear ls_fieldcat.
ls_fieldcat-fieldname = 'SERMAT'.
ls_fieldcat-seltext_m = text-035.
ls_fieldcat-emphasize = gc_orden.
ls_fieldcat-edit_mask = '==MATN2'.
ls_fieldcat-hotspot = 'X'.
append ls_fieldcat to pt_fieldcat.

clear ls_fieldcat.
ls_fieldcat-fieldname = 'SERIALNR'.
ls_fieldcat-seltext_m = text-036.
ls_fieldcat-emphasize = gc_orden.
append ls_fieldcat to pt_fieldcat.

clear ls_fieldcat.
ls_fieldcat-fieldname = 'STAT_USER'.
ls_fieldcat-reptext_ddic = 'St.Usuario'.
ls_fieldcat-emphasize = gc_orden.
ls_fieldcat-outputlen = '12'.
append ls_fieldcat to pt_fieldcat.

clear ls_fieldcat.
ls_fieldcat-fieldname = 'STAT_SIST'.
ls_fieldcat-reptext_ddic = 'St.Sistema'.
ls_fieldcat-outputlen = '12'.
ls_fieldcat-emphasize = gc_orden.
append ls_fieldcat to pt_fieldcat.

clear ls_fieldcat.
ls_fieldcat-fieldname = 'REVNR'.
ls_fieldcat-reptext_ddic = text-038.
ls_fieldcat-outputlen = '12'.
ls_fieldcat-emphasize = gc_orden.
append ls_fieldcat to pt_fieldcat.

clear ls_fieldcat.
ls_fieldcat-fieldname = 'ZZSEC'.
ls_fieldcat-seltext_m = text-006.
ls_fieldcat-emphasize = gc_secue.
append ls_fieldcat to pt_fieldcat.

clear ls_fieldcat.
ls_fieldcat-fieldname = 'ZZSKILL'.
ls_fieldcat-seltext_m = text-007.
ls_fieldcat-emphasize = gc_skill.
append ls_fieldcat to pt_fieldcat.

clear ls_fieldcat.
ls_fieldcat-fieldname = 'ZZDES_SKILL'.
ls_fieldcat-seltext_m = text-017.
ls_fieldcat-emphasize = gc_skill.
append ls_fieldcat to pt_fieldcat.

clear ls_fieldcat.
ls_fieldcat-fieldname = 'ZZRECURSOS'.
ls_fieldcat-seltext_m = text-008.
ls_fieldcat-emphasize = gc_skill.
append ls_fieldcat to pt_fieldcat.

clear ls_fieldcat.
ls_fieldcat-fieldname = 'ZZDURACION'.
ls_fieldcat-seltext_m = text-009.
ls_fieldcat-emphasize = gc_secue.
append ls_fieldcat to pt_fieldcat.

clear ls_fieldcat.
ls_fieldcat-fieldname = 'ZZUNIDAD'.
ls_fieldcat-seltext_m = text-010.
ls_fieldcat-emphasize = gc_secue.
append ls_fieldcat to pt_fieldcat.

clear ls_fieldcat.
ls_fieldcat-fieldname = 'ZZDESCRIPCION'.
ls_fieldcat-seltext_m = text-011.
ls_fieldcat-emphasize = gc_secue.
ls_fieldcat-lowercase = 'X'.
ls_fieldcat-outputlen = 50.
append ls_fieldcat to pt_fieldcat.

clear ls_fieldcat.
ls_fieldcat-fieldname = 'ICON_DES'.
ls_fieldcat-hotspot = 'X'.
ls_fieldcat-seltext_m = text-046.
ls_fieldcat-emphasize = gc_secue.
ls_fieldcat-icon = 'X'.
append ls_fieldcat to pt_fieldcat.

clear ls_fieldcat.
ls_fieldcat-fieldname = 'TPLNR'.
ls_fieldcat-seltext_m = text-039.
ls_fieldcat-emphasize = gc_orden.
ls_fieldcat-edit_mask = '==TPLNR'.
ls_fieldcat-hotspot = 'X'.
append ls_fieldcat to pt_fieldcat.

clear ls_fieldcat.
ls_fieldcat-fieldname = 'USR02'.
ls_fieldcat-seltext_m = text-040.
ls_fieldcat-emphasize = gc_certi.
append ls_fieldcat to pt_fieldcat.

clear ls_fieldcat.
ls_fieldcat-fieldname = 'ZZSUBCONTRATADA'.
ls_fieldcat-seltext_m = text-041.
ls_fieldcat-emphasize = gc_skill.
ls_fieldcat-checkbox = 'X'.
append ls_fieldcat to pt_fieldcat.

clear ls_fieldcat.
ls_fieldcat-fieldname = 'PLNTY'.
ls_fieldcat-seltext_m = text-042.
ls_fieldcat-emphasize = gc_orden.
append ls_fieldcat to pt_fieldcat.

clear ls_fieldcat.
ls_fieldcat-fieldname = 'PLNNR'.
ls_fieldcat-seltext_m = text-043.
ls_fieldcat-emphasize = gc_orden.
ls_fieldcat-hotspot = 'X'.
append ls_fieldcat to pt_fieldcat.

clear ls_fieldcat.
ls_fieldcat-fieldname = 'PLNAL'.
ls_fieldcat-seltext_m = text-044.
ls_fieldcat-emphasize = gc_orden.
append ls_fieldcat to pt_fieldcat.

endform.