REPORT ZERN_TAW12_WRITE NO STANDARD PAGE HEADING .
TABLES SSCRFIELDS.
* Þirket Verilerinin Tutulduðu Tablo
DATA : BEGIN OF gt_stab OCCURS 0 ,
SAD(25),
PAD(25),
MAAS TYPE I,
END OF gt_stab,
* CTAB TABLOSUNDA BENZER FIELD ICERIKLERI TOPLANACAK
CTAB LIKE gt_stab OCCURS 0 WITH HEADER LINE .
SELECTION-SCREEN BEGIN OF BLOCK B1
WITH FRAME TITLE TEXT-002.
PARAMETERS : SIR TYPE TEXT20 ,
AD TYPE TEXT20 ,
MAAS TYPE I .
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN PUSHBUTTON 26(20) TEXT-003 USER-COMMAND EKL.
SELECTION-SCREEN END OF BLOCK B1 .
* INITIALIZATION.
INITIALIZATION.
* AT LINE-SELECTION.
AT LINE-SELECTION.
PERFORM WRITE.
* AT SELECTION-SCREEN.
AT SELECTION-SCREEN .
IF SSCRFIELDS-UCOMM EQ 'EKL'.
* ÞIRKET gt_stab DOLDURULMASý
PERFORM FILL_TABLE.
CLEAR : SIR, AD , MAAS.
ENDIF.
* START-OF-SELECTION.
START-OF-SELECTION.
BREAK-POINT.
* Collect Ýþlemi
PERFORM COLLECT_TABLE.
END-OF-SELECTION .
*&---------------------------------------------------------------------*
*& Form fill_table
*&---------------------------------------------------------------------*
FORM FILL_TABLE.
MOVE : SIR TO gt_stab-SAD ,
AD TO gt_stab-PAD ,
MAAS TO gt_stab-MAAS .
APPEND gt_stab.
CLEAR gt_stab.
ENDFORM. " fill_table
*&---------------------------------------------------------------------*
*& Form collect_table
*&---------------------------------------------------------------------*
FORM COLLECT_TABLE.
SORT gt_stab ASCENDING BY SAD .
LOOP AT gt_stab.
* SIRKETE GORE COLLECT
MOVE : gt_stab-SAD TO CTAB-SAD ,
gt_stab-MAAS TO CTAB-MAAS .
COLLECT CTAB.
ENDLOOP.
LOOP AT CTAB.
WRITE : / CTAB-SAD ,
CTAB-MAAS .
HIDE CTAB-SAD.
ENDLOOP.
CLEAR CTAB.
ENDFORM. " collect_table
*&---------------------------------------------------------------------*
*& Form write
*&---------------------------------------------------------------------*
FORM WRITE.
DATA : V_SAD(25).
MOVE CTAB-SAD TO v_sad .
LOOP AT gt_stab WHERE SAD EQ V_SAD .
WRITE : / gt_stab-SAD ,
gt_stab-PAD ,
gt_stab-MAAS .
ENDLOOP.
ENDFORM. "WRITE
Ben Tara Omar, şu anda Belarus'ta yaşıyorum. Şu anda Dört çocuklu bir dulum ve dünya salgını nedeniyle mali bir durumda kaldım ve faturalarımı yeniden finanse etmem ve ödemem gerekiyordu. Hem özel hem de kurumsal çeşitli kredi firmalarından kredi almayı denedim ama asla başarılı olamadım ve çoğu banka kredimi reddetti. Ama Allah'ın izniyle, herhangi bir projeyi %2 oranında finanse etmeye istekli bir grup yatırımcıyla çalışan bir kredi memuru ile Tanrı'nın adamı tanıştırıldım Bay Benjamin Lee bana 150.000,00 USD kredi verdi ve Bugün bir işletme sahibiyim ve çocuklarım şu anda iyi durumdalar, eğer herhangi bir firma ile temasa geçmeniz gerekiyorsa, stres olmadan kredi, kredi kontrolü yok, sadece %2 faiz oranı ve daha iyi geri ödeme planları ve programı ile ortak imza yok, lütfen Bayan Benjamin Lee ile iletişime geçin (247officedept@gmail.com). Bunu yaptığımı bilmiyor ama şimdi çok mutluyum ve insanlara onun hakkında daha fazla bilgi vermeye karar verdim ve ayrıca Tanrı'nın onu daha çok kutsamasını istiyorum. Onunla whats-App : + 1-989-394-3740 aracılığıyla iletişime geçebilirsiniz. .
YanıtlaSil