ERP DAN ENTERPRISE

ERP singkatan dari tiga elemen kata ...yaitu Enterprise (Perusahaan), Resource (sumber daya) dan planning (perencanaan). Tiga kata ini mencerminkan sebuah konsep yang berujung kepada kata kerja, yaitu "Planning" yang berarti bahwa ERP menekankan kepada aspek perencanaan.

Beberapa definisi tentang ERP dapat memberikan gambaran mengenai konsep dasar yang terkandung dalam ERP yaitu :

Tavis Anderegg mendifinisikan ERP sebagai [Has-2002]:
ERP is a complete enterprise wide businnes software solution.

Konsep ERP dapat di jalankan dengan baik, jika didukung oleh seperangkat aplikasi dan infrastruktur komputer baik software dan hardware sehinggan pengolahan data dan informasi dapat dilakukan dengan mudah dan terintegrasi. peranan perangkat teknologi dalam konsep ERP selain sebagai fasilitator juga karena perangkat teknologi tersebut dapat memberikan nilai tambah berupa perampingan proses, penyederhanaan proses, integrasi dan otomasi proses. Oleh karena itu, hampir tidak mungkin mewujudkan konsep ERP tanpa adanya dukungan sistem berbasis komputer.

ERP dapat di bagi menjadi beberapa tahan:
1. Material Requirement Planning
2. Close - Lloop MRP
3. Manufacturing Resource Planning
4. Enterprise Resource Planning
5. Extended ERP

Platform Android dari Google

Setelah sebulan ini beredar isu akan dirilisnya telpon berbasis linux Oleh Google pada 4 November 2007 yang lalu google meliris Android, platform berbasis linux untuk kebutuhan Phone Mobile dan perangkat lain nya yang dibuat Openhand - set alliance sebagai langkah awal, Open Hand alliance ini yang terdiri dari 34 anggota ini termasuk T-Mobile, HTC Qualcomm,Motorola, Intel, LG, dan Google. melihat para anggota yang tergabung di harapkan terjalin hubungan erat antara pembuat chipset, pabrik dan operator jaringan.
Menurut kabar yang ada, platform Android di buat dengan menggunakan kernel linux, dan akan di lesensikan sebagai open source. Hal ini tidak mengejutkan, dikarenakan linux saat ini sudah populer sebagai platform mobile phone, dan google di kenal sebagai pengguna linux untuk infrastruktur IT-nya. meski demikian hal ini menjadi kabar baik bagi linux di dunia mobile phone, dimana platform OS untuk mobile phone masih di dominan oleh Symbian.
Menurut rencana software Development kit untuk platform Android akan dirilis oleh Open handset Alliance pada 12 November 2007.

Cara Upload Foto Di ASP. Net by Muhajir

'Create by Muhajir

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click ' Image1.ImageUrl = FileUpload1.FileName If Not File1.PostedFile Is Nothing And File1.PostedFile.ContentLength > 0 Then Dim fn As String = System.IO.Path.GetFileName(File1.PostedFile.FileName) Dim SaveLocation As String = Server.MapPath("Data") & "\" & fn Dim SaveFile As String = fn Try TextBox1.Text = SaveLocation File1.PostedFile.SaveAs(SaveLocation) Response.Write("The This file has been uploaded.") 'http://Localhost/test/ 'Image1.ImageUrl = "~/data/logo.gif" 'directory di d:/test/data/logo.gif Image1.ImageUrl = "~" & "/data/" & SaveFile 'directory di d:/test/data/logo.gif tampilkan foto Catch Exc As Exception Response.Write("Error: " & Exc.Message) End Try Else Response.Write("Please select a file to upload.") End If

Cara Singkat untuk mengecilkan gambar/foto

1. Cara install Program

• Untuk mengecilkan gambar/foto kita akan membutuhkan sebuah program, program yang
  digunakan dibawah ini adalah PIXresizer. Untuk itu pertama kali kita harus men‐download
  program tersebut dari alamat: http://bluefive.pair.com/PIXresizer.zip
• Meng‐install program
  Setelah selesai di‐download maka program tersebut dapat diinstall kedalam komputer
  masing‐masing.
• Mencari program
  Setelah di‐install anda dapat melihat pada layar Desktop anda dan double click icon
  PIXresizer
• Mengecilkan beberapa (multiple) gambar sekaligus
  Untuk mengecilkan beberapa gambar sekaligus, kita perlu menyiapkan folder sumber dan
  folder tujuan.
  Didalam PIXresizer klik pada tab “Work with Multiple Files”

2. Cara Singkat untuk mengecilkan gambar/foto

• Klik pada tombol “Source” dan cari folder sumber dimana gambar‐gambar anda berada.

