View Cetak Dot

<?php
echo "<link rel='shortcut icon' href='".base_url()."img/icon.png'>
<title>Cetak FAKO Dot Matrix</title>";

function addHeader($Provinsi, $Kabupaten, $MasaBerlaku, $Tanggal1, $Tanggal2, $Jalur1, $Jalur2, $Jalur3, $Jalur4, $Gunakan, $Identitas, $NamaPenerima, $AlamatPenerima, $TelpPenerima,
$lokasiBongkar, $Transit){
    $returnValue = "";
    $bold0 = Chr(27) . Chr(69);
    $bold1 = Chr(27) . Chr(70);

    $limitPenerima = 45;
    $limitTelp = 45;
    $limitAlamat = 45;
    $limitBongkar = 45;

    $txtTelp = "";
    $txtPenerima = "";
    $txtAlamat = "";
    $txtBongkar = "";

    // Penerima
    if(strlen($NamaPenerima) <= $limitPenerima){
        $txtPenerima = str_pad($NamaPenerima, $limitPenerima);
    } else {
        $txtPenerima = substr($NamaPenerima, 0, $limitPenerima);
    }

    // Bongkar
    if(strlen($lokasiBongkar) <= $limitBongkar){
        $txtBongkar = str_pad($lokasiBongkar, $limitBongkar);
    } else {
        $txtBongkar = substr($lokasiBongkar, 0, $limitBongkar);
    }

    // Alamat
    if(strlen($AlamatPenerima) <= $limitAlamat){
        $txtAlamat = str_pad($AlamatPenerima, $limitAlamat);
    } else {
        $txtAlamat = substr($AlamatPenerima, 0, $limitAlamat);
    }

    // Telp
    if(strlen($TelpPenerima) <= $limitTelp){
        $txtTelp = str_pad($TelpPenerima, $limitTelp);
    } else {
        $txtTelp = substr($TelpPenerima, 0, $limitTelp);
    }

    // Enter 15 kali
    $returnValue.="".chr(10).chr(10).chr(10).chr(10).chr(10).chr(10).chr(10).chr(10).chr(10).chr(10);

    // Pengangkutan
    $returnValue.= "                     ".$Provinsi."                                                                           ".$MasaBerlaku."    ".ucwords(terbilang($MasaBerlaku))."  ".chr(10);
    $returnValue.= "                     ".$Kabupaten."                                                                               ".$Tanggal1."   ".$Tanggal2." ".chr(10).chr(10).chr(10);
    $returnValue.= "                                                                                     ".$Jalur1."        ".$Jalur2."      ".$Jalur3."      ".$Jalur4." ".chr(10);
    $returnValue.= "                                                                                     ".$Gunakan." ".chr(10);
    $returnValue.= "                                                                                     ".$Identitas." ".chr(10);
    $returnValue.="".chr(10).chr(10).chr(10).chr(10).chr(10);
    // Penerima
    $returnValue.= "                     ".$txtPenerima."                      ".chr(10);
    $returnValue.= "                                                                                     ".$txtBongkar." ".chr(10);
    $returnValue.= "                     ".$txtAlamat."                                            ".chr(10);
    $returnValue.="".chr(10);
    // Tujuan Pengangkutan
    $returnValue.= "                     ".$txtTelp."                   ".$Transit." ".chr(10);

    return $returnValue;
}

function addItemFAKO($Kayu, $Tipis, $Tebal, $Sempit, $Lebar, $Pendek, $Panjang, $Jumlah, $Volume, $Keterangan) {
    // Limit Character
    $limitKayu = 32;
    $limitJumlah = 24;
    $limitVolume = 24;
    $limitKeterangan = 28;

    // Variabel
    $txtKayu = "";
    $txtJumlah = "";
    $txtVolume = "";
    $txtKeterangan = "";

    // Kayu
    if(strlen($Kayu) <= $limitKayu){
        $txtKayu = str_pad($Kayu, $limitKayu);
    } else {
        $txtKayu = substr($Kayu, 0, $limitKayu);
    }

    // Jumlah
    if(strlen($Jumlah) <= $limitJumlah){
        $txtJumlah = str_pad($Jumlah, $limitJumlah);
    } else {
        $txtJumlah = substr($Jumlah, 0, $limitJumlah);
    }

    // Volume
    if(strlen($Volume) <= $limitVolume){
        $txtVolume = str_pad($Volume, $limitVolume);
    } else {
        $txtVolume = substr($Volume, 0, $limitVolume);
    }

    // Keterangan
    if(strlen($Keterangan) <= $limitKeterangan){
        $txtKeterangan = str_pad($Keterangan, $limitKeterangan);
    } else {
        $txtKeterangan = substr($Keterangan, 0, $limitKeterangan);
    }

    $returnValue = "";
    $returnValue.="".chr(10).chr(10).chr(10).chr(10).chr(10).chr(10);
    // $returnValue.= "      1.   " .$Tipis."/".$Tebal."x".$Sempit."/".$Lebar."x".$Pendek."/".$Panjang. "               " .$txtJumlah. " Kpg   " .$txtVolume. " m3  " .$txtKeterangan. "".chr(10);
    $returnValue.= "      1.   " .$txtKayu. " " .$txtJumlah. " Kpg   " .$txtVolume. " m3   " .$txtKeterangan. "".chr(10);
    return $returnValue;
}

