• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

E Bildirge hatası

  • Konbuyu başlatan Konbuyu başlatan 5353
  • Başlangıç tarihi Başlangıç tarihi
5

5353

Katılım
20 Ocak 2005
Mesajlar
525
Excel Vers. ve Dili
Excel 2007 Türkçe
Merhaba arkadaşlar
Ekteki dosyada L sütünü ( L14 ) başlayan gün değerleri, sayfadaki "XML Dosya Hazırla" buttonuna basıldığında hazırladığı XML dosyasında L sütünü ( Prim Ödeme Günü) sayfada en sona gelmesi gerekirken gelmiyor, bu dosya SGK sayfasına uyan bir dosya olmuyor. Değerleri değişince 30 a kadar sigorta günü olabilir hatası veriyor... Makrosununu L sütünü çıktı XML dosyasında satırın en sonuna getirmesini sağlayabilirmiyiz ? şimdiden teşekkürler.
 

Ekli dosyalar

Dim hata_yok As Boolean
Dim belge5510Sonrasidir As Boolean
Dim Hata_Mesaj As String
Dim Hata_Satir As Integer
Dim Sigortalı_Sira As Integer
Const SigBasSatir As Integer = 14


Sub donem5510OncemiSonramidir()
If (ActiveSheet.Range("E9").Value >= 10 And ActiveSheet.Range("E8").Value = 2008) Or (ActiveSheet.Range("E8").Value > 2008) Then
belge5510Sonrasidir = True
Else
belge5510Sonrasidir = False
End If
End Sub


Sub XML_Hazirla()
Dim xmlStr As String
Dim TAB1 As String

TAB1 = Chr$(9)
'On Error Resume Next
hata_yok = True
belge5510Sonrasidir = False
Call donem5510OncemiSonramidir

Call Input_Check
If hata_yok Then
Call Sirala
Open ActiveSheet.Range("J3").Value For Output As #1
If Err <> O Then
MsgBox ("Verilen Dosya Adı Hatalı. (Örnek: c:\bordro112003.xml)")
Exit Sub
End If
xmlStr = "<?xml version=""1.0"" encoding=""iSO-8859-9""?>"
Print #1, xmlStr
xmlStr = "<AYLIKBILDIRGELER>"
Print #1, xmlStr
xmlStr = TAB1 & "<ISYERI ISYERISICIL=" & """" & ActiveSheet.Range("E2").Value & """ " & _
"KONTROLNO=" & """" & ActiveSheet.Range("H2").Value & """ " & _
"ISYERIARACINO=" & """" & ActiveSheet.Range("E3").Value & """ " & _
"ISYERIUNVAN=" & """" & ActiveSheet.Range("E4").Value & """ " & _
"ISYERIADRES=" & """" & ActiveSheet.Range("E5").Value & """ "
If (Trim(ActiveSheet.Range("E6").Value) <> "") Then
xmlStr = xmlStr & "ISYERIVERGINO=" & """" & ActiveSheet.Range("E6").Value & """"
End If
xmlStr = xmlStr & "/>"

Print #1, xmlStr
xmlStr = TAB1 & "<BORDRO DONEMAY=" & """" & ActiveSheet.Range("E9").Value & """ " & _
"DONEMYIL=" & """" & ActiveSheet.Range("E8").Value & """ " & _
"BELGEMAHIYET=" & """" & ActiveSheet.Range("E10").Value & """/>"
Print #1, xmlStr



RowInd = SigBasSatir: PrevBC = "": PrevK = "": IlkGiris = True
ActiveSheet.Range("C" & Mid$(Str(RowInd), 2)).Select
Sigortalı_Sira = 0
While ActiveCell.Value <> ""
BC = ActiveSheet.Range("C" & Mid$(Str(RowInd), 2)).Value
KANUN = ActiveSheet.Range("D" & Mid$(Str(RowInd), 2)).Value
SICIL = ActiveSheet.Range("E" & Mid$(Str(RowInd), 2)).Value
TCK = ActiveSheet.Range("F" & Mid$(Str(RowInd), 2)).Value
Ad = ActiveSheet.Range("G" & Mid$(Str(RowInd), 2)).Value
Soyad = ActiveSheet.Range("H" & Mid$(Str(RowInd), 2)).Value
ILKSOY = ActiveSheet.Range("I" & Mid$(Str(RowInd), 2)).Value
'PEK = ActiveSheet.Range("J" & Mid$(Str(RowInd), 2)).Value
PRIM_UCRET = ActiveSheet.Range("J" & Mid$(Str(RowInd), 2)).Value
'update 2010 07 19


