Coffee Breaks

Coffee Breaks adalah hal yang sangat menyenangkan bagi kebanyakan orang jika sedang bekerja dan terasa ngantuk atau pun bosan. Tapi apakah Coffee Breaks itu baik untuk kesehatan?

Sebelumnya yang kutahu hanya hasil negatif kafein dari meminum kopi. Oleh karena itu sangat jarang skali ku meminum kopi. Sesekalinya minum kopi mungkin sebulan sekali atau tiga bulan sekali. Sampai suatu saat ku menemukan info tentang Coffee Breaks dari artikel rdasia.com :

Peminum kopi memiliki resiko yang lebih rendah terkena 2 tipe diabetes, batu empedu, penyakit Parkinson, sirosis, dan kanker jenis tertentu.

Ratusan senyawa, termasuk antioksidan, memiliki manfaat protektif pada kopi. Sebuah penelitian di Havard menunjukan peminum kopi memiliki resiko kematian kardiovaskular yang lebih rendah dibandingkan yang tidak minum kopi. Sebuah studi di Norwegia menemukan bahwa jenis kopi tubruk lebih kaya antioksidannya daripada blueberry, raspberry, atau jus buah lainnya.

Brain Bonus: Kopi dapat membantu pikiran sama seperti tubuh. Suatu studi menemukan bahwa tikus yang kurang tidur akan jauh lebih tenang setelah menghirup bau biji kopi panggang.

Tips : Namun, banyak ahli Diet merekomendasikan memodernisasi cara meminum kopi – hanya satu atau dua cangkir kopi sehari tanpa tambahan susu dan gula. Jika meminum lebih dari itu, kafein dapat membuat anda dehidrasi atau meningkatkan tekanan darah anda. Ibu hamil juga harus membatasi meminum kopi, karena kopi dapat meningkatkan resiko keguguran.

Jika anda khawatir akan tingginya kolestrol, pakailah kertas penyaring kopi.  Kopi yang tidak disaring mengandung lebih banyak kolestrol yang disebut cafestol.

Jadi tidak perlu khawatir lagi untuk meminum kopi ketika anda merasa ngantuk atau bosan diruang kerja. Seperti yang ku lakukan hanya mengambil 1/4 sendok kopi dan menaruhnya pada cangkir kecil, dan dicampur hanya dengan air panas. Itu sudah cukup membuat ku terbangun kembali dari kantuk^_^.

Blog Update

Oh my blog, kasian banget jarang diupdate. Mulai hari ini saya akan selalu update my blog deh dengan kumpulan-kumpulan kehidupan ku.
Semoga blog ini menjadi sumber informasi dan inspirasi pembacanya.

Yang paling bingung jika diseharian itu, kehidupannya biasa-biasa saja, seperti rutinitas biasa. Lalu apa yang mau diangkat menjadi satu topic pada my blog ini? Apa judul yang tepat untuk kegiatan yang rutin dilakukan seharian?

Karena bingung mau tulis apa untuk hari ini, jadi saya luapkan saja tentang blog update ini. Awalnya cuma keluar 2 kalimat, akhirnya jadi keterusan ngetik.

Jadi,kesimpulannya ketika bingung mau tulis apa, tulis aja 2 kalimat yang sedang terpikirkan diotak, nanti biarkan otak, saraf, dan jari-jari anda menambahkannya secara otomatis. ^_^.

Menggabungkan Crystal Report Document dalam pdf dengan iTextSharp

Ketika saya mempunyai beberapa report yang ingin digabungkan agar keluar dalam bentuk satu pdf yang sama, saya menggunakan iTextSharp untuk membantu menggabungkan documentnya. iTextSharp bisa di dapat dari : http://itextsharp.sourceforge.net

Berikut sepenggal code yang saya buat pada modul saya :

Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Imports System.IO
Imports system.IO.FileMode
Imports System.IO.FileStream

Imports iTextSharp.text
Imports iTextSharp.text.pdf

