🌹🏠🌹？》《》？《》？<?php
session_start();
include_once "../Lib/PDF.php";
include_once "../Lib/inicio.php";
include_once "../Lib/r_mails.php";
include_once "../Lib/funciones.php";
include_once "../Lib/r_general.php";
include_once "../Lib/c_pdcabe.php";
include_once "../Lib/PHPExcel-1.8/Classes/PHPExcel.php";

$pa_return['msg']   = "";
$pa_return['error'] = "OK";

$p_header_html=r_header_html();
$vistas->preparar_vista('r_header_html',$p_header_html);
$p_html   = $_SESSION['carpeta']."/Lib/vista_grabar.html";
$p_titulo = "Importacion de Remitos";
$p_tit    = "(".$_GET['emp'].") ".r_empresa_des($_GET['emp']);

$p_cabecera=r_header($p_titulo);
$vistas->preparar_vista('r_header',$p_cabecera);
$p_pie=r_footer();
$vistas->preparar_vista('r_footer',$p_pie);

$PiePagina="<a id='salida' href='index.php'>Volver</a>";
$vistas->preparar_vista('PiePaginaBoton',$PiePagina);
$vistas->preparar_vista('PiePagina','');
$vistas->preparar_vista('visible_salida','DivInvisible');

$pdf = new PDF();
$objPHPExcel = new PHPExcel();

$pdf->titulo = $p_titulo;
$pdf->sub_titulo = $p_tit;
$p_alto   = 5;
$p_borde  = 0;
$pa_tit   = array();
$pa_tit[] = array('campo'=>'It.','tamano' => 5, 'centrado' => 'D');
$pa_tit[] = array('campo'=>'EAN','tamano' => 20, 'centrado' => 'D');
$pa_tit[] = array('campo'=>'Articulo','tamano' => 25, 'centrado' => 'D');
$pa_tit[] = array('campo'=>'Descripcion','tamano' => 50, 'centrado' => 'D');
$pa_tit[] = array('campo'=>'Nro.Lote.','tamano' =>  15, 'centrado' => 'R');
$pa_tit[] = array('campo'=>'Serie','tamano' => 25, 'centrado' => 'R');
$pa_tit[] = array('campo'=>'Bul.','tamano'=>12, 'centrado'=>'R');
$pa_tit[] = array('campo'=>'Unid.','tamano'=>15, 'centrado'=>'R');
$pa_tit[] = array('campo'=>'Vol.','tamano'=>15, 'centrado'=>'R');
$pa_tit[] = array('campo'=>'Conc.','tamano'=>12, 'centrado'=>'R');
$pdf->encabezado = $pa_tit;

$pdf->AliasNbPages();
$pdf->SetLeftMargin(5);
$pdf->AddPage();
$pdf->SetFillColor(255,255,255);
$pdf->SetFont('Arial','', 7);

$objPHPExcel->getProperties()->setCreator("GLSA")
                ->setLastModifiedBy($_SESSION['usuario_conectado'])
                ->setTitle($p_titulo)
                ->setSubject($p_titulo)
                ->setDescription("")
                ->setKeywords("")
                ->setCategory("");

$objPHPExcel->getActiveSheet()->setTitle('Consulta Remitos');
$objPHPExcel->setActiveSheetIndex(0);
$objPHPExcel->setActiveSheetIndex(0)
            ->setCellValue('A1', $p_titulo)
            ->setCellValue('A2', $p_tit);

