Save Dialog input field too short
When i save documents in any app, the save dialog appears. The input field for the file name in very short, meaning, with long filenames you have to scroll and move your mouse in this tiny field?
Why does OSX not use more space for this input field, there is so much more horizontal space left???
Any ideas how to fix this with a workaround?
Apple, please fix this in future updates.
Thanks!
Sandeep,
It is working fine for all the dates,but going giving dump only for a particular date.
KURSF is of length 9.Is it including decimal places.
So,if i declare a varibale of type p decimals 5 and then move actual kursf value to this variable and then SUM,it will work fine.
data:kursf1 type p decimals 5.
move it_header-kursf to it_header-kursf1.
or
just declare the existing kursf as type p decimals 5
But why it is not giving dump for other dates.
Thanks,
K.Kiran.
Similar Messages
-
Hi Folks,
I am getting the following dump error.Can any one here please throw some light on this.
Field too small when calculating totals in internal table.
<b>In the internal table "\PROGRAM=ZFI\DATA=IT_HEADER[]", a SUM statement is used to calculate totals. However, the values are too large for the designated field.
The name of the field is "KURSF".
The name of the field is "KURSF".</b>
The field "KURSF" in the program "ZFIR_IMPORT_REGISTER"
be a different
type (e.g. type P of appropriate length).
REPORT ZFI.
TABLES: rbkp,
rseg,
bset,
mara,
lfa1,
ekko,
t161t.
TYPE-POOLS: slis.
TYPES: BEGIN OF TY_CUSTOM,
WRBTR TYPE RSEG-WRBTR,
KSCHL TYPE RSEG-KSCHL,
EBELN TYPE RSEG-EBELN,
EBELP TYPE RSEG-EBELP,
END OF TY_CUSTOM.
TYPES: BEGIN OF ty_itab,
lfbnr LIKE rseg-lfbnr, " GR NO
belnr LIKE rbkp-belnr, " MIRO doc.no.
buzei LIKE rseg-buzei, " MIRO line item number
fidoc LIKE bkpf-belnr, " accounting doc.no.
matnr LIKE rseg-matnr, " Material number
maktx LIKE makt-maktx, " material description
xblnr LIKE rbkp-xblnr, " Reference Document Number
budat LIKE rbkp-budat, " Posting Date in Document
mwskz LIKE rseg-mwskz, " Tax Code
bklas LIKE rseg-bklas, " Valuation Class
menge LIKE rseg-menge, " Quantity
gjahr LIKE rseg-gjahr, " Fiscal Year
bldat LIKE rbkp-bldat, " Document Date
lifnr TYPE rbkp-lifnr, "Vendor Code
stcd1 TYPE lfa1-stcd1, "Tin number
matkl TYPE mara-matkl, "Mat Desc
name1 TYPE lfa1-name1, "Vendor Name
awkey TYPE bkpf-awkey, "Reference Key
str_suppl1 TYPE adrc-str_suppl1, "Street
post_code1 TYPE adrc-post_code1, "Pincode
city1 TYPE adrc-city1, "City
region TYPE adrc-region, "Region
adrnr TYPE lfa1-adrnr, "Address Number
dms(3) TYPE c, "DMS
werks TYPE rseg-werks, "PLANT
bukrs TYPE rseg-bukrs, "COMPANY CODE
stblg TYPE rbkp-stblg, "DOCUMENT REVERSAL INDICATOR
mtart TYPE mara-mtart, "MATERIAL TYPE
wrbtr TYPE rseg-wrbtr, "Base Amount
tax_amount TYPE konv-kwert, "Tax amount for summary
vgart TYPE rbkp-vgart, "Transaction Type
ivtyp TYPE rbkp-ivtyp, "Invoice Category
reverse(2), "Invoice Reversed
land1 TYPE lfa1-land1, "Country Key
*Fields added for customs
BED TYPE RSEG-WRBTR, "BASIC ED FOR CUSTOMS
CVD TYPE RSEG-WRBTR, "CVD FOR CUSTOMS
ECVD TYPE RSEG-WRBTR, "CESS ON VD FOR CUSTOMS
ECED TYPE RSEG-wrbtr, "CESS ON DUTIES
lfgja type rseg-lfgja, "Mat Doc Year
frbnr type mkpf-frbnr, "Bill of Lading No
waers type rbkp-waers,
txz01 TYPE ekpo-txz01, "Short Text for Material
ebeln TYPE rseg-ebeln, "Purchasing Doc
bsart type ekko-bsart, "Pur.Doc Type
batxt type t161t-batxt, "Desc for Pur Doc.Type
ebelp TYPE ekpo-ebelp, "Purchase Ord Ln Item
NCVD TYPE RSEG-WRBTR, "CESS ON VD FOR CUSTOMS
SBED TYPE RSEG-wrbtr, "CESS ON DUTIES
TEXT(30),
qtr_yr(4),
qtr_mth(10),
*Fields added for Inr Value for exchange rate
kursf type rbkp-kursf,
inrval type rseg-wrbtr,
BELNR1 TYPE RBKP-BELNR,
remarks(15),
END OF ty_itab.
TYPES: BEGIN OF ty_header,
belnr LIKE rbkp-belnr, " MIRO doc.no.
fidoc LIKE bkpf-belnr, " accounting doc.no.
xblnr LIKE rbkp-xblnr, " Reference Document Number
budat LIKE rbkp-budat, " Posting Date in Document
mwskz LIKE rseg-mwskz, " Tax Code
bklas LIKE rseg-bklas, " Valuation Class
gjahr LIKE rseg-gjahr, " Fiscal Year
bldat LIKE rbkp-bldat, " Document Date
lifnr TYPE rbkp-lifnr, "Vendor Code
stcd1 TYPE lfa1-stcd1, "Tin number
name1 TYPE lfa1-name1, "Vendor Name
awkey TYPE bkpf-awkey, "Reference Key
str_suppl1 TYPE adrc-str_suppl1, "Street
post_code1 TYPE adrc-post_code1, "Pincode
city1 TYPE adrc-city1, "City
region TYPE adrc-region, "Region
adrnr TYPE lfa1-adrnr, "Address Number
dms(3) TYPE c, "DMS
werks TYPE rseg-werks, "PLANT
bukrs TYPE rseg-bukrs, "COMPANY CODE
stblg TYPE rbkp-stblg, "DOCUMENT REVERSAL INDICATOR
mtart TYPE mara-mtart, "MATERIAL TYPE
wrbtr TYPE rseg-wrbtr, "Base Amount
tax_amount TYPE konv-kwert, "Tax amount for summary
vgart TYPE rbkp-vgart, "Transaction Type
ivtyp TYPE rbkp-ivtyp, "Invoice Category
reverse(2), "Invoice Reversed
land1 TYPE lfa1-land1, "Country Key
BED TYPE RSEG-WRBTR, "BASIC ED FOR CUSTOMS
CVD TYPE RSEG-WRBTR, "CVD FOR CUSTOMS
ECVD TYPE RSEG-WRBTR, "CESS ON VD FOR CUSTOMS
ECED TYPE RSEG-wrbtr, "CESS ON DUTIES
lfgja type rseg-lfgja, "Mat Doc Year
frbnr type mkpf-frbnr, "Bill of Lading No
waers type rbkp-waers,
txz01 TYPE ekpo-txz01, "Short Text for Material
NCVD TYPE RSEG-WRBTR, "CESS ON VD FOR CUSTOMS
SBED TYPE RSEG-wrbtr, "CESS ON DUTIES
TEXT(30),
qtr_yr(4),
qtr_mth(10),
*Fields added for Inr Value for exchange rate
kursf type rbkp-kursf,
inrval type rseg-wrbtr,
BELNR1 TYPE RBKP-BELNR,
remarks(15),
END OF ty_header.
types: begin of ty_pohistory,
xblnr type ekbe-xblnr,
bewtp type ekbe-bewtp,
belnr type ekbe-belnr,
gjahr type ekbe-gjahr,
end of ty_pohistory.
TYPES: BEGIN OF ty_temp,
fidoc TYPE bkpf-belnr, "FIDOC No
awkey TYPE bkpf-belnr, "Reference Key
gjahr TYPE bkpf-gjahr, "Fiscal Year
budat TYPE bkpf-budat, "Posting Date
belnr TYPE rbkp-belnr, "Doc No
blart TYPE bkpf-blart, "Document Type
END OF ty_temp.
*Internal Table
DATA: itab TYPE ty_itab OCCURS 0 WITH HEADER LINE.
DATA: itab_temp TYPE ty_temp OCCURS 0 WITH HEADER LINE.
DATA : IT_CUSTOM TYPE TY_CUSTOM OCCURS 0 WITH HEADER LINE.
data: it_pohistory type ty_pohistory occurs 0 with header line.
data : it_header type ty_header occurs 0 with header line.
data : it_temp14 type ty_header occurs 0 with header line.
*Data Declaration
DATA: BKTXT TYPE MKPF-BKTXT.
DATA: FRBNR TYPE MKPF-FRBNR.
data: budat type mkpf-budat.
DATA: BELNR TYPE RSEG-BELNR.
data: gjahr type rseg-gjahr.
data: date1(10).
data: date2(10).
data: title(70).
DATA : adrnr1 LIKE t001w-adrnr.
DATA: plant_name1 LIKE adrc-name1.
DATA: plant_name2 type adrc-name2.
data: plant_name(70).
DATA: comp_name1 LIKE adrc-name1.
DATA: comp_name2 type adrc-name2.
data: comp_name(70).
DATA: month(2).
For ALV display
DATA: itfieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
gd_layout TYPE slis_layout_alv,
itsort TYPE slis_t_sortinfo_alv WITH HEADER LINE.
DATA: gd_prntparams TYPE slis_print_alv.
DATA : it_data TYPE slis_t_listheader,
wa_data LIKE LINE OF it_data.
**ALV Declaration
DATA: it_alv1 LIKE TABLE OF itab WITH HEADER LINE.
DATA : i TYPE n.
DATA : col_name(10) TYPE c.
data: text(70).
*Selection Screen
SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE text-001.
PARAMETERS:p_bukrs LIKE rbkp-bukrs OBLIGATORY.
SELECT-OPTIONS: s_werks FOR rseg-werks NO INTERVALS OBLIGATORY.
SELECT-OPTIONS: s_regio FOR lfa1-regio NO INTERVALS.
SELECT-OPTIONS: s_lifnr FOR lfa1-lifnr NO INTERVALS.
select-options: s_bsart for ekko-bsart no intervals.
SELECT-OPTIONS:s_bldat FOR rbkp-bldat.
SELECT-OPTIONS:s_budat FOR rbkp-budat OBLIGATORY.
SELECTION-SCREEN END OF BLOCK block1.
SELECTION-SCREEN BEGIN OF BLOCK block2 WITH FRAME TITLE text-002.
PARAMETERS : R1 RADIOBUTTON GROUP G1.
PARAMETERS : R2 RADIOBUTTON GROUP G1.
SELECTION-SCREEN END OF BLOCK block2.
SELECT-OPTIONS: s_mwskz FOR rseg-mwskz NO-DISPLAY.
SELECT-OPTIONS: s_land1 FOR lfa1-land1 NO-DISPLAY.
START-OF-SELECTION.
PERFORM get_data.
**Filtering the Data based on the Document Type and Document Status in the Internal Table
LOOP AT itab_temp.
IF itab_temp-blart = 'RE'.
itab_temp-belnr = itab_temp-awkey+0(10).
MODIFY itab_temp.
ELSE.
DELETE itab_temp.
ENDIF.
ENDLOOP.
WRITE : s_budat-low TO date1,
s_budat-high TO date2.
CONCATENATE 'Import Purchase Register From :' date1 ' To : ' date2 INTO text.
if r1 = 'X'.
PERFORM taxvalues.
PERFORM filtering.
PERFORM CUSTOMS.
perform filtering2.
PERFORM build_layout.
PERFORM build_fieldcat.
PERFORM alv_display.
endif.
if r2 = 'X'.
PERFORM taxvalues.
PERFORM filtering.
PERFORM CUSTOMS.
perform filtering2.
PERFORM importheader.
PERFORM build_layout.
PERFORM build_fieldcat1.
PERFORM alv_display_header.
endif.
*& Form get_data
text
--> p1 text
<-- p2 text
FORM get_data .
SELECT belnr AS fidoc
awkey
budat
gjahr
blart
FROM bkpf INTO CORRESPONDING FIELDS OF TABLE itab_temp
WHERE bukrs = p_bukrs
AND budat IN s_budat
AND bstat = space.
IF sy-subrc NE 0.
MESSAGE 'No Values exist for the Selection.' TYPE 'S'.
STOP.
ENDIF.
ENDFORM.
*& Form taxvalues
text
--> p1 text
<-- p2 text
FORM taxvalues .
LOOP AT itab_temp.
MOVE-CORRESPONDING itab_temp TO itab.
SELECT SINGLE
lifnr
xblnr
belnr
gjahr
stblg
bldat
vgart
ivtyp
waers
kursf
FROM rbkp INTO CORRESPONDING FIELDS OF itab
WHERE belnr = itab_temp-belnr
AND gjahr = itab_temp-gjahr.
SELECT menge
bklas
matnr
lfbnr
werks
mwskz
buzei
wrbtr
pstyp
kschl
ebeln
ebelp
lfgja
shkzg FROM rseg INTO CORRESPONDING FIELDS OF itab
WHERE belnr = itab_temp-belnr
AND gjahr = itab_temp-gjahr.
APPEND itab.
ENDSELECT.
CLEAR itab.
CLEAR itab_temp.
ENDLOOP.
LOOP AT itab .
*Purchase Order Document Type.
select single bsart from ekko into corresponding fields of itab
where ebeln = itab-ebeln.
select single batxt from t161t into corresponding fields of itab
where spras = 'EN' AND
bsart = itab-bsart.
*Material Details
SELECT SINGLE matkl mtart FROM mara
INTO CORRESPONDING FIELDS OF itab
WHERE mara~matnr = itab-matnr.
SELECT SINGLE name1 adrnr land1 FROM lfa1 INTO
(itab-name1,itab-adrnr,itab-land1) WHERE lifnr = itab-lifnr.
*Short Text
SELECT SINGLE txz01 INTO itab-maktx FROM ekpo
WHERE ebeln = itab-ebeln
and ebelp = itab-ebelp.
**Vendor Address
SELECT SINGLE str_suppl1
post_code1
city1
region
FROM adrc INTO CORRESPONDING FIELDS OF itab
WHERE addrnumber = itab-adrnr.
itab-qtr_yr = itab-bldat+0(4).
month = itab-bldat+4(2).
CASE month.
WHEN '01'.
itab-qtr_mth = 'JAN'.
WHEN '02'.
itab-qtr_mth = 'FEB'.
WHEN '03'.
itab-qtr_mth = 'MAR'.
WHEN '04'.
itab-qtr_mth = 'APR'.
WHEN '05'.
itab-qtr_mth = 'MAY'.
WHEN '06'.
itab-qtr_mth = 'JUN'.
WHEN '07'.
itab-qtr_mth = 'JUL'.
WHEN '08'.
itab-qtr_mth = 'AUG'.
WHEN '09'.
itab-qtr_mth = 'SEP'.
WHEN '10'.
itab-qtr_mth = 'OCT'.
WHEN '11'.
itab-qtr_mth = 'NOV'.
WHEN '12'.
itab-qtr_mth = 'DEC'.
ENDCASE.
*INR VALUE CALCULATION
<b>itab-inrval = itab-wrbtr * itab-kursf.</b>MODIFY itab.
ENDLOOP.
ENDFORM. " taxvalues
*& Form build_layout
text
--> p1 text
<-- p2 text
FORM build_layout .
CLEAR itab.
gd_layout-zebra = 'X'.
gd_layout-colwidth_optimize = 'X'.
ENDFORM. " build_layout
*& Form build_fieldcat
text
--> p1 text
<-- p2 text
FORM build_fieldcat .
IF itab[] IS INITIAL.
MESSAGE 'No Values exist for the Selection.' TYPE 'S'.
STOP.
ENDIF.
DEFINE m_fieldcat.
itfieldcat-fieldname = &1.
itfieldcat-col_pos = &2.
itfieldcat-seltext_l = &3.
itfieldcat-do_sum = &4.
itfieldcat-outputlen = &5.
append itfieldcat to itfieldcat.
clear itfieldcat.
END-OF-DEFINITION.
m_fieldcat 'LFBNR' '' 'GR NO' '' 10.
m_fieldcat 'BELNR' '' 'MIRO NO' '' 10.
m_fieldcat 'BUZEI' '' 'MIRO LN ITM' '' 10.
m_fieldcat 'LIFNR' '' 'VENDOR CODE' '' 10.
m_fieldcat 'NAME1' '' 'VENDOR NAME' '' 14.
m_fieldcat 'STR_SUPPL1' '' 'VENDOR ADDRESS' '' '15' .
m_fieldcat 'POST_CODE1' '' 'PINCODE' '' 6.
m_fieldcat 'XBLNR' '' 'VEN INV NO' '' 16.
m_fieldcat 'BLDAT' '' 'VEN INV DATE' '' 8.
m_fieldcat 'EBELN' '' 'PUR ORD NO' '' 10.
m_fieldcat 'BATXT' '' 'PUR ORD DOC.TYPE' '' 20. "Pur Doc. Type Description
m_fieldcat 'EBELP' '' 'PUR LN ITM' '' 5.
m_fieldcat 'WERKS' '' 'PLANT' '' 8.
m_fieldcat 'MATNR' '' 'MAT NO' '' 18.
m_fieldcat 'MAKTX' '' 'MAT DESC' '' 15.
m_fieldcat 'MATKL' '' 'MAT CC' '' 7.
m_fieldcat 'MENGE' '' 'QTY' '' 13.
m_fieldcat 'WRBTR' '' 'VAL. OF GOODS' '' 11.
m_fieldcat 'WAERS' '' 'CURR' '' 5.
m_fieldcat 'INRVAL' '' 'INR VALUE' '' 13.
m_fieldcat 'BED' '' 'BED' '' 10.
m_fieldcat 'CVD' '' 'CVD' '' 10.
m_fieldcat 'ECVD' '' 'CESS ON CVD' '' 10.
m_fieldcat 'ECED' '' 'CESS ON DUTIES' '' 13.
*Bill of Lading Removed and Bill of Entry Added.
m_fieldcat 'FRBNR' '' 'BILL OF LADING' '' 13.
m_fieldcat 'BELNR1' '' 'BILL OF ENTRY' '' 13.
m_fieldcat 'REVERSE' '' 'Reversed' '' 2.
m_fieldcat 'FIDOC' '' 'FI DOC NO' '' 10.
m_fieldcat 'MWSKZ' '' 'TC' '' 2.
m_fieldcat 'BKLAS' '' 'VL CLS' '' 4.
m_fieldcat 'CITY1' '' 'VENDOR CITY' '' 10.
m_fieldcat 'QTR_MTH' '' 'MONTH' '' 10.
m_fieldcat 'QTR_YR' '' 'YEAR' '' 4.
m_fieldcat 'REMARKS' '' 'REMARKS' '' 15.
ENDFORM. " build_fieldcat
*& Form list1
text
-->R_UCOMM text
-->RS_SELFIELDtext
FORM list1 USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
Check function code
CASE r_ucomm.
WHEN '&IC1'.
Check field clicked on within ALVgrid report
IF rs_selfield-fieldname = 'LFBNR'.
AND rs_selfield-fieldname = 'GJAHR'.
Read data table, using index of row user clicked on
READ TABLE itab
INTO wa_ekko
INDEX rs_selfield-tabindex.
Set parameter ID for transaction screen field
SET PARAMETER ID 'MBN' FIELD itab-lfbnr.
SET PARAMETER ID 'GJR' FIELD itab-gjahr.
Sxecute transaction ME23N, and skip initial data entry screen
CALL TRANSACTION 'MB03' AND SKIP FIRST SCREEN.
ENDIF.
IF rs_selfield-fieldname = 'FIDOC'.
AND rs_selfield-fieldname = 'GJAHR'.
Read data table, using index of row user clicked on
READ TABLE itab
INTO wa_ekko
INDEX rs_selfield-tabindex.
Set parameter ID for transaction screen field
SET PARAMETER ID 'BLN' FIELD itab-fidoc.
SET PARAMETER ID 'BUK' FIELD p_bukrs.
SET PARAMETER ID 'GJR' FIELD itab-gjahr.
Sxecute transaction ME23N, and skip initial data entry screen
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
ENDIF.
IF rs_selfield-fieldname = 'BELNR'.
AND rs_selfield-fieldname = 'GJAHR'.
Read data table, using index of row user clicked on
READ TABLE itab
INTO wa_ekko
INDEX rs_selfield-tabindex.
Set parameter ID for transaction screen field
SET PARAMETER ID 'RBN' FIELD itab-BELNR.
SET PARAMETER ID 'GJR' FIELD itab-gjahr.
Sxecute transaction ME23N, and skip initial data entry screen
CALL TRANSACTION 'MIR4' AND SKIP FIRST SCREEN.
ENDIF.
IF rs_selfield-fieldname = 'BELNR1'.
AND rs_selfield-fieldname = 'GJAHR'.
Read data table, using index of row user clicked on
READ TABLE itab
INTO wa_ekko
INDEX rs_selfield-tabindex.
Set parameter ID for transaction screen field
SET PARAMETER ID 'RBN' FIELD itab-BELNR1.
SET PARAMETER ID 'GJR' FIELD itab-gjahr.
Sxecute transaction ME23N, and skip initial data entry screen
CALL TRANSACTION 'MIR4' AND SKIP FIRST SCREEN.
ENDIF.
ENDCASE.
ENDFORM.
*& Form alv_display
text
--> p1 text
<-- p2 text
FORM alv_display .
IF sy-batch = space.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
is_layout = gd_layout
i_callback_user_command = 'LIST1'
I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
it_fieldcat = itfieldcat[]
i_save = 'A'
is_print = gd_prntparams
it_sort = itsort[]
TABLES
t_outtab = itab
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ELSEIF sy-batch = 'X'.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
i_callback_program = sy-repid
it_fieldcat = itfieldcat[]
it_sort = itsort[]
TABLES
t_outtab = itab
EXCEPTIONS
program_error = 1
OTHERS = 2
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDIF.
ENDFORM. " alv_display
*& Form FILTERING
text
--> p1 text
<-- p2 text
FORM filtering .
Material type should be of ROH or HALB or FERT
*CLEAR s_mtart.
*REFRESH s_mtart.
*s_mtart-sign = 'I'.
*s_mtart-option = 'EQ'.
*s_mtart-low = 'ROH'.
*APPEND s_mtart.
*s_mtart-low = 'HALB'.
*APPEND s_mtart.
*s_mtart-low = 'FERT'.
*APPEND s_mtart.
*CLEAR s_mtart.
*Tax Code for WCT should not be included.
s_mwskz-sign = 'I'.
s_mwskz-option = 'EQ'.
s_mwskz-low = 'W1'.
APPEND s_mwskz.
s_mwskz-low = 'W2'.
APPEND s_mwskz.
s_mwskz-low = 'W3'.
APPEND s_mwskz.
s_mwskz-low = 'W4'.
APPEND s_mwskz.
s_mwskz-low = 'W5'.
APPEND s_mwskz.
s_mwskz-low = 'W6'.
APPEND s_mwskz.
s_land1-sign = 'I'.
s_land1-option = 'NE'.
s_land1-low = 'IN'.
APPEND s_land1.
LOOP AT itab.
IF itab-mwskz NOT IN s_mwskz
AND itab-shkzg EQ 'S'
AND itab-bldat IN s_bldat
AND itab-region IN s_regio
AND itab-lifnr IN s_lifnr
AND itab-land1 IN s_land1
AND itab-werks IN s_werks
AND itab-bsart IN s_bsart.
ELSE.
DELETE itab.
CONTINUE.
ENDIF.
IF itab-vgart EQ 'RS'
AND itab-ivtyp EQ '5'
AND itab-stblg NE ' '.
itab-reverse = 'RS'.
ELSEIF itab-vgart EQ 'RD'
AND itab-ivtyp EQ ' '
AND itab-stblg NE ' '.
itab-reverse = 'RD'.
ENDIF.
MODIFY itab.
ENDLOOP.
ENDFORM. " FILTERING
*& Form CUSTOMS
text
--> p1 text
<-- p2 text
form CUSTOMS .
LOOP AT ITAB.
IF ITAB-LFBNR IS NOT INITIAL.
SELECT SINGLE BKTXT
FRBNR
budat
FROM MKPF INTO (BKTXT,FRBNR,budat)
WHERE MBLNR = ITAB-LFBNR
and mjahr = itab-lfgja.
move frbnr to itab-frbnr.
perform get_custom_invoice.
else.
select xblnr
bewtp
belnr
gjahr
from ekbe into table it_pohistory
where ebeln = itab-ebeln
and ebelp = itab-ebelp.
sort it_pohistory by xblnr.
read table it_pohistory with key xblnr = itab-xblnr bewtp = 'E' binary search.
if sy-subrc = 0.
SELECT SINGLE BKTXT
FRBNR
budat
FROM MKPF INTO (BKTXT,FRBNR,budat)
WHERE MBLNR = it_pohistory-belnr
and mjahr = it_pohistory-gjahr.
move it_pohistory-belnr to itab-lfbnr.
move frbnr to itab-frbnr.
perform get_custom_invoice.
endif.
ENDIF.
MODIFY ITAB.
clear: bktxt,frbnr,budat.
ENDLOOP.
SORT itab BY lfbnr belnr. " Sorting by GR no.
endform. " CUSTOMS
*& Form get_custom_invoice
text
--> p1 text
<-- p2 text
form get_custom_invoice .
CALL FUNCTION 'GET_CURRENT_YEAR'
EXPORTING
BUKRS = p_bukrs
DATE = budat
IMPORTING
CURRY = gjahr
determine if wrong characters were entered
IF ( BKTXT CN '1234567890' ).
*string contains wrong characters!
ITAB-BELNR1 = BKTXT.
ITAB-remarks = 'Wrng BoE Ref'.
EXIT.
ENDIF.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = BKTXT
IMPORTING
OUTPUT = BELNR
ITAB-BELNR1 = BELNR.
*For getting the Customs MIRO doc, it is assumed that the Fiscal Year of Customs Miro is same as Fiscal Year of Migo Posting Date
clear it_custom.
refresh it_custom.
SELECT WRBTR
KSCHL
EBELN
EBELP
FROM RSEG INTO CORRESPONDING FIELDS OF IT_CUSTOM
WHERE BELNR = BELNR
and gjahr = gjahr.
if sy-subrc = 0.
APPEND IT_CUSTOM.
endif.
ENDSELECT.
LOOP AT IT_CUSTOM.
IF IT_CUSTOM-EBELN = ITAB-EBELN AND IT_CUSTOM-EBELP = ITAB-EBELP.
CASE IT_CUSTOM-KSCHL.
WHEN 'JCDB'.
MOVE IT_CUSTOM-WRBTR TO ITAB-BED.
WHEN 'JCV1'.
MOVE IT_CUSTOM-WRBTR TO ITAB-CVD.
WHEN 'JECV'.
MOVE IT_CUSTOM-WRBTR TO ITAB-ECVD.
WHEN 'JEDB'.
MOVE IT_CUSTOM-WRBTR TO ITAB-ECED.
WHEN 'JCDS'.
MOVE IT_CUSTOM-WRBTR TO ITAB-SBED.
WHEN 'JCV2'.
MOVE IT_CUSTOM-WRBTR TO ITAB-NCVD.
ENDCASE.
ENDIF.
ENDLOOP.
endform. " get_custom_invoice
*& Form filtering2
text
--> p1 text
<-- p2 text
form filtering2 .
loop at itab.
if itab-lfbnr is initial.
delete itab.
endif.
endloop.
endform. " filtering2
*& Form top_of_page
text
FORM top_of_page.
CLEAR IT_DATA.
REFRESH IT_DATA.
*Company Details
SELECT adrnr FROM t001 INTO adrnr1 WHERE bukrs = p_bukrs.
ENDSELECT.
SELECT name1 name2 FROM adrc INTO (comp_name1,comp_name2) WHERE addrnumber = adrnr1.
ENDSELECT.
concatenate comp_name1 comp_name2 into comp_name.
wa_data-typ = 'H'.
wa_data-info = comp_name.
APPEND wa_data TO it_data.
*Plant Details for Display
loop at s_werks.
SELECT single adrnr FROM t001w INTO adrnr1 WHERE werks = s_werks-low.
SELECT single name1 name2 FROM adrc INTO (plant_name1,plant_name2) WHERE addrnumber = adrnr1.
concatenate s_werks-low ' - ' plant_name1 ',' plant_name2 into plant_name.
wa_data-info = plant_name.
APPEND wa_data TO it_data.
endloop.
WRITE : s_budat-low TO date1,
s_budat-high TO date2.
if r1 = 'X'.
CONCATENATE 'Import Purchase Register From :' date1 ' To : ' date2 INTO title.
elseif r2 = 'X'.
CONCATENATE 'Imp.Pur.Reg- Inv.Header From :' date1 ' To : ' date2 INTO title.
endif.
wa_data-info = title.
APPEND wa_data TO it_data.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = it_data
I_LOGO =
I_END_OF_LIST_GRID =
CLEAR WA_DATA.
CLEAR IT_DATA.
ENDFORM. "top_of_page
*& Form importheader
text
--> p1 text
<-- p2 text
form importheader .
LOOP AT itab.
MOVE-CORRESPONDING itab TO it_header.
APPEND it_header.
ENDLOOP.
SORT it_header BY belnr.
<b>LOOP AT it_header.
AT END OF belnr.
READ TABLE it_header INDEX sy-tabix.
SUM. </b> " Summing the Amount for each Vendor Invoice No.
MOVE-CORRESPONDING it_header TO it_temp14.
APPEND it_temp14.
CLEAR it_temp14.
ENDAT.
ENDLOOP.
SORT it_temp14 BY belnr ASCENDING. " SORTING BY MIRO NUMBER
endform. " importheader
*& Form build_fieldcat1
text
--> p1 text
<-- p2 text
form build_fieldcat1 .
IF itab[] IS INITIAL.
MESSAGE 'No Values exist for the Selection.' TYPE 'S'.
STOP.
ENDIF.
DEFINE m_fieldcat.
itfieldcat-fieldname = &1.
itfieldcat-col_pos = &2.
itfieldcat-seltext_l = &3.
itfieldcat-do_sum = &4.
itfieldcat-outputlen = &5.
append itfieldcat to itfieldcat.
clear itfieldcat.
END-OF-DEFINITION.
m_fieldcat 'BELNR' '' 'MIRO NO' '' 10.
m_fieldcat 'LIFNR' '' 'VENDOR CODE' '' 10.
m_fieldcat 'NAME1' '' 'VENDOR NAME' '' 14.
m_fieldcat 'STR_SUPPL1' '' 'VENDOR ADDRESS' '' '15' .
m_fieldcat 'POST_CODE1' '' 'PINCODE' '' 6.
m_fieldcat 'XBLNR' '' 'VEN INV NO' '' 16.
m_fieldcat 'BLDAT' '' 'VEN INV DATE' '' 8.
m_fieldcat 'WERKS' '' 'PLANT' '' 8.
m_fieldcat 'WRBTR' '' 'VAL. OF GOODS' '' 11.
m_fieldcat 'WAERS' '' 'CURR' '' 5.
m_fieldcat 'INRVAL' '' 'INRVALUE' '' 11.
m_fieldcat 'BED' '' 'BED' '' 10.
m_fieldcat 'CVD' '' 'CVD' '' 10.
m_fieldcat 'ECVD' '' 'CESS ON CVD' '' 10.
m_fieldcat 'ECED' '' 'CESS ON DUTIES' '' 13.
*Bill of Lading Removed and Bill of Entry Added.
m_fieldcat 'FRBNR' '' 'BILL OF LADING' '' 13.
m_fieldcat 'BELNR1' '' 'BILL OF ENTRY' '' 13.
m_fieldcat 'REVERSE' '' 'Reversed' '' 2.
m_fieldcat 'FIDOC' '' 'FI DOC NO' '' 10.
m_fieldcat 'MWSKZ' '' 'TC' '' 2.
m_fieldcat 'BKLAS' '' 'VL CLS' '' 4.
m_fieldcat 'CITY1' '' 'VENDOR CITY' '' 10.
m_fieldcat 'QTR_MTH' '' 'MONTH' '' 10.
m_fieldcat 'QTR_YR' '' 'YEAR' '' 4.
m_fieldcat 'REMARKS' '' 'REMARKS' '' 15.
ENDFORM. " build_fieldcat
*& Form alv_display_header
text
--> p1 text
<-- p2 text
form alv_display_header .
IF sy-batch = space.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
is_layout = gd_layout
i_callback_user_command = 'LIST2'
I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
it_fieldcat = itfieldcat[]
i_save = 'A'
is_print = gd_prntparams
it_sort = itsort[]
TABLES
t_outtab = it_temp14
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ELSEIF sy-batch = 'X'.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
i_callback_program = sy-repid
it_fieldcat = itfieldcat[]
it_sort = itsort[]
TABLES
t_outtab = it_temp14
EXCEPTIONS
program_error = 1
OTHERS = 2
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDIF.
endform. " alv_display_header
*& Form list1
text
-->R_UCOMM text
-->RS_SELFIELDtext
FORM list2 USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
Check function code
CASE r_ucomm.
WHEN '&IC1'.
IF rs_selfield-fieldname = 'FIDOC'.
AND rs_selfield-fieldname = 'GJAHR'.
Read data table, using index of row user clicked on
READ TABLE it_temp14
INTO wa_ekko
INDEX rs_selfield-tabindex.
Set parameter ID for transaction screen field
SET PARAMETER ID 'BLN' FIELD it_temp14-fidoc.
SET PARAMETER ID 'BUK' FIELD p_bukrs.
SET PARAMETER ID 'GJR' FIELD it_temp14-gjahr.
Sxecute transaction ME23N, and skip initial data entry screen
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
ENDIF.
IF rs_selfield-fieldname = 'BELNR'.
AND rs_selfield-fieldname = 'GJAHR'.
Read data table, using index of row user clicked on
READ TABLE it_temp14
INTO wa_ekko
INDEX rs_selfield-tabindex.
Set parameter ID for transaction screen field
SET PARAMETER ID 'RBN' FIELD it_temp14-BELNR.
SET PARAMETER ID 'GJR' FIELD it_temp14-gjahr.
Sxecute transaction ME23N, and skip initial data entry screen
CALL TRANSACTION 'MIR4' AND SKIP FIRST SCREEN.
ENDIF.
IF rs_selfield-fieldname = 'BELNR1'.
AND rs_selfield-fieldname = 'GJAHR'.
Read data table, using index of row user clicked on
READ TABLE it_temp14
INTO wa_ekko
INDEX rs_selfield-tabindex.
Set parameter ID for transaction screen field
SET PARAMETER ID 'RBN' FIELD it_temp14-BELNR1.
SET PARAMETER ID 'GJR' FIELD it_temp14-gjahr.
Sxecute transaction ME23N, and skip initial data entry screen
CALL TRANSACTION 'MIR4' AND SKIP FIRST SCREEN.
ENDIF.
ENDCASE.
ENDFORM.
Message was edited by:
Kiran KSandeep,
It is working fine for all the dates,but going giving dump only for a particular date.
KURSF is of length 9.Is it including decimal places.
So,if i declare a varibale of type p decimals 5 and then move actual kursf value to this variable and then SUM,it will work fine.
data:kursf1 type p decimals 5.
move it_header-kursf to it_header-kursf1.
or
just declare the existing kursf as type p decimals 5
But why it is not giving dump for other dates.
Thanks,
K.Kiran. -
FMDependency field too short in Sharepoint
Hi,
we are using FM10 with Sharepoint 2010.
It works fine, generally speaking, but we are running into an issue with the field FMDependency.
The field is created automatically when a FM10 file is uploaded. However it is too short for the kind of dependencies we have and it issues an error when we modify other metadata in Sharepoint and save the item.
is it possibile to change the length of this field ? Where and how ?
Thanks for your support
Carlo Tognoni
Milano - ItalyI have not tried this myself, but I am concerned in case the problem affects us one day. If you follow this suggestion, please let us know how it goes.
In SharePoint:
Site Actions > Site Settings > Site Administration: Site Libraries and lists > Customize [your DITA list].
Scroll down to the Columns section and select FMDependency.
In the Additional Column Settings section, set Allow unlimited length in document libraries to Yes.
My reference for this was http://sharepoint.stackexchange.com/questions/14195/more-than-255-characters-in-multiple-l ines-of-text
Alternatively, you could try increasing the Number of lines for editing on the same page. -
CRM replication t_other_info BAPIEXTC structure field too short
I am using the FM to map r3 to crm and it tells us to use the structure T_other_info which has 4 fields, field 1, field 2, field 3, and field 4 each only 250 chars.
My structure that i am passing to the function module is 300 char for field3, what can i do? I am not able to replicate addiitional fields because when i pass it over it turns into '###' when the field is mapped. I am assuming it is because i can only pass 250 chars to field1,2,3,4 etc.
The fm i am using is 'Z_U_EXIT_MAT_MAP_OLTP' .
tables
t_int_tables = t_int_tables
t_bapistruct = t_bapistruct
t_messages = t_messages
t_other_info = t_other_info.
thank you.not answered
-
Authorization Object for 0TCTBISBOBJ - restriction field too short in PFCG
Dear all,
I created an authorization object (TA: RSSM) with the InfoObject 0TCTBISBOBJ and 1KYFNM. When I restrict my authorization object in TA: PFCG, I can only type in 11 letters for InfoObject 0TCTBISBOBJ but I need 12 because of a bad naming convention. Working with more than one asterisk (*) in this field is not working!
Does anyone know how to manage this problem?
Thanks in advance
F. L.Martin,
It is not possible to restrict this in CRM. The person, organization, and group influences the type of address for the business partner. There are no user exits available in CRM 4.0 that are at the point to perform an authorization check on this value.
I had to unfortuantely debug and read much of BUPA_DIALOG_JOEL before reaching this conclusion. The only way to achieve this would be to write a custom front-end to the BP transaction or PCUI screens for business partners.
Hope this answers your question,
Stephen -
Hide extension in file name input field when saving?
A few days ago in Photoshop CS6 I started automatically getting an extension in the file name input field.
Previously, when I did a "save as" I got, for example "image01."
A few days ago I started getting "image01.jpg."
I have another installation of CS6 on another desktop and on that one I get simply "image01." That's the way is had been on this machine.
This has nothing to do with file/folder options in Windows Explorer. I don't see extension names anywhere but in the Photoshop 'save as' input field.
It is highly annoying because I process a lot of images and having to get rid of the ".jpg" wastes time.
Anyone have any ideas?
dgThanks, everyone for your replies. Perhaps I did not explain this clearly.
This change I experienced has nothing to do with Windows Explorer settings.
Here's what the input looks like on my secondary machine and how Photoshop behaved on my primary machine until a few days ago:
All that is shown is the file name: No extension.
Here's what I'm getting now:
Suddenly Photoshop in adding ".jpg" to the end of the file name. This happens in both 64 bit (my default) and 32 bit (I never use it but tested i)t.
I have not changed anything yet, but could this be a Photoshop preferences issue as gener7 suggested? I made no changes to my Photoshop installation prior to this starting to happen.
As an aside. I'm surprised people like having the extension in the file name. I have never found that to be necessary at all, since Windows Explorer shows the file type right in the window:
And if you select an image it's also shown on the lower left:
I use primarily .jpgs, .tiffs, and CR2 files and even without looking at the examples above, the icon alone tells me what kind of file it is.
dg -
Bug v4.0 - no input field for file name in export dialog
Hello,
I run a query, right click in the result grid and choose "Export". There is no input field to provide a file name. I can only export to the default file.
Version 4.0.0.13 on XP
Edit: Seems to be an issue with the settings (maybe those migrated from 3.2.2). When I install without migrating settings I get the full dialog. I will try some combinations and update this post.
Edit: I installed again without migration my settings. When I set the preferences manually I cannot reproduce the bug. Maybe some bug in the import for the preferences? Maybe it only happens on German XPs.
Regards
MarcusThank you, 5p given.
However this is what I execute and in my file chooser dialog the filename field is still blank.
ExampleFileFilter filter = new ExampleFileFilter();
filter.addExtension("html");
filter.addExtension("csv");
JFileChooser chooser = new JFileChooser(new File("REPORT_ONE_"));
chooser.setDialogTitle( "Save Report" );
chooser.setFileSelectionMode(chooser.FILES_AND_DIRECTORIES);
chooser.setFileFilter(filter);
int returnVal = chooser.showSaveDialog(this);
...It is in try-catch, no errors are returned.
Operating System: WindowsXP
Java Version: 1.3.1 -
Open/save dialog boxes stuck at (too small) default size
I've been having a relatively small issue with Mountain Lion that has become a big hassle. In past versions of OS X, whenever I'd resize an open/save dialog box in an application, it would be that size the next time I went to open/save. In Mountain Lion, however, those dialog boxes always default to the smallest possible size (which is too small to read a filename longer than a few characters). so I have to resize the dialog box — every time! I open and save a lot of files, so this gets pretty tedious. This doesn't seem to happen in apple programs, but it definitely does in the Office Suite and the Adobe Creative Suite, especially in CS4 Photoshop and Illustrator. Might be I can fix it by myself but I can't imagine where I may dig it.
You might try looking here for the Adobe products:
Adobe Help and Support
Try Microsoft support for the Office Products:
http://www.microsoft.com/mac -
JFileChooser as save dialog clears text field on change directory
I am trying to implement a basic save dialog using JFileChooser, which initiates with an initial file name, "untitled.txt". However, as soon as the directory is changed by the user, the text field is cleared. I want to ensure that whatever is in the text field when the user changes directories (i.e., untitled.txt may have been changed to something else by the user) stays visible throughout any kind of user navigation. I've tried all sorts of things, but nothing seems to work.
Thanks for your help.Yes, it very well could be an OS/JDK issue. I'm using jdk 1.5 on Mac OS X (Tiger). Apparently, FileNameExtensionFilter is a jdk 1.6 implementation, because it doesn't work for me.
Here's my code:
JFileChooser fc = new JFileChooser();
String output = outputTextArea.getText();
String selectedFile = "untitled.txt";
File file = new File(selectedFile);
fc.setDialogTitle("Save");
fc.setMultiSelectionEnabled(false);
fc.setFileSelectionMode(JFileChooser.DIRECTORIES_ONLY);
fc.setSelectedFile(file);
setFileName(file.getName());
int result = fc.showSaveDialog(this);
if (result == JFileChooser.CANCEL_OPTION) {
return;
} else if (result == JFileChooser.APPROVE_OPTION) {
file = fc.getSelectedFile();
if (file.exists()) {
int response = JOptionPane.showConfirmDialog(null,
"Overwrite existing file?","Confirm Overwrite",
JOptionPane.OK_CANCEL_OPTION,
JOptionPane.QUESTION_MESSAGE);
if (response == JOptionPane.CANCEL_OPTION) return;
if (!writeFile(file, output)) {
setErrorMessage(ERROR5_1); //Just a custom error message and display.
showErrorMessage();
return;
}Is there a workaround if this is an OS or JDK issue?
Thanks again for your help. -
How to save changed data from a input field to the source structure
Hi,
I have a small problem with the onChange event with HTML input fields.
When changing a value of a input field or by creating a new value for a field the OnChange event is called by moving away the mouse pointer....
get_form_field( 'field_name' ).
But is it possible to write back the new value in the source field ls_screenstructure_field1 without using the OnInputProcessing?
I ask because my application´s structures have a lot of fields that should be filled and changed by input fields.
It´s not comfortable to request every new value with .. = request->get_form_field(... .
Thanks for helping.
Cheers,
Andréyou wanted a onchange for a htmlb:inputfield which would also trigger server event. try the following code.
<htmlb:inputField id = "test"
alignment = "LEFT"
size = "6"
required = "TRUE"
doValidate = "TRUE"
type = "INTEGER"
/>
<bsp:htmlbEvent id="myid" onClick="myonclick" name="ValueChanged" />
<script for="test" event=onchange type="text/javascript">
alert(this.value);
ValueChanged();
</SCRIPT>
if the value in the inputfield is changed it would trigger a alert at the client side and also trigger a server event. now you can caputre the value in oninputprocessing.
Hope this helps.
do let us know if you need help in how to capture this value in oninputprocessing.
Regards
Raja -
Hi all,
I need to create an input field on screen, which would enable input not by writing but by selecting a value from a list.
I tried to define the field as a listbox, but the FM VRM_SET_VALUES used for populating the values can contain only 2 field and I need to populate about 5 to 6 fields.
Any ideas? is it possible?
Thanks,
HagitHi Hagit,
You can attach one search help with required field and convert the field to list box.
Message Edited
shibu -
I have no clue why I can't save to db if input field is empty?
I have row generated according to the users input. But my problem is that let's say that the user leaves one input field empty. The whole row of data does not get saved into my database. Why is that so...? Is there any particular reason for this?
Here's the code for the dynamically generated input fields.
<%
for (int i=1; i<=newNum; i++)
out.println("<TR><TD>"+i+".</TD><TD><input type='TEXT' value='' name='model"+i+"' size='13'></TD><TD><input type='TEXT' value='' name='lquan"+i+"' size='5'></TD>");
out.println("<TD><input type='TEXT' value='' name='insp"+i+"' size='6'></TD><TD><select name='rej"+i+"'><option value='Blow AAA'>AAA</option><option value='BBB'>BBB</option><option value='CCC'>CCC</option>");
out.println("</select></TD><TD><select name='area"+i+"'><option value='A'>A</option><option value='B'>B</option><option value='C'>C</option></select></TD><TD><input type='TEXT' value='' name='loc"+i+"' size='6'></TD></TR>");
%>I am using orion server and Mic. Access DatabaseNo i didn't. So. ..that's the problem is it. I will try it out and post another reply.
Thank you Jerry Garcia -
Dialog programming: making standard input field sensitive to double-click
Hello,
I'd like make standard input field sensitive to double-click. I know that I should register double-click event to input field class and write handler. But I can't find out from what class I should derive. What is class of standard input field? Can I derive from that class? Or is there another way to accomplish my requirements?
Best regards,
Josef MotlI agree with Kinshuk, Not sure why you need this functionality. Please implement this sample program do F4 help on the BURKS field and select a company code. Notice that is populates all the rest of the fields. Is this the functionality that you require?
report zrich_0002 .
parameters: p_bukrs type t001-bukrs,
p_butxt type t001-butxt,
p_ort01 type t001-ort01,
p_land1 type t001-land1.
data: dynfields type table of dynpread with header line.
data: return type table of ddshretval with header line.
at selection-screen on value-request for p_bukrs.
call function 'F4IF_FIELD_VALUE_REQUEST'
exporting
tabname = 'T001'
fieldname = 'BUKRS'
dynpprog = sy-cprog
dynpnr = sy-dynnr
dynprofield = 'P_BUKRS'
tables
return_tab = return
exceptions
field_not_found = 1
no_help_for_field = 2
inconsistent_help = 3
no_values_found = 4
others = 5.
read table return with key fieldname = 'P_BUKRS'.
* Add it back to the dynpro.
dynfields-fieldname = return-retfield.
dynfields-fieldvalue = return-fieldval.
append dynfields.
* Get the company code from db and add to dynpro
data: xt001 type t001.
clear xt001.
select single * into xt001
from t001
where bukrs = return-fieldval.
dynfields-fieldname = 'P_BUTXT'.
dynfields-fieldvalue = xt001-butxt.
append dynfields.
dynfields-fieldname = 'P_ORT01'.
dynfields-fieldvalue = xt001-ort01.
append dynfields.
dynfields-fieldname = 'P_LAND1'.
dynfields-fieldvalue = xt001-land1.
append dynfields.
* Update the dynpro values.
call function 'DYNP_VALUES_UPDATE'
exporting
dyname = sy-cprog
dynumb = sy-dynnr
tables
dynpfields = dynfields
exceptions
others = 8.
start-of-selection.
Regards,
Rich Heilman -
Error "602" System error: AK Datapart too short
Hi all,
Ok, I have looked just about everywhere for an answer to this but to no avail...I even tried under a few rocks we have laying around.
Anyway here it is:
While running a compression in BW we get Error "602" System error: AK Datapart too short.
This is happening while doing a select statement during the compression of the infocube. It does not happen all the time, just kind like when ever it feels like. The only note I could find in OSS was one about Live Cache and it does not seem to apply.
Here is the dump which I really hate doing this, but it gives all the info needed :
untime Error DBIF_DSQL2_SQL_ERROR
Except. CX_SY_NATIVE_SQL_ERROR
Date and Time 08/15/2007 12:23:09
ShrtText
An SQL error occurred when executing Native SQL.
What happened?
Error "-602" occurred in the current database connection "DEFAULT".
What can you do?
Print out the error message (using the "Print" function)
and make a note of the actions and input that caused the
error.
To resolve the problem, contact your SAP system administrator.
You can use transaction ST22 (ABAP Dump Analysis) to view and administer
termination messages, especially those beyond their normal deletion
date.
is especially useful if you want to keep a particular message.
How to correct the error
Database error text........: "System error: AK Datapart too short"
Database error code .......: "-602"
Triggering SQL statement...: "INSERT INTO "/BIC/EZPSD_C03" ( "KEY_ZPSD_C03P",
"KEY_ZPSD_C03T", "KEY_ZPSD_C03U", "KEY_ZPSD_C031", "KEY_ZPSD_C032",
"KEY_ZPSD_C033", "KEY_ZPSD_C034", "/BIC/ZNET_ASP" ) SELECT ? ,
F."KEY_ZPSD_C03T", F."KEY_ZPSD_C03U", F."KEY_ZPSD_C031", F."KEY_ZPSD_C032","
Internal call code.........: "[DBDS/NEW DSQL]"
Please check the entries in the system log (Transaction SM21).
You may able to find an interim solution to the problem
in the SAP note system. If you have access to the note system yourself,
use the following search criteria:
"DBIF_DSQL2_SQL_ERROR" CX_SY_NATIVE_SQL_ERRORC
"GP31VIZWJDTT90894L1IA5YAC7G" or "GP31VIZWJDTT90894L1IA5YAC7G"
"TRANSFER_ALL"
If you cannot solve the problem yourself and you wish to send
an error message to SAP, include the following documents:
1. A printout of the problem description (short dump)
To obtain this, select in the current display "System->List->
Save->Local File (unconverted)".
2. A suitable printout of the system log
To obtain this, call the system log through transaction SM21.
Limit the time interval to 10 minutes before and 5 minutes
after the short dump. In the display, then select the function
"System->List->Save->Local File (unconverted)".
3. If the programs are your own programs or modified SAP programs,
supply the source code.
To do this, select the Editor function "Further Utilities->
Upload/Download->Download".
4. Details regarding the conditions under which the error occurred
or which actions and input led to the error.
The exception must either be prevented, caught within the procedure
"TRANSFER_ALL"
"(FORM)", or declared in the procedure's RAISING clause.
To prevent the exception, note the following:
System environment
SAP Release.............. "640"
Application server....... "sdcbw03"
Network address.......... "10.64.18.76"
Operating system......... "Linux"
Release.................. "2.6.9-55.ELsmp"
Hardware type............ "x86_64"
Character length......... 16 Bits
Pointer length........... 64 Bits
Work process number...... 21
Short dump setting....... "full"
Database server.......... "sdcbw03"
Database type............ "ADABAS D"
Database name............ "BWP"
Database owner........... "SAPBWP"
Character set............ "C"
SAP kernel............... "640"
Created on............... "Nov 5 2006 19:46:34"
Created in............... "Linux GNU SLES-9 x86_64 cc3.3.3"
Database version......... "SAPDB 7.5.0.030 "
Patch level.............. "156"
Patch text............... " "
Supported environment....
Database................. "MaxDB 7.5.0"
SAP database version..... "640"
Operating system......... "Linux 2.6"
Memory usage.............
Roll..................... 16192
EM....................... 20949280
Heap..................... 0
Page..................... 24576
MM Used.................. 9235016
MM Free.................. 3331560
SAP Release.............. "640"
User and Transaction
Client.............. 011
User................ "ALEREMOTE"
Language key........ "E"
Transaction......... " "
Program............. "GP31VIZWJDTT90894L1IA5YAC7G"
Screen.............. "SAPMSSY0 1000"
Screen line......... 6
Information on where terminated
The termination occurred in the ABAP program "GP31VIZWJDTT90894L1IA5YAC7G" in
"TRANSFER_ALL".
The main program was "RSPROCESS ".
The termination occurred in line 573 of the source code of the (Include)
program "GP31VIZWJDTT90894L1IA5YAC7G"
of the source code of program "GP31VIZWJDTT90894L1IA5YAC7G" (when calling the
editor 5730).
The program "GP31VIZWJDTT90894L1IA5YAC7G" was started as a background job.
Job name........ "BI_PROCESS_COMPRESS"
Job initiator... "ALEREMOTE"
Job number...... 12185102
Processing was terminated because the exception "CX_SY_NATIVE_SQL_ERROR"
occurred in the
procedure "TRANSFER_ALL" "(FORM)" but was not handled locally, not declared in
the
RAISING clause of the procedure.
The procedure is in the program "GP31VIZWJDTT90894L1IA5YAC7G ". Its source code
starts in line 557
of the (Include) program "GP31VIZWJDTT90894L1IA5YAC7G ".
Source Code Extract
Line
SourceCde
543
ENDIF.
544
545
COMMIT WORK. " commit and close cursors
546
547
l_str = i_max_requid.
548
PERFORM msg_append(saplrscondense)
549
USING 'S' '355' l_str space space space
550
CHANGING c_t_msg.
551
552
ENDFORM. " CONDENSE_FACTTABLE_NEW
553
554
555
Form TRANSFER_ALL
556
557
FORM TRANSFER_ALL USING i_ref_update TYPE rs_bool
558
i_pdimid TYPE I
559
i_pdimid_ref_point TYPE rsd_sid
560
i_pdimid_normal TYPE rsd_sid
561
i_recordtp TYPE rsd_sid
562
CHANGING e_ref_ins_cnt TYPE I
563
e_ins_cnt TYPE I
564
c_t_msg TYPE rs_t_msg.
565
566
CALL FUNCTION 'RSDU_INFOCUBE_INDEXES_DROP'
567
EXPORTING
568
I_INFOCUBE = 'ZPSD_C03'
569
I_FACTTAB = '/BIC/EZPSD_C03'.
570
571
572
EXEC SQL.
>>>>>
INSERT INTO "/BIC/EZPSD_C03"
574
( "KEY_ZPSD_C03P"
575
, "KEY_ZPSD_C03T"
576
, "KEY_ZPSD_C03U"
577
, "KEY_ZPSD_C031"
578
, "KEY_ZPSD_C032"
579
, "KEY_ZPSD_C033"
580
, "KEY_ZPSD_C034"
581
, "/BIC/ZNET_ASP"
582
583
SELECT :i_pdimid_normal
584
, F."KEY_ZPSD_C03T"
585
, F."KEY_ZPSD_C03U"
586
, F."KEY_ZPSD_C031"
587
, F."KEY_ZPSD_C032"
588
, F."KEY_ZPSD_C033"
589
, F."KEY_ZPSD_C034"
590
, SUM( F."/BIC/ZNET_ASP" )
591
FROM "/BIC/FZPSD_C03" F
592
WHERE F."KEY_ZPSD_C03P" = :i_pdimid
Any thoughts would be helpful,
Thanks,
DavidThis error usually occurs when there is a database lock or no space in teh database. Got DB02 and Click on Space critical objects to see whether any entries are there. If yes contact your basis to increase the space.
Hope this helps
Thanks,
Satish -
"Save" Dialog box always opens in different sizes
Since I upgraded to Mountain Lion, whenever I "Save" the dialog box comes up in different configurations. Sometimes the folders section is really wide and sometimes very thin. I usually can't see the full names of the files in the default folder and have to resize the box before browsing where to save the file. Also, the file name window at the top is too short to see all of the file name I'm working on if it's a long file name. Is there anyway to customize the "Save" dialog box for either or both ot these issues?
I'm on a Macbook PRO (2011).
- MikeYOu should be able to drag the window from the bottom right to size it. That size should stick when you save the next time. You may have to adjust it seperately for different applications.
If it doesn't save try rebuilding Finder prefs
Go to your Finder "Go" menu hold the option key and choose Library. Then go to Preferences folder and trash this file:
com.apple.finder.plist
Then, restart, or log out and in again.
(You will have to reset a few finder prefs the way you like them.)
Maybe you are looking for
-
How to add a field in dynamic selections
HI, There is a requirement in which i need to add a field in existing program of dynamic selections. I have added a field in the screen.But I was not able to write the label and is not displaying. I ahve copied evrything from existing coding.but stil
-
I want to constantly display my bookmarks in V6.0.2 on left side of screen
I just upgraded to FF v6.0.2 and love the new look, however I would like to display my bookmarks on the left side of the screen such as I was able to do in 3.6. I know how to display them by clicking on the button top right. Using Win 7 64 bit on Asu
-
I have a n/wing pro and plzzzz if ne of u have solution 4 that plzzzz help
actualy i am doing a prjt on chatting and i am not able make contact b/w 2 pc on a n/w .s/w is working fine when i connect 2 pc on lan,mean with this s/w i can smoothly chat with client connected via server , here i am sending my server side prog and
-
Using apple remote on macbook pro retina
Hello, if got a problem with my brand new macbook pro. trying to connect the remote I failed. there no button at the system preference to connect the remote hope someone could help me! Karin
-
Transfer shared Photo Stream photos to PC
Hello, I have searched the forums and cannot find this. I have an ipad mini running the latest software. In my Photo stream tab on the album app I have 3 folders: My Photo Stream Canada (shared by my mother) North America Tour (shared by me) Is there