admin tarafından

Üretim Planlama PP İşlem Kodları

Mayıs 23, 2013 de Üretim Planlama - PP admin tarafından

PP İŞLEM KODLARI
CS01 ÜRETİM VERSİYON OLUŞTURMA
C223 ÜRETİM VERSİYONLARI BAKIMI
KSPP LOJİSTİK’DEN PLANLAMANIN DEVRALIMI
MC35 ÜRETİM KABA PLNL.PROFİLİ YARATILMASI
MC36 ÜRETİM KABA PLNL.PROF.DEĞİŞTİRİLMESİ
MC37 ÜRETİM KABA PLNL.PROF.GÖRÜNTÜLENMESİ
MC64 OLAY YARAT
MC65 OLAYIN DEĞİŞTİRİLMESİ
MC66 OLAYIN GÖRÜNTÜLENMESİ
MC74 MALZEMENİN PROG.PLANINA AKTARILMASI
MC75 ÜRÜN GRUBUNUN PROG.PLN.AKTARILMASI
MC76 BÖLÜMLEME: PLANLAMA
MC77 BÖLÜMLEME:PLANLAMANIN GÖRÜNTÜLENMESİ
MC78 SOP VERSİYONUNUN KOPYALANMASI
MC80 VERS.SİLİNMESİ VE ETKİNLEŞTİRİLMESİ
MC81 SATIŞ VE ÜRETİM KABA PLANLAMASI
MC82 SATIŞ VE ÜRETİM KABA PLANLAMASI
MC83 SATIŞ VE ÜRETİM KABA PLANLAMASI
MC84 ÜRÜN GRUBU YARATILMASI
MC85 ÜRÜN GRUBUNUN GÖRÜNTÜLENMESİ
MC86 ÜRÜN GRUBUNUN DEĞİŞTİRİLMESİ
MC87 SATIŞ VE ÜRETİM KABA PLANLAMASI
MC88 SATIŞ VE ÜRETİM KABA PLANLAMASI
MC89 SATIŞ VE ÜRETİM KABA PLANLAMASI
MC8A PLANLAMA TİPİNİN YARATILMASI
MC8B PLANLAMA TİPİNİN DEĞİŞTİRİLMESİ
MC8C PLANLAMA TİPİNİN GÖRÜNTÜLENMESİ
MC90 PROGRAM PLN.AKTARIMI:BS’DEN MALZEME
MC91 BAŞLANGIÇ GRAFİĞİ: ÜRÜN GRUPLARI
MC92 BAŞLANGIÇ: ÜG, HİYERARŞİLER
MC93 ESNEK LBS PLANLAMASI YARATILMASI
MC94 ESNEK LBS PLNL.DEĞİŞTİRİLMESİ
MC95 ESNEK LBS PLN.GÖRÜNTÜLENMESİ
MC96 440P TABLOSUNUN BAKIMI
MC9C ESNEK PLANLAMA DEĞERLENDİRMELERİ
MC9K KAPASİTE VARLIĞININ BAKIMI
MD4C ÇOK KADEMELİ SİPARİŞ RAPORU
MD61 ÖN PLANLAMA EKLENMESİ
MD62 ÖN PLANLAMANIN DEĞİŞTİRİLMESİ
MD63 ÖN PLANLAMANIN GÖRÜNTÜLENMESİ
MD65 STANDART ÖN PLANLAMANIN DEĞİŞTİRİLMESİ
MD66 STANDARTÖN PLANLAMANIN GÖRÜNTÜLENMESİ
MD70 GENEL TAHMİNİN DEVRALINMASI
MD72 KARAKTERİSTİK ÖN PLANLAMA DEĞERLENDİRMESİ
MD73 TOPLAM BİRİNCİL İHTİYAÇ GÖRÜNTÜLENMESİ
MD79 PP PROGRAM PLN.- XXL LİSTE GRNTLC.
MD81 MÜŞTERİ BİRİNCİL İHTİYAÇ YARATILMASI
MD82 MÜŞTERİ BİRİNCİL İHTİYAÇ DEĞİŞTİRİLMESİ
MD83 MÜŞTERİ BİRİNCİL İHTİYAÇ GÖRÜNTÜLE
MFBF SERİ ÜRETİM TEYİDİ
MF41 SERİ ÜRETİM TEYİT İPTALİ
MP30 MALZEME TAHMİNİNİN YÜRÜTÜLMESİ
MP31 MALZEME TAHMİNİNİN DEĞİŞTİRİLMESİ
MP32 MALZEME TAHMİNİNİ GÖRÜNTÜLE
MP33 MALZEME TAHMİNİ YENİDEN İŞLEMESİ
MP38 TOPLAM TAHMİN ÇALIŞTIRMASI
MPBT TOPLU TAHMİN İŞLEMİ
MPDR TOPLU YAZDIRMA İŞLEMİ

 

admin tarafından

Satış Dağıtım SD İşlem Kodları

Mayıs 23, 2013 de Satış Dağıtım - SD admin tarafından

SD İŞLEM KODLARI
VA01 MÜŞTERİ SİPARİŞİ YARAT
VA02 MÜŞTERİ SİPARİŞİNİ DEĞİŞTİR
VA03 MÜŞTERİ SİPARİŞİNİ GÖRÜNTÜLE
VA05 SİPARİŞ LİSTESİ
VA11 TEKLİF TALEBİ YARAT
VA12 TEKLİF TALEBİNİ DEĞİŞTİR
VA13 TEKLİF TALEBİNİ GÖRÜNTÜLE
VA21 TEKLİF YARAT
VA22 TEKLİFİ DEĞİŞTİR
VA23 TEKLİFİ GÖRÜNTÜLE
VA32 TESLİMAT PLANINI DEĞİŞTİR
VA42 SÖZLEŞMEYİ DEĞİŞTİR
VB11 MALZEME İKÂMESİ YARATILMASI
VC01 SATIŞ ETKİNLİĞİ EKLE
VD02 MÜŞTERİNİN DEĞİŞTİRİLMESİ
VD03 MÜŞTERİYİ GÖRÜNTÜLE
VD04 MÜŞTERİ DEĞİŞİKLİKLERİ
VD06 MÜŞTERİNİN SİLİNMEK ÜZERE RİŞARETLENMESİ
VD52 SEÇİM EKRANLI MÜŞTERİ MALZEMESİ BİLGİ BAKIMI
VF01 FATURALAMA BELGESİ YARAT
VF02 FATURALAMA BELGELERİ DEĞİŞİKLİĞİ
VF04 FATURALAMA BELGELERİ İŞ LİSTESİNİN İŞLEMESİ
VF11 FATURALAMA BELGELERİ TERS KAYDI
VKM1 BLOKE EDİLMİŞ SATIŞ BELGELERİ
VKM3 SATIŞ BELGELERİ
VKM5 TESLİMATLAR
VL01 GÖNDERİLEN TESLİMATI YARAT
VL02N GÖNDERİLEN TESLİMATI DEĞİŞTİR
VL04 TESLİMAT İŞ LİSTESİNİ İŞLE
VL06G GÖNDERİLEN TESLİMATLAR İÇİN MAL ÇIKIŞ LİSTESİ
VL06P ÇEKİLECEK GÖNDERİLEN TESLİMATLARIN LİSTESİ
VL09 İRSALİYE İÇİN MAL ÇIKIŞI TERS KAYDI
VOV4 TAB.TVEPZ: TERMİN TAYİNİ
VOV6 TERMİN TİPLERİNİN BAKIMI
VOV8 BELGE TÜRLERİNİN BAKIMI
VS01 ÖLÇEK YARAT
VT01 ESKİ: NAKLİYE YARAT
VT02N NAKLİYEYİ DEĞİŞTİR
VT70 NAKLİYE ÇIKTILARI
XD01 MÜŞTERİ YARAT(MERKEZİ)

 

admin tarafından

SAP Tabloları

Mayıs 22, 2013 de Genel admin tarafından

CO TABLOLAR

 

A132      HER MASRAF YERİ İÇİN FİYAT

A136      HER KONTROL KODU İÇİN FİYAT

A137      ÜLKE/BÖLGE İÇİN FİYAT

A138      HER ŞİRKET KODU/İŞ ALANI İÇİN FİYAT

A139      HER KÂR MERKEZİ İÇİN FİYAT

A141      MALZEME VE ALICI KÂR MERKEZİNE BAĞLI

A142      MALZEMEYE BAĞLI

A143      MAL GRUBUNA BAĞLI

AUAA   MASRAF YÜKLEME BELGESİ: ALICI BÖLÜMÜ

AUAB    MASRAF YÜKLEME BELGESİ: AYIRMA KURALLARI

AUAI     AMORTİSMAN ALANI BAŞINA MASRAF YÜKLEME TUTARLARI

AUAK    MASRAF YÜKLEME BELGE BAŞLIĞI

AUAO   BELGE BÖLÜMÜ: MASRAF YÜKLENECEK CO NESNELERİ

AUAV   BELGE BÖLÜMÜ: İŞLEMLER

AUFK    SİPARİŞ ANA VERİLERİ

AUSP    KARAKTERİSTİK DEĞERLERİ

CEPC     KÂR MERKEZLERİ ANA VERİ TABLOSU

CEPCT   KÂR MERKEZİ ANA VERİLERİ İÇİN METİNLER

COBK    CO NESNESİ: BELGE BAŞLIĞI

COBRA SİPARİŞ MASRAF YÜKLEMESİ İÇİN MASRAF YÜKLEME KURALI

COBRB  SPRŞ. MSF. YÜKLEMESİ İÇİN MSF.YÜKLEME KURALI AYIRMA KURALLARI

COEJ      CO NESNESİ: YIL İLİŞKİLİ MÜNFERİT KALEMLER

COEJL    CO NESNESİ: YILA GÖRE AKTİVİTE TÜRLERİ MÜNFERİT KALEMLERİ

COEJR   CO NESNESİ: YILA GÖRE İSTATİSTİKSEL GÖS. MÜNFERİT KALEMLERİ

COEJT   CO NESNESİ: YILA GÖRE BİRİM FİYAT MÜNFERİT KALEMLERİ

COEP     CO NESNESİ: DÖNEM İLİŞKİLİ MÜNFERİT KALEMLER

COEPL   CO NESNESİ: DÖNEME GÖRE AKTİVİTE TÜRLERİ MÜNFERİT KALEMLERİ

COEPR  CO NESNESİ: DÖNEME GÖRE İSTATİSTİKSEL GÖS. MÜNFERİT KALEMLERİ

COEPT  CO NESNESİ: DÖNEME ÖZGÜ BRM.FİYAT MNF.KALEMLERİ

COFIP   MUTABAKAT DEFTERİ İÇİN PLAN MÜNFERİT KALEMLERİ

COFIS    MUTABAKAT DEFTERİ İÇİN FİİLİ MÜNFERİT KALEMLER

COKA    CO-NESNESİ: MASRAF ÇEŞİDİ DENETİM VERİLERİ

COKL     CO NESNESİ: AKTİVİTE TÜRÜ DENETİM VERİLERİ

COKP    CO NESNESİ: BİRİNCİL MASRAF PLANLAMASI DENETİM VERİLERİ

COKR    CO NESNESİ: İSTATİSTİKSEL BÜYÜKLÜKLER DENETİM VERİLERİ

COKS     CO NESNESİ: İKİNCİL MASRAF PLANLAMASI DENETİM VERİLERİ

COSC     CO NESNESİ: KAYNAK ŞEMALARININ TAYİNİ

CSKA     MASRAF ÇEŞİTLERİ “HESAP PLANINA BAĞIMLI VERİLER”

CSKB     MASRAF ÇEŞİTLERİ “KONTROL KODUNA BAĞIMLI VERİLER”

CSKS      MASRAF YERLERİ ANA KAYDI

CSLA      AKTİVİTE TÜRÜ ANA VERİLERİ

CSSK      MASRAF YERİ/MASRAF ÇEŞİDİ

CSSL      MASRAF YERİ/AKTİVİTE TÜRÜ

GLPCA  EC-PCA: FİİLİ MÜNFERİT KALEMLER

GLPCC  EC-PCA: İŞLEM ÖZNİTELİKLERİ

GLPCO  EC-PCA: HESAP TAYİN ÖĞELERİ İÇİN NESNE TABLOSU

GLPCP  EC-PCA: PLANA İLİŞKİN MÜNFERİT KALEMLER

 

FI TABLOLAR

BKPF     MUHASEBE BELGE BAŞLIĞI

BSEG     MUHASEBE BELGESİNİN BÖLÜMÜ

GLT0      ANA HESAP VERİLERİ “ İŞLEM RAKAMLARI “

KLPA     MÜŞTERİ/SATICI BAĞLANTISI

KNB1     MÜŞTERİ ANA VERİLERİ “ŞİRKET KODU”

KNB4     MÜŞTERİYE İLİŞKİN ÖDEME TARİHÇESİ

KNB5     MÜŞTERİ ANA VERİLERİ “İHTAR VERİLERİ”

KNBK    MÜŞTERİ ANA VERİLERİ “BANKA AYRINTILARI”

KNC1     MÜŞTERİ ANA VERİLERİ “İŞLEM RAKAMLARI”

KNC3     MÜŞTERİ ANA VERİLER”ÖZEL DK İŞLEMLERİ BORÇ/ALACAK”

KOMU  ANA HESAP SATIR KALEMLERİ İÇİN HESAP TAYİN ÖRNEKLERİ

LFA1      SATICI ANA VERİLERİ “GENEL BÖLÜM”

LFB1      SATICI ANA VERİLERİ “ŞİRKET KODU”

LFB5      SATICI ANA VERİLERİ “İHTAR VERİLERİ”

LFBK      SATICI ANA VERİLERİ “BANKA AYRINTILARI”

LFC1      SATICI ANA VERİLERİ: İŞLEM RAKAMLARI

LFC3      SATICI ANA VERİLERİ “ÖZEL DEFTERİ KEBİR İŞLEMLERİ-AYLIK B/A

MAHNS İHTAR SEÇİMİYLE BLOKE EDİLEN HESAPLAR

MHNK  İHTAR VERİLERİ “HESAP GİRİŞLERİ”

PAYR     ÖDEME DEĞİŞİM ORTAMI DOSYASI

PAYRQ  ÖDEME TALEPLERİ “PAYMENT REQUEST”

PCEC     ÖNCEDEN NUMARALANMIŞ ÇEKLER

RFRR     MUHASEBE VERİLERİ – MÜŞTERİ/SATICI BİLGİ SİSTEMİ

SKA1     ANA HESAP ANA VERİLERİ “HESAP PLANI”

