charakter_kopf:Hallo Greetz,
Hallo,
uppps... ich sehe die Rückmeldung heute erst...
Ich habe mich entschieden die Änderung dann doch anders zu machen....
ich habe die Includes selection & forms geändert. Unser neues Programm heißt jetzt einfach: ZFIDITINV
INCLUDE Zfiditinv_selection. "Include for Selecion Screen
INCLUDE zfiditinv_forms. "Include for Subroutines
Im include: Zfiditinv_selection habe ich bevor dieser Anweisung: AT SELECTION-SCREEN ON par_coco diesen Block eingefügt:
SELECTION-SCREEN BEGIN OF BLOCK z01 WITH FRAME TITLE TEXT-z01.
select-OPTIONS: s_eu_kz FOR bset-mwskz. "EU SteuerKZ falsch ausgeprägt
SELECTION-SCREEN END OF BLOCK z01.
Im INCLUDE zfiditinv_forms wird der RFUMSV00 via Submit aufgerufen: SUBMIT rfumsv00 vor der Anweisung:
SORT lt_rfums_summary BY company_code
habe ich folgenden Block eingefügt:
data: ls_rfums_summary like line of lt_rfums_summary.
loop at lt_rfums_summary into ls_rfums_summary.
if ls_rfums_summary-TAX_CODE in s_eu_kz. "Kreditor minus Betrag EU KZ
ls_rfums_summary-VAT_BASE_AMOUNT = ls_rfums_summary-VAT_BASE_AMOUNT * -1.
ls_rfums_summary-VAT_AMOUNT = ls_rfums_summary-VAT_AMOUNT * -1.
modify lt_rfums_summary from ls_rfums_summary.
clear ls_rfums_summary.
endif.
endloop.
Das ist einfacher wie an der Ausgabe der TD10/TD04 rumzuschrauben. Bei uns kam nach der Änderung auch ein anderer Output bei TD11 raus (was vorher TD10 war).
Greetz
Badticket
P.S.
CALL FUNCTION 'DYNP_VALUES_READ' habe ich FORM check_ann_value geändert (INCLUDE zfiditinv_forms)
ich habe jetzt mit der Änderung des Programms RFIDITINV als ZRFIDITINV angefangen. die Änderung soll hier eingefügt werden, richtig?
* no data selected
MESSAGE e021.
ENDIF.
SORT lt_rfums_summary BY company_code
customer_number
supplier_number
document_year
document_number
tax_code
account_key.
* read invoice data
data: ls_rfums_summary like line of lt_rfums_summary.
loop at lt_rfums_summary into ls_rfums_summary.
if ls_rfums_summary-TAX_CODE in s_eu_kz. "Kreditor minus Betrag EU KZ
ls_rfums_summary-VAT_BASE_AMOUNT = ls_rfums_summary-VAT_BASE_AMOUNT * -1.
ls_rfums_summary-VAT_AMOUNT = ls_rfums_summary-VAT_AMOUNT * -1.
modify lt_rfums_summary from ls_rfums_summary.
clear ls_rfums_summary.
endif.
endloop.
PERFORM read_rfums_output USING lt_rfums_summary
ls_company
CHANGING lt_alv_summary
lt_xmllist_dte
lt_xmllist_dtr.
TRY.
PERFORM display_alv USING lt_alv_summary.
CATCH cx_salv_msg INTO lv_alv_ref.
lv_text = lv_alv_ref->get_text( ).
WRITE lv_text.
CATCH cx_salv_not_found INTO lv_alv_ref.
lv_text = lv_alv_ref->get_text( ).
WRITE lv_text.
ENDTRY.
Stimmt diese Einstelllung ? In welche Tabelle bzw. mittels unter welche Data-Anweisung wird „ S_EU_KZ aufgerufen?
vielen danke voraus.
Paulikandy.