Arsip: No Transaksi otomatis berdasarkan tanggal sekarang...
more 14 years ago
ii_irwan
Saya Mau tanya , Soalnya Saya udah coba searching dmn2 saya belum menemukan...nya..
bisa miunta tolong
bagaimana caranya menjadikan tanggal sebagai no transaksi.
misalnya
pada tanggal 20-12-2009 maka transaksi penjualan pada tgl itu adalah PJ201209-0001 DAN SETErusnya dan jika udah lain tanggal maka kembali ke 1 msl 21-12-2009 maka PJ211209-0001
mohon pencerahann dan solusinya.. makasih...
[size=9:1e6c6080f3](red: edited. judul (pun) jangan menggunakan huruf besar semua yaaa..)[/size:1e6c6080f3]
more 14 years ago
n3o_cybertech
1. tanggal sekarang dengan preffix 'PJ' = FormatDateTime('PJDDMMYYYY',Now());
2. cek tanggal sekarang dah ada transaksi lum,klo lum ada ksih dengan values 0001 klo udah ada ya hitung jumlahnya dan
tambahkan dengan nilai 1, trus ksih preffix '0' sebanyak 4 - Length(jumlah rec dalam string)
3. gabungkan point 1 dengan point 2 dengan penghubung '-'
4. selesai.
more 14 years ago
cadasmerah-camar
Eh kedahuluan sama master n3o_cybertech hihi jadi malu cobain implementasikan aja maksud dari master n3o_cybertech
semoga benar klo salah kasih tau ya hihi maklum BegiNNER dan langsung Try ga Coba di Compiler
var str,Tgl:string; idx: Integer;
begin
Tgl := FormatDateTime('PJddmmyy',Now);
with qryTransaksi do
begin
SQL.Clear;
SQL.Text := 'SELECT id,no_transaksi,SUBSTRING(no_transaksi,3,6) AS Trans '+
'from tb_transaksi WHERE SUBSTRING(no_transaksi,1,8)=:pTGL ';
ParamByName('pTGL').AsString := Tgl ;
Open;
if qryTransaksi.RecordCount < 1 then
//TIdak ada Transaksi Hari ini
idx := 0
else
//Kalo Ada Transaksi Hari ini
idx := StrToInt(Copy(Fields[1].AsString,10,4));
end;
str := Tgl +'-'+Format('%.4d',[idx+1]) ; //ini jadi no Transaksi
ShowMessage(str);
end;
more 14 years ago
daryl_sukma_gumilar
Coba ganti format tanggalnya Pake kyk gini ...
(formatdatetime('hh:nn:ss',now));
itu untuk jam ,menit, detik ...
buat tanggal bulan taun tinggal modif ajj ok ,...
more 14 years ago
mas_kofa
Peringatan keras buat @ii_irwan
Perhatikan Rule Point 7
07. Dilarang menuliskan posting, baik pada isi maupun subject, dengan HURUF BESAR semua, selain tidak sopan juga teramat sangat tidak sopan.
Terima Kasih Atas Pengertiannya.
more 14 years ago
ii_irwan
@cadasmerah : yep sesuai ma algotinya mas neo tpi . ParamByName('pTGL').AsString := Tgl ; error ...
dan kalau..di ilangi ... minta paramater. coba di cek lagi om... hehe
@mas_kofa: Sippp PERINGATAN di terima heheh maap maap...g akan terulang
more 14 years ago
ii_irwan
@neo = saya belum mengerti mas .. bisa minta . solusinya g. mas
:(
ini code yg saya tuliskan ..
=================
procedure TF_Pembelian.FormCreate(Sender: TObject);
var a,Tgl:string; idx: Integer;
begin
Tgl := FormatDateTime('PJddmmyy',Now);
with ADO_pembelian do
begin
SQL.Clear;
SQL.Text := 'SELECT id_pembelian,SUBSTRING(id_pembelian,3,6) AS Trans '+
'from tb_pembelian WHERE SUBSTRING(id_pembelian,1,Cool=:pTGL ';
ParamByName('pTGL').AsString := Tgl ;
Open;
if ADO_pembelian.RecordCount < 1 then
//TIdak ada Transaksi Hari ini
idx := 0
else
//Kalo Ada Transaksi Hari ini
idx := StrToInt(Copy(Fields[1].AsString,10,4));
end;
a := Tgl +'-'+Format('%.4d',[idx+1]) ; //ini jadi no Transaksi
//ShowMessage(a);
Edit_notrans.Text := a;
end;
more 14 years ago
ii_irwan
___ HE HE HE ___ SUDAH BISA... tapi saya pakek Cara Saya sendiri... sangat sederhana tapi berhasil hehe... :lol:
ni codenya
===============================
procedure TF_Pembelian.FormShow(Sender: TObject);
var a,Tgl,idx,b: string;
begin
Tgl := FormatDateTime('PJddmmyy',Now);
ADO_pembelian.Close;
ADO_pembelian.SQL.Text := 'Select id_pembelian From tb_pembelian ORDER BY id_pembelian Desc';
ADO_pembelian.Open;
IF ADO_pembelian.RecordCount > 0 then
Label_help_notrans.Caption := ADO_pembelian.fieldbyname('id_pembelian').AsString
else
Label_help_notrans.Caption := Tgl +'-'+'1001';
//mengambil PJddmmyy (now) u/ dibandingkan dg yg ada di database
b := copy(Label_help_notrans.Caption,1,8);
//mengambil setelah - (no transaksi)
idx := copy(Label_help_notrans.Caption, 10, 4);
if tgl <> b then
begin
a := Tgl +'-'+'1001';
Edit_notrans.Text := a;
end
else
begin
a := Tgl +'-'+IntToStr(StrToInt(idx)+1);
Edit_notrans.Text := a;
end
end;
=========================================
makasih .. pENCERAHANNYA....[size=18:2a6389ad73][/size:2a6389ad73]
more 14 years ago
cyber_hecker
jangan letakan pencarian kode pembelian pada event onCreate. tapi letakkanlah pencarian kode pembeliannya sebelum melakukan penyimpanan data.
procedure TForm1.btnSimpanClick(Sender: TObject);
var
lQuery: TADOQuery;
sHariIni: string;
nAkhir: Integer;
sIDPembelian: string;
begin
sHariIni := FormatDateTime('PJddMMyyyy', Date);
lQuery := TADOQuery.Create(nil);
lQuery.Connection := ADOConnection1;
with lQuery do begin
SQL.Clear;
SQL.Append(
'SELECT COALESCE(MAX(CAST(SUBSTRING(id_pembelian, 12, 4) AS INT)),0) N '#10#13+
'FROM tb_pembelian '#10#13+
'WHERE SUBSTRING(id_pembelian, 1, 10) = '+QuotedStr(sHariIni));
Open;
nAkhir := FieldByName('N').AsInteger + 1;
Close;
Free;
end;
sIDPembelian := FormatDateTime('PJddMMyyyy', Date) + '-' + FormatFloat('0000', nAkhir);
( lanjutkan kode simpan di sini )
end;
more ...
- Pages:
- 1
- 2
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 4 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- ask program sederhana client server
by don2103 in MsSQL more 13 years ago - Pengumuman . . (Billing)
by tox2wow in OOT more 16 years ago - treeview load dari database?
by alvonz in OOT more 15 years ago - komponen non-standar yang bagus u/ akses data Excel
by jasonxt in Lain-lain more 12 years ago - Judul Form Berjalan
by yadi in Hal umum tentang Pascal Indonesia more 16 years ago - DsgnIntf
by p2bf in OOT more 16 years ago - Hasil Pencetakan lewat TWebBrowser
by fissas in Hal umum tentang Pascal Indonesia more 16 years ago - Tanya : Lihat meteran listrik ? bisa ga sih?
by boy_borland in Network, Files, I/O & System more 17 years ago - Sertifikasi Delphi-ID
by ImanD in Moderator Only more 13 years ago - EAccessViolation, tolooong...
by doniking in Hal umum tentang Pascal Indonesia more 16 years ago