SKAS     ANA HESAP ANA KAYDI “HESAP PLANI: ANAHTAR SÖZCÜK LİSTESİ”

SKAT     ANA HESAP ANA VERİLERİ “HESAP PLANI: TANIMI”

SKB1      ANA HESAP ANA VERİLERİ “ŞİRKET KODU”

TSAKR   REFERANSLI ANA HESABI YARAT

VBKPF  BELGE ÖN KAYDI İÇİN BELGE BAŞLIĞI

 

HR TABLOLAR

T001      ŞİRKET KODLARI

T001P    PERSONEL ALANI/ALT ALANI

T012      ANA BANKALAR

T012K    ANA BANKADAKİ HESAPLAR

T012T    ANA BANKA HESAPLARININ TANIMI

T500L    PERSONEL YÖNETİMİ ÜLKE GRUPLAMASI

T500P    PERSONEL ALANLARI

T500T    PERSONEL YÖNETİMİ İÇİN ÜLKE GRUPLAMALARI TANIMLARI

T501      ÇALIŞAN GRUBU

T501T    ÇALIŞAN GRUBU TANIMLARI

T502T    MEDENİ DURUM TANIMLARI

T503      ÇALIŞAN GRUBU/ALT GRUBU

T503K    ÇALIŞAN ALT GRUBU

T503T    ÇALIŞAN ALT GRUBU TANIMLARI

T508A   ÇALIŞMA PROGRAMI KURALI

T508T    ÇALIŞMA PROGRAMLARI İÇİN ÇALIŞAN ALT GR.GRUPLAMA METİNLERİ

T510      ÜCRET SKALASI GRUPLARI

T510A   ÜCRET SKALASI TÜRLERİ

T510F    TAYİN: ÜCRET SKALASI -> PB

T510G   ÜCRET SKALA ALANLARI

T510H   ZAMAN BİRİMİ TEMELİNDE BORDRO SABİTLERİ

T510I     STANDART ÇALIŞMA SAATLERİ

T510J     SABİT DEĞERLEMELER

T510L    DÜZEY TABLOSU

T510M  İŞE ALMA TARİHİNE GÖRE ÜCRET SKALASI GRUPLARI DEĞERLEMESİ

T510N   YILLIK MAAŞLAR İÇİN ÜCRET SKALASI “KA”

T510S    ZAMAN ÜCRET TÜRÜ SEÇİMİ

T510U   ÜCRET SKALASI GRUPLARI

T510Y    ÜCRET TÜRLERİ ÜRETİMİNE İLİŞKİN ÖZEL KURALLAR

T511      ÜCRET TÜRLERİ

T512R    FORMLARDA KÜMÜLE ÜCRET TÜRLERİ

T512S    FORMLARDA KÜMÜLE ÜCRET TÜRLERİ METİNLERİ

T512T    ÜCRET VE MAAŞ TÜRLERİ METNİ

T512W  ÜCRET TÜRÜ DEĞERLEMESİ

T512Z    BİLGİ TİPİ BAŞINA ÜCRET TÜRLERİNİN KABUL EDİLEBİLİRLİĞİ

T513      İŞLER

T514S    TABLO ADLARI İÇİN METİNLER

T514T    ALAN ADLARI İÇİN METİNLER

T51D2   ÜCRET TÜRÜ SINIFLARI

T51D3   KISALTMA KURALLARI

T51D4   LİMİTLER İÇİN KURALLAR

T527      ORGANİZASYON ANAHTARI: DENETİM

T528B    POZİSYONLAR

T528C    ÜCRET TÜRÜ KATALOĞU

T528T    POZİSYON METİNLERİ

T529A   PERSONEL İŞLEMLER DİZİSİ TÜRLERİ

T529F    İŞLEMLER DİZİSİSİ İÇİN HIZLI GİRİŞ

T529T    PERSONELE İLİŞKİN İŞLEMLER DİZİSİ METİNLERİ

T52BT    HR NESNELERİNE İLİŞKİN METİNLER

T52C0    BORDRO ŞEMALARI

T52C1    BORDRO ŞEMALARI

T52C2    BORDRO ŞEMALARINA İLİŞKİN METİNLER

T52C3    BORDRO ŞEMALARINA İLİŞKİN METİNLER

T52C5    BORDRO KURALLARI

T52CC   ŞEMA DİZİNİ

T52CD   ŞEMA DİZİNİ

T52CE    DEVRE DİZİNİ

T52CT    METİN ÖĞELERİ

T52CX   ÜRETİLEN ŞEMALAR ARACILIĞIYLA ÇAPRAZ REFERANS

T52D1   GEÇERLİ İŞLEME SINIFLARI

T52D2   İŞLEME SINIFLARI İÇİN GEÇERLİ DEĞERLER

T52D3   GEÇERLİ DEĞERLENDİRME SINIFLARI

T52D4   DEĞERLENDİRME SINIFLARI İÇİN GEÇERLİ DEĞERLER

T52D5   ÜCRET TÜRLERİ GRUPLARI

T52D6   ÜCRET TÜRLERİ GRUPLARI İÇİN METİNLER

T52D7   ÜCRET TÜRÜ GRUPLARINA ÜCRET TÜRLERİ TAYİNİ

T52D8   GEÇERLİ İŞLEME SINIFLARI – METİNLER

T52D9   İŞLEME SINIFLARI İÇİN GEÇERLİ DEĞERLER – METİNLER

T530      İŞLEMLER DİZİSİNE İLİŞKİN NEDENLER

T530E    DEĞİŞİKLİK NEDENLERİ

T530F    DEĞİŞİKLİK NEDENLERİ

T530L    ÖZEL ÖDEMELER İÇİN ÜCRET TÜRLERİ

T530T    İŞLEMLER DİZİSİNE İLİŞKİN NEDENLER İÇİN METİNLER

T531      TARİH TÜRLERİ

T531S    SON TARİH TÜRLERİNE İLİŞKİN METİNLER

T533      İZİN TÜRLERİ

T533T    İZİN TÜRÜ METİNLERİ

T539A   PLANLANAN ÖDEME BELİRTİMİ

T539J     TEMEL ÜCRET TÜRLERİ DEĞERLEMESİ

T539R    SABİT ÜCRET İŞLEMLERİ DİZİSİ

T539S    SABİT ÜCRETE İLİŞKİN ÜCRET/MAAŞ TÜRLERİ

T548S    TARİH DÖNÜŞTÜRMESİ

T548T    TARİH TÜRLERİ

T548Y    TARİH TÜRLERİ

T549A   BORDRO ALT BİRİMLERİ

T549B    İŞLETMEYE İLİŞKİN KARAKTERİSTİKLER

T549C    KARAKTERİSTİKLER İÇİN KARAR AĞAÇLARI “MÜŞTERİ”

T549D   KARAKTERİSTİK LİSTESİ

T549L    TARİH DEĞİŞTİRİCİLER

T549M  AYLIK TAYİN: BORDRO DÖNEMİ “ARTIK KULLANILMIYOR”

T549N   DÖNEM DEĞİŞTİRİCİLERİNİN TANIMLARI

T549O   TARİH DEĞİŞTİRİCİLERE İLİŞKİN TANIM

T549P    BORDRO İÇİN GEÇERLİ ZAMAN BİRİMLERİ

T549Q   BORDRO DÖNEMLERİ

T549R    DÖNEM PARAMETRESİ

T549S    HER BORDRO DÖNEMİ İÇİN PERSONELE İLİŞKİN TARİH BELİRTİMLERİ

T549T    BORDRO ALT BİRİMLERİ

T554S    DEVAM VE DEVAMSIZLIK TÜRLERİ

T554T    DEVAMSIZLIK VE DEVAM METİNLERİ

T554V   VARSAYILAN DEVAMSIZLIK TÜRLERİ

T554Y    HR ZAMAN YÖNETİMİ ZAMAN SINIRLAMA TABLOSU

T555A   ZAMAN TÜRLERİ

T555B    ZAMAN TÜRÜ TANIMLARI

T559A   İŞ HAFTALARI

T559B    İŞ HAFTASI TANIMI

T572F    OLAYLARA İLİŞKİN METİNLER

T572G   KULLANILABİLİR OLAY DEĞERLERİ

T572H   OLAY DEĞERLERİNE İLİŞKİN METİNLER

T582A   BİLGİ TİPLERİ – MÜŞTERİYE ÖZGÜ AYARLAR

T582B    OTOMATİK OLARAK YARATILACAK BİLGİ TİPLERİ

T582S    BİLGİ TİPİ METİNLERİ

T582V   BİLGİ TİPLERİNİN GÖRÜNÜMLERE TAYİNİ

T582W  BİLGİ TİPİ GÖRÜNÜMÜNÜN BİRİNCİL BİLGİ TİPİNE TAYİNİ

T582Z    PA ZAMAN – DENETİM TABLOSU

T584A   KONTROL YÖNTEMİ – BİLGİ TİPİ TAYİNİ

T588A   İŞLEM ÖZELLİKLERİ

T588B    BİLGİ TİPİ MENÜLERİ

T588C    BİLGİ TİPİ MENÜLERİ/BİLGİ GRUPLARI

T588D   İŞLEMLER DİZİSİNE İLİŞKİN BİLGİ GRUPLARI

T588J     BİLGİ TİPİ BAŞLIĞI TANIMI

T588M  BİLGİ TİPİ EKRAN DENETİMİ

T588N   HESAP TAYİN BLOKU İÇİN EKRAN DEĞİŞİKLİĞİ

T588O   TAYİN VERİLERİ İÇİN EKRAN DEĞİŞİKLİĞİ

T588Q   HIZLI GİRİŞ İÇİN EKRAN TİPLERİ

T588R    HIZLI GİRİŞ İÇİN SEÇİM RAPORLARI

T588S    HIZLI GİRİŞ İÇİN EKRAN TİPLERİ

T588T    MENÜ VE BİLGİ GRUPLARINA İLİŞKİN TANIMLAR

T588V   İŞ NESNESİ TİPİ BELİRLEME

T588W  BİLGİ TİPİ İŞLEMLERİ İÇİN  OLAY TİPLERİ

T588X    BİLGİ TİPİ İŞL.İÇİN OLAY TİPLERİNİN ÇEŞİTLİ MŞTR.TANIMLARI

T588Z    DİNAMİK İŞLEMLER DİZİSİ

T591A   BİLGİ ALT TİPİ ÖZELLİKLERİ

T591B    ÜCREWT TÜRLERİ ZAMAN SINIRLAMASI

T591S    BİLGİ ALT TİPLERİNE İLİŞKİN METİNLER

T596F    HR ALT PROGRAMLARI

T596G   KÜMÜLE ÜCRET TÜRLERİ

T596H   KÜMÜLE ÜCRET TÜRLERİ METİNLERİ

T596I     KÜMÜLE ÜCRET TÜRLERİ İÇİN HESAPLAMA KURALI

T596U   DÖNÜŞTÜRME TABLOSU

T599B    RAPOR SINIFLARI

T599C    RAPOR SINIFLARI

T599D   RAPOR SINIFLARI TANIMI

T599F    RAPOR SINIFLARI – SEÇİM OPSİYONLARI

T777A   BİNA ADRESLERİ

T777T    BİLGİ TİPİ METİNLERİ

T777Z    BİLGİ TİPLERİ ZAMAN SINIRLAMASI

T778T    BİLGİ TİPLERİ

T778U   ALT TİPLER

 

MM TABLOLAR

A501      FİYATLANDIRMA A501 İÇİN KOŞUL TABLOSU

EBAN    SATINALMA TALEBİ

EBKN     SATINALMA TALEBİ HESAP TAYİNİ

EINA      SATINALMA BİLGİ KAYDI-GENEL VERİLER

EINE      SATINALMA BİLGİ KAYDI-SATINALMA ORGANİZASYONU VERİLERİ

EKAB     ÇAĞRILI SİPARİŞ DOKÜMANTASYONU

EKBE      SATINALMA BELGESİ TARİHÇESİ

EKET      TESLİMAT PLANI TERMİN SATIRLARI

EKKN     SATINALMA BELGESİNDE HESAP TAYİNİ

EKKO     SATINALMA BELGE BAŞLIĞI

EKPO     SATINALMA BELGE KALEMİ

IKPF       FİZİKSEL ENVANTER BELGESİ BELGE BAŞLIĞI

ISEG      FİZİKSEL ENVANTER BELGESİ KALEMLERİ

LFA1      SATICI ANA VERİLERİ “GENEL BÖLÜM”

LFB1      SATICI ANA VERİLERİ “ŞİRKET KODU”

MAKT   MALZEME KISA METİNLERİ

MARA   GENEL MALZEME VERİLERİ

MARC   MALZEME İÇİN ÜRETİM YERİ VERİLERİ

MARD   MALZEME DEPO YERİ VERİLERİ

MAST    MALZEME – ÜRÜN AĞACI BAĞLANTISI

MBEW  MALZEME DEĞERLEMESİ

MKPF    MALZEME BELGESİ BELGE BAŞLIĞI

MOFF   HALEN AÇIK OLAN MALZEME KAYITLARI

MSEG   MALZEME BELGE BÖLÜMÜ

MVER   MALZEME TÜKETİMLERİ

MVKE   MALZEME İÇİN SATIŞ VERİLERİ

NRIV     NUMARA ALANLARI ARALIĞI

RESB      REZERVASYON/İKİNCİL İHTİYAÇ

RKPF     REZERVASYON BELGE BAŞLIĞI

T023      MAL GRUPLARI

T024      SATINALMA GRUPLARI

T156      HAREKET TÜRÜ

T157H   HAREKET TÜRÜ İÇİN YARDIM METİNLERİ

T161T    SATINALMA BELGE TÜRLERİ İÇİN METİNLER

 

SD TABLOLAR

KLPA     MÜŞTERİ/SATICI BAĞLANTISI

KNA1    MÜŞTERİ ANA VERİLERİ “GENEL VERİLER”

KNB1     MÜŞTERİ ANA VERİLERİ “ŞİRKET KODU”

KNB4     MÜŞTERİYE İLİŞKİN ÖDEME TARİHÇESİ

KNB5     MÜŞTERİ ANA VERİLERİ “İHTAR VERİLERİ”

KNBK    MÜŞTERİ ANA VERİLERİ “BANKA AYRINTILARI”

KNKA    KREDİ YÖNETİMİ MÜŞTERİ ANA VR.: GENEL MKZ.VERİLERİ

KNKK    MÜŞTERİ ANA VERİLERİ KREDİ YÖNETİMİ: KONTROL ALANI VERİLERİ

KNVD    MÜŞTERİ ANA VERİLERİ SATIŞ TALEP BELGESİ