'PRIM_IKRAMIYE = ActiveSheet.Range("O" & Mid$(Str(RowInd), 2)).Value
'Gun = ActiveSheet.Range("K" & Mid$(Str(RowInd), 2)).Value
'GGUN = ActiveSheet.Range("L" & Mid$(Str(RowInd), 2)).Value
'CGUN = ActiveSheet.Range("M" & Mid$(Str(RowInd), 2)).Value
'EKSIKGUNSAYISI = ActiveSheet.Range("N" & Mid$(Str(RowInd), 2)).Value
PRIM_IKRAMIYE = ActiveSheet.Range("K" & Mid$(Str(RowInd), 2)).Value
Gun = ActiveSheet.Range("L" & Mid$(Str(RowInd), 2)).Value
GGUN = ActiveSheet.Range("M" & Mid$(Str(RowInd), 2)).Value
CGUN = ActiveSheet.Range("N" & Mid$(Str(RowInd), 2)).Value
EKSIKGUNSAYISI = ActiveSheet.Range("O" & Mid$(Str(RowInd), 2)).Value
MESLEKKOD = ActiveSheet.Range("R" & Mid$(Str(RowInd), 2)).Value
RAPCALISTI = ActiveSheet.Range("S" & Mid$(Str(RowInd), 2)).Value

PEK = 0
'MsgBox Val(PRIM_UCRET)
If (IsNumeric(PRIM_UCRET)) Then
PEK = PEK + Val(PRIM_UCRET)
End If
If (IsNumeric(PRIM_IKRAMIYE)) Then
PEK = PEK + Val(PRIM_IKRAMIYE)
End If
PEK = Replace(PEK, ",", ".")

EGN = ActiveSheet.Range("P" & Mid$(Str(RowInd), 2)).Value
ICN = ActiveSheet.Range("Q" & Mid$(Str(RowInd), 2)).Value
If ((IsNumeric(GGUN)) And (Val(GGUN) < 1)) Then
GGUN = ""
End If
If ((IsNumeric(CGUN)) And (Val(CGUN) < 1)) Then
CGUN = ""
End If
If ((IsNumeric(EKSIKGUNSAYISI)) And (Val(EKSIKGUNSAYISI) < 1)) Then
EKSIKGUNSAYISI = ""
End If
If ((IsNumeric(PRIM_IKRAMIYE)) And (Val(PRIM_IKRAMIYE) < 1)) Then
PRIM_IKRAMIYE = ""
End If
If ((IsNumeric(EGN)) And (Val(EGN) < 1)) Then
EGN = ""
End If
If ((IsNumeric(ICN)) And (Val(ICN) < 1)) Then
ICN = ""
End If


