18 Ocak 2017 Çarşamba
Netsis Dinamik Kodlama ile Trigger Disable
Netsis Dinamik Kodlama ile Trigger Disable
set rs = Netsiscore.Netlibdb.GetNewQuery
sorgu = "disable trigger ebtrg_ucret_d ON perrc..TBLSICIL"
rs.recsql(sorgu)
rs.close
set rs= nothing
Sql server giriş error domain\username 18456
Sql server giriş error domain\username 18456
Sql server auth şifresini unuttuysanız ve windows auth. ile bağlanmaya çalıştığınızda 18456 hatası alıyorsanız sebebi ;
Sql serverın kurulduğu windows kullanıcısı ile , windowsa login olup sonrasında windows auth ile deneyebilirsiniz.
17 Ocak 2017 Salı
Netsis Stok kodu açıldığında mail
Netsis Stok kodu açıldığında mail
Stok kartı kayıtları formunda ,stokmas_inq - beforepost event aşağıdaki script kullanılabilir.
SET QRY =NETSISCORE.NetLibDB.GetNewQuery
STR= "SELECT COUNT(*) FROM TBLSTSABIT WHERE STOK_KODU='" & STOK_KODUDB.TEXT & "'"
QRY.RECSQL(STR)
If QRY.FIELDS(0).ASINTEGER=0 Then
Dim mail,cc,subject,icerik
mail="sdikmenli@abana.com.tr"
cc="smetin@abana.com.tr"
subject= "Yeni Acilan Stok"
icerik ="NETSISISLEM" & CHR(10) & CHR(10) & "<p>"
icerik = icerik + ""
icerik = icerik + "<B>Stok Kodu:</B>" & STOK_KODUDB.TEXT & "<br/>"
icerik = icerik + "<B>Stok Adi :</B>" & STOK_ADI.TEXT
call netsiscore.NetLibEMail.EPostaGonder(mail,cc,subject,"",icerik)
End If
Netsis Rapor kolon sıralaması değiştirmek
Netsis Rapor kolon sıralaması değiştirmek
Trapor form\Rapor kapanis event ,
‘ilk olarak araya 2 kolon ekleniyor
‘4 sabit degeri, shilt columns anlamina gelmektedir.
‘1 : baslangic satir numarasi
‘6: baslangic kolon numarasi
‘ diger 2 parametre bitis degerlerini gostermektedir.
RAPORBOOK.InsertRange 1, 6, 16384, 7, 4
‘ilk 2 parametre : baslangic & bitis satir, sutun degegeri
‘sonra 2 parametre : bitis…
‘0: satir degisiklik degeri
‘-4: secili alani 4 geriye getir…
RAPORBOOK.MoveRange 1, 10, 16384, 11, 0, -4
Netsis Modül Geçiş
Netsis Modül Geçiş
Örneğin cari kart tanımlarken cari irtibat bilgilerine geçmek istersek ,
Set WshShell = CreateObject("WScript.Shell") 'Alt + K WshShell.SendKeys ("%K") 'Cari irtibat bilgileri
WshShell.SendKeys ("C") 'Enter WshShell.SendKeys ("{ENTER}")
Netsis Şirketler arası Çek aktarımı
Netsis Şirketler arası Çek aktarımı
set sorgu9=netsiscore.NetLibDB.GetNewQuery
cumle9 = "SELECT DB_NAME() AS SIRKET"
sorgu9.RecSQL(cumle9)
VTADI = sorgu9.fieldbyname("SIRKET").AsString
IF NETSISCORE.NetLibSession.AktifProgramNo=3 AND PROJE_KODU.TEXT="K" THEN
Set Kernel = CreateObject("NetOpenX50.Kernel")
Set Sirket = Kernel.yeniSirket(vtMSSQL, "DENEME13", "TEMELSET", "", "NETSIS", "NET1", NetsisCore.NetLibSession.LogicalSegmentValue)
Set HSirket = Kernel.yeniSirket(vtMSSQL, "GUNTAS13", "TEMELSET", "", "NETSIS", "NET1", NetsisCore.NetLibSession.LogicalSegmentValue)
Set CekSenetAna = Kernel.yeniCekSenAna(Sirket, csMCEK)
Set HCekSenetAna = Kernel.yeniCekSenAna(HSirket, csMCEK)
Set CekSenetOkunan = CekSenetAna.OkunanCS
Set HCekSenet = HCekSenetAna.EvrakYeni
If CekSenetAna.kayitOku(4, " sc_alb_no='"&sc_alb_no.text&"' " ) Then
MsgBox "kayit açildi"
CekSenetAna.kayitOku (0)
HCekSenet.SC_NO=CekSenetOkunan.SC_NO
HCekSenet.GIRIS_BORDRO=CekSenetOkunan.GIRIS_BORDRO
HCekSenet.SC_GIRTRH=CekSenetOkunan.SC_GIRTRH
HCekSenet.VADETRH=CekSenetOkunan.VADETRH
HCekSenet.SC_CIKTRH=CekSenetOkunan.SC_CIKTRH
HCekSenet.SC_ODETRH=CekSenetOkunan.SC_ODETRH
HCekSenet.SC_VERENK=CekSenetOkunan.SC_VERENK
HCekSenet.SC_ABORCLU=CekSenetOkunan.SC_ABORCLU
HCekSenet.AS_C=CekSenetOkunan.AS_C
HCekSenet.SC_VERILENK=CekSenetOkunan.SC_VERILENK
HCekSenet.SC_VERYCM=CekSenetOkunan.SC_VERYCM
HCekSenet.SC_BANKNO=CekSenetOkunan.SC_BANKNO
HCekSenet.SC_SONDUR=CekSenetOkunan.SC_SONDUR
HCekSenet.SC_YERI=CekSenetOkunan.SC_YERI
HCekSenet.RAPOR_KODU=CekSenetOkunan.RAPOR_KODU
HCekSenet.SC_VERB_NO=CekSenetOkunan.SC_VERB_NO
HCekSenet.YERI=CekSenetOkunan.YERI
HCekSenet.C_NUMARA=CekSenetOkunan.C_NUMARA
HCekSenet.GIRILDIGIYER=CekSenetOkunan.GIRILDIGIYER
HCekSenet.CEKSERI=CekSenetOkunan.CEKSERI
HCekSenet.Tutar=CekSenetOkunan.Tutar
HCekSenet.Proje_Kodu=CekSenetOkunan.Proje_Kodu
Hceksenet.Dovtip=CekSenetOkunan.Dovtip
Hceksenet.Dovtut=CekSenetOkunan.Dovtut
Hceksenet.CEK_SUBE=CekSenetOkunan.CEK_SUBE
Hceksenet.CEK_IL=CekSenetOkunan.CEK_IL
Hceksenet.CEK_ILCE=CekSenetOkunan.CEK_ILCE
Set sorgu2 = Netsiscore.Netlibdb.GetNewQuery
cumle2 = "update GUNTAS13..TBLMCEKNO SET SUBE_KODU=0, SERI=LEFT('"&CekSenetOkunan.SC_NO&"',1),SIRA_NO='"&CekSenetOkunan.SC_NO&"',ALB_NO='"&SC_ALB_NO.TEXT&"' "
sorgu2.recsql (cumle2)
HCekSenetAna.EvraklariKaydet (ektCekSenAlma)
Set sorgu = Netsiscore.Netlibdb.GetNewQuery
cumle = "select count(*) from TBLMCEK WHERE sc_alb_no='"&sc_alb_no.text&"'"
sorgu.recsql (cumle)
SAY = sorgu.Fields(0).AsInteger
for i=2 to SAY
CekSenetAna.KayitOku(1)
HCekSenet.SC_NO=CekSenetOkunan.SC_NO
HCekSenet.GIRIS_BORDRO=CekSenetOkunan.GIRIS_BORDRO
HCekSenet.SC_GIRTRH=CekSenetOkunan.SC_GIRTRH
HCekSenet.VADETRH=CekSenetOkunan.VADETRH
HCekSenet.SC_CIKTRH=CekSenetOkunan.SC_CIKTRH
HCekSenet.SC_ODETRH=CekSenetOkunan.SC_ODETRH
HCekSenet.SC_VERENK=CekSenetOkunan.SC_VERENK
HCekSenet.SC_ABORCLU=CekSenetOkunan.SC_ABORCLU
HCekSenet.AS_C=CekSenetOkunan.AS_C
HCekSenet.SC_VERILENK=CekSenetOkunan.SC_VERILENK
HCekSenet.SC_VERYCM=CekSenetOkunan.SC_VERYCM
HCekSenet.SC_BANKNO=CekSenetOkunan.SC_BANKNO
HCekSenet.SC_SONDUR=CekSenetOkunan.SC_SONDUR
HCekSenet.SC_YERI=CekSenetOkunan.SC_YERI
HCekSenet.RAPOR_KODU=CekSenetOkunan.RAPOR_KODU
HCekSenet.SC_VERB_NO=CekSenetOkunan.SC_VERB_NO
HCekSenet.YERI=CekSenetOkunan.YERI
HCekSenet.C_NUMARA=CekSenetOkunan.C_NUMARA
HCekSenet.GIRILDIGIYER=CekSenetOkunan.GIRILDIGIYER
HCekSenet.CEKSERI=CekSenetOkunan.CEKSERI
HCekSenet.Tutar=CekSenetOkunan.Tutar
HCekSenet.Proje_Kodu=CekSenetOkunan.Proje_Kodu
Hceksenet.Dovtip=CekSenetOkunan.Dovtip
Hceksenet.Dovtut=CekSenetOkunan.Dovtut
Hceksenet.CEK_SUBE=CekSenetOkunan.CEK_SUBE
Hceksenet.CEK_IL=CekSenetOkunan.CEK_IL
Hceksenet.CEK_ILCE=CekSenetOkunan.CEK_ILCE
Set sorgu3 = Netsiscore.Netlibdb.GetNewQuery
cumle3 = "update GUNTAS13..TBLMCEKno SET SUBE_KODU=0, SERI=LEFT('"&CekSenetOkunan.SC_NO&"',1),SIRA_NO='"&CekSenetOkunan.SC_NO&"',ALB_NO='"&SC_ALB_NO.TEXT&"' "
sorgu3.recsql (cumle3)
sorgu3.close
set sorgu3= nothing
HCekSenetAna.EvraklariKaydet (ektCekSenAlma)
next
sorgu2.close
set sorgu2= nothing
sorgu.close
set sorgu= nothing
end if
Set HCekSenet = Nothing
'Set CekSenet = Nothing
Set Sirket = Nothing
Set CekSenetOkunan = Nothing
Call Kernel.FreeNetsisLibrary
Set Kernel = Nothing
END IF
sorgu9.close
set sorgu9 = Nothing
set sorgu9=netsiscore.NetLibDB.GetNewQuery
cumle9 = "SELECT DB_NAME() AS SIRKET"
sorgu9.RecSQL(cumle9)
VTADI = sorgu9.fieldbyname("SIRKET").AsString
IF NETSISCORE.NetLibSession.AktifProgramNo=3 AND PROJE_KODU.TEXT="K" THEN
Set Kernel = CreateObject("NetOpenX50.Kernel")
Set Sirket = Kernel.yeniSirket(vtMSSQL, "DENEME13", "TEMELSET", "", "NETSIS", "NET1", NetsisCore.NetLibSession.LogicalSegmentValue)
Set HSirket = Kernel.yeniSirket(vtMSSQL, "GUNTAS13", "TEMELSET", "", "NETSIS", "NET1", NetsisCore.NetLibSession.LogicalSegmentValue)
Set CekSenetAna = Kernel.yeniCekSenAna(Sirket, csMCEK)
Set HCekSenetAna = Kernel.yeniCekSenAna(HSirket, csMCEK)
Set CekSenetOkunan = CekSenetAna.OkunanCS
Set HCekSenet = HCekSenetAna.EvrakYeni
If CekSenetAna.kayitOku(4, " sc_alb_no='"&sc_alb_no.text&"' " ) Then
MsgBox "kayit açildi"
CekSenetAna.kayitOku (0)
HCekSenet.SC_NO=CekSenetOkunan.SC_NO
HCekSenet.GIRIS_BORDRO=CekSenetOkunan.GIRIS_BORDRO
HCekSenet.SC_GIRTRH=CekSenetOkunan.SC_GIRTRH
HCekSenet.VADETRH=CekSenetOkunan.VADETRH
HCekSenet.SC_CIKTRH=CekSenetOkunan.SC_CIKTRH
HCekSenet.SC_ODETRH=CekSenetOkunan.SC_ODETRH
HCekSenet.SC_VERENK=CekSenetOkunan.SC_VERENK
HCekSenet.SC_ABORCLU=CekSenetOkunan.SC_ABORCLU
HCekSenet.AS_C=CekSenetOkunan.AS_C
HCekSenet.SC_VERILENK=CekSenetOkunan.SC_VERILENK
HCekSenet.SC_VERYCM=CekSenetOkunan.SC_VERYCM
HCekSenet.SC_BANKNO=CekSenetOkunan.SC_BANKNO
HCekSenet.SC_SONDUR=CekSenetOkunan.SC_SONDUR
HCekSenet.SC_YERI=CekSenetOkunan.SC_YERI
HCekSenet.RAPOR_KODU=CekSenetOkunan.RAPOR_KODU
HCekSenet.SC_VERB_NO=CekSenetOkunan.SC_VERB_NO
HCekSenet.YERI=CekSenetOkunan.YERI
HCekSenet.C_NUMARA=CekSenetOkunan.C_NUMARA
HCekSenet.GIRILDIGIYER=CekSenetOkunan.GIRILDIGIYER
HCekSenet.CEKSERI=CekSenetOkunan.CEKSERI
HCekSenet.Tutar=CekSenetOkunan.Tutar
HCekSenet.Proje_Kodu=CekSenetOkunan.Proje_Kodu
Hceksenet.Dovtip=CekSenetOkunan.Dovtip
Hceksenet.Dovtut=CekSenetOkunan.Dovtut
Hceksenet.CEK_SUBE=CekSenetOkunan.CEK_SUBE
Hceksenet.CEK_IL=CekSenetOkunan.CEK_IL
Hceksenet.CEK_ILCE=CekSenetOkunan.CEK_ILCE
Set sorgu2 = Netsiscore.Netlibdb.GetNewQuery
cumle2 = "update GUNTAS13..TBLMCEKNO SET SUBE_KODU=0, SERI=LEFT('"&CekSenetOkunan.SC_NO&"',1),SIRA_NO='"&CekSenetOkunan.SC_NO&"',ALB_NO='"&SC_ALB_NO.TEXT&"' "
sorgu2.recsql (cumle2)
HCekSenetAna.EvraklariKaydet (ektCekSenAlma)
Set sorgu = Netsiscore.Netlibdb.GetNewQuery
cumle = "select count(*) from TBLMCEK WHERE sc_alb_no='"&sc_alb_no.text&"'"
sorgu.recsql (cumle)
SAY = sorgu.Fields(0).AsInteger
for i=2 to SAY
CekSenetAna.KayitOku(1)
HCekSenet.SC_NO=CekSenetOkunan.SC_NO
HCekSenet.GIRIS_BORDRO=CekSenetOkunan.GIRIS_BORDRO
HCekSenet.SC_GIRTRH=CekSenetOkunan.SC_GIRTRH
HCekSenet.VADETRH=CekSenetOkunan.VADETRH
HCekSenet.SC_CIKTRH=CekSenetOkunan.SC_CIKTRH
HCekSenet.SC_ODETRH=CekSenetOkunan.SC_ODETRH
HCekSenet.SC_VERENK=CekSenetOkunan.SC_VERENK
HCekSenet.SC_ABORCLU=CekSenetOkunan.SC_ABORCLU
HCekSenet.AS_C=CekSenetOkunan.AS_C
HCekSenet.SC_VERILENK=CekSenetOkunan.SC_VERILENK
HCekSenet.SC_VERYCM=CekSenetOkunan.SC_VERYCM
HCekSenet.SC_BANKNO=CekSenetOkunan.SC_BANKNO
HCekSenet.SC_SONDUR=CekSenetOkunan.SC_SONDUR
HCekSenet.SC_YERI=CekSenetOkunan.SC_YERI
HCekSenet.RAPOR_KODU=CekSenetOkunan.RAPOR_KODU
HCekSenet.SC_VERB_NO=CekSenetOkunan.SC_VERB_NO
HCekSenet.YERI=CekSenetOkunan.YERI
HCekSenet.C_NUMARA=CekSenetOkunan.C_NUMARA
HCekSenet.GIRILDIGIYER=CekSenetOkunan.GIRILDIGIYER
HCekSenet.CEKSERI=CekSenetOkunan.CEKSERI
HCekSenet.Tutar=CekSenetOkunan.Tutar
HCekSenet.Proje_Kodu=CekSenetOkunan.Proje_Kodu
Hceksenet.Dovtip=CekSenetOkunan.Dovtip
Hceksenet.Dovtut=CekSenetOkunan.Dovtut
Hceksenet.CEK_SUBE=CekSenetOkunan.CEK_SUBE
Hceksenet.CEK_IL=CekSenetOkunan.CEK_IL
Hceksenet.CEK_ILCE=CekSenetOkunan.CEK_ILCE
Set sorgu3 = Netsiscore.Netlibdb.GetNewQuery
cumle3 = "update GUNTAS13..TBLMCEKno SET SUBE_KODU=0, SERI=LEFT('"&CekSenetOkunan.SC_NO&"',1),SIRA_NO='"&CekSenetOkunan.SC_NO&"',ALB_NO='"&SC_ALB_NO.TEXT&"' "
sorgu3.recsql (cumle3)
sorgu3.close
set sorgu3= nothing
HCekSenetAna.EvraklariKaydet (ektCekSenAlma)
next
sorgu2.close
set sorgu2= nothing
sorgu.close
set sorgu= nothing
end if
Set HCekSenet = Nothing
'Set CekSenet = Nothing
Set Sirket = Nothing
Set CekSenetOkunan = Nothing
Call Kernel.FreeNetsisLibrary
Set Kernel = Nothing
END IF
sorgu9.close
set sorgu9 = Nothing
Netsis Şirketler Arası Dekont Aktarımı
Netsis Şirketler Arası Dekont Aktarımı
set sorgu9=netsiscore.NetLibDB.GetNewQuery
cumle9 = "SELECT DB_NAME() AS SIRKET"
sorgu9.RecSQL(cumle9)
VTADI = sorgu9.fieldbyname("SIRKET").AsString
IF VTADI="DENEME12" AND (SERI.TEXT="BN" OR SERI.TEXT="bn") THEN
Set Kernel = CreateObject("NetOpenX50.Kernel")
Set Sirket = Kernel.yeniSirket(vtMSSQL, "DENEME13", "TEMELSET", "", "NETSIS", "1234567", NetsisCore.NetLibSession.LogicalSegmentValue)
Set HSirket = Kernel.yeniSirket(vtMSSQL, "GUNTAS13", "TEMELSET", "", "NETSIS", "1234567", NetsisCore.NetLibSession.LogicalSegmentValue)
Set Dekont = Kernel.yeniDekont(Sirket)
'Set HDekont = Kernel.yeniDekont(HSirket)
' DekoMas = default(Dekomas)
'Set DekontOkunan = Dekont.OkunanCS
'DekoMas.YeniNumaraAl(seri.text)
'Set HDekont = HDekont.EvrakYeni
Set DMas = Kernel.yeniDekomas(HSirket)
DMas.YeniNumaraAl(seri.text)
If Dekont.kayitOku(4, " Dekont_No='"&dekontno.text&"' and Seri_no='"&seri.text&"' " ) Then
MsgBox "AktarIm Basliyor.."
Dekont.kayitOku (0)
Set HDekont=DMas.KalemEkle (3)
HDekont.Kod = Dekont.Kod
HDekont.C_M=Dekont.C_M
HDekont.B_A = Dekont.B_A
HDekont.Tutar = Dekont.Tutar
HDekont.Sube_Kodu = Dekont.Sube_Kodu
HDekont.Proje_Kodu=Dekont.Proje_Kodu
HDekont.Aciklama1=Dekont.Aciklama1
HDekont.DEPO_KODU = Dekont.DEPO_KODU
HDekont.Fisno = Dekont.Fisno
HDekont.Plasiyer = Dekont.Plasiyer
HDekont.ValorGun = Dekont.ValorGun
HDekont.ValorTrh = Dekont.ValorTrh
HDekont.Kdv_Oran= Dekont.Kdv_Oran
HDekont.Kdv_Dahil= Dekont.Kdv_Dahil
HDekont.DovTL = Dekont.DovTL
HDekont.DovTip = Dekont.DovTip
HDekont.DOVTUT = Dekont.DOVTUT
HDekont.Tarih = Dekont.Tarih
Set sorgu2 = Netsiscore.Netlibdb.GetNewQuery
cumle2 = "update GUNTAS13..TBLDEKONO SET DEKONT_NO='"&DEKONTNO.TEXT&"' WHERE SERI_NO='"&DEKONT.SERI_NO&"' "
sorgu2.recsql (cumle2)
Set sorgu = Netsiscore.Netlibdb.GetNewQuery
cumle = "select count(*) from TBLdekotra WHERE seri_no='"&seri.text&"' and dekont_no='"&dekontno.text&"'"
sorgu.recsql (cumle)
SAY = sorgu.Fields(0).AsInteger
for i=2 to SAY
Dekont.KayitOku(1)
Set HDekont=DMas.KalemEkle(3)
HDekont.Kod = Dekont.Kod
HDekont.C_M=Dekont.C_M
HDekont.B_A = Dekont.B_A
HDekont.Tutar = Dekont.Tutar
HDekont.Sube_Kodu = Dekont.Sube_Kodu
HDekont.Proje_Kodu=Dekont.Proje_Kodu
HDekont.Aciklama1=Dekont.Aciklama1
HDekont.Kdv_Oran= Dekont.Kdv_Oran
HDekont.Kdv_Dahil= Dekont.Kdv_Dahil
HDekont.DEPO_KODU = Dekont.DEPO_KODU
HDekont.Fisno = Dekont.Fisno
HDekont.Plasiyer = Dekont.Plasiyer
HDekont.ValorGun = Dekont.ValorGun
HDekont.ValorTrh = Dekont.ValorTrh
HDekont.DovTL = Dekont.DovTL
HDekont.DovTip = Dekont.DovTip
HDekont.DOVTUT = Dekont.DOVTUT
HDekont.Tarih = Dekont.Tarih
Set sorgu3 = Netsiscore.Netlibdb.GetNewQuery
cumle3 = "update GUNTAS13..TBLDEKONO SET DEKONT_NO='"&DEKONTNO.TEXT&"' WHERE SERI_NO='"&DEKONT.SERI_NO&"' "
sorgu3.recsql (cumle3)
sorgu3.close
set sorgu3= nothing
next
sorgu2.close
set sorgu2= nothing
sorgu.close
set sorgu= nothing
end if
Set HDekont = Nothing
'Set CekSenet = Nothing
Set Sirket = Nothing
'Set CekSenetOkunan = Nothing
Call Kernel.FreeNetsisLibrary
Set Kernel = Nothing
DMas.Tamamla()
MsgBox("Aktarim Tamamlandi ...")
END IF
sorgu9.close
set sorgu9 = Nothing
set sorgu9=netsiscore.NetLibDB.GetNewQuery
cumle9 = "SELECT DB_NAME() AS SIRKET"
sorgu9.RecSQL(cumle9)
VTADI = sorgu9.fieldbyname("SIRKET").AsString
IF VTADI="DENEME12" AND (SERI.TEXT="BN" OR SERI.TEXT="bn") THEN
Set Kernel = CreateObject("NetOpenX50.Kernel")
Set Sirket = Kernel.yeniSirket(vtMSSQL, "DENEME13", "TEMELSET", "", "NETSIS", "1234567", NetsisCore.NetLibSession.LogicalSegmentValue)
Set HSirket = Kernel.yeniSirket(vtMSSQL, "GUNTAS13", "TEMELSET", "", "NETSIS", "1234567", NetsisCore.NetLibSession.LogicalSegmentValue)
Set Dekont = Kernel.yeniDekont(Sirket)
'Set HDekont = Kernel.yeniDekont(HSirket)
' DekoMas = default(Dekomas)
'Set DekontOkunan = Dekont.OkunanCS
'DekoMas.YeniNumaraAl(seri.text)
'Set HDekont = HDekont.EvrakYeni
Set DMas = Kernel.yeniDekomas(HSirket)
DMas.YeniNumaraAl(seri.text)
If Dekont.kayitOku(4, " Dekont_No='"&dekontno.text&"' and Seri_no='"&seri.text&"' " ) Then
MsgBox "AktarIm Basliyor.."
Dekont.kayitOku (0)
Set HDekont=DMas.KalemEkle (3)
HDekont.Kod = Dekont.Kod
HDekont.C_M=Dekont.C_M
HDekont.B_A = Dekont.B_A
HDekont.Tutar = Dekont.Tutar
HDekont.Sube_Kodu = Dekont.Sube_Kodu
HDekont.Proje_Kodu=Dekont.Proje_Kodu
HDekont.Aciklama1=Dekont.Aciklama1
HDekont.DEPO_KODU = Dekont.DEPO_KODU
HDekont.Fisno = Dekont.Fisno
HDekont.Plasiyer = Dekont.Plasiyer
HDekont.ValorGun = Dekont.ValorGun
HDekont.ValorTrh = Dekont.ValorTrh
HDekont.Kdv_Oran= Dekont.Kdv_Oran
HDekont.Kdv_Dahil= Dekont.Kdv_Dahil
HDekont.DovTL = Dekont.DovTL
HDekont.DovTip = Dekont.DovTip
HDekont.DOVTUT = Dekont.DOVTUT
HDekont.Tarih = Dekont.Tarih
Set sorgu2 = Netsiscore.Netlibdb.GetNewQuery
cumle2 = "update GUNTAS13..TBLDEKONO SET DEKONT_NO='"&DEKONTNO.TEXT&"' WHERE SERI_NO='"&DEKONT.SERI_NO&"' "
sorgu2.recsql (cumle2)
Set sorgu = Netsiscore.Netlibdb.GetNewQuery
cumle = "select count(*) from TBLdekotra WHERE seri_no='"&seri.text&"' and dekont_no='"&dekontno.text&"'"
sorgu.recsql (cumle)
SAY = sorgu.Fields(0).AsInteger
for i=2 to SAY
Dekont.KayitOku(1)
Set HDekont=DMas.KalemEkle(3)
HDekont.Kod = Dekont.Kod
HDekont.C_M=Dekont.C_M
HDekont.B_A = Dekont.B_A
HDekont.Tutar = Dekont.Tutar
HDekont.Sube_Kodu = Dekont.Sube_Kodu
HDekont.Proje_Kodu=Dekont.Proje_Kodu
HDekont.Aciklama1=Dekont.Aciklama1
HDekont.Kdv_Oran= Dekont.Kdv_Oran
HDekont.Kdv_Dahil= Dekont.Kdv_Dahil
HDekont.DEPO_KODU = Dekont.DEPO_KODU
HDekont.Fisno = Dekont.Fisno
HDekont.Plasiyer = Dekont.Plasiyer
HDekont.ValorGun = Dekont.ValorGun
HDekont.ValorTrh = Dekont.ValorTrh
HDekont.DovTL = Dekont.DovTL
HDekont.DovTip = Dekont.DovTip
HDekont.DOVTUT = Dekont.DOVTUT
HDekont.Tarih = Dekont.Tarih
Set sorgu3 = Netsiscore.Netlibdb.GetNewQuery
cumle3 = "update GUNTAS13..TBLDEKONO SET DEKONT_NO='"&DEKONTNO.TEXT&"' WHERE SERI_NO='"&DEKONT.SERI_NO&"' "
sorgu3.recsql (cumle3)
sorgu3.close
set sorgu3= nothing
next
sorgu2.close
set sorgu2= nothing
sorgu.close
set sorgu= nothing
end if
Set HDekont = Nothing
'Set CekSenet = Nothing
Set Sirket = Nothing
'Set CekSenetOkunan = Nothing
Call Kernel.FreeNetsisLibrary
Set Kernel = Nothing
DMas.Tamamla()
MsgBox("Aktarim Tamamlandi ...")
END IF
sorgu9.close
set sorgu9 = Nothing
Netsis kullanıcısı şifre sıfırlama
Netsis kullanıcısı şifre sıfırlama
Aşağıdaki ilk satırdaki script çalıştırılması sonucu , Netsis kullanıcısının şifresi ;
Boşluk
1
veya 0 oluyor.
Alternatif olarak 2. satırdaki scriptte denenebilir.
update TBLKULLANP set SIFRE='&',SIFRE1=NULL,SIFRE2=null,SIFRE3=null,
SIFRE4=null,SIFRE5=null,SIFRE6=null,SIFRE7=null,SIFRE8=null,YENIYONTEM='H'
where KULLANICI_ISIM='H@PPGR'
update TBLKULLANP set SIFRE='%',SIFRE1=NULL,SIFRE2=null,SIFRE3=null,
SIFRE4=null,SIFRE5=null,SIFRE6=null,SIFRE7=null,SIFRE8=null,YENIYONTEM='H'
where KULLANICI_ISIM='H@PPGR'
Aşağıdaki ilk satırdaki script çalıştırılması sonucu , Netsis kullanıcısının şifresi ;
Boşluk
1
veya 0 oluyor.
Alternatif olarak 2. satırdaki scriptte denenebilir.
update TBLKULLANP set SIFRE='&',SIFRE1=NULL,SIFRE2=null,SIFRE3=null,
SIFRE4=null,SIFRE5=null,SIFRE6=null,SIFRE7=null,SIFRE8=null,YENIYONTEM='H'
where KULLANICI_ISIM='H@PPGR'
update TBLKULLANP set SIFRE='%',SIFRE1=NULL,SIFRE2=null,SIFRE3=null,
SIFRE4=null,SIFRE5=null,SIFRE6=null,SIFRE7=null,SIFRE8=null,YENIYONTEM='H'
where KULLANICI_ISIM='H@PPGR'
Kaydol:
Kayıtlar (Atom)