<?php
// msql_select_db($cfg_data,$link_vcrx);
// msql_select_db('vcrxol_vare',$link_vcrx);
// echo date("Y-m-d H:i:s");

// INVE
{

function gen_lote()
{
     include('../_cfg/config.php');
     $sql_lote ='select distinct docu,item,lote,status ';
     $sql_lote.='from inve1 left join inve2 on idnum1=idnum2 ';
     $sql_lote.='where status not in ("O","X") ';
     $sql_lote.='and docu like "IB%" ';
     $sql_lote.='and lote !="" ';
     $sql_lote.='and lote is not null ';
     $res_lote=msql_query($sql_lote,$link_vcrx);
     while($aso_lote=msql_fetch_assoc($res_lote))
     {
          $xlote=$aso_lote['lote'];
          $sql_inse='insert into lote0(lote_codigo,lote_descri,lote_idate)value("'.$xlote.'","'.$xlote.'",now())';
          $res_inse=msql_query($sql_inse,$link_vcrx);
     }
     
}
     
     
     
function set_duni()
{
  include('../_cfg/config.php');

     $sql_duni ='update item0 set item_duni=case ';
     $sql_duni.='when item_umdd like "UND%" then 0 ';
     $sql_duni.='when item_umdd like "UNI%" then 0 ';
     $sql_duni.='when item_umdd like "KG%" then 2 ';
     $sql_duni.='when item_umdd like "LB%" then 2 ';
     $sql_duni.='else item_duni ';
     $sql_duni.='end ';
     $res_duni=msql_query($sql_duni,$link_vcrx);
     
     if($cfg_empr=='hfre')
     {
          $sql_duni ='update item0 set item_duni=case ';
          $sql_duni.='when item_umdd like "LT%" then 2 ';
          $sql_duni.='when item_umdd like "LIT%" then 2 ';
          $sql_duni.='else item_duni ';
          $sql_duni.='end ';
          $res_duni=msql_query($sql_duni,$link_vcrx);
     }
}     
     
     
function set_uxpre($docu='',$idnum='')
{   
  include('../_cfg/config.php');

//     $sql_uxpre ='update comp2 set uxpre=1 where (uxpre=0 or uxpre is null)';
    $sql_uxpre ='update comp2 set uxpre=1 where ifnull(uxpre,0)=0 ';
//     if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);
  
     if($cfg_empr=='hfre')
     {
     //////////////
     $sql_uxpre ='update comp2  ';
     $sql_uxpre.=' set uxpre=5 where (detalle like "%5K%" or detalle like "%5 K%") ';
     if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
     $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

     $sql_uxpre ='update comp2 ';
     $sql_uxpre.='set uxpre=0.5 where (';
     $sql_uxpre.='   detalle like "%0,5K%" or detalle like "%0,5 K%" or detalle like "%0,5 - K%" ';
     $sql_uxpre.='or detalle like "%0.5K%" or detalle like "%0.5 K%" or detalle like "%0.5 - K%" ';
     $sql_uxpre.=') ';
     if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
     $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

     //     $sql_uxpre ='update comp2  ';
     //     $sql_uxpre.=' set uxpre=0.5 where (detalle like "%0.5K%" or detalle like "%0.5 K%" or detalle like "%0.5 - K%") ';
     //     if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
     //     $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

     ////////////////
     $sql_uxpre ='update comp2  ';
     $sql_uxpre.='set uxpre=5 where (detalle like "%5G%" or detalle like "%5 G%") ';
     if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
     $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

     ////////////////
     $sql_uxpre ='update comp2  ';
     $sql_uxpre.='set uxpre=5 where (detalle like "%5L%" or detalle like "%5 L%") ';
     if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
     $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

     ////////////////
     $sql_uxpre ='update comp2 ';
     $sql_uxpre.='set uxpre= case ';
     $sql_uxpre.='when detalle like "%20K%" or detalle like "%20 K%" then 20 ';
     $sql_uxpre.='when detalle like "%23K%" or detalle like "%23 K%" then 23 ';
     $sql_uxpre.='when detalle like "%25K%" or detalle like "%25 K%" then 25 ';
     $sql_uxpre.='when detalle like "%40K%" or detalle like "%40 K%" then 40 ';
     $sql_uxpre.='when detalle like "%45K%" or detalle like "%45 K%" then 45 ';
     $sql_uxpre.='when detalle like "%50K%" or detalle like "%50 K%" then 50 ';

     $sql_uxpre.='when detalle like "%10L%" or detalle like "%10 L%" then 10 ';
     $sql_uxpre.='when detalle like "%20L%" or detalle like "%20 L%" then 20 ';
     $sql_uxpre.='when detalle like "%30L%" or detalle like "%30 L%" then 30 ';
     $sql_uxpre.='when detalle like "%50L%" or detalle like "%50 L%" then 50 ';

     //  $sql_uxpre.='when detalle like "%19LTS%" or detalle like "%19lts%" then 19 ';
     //  $sql_uxpre.='when detalle like "%19LTS%" or detalle like "%19lts%" then 18.92705 ';
     $sql_uxpre.='when detalle like "%19LTS%" or detalle like "%19lts%" or detalle like "%19 LT%" then 18.92705 ';    

     $sql_uxpre.='when detalle like "%250CC%" or detalle like "%250 CC%" then 0.25';
     $sql_uxpre.='when detalle like "%500CC%" or detalle like "%500 CC%" then 0.50';

     $sql_uxpre.='when detalle like "%250ML%" or detalle like "%250 ML%" then 0.25';
     $sql_uxpre.='when detalle like "%500ML%" or detalle like "%500 ML%" then 0.50';

     $sql_uxpre.='when detalle like "%10G%" or detalle like "%10 G%" then 10 ';
     $sql_uxpre.='when detalle like "%100G%" or detalle like "%100 G%" then 100 ';
     //     $sql_uxpre.='when detalle like "%250G%" or detalle like "%250 G%" then 100 ';
     $sql_uxpre.='when detalle like "%500GR%" or detalle like "%500 GR%" then 500 ';

     $sql_uxpre.='else uxpre ';
     $sql_uxpre.='end ';
     if(!empty($idnum)){$sql_uxpre.='where idnum2="'.$idnum.'" ';}
     $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

     }
//   echo '<br>*/*/*'.date('H:i:s ').microtime();

    $sql_uxpre ='update comp2  ';
    $sql_uxpre.='set uxpre=1 ';
    $sql_uxpre.='where (detalle like "%1LT%" or detalle like "%1 LT%") ';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);
     
    $sql_uxpre ='update comp2  ';
    $sql_uxpre.='set uxpre=2 ';
    $sql_uxpre.='where (detalle like "%2LT%" or detalle like "%2 LT%") ';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);
     
    $sql_uxpre ='update comp2  ';
    $sql_uxpre.='set uxpre=0.5 where (detalle like "%1/2LT%" or detalle like "%1/2 LT%") ';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

     
    //YARECUADOR
    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=1 ';
    $sql_uxpre.='where idnum1=idnum2 and enti like "1792028140%" and (detalle like "%50K%" or detalle like "%50 K%") ';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);
  
    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set umdd="TM" ';
    $sql_uxpre.='where idnum1=idnum2 and enti like "1792028140%" and (detalle like "%50K%" or detalle like "%50 K%") ';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=1 ';
    $sql_uxpre.='where idnum1=idnum2 and enti like "1792028140%" and detalle like "%10L%" and itemce = "40011459" ';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);
    
    //FERTISA
    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=50, umdd="KG" ';
    $sql_uxpre.='where idnum1=idnum2 and enti like "0993208086%"  and itemce="1130885" ';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);
     
    //AGRITOP
    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=1 ';
    $sql_uxpre.='where idnum1=idnum2 and enti like "0992233222%" ';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

    //AGRIPAC
    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=40 ';
    $sql_uxpre.='where idnum1=idnum2 and enti like "0990006687%" and itemce="2000106"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=50 ';
    $sql_uxpre.='where idnum1=idnum2 and enti like "0990006687%" and itemce="1003732"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=60 ';
    $sql_uxpre.='where idnum1=idnum2 and enti like "0990006687%" and itemce="4000340"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=0.4 ';
    $sql_uxpre.='where idnum1=idnum2 and enti like "0990006687%" and itemce="4000337"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=5 ';
    $sql_uxpre.='where idnum1=idnum2 and enti like "0990006687%" and itemce="1000235"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

     //2022-07-11
//     $sql_uxpre ='update comp1, comp2  ';
//     $sql_uxpre.='set uxpre=0.5 ';
//     $sql_uxpre.='where idnum1=idnum2 and enti like "0990006687%" and itemce="4000474"';
//     if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
//     $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

    //FERTILIZANTES DEL PACIFICO
    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=50 ';
    $sql_uxpre.='where idnum1=idnum2 and enti like "0991441336%" and itemce="01.02.02.3233.1"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=50 ';
    $sql_uxpre.='where idnum1=idnum2 and enti like "0991441336%" and itemce="01.02.02.2361.1"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=50 ';
    $sql_uxpre.='where idnum1=idnum2 and enti like "0991441336%" and itemce="01.02.02.3363.1"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=50 ';
    $sql_uxpre.='where idnum1=idnum2 and enti like "0991441336%" and itemce="01.02.02.3184.1"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=50 ';
    $sql_uxpre.='where idnum1=idnum2 and enti like "0991441336%" and itemce="01.02.02.2876.1"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=5 ';
    $sql_uxpre.='where idnum1=idnum2 and enti like "0991441336%" and itemce="01.02.02.3617.1"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

    // BRENNTAG
    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=1 ';
    $sql_uxpre.='where idnum1=idnum2 and enti like "0990005087%" and itemce="MUPOT.01"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);
     
    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=1 ';
    $sql_uxpre.='where idnum1=idnum2 and enti like "0990005087%" and itemce="NIAMO.03"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=1 ';
    $sql_uxpre.='where idnum1=idnum2 and enti like "0990005087%" and itemce="0B4R81.PUTTM0"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=1 ';
    $sql_uxpre.='where idnum1=idnum2 and enti like "0990005087%" and itemce="1B4MB1.PTRUS0"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=1 ';
    $sql_uxpre.='where idnum1=idnum2 and enti like "0990005087%" and itemce="0B4ND1.PTPSA0"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

//      echo '*/*/*/*'.$sql_uxpre;

    // AGROBIM
    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=25 ';
    $sql_uxpre.='where idnum1=idnum2 and enti like "0992808063%" and itemce="MP0051"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=2 ';
    $sql_uxpre.='where idnum1=idnum2 and enti like "0992808063%" and itemce="PT-000085"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);
  
    // CEREZO ALVAREZ
    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=20 ';
    $sql_uxpre.='where idnum1=idnum2 and enti like "1206132324%" and itemce="63"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

    // 	FUMIBANA
    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=1 ' ;
    $sql_uxpre.='where idnum1=idnum2 and enti like "0391025746%" and itemce="1150287"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);
     
    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=1 ' ;
    $sql_uxpre.='where idnum1=idnum2 and enti like "0391025746%" and itemce="1150288"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=20 ' ;
    $sql_uxpre.='where idnum1=idnum2 and enti like "0391025746%" and itemce="SURANO"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=20 ' ;
    $sql_uxpre.='where idnum1=idnum2 and enti like "0391025746%" and itemce="SICO"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=1 ' ;
    $sql_uxpre.='where idnum1=idnum2 and enti like "0391025746%" and itemce="22010085"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=5 ' ;
    $sql_uxpre.='where idnum1=idnum2 and enti like "0391025746%" and itemce="1150315"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);
     
    // AGROSERVICIOS
    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=500 ' ;
    $sql_uxpre.='where idnum1=idnum2 and enti like "0993341002%" and itemce="616"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);
     
    // 	FERTIGREEN
    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=0.5 ' ;
    $sql_uxpre.='where idnum1=idnum2 and enti like "0992745851%" and itemce="FER0009"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

    // 	INSUQUIMSA
    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=20 ' ;
    $sql_uxpre.='where idnum1=idnum2 and enti like "1792049113%" and itemce="0011030107007"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

    // 	MORA MEDINA
    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=19 ' ;
    $sql_uxpre.='where idnum1=idnum2 and enti like "1205721143%" and itemce="FELI19LT"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);
  
    // 	BRENNTAG ECUADOR S.A.
    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=1 ' ;
    $sql_uxpre.='where idnum1=idnum2 and enti like "0990005087%" and itemce="0B4MK1.PUTTQ0"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);
  
    // AGRODESA
    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set uxpre=4 ';
    $sql_uxpre.='where idnum1=idnum2 and enti like "0991280618%" and itemce="PT047"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);



    // 	RUBIANES FREIRE SILVIA
//     $sql_uxpre ='update comp1, comp2  ';
//     $sql_uxpre.='set uxpre=0 ' ;
//     $sql_uxpre.='where idnum1=idnum2 and enti like "1803066834%" and itemce="TER4.6.2"';
//     if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
//     $res_uxpre=msql_query($sql_uxpre,$link_vcrx);
  

    // INDUCOLINA CIA LTDA
//     $sql_uxpre ='update comp1, comp2  ';
//     $sql_uxpre.='set uxpre=23 ' ;
//     $sql_uxpre.='where idnum1=idnum2 and enti like "0190335275%" and itemce="N A"';
//     if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
//     $res_uxpre=msql_query($sql_uxpre,$link_vcrx);
  

     // AGRICOLA DEL DEL MONTE
     $sql_uxpre ='update comp1, comp2  ';
     $sql_uxpre.='set uxpre=0.05 ' ;
     $sql_uxpre.='where idnum1=idnum2 and enti like "0991098127%" and itemce2="1058" and itemce = "2"';
     if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
     $res_uxpre=msql_query($sql_uxpre,$link_vcrx);
     
     
      //echo '<br>****'.$sql_uxpre;
      //echo '<br>****'.msql_affected_rows($res_uxpre);
      //echo '<br>****'.msql_error($link_vcrx);
  
  
}
  
