Arsip: No Transaksi otomatis berdasarkan tanggal sekarang...

 
user image
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]
user image
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.
user image
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;
user image
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 ,...
user image
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.
user image
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
user image
more 14 years ago

n3o_cybertech

@ii_irwan : kalo salah ya silahkan di-modif sendiri ya... :lol:
user image
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;
user image
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]
user image
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
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com