$objPHPExcel->getActiveSheet()->getColumnDimension('A')->setWidth(5);
$objPHPExcel->getActiveSheet()->getColumnDimension('B')->setWidth(7);
$objPHPExcel->getActiveSheet()->getColumnDimension('C')->setWidth(15);
$objPHPExcel->getActiveSheet()->getColumnDimension('D')->setWidth(12);
$objPHPExcel->getActiveSheet()->getColumnDimension('E')->setWidth(40);
$objPHPExcel->getActiveSheet()->getColumnDimension('F')->setWidth(30);
$objPHPExcel->getActiveSheet()->getColumnDimension('G')->setWidth(25);
$objPHPExcel->getActiveSheet()->getColumnDimension('H')->setWidth(25);
$objPHPExcel->getActiveSheet()->getColumnDimension('J')->setWidth(15);
$objPHPExcel->getActiveSheet()->getColumnDimension('K')->setWidth(15);
$objPHPExcel->getActiveSheet()->getColumnDimension('L')->setWidth(15);
$objPHPExcel->getActiveSheet()->getColumnDimension('M')->setWidth(10);
$objPHPExcel->getActiveSheet()->getColumnDimension('N')->setWidth(10);
$objPHPExcel->getActiveSheet()->getColumnDimension('O')->setWidth(20);
$objPHPExcel->getActiveSheet()->getColumnDimension('P')->setWidth(20);
$objPHPExcel->getActiveSheet()->getColumnDimension('Q')->setWidth(30);
$objPHPExcel->getActiveSheet()->getColumnDimension('S')->setWidth(15);

$styleArray = array(
    'font'  => array(
        'bold'  => true,
        'color' => array('rgb' => '#70296F'),
        'size'  => 15,
        'name'  => 'Verdana'
    ));

$objPHPExcel->getActiveSheet()->getStyle('A1')->applyFromArray($styleArray);

$objPHPExcel->setActiveSheetIndex(0)
            ->setCellValue('A3', 'Let.')
            ->setCellValue('B3', 'Sucur.')
            ->setCellValue('C3', 'Numero')
            ->setCellValue('D3', 'Fec.Doc.')
            ->setCellValue('E3', 'Cliente')
            ->setCellValue('F3', 'Direccion')
            ->setCellValue('G3', 'Provincia')
            ->setCellValue('H3', 'Localidad')
            ->setCellValue('I3', 'Cod.Postal')
            ->setCellValue('J3', 'Doc.')
            ->setCellValue('K3', 'Val.Declarado')
            ->setCellValue('L3', 'CUIT')
            ->setCellValue('M3', 'Super.')
            ->setCellValue('N3', 'Itm.')
            ->setCellValue('O3', 'EAN')
            ->setCellValue('P3', 'Articulo')
            ->setCellValue('Q3', 'Descripcion')
            ->setCellValue('R3', 'Nro.Lote')
            ->setCellValue('S3', 'Serie')
            ->setCellValue('T3', 'Bultos')
            ->setCellValue('U3', 'Unidades')
            ->setCellValue('V3', 'M3')
            ->setCellValue('W3', 'Concepto');

$p_total_bul = 0;
$p_total_uns = 0;
$p_total_vol = 0;
$p_total_otr = 0;
$p_total_rem = 0;