function set_facon($docu='',$idnum='')
{
  
  include('../_cfg/config.php');
//   echo '<br>*/*/*'.date('H:i:s ').microtime();
//     $sql_facon ='update comp2 set facon=1 where (facon=0 or facon is null)';
    $sql_facon ='update comp2 set facon=1 where ifnull(facon,0)=0 ';
//     if(!empty($idnum)){$sql_facon.='and idnum2="'.$idnum.'" ';}
    $res_facon=msql_query($sql_facon,$link_vcrx);
  
//      echo '*/*/*/';
     
  if($cfg_empr=='imcp')
  {
    $sql_facon ='update comp2, item0 ';
    $sql_facon.='set facon=.01 ';
    $sql_facon.='where item=item_codigo  ';
    $sql_facon.='and itemce="MPRO020"  ';
    if(!empty($idnum)){$sql_facon.='and idnum2="'.$idnum.'" ';}
    $res_facon=msql_query($sql_facon,$link_vcrx);
  }
       
  if($cfg_empr=='hfre')
  {
    ///////////////////
    // conversiones de unidad de medida
    
    // lb->kg
    $sql_facon ='update comp2, item0 ';
    $sql_facon.='set facon=1/2.20462  ';
    $sql_facon.='where (detalle like "%LB%" or detalle like "%LIB%") ';
    $sql_facon.='and item=item_codigo and item_umdd like "K%"';
    if(!empty($idnum)){$sql_facon.='and idnum2="'.$idnum.'" ';}
    $res_facon=msql_query($sql_facon,$link_vcrx);

    // gr->kg
    $sql_facon ='update comp2, item0 ';
    $sql_facon.='set facon=1/1000  ';
    $sql_facon.='where (detalle like "%0GR%" or detalle like "%0 GR%") ';
    $sql_facon.='and item=item_codigo and item_umdd like "K%"';
    if(!empty($idnum)){$sql_facon.='and idnum2="'.$idnum.'" ';}
    $res_facon=msql_query($sql_facon,$link_vcrx);

    // gl->lt
    $sql_facon ='update comp2, item0 ';
    $sql_facon.='set facon=3.78541 ';
    $sql_facon.='where (detalle like "%GL%" or detalle like "%GAL%") ';
    $sql_facon.='and item=item_codigo and item_umdd like "L%"';
    if(!empty($idnum)){$sql_facon.='and idnum2="'.$idnum.'" ';}
    $res_facon=msql_query($sql_facon,$link_vcrx);

    
    $sql_facon ='update comp2, item0 ';
    $sql_facon.='set facon=1000 ';
    $sql_facon.='where (umdd="TM") ';
    $sql_facon.='and item=item_codigo and item_umdd like "K%"';
    if(!empty($idnum)){$sql_facon.='and idnum2="'.$idnum.'" ';}
    $res_facon=msql_query($sql_facon,$link_vcrx);


    // lt->lt
//     $sql_facon ='update comp2, item0 ';
//     $sql_facon.='set facon=1 ';
//     $sql_facon.='where (detalle like "%1L%" or detalle like "%1 L%") ';
//     $sql_facon.='and item=item_codigo and item_umdd like "L%"';
//     if(!empty($idnum)){$sql_facon.='and idnum2="'.$idnum.'" ';}
//     $res_facon=msql_query($sql_facon,$link_vcrx);
    
    $sql_facon ='update comp2, item0 ';
    $sql_facon.='set facon=1 ';
    $sql_facon.='where (detalle like "%LT%" or detalle like "%LB%") ';
    $sql_facon.='and item=item_codigo and item_umdd like "L%" ';
    if(!empty($idnum)){$sql_facon.='and idnum2="'.$idnum.'" ';}
    $res_facon=msql_query($sql_facon,$link_vcrx);

    // 	FUMIBANA
    // gl-> 5 lt
    $sql_facon ='update comp2, comp1 ';
    $sql_facon.='set facon=5 ';
    $sql_facon.='where (detalle like "%GL%" or detalle like "%GAL%") ';
    $sql_facon.='and enti like "0391025746%" and itemce="1150287"';    
    if(!empty($idnum)){$sql_facon.='and idnum2="'.$idnum.'" ';}
    $res_facon=msql_query($sql_facon,$link_vcrx);
    
    // envase-> 60 lt
    $sql_facon ='update comp2, comp1 ';
    $sql_facon.='set facon=60 ';
    $sql_facon.='where (detalle like "%LT%" or detalle like "%LTS%") ';
    $sql_facon.=' and enti like "0391025746%" and itemce="1150288"';    
    if(!empty($idnum)){$sql_facon.='and idnum2="'.$idnum.'" ';}
    $res_facon=msql_query($sql_facon,$link_vcrx);

    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set facon=1 ' ;
    $sql_uxpre.='where idnum1=idnum2 and enti like "0391025746%" and itemce="1150315"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

    
    // 	MORA MEDINA
    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set facon=1 ' ;
    $sql_uxpre.='where idnum1=idnum2 and enti like "1205721143%" and itemce="FELI19LT"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

    // 	RUBIANES FREIRE SILVIA
    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set facon=5 ' ;
    $sql_uxpre.='where idnum1=idnum2 and enti like "1803066834%" and itemce="TER4.6.2"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

    // 	FERPACIFIC
    $sql_uxpre ='update comp1, comp2  ';
    $sql_uxpre.='set facon=10 ' ;
    $sql_uxpre.='where idnum1=idnum2 and enti like "0991441336%" and itemce="01.02.02.3617.1"';
    if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
    $res_uxpre=msql_query($sql_uxpre,$link_vcrx);

    // AGRIPAC
     // 500GR -> KG
//     $sql_uxpre ='update comp1, comp2  ';
//     $sql_uxpre.='set facon=0 ';
//     $sql_facon.='where (detalle like "%GR%" or detalle like "%GR%") ';
//     $sql_facon.=' and enti like "0990006687%" and itemce="4000474"';    
//     if(!empty($idnum)){$sql_uxpre.='and idnum2="'.$idnum.'" ';}
//     $res_uxpre=msql_query($sql_uxpre,$link_vcrx);
   
//      echo '<br>***'.$sql_facon;
//      echo '<br>***'.msql_affected_rows($link_vcrx);
//      echo '<br>***'.msql_error($link_vcrx);
    
   
  }
  
}  
  
  
function cost_ib10($docu,$idnum)
{
  if($docu!='IB10'){return;}
  include('../_cfg/config.php');
  $sql_inve='select * from inve1, inve2 where idnum1=idnum2 and idnum1="'.$idnum.'"';
  $res_inve=msql_query($sql_inve,$link_vcrx);
  
  while($aso_inve=msql_fetch_assoc($res_inve))
  {
    $cant=$aso_inve['cant'];
    $item=$aso_inve['item'];
    $enti=$aso_inve['enti'];
    $fecha1=$aso_inve['fecha'];
    $fecha2=$aso_inve['fecha'];
    
    $sql_comp ='select * from comp12 ';
    $sql_comp.='where status!="O" ';
    $sql_comp.='and item="'.$item.'" ';
    $sql_comp.='and enti like"'.$enti.'%" ';
    $sql_comp.='and fecha >="'.$fecha1.'" ';
    $sql_comp.='and fecha <="'.$fecha2.'" ';
    $res_comp=msql_query($sql_comp,$link_vcrx);
    
    $fcant=msql_result($res_comp,0,'cant');
    $fpuni=msql_result($res_comp,0,'puni');
    $fdcto=msql_result($res_comp,0,'dcto');
    
  }
  
  
}
  
  
function unid_inve($docu,$idnum,$item='',$cost=0)
{
  include('../_cfg/config.php');
   
   $sql_docu='select * from docu0 where docu_codigo like "'.$docu.'%"';
   $res_docu=msql_query($sql_docu,$link_vcrx);
   $tabla=msql_result($res_docu,0,'docu_tabla');
   
   $sql_docu='select * from '.$tabla.'1 where idnum1= "'.$idnum.'"';
   $res_docu=msql_query($sql_docu,$link_vcrx);
   $enti=msql_result($res_docu,0,'enti');
   $numero=msql_result($res_docu,0,'numero');
   $fecha=msql_result($res_docu,0,'fecha');
   $ptoe=msql_result($res_docu,0,'ptoe');
     $autocon=r_fiel('ptov',$ptoe,'autocon');
   
   if($tabla=='vtas'){$docuinve='EB10'; if(substr($docu,0,1)=='N'){$docuinve='IB';}}
   if($tabla=='comp'){$docuinve='IB10'; if(substr($docu,0,1)=='N'){$docuinve='EB';}}
     
     if($tabla=='vtas' and $autocon==1){$docuinve='EB19'; $enti='';}
   
      $sql_inve ='select sum(cant) as unidinve,  ';
      $sql_inve.='sum(cant*puni) as costinve ';
      $sql_inve.='from inve1 left join inve2 on idnum1=idnum2 ';
      $sql_inve.='where docu like "'.$docuinve.'%" ';
      $sql_inve.='and numfac="'.$numero.'"';
//       if($tabla=='comp')
      {$sql_inve.='and enti like "'.substr($enti,0,10).'%"';}
      $sql_inve.='and status not in ("O","X")';
      $res_inve=msql_query($sql_inve,$link_vcrx);
      $unidinve=msql_result($res_inve,0,'unidinve');
       if($cost==1)
       {$unidinve=msql_result($res_inve,0,'costinve');}
   
//    if($unidinve==0)
   {
//       $sql_inve ='select sum(cant) as unidinve from '.$tabla.'12 ';
//       $sql_inve.='where docu like "N%" ';
//       $sql_inve.='and tonume="'.$numero.'"';
// //       if($tabla=='comp')
//       {$sql_inve.='and enti like "'.substr($enti,0,10).'%"';}
//       $sql_inve.='and status !="O"';
//       $res_inve=msql_query($sql_inve,$link_vcrx);
// //       $unidinve=$unidinve +msql_result($res_inve,0,'unidinve');
//       $unidinve=$unidinve -msql_result($res_inve,0,'unidinve');
   }
   
//    echo '<br>'.$sql_inve.' <br> '.msql_error($link_vcrx);
   
   return $unidinve;
}
   
   
function gen_sku($item)
{
  include('../_cfg/config.php');
  include('lib_gene.php');
   $sku='';
   if(mb_stristr('gmny.gnya',$cfg_empr))
   {
      
      $item0=data_maes('item',$item,$link_vcrx);

      $sku='';

      $xdescri=substr($item0['item_descri'],0,15);

      $xdesc=substr($item0['item_descri'],0,2);
      if(mb_stristr($xdescri,'CAMISETA')){$xdesc='CT';}
      if(mb_stristr($xdescri,'PANTALONETA')){$xdesc='PT';}
      if(mb_stristr($xdescri,'CONJUNTO PIJAMA')){$xdesc='CP';}
      
      $sku.=$xdesc; 
      $sku.=substr($item,2,6);
      $sku.='-';
      $sku.=substr($item0['clor_tipo'],0,3);
      $sku.='-';
      $sku.=substr($item0['tlla_descri'],0,3);
      
//       $sql_updt='update item0 set item_sku="'.$sku.'" where item_codigo="'.$item.'"';
//       $res_updt=msql_query($sql_updt,$link_vcrx);
         
   }
   return $sku;
}
   
   
function cant_factinve($docu,$idnum,$item)
{
  if($idnum==""){return;}
  if(!mb_stristr('FC.FP',substr($docu,0,2))){return;}

  include('../_cfg/config.php');
  
  $tabla=r_fiel('docu',$docu,'tabla');
  
  $sql_fact ='select *,sum(cant) as tcantfc from '.$tabla.'12 where idnum1="'.$idnum.'" and status!="O"';
  if($item!=''){$sql_fact.='and item="'.$item.'"';}
  $res_fact=msql_query($sql_fact,$link_vcrx);
  $tcantfc=msql_result($res_fact,0,'tcantfc');
  $numerofc=msql_result($res_fact,0,'numero');

  $sql_inve ='select *,sum(cant) as tcanteb from inve12 where numfac="'.$numerofc.'" and status!="O"';
  if($item!=''){$sql_inve.='and item="'.$item.'"';}
  $res_fact=msql_query($sql_fact,$link_vcrx);
  $tcanteb=msql_result($res_inve,0,'tcanteb');

  return $pendiente;
}

  
  
function updt_invepvta($docu,$idnum)
{
  include('../_cfg/config.php');
//   if(!mb_stristr('EB',substr($docu,0,2))){return;}
  if(!mb_stristr('EB10.IB12',$docu)){return;}
  
  $sql_inve ='select * from inve1 left join inve2 on idnum1=idnum2 ';
  $sql_inve.='where idnum2='.$idnum;
//   $sql_inve.=' and (pvta=0 or pvta is null)';
  $res_inve=msql_query($sql_inve,$link_vcrx);
  
  while($aso_inve=msql_fetch_assoc($res_inve))
  {
    $fecha=$aso_inve['fecha'];
    $item=$aso_inve['item'];
    $numfac=$aso_inve['numfac'];
    $pvta=$aso_inve['pvta'];
       
       $tipodoc='FC';
       if($docu=='IB12'){$tipodoc='NC';}
    
//     $fecha1=date('Y-m-1',strtotime($fecha.'-30 days'));
    $fecha1=date('Y-m-1',strtotime($fecha.'-30 days'));
    if($pvta==0 or $fecha>=$fecha1)
    {
      $pvta=pvta_item($item,$fecha,$numfac,$tipodoc);
      $sql_updt='update inve2 set pvta='.$pvta.' where idnum2='.$idnum.' and item="'.$item.'"';
      $res_updt=msql_query($sql_updt,$link_vcrx);
    }
  }
  
}
  
  
  
  
  
