Arkadaşlar ben bir devlet hastenesinde mutemet olarak çalışıyorum. Personellerin keseneklerini yapmak için sgk bize bir
Excel dosyası paylaşmış buradan
Excel üzerinden xml dosyası hazırlayıp sgk ya yükluyoruz.Ancak
Excel dosyası dosya hazırlarken ücret satırında virgülden sonraki kısmı 0 olarak atıyor mesela 123,45 atacakken xml dosyasına 123,00 atıyor. Burada macro hazırlanmış ancak hatalı yapılmış bu konuda yardımcı olacak varsa şimdiden çok teşekkür ederim.
Merhaba, XML_Hazirla kodu içerisindeki
PEK = PEK + Val(PRIM_UCRET)
şeklindeki kodu aşağıdaki ile değiştirerek deneyin.
PEK = PEK + Round(PRIM_UCRET, 2)
teşekkür ederim deneyeyim
Hocam çok teşekkür ederim çalıştı
2 saattir uğraşıyorum hocam içimde kalmasın ben de paylaşayım)
kodun
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, ",", ".")
kısmını aşağıdaki kodla değiştirip dener misiniz?
PEK = 0
'MsgBox Val(PRIM_UCRET)
If (IsNumeric(PRIM_UCRET)) Then
PEK = PEK + (PRIM_UCRET)
End If
If (IsNumeric(PRIM_IKRAMIYE)) Then
PEK = PEK + (PRIM_IKRAMIYE)
End If
PEK = Format(PEK, "0.00")