KNVI     MÜŞTERİ ANA VERİLERİ – VERGİ GÖSTERGELERİ

KNVP    MÜŞTERİ ANA VERİLERİ MUHATAP ROLLERİ

KNVS    MÜŞTERİ ANA VERİLERİ – SEVKİYAT VERİLERİ

KNVV    MÜŞTERİ ANA VERİLERİ SATIŞ VERİLERİ

KONV   KOŞULLAR “İŞLEM VERİLERİ”

LIKP       SD BELGESİ: TESLİMAT: BAŞLIK VERİLERİ

LIPS       SD BELGESİ: TESLİMAT: KALEM VERİLERİ

VBAK    SATIŞ BELGESİ: BAŞLIK VERİLERİ

VBAP    SATIŞ BELGESİ: KALEM VERİLERİ

VBBE     SD İHTİYAÇLARI: MÜNFERİT KAYITLAR

VBEH     TESLİMAT TERMİNLERİNİN TARİHÇESİ

VBEP     SATIŞ BELGESİ: TERMİN VERİLERİ

VBFA     SD BELGE AKIŞI

VBKD    SATIŞ BELGESİ: TİCARİ VERİLER

VBLB     SATIŞ BELGESİ: ÇAĞRILI SİPARİŞ TESLİMAT PLANI VERİLERİ

VBLK     SD BELGESİ: İRSALİYE BAŞLIĞI

VBPA    SD BELGESİ: MUHATAP

VBRK     FATURALAMA: BAŞLIK VERİLERİ

VBRP     FATURALAMA: KALEM VERİLERİ

VBUK    SD BELGESİ: BAŞLIK DURUMU VE YÖNETİM VERİLERİ

VBUP    SD BELGESİ: KALEM DURUMU

VEKP     TB BAŞLIK TABLOSU

VEPO    AMBALAJLAMA: TAŞIMA BİRİMİ KALEMİ “İÇERİK”

VEPVG SEVKİYAT TARİHİ GELENLER ENDEKSİ

 

 

PP TABLOLAR

AFFH     ÜYA TAYİNİ “ÜY SİPARİŞİ”

AFFL      ÜRETİM YERİ SİPARİŞ SIRASI

AFIH      BO SİPARİŞ BAŞLIĞI

AFKO    PP SİPARİŞLERİNE İLİŞKİN SİPARİŞ BAŞLIĞI VERİLERİ

AFPO    SİPARİŞ KALEMİ

AFRU    SİPARİŞ TEYİTLERİ

AFVC     SİPARİŞ İŞLEMİ

AFVU    İŞLEMİN KULLANICI ALANLARININ VERİTABANI YAPISI

AFVV    İŞLEMDEKİ MİKTAR/TARİH/DEĞERLER İLE İLGİLİ VERİTABANI YAPISI

AUFK    SİPARİŞ ANA VERİLERİ

AUFM   SİPARİŞE İLİŞKİN MALZEME HAREKETLERİ

CRCA     İŞ YERİ KAPASİTE TAHSİSİ

CRCO    İŞ YERİNİN MASRAF YERİNE TAHSİSİ

CRHD    İŞ YERİ BAŞLIĞI

CRHH    HİYERARŞİ BAŞLIK VERİLERİ

CRHS     HİYERARŞİ YAPISI

CRTX     İŞ YERİ / ÜRETİM YARDIMCI ARAÇLARI KISA TANIMI

CRVD_A              BAĞLANTI ÜYA – DOKÜMAN

DRAW   DOKÜMAN BİLGİ KAYDI

JEST       NESNE BAŞINA MÜNFERİT DURUM

JSTO      DURUM NESNESİNE İLİŞKİN BİLGİLER

KAKO    KAPASİTE BAŞLIK PARÇASI

KBED     KAPASİTE İHTİYAÇ KAYITLARI

KBEZ      KBED TABLOSU İÇİN EK VERİLER “MNF.KAPASİTELER/AYRŞT.İÇİN”

KBKO    KAPASİTE İHTİYAÇLARI İÇİN BAŞLIK KAYDI

KDST     MÜŞTERİ SİPARİŞİ VE ÜRÜN AĞACI BAĞLANTISI

MAPL    PLANLARIN MALZEMELERE TAHSİSİ

MAST    MALZEME – ÜRÜN AĞACI BAĞLANTISI

PBED     ÖNCELİKLİ İHTİYAÇ VERİLERİ

PBHI      BİRİNCİL İHTİYAÇLARA İLİŞKİN TARİHÇE

PBIC      MÜŞTERİ İHTİYACINA İLİŞKİN ÖNCELİKLİ İHTİYAÇ ENDEKSİ “RVSİZ”

PBIM     MALZEMEYE İLİŞKİN ÖNCELİKLİ İHTİYAÇ ENDEKSİ

PBIV      MAHSUP YABANCI DEĞİŞMEZ PARÇALARA İLİŞKİN ÖNCL.İHTYÇ ENDEKSİ

PKER     KANBAN KONTEYNERLERİ İÇİN HATA GÜNLÜĞÜ

PKHD    KONTROL DEVRESİ

PKPS     KONTROL DEVRESİ KALEMİ/KANBAN

PLAF      PLANLI SİPARİŞ

PLAS      KALEMLERİN PLAN SEÇİMİ

PLFH      PLAN – ÜRETİM YARDIMCI ARAÇLARI

PLFL       PLAN: SIRALAR

PLKO     PLAN: BAŞLIK

PLKZ      PLAN: MERKEZİ BAŞLIK

PLMZ    ÜA KALEMLERİNİN İŞ PLANLARINA TAYİNİ

PLPH     CAPP: ALT İŞLEMLER

PLPO     PLAN: İŞLEM

PLPR      PLANLAR İÇİN GÜNLÜK ALICISI

RESB      REZERVASYON/İKİNCİL İHTİYAÇ

RKPF     REZERVASYON BELGE BAŞLIĞI

STAS      ÜRÜN AĞAÇLARI KALEM SEÇİMİ

STKO     ÜRÜN AĞACI BAŞLIĞI

STPN     ÜRÜN AĞACI SONRAKİ DENETİMİ

STPO     ÜA KALEMİ

STPU     ÜA ALT KALEMİ

STZU     ZAMANDAN BAĞIMSIZ ÜA VERİLERİ

TC24      İŞ YERİ SORUMLUSU

TDWA   DOKÜMAN TÜRLERİ

TDWD   VERİ TAŞIYICI / AĞ BAĞLANTI NOKTALARI

TDWE    VERİ DEĞİŞİM ORTAMI TİPİ

 

 

admin tarafından

Class kullanımı ile mail gönderme

Mayıs 22, 2013 de Genel admin tarafından

REPORT ZBC_CL_EMAIL.


DATA:
lv_message TYPE bcsy_text,
lv_send_result TYPE c,

lo_receiver TYPE REF TO if_recipient_bcs,

lo_email TYPE REF TO cl_bcs,
lo_email_body TYPE REF TO cl_document_bcs,

lx_exception TYPE REF TO cx_bcs.

APPEND ‘Mailinizin içeriği’  TO lv_message.

TRY.
lo_email = cl_bcs=>create_persistent( ).

lo_email_body = cl_document_bcs=>create_document(
i_type = ‘HTM’
i_text = lv_message
i_subject = ‘BCS ile mail gönderimi’ ).

PERFORM add_attachment USING lo_email_body.

lo_email->set_document( lo_email_body ).

lo_receiver = cl_cam_address_bcs=>create_internet_address( ‘mail@adresi.com’ ).
lo_email->add_recipient( i_recipient = lo_receiver
i_express = ‘X’ ).

lo_email->set_send_immediately( ‘X’ ).

lo_email->send( EXPORTING
i_with_error_screen = ‘X’
RECEIVING
result = lv_send_result ).

WRITE: / ‘Success flag:’, lv_send_result.

COMMIT WORK.

CATCH cx_bcs INTO lx_exception.

WRITE:/ ‘Message sending failed:’, lx_exception->error_type.

ENDTRY.

admin tarafından

PDF yap ve maille

Mayıs 21, 2013 de Genel admin tarafından

&———————————————————————
*& Report ZTEST_PDF
*&
&———————————————————————
*&
*&
&———————————————————————
REPORT ZTEST_PDF.
DATA: it_otf TYPE STANDARD TABLE OF itcoo,
it_docs TYPE STANDARD TABLE OF docs,
it_lines TYPE STANDARD TABLE OF tline,
st_job_output_info TYPE ssfcrescl,
st_document_output_info TYPE ssfcrespd,
st_job_output_options TYPE ssfcresop,
st_output_options TYPE ssfcompop,
st_control_parameters TYPE ssfctrlop,
v_len_in TYPE so_obj_len,
v_language TYPE sflangu VALUE ‘E’,
v_e_devtype TYPE rspoptype,
v_bin_filesize TYPE i,
v_name TYPE string,
v_path TYPE string,
v_fullpath TYPE string,
v_filter TYPE string,
v_uact TYPE i,
v_guiobj TYPE REF TO cl_gui_frontend_services,
v_filename TYPE string,
v_fm_name TYPE rs38l_fnam.
CONSTANTS c_formname TYPE tdsfname VALUE ‘ZTEST’.
CALL FUNCTION ‘SSF_GET_DEVICE_TYPE’
EXPORTING
i_language = v_language
i_application = ‘SAPDEFAULT’
IMPORTING
e_devtype = v_e_devtype.
st_output_options-tdprinter = v_e_devtype.
*st_output_options-tdprinter = ‘locl’.
st_control_parameters-no_dialog = ‘X’.
st_control_parameters-getotf = ‘X’.
……………..GET SMARTFORM FUNCTION MODULE NAME……………..
CALL FUNCTION ‘SSF_FUNCTION_MODULE_NAME’
EXPORTING
formname = c_formname
IMPORTING
fm_name = v_fm_name
EXCEPTIONS
no_form = 1
no_function_module = 2
OTHERS = 3.
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 SMARTFORM……………………….
CALL FUNCTION v_fm_name
EXPORTING
control_parameters = st_control_parameters
output_options = st_output_options
IMPORTING
document_output_info = st_document_output_info
job_output_info = st_job_output_info
job_output_options = st_job_output_options
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.
…………………….CONVERT TO OTF TO PDF…………………..
CALL FUNCTION ‘CONVERT_OTF_2_PDF’
IMPORTING
bin_filesize = v_bin_filesize
TABLES
otf = st_job_output_info-otfdata
doctab_archive = it_docs
lines = it_lines
EXCEPTIONS
err_conv_not_possible = 1
err_otf_mc_noendmarker = 2
OTHERS = 3.
IF sy-subrc 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
……………………GET THE FILE NAME TO STORE………………..
CONCATENATE ‘smrt’ ‘.pdf’ INTO v_name.
CREATE OBJECT v_guiobj.
CALL METHOD v_guiobj->file_save_dialog
EXPORTING
default_extension = ‘pdf’
default_file_name = v_name
file_filter = v_filter
CHANGING
filename = v_name
path = v_path
fullpath = v_fullpath
user_action = v_uact.
IF v_uact = v_guiobj->action_cancel.
EXIT.
ENDIF.
…………………………….DOWNLOAD AS FILE………………..
MOVE v_fullpath TO v_filename.
CALL FUNCTION ‘GUI_DOWNLOAD’
EXPORTING
bin_filesize = v_bin_filesize
filename = v_filename
filetype = ‘BIN’
TABLES
data_tab = it_lines
EXCEPTIONS
file_write_error = 1
no_batch = 2
gui_refuse_filetransfer = 3
invalid_type = 4
no_authority = 5
unknown_error = 6
header_not_allowed = 7
separator_not_allowed = 8
filesize_not_allowed = 9
header_too_long = 10
dp_error_create = 11
dp_error_send = 12
dp_error_write = 13
unknown_dp_error = 14
access_denied = 15
dp_out_of_memory = 16
disk_full = 17
dp_timeout = 18
file_not_found = 19
dataprovider_exception = 20
control_flush_error = 21
OTHERS = 22.
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.

2. Sending PDF as mail.

CLEAR t_receivers.

REFRESH t_receivers.
t_receivers-receiver = sy-uname.
t_receivers-rec_type = ‘B’.

t_receivers-com_type = ‘INT’.
t_receivers-notif_del = ‘X’.
t_receivers-notif_ndel = ‘X’.
APPEND t_receivers.

CALL FUNCTION ‘SO_DOCUMENT_SEND_API1′
EXPORTING
document_data = w_doc_data
put_in_outbox = ‘X’
sender_address = ld_sender_address
sender_address_type = ld_sender_address_type
commit_work = ‘X’
IMPORTING
sent_to_all = w_sent_all
TABLES
packing_list = t_packing_list
contents_bin = t_attachment
contents_txt = it_message
receivers = t_receivers
EXCEPTIONS
too_many_receivers = 1
document_not_sent = 2
document_type_not_exist = 3
operation_no_authorization = 4
parameter_error = 5
x_error = 6
enqueue_error = 7
OTHERS = 8.

turgut tarafından

İstenilen tarih ve saatte, ekli dosya içeren e-mail gönderimi

Aralık 18, 2012 de Genel turgut tarafından

SAP sistemi üzerinde HTM e-mail içeriğine ilave olarak dosya eklenmesini ve e-mail’in talep edilen saatte gönderilmesini sağlayan program için aşağıdaki örneği kullanabilirsiniz.

 

report sy-repid.
************************************************************************
* Data Types
************************************************************************
DATA : DOSYA_EK.
DATA : lt_filetable TYPE filetable,
lf_rc        TYPE i,
mbaslik(50).

* Access selected file
DATA : ls_file TYPE file_table.
data : filename type string.
data : filelength type i .
data : binary_content     type solix_tab.
DATA : adresler LIKE zbcs_mail OCCURS 0 WITH HEADER LINE,
icerik LIKE  zbcs_mail  OCCURS 0 WITH HEADER LINE.

DATA: send_request       TYPE REF TO cl_bcs.
DATA: document           TYPE REF TO cl_document_bcs.
DATA: text               TYPE bcsy_text.
DATA: sender             TYPE REF TO cl_sapuser_bcs.
DATA: recipient          TYPE REF TO if_recipient_bcs.
data: sent_to_all        type os_boolean.
DATA: bcs_exception      type ref to cx_bcs.
data: ad type SO_OBJ_DES.
data: uzanti type SO_OBJ_TP.
data: mail_adres like ADR6-SMTP_ADDR.
data: txtgtime2 type uzeit,
txtgdate2 type datum.

data : begin of dosya_adi OCCURS 0,
ad(100),
end of dosya_adi.
data : dosya_lines like sy-index.

