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();
}
}
}
}