If ((BC <> PrevBC) Or (KANUN <> PrevK)) Then
If Not IlkGiris Then
xmlStr = TAB1 & TAB1 & "</SIGORTALILAR>"
Print #1, xmlStr
xmlStr = TAB1 & "</BILDIRGELER>"
Print #1, xmlStr
End If
IlkGiris = False
PrevBC = BC
PrevK = KANUN
xmlStr = TAB1 & "<BILDIRGELER BELGETURU=" & """" & BC & """" & " KANUN=" & """" & KANUN & """>"
Print #1, xmlStr
xmlStr = TAB1 & TAB1 & "<SIGORTALILAR>"
Print #1, xmlStr
Sigortalı_Sira = 0
End If
Sigortalı_Sira = Sigortalı_Sira + 1
SIRA = Sigortalı_Sira
xmlStr = TAB1 & TAB1 & TAB1
xmlStr = xmlStr & "<SIGORTALI SIRA=" & """" & SIRA & """ "
If SICIL <> "" Then
xmlStr = xmlStr & "SIGORTALISICIL=" & """" & SICIL & """ "
End If
If TCK <> "" Then
xmlStr = xmlStr & "TCKNO=" & """" & TCK & """ "
End If
xmlStr = xmlStr & "AD=" & """" & Ad & """ "
' xmlStr = xmlStr & "AD=" & """" & UTF8_CONV(AD) & """ "
xmlStr = xmlStr & "SOYAD=" & """" & Soyad & """ "
If ILKSOY <> "" Then
xmlStr = xmlStr & "ILKSOYAD=" & """" & ILKSOY & """ "
End If
xmlStr = xmlStr & "PEK=" & """" & PEK & """ "
xmlStr = xmlStr & "GUN=" & """" & Gun & """ "
If GGUN <> "" Then
xmlStr = xmlStr & "GIRISGUN=" & """" & GGUN & """ "
End If
If CGUN <> "" Then
xmlStr = xmlStr & "CIKISGUN=" & """" & CGUN & """ "
End If
If EKSIKGUNSAYISI <> "" Then
'xmlStr = xmlStr & "UCRETLIIZINGUN=" & """" & EKSIKGUNSAYISI & """ "
xmlStr = xmlStr & "EKSIKGUNSAYISI=" & """" & EKSIKGUNSAYISI & """ "
End If
If PRIM_IKRAMIYE <> "" Then
'xmlStr = xmlStr & "UIPEK=" & """" & PRIM_IKRAMIYE & """ "
xmlStr = xmlStr & "PRIM_IKRAMIYE=" & """" & PRIM_IKRAMIYE & """ "
End If
If EGN <> "" Then
xmlStr = xmlStr & "EKSIKGUNNEDENI=" & """" & EGN & """ "
End If
If ICN <> "" Then
xmlStr = xmlStr & "ISTENCIKISNEDENI=" & """" & ICN & """ "
End If
If MESLEKKOD <> "" Then
xmlStr = xmlStr & "MESLEKKOD=" & """" & MESLEKKOD & """ "
End If

If Trim(RAPCALISTI) <> "" Then
xmlStr = xmlStr & "RAPCALISTI=" & """" & 2 & """ "
End If

xmlStr = xmlStr & "/>"
Print #1, xmlStr

RowInd = RowInd + 1
ActiveSheet.Range("C" & Mid$(Str(RowInd), 2)).Select
Wend
xmlStr = TAB1 & TAB1 & "</SIGORTALILAR>"
Print #1, xmlStr
xmlStr = TAB1 & "</BILDIRGELER>"
Print #1, xmlStr
xmlStr = "</AYLIKBILDIRGELER>"
Print #1, xmlStr
Close #1
MsgBox ("XML Dosya Hazırlandı")
Else
' If Hata_Satir = 0 Then
' MsgBox (Hata_Mesaj)
' Else
MsgBox ("***Sıra:" + Str(Hata_Satir) + "***" + Hata_Mesaj)
' End If
End If
End Sub

Function UTF8_CONV(aStr)
aStr = "İİİİİ"
pos = InStr(aStr, "İ")
While pos <> 0
aStr = Left(aStr, pos - 1) & "Ä°" & Right(aStr, (Len(aStr) - pos))
pos = InStr(aStr, "İ")
Wend
UTF8_CONV = aStr
End Function

Sub Input_Check()
Hata_Satir = 0
Hata_Mesaj = ""
'5510 506 anlama yeri


' SIGORTALILAR KONTROLU
RowInd = SigBasSatir
ActiveSheet.Range("C" & Mid$(Str(RowInd), 2)).Select
Sigortali_Sira = 0
While ActiveCell.Value <> ""
Sigortali_Sira = Sigortali_Sira + 1
BC = ActiveSheet.Range("C" & Mid$(Str(RowInd), 2)).Value
KANUN = ActiveSheet.Range("D" & Mid$(Str(RowInd), 2)).Value
SICIL = ActiveSheet.Range("E" & Mid$(Str(RowInd), 2)).Value
TCK = ActiveSheet.Range("F" & Mid$(Str(RowInd), 2)).Value
Ad = ActiveSheet.Range("G" & Mid$(Str(RowInd), 2)).Value
Soyad = ActiveSheet.Range("H" & Mid$(Str(RowInd), 2)).Value
ILKSOY = ActiveSheet.Range("I" & Mid$(Str(RowInd), 2)).Value
' PEK = ActiveSheet.Range("J" & Mid$(Str(RowInd), 2)).Value
PRIM_UCRET = ActiveSheet.Range("J" & Mid$(Str(RowInd), 2)).Value
' Gun = ActiveSheet.Range("K" & Mid$(Str(RowInd), 2)).Value
PRIM_IKRAMIYE = ActiveSheet.Range("K" & Mid$(Str(RowInd), 2)).Value
Gun = ActiveSheet.Range("L" & Mid$(Str(RowInd), 2)).Value