Partial Class pages_report_Print_Report
    Inherits System.Web.UI.Page

    Private ClsObjRptAnnualPolicy As New ObjRptAnnual()
    Dim clsObjPrint As New ObjPrint
    Dim gclDBClass As GreatlinkClass.DBClass
    Dim MyReportDocument(12) As ReportDocument
    Dim SubReportDocument As ReportDocument
    Dim strSql As String
    Dim ds As DataSet, dsd As DataSet

    Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
        Call PrintPV()
    End Sub

    Sub PrintPV()
        'MENGAMBIL PARAMETER DARI PAGE SEBELUMNYA DALAM BENTUK ARRAY
        Dim strPolicyNo As String = Request.QueryString("PolicyNo")
        Dim strTransType As String = Request.QueryString("TransType")
        Dim strTransNo As String = Request.QueryString("TransNo")
        Dim strTransDate As String = Request.QueryString("TransDate")
        Dim ArrPolicyNo() As String = Split(strPolicyNo, ",")
        Dim ArrTransNo() As String = Split(strTransNo, ",")
        Dim ArrTransDate() As String = Split(strTransDate, ",")

        Dim oStream As New MemoryStream
        Dim oStream2 As New MemoryStream
        Dim i, j As Integer

        'MELAKUKAN PERULANGAN UNTUK MEMBUAT REPORT DOCUMENT
        For i = 0 To ArrPolicyNo.Length - 2
            Dim MyTable As DataTable
            Dim DetailTable As DataTable
            If (strTransType = "WD") Then
                MyTable = clsObjPrint.Get_GeneralHeaderStatement(ArrPolicyNo(i))
                DetailTable = clsObjPrint.Get_DetailWithdrawal(ArrPolicyNo(i), strTransType, ArrTransNo(i), ArrTransDate(i))
                MyReportDocument(i) = New ReportDocument()
                MyReportDocument(i).Load(Server.MapPath("CR_Withdrawal.rpt"))
                MyReportDocument(i).SetDataSource(MyTable)
                MyReportDocument(i).Subreports.Item("CR_detailwd.rpt").SetDataSource(DetailTable)
                MyReportDocument(i).Subreports.Item("CR_detailWd.rpt").SetDataSource(DetailTable)
            ElseIf (strTransType = "SU") Then
                MyTable = clsObjPrint.Get_GeneralHeaderStatement(ArrPolicyNo(i))
                DetailTable = clsObjPrint.Get_DetailWithdrawal(ArrPolicyNo(i), strTransType, ArrTransNo(i), ArrTransDate(i))
                MyReportDocument(i) = New ReportDocument()
                MyReportDocument(i).Load(Server.MapPath("CR_Surrender.rpt"))
                MyReportDocument(i).SetDataSource(MyTable)
                MyReportDocument(i).Subreports.Item("CR_detailSuu.rpt").SetDataSource(DetailTable)
                MyReportDocument(i).Subreports.Item("CR_detailSu.rpt").SetDataSource(DetailTable)
            End If
        Next

        'JIKA REPORT DOCUMENT TERISI HANYA SATU, MAKA DIEXPORT LANGSUNG KE PDF AGAR LEBIH CEPAT
        If i = 1 Then
            oStream = MyReportDocument(0).ExportToStream(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat)
            Response.ContentType = "application/pdf"
            Try
                Response.BinaryWrite(oStream.ToArray())
                clsObjPrint.add_reprint(ArrPolicyNo(0), strTransType, ArrTransNo(0), ArrTransDate(0))
                Response.End()
            Catch err As Exception
                Response.Write("< BR > asdf")
                Response.Write(err.Message.ToString)
            End Try

            'JIKA REPORT DOCUMENT TERISI LEBIH DARI MAKA DIGABUNGKAN MENGGUNAKAN ITEXTSHARP KEMUDIAN DIEXPORT KE PDF
        Else
            Dim mymemorystream As New MemoryStream
            Dim reader As iTextSharp.text.pdf.PdfReader
            Dim NumberofPages As Integer
            Dim curPageNo As Integer
            Dim doc As New iTextSharp.text.Document
            Dim writer As iTextSharp.text.pdf.PdfWriter = iTextSharp.text.pdf.PdfWriter.GetInstance(doc, oStream)
            doc.Open()
            Dim page As iTextSharp.text.pdf.PdfImportedPage
            Dim rotation As Integer
            Dim cb As iTextSharp.text.pdf.PdfContentByte = writer.DirectContent

            'PERULANGAN UNTUK MENGAMBIL SETIAP REPORT DOCUMENT
            For j = 0 To i - 1
                mymemorystream = New MemoryStream
                mymemorystream = MyReportDocument(j).ExportToStream(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat)

                Dim length As Long = mymemorystream.Length
                Dim rptContent(length) As Byte

                mymemorystream.Read(rptContent, 0, Convert.ToInt32(length))
                reader = New iTextSharp.text.pdf.PdfReader(rptContent)
                NumberofPages = reader.NumberOfPages
                curPageNo = 0

                'PERULANGAN UNTUK MENGGABUNGKAN PDF DENGAN ITEXTSHARP
                Do While (curPageNo < NumberofPages)
                    curPageNo += 1
                    doc.SetPageSize(PageSize.LETTER)
                    doc.NewPage()
                    page = writer.GetImportedPage(reader, curPageNo)
                    rotation = reader.GetPageRotation(curPageNo)

                    If (rotation = 90) Or (rotation = 270) Then
                        cb.AddTemplate(page, 0, -1.0F, 1.0F, 0, 0, reader.GetPageSizeWithRotation(curPageNo).Height)
                    Else
                        cb.AddTemplate(page, 1.0F, 0, 0, 1.0F, 0, 0)
                    End If
                Loop
                'DATA DIINSERT KE HIS_STATEMENT SEBAGAI HISTORY BAHWA SUDAH PERNAH DI PRINT
                clsObjPrint.add_reprint(ArrPolicyNo(j), strTransType, ArrTransNo(j), ArrTransDate(j))
            Next

            mymemorystream.Close()
            Response.Buffer = True
            Response.ContentType = "application/pdf"
            Response.AddHeader("Content-Disposition", "inline")

            If oStream Is Nothing Then
                Response.Write("No Data is available for output")
            Else
                doc.Close()
                Response.BinaryWrite(oStream.GetBuffer())
                Response.End()
            End If
        End If

        For j = 0 To i - 1
            MyReportDocument(j).Close()
            MyReportDocument(j).Dispose()
        Next
        oStream.Close()
        crPV.Dispose()
        'JANGAN LUPA UNTUK CLOSE SEMUA DOCUMENT, MEMORY STREAM DAN REPORT DOCUMENT
    End Sub
End Class