Tabla sin rellenar
Hola, estoy intentando recuperar informacion y almacenarla en una workarea, pero de los 17 campos que hay solo se guarda 1 (cstatut). El programa no falla, pero en el debug no se almacenan el resto de valores.
Adjunto codigo:
TYPES: BEGIN OF ty_sortie,
zelcstatutboncii TYPE zpm_boncii-cstatut,
zelnumeroe TYPE zpm_signalisatio-nenrrec,
zdate_fin_tran TYPE zpm_signalisatio-dattransai,
zheure_fin_tran TYPE zpm_signalisatio-dattransai,
zdate_arrive TYPE zpm_intervent-datdint,
zheure_arrive TYPE zpm_intervent-datdint,
zheure_fin_int TYPE zpm_intervent-datfiint,
zellibmotifsig TYPE zpm_signalisatio-cmotifsig,
zelmotifusg TYPE zpm_signalisatio-motifusg,
zellnatincid TYPE zpm_incident-cnatincid,
zellnatconsta TYPE zpm_intervent-cnatconsta,
facteurcause TYPE zpm_incident-cnatincid,
zellnatdepan TYPE zpm_incident-cnatdepan,
zelactrenf TYPE zpm_incident-actrenf,
zellsuitinc TYPE zpm_incident-csuitinc,
zelresumeint TYPE zpm_intervent-resumeint,
zerror TYPE char200,
END OF ty_sortie.
DATA: wa_sortie TYPE ty_sortie.
SELECT SINGLE idsig INTO lv_idsig
FROM zpm_signalisatio
WHERE numpdl = i_pce_number
%_HINTS ORACLE 'INDEX("ZPM")'.
SELECT cstatut INTO wa_sortie
FROM zpm_boncii
WHERE idsig = lv_idsig.
ENDSELECT.
SELECT cmotifsig nenrrec dattransai motifusg INTO CORRESPONDING FIELDS OF wa_sortie
FROM zpm_signalisatio
WHERE idsig = lv_idsig.
ENDSELECT.
SELECT datdint datfiint cnatconsta resumeint INTO CORRESPONDING FIELDS OF wa_sortie
FROM zpm_intervent
WHERE idsig = lv_idsig.
ENDSELECT.
SELECT cnatincid cnatincid cnatdepan actrenf csuitinc INTO CORRESPONDING FIELDS OF wa_sortie
FROM zpm_incident
WHERE idsig = lv_idsig.
ENDSELECT.
Gracias
|