function get_numfac($docu,$idnum)
{

}
  
function get_idinve($docu,$idnum)
{
  if(!mb_stristr('FC',substr($docu,0,2))){return;}
  if($idnum==""){return;}
  include('../_cfg/config.php');

  $idinve='';
  $tabla='vtas';
  $sql_vtas='select * from '.$tabla.'1 where docu="'.$docu.'" and idnum1="'.$idnum.'" and status not in("O","X")';
  $res_vtas=msql_query($sql_vtas,$link_vcrx);
  if(msql_num_rows($res_vtas)!=0)
  {
    $vfecha=msql_result($res_vtas,0,'fecha');
    $venti=msql_result($res_vtas,0,'enti');
    $vptoe=msql_result($res_vtas,0,'ptoe');
    $vnumero=msql_result($res_vtas,0,'numero');
       
       $autocon=r_fiel('ptov',$vptoe,'autocon');
    
    $idinve='';

  	$fecha1=date('Y-m-d',strtotime($vfecha.' -30 days')); 
  	$fecha2=date('Y-m-d',strtotime($vfecha.' +30 days')); 
    
    $docu2='EB10';
    $tabla='inve';
       
     if($autocon==1){$docu2='EB19';}  
       
    
    $sql_inve ='select * from '.$tabla.'1 ';
    $sql_inve.=' where docu="'.$docu2.'"';
    $sql_inve.=' and status not in("O","X")';
    $sql_inve.=' and numfac="'.$vnumero.'"';
    $sql_inve.=' order by fecha desc';
    $res_inve=msql_query($sql_inve,$link_vcrx);
//     echo '*/*/*/*'.$sql_inve;
    if(msql_num_rows($res_inve)!=0){$idinve=msql_result($res_inve,0,'idnum1');}
    else
    {
      $sql_inve ='select * from '.$tabla.'1 ';
      $sql_inve.=' where docu="'.$docu2.'" ';
      $sql_inve.=' and status not in("O","X") ';
      $sql_inve.=' and idfrom="'.$idnum.'"';
      $sql_inve.=' and lower(mdfrom)="vtas" ';
      $sql_inve.=' and (numfac="" or numfac is null) ';
      $res_inve=msql_query($sql_inve,$link_vcrx);
      if(msql_num_rows($res_inve)!=0){$idinve=msql_result($res_inve,0,'idnum1');}
      else
      {
        $sql_inve ='select * from '.$tabla.'1 ';
        $sql_inve.=' where docu="'.$docu2.'"';
        $sql_inve.=' and status not in("O","X")';
        $sql_inve.=' and enti like "'.substr($venti,0,10).'%" ';
        $sql_inve.=' and fecha>="'.$fecha1.'"';
        $sql_inve.=' and fecha<="'.$fecha2.'"';
        $sql_inve.=' and (numfac="" or numfac is null) ';
        $sql_inve.=' order by fecha desc';
        $res_inve=msql_query($sql_inve,$link_vcrx);
//     echo $sql_inve;
        if(msql_num_rows($res_inve)!=0){$idinve=msql_result($res_inve,0,'idnum1');}
      }
      
    }
//     echo '*/*/*/*/'.$idinve;
//     echo '*/*/*/*/'.$idinve;
    return $idinve;
    
  }
  
  
}
  

  
  
  
  
function ib11_eb11($docu,$idnum)
{
  if(!mb_stristr('IB11',$docu)){return;}
  if($idnum==""){return;}
  include('../_cfg/config.php');

  
  
  $tabla='inve';
  $sql_inve='select * from '.$tabla.'12 where docu="'.$docu.'" and idnum1="'.$idnum.'" ';
  $res_inve=msql_query($sql_inve,$link_vcrx);
  
  $docu=msql_result($res_inve,0,'docu');
  $ptoe=msql_result($res_inve,0,'ptoe');
  $numero=msql_result($res_inve,0,'numero');
  $fecha=msql_result($res_inve,0,'fecha');
  $cambio=@msql_result($res_inve,0,'cambio');
  
  
  if(!mb_stristr('IB11',$docu)){return;}
  
  $sql_camb='select * from '.$tabla.'1 where status!="X" and mdfrom="'.strtoupper($tabla).'" and idfrom="'.$idnum.'"';
  $res_camb=msql_query($sql_camb,$link_vcrx);
  $newidnum=@msql_result($res_camb,0,'idnum1');

  $newdocu='EB11';
  $newptoe=$ptoe;
  $newtabla='inve';
//   echo '*/*/*/'.$cambio.$newidnum;
  
  if($newidnum==0)
  {
    $newnumero=nume_docu($docu,$newptoe);
    $newidnum=clon_docu($docu,$idnum,$newdocu);
  	$res_camb=msql_query($sql_camb,$link_vcrx);
  }

  $newidnum=msql_result($res_camb,0,'idnum1');
  $newptoe=msql_result($res_camb,0,'ptoe');
  $newnumero=msql_result($res_camb,0,'numero');
  
	$sql_inve='update '.$newtabla.'1 set ';
	$sql_inve.=' docu="'.$newdocu.'",';
	$sql_inve.=' numero="'.$newnumero.'",';
	$sql_inve.=' fecha="'.$fecha.'",';
	$sql_inve.=' status="'.$status.'"';
	$sql_inve.=' where idnum1='.$newidnum;
	$res_inve=msql_query($sql_inve,$link_vcrx);
  
  
	$sql_inve='select * from '.$tabla.'2 ';
	$sql_inve.=' where idnum2='.$idnum;
	$res_inve=msql_query($sql_inve,$link_vcrx);
 
  while($aso_inve=msql_fetch_assoc($res_inve))
  {
    $xiddet=$aso_inve['iddet'];
    $xitem=$aso_inve['item'];
    $xcamb=$aso_inve['cambio'];
    
    $sql_camb='update '.$newtabla.'2 set ';
    $sql_camb.=' item="'.$xcamb.'",';
    $sql_camb.=' cambio="'.$xitem.'",';
    $sql_camb.=' detalle=detalle ';
    $sql_camb.=' where idnum2="'.$newidnum.'" ';
    $sql_camb.=' and iddet="'.$xiddet.'" ';
    $res_camb=msql_query($sql_camb,$link_vcrx);
  }
  
  
  gen_contab($newdocu,$newidnum);
  return $newdocu.$newidnum;
  
  
}
  
  
function tep_item($item,$pfecha)
{
  // tiempo entrega proveedor /importacion /produccion
	include('../_cfg/config.php');
  
  $fecha2=$pfecha;
  if(empty($fecha2)){$fecha2=$fechaa;}
  $fecha2==date('Y-m-t',strtotime($fecha2));
	$fecha1=date('Y-m-01',strtotime($fecha2.' -365 days')); 
  
  $sql_tep ='select * from comp12';
  $sql_tep.=' where status!="O"';
  $sql_tep.=' and docu like "DOCU%"';
  $sql_tep.=' and item="'.$item.'"';
  $sql_tep.=' and fecha>="'.$fecha1.'"';
  $sql_tep.=' and fecha<="'.$fecha2.'"';
  $sql_tep.=' order by fecha desc';
  $sql_tep.=' limit 5';
  
  $docu='PP';
  $sql_prov=$sql_tep;
  $sql_prov=str_replace('"DOCU"','"'.$docu.'%"',$sql_prov);
  $res_prov=msql_query($sql_prov,$link_vcrx);

  $docu='FP';
  $sql_comp=$sql_tep;
  $sql_comp=str_replace('"DOCU"','"'.$docu.'%"',$sql_comp);
  $res_comp=msql_query($sql_comp,$link_vcrx);

  $docu='IB10" or docu like "IB15';
  $sql_inve=$sql_tep;
  $sql_inve=str_replace('"DOCU"','"'.$docu.'%"',$sql_inve);
  $res_inve=msql_query($sql_inve,$link_vcrx);

  $xidx=1;
  $xprov=array();
  while($aso_fecha=msql_fetch_assoc($res_prov))
  {$xprov[$xidx]=$aso_fecha['fecha']; $xidx++;}
  
  $xidx=1;
  $xcomp=array();
  while($aso_fecha=msql_fetch_assoc($res_comp))
  {$xcomp[$xidx]=$aso_fecha['fecha']; $xidx++;}
  
  $xidx=1;
  $xinve=array();
  while($aso_fecha=msql_fetch_assoc($res_inve))
  {$xinve[$xidx]=$aso_fecha['fecha']; $xidx++;}
  

  //calcular tiempos de entrega -- ojo ultimo pedido puede aun estar en camino;
  
}
  
  
function indi_rota($item,$pfecha,$tbode='')
{
	include('../_cfg/config.php');

  // si item contiene "-" es linea o sublinea
  
     $tabla='inve';
     $fecha0=fecha_modu('inve');
     $fecha2=$pfecha;
     if(empty($fecha2)){$fecha2=$fechaa;}
     $fecha2==date('Y-m-t',strtotime($fecha2));
     $fecha1=date('Y-m-01',strtotime($fecha2.' -365 days')); 

     $idx_rota=array();

     $sql_item ='select *,';
     $sql_item.='sum(case when left(docu,1)="I" then cant*puni else cant*puni*(-1) end) as saldo, ';
     $sql_item.='1 as stat ';
     $sql_item.='from '.$tabla.'1 left join '.$tabla.'2 on idnum1=idnum2 ';
     $sql_item.='left join item0 on item=item_codigo ';
     $sql_item.='left join bode0 on bode=bode_codigo ';
     $sql_item.='where status not in ("O","X")';
     $sql_item.=' and fecha>="'.$fecha0.'"';
     $sql_item.=' and fecha>="'.$fecha1.'"';
     $sql_item.=' and fecha<="'.$fecha2.'"';
     $sql_item.=' and docu in("EB10","EB19")';
    if(!empty($tbode))
    {$sql_item.=' and bode_tipo like "'.$tbode.'%"';}

     if($item!="")
     {
     if(mb_stristr($item,'-')){$sql_item.=' and trim(item_lsub) like "'.$item.'%"';}
     else{$sql_item.=' and trim(item) like "'.$item.'"';}
     }
  
  $res_item=msql_query($sql_item,$link_vcrx);
  $cos_vtas=msql_result($res_item,0,'saldo');
//   explain_sql($sql_item);

  $tot_exis=0;
  $fecha2b=$fecha2;
  for($cmes=1; $cmes<=12; $cmes++)
  {
    $sql_exis=$sql_item;
    $sql_exis=str_replace('fecha<="'.$fecha2,'fecha<="'.$fecha2b,$sql_exis);
    $sql_exis=str_replace('fecha<="'.$fecha2,'fecha<="'.$fecha2b,$sql_exis);
    $sql_exis=str_replace('fecha<="'.$fecha2,'fecha<="'.$fecha2b,$sql_exis);
    if(empty($tbode))
    {$sql_exis=str_replace('and docu in("EB10","EB19")','',$sql_exis);}
    else
    {$sql_exis=str_replace('and docu in("EB10","EB19")','and bode_tipo like "'.$tbode.'%"',$sql_exis);}
    $res_exis=msql_query($sql_exis,$link_vcrx);
    
    $tot_exis=$tot_exis +(msql_result($res_exis,0,'saldo'));
    
    $fecha2b=date('Y-m-t',strtotime($fecha2b.' -1 month'));
    
  }
  $pro_exis=$tot_exis/12;
  
  $idxrota=abs($cos_vtas/$pro_exis);
  $idxrota=round($idxrota,2);

  $idx_rota[1]=$idxrota;
  $idx_rota[2]=bcdiv(365,$idxrota,2);
  $idx_rota[3]=$cos_vtas;
  $idx_rota[4]=$pro_exis;
  
  
  return $idx_rota;
}
 
function reca_inve()
{
	include('../_cfg/config.php');
  
  $sql_item ='select * from item0 ';
  $sql_item.='where item_codigo in(select distinct item from inve1 left join inve2 on idnum1=idnum2 where status not in ("O","X")) ';
//   $sql_item.='where item_codigo in(select distinct item from inve12) ';
//      if($user_codigo==2)
//      {$sql_item.='and item_codigo like "20115456%" ';}
  $sql_item.='order by item_codigo ';
  $res_item=msql_query($sql_item,$link_vcrx);

//        echo '<msgalert>';
//        echo ' sql ==>'.$sql_item;
//        echo ' error ==>'.msql_error($link_vcrx);
//        echo '</msgalert>';
     
     
  $sql_bode='select * from bode0 where bode_codigo in (select distinct bode from inve1) order by bode_codigo';
  $res_bode=msql_query($sql_bode,$link_vcrx);
//        echo '<msgalert>';
//        echo ' sql ==>'.$sql_bode;
//        echo ' error ==>'.msql_error($link_vcrx);
//        echo '</msgalert>';
     
  $sql_updt='update empr0 set empr_rinve=now()';
  $res_updt=msql_query($sql_updt,$link_vcrx);
//        echo '<msgalert>';
//        echo ' sql ==>'.$sql_updt;
//        echo ' error ==>'.msql_error($link_vcrx);
//        echo '</msgalert>';
     
//        echo '<msgalert>';
//        echo ' sql ==>'.$sql_item;
//        echo ' error ==>'.msql_error($link_vcrx);
//        echo '</msgalert>';
     
  while($aso_item=msql_fetch_assoc($res_item))
  {
       msql_data_seek($res_bode,0);
       while($aso_bode=msql_fetch_assoc($res_bode))
       {
//        echo '<msgalert>';
// //        echo ' sql ==>'.$sql_updt;
//        echo ' datos ==>'.$aso_item['item_codigo'].' /'.$aso_bode['bode_codigo'];
//        echo '</msgalert>';
          $costprom=cost_prom($aso_item['item_codigo'],'',$aso_bode['bode_codigo'],1);
            
//        echo '<msgalert>';
//        echo ' costprom ==>'.$costprom;
//        echo '</msgalert>';
            
//        echo '<msgalert>';
// //        echo ' sql ==>'.$sql_updt;
//        echo ' datos ==>'.$aso_item['item_codigo'].' /'.$aso_bode['bode_codigo'];
//        echo ' costprom ==>'.$costprom;
//        echo '</msgalert>';
            
       }
  }
     
//   $sql_updt='update empr0 set empr_rinve=now()';
//   $res_updt=msql_query($sql_updt,$link_vcrx);
//        echo '<msgalert>';
//        echo ' sql ==>'.$sql_updt;
//        echo ' error ==>'.msql_error($link_vcrx);
//        echo '</msgalert>';
    
  $lreca=date('Y-m-d H:i:s');
  return $lreca;
}

     
function cost_iibb($pdocu='',$pidnum='')
{}
     