GGUN = ActiveSheet.Range("M" & Mid$(Str(RowInd), 2)).Value
CGUN = ActiveSheet.Range("N" & Mid$(Str(RowInd), 2)).Value
EKSIKGUNSAYISI = ActiveSheet.Range("O" & Mid$(Str(RowInd), 2)).Value

'PRIM_IKRAMIYE = ActiveSheet.Range("O" & Mid$(Str(RowInd), 2)).Value

EGN = ActiveSheet.Range("P" & Mid$(Str(RowInd), 2)).Value
ICN = ActiveSheet.Range("Q" & Mid$(Str(RowInd), 2)).Value
MESLEKKOD = ActiveSheet.Range("R" & Mid$(Str(RowInd), 2)).Value

RAPCALISTI = ActiveSheet.Range("S" & Mid$(Str(RowInd), 2)).Value

If ((IsNumeric(GGUN)) And (Val(GGUN) < 1)) Then
GGUN = ""
End If
If ((IsNumeric(CGUN)) And (Val(CGUN) < 1)) Then
CGUN = ""
End If
If ((IsNumeric(EKSIKGUNSAYISI)) And (Val(EKSIKGUNSAYISI) < 1)) Then
EKSIKGUNSAYISI = ""
End If
If ((IsNumeric(PRIM_IKRAMIYE)) And (Val(PRIM_IKRAMIYE) < 1)) Then
PRIM_IKRAMIYE = ""
End If
If ((IsNumeric(EGN)) And (Val(EGN) < 1)) Then
EGN = ""
End If
If ((IsNumeric(ICN)) And (Val(ICN) < 1)) Then
ICN = ""
End If
Hata_Satir = Sigortali_Sira
If (BC < "01") Or (BC > "92") Then
Hata_Mesaj = "Belge Türü Alanına 01-92 Arasında Bir Değer Giriniz."
hata_yok = False
Exit Sub
End If
' If (KANUN <> "00000") And (KANUN <> "05084") And (KANUN <> "85615") And (KANUN <> "05615") And (KANUN <> "85084") And (KANUN <> "04857") And (KANUN <> "05350") And (KANUN <> "85350") And (KANUN <> "05746") Then
' Hata_Mesaj = "Kanun Maddesi Alanına 00000,04857,05084,85084,05350,05615,85615,5746 veya 85350 değerlerinden biri girilmelidir."
' hata_yok = False
' Exit Sub
' End If
If (belge5510Sonrasidir) Then
If SICIL <> "" Then
If Not IsNumeric(SICIL) Then
Hata_Mesaj = "Sigortalı Sicil Numarası Nümerik Değer Olmalıdır."
hata_yok = False
Exit Sub
End If
If Len(SICIL) > 13 Then
Hata_Mesaj = "Sigortalı Sicili 13 Rakamdan Fazla Olamaz."
hata_yok = False
Exit Sub
End If
End If
If Not IsNumeric(TCK) Then
Hata_Mesaj = "SGNo (TCK)Numarası 2008-10 dönem ve sonrası için Nümerik Değer Olmalıdır."
hata_yok = False
Exit Sub
End If
If IsEmpty(TCK) Then
Hata_Mesaj = "SGNo (TCK) Numarası 2008-10 dönem ve sonrası için Boş Geçilemez."
hata_yok = False
Exit Sub
End If
If Len(TCK) < 11 Then
Hata_Mesaj = "SGNo (TCK) Numarası 2008-10 dönem ve sonrası için 11 Hane Olmalıdır."
hata_yok = False
Exit Sub
End If

