Sistemci

Merhaba Arkadaşlar Çalıştığım Kurumda Günlük Olarak Nöbetçi Eczanelerin Listelendiği Bir Pano Yapılmak İsteniyor. Ben Verileri Excel,Word,Access Gibi Bir Programa Yazsam Bu Verileri AMS İle Sorgulatıp Ekrana Yansıtabilirmiyim.

Örnek : 23.09.2014 A Eczanesi - 24.09.2014 B Eczanesi - 25.09.2014 C Eczanesi Olarak Yazıcam Panoda Hangi Tarihte İsem O Tarihte Nöbetçi Eczane Hangisi İse Panoda O Gözüksün.  Bunu AMS de Yapabilirmiyiz.

ams ile SQLite ile basit bir şey yapıla bilir küçük bir proje paylaş yardımcı olalım kardeşim

kardeşim altına url ekleyebilrsin resimlerin yada mediaplayer plungini kullanabilirsin

sadece sayı girmek için kardeşim diğerini anlamadım nasıl göndereceksin yazıcıya ne demek istedin onu açıklarsan yardımcı olmak isterim

deger = Input.GetText("Input1")
kontrol=String.ToNumber(deger)
if (kontrol==0) then
Dialog.Message("Uyarı","Lütfen sayı girin.")
end

buyur kardeşim benim

http://www.mediafire.com/?cw4xysc76olg7mn 

kasa defteri olabilir abi alacak verecek yazabilir adam herşeyi cebine not eder ben kullanıyorum çokda hoş oluyor hatırlatmasıda oldumu ye ye bitmez :)

yok kardeşim malesef ok ve cancel var iki seçenek sadece

ee nasıl kullanacam peki kardeşim

https://www.dropbox.com/s/1ae16tlvyqljn15/AmsPluginMaker%201.1.msi

sağol kardeşim benim

yanlız serial istiyor kardeşim bu serial verebilir misin

selamün aleyküm arkadaşlar elinde olan arkadaşlar paylaşabilir mi programı elimdekini sildim şimdi bulamadım tşkler şimdiden

yazılım konusunda bende yardımcı olabilirim kardeşim

tamam Kardeş ne zaman Açarsın Faceden Eklesene

www.facebook.com/DjTurkishBoy

Bide isim neydi Kabul Edem, bende enqel Var :)

kardeşim facebook la benim işim olmuyor kullanmıyorum TeamViewer verirsen bakabilirim yoksa facebook bana ters.

kardeşim istersen TeamViewer özelden yollarsan yardımcı olmaya çalışırım

evet kardeşim doğru verileri ay gun yil olarak tek tek çek bu kadar kolay şuan evdeyim proje yenımda yok teknik servis programı yazacam Allah nasip ederse sen vesile oldun paylaşınca görürsün gerekirse sana apz atarım kardeşim

hocam çok çok saolsın ya hakkını nasıl ödücem ya  gerçekten hocam daha öncede sormuştum ama kitaro hocamın kodunu nereye yazacağım ben

önemli değil kardeşim. garanti bölümünde kaydederken yazacaksın bu kodları kardeşim

Not Silme Butonu Kardeşim

[spoiler]nSecilen = TreeList.GetSelected("liste1") -- secilene bak
if nSecilen ~= -1 then -- eğer seçilen varsa
nID = TreeList.GetCellText("liste1", 0, nSecilen)
sSoru = Dialog.Message("Uyarı!", nID .. " Not Kaydı silinecektir! Devam etmek istiyor musunuz?", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON2) -- soru sor
if sSoru == IDYES then -- eğer evet tusuna basilirsa
sql.baglan()
SQLite3Connection:execute("DELETE FROM note WHERE id='" .. nID .. "'")
sql.kapat()
Page.Jump("Page1") -- sayfayi yenile
end
end

sql.baglan()
db, err = SQLite3Connection:execute("SELECT * FROM note");
tVeri = db:fetch({}, "a")
TreeList.ClearRows("liste1")
while tVeri do

id = tVeri.id
adi = tVeri.adi
soyadi = tVeri.soyadi
adres = tVeri.adres
telefon = tVeri.telefon
mail = tVeri.mail
tarih = tVeri.tarih
not_al = tVeri.nott