function addItemAFAL($NamaKayu, $JumlahAfal, $VolumeAfal, $KetAfal) {
    // Limit Character
    $limitNamaKayu = 32;
    $limitJumlah = 29;
    $limitVolume = 24;
    $limitKeterangan = 28;

    // Variabel
    $txtNamaKayu   = "";
    $txtJumlahAfal = "";
    $txtVolumeAfal = "";
    $txtKeterangan = "";

    // Nama Kayu
    if(strlen($NamaKayu) <= $limitNamaKayu){
        $txtNamaKayu = str_pad($NamaKayu, $limitNamaKayu);
    } else {
        $txtNamaKayu = substr($NamaKayu, 0, $limitNamaKayu);
    }

    // Jumlah
    if(strlen($JumlahAfal) <= $limitJumlah){
        $txtJumlahAfal = str_pad($JumlahAfal, $limitJumlah);
    } else {
        $txtJumlahAfal = substr($JumlahAfal, 0, $limitJumlah);
    }

    // Volume
    if(strlen($VolumeAfal) <= $limitVolume){
        $txtVolumeAfal = str_pad($VolumeAfal, $limitVolume);
    } else {
        $txtVolumeAfal = substr($VolumeAfal, 0, $limitVolume);
    }

    // Keterangan
    if(strlen($KetAfal) <= $limitKeterangan){
        $txtKeterangan = str_pad($KetAfal, $limitKeterangan);
    } else {
        $txtKeterangan = substr($KetAfal, 0, $limitKeterangan);
    }

    $returnValue = "";
    $returnValue.= "      2.   " .$txtNamaKayu. " " .$txtJumlahAfal. "  " .$txtVolumeAfal. " m3  " .$txtKeterangan. " ".chr(10);
    return $returnValue;
}

function FooterJumlahTerbilang($TotalJumlah, $TotalVolume, $NoDKO, $TglDKO) {
    // Limit
    $limitJumlah = 24;
    $limitVolume = 24;
    $limitNoDKO  = 40;

    // Variabel
    $txtTotalJumlah = "";
    $txtTotalVolume = "";
    $txtNoDKO       = "";

    // Jumlah
    if(strlen($TotalJumlah) <= $limitJumlah){
        $txtTotalJumlah = str_pad($TotalJumlah, $limitJumlah);
    } else {
        $txtTotalJumlah = substr($TotalJumlah, 0, $limitJumlah);
    }

    // Volume
    if(strlen($TotalVolume) <= $limitVolume){
        $txtTotalVolume = str_pad($TotalVolume, $limitVolume);
    } else {
        $txtTotalVolume = substr($TotalVolume, 0, $limitVolume);
    }

    // No DKO
    if(strlen($NoDKO) <= $limitNoDKO){
        $txtNoDKO = str_pad($NoDKO, $limitNoDKO);
    } else {
        $txtNoDKO = substr($NoDKO, 0, $limitNoDKO);
    }

    $returnValue = "";
    $returnValue.= "".chr(10);
    $returnValue.= "                                            " .$txtTotalJumlah." Kpg   " .$txtTotalVolume." m3  ".chr(10).chr(10);
    $returnValue.= "                                           " .ucwords(terbilang($txtTotalJumlah))." Keping Sama Dengan " .ucwords(terbilangkoma($txtTotalVolume,4))."Meter Kubik".chr(10);
    $returnValue.= "".chr(10).chr(10);
    $returnValue.= "                         " .$txtNoDKO."                 " .$TglDKO." ".chr(10);
    return $returnValue;
}

function Penerbit($NamaPenerbit, $NoRegister, $TglTerbit, $Lokasi) {
    $returnValue = "";
    $bold0 = Chr(27) . Chr(69);
    $bold1 = Chr(27) . Chr(70);

    $returnValue.= "".chr(10).chr(10).chr(10);
    $returnValue.= "                         ".$bold0.$NamaPenerbit.$bold1."".chr(10);
    $returnValue.= "                         ".$bold0.$NoRegister.$bold1."".chr(10);
    $returnValue.= "                         ".$TglTerbit."".chr(10);
    $returnValue.= "                         ".$Lokasi."".chr(10);
    $returnValue.= "".chr(10).chr(10).chr(10).chr(10).chr(10).chr(10);
    return $returnValue;
}

/* CETAK */
$tmpdir = sys_get_temp_dir(); # ambil direktori temporary untuk simpan file.
$file= tempnam($tmpdir, 'cetak'); # nama file temporary yang akan dicetak
$handle= fopen($file, 'w');
$bold0 = Chr(27) . Chr(69);
$bold1 = Chr(27) . Chr(70);

$initialized= chr(27).chr(64);
$leftMargin = chr(27).chr(108).chr(1);

$condensed = Chr(27).Chr(33).Chr(4);
$draft = Chr(27).Chr(120).Chr(48);

