ornekler/konsol/fatura/fatura.kbl

# ╔══════════════════════════════════════════════════════════════════╗
# ║  FATURA — JSON siparişten KDV'li fatura: terminal + PDF + Excel  ║
# ║                                                                  ║
# ║  siparis.json'u okur, satır satır indirim ve KDV hesaplar,       ║
# ║  oranlara göre KDV dökümü çıkarır; sonucu terminalde kutu        ║
# ║  çizgili bir tablo olarak basar ve aynı veriden fatura.pdf ile   ║
# ║  fatura.xlsx üretir. Para kuruşa yuvarlanarak tutulur.           ║
# ║                                                                  ║
# ║  kabalang calistir fatura.kbl                                    ║
# ║  kabalang calistir fatura.kbl -- baska.json --cikti ~/Belgeler   ║
# ╚══════════════════════════════════════════════════════════════════╝
kullan kaba.sistem
kullan kaba.belge

yapi Kalem:
    ad = ""
    adet = 0
    birim_fiyat = 0.0
    indirim = 0                      # yüzde
    kdv = 0                          # yüzde

    fonksiyon brut() -> ondalik:
        don kurus(birim_fiyat * ondalik(adet))
    fonksiyon matrah() -> ondalik:
        don kurus(brut() * (1.0 - ondalik(indirim) / 100.0))
    fonksiyon kdv_tutari() -> ondalik:
        don kurus(matrah() * ondalik(kdv) / 100.0)

# Kuruşa yuvarla: 0.1 + 0.2 gibi ikili kesir artıklarını faturaya taşıma.
fonksiyon kurus(x: ondalik) -> ondalik:
    don matematik.yuvarla(x * 100.0) / 100.0