function cost_prom($pitem,$pfecha='',$pbode='',$preca=0)
{
	include('../_cfg/config.php');

//      if($user_codigo==2)
//      {  $pitem= "20115456" ;}
     
     if($cfg_empr=='hfre')
     {
          $sql_item='select * from item0 where item_codigo="'.$pitem.'"';
          $res_item=msql_query($sql_item,$link_vcrx);
          $xlsub=@msql_result($res_item,0,'item_lsub');
          if(substr($xlsub,0,4)!='INAG'){return 0.000001;}
     }
  
  if(empty($pfecha)){$pfecha=date('Y-m-d');}
//   $sql_inve='select * from inve12 ';
  $sql_inve ='select *, ';
  $sql_inve.='case when left(docu,1)="I" then 1 else -1 end as signo, ';
  $sql_inve.='case ';
  $sql_inve.='when left(docu,1)="I" and docu!="IB13" then 1 ';
  $sql_inve.='when left(docu,1)="E" and docu="EB13" then 2 ';
  $sql_inve.='when left(docu,1)="E" and docu!="EB13" then 3 ';
  $sql_inve.='when left(docu,1)="I" and docu="IB13" then 4 ';
  $sql_inve.='else 9 end as orden ';
  $sql_inve.='from inve1 left join inve2 on idnum1=idnum2 ';
  $sql_inve.='where item="'.$pitem.'" ';
  $sql_inve.='and fecha<="'.$pfecha.'" ';
  if(!empty($pbode))
  {$sql_inve.='and bode="'.$pbode.'" ';}
  $sql_inve.='and status not in("O","X") ';
//   $sql_inve.='and status!="X" ';
  $sql_inve.='order by fecha, signo desc, docu, idnum1';
//   $sql_inve.='order by fecha, orden, docu, idnum1';
  $res_inve=msql_query($sql_inve,$link_vcrx);
  $xprom=0;
  $xsaldou=0;
  $xsaldov=0;
//        echo '<br>*/*/*/'.$sql_inve;
  while($aso_inve=msql_fetch_assoc($res_inve))
  {
    $xidnum1=$aso_inve['idnum1'];
    $xdocu=$aso_inve['docu'];
    $xbode=$aso_inve['bode'];
    $xfecha=$aso_inve['fecha'];
    $xenti=$aso_inve['enti'];
    $xiddet=$aso_inve['iddet'];
    $xitem=$aso_inve['item'];
    $xcant=abs($aso_inve['cant']);
    $xpuni=$aso_inve['puni'];
    $xreval=$aso_inve['reval'];
    $xnumfac=$aso_inve['numfac'];
    $xidfrom=$aso_inve['idfrom'];

    if($xdocu=='IB17' and $xreval==0){$xreval=$xpuni;}   

       if($xitem=='20115456')
       {
//        echo '<msgalert>';
//        echo '<br>';
//        echo '*/*'.$xbode;
//        echo '*/*'.$xitem;
//        echo '*/*'.$xfecha;
//        echo '*/*'.$xprom;
//        echo '*/*'.$xreval;
//        echo '</msgalert>';
       }

//        echo '*/*/*/*';
   // if(substr($xdocu,0,2)=='IB')
    if(substr($xdocu,0,2)=='IB' or ($xdocu=='EB17' and $xreval>0))
    {
         $preca=1;
      if($preca==1)
      {
//        if($xdocu=='IB00')
        if($xdocu=='IB00' and $xpuni==0)
        {
          $fecha1=$xfecha;
          $fecha2=$xfecha;

          $fecha1=date('Y-m-d',strtotime($fecha1.' -1 month'));
          $fecha2=date('Y-m-d',strtotime($fecha2.' +1 month'));
          
          $sql_pcp1 ='select * from comp12 ';
//           $sql_pcp1 ='select * from comp1 left join comp2 on idnum1=idnum2 ';
          $sql_pcp1.='where item="'.$pitem.'" ';
          $sql_pcp1.='and status!="O" ';
          $sql_pcp1.='and status!="X" ';
  //         $sql_pcp1.='and(fecha between "'.$fecha1.'" and "'.$fecha2.'")';
          $sql_pcp1.='and fecha<="'.$xfecha.'" ';
          $sql_pcp1.='order by fecha desc ';
          $sql_pcp1.='limit 1 ';
          $res_pcp1 = msql_query($sql_pcp1,$link_vcrx);

          if(msql_num_rows($res_pcp1)==0)
          {
          $sql_pcp1 ='select * from comp12 ';
//           $sql_pcp1 ='select * from comp1 left join comp2 on idnum1=idnum2 ';
          $sql_pcp1.='where item="'.$pitem.'" ';
          $sql_pcp1.='and status!="O" ';
          $sql_pcp1.='and status!="X" ';
            $sql_pcp1.='and fecha>"'.$xfecha.'" ';
            $sql_pcp1.='order by fecha ';
            $sql_pcp1.='limit 1 ';
            $res_pcp1 = msql_query($sql_pcp1,$link_vcrx);
          }

          if(msql_num_rows($res_pcp1)!=0)
          {
            $xcantp=msql_result($res_pcp1,0,'cant');
            $xpunip=msql_result($res_pcp1,0,'puni');
            $xdctop=msql_result($res_pcp1,0,'dcto');
            $xuxpre=msql_result($res_pcp1,0,'uxpre');
            $xfacon=msql_result($res_pcp1,0,'facon');
            $xcantumdd=msql_result($res_pcp1,0,'cantumdd');
//             $xcantumdd=msql_result($res_pcp1,0,'cant')*msql_result($res_pcp1,0,'uxpre')*msql_result($res_pcp1,0,'facon');
            $xpcp1=$xpunip*(1-$xdctop/100);
           
//             if($xuxpre*$xfacon!=1){$xpcp1=$xpcp1/$xcantumdd;}
            if($xuxpre*$xfacon!=1){$xpcp1=$xpcp1*$xcantp/$xcantumdd;}
            
//             if($xfacon<0){$xpcp1=$xpcp1/$xfacon;}
            
            $xpcp1=abs($xpcp1);
            $sql_updt ='update inve2 set puni="'.$xpcp1.'" where idnum2="'.$xidnum1.'" and item="'.$pitem.'" ';
  //           $sql_updt.=' and (puni=0 or puni is null)';
            $res_updt=msql_query($sql_updt,$link_vcrx);
            $xpuni=$xpcp1;

          }
        }

        if($xdocu=='IB10')
        {
          $fecha1=$xfecha;
          $fecha2=$xfecha;

          $fecha1m=date('Y-m-01',strtotime($xfecha));
          $fecha2m=date('Y-m-t',strtotime($xfecha));
          $fecha1=date('Y-m-01',strtotime($fecha1.' -1 month'));
          $fecha2=date('Y-m-t',strtotime($fecha2.' +1 month'));
              
//           if($xnumfac*1>0)
          if((int)$xnumfac>0)
          {
               $sql_pcp1 ='select ';
               $sql_pcp1.='abs(DATEDIFF("'.$xfecha.'",fecha)) as diasdif,';
               $sql_pcp1.=' comp1.*, comp2.* from comp1 left join comp2 on idnum1=idnum2 ';
               $sql_pcp1.='where item="'.$pitem.'" ';
               $sql_pcp1.='and status!="O" ';
               $sql_pcp1.='and status!="X" ';
               $sql_pcp1.='and numero='.$xnumfac.' ';
               $sql_pcp1.='and fecha>="'.$fecha1.'" ';
               $sql_pcp1.='and fecha<="'.$fecha2.'" ';
               $sql_pcp1.='and cant*puni>0 ';
//                $sql_pcp1.='and dcto<100 ';
               
               $xorderby='order by diasdif, fecha ';
               if($xfecha1>='20220501')
               {$xorderby='order by diasdif,fecha,puni desc, dcto ';};
               $sql_pcp1.=$xorderby;   
               
               $sql_pcp1.='limit 1 ';
               $res_pcp1 = msql_query($sql_pcp1,$link_vcrx);
               if(msql_num_rows($res_pcp1)==0){$xnumfac=0;}         
          }
             
          $sql_pcp1 ='select ';
          $sql_pcp1.='abs(DATEDIFF("'.$xfecha.'",fecha)) as diasdif,';
          $sql_pcp1.='comp12.* from comp12 ';
          $sql_pcp1.='where item="'.$pitem.'" ';
          $sql_pcp1.='and enti like "'.substr($xenti0,10).'%" ';
          $sql_pcp1.='and status!="O" ';
          $sql_pcp1.='and status!="X" ';
          $sql_pcp1.='and cant*puni>0 ';
          if((int)$xnumfac>0)
          {$sql_pcp1.='and numero="'.$xnumfac.'" ';}
          $sql_pcp1.='and fecha>="'.$fecha1m.'" ';
          $sql_pcp1.='and fecha<="'.$fecha2m.'" ';
          $sql_pcp1.='and dcto<=99 ';
             

          $xorderby='order by diasdif, fecha ';
          if($xfecha>="20210701")
          {$xorderby='order by diasdif,fecha,dcto desc ';}
          if($xfecha1>='20220501')
          {$xorderby='order by diasdif,fecha,puni desc, dcto ';};
//           if($xfecha1>='20230201')
//           {$xorderby='order by diasdif,fecha,puni desc, dcto ';};
          $sql_pcp1.=$xorderby;   
             
          $sql_pcp1.='limit 1 ';
          $res_pcp1 = msql_query($sql_pcp1,$link_vcrx);
             
//              echo '*/*/*'.$sql_pcp1;
//                echo '<br>*/*/ 00';
             
          if(msql_num_rows($res_pcp1)==0)
          {
//                echo '<br>*/*/ AA';
               $sql_pcp1 ='select ';
               $sql_pcp1.='abs(DATEDIFF("'.$xfecha.'",fecha)) as diasdif,';
               $sql_pcp1.='comp12.* from comp12 ';
               $sql_pcp1.='where item="'.$pitem.'" ';
               $sql_pcp1.='and status!="O" ';
               $sql_pcp1.='and status!="X" ';
               $sql_pcp1.='and cant*puni>0 ';
               if((int)$xnumfac>0)
               {$sql_pcp1.='and numero="'.$xnumfac.'" ';}
               $sql_pcp1.='and fecha>="'.$fecha1.'" ';
               $sql_pcp1.='and fecha<="'.$fecha2.'" ';
               
               $xorderby='order by diasdif, fecha ';
               if($xfecha>="20210701")
               {$xorderby='order by diasdif,fecha,dcto desc ';}
               if($xfecha1>='20220501')
               {$xorderby='order by diasdif,fecha,puni desc, dcto ';};
               $sql_pcp1.=$xorderby;   
               
               $sql_pcp1.='limit 1 ';
               $res_pcp1 = msql_query($sql_pcp1,$link_vcrx);
               
          }
             
          if(msql_num_rows($res_pcp1)==0)
          {
//                echo '<br>*/*/ BB';
               $sql_pcp1 ='select ';
               $sql_pcp1.='abs(DATEDIFF("'.$xfecha.'",fecha)) as diasdif,';
               $sql_pcp1.='comp12.* from comp12 ';
               $sql_pcp1.='where item="'.$pitem.'" ';
               $sql_pcp1.='and enti like "'.substr($xenti0,10).'%" ';
               $sql_pcp1.='and status!="O" ';
               $sql_pcp1.='and status!="X" ';
               $sql_pcp1.='and cant*puni>0 ';
               if((int)$xnumfac>0)
               {$sql_pcp1.='and numero="'.$xnumfac.'" ';}
               $sql_pcp1.='order by diasdif, fecha ';
               
               $xorderby='order by diasdif, fecha ';
               if($xfecha>="20210701")
               {$xorderby='order by diasdif,fecha,dcto desc ';}
               if($xfecha1>='20220501')
               {$xorderby='order by diasdif,fecha,puni desc, dcto ';};
               $sql_pcp1.=$xorderby;   
               
               $sql_pcp1.='limit 1 ';
               $res_pcp1 = msql_query($sql_pcp1,$link_vcrx);
          }
             
          if(msql_num_rows($res_pcp1)==0)
          {
//                echo '<br>*/*/ CC';
               $sql_pcp1 ='select ';
               $sql_pcp1.='abs(DATEDIFF("'.$xfecha.'",fecha)) as diasdif,';
               $sql_pcp1.='comp12.* from comp12 ';
               $sql_pcp1.='where item="'.$pitem.'" ';
               $sql_pcp1.='and status!="O" ';
               $sql_pcp1.='and status!="X" ';
               $sql_pcp1.='and cant*puni>0 ';
               if((int)$xnumfac>0)
               {$sql_pcp1.='and numero="'.$xnumfac.'" ';}
               $sql_pcp1.='order by diasdif, fecha ';
     // ajuste por distinto descuento en item/fact HFRE
     //           if($xfecha>="20210701")
     //           {$sql_pcp1.=',dcto desc ';}
               $xorderby='order by diasdif, fecha ';
               if($xfecha>="20210701")
               {$xorderby='order by diasdif,fecha,dcto desc ';}
               if($xfecha1>='20220501')
               {$xorderby='order by diasdif,fecha,puni desc, dcto ';};
               $sql_pcp1.=$xorderby;   
               
               $sql_pcp1.='limit 1 ';
               $res_pcp1 = msql_query($sql_pcp1,$link_vcrx);
               
          }
   
          msql_data_seek($res_pcp1);
          if(msql_num_rows($res_pcp1)!=0)
          {
            $xidfact=msql_result($res_pcp1,0,'idnum1');
            $xnumfac=msql_result($res_pcp1,0,'numero');
            $xcantp=msql_result($res_pcp1,0,'cant');
            $xpunip=msql_result($res_pcp1,0,'puni');
            $xdctop=msql_result($res_pcp1,0,'dcto');
            $xuxpre=msql_result($res_pcp1,0,'uxpre');
            $xfacon=msql_result($res_pcp1,0,'facon');
            $xcantumdd=msql_result($res_pcp1,0,'cantumdd');
            $xpcp1=$xpunip*(1-$xdctop/100);

//                echo '<br>';               
// //                echo '<br>*/*/*/*/*-> ';
//                echo '<br>*/*/*/*/*-> '.$xidfact;
//                echo '<br>*/*/*/*/*-> '.$xnumfac;
//                echo '<br>*/*/*/*/*-> '.$xcantp;
//                echo '<br>*/*/*/*/*  -> '.$xpunip;
//                echo '<br>*/*/*/*/*  -> '.$xdctop;
//                echo '<br>*/*/*/*/*-> '.$xuxpre;
//                echo '<br>*/*/*/*/*-> '.$xfacon;
//                echo '<br>*/*/*/*/*-> '.$xcantumdd;
//                echo '<br>*/*/*/*/*  -> '.$xpcp1;
//                echo '<br>*/*/*/*/*-> ';
//                echo '<br>*/*/*/*/*-> '.$xpcp1*$xcantp;
//                echo '<br>*/*/*/*/*-> '.$xpcp1*$xcantp/$xcantumdd;
//                echo '<br>*/*/*/*/*-> '.$sql_pcp1;
               
               
             if($xidnum1==0)
             {
               echo '<br>';
               echo '<br>';
               echo '<br>****'.$sql_pcp1;

               echo '<br>*/*/*/'.$xcantp;
               echo '<br>*/*/*/'.$xpcp1;
               //           echo '<br>*/*/*/'.$xfacon;
               //           echo '<br>*/*/*/'.$xuxpre;
               echo '<br>*/*/*/'.$xcantumdd;
             }    
            
            if($xuxpre*$xfacon!=1){$xpcp1=$xpcp1*$xcantp/$xcantumdd;}
            $xpcp1=abs($xpcp1);
            $sql_updt='update inve2 set puni="'.$xpcp1.'" where idnum2="'.$xidnum1.'" and item="'.$pitem.'" ';
            $res_updt=msql_query($sql_updt,$link_vcrx);
            $xpuni=$xpcp1;

//                echo '<br>';               
//                echo '<br>*/*/*/*/*-> '.$xpcp1;
//                echo '<br>*/*/*/*/*-> '.$xpcp1*$xcantp;
//                echo '<br>*/*/*/*/*-> '.$xpcp1*$xcantp/$xcantumdd;
//                echo '<br>*/*/*/*/*-> '.$sql_pcp1;
//                echo '<br>*/*/*/*/*-> '.$xpuni;
//                echo '<br>*/*/*/*/*-> '.$xidfact;
//                echo '<br>*/*/*/*/*-> '.$sql_updt;

          }
             
             
             
             
        }

        if($xdocu=='IB13')
        {
          $fecha1=$xfecha;
          $fecha2=$xfecha;

          $fecha1=date('Y-m-d',strtotime($fecha1.' -2 week'));
          $xpcp1=0;
             
          if($xpcp1==0) 
          {
               $sql_pcp1 ='select * ';
//                $sql_pcp1.='inve12.* from inve12 ';
               $sql_pcp1.='from inve1 left join inve2 on idnum1=idnum2 ';
               $sql_pcp1.='where item="'.$pitem.'" ';
               $sql_pcp1.='and idnum1="'.$xidfrom.'" ';
               $sql_pcp1.='and docu="EB13" ';
//                $sql_pcp1.='and bode2="'.$xbode.'" ';
//                $sql_pcp1.='and fecha>="'.$fecha1.'" ';
//                $sql_pcp1.='and fecha<="'.$fecha2.'" ';
               $sql_pcp1.='and status not in ("O","X") ';
               //           $sql_pcp1.='order by fecha desc ';
               $sql_pcp1.='order by fecha desc ';
               $sql_pcp1.='limit 1 ';
               $res_pcp1=msql_query($sql_pcp1,$link_vcrx);

               $xpcp1=msql_result($res_pcp1,0,'puni');
               
               if($xidfrom==918)
               {
               
//        echo '<msgalert>';
//                     echo '<br>*/*/*'.$xpcp1;
//        echo ' sql ==>'.$sql_pcp1;
//        echo ' error ==>'.msql_error($link_vcrx);
//        echo '</msgalert>';
               }

               
          }
             
          if($xpcp1==0) 
          {
             
               $sql_pcp1 ='select * ';
//                $sql_pcp1.='inve12.* from inve12 ';
               $sql_pcp1.='from inve1 left join inve2 on idnum1=idnum2 ';
               $sql_pcp1.='where item="'.$pitem.'" ';
               $sql_pcp1.='and docu="EB13" ';
               $sql_pcp1.='and bode2="'.$xbode.'" ';
               $sql_pcp1.='and fecha>="'.$fecha1.'" ';
               $sql_pcp1.='and fecha<="'.$fecha2.'" ';
               $sql_pcp1.='and status not in("O","X") ';
               //           $sql_pcp1.='order by fecha desc ';
               $sql_pcp1.='order by fecha desc ';
               $sql_pcp1.='limit 1 ';
               $res_pcp1=msql_query($sql_pcp1,$link_vcrx);

               $xpcp1=msql_result($res_pcp1,0,'puni');
               
          }
             
             
            if($xpcp1==0){$xpcp1=$xprom;}
             
            $sql_updt='update inve2 set puni="'.$xpcp1.'" where idnum2="'.$xidnum1.'" and item="'.$pitem.'" ';
            $res_updt=msql_query($sql_updt,$link_vcrx);
             
               if($xidfrom==918)
               {
               
//        echo '<msgalert>';
//      echo '<br>*/*/*'.$xpcp1;
//        echo ' sql ==>'.$sql_updt;
//        echo ' error ==>'.msql_error($link_vcrx);
//        echo '</msgalert>';
               }
             
            $xpuni=$xpcp1;
             
        }
        
        if($xdocu=='IB15')
        {}
           
        if($xdocu=='IB17')
        {
//              echo '<br>';
//              echo '*/*/'.$xbode;
//              echo '*/*/'.$xitem;
//              echo '*/*/'.$xfecha;
//              echo '/**/'.$xreval;
//              $xreval=$aso_inve['reval'];
             
             
//              if($xreval>0)
//              {$xpuni=$xreval;}
             if($aso_inve['reval']>0)
             {$xpuni=$aso_inve['reval'];}
             else
             {
                  $sql_ib17 ='select * from inve1 ';
                  $sql_ib17.='left join inve2 on idnum1=idnum2 ';
                  $sql_ib17.='where status not in ("O","X") ';
                  $sql_ib17.='and item="'.$xitem.'" ';
                  $sql_ib17.='and fecha<="'.$xfecha.'" ';
                  $sql_ib17.='and bode="'.$xbode.'" ';
                  $sql_ib17.='and idnum1!="'.$xidnum1.'" ';
                  $sql_ib17.='and puni>0 ';
                  $sql_ib17.='order by fecha desc ';
                  $sql_ib17.='limit 1 ';
                  $res_ib17=msql_query($sql_ib17,$link_vcrx);
//                   echo '<br>/*/*'.$sql_ib17;
                  
                  if(msql_num_rows($res_ib17)==0)
                  {$sql_ib17=str_replace('and bode="'.$xbode.'" ','',$sql_ib17);}
                  $res_ib17=msql_query($sql_ib17,$link_vcrx);
//                   echo '<br>/*/*'.$sql_ib17;
                  
                  $xpuni=msql_result($res_ib17,0,'puni');
             }
             $sql_updt='update inve2 set puni='.$xpuni.' where idnum2="'.$xidnum1.'" and item="'.$xitem.'"';
             $res_updt=msql_query($sql_updt,$link_vcrx);
//              echo '<br>*/*'.$sql_updt;
             
        }
   
        if($xdocu=='EB17')
        {
             if($xreval>0)
             {$xpuni=$xreval;}
             else
             {
                  $sql_ib17 ='select * from inve1 ';
                  $sql_ib17.='left join inve2 on idnum1=idnum2 ';
                  $sql_ib17.='where status not in ("O","X") ';
                  $sql_ib17.='and item="'.$xitem.'" ';
                  $sql_ib17.='and fecha<="'.$xfecha.'" ';
                  $sql_ib17.='and bode="'.$xbode.'" ';
                  $sql_ib17.='and idnum1!="'.$xidnum1.'" ';
                  $sql_ib17.='and puni>0 ';
                  $sql_ib17.='order by fecha desc ';
                  $sql_ib17.='limit 1 ';

                  $res_ib17=msql_query($sql_ib17,$link_vcrx);
                  if(msql_num_rows($res_ib17)==0)
                  {$sql_ib17=str_replace('and bode="'.$xbode.'" ','',$sql_ib17);}
                  $res_ib17=msql_query($sql_ib17,$link_vcrx);
                  $xpuni=msql_result($res_ib17,0,'puni');
             }
             $sql_updt='update inve2 set puni='.$xpuni.' where idnum2="'.$xidnum1.'" and item="'.$xitem.'"';
             $res_updt=msql_query($sql_updt,$link_vcrx);
//              echo $sql_updt;
             
        }
           
      }
       
      $xsaldou=$xsaldou+$xcant;
      $xsaldov=$xsaldov+($xcant*$xpuni);
    }
    else
    {
      $xsaldou=$xsaldou-$xcant;
      $xsaldov=$xsaldov-($xcant*$xprom);
    }

//        if($user_codigo=='2')
       {
            
//        echo '<br>**USR '.$user_codigo;
//          echo '*/*/*--->'.$pitem;
//          echo '*/*/*--->'.$xsaldou;
//          echo '*/*/*--->'.$xsaldov;
//          echo '*/*/*--->'.$xprom;
       }
       
//            if((int)$xidnum1==5836)
//            {echo '<br>'.$xdocu.' - '.$pbode.' - '.$xprom;}
       
//     if($xdocu=='IB17' and $xreval>0){$xprom=$xreval;}
//    if(mb_stristr('IB00.IB10.IB13.IB14.IB15.IB17',$xdocu))
    if(mb_stristr('IB00.IB10.IB13.IB14.IB15.IB17',$xdocu) or ($xdocu=='EB17' and $xreval>0))
    {
         
//       if($xsaldou>0 and $xdocu!='IB13')
      if($xsaldou>0)
      {$xprom=$xsaldov/$xsaldou;}

         
          if($xfecha>="2022-05-01")      
          {
//                echo '<br>I */*/* '.
         
//       else
//       {$xprom=}
//          echo '<br><br>*/*/*--->';
// //          echo '*/*/*--->'.$pitem;
//          echo '*/*/*--->'.$xsaldou;
//          echo '*/*/*--->'.$xsaldov;
//          echo '*/*/*--->'.$xprom;
//          echo msql_error($link_vcrx);
          }         
    }
    else
    {
//       echo '**//**'.$pbode;   
         
      if(!empty($pbode))
      {
           if($xprom==0 and substr($xdocu,0,2)=='EB')
           {
//           $sql_pcp1.='abs(DATEDIFF("'.$xfecha.'",fecha)) as diasdif,';
                
                $sql_npro ='select ';
                $sql_npro.='abs(DATEDIFF("'.$xfecha.'",fecha)) as diasdif,';
                $sql_npro.='inve12.* from inve12 ';
                $sql_npro.='where item="'.$pitem.'"  ';
                $sql_npro.='and status!="O" ';
                $sql_npro.='and docu like "IB%" ';
//                 $sql_npro.='and fecha>="'.$xfecha.'" ';
                $sql_npro.='and bode="'.$pbode.'" ';
//                 $sql_npro.='order by fecha limit 1';
                $sql_npro.='order by diasdif, fecha limit 1';
                $res_npro=msql_query($sql_npro,$link_vcrx);
                $xprom=msql_result($res_npro,0,'puni');
//                 echo '<br>*/*/*/'.$sql_npro;
//       $xsaldou=$xsaldou-$xcant;
                $xsaldov=$xsaldov-($xcant*$xprom);
           }
           
           $sql_updt ='update inve2 set puni="'.$xprom.'" ';
           $sql_updt.='where idnum2="'.$xidnum1.'" and iddet="'.$xiddet.'" ';
//            $sql_updt.='and docu not in("IB13")';
     //       $sql_updt ='update inve1,inve2 set puni="'.$xprom.'" ';
     //       $sql_updt.='where idnum1=idnum2 and idnum2="'.$xidnum1.'" and iddet="'.$xiddet.'" and bode="'.$pbode.'"';
           $res_updt=msql_query($sql_updt,$link_vcrx);
//            if((int)$xidnum1=1417)
//            {echo '<br>'.$sql_updt;}
//          if($xidnum1==5836)
          if($xfecha>="2022-05-01")      
         {
//           echo '<br><br>*/*/*/*/'.$sql_updt;
//          echo msql_error($link_vcrx);
         }
      }
    }
//          echo '<br><br>*/*/*--->';
//          echo '*/*/*--->'.$xsaldov;
//          echo '*/*/*--->'.$xsaldou;
//          echo '*/*/*--->'.$xprom;
       
//        echo '<msgalert>';
//        echo ' reval ==>'.$xreval;
//        echo ' cprom ==>'.$xprom;
//        echo '</msgalert>';
       
       
  }
//   echo '<br>**** '.date('H:i:s ').microtime();
  return $xprom;
}
  
  
  
