Serkan Sonmez's Diary

BlackListIP control on Serenity platform (.NET Core)

In the Serenity platform, if you want to block IPs that belong to people you do not want to come from outside in the .net core web project, you can follow the steps below.

1- First, create the IP definition script where you can enter the IP information of the person/company you want to block.

CREATE TABLE [dbo].[BlackList](

[BlackListId] [int] IDENTITY(1,1) NOT NULL,

[IpNumber] [varchar](100) NOT NULL,

[Description] [varchar](100) NULL,

CONSTRAINT [PK_BlackList] PRIMARY KEY CLUSTERED

(

[BlackListId] ASC

)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]

) ON [PRIMARY]

2- Then generate the Row, Controller, Enpoint and TypeScript codes for the BlackList table via Serenity.

3- Add the class that allows the detection of the external IP to the project. GetIPNumberService.cs

using System;
using System.Collections.Generic;
using System.Linq;
using System.Threading.Tasks;
using System.Net.Http;
using System.Threading.Tasks;

namespace FercamB2B.Web.Modules.Common.Helpers
{
public class GetIPNumberService
{
private readonly HttpClient _httpClient;

public GetIPNumberService(HttpClient httpClient)
{
_httpClient = httpClient;
}
public async Task<string> GetUserIpAsync()
{
try
{
var response = await _httpClient.GetStringAsync("https://ipv4.icanhazip.com");
return response.Trim();
}
catch
{
return null; // IP alınamazsa null döner
}
}
private class IpInfo
{
public string Ip { get; set; }
}
}
}

4- Add the following method to EndPoint.

[HttpPost]

public BlackListResponse CheckIfBlacklisted(IDbConnection connection)

{

BlackListResponse blackListResponse = new BlackListResponse();

// Senkron IP alma metodunu kullanın

var ipAddress = _getIPNumberService.GetUserIpAsync().GetAwaiter().GetResult();

if (ipAddress == null)

{

blackListResponse.Durum = false;

return blackListResponse; // IP alınamazsa, blacklistte değildir

}

var blacklistedIp = connection.TryFirst<MyRow>(q => q

.SelectTableFields()

.Where(new Criteria(MyRow.Fields.IpNumber) == ipAddress));

if(blacklistedIp!=null)

{

blackListResponse.Durum = true;

blackListResponse.IP = ipAddress;

}

else

{

blackListResponse.Durum = false;

}

return blackListResponse;

}

5- Add the IP control method to Loginpanel.ts.