Else 'big else 506 down 5510 upside
If Not IsNumeric(SICIL) Then
Hata_Mesaj = "Sigortalı Sicil Numarası 2008-09 dönem ve öncesi için Nümerik Değer Olmalıdır."
hata_yok = False
Exit Sub
End If
If IsEmpty(SICIL) Then
Hata_Mesaj = "Sigortalı Sicil 2008-09 dönem ve öncesi için Boş Geçilemez."
hata_yok = False
Exit Sub
End If
If Len(SICIL) > 13 Then
Hata_Mesaj = "Sigortalı Sicili 2008-09 dönem ve öncesi için 13 Rakamdan Fazla Olamaz."
hata_yok = False
Exit Sub
End If
If TCK <> "" Then
If Not IsNumeric(TCK) Then
Hata_Mesaj = "SGNo (TCK) Numarası Nümerik Değer Olmalıdır."
hata_yok = False
Exit Sub
End If
If Len(TCK) < 11 Then
Hata_Mesaj = "SGNo (TCK) Numarası 11 Hane Olmalıdır."
hata_yok = False
Exit Sub
End If
End If
End If ' end 506
If Len(Ad) > 18 Then
Hata_Mesaj = "Sigortalı Adı En Fazla 18 Karakter Olmalıdır."
hata_yok = False
Exit Sub
End If
If IsEmpty(Ad) Then
Hata_Mesaj = "Sigortalı Adı Boş Geçilemez."
hata_yok = False
Exit Sub
End If
If Len(Soyad) > 18 Then
Hata_Mesaj = "Sigortalı Adı En Fazla 18 Karakter Olmalıdır."
hata_yok = False
Exit Sub
End If
If IsEmpty(Soyad) Then
Hata_Mesaj = "Sigortalı Soyadı Boş Geçilemez."
hata_yok = False
Exit Sub
End If
PEK = 0
If PRIM_IKRAMIYE <> "" Then
If Not IsNumeric(PRIM_IKRAMIYE) Then
Hata_Mesaj = "İkramiye TL Nümerik Değer Olmalıdır."
hata_yok = False
Exit Sub
Else
PEK = PEK + PRIM_IKRAMIYE
End If
End If
If PRIM_UCRET <> "" Then
If Not IsNumeric(PRIM_UCRET) Then
Hata_Mesaj = "Ücret TL Nümerik Değer Olmalıdır."
hata_yok = False
Exit Sub
Else
PEK = PEK + PRIM_UCRET
End If
End If
'MsgBox PEK
If IsEmpty(PEK) Then
Hata_Mesaj = "PEK Değeri Boş Geçilemez."
hata_yok = False
Exit Sub
End If
If Not IsNumeric(PEK) Then
Hata_Mesaj = "PEK Tutarı Nümerik Değer Olmalıdır."
hata_yok = False
Exit Sub
End If
If Gun < 0 Or Gun > 30 Then
Hata_Mesaj = "Gün 00-30 Arasında Bir Değer Olmalıdır."
hata_yok = False
Exit Sub
End If
If GGUN <> "" Then
If Not IsNumeric(GGUN) Then
Hata_Mesaj = "Giriş Günü ggaa formatında Nümerik Değer Olmalıdır."
hata_yok = False
Exit Sub
End If
End If
If CGUN <> "" Then
If Not IsNumeric(CGUN) Then
Hata_Mesaj = "Çıkış Günü ggaa formatında Nümerik Değer Olmalıdır."
hata_yok = False
Exit Sub
End If
End If
If EGN <> "" Then
If Not IsNumeric(EGN) Or EGN < 1 Or EGN > 22 Then
Hata_Mesaj = "Eksik Gün Nedeni 01-22 Arasında Nümerik Değer Olmalıdır."
hata_yok = False
Exit Sub
End If
End If
If ICN <> "" Then
If Not IsNumeric(ICN) Or ICN < 1 Or ICN > 35 Then
Hata_Mesaj = "İşten Çıkış Nedeni 01-35 Arasında Nümerik Değer Olmalıdır."
hata_yok = False
Exit Sub
End If
End If
If MESLEKKOD <> "" Then
If Len(MESLEKKOD) > 9 Then
Hata_Mesaj = "Meslek Kodu En Fazla 9(Dokuz) hane olabilir."
hata_yok = False
Exit Sub
End If
End If

If Trim(RAPCALISTI) <> "" Then
If (Trim(RAPCALISTI) <> "e") And (Trim(RAPCALISTI) <> "E") Then
Hata_Mesaj = "İstirahat Sürelerinde Çalışmamıştır alanı 'E' olmalı yada boş bırakılmalıdır."
hata_yok = False
Exit Sub
End If
End If


RowInd = RowInd + 1
ActiveSheet.Range("C" & Mid$(Str(RowInd), 2)).Select
Wend

