🌹🏠🌹？》《》？《》？<?php
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/PHPExcel-1.8/Classes/PHPExcel.php";

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

$p_titulo    = "Consulta de Articulo pendientes de Remitos (SIN Remitos Repuestos) ";
$p_tit       = r_empresa_des($_GET['emp']);
$pdf->titulo = $p_titulo;
$pdf->sub_titulo = $p_tit;
$p_alto   = 5;
$p_borde  = 0;
$pa_tit   = array();
$pa_tit[] = array('campo'=>'Articulo','tamano'=>40, 'centrado'=>'D');
$pa_tit[] = array('campo'=>'Descripcion','tamano'=>70, 'centrado'=>'D');
$pa_tit[] = array('campo'=>'Bul.','tamano'=>15, 'centrado'=>'R');
$pa_tit[] = array('campo'=>'Unid.','tamano'=>15, 'centrado'=>'R');
$pa_tit[] = array('campo'=>'Vol.','tamano'=>15, '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")
                ->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(20);
$objPHPExcel->getActiveSheet()->getColumnDimension('B')->setWidth(50);
$objPHPExcel->getActiveSheet()->getColumnDimension('C')->setWidth(15);
$objPHPExcel->getActiveSheet()->getColumnDimension('D')->setWidth(15);
$objPHPExcel->getActiveSheet()->getColumnDimension('E')->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', 'Articulo')
            ->setCellValue('B3', 'Descripcion')
            ->setCellValue('C3', 'Bultos')
            ->setCellValue('D3', 'Unidades')
            ->setCellValue('E3', 'M3');

$p_total_bul=0;
$p_total_uns=0;
$p_total_vol=0;

$p_row        = 4;
$sql="select a.articulo,c.descripcion,c.upb, c.volumen_art, sum(a.cantidad/c.upb) bultos
        from prop_ccr a, ped_ccr  b, articulo c, {$Base->base_web}rem_cab e
       where a.empresa   = b.empresa
         and a.tipo_mov  = b.tipo_mov
         and a.letra     = b.letra
         and a.sucur     = b.sucur 
         and a.numero    = b.numero
         and a.secuencia = b.secuencia
         and a.empresa   = c.empresa
         and a.articulo  = c.articulo
         and a.empresa   = e.empresa 
         and a.letra     = e.letra
         and a.sucur     = e.sucur 
         and a.numero    = e.numero
         and e.tdoc      = 'RTO'
         and e.estado in ( 1,2,3 )
         and a.empresa   = '{$_GET['emp']}'
         and a.condicion in ('C')";
if (isset($_GET['art']) && strlen($_GET['art']) > 0){
  $p_articulo = rtrim(strtoupper($_GET['art']));
  $sql.="and a.articulo = '$p_articulo' ";
}
$sql.="group by a.articulo,c.descripcion,c.upb,c.volumen_art
       order by 1,2,3,4 ";
$resultado=@odbc_exec($Base->conexion,$sql);
while ($fila= odbc_fetch_array($resultado) )
{
    $p_bultos   = sprintf("%0.0f",$fila['bultos']);
    $p_unidades = $fila['bultos'] * $fila['upb'];
    $p_volumen  = $p_bultos * $fila['volumen_art'];
    $p_volumen  = sprintf("%0.5f",$p_volumen);
  
    $pdf->cell(40,$p_alto,$fila['articulo'],$p_borde,0,'',true);
    $pdf->cell(70,$p_alto,$fila['descripcion'],$p_borde,0,'',true);
    $pdf->cell(15,$p_alto,$p_bultos,$p_borde,0,'R',true);
    $pdf->cell(15,$p_alto,$p_unidades,$p_borde,0,'R',true);
    $pdf->cell(15,$p_alto,$p_volumen,$p_borde,1,'R',true);

    $p_columna = 0;
    $objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, $fila['articulo']);
    $p_columna++;
    $objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, $fila['descripcion']);
    $p_columna++;
    $objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, $p_bultos);
    $p_columna++;
    $objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, $p_unidades);
    $p_columna++;
    $objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, $p_volumen);

    $p_row++;

    $p_total_bul+=$fila['bultos'];
    $p_total_uns+=$p_unidades;
    $p_total_vol+=$p_volumen;

}

$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(80,$p_alto,"",$p_borde,0);
$pdf->cell(15,$p_alto,$p_total_bul,$p_borde,0,'R',true);
$pdf->cell(15,$p_alto,$p_total_uns,$p_borde,0,'R',true);
$pdf->cell(15,$p_alto,$p_total_vol,$p_borde,1,'R',true);

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

$p_row++;
$p_columna = 0;
$objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, 'TOTALES:');
$p_columna+=2;
$objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, $p_total_bul);
$p_columna++;
$objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, $p_total_uns);
$p_columna++;
$objPHPExcel->getActiveSheet()->setCellValueByColumnAndRow($p_columna, $p_row, $p_total_vol);

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

?>