• Klik pada tombol “Destination” dan cari folder tujuan sebagai tempat kita untuk menyimpan hasil gambar‐gambar yang telah dikecilkan.
  

• Ganti slider “Select new size” ke 640 (untuk foto yang diupload dapat memilih ukuran antara 512 – 800)
  

• Klik tombol Save Pictures

Cara Insert pakai Stored Procedure Di ASP.NET by Muhajir

Dim con As SqlConnection
Dim cmd As SqlCommand

Dim MyAdapter As SqlDataAdapter
Dim MyReader As DataSet

Dim style As MsgBoxStyle
Dim respons As MsgBoxResult
Dim paramNik, paramNama, paramAlamat, paramKota As SqlParameter
Dim sTr, Pesan, msg As String

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

'Menggunakan stored procedure di sql server 2000

Try
con = New SqlConnection("server=(local);user id=sa;password=;database=hrd")
con.Open()

cmd = New SqlCommand("spInsMstKaryawan", con)
cmd.CommandType = CommandType.StoredProcedure

cmd.Parameters.Add(New SqlParameter("@nik", SqlDbType.NVarChar, 10))
cmd.Parameters.Add(New SqlParameter("@nama", SqlDbType.NVarChar, 25))
cmd.Parameters.Add(New SqlParameter("@alamat", SqlDbType.NVarChar, 30))
cmd.Parameters.Add(New SqlParameter("@kota", SqlDbType.NVarChar, 20))

cmd.Parameters("@nik").Value = TextBox1.Text
cmd.Parameters("@nama").Value = TextBox2.Text
cmd.Parameters("@alamat").Value = TextBox3.Text
cmd.Parameters("@kota").Value = DropDownList1.Text

msg = "Apakah Yakin Data Ini Di Simpan?" ' Define message.
style = MsgBoxStyle.DefaultButton2 Or MsgBoxStyle.Critical Or MsgBoxStyle.YesNo
Title = "MsgBox Simpan" ' Define title.
' Menampilkan Pesan

If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
MsgBox("Data Tdk Boleh Kosong", MsgBoxStyle.Information, "Simpan")
Else
respons = MsgBox(msg, style, Title)
If respons = MsgBoxResult.Yes Then ' User chose Yes.
' Perform some action.
cmd.ExecuteNonQuery()
MsgBox("Data Tersimpan", MsgBoxStyle.Information, "Simpan")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End If
End If
Catch msg1 As SqlException
MsgBox(msg1, MsgBoxStyle.Critical, "Error")
End Try
con.Close()
End Sub

Cara Create Persediaan Barang By Stored Procedure SQL SERVER 2005

-- =============================================
-- Author:
-- Create date: <12/02/2009>
-- Description:
-- =============================================
ALTER PROCEDURE [dbo].[SpPersedianDetail]
-- Add the parameters for the stored procedure here
(
@KODEBARANG NVARCHAR(10)
)

AS

DECLARE @ID INT, @KETERANGAN NVARCHAR(50)
DECLARE @TOTALHARGAAWAL MONEY, @TOTALHARGAMASUK MONEY, @TOTALHARGAAKHIR MONEY, @TOTALHARGATEMP MONEY
DECLARE @AKHIR INT, @HARGAAWAL MONEY, @MASUK INT, @HARGAHPP MONEY
DECLARE @KELUAR INT, @HARGAKELUAR MONEY, @TOTALHARGAKELUAR MONEY
DECLARE @SALDOAKHIR INT, @PERSEDIAAN MONEY

DECLARE @KODESEM NVARCHAR(10),@STOCKSEM INT, @HARGASEM MONEY, @TOTALSEM MONEY
BEGIN

SET NOCOUNT ON;

CREATE TABLE #TEMPAWAL
(
KODEBARANG NVARCHAR(10),
HPPTEMP MONEY,
SALDOTEMP INT,
PERSEDIAANTEMP MONEY
)ON [PRIMARY]

INSERT INTO #TEMPAWAL (KODEBARANG, HPPTEMP, SALDOTEMP,PERSEDIAANTEMP)
SELECT KODEBARANG , HARGA,STOCK, TOTALHARGAAWAL FROM MSTSALDOAWAL
--SELECT * FROM #TEMPAWAL


DECLARE OPENPART CURSOR FOR
SELECT ID,KODEBARANG , KETERANGAN FROM INVENTORY WHERE KODEBARANG=@KODEBARANG
ORDER BY ID

OPEN OPENPART

CREATE TABLE #TEMP
(
ID INT,
KODEBARANG NVARCHAR(10),
KETERANGAN NVARCHAR(50),
TOTALHARGAAWAL MONEY,
MASUK INT,
TOTALHARGAMASUK MONEY,
KELUAR INT,
HARGAKELUAR MONEY,
TOTALHARGAKELUAR MONEY,
AKHIR INT,
HARGAHPP MONEY,
TOTALHARGAAKHIR MONEY

) ON [PRIMARY]