' BELGE MAHIYETI KONTROLU
If ((ActiveSheet.Range("E10").Value <> "A") And (ActiveSheet.Range("E10").Value <> "E") And (ActiveSheet.Range("E10").Value <> "T")) Then
Hata_Mesaj = "Belge Mahiyeti Asıl İçin (A), Ek için (E) Girilmelidir."
hata_yok = False
Exit Sub
End If
' DONEM AY KONTROLU
If ActiveSheet.Range("E9").Value < 1 Or ActiveSheet.Range("E9").Value > 12 Then
Hata_Mesaj = "Bordro Dönem Ayı 01 ile 12 Arasında Bir Değer Girilmelidir."
hata_yok = False
Exit Sub
End If
' DONEM YIL KONTROLU
If ActiveSheet.Range("E8").Value < 2003 Or ActiveSheet.Range("E8").Value > 2050 Then
Hata_Mesaj = "Bordro Dönem Yılı Hatalı."
hata_yok = False
Exit Sub
End If
' ADRES KONTROLU
If Len(ActiveSheet.Range("E5").Value) > 50 Then
Hata_Mesaj = "İşyeri Adresi En Fazla 50 Karakter Girilebilir."
hata_yok = False
Exit Sub
End If
' UNVAN KONTROLU
If Len(ActiveSheet.Range("E4").Value) > 50 Then
Hata_Mesaj = "İşyeri Ünvanı En Fazla 50 Karakter Girilebilir."
hata_yok = False
Exit Sub
End If
' ARACI NO KONTROLU
If ActiveSheet.Range("E3").Value < 0 Or ActiveSheet.Range("E3").Value > 999 Then
Hata_Mesaj = "İşyeri Aracı No 000 ile 999 Arasında Bir Değer Olmalıdır."
hata_yok = False
Exit Sub
End If
' KONTROL NO KONTROLU
If ActiveSheet.Range("H2").Value < 1 Or ActiveSheet.Range("H2").Value > 99 Then
Hata_Mesaj = "Kontrol No 01 ile 99 Arasında Bir Değer Olmalıdır."
hata_yok = False
Exit Sub
End If
' ISYERI SICIL KONTROLU
If Len(ActiveSheet.Range("E2").Value) <> 21 Then
Hata_Mesaj = "İşyeri Sicil Numarası 21 Hane Girilmelidir."
hata_yok = False
Exit Sub
End If

End Sub
Sub Sirala()
Range("C" & Mid$(Str(SigBasSatir), 2)).Select
RowInd = SigBasSatir
While ActiveCell.Value <> ""
RowInd = RowInd + 1
ActiveSheet.Range("C" & Mid$(Str(RowInd), 2)).Select
Wend
RowInd = RowInd - 1
If RowInd > SigBasSatir Then
Range("C" & Mid$(Str(SigBasSatir), 2) & ":S" & Mid$(Str(RowInd), 2)).Select
Selection.Sort Key1:=Range("C" & Mid$(Str(SigBasSatir), 2)), Order1:=xlAscending, Key2:=Range("D" & Mid$(Str(SigBasSatir), 2)) _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
End If
End Sub

Sub Dosya_Formati5510()
s = " Dikkat : 2008 09 ve oncesi donem icin (506 sayılı Kanun) SSK sicilno zorunlu alandır. " + Chr(13)
s = s + " TCK no alanı (SGNo) Türk Vatandaşları için zorunlu, yabancı vatandaşlar için boş bırakılması gereken bir alandır. " + Chr(13)
s = s + " 2008 10 ve sonrası dönem için (5510 sayılı Kanun) SSK sicilno alanı kullanılmak zorunda degildir. " + Chr(13)
s = s + " TCK no alanı , yeni Sosyal Güvenlik Numarası olarak hem TC hemde yabancı uyruklu vatandaşlar için kullanımı zorunlu olacaktır." + Chr(13)
s = s + " " + Chr(13)