************************************************************************
* Selection screen
************************************************************************
PARAMETERS:
file      TYPE localfile,
mail      like adresler-line,
txtgdate  type datum,
txtgtime  TYPE btcsdltime.
************************************************************************
* Events
************************************************************************
AT SELECTION-SCREEN ON VALUE-REQUEST FOR file.
PERFORM file_f4.

START-OF-SELECTION.
PERFORM main.

************************************************************************
* Main program
************************************************************************
FORM main.

DATA : i TYPE i.

CLEAR: adresler[] , icerik[].
adresler-line = mail.
APPEND adresler.

DATA: l_address LIKE bapiaddr3.

CALL FUNCTION ’S_WAP_USER_READ_DATA’
EXPORTING
username  = sy-uname
IMPORTING
e_address = l_address.

icerik = ’<!DOCTYPE html PUBLIC ”-//W3C//DTD XHTML 1.0 Transitional//EN” ”http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd”> ’. APPEND icerik.
icerik = ’<html xmlns=”http://www.w3.org/1999/xhtml”> ’. APPEND icerik.
icerik = ’<head> ’. APPEND icerik.
icerik = ’<meta http-equiv=”Content-Type” content=”text/html; charset=iso-8859-9″ /> ’. APPEND icerik.
icerik = ’<title>Untitled Document</title> ’. APPEND icerik.
icerik = ’<style type=”text/css”> ’. APPEND icerik.
icerik = ’<!– ’. APPEND icerik.
icerik = ’.style1 { ’. APPEND icerik.
icerik = ’font-family: Verdana, Arial, Helvetica, sans-serif; ’. APPEND icerik.
icerik = ’font-size: 16px; ’. APPEND icerik.
icerik = ’font-weight: bold; ’. APPEND icerik.
icerik = ’border:bottom solid 1px; ’. APPEND icerik.
icerik = ’} ’. APPEND icerik.
icerik = ’.style2 { ’. APPEND icerik.
icerik = ’font-family: Verdana, Arial, Helvetica, sans-serif; ’. APPEND icerik.
icerik = ’font-size: 11px; ’. APPEND icerik.
icerik = ’text-align: left; ’. APPEND icerik.
icerik = ’vertical-align: top;’. APPEND icerik.
icerik = ’} ’. APPEND icerik.
icerik = ’.style3 { ’. APPEND icerik.
icerik = ’font-family: Verdana, Arial, Helvetica, sans-serif; ’. APPEND icerik.
icerik = ’font-size: 11px; ’. APPEND icerik.
icerik = ’text-align: left; ’. APPEND icerik.
icerik = ’font-weight: bold; ’. APPEND icerik.
icerik = ’vertical-align: top;’. APPEND icerik.
icerik = ’} ’. APPEND icerik.
icerik = ’–> ’. APPEND icerik.
icerik = ’</style> ’. APPEND icerik.
icerik = ’</head> ’. APPEND icerik.

icerik = ’<body> ’. APPEND icerik.
icerik = ’<table width=”600″  border=”0″ cellpadding=”1″ cellspacing=”0″ > ’. APPEND icerik.
icerik = ’<tr> ’. APPEND icerik.
icerik = ’<td colspan=”2″>&nbsp;</td> ’. APPEND icerik.
icerik = ’</tr> ’. APPEND icerik.

icerik = ’<tr> ’. APPEND icerik.
CONCATENATE  ’ <td class=”style2″><strong> ’ ’Test’ ’ </strong> </td> ’ INTO icerik. APPEND icerik.
icerik = ’</tr> ’. APPEND icerik.
icerik = ’<tr> ’. APPEND icerik.
icerik = ’<td colspan=”2″>&nbsp;</td> ’. APPEND icerik.
icerik = ’</tr> ’. APPEND icerik.
icerik = ’<tr> ’. APPEND icerik.
icerik = ’<td colspan=”2″>&nbsp;</td> ’. APPEND icerik.
icerik = ’</tr> ’. APPEND icerik.

icerik = ’<table width=”600″  border=”0″ cellpadding=”1″ cellspacing=”0″ > ’. APPEND icerik.

icerik = ’  </tr> ’. APPEND icerik.

IF txtgtime is initial AND txtgdate is initial.
txtgtime2 = sy-uzeit. txtgdate2 = sy-datum.
ENDIF.

CONCATENATE ’Test Email’ txtgtime2 txtgdate2 INTO mbaslik SEPARATED BY space.

refresh : text.
clear : text.

text[] = icerik[].

try.
*     ——– create persistent send request ————————
send_request = cl_bcs=>create_persistent( ).

*     ——– create and set document with attachment —————
*     create document from internal table with text
document = cl_document_bcs=>create_document(
i_type    = ’HTM’
i_text    = text
*                      i_length  = ’12′
i_subject = mbaslik ).

*     add attachment to document
*     BCS expects document content here e.g. from document upload
SPLIT filename at ’\' into table dosya_adi.

DESCRIBE TABLE dosya_adi lines dosya_lines.

READ TABLE dosya_adi index dosya_lines.

split dosya_adi-ad at ’.' into ad uzanti.

*     binary_content = …
CALL METHOD document->add_attachment
EXPORTING  i_attachment_type = uzanti
i_attachment_subject = ad
i_att_content_hex    = binary_content.

*     add document to send request
CALL METHOD send_request->set_document( document ).

*     ——— set sender ——————————————-
*     note: this is necessary only if you want to set the sender
*           different from actual user (SY-UNAME). Otherwise sender is
*           set automatically with actual user.

sender = cl_sapuser_bcs=>create( sy-uname ).
CALL METHOD send_request->set_sender
EXPORTING i_sender = sender.

*     ——— add recipient (e-mail address) ———————–
*     create recipient - please replace e-mail address !!!

loop at adresler.
mail_adres = adresler-line.

recipient = cl_cam_address_bcs=>create_internet_address(
mail_adres ).

endloop.
*     add recipient with its respective attributes to send request
CALL METHOD send_request->add_recipient
EXPORTING
i_recipient  = recipient
i_express    = ’X’.

*——————————————————————–*
data: lv_timestamp type timestamp,
SEND_AT TYPE TIMESTAMP.

GET TIME STAMP FIELD lv_timestamp.

data : I_DATLO type datum.
data : I_TIMLO type uzeit.

IF txtgtime is not initial AND txtgdate is not initial.

CALL FUNCTION ’ISU_DATE_TIME_CONVERT_UTC’
EXPORTING
X_DATE              = txtgdate
X_TIME              = txtgtime
X_TIMEZONE          = SY-ZONLO
IMPORTING
Y_DATE_UTC          = I_DATLO
Y_TIME_UTC          = I_TIMLO
EXCEPTIONS
GENERAL_FAULT       = 1
.

CALL FUNCTION ’G_BIW_CONVERT_INTO_TIMESTAMP’
EXPORTING
I_DATLO                = I_DATLO
I_TIMLO                = I_TIMLO
I_TZONE                = SY-ZONLO
IMPORTING
E_TIMESTAMP            = lv_timestamp
EXCEPTIONS
INVALID_DATETIME       = 1
.

SEND_REQUEST->SEND_REQUEST->set_send_at( lv_timestamp ).
else.

CALL METHOD send_request->set_send_immediately( ’X' ).

endif.
*     ———- send document —————————————
CALL METHOD send_request->send(
exporting
i_with_error_screen = ’X’
receiving
result              = sent_to_all ).
if SY-SUBRC EQ 0.
IF txtgtime is not initial AND txtgdate is not initial.
MESSAGE ’Mail Belirtilen tarihte ve Zamanda Gönderilecektir’ TYPE ’I' RAISING exc1.
ELSE.
MESSAGE ’Mail Gönderilmiştir’ TYPE ’I' RAISING exc1.
ENDIF.
endif.

COMMIT WORK.
* ———————————————————–
* *                     exception handling
* ———————————————————–
* * replace this very rudimentary exception handling
* * with your own one !!!
* ———————————————————–
catch cx_bcs into bcs_exception.
write: ’Mail Gönderiminde Hata’(001).
write: ’Mail Gönderiminde Hata’(002), bcs_exception->error_type.
exit.

endtry.

CLEAR: mbaslik,txtgtime,txtgdate.

ENDFORM.

************************************************************************
* F4-help for filename
************************************************************************
FORM file_f4.

CLEAR : DOSYA_EK.

CALL METHOD cl_gui_frontend_services=>file_open_dialog
EXPORTING
multiselection          = abap_false
CHANGING
file_table              = lt_filetable
rc                      = lf_rc
EXCEPTIONS
file_open_dialog_failed = 1
cntl_error              = 2
error_no_gui            = 3
not_supported_by_gui    = 4
OTHERS                  = 5.

IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE ’S' NUMBER sy-msgno
DISPLAY LIKE ’E’
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
EXIT.
ENDIF.

* Number of selected filed must be equal to one.
CHECK lf_rc = 1.

READ TABLE lt_filetable INTO ls_file INDEX 1.
CHECK sy-subrc = 0.

file = ls_file-filename.
filename = file.

*– dosyayı yükle
CALL FUNCTION ’GUI_UPLOAD’
EXPORTING
filename                     = filename
FILETYPE                      = ’BIN’
IMPORTING
FILELENGTH                    = FILELENGTH
TABLES
data_tab                     = binary_content
.
IF sy-subrc <> 0.
MESSAGE ’Dosya Eklenemiyor!’ TYPE ’I’.
clear : dosya_ek.
else.
dosya_ek = ’X’.
ENDIF.

ENDFORM.

admin tarafından

Bir web sayfasının kaynağını okuma

Ekim 18, 2012 de Genel admin tarafından

REPORT  ztest LINE-SIZE 500.

DATA: response(500) OCCURS 0 WITH HEADER LINE,
response_headers type table of text with header line .

CALL FUNCTION ’HTTP_GET’
EXPORTING
absolute_uri         = ’http://www.tcmb.gov.tr/kurlar/today.html’
rfc_destination      = ’SAPHTTP’
blankstocrlf         = ’Y’
TABLES
response_entity_body = response
response_headers            = response_headers.

LOOP AT response.
WRITE:/ response.

ENDLOOP.

turgut tarafından

İbraname ve Feragatname Hazırlayan Program

Ekim 8, 2012 de İnsan Kaynakları - HR turgut tarafından

İşten çıkarılmalar can sıkıcı hadiselerdir. Fakat bir abapçı iseniz sizden işten çıkışlarda personele imzalatılan bu can sıkıcı evrağın sistem tarafından otomatik olarak hazırlanması istenebilir. O zaman ne yapıyoruz, yazıyoruz :) Fakat firma sektörüne göre değişiklik gösterebilecek durumlar ortaya çıkabileceğinden mümkün mertebe son bordro üzerindeki personel borç ve alacaklarını tespit edip bunları tablo ile dökümleyip yazıyada dökmek gibi ayrıntılı bir form hazırlayan yapımız var bu kod içinde. Ayrıca personele ödemesi ilerleyen tarihlerde yapılacaksa ve geçici olarak maaş yada alacağının bir kısmı ödenmiş ise bu ödemenin girilebileceği bir ALV hücresi mevcut ve buraya giriş yapıldığında alacağı otomatik olarak ALV üzerinde güncellenmekte. Kolay gelsin.

Not : Ekte bir Smartform örneğide mevcuttur. Yeni bir smartforms açarak ekli dosyadaki .xml dosyasını direkt olarak sisteminize yükleyebilirsiniz. Gerekli düzenlemeleri yapabilirsiniz!

Smartforms : zhr_sf_ibraname_feragatname

Structure : zhrs_ibraname.txt

Ana Program.

 *&———————————————————————*
*& Report  ZHR_IBRANAME
*&
*&———————————————————————*
*&
*&
*&———————————————————————*

REPORT  ZHR_IBRANAME.
*——————————————————————–*
include zhr_ibraname_def.
*——————————————————————–*
INITIALIZATION.

START-OF-SELECTION.

  PERFORM init_fieldcat.

  PERFORM get_data.

  CALL SCREEN 0100.

END-OF-SELECTION.

 

INCLUDE içeriği ise şöyle…

 *&———————————————————————*
*&  Include           ZHR_IBRANAME_DEF
*&———————————————————————*

TABLES: pa0001,pa0000,pa0769,pa0770,pa0008.

TYPE-POOLS: slis.          ” ALV grid kullanım için genel tipler
*DATA : i_fieldcat          TYPE slis_t_fieldcat_alv WITH HEADER LINE,
*       l_layout            TYPE slis_layout_alv,     ”liste özellikleri
*       i_sort              TYPE slis_t_sortinfo_alv,   ” sıralama
*       i_events            TYPE slis_t_event,      ”listedeki events
*       i_list_top_of_page  TYPE slis_t_listheader,     ” Sayfa başlığı
*       l_variant           LIKE disvariant  .          ”user-variant

data : begin of it_pernr OCCURS 0,
        pernr like pa0000-pernr,
       end of it_pernr.

DATA: BEGIN OF it OCCURS 0.
        INCLUDE STRUCTURE ZHRS_IBRANAME.
data : END OF it.

DATA: ttab LIKE it OCCURS 0 WITH HEADER LINE.
DATA: ofpper TYPE paper.
RANGES: s_lgart FOR t512t-lgart.
DATA: itab LIKE zhrs_bver_uctip OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF rgdir OCCURS 100.
        INCLUDE STRUCTURE pc261.
DATA: END OF rgdir.

DATA: xpernr LIKE pernr-pernr,
      xseqnr LIKE pc261-seqnr.
DATA: py_result TYPE pay99_result.
DATA: xr LIKE LINE OF py_result-inter-rt.

DATA: wrepid LIKE sy-repid,ypernr TYPE pernr_d.
DATA: vsave TYPE c.

**   Local data
DATA:
le_row TYPE i,
le_value TYPE c,
le_col TYPE i,
les_row_id TYPE lvc_s_row,
les_col_id TYPE lvc_s_col,
les_row_no TYPE lvc_s_roid.

DATA : IT2 LIKE IT OCCURS 0 WITH HEADER LINE.
DATA : IT_ARTI LIKE ZHRS_IBRANAME_ARTI OCCURS 0 WITH HEADER LINE.
DATA : IT_EKSI LIKE ZHRS_IBRANAME_EKSI OCCURS 0 WITH HEADER LINE.
DATA : LTEXT TYPE STRING.
DATA : NETTOPLAM TYPE DEC_16_02_S.
DATA : ucret TYPE DEC_16_02_S.