FETCH NEXT FROM OPENPART INTO @ID,@KODEBARANG,@KETERANGAN

WHILE @@FETCH_STATUS=0
BEGIN
SELECT @TOTALHARGAAWAL=TOTALHARGAAWAL,@AKHIR=AWAL FROM INVENTORY
WHERE ID=@ID AND KODEBARANG=@KODEBARANG AND KETERANGAN=@KETERANGAN

SELECT @TOTALHARGAMASUK=TOTALHARGAMASUK FROM INVENTORY
WHERE ID=@ID AND KODEBARANG=@KODEBARANG AND KETERANGAN=@KETERANGAN

SELECT @TOTALHARGAAKHIR=TOTALHARGAAWAL FROM INVENTORY
WHERE ID=@ID AND KODEBARANG=@KODEBARANG AND KETERANGAN=@KETERANGAN

SELECT @AKHIR=AWAL FROM INVENTORY
WHERE ID=@ID AND KODEBARANG=@KODEBARANG AND KETERANGAN=@KETERANGAN

SELECT @MASUK=MASUK FROM INVENTORY
WHERE ID=@ID AND KODEBARANG=@KODEBARANG AND KETERANGAN=@KETERANGAN

SELECT @KELUAR=KELUAR FROM INVENTORY
WHERE ID=@ID AND KODEBARANG=@KODEBARANG AND KETERANGAN=@KETERANGAN

INSERT INTO #TEMP VALUES (@ID,@KODEBARANG, @KETERANGAN, @TOTALHARGAAWAL,@MASUK, @TOTALHARGAMASUK,@KELUAR,0,0, @AKHIR ,0,@TOTALHARGAAKHIR)

IF EXISTS (SELECT HARGAAWAL FROM INVENTORY WHERE (ID=@ID) AND (KODEBARANG=@KODEBARANG) AND (KETERANGAN='SALDOAWAL'))
BEGIN
SET @HARGAAWAL = (SELECT HARGAAWAL FROM INVENTORY WHERE ID=@ID AND KODEBARANG=@KODEBARANG AND KETERANGAN='SALDOAWAL')

UPDATE #TEMP
SET HARGAHPP=@HARGAAWAL
WHERE (ID=@ID) AND (KODEBARANG=@KODEBARANG) AND (KETERANGAN='SALDOAWAL')
END

