If ficheType.Equals("Bankadan Çek Ödemesi") Or ficheType.Equals("Bankadan Senet Ödemesi") Then

 Try

 Dim DOC As Integer 'belge tipi, çek yada senet
 Dim ResultDesc As String = String.Empty
 'Tahsil Edilen Çekler
 Dim arrTransacitons As DataRow()
 If CmbGrupla.SelectedIndex = 0 Then '0:Evet 1:Hayır
 arrTransacitons = dt.[Select]("FICHE_TYPE = '" & ficheType & "' AND FICHE_DATE='" & ficheDate.ToString("dd.MM.yyyy") & "' AND LOGO_DIVISION='" & ficheDIVISION & "' AND LOGO_BRANCH='" & ficheBRANCH & "'")
 End If
 If CmbGrupla.SelectedIndex = 1 Then '0:Evet 1:Hayır
 arrTransacitons = dt.[Select]("FICHE_TYPE = '" & ficheType & "' AND FICHE_DATE='" & ficheDate.ToString("dd.MM.yyyy") & "' AND LOGO_DIVISION='" & ficheDIVISION & "' AND LOGO_BRANCH='" & ficheBRANCH & "' AND ROWNO='" & ficheRowNo & "'")
 End If
 For j As Integer = 0 To arrTransacitons.Length - 1

 'Doviz tipi okunuyor
 Dim curRate As Double = Convert.ToDouble(arrTransacitons(j)("CUR_RATE"))
 If curRate = 0 Then
 curRate = 1
 End If

 If ficheType.Equals("Bankadan Çek Ödemesi") Then
 DOC = 3
 ResultDesc = "(CO)"
 End If
 If ficheType.Equals("Bankadan Senet Ödemesi") Then
 DOC = 4
 ResultDesc = "(SO)"
 End If

 'ÇekSenetKart Bilgileri Alınıyor
 Dim CekSenKartRec As DataRow = getCSKart(conn, arrTransacitons(j)("ACCOUNT_CODE").ToString(), DOC)
 Dim csDUEDATE As Date = Convert.ToDateTime(CekSenKartRec("VADETRH"))
 Dim csAMOUNT As Double = Convert.ToDecimal(CekSenKartRec("DOVTUT"))
 Dim csTRCURR As Integer = Convert.ToInt32(CekSenKartRec("DOVTIP"))
 Dim csTRNET As Double = Convert.ToDecimal(CekSenKartRec("TUTAR"))
 Dim csCUSTOMER As String = CekSenKartRec("SC_VERENK").ToString()
 Dim csTahsilBankaHesapKodu As String = CekSenKartRec("SC_VERILENK").ToString()
 Dim NetCekDekont As DekCekSen
 If DOC = 3 Then
 NetCekDekont = GlobalParameters.NetKernel.yeniCSDekont(GlobalParameters.NetSirket, TDekCSTip.csCek)
 Else
 NetCekDekont = GlobalParameters.NetKernel.yeniCSDekont(GlobalParameters.NetSirket, TDekCSTip.csSenet)
 End If

 NetCekDekont.Aciklama = arrTransacitons(j)("DESCRIPTION").ToString()
 NetCekDekont.AlacakCari = csTahsilBankaHesapKodu
 NetCekDekont.C_M = "B"
 NetCekDekont.Dekont_Tarihi = ficheDate

 NetCekDekont.Fisno = arrTransacitons(j)("ACCOUNT_CODE").ToString()

 NetCekDekont.Islem_Tarihi = ficheDate

 NetCekDekont.ReferansKodu = arrTransacitons(j)("CENTER_CODE").ToString()
 NetCekDekont.SC_NO = arrTransacitons(j)("ACCOUNT_CODE").ToString()
 If DOC = 3 Then
 NetCekDekont.Seri = GlobalParameters.BnkCekOdemeSeri
 Else
 NetCekDekont.Seri = GlobalParameters.BnkSenOdemeSeri
 End If

 NetCekDekont.Banka_Kodu = bankAccCode
 NetCekDekont.Proje_Kodu = arrTransacitons(j)("PROJECT_CODE").ToString()
 NetCekDekont.Plasiyer_Kodu = arrTransacitons(j)("SALESMAN").ToString()
 NetCekDekont.TTHesap_Kodu = csTahsilBankaHesapKodu
 NetCekDekont.VirmanHesapKodu = bankAccCode
 If selectedCurrency <> 0 Then
 NetCekDekont.DovizTipi = Convert.ToInt16(selectedCurrency)
 NetCekDekont.DovizKuru = curRate
 NetCekDekont.Tutar = csAMOUNT * curRate
 MsgBox("NetCekDekont.DovizTipi=" & NetCekDekont.DovizTipi)
 MsgBox("NetCekDekont.DovizKuru=" & NetCekDekont.DovizKuru)
 MsgBox("NetCekDekont.Tutar=" & NetCekDekont.Tutar)
 End If
 If DOC = 3 Then
 NetCekDekont.BCSDOdeme(TCekSenType.csBCEK) 'MURAT KULAC SCMCEK METODU DEĞİŞTİRİLDİ
 Else
 NetCekDekont.BCSDOdeme(TCekSenType.csBSEN) 'MURAT KULAC SCBSEN METODU DEĞİŞTİRİLDİ
 End If