DATA:
  rdock            TYPE REF TO cl_gui_custom_container,
  r_alv_grid       TYPE REF TO cl_gui_alv_grid,
  t_fieldcat       TYPE lvc_t_fcat ,
  wa_fieldcat      LIKE LINE OF t_fieldcat,
  wa_is_layout     TYPE lvc_s_layo,
  gt_rows          TYPE lvc_t_row,
  gt_row           TYPE lvc_s_row.

DATA: ls_good1 TYPE lvc_s_modi.

FIELD-SYMBOLS: <l_table> TYPE ANY TABLE,
                <l_ttemp> TYPE ANY TABLE,
                <l_lt> TYPE ANY TABLE,
                <l_ltl>  TYPE ANY,
                <l_ltf>  TYPE ANY,

               <l_line>  TYPE ANY,
               <l_line2>  TYPE ANY,
               <l_line3>  TYPE ANY,
               <l_ltemp>  TYPE ANY,
               <l_ltmp>  TYPE ANY,
               <l_field> TYPE ANY,
               <l_field2> TYPE ANY,
               <l_field3> TYPE ANY,
               <l_ftemp> TYPE ANY,
               <l_ftmp1> TYPE ANY,
               <l_ftmp2> TYPE ANY,
               <f1> TYPE ANY.
DATA: it_cellcolor TYPE lvc_t_scol,
      it_cellstyle TYPE lvc_t_styl,
      l_cellcolor LIKE LINE OF it_cellcolor.

DATA : ls_color TYPE lvc_s_scol .

DATA l_layout2      TYPE disvariant.
DATA pt_exclude    TYPE ui_functions.
DATA ls_cellstyle  TYPE lvc_s_styl .

*——————————————————————–*
*——————————————————————–*
*———————————————————————-*
*       CLASS lcl_event_receiver DEFINITION
*———————————————————————-*
*
*———————————————————————-*
CLASS lcl_event_receiver DEFINITION.
  PUBLIC SECTION.

    METHODS :
****Changed Item Handler
*handle_item_changed FOR EVENT data_changed_finished
*                    OF cl_gui_alv_grid
*                    IMPORTING e_modified et_good_cells,
*Changed Data Handler
handle_data_changed FOR EVENT data_changed
                    OF cl_gui_alv_grid
                    IMPORTING er_data_changed,
**Double Click Handler
handle_double_click for event double_click
                    of cl_gui_alv_grid
                    importing e_row e_column es_row_no,

handle_data_changed_finished        ” DATA_CHANGED_FINISHED
      FOR EVENT data_changed_finished OF cl_gui_alv_grid
        IMPORTING
          e_modified
          et_good_cells.

ENDCLASS.                    ”lcl_event_receiver DEFINITION
*——————————————————————–*
*———————————————————————-*
*       CLASS lcl_event_receiver IMPLEMENTATION
*———————————————————————-*
*
*———————————————————————-*
CLASS lcl_event_receiver IMPLEMENTATION.

*——————————————————————–*
*Handle Double Click
method handle_double_click.
  perform double_click using e_row e_column.

call method r_alv_grid->refresh_table_display.
  CALL METHOD r_alv_grid->set_current_cell_via_id
    EXPORTING
      is_row_id    = les_row_id
      is_column_id = les_col_id
      is_row_no    = les_row_no.

endmethod. ”handle_double_click
*——————————————————————–*

*  METHOD handle_item_changed.
***    ”"break turgut.
*    PERFORM modify_table USING e_modified
*                               et_good_cells.
*
*
***
*  ENDMETHOD.                    ”handle_item_changed
*——————————————————————–*

  METHOD  handle_data_changed.

perform handle_data_changed.

CALL METHOD r_alv_grid->refresh_table_display.
  CALL METHOD r_alv_grid->set_current_cell_via_id
    EXPORTING
      is_row_id    = les_row_id
      is_column_id = les_col_id
      is_row_no    = les_row_no.
  ENDMETHOD.                    ”handle_data_changed
  METHOD handle_data_changed_finished.
perform handle_data_changed_finished.

CALL METHOD r_alv_grid->refresh_table_display.
  CALL METHOD r_alv_grid->set_current_cell_via_id
    EXPORTING
      is_row_id    = les_row_id
      is_column_id = les_col_id
      is_row_no    = les_row_no.

  ENDMETHOD.                    ”handle_data_changed_finished

*——————————————————————–*
ENDCLASS.                    ”lcl_event_receiver IMPLEMENTATION
DATA:   event_receiver TYPE REF TO lcl_event_receiver.

*——————————————————————–*
SELECTION-SCREEN BEGIN OF BLOCK sec3  WITH FRAME TITLE text-001.

PARAMETERS: p_werks type werks MATCHCODE OBJECT HTNM_WERKS OBLIGATORY,
            p_tarih TYPE datum DEFAULT sy-datum,” OBLIGATORY,
            p_bodon(6) TYPE c OBLIGATORY.

SELECT-OPTIONS:  s_pernr FOR pa0000-pernr.

SELECTION-SCREEN END OF BLOCK sec3.
*——————————————————————–*
*&———————————————————————*
*&  Include           ZHR_IBRANAME_FORMS
*&———————————————————————*
*&———————————————————————*
*&      Form  GET_DATA
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM GET_DATA .

data : tarih1 type datum,
       tarih2 type datum,
       tarih(8) type c.

CONCATENATE p_bodon+0(6) ’01′ into tarih.
tarih1 = tarih.

CALL FUNCTION ’HR_BG_LAST_DAY_OF_MONTH’
  EXPORTING
    DAY_IN                  = tarih1
 IMPORTING
   LAST_DAY_OF_MONTH       = tarih2
* EXCEPTIONS
*   DAY_IN_NO_DATE          = 1
*   OTHERS                  = 2
.
  CLEAR: it,it[],ttab,ttab[].

  SELECT * INTO CORRESPONDING FIELDS OF TABLE it FROM pa0001
    INNER JOIN t880  on pa0001~werks eq t880~rcomp
      WHERE pa0001~WERKS EQ P_WERKS
        AND pa0001~endda <= tarih2
        AND pa0001~endda >= tarih1
        AND pa0001~PERNR IN S_PERNR.

    PERFORM bordro_verileri.

ENDFORM.                    ” GET_DATA
*&———————————————————————*
*&      Form  BORDRO_VERILERI
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM BORDRO_VERILERI .

ofpper = p_bodon.

  CLEAR: s_lgart,s_lgart[],itab,itab[].

  s_lgart-option = ’EQ’.
  s_lgart-sign = ’I’.
  s_lgart-low = ’/KTG’. APPEND s_lgart .
  s_lgart-low = ’1500′. APPEND s_lgart .
  s_lgart-low = ’/AGI’. APPEND s_lgart .
  s_lgart-low = ’2900′. APPEND s_lgart .
  s_lgart-low = ’2910′. APPEND s_lgart .
  s_lgart-low = ’2350′. APPEND s_lgart .
  s_lgart-low = ’1960′. APPEND s_lgart .
  s_lgart-low = ’1950′. APPEND s_lgart .
  s_lgart-low = ’2300′. APPEND s_lgart .
  s_lgart-low = ’7909′. APPEND s_lgart .
  s_lgart-low = ’3100′. APPEND s_lgart .
  s_lgart-low = ’3700′. APPEND s_lgart .
  s_lgart-low = ’3400′. APPEND s_lgart .
  s_lgart-low = ’3410′. APPEND s_lgart .
  s_lgart-low = ’3703′. APPEND s_lgart .
  s_lgart-low = ’3600′. APPEND s_lgart .
  s_lgart-low = ’3500′. APPEND s_lgart .
  s_lgart-low = ’3200′. APPEND s_lgart .
  s_lgart-low = ’3750′. APPEND s_lgart .
  s_lgart-low = ’/559′. APPEND s_lgart .

  LOOP AT it.

    CLEAR: rgdir[],rgdir.

    CALL FUNCTION ’CU_READ_RGDIR’
      EXPORTING
        persnr          = it-pernr
      TABLES
        in_rgdir        = rgdir
      EXCEPTIONS
        no_record_found = 1
        OTHERS          = 2.

    READ TABLE rgdir WITH KEY inper = ofpper.
    xseqnr = rgdir-seqnr.

    CLEAR: py_result.

    CALL FUNCTION ’PYXX_READ_PAYROLL_RESULT’
      EXPORTING
        employeenumber = it-pernr
        sequencenumber = xseqnr
      CHANGING
        payroll_result = py_result
  EXCEPTIONS
      illegal_isocode_or_clusterid
      error_generating_import
      import_mismatch_error
      subpool_dir_full
      no_read_authority
      no_record_found
      versions_do_not_match
      error_reading_archive
      error_reading_relid.

    LOOP AT py_result-inter-rt INTO xr.
      IF xr-lgart IN s_lgart.

        itab-lgart = xr-lgart.
        itab-betrg = xr-betrg.
        itab-pernr = it-pernr.

      perform isle.

  SELECT SINGLE LGTXT INTO itab-lgtxt from T512T
                                     where SPRSL = ’TR’
                                       and MOLGA = ’47′
                                       and LGART = itab-lgart.

        APPEND itab. CLEAR itab.

      ENDIF.
    ENDLOOP.

perform get_field_text .

perform hesapla.

modify it.

  ENDLOOP.

ENDFORM.                    ” BORDRO_VERILERI
*&———————————————————————*
*&      Form  SET_STATUS
*&———————————————————————*
FORM standard_pf USING rt_extab TYPE slis_t_extab.
  REFRESH rt_extab.
  SET PF-STATUS ’STANDARD’ .
ENDFORM.                               ”set_status
*&———————————————————————*
*&      Form  get_format
*&———————————————————————*
FORM command USING r_ucomm LIKE sy-ucomm
                rs_selfield TYPE slis_selfield.

perform alv_update.

  CASE r_ucomm.
    ”"break turgut.
    WHEN ’&IC1′ or ’&REFRESH’.
      READ TABLE IT INDEX RS_SELFIELD-TABINDEX.
      IF SY-SUBRC EQ 0.
       CLEAR : TTAB, TTAB[].
       MOVE IT TO TTAB. APPEND TTAB.
      perform smartforma_gonder.
            rs_selfield-refresh = ’X’.
      ENDIF.
     WHEN ’&HESAPLA’.
             READ TABLE IT INDEX RS_SELFIELD-TABINDEX.
      IF SY-SUBRC EQ 0.
       CLEAR : TTAB, TTAB[].
       MOVE IT TO TTAB. APPEND TTAB.
            rs_selfield-refresh = ’X’.
      endif.
  ENDCASE.

perform bordro_verileri.

          rs_selfield-refresh = ’X’.
*
*            PERFORM alv_goruntule.
ENDFORM.                    ”command
*&———————————————————————*
*&      Form  GET_FIELD_TEXT
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM GET_FIELD_TEXT .

  SELECT SINGLE begda INTO it-begda FROM pa0000
    WHERE pernr = it-pernr AND massn = ’01′.

ENDFORM.                    ” GET_FIELD_TEXT
*&———————————————————————*
*&      Form  SMARTFORMA_GONDER
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM SMARTFORMA_GONDER .

ENDFORM.                    ” SMARTFORMA_GONDER
*&———————————————————————*
*&      Form  ISLE
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM ISLE .

if xr-lgart = ’/KTG’. it-gun = xr-ANZHL. endif.
if xr-lgart = ’1500′. it-net_ucret = xr-betrg. endif.
if xr-lgart = ’/AGI’. it-asgari_gecim = xr-betrg. endif.
if xr-lgart = ’2900′. it-kidem = xr-betrg. endif.
if xr-lgart = ’2910′. it-ihbar = xr-betrg. endif.
if xr-lgart = ’2350′. it-izin = xr-betrg. endif.
if xr-lgart = ’1960′. it-mesai1 = xr-betrg. endif.
if xr-lgart = ’1950′. it-mesai2 = xr-betrg. endif.
if xr-lgart = ’2300′. it-ek_odeme = xr-betrg. endif.
if xr-lgart = ’7909′. it-gorev_tazm = xr-betrg. endif.
if xr-lgart = ’3100′. it-maas_avansi = xr-betrg. endif.
if xr-lgart = ’3700′. it-is_avansi = xr-betrg. endif.
if xr-lgart = ’3400′. it-ydisi_sey_avansi = xr-betrg. endif.
if xr-lgart = ’3410′. it-yici_sey_avansi = xr-betrg. endif.
if xr-lgart = ’3703′. it-tel_kesintisi = xr-betrg. endif.
if xr-lgart = ’3600′. it-bik_borcu = xr-betrg. endif.
if xr-lgart = ’3500′. it-taksitli_borc = xr-betrg. endif.
if xr-lgart = ’3200′. it-icra_kesintisi = xr-betrg. endif.
if xr-lgart = ’3750′. it-cari_hesap = xr-betrg. endif.
if xr-lgart = ’/559′. it-net_odenen = xr-betrg. endif.

IT-TARIH = P_TARIH.
ENDFORM.                    ” ISLE
*&———————————————————————*
*&      Form  HESAPLA
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM HESAPLA .
data : kidem_katsayi type p DECIMALS 4 VALUE ’0.0066′,
       kidem type DEC_16_02_S,
       net_toplam type DEC_16_02_S.

kidem = it-kidem * kidem_katsayi.
it-kidem = it-kidem - kidem.
it-net_odenen = it-net_odenen - it-yat_maas.

 net_toplam = it-net_ucret +
 it-asgari_gecim +
 it-kidem +
 it-izin +
 it-mesai1 +
 it-mesai2 +
 it-ek_odeme +
 it-gorev_tazm +
* it-yat_maas +
 it-maas_avansi +
 it-is_avansi +
 it-ydisi_sey_avansi +
 it-yici_sey_avansi +
 it-tel_kesintisi +
 it-bik_borcu +
 it-taksitli_borc +
 it-icra_kesintisi +
 it-cari_hesap .

if it-ihbar > 0.
 it-ihbar = ( it-net_odenen + it-yat_maas ).
 it-ihbar = it-ihbar - net_toplam.
endif.

ENDFORM.                    ” HESAPLA
*&———————————————————————*
*&      Form  ALV_UPDATE
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM ALV_UPDATE .

DATA: lv_ref_grid TYPE REF TO cl_gui_alv_grid.

IF lv_ref_grid IS INITIAL.

CALL FUNCTION ’GET_GLOBALS_FROM_SLVC_FULLSCR’

IMPORTING

e_grid = lv_ref_grid.

ENDIF.

IF NOT lv_ref_grid IS INITIAL.

CALL METHOD lv_ref_grid->check_changed_data.
CALL METHOD lv_ref_grid->refresh_table_display.

ENDIF.

