acces ile text dosyası yaratmak ve program tetiklemek.

[TcShark]

Yapmak istediğim şey şu;
Bir text dosyası yaratmam lazım adı Libra.CMD olacak.
içinde her biri bir alandan gelen " " içinde datalar olacak.
Örneğin;
"APL","1","002022","946020","V","0","R","0","0","007","31,49","T","2","1","FPolenez Kangal Sucuk","F ","2","0","0",
Bu bilgilerin bazısı sabit, bazısı dbden alınıyor.
Alan1, Alan2 gibi
Bu text dosyası yaratıldıktan sonra
Programın RT_COMMS.EXE isimli bir programı çalıştırması gerekiyor.

Amaç şu;
benim meşhur market maliyet kontrol programında son aşamaya geldim.
Bu noktada eğer oluşturduğum fiyatları terazilere tek tuş basarak göndermeyi başarırsam.
Program tamamen fonksiyonel olacak.
Daha düzeltilecek yerleri eklenecek raporları var.
Ama maliyetleri yaptıktan sonra manuel olarak terazi programına girip ikinci iş yapmaktan kurtulmuş olacağım.

 

[TcShark]

Ben bişiler buldum ama bu xml yaratıyor.


Private Sub Komut74_Click()
Dim objAD As AdditionalData

' Create the AdditionalData object.
Set objAD = Application.CreateAdditionalData

' Add the related tables to the object.
With objAD
.Add "Ürün Adı"
.Add "Satış Fiyatı"
.Add "Terazi Kodu"
End With

' Export the Orders table along with the addtional data.
Application.ExportXML acExportTable, "Manav Sorgu", _
"C:\MX100\Libra1.CMD", AdditionalData:=objAD


End Sub

 

[modalı]

Sayın TcShark,

Örnek ekleyebilirmisiniz.

iyi çalışmalar

 

[TcShark]

Örnek dosya aşağıda

Giriş Forumunda Terziye gönder diye bir tuş var işlemi onun yapması gerekiyor.

"APL","1","002022","946020","V","0","R","0","0","0 07","31,49","T","2","1","FPolenez Kangal Sucuk","F ","2","0","0",

formatını açayım.
"APL" sabit değer
"1" Şarküteri ise 1, Manav ise 2, olacak
"002022", Terazi Kodu
"946020", Barkodu
"V","0","R","0","0","0 07", Sabit değerler
"31,49", Satış Fiyatı
"T", T ise Kg lı A ise Adetli
"2","1", sabit değerler
"FPolenez Kangal Sucuk", Ürün adı
"F ","2","0","0", sabit değerler

şeklinde olacak.
bu text dosyası C:\MX100\ klasörüne oluşturulup kaydedildikten sonra.
C:\MX100\RT_COMMS.EXE
çalıştıracak.

Teşekkür ederim.

 

[TcShark]

Buna çözümü olan varmı???

 

[omerceri]

Sn TcShark
Dosyanızı 2003 formatına dönüştürüp forma eklerseniz yardımcı olabilirim

 

[TcShark]

Teşekkür ederim

Aşağıda 2003 formatında dosya mevcut

 

[TcShark]

Başkaca bir şey lazımmı?

 

[jon206]

sayın TcShark;

bir bakın olmuş mu ?

yalnız; birim tablosuna bir eklenti yaptım ona ayrıca bakınız..

C:\MX100\Libra.CMD dosyayı kaydediyor
C:\MX100\RT_COMMS.EXE çalıştıracak şekilde kodu yazdım tabi bende bu program olmadığı için hata veriyor inşaallah sizde çalış..

 

[TcShark]

Elinize sağlık olmuş, bundan sonrasını ben halledebilirim.

Tek sorun şurda olmuş
Call Shell("c:\MX100\RT_COMMS.EXE,1") yazmışsınız
böyle hata mesajı verdi.
Call Shell("c:\MX100\RT_COMMS.EXE") yapınca çalıştı.


Bir sorunum var.
Text dosyasını yazarken başına bir Carriage return atıyor bunu kaldırmanın bir yolu varmı?

 

[TcShark]

Bir sorunum var.
Text dosyasını yazarken başına bir Carriage return atıyor bunu kaldırmanın bir yolu varmı?

 

[jon206]

sayın TcShark; rapordaki metin0 kutusunu neye çekersen o kadar boşluk veriri.
ben sıfır noktasına tam yerleşmemiş, düzeltim .. tekrar indirebilirsiniz.. k.gelsin

 

[TcShark]

Sayın jon206

son gönderdiğiniz örneğide aldım.
ama inatla ilk satırı boş geçiyor.
başka bir hata yapıyor olabilirmiyim.

örneğini ekliyorum.

 

[jon206]

sayın TcShark;
son yaptığım, bende sıfır noktasında yapıyor yani senin istediğin gibi.. hiç boşluk vermiyor ne üstten ne yandan, düzetleyi rapor kısmında yapmıştım siz rapor kısımı kendinize kopyalayınız..

yada, uygulamanızı yükleyin bir bakıyım.. isternesiz..