this.byId('LoginButton').click(e => {

e.preventDefault();

if (!this.validateForm()) {

return;

}

let ipAdresi = "";

let blacklist = false;

Parametreler.BlackListService.CheckIfBlacklisted({

}, response4 => {

if (response4.Durum == true) {

Q.alert("Your IP address is blacklisted!");

blacklist = true;

return;

}

ipAdresi = response4.IP;

}, { async: false });

if (blacklist) {

return;

}

console.log("IP address used for login: " + ipAdresi);

As a result, the system that provides control of the entered IP works healthily in this way.

01.09.2023'den itibaren GİB tarafından zorunlu olan E-Fatura ve E-Arşiv'e karekod ekleme

Gelir İdaresi tarafından 01.09.2023'ten sonraki e-fatura ve e-irsaliyerde zorunlu hale getirilen Karekod(Qrcode) bilgisi için aşağıdaki adımları uygulayabilirsiniz.

Gelir İdaresi Başkanlığı tarafından yayınlanan duyuruya ulaşmak için tıklayınız.

E-Fatura için:

1- Öncelikle E-Fatura'da kullandığınız XSLT (tasarım) şablonunu notepad veya notepad++ ile açınız. <head> alanı içerisine <script type="text/javascript"> ile başlayan </script> ile biten kod parçacığını kopyalayıp kendi tasarımınızda head kod blokları arasına ekleyiniz.

2- Gib görselinin bulunduğu Html tagına veya firma logo'sunun altındaki tag kısmına aşağıdaki bölümü ekleyiniz.

<td width='40%' valign='top' align='right'>
<div id="qrcode"/>

<div id="qrvalue" style="vissibility: hidden; height: 30px;width: 30px; display:none">{"vkntckn":"<xsl:value-of select="n1:Invoice/cac:AccountingSupplierParty/cac:Party/cac:PartyIdentification/cbc:ID[@schemeID = 'TCKN' or @schemeID = 'VKN']"/>","avkntckn":"<xsl:value-of select="n1:Invoice/cac:AccountingCustomerParty/cac:Party/cac:PartyIdentification/cbc:ID[@schemeID = 'TCKN' or @schemeID = 'VKN']"/>","senaryo":"<xsl:value-of select="n1:Invoice/cbc:ProfileID"/>","tip":"<xsl:value-of select="n1:Invoice/cbc:InvoiceTypeCode"/>","tarih":"<xsl:value-of select="n1:Invoice/cbc:IssueDate"/>","no":"<xsl:value-of select="n1:Invoice/cbc:ID"/>","ettn":"<xsl:value-of select="n1:Invoice/cbc:UUID"/>","parabirimi":"<xsl:value-of select="n1:Invoice/cbc:DocumentCurrencyCode"/>","malhizmettoplam":"<xsl:value-of select="n1:Invoice/cac:LegalMonetaryTotal/cbc:LineExtensionAmount"/>",<xsl:for-each select="n1:Invoice/cac:TaxTotal/cac:TaxSubtotal[cac:TaxCategory/cac:TaxScheme/cbc:TaxTypeCode = '0015']"><xsl:text>"kdvmatrah</xsl:text>(<xsl:value-of select="cbc:Percent"/>)":"<xsl:value-of select="cbc:TaxableAmount"/>",</xsl:for-each><xsl:for-each select="n1:Invoice/cac:TaxTotal/cac:TaxSubtotal[cac:TaxCategory/cac:TaxScheme/cbc:TaxTypeCode = '0015']"><xsl:text>"hesaplanankdv</xsl:text>(<xsl:value-of select="cbc:Percent"/>)":"<xsl:value-of select="cbc:TaxAmount"/>",</xsl:for-each>"vergidahil":"<xsl:value-of select="n1:Invoice/cac:LegalMonetaryTotal/cbc:TaxInclusiveAmount"/>","odenecek":"<xsl:value-of select="n1:Invoice/cac:LegalMonetaryTotal/cbc:PayableAmount"/>"}</div>
<script type="text/javascript">
                                                var qrcode = new QRCode(document.getElementById("qrcode"), {
                                                width : 140,
                                                height : 140,
                                                correctLevel: QRCode.CorrectLevel.L,
                                                });
                                                qrcode.makeCode(document.getElementById("qrvalue").innerHTML)
</script>
</td>

E-Arşiv için:

1- Öncelikle E-Arşiv'e kullandığınız XSLT (tasarım) şablonunu notepad veya notepad++ ile açınız. <head> alanı içerisine <script type="text/javascript"> ile başlayan </script> ile biten kod parçacığını kopyalayıp kendi tasarımınızda head kod blokları arasına ekleyiniz.

2- Gib görselinin bulunduğu Html tagına veya firma logo'sunun altındaki tag kısmına aşağıdaki bölümü ekleyiniz.

<td width='40%' valign='top' align='right'>
<div id="qrcode"/>

<div id="qrvalue" style="vissibility: hidden; height: 30px;width: 30px; display:none">{"vkntckn":"<xsl:value-of select="n1:Invoice/cac:AccountingSupplierParty/cac:Party/cac:PartyIdentification/cbc:ID[@schemeID = 'TCKN' or @schemeID = 'VKN']"/>","avkntckn":"<xsl:value-of select="n1:Invoice/cac:AccountingCustomerParty/cac:Party/cac:PartyIdentification/cbc:ID[@schemeID = 'TCKN' or @schemeID = 'VKN']"/>","senaryo":"<xsl:value-of select="n1:Invoice/cbc:ProfileID"/>","tip":"<xsl:value-of select="n1:Invoice/cbc:InvoiceTypeCode"/>","tarih":"<xsl:value-of select="n1:Invoice/cbc:IssueDate"/>","no":"<xsl:value-of select="n1:Invoice/cbc:ID"/>","ettn":"<xsl:value-of select="n1:Invoice/cbc:UUID"/>","parabirimi":"<xsl:value-of select="n1:Invoice/cbc:DocumentCurrencyCode"/>","malhizmettoplam":"<xsl:value-of select="n1:Invoice/cac:LegalMonetaryTotal/cbc:LineExtensionAmount"/>",<xsl:for-each select="n1:Invoice/cac:TaxTotal/cac:TaxSubtotal[cac:TaxCategory/cac:TaxScheme/cbc:TaxTypeCode = '0015']"><xsl:text>"kdvmatrah</xsl:text>(<xsl:value-of select="cbc:Percent"/>)":"<xsl:value-of select="cbc:TaxableAmount"/>",</xsl:for-each><xsl:for-each select="n1:Invoice/cac:TaxTotal/cac:TaxSubtotal[cac:TaxCategory/cac:TaxScheme/cbc:TaxTypeCode = '0015']"><xsl:text>"hesaplanankdv</xsl:text>(<xsl:value-of select="cbc:Percent"/>)":"<xsl:value-of select="cbc:TaxAmount"/>",</xsl:for-each>"vergidahil":"<xsl:value-of select="n1:Invoice/cac:LegalMonetaryTotal/cbc:TaxInclusiveAmount"/>","odenecek":"<xsl:value-of select="n1:Invoice/cac:LegalMonetaryTotal/cbc:PayableAmount"/>"}</div>
<script type="text/javascript">
                                        var qrcode = new QRCode(document.getElementById("qrcode"), {
                                        width : 140,
                                        height : 140,
                                        correctLevel: QRCode.CorrectLevel.L,
                                        });
                                        qrcode.makeCode(document.getElementById("qrvalue").innerHTML)
</script>
</td>

Office 365 kullanan bir hesap üzerinden c# üzerinden mail gönderimi yaparken 535 5.7.139 Authentication unsuccessful hatası hakkında

Office 365 kullanan bir hesap üzerinden c# üzerinden mail gönderimi yaparken 535 5.7.139 Authentication unsuccessful, SmtpClientAuthentication is disabled for the Tenant hatası alırsanız Office 365 üzerinde bazı işlemler yapmanız gerekmektedir.

Öncelikle C# kodu:

class Program

{

static void Main(string[] args)

{

MailMessage msg = new MailMessage();

msg.To.Add(new MailAddress("serkansonmez16@gmail.com", "Serkan"));

msg.From = new MailAddress("mailuser@contoso.com", "support");

msg.Subject = "This is a Test Mail";

msg.Body = "This is a test message using Exchange OnLine";

msg.IsBodyHtml = true;

SmtpClient client = new SmtpClient();

client.UseDefaultCredentials = false ;

client.Credentials = new System.Net.NetworkCredential("mailuser@contoso.com", "MailPassword");

client.Port = 587; // You can use Port 25 if 587 is blocked (mine is!)

client.Host = "smtp.office365.com";

client.DeliveryMethod = SmtpDeliveryMethod.Network;

client.EnableSsl = true;

try

{

client.Send(msg);

//lblText.Text = "Message Sent Succesfully";

}

catch (Exception ex)

{

//lblText.Text = ex.ToString();

Console.WriteLine(ex.Message);

Console.Read();

}

Power Shell üzerinde yapılacaklar:

Önce Power Shell üzerinde exchange 365'e erişim için link üzerinden aşağıdaki kod çalıştırılır.

1-) https://www.powershellgallery.com/packages/ExchangeOnlineManagement/2.0.5

PS> Install-Module -Name ExchangeOnlineManagement -RequiredVersion 2.0.5

2- Admin kullanıcısına ait mail adresi girilecek, komutu çalıştırınca kullanıcı şifresini girmek gerekiyor.

Doğru şifreyi girdikten sonra Exchange'e ait tüm komutlar aktif hale geliyor.

PS>Connect-ExchangeOnline -UserPrincipalName adminmailaddress@contoso.com

3- Domain üzerinde SMTP aktif hale getirilmeli, aşağıdaki komut çalıştırılacak.

PS> Set-TransportConfig -SmtpClientAuthenticationDisabled $true

4- Gönderim yapılacak mail adresi için SMTP aktif hale getiriliyor.

PS> Set-CASMailbox -Identity sendingMail@contoso.com -SmtpClientAuthenticationDisabled $false

5- Yukarıdaki işlemleri yapsanız da hata almaya devam edebilirsiniz. Son hatanın düzeltilmesi için

TLS client gönderim için True yapılıyor.

PS> Set-TransportConfig -AllowLegacyTLSClients $true

Logo Tiger Muhasebe alt hesapları düzenleme sorgusu EMUHACCSUBACCASGN

Eğer Logo Tiger üzerinde muhasebe hesaplarının toplamları gözükmüyorsa aşağıdaki sorgu ile EMUHACCSUBACCASGN tablosunu yeniden üretebilirsiniz. Eğer mizan toplamları gelmiyorsa ve listeler üzerinde hareket gören muhasebe hesaplarının toplam rakamları gözükmüyorsa sorgu çalışmalıdır. Sorgu çalıştırılmadan önce tablonun yedeğini almayı ihmal etmeyiniz.

--select * from LG_081_EMUHACCSUBACCASGN

--DELETE FROM LG_081_EMUHACCSUBACCASGN

DECLARE @accRef INT, @code VARCHAR(50)

DECLARE Curs CURSOR FOR

SELECT

LOGICALREF, CODE

FROM

LG_081_EMUHACC

WHERE SUBACCOUNTS <> 0

OPEN Curs

FETCH NEXT FROM CurS

INTO @accRef, @code

WHILE @@FETCH_STATUS = 0

BEGIN

INSERT INTO LG_081_EMUHACCSUBACCASGN

SELECT

@accRef, LOGICALREF

FROM

LG_081_EMUHACC

WHERE

CODE LIKE @code+'.%'

FETCH NEXT FROM Curs

INTO @accRef, @code

END

CLOSE Curs

DEALLOCATE Curs;

INSERT INTO LG_081_EMUHACCSUBACCASGN

SELECT LOGICALREF, LOGICALREF FROM LG_081_EMUHACC

Logo Edefter "I/O Error 105" hatası hakkında

Logo Tiger3'de e-defter uygulamasını çalıştırdığınızda Berat gönderme ekranında "I/O Error 105" hatası geliyorsa büyük ihtimalle 2.67.00.00 öncesi versiyonu kullanıyor olabilirsiniz. Programı üst versiyona yükseltince sorun ortadan kalkıyor.

Ayrıca başka bir sorun Java versiyonundan da kaynaklanıyor olabilir. Kullandığımız Java versiyonu JRE 1.08.221 32 bit. Java versiyonunu https://www.oracle.com/tr/java/technologies/javase/javase8u211-later-archive-downloads.html#license-lightbox üzerinden indirebilirsiniz.

Merkez Bankası döviz kurlarını T-SQL ile çeken SQL scripti

--1- sql server ayarları

Use master

sp_configure 'show advanced options' , 1

Reconfigure with Override

sp_configure 'Ole Automation Procedures' , 1

Reconfigure with Override

-- 2.Döviz Kurlarının Yazılacağı Tablo oluşturuluyor

if not exists (select * from sys.tables where name = N'DOVIZKURLARI' and type = 'U')

begin

Create table DOVIZKURLARI (Tarih date,

CrossOrder Smallint,

Kod NVarchar(5),

CurrencyCode NVarchar(5),

UNIT varchar(50),

Isim varchar(100),

CurrencyName varchar(100) ,

ForexBuying float ,

ForexSelling float,

BanknoteBuying float,

BanknoteSelling float)

end

--3. Stored Procedure oluşturuluyor

if exists (select * from sys.objects where type = 'P' AND name = 'UPR_GetDovizKurlari_MerkezBankasi')

drop procedure UPR_GetDovizKurlari_MerkezBankasi

Create proc [dbo].[UPR_GetDovizKurlari_MerkezBankasi]

(@pYil Smallint, @pAy TinyInt, @pGun TinyInt)

begin

Declare @url as varchar(8000)

Set @url = 'https://www.tcmb.gov.tr/kurlar/today.xml'

Set @url = 'https://www.tcmb.gov.tr/kurlar/201903/12032019.xml'

Declare @XmlYilAy NVarchar(6), @XmlTarih NVarchar(10)

Set @XmlYilAy = Right('0000' + cast(@pYil as varchar(4)) , 4) + Right('00' + cast(@pAy as varchar(2)) , 2)

Set @XmlTarih = Right('00' + cast(@pGun as varchar(2)) , 2) + Right('00' + cast(@pAy as varchar(2)) , 2) + Right('0000' + cast(@pYil as varchar(4)) , 4)

If DateFromParts(@pYil, @pAy, @pGun) = DateAdd(dd,0,DateDiff(dd,0,GetDate())) --gelen parametrelergünün tarihi ise

Set @url = 'https://www.tcmb.gov.tr/kurlar/today.xml'

else

Set @url = 'https://www.tcmb.gov.tr/kurlar/' + @XmlYilAy + '/' + @XmlTarih + '.xml'

Print @url

declare @OBJ AS INT

declare @RESULT AS INT

EXEC @RESULT = SP_OACREATE 'MSXML2.XMLHTTP', @OBJ OUT

EXEC @RESULT = SP_OAMethod @OBJ , 'open' , null , 'GET', @url, false

EXEC @RESULT = SP_OAMethod @OBJ, send, NULL,''

If OBJECT_ID('tempdb..#XML') IS NOT Null DROP TABLE #XML

Create table #XML ( STRXML varchar(max))

Insert INTO #XML(STRXML) EXEC @RESULT = SP_OAGetProperty @OBJ, 'responseXML.xml'

--Select * From #XML

DECLARE @XML AS XML

SELECT @XML = STRXML FROM #XML

DROP TABLE #XML

DECLARE @HDOC AS INT

EXEC SP_XML_PREPAREDOCUMENT @HDOC OUTPUT , @XML

Delete from DOVIZKURLARI where tarih = DateFromParts(@pYil, @pAy, @pGun)

INSERT INTO DOVIZKURLARI ( Tarih,CrossOrder,Kod,CurrencyCode,UNIT,Isim,CurrencyName,ForexBuying,ForexSelling,BanknoteBuying,BanknoteSelling)

SELECT DateFromParts(@pYil, @pAy, @pGun) As Tarih,

* FROM OPENXML(@HDOC, 'Tarih_Date/Currency')

With (CrossOrder NVarchar(5), Kod Varchar(5), CurrencyCode NVarchar(5),

Unit varchar(50) 'Unit',

Isim varchar(100) 'Isim',

CurrencyName varchar(100) 'CurrencyName',

ForexBuying float 'ForexBuying',

ForexSelling float 'ForexSelling',

BanknoteBuying float 'BanknoteBuying',

BanknoteSelling float 'BanknoteSelling'

)

End

---2020,12,15 test amaçlı bir günlük YIL,AY,GÜN

exec UPR_GetDovizKurlari_MerkezBankasi 2020,12,15 --test amaçlı bir günlük

--4. iki tarih arası indir: Geçmiş döneme ait kurları indirebilmek için iki tarih arası sorguyu kullanabilirsiniz.

declare @IlkTarih datetime = '20150101'

declare @SonTarih datetime = '20201218'

declare @Yil int

declare @Ay int

declare @Gun int

WHILE (@IlkTarih<@SonTarih)

BEGIN

set @Yil = year(@IlkTarih)

set @Ay = month(@IlkTarih)

set @Gun = day(@IlkTarih)

exec UPR_GetDovizKurlari_MerkezBankasi @Yil,@Ay,@Gun

SET @IlkTarih = DATEADD(dd,1,@IlkTarih)

END

Serkan Sonmez's Diary

BlackListIP control on Serenity platform (.NET Core)

01.09.2023'den itibaren GİB tarafından zorunlu olan E-Fatura ve E-Arşiv'e karekod ekleme

Office 365 kullanan bir hesap üzerinden c# üzerinden mail gönderimi yaparken 535 5.7.139 Authentication unsuccessful hatası hakkında

Logo Tiger Muhasebe alt hesapları düzenleme sorgusu EMUHACCSUBACCASGN

Logo Edefter "I/O Error 105" hatası hakkında

Merkez Bankası döviz kurlarını T-SQL ile çeken SQL scripti

BlackListIP control on Serenity platform (.NET Core)

Android Uygulama Örneği

Facebook Card