FilemakerTurk, AYS Bilişim ve Beyaz Net tarafından desteklenmektedir.
Filemaker Danışmanınız
AYS Bilişim
Mehmet KAYA
 0532 231 07 27
 0216 318 55 80
 mkaya@aysbilisim.net
						

Excel de ki kayıtları veritabanından otmatik bulma işlemi nasıl yapılır?

+1 oy
447 kez görüntülendi
Bir arşiv yazılımız var? Personeller talep ettikleri evrakların barkod numarasını excel formatında gönderiyorlar. Bazı taleplerde 100 aşkın evrak isteği oluyor. Evrakları tek tek yazılımdan aratıp bulmak ciddi zaman alıyor, bunları otomatik buldurabilir miyiz?
18, Şubat, 2015 Scripts kategorisinde Mehmet KAYA (166,370 puan) tarafından soruldu

1 cevap

0 oy
 
En İyi Cevap

Bilgisayarın C partionına istek.xls adında bir dosya oluşturun. veya gelen talepleri istek.xls tablosunun ilk satırına tüm barkodları alt alta yazın ve C:// bölümüne kaydedin.  Daha sonra aşağıdaki scripti yazarak bir butona bağlayın. Scripti kendinize göre düzenleyin. Script aslında excel dosyası içerisinde ki barkodtarı sisteme aktarmayacak şekilde tasarlanmıştır yani yeni kayıt olarak değil, sadece update olarak aktarmaya ayarlanmıştır. Excel deki barkod alanı yanına güncelleme diye bir alan daha oluşturmalısınız. Yazılımda da güncelleme diye bir global alan daha oluşturmalısınız. Excel deki barkod alanları ile yazılımdaki barkod alanları eşit olan kayıtların global guncel alanını update ediyorsunuz.  Update işlemi sonucunda excel deki tüm kayıtlar yazılımda bulunacaktır. Güncelleme alanı global olduğundan dolayı excel de güncelleme alanına bir şey yazmanıza gerek yok.


Allow User Abort [ Off ]
Set Error Capture [ On ]
Show All Records
Import Records [ "istek.xls"; Worksheet: "Sayfa1" ; Target: “AYS” ; Method: Update matching ; Character Set: “Windows ANSI” ; Field Mapping: Source field 1 match with AYS::DosyaNo
Source field 2 import to AYS::guncel ]
[ No dialog ; Data contains column names ]
If [ Get (LastError)=100 ]
Show Custom Dialog [ Title: "Uyarı"; Message: "İstek.xls Dosyası C:/istek.xls dizininde bulunamadı.Excel Dosyası oluşturulsunmu"; Default Button: “İptal” , Commit: “Yes” ; Button 2:
“Oluştur” , Commit: “No” ]
If [ Get (LastMessageChoice)=1 ]
Halt Script
Else
Go to Layout [ “Butonlar” (Butonlar) ]
Go to Field [ Butonlar::ExcelDosyasi ]
Export Field Contents [ Butonlar::ExcelDosyasi ; “filewin:/C:/istek.xls” ; Automatically open ]
Go to Layout [ “inceleme” (AYS) ]
End If
End If

18, Şubat, 2015 Mehmet KAYA (166,370 puan) tarafından cevaplandı
...