SAP Reports / Programs | Construction Equipment Management | Industry Solution Engineering & Construction | Construction Equipment Management(IS-EC-CEM) SAP IS

J_3GVCF1 SAP ABAP INCLUDE - FORM Include for J_3GINVC (INPUT SD Order)







J_3GVCF1 is a standard ABAP INCLUDE available within your SAP system (depending on your version and release level). Below is the basic information available for this SAP report including which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC. Also check out the submitted Comments related to this SAP report or see any standard documentation available.

If you would like to execute this report or see the full code listing simply enter J_3GVCF1 into the relevant SAP transactions such as SE38 or SE80


ABAP code to call this SAP report using the submit statement

This report can be called from another progam/report simply by using the ABAP SUBMIT statement, see below for example ABAP code snipts of how to do this.






SUBMIT J_3GVCF1. "Basic submit
SUBMIT J_3GVCF1 AND RETURN. "Return to original report after report execution complete
SUBMIT J_3GVCF1 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement


Text pool values


Title: FORM Include for J_3GINVC (INPUT SD Order)


INCLUDES used within this REPORT J_3GVCF1

No INCLUDES are used within this REPORT code!


TABLES used within REPORT and the associated SELECT statement:





No SAP DATABASE tables are accessed within this REPORT code!


Function Modules used within report and the associated call statement:

J_3G_MATNR_SDA_ERMITTELN call function 'J_3G_MATNR_SDA_ERMITTELN' EXPORTING i_lvart = e_j_3glvart i_blart = e_j_3gblart i_bltyp = e_j_3gbltyp i_equnr = e_equnr i_datum = e_j_3gdatlab i_kzlvoi = e_j_3gkleivo i_verwalter = i_j_3gverwal IMPORTING e_matnr = i_matnr e_verwalter = hlp_verwalter e_meins = e_meins EXCEPTIONS j_3glase_error = 1 missing_equi = 2 leiart_not_allowed = 3 leiart_not_allowed_a = 4 others = 5.

J_3G_HBEST_AUSWERTEN call function 'J_3G_HBEST_AUSWERTEN' EXPORTING i_j_3gempfae = hlp_warempf i_j_3gempdeb = isdapos2-j_3gempdeb i_j_3gempext = isdapos2-j_3gempext i_restyp = isdapos2-j_3grestyp i_equnr = hlp_equnr i_j_3glvart = isdapos2-j_3glvart i_j_3gdatvo = isdapos2-j_3gdatvo i_j_3gabdatn = isdapos2-j_3gabdatn i_j_3gbeweg = isdapos2-j_3gbeweg i_j_3gbelnri = isdapos2-j_3gbelnri i_j_3gposnri = isdapos2-j_3gposnri i_j_3gkbaul = isdapos2-j_3gkbaul TABLES t_ihbest = t_j_3ghbest EXCEPTIONS not_found = 1 others = 2.

J_3G_BAULOG_ZEITABH_AUSWERTEN call function 'J_3G_BAULOG_ZEITABH_AUSWERTEN' EXPORTING i_isdapos = i_isdapos TABLES t_ibauldat = t_ibauldat EXCEPTIONS others = 1.

J_3G_BAULOG_ZEITABH_AUSWERTEN call function 'J_3G_BAULOG_ZEITABH_AUSWERTEN' EXPORTING i_isdapos = p_isdapos TABLES t_ibauldat = t_ibauldat EXCEPTIONS others = 1.

J_3G_FAKTKENNUNG_AUSWERTEN call function 'J_3G_FAKTKENNUNG_AUSWERTEN' EXPORTING i_j_3gbelp = yj_3gbelp i_j_3gleierb = isdapos2k-j_3gleierb TABLES t_ifakdat = ifakdat t_ikundat = ikundat EXCEPTIONS ag_not_found = 1 others = 2.

J_3G_PRL_DETERMINATION call function 'J_3G_PRL_DETERMINATION' exporting application = 'V' date = hlp_datum header_communication = j_3gprlkok item_communication = j_3gprlkop scheme = 'FREI' * scheme = 'ABRKAL' * protokoll = charx importing kondt_data = j_3gprlhd exceptions not_found = 1 others = 2.

DEQUEUE_E_TABLEE call function 'DEQUEUE_E_TABLEE' exporting * MODE_RSTABLE = chare tabname = 'J_3GKONZAB' * VARKEY = * X_TABNAME = ' ' * X_VARKEY = ' ' * _SCOPE = char3 * _SYNCHRON = ' ' * _COLLECT = ' ' exceptions others = 1.

DEQUEUE_EJ_3GKONZA call function 'DEQUEUE_EJ_3GKONZA' exporting * MODE_J_3GKONZAB = chare mandt = sy-mandt * _SCOPE = char3 * _SYNCHRON = ' ' * _COLLECT = ' ' exceptions others = 1.