IF EXISTS (SELECT ID,KODEBARANG,KETERANGAN FROM #TEMP WHERE (ID=@ID) AND (KODEBARANG=@KODEBARANG) AND (KETERANGAN='LPB'))
BEGIN
--SET @AKHIR=(SELECT SALDOTEMP FROM MSTSALDOAWAL WHERE KODEBARANG=@KODEBARANG)
SET @AKHIR=(SELECT SALDOTEMP FROM #TEMPAWAL WHERE KODEBARANG=@KODEBARANG)
SET @MASUK =(SELECT MASUK FROM #TEMP WHERE (ID=@ID) AND (KODEBARANG=@KODEBARANG) AND (KETERANGAN='LPB'))

SET @AKHIR=@AKHIR+@MASUK

--SET @TOTALHARGAAKHIR=(SELECT PERSEDIAANTEMP FROM MSTSALDOAWAL WHERE (KODEBARANG=@KODEBARANG))
SET @TOTALHARGAAKHIR=(SELECT PERSEDIAANTEMP FROM #TEMPAWAL WHERE (KODEBARANG=@KODEBARANG))
SET @TOTALHARGAMASUK =(SELECT TOTALHARGAMASUK FROM #TEMP WHERE (ID=@ID) AND (KODEBARANG=@KODEBARANG) AND (KETERANGAN='LPB'))
SET @TOTALHARGAAKHIR=@TOTALHARGAAKHIR + @TOTALHARGAMASUK

SET @HARGAHPP=@TOTALHARGAAKHIR / @AKHIR

UPDATE #TEMP
SET AKHIR=@AKHIR,TOTALHARGAAKHIR=@TOTALHARGAAKHIR, HARGAHPP=@HARGAHPP
WHERE (ID=@ID) AND (KODEBARANG=@KODEBARANG) AND (KETERANGAN='LPB')

--UPDATE MSTSALDOAWAL --PAKAI TABEL TEMPERORY UNTUK MEMBACA STOCK YANG TERAKHIR
--SET SALDOTEMP=@AKHIR
--WHERE KODEBARANG=@KODEBARANG

UPDATE #TEMPAWAL --PAKAI TABEL TEMPERORY UNTUK MEMBACA STOCK YANG TERAKHIR
SET SALDOTEMP=@AKHIR
WHERE KODEBARANG=@KODEBARANG

--UPDATE MSTSALDOAWAL --PAKAI TABEL TEMPERORY
--SET PERSEDIAANTEMP=@TOTALHARGAAKHIR
--WHERE KODEBARANG=@KODEBARANG

UPDATE #TEMPAWAL --PAKAI TABEL TEMPERORY
SET PERSEDIAANTEMP=@TOTALHARGAAKHIR
WHERE KODEBARANG=@KODEBARANG

--UPDATE MSTSALDOAWAL --PAKAI TABEL TEMPERORY
--SET HPPTEMP=@HARGAHPP
--WHERE KODEBARANG=@KODEBARANG

UPDATE #TEMPAWAL --PAKAI TABEL TEMPERORY
SET HPPTEMP=@HARGAHPP
WHERE KODEBARANG=@KODEBARANG

END

IF EXISTS (SELECT ID,KODEBARANG,KETERANGAN FROM #TEMP WHERE (ID=@ID) AND (KODEBARANG=@KODEBARANG) AND (KETERANGAN='BPB'))
BEGIN
--SET @HARGAHPP=(SELECT HPPTEMP FROM MSTSALDOAWAL WHERE KODEBARANG=@KODEBARANG)
--SET @SALDOAKHIR=(SELECT SALDOTEMP FROM MSTSALDOAWAL WHERE KODEBARANG=@KODEBARANG)
--SET @PERSEDIAAN= (SELECT PERSEDIAANTEMP FROM MSTSALDOAWAL WHERE KODEBARANG=@KODEBARANG)

SET @HARGAHPP=(SELECT HPPTEMP FROM #TEMPAWAL WHERE KODEBARANG=@KODEBARANG)
SET @SALDOAKHIR=(SELECT SALDOTEMP FROM #TEMPAWAL WHERE KODEBARANG=@KODEBARANG)
SET @PERSEDIAAN= (SELECT PERSEDIAANTEMP FROM #TEMPAWAL WHERE KODEBARANG=@KODEBARANG)

UPDATE #TEMP
SET HARGAKELUAR=@HARGAHPP,HARGAHPP=@HARGAHPP
WHERE (ID=@ID) AND (KODEBARANG=@KODEBARANG) AND (KETERANGAN='BPB')

SET @KELUAR =(SELECT KELUAR FROM #TEMP WHERE (ID=@ID) AND (KODEBARANG=@KODEBARANG) AND (KETERANGAN='BPB'))
SET @HARGAKELUAR =(SELECT HARGAKELUAR FROM #TEMP WHERE (ID=@ID) AND (KODEBARANG=@KODEBARANG) AND (KETERANGAN='BPB'))

SET @TOTALHARGAKELUAR=@KELUAR * @HARGAKELUAR
SET @AKHIR=@SALDOAKHIR-@KELUAR
SET @PERSEDIAAN=@PERSEDIAAN-@TOTALHARGAKELUAR

UPDATE #TEMP
SET TOTALHARGAKELUAR=@TOTALHARGAKELUAR, AKHIR=@AKHIR, TOTALHARGAAKHIR=@PERSEDIAAN
WHERE (ID=@ID) AND (KODEBARANG=@KODEBARANG) AND (KETERANGAN='BPB')

--UPDATE MSTSALDOAWAL --PAKAI TABEL TEMPERORY UNTUK UPDATE STOCK TERAKHIR , BACA PERSEDIAAN YANG TERAKHIR
--SET SALDOTEMP=@AKHIR
--WHERE KODEBARANG=@KODEBARANG

UPDATE #TEMPAWAL --PAKAI TABEL TEMPERORY UNTUK UPDATE STOCK TERAKHIR , BACA PERSEDIAAN YANG TERAKHIR
SET SALDOTEMP=@AKHIR
WHERE KODEBARANG=@KODEBARANG

--UPDATE MSTSALDOAWAL --PAKAI TABEL TEMPERORY UNTUK UPDATE PERSEDIAANTEMP TERAKHIR , BACA PERSEDIAAN YANG TERAKHIR
--SET PERSEDIAANTEMP=@PERSEDIAAN
--WHERE KODEBARANG=@KODEBARANG

UPDATE #TEMPAWAL --PAKAI TABEL TEMPERORY UNTUK UPDATE PERSEDIAANTEMP TERAKHIR , BACA PERSEDIAAN YANG TERAKHIR
SET PERSEDIAANTEMP=@PERSEDIAAN
WHERE KODEBARANG=@KODEBARANG

END
FETCH NEXT FROM OPENPART INTO @ID,@KODEBARANG, @KETERANGAN
END
CLOSE OPENPART
DEALLOCATE OPENPART

SELECT * FROM #TEMP --WHERE KODEBARANG=@KODEBARANG

END