↧
упс...
↧
классовый вопрос
непрограммеры могут не читать
вот скажите, коллеги, занахуа при наприсании даже самых простых отчетов использовать объектную модель? мне, как человеку выросшему на хардкорном С (и даже С-- :), а также Фортране и прочем турбо-паскакале, этогорасово классово-верного дао ну никак не постичь...
вот скажите, коллеги, занахуа при наприсании даже самых простых отчетов использовать объектную модель? мне, как человеку выросшему на хардкорном С (и даже С-- :), а также Фортране и прочем турбо-паскакале, этого
REPORT demo_string_template_time_form.
CLASS demo DEFINITION.
PUBLIC SECTION.
CLASS-METHODS: main.
PRIVATE SECTION.
CLASS-DATA: BEGIN OF result,
col1 TYPE string,
col2 TYPE string,
col3 TYPE string,
col4 TYPE string,
col5 TYPE string,
col6 TYPE string,
col7 TYPE string,
END OF result,
result_tab LIKE TABLE OF result.
CLASS-METHODS: setup,
teardown,
display,
check_system.
ENDCLASS.
CLASS demo IMPLEMENTATION.
METHOD main.
DATA: seconds TYPE i,
timetable TYPE TABLE OF t,
land TYPE t005x-land,
comp TYPE i.
CONSTANTS n TYPE i VALUE 4.
FIELD-SYMBOLS: <time> TYPE t,
<col> TYPE string.
setup( ).
DO 24 / n TIMES.
seconds = ( sy-index - 1 ) * 3600 * n.
APPEND seconds TO timetable.
seconds = seconds + 1.
APPEND seconds TO timetable.
seconds = seconds + ( n - 1 ) * 3600 + 59 * 60 + 58.
APPEND seconds TO timetable.
ENDDO.
LOOP AT timetable ASSIGNING <time>.
result-col1 = |{ <time> TIME = RAW }|.
result-col2 = |{ <time> TIME = ISO }|.
SELECT land
FROM t005x
INTO (land)
WHERE land LIKE '@%'.
comp = sy-dbcnt + 2.
ASSIGN COMPONENT comp OF STRUCTURE result TO <col>.
<col> = |{ <time> COUNTRY = land }|.
ENDSELECT.
APPEND result TO result_tab.
ENDLOOP.
teardown( ).
display( ).
ENDMETHOD.
METHOD setup.
DATA: t005x_wa TYPE t005x,
descr TYPE REF TO cl_abap_elemdescr,
fixvals TYPE ddfixvalues,
fixval LIKE LINE OF fixvals,
ans TYPE c LENGTH 1.
check_system( ).
SELECT SINGLE land
FROM t005x
INTO (t005x_wa-land)
WHERE land LIKE '@%'.
IF sy-subrc = 0.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = 'Confirmation'
text_question = 'Delete existing' &
' entries with keys' &
' @1, @2, ... in T005X?'
text_button_1 = 'Yes'
text_button_2 = 'No'
display_cancel_button = ' '
IMPORTING
answer = ans.
IF ans = 1.
teardown( ).
ELSE.
MESSAGE 'Execution not possible' TYPE 'I' DISPLAY LIKE 'E'.
LEAVE PROGRAM.
ENDIF.
ENDIF.
descr ?= cl_abap_elemdescr=>describe_by_name( 'T005X-TIMEFM' ).
fixvals = descr->get_ddic_fixed_values( ).
LOOP AT fixvals INTO fixval.
IF fixval-low IS INITIAL.
CONTINUE.
ENDIF.
t005x_wa-land = '@' && |{ fixval-low }|.
t005x_wa-timefm = |{ fixval-low }|.
INSERT t005x FROM t005x_wa.
ENDLOOP.
COMMIT WORK.
ENDMETHOD.
METHOD teardown.
DELETE FROM t005x WHERE land LIKE '@%'.
COMMIT WORK.
ENDMETHOD.
METHOD display.
DATA: alv TYPE REF TO cl_salv_table,
exc TYPE REF TO cx_salv_error.
TRY.
cl_salv_table=>factory(
IMPORTING r_salv_table = alv
CHANGING t_table = result_tab ).
alv->get_columns( )->set_optimize( 'X' ).
alv->get_columns( )->get_column( 'COL1'
)->set_short_text( 'raw' ).
alv->get_columns( )->get_column( 'COL2'
)->set_short_text( 'iso' ).
alv->get_columns( )->get_column( 'COL3'
)->set_short_text( '24h' ).
alv->get_columns( )->get_column( 'COL4'
)->set_short_text( '12H (1-12)' ).
alv->get_columns( )->get_column( 'COL5'
)->set_short_text( '12h (1-12)' ).
alv->get_columns( )->get_column( 'COL6'
)->set_short_text( '12H (0-11)' ).
alv->get_columns( )->get_column( 'COL7'
)->set_short_text( '12h (0-11)' ).
alv->get_display_settings( )->set_striped_pattern( 'X' ).
alv->display( ).
CATCH cx_salv_error INTO exc.
MESSAGE exc TYPE 'I' DISPLAY LIKE 'E'.
ENDTRY.
ENDMETHOD.
METHOD check_system.
IF cl_abap_demo_services=>is_production_system( ) = abap_true.
MESSAGE 'This demo cannot be executed in a production system'
TYPE 'I' DISPLAY LIKE 'E'.
LEAVE PROGRAM.
ENDIF.
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
demo=>main( ).
CLASS demo DEFINITION.
PUBLIC SECTION.
CLASS-METHODS: main.
PRIVATE SECTION.
CLASS-DATA: BEGIN OF result,
col1 TYPE string,
col2 TYPE string,
col3 TYPE string,
col4 TYPE string,
col5 TYPE string,
col6 TYPE string,
col7 TYPE string,
END OF result,
result_tab LIKE TABLE OF result.
CLASS-METHODS: setup,
teardown,
display,
check_system.
ENDCLASS.
CLASS demo IMPLEMENTATION.
METHOD main.
DATA: seconds TYPE i,
timetable TYPE TABLE OF t,
land TYPE t005x-land,
comp TYPE i.
CONSTANTS n TYPE i VALUE 4.
FIELD-SYMBOLS: <time> TYPE t,
<col> TYPE string.
setup( ).
DO 24 / n TIMES.
seconds = ( sy-index - 1 ) * 3600 * n.
APPEND seconds TO timetable.
seconds = seconds + 1.
APPEND seconds TO timetable.
seconds = seconds + ( n - 1 ) * 3600 + 59 * 60 + 58.
APPEND seconds TO timetable.
ENDDO.
LOOP AT timetable ASSIGNING <time>.
result-col1 = |{ <time> TIME = RAW }|.
result-col2 = |{ <time> TIME = ISO }|.
SELECT land
FROM t005x
INTO (land)
WHERE land LIKE '@%'.
comp = sy-dbcnt + 2.
ASSIGN COMPONENT comp OF STRUCTURE result TO <col>.
<col> = |{ <time> COUNTRY = land }|.
ENDSELECT.
APPEND result TO result_tab.
ENDLOOP.
teardown( ).
display( ).
ENDMETHOD.
METHOD setup.
DATA: t005x_wa TYPE t005x,
descr TYPE REF TO cl_abap_elemdescr,
fixvals TYPE ddfixvalues,
fixval LIKE LINE OF fixvals,
ans TYPE c LENGTH 1.
check_system( ).
SELECT SINGLE land
FROM t005x
INTO (t005x_wa-land)
WHERE land LIKE '@%'.
IF sy-subrc = 0.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = 'Confirmation'
text_question = 'Delete existing' &
' entries with keys' &
' @1, @2, ... in T005X?'
text_button_1 = 'Yes'
text_button_2 = 'No'
display_cancel_button = ' '
IMPORTING
answer = ans.
IF ans = 1.
teardown( ).
ELSE.
MESSAGE 'Execution not possible' TYPE 'I' DISPLAY LIKE 'E'.
LEAVE PROGRAM.
ENDIF.
ENDIF.
descr ?= cl_abap_elemdescr=>describe_by_name( 'T005X-TIMEFM' ).
fixvals = descr->get_ddic_fixed_values( ).
LOOP AT fixvals INTO fixval.
IF fixval-low IS INITIAL.
CONTINUE.
ENDIF.
t005x_wa-land = '@' && |{ fixval-low }|.
t005x_wa-timefm = |{ fixval-low }|.
INSERT t005x FROM t005x_wa.
ENDLOOP.
COMMIT WORK.
ENDMETHOD.
METHOD teardown.
DELETE FROM t005x WHERE land LIKE '@%'.
COMMIT WORK.
ENDMETHOD.
METHOD display.
DATA: alv TYPE REF TO cl_salv_table,
exc TYPE REF TO cx_salv_error.
TRY.
cl_salv_table=>factory(
IMPORTING r_salv_table = alv
CHANGING t_table = result_tab ).
alv->get_columns( )->set_optimize( 'X' ).
alv->get_columns( )->get_column( 'COL1'
)->set_short_text( 'raw' ).
alv->get_columns( )->get_column( 'COL2'
)->set_short_text( 'iso' ).
alv->get_columns( )->get_column( 'COL3'
)->set_short_text( '24h' ).
alv->get_columns( )->get_column( 'COL4'
)->set_short_text( '12H (1-12)' ).
alv->get_columns( )->get_column( 'COL5'
)->set_short_text( '12h (1-12)' ).
alv->get_columns( )->get_column( 'COL6'
)->set_short_text( '12H (0-11)' ).
alv->get_columns( )->get_column( 'COL7'
)->set_short_text( '12h (0-11)' ).
alv->get_display_settings( )->set_striped_pattern( 'X' ).
alv->display( ).
CATCH cx_salv_error INTO exc.
MESSAGE exc TYPE 'I' DISPLAY LIKE 'E'.
ENDTRY.
ENDMETHOD.
METHOD check_system.
IF cl_abap_demo_services=>is_production_system( ) = abap_true.
MESSAGE 'This demo cannot be executed in a production system'
TYPE 'I' DISPLAY LIKE 'E'.
LEAVE PROGRAM.
ENDIF.
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
demo=>main( ).
↧
↧
обновление на сайте
добавил "умные винтовки" Tracking Point
↧
антик
чертеж опытного самозарядного дробовика фирмы Винчестер, 1900 год.
используется энергия отдачи всего оружия, посредством подвижного затыльника приклада, связанного с коленчато-рычажной парой, контролирующей затвор
по сути, развитие идей небезызвестного сэра Хайрэма Максима и не менее небезызвестных герров Борхарда и Люгера.
а еще у Винчестер тогда же был и проект самозарядного карабина под .44WCF, тоже с рычажным запиранием, но с приводом автоматики от подвижного вперед надульника.
↧
интересно,
мне одному думается. что такие вот безкупольные зонтикинадо делать из высококачественного чугуния алюминия, дабы функционал расширить?
↧
↧
бывает и такое
на ганзе в "истории оружия"тема уже на целых 6 страниц - и безо всякого срача :) сугубо конструктивный разговор, даст бог и что-нибудь новенькое и интересненькое всплывет :)
хотя, с другой стороны, иногда нет-нет да и пробьет ностальжи по Антоше63 и его незабываемым тредам-бредам на 99 страниц.
хотя, с другой стороны, иногда нет-нет да и пробьет ностальжи по Антоше63 и его незабываемым тредам-бредам на 99 страниц.
↧
олкоголическое
что-то вспомнилось
вчера с семьей зашли в кабачок в центре болото-сити перекусить; в результате опробовали масандровский портвейн. в обчем, на мой непросвещенный вкус он ничуть не хуже рядового Sandeman'а. так что скажем нет санкциям, сегодня попробую в супермаркете на пробу взять флакончиктри топоракрасного портвейна Масандра для дому, для семьи.
вчера с семьей зашли в кабачок в центре болото-сити перекусить; в результате опробовали масандровский портвейн. в обчем, на мой непросвещенный вкус он ничуть не хуже рядового Sandeman'а. так что скажем нет санкциям, сегодня попробую в супермаркете на пробу взять флакончик
↧
зип файл!
в смысле SIG fail
для невладеющих инглезом - на конкурс DMR для чешской армии компания Меопта выставила 7.62мм винтовку SIG 716в качествеподставки платформы для своей оптики
и этот самый ЗИГ жидко обосрался на испытаниях, что по надежности, что по ресурсу стволов
теперь Меопта судорожно ищет новую 7.62мм платформу
для невладеющих инглезом - на конкурс DMR для чешской армии компания Меопта выставила 7.62мм винтовку SIG 716в качестве
и этот самый ЗИГ жидко обосрался на испытаниях, что по надежности, что по ресурсу стволов
теперь Меопта судорожно ищет новую 7.62мм платформу
↧
и снова про рыволюционеров
очередной боец за правое дело внезапно осознал, что народец ему достался не торт. слава богу, данный экземпляр вроде решил, что надо самому валить, а не валить тех, кто с ним внезапно оказался не согласен
а ведь есть еще туева хуча таких же, которые считают что норот нужно пинками гнать в светлое будущее, а если при этом придется кого-то немножко побомбить, или чуть-чуть расстрелять, или загнать в лагеря - то это ничего, ибо сугубо для всеобщего блага, блядь.
и это отнюдь не свойство только лишь украинских героев сала - так оно было с начала веков, и так, увы, будет. И PS в его комменте очень типичен - гражданская война во всей ее красе.
Люди на стороне Народа всегда разочаровывались. Они понимали, что Народ не стремился быть благодарным или признательным, или дальновидным, или же просто подчиняться им. Народ оказывался узкомыслящим и консервативным, и не особо умным, и даже не доверявшим доводам разума. И тогда дети революции сталкивались с вечной проблемой: дело не в том, что у тебя не то правительство, что казалось очевидным, а в том, что народ не тот.
(ц) сэр Терри Пратчетт
а ведь есть еще туева хуча таких же, которые считают что норот нужно пинками гнать в светлое будущее, а если при этом придется кого-то немножко побомбить, или чуть-чуть расстрелять, или загнать в лагеря - то это ничего, ибо сугубо для всеобщего блага, блядь.
и это отнюдь не свойство только лишь украинских героев сала - так оно было с начала веков, и так, увы, будет. И PS в его комменте очень типичен - гражданская война во всей ее красе.
Люди на стороне Народа всегда разочаровывались. Они понимали, что Народ не стремился быть благодарным или признательным, или дальновидным, или же просто подчиняться им. Народ оказывался узкомыслящим и консервативным, и не особо умным, и даже не доверявшим доводам разума. И тогда дети революции сталкивались с вечной проблемой: дело не в том, что у тебя не то правительство, что казалось очевидным, а в том, что народ не тот.
(ц) сэр Терри Пратчетт
↧
↧
с думами о единстве
судите сами - пехотный ручной; пехотный станковый; танковый; авиационный; зенитный. При этом с довольно тяжелым стволом и ленточным питанием...
и это еще до ПМВ. В ПМВ, правда, в роли станковых в основном рулили более серьезные машинки для крупнооптового выпиливания пехоты, но и этот Гочкисс повоевал преизрядно
слайды:
↧
обрезок
↧
выразительно
↧
реактивный трехствольный Льюисогатлинг
патент, описывающий устройство, позволяющее создавать "плотный конус интенсивного огня".
три Льюиса без кожухов вокруг одной оси, со стволами расположенным под малым углом к этой оси 9чтобы этот самый "конус огня"и создать). Вращение - за счет дефлекторов пороховых газов у дульных срезов.
Представляю какой момент инерции должен быть у этой системе при разгоне, стрельбе (гироскопический эффект, ага) и при торможении... :)
↧
↧
наповал!
↧
интересно,
а у нас никто не собирается ПУС-7Вкак охотничье оружие сертифицировать?
↧
Brutality: +100
↧
а может мне кто-нибудь объяснить, в чем смысл
этих самых так называемых "каминг-аутов", особенно в типа цивилизованных странах?
ведь если человек - пидорас в плохом смыслеэтого слова, то это и без всяких каминг-аутов всем отлично видно; а если он просто предпочитает не совсем традиционный, но с точки зрения местного УК законный способ занятий сексом - то кого это, по большому счету, ебет, помимо его личного полового партнера?
ведь если человек - пидорас в плохом смыслеэтого слова, то это и без всяких каминг-аутов всем отлично видно; а если он просто предпочитает не совсем традиционный, но с точки зрения местного УК законный способ занятий сексом - то кого это, по большому счету, ебет, помимо его личного полового партнера?
↧
↧
угадайте цену этих железяк, не используя гугл
а теперь внимание,
вот так. без копеек 0.7 миллиона долларей. осознали?
↧
просто под руку фото подвернулось в процессе работы
↧
дезигнерский
↧