Printing cyrillic text
Hi,
I'm trying to setup WinME (no choice) to print cyrillic letters.
We're using the german ME version with multilingual support.
Changing the keyboard to RU produces cyrillic characters on
screen - but fat black dots in print.
Since a simple test using Wordpad worked well I assume, it's
an OOo/SO problem, right?
Any hints?
Matthias
Hi, Sergei!
On Wed, 04 Jun 2003 15:51:54 +1100, TroubleMaker wrote:
>> > And exactly declare the language of Cyrillic text.
>> Not sure, what you mean here. Where should I "declare" the language?
>
> In the CHARACTER FORMAT dialoguie (Format - Character) on the FONT tab
> under the TYPEFACE selection box the LANGUAGE selection droplist is
> located.
Ahm thanks, didn't think of =that=! I'm currently at home with no WinDos
installation available, but I guess it's the same in both Linux and
Windos.
> What language is chosen there when you trying to type in Cyrillic?
I'll check this as soon as I'm at work.
> More, you may create font substitutions like:
>
> Times New Roman Cyr=Times New Roman,204 ;204 is the locale code for
> Cyrillic/Russian
Already done that, thanks! E.g. 'WordPad' honors this settings and
displays the baltic/cyrillic etc. font-variants, but unfortunatelly OOo
does not. But if the language-setting you mentioned does the trick, I can
live with it (and hopefully our writing ladies as well).
Matthias
Similar Messages
-
Adobe Form - Problem with Cyrillic texts on zebra printers (ZPL)
Hello,
we have problems with an adobe form. We try to print this adobe form on a zebra printer with the device type "AZPL203". In this adobe form we have to print the material description in german and russian language.
When we print out the adobe form on a normal printer (e.g. HP) everything is fine. But when we print the form on a zebra printer, the russian textwill not be printed on the label. In the print preview of the form, we will see the correct russian text.
So can anybody help me?
Did anybody print cyrillic text on a zebra printer?
Thanks in advance.
Marc.Good afternoon,
First.. I apologize because I know this is the wrong thread. But the folks in this thread apparently have the missing piece of info that I/we desperately need.. Could you please help me to understand what I'm missing, or at least point me to a forum with the answer?
We have a few tags that print to a Zebra Z105SL printer via Smartforms. But due to recent design changes in the tags, and a desire to stay up with current technology, we/I would like to design the new tags in Adobe PDF-forms. The design is not a problem, but we cannot get SAP and the Zebra printer to make nice and print anything. For now, I've created a simple tag with a text field and a couple of bar codes on it, just to test and prove that the Zebra will print a PDF. We are using PDF-forms for several of our business forms, so everything works, but the Zebra just won't print a PDF. I don't know what I'm missing.. I know it's possible, but I can't figure out the "how" part. Could you please let me know how you did it?
Many thanks!
Bill -
How to print long text in scripts
plzzzzzzzzz answer this qestion
how to print long text in scriptsHi Kranthi,
You can create Text Id and include that in your script.
For example:
/E TEXT
/: INCLUDE ZTEXT OBJECT TEXT ID ST
Hope this helps.
Please reward if useful.
Thanks,
Srinivasa -
How to print the text in points wise in sap script
hi friends,
how to print the text in points wise in sap script.
ex: if suppose paragraph consists of 15 lines. then according to one sentence or one fullstop (.) it should give point 1. like that...
1. hai how ru.
2. what r u doing.
3.where r u.
like this i want numbering.. waiting for ur replys.
thanks,
kirandeclare a counter
data : cnt type char 4.
print :
cnt = cnt + 1.
&cnt& &text&
cnt = cnt + 1. and so on.
or.
if the data is in an internal table
loop at internal_table.
cnt = cnt + 1.
write form.
in script -&cnt& &text&
endloop.
Edited by: NIKHILKUMAR POOJARI on Nov 17, 2008 11:18 AM -
How to print the text in only last but one page in sapscripts
hiiiiiiiiiii,
explian how to print the text in only last but one page in sapscripts? wher to write the code? plz if possible explain in detail with an example?Hello,
The total no pages is given by &SAPSCRIPT-FORMPAGES& command.
So u can handle the situation in ur form like this
/: if &PAGE& = &SAPSCRIPT-FORMPAGES&
p1 TEXT
/: endif
Try in this way it may help u.
Regards -
How to Print a text in bold format in a classic report ??
How to Print a text in bold format in a classic report ??
hi
u can use
<b>FORMAT INTENSIFIED ON.</b>
regards
ravish
reward if useful -
How to print a text in java?
How to print a text in java?
of corse, i have JTextField in my frame that i want to extract the text and print it on a paper with a printer.
-
In Pages (5.2), in a table, superscript is not only not printing, but not printing the text around it. Any answers?
Known issue now for almost 9 months.
Use Pages '09 if you have it.
Peter -
Hi All,
I have replaced standard script(MEDRUCK) with Zsmart form for PO printing. when user change in any line of PO, like he have changed quantity. for this change a text message as **PO quantity changed** print in standard script. Now I want print this text message in my smart form . I know this is the message field T166T-CHTXT but i cant find any relation between this text messege and PO line item. So plz tell me how can i print it my smart form. I am sending u the programe where i have put my smart form.
INCLUDE FM06PE02 *
form entry_neu using ent_retco ent_screen.
data: l_druvo like t166k-druvo,
l_nast like nast,
l_from_memory,
l_doc type meein_purchase_doc_print.
clear ent_retco.
if nast-aende eq space.
l_druvo = '1'.
else.
l_druvo = '2'.
endif.
call function 'ME_READ_PO_FOR_PRINTING'
EXPORTING
ix_nast = nast
ix_screen = ent_screen
IMPORTING
ex_retco = ent_retco
ex_nast = l_nast
doc = l_doc
CHANGING
cx_druvo = l_druvo
cx_from_memory = l_from_memory.
check ent_retco eq 0.
***to get the data not given by the above function module
***as, on some std conditions some data may be deleted by the same.
SELECT * FROM EKPO INTO TABLE l_doc-XEKPO
WHERE EBELN EQ l_doc-XEKKO-EBELN AND
LOEKZ NE 'L'.
IF l_doc-XTKOMV IS INITIAL.
SELECT * FROM KONV INTO TABLE l_doc-XTKOMV
WHERE KNUMV EQ l_doc-XEKKO-KNUMV.
ENDIF.
call function 'ME_PRINT_PO'
exporting
ix_nast = l_nast
ix_druvo = l_druvo
doc = l_doc
ix_screen = ent_screen
ix_from_memory = l_from_memory
ix_toa_dara = toa_dara
ix_arc_params = arc_params
ix_fonam = tnapr-fonam "HW 214570
importing
ex_retco = ent_retco.
data: l_komk type komk occurs 0 with header line.
DATA: lf_fm_name TYPE rs38l_fnam.
TYPES: BEGIN OF TP_RECORD,
EBELP TYPE EKPO-EBELP,
KNUMH TYPE KONP-KNUMH,
END OF TP_RECORD.
data: CD_record type TP_RECORD OCCURS 0 WITH HEADER LINE.
TYPES: BEGIN OF TP_TAX,
EBELP TYPE EKPO-EBELP,
KSCHL TYPE KONP-KSCHL,
KBETR TYPE KONP-KBETR,
KONWA TYPE KONP-KONWA,
VTEXT type T685T-VTEXT,
END OF TP_TAX.
DATA: TAB_TAX TYPE TP_TAX OCCURS 0 WITH HEADER LINE.
data: wa_ekpo type ekpo,
wa_komv type komv,
wa_pekpo type pekpo.
DATA: T_ITEM TYPE STANDARD TABLE OF ZMM_PO_ITEM WITH HEADER LINE.
data: l_VAKEY type KONH-VAKEY,
l_KNUMH type KONH-KNUMH.
DATA: ls_control_param TYPE ssfctrlop.
DATA: ls_composer_param TYPE ssfcompop.
DATA: ls_recipient TYPE swotobjid.
DATA: ls_sender TYPE swotobjid.
DATA: lf_formname TYPE tdsfname.
DATA: ls_addr_key LIKE addr_key.
DATA: ls_job_info TYPE ssfcrescl.
DATA: ls_arc_params TYPE ARC_PARAMS.
DATA: ls_MAIL_APPL_OBJ TYPE swotobjid.
DATA: INPUT TYPE SSFCOMPIN.
DATA: RESULT TYPE SSFCRESOP.
DATA: SECESS TYPE KONP-KBETR .
loop at l_doc-XEKPO into wa_ekpo.
refresh CD_RECORD.
*****GET TAXES FOR MATERIAL *************************
if wa_ekpo-matnr is not initial.
select knumh from A363 into corresponding fields of CD_RECORD
WHERE KAPPL = 'TX' AND
WERKS = WA_EKPO-WERKS AND
LIFNR = l_doc-XEKKO-LIFNR AND
MATNR = WA_EKPO-MATNR AND
DATBI GE l_doc-XEKKO-BEDAT.
CD_RECORD-EBELP = wa_ekpo-EBELP.
append CD_RECORD.
endselect.
if CD_RECORD[] is not initial.
SELECT KSCHL KBETR KONWA FROM KONP INTO CORRESPONDING FIELDS OF TAB_TAX
FOR ALL ENTRIES IN CD_RECORD
WHERE KNUMH = CD_RECORD-KNUMH AND
LOEVM_KO NE 'X'.
TAB_TAX-EBELP = wa_ekpo-EBELP.
if TAB_TAX-KONWA = '%'.
TAB_TAX-KBETR = TAB_TAX-KBETR / 10.
endif.
SELECT SINGLE VTEXT FROM T685T INTO TAB_TAX-VTEXT
WHERE SPRAS = 'EN' AND
KAPPL = 'TX' AND
KSCHL = TAB_TAX-KSCHL.
APPEND TAB_TAX.
ENDSELECT.
endif.
endif.
****GET TAXES FOR MATERIAL GROUP************************
refresh CD_RECORD.
if wa_ekpo-matkl is not initial.
if wa_ekpo-knttp eq 'K' .
select knumh from A700 into corresponding fields of CD_RECORD
WHERE KAPPL = 'TX' AND
WERKS = WA_EKPO-WERKS AND
MATKL = WA_EKPO-MATKL AND
DATBI GE l_doc-XEKKO-BEDAT AND
LIFNR EQ L_DOC-XEKKO-LIFNR .
CD_RECORD-EBELP = wa_ekpo-EBELP.
append CD_RECORD.
endselect.
if CD_RECORD[] is not initial.
SELECT KSCHL KBETR KONWA FROM KONP INTO CORRESPONDING FIELDS OF TAB_TAX
FOR ALL ENTRIES IN CD_RECORD
WHERE KNUMH = CD_RECORD-KNUMH AND
LOEVM_KO NE 'X'.
TAB_TAX-EBELP = wa_ekpo-EBELP.
if TAB_TAX-KONWA = '%'.
TAB_TAX-KBETR = TAB_TAX-KBETR / 10.
endif.
SELECT SINGLE VTEXT FROM T685T INTO TAB_TAX-VTEXT
WHERE SPRAS = 'EN' AND
KAPPL = 'TX' AND
KSCHL = TAB_TAX-KSCHL.
APPEND TAB_TAX.
ENDSELECT.
endif.
endif.
endif.
endloop.
******Fill T_ITEM***************
loop at l_doc-XEKPO into wa_ekpo.
CLEAR T_ITEM.
MOVE-CORRESPONDING wa_ekpo TO T_ITEM.
MOVE WA_EKPO-EMATN TO T_ITEM-MATNR.
********Field NETPR (net price) used for Gross price per piece**
SELECT SINGLE KBETR FROM KONV
INTO T_ITEM-NETPR
WHERE KNUMV EQ l_doc-XEKKO-KNUMV AND
KPOSN EQ wa_ekpo-EBELP AND
KSCHL EQ 'P000'.
LOOP AT l_doc-xtkomv INTO WA_KOMV
where KPOSN = T_ITEM-EBELP AND
( ( KSCHL = 'P000' AND KBETR IS NOT INITIAL ) OR
( KSCHL = 'P001' AND KBETR IS NOT INITIAL ) OR
( KSCHL = 'PB00' AND KBETR IS NOT INITIAL ) OR
( KSCHL = 'PBXX' AND KBETR IS NOT INITIAL ) ).
MOVE WA_KOMV-KBETR TO T_ITEM-NETPR.
ENDLOOP.
*******Get Discount************************
LOOP AT l_doc-xtkomv INTO WA_KOMV
where KPOSN = T_ITEM-EBELP AND
( ( KSCHL = 'R000' AND KBETR IS NOT INITIAL ) OR
( KSCHL = 'R001' AND KBETR IS NOT INITIAL ) OR
( KSCHL = 'R002' AND KBETR IS NOT INITIAL ) ).
T_ITEM-C_DSCNT = WA_KOMV-WAERS.
T_ITEM-DSCNT = WA_KOMV-KBETR.
IF T_ITEM-C_DSCNT NE 'INR'.
T_ITEM-DSCNT = T_ITEM-DSCNT / 10.
ENDIF.
ENDLOOP.
*******Get Taxes**************************
LOOP AT TAB_TAX
WHERE EBELP = T_ITEM-EBELP.
CASE TAB_TAX-KSCHL.
WHEN 'JMOP' OR 'JMOQ' OR 'JSRT'.
IF TAB_TAX-KBETR IS NOT INITIAL.
T_ITEM-EXCSE = TAB_TAX-KBETR.
T_ITEM-C_EXCSE = TAB_TAX-KONWA.
T_ITEM-KSCHL = TAB_TAX-KSCHL .
ENDIF.
WHEN 'JEC1' OR 'JEC3'.
IF TAB_TAX-KBETR IS NOT INITIAL.
T_ITEM-CESS = TAB_TAX-KBETR.
T_ITEM-C_CESS = TAB_TAX-KONWA.
T_ITEM-KSCHL = TAB_TAX-KSCHL .
ENDIF.
WHEN 'JVRD' OR 'JIPC'.
IF TAB_TAX-KBETR IS NOT INITIAL.
T_ITEM-VAT_CST = TAB_TAX-KBETR.
T_ITEM-C_VAT_CST = TAB_TAX-KONWA.
T_ITEM-KSCHL = TAB_TAX-KSCHL .
ENDIF.
WHEN 'JES1' .
IF TAB_TAX-KBETR IS NOT INITIAL.
SECESS = TAB_TAX-KBETR.
T_ITEM-C_SECESS = TAB_TAX-KONWA.
T_ITEM-KSCHL = TAB_TAX-KSCHL .
ENDIF.
ENDCASE.
ENDLOOP.
********Get Delivery Date*****************
read table l_doc-XPEKPO into wa_pekpo with key ebelp = WA_EKPO-EBELP.
T_ITEM-EINDT = WA_PEKPO-EINDT.
if l_doc-XEKKO-BSTYP = 'L'.
Get Price Per Unit For Scheduling agreement********
concatenate T_ITEM-EBELN T_ITEM-EBELP INTO l_VAKEY.
SELECT SINGLE KNUMH FROM KONH INTO L_KNUMH
WHERE VAKEY = l_VAKEY.
SELECT SINGLE KBETR FROM KONP INTO T_ITEM-NETPR
WHERE KNUMH = L_KNUMH AND
KSCHL = 'P000'.
Get Discount For Scheduling agreement ********
SELECT SINGLE KBETR KONWA FROM KONP INTO (T_ITEM-DSCNT,T_ITEM-C_DSCNT)
WHERE KNUMH = L_KNUMH AND
KSCHL = 'R000'.
if sy-subrc <> 0.
SELECT SINGLE KBETR KONWA FROM KONP INTO (T_ITEM-DSCNT,T_ITEM-C_DSCNT)
WHERE KNUMH = L_KNUMH AND
KSCHL = 'R001'.
if sy-subrc <> 0.
SELECT SINGLE KBETR KONWA FROM KONP INTO (T_ITEM-DSCNT,T_ITEM-C_DSCNT)
WHERE KNUMH = L_KNUMH AND
KSCHL = 'R002'.
endif.
endif.
if T_ITEM-DSCNT is not initial.
T_ITEM-DSCNT = T_ITEM-DSCNT / 10.
endif.
endif.
APPEND T_ITEM.
endloop.
IF TNAPR-SFORM IS NOT INITIAL.
SmartForm from customizing table TNAPR
lf_formname = tnapr-sform.
determine smartform function module for PO
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING formname = lf_formname
variant = ' '
direct_call = ' '
IMPORTING fm_name = lf_fm_name
EXCEPTIONS no_form = 1
no_function_module = 2
OTHERS = 3.
IF sy-subrc <> 0.
error handling
cf_retcode = sy-subrc.
PERFORM protocol_update.
ENDIF.
ENDIF.
CALL FUNCTION 'SSF_CREATE_COMPOSER_INPUT'
EXPORTING
ARCHIVE_PARAMETERS = ls_arc_params
USER_SETTINGS = 'X'
MAIL_SENDER = ls_sender
MAIL_RECIPIENT = ls_recipient
MAIL_APPL_OBJ = ls_MAIL_APPL_OBJ
OUTPUT_OPTIONS = ls_composer_param
CONTROL_PARAMETERS = ls_control_param
IMPORTING
INPUT = input.
CALL FUNCTION 'SSFCOMP_OPEN'
EXPORTING
INPUT = input
IMPORTING
RESULT = RESULT
EXCEPTIONS
ERROR = 1
OTHERS = 2.
IF SY-SUBRC EQ 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ls_control_param-no_open = 'X'.
ls_control_param-no_close = 'X'.
CALL FUNCTION lf_fm_name
EXPORTING
ARCHIVE_INDEX =
ARCHIVE_INDEX_TAB =
ARCHIVE_PARAMETERS = ls_arc_params
CONTROL_PARAMETERS = ls_control_param
MAIL_APPL_OBJ = ls_MAIL_APPL_OBJ
MAIL_RECIPIENT = ls_recipient
MAIL_SENDER = ls_sender
OUTPUT_OPTIONS = ls_composer_param
USER_SETTINGS = 'X'
ZXEKKO = l_doc-XEKKO
ZXPEKKO = l_doc-XPEKKO
SECESS = SECESS
IMPORTING
DOCUMENT_OUTPUT_INFO =
JOB_OUTPUT_INFO =
JOB_OUTPUT_OPTIONS =
TABLES
L_XEKPO = l_doc-XEKPO
L_XEKPA = l_doc-XEKPA
L_XPEKPO = l_doc-XPEKPO
L_XEKET = l_doc-XEKET
L_XTKOMV = l_doc-xtkomv
L_XEKKN = l_doc-Xekkn
L_XEKEK = l_doc-Xekek
L_XKOMK = l_komk
T_ITEM = T_ITEM
EXCEPTIONS
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
USER_CANCELED = 4
OTHERS = 5
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'SSFCOMP_CLOSE'
IMPORTING
RESULT =
EXCEPTIONS
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.
ELSE.
call function 'ME_PRINT_PO'
EXPORTING
ix_nast = l_nast
ix_druvo = l_druvo
doc = l_doc
ix_screen = ent_screen
ix_from_memory = l_from_memory
ix_toa_dara = toa_dara
ix_arc_params = arc_params
ix_fonam = tnapr-fonam "HW 214570
IMPORTING
ex_retco = ent_retco.
ENDIF.
endform. "entry_neu
*eject
Umlagerungsbestellung, Hinweis 670912 *
form entry_neu_sto using ent_retco ent_screen.
data: l_druvo like t166k-druvo,
l_nast like nast,
l_from_memory,
l_doc type meein_purchase_doc_print,
F_STO. "670912
clear ent_retco.
if nast-aende eq space.
l_druvo = '1'.
else.
l_druvo = '2'.
endif.
F_STO = 'X'. "670912
call function 'ME_READ_PO_FOR_PRINTING'
EXPORTING
ix_nast = nast
ix_screen = ent_screen
IMPORTING
ex_retco = ent_retco
ex_nast = l_nast
doc = l_doc
CHANGING
cx_druvo = l_druvo
cx_from_memory = l_from_memory.
check ent_retco eq 0.
call function 'ME_PRINT_PO'
EXPORTING
ix_nast = l_nast
ix_druvo = l_druvo
doc = l_doc
ix_screen = ent_screen
ix_from_memory = l_from_memory
ix_toa_dara = toa_dara
ix_arc_params = arc_params
ix_fonam = tnapr-fonam "HW 214570
ix_sto = F_STO "670912
IMPORTING
ex_retco = ent_retco.
endform. "entry_neu_sto
*eject
Mahnung
form entry_mahn using ent_retco ent_screen.
data: l_druvo like t166k-druvo,
l_nast like nast,
l_from_memory,
l_doc type meein_purchase_doc_print.
clear ent_retco.
l_druvo = '3'.
call function 'ME_READ_PO_FOR_PRINTING'
EXPORTING
ix_nast = nast
ix_screen = ent_screen
IMPORTING
ex_retco = ent_retco
ex_nast = l_nast
doc = l_doc
CHANGING
cx_druvo = l_druvo
cx_from_memory = l_from_memory.
check ent_retco eq 0.
call function 'ME_PRINT_PO'
EXPORTING
ix_nast = l_nast
ix_druvo = l_druvo
doc = l_doc
ix_screen = ent_screen
ix_from_memory = l_from_memory
ix_toa_dara = toa_dara
ix_arc_params = arc_params
ix_fonam = tnapr-fonam "HW 214570
IMPORTING
ex_retco = ent_retco.
endform. "entry_mahn
*eject
Auftragsbestätigungsmahnung
form entry_aufb using ent_retco ent_screen.
data: l_druvo like t166k-druvo,
l_nast like nast,
l_from_memory,
l_doc type meein_purchase_doc_print.
clear ent_retco.
l_druvo = '7'.
call function 'ME_READ_PO_FOR_PRINTING'
EXPORTING
ix_nast = nast
ix_screen = ent_screen
IMPORTING
ex_retco = ent_retco
ex_nast = l_nast
doc = l_doc
CHANGING
cx_druvo = l_druvo
cx_from_memory = l_from_memory.
check ent_retco eq 0.
call function 'ME_PRINT_PO'
EXPORTING
ix_nast = l_nast
ix_druvo = l_druvo
doc = l_doc
ix_screen = ent_screen
ix_from_memory = l_from_memory
ix_toa_dara = toa_dara
ix_arc_params = arc_params
ix_fonam = tnapr-fonam "HW 214570
IMPORTING
ex_retco = ent_retco.
endform. "entry_aufb
*eject
Lieferabrufdruck für Formular MEDRUCK mit Fortschrittszahlen
form entry_lphe using ent_retco ent_screen.
data: l_druvo like t166k-druvo,
l_nast like nast,
l_from_memory,
l_xfz,
l_doc type meein_purchase_doc_print.
data: l_komk type komk occurs 0 with header line.
DATA: lf_fm_name TYPE rs38l_fnam.
DATA: T_EKET TYPE TABLE OF EKET WITH HEADER LINE,
T_EKET_NEW TYPE TABLE OF EKET WITH HEADER LINE.
DATA: WA_EKET TYPE EKET,
WA_EKET_NEW TYPE EKET.
DATA: L_DATE TYPE RM06B-EEIND,
MAX_ABRUF TYPE EKEK-ABRUF.
DATA: T_DEL_SCH TYPE TABLE OF ZSTR_DEL_SCH WITH HEADER LINE.
DATA: WA_EKPO TYPE EKPO,
WA_EKEK TYPE EKEK.
DATA: TEMP_DATE LIKE SY-DATUM,
TEMP_MONTH TYPE SPMON,
THIS_MONTH TYPE SPMON,
NEXT_MONTH TYPE SPMON,
NEXT_NEXT_MONTH TYPE SPMON,
L_DAY(2) TYPE N.
DATA: QTY_TEMP TYPE I.
DATA: MDPAX TYPE MDPA,
MDPMX TYPE TABLE OF MDPM WITH HEADER LINE,
MDSBX TYPE TABLE OF MDSB WITH HEADER LINE.
DATA: lf_formname TYPE tdsfname.
clear ent_retco.
l_druvo = '9'.
l_xfz = 'X'.
call function 'ME_READ_PO_FOR_PRINTING'
EXPORTING
ix_nast = nast
ix_screen = ent_screen
IMPORTING
ex_retco = ent_retco
ex_nast = l_nast
doc = l_doc
CHANGING
cx_druvo = l_druvo
cx_from_memory = l_from_memory.
check ent_retco eq 0.
call function 'ME_PRINT_PO'
exporting
ix_nast = l_nast
ix_druvo = l_druvo
doc = l_doc
ix_xfz = l_xfz
ix_screen = ent_screen
ix_from_memory = l_from_memory
ix_toa_dara = toa_dara
ix_arc_params = arc_params
ix_fonam = tnapr-fonam "HW 214570
importing
ex_retco = ent_retco.
*T_EKET[] = l_doc-XEKET[].
LOOP AT l_doc-XEKET INTO WA_EKET.
CLEAR: WA_EKET_NEW,
T_EKET_NEW.
CASE WA_EKET-LPEIN.
WHEN '2'.
T_EKET_NEW = WA_EKET.
WA_EKET_NEW = WA_EKET.
T_EKET_NEW-MENGE = WA_EKET-MENGE DIV 2.
QTY_TEMP = WA_EKET-MENGE DIV 2.
T_EKET_NEW-MENGE = QTY_TEMP.
CALL FUNCTION 'COS6_QUANTITY_ROUND'
EXPORTING
I_QUANTITY = T_EKET_NEW-MENGE
I_UNIT = 'EA'
IMPORTING
E_QUANTITY = T_EKET_NEW-MENGE
EXCEPTIONS
UNIT_NOT_DEFINED = 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.
APPEND T_EKET_NEW.
WRITE WA_EKET-EINDT TO L_DATE USING EDIT MASK '__.__.____'.
CALL FUNCTION 'DATE_IN_FUTURE'
EXPORTING
ANZAHL_TAGE = '6'
IMPORT_DATUM = L_DATE
IMPORTING
EXPORT_DATUM_EXT_FORMAT = WA_EKET_NEW-EINDT
EXPORT_DATUM_INT_FORMAT = WA_EKET_NEW-EINDT
WA_EKET_NEW-MENGE = WA_EKET-MENGE - T_EKET_NEW-MENGE.
APPEND WA_EKET_NEW TO T_EKET_NEW.
WHEN '3'.
T_EKET_NEW = WA_EKET.
WA_EKET_NEW = WA_EKET.
T_EKET_NEW-MENGE = WA_EKET-MENGE DIV 2.
APPEND T_EKET_NEW.
CALL FUNCTION 'MM_ARRANG_GET_END_OF_MONTH'
EXPORTING
I_DATUM = WA_EKET-EINDT
IMPORTING
E_DATUM = WA_EKET_NEW-EINDT.
WA_EKET_NEW-MENGE = WA_EKET-MENGE - T_EKET_NEW-MENGE.
APPEND WA_EKET_NEW TO T_EKET_NEW.
WHEN OTHERS.
APPEND WA_EKET TO T_EKET_NEW.
ENDCASE.
ENDLOOP.
THIS_MONTH = SY-DATUM+(6).
CALL FUNCTION 'HR_BR_ADD_MONTH_TO_DATE'
EXPORTING
DMM_DATIN = SY-DATUM
DMM_COUNT = '1'
DMM_OPER = '+'
DMM_POS = '1'
IMPORTING
DMM_DAOUT = TEMP_DATE
EXCEPTIONS
UNKNOWN = 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.
NEXT_MONTH = TEMP_DATE+(6).
CLEAR TEMP_DATE.
CALL FUNCTION 'HR_BR_ADD_MONTH_TO_DATE'
EXPORTING
DMM_DATIN = SY-DATUM
DMM_COUNT = '2'
DMM_OPER = '+'
DMM_POS = '1'
IMPORTING
DMM_DAOUT = TEMP_DATE
EXCEPTIONS
UNKNOWN = 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.
NEXT_NEXT_MONTH = TEMP_DATE+(6).
LOOP AT l_doc-XEKPO INTO WA_EKPO.
CLEAR: T_DEL_SCH,
WA_EKEK.
MOVE-CORRESPONDING WA_EKPO TO T_DEL_SCH.
CLEAR MAX_ABRUF.
LOOP AT l_doc-Xekek INTO WA_EKEK.
IF WA_EKEK-ABRUF GT MAX_ABRUF.
MAX_ABRUF = WA_EKEK-ABRUF.
ENDIF.
ENDLOOP.
CLEAR WA_EKEK.
READ TABLE l_doc-Xekek INTO WA_EKEK
WITH KEY EBELN = WA_EKPO-EBELN
EBELP = WA_EKPO-EBELP
ABRUF = MAX_ABRUF.
T_DEL_SCH-LFNKD = WA_EKEK-LFNKD.
LOOP AT T_EKET_NEW
WHERE EBELN = WA_EKPO-EBELN AND
EBELP = WA_EKPO-EBELP.
****GET COMPONENTS***********************
REFRESH: mdpmx, mdsbx.
CLEAR: mdpmx, mdsbx.
on change of t_eket_new-rsnum.
mdpax-rsnum = t_eket_new-rsnum.
mdpax-matnr = wa_ekpo-matnr.
mdpax-pwwrk = wa_ekpo-werks.
CALL FUNCTION 'MD_LESEN_KOMPONENTEN'
EXPORTING
emdpa = mdpax
IMPORTING
imdpa = mdpax
TABLES
mdpmx = mdpmx
mdsbx = mdsbx.
endon.
TEMP_MONTH = T_EKET_NEW-EINDT+(6).
CASE TEMP_MONTH.
WHEN THIS_MONTH.
L_DAY = T_EKET_NEW-EINDT+6(2).
IF L_DAY BETWEEN '01' AND '07'.
T_DEL_SCH-QTYW1 = T_DEL_SCH-QTYW1 + T_EKET_NEW-MENGE.
ELSEIF L_DAY BETWEEN '08' AND '14'.
T_DEL_SCH-QTYW2 = T_DEL_SCH-QTYW2 + T_EKET_NEW-MENGE.
ELSEIF L_DAY BETWEEN '15' AND '22'.
T_DEL_SCH-QTYW3 = T_DEL_SCH-QTYW3 + T_EKET_NEW-MENGE.
ELSE.
T_DEL_SCH-QTYW4 = T_DEL_SCH-QTYW4 + T_EKET_NEW-MENGE.
ENDIF.
T_DEL_SCH-C_QTYM1 = T_DEL_SCH-C_QTYM1 + mdpmx-erfmg.
WHEN NEXT_MONTH.
T_DEL_SCH-QTYM2 = T_DEL_SCH-QTYM2 + T_EKET_NEW-MENGE.
T_DEL_SCH-C_QTYM2 = T_DEL_SCH-C_QTYM2 + mdpmx-erfmg.
WHEN NEXT_NEXT_MONTH.
T_DEL_SCH-QTYM3 = T_DEL_SCH-QTYM3 + T_EKET_NEW-MENGE.
T_DEL_SCH-C_QTYM3 = T_DEL_SCH-C_QTYM3 + mdpmx-erfmg.
ENDCASE.
if mdpmx-matnr is not initial.
T_DEL_SCH-C_MATNR = mdpmx-matnr.
T_DEL_SCH-C_TXZ01 = mdpmx-maktx.
T_DEL_SCH-PSTYP = WA_EKPO-PSTYP.
endif.
ENDLOOP.
T_DEL_SCH-QTYTO = T_DEL_SCH-QTYW1 + T_DEL_SCH-QTYW2 + T_DEL_SCH-QTYW3 + T_DEL_SCH-QTYW4.
APPEND T_DEL_SCH.
CLEAR T_DEL_SCH.
ENDLOOP.
SmartForm from customizing table TNAPR
lf_formname = tnapr-sform.
determine smartform function module for PO
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING formname = lf_formname
variant = ' '
direct_call = ' '
IMPORTING fm_name = lf_fm_name
EXCEPTIONS no_form = 1
no_function_module = 2
OTHERS = 3.
IF sy-subrc <> 0.
error handling
cf_retcode = sy-subrc.
PERFORM protocol_update.
ENDIF.
ENDIF.
CALL FUNCTION lf_fm_name
EXPORTING
ARCHIVE_INDEX =
ARCHIVE_INDEX_TAB =
ARCHIVE_PARAMETERS =
CONTROL_PARAMETERS =
MAIL_APPL_OBJ =
MAIL_RECIPIENT =
MAIL_SENDER =
OUTPUT_OPTIONS =
USER_SETTINGS = space
ZXEKKO = l_doc-XEKKO
ZXPEKKO = l_doc-XPEKKO
IMPORTING
DOCUMENT_OUTPUT_INFO =
JOB_OUTPUT_INFO =
JOB_OUTPUT_OPTIONS =
TABLES
L_XEKPO = l_doc-XEKPO
L_XEKPA = l_doc-XEKPA
L_XPEKPO = l_doc-XPEKPO
L_XEKET = T_EKET_NEW
L_XTKOMV = l_doc-xtkomv
L_XEKKN = l_doc-Xekkn
L_XEKEK = l_doc-Xekek
T_DEL_SCH = T_DEL_SCH
EXCEPTIONS
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
USER_CANCELED = 4
OTHERS = 5
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ELSE.
*- nast-sndex wird als Kennzeichen für Probedruck verwendet
IF l_nast-kappl EQ 'EL' AND ent_screen IS INITIAL AND
l_from_memory IS INITIAL AND l_nast-sndex IS INITIAL.
missing environment for limiting update print dependend data
IF sy-ucomm NE '9ANZ' AND sy-ucomm NE '9DPR'.
PERFORM update_release TABLES l_doc-xekpo l_doc-xekek l_doc-xekeh
USING l_druvo l_nast-kschl.
ENDIF.
ENDIF.
ENDIF.
endform. "entry_lphe
*eject
****SUBROUTINE COPIED FROM INCLUDE LMEDRUCKF1K BY jithendra 28.12.2006***
*****to change release status of delivery schedule
FORM update_release *
--> t_xekpo *
--> t_xekek *
--> t_xekeh *
--> p_druvo *
--> p_kschl *
FORM update_release TABLES t_xekpo STRUCTURE ekpo
t_xekek STRUCTURE ekek
t_xekeh STRUCTURE ekeh
USING p_druvo
p_kschl.
TABLES: t161m.
CLEAR t161m.
SELECT SINGLE druab INTO t161m-druab FROM t161m
WHERE kvewe = 'B'
AND kappl = 'EL'
AND druvo = p_druvo
AND kschl = p_kschl.
IF NOT sy-subrc = 0 OR NOT t161m-druab = 'X'.
EXIT.
ENDIF.
DELETE t_xekek WHERE webrl EQ '1' OR webrl EQ '2'.
CALL FUNCTION 'ME_UPDATE_FROM_PRINTING'
TABLES
i_ekek = t_xekek
i_ekeh = t_xekeh
i_ekpo = t_xekpo
EXCEPTIONS
OTHERS = 1.
ENDFORM. "update_release
Lieferabrufdruck für Formular MEDRUCK ohne Fortschrittszahlen
form entry_lphe_cd using ent_retco ent_screen.
data: l_druvo like t166k-druvo,
l_nast like nast,
l_from_memory,
l_doc type meein_purchase_doc_print.
clear ent_retco.
l_druvo = '9'.
call function 'ME_READ_PO_FOR_PRINTING'
EXPORTING
ix_nast = nast
ix_screen = ent_screen
IMPORTING
ex_retco = ent_retco
ex_nast = l_nast
doc = l_doc
CHANGING
cx_druvo = l_druvo
cx_from_memory = l_from_memory.
check ent_retco eq 0.
call function 'ME_PRINT_PO'
EXPORTING
ix_nast = l_nast
ix_druvo = l_druvo
doc = l_doc
ix_screen = ent_screen
ix_from_memory = l_from_memory
ix_toa_dara = toa_dara
ix_arc_params = arc_params
ix_fonam = tnapr-fonam "HW 214570
IMPORTING
ex_retco = ent_retco.
endform. "entry_lphe_cd
*eject
Feinabrufdruck für Formular MEDRUCK mit Fortschrittszahlen
form entry_lpje using ent_retco ent_screen.
data: l_druvo like t166k-druvo,
l_nast like nast,
l_from_memory,
l_xfz,
l_doc type meein_purchase_doc_print.
clear ent_retco.
l_druvo = 'A'.
l_xfz = 'X'.
call function 'ME_READ_PO_FOR_PRINTING'
EXPORTING
ix_nast = nast
ix_screen = ent_screen
IMPORTING
ex_retco = ent_retco
ex_nast = l_nast
doc = l_doc
CHANGING
cx_druvo = l_druvo
cx_from_memory = l_from_memory.
check ent_retco eq 0.
call function 'ME_PRINT_PO'
EXPORTING
ix_nast = l_nast
ix_druvo = l_druvo
doc = l_doc
ix_xfz = l_xfz
ix_screen = ent_screen
ix_from_memory = l_from_memory
ix_toa_dara = toa_dara
ix_arc_params = arc_params
ix_fonam = tnapr-fonam "HW 214570
IMPORTING
ex_retco = ent_retco.
endform. "entry_lpje
*eject
Feinabrufdruck für Formular MEDRUCK ohne Fortschrittszahlen
form entry_lpje_cd using ent_retco ent_screen.
data: l_druvo like t166k-druvo,
l_nast like nast,
l_from_memory,
l_doc type meein_purchase_doc_print.
clear ent_retco.
l_druvo = 'A'.
call function 'ME_READ_PO_FOR_PRINTING'
EXPORTING
ix_nast = nast
ix_screen = ent_screen
IMPORTING
ex_retco = ent_retco
ex_nast = l_nast
doc = l_doc
CHANGING
cx_druvo = l_druvo
cx_from_memory = l_from_memory.
check ent_retco eq 0.
call function 'ME_PRINT_PO'
EXPORTING
ix_nast = l_nast
ix_druvo = l_druvo
doc = l_doc
ix_screen = ent_screen
ix_from_memory = l_from_memory
ix_toa_dara = toa_dara
ix_arc_params = arc_params
ix_fonam = tnapr-fonam "HW 214570
IMPORTING
ex_retco = ent_retco.
endform. "entry_lpje_cd
*eject
INCLUDE FM06PE02 *
form entry_neu_matrix using ent_retco ent_screen.
data: l_druvo like t166k-druvo,
l_nast like nast,
l_from_memory,
l_doc type meein_purchase_doc_print.
clear ent_retco.
if nast-aende eq space.
l_druvo = '1'.
else.
l_druvo = '2'.
endif.
call function 'ME_READ_PO_FOR_PRINTING'
EXPORTING
ix_nast = nast
ix_screen = ent_screen
IMPORTING
ex_retco = ent_retco
ex_nast = l_nast
doc = l_doc
CHANGING
cx_druvo = l_druvo
cx_from_memory = l_from_memory.
check ent_retco eq 0.
call function 'ME_PRINT_PO'
EXPORTING
ix_nast = l_nast
ix_druvo = l_druvo
doc = l_doc
ix_screen = ent_screen
ix_from_memory = l_from_memory
ix_mflag = 'X'
ix_toa_dara = toa_dara
ix_arc_params = arc_params
ix_fonam = tnapr-fonam "HW 214570
IMPORTING
ex_retco = ent_retco.
data: l_komk type komk occurs 0 with header line.
DATA: lf_fm_name TYPE rs38l_fnam.
endform. "entry_neu_matrix
*eject
Angebotsabsage
form entry_absa using ent_retco ent_screen.
data: l_druvo like t166k-druvo,
l_nast like nast,
l_from_memory,
l_doc type meein_purchase_doc_print.
l_druvo = '4'.
clear ent_retco.
call function 'ME_READ_PO_FOR_PRINTING'
EXPORTING
ix_nast = nast
ix_screen = ent_screen
IMPORTING
ex_retco = ent_retco
ex_nast = l_nast
doc = l_doc
CHANGING
cx_druvo = l_druHi,
Depending on whether you have a Sales order or Purchase order.
If sales order -> then go to NACE -> Sales -> check your Zsmartform
If Purchase order -> go to NACE -> under PO output -> find your Zsmartform.
In both cases, after u find your smartform name, thru change log.
At runtime read what are the header text changes and pass it to the smartform.
You can use FM read_txt for this.
Hope this helps. -
Print in text mode to detect escape sequences
Hello,
We have got an issu, on our .NET print program using Crystal 12 SP3. The issue has concequences on :
- Barcode print on matrix printer
- Barcode print on thermal printer
- Other commands send to a FAX printer driver
Using the SDK, the print driver receives print data in graphical print mode, but it has to be text mode for the printer driver to detect the correct escape sequences. The escapes sequences are used by the driver to switch the font or receive a command.
Is there a way to force the print in text mode ?
The same report printed from Crystal Reports 2008 SP 3 "works", but not from the .NET sdk.
Here is a little example. We made a simple Report, containing 2 simple Text Objects :
Code Barres $ [ /
+$$;111;6;1;1;0;2 z +
$$?0h0123456789$$?0/
We redirected the print driver spool in a file. Here are the outputs :
Printed from Crystal Report 2008 :
[0;4 r+<[3;031w[3;032w[7s2CH
x[1;2xF5-
JÃ$Code Barres $ [ /
J-$$$;111;6;1;1;0;2 z
J$$$?0h0123456789$$?0/@[0;4 r
Printed from .Net application using Crystal Report 2008 SDK :
[0;4 r+<[3;031w[3;032w[7s2CH
x
JÅ$*'úø u20AC u20AC u20AC u20AC u20AC<|u201Au20ACu20ACu20ACu20ACu20ACu20ACu201A||u201Au20ACu20ACu20ACu20ACu20ACA@u201Aÿu20ACu20ACu20AC|u2019u20ACu20ACu20ACu20ACu20ACu20ACu2018r u20AC u20AC?ÿu20AC @u20AC @u20AC @u20AC @u20AC @u20AC @u20AC u20AC!u20AC u20AC u20AC u20AC u20AC!"ÿu20ACu20ACu20ACu20ACu20ACu20ACÿu20ACu20ACu20ACu20ACu20ACu20ACu20ACu20ACu20ACu20ACÿu20ACu20ACu20ACu20ACu20ACu20ACu20AC|u2019u20ACu20ACu20ACu20ACu20ACu20ACu2018ru20ACÁ! u20AC u20AC u20AC u20AC u20ACŽu201A u201A u0192ààu201A BBD8ÿð@@@`u20AC`u20AC0À
J-*'7u201A u201A u0192ààu201A BBD8u201A u201A u0192ààu201A BBD8`àu2021u20ACu2021u201Eu20ACu20AC u20AC u20AC u20ACÿu20ACu20ACu20ACu20ACu20ACu20AC u20AC u20AC u20ACÿu20ACu20ACu20ACu20ACu20ACu20AC u20AC u20AC u20ACÿu20ACu20ACu20ACu20ACu20AC`àu2021u20ACu2021u201Eu20ACø>A u20ACu20AC!u20ACAu20ACAu20ACA@Ã@<`àu2021u20ACu2021u201Eu20ACu20AC u20AC u20AC u20ACÿu20ACu20ACu20ACu20ACu20AC`àu2021u20ACu2021u201Eu20ACu20AC u20AC u20AC u20ACÿu20ACu20ACu20ACu20ACu20AC`àu2021u20ACu2021u201Eu20ACü @u20AC@u20AC@u20AC ø`àu2021u20ACu2021u201Eu20ACu20ACu20AC u20AC@u20AC@u20AC@ u20AC@@u20AC@u20ACu20AC!u20ACu20ACu20ACu20ACu20ACu20ACu20AC u20AC@u20ACu20ACu20ACu20ACu20AC
J*'Tu201A u201A u0192ààu201A BBD8u201A u201A u0192ààu201A BBD8 u20AC 1u20AC Au20AC Au20ACu20ACü @u20AC@u20AC@u20AC ø@u20AC@u20ACÿu20ACu20ACu20ACu20ACu20ACu20ACÿu20ACu20ACu20ACü @u20AC@u20AC@u20AC øu20AC u20AC u20AC u20ACÿu20ACu20ACu20ACu20ACu20ACu20ACu20AC u20AC@u20AC@u20AC@ u20AC@@u20AC@u20ACu20AC!u20ACu20AC u20AC@u20AC@u20ACu20AC@u20ACu20AC@u20ACu20AC!A#xu02C6<u20AC@u20AC@u20ACÿu20ACu20ACu20AC@Au20ACAu20ACAu20ACAu20ACAu0192|ø>A u20ACu20AC!u20ACAu20ACAu20ACA@Ã@<p@@@@@u20AC@8AÀNp>!A@u20ACu20AC@u20ACu20AC@u20ACu20AC@u20ACu20AC@u20ACu20AC!A>u20ACu20AC @u20AC@ u20AC@ u20AC@ u20AC@! Bu0152ðu201A u201A u0192ààu201A BBD8u201A u201A u0192ààu201A BBD8 u20AC 1u20AC Au20AC Au20ACu20ACü @u20AC@u20AC@u20AC ø`u20AC`u20AC0À@[0;4 r
As you can see above, the characters contained in the report are sent "as this" in the print driver from Crystal Reports 2008. But the pixels represention of the characters are sent from the .Net SDK.Hello,
thank you for your answer.
I forgot to add the 2008 com+ API output, that is exactly the same as Crystal Report 2008.
- From Crystal Reports 2008 : WORKS
- From a program using the 2008 com+ Runtime API : WORKS
- From a program using the 2008 .Net Runtime API : DON'T WORK
You wrote that all the runtime print engine sends to the printer is essentially a picture. But It do send text using the com+ API.
Should I understand : The .Net runtime print engine can't send text ? -
How to print a text file with pagebreak.......
hi to all,
i am new in java and i want to do print a text file with page break. that text file is converted from html view page with help of htmlconveter class and i want to set page break in the text file.ASCII 12 is not work properly.its not break a page in proper manner.plz reply soon.hi to all,
i am new in java and i want to do print a text file with page break. that text file is converted from html view page with help of htmlconveter class and i want to set page break in the text file.ASCII 12 is not work properly.its not break a page in proper manner.plz reply soon. -
How to print a text file using Java
How can I print a text file using Java without converting the output to an image format. Is there anyway I can send the characters in the text file as it is for a print job? I did get a listing doing this ... but that converted the text to an image format before printing....
THanks,.Hi I had to write a print api from scratch, and I did not convert the output to image. Go and read up on the following code. I know there is a Tutorial on Sun about the differant sections of the snippet.
private void printReport()
Frame tempFrame = new Frame(getName());
PrintJob printerJob = Toolkit.getDefaultToolkit().getPrintJob(tempFrame, "Liesltext", null);
Graphics g = printerJob.getGraphics();
//I wrote the method below for calculations
printBasics(g);
g.dispose();
printerJob.end();
}This alone wont print it you have to do all the calculations in the printBasics method. And as I said I wrote this from scratch and all I did was research first the tutorial and the white papers
Ciao -
How to print a text file with long lines?
I am trying to print a text file which contains many long lines. I find that the long lines are truncated on the printouts. How do I wrap up these long lines? Could you give me some examples?
Thank you very much!Here's an example. The "\n" makes anything after it go to the next line. I hope this helps. Look at the Private void getTable() section.
import java.awt.*;
import java.awt.event.*;
import java.sql.*;
public class LabNine extends Frame implements ActionListener, WindowListener {
private TextField txtInfo;
private List lstInfo;
private Button btnAddInfo;
private BorderLayout borderlayout;
private Connection databaseConnection;
Statement statement;
ResultSet resultSet;
public LabNine( ) {
super("Lab Nine");
// addWindowListener to close application
addWindowListener(this);
// create layout
borderlayout = new BorderLayout();
setLayout(borderlayout);
// create text field so the file input that is selected will be seen in here
txtInfo = new TextField();
txtInfo.setEnabled(false);
Color color = new Color(255, 136, 183);
txtInfo.setBackground(color);
add(txtInfo, BorderLayout.NORTH);
// create list so the file input can be populated in here
lstInfo = new List();
add(lstInfo, BorderLayout.CENTER);
// create button to add selected input file in the text field
btnAddInfo = new Button("Add Info");
btnAddInfo.setBackground(Color.cyan);
btnAddInfo.setFont(new Font("TimesRoman", Font.BOLD, 16));
btnAddInfo.addActionListener( this );
add(btnAddInfo, BorderLayout.SOUTH);
// set frame attributes
setSize(450, 250);
setResizable( false );
show();
// get the table/ get the query
loadConnection();
getTable();
public void actionPerformed(java.awt.event.ActionEvent e) {
// if add button is pushed then it will check to see if an item was selected.
// if not, then an error message will be displayed else the selected item will be in the text box
if ( e.getSource() == btnAddInfo ) {
if ( lstInfo.getSelectedIndex() == -1 ) {
System.out.print( "You have not selected an item" );
else {
txtInfo.setText(( lstInfo.getSelectedItem() ));
private void getTable() {
try {
String query = "SELECT FIRST, LAST, EMAIL FROM Names";
statement = databaseConnection.createStatement();
resultSet = statement.executeQuery( query );
while ( resultSet.next() ) {
lstInfo.add( resultSet.getString( "FIRST" ) + " " + resultSet.getString( "LAST") + " " +
resultSet.getString( "EMAIL" ) + "\n" );
statement.close();
catch ( Exception e ) {
System.err.println( e );
private void loadConnection() {
// define the data source for the driver
String sourceURL = "jdbc:odbc:people";
String username = "";
String password = "";
// load the driver
try {
// load the drive class
Class.forName( "sun.jdbc.odbc.JdbcOdbcDriver" );
// create a connection through the drivermanager
databaseConnection = DriverManager.getConnection( sourceURL , username, password );
catch( ClassNotFoundException cnfe ) {
System.err.println( cnfe );
catch( SQLException sqle ) {
System.err.println( sqle );
public static void main(java.lang.String[] args) {
LabNine aLabNine = new LabNine( );
public void windowActivated(java.awt.event.WindowEvent e) {
public void windowClosed(java.awt.event.WindowEvent e) {
// closes the application
System.exit( 0 );
public void windowClosing(java.awt.event.WindowEvent e) {
// closes the application
System.exit( 0 ); -
How to print hardcode text in alv
hi folks,
i am working on a report to display data using ALV.
i want to print some text and its correspodning value. (corresponding value is calculated value).
i am able to print calculated value using fieldcatalog but unable to understand how can i print the text(which is a hardcoded text).
ex:
statement value
select* 0
using macros 1
in my example select* and using macros are hard coded texts so can anyone tell me how can i print do this.
thanks in advance.hi
thanks for the reply.
my report has got 14 stmnts and has 14 error message types.
earlier it text was hardcoded and displayed correspondingly but now we want to remove write statements.
so i am not able to understand how can i send the hardcoded text as the output is not in the desired way.
i want to know how can i add into fieldcatalog record by record i.e. stmnt1, value-1 record
stmnt2,value-2nd record and so on. as this would definitely solve my problem -
How to print the texts retrived by using READ_TEXT fun module in Smartform
Please tell me how to print the text which is rertrived by using the READ_TEXT function module in smartform.
I have coded all things in the program lines and in that i am retriveing the long texts.
I am getting the text lines in my internal table clearly, the thing is that I am not able to pass these lines to the text.
I have to print the trouble ticket. in that the notes log I have to pass.
its urgent. Points will be rewarded for any type of clue. whether it will work or not.There are a few ways to do it. If you need to take all of the text in the text type, in your SF text element choose "Include Text".
Populate the fields with the data that corresponds to the text type. It is similar to the interface to the FM "Read_Text.
Text Name
Text Obje
Text ID
Language
Encase any variables with the "&" symbol.
If you have already coded the call to the FM "READ_TEXT" and loaded the text into an internal table, create a loop and loop through the itab. Inside of the loop create a text element and add a variable in the text element for the field you are looking to output.
Maybe you are looking for
-
Pavilion Elite e9180f freezes, crashes, BSOD
I am one of the many unhappy customers who bought this piece of junk (Pavilion Elite e9180f) and waited too long to return it because in my naivete, I thought it was some kind of simple software issue. Nope! It's definitely something wrong with the
-
i configured xorg to using nv driver and i restart x (ctrl+alt+backspace) and i got eror /var/log/Xorg.0.log: X Window System Version 7.1.1 Release Date: 12 May 2006 X Protocol Version 11, Revision 0, Release 7.1.1 Build Operating System: UNKNOWN Cur
-
How to automatically "show" not "allow" on timeline?
I want it to be in that little header section (lives, studied- that little box) with the spotify logo that says I listened to yadda yadda. Automatically! It only shows up like that if you change it to "show on timeline" not "allow," correct? So how c
-
Script to list and remove browser extensions?
I want to write an AppleScript to list and remove extensions from Safari, Firefox and Chrome. The problem is, I'm not finding any obvious ways of doing this in the AppleScript dictionaries for those apps. Does anyone know of a way to do this in an el
-
Using Windows 7 with Adobe Reader X1. I need to repeatedly print documents (actually labels) using a Custom Scale of 43% (under File / Print / Page Sizing & Handling). Is there a way to set this as a default? A registry key perhaps? I've found the re