Yeni KDV Oranları

[sinnerman74]

Merhaba;

Bildiğiniz gibi KDV oranı %18 den %20 ye yükseltildi. Benim sorum Logo GO 1.95 versiyonu kullanıyorum. Eski malzeme kartlarındaki %18 olan KDV oranını nasıl bir sql sorgu komutu ile tek seferde %20 yapabilirim? Vereceğiniz cevaplara şimdiden tşk ederim.

 

[denizfatihi]

sorgu içeriği kısmında kdv alanını aşağıda gibi kontrol edebilirsin.

CASE KDV_SUTUNU
WHEN 18 THEN 20

ELSE KDV_SUTUNU
END;

 

[sinnerman74]

sorgu içeriği kısmında kdv alanını aşağıda gibi kontrol edebilirsin.

CASE KDV_SUTUNU
WHEN 18 THEN 20

ELSE KDV_SUTUNU
END;

tşk ederim cevap için ama birebir komut bu değil

 

[Haluk]

Bende Logo yok ama bir benzeri ekli Excel dosyasında olduğu gibi aşağıdaki kodla yapılabilir;

Sub Test()
'   Haluk - 10/07/2023
    Dim adoCN As Object, TargetFile As String, strSQL As String

    Set adoCN = CreateObject("ADODB.Connection")

    TargetFile = ThisWorkbook.FullName

    adoCN.Provider = "Microsoft.ACE.OLEDB.12.0"
    adoCN.Properties("Data Source") = TargetFile
    adoCN.Properties("Extended Properties") = "Excel 12.0; HDR=Yes"
    adoCN.Open
   
    strSQL = " Update [Rapor$] As R " & _
             " Set R.[KDV] = 20 " & _
             " Where R.[KDV] = 18"

    adoCN.Execute (strSQL)

    strSQL = " Update [Rapor$] As R " & _
             " Set R.[KDV] = 10 " & _
             " Where R.[KDV] = 8"

    adoCN.Execute (strSQL)

    MsgBox "KDV düzenlemesi yapildi....", vbInformation
      
    adoCN.Close
    Set adoCN = Nothing
End Sub

Örnek dosya:

SQL_Update_Set3_MultipleValues.xlsm dosyasını indir - download

SQL_Update_Set3_MultipleValues.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

Aşağıdaki kod ise; 18 olan KDV'leri 20 olarak revize ederken, 8 olan KDV'leri de 10 olarak tek bir SQL komutu içinde revize eder.

Sub Test2()
'   Haluk - 10/07/2023
    Dim adoCN As Object, TargetFile As String, strSQL As String
    
    Set adoCN = CreateObject("ADODB.Connection")
   
    TargetFile = ThisWorkbook.FullName
   
    adoCN.Provider = "Microsoft.ACE.OLEDB.12.0"
    adoCN.Properties("Data Source") = TargetFile
    adoCN.Properties("Extended Properties") = "Excel 12.0; HDR=Yes"
    adoCN.Open
       
    strSQL = " Update [Rapor$] As R " & _
             " Set R.[KDV] = IIF(R.[KDV]= 18, 20, IIF(R.[KDV]= 8, 10, R.[KDV])) Where R.[KDV] Is Not Null"
  
    adoCN.Execute (strSQL)
        
    MsgBox "KDV düzenlemesi yapildi....", vbInformation
          
    adoCN.Close
    Set adoCN = Nothing
End Sub

.

 

[sinnerman74]

Bende Logo yok ama bir benzeri ekli Excel dosyasında olduğu gibi aşağıdaki kodla yapılabilir;

Sub Test()
'   Haluk - 10/07/2023
    Dim adoCN As Object, TargetFile As String, strSQL As String
 
    Set adoCN = CreateObject("ADODB.Connection")

    TargetFile = ThisWorkbook.FullName

    adoCN.Provider = "Microsoft.ACE.OLEDB.12.0"
    adoCN.Properties("Data Source") = TargetFile
    adoCN.Properties("Extended Properties") = "Excel 12.0; HDR=Yes"
    adoCN.Open
    
    strSQL = " Update [Rapor$] As R " & _
             " Set R.[KDV] = 20 " & _
             " Where R.[KDV] = 18"

    adoCN.Execute (strSQL)

    strSQL = " Update [Rapor$] As R " & _
             " Set R.[KDV] = 10 " & _
             " Where R.[KDV] = 8"

    adoCN.Execute (strSQL)
 
    MsgBox "KDV düzenlemesi yapildi....", vbInformation
       
    adoCN.Close
    Set adoCN = Nothing
End Sub

Örnek dosya:

SQL_Update_Set3.xlsm dosyasını indir - download

SQL_Update_Set3.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

Aşağıdaki kod ise; 18 olan KDV'leri 20 olarak revize ederken, 8 olan KDV'leri de 10 olarak tek bir SQL komutu içinde revize eder.

Sub Test2()
'   Haluk - 10/07/2023
    Dim adoCN As Object, TargetFile As String, strSQL As String
   
    Set adoCN = CreateObject("ADODB.Connection")
  
    TargetFile = ThisWorkbook.FullName
  
    adoCN.Provider = "Microsoft.ACE.OLEDB.12.0"
    adoCN.Properties("Data Source") = TargetFile
    adoCN.Properties("Extended Properties") = "Excel 12.0; HDR=Yes"
    adoCN.Open
      
    strSQL = " Update [Rapor$] As R " & _
             " Set R.[KDV] = IIF(R.[KDV]= 18, 20, IIF(R.[KDV]= 8, 10,'')) Where R.[KDV] Is Not Null"
 
    adoCN.Execute (strSQL)
       
    MsgBox "KDV düzenlemesi yapildi....", vbInformation
         
    adoCN.Close
    Set adoCN = Nothing
End Sub

.

.İlginiz için çok tşk ederim. Logo kullanan arkadaşlara yardımcı olması için ben paylaşım yapayım. Başka bir gruptan arkadaş yardımcı oldu bana.


SELECT * INTO LG_006_ITEMS_07072023 FROM LG_006_ITEMS
UPDATE LG_006_ITEMS SET VAT=10,RETURNPRVAT=10,RETURNVAT=10,SELLVAT=10,SELLPRVAT=10 WHERE VAT=8
UPDATE LG_006_ITEMS SET VAT=20,RETURNPRVAT=20,RETURNVAT=20,SELLVAT=20,SELLPRVAT=20 WHERE VAT=18

 

[Haluk]

Örnek dosyada ben temizlik ürünlerinde KDV oranını %8'den %10'a çıkartmıştım. Gördüğüm kadarıyla siz de bütün %8 oranları %10 olarak güncelliyorsunuz ama durum öyle değil.......... Temizlik ürünlerinde KDV %8'den %20'e çıktı.

Link:
Yeni KDV Oranları , E-Ticaret Sitesi Sahipleri Nasıl Etkilenecek? (ideasoft.com.tr)


Layout 1 (resmigazete.gov.tr)


Detaylı olarak anlamak için aşağıdaki linkte yer alan 30 Aralık 2007 tarihli Resmi Gazeteyi incelemek gerekiyor....

T.C. Resmî Gazete (resmigazete.gov.tr)

.