DEQUEUE_E_TABLE call function 'DEQUEUE_E_TABLE' exporting * MODE_RSTABLE = chare tabname = 'J_3GKAL0' varkey = 'FREI' * X_TABNAME = ' ' * X_VARKEY = ' ' * _SCOPE = char3 * _SYNCHRON = ' ' * _COLLECT = ' ' exceptions others = 1.

J_3G_HBEST_AUSWERTEN call function 'J_3G_HBEST_AUSWERTEN' EXPORTING i_j_3gempfae = hlp_warempf i_j_3gempdeb = isdapos20-j_3gempdeb i_j_3gempext = isdapos20-j_3gempext i_restyp = isdapos20-j_3grestyp i_equnr = hlp_equnr i_j_3glvart = isdapos20-j_3glvart i_j_3gdatvo = isdapos20-j_3gdatvo i_j_3gabdatn = isdapos20-j_3gabdatn i_j_3gbeweg = isdapos20-j_3gbeweg i_j_3gbelnri = isdapos20-j_3gbelnri i_j_3gposnri = isdapos20-j_3gposnri i_j_3gkbaul = isdapos20-j_3gkbaul TABLES t_ihbest = t_j_3ghbest EXCEPTIONS not_found = 1 others = 2.

NAMETAB_GET * call function 'NAMETAB_GET' * EXPORTING * langu = sy-langu * tabname = hlp_tabname * IMPORTING * header = header_info * TABLES * nametab = idntab * EXCEPTIONS * table_has_no_fields = 1 * table_not_activ = 1 * no_texts_found = 2.

DDIF_NAMETAB_GET call function 'DDIF_NAMETAB_GET' exporting tabname = hlp_tabname uclen = '01' importing x030l_wa = header_info tables dfies_tab = idntab exceptions not_found = 1 others = 2.

NAMETAB_GET * call function 'NAMETAB_GET' * EXPORTING * langu = sy-langu * tabname = hlp_tabname * only = 'H' * IMPORTING * header = header_info * TABLES * nametab = idntab * EXCEPTIONS * table_has_no_fields = 1 * table_not_activ = 1 * no_texts_found = 2.

ENQUEUE_E_TABLE call function 'ENQUEUE_E_TABLE' exporting * MODE_RSTABLE = chare tabname = 'J_3GKAL0' varkey = 'FREI' * X_TABNAME = ' ' * X_VARKEY = ' ' * _SCOPE = char2 * _WAIT = ' ' * _COLLECT = ' ' exceptions foreign_lock = 1 system_failure = 2 others = 3.

ENQUEUE_EJ_3GBELEG call function 'ENQUEUE_EJ_3GBELEG' * EXPORTING * MODE_J_3GBELK = chare * MANDT = SY-MANDT * J_3GBELNRI = * X_J_3GBELNRI = ' ' * _SCOPE = char2 * _WAIT = ' ' * _COLLECT = ' ' exceptions foreign_lock = 1 system_failure = 2 others = 3.

J_3G_FAKTURASPERRE_BAU_READ * call function 'J_3G_FAKTURASPERRE_BAU_READ' * importing * e_faksp = e_faksp * exceptions * not_found = 1 * others = 2.

J_3G_EQUZ_ALLGEMEIN call function 'J_3G_EQUZ_ALLGEMEIN' EXPORTING i_equnr = i_equnr i_datum = i_datum i_kzmeng = i_kzmeng IMPORTING e_eigner = hlp_eigner " hier nicht genutzt e_verwalter = hlp_verwalter EXCEPTIONS datum_ungueltig = 01 verwalter_fehlt = 02.

J_3G_KNA1_MODIFY call function 'J_3G_KNA1_MODIFY' in update task EXPORTING i_kna1 = kna1 EXCEPTIONS others = 1.

J_3G_KNA1_MODIFY





call function 'J_3G_KNA1_MODIFY' in update task EXPORTING i_kna1 = kna1 EXCEPTIONS others = 1.

J_3G_KNA1_MODIFY call function 'J_3G_KNA1_MODIFY' in update task EXPORTING i_kna1 = kna1 EXCEPTIONS others = 1.

J_3G_REFTYP_AUSWERTEN call function 'J_3G_REFTYP_AUSWERTEN' exporting i_etyp = ikundat-j_3getyp i_reftyp = ikundat-j_3greftyp i_psp = ikundat-pspnr i_pro = ikundat-pspnr i_aco = ikundat-coaufnr i_apm = ikundat-coaufnr i_kok = ikundat-kokrs i_kos = ikundat-kostl i_wrk = ikundat-werks i_lag = ikundat-lgort * I_SPART = i_datum = i_j_3gdatvo i_npl = ikundat-coaufnr importing e_bukrs = h_bukrsk e_gsber = h_gsberk e_werks = h_werksk exceptions kein_psp = 1 kein_proj = 2 kein_auftrag = 3 keine_kosl = 4 kosl_aenderung = 5 kein_werk = 6 dummy = 7 kein_lager = 8 kein_npl = 9 others = 10.

