Blog

C# ile LOGO Cari Hesap Kartı

using System;
using System.Collections.Generic;
using System.Data;
using System.Data.SqlClient;
using System.Linq;
using System.Text;
using System.Threading.Tasks;

namespace LogoExtreTest
{
    class Program
    {
        static void Main(string[] args)
        {
           Console.ForegroundColor = ConsoleColor.Green;
            decimal borc = 0, alacak = 0, kalan = 0;
            string carikodu = "";
            Console.Write("Cari Kodunu Giriniz : ");
            carikodu = Console.ReadLine();
            Console.WriteLine("\n");
            if (carikodu.Length > 5)
            {
              
            SqlConnection cnn = new SqlConnection(Degiskenler._lgSTR);
            string Sorgu = string.Concat(@"SELECT TOP 1000 [CARİ_ADI],modul,turu,[TARİH],[AY],[OK],[Y_KODU],[BELGE_NO],[ACIKLAMA],
            CASE WHEN MODUL = 4 AND 
            TURU = 1 THEN 'MAL ALIM FATURASI' WHEN MODUL = 4 AND TURU = 4 THEN 'ALINAN HIZMET FATURASI' WHEN MODUL = 4 AND 
            TURU = 6 THEN 'MAL ALIM İADE FATURASI' WHEN MODUL = 4 AND TURU = 13 THEN 'ALINAN FİYAT FARKI FATURASI' WHEN MODUL =4 AND 
            TURU = 3 THEN 'SATIŞ İADE FATURASI' WHEN MODUL = 5 AND TURU = 70 THEN 'TOPTAN SATIŞ FATURASI'
            WHEN MODUL = 4 AND TURU = 38 THEN 'KREDİ KARTI FİŞİ'
            WHEN MODUL = 4 AND 
            TURU = 9 THEN 'VERİLEN HİZMET FATURASI' WHEN MODUL = 4 AND 
            TURU = 14 THEN 'VERİLEN FİYAT FARKI FATURASI' WHEN MODUL = 5 AND TURU = 1 THEN 'NAKİT TAHSİLAT' WHEN MODUL = 5 AND 
            TURU = 2 THEN 'NAKİT ÖDEME' WHEN MODUL = 5 AND TURU = 3 THEN 'CARİ HESAP BORÇ DEKONTU' WHEN MODUL = 5 AND 
            TURU = 4 THEN 'CARİ HESAP ALACAK DEKONTU' WHEN MODUL = 5 AND TURU = 5 THEN 'CARİ HESAP VİRMAN' WHEN MODUL = 5 AND 
            TURU = 6 THEN 'CARİ HESAP KUR FARKI FİŞİ' WHEN MODUL = 5 AND TURU = 14 THEN 'CARİ HES. AÇILIŞ' WHEN MODUL = 6 AND 
            TURU = 1 THEN 'ÇEK GİRİŞİ' WHEN MODUL = 6 AND TURU = 3 THEN 'ÇEK ÇIKIŞ (CARİ HESABA)' WHEN MODUL = 7 AND 
            TURU = 1 THEN 'BANKA İŞLEM FİŞİ' WHEN MODUL = 7 AND TURU = 2 THEN 'BANKA VİRMAN FİŞİ' WHEN MODUL = 7 AND 
            TURU = 3 THEN 'GELEN HAVALE/EFT' WHEN MODUL = 7 AND TURU = 4 THEN 'GÖNDERİLEN HAVALE/EFT' WHEN MODUL = 7 AND 
            TURU = 5 THEN 'BANKA AÇILIŞ FİŞİ' WHEN MODUL = 10 AND TURU = 1 THEN 'BANKA AÇILIŞ FİŞİ' WHEN MODUL = 10 AND 
            TURU = 2 THEN 'BANKA AÇILIŞ FİŞİ' ELSE 'TANIMSIZ' END AS TUR
            ,convert(decimal(18,2),BORC) as BORC,convert(decimal(18,2),ALACAK) AS ALACAK
            ,[İŞYERİ],[MODUL],[SEHİR],[TELNO],[VERGI_NO],[V_DAIRE],[İLGİLİ],[IPTAL_DURUMU],[MUH_DURUMU],[KNO],[CARİ_KODU]
            FROM [GODB].[dbo].[V_CariEkstre]  WHERE cari_kodu='" + carikodu + "' ORDER BY TARİH");
                using (SqlDataAdapter adapter = new SqlDataAdapter(Sorgu, cnn))
                {
                    DataTable dt = new DataTable();
                    adapter.Fill(dt);
                    foreach (DataRow dr in dt.Rows)
                    {
                        borc += Convert.ToDecimal(dr["BORC"]);
                        alacak += Convert.ToDecimal(dr["ALACAK"]);
                    }
                    kalan = Convert.ToDecimal(borc - alacak);
                    Console.Write("Borç Bakiye Tutarı : " + borc.ToString("n2"));
                    Console.WriteLine("\n");
                    Console.Write("Alacak Bakiye Tutarı : " + alacak.ToString("n2"));
                    Console.WriteLine("\n");
                    Console.Write("Kalan Bakiye Tutarı : " + kalan.ToString("n2"));
                    Console.Read();
                }
            }
            else
            {
                Console.WriteLine("Yanlış Cari Kodu Girdiniz..");
                Console.Read();
            }
        }
    }
}