Re: Re[2]: [Delphindo] Mendeteksi Qty dg Barcode

[Mr. Cempe]

Kalo suatu item bisa diberikan diskon berdasarkan jam dan transaksi masih bisa pending, jika akan menambah item beda jam maka tidak bisa dijadikan satu so tidak boleh di lakukan update .... set qty = ... karena harga dan diskon kemungkinan bisa beda. Jadi tidak boleh dijadikan satu.
Kaitannya dengan voucher belanja, masing2 detail misal dibayar dengan voucher belanja maka harus tau item2 mana saja yg dibayar pake voucher dan nilia voucher atas item berapa tadi tau.


Mr. cMp
  ----- Original Message ----- 
  From: Sobari Tanuwijaya 
  To: [EMAIL PROTECTED] 
  Sent: Monday, October 25, 2004 2:15 PM
  Subject: Re[2]: [Delphindo] Mendeteksi Qty dg Barcode


  Sorry nggak mudeng dengan statementnya, item barang sama tapi discount berbeda ?
  kalau masalah pembayaran kan dihandlenya nanti setelah barang dimasukkan semua, nah di sana bisa dibuat capture pembayaran dengan cash, voucher atau lainnya atau gabungan.

  Best regards,
    Sobari Tanuwijaya
    ICQ # 141027563


  -------------------------------------------------
  "No great thing is created suddenly."
     Epictetus (50-135); Roman (Greek-born) philosopher

  On Monday, October 25, 2004, 1:52:50 PM, Mr. Cempe wrote:


  >> Saya biasanya capture di tempat temporary tidak langsung ke
  >> grid, nah > untuk memasukkan ke gridnya saya pakai SQL command

  > Cuman agak rumit nanti klo ada item barang yang sama dan berlaku promo / diskon berbeda.
  > dan bisa dibayar dengan voucher belanja juga.


  > Mr. Cmp


  >   ----- Original Message ----- 
  >   From: Sobari Tanuwijaya 
  >   To: [EMAIL PROTECTED] 
  >   Sent: Monday, October 25, 2004 1:08 PM
  >   Subject: Re: [Delphindo] Mendeteksi Qty dg Barcode


  >   Saya biasanya capture di tempat temporary tidak langsung ke
  > grid, nah untuk memasukkan ke gridnya saya pakai SQL command, yang
  > saya pakai kurang lebih seperti ini:

  >   oQry.SQL.Text := 'SELECT ItemCode FROM TempTransTb WHERE ItemCode = :ItemCode';
  >   oQry.ParamByname( 'ItemCode' ).AsString := cItemCode.Text;
  >   oQry.Open;

  >   if oQry.RecordCount <> 0 then
  >      begin
  >       oQry.Close; 
  >       oQry.SQL.Text := 'UPDATE TempTransTb SET Qty = Qty + :Qty WHERE ItemCode = :ItemCode';
  >      end
  >   else
  >      begin
  >        oQry.Close;
  >        oQry.SQL.Text := 'INSERT INTO TempTransTb ( ItemCode, Qty,
  > Price ) VALUES ( :ItemCode, :Qty, :Price );
  >        oQry.ParamByName( 'Price' ).asFloat := nPrice;

  >      end;

  >   oQry.ParamByName( 'Qty' ).asInteger := nQty;
  >   oQry.ParamByName( 'ItemCode' ).asString := cItemCode;
  >   oQry.ExecSQL;




  Berlangganan: [EMAIL PROTECTED]
  Stop Berlangganan: [EMAIL PROTECTED]
  Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED] 


        Yahoo! Groups Sponsor 
              ADVERTISEMENT
             
       
       


------------------------------------------------------------------------------
  Yahoo! Groups Links

    a.. To visit your group on the web, go to:
    http://groups.yahoo.com/group/Delphindo/
      
    b.. To unsubscribe from this group, send an email to:
    [EMAIL PROTECTED]
      
    c.. Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service. 




[Non-text portions of this message have been removed]





Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]








Yahoo! Groups Sponsor


  ADVERTISEMENT 












Yahoo! Groups Links

To visit your group on the web, go to:http://groups.yahoo.com/group/Delphindo/ 
To unsubscribe from this group, send an email to:[EMAIL PROTECTED] 
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.