MATERIAL_UNIT_FIND call function 'MATERIAL_UNIT_FIND' EXPORTING kzall = charx matnr = iequidat-matnr meinh = hlp_mat_meins "N 1562502 meins = iequidat-j_3gvermein IMPORTING kzexi = hlp_ok TABLES rmmme_itab = i_rmmme EXCEPTIONS material_not_found = 1 others = 2.

MATERIAL_UNIT_FIND call function 'MATERIAL_UNIT_FIND' EXPORTING kzall = charx matnr = iequidat-matnr meinh = i_j_3gmeins "N 1562502 meins = iequidat-j_3gvermein IMPORTING kzexi = hlp_ok TABLES rmmme_itab = i_rmmme EXCEPTIONS material_not_found = 1 others = 2.

MATERIAL_UNIT_FIND call function 'MATERIAL_UNIT_FIND' EXPORTING kzall = charx matnr = i_matnr meinh = i_j_3gmeins " ME aus J_3GHBEST meins = hlp_mat_meins " Basis-ME IMPORTING kzexi = hlp_ok TABLES rmmme_itab = i_rmmme EXCEPTIONS material_not_found = 1 others = 2.

MATERIAL_UNIT_FIND call function 'MATERIAL_UNIT_FIND' EXPORTING kzall = charx matnr = i_matnr meinh = e_meins " ME aus Vers.Beleg

MATERIAL_UNIT_FIND call function 'MATERIAL_UNIT_FIND' EXPORTING kzall = charx matnr = i_matnr meinh = e_meins " VRKME meins = hlp_mat_meins IMPORTING kzexi = hlp_ok TABLES rmmme_itab = i_rmmme EXCEPTIONS material_not_found = 1 others = 2.

ENQUEUE_EJ_3GBELEG call function 'ENQUEUE_EJ_3GBELEG' exporting * MODE_J_3GBELEGK = 'E' mandt = sy-mandt * j_3gbelnri = * X_J_3GBELNRI = ' ' * _SCOPE = '2' * _WAIT = ' ' * _COLLECT = ' ' exceptions foreign_lock = 1 system_failure = 2 others = 3.

ENQUEUE_EJ_3GHBEST call function 'ENQUEUE_EJ_3GHBEST' EXPORTING mandt = sy-mandt j_3gbart = 1 EXCEPTIONS foreign_lock = 1 system_failure = 2 others = 3.

DEQUEUE_EJ_3GHBEST call function 'DEQUEUE_EJ_3GHBEST' EXPORTING mandt = sy-mandt j_3gbart = 1 EXCEPTIONS others = 1.

ENQUEUE_E_TABLEE call function 'ENQUEUE_E_TABLEE' exporting * MODE_RSTABLE = chare tabname = 'KNA1' * VARKEY = * X_TABNAME = ' ' * X_VARKEY = ' ' * _SCOPE = char2 * _WAIT = ' ' * _COLLECT = ' ' exceptions foreign_lock = 1 system_failure = 2 others = 3.

DEQUEUE_E_TABLEE call function 'DEQUEUE_E_TABLEE' exporting * MODE_RSTABLE = 'E' tabname = 'KNA1'.

J_3G_BAULOG_ZEITABH_AUSWERTEN call function 'J_3G_BAULOG_ZEITABH_AUSWERTEN' EXPORTING i_isdapos = p_isdapos TABLES t_ibauldat = t_ibauldat EXCEPTIONS others = 1.

ENQUEUE_EXKNA1 call function 'ENQUEUE_EXKNA1' exporting * MODE_KNA1 = 'E' * MANDT = SY-MANDT kunnr = i_kunnr * X_KUNNR = ' ' * _SCOPE = '2' * _WAIT = ' ' * _COLLECT = ' ' exceptions foreign_lock = 1 system_failure = 2 others = 3.

DEQUEUE_EXKNA1 call function 'DEQUEUE_EXKNA1' exporting * MODE_KNA1 = 'E' * MANDT = SY-MANDT kunnr = i_kunnr * X_KUNNR = ' ' * _SCOPE = '3' * _SYNCHRON = ' ' * _COLLECT = ' ' exceptions others = 1.



Contribute (Add Comments)

Although this basic information may have limited use it does provide an easy to find location to store any knowledge about this program/report.

The contribute/comments section below therefore offer's an opportunity for anyone to add additional information. This can be anything from useful hints, tips and screen shots to relevant SAP notes or anything else you feel is relevant to this report.

This will then be available for everyone to easily find by simply searching on the report name J_3GVCF1 or its description.