ENDFORM.                    ” ALV_UPDATE
*&———————————————————————*
*&      Form  modify_table
*&———————————————————————*
*       text
*———————————————————————-*
*      –>E_MODIFIED     text
*      –>ET_GOOD_CELLS  text
*———————————————————————-*
*FORM modify_table  USING e_modified
*                         et_good_cells TYPE lvc_t_modi.
*break turgut.
** READ TABLE et_good_cells INDEX 1 INTO ls_good1.
*
*    perform bordro_verileri.
*
***   Getting Current Cell
*    CALL METHOD r_alv_grid->get_current_cell
*      IMPORTING
*        e_row     = le_row
*        e_value   = le_value
*        e_col     = le_col
*        es_row_id = les_row_id
*        es_col_id = les_col_id
*        es_row_no = les_row_no.
*
*  CALL METHOD r_alv_grid->refresh_table_display.
*
*  CALL METHOD r_alv_grid->set_current_cell_via_id
*    EXPORTING
*      is_row_id    = les_row_id
*      is_column_id = les_col_id
*      is_row_no    = les_row_no.
*
**    CALL METHOD r_alv_grid->refresh_table_display.
*
*ENDFORM.                    ”modify_table
*&———————————————————————*
*&      Module  STATUS_0100  OUTPUT
*&———————————————————————*
*       text
*———————————————————————-*
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS ’0100′.
  SET TITLEBAR ’0100′.

 IF r_alv_grid IS INITIAL.

    CREATE OBJECT r_alv_grid
      EXPORTING
        i_parent = cl_gui_container=>default_screen.

    CALL METHOD r_alv_grid->set_table_for_first_display
      EXPORTING
        is_layout            = wa_is_layout
        it_toolbar_excluding = pt_exclude
        is_variant           = l_layout2
        i_save               = ’X’
      CHANGING
        it_outtab            = it[]
        it_fieldcatalog      = t_fieldcat.

    CALL METHOD r_alv_grid->register_edit_event
      EXPORTING
        i_event_id = cl_gui_alv_grid=>mc_evt_enter.

    CALL METHOD r_alv_grid->register_edit_event
      EXPORTING
        i_event_id = cl_gui_alv_grid=>mc_evt_modified.

    CREATE OBJECT event_receiver.
    SET HANDLER event_receiver->handle_double_click FOR r_alv_grid.
*    SET HANDLER event_receiver->handle_item_changed FOR r_alv_grid.
    SET HANDLER event_receiver->handle_data_changed FOR r_alv_grid.
    SET HANDLER event_receiver->handle_data_changed_finished
    FOR r_alv_grid.
  ELSE.

    CALL METHOD r_alv_grid->refresh_table_display.

  ENDIF.

ENDMODULE.                 ” STATUS_0100  OUTPUT
*&———————————————————————*
*&      Form  INIT_FIELDCAT
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM INIT_FIELDCAT .

DATA: l_text(50).

  CALL FUNCTION ’LVC_FIELDCATALOG_MERGE’
    EXPORTING
      i_buffer_active  = ’ ’
      i_structure_name = ’ZHRS_IBRANAME’
    CHANGING
      ct_fieldcat      = t_fieldcat.

  LOOP AT t_fieldcat INTO wa_fieldcat.
    wa_fieldcat-just = ’C’.
    wa_fieldcat-no_zero = ’X’.
    CASE wa_fieldcat-fieldname .
           WHEN ’BEGDA’.
        l_text = ’Giriş Tarihi’.
      WHEN ’ENDDA’.
        l_text  = ’Çıkış Tarihi’.
      WHEN ’GUN’.
        l_text = ’Gün’.
      WHEN ’NET_UCRET’.
        l_text = ’Net Ücret’.
      WHEN ’ASGARI_GECIM’.
        l_text = ’Asgari Geçim’.
      WHEN ’KIDEM’.
        l_text = ’Kıdem’.
      WHEN ’IHBAR’.
        l_text = ’İhbar’.
      WHEN ’IZIN’.
        l_text = ’İzin’.
      WHEN ’MESAI1′.
        l_text = ’Mesai 1′.
      WHEN ’MESAI2′.
        l_text = ’Mesai 2′.
      WHEN ’EK_ODEME’.
        l_text = ’Ek Ödeme’.
      WHEN ’GOREV_TAZM’.
        l_text = ’Görev Tazminatı’.
      WHEN ’YAT_MAAS’.
        l_text = ’Yatırılan Maaş’.
        wa_fieldcat-edit = ’X’.
      WHEN ’MAAS_AVANSI’.
        l_text = ’Maaş Avansı’.
      WHEN ’IS_AVANSI’.
        l_text = ’İş Avansı’.
      WHEN ’YDISI_SEY_AVANSI’.
        l_text = ’Yurt Dışı Seyahat Avansı’.
      WHEN ’YICI_SEY_AVANSI’.
        l_text = ’Yurt İçi Seyahat Avansı’.
      WHEN ’TEL_KESINTISI’.
        l_text = ’Telefon Kesintisi’.
      WHEN ’TAKSITLI_BORC’.
        l_text = ’Taksitli Borç’.
      WHEN ’ICRA_KESINTISI’.
        l_text = ’İcra Kesintisi’.
      WHEN ’CARI_HESAP’.
        l_text = ’Cari Hesap’.
      WHEN ’NET_ODENEN’.
        l_text = ’Net Ödenen’.
      WHEN ’TARIH’.
        wa_fieldcat-NO_OUT = ’X’.
    ENDCASE.

    wa_fieldcat-reptext = l_text.
    wa_fieldcat-scrtext_l = l_text.
    wa_fieldcat-scrtext_m = l_text.
    wa_fieldcat-scrtext_s = l_text.
    MODIFY  t_fieldcat FROM wa_fieldcat.

  ENDLOOP.

ENDFORM.                    ” INIT_FIELDCAT
*&———————————————————————*
*&      Module  USER_COMMAND_0100  INPUT
*&———————————————————————*
*       text
*———————————————————————-*
MODULE USER_COMMAND_0100 INPUT.

* to react on custom events:
  CALL METHOD cl_gui_cfw=>dispatch.

 CASE sy-ucomm.
    WHEN ’&F03′ or ’&F15′ or ’&F12′.
      SET SCREEN 0.

  ENDCASE.

ENDMODULE.                 ” USER_COMMAND_0100  INPUT
*&———————————————————————*
*& Form double_click
*&———————————————————————*
* text
*———————————————————————-*
* –>E_ROW text
* –>E_COLUMN text
*———————————————————————-*
form double_click using e_row type lvc_s_row e_column type lvc_s_col.

*——————————————————————–*
*break turgut.

READ TABLE IT INDEX E_ROW-INDEX.
MOVE-CORRESPONDING IT TO IT2.

CLEAR : IT_ARTI, IT_ARTI[], IT_EKSI, IT_EKSI[].

*– YATIRILAN MAAŞ
IF IT2-YAT_MAAS <> 0.
  IT_EKSI-TEXT = ’YATIRILAN MAAŞ’.
  IF IT2-YAT_MAAS > 0.
  IT_EKSI-UCRET = IT2-YAT_MAAS * -1.
  ELSE.
  IT_EKSI-UCRET = IT2-YAT_MAAS.
  ENDIF.
  APPEND IT_EKSI.
ENDIF.

*– NET UCRET
IF IT2-NET_UCRET <> 0.
LTEXT = IT2-GUN.
IF IT2-NET_UCRET > 0.
  CONCATENATE ’NET ÜCRETİ (‘ LTEXT ’GÜNLÜK)’ INTO IT_ARTI-TEXT.
  IT_ARTI-TEXT2 = ’Ücret’.
    IT_ARTI-UCRET = IT2-NET_UCRET.
  APPEND IT_ARTI.
  ELSE.
  CONCATENATE ’NET ÜCRETİ (‘ LTEXT ’GÜNLÜK)’ INTO IT_EKSI-TEXT.
    IT_eksi-TEXT2 = ’Ücret’.
   IT_EKSI-UCRET = IT2-NET_UCRET.
    APPEND IT_EKSI.
  ENDIF.
ENDIF.
*– ASGARİ GEÇİM
perform tablo using IT2-ASGARI_GECIM ’ASGARİ GEÇİM İNDİRİMİ’ ’Asgari Geçim İndirimi’ ’asgari geçim indirimlerimin’ ’+’.
*– KIDEM
perform tablo using IT2-KIDEM ’KIDEM TAZMİNATI’ ’Kıdem Tazminatı’ ’kıdem tazminatımın’ ’+’.
*– İHBAR
perform tablo using IT2-IHBAR ’İHBAR TAZMİNATI’ ’İhbar Tazminatı’ ’ihbar tazminatımın’ ’+’.
*–IZIN
perform tablo using IT2-IZIN ’YILLIK İZİN ÜCRETİ’ ’Yıllık İzin Ücreti’ ’yıllık ücretli izinlerimin tamamını kullandığımı’ ’+’.
*–MESAI1
*–MESAI2
ucret = IT2-MESAI1 + IT2-MESAI2.
perform tablo using UCRET ’FAZLA MESAİ ÜCRETİ’ ’Fazla Mesai Ücreti’ ’fazla mesai alacağımın’ ’+’.
*–EK_ODEME
perform tablo using IT2-EK_ODEME ’EK ÖDEME’ ’Ek Ödeme’ ’ek ödemelerimin’ ’+’.
*–GOREV_TAZM
perform tablo using IT2-GOREV_TAZM ’GÖREV TAZMİNATI’ ’Görev Tazminatı’ ” ”.
*–MAAS_AVANSI
perform tablo using IT2-MAAS_AVANSI ’MAAŞ AVANSI’ ’Maaş Avansı’ ” ”.
*–IS_AVANSI
perform tablo using IT2-IS_AVANSI ’İŞ AVANSI’ ’İş Avansı’ ” ”.
*–YDISI_SEY_AVANSI
perform tablo using IT2-YDISI_SEY_AVANSI ’YURTDIŞI SEYAHAT AVANSI’ ’Yurtdışı Seyahat Avansı’ ” ”.
*–YICI_SEY_AVANSI
perform tablo using IT2-YICI_SEY_AVANSI ’YURTİÇİ SEYAHAT AVANSI’ ’Yurtiçi Seyahat Avansı’ ” ”.
*–TEL_KESINTISI
perform tablo using IT2-TEL_KESINTISI ’TELEFON KESİNTİ ÜCRETİ’ ’Telefon Kesinti Ücreti’ ” ”.
*–TAKSITLI_BORC
perform tablo using IT2-TAKSITLI_BORC ’TAKSİTLİ BORÇ’ ’Taksitli Borç’ ” ”.
*–ICRA_KESINTISI
perform tablo using IT2-ICRA_KESINTISI ’İCRA KESİNTİSİ’ ’İcra Kesintisi’ ” ”.
*–CARI_HESAP
perform tablo using IT2-CARI_HESAP ’CARİ HESAP’ ’Cari Hesap’ ” ”.

*– YAZDIR
DATA : fm_name TYPE rs38l_fnam.

CALL FUNCTION ’SSF_FUNCTION_MODULE_NAME’
  EXPORTING
    formname = ’ZHR_SF_IBRANAME_FERAGATNAME’
  IMPORTING
    FM_NAME = fm_name
  EXCEPTIONS
    NO_FORM = 1
    NO_FUNCTION_MODULE = 2
    OTHERS = 3.

CALL FUNCTION fm_name
  TABLES
    IT          = IT2
    IT_ARTI     = IT_ARTI
    IT_EKSI     = IT_EKSI
  EXCEPTIONS
    FORMATTING_ERROR = 1
    INTERNAL_ERROR = 2
    SEND_ERROR = 3
    USER_CANCELED = 4
    OTHERS = 5.

call method r_alv_grid->get_current_cell
importing
e_row = le_row
e_value = le_value
e_col = le_col
es_row_id = les_row_id
es_col_id = les_col_id
es_row_no = les_row_no.

endform. ”double_click
*&———————————————————————*
*&      Form  TABLO
*&———————————————————————*
*       text
*———————————————————————-*
*      –>P_IT2_IHBAR  text
*      –>P_TEXT  text
*      –>P_TEXT2  text
*———————————————————————-*
FORM TABLO  USING    P_DEGER type DEC_16_02_S
                     P_TEXT type string
                     P_TEXT2 type string
                     P_TEXT3 TYPE STRING
                     P_TIP TYPE C.

CLEAR : IT_ARTI, IT_EKSI.

IF P_DEGER <> 0.
  IF P_DEGER > 0.
  IT_ARTI-TEXT = P_TEXT.
  IT_ARTI-TEXT2 = P_TEXT2.
  IT_ARTI-UCRET = P_DEGER.
 APPEND IT_ARTI.
  ELSE.
  IT_EKSI-TEXT = P_TEXT.
  IT_EKSI-TEXT2 = P_TEXT2.
  IT_EKSI-UCRET = P_DEGER.
 APPEND IT_EKSI.
  endif.
else.
  IF P_TIP = ’+’.
  IT_ARTI-TEXT3 = P_TEXT3.
  IT_ARTI-UCRET = P_DEGER.
 APPEND IT_ARTI.
  ELSEIF P_TIP = ’-’.
  IT_EKSI-TEXT3 = P_TEXT3.
  IT_EKSI-UCRET = P_DEGER.
 APPEND IT_EKSI.
  ENDIF.
ENDIF.

ENDFORM.                    ” TABLO
*&———————————————————————*
*&      Form  HANDLE_DATA_CHANGED
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM HANDLE_DATA_CHANGED .

    perform bordro_verileri.
*
*    CALL METHOD r_alv_grid->refresh_table_display.
**   Getting Current Cell
    CALL METHOD r_alv_grid->get_current_cell
      IMPORTING
        e_row     = le_row
        e_value   = le_value
        e_col     = le_col
        es_row_id = les_row_id
        es_col_id = les_col_id
        es_row_no = les_row_no.

ENDFORM.                    ” HANDLE_DATA_CHANGED
*&———————————————————————*
*&      Form  HANDLE_DATA_CHANGED_FINISHED
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM HANDLE_DATA_CHANGED_FINISHED .
*break turgut.

    perform bordro_verileri.

    CALL METHOD r_alv_grid->get_current_cell
      IMPORTING
        e_row     = le_row
        e_value   = le_value
        e_col     = le_col
        es_row_id = les_row_id
        es_col_id = les_col_id
        es_row_no = les_row_no.
ENDFORM.                    ” HANDLE_DATA_CHANGED_FINISHED

 

admin tarafından

OAOH için veri ekleme ( Personel Resim Yükleme)

Ekim 8, 2012 de İnsan Kaynakları - HR admin tarafından