s1 = s1 + " 2008-09 ve oncesi icin text dosyanızda sicilno alanı eskisi gibi yer almalıdır. Bu dosya 506- Text dosya yükle düğmesi ile okutulabilir." + Chr(13)
s1 = s1 + " 2008-10 ve sonrası icin text dosyanızda sicilno alanı yer almamalıdır. Formatı dosya 5510- Text dosya yükle düğmesi ile okutulabilir." + Chr(13)
s1 = s1 + " her 2 düğmeyi de kullanarak text dosyanizi okutabilrsiniz. 5510 düğmesinin okuyacağı dosya icewrisinde 13 hanelik ssk sicil no alanı bulunmamaktadır. " + Chr(13)
s1 = s1 + " 2008-10 ve sonrası dönemler için SGNo (TCKno) numarası olmayan Yabancı uyruklu sigortalılarınız için " + Chr(13)
s1 = s1 + " 1) Nufus müdürlüğünden yabancı TCKNo (SGno) numarası alınmalıdır. " + Chr(13)
s1 = s1 + " 2) Bu alınan numarayı SSK şubesine ileterek mutlaka tescil kayıdınıza işletilmelidir." + Chr(13)
s1 = s1 + " 2008-10 ve sonrası dönemlerde Ssk sicilno ile işlem yapılamayacaktır. " + Chr(13)
s1 = s1 + " Bilgilerinize sunulur." + Chr(13)


s1 = s1 + Chr(13) + Chr(13)

s2 = s2 + "(5510) BİRİNCİ SATIR :" + Chr(13)
s2 = s2 + "İşyeriSicil" + Chr(9) + Chr(9) + "Nümerik(21)" + Chr(13)
s2 = s2 + "KontrolNo" + Chr(9) + Chr(9) + "Nümerik(02)" + Chr(13)
s2 = s2 + "AracıNo" + Chr(9) + Chr(9) + "Nümerik(03)" + Chr(13)
s2 = s2 + "Ünvan" + Chr(9) + Chr(9) + "Karakter(50)" + Chr(13)
s2 = s2 + "Adres" + Chr(9) + Chr(9) + "Karakter(50)" + Chr(13)
s2 = s2 + "VergiNo" + Chr(9) + Chr(9) + "Nümerik(14)" + Chr(13)
s2 = s2 + "DönemYıl" + Chr(9) + Chr(9) + "Nümerik(04)" + Chr(13)
s2 = s2 + "DönemAy" + Chr(9) + Chr(9) + "Nümerik(02)" + Chr(13)
s2 = s2 + "BelgeMahiyet" + Chr(9) + "Karakter(01)" + Chr(13)
s2 = s2 + Chr(13)
s2 = s2 + "İKİNCİ ve SONRAKİ SATIRLAR :" + Chr(13)
s2 = s2 + "BelgeTürü" + Chr(9) + "Nümerik(02)" + Chr(13)
s2 = s2 + "KanunNo" + Chr(9) + Chr(9) + "Karakter(05)" + Chr(13)
's2 = s2 + "S.SicilNo" + Chr(9) + Chr(9) + "Nümerik(13)" + Chr(13)
s2 = s2 + "TCK No" + Chr(9) + Chr(9) + "Nümerik(11)" + Chr(13)
s2 = s2 + "Ad" + Chr(9) + Chr(9) + "Karakter(18)" + Chr(13)
s2 = s2 + "Soyad" + Chr(9) + Chr(9) + "Karakter(18)" + Chr(13)
s2 = s2 + "İlkSoyad" + Chr(9) + Chr(9) + "Karakter(18)" + Chr(13)
s2 = s2 + "Ücret" + Chr(9) + Chr(9) + "Nümerik(18)" + Chr(13)
s2 = s2 + "İkramiye" + Chr(9) + Chr(9) + "Nümerik(18)" + Chr(13)
s2 = s2 + "Gün" + Chr(9) + Chr(9) + "Nümerik(02)" + Chr(13)
s2 = s2 + "G.Gün" + Chr(9) + Chr(9) + "Nümerik(04)-ggaa" + Chr(13)
s2 = s2 + "Ç.Gün" + Chr(9) + Chr(9) + "Nümerik(04)-ggaa" + Chr(13)
s2 = s2 + "EksikGünSayısı" + Chr(9) + Chr(9) + "Nümerik(02)" + Chr(13)
s2 = s2 + "EksikGünNedeni" + Chr(9) + Chr(9) + "Nümerik(02)" + Chr(13)
's2 = s2 + "Eksik GÜN" + Chr(9) + Chr(9) + "Nümerik(02)" + Chr(13)
' s2 = s2 + "EGN" + Chr(9) + Chr(9) + "Nümerik(02)" + Chr(13)
s2 = s2 + "İÇN" + Chr(9) + Chr(9) + "Nümerik(02)" + Chr(13)
s2 = s2 + "Meslek Kodu" + Chr(9) + Chr(9) + "Karakter(9)" + Chr(13)
s2 = s2 + Chr(13)
s2 = s2 + "NOT:" + Chr(9) + "Nümerik Alanlarda Noktalama İşaretleri Kullanılmayacaktır." + Chr(13)
s2 = s2 + Chr(9) + "Kolonlar Arasına Boşluk Karakteri Konacaktır." + Chr(13)