function gen_invent($docu,$idnum)
{
	include('../_cfg/config.php');

// echo '<msgalert>*/*/*/'.$docu.$idnum.'</msgalert>';     
	if($cfg_empr=='tgck' and substr($docu,0,2)=='FC'){return;}
	if($cfg_empr=='imcp' and substr($docu,0,2)=='FC'){return;}
  
	// 	include('php_gene1.php');
	// 	include('php_session.php');
	$xfechanow=date('Y-m-d');

	$xmdfrom='X';		
	$xbode='B010';
	$xbode2='';
	$xptoe='001001';
	$xdocu='';
	
	$tabla=r_fiel('docu',$docu,'tabla');
	$xmdfrom=$tabla;

	if(mb_stristr('.FP.',substr($docu,0,2))){$xdocu='IB10';}
	if(mb_stristr('.FC.',substr($docu,0,2))){$xdocu='EB10';}
	if(mb_stristr('.NC.',substr($docu,0,2))){$xdocu='IB12';}
	if(mb_stristr('EB13',substr($docu,0,4))){$xdocu='IB13';}
	if(mb_stristr('IB11',substr($docu,0,4))){$xdocu='EB11';}

  $emisores='***';
	if(mb_stristr('vare.demo.nmkt.cele',$cfg_empr))
  {
    $emisores.='0990658498'; //supermaxi
    $emisores.='0990017514'; // tia
    $emisores.='0990004196'; // comiasariato
  }
  
	if(mb_stristr('tgck',$cfg_empr))
  {
    $emisores.='0990658498.'; //inverneg
    $emisores.='0991466177.';  // filtrocorp
    $emisores.='0992536403.'; // bombastic
    $emisores.='0990270236.'; // vepamil
  }
  
//   echo '*/*/*/'.$xmdfrom;
	$sql_odocu1='select * from '.strtolower($xmdfrom).'1 where  idnum1="'.$idnum.'"';
	$res_odocu1=msql_query($sql_odocu1,$link_vcrx);

  
	if($xdocu==''){return;}
  
	if($xmdfrom=='vtas')
	{
		$xptov=msql_result($res_odocu1,0,'ptov');
		$sql_ptov='select * from ptov0 where ptov_codigo="'.$xptov.'"';
		$res_ptov=msql_query($sql_ptov,$link_vcrx);
		$xbode=msql_result($res_ptov,0,'ptov_bode');
		if(empty($xbode)){$xbode='B010';}
	}

	if($xmdfrom=='inve')
	{
		$xbode=msql_result($res_odocu1,0,'bode');
		$xbode2='';
		if(mb_stristr('EB13.',substr($docu,0,4)))
		{
			$xbode=msql_result($res_odocu1,0,'bode2');
			$xbode2=msql_result($res_odocu1,0,'bode');
      if(empty($xbode)){return;}
      if($xbode==$xbode2){return;}
      
      $sql_stfin='update inve1 set stfin=1 where idnum1="'.$idnum.'"';
      $res_stfin=msql_query($sql_stfin,$link_vcrx);
      
		}
	}

	if($xmdfrom=='comp'){$xbode='B010';}
	
  
	$xptoe=r_fiel('bode',$xbode,'ptoe');
	if(empty($xptoe)){$xptoe='001001';}
  
	// validar que solo sean bienes
// 	$sql_odocu2='select * from '.strtolower($xmdfrom).'2 where  idnum2="'.$idnum.'" and item in (select item_codigo from bien0)';
// 	$res_odocu2=msql_query($sql_odocu2,$link_vcrx);

//      $sql_odocu2='select * from '.strtolower($xmdfrom).'2 where  idnum2="'.$idnum.'" and item not like "99%"';
// 	$res_odocu2=msql_query($sql_odocu2,$link_vcrx);
  
     $sql_odocu2 ='select * from '.strtolower($xmdfrom).'2 ';
     $sql_odocu2.='where idnum2="'.$idnum.'" ';
     $sql_odocu2.='and item in';
     $sql_odocu2.='(select distinct item from inve1 left join inve2 on idnum1=idnum2 where status not in ("O","X") and docu like "IB%")';
	$res_odocu2=msql_query($sql_odocu2,$link_vcrx);
  
//   explain_sql($sql_odocu2);
//   $bienes_ok=0;
//   if(msql_num_rows($res_odocu2)!=0){$bienes_ok=1;}
//   if(msql_num_rows($res_odocu2)==0){return;}
  if(msql_num_rows($res_odocu2)==0)
  {
     $sql_odocu2 ='update inve1 set status="O" ';
     $sql_odocu2.='where idfrom="'.$idnum.'" ';
     $sql_odocu2.='and mdfrom="'.strtolower($xmdfrom).'"';
     $res_odocu2=msql_query($sql_odocu2,$link_vcrx);
       return;
  }

	$emisor=msql_result($res_odocu1,0,'enti');
	$xstatus=msql_result($res_odocu1,0,'status');
	$xconcepto=msql_result($res_odocu1,0,'concepto').'/'.$docu.'-'.msql_result($res_odocu1,0,'numero');

  
     if(substr($docu,0,2)=='FP' and !mb_stristr($emisores,substr($emisor,0,10))){return;}


     $sql_inve='select * from inve1 where idfrom='.$idnum.' and upper(mdfrom)="'.strtoupper($tabla).'" order by idnum1';
     $res_inve=msql_query($sql_inve,$link_vcrx);

     if(msql_num_rows($res_inve)==0)
     {
          $xnumero1=nume_docu($xdocu,$xptoe);
          $newidnum=clon_docu($docu,$idnum,$xdocu);
     }
     else
     {
          $xnumero1=msql_result($res_inve,0,'numero');
          $newidnum=msql_result($res_inve,0,'idnum1');
     }
  

  $xidnum1=$newidnum;
	$sql_uinve='update inve1 set ';
	$sql_uinve.='docu="'.$xdocu.'",';
	$sql_uinve.='bode="'.$xbode.'",';
// 	$sql_uinve.='bode2="'.$xbode2.'",';
	$sql_uinve.='ptoe="'.$xptoe.'",';
	$sql_uinve.='numero="'.$xnumero1.'",';
	$sql_uinve.='fecha="'.msql_result($res_odocu1,0,'fecha').'",';
	$sql_uinve.='enti="'.msql_result($res_odocu1,0,'enti').'",';
	$sql_uinve.='numfac="'.msql_result($res_odocu1,0,'numero').'",';
// 		$sql_uinve.='iuser="'.msql_result($res_odocu1,0,'iuser').'",';
// 		$sql_uinve.='idate="'.msql_result($res_odocu1,0,'idate').'",';
	$sql_uinve.='status="'.$xstatus.'",';
	$sql_uinve.='concepto="'.$xconcepto.'" ';
	$sql_uinve.='where idnum1="'.$xidnum1.'"';
	$res_uinve=msql_query($sql_uinve,$link_vcrx);

  
	$sql_uinve='update inve1 set ';
	$sql_uinve.='bode2="'.$xbode2.'",';
	$sql_uinve.='concepto="'.$xconcepto.'" ';
	$sql_uinve.='where idnum1="'.$xidnum1.'"';
// 	$sql_uinve.=' and (bode2="" or bode2 is null)';
	$sql_uinve.=' and (bode2="" or bode2 is null or bode=bode2)';
	$res_uinve=msql_query($sql_uinve,$link_vcrx);
  
// echo '*/*/'.$sql_uinve;
// echo '*/*/'.msql_error($link_vcrx);
  
	if($xstatus!="X" and $xstatus!="O")
	{		
// 		$sql_dinve2 ='delete from inve2 ';
		$sql_dinve2 ='update inve2 ';
		$sql_dinve2 ='set cant=1/1000, puni=1/1000 ';
		$sql_dinve2.='where idnum2="'.$xidnum1.'" ';
		$sql_dinve2.='and item like "99%"' ;
		$res_dinve2=msql_query($sql_dinve2,$link_vcrx);

		// validar que solo sean bienes
// 		$sql_odocu2 ='select * from '.strtolower($xmdfrom).'2 ';
// 		$sql_odocu2.='where idnum2="'.$idnum.'" and item in (select item_codigo from bien0)';

          
          if($xdocu=='IB13' and $xidnum1>0)
          {
               $sql_dele='update inve2 set cant=0,puni=0 where idnum2='.$xidnum1.'';
               $res_dele=msql_query($sql_dele,$link_vcrx);
//                echo $sql_dele.msql_error($link_vcrx);
//                echo '**/*'.$idnum;
          }
          
          if($xdocu=='EB10' and $xidnum1>0)
          {
               $sql_dele='update inve2 set cant=0,puni=0 where idnum2='.$xidnum1.'';
               $res_dele=msql_query($sql_dele,$link_vcrx);
//                echo $sql_dele.msql_error($link_vcrx);
//                echo '**/*'.$idnum;
          }
          
		$xiddet = 0;
          msql_data_seek($res_odocu2);
		while($r_odocu2=msql_fetch_assoc($res_odocu2))
		{
               $xitem=$r_odocu2['item'];
               $xdetalle=$r_odocu2['detalle'];
               $xcant=$r_odocu2['cant'];
               $xpuni=$r_odocu2['puni'];
               $xlote=$r_odocu2['lote'];
               
           if(mb_stristr('9999.9900.8888.',substr($xitem,0,4)))
           {
             $xcant=0;
             $xpuni=0;
           }
        
        
        $xiddet++;
        $sql_iinve2='insert into inve2 (idnum2,iddet) value ("'.$xidnum1.'","'.$xiddet.'")';
        $res_iinve2=msql_query($sql_iinve2,$link_vcrx);

        $sql_uinve='update inve2 set ';
        if(mb_stristr('IB11.',substr($docu,0,4)))
        {
          $sql_uinve.='item="'.$r_odocu2['cambio'].'",';
          $sql_uinve.='cambio="'.$r_odocu2['item'].'",';
          $xdetalle='CAMBIO : '.$r_odocu2['item'].' X '.$r_odocu2['cambio'];
        }
        else
        {$sql_uinve.='item="'.$xitem.'",';}

        $sql_uinve.='cant="'.$xcant.'",';
        $sql_uinve.='puni="'.$xpuni.'",';
        $sql_uinve.='lote="'.$xlote.'",';
        $sql_uinve.='detalle="'.$xdetalle.'" ';
        $sql_uinve.='where idnum2="'.$xidnum1.'" and iddet="'.$xiddet.'"';
//         echo '<br>'.$sql_uinve;
        $res_uinve=msql_query($sql_uinve,$link_vcrx);
        
		}
          
          
          $sql_view='create view item_inve as ';
          $sql_view.='(select distinct item from inve1 left join inve2 on idnum1=idnum2 where status not in ("O","X") and docu like "IB%")';
          $res_view=msql_query($sql_view,$link_vcrx);          
          
          
          $sql_updt2 ='update inve2 ';
          $sql_updt2.='set cant=0,puni=0 ';
          $sql_updt2.='where idnum2="'.$xidnum1.'" ';
          $sql_updt2.='and item not in';
          $sql_updt2.='(select item from item_inve)';
          $res_updt2=msql_query($sql_updt2,$link_vcrx);
//           echo '*/*/*  '.$sql_updt2; 
          
          $sql_updt2 ='delete from inve2 ';
          $sql_updt2.='where idnum2="'.$xidnum1.'" ';
          $sql_updt2.='and cant=0 and puni=0 ';
          $res_updt2=msql_query($sql_updt2,$link_vcrx);
//           echo '*/*/*  '.$sql_updt2; 
          
          
          $sql_view='drop view item_inve  ';
          $res_view=msql_query($sql_view,$link_vcrx);          
          
          
	}

	return $xidnum1;
}
	
	
function load_item($data="")
{
	load_imgi();
// return;
	ob_start(); 
	include('../_cfg/config.php');
	echo'<resultado>';
	echo'<pant1>';
	
	if($cfg_empr=='demo'){$data='gmny';}
	if($cfg_empr=='gnya'){$data='gmny';}
	if($cfg_empr=='leie'){$data='gnya';}
	if($cfg_empr=='gsas'){$data='gmny';}
  
  $empr1=$cfg_empr;
	
     
     echo '*/*/*/*/*/*'.$data;
     
	if($data==''){return;}
	$fecha1=date('Y-m-01',strtotime ('-6 months')); 
  
// 	msql_select_db('vcrxol_'.$data,$link_vcrx);
  $_SESSION['link_vcrx']='';
  include('../../'.$data.'/_cfg/config.php');
	
	$sql_load ='select * from item0 ';
	$sql_load.=' where 1=1';
     $xorder=' order by item_codigo desc';
	if(mb_stristr('gnya.demo.gsas',$empr1))
	{	
          $sql_load.=' and (item_codigo like "20%" and length(trim(item_codigo))>=8 ) ' ;
//          $sql_load.=' and (item_codigo like "20100216%" and length(trim(item_codigo))>=8 ) ' ;
          $xorder=' order by item_codigo desc';
	}
	$sql_load.=$xorder;
	$res_load=msql_query($sql_load,$link_vcrx);

     
     $sql_load_clor='select * from clor0';
	$res_load_clor=msql_query($sql_load_clor,$link_vcrx);

     $sql_load_mrca='select * from mrca0';
	$res_load_mrca=msql_query($sql_load_mrca,$link_vcrx);

     $sql_load_kldd='select * from kldd0';
	$res_load_kldd=msql_query($sql_load_kldd,$link_vcrx);

     $_SESSION['link_vcrx']='';
     include('../_cfg/config.php');
	while($aso_load=msql_fetch_assoc($res_load))
	{
		$xitem=$aso_load['item_codigo'];
		
		$sql_item='insert into item0(item_codigo,item_iuser,item_idate)value("'.$xitem.'","SYSTEM",now())';
		$res_item=msql_query($sql_item,$link_vcrx);
		
		// UPDATE FIJOS
		{
			$sql_item ='update item0 set ';
			$sql_item.='item_descri="'.$aso_load['item_descri'].'", ';
			$sql_item.='item_descri2="'.$aso_load['item_descri2'].'", ';
			$sql_item.='item_descri0="'.$aso_load['item_descri0'].'", ';
			$sql_item.='item_tipo="'.$aso_load['item_tipo'].'", ';
			$sql_item.='item_lsub="'.$aso_load['item_lsub'].'", ';
			$sql_item.='item_mrca="'.$aso_load['item_mrca'].'", ';
			$sql_item.='item_umdd="'.$aso_load['item_umdd'].'", ';
			$sql_item.='item_tlla="'.$aso_load['item_tlla'].'", ';
			$sql_item.='item_clor="'.$aso_load['item_clor'].'", ';
			$sql_item.='item_clor1="'.$aso_load['item_clor1'].'", ';
			$sql_item.='item_kldd="'.$aso_load['item_kldd'].'", ';
			$sql_item.='item_numpart="'.$aso_load['item_numpart'].'", ';
			$sql_item.='item_codigov="'.$aso_load['item_codigov'].'", ';
			$sql_item.='item_raiz="'.$aso_load['item_raiz'].'", ';
			$sql_item.='item_mdlo="'.$aso_load['item_mdlo'].'", ';
			$sql_item.='item_rfer="'.$aso_load['item_rfer'].'", ';
// 			$sql_item.='item_ctlg="'.$aso_load['item_ctlg'].'", ';
			$sql_item.='item_ean="'.$aso_load['item_ean'].'", ';
			$sql_item.='item_sku="'.$aso_load['item_sku'].'", ';
			$sql_item.='item_iva="'.$aso_load['item_iva'].'", ';
			$sql_item.='item_ice="'.$aso_load['item_ice'].'", ';
			$sql_item.='item_irbp="'.$aso_load['item_irbp'].'", ';
			$sql_item.='item_status="'.$aso_load['item_status'].'" ';
// 			$sql_item.='item_dcto=item_dcto ';
			$sql_item.='where item_codigo="'.$xitem.'"';
			$res_item=msql_query($sql_item,$link_vcrx);


// 			$sql_item='update item0 set item_raiz="'.$aso_load['item_raiz'].'" where item_codigo="'.$xitem.'"';
// 			$res_item=msql_query($sql_item,$link_vcrx);

			$sql_item='update item0 set item_modelo="'.$aso_load['item_modelo'].'" where item_codigo="'.$xitem.'"';
			$res_item=msql_query($sql_item,$link_vcrx);

			$sql_item='update item0 set item_nctlg="'.$aso_load['item_nctlg'].'" where item_codigo="'.$xitem.'"';
			$res_item=msql_query($sql_item,$link_vcrx);

			$sql_item='update item0 set item_pctlg="'.$aso_load['item_pctlg'].'" where item_codigo="'.$xitem.'"';
			$res_item=msql_query($sql_item,$link_vcrx);

		}
	
		if(mb_stristr('leie.demo',$cfg_empr))
		{
			$sql_item='update item0 set item_puni="'.$aso_load['item_puni'].'" where item_codigo="'.$xitem.'"';
			$res_item=msql_query($sql_item,$link_vcrx);
		}
		
		if(mb_stristr('gnya.demo.gsas',$cfg_empr))
		{
			$sql_item='update item0 set item_ctlg="'.$aso_load['item_ctlg'].'" where item_codigo="'.$xitem.'"';
			$res_item=msql_query($sql_item,$link_vcrx);
		}
		
	}
     
     
     
	while($aso_load=msql_fetch_assoc($res_load_mrca))
	{
          $tabla2='mrca';
		$xitem=$aso_load[$tabla2.'_codigo'];
		
		$sql_inse='insert into '.$tabla2.'0('.$tabla2.'_codigo,'.$tabla2.'_iuser,'.$tabla2.'_idate)value("'.$xitem.'","SYSTEM",now())';
		$res_inse=msql_query($sql_inse,$link_vcrx);

          // UPDATE FIJOS
		{
			$sql_item ='update '.$tabla2.'0 set ';
			$sql_item.=''.$tabla2.'_descri="'.$aso_load[''.$tabla2.'_descri'].'", ';
			$sql_item.=''.$tabla2.'_tipo="'.$aso_load[''.$tabla2.'_tipo'].'", ';
			$sql_item.=''.$tabla2.'_status="'.$aso_load[''.$tabla2.'_status'].'" ';
			$sql_item.='where '.$tabla2.'_codigo="'.$xitem.'"';
			$res_item=msql_query($sql_item,$link_vcrx);
		}
	
		
	}
     
	while($aso_load=msql_fetch_assoc($res_load_kldd))
	{
          $tabla2='kldd';
		$xitem=$aso_load[$tabla2.'_codigo'];
		
		$sql_inse='insert into '.$tabla2.'0('.$tabla2.'_codigo,'.$tabla2.'_iuser,'.$tabla2.'_idate)value("'.$xitem.'","SYSTEM",now())';
		$res_inse=msql_query($sql_inse,$link_vcrx);
		
		// UPDATE FIJOS
		{
			$sql_item ='update '.$tabla2.'0 set ';
			$sql_item.=''.$tabla2.'_descri="'.$aso_load[''.$tabla2.'_descri'].'", ';
			$sql_item.=''.$tabla2.'_tipo="'.$aso_load[''.$tabla2.'_tipo'].'", ';
			$sql_item.=''.$tabla2.'_status="'.$aso_load[''.$tabla2.'_status'].'" ';
			$sql_item.='where '.$tabla2.'_codigo="'.$xitem.'"';
			$res_item=msql_query($sql_item,$link_vcrx);
		}
	
		
	}
     
	while($aso_load=msql_fetch_assoc($res_load_clor))
	{
          $tabla2='clor';
		$xitem=$aso_load[$tabla2.'_codigo'];
		
		$sql_inse='insert into '.$tabla2.'0('.$tabla2.'_codigo,'.$tabla2.'_iuser,'.$tabla2.'_idate)value("'.$xitem.'","SYSTEM",now())';
		$res_inse=msql_query($sql_inse,$link_vcrx);

          // UPDATE FIJOS
		{
			$sql_item ='update '.$tabla2.'0 set ';
			$sql_item.=''.$tabla2.'_descri="'.$aso_load[''.$tabla2.'_descri'].'", ';
			$sql_item.=''.$tabla2.'_tipo="'.$aso_load[''.$tabla2.'_tipo'].'", ';
			$sql_item.=''.$tabla2.'_hexa="'.$aso_load[''.$tabla2.'_hexa'].'", ';
			$sql_item.=''.$tabla2.'_status="'.$aso_load[''.$tabla2.'_status'].'" ';
			$sql_item.='where '.$tabla2.'_codigo="'.$xitem.'"';
			$res_item=msql_query($sql_item,$link_vcrx);
		}
	
		
	}
     
	while($aso_load=msql_fetch_assoc($res_load_clor))
	{
          $tabla2='tlla';
		$xitem=$aso_load[$tabla2.'_codigo'];
		
		$sql_inse='insert into '.$tabla2.'0('.$tabla2.'_codigo,'.$tabla2.'_iuser,'.$tabla2.'_idate)value("'.$xitem.'","SYSTEM",now())';
		$res_inse=msql_query($sql_inse,$link_vcrx);

          // UPDATE FIJOS
		{
			$sql_item ='update '.$tabla2.'0 set ';
			$sql_item.=''.$tabla2.'_descri="'.$aso_load[''.$tabla2.'_descri'].'", ';
			$sql_item.=''.$tabla2.'_tipo="'.$aso_load[''.$tabla2.'_tipo'].'", ';
			$sql_item.=''.$tabla2.'_status="'.$aso_load[''.$tabla2.'_status'].'" ';
			$sql_item.='where '.$tabla2.'_codigo="'.$xitem.'"';
			$res_item=msql_query($sql_item,$link_vcrx);
		}		
	}
     
	echo'</pant1>';
	echo'</resultado>';
	$obstart = ob_get_clean();
	$obstart=alltrim($obstart);	
	echo $obstart; 

}
	