Gerekli uyarlamalar yapıldıktan sonra personel resimlerinin sisteme toplu/tek yüklemesi için  uygulamadır.

*&———————————————————————*
*& Report  ZHR_P_PERSONEL_FOTO_YUKLE
*&
*&———————————————————————*
*&
*&
*&———————————————————————*

REPORT  ZHR_P_PERSONEL_FOTO_YUKLE.

tables : pa0000.

SELECTION-SCREEN BEGIN OF BLOCK frame1 WITH FRAME TITLE text-001.
SELECTION-SCREEN ULINE /10(60).

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 15.
PARAMETERS: rb1 RADIOBUTTON GROUP rb.
SELECTION-SCREEN COMMENT 20(30) text-002.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 15.
PARAMETERS: rb2 RADIOBUTTON GROUP rb.
SELECTION-SCREEN COMMENT 20(60) text-003.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN ULINE /10(60).
SELECTION-SCREEN END OF BLOCK frame1.

START-OF-SELECTION.

IF RB1 EQ ’X’.
PERFORM TEK_FOTO_YUKLE.
ELSEIF RB2 EQ ’X’.
PERFORM COKLU_FOTO_YUKLE.
ENDIF.

break turgut.

*&———————————————————————*
*&      Form  COKLU_FOTO_YUKLE
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM COKLU_FOTO_YUKLE .

*MESSAGE I000(zhr) WITH’Fotoğrafların yükleneceği klasörü seçiniz’.

DATA:
gv_path_ini    TYPE string,
gv_path_sel    TYPE string,
NAME LIKE  SALFILE-LONGNAME,
p_dir(50) TYPE c,
FILE_TBL  LIKE  SALFLDIR OCCURS 0 WITH HEADER LINE.

DATA : file_table LIKE TABLE OF sdokpath WITH HEADER LINE .
DATA : file_table2 LIKE TABLE OF sdokpath WITH HEADER LINE .
DATA : dir_table LIKE TABLE OF sdokpath WITH HEADER LINE .

CALL METHOD cl_gui_frontend_services=>directory_browse
EXPORTING
initial_folder  = gv_path_ini
CHANGING
selected_folder = gv_path_sel
EXCEPTIONS
cntl_error      = 1
error_no_gui    = 2
OTHERS          = 3.

CHECK SY-SUBRC EQ 0.

BREAK TURGUT.

p_dir = gv_path_sel.

CALL FUNCTION ’TMP_GUI_DIRECTORY_LIST_FILES’
EXPORTING
directory  = p_dir
filter     = ’*.JPG’
TABLES
file_table = file_table2
dir_table  = dir_table
EXCEPTIONS
cntl_error = 1
OTHERS     = 2.

loop at file_table2.
TRANSLATE file_table2-PATHNAME TO UPPER CASE.
SEARCH file_table2-PATHNAME for ’.JPG’.
IF SY-SUBRC EQ 0.
MOVE-CORRESPONDING FILE_TABLE2 TO FILE_TABLE.
APPEND FILE_TABLE.
ENDIF.
endloop.

READ TABLE FILE_TABLE INDEX 1.
IF SY-SUBRC EQ 0.

LOOP AT file_table.

data : lw_path LIKE  SAPB-SAPPFAD,
lw_ar_object LIKE  TOAOM-AR_OBJECT,
*DEL_DATE LIKE  TOA01-DEL_DATE,
lw_object_id  LIKE  SAPB-SAPOBJID,
lw_sap_object LIKE  TOAOM-SAP_OBJECT,
lw_doc_type LIKE  TOADD-DOC_TYPE.

* Create file path (Directory)-(Employee No.).JPG
break : turgut, cenk.
CONCATENATE p_dir ’\' file_table-PATHNAME INTO lw_path.

data : pernr1 type string,
pernr2 type string,
pernr3 type string.

pernr1 = file_table-PATHNAME.
TRANSLATE pernr1 to UPPER CASE.
SPLIT pernr1 AT ’.JPG’ INTO pernr2 pernr3.

* Assign Values
lw_ar_object  = ’HRICOLFOTO’.
lw_object_id  = pernr2.
lw_sap_object = ’PREL’.
lw_doc_type   = ’JPG’.

data : pernr(8).

IF lw_object_id CA SY-ABCDE OR
lw_object_id CA ’é!^+%&/()=?_<>£#$½{[]}\’.
MESSAGE I000(ZHR) WITH lw_object_id ’.JPG sadece Personel Sicil No İçermelidir!’.
ELSE.
unpack lw_object_id to pernr.

data : persno type persno.
persno = pernr.

select single * from pa0000 where pernr = persno.
IF SY-SUBRC EQ 0.
lw_object_id = pernr.
CALL FUNCTION ’ARCHIV_CREATE_FILE’
EXPORTING
ar_object                     = lw_ar_object
*        DEL_DATE                      = ’99991231′
object_id                     = lw_object_id
sap_object                    = lw_sap_object
doc_type                      = lw_doc_type
path                          = lw_path
EXCEPTIONS
error_conectiontable          = 1
error_parameter               = 2
error_archiv                  = 3
error_upload                  = 4
error_kernel                  = 5
no_entry_possible             = 6
error_comunicationtable       = 7
OTHERS                        = 8
.
IF sy-subrc eq 0.
MESSAGE S000(ZHR) WITH PERSNO ’Sicil nolu personel fotoğrafı yüklendi’.
else.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ELSE.
MESSAGE I000(ZHR) WITH PERSNO ’Sicil Nolu personel sistemde bulunamadı!’.
ENDIF.
ENDIF.

endloop.

ELSE.
MESSAGE I000(ZHR) WITH ’Seçilen klasörde fotoğraf bulunamadı!’.
EXIT.
ENDIF.

ENDFORM.                    ” COKLU_FOTO_YUKLE
*&———————————————————————*
*&      Form  TEK_FOTO_YUKLE
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM TEK_FOTO_YUKLE .

DATA:       filename LIKE rlgrap-filename .

CALL FUNCTION ’WS_FILENAME_GET’
EXPORTING
def_path         = ’C:\’
mask             = ’**.jpg*’
mode             = ’O’
title            = sy-title
IMPORTING
filename         = filename
EXCEPTIONS
inv_winsys       = 1
no_batch         = 2
selection_cancel = 3
selection_error  = 4
OTHERS           = 5.

data : lw_path LIKE  SAPB-SAPPFAD,
lw_ar_object LIKE  TOAOM-AR_OBJECT,
*DEL_DATE LIKE  TOA01-DEL_DATE,
lw_object_id  LIKE  SAPB-SAPOBJID,
lw_sap_object LIKE  TOAOM-SAP_OBJECT,
lw_doc_type LIKE  TOADD-DOC_TYPE.

* Create file path (Directory)-(Employee No.).JPG
break : turgut, cenk.
CONCATENATE filename ” INTO lw_path.

TRANSLATE lw_path to UPPER CASE.

data : begin of itab OCCURS 0,
text type char50,
end of itab.

SPLIT lw_path AT ’\' INTO TABLE itab.
data : pernr1 type string,
pernr2 type string,
pernr3 type string.

CLEAR : PERNR1, PERNR2, PERNR3.

loop at itab.
SEARCH itab-text FOR ’.JPG’.
IF SY-SUBRC EQ 0.
PERNR1 = ITAB-TEXT.

ENDIF.
endloop.
CHECK PERNR1 IS NOT INITIAL.

TRANSLATE pernr1 to UPPER CASE.
SPLIT pernr1 AT ’.JPG’ INTO pernr2 pernr3.

* Assign Values
lw_ar_object  = ’HRICOLFOTO’.
lw_object_id  = pernr2.
lw_sap_object = ’PREL’.
lw_doc_type   = ’JPG’.

data : pernr(8).

IF lw_object_id CA SY-ABCDE OR
lw_object_id CA ’é!^+%&/()=?_<>£#$½{[]}\’.
MESSAGE I000(ZHR) WITH lw_object_id ’.JPG sadece Personel Sicil No İçermelidir!’.
ELSE.
unpack lw_object_id to pernr.

data : persno type persno.
persno = pernr.

select single * from pa0000 where pernr = persno.
IF SY-SUBRC EQ 0.
lw_object_id = pernr.
CALL FUNCTION ’ARCHIV_CREATE_FILE’
EXPORTING
ar_object                     = lw_ar_object
*        DEL_DATE                      = ’99991231′
object_id                     = lw_object_id
sap_object                    = lw_sap_object
doc_type                      = lw_doc_type
path                          = lw_path
EXCEPTIONS
error_conectiontable          = 1
error_parameter               = 2
error_archiv                  = 3
error_upload                  = 4
error_kernel                  = 5
no_entry_possible             = 6
error_comunicationtable       = 7
OTHERS                        = 8
.
IF sy-subrc eq 0.
MESSAGE S000(ZHR) WITH PERSNO ’Sicil nolu personel fotoğrafı yüklendi’.
else.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ELSE.
MESSAGE I000(ZHR) WITH PERSNO ’Sicil Nolu personel sistemde bulunamadı!’.
ENDIF.
ENDIF.

ENDFORM.                    ” TEK_FOTO_YUKLE

 

admin tarafından

Satınlama Talep Listesi – Onay Hatırlatma Maili

Mart 5, 2011 de Malzeme Yönetimi - MM admin tarafından

ZMM_SATONAY02 Tablo Yapısı

ZONAYMRC ZONAYMRC CHAR 12 0 Onay mercileri
FRGGR FRGGR CHAR 2 0 Onay grubu
FRGCO FRGCO CHAR 2 0 Onay kodu
ADSOYAD USERS_NAME CHAR 62 0 Kullanıcının soyadı, adı
MAIL ZMAIL CHAR 50 0 Mail Adresi

 

 

*&———————————————————————*
*& Report  ZMMR_SAT_ONAY_LISTESI                                       *
*&                                                                     *
*&———————————————————————*
*&                                                                     *
*&                                                                     *
*&———————————————————————*

REPORT  zmmr_sat_onay_listesi                   .

TYPE-POOLS : kkblo.

INCLUDE zmail_inc.

DATA: it LIKE bapiebanc OCCURS 0 WITH HEADER LINE ,
itmail LIKE zmm_satonay02 OCCURS 0 WITH HEADER LINE ,
n(2) TYPE c.

i_folder_id-objtp = outbox_id-objtp.
i_folder_id-objyr = outbox_id-objyr.
i_folder_id-objno = outbox_id-objno.

REFRESH: i_objcont.

i_object_hd_change-objla = ’T’.
i_object_hd_change-objnam = ’NOT’.
i_object_hd_change-objdes = ’DENEME1234′.
i_object_hd_change-file_ext = ’HTM’.
i_object_hd_change-objlen = say.
i_object_hd_change-objsns = ’O’.

i_owner = sy-uname.

PERFORM convert_raw_to_rtf. ” RAW formatının RTF’ye çevrilmesi

SELECT * APPENDING TABLE itmail FROM zmm_satonay02  .

LOOP AT itmail.

REFRESH it. CLEAR it.

CALL FUNCTION ’BAPI_REQUISITION_GETITEMSREL’
EXPORTING
rel_group               = itmail-frggr
rel_code                = itmail-frgco
ITEMS_FOR_RELEASE       = ’X’
TABLES
requisition_items       = it.

DESCRIBE TABLE it LINES n.

CHECK n > 0.

PERFORM mail_at.

ENDLOOP.

SUBMIT rsconn01 WITH mode = ’INT’
WITH output = ’X’
AND RETURN.

*&———————————————————————*
*&      Form  MAIL_AT
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM mail_at .

PERFORM append_i_objcont.

REFRESH receivers.

receivers-rcdat  = sy-datum.
receivers-rctim  = sy-uzeit.
receivers-recesc = ’U’.
receivers-recnam = ’U-’.
receivers-recextnam = itmail-mail.
receivers-sndex = ’X’.
receivers-sndpri = ’1′.
receivers-deliver = ’X’.
receivers-not_deli = ’X’.
receivers-read = ’X’.
receivers-mailstatus = ’E’.
receivers-adr_name  = itmail-mail.
receivers-sortfield = itmail-mail.
receivers-sortclass = itmail-mail.
APPEND receivers.

REFRESH email_itab.

PERFORM z_send_email_itab.

ENDFORM.                    ” MAIL_AT

*&———————————————————————*
*&      Form  append_i_objcont
*&———————————————————————*
*       text
*———————————————————————-*
FORM append_i_objcont .

i_objcont-line = ’<html xmlns=”http://www.w3.org/1999/xhtml”> ’. APPEND i_objcont.
i_objcont-line = ’<head> ’. APPEND i_objcont.
i_objcont-line = ’<meta http-equiv=”Content-Type” content=”text/html; charset=iso-8859-9″ /> ’. APPEND i_objcont.
i_objcont-line = ’<title>Untitled Document</title> ’. APPEND i_objcont.
i_objcont-line = ’<style type=”text/css”> ’. APPEND i_objcont.
i_objcont-line = ’<!– ’. APPEND i_objcont.
i_objcont-line = ’.style6 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; } ’. APPEND i_objcont.
i_objcont-line = ’.style7 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; } ’. APPEND i_objcont.
i_objcont-line = ’–> ’. APPEND i_objcont.
i_objcont-line = ’</style> ’. APPEND i_objcont.
i_objcont-line = ’</head> ’. APPEND i_objcont.
i_objcont-line = ’<body> ’. APPEND i_objcont.
i_objcont-line = ’<table  width=”800″ border=”0″> ’. APPEND i_objcont.
i_objcont-line = ’  <tr> ’. APPEND i_objcont.
CONCATENATE ’    <td height=”138″ colspan=”10″><p class=”style6″>Sayın’ itmail-adsoyad ’</p> ’ INTO i_objcont-line SEPARATED BY space . APPEND i_objcont.
CONCATENATE  ’ <p class=”style6″>SAP sisteminde onayınızı bekleyen ’ n ’ adet satınalma talebi mevcuttur.’ INTO i_objcont-line SEPARATED BY space. APPEND i_objcont.

i_objcont-line = ’ Onay vermek için SAP sistemi içinden ME55 işlem kodunu kullanabilirsiniz. </p> ’. APPEND i_objcont.
i_objcont-line = ’    <p class=”style6″>&nbsp;</p></td> ’. APPEND i_objcont.
i_objcont-line = ’  </tr> ’. APPEND i_objcont.