TreeList.AddRow("liste1", id.."|"..adi .. "|" .. soyadi .. "|" .. adres .. "|" .. telefon .. "|" .. mail .. "|" .. tarih .. "|" .. not_al, nil, nil)
tVeri = db:fetch(tVeri,"a");
end
sql.kapat();
[/spoiler]

Garanti Silme Butonu

[spoiler]nSecilen = TreeList.GetSelected("liste2") -- secilene bak
if nSecilen ~= -1 then -- eğer seçilen varsa
nID = TreeList.GetCellText("liste2", 0, nSecilen)
sSoru = Dialog.Message("Uyarı!", nID .. " Arıza Kaydı silinecektir! Devam etmek istiyor musunuz?", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON2) -- soru sor
if sSoru == IDYES then -- eğer evet tusuna basilirsa
sql.baglan()
SQLite3Connection:execute("DELETE FROM garanti WHERE id='" .. nID .. "'")
sql.kapat()

end
end

sql.baglan()
db, err = SQLite3Connection:execute("SELECT * FROM garanti");
TreeList.ClearRows("liste2");

tVeri = db:fetch({}, "a")
while tVeri do

id = tVeri.id
urunsahibi = tVeri.urunsahibi
telefon = tVeri.telefon
markasi = tVeri.markasi
uruntipi = tVeri.uruntipi
serino = tVeri.serino
servisadresi = tVeri.servisadresi
servistelefon = tVeri.servistelefon
gidistarihi = tVeri.gidistarihi
gelistarihi = tVeri.gelistarihi
gonderenkisi = tVeri.gonderenkisi

TreeList.AddRow("liste2", id.."|"..urunsahibi .. "|" .. telefon .. "|" .. markasi .. "|" .. uruntipi .. "|" .. serino .. "|" .. servisadresi .. "|" .. servistelefon .. "|" .. gidistarihi .."|".. gelistarihi .."|" .. gonderenkisi, nil, nil)
tVeri = db:fetch(tVeri,"a");
end
sql.kapat();[/spoiler]

Buyur Kardeşim nerdeyse baştan yazdım bütün kodlarda hata vardı işallah işini görür

http://www.mediafire.com/download/uhj612un133y582/Teknik_Servis_Programı.apz

biraz işlerim var yardım edecem kardeşim sabır

abi peki tarih olarak değilde saat olarak yapabilir miyiz . örneğin 5 dk dır bekliyor gibi abi

hocam bi sorum var orada garanti diye bölüm var orada mesala bi ürünü gönderdim oraya kaydettim garanti sürsi 30 günde gidip gelmesi lazım bu 30 günü geçince uyarı verme gibi bi olay yapabilirmiyim acaba

Kardeşim Mantık olarak birşeyler üretemedim farklı bir konu varsa yardımcı olabilirim kardeşim

Hocam Cok Saolsın Yardımlarından Dolayı Teşekkür ederim bu sefer sorunsuz Çalıştı

önemli değil kardeşim sorun olursa yardıma hazırım hatalarla uğraşmak kendimi geliştirmeme sebep olduğu için sürekli burdayım

kardeşim tamamladım şuanda sorun yok gözüküyorda bir bak takıldığın yerde söyle yardımcı olayım kardeşim

http://www.mediafire.com/download/nwjz3vjv3f2nth3/teknikservis_programi.apz

haklısın abi çok karışık ve bir anlamı olmayan harfler hata verse dahi neye dayanarak verdiğini bile bulamazsın bende senin kullandığın şekilde kullanıyorum çok kolay oluyor hatayı bulmak sorunu çözmek.

kardeşim yeniden düzenledim bakar mısın

http://www.mediafire.com/download/3pp76l55mu8o76x/pc_sr.apz

Nasıl bir yönlendirmeden bahsediyorsunuz, detaylı olarak anlatır mısınız?

Tnctr yazan kısmı Satış Sayfası olarak değiştirip . Page.Jump("Page1") sayfasına yönlendirmek istiyorum kardeşim

kardeşim ben düzelttim biraz bakarsan sevinirim elimden geldiğince yardım etmeye çalışırım kardeşim

http://www.mediafire.com/download/dbjizzpsi8ndcdi/teknikservis.apz