$Data= $initialized;
$Data.= $leftMargin;
$Data.= $condensed;
$Data.= $draft;

// Data Perusahaan
$Provinsi   = $fako->provinsi;
$Kabupaten  = $fako->kabupaten;

$MasaBerlaku = $fako->ms_laku;

// Tanggal Indonesia
$Tgl1    = $fako->tgl1;
$pisah = explode("-", $Tgl1);
$tgl = $pisah[2];
$bln = $pisah[1];
$thn = $pisah[0];
$Tanggal1   = $tgl.'-'.$bln.'-'.$thn;

$Tgl2    = $fako->tgl2;
$pisah2 = explode("-", $Tgl2);
$tgl2 = $pisah2[2];
$bln2 = $pisah2[1];
$thn2 = $pisah2[0];
$Tanggal2   = $tgl2.'-'.$bln2.'-'.$thn2;

$Jalur       = $fako->jalur;
if ($Jalur == "Darat") {
    $Jalur1 = "V";
    $Jalur2 = "";
    $Jalur3 = "";
    $Jalur4 = "";
} elseif ($Jalur == "Sungai") {
    $Jalur1 = "";
    $Jalur2 = "V";
    $Jalur3 = "";
    $Jalur4 = "";
} elseif ($Jalur == "Laut") {
    $Jalur1 = "";
    $Jalur2 = "";
    $Jalur3 = "V";
    $Jalur4 = "";
} elseif ($Jalur == "Udara") {
    $Jalur1 = "";
    $Jalur2 = "";
    $Jalur3 = "";
    $Jalur4 = "V";
}
$Gunakan     = $fako->gunakan;
$Identitas   = $fako->identitas;

// Penerima
$NamaPenerima= $fako->nama_penerima;
$AlamatPenerima = $fako->alamat_terima;
$TelpPenerima = $fako->telepon;
$lokasiBongkar = $fako->lokasi_bongkar;
$Transit     = $fako->transit;

// Isi FAKO Non Afal
$Tipis      = $tipis->tebal;
$Tebal      = $tebal->tebal;
$Sempit     = $sempit->lebar;
$Lebar      = $lebar->lebar;
$Pendek     = $pendek->panjang;
$Panjang    = $panjang->panjang;
$Jumlah     = $keping->keping;
$Volume     = $volume->volume;
$Keterangan = "UD. JATI NUGROHO";
$Kayu       = $Tipis."/".$Tebal."x".$Sempit."/".$Lebar."x".$Pendek."/".$Panjang;

// Isi FAKO Afal
$nTotalRowAfal = count($afal);
if ($nTotalRowAfal > 0) {
    $NamaKayu   = $afal->nama_jenis_kayu;
    $JumlahAfal = "";
    $VolumeAfal = $volume_afal->volume;
    $KetAfal    = "";
}

// Total Jumalah
$TotalJumlah = $keping->keping;
if (!empty($VolumeAfal)) {
    $v_afal = $volume_afal->volume;
} else {
    $v_afal=0;
}


$TotalVolume = ($Volume+$v_afal);

// DKO
$NoDKO       = $fako->no_dko;
$TglDKO      = tgl_indo($fako->tgl_dko);

// Penerbit
$NamaPenerbit = $fako->nama_penerbit;
$NoRegister   = $fako->no_register;
$TglTerbit    = tgl_indo($fako->tgl_dko);
$Lokasi       = $fako->alamat;

// Isi Data
$Data.= addHeader($Provinsi, $Kabupaten, $MasaBerlaku, $Tanggal1, $Tanggal2, $Jalur1, $Jalur2, $Jalur3, $Jalur4, $Gunakan, $Identitas, $NamaPenerima, $AlamatPenerima, $TelpPenerima, $lokasiBongkar, $Transit);
// Isi ke Record Non Afal
$Data.= addItemFAKO($Kayu, $Tipis, $Tebal, $Sempit, $Lebar, $Pendek, $Panjang, $Jumlah, $Volume, $Keterangan);
// Jika ada Data Afal
if ($nTotalRowAfal > 0) {
    $Data.= addItemAFAL($NamaKayu, $JumlahAfal, $VolumeAfal, $KetAfal);
    $Data.= chr(10).chr(10).chr(10).chr(10).chr(10).chr(10).chr(10);
} else {
    $Data.= chr(10).chr(10).chr(10).chr(10).chr(10).chr(10).chr(10).chr(10);
}
// Total Jumlah dan Terbilang
$Data.= FooterJumlahTerbilang($TotalJumlah, $TotalVolume, $NoDKO, $TglDKO);
// Penerbit
$Data.= Penerbit($NamaPenerbit, $NoRegister, $TglTerbit, $Lokasi);

fwrite($handle, $Data);
fclose($handle);
$time = time();
$filename = "ReportFAKODot_".$time;
$pdfFilePath = FCPATH."/download/reportfako/$filename.txt";
copy($file, $pdfFilePath);

// Cetak ke Printer
//$lokasi_printer = $printer->lokasi_printer;
//copy($file, $lokasi_printer."/cetak.txt");

unlink($file);
?>