MsgBox (s)
MsgBox (s1)
MsgBox (s2)

End Sub


'11
Sub TxtDosyaYukle5510()
On Error Resume Next
Range("C" & Mid$(Str(SigBasSatir), 2)).Select
RowInd = SigBasSatir
While ActiveCell.Value <> ""
RowInd = RowInd + 1
ActiveSheet.Range("C" & Mid$(Str(RowInd), 2)).Select
Wend
RowInd = RowInd - 1
If RowInd > SigBasSatir Then
Range("C" & Mid$(Str(SigBasSatir), 2) & ":Q" & Mid$(Str(RowInd), 2)).Select
Selection.ClearContents
End If
Dim TxtSatir As String
Open ActiveSheet.Range("J5").Value For Input As #2
Err = 0
'Bordro Baslık Bilgileri Okunuyor
Input #2, TxtSatir
Cells(2, 5) = Trim$(Mid$(TxtSatir, 1, 21))
Cells(2, 8) = Trim$(Mid$(TxtSatir, 23, 2))
Cells(3, 5) = Trim$(Mid$(TxtSatir, 26, 3))
Cells(4, 5) = Trim$(Mid$(TxtSatir, 30, 50))
Cells(5, 5) = Trim$(Mid$(TxtSatir, 81, 50))
Cells(6, 5) = Trim$(Mid$(TxtSatir, 132, 14))
Cells(8, 5) = Trim$(Mid$(TxtSatir, 147, 4))
Cells(9, 5) = Trim$(Mid$(TxtSatir, 152, 2))
Cells(10, 5) = Trim$(Mid$(TxtSatir, 155, 1))
'Sigortalı Baslık Bilgileri Okunuyor
Err = 0
ind = SigBasSatir
While Err = 0
Input #2, TxtSatir
If Err = 0 Then
Cells(ind, 3) = Trim$(Mid$(TxtSatir, 1, 2)) 'bturu
Cells(ind, 4) = Trim$(Mid$(TxtSatir, 4, 5)) 'kanun
'Cells(ind, 5) = Trim$(Mid$(TxtSatir, 10, 13))
Cells(ind, 5) = "" ' ssksicil
Cells(ind, 6) = Trim$(Mid$(TxtSatir, 10, 11)) 'tckno
Cells(ind, 7) = Trim$(Mid$(TxtSatir, 22, 18)) 'ad
Cells(ind, 8) = Trim$(Mid$(TxtSatir, 41, 18)) 'sad
Cells(ind, 9) = Trim$(Mid$(TxtSatir, 60, 18)) 'isad
Cells(ind, 10) = Trim$(Mid$(TxtSatir, 79, 18)) 'ücret
Cells(ind, 11) = Trim$(Mid$(TxtSatir, 98, 18)) ' ikramiye
Cells(ind, 12) = Trim$(Mid$(TxtSatir, 117, 2)) ' gun
Cells(ind, 13) = Trim$(Mid$(TxtSatir, 120, 4)) ' gg
Cells(ind, 14) = Trim$(Mid$(TxtSatir, 125, 4)) ' cg
Cells(ind, 15) = Trim$(Mid$(TxtSatir, 130, 2)) ' eksik gun
Cells(ind, 16) = Trim$(Mid$(TxtSatir, 133, 2)) ' egn
Cells(ind, 17) = Trim$(Mid$(TxtSatir, 136, 2)) ' icn
Cells(ind, 18) = Trim$(Mid$(TxtSatir, 139, 9)) ' MESLEK KOD
Cells(ind, 19) = Trim$(Mid$(TxtSatir, 148, 1)) ' ÇALIŞTI MI
End If
ind = ind + 1
Wend
Close #2
End Sub
'11


L 14 ten başlayan gün değerleri "XML DOSYA HAZIRLA" düğmesine basınca XMLTex dosyasında satırın en sonuna gelmesi nasıl sağlanır ?
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst