Code: Alles auswählen.
Transport/Lieferung | Transportnummer Liefernummer Gewicht
1 12222 0
1 25548 56,2
2 25668 266,3
Code: Alles auswählen.
*----------------------------------------------------------------------*
* FORM DATA_FIELDCAT_SPEDITEUR
*----------------------------------------------------------------------*
* Beschreibung der einzelnen Felder der int. Tabelle, welche an
* den ALV-TREE (Popup Spediteur-Auswahl) übergeben werden
*----------------------------------------------------------------------*
* -->
* <--
*----------------------------------------------------------------------*
FORM data_fieldcat_spediteur.
PERFORM fill_fieldcat USING:
* Tabell ZVTRRANK
* 'S' 'TKNUM' '' 'ZVTRRANK' '' '' ''
* '' '',
* 'S' 'RANG' '' 'ZVTRRANK' '' '' ''
* '' '',
* 'S' 'TDLNR' '' 'ZVTRRANK' '' '' ''
* '' '',
'S' 'AKTTD' '' 'ZVTRRANK' '' '' ''
'' '',
'S' 'NETWR' '' 'ZVTRRANK' 'WAERS' '' ''
'' '',
'S' 'WAERS' '' 'ZVTRRANK' '' '' ''
'' '',
'S' 'KZLAD' '' 'ZVTRRANK' '' '' ''
'' '',
'S' 'SPLIT' '' 'ZVTRRANK' '' '' ''
'' '',
'S' 'KONTI' '' 'ZVTRRANK' '' '' ''
'' '',
'S' 'KONTI_ST' '' 'ZVTRRANK' '' '' ''
'' '',
'S' 'SCOMM' '' 'ZVTRRANK' '' '' ''
'' '',
'S' 'SCOMM_ST' '' 'ZVTRRANK' '' '' ''
'' '',
'S' 'STOPP_ST' '' 'ZVTRRANK' '' '' ''
'' '',
'S' 'FIND_TDL' '' 'ZVTRRANK' '' '' ''
'' '',
* Tabell ZVTRSTAF
'S' 'VBELN' '' 'ZVTRSTAF' '' '' ''
'' '',
'S' 'KSCHL' '' 'ZVTRSTAF' '' '' ''
'' '',
'S' 'KWERT' '' 'ZVTRSTAF' 'WAERS_ST' '' ''
'' '',
'S' 'KBETR' '' 'ZVTRSTAF' 'WAERS_ST' '' ''
'' '',
'S' 'WAERS_ST' 'WAERS' 'ZVTRSTAF' '' '' ''
'' '',
'S' 'KSTBS' '' 'ZVTRSTAF' '' 'KMEIN' ''
'' '',
'S' 'KMEIN' '' 'ZVTRSTAF' '' '' ''
'' '',
'S' 'KPEIN' '' 'ZVTRSTAF' '' '' ''
'' '',
* Tabell ZVTRRANKSP
'S' 'ZCOUNT' '' 'ZVTRRANKSP' '' '' ''
'' '',
'S' 'VSTEL' '' 'ZVTRRANKSP' '' '' ''
'' '',
'S' 'KUNWE' '' 'ZVTRRANKSP' '' '' ''
'' '',
'S' 'TDLNR_SP' 'TDLNR' 'ZVTRRANKSP' '' '' ''
'' '',
'S' 'NETWR_SP' 'NETWR' 'ZVTRRANKSP' 'WAERS_SP' '' ''
'' '',
'S' 'WAERS_SP' 'WAERS' 'ZVTRRANKSP' '' '' ''
'' ''.
ENDFORM. " DATA_FIELDCAT_SPEDITEUR
*----------------------------------------------------------------------*
* FORM FILL_FIELDCAT
*----------------------------------------------------------------------*
* füllen des Feldkatalogs (für ALV-TREE),
* mit den Daten der einzelnen Felder der int. Tabelle
* !!! ==> direkter Zugriff auf die globalen FIELDCATALOGE
*----------------------------------------------------------------------*
* --> P_CONTROL T = FCAT Transport, L = FCAT Lieferung
* S = FCAT Spediteur (Popup)
* --> P_FIELDNAME Feldname der int. Tab.
* --> P_REF_FIELD Referenzfeld zum Feld
* --> P_REF_TABLE Referenztabelle zum Feld
* --> P_CFIELDNAME Währungseinheitsfeld
* --> P_QFIELDNAME Mengeneinheitsfeld
* --> P_ICON als Icon ausgeben
* --> P_COLDDICTXT Text S M L R aus DDIC wird angezeigt
* --> P_SCRTEXT_L Feldbezeichner lang
* <--
*----------------------------------------------------------------------*
FORM fill_fieldcat
USING value(p_control) TYPE char1
value(p_fieldname) TYPE lvc_fname
value(p_ref_field) TYPE lvc_rfname
value(p_ref_table) TYPE lvc_rtname
value(p_cfieldname) TYPE lvc_cfname
value(p_qfieldname) TYPE lvc_qfname
value(p_icon) TYPE lvc_icon
value(p_colddictxt) TYPE lvc_ddict
value(p_scrtext_l) TYPE scrtext_l.
DATA: wa_fieldcat TYPE LINE OF lvc_t_fcat.
wa_fieldcat-fieldname = p_fieldname.
wa_fieldcat-ref_field = p_ref_field.
wa_fieldcat-ref_table = p_ref_table.
wa_fieldcat-cfieldname = p_cfieldname.
wa_fieldcat-qfieldname = p_qfieldname.
wa_fieldcat-icon = p_icon.
wa_fieldcat-colddictxt = p_colddictxt.
wa_fieldcat-scrtext_l = p_scrtext_l.
wa_fieldcat-seltext = p_scrtext_l.
CASE p_control.
WHEN 'T'.
APPEND wa_fieldcat TO g_it_fieldcat_tr.
WHEN 'L'.
APPEND wa_fieldcat TO g_it_fieldcat_lf.
WHEN 'S'.
APPEND wa_fieldcat TO g_it_fieldcat_sp.
ENDCASE.
ENDFORM. " FILL_FIELDCAT