function load_imgi($data="")
{
	ob_start(); 
	include('../_cfg/config.php');
	echo'<resultado>';
	echo'<pant1>';
	
	if($cfg_empr=='demo'){$data='demo';}
	if($cfg_empr=='gnya'){$data='gmny';}
	if($cfg_empr=='gsas'){$data='gmny';}
	if($cfg_empr=='leie'){$data='gnya';}
	
	if($data==''){return;}
	$fecha1=date('Y-m-01',strtotime ('-6 months')); 

// 	msql_select_db('vcrxol_'.$data,$link_vcrx);
  $_SESSION['link_vcrx']='';
  include('../../'.$data.'/_cfg/config.php');
	
	$sql_load ='select * from imgi0 ';
	$sql_load.=' where 1=1';
	
	if(mb_stristr('gnya.demo.gsas',$cfg_empr))
	{	
// 		$sql_load.=' and item_codigo>=100000';
// 		$sql_load.=' and item_codigo<=99999999';
// 		$sql_load.=' and item_codigo like "16%"';
	}
	
	$sql_load.=' order by imgi_codigo';
	$res_load=msql_query($sql_load,$link_vcrx);
	
// 	msql_select_db('vcrxol_'.$data,$link_vcrx);
// 	$res_load=msql_query($sql_load,$link_vcrx);

// 	msql_select_db('vcrxol_'.$cfg_empr,$link_vcrx);
  $_SESSION['link_vcrx']='';
  include('../_cfg/config.php');
	while($aso_load=msql_fetch_assoc($res_load))
	{
		$ximgi=$aso_load['imgi_codigo'];
		$pname=$aso_load['imgi_file'];
		$pfile='../../'.$data.'/imgi/'.$pname;
		$pdest='../../'.$cfg_empr.'/imgi/'.$pname;
		if(file_exists($pfile))
		{ 
			echo '<br>';
			echo $pfile;
			echo '-->';
			echo copy($pfile,$pdest);

			$sql_imgi='insert into imgi0(imgi_codigo,imgi_iuser,imgi_idate)value("'.$ximgi.'","SYSTEM",now())';
			$res_imgi=msql_query($sql_imgi,$link_vcrx);
		
		}

		// UPDATE FIJOS
		{
			$sql_imgi='update imgi0 set imgi_descri="'.$aso_load['imgi_descri'].'" where imgi_codigo="'.$ximgi.'"';
			$res_imgi=msql_query($sql_imgi,$link_vcrx);

			$sql_imgi='update imgi0 set imgi_item="'.$aso_load['imgi_item'].'" where imgi_codigo="'.$ximgi.'"';
			$res_imgi=msql_query($sql_imgi,$link_vcrx);

			$sql_imgi='update imgi0 set imgi_file="'.$aso_load['imgi_file'].'" where imgi_codigo="'.$ximgi.'"';
			$res_imgi=msql_query($sql_imgi,$link_vcrx);

			$sql_imgi='update imgi0 set imgi_status="'.$aso_load['imgi_status'].'" where imgi_codigo="'.$ximgi.'"';
			$res_imgi=msql_query($sql_imgi,$link_vcrx);


		}
	
		if(mb_stristr('leie.demo',$cfg_empr))
		{
			$sql_imgi='update imgi0 set imgi_puni="'.$aso_load['imgi_puni'].'" where imgi_codigo="'.$ximgi.'"';
			$res_imgi=msql_query($sql_imgi,$link_vcrx);
		}
		
		if(mb_stristr('gnya.demo.gsas',$cfg_empr))
		{
			$sql_imgi='update imgi0 set imgi_ctlg="'.$aso_load['imgi_ctlg'].'" where imgi_codigo="'.$ximgi.'"';
			$res_imgi=msql_query($sql_imgi,$link_vcrx);
		}
		
	}
	echo'</pant1>';
	echo'</resultado>';
	$obstart = ob_get_clean();
	$obstart=alltrim($obstart);	
	echo $obstart; 
	
}
	

	
function sal_item($item='',$fecha1='',$fecha2='',$bode='',$lote='')
{
     if(empty($item)){return 0;}
	include('../_cfg/config.php');
	include('php_session.php');
  
	$sql_empr ='select * from empr0';
	$res_empr=msql_query($sql_empr,$link_vcrx);
// 	$fecha1=msql_result($res_empr,0,'empr_finve');
	$fecha0=fecha_modu('inve');
  if($fecha1==''){$fecha1=$fecha0;}
  if($fecha2==''){$fecha2=$fechaa;}

// 	$saldo=0;
  $tabla='inve';
// 	$sql_item ='select sum(case when left(docu,1)="I" then cant else cant*(-1) end) as cantidad ';
	$sql_item ='select '.$tabla.'12.*,';
  $sql_item.='sum(tcant) as stotal, ';
  $sql_item.='sum(case when fecha<"'.$fecha1.'" then tcant end) as saldoiu, ';
  $sql_item.='sum(case when fecha>="'.$fecha1.'" and fecha<="'.$fecha2.'" then tingreso end) as ting, ';
  $sql_item.='sum(case when fecha>="'.$fecha1.'" and fecha<="'.$fecha2.'" then tegreso end) as tegr, ';
	$sql_item.='sum(tcant) as saldou, ';
  $sql_item.='sum(case when fecha<"'.$fecha1.'" then tsubt end) as saldoi, ';
  $sql_item.='sum(case when fecha>="'.$fecha1.'" and fecha<="'.$fecha2.'" then tdebito end) as tdeb, ';
  $sql_item.='sum(case when fecha>="'.$fecha1.'" and fecha<="'.$fecha2.'" then tcredito end) as tcre, ';
	$sql_item.='sum(tsubt) as saldo, ';
	$sql_item.='1 as stat ';
  $sql_item.='from '.$tabla.'12 ';
  $sql_item.='where status!="O"';
  $sql_item.=' and fecha>="'.$fecha0.'"';
  $sql_item.=' and fecha<="'.$fecha2.'"';
  $sql_item.=' and trim(item) like "'.$item.'%"';
	if($fecha2=""){$sql_item.='and fecha<="'.$fecha2.'"';}
	if($bode!="")	{$sql_item.='and bode="'.$bode.'"';}
	if($lote!="")	{$sql_item.='and lote="'.$lote.'"';}
	$res_item=msql_query($sql_item,$link_vcrx);
     
//      echo '*/*/*/'.$sql_item;
  
  $saldo=array();
  $saldo[0]=msql_result($res_item,0,'item_descri');
  $saldo[1]=msql_result($res_item,0,'saldoiu');
  $saldo[2]=msql_result($res_item,0,'ting');
  $saldo[3]=msql_result($res_item,0,'tegr');
  $saldo[4]=msql_result($res_item,0,'saldou');
  $saldo[5]=msql_result($res_item,0,'saldoi');
  $saldo[6]=msql_result($res_item,0,'tdeb');
  $saldo[7]=msql_result($res_item,0,'tcre');
  $saldo[8]=msql_result($res_item,0,'saldo');
  
  
	return $saldo;
  
}

