1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
LOOP AT bestand. CLEAR: bestand-soll,bestand-haben,bestand-anfmenge. CLEAR SUM_MAT. READ TABLE SUM_MAT WITH KEY werks = bestand-werks LGORT = BESTAND-LGORT "YANGSEN matnr = bestand-matnr * charg = bestand-charg shkzg = 'S'. MOVE SUM_MAT-menge TO bestand-soll. CLEAR SUM_MAT. READ TABLE SUM_MAT WITH KEY werks = bestand-werks LGORT = BESTAND-LGORT "YANGSEN matnr = bestand-matnr * charg = bestand-charg shkzg = 'H'. MOVE SUM_MAT-menge TO bestand-haben. bestand-anfmenge = bestand-endmenge - bestand-soll + bestand-haben. MODIFY bestand. ENDLOOP. |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
LOOP AT bestand. CLEAR: bestand-soll,bestand-haben,bestand-anfmenge. CLEAR sum_char. READ TABLE sum_char WITH KEY werks = bestand-werks LGORT = BESTAND-LGORT "YANGSEN matnr = bestand-matnr charg = bestand-charg shkzg = 'S'. MOVE sum_char-menge TO bestand-soll. CLEAR sum_char-menge. CLEAR sum_char. READ TABLE sum_char WITH KEY werks = bestand-werks LGORT = BESTAND-LGORT "YANGSEN matnr = bestand-matnr charg = bestand-charg shkzg = 'H'. MOVE sum_char-menge TO bestand-haben. bestand-anfmenge = bestand-endmenge - bestand-soll + bestand-haben. MODIFY bestand. ENDLOOP. |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 |
SELECTION-SCREEN BEGIN OF BLOCK gb1 WITH FRAME TITLE text-t10. SELECT-OPTIONS: DATUM FOR MKPF-BUDAT NO-EXTENSION OBLIGATORY. SELECTION-SCREEN SKIP. PARAMETER: WERKS LIKE T001L-WERKS OBLIGATORY MEMORY ID WRK. * Text-001: Datenbankabgrenzungen SELECT-OPTIONS: LGORT FOR T001L-LGORT , MATNR FOR MARD-MATNR MEMORY ID MAT MATCHCODE OBJECT MAT1. *ENHANCEMENT-POINT RM07MLBD_01 SPOTS ES_RM07MLBD STATIC. SELECT-OPTIONS: BUKRS FOR T001-BUKRS MEMORY ID BUK NO-DISPLAY, * WERKS FOR T001W-WERKS MEMORY ID WRK, CHARG FOR MCHB-CHARG NO-DISPLAY, *{ INSERT AF0K067670 2 SIZE for mchb-j_3asize, "afs 514942 SCAT for mchb-j_4kscat NO-DISPLAY, "afs 514942 *} INSERT BWTAR FOR MBEW-BWTAR NO-DISPLAY, BWART FOR MSEG-BWART NO-DISPLAY. PARAMETERS SOBKZ LIKE MSEG-SOBKZ NO-DISPLAY. * Datumsintervall für Selektion SELECTION-SCREEN SKIP. *PARAMETER:P_LGORT LIKE T001-BUKRS OBLIGATORY DEFAULT 'L301'. SELECTION-SCREEN END OF BLOCK gb1. *esdus_save_parameters FIELD-SYMBOLS: STRUCTURE DATUM DEFAULT DATUM. read table datum ASSIGNING INDEX 1. IF -low IS INITIAL. -low = '00000101'. IF -high IS INITIAL. -high = '99991231'. ENDIF. ELSE. IF -high IS INITIAL. -high = -low. ENDIF. ENDIF. -OPTION = 'BT' . * MODIFY DATUM FROM DATUM. IF oref_settings IS INITIAL. CREATE OBJECT oref_settings EXPORTING i_action = 'RM07MLBD'. ENDIF. CALL METHOD oref_settings->set( i_element = 'XCHAR' i_active = 'X' ). CALL METHOD oref_settings->set( i_element = 'XNOMCHB' "838360 i_active = '' ). "838360 CALL METHOD oref_settings->set( i_element = 'XSUM' i_active = '' )."不按批次 CALL METHOD oref_settings->set( i_element = 'PA_SUMFL' i_active = '' ). CALL METHOD oref_settings->set( i_element = 'LGBST' i_active = 'X' ). CALL METHOD oref_settings->set( i_element = 'BWBST' i_active = '' ). CALL METHOD oref_settings->set( i_element = 'SBBST' i_active = '' ). CALL METHOD oref_settings->flush. * carry out the database updates only; the normal commit "n599218 * command does not allow to record this transaction for "n599218 * a batch input session using transaction SHDB "n599218 CALL FUNCTION 'DB_COMMIT'. "n599218 *g_save_params-bukrs = '1101'. *g_save_params-WERKS = '1102'. * set parameter id 'BUK' field g_save_params-bukrs. * SET PARAMETER ID 'WRK' FIELD g_save_params-WERKS. * SET PARAMETER ID 'MAT' FIELD g_save_params-MATNR. * set parameter id 'CHA' field g_save_params-charg. * get PARAMETER ID 'BLN' FIELD g_save_params-belnr. * get PARAMETER ID 'BUK' FIELD g_save_params-bukrs. * get PARAMETER ID 'GJR' FIELD g_save_params-gjahr. SUBMIT ZFBI_R_SD_2012_GET USING SELECTION-SCREEN '1000' WITH MATNR IN MATNR WITH BUKRS IN BUKRS WITH WERKS = WERKS WITH LGORT IN LGORT WITH CHARG IN CHARG WITH SIZE IN SIZE WITH SCAT IN SCAT WITH BWTAR IN BWTAR WITH BWART IN BWART WITH SOBKZ = SOBKZ WITH DATUM IN DATUM AND RETURN. CLEAR:G_T_MSEG_LEAN[],BESTAND[]. IMPORT G_T_MSEG_LEAN TO G_T_MSEG_LEAN FROM MEMORY ID 'G_T_MSEG_LEAN' . IMPORT BESTAND TO BESTAND FROM MEMORY ID 'BESTAND' . FREE MEMORY ID 'G_T_MSEG_LEAN'. FREE MEMORY ID 'BESTAND'. * |