# 1249.9 → "1.249,90 ₺" — Türkçe binlik ve ondalık ayıracı.
fonksiyon para(x: ondalik) -> metin:
    k = sayi(matematik.yuvarla(x * 100.0))
    tam = metin(k // 100)
    gruplu = ""
    i = tam.uzunluk()
    iken i > 3:
        gruplu = "." + tam.dilim(i - 3, 3) + gruplu
        i = i - 3
    gruplu = tam.dilim(0, i) + gruplu
    don f"{gruplu},{k % 100:02d} ₺"

# ── Siparişi oku ─────────────────────────────────────────────────────
# Beklenen hata (dosya yok, bozuk JSON) dönüş değeriyle bildirilir.
fonksiyon siparis_oku(yol: metin) -> sonuc<metin, Hata>:
    eger degil dosya.var_mi(yol):
        don hata(f"sipariş dosyası bulunamadı: {yol}")
    ham = dosya.oku(yol)
    eger degil json.gecerli_mi(ham):
        don hata(f"{yol} geçerli bir JSON değil")
    don tamam(ham)

# ── Terminal tablosu ─────────────────────────────────────────────────
fonksiyon boya(yazi: metin, rgb: metin) -> metin:
    don "\033[38;2;" + rgb + "m" + yazi + "\033[0m"

fonksiyon cizgi(sol: metin, orta: metin, sag: metin) -> metin:
    don boya("  " + sol + "━".tekrarla(4) + orta + "━".tekrarla(34) + orta + "━".tekrarla(6) + orta + "━".tekrarla(15) + orta + "━".tekrarla(6) + orta + "━".tekrarla(5) + orta + "━".tekrarla(16) + sag, "70;80;110")

fonksiyon satir(no: metin, ad: metin, adet: metin, birim: metin, ind: metin, kdv: metin, tutar: metin) -> metin:
    c = boya("┃", "70;80;110")
    don f"  {c}{no:>3} {c} {ad:<32} {c}{adet:>5} {c}{birim:>14} {c}{ind:>5} {c}{kdv:>4} {c}{tutar:>15} {c}"

# ── Program ──────────────────────────────────────────────────────────
ks = KomutSatiri("fatura", "JSON siparişten KDV'li fatura üretir")
ks.konumsal("siparis", "Sipariş dosyası (varsayılan: siparis.json)")
ks.secenek("cikti", "c", "PDF ve XLSX'in yazılacağı klasör")
c = ks.coz()
eger c.yardim_mi():
    c.yardim_yaz()
    cikis(0)
eger c.hatali_mi():
    c.hata_yaz_ve_cik()

okunan = siparis_oku(c.konumsal("siparis").deger_veya("siparis.json"))
eger okunan.hatali_mi():
    konsol.hata_yaz("✗ " + okunan.hata().mesaj() + "\n")
    cikis(1)
v = json.coz(okunan.deger())

# JSON dizisinin uzunluğu sorulamıyor; sınırın dışına çıkınca biter.
kalemler = [Kalem()]                 # boş yapı listesi: bir öğeyle kurup sil
kalemler.sil(0)
i = 0
bitti = yanlis
iken degil bitti:
    dene:
        j = v["kalemler"][i]
        kalemler.ekle(Kalem(metin(j["ad"]), sayi(j["adet"]), ondalik(j["birim_fiyat"]), sayi(j["indirim"]), sayi(j["kdv"])))
        i = i + 1
    yakala:
        bitti = dogru

# ── Hesap ────────────────────────────────────────────────────────────
ara_toplam = 0.0
indirim_toplam = 0.0
kdv_toplam = 0.0
dongu k icinde kalemler:
    ara_toplam = ara_toplam + k.brut()
    indirim_toplam = indirim_toplam + k.brut() - k.matrah()
    kdv_toplam = kdv_toplam + k.kdv_tutari()
matrah_toplam = ara_toplam - indirim_toplam
genel_toplam = kurus(matrah_toplam + kdv_toplam)

# ── Terminal ─────────────────────────────────────────────────────────
no = metin(v["fatura_no"])
tarih = metin(v["tarih"])
satici = metin(v["satici"]["ad"])
alici = metin(v["alici"]["ad"])
yazdir("")
yazdir(boya(f"  ◆ FATURA  {no}", "125;170;255") + boya(f"    {tarih}", "110;120;150"))
yazdir(boya(f"    {satici}  →  {alici}", "200;208;224"))
yazdir(cizgi("┏", "┳", "┓"))
yazdir(satir("#", "Ürün / hizmet", "Adet", "Birim fiyat", "İnd.", "KDV", "Tutar"))
yazdir(cizgi("┣", "╋", "┫"))
s = 1
dongu k icinde kalemler:
    ind = "—"
    eger k.indirim > 0:
        ind = f"%{k.indirim}"
    yazdir(satir(metin(s), k.ad, metin(k.adet), para(k.birim_fiyat), ind, f"%{k.kdv}", para(k.matrah())))
    s = s + 1
yazdir(cizgi("┗", "┻", "┛"))

fonksiyon toplam_satiri(ad: metin, deger: metin, rgb: metin) -> metin:
    don boya(f"{ad:>78}", "150;160;185") + boya(f"{deger:>17}", rgb)

yazdir(toplam_satiri("Ara toplam", para(ara_toplam), "200;208;224"))
yazdir(toplam_satiri("İndirim", "−" + para(indirim_toplam), "248;113;113"))
yazdir(toplam_satiri("KDV matrahı", para(matrah_toplam), "200;208;224"))
dongu oran icinde [20, 10, 1]:
    o_matrah = 0.0
    o_kdv = 0.0
    dongu k icinde kalemler:
        eger k.kdv == oran:
            o_matrah = o_matrah + k.matrah()
            o_kdv = o_kdv + k.kdv_tutari()
    eger o_kdv > 0.0:
        yazdir(toplam_satiri(f"KDV %{oran}  ({para(o_matrah)} üzerinden)", para(o_kdv), "200;208;224"))
yazdir(toplam_satiri("GENEL TOPLAM", para(genel_toplam), "74;222;128"))

# ── Belge: aynı veriden PDF + Excel ──────────────────────────────────
klasor = c.secenek("cikti").deger_veya(".")
b = belge.yeni(f"Fatura {no}")
belge.altbilgi(b, f"{satici} · {no}")
belge.baslik(b, "FATURA", 1)
belge.paragraf(b, f"Fatura no: {no}    Tarih: {tarih}")
belge.baslik(b, "Satıcı", 3)
belge.paragraf(b, satici + " — " + metin(v["satici"]["adres"]) + " — " + metin(v["satici"]["vergi"]))
belge.baslik(b, "Alıcı", 3)
belge.paragraf(b, alici + " — " + metin(v["alici"]["adres"]) + " — " + metin(v["alici"]["vergi"]))
belge.baslik(b, "Kalemler", 2)
belge.tablo_basligi(b, ["#", "Ürün / hizmet", "Miktar × fiyat", "İnd. / KDV", "Tutar"])
s = 1
dongu k icinde kalemler:
    ind = "—"
    eger k.indirim > 0:
        ind = f"%{k.indirim}"
    belge.tablo_satiri(b, [metin(s), metin(k.ad), f"{k.adet} × {para(k.birim_fiyat)}", f"{ind} / %{k.kdv}", para(k.matrah())])
    s = s + 1
belge.baslik(b, "Özet", 2)
belge.tablo_basligi(b, ["Kalem", "Tutar"])
belge.tablo_satiri(b, ["Ara toplam", para(ara_toplam)])
belge.tablo_satiri(b, ["İndirim", "-" + para(indirim_toplam)])
belge.tablo_satiri(b, ["KDV matrahı", para(matrah_toplam)])
belge.tablo_satiri(b, ["KDV toplamı", para(kdv_toplam)])
belge.tablo_satiri(b, ["GENEL TOPLAM", para(genel_toplam)])
belge.vurgu(b, f"Ödenecek tutar: {para(genel_toplam)}")

yazdir("")
eger belge.pdf_yaz(b, klasor + "/fatura.pdf"):
    yazdir(boya(f"  ✓ {klasor}/fatura.pdf yazıldı", "74;222;128"))
degilse:
    yazdir(boya("  ✗ PDF yazılamadı", "248;113;113"))
eger belge.xlsx_yaz(b, klasor + "/fatura.xlsx"):
    yazdir(boya(f"  ✓ {klasor}/fatura.xlsx yazıldı", "74;222;128"))
belge.kapat(b)