function open_pack($item,$fecha="")
{
	include('../_cfg/config.php');
	include('php_session.php');
	$idnum=0;
	
	if($fecha==""){$fecha=date('Ymd');}
	$sql_item ='select * from item0 ';
	$sql_item.='where item_codxunid!="" and item_codxunid is not null and item_unixpack>1 and item_unixpack is not null ';
	$sql_item.='and item_codigo="'.$item.'"';
	$res_item=msql_query($sql_item,$link_vcrx);
	if(msql_num_rows($res_item)!=0)
	{
		$item1=msql_result($res_item,0,'item_codigo');
		$item2=msql_result($res_item,0,'item_codxunid');
		$cant2=msql_result($res_item,0,'item_unixpack');
		
		$docu='EB18';
		$ptoe='001001';
		$numero=num_docu($docu,$ptoe);

		$enti=$cfg_ruc;
		$bode='B001';
		$sql_bode ='select * from bode0 where bode_ptoe="'.$ptoe.'" order by bode_codigo';
		$res_bode=msql_query($sql_bode,$link_vcrx);
		if(msql_num_rows!=0){$bode=msql_result($res_bode,0,'bode_ptoe');}
		
		$detalle='Egreso X Apertura para '.$cant2.' - '.$item2.' /'.r_fiel('item',$item2);
		{
		$sql_inve ='insert into inve1(docu,ptoe,numero)value("'.$docu.'","'.$ptoe.'","'.$numero.'")';
		$res_inve=msql_query($sql_inve,$link_vcrx);
		
		$sql_inve ='select idnum1 from inve1 where docu="'.$docu.'" and ptoe="'.$ptoe.'" and numero="'.$numero.'"';
		$res_inve=msql_query($sql_inve,$link_vcrx);
		$idnum1=msql_result($res_inve,0,'idnum1');
		
		$sql_inve ='update inve1 set ';
		$sql_inve.='enti="'.$enti.'",';
		$sql_inve.='bode="'.$bode.'",';
		$sql_inve.='fecha=now(),';
		$sql_inve.='iuser="'.$user_cedula.'",';
		$sql_inve.='idate=now(),';
		$sql_inve.='status="-" ';
		$sql_inve.='where idnum1='.$idnum1;
		$res_inve=msql_query($sql_inve,$link_vcrx);

		$sql_inve ='insert into inve2(idnum2,iddet,item,cant,detalle)value("'.$idnum1.'","1","'.$item1.'","1","'.$detalle.'")';
		$res_inve=msql_query($sql_inve,$link_vcrx);
		}
		$ridnum=$idnum1;

		$detalle='Ingreso X Apertura de '.$item1.' /'.r_fiel('item',$item1);
		{
		$docu='IB18';
		$sql_inve ='insert into inve1(docu,ptoe,numero)value("'.$docu.'","'.$ptoe.'","'.$numero.'")';
		$res_inve=msql_query($sql_inve,$link_vcrx);
		
		$sql_inve ='select idnum1 from inve1 where docu="'.$docu.'" and ptoe="'.$ptoe.'" and numero="'.$numero.'"';
		$res_inve=msql_query($sql_inve,$link_vcrx);
		$idnum1=msql_result($res_inve,0,'idnum1');
		
		$sql_inve ='update inve1 set ';
		$sql_inve.='enti="'.$enti.'",';
		$sql_inve.='bode="'.$bode.'",';
		$sql_inve.='fecha=now(),';
		$sql_inve.='iuser="'.$user_cedula.'",';
		$sql_inve.='idate=now(),';
		$sql_inve.='status="-" ';
		$sql_inve.='where idnum1='.$idnum1;
		$res_inve=msql_query($sql_inve,$link_vcrx);

		$sql_inve ='insert into inve2(idnum2,iddet,item,cant,detalle)value("'.$idnum1.'","1","'.$item1.'","'.$cant2.'","'.$detalle.'")';
		$res_inve=msql_query($sql_inve,$link_vcrx);
		}
		
		
// 		$saldo=msql_result($res_item,0,'cantidad');
	}
	
	unset($res_item);
	unset($res_inve);
	return $ridnum;
}