i_objcont-line = ’  <tr> ’. APPEND i_objcont.
i_objcont-line = ’   <tr bordercolor=”#CCDDAA” > <td colspan=”10″><hr align=”center” width=”800″ /></td> </tr>’. APPEND i_objcont.
CONCATENATE ’<td><span class=”style7″>’ ’ Sat Talep No  </span></td>’ INTO i_objcont-line. APPEND i_objcont.
CONCATENATE ’<td><span class=”style7″>’ ’ Kalem No   </span></td> ’ INTO i_objcont-line. APPEND i_objcont.
CONCATENATE ’<td><span class=”style7″>’ ’ Talep Eden </span></td> ’ INTO i_objcont-line. APPEND i_objcont.
CONCATENATE ’<td><span class=”style7″>’ ’ Talep Tarihi </span></td> ’ INTO i_objcont-line. APPEND i_objcont.
CONCATENATE ’<td><span class=”style7″>’ ’ Açıklama  </span></td> ’ INTO i_objcont-line. APPEND i_objcont.
CONCATENATE ’<td><span class=”style7″>’ ’ Üretim Yeri  </span></td> ’ INTO i_objcont-line. APPEND i_objcont.
i_objcont-line = ’  </tr> ’. APPEND i_objcont.
i_objcont-line = ’   <tr bordercolor=”#CCDDAA” > <td colspan=”10″><hr align=”center” width=”800″ /></td> </tr>’. APPEND i_objcont.

LOOP AT it.

i_objcont-line = ’  <tr> ’. APPEND i_objcont.

CONCATENATE ’<td><span class=”style7″>’ it-preq_no  ’ </span></td> ’ INTO i_objcont-line. APPEND i_objcont.
CONCATENATE ’<td><span class=”style7″>’ it-preq_item  ’ </span></td> ’ INTO i_objcont-line. APPEND i_objcont.
CONCATENATE ’<td><span class=”style7″>’ it-preq_name  ’ </span></td> ’ INTO i_objcont-line. APPEND i_objcont.
CONCATENATE ’<td><span class=”style7″>’ it-preq_date+6(2) ’/'  it-preq_date+4(2)  ’/' it-preq_date(4)  ’ </span></td> ’ INTO i_objcont-line. APPEND i_objcont.
CONCATENATE ’<td><span class=”style7″>’ it-short_text  ’ </span></td> ’ INTO i_objcont-line. APPEND i_objcont.
CONCATENATE ’<td><span class=”style7″>’ it-plant ’ </span></td> ’ INTO i_objcont-line. APPEND i_objcont.

i_objcont-line = ’  </tr> ’. APPEND i_objcont.

ENDLOOP.

i_objcont-line = ’   <tr bordercolor=”#CCDDAA” > <td colspan=”10″><hr align=”center” width=”800″ /></td> </tr>’. APPEND i_objcont.

i_objcont-line = ’   <tr  > <td colspan=”10″> &nbsp</td> </tr>’. APPEND i_objcont.
i_objcont-line = ’   <tr  > <td colspan=”10″> &nbsp</td> </tr>’. APPEND i_objcont.

i_objcont-line = ’  <tr> ’. APPEND i_objcont.
i_objcont-line = ’    <td height=”70″ colspan=”10″><p class=”style6″>Bu mesaj otomatik olarak üretildiğinden lütfen yanıt göndermeyiniz. </p> ’. APPEND i_objcont.
i_objcont-line = ’    <p class=”style6″>CBG - SAP Yazılım </p></td> ’. APPEND i_objcont.
i_objcont-line = ’  </tr> ’. APPEND i_objcont.
i_objcont-line = ’</table> ’. APPEND i_objcont.
i_objcont-line = ’</body> ’. APPEND i_objcont.
i_objcont-line = ’</html> ’. APPEND i_objcont.

ENDFORM.                    ” append_i_objcont

*&———————————————————————*
*&      Form  convert_raw_to_rtf
*&———————————————————————*
*       text
*———————————————————————-*
FORM convert_raw_to_rtf .
*   * convert text to RAW or int if RTF control is working
PERFORM convert_text_from_rtf TABLES   i_objcont
note_tab
USING    i_object_hd_change-file_ext
‘X’  ” F_RTF_EDITOR
space. ” NOTE_FLAG

ENDFORM.                    ” convert_raw_to_rtf
*&———————————————————————*
*&      Form  convert_text_from_rtf
*&———————————————————————*
*       text
*———————————————————————-*
*      –>P_I_OBJCONT  text
*      –>P_NOTE_TAB  text
*      –>P_I_OBJECT_HD_CHANGE_FILE_EXT  text
*      –>P_0651   text
*      –>P_SPACE  text
*———————————————————————-*
FORM convert_text_from_rtf TABLES   objcont STRUCTURE soli
note_tab TYPE so_note_tab
USING    file_ext
p_f_rtf_editor
note_flag.
DATA text LIKE soli OCCURS 0 WITH HEADER LINE.
DATA index LIKE sy-tabix.
DATA onn TYPE c VALUE ’X’.
f_rtf_editor = ’X’.

* CHECK F_RTF_EDITOR = ON.
CHECK f_rtf_editor = onn.
* * get text
* IF NOTE_FLAG = ON.
IF note_flag = onn.
READ TABLE note_tab  WITH KEY notno = note_start.
MOVE sy-tabix TO index.
MOVE note_tab-note[] TO text[].
ELSE.
MOVE objcont[] TO text[].
ENDIF.
* IF NOTE_FLAG = ON OR
IF note_flag = onn OR
file_ext = space.
*   * convert from normal RAW
CALL FUNCTION ’SO_RTF_TO_RAW’
TABLES
objcont_old = text
objcont_new = text
EXCEPTIONS
OTHERS      = 1.

ELSEIF  file_ext = int.
*   * convert from byte count format
CALL FUNCTION ’SO_RTF_TO_RAW_INT’
TABLES
objcont_old = text
objcont_new = text
EXCEPTIONS
OTHERS      = 1.
ENDIF.
* * write text back
*  IF NOTE_FLAG = ON.
IF note_flag = onn.
READ TABLE note_tab  WITH KEY notno = note_start.
MOVE sy-tabix TO index.
MOVE text[] TO note_tab-note[].
MODIFY note_tab INDEX index.
ELSE.
MOVE text[] TO objcont[].
ENDIF.

ENDFORM.                    ” CONVERT_TEXT_FROM_RTF*&———————————————————————*
*&      Form  z_send_email_itab
*&———————————————————————*
*       text
*———————————————————————-*
FORM z_send_email_itab .

DATA: ohd    LIKE sood1,
oid    LIKE soodk,
to_all LIKE sonv-flag,
okey   LIKE swotobjid-objkey.
DATA: BEGIN OF receivers OCCURS 0.
INCLUDE STRUCTURE soos1.
DATA: END OF receivers.

INCLUDE z_send_email_top.

CLEAR ohd.
emailtitle =  ’Satınalma Talebi Onay Listeniz’  .
ohd-objla    = sy-langu.
ohd-objnam   = application.
ohd-objdes   = emailtitle.
ohd-objpri   = objpri.
ohd-objsns   = ’O’.
ohd-file_ext = ’HTM’.

recextnam = itmail-mail.

CHECK recextnam <> space AND recextnam CS ’@’.

WHILE recextnam CS ’,’.
PERFORM init_rec TABLES receivers.
READ TABLE receivers INDEX 1.
receivers-recextnam = recextnam+0(sy-fdpos).
ADD 1 TO sy-fdpos.

MODIFY receivers INDEX 1.
PERFORM so_object_send_rec
TABLES texttab receivers
USING ohd.
ENDWHILE.

IF recextnam <> space.
PERFORM init_rec TABLES receivers.
READ TABLE receivers INDEX 1.
receivers-recextnam = recextnam.
MODIFY receivers INDEX 1.
PERFORM so_object_send_rec
TABLES texttab receivers
USING ohd.
ENDIF.

ENDFORM.                    ” Z_SEND_EMAIL_ITAB
*&———————————————————————*
*&      Form  init_rec
*&———————————————————————*
*       text
*———————————————————————-*
*      –>P_RECEIVERS  text
*———————————————————————-*
FORM init_rec TABLES receivers STRUCTURE soos1.
CLEAR receivers.
REFRESH receivers.
MOVE sy-datum  TO receivers-rcdat .
MOVE sy-uzeit  TO receivers-rctim.
MOVE ’1′       TO receivers-sndpri.
MOVE ’X'       TO receivers-sndex.
MOVE ’U-’      TO receivers-recnam.
MOVE ’U'       TO receivers-recesc.
MOVE ’INT’     TO receivers-sndart.
MOVE ’5′       TO receivers-sortclass.
MOVE ’X'       TO receivers-deliver.
MOVE ’X'       TO receivers-not_deli.
MOVE ’X'       TO receivers-read.
MOVE ’E'       TO receivers-mailstatus.

MOVE recextnam TO receivers-adr_name.
MOVE recextnam TO receivers-sortfield.

APPEND receivers.

ENDFORM.                    ”init_rec
*&———————————————————————*
*&      Form  so_object_send_rec
*&———————————————————————*
*       text
*———————————————————————-*
*      –>P_TEXTTAB  text
*      –>P_RECEIVERS  text
*      –>P_OHD  text
*———————————————————————-*
FORM  so_object_send_rec
TABLES  objcont      STRUCTURE soli
receivers    STRUCTURE soos1
USING   object_hd    STRUCTURE sood1.
DATA:   oid     LIKE soodk,
to_all  LIKE sonv-flag,
okey    LIKE swotobjid-objkey.

DATA: i_folder_id LIKE soodk.
DATA i_object_hd_display LIKE sood2.
DATA i_object_fl_change  LIKE sofm1.
DATA: i_objhead           LIKE soli OCCURS 0.
DATA: i_objpara           LIKE selc OCCURS 0.
DATA: i_objparb           LIKE soop1 OCCURS 0.

PERFORM user_profile_read.

i_folder_id-objtp = outbox_id-objtp.
i_folder_id-objyr = outbox_id-objyr.
i_folder_id-objno = outbox_id-objno.

CALL FUNCTION ’SO_OBJECT_SEND’
EXPORTING
folder_id                  = i_folder_id
object_hd_change           = object_hd
object_type                = ’HTM’
outbox_flag                = ’X’
sender                     = sy-uname
link_folder_id             = i_folder_id
check_send_authority       = ’X’
owner                      = sy-uname
IMPORTING
object_id_new              = oid
sent_to_all                = to_all
office_object_key          = okey
TABLES
objcont                    = i_objcont
receivers                  = receivers
EXCEPTIONS
active_user_not_exist      = 1
communication_failure      = 2
component_not_available    = 3
folder_not_exist           = 4
folder_no_authorization    = 5
forwarder_not_exist        = 6
note_not_exist             = 7
object_not_exist           = 8
object_not_sent            = 9
object_no_authorization    = 10
object_type_not_exist      = 11
operation_no_authorization = 12
owner_not_exist            = 13
parameter_error            = 14
substitute_not_active      = 15
substitute_not_defined     = 16
system_failure             = 17
too_much_receivers         = 18
user_not_exist             = 19
x_error                    = 20
OTHERS                     = 21.

IF sy-subrc <> 0.
RAISE others.
ENDIF.
COMMIT WORK.
CALL FUNCTION ’SO_OBJECT_UPDATE’
EXPORTING
folder_id                  = i_folder_id
object_fl_change           = i_object_fl_change
object_hd_change           = object_hd
object_id                  = oid
owner                      = sy-uname
IMPORTING
object_hd_display          = i_object_hd_display
TABLES
objcont                    = objcont
objhead                    = i_objhead
objpara                    = i_objpara
objparb                    = i_objparb
EXCEPTIONS
active_user_not_exist      = 1
communication_failure      = 2
component_not_available    = 3
folder_not_exist           = 4
folder_no_authorization    = 5
forwarder_not_exist        = 6
object_not_exist           = 7
object_no_authorization    = 8
operation_no_authorization = 9
owner_not_exist            = 10
parameter_error            = 11
substitute_not_active      = 12
substitute_not_defined     = 13
system_failure             = 14
x_error                    = 15
OTHERS                     = 16.

COMMIT WORK.

ENDFORM.                    ” SO_OBJECT_SEND_REC
*&———————————————————————*
*&      Form  user_profile_read
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM user_profile_read .
DATA prof LIKE soprd.
DATA dest LIKE msxxlist-name  .
CALL FUNCTION ’SO_PROFILE_READ’
EXPORTING
local                 = ’X’
IMPORTING
profile               = prof
EXCEPTIONS
communication_failure = 71
profile_not_exist     = 26
system_failure        = 72.
CASE sy-subrc.
WHEN ok.
WHEN profile_not_exist.
CALL FUNCTION ’SO_PROFILE_INSERT’
IMPORTING
profile           = prof
EXCEPTIONS
profile_no_insert = 25.

WHEN OTHERS.

ENDCASE.
IF f_init EQ ’X’.
CALL FUNCTION ’SO_OFFICE_INIT’
IMPORTING
admin                 = f_admin
comp                  = f_comp
prof                  = profile
user_data             = respuser
EXCEPTIONS
communication_failure = 71
system_failure        = 71.

CASE sy-subrc.
WHEN ok.
PERFORM init_structures.
WHEN OTHERS.
ENDCASE.
ENDIF.

ENDFORM.                    ” user_profile_read

*&———————————————————————*
*&      Form  init_structures
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM init_structures .
MOVE  respuser-usrnam TO owner.
MOVE: fol             TO inbox_id-objtp,
respuser-inbyr  TO inbox_id-objyr,
respuser-inbno  TO inbox_id-objno.
MOVE: fol             TO outbox_id-objtp,
respuser-outyr  TO outbox_id-objyr,
respuser-outno  TO outbox_id-objno.
MOVE: fol             TO private_waste_id-objtp,
respuser-wstyr  TO private_waste_id-objyr,
respuser-wstno  TO private_waste_id-objno.
MOVE: fol             TO private_root_id-objtp,
respuser-pfryr  TO private_root_id-objyr,
respuser-pfrno  TO private_root_id-objno.
MOVE: fol             TO private_action_id-objtp,
respuser-voryr  TO private_action_id-objyr,
respuser-vorno  TO private_action_id-objno.
MOVE: fol             TO public_root_id-objtp,
profile-pfryr   TO public_root_id-objyr,
profile-pfrno   TO public_root_id-objno.
MOVE: fol             TO public_waste_id-objtp,
profile-wstyr   TO public_waste_id-objyr,
profile-wstno   TO public_waste_id-objno.
MOVE: fol             TO initfiles_id-objtp,              ”YL061294 >
profile-pdlyr   TO initfiles_id-objyr,
profile-pdlno   TO initfiles_id-objno.              ”YL061294 <

ENDFORM.                    ” INIT_STRUCTURES