$p_cancel = false;
$p_indice = trim($_GET['indice']);
$p_row    = 4;
foreach ($_SESSION['ABMRemitos_inter'] as $p_i=>$fila )
{
    //echo " fila: <pre> ".print_r($fila,1);

    $Pdcabe = new Pdcabe($_GET['emp'],'RTO',$fila['letra'],$fila['sucur'],$fila['numero']);
    $Pdcabe->conexion = $Base->conexion;

    $Pdcabe->r_select_pdcabe();
    if ($Pdcabe->error != 0){
        $p_cancel           = true;
        $pa_return['msg']   = "02- Error. No se puedo leer [pdcabe] !! ";
        $pa_return['error'] = "NOK";
        break;
    }
    $Pdcabe->r_select_clientes_emp();
    if ($Pdcabe->error != 0){
        $p_cancel           = true;
        $pa_return['msg']   = "03- Error. No se puedo leer [clientes_emp] !! ";
        $pa_return['error'] = "NOK";
        break;
    }
    $pdf->SetFont('Arial','', 10);
    $pdf->cell(8,$p_alto,$Pdcabe->letra,$p_borde,0,'');
    $pdf->cell(12,$p_alto,"-".$Pdcabe->sucur,$p_borde,0,'');
    $pdf->cell(20,$p_alto,"-".$Pdcabe->numero,$p_borde,0,'');
    $pdf->SetFont('Arial','', 7);
    $pdf->cell(30,$p_alto,"Fecha : ".$Pdcabe->fecha_ing,$p_borde,0,'');

    $p_doc = $Pdcabe->letra_fc."-".$Pdcabe->sucur_fc."-".$Pdcabe->nro_factura;
    $pdf->cell(30,$p_alto,"Doc. ".$p_doc,$p_borde,0,'');
    $pdf->cell(40,$p_alto,"Valor Declarado: $ ".$Pdcabe->valor_declarado,$p_borde,0,'');
    $pdf->cell(35,$p_alto,"CUIT: ".$Pdcabe->cuit,$p_borde,0,'');
    $pdf->cell(25,$p_alto,"Super: ".$Pdcabe->edificio,$p_borde,1,'');

    $pdf->cell(40,$p_alto,$Pdcabe->cliente,$p_borde,0,'');
    $pdf->cell(40,$p_alto,$Pdcabe->direccion,$p_borde,0,'');
    $pdf->cell(25,$p_alto,$Pdcabe->provincia,$p_borde,0,'');
    $pdf->cell(30,$p_alto,$Pdcabe->localidad,$p_borde,0,'');
    $pdf->cell(15,$p_alto,$Pdcabe->cod_postal,$p_borde,1,'');
    if ($Pdcabe->turno == 'S'){
        $pdf->cell(30,$p_alto,"Turno: ".$Pdcabe->fecha_turno,$p_borde,0,'');
        $pdf->cell(30,$p_alto,"Hora: ".$Pdcabe->hora_pactada,$p_borde,1,'');
    }
    $pdf->cell(10,$p_alto,'',$p_borde,1);

    $p_ped_bul = 0;
    $p_ped_uns = 0;
    $p_ped_vol = 0;
    $p_ped_otr = 0;
    //$p_i       = 1;
    $pa_rm = $Pdcabe->r_array_pdcabe();
    foreach($pa_rm as $p_j=>$deta){
        $p_articulo_des = r_articulo_des($Pdcabe->empresa,$deta['articulo']);
        $p_ind = $p_j+1;
        $pdf->cell(5,$p_alto,$p_ind,$p_borde,0,'');
        $pdf->cell(20,$p_alto,$deta['articulo'],$p_borde,0,'');
        if ($_GET['emp'] == 174){
            $pdf->cell(75,$p_alto,$deta['articulo'],$p_borde,0,'');
        }
        else{
            $pdf->cell(25,$p_alto,$deta['articulo'],$p_borde,0,'');
            $pdf->cell(50,$p_alto,$p_articulo_des,$p_borde,0,'');
        }
        $pdf->cell(15,$p_alto,$deta['nro_lote'],$p_borde,0,'R');
        $pdf->cell(25,$p_alto,$deta['serie'],$p_borde,0,'R');
        $pdf->cell(12,$p_alto,$deta['bultos'],$p_borde,0,'R');
        $pdf->cell(15,$p_alto,$deta['unidades'],$p_borde,0,'R');
        $pdf->cell(15,$p_alto,$deta['volumen'],$p_borde,0,'R');
        $pdf->cell(12,$p_alto,$deta['concepto'],$p_borde,1,'R');

        $p_columna = 0;
        $objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, $Pdcabe->letra);
        $p_columna++;
        $objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, $Pdcabe->sucur);
        $p_columna++;
        $objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, $Pdcabe->numero);
        $p_columna++;
        $objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, $Pdcabe->fecha_ing);
        $p_columna++;
        $objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, $Pdcabe->cliente);
        $p_columna++;
        $objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, $Pdcabe->direccion);
        $p_columna++;
        $objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, $Pdcabe->provincia);
        $p_columna++;
        $objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, $Pdcabe->localidad);
        $p_columna++;
        $objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, $Pdcabe->cod_postal);
        $p_columna++;
        $objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, $p_doc);
        $p_columna++;
        $objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, $Pdcabe->valor_declarado);
        $p_columna++;
        $objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, $Pdcabe->cuit);
        $p_columna++;
        $objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, $Pdcabe->edificio);
        $p_columna++;
        $objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, $p_j);
        $p_columna++;
        $objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, $deta['articulo']);
        $p_columna++;
        $objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, $deta['articulo']);
        $p_columna++;
        $objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, $p_articulo_des);
        $p_columna++;
        $objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, $deta['nro_lote']);
        $p_columna++;
        $objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, $deta['serie']);
        $p_columna++;
        $objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, $deta['bultos']);
        $p_columna++;
        $objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, $deta['unidades']);
        $p_columna++;
        $objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, $deta['volumen']);
        $p_columna++;
        $objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, $deta['concepto']);
        $p_row++;

        $p_ped_bul += $deta['bultos'];
        $p_ped_uns += $deta['unidades'];
        $p_ped_vol += $deta['volumen'];
        $p_ped_otr += $deta['otros'];

        $p_total_bul += $deta['bultos'];
        $p_total_uns += $deta['unidades'];
        $p_total_vol += $deta['volumen'];
        $p_total_otr += $deta['otros'];

    }
    $pdf->cell(100,$p_alto,"",$p_borde,0,'');
    $pdf->cell(35,$p_alto,"Total Pedido:",$p_borde,0,'');
    $pdf->cell(5,$p_alto,'',$p_borde,0,'');
    $pdf->cell(12,$p_alto,$p_ped_bul,$p_borde,0,'R');
    $pdf->cell(15,$p_alto,$p_ped_uns,$p_borde,0,'R');
    $pdf->cell(15,$p_alto,$p_ped_vol,$p_borde,1,'R');
    //$pdf->cell(12,$p_alto,$p_ped_otr,$p_borde,1,'R');

    $pdf->Line(5,$pdf->GetY(),200,$pdf->GetY());

    $p_total_rem+=1;

}

if ($p_cancel){
    r_salida();
}

$p_total_vol=sprintf("%0.5f",$p_total_vol);

$pdf->cell(20,$p_alto,"",$p_borde,1);
$pdf->cell(30,$p_alto,"TOTALES:",$p_borde,0);
$pdf->cell(110,$p_alto,"( ".$p_total_rem."  remitos) ",$p_borde,0);
$pdf->cell(12,$p_alto,$p_total_bul,$p_borde,0,'R');
$pdf->cell(15,$p_alto,$p_total_uns,$p_borde,0,'R');
$pdf->cell(15,$p_alto,$p_total_vol,$p_borde,1,'R');
//$pdf->cell(12,$p_alto,$p_total_otr,$p_borde,1,'R');

$pdf->SetLineWidth(0.3);
$pdf->Line(5,$pdf->GetY(),200,$pdf->GetY());

switch ($_GET['donde']) {
case 'I':
    $pdf->Output();
    break;
case 'E':
    $objWriter = PHPExcel_IOFactory::createWriter($objPHPExcel, $_SESSION['Excel']);
    header('Content-Type: application/vnd.ms-excel');
    header('Content-Disposition: attachment;filename=remitos.xls');
    header('Cache-Control: max-age=0');
    $objWriter->save('php://output');
    break;
 
default:   
    $pdf->Output("F","Remitos.pdf");
    r_envio($_SESSION['mail'],$pdf->titulo," ","Remitos.pdf");
    break;
}

function r_salida()
{

global $vistas,$pa_return,$p_html;

$vistas->preparar_vista('PiePagina',$pa_return['msg']);
$vistas->preparar_vista('r_msg',$pa_return['msg']);
echo $vistas->r_arma_vista($p_html);

die();

}

?>