function gen_combo($item,$fecha="")
{
	include('../_cfg/config.php');
	if($fecha==""){$fecha=date('Ymd');}
	
}

   
	
function get_serie_lote($docu,$idnum)	
{
	include('../_cfg/config.php');
	include('php_session.php');
  
  
  if($idnum==''){return;}

	$sql_vtas ='select * from vtas1 where idnum1="'.$idnum.'"';
	$res_vtas=msql_query($sql_vtas,$link_vcrx);
	
	$fecha1=msql_result($res_vtas,0,'fecha');
	$fecha2=msql_result($res_vtas,0,'fecha');
	$enti=msql_result($res_vtas,0,'enti');
	$mdfrom=msql_result($res_vtas,0,'mdfrom');
	$idfrom=msql_result($res_vtas,0,'idfrom');

	if(strtolower($mdfrom)=='clie')
	{
		$sql_clie='select * from clie1 where idnum1="'.$idfrom.'"';
		$res_clie=msql_query($sql_clie,$link_vcrx);
		$fecha1=msql_result($res_clie,0,'fecha');
	}
	$numseries='';
	$lotes='';
	
// 	$sql_vtas2 ='select distinct idnum2,item,item_descri from vtas12 where idnum2="'.$idnum.'"';
	$sql_vtas2 ='select distinct idnum2,item,item_descri from vtas2 left join item0 on item=item_codigo where idnum2="'.$idnum.'"';
	$res_vtas2=msql_query($sql_vtas2,$link_vcrx);
   
	while($aso_vtas2=msql_fetch_assoc($res_vtas2))
	{
		$xitem=$aso_vtas2['item'];
		$xitemdes=$aso_vtas2['item_descri'];
      $xfecha1=$fecha1;
      $xfecha2=$fecha2;
      
		$sql_inve ='select *  ';
// 		$sql_inve.='from inve12 ';
		$sql_inve.='from inve1 left join inve2 on idnum1=idnum2 ';
		$sql_inve.='where status not in ("O","X")';
		$sql_inve.=' and (fecha between "'.$xfecha1.'" and "'.$xfecha2.'")';
		$sql_inve.=' and enti like "'.substr($enti,0,10).'%" ';
		$sql_inve.=' and item="'.$xitem.'" ';
		$res_inve=msql_query($sql_inve,$link_vcrx);

      if(msql_num_rows($res_inve)==0)
      {
         $xfecha1=date('Y-m-d',strtotime($fecha1. '-1 month'));
         $xfecha2=date('Y-m-d',strtotime($fecha2. '+1 month'));
		$sql_inve ='select *  ';
// 		$sql_inve.='from inve12 ';
		$sql_inve.='from inve1 left join inve2 on idnum1=idnum2 ';
         $sql_inve.='where status!="O"';
         $sql_inve.=' and (fecha between "'.$xfecha1.'" and "'.$xfecha2.'")';
         $sql_inve.=' and enti like "'.substr($enti,0,10).'%" ';
         $sql_inve.=' and item="'.$xitem.'" ';
         $res_inve=msql_query($sql_inve,$link_vcrx);
      }
      
		$iserie='/SN ';
		$ilote='/LOTES ';
		while($aso_inve=msql_fetch_assoc($res_inve))
		{
          $xserie=$aso_inve['numserie'];
          $xlote=$aso_inve['lote'];
          if($xserie!=''){$iserie.=' : '.$xserie.'<br>';}
          if($xlote!=''){$ilote.=' : '.$xlote.'<br>';}
         $sql_updt='update vtas2 set lote="'.$xlote.'" where idnum2="'.$idnum.'" and item="'.$xitem.'" and (lote="" or lote is null)';
         $res_updt=msql_query($sql_updt,$link_vcrx);
		}
      if(msql_num_rows($res_inve)<=1){$iserie='';$ilote='';}
      
		if($iserie!=''){$numseries.=' *'.$xitemdes.$iserie;}
		if($ilote!=''){$lotes.=' *'.$xitemdes.$ilote;}
		
	}
   
	if($numseries!=''){$numseries=' '.$numseries;}
	if($lotes!=''){$lotes=' '.$lotes;}

	return ''.$numseries.$lotes;
}

  
  
function cons_prom($item,$pfecha='',$prdo='A')
{
	include('../_cfg/config.php');
	include('php_session.php');
  
     $fecha0=fecha_modu('inve');
     $fecha2=$pfecha;
  
     //   if($fecha1==''){$fecha1=$fecha0;}
     if(empty($fecha2)){$fecha2=$fechaa;}
//      $fecha1=date('Y-m-01',strtotime($fecha2.' -11 month'));
     $fecha1=date('Y-m-01',strtotime($fecha2.' -360 days'));
     if($prdo=='M')
     {$fecha1=date('Y-m-01',strtotime($fecha2.' -28 days'));}
     
//   $sql_inve='select sum(cant) as toteb from inve12 ';
//   $sql_inve='select sum(cant) as toteb ';
  $sql_inve='select sum(cant) as toteb, min(fecha) as minfec ';
  $sql_inve.='from inve1 left join inve2 on idnum1=idnum2 ';
  $sql_inve.='where status not in("O","X") ';
  $sql_inve.=' and item ="'.$item.'"';
  $sql_inve.=' and fecha>="'.$fecha0.'"';
  $sql_inve.=' and fecha>="'.$fecha1.'"';
  $sql_inve.=' and fecha<="'.$fecha2.'"';
  $sql_inve.=' and docu in("EB10","EB19")';
  $res_inve=msql_query($sql_inve,$link_vcrx);
  $xtoteb=msql_result($res_inve,0,'toteb');
  $xtoteb=$xtoteb*(-1);
// explain_sql($sql_inve);
  
//   $sql_prdo=$sql_inve;
//   $sql_prdo=str_replace('select sum(cant) as toteb','select min(fecha) as minfec ',$sql_prdo);
//   $res_prdo=msql_query($sql_prdo,$link_vcrx);
//   $minfec=msql_result($res_prdo,0,'minfec');

  $minfec=msql_result($res_inve,0,'minfec');

  if($fecha0>$fecha1){$fecha1=$fecha0;}
  $xdias=days_diff($fecha1,$fecha2)+1;
  $xsema=ceil($xdias/7);
  $xmeses=ceil($xdias/30);

  $xconpro=array();
//   if($prdo=='M'){$xconpro=$xtoteb/$xmeses*(-1)};
//   if($prdo=='S'){$xconpro=$xtoteb/$xsema*(-1);}
//   if($prdo=='D'){$xconpro=$xtoteb/$xdias*(-1);}

  $xconpro[0]=$xtoteb*(-1);
  $xconpro[1]=$xtoteb/$xdias*(-1);
  $xconpro[2]=$xtoteb/$xsema*(-1);
  $xconpro[3]=$xtoteb/$xmeses*(-1);
  
  return $xconpro;
}
  
function inve_serie_lote($idnum)	
{
	
}

     
function lote_disp($item,$fecha='',$bode='')
{
     if(empty($item)){return;}
     
     include('../_cfg/config.php');
     if(empty($fecha)){$fecha=date('Ymd');}
     $item=trim($item);
     
     $sql_lote ='select item,lote,status,fecha,';
     $sql_lote.='case when left(docu,1)="I" then abs(cant) else abs(cant)*-1 end as saldo ';
     $sql_lote.='from inve1 left join inve2 on idnum1=idnum2 ';
     $sql_lote.='where status not in ("O","X") ';
     $sql_lote.='and item="'.$item.'" ';
     $sql_lote.='and fecha<="'.$fecha.'" ';
     $sql_lote.='and lote!="" ';
     $sql_lote.='and lote is not null ';
     $sql_lote.='group by lote ';
     $sql_lote.='order by lote ';
     
     $sql_lote='select * from ('.$sql_lote.')as lote where saldo>0';
     $res_lote=msql_query($sql_lote,$link_vcrx);
     
     $lote=msql_result($res_lote,0,'lote');

//      $lote=$sql_lote;
     return $lote;
     
}

     
function item_lote($item,$lote,$fecha='',$bode='')
{
  include('../_cfg/config.php');
     if(empty($fecha)){$fecha=date('Ymd');}
     
     $sql_lote ='select  ';
     $sql_lote.='when item_umdd like "UND%" then 0 ';
     $res_lote=msql_query($sql_lote,$link_vcrx);
     
}
     
	
}


?>