ERP Nedir? | Türkiye'nin ERP Forum Platformu Ana Sayfa
Forum Anasayfa Forum Anasayfa > ERP Genel > ERP Entegrasyonları
  Aktif Konular Aktif Konular RSS - NETOPENX acemisi
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

ERP Nedir? Enterprise Resource Planning nasıl çalışır? İş süreçleri ile ilgili tüm soru ve cevapları ERPNe.org'da.

Ülkemizde hızla gelişmekte olan ERP yazılım sektörümüzün, Yerli ve Yabancı ERP işlemlerinin tanıtımı ve kullanıcılarının buluşma noktası olması hedefiyle kurulan sitemize hoş geldiniz.

Ülkemizdeki Ne.org konseptinde bir ilk olarak yayın hayatına başlayan ERPNe.org, Kurumsal Kaynak Planlaması yazılımlarını kullananların bilgi kaynağı/Portal olmak amacı ile kurulmuştur.

Genellikle yurt dışında büyük üreticiler tarafından geliştirilen SQL, Delphi, ASP, CSharp gibi teknolojilerin anlatıldığı sitelerin kullandıkları (WhatisSQL, WhatisASP) (Ülkemizde Netsis Nedir, Mikro Nedir, SAP Nedir yada Logo Nedir gibi kullanıcı sorularına) Ne ve nedir konseptinde yeni bir açılım olmasını da hedefleyen ERPNe.ORG' un, ülkemizin uluslararası ERP sektörü içinde hak ettiği yeri almasında ve ERP ürünlerini kullananların bir araya gelerek Yerli ERP'nin gelişmesine katkı sağlayacakları önemli bir kilometre taşı olacağı düşüncesindeyiz.


NETOPENX acemisi

 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
bysempo Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 16 Nisan 2008
Durum: Aktif Değil
Puanlar: 0
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı bysempo Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: NETOPENX acemisi
    Gönderim Zamanı: 04 Mayıs 2011 Saat 20:18

Delphi ile ugrasiyorum. Asagdaki kodlardan sonra su hata mesajini aliyorum.

( 'is not valid integer value' )
 
 
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  NetOpenX50_TLB,Dialogs, StdCtrls;
type
   TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
  Sirket: ISirket;
  Fatura: IFatura;
  FatUst: IFatUst;
  FatKalem: IFatKalem;
  Kernel: IKernel;
  I: Integer;
begin
   Kernel:=CoKernel.Create;
Try
  Sirket:=Kernel.yeniSirket(vtmssql,'SEMTECH11', 'TemelSet', '', 'NETSIS', 'NET1', 0);
  Fatura:=Kernel.yeniFatura(Sirket, ftSFat);
 //Faturanin üst bilgileri okunuyor
  Fatura.OkuUst('000000000000131', '00001');
  FatUst:=Fatura.Ust;
  MessageDlg(FatUst.CariKod + '--' + FatUst.FATIRS_NO, mtInformation, [mbOK], 0);
//Faturanin kalemleri okunuyor
  Fatura.OkuKalem;
  For I:=0 To Pred(Fatura.KalemAdedi) Do
  Begin
   FatKalem:=Fatura.kalem[ I ];
   MessageDlg(FatKalem.StokKodu + ' ' + FloatToStr(FatKalem.STra_BF), mtInformation, [mbOK], 0);
  End;

 Finally
  Sirket:=Nil;
  Fatura:=Nil;
  FatUst:=Nil;
  FatKalem:=Nil;
  Kernel.FreeNetsisLibrary;
  Kernel:=Nil;
end;
 end;
end.
Yukarı Dön
 Yanıt Yaz Yanıt Yaz
  Konu Paylaş   

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 11.10
Copyright ©2001-2017 Web Wiz Ltd.

Bu Sayfa 0,516 Saniyede Yüklendi.