<?php 
// die('-+-+-++-+-');
session_start();
foreach($_GET  as $key => $value){${$key}=trim($value);$_PARAMS[$key]=${$key};}  
foreach($_POST as $key => $value){${$key}=trim($value);$_PARAMS[$key]=${$key};}

include_once('lib_main.php');

echo '<div hide>';
echo '</div>';

if(!empty($empr)){$link_data=msql_connect('','','',$empr); $cfg_empr=$empr;}
$user_codigo=$_SESSION['user_codigo'];
$user0=data_maes('user',$user_codigo);

if(empty($user_codigo)){include('user_login0.php');return;}

$modu0=data_maes('modu',$modu);
$modu=strtolower($modu);

$docu0=data_maes('docu',$docu);

$docu=$docu0['docu_codigo'];
$modu=$docu0['docu_tabla'];
$info=substr($modu,0,2).'resu';

$enti0=data_maes('enti',$enti);
// $caja0=data_maes('caja',$caja);
// $bcos0=data_maes('bcos',$bcos);
$item0=data_maes('item',$item);
// $ctas0=data_maes('ctas',$ctas);
// $lsub0=data_maes('lsub',$lsub);
// $bode0=data_maes('bode',$bode);
// $csub0=data_maes('csub',$csub);
// $lote0=data_maes('lote',$lote);
// $cair0=data_maes('cair',$cair);
// $vndd0=data_maes('vndd',$vndd);


// if(gettype($fecha1)=='NULL'){$tsaldo=69;};
// if(gettype($fecha1)=='NULL' and $cfg_empr=='hfre'){$lsub='INAG-';};
// if(gettype($fecha1)=='NULL' and $modu=='cont'){$nivel=5;};

if(empty($info))
{
// if(gettype($fecha1)=='NULL' and $modu=='cont'){$info='ttssss';};
if(gettype($fecha1)=='NULL' and $modu=='vtas'){$info='vtresu';};
if(gettype($fecha1)=='NULL' and $modu=='clie'){$info='clresu';};
// if(gettype($fecha1)=='NULL' and $modu=='comp'){$info='coresu';};
// if(gettype($fecha1)=='NULL' and $modu=='caja'){$info='cjdocu';};
// if(gettype($fecha1)=='NULL' and $modu=='bcos'){$info='bcdocu';};
// // if(gettype($fecha1)=='NULL' and $modu=='inve'){$info='iiiiee';};
// if(gettype($fecha1)=='NULL' and $modu=='inve'){$info='iibode';};
// if(gettype($fecha1)=='NULL' and $modu=='cxco'){$info='ccsald';};
// if(gettype($fecha1)=='NULL' and $modu=='cxpa'){$info='cpsald';};
// if(gettype($fecha1)=='NULL' and $modu=='atvd'){$info='atdeta';};
}
     
if(gettype($fecha1)=='NULL')
{
     $fecha1=date('Y-m-01');
     if(date('d')<=7)
     {$fecha1=date('Y-m-01', strtotime(' -1 month'));}
};

// if(empty($user0['user_tipo'])){$cost='false';}
// if(empty($user0['user_tipo'])){$prec='false';}

// if(@!mb_stristr('sist.supe',$user0['user_tipo']) and $modu=='inve')
{
//      $sql_acce ='select docu,numero, ';
//      $sql_acce.='case when docum="COST" and info=1 then 1 else 0 end as cost, ';
//      $sql_acce.='case when docum="PREC" and info=1 then 1 else 0 end as prec, ';
//      $sql_acce.='status ';
//      $sql_acce.='from acce1 left join acce2 on idnum1=idnum2 ';
//      $sql_acce.='where numero='.$user_codigo.' ';
//      $sql_acce.='group by idnum1';
//      $res_acce=msql_query($sql_acce,$link_data);
//      if(empty(msql_result($res_acce,0,'cost'))){$cost='false';}
//      if(empty(msql_result($res_acce,0,'prec'))){$prec='false';}
}

// if($modu=='atvd')
{
//      $sql_updt='update atvd2 set clie=enti2 where clie="" or clie is null';
//      $res_updt=msql_query($sql_updt,$link_data);
}

$modu_descri=$modu0['modu_descri'];
$info_descri='INFORMES';
if($info=='clresu'){$info_descri='RESUMEN';}
if($info=='vtresu'){$info_descri='RESUMEN';}
// if($info=='vtxfec'){$info_descri='FECHA';}
// if($info=='vtxsem'){$info_descri='SEMANAL';}
// if($info=='vtxano'){$info_descri='ANUAL';}
// if($info=='vtanxm'){$info_descri='ANUAL /MES';}
// if($info=='vtxmes'){$info_descri='MENSUAL';}
// if($info=='coenti'){$info_descri='PROVEEDOR';}
// if($info=='vtenti'){$info_descri='CLIENTE';}
// if($info=='vtenxm'){$info_descri='CLIENTE /MES';}
// if($info=='vtptov'){$info_descri='PTO.VENTA';}
// if($info=='vtvndd'){$info_descri='VENDEDOR';}
// if($info=='vtvnxm'){$info_descri='VENDEDOR /MES';}
// if($info=='coxmes'){$info_descri='MENSUAL';}
// if($info=='vtitem'){$info_descri='ITEM';}
// if($info=='vtitxm'){$info_descri='ITEM /MES';}
// if($info=='cocair'){$info_descri='CAIR';}
// if($info=='cocaxm'){$info_descri='CAIR /MES';}
// if($info=='vtlsub'){$info_descri='LINEA';}
// if($info=='vtlsxm'){$info_descri='LINEA /MES';}
// if($info=='ccitem'){$info_descri='ITEM';}
// if($info=='caresu'){$info_descri='RESUMEN';}
// if($info=='vtdeta'){$info_descri='DETALLE';}
// if($info=='coresu'){$info_descri='RESUMEN';}
// if($info=='clenti'){$info_descri='CLIENTE';}

// if($info=='cjdocu'){$info_descri='CAJA X DOCUMENTO';}
// if($info=='cjdate'){$info_descri='CAJA X FECHA';}

// if($info=='bcdocu'){$info_descri='BANCO X DOCUMENTO';}
// if($info=='bcdate'){$info_descri='BANCO X FECHA';}

// if($info=='iikrdx'){$info_descri='KARDEX';}
// if($info=='iiiiee'){$info_descri='INGRESOS - EGRESOS';}
// if($info=='iiddcc'){$info_descri='DEBITOS - CREDITOS X LINEAS';}
// if($info=='iidcdd'){$info_descri='DEBITOS - CREDITOS (Diarios)';}
// if($info=='iibode'){$info_descri='STOCK X BODEGA';}
// if($info=='iidocu'){$info_descri='INGRESOS - EGRESOS X DOC';}
// if($info=='iievta'){$info_descri='EGR.X VENTAS';}
// if($info=='iiecon'){$info_descri='EGR.X CONSUMO';}
// if($info=='iiecxb'){$info_descri='EGR.X CONSUMO /BODEGA';}
// if($info=='iisxlt'){$info_descri='SALDOS X LOTE';}
// if($info=='iillcc'){$info_descri='LISTA CONTEO FISICO';}
// if($info=='iiresu'){$info_descri='DOCUMENTOS';}
// if($info=='iiddbb'){$info_descri='DATA BASE';}
// if($info=='iiblog'){$info_descri='DETALLE BODEGA';}

// if($info=='ccsald'){$info_descri='SALDOS';}
// if($info=='ccddcc'){$info_descri='DEBITOS - CREDITOS';}
// if($info=='ccdcdd'){$info_descri='DEBITOS - CREDITOS (Diarios)';}
// if($info=='ccmovi'){$info_descri='MOVIMIENTOS';}
// if($info=='ccresu'){$info_descri='RESUMEN';}

// if($info=='cpsald'){$info_descri='SALDOS';}
// if($info=='cpddcc'){$info_descri='DEBITOS - CREDITOS';}
// if($info=='cpdcdd'){$info_descri='DEBITOS - CREDITOS (Diarios)';}
// if($info=='cpmovi'){$info_descri='MOVIMIENTOS';}
// if($info=='cpresu'){$info_descri='RESUMEN';}

// if($info=='ttsald'){$info_descri='SALDOS';}
// if($info=='ttsaln'){$info_descri='SALDOS (Nivel)';}
// if($info=='ttssss'){$info_descri='SUMAS & SALDOS';}
// if($info=='ttssdd'){$info_descri='SUMAS & SALDOS (Diario)';}
// if($info=='ttssnn'){$info_descri='SUMAS & SALDOS (Nivel)';}
// if($info=='ttsscc'){$info_descri='SALDOS (Comparativo)';}
// if($info=='ttssaa'){$info_descri='SALDOS (Acumulado)';}
// if($info=='ttmovi'){$info_descri='LIBRO MAYOR';}
// if($info=='ttresu'){$info_descri='RESUMEN';}
// if($info=='ttdeta'){$info_descri='LIBRO DIARIO';}

// if($info=='atenti'){$info_descri='X USUARIO';}
// if($info=='atclie'){$info_descri='X CLIENTE';}
// if($info=='atresu'){$info_descri='X USUARIO/DIA';}
// if($info=='atblog'){$info_descri='DETALLE DIARIO';}


// if($info=='iillcc'){$cost='false';}
// if($info=='iillcc'){$item='';}
// if($info=='iiblog'){$item='';$tbod='';$lsub='';$lote='';$mrca='';$clor='';$mdlo='';}
// if($info=='ttresu'){$ctas='';}
// if($info=='ttdeta'){$ctas='';}

// if(!mb_stristr($info,'resu') and !mb_stristr($info,'deta')){$docu='';}
// if(!mb_stristr($info,'resu') and !mb_stristr($info,'deta')){$concep='';}
// if(){$docu='';}


// if(!empty($item))
{
//      $sql_lsub='select * from item0 where item_codigo="'.$item.'"';
//      $res_lsub=msql_query($sql_lsub,$link_data);
//      if(msql_num_rows($res_lsub)==1){$lsub=msql_result($res_lsub,0,'item_lsub');}
}

// if($info=='iikrdx' and empty($lsub) and empty($item))
{
//      $sql_lsub='select ';
//      $sql_lsub.='count(item_lsub) as conta,item_lsub ';
//      $sql_lsub.='from inve1 ';
//      $sql_lsub.='left join inve2 on idnum1=idnum2 ';
//      $sql_lsub.='left join item0 on item=item_codigo ';
//      $sql_lsub.='left join bode0 on bode=bode_codigo ';
//      $sql_lsub.='where status not in ("O","X") ';
//      $sql_lsub.='and bode_tipo like "D%" ';
//      if($cfg_empr=='hfre')
//      {$sql_lsub.='and item_lsub like "INAG%" ';}
//      $sql_lsub.='group by item_lsub ';
//      $sql_lsub.='order by conta desc ';
//      $sql_lsub.='limit 1 ';
//      $res_lsub=msql_query($sql_lsub,$link_data);
//      $lsub=msql_result($res_lsub,0,'item_lsub');
}

// if($info=='iikrdx')
{
//      $sql_krdx ='select * ';
//      $sql_krdx.='from item0 ';
//      $sql_krdx.='where item_status not in("I","X") ';
//      if(!empty($item)){$sql_krdx.='and (item_codigo like "'.$item.'%" or item_ean like "'.$item.'%" or item_codigov like "'.$item.'%"  or item_descri like "%'.$item.'%")';}
//      if(!empty($lsub)){$sql_krdx.='and item_lsub like "'.$lsub.'%" ';}
//      if(!empty($mrca)){$sql_krdx.='and item_mrca like "'.$mrca.'%" ';}
     
//      if(mb_stristr($orden,'Código')){$xorderby='order by item_codigo ';}
//      if(mb_stristr($orden,'Nombre')){$xorderby='order by item_descri,item_codigo ';}
//      if(mb_stristr($orden,'Linea')){$xorderby='order by item_lsub,item_descri,item_codigo ';}
     
//      $sql_krdx.=$xorderby;
//      $res_krdx=msql_query($sql_krdx,$link_data);
}

// if($info=='cjdocu')
{
//      $sql_krdx ='select * ';
//      $sql_krdx.='from caja0 ';
//      $sql_krdx.='where caja_status not in("I","X") ';
//      $sql_krdx.='and caja_codigo in(select distinct caja from caja1 where status not in("O","X")) ';
//      if(!empty($caja)){$sql_krdx.='and caja_codigo="'.$caja.'" ';}
     
//      $xorderby='order by caja_tipo,caja_codigo ';
//      if(mb_stristr($orden,'Código')){$xorderby='order by caja_tipo,caja_codigo ';}
//      if(mb_stristr($orden,'Nombre')){$xorderby='order by caja_tipo,caja_descri,caja_codigo ';}
     
//      $sql_krdx.=$xorderby;
//      $res_krdx=msql_query($sql_krdx,$link_data);
}

// if($info=='bcdocu')
{
//      $sql_krdx ='select * ';
//      $sql_krdx.='from ctab0 ';
//      $sql_krdx.='where ctab_status not in("I","X") ';
//      $sql_krdx.='and ctab_codigo in(select distinct ctab from bcos1 where status not in("O","X")) ';
//      if(!empty($ctab)){$sql_krdx.='and ctab_codigo="'.$ctab.'" ';}
     
//      $xorderby='order by ctab_tipo,ctab_codigo ';
//      if(mb_stristr($orden,'Código')){$xorderby='order by ctab_tipo,ctab_codigo ';}
//      if(mb_stristr($orden,'Nombre')){$xorderby='order by ctab_tipo,ctab_descri,ctab_codigo ';}
     
//      $sql_krdx.=$xorderby;
//      $res_krdx=msql_query($sql_krdx,$link_data);
}

// if($info=='iiblog')
{
//      $sql_krdx ='select * ';
//      $sql_krdx.='from bode0 ';
//      $sql_krdx.='where bode_status not in("I","X") ';
//      $sql_krdx.='and bode_codigo in(select distinct bode from inve1 where status not in("O","X")) ';
//      if(!empty($bode)){$sql_krdx.='and bode_codigo="'.$bode.'" ';}
//      if(!empty($tbod)){$sql_krdx.='and left(bode_tipo,1)="'.substr($tbod,0,1).'" ';}
     
//      $xorderby='order by bode_tipo,bode_codigo ';
//      if(mb_stristr($orden,'Código')){$xorderby='order by bode_tipo,bode_codigo ';}
//      if(mb_stristr($orden,'Nombre')){$xorderby='order by bode_tipo,bode_descri,bode_codigo ';}
// //      if(mb_stristr($orden,'Linea')){$xorderby='order by bode_lsub,item_descri,item_codigo ';}
     
//      $sql_krdx.=$xorderby;
//      $res_krdx=msql_query($sql_krdx,$link_data);
}

// if($info=='ccmovi' or $info=='ccresu')
{
//      $sql_krdx ='select * ';
//      $sql_krdx.='from enti0 ';
//      $sql_krdx.='where enti_status not in("X") ';
//      $sql_krdx.='and enti_codigo in(select distinct enti from vtas1 where status not in("O","X")) ';
//      if(!empty($enti)){$sql_krdx.='and enti_codigo like "'.substr($enti,0,10).'%" ';}
//      if(!empty($zsub)){$sql_krdx.='and enti_zsub like "'.$zsub.'%" ';}
     
//      $xorderby='order by enti_zsub,enti_codigo ';
//      if(mb_stristr($orden,'Código')){$xorderby='order by enti_zsub,enti_codigo ';}
//      if(mb_stristr($orden,'Nombre')){$xorderby='order by enti_zsub,enti_descri,enti_codigo ';}
// //      if(mb_stristr($orden,'Linea')){$xorderby='order by bode_lsub,item_descri,item_codigo ';}
     
//      $sql_krdx.=$xorderby;
//      $res_krdx=msql_query($sql_krdx,$link_data);
}
// echo '<br>*/*/'.$sql_krdx;

$xtitulo='INFORMES';

if($modu=='vtas'){$xtitulo='VENTAS';}
if($modu=='clie'){$xtitulo='CLIENTES';}
// if($modu=='caja'){$xtitulo='CAJA';}
// if($modu=='inve'){$xtitulo='INVENTARIOS';}
// if($modu=='comp'){$xtitulo='COMPRAS';}
// if($modu=='prov'){$xtitulo='PROVEEDORES';}
// if($modu=='cxco'){$xtitulo='CTAS.X COBRAR';}
// if($modu=='cxpa'){$xtitulo='CTAS.X PAGAR';}
// if($modu=='cont'){$xtitulo='CONTABILIDAD';}
// if($modu=='atvd'){$xtitulo='ACTIVIDADES';}

$xtitle=$xtitulo;
$xtopcenter='INFORMES';
     
if(!empty($modu)){$xtitle=strtoupper($modu);}
$xtitle.=' /'.$info_descri;
if($modu=='vtas' and (int)$enti*1!=0){$xtitle.=' /'.$enti0['enti_descri'];}
if($modu=='clie' and (int)$enti*1!=0){$xtitle.=' /'.$enti0['enti_descri'];}
// if($modu=='cont' and (int)$ctas*1!=0){$xtitle.=' /'.$ctas0['ctas_descri'];}
// if($modu=='inve' and (int)$item*1!=0){$xtitle.=' /'.$item0['item_descri'];}
// if($modu=='comp' and (int)$enti*1!=0){$xtitle.=' /'.$enti0['enti_descri'];}
// if($modu=='prov' and (int)$enti*1!=0){$xtitle.=' /'.$enti0['enti_descri'];}
// if($modu=='cxco' and (int)$enti*1!=0){$xtitle.=' /'.$enti0['enti_descri'];}
// if($modu=='cxpa' and (int)$enti*1!=0){$xtitle.=' /'.$enti0['enti_descri'];}
// if($modu=='atvd' and (int)$enti*1!=0){$xtitle.=' /'.$enti0['enti_descri'];}

$fecha0=fecha0($modu);

// if($info=='iillcc'){$fecha1=$fecha0;}
if(empty($fecha1)){$fecha1=date('Y-m-d',strtotime($fecha0.' +1 day'));}
if(empty($fecha2) and date('H')<6){$fecha2=date('Y-m-d',strtotime('-1 day'));}
if(empty($fecha2)){$fecha2=date('Y-m-d');}
if(empty($fecha1)){$fecha1=date('Y-m-01', strtotime($fecha2));}
if($fecha1>$fecha2 and $fecha1<date('Y-m-01')){$fecha2=date('Y-m-t', strtotime($fecha1));}
if($fecha1>$fecha2 and $fecha1<date('Y-m-t')){$fecha2=date('Y-m-d');}
if($fecha1>$fecha2){$fecha1=date('Y-m-01', strtotime($fecha2));}

$dom = new DOMDocument();
     $dom->encoding = 'utf-8';
     $dom->xmlVersion = '1.0';
     $dom->formatOutput = true;

//      $src='//'.$domain.'/_lib/info_modu.js'.$js_version;
//      $script=$dom->appendChild($dom->createElement("script"," "));
//      $script->setAttribute("src",$src);
echo $dom->saveXML();


//  SELECT DB
// echo '*/*/*/'.$modu.$info;
include('sele_info.php');
//echo '<br>'.$sql_info;


if(@!mb_stristr('sist.supe',$user0['user_tipo']))
{
     $sql_acce ='select * ';
     $sql_acce.='from acce1 ';
     $sql_acce.='left join acce2 on idnum1=idnum2 ';
     $sql_acce.='left join docu0 on docum=docu_codigo ';
     $sql_acce.='where numero='.$user_codigo.' ';
     $sql_acce.='and docu_tabla="'.$modu.'" ';
     $sql_acce.='and cons=1 ';
     $res_acce=msql_query($sql_acce,$link_data);

     if(msql_num_rows($res_acce)==0)
     {
          $sql_info='';  
          $msgres='NO TIENE ACCESO';
     }
}


if(!empty($sql_info))
{
//      setcookie($cfg_empr.'_infomodu3',date('Y-m-d H:i:s'),time()+(60*60*1));}

//      $res_info=msql_query($sql_info,$link_data);
     $date1=date('H:i:s');
     $res_info=msql_query($sql_info,$link_data);
     $date2=date('H:i:s');
     
     $msgres=number_format(msql_num_rows($res_info)).' Resultado(s)...';
//      $msgres.=$date1.$date2;
}


// PANTALLA FILTROS

if($modu=='caja')
{
//      $sql_tbod='select distinct caja_tipo from caja0 where caja_status not in("I","X") caja bode_tipo!="" and caja_tipo is not null';
//      $res_tbod=msql_query($sql_tbod,$link_data);
//      if(msql_num_rows($res_tbod)>1){$tbod_ok=1;}

//      $sql_imgi='select * from item0 left join imgi0 on item_codigo=imgi_item where item_status not in ("I","X") and imgi_status not in("I","X") limit 1';
//      $res_imgi=msql_query($sql_imgi,$link_data);
//      if(msql_num_rows($res_imgi)!=0){$imgi_ok=1;}

//      $sql_mrca='select * from mrca0 where mrca_status not in("I","X") limit 1';
//      $res_mrca=msql_query($sql_mrca,$link_data);
//      if(msql_num_rows($res_mrca)!=0){$mrca_ok=1;}

//      $sql_lote='select * from lote0 where lote_status not in("I","X") limit 1';
//      $res_lote=msql_query($sql_lote,$link_data);
//      if(msql_num_rows($res_lote)!=0){$lote_ok=1;}
}



if($modu=='inve')
{
//      $sql_lsub='select distinct item_lsub from inve1 left join inve2 on idnum1=idnum2 left join item0 on item=item_codigo where status not in ("O","X") and ifnull(item_lsub,"")!=""  limit 10';
//      $res_lsub=msql_query($sql_lsub,$link_data);
//      if(msql_num_rows($res_lsub)>1){$lsub_ok=1;}
     
//      $sql_tbod='select distinct bode_tipo from bode0 where bode_status not in("I","X") and bode_tipo!="" and bode_tipo is not null';
//      $res_tbod=msql_query($sql_tbod,$link_data);
//      if(msql_num_rows($res_tbod)>1){$tbod_ok=1;}

//      $sql_imgi='select * from item0 left join imgi0 on item_codigo=imgi_item where item_status not in ("I","X") and imgi_status not in("I","X") limit 1';
//      $res_imgi=msql_query($sql_imgi,$link_data);
//      if(msql_num_rows($res_imgi)!=0){$imgi_ok=1;}

//      $sql_mrca='select * from mrca0 where mrca_status not in("I","X") limit 1';
//      $res_mrca=msql_query($sql_mrca,$link_data);
//      if(msql_num_rows($res_mrca)!=0){$mrca_ok=1;}

//      $sql_lote='select * from lote0 where lote_status not in("I","X") limit 1';
//      $res_lote=msql_query($sql_lote,$link_data);
//      if(msql_num_rows($res_lote)!=0){$lote_ok=1;}
}

// if($modu=='cxco' )
if(@mb_stristr('vtas.clie.cxco',$modu))     
{
//      $sql_lsub='select distinct item_lsub from vtas1 left join vtas2 on idnum1=idnum2 left join item0 on item=item_codigo where status not in ("O","X") and ifnull(item_lsub,"")!=""  limit 10';
//      $res_lsub=msql_query($sql_lsub,$link_data);
//      if(msql_num_rows($res_lsub)>1){$lsub_ok=1;}
     
//      $sql_zsub='select distinct zsub from vtas1 where status not in ("O","X") and ifnull(zsub,"")!=""  limit 10';
//      $res_zsub=msql_query($sql_zsub,$link_data);
//      if(msql_num_rows($res_zsub)>1){$zsub_ok=1;}
     
//      $sql_vndd='select distinct vndd from vtas1 where status not in ("O","X") and ifnull(vndd,"")!="" and vndd*1>0 limit 10';
//      $res_vndd=msql_query($sql_vndd,$link_data);
//      if(msql_num_rows($res_vndd)>1){$vndd_ok=1;}
}



if($modu=='cxpa')
{
//      $sql_zsub='select * from zsub0 where zsub_status not in ("I","X")  limit 1';
     $sql_tpro='select distinct tpro_codigo from tpro0 where tpro_status not in ("O","X") and length(trim(tpro_codigo))>2 limit 1';
     $res_tpro=msql_query($sql_tpro,$link_data);
     if(msql_num_rows($res_tpro)!=0){$tpro_ok=1;}
     
}


echo '<div id="filtros" noprint >';
if(empty($prnt))
{
// OCULTOS
echo '<div hide>';     
echo '</div>';     
     
// echo '<input id="format" hide value="'.$format.'">';
// echo '<input id="limit" hide value="'.$limit.'">';
// echo '<input id="fechaa" hide value="'.$fechaa.'">';
     
// {$ztitulo='FILTROS'; include('ele_title.php');}
if(!empty($modu))
{
     $ztabla='stat';
     $zwhere='(stat_codigo in(select distinct status from '.$modu.'1))';     
     include('ele_datalist.php');
}
     
     
     
     
if(@mb_stristr('vtas.clie',$modu)) 
{
$ztabla='ptov';
include('ele_datalist.php');
     
$ztabla='vndd';
$zwhere='(vndd_codigo in(select distinct vndd from '.$modu.'1))';     
include('ele_datalist.php');
}
     
if(@mb_stristr('vtas.clie.guia',$modu)) 
{
$ztabla='vhcl';
include('ele_datalist.php');
}
     
if(@mb_stristr('vtas.clie.',$modu) and @mb_stristr('anml.',$cfg_empr)) 
{
$zid='dlpcnt';
$ztabla='enti';
$zwhere='(enti_codigo in(select distinct pcnt from vtas1))';     
include('ele_datalist.php');
}
     
if(@mb_stristr('cont.comp',$modu)) 
{
// $ztabla='ctas';
// include('ele_datalist.php');
}
     
if(@mb_stristr('comp.prov',$modu)) 
{
// $ztabla='cair';
// include('ele_datalist.php');
}
     
if(@mb_stristr('caja',$modu)) 
{
// $ztabla='caja';
// include('ele_datalist.php');
}
     
if(@mb_stristr('bcos',$modu)) 
{
// $ztabla='bcos';
// include('ele_datalist.php');
}
     
// $ztabla='enti';
// if(@mb_stristr('vtas.clie',$modu)) 
// {$zwhere='(left(enti_codigo,10) in(select distinct left(enti,10) from vtas1) or left(enti_codigo,10) in(select distinct left(enti,10) from clie1))';}
// include('ele_datalist.php');
     
$ztabla='item';
// if(@mb_stristr('inve',$modu)) 
// {$zwhere='(item_codigo in(select distinct item from inve2))';}
// {$zwhere='(left(item_codigo,2)!="99")';}
     
if(@mb_stristr('vtas.clie',$modu)) 
{$zwhere='(item_codigo in(select distinct item from vtas2) or item_codigo in(select distinct item from clie2))';}
include('ele_datalist.php');

     
     
     
if($modu=='inve') 
{
//      $ztabla='lote';
//      include('ele_datalist.php');
//      $ztabla='mrca';
//      include('ele_datalist.php');
}
     
if(@mb_stristr('vtas.clie.cxco',$modu)) 
{
//      $ztabla='zsub';
//      include('ele_datalist.php');

//      $ztabla='vndd';
//      $zwhere='(vndd_codigo in(select distinct vndd from vtas1))';     
//      include('ele_datalist.php');
}
     
if(@mb_stristr('vtas.clie.inve',$modu)) 
{
//      $ztabla='lsub';
//      include('ele_datalist.php');
}
     
     
if(@mb_stristr('comp.prov.tpro',$modu)) 
{
//      $ztabla='tpro';
//      include('ele_datalist.php');
}
     
// $thisfile=basename(__FILE__,'.php');     

// $zobj=2;     
// include('ele_break.php');
     
     
$zid='modu';
$ztabla='modu';
$zlabel='Módulo';
$zvalue=$modu; 
$zsize=1.2;     
if(!empty($modu)){$zreado=1;}
// if($user_codigo==2){$zreado=0;}     
$zondblclick='{document.getElementById("modu").removeAttribute("disabled");}';     
$zonchange='{location.href="?scri='.basename(__FILE__,'.php').'&modu="+document.getElementById("modu").value;}';
$zonblur=$zonchange;
$zhide=1;     
include('ele_select.php');

// echo '*** '.$info;     
$zid='info';
$zlabel='Informe';
$zvalue=$info;
//      echo '*/*/*'.$zvalue;
$zsize=1.2;     
if($modu=='vtas')
{
     $zoptions='';
     $zoptions.='vtresu,Resumen;';     
//      $zoptions.='vtdeta,Detalle;';     
//      $zoptions.='vtxfec,Fecha;';     
//      $zoptions.='vtxsem,Semanal;';     
//      $zoptions.='vtxmes,Mensual;';     
//      $zoptions.='vtxano,Anual;';     
//      $zoptions.='vtanxm,Anual /Mes;';     
//      $zoptions.='vtenti,Cliente;';     
//      $zoptions.='vtenxm,Cliente /Mes;';     
//      $zoptions.='vtptov,Pto.Venta;';     
//      $zoptions.='vtvndd,Vendedor;';     
//      $zoptions.='vtvnxm,Vendedor /Mes;';     
//      $zoptions.='vtitem,Item;';     
//      $zoptions.='vtitxm,Item /Mes;';     
//      $zoptions.='vtlsub,Linea;';     
//      $zoptions.='vtlsxm,Linea /Mes;';     
//      include('ele_select.php');
}

if($modu=='clie')
{
     $zoptions='';
     $zoptions.='clresu,Resumen;';     
//      $zoptions.='clenti,Cliente;';     
//      $zoptions.='clxmes,Mensual;';     
//      $zoptions.='clitem,Item;';     
//      include('ele_select.php');
}

if($modu=='carr')
{
     $zoptions='';
     $zoptions.='caresu,Resumen;';     
     $zoptions.='caitem,Item;';     
//      include('ele_select.php');
}
         
if($modu=='comp')
{
//      $zoptions='';
//      $zoptions.='coresu,Resumen;';     
//      $zoptions.='coxmes,Mensual;';     
//      $zoptions.='coenti,Proveedores;';     
//      $zoptions.='cocair,CAIR;';     
//      $zoptions.='cocaxm,CAIR /Mes;';     
// //      include('ele_select.php');
}

if($modu=='cont')
{
//      $zoptions='';
// //      $zoptions.='ttsald,Saldos;';     
// //      $zoptions.='ttsaln,Saldos (Nivel);';     
//      $zoptions.='ttssss,Sumas & Saldos;';     
//      $zoptions.='ttssdd,Sumas & Saldos (Diario);';     
//      $zoptions.='ttssnn,Sumas & Saldos (Nivel);';     
//      $zoptions.='ttsscc,Saldos (Comparativo);';     
//      $zoptions.='ttssaa,Saldos (Acumulado);';     
//      $zoptions.='ttmovi,Libro Mayor;';     
//      $zoptions.='ttresu,Resumen;';     
//      $zoptions.='ttddbb,Data Base;';     
     
//      include('ele_select.php');
}
     
if($modu=='caja')
{
//      $zoptions='';
//      $zoptions.='cjiiee,Ingresos /Egresos;';     
//      $zoptions.='cjdate,Caja X Fecha.;';     
//      $zoptions.='cjdocu,Caja X Docum.;';     
//      $zoptions.='cjresu,Resumen;';     
//      $zoptions.='cjddbb,Data Base;';     
     
//      include('ele_select.php');
}
    
if($modu=='bcos')
{
//      $zoptions='';
//      $zoptions.='bciiee,Ingresos /Egresos;';     
//      $zoptions.='bcdocu,Bancos X Docum.;';     
//      $zoptions.='bcdate,Bancos X Fecha.;';     
//      $zoptions.='bcresu,Resumen;';     
//      $zoptions.='bcddbb,Data Base;';     
     
//      include('ele_select.php');
}
     
if($modu=='inve')
{
//      $zoptions='';
// //      $zoptions.='ie13,Transferencias;';     
// //      $zoptions.='evta,Egresos X Venta;';     
// //      $zoptions.='econ,Egresos X Consumo;';     
//      $zoptions.='iiiiee,Ingresos /Egresos;';     
//      $zoptions.='iiddcc,Debitos /Creditos X Lineas;';     
//      $zoptions.='iidcdd,Debitos /Creditos (Diario);';     
//      $zoptions.='iidocu,Ingresos /Egresos X Doc.;';     
//      $zoptions.='iibode,Stock X Bodega;';     
//      $zoptions.='iikrdx,Kardex;';     
//      $zoptions.='iievta,Egre.Ventas;';     
//      $zoptions.='iiecon,Egre.Consumo;';     
//      $zoptions.='iiecxb,Egre.Consumo /Bodega;';     
//      $zoptions.='iisxlt,Saldos X Lote;';     
//      $zoptions.='iiblog,Detalle Bodega;';     
//      $zoptions.='iiresu,Resumen;';     
//      $zoptions.='iillcc,Lista Conteo Físico;';     
//      $zoptions.='iiddbb,Data Base;';     
     
//      include('ele_select.php');
}
    
if($modu=='atvd')
{
//      $zoptions='';
//      $zoptions.='atblog,Detalle;';     
//      $zoptions.='atresu,Resumen;';     
//      $zoptions.='atxsem,Semanal;';     
//      $zoptions.='atddbb,Data Base;';     
     
//      include('ele_select.php');
}
    
if($modu=='cxco')
{
//      $zoptions='';
//      $zoptions.='ccsald,Saldos;'; 
//      $zoptions.='ccddcc,Débitos /Créditos;'; 
//      $zoptions.='ccdcdd,Débitos /Créditos (Diarios);'; 
//      $zoptions.='ccmovi,Movimientos X Clie;'; //kardex 
//      $zoptions.='ccresu,Resumen x Doc.;'; 
// //      $zoptions.='ccdeta,Detalle Ctas.X Cobrar;'; 
//      $zoptions.='ccddbb,Data Base;';     
     
//      include('ele_select.php');
}
     
if($modu=='cxpa')
{
//      $zoptions='';
//      $zoptions.='cpsald,Saldos;'; 
//      $zoptions.='cpddcc,Débitos /Créditos;'; 
//      $zoptions.='cpdcdd,Débitos /Créditos (Diarios);'; 
//      $zoptions.='cpmovi,Movimientos X Prov.;'; //kardex 
//      $zoptions.='cpresu,Resumen X Doc.;'; 
// //      $zoptions.='cpdeta,Detalle Ctas.X Pagar;'; 
//      $zoptions.='cpddbb,Data Base;';     
     
//      include('ele_select.php');
}

if($modu=='retp')
{
//      $zoptions='';
//      $zoptions.='rpresu,Resumen;';     
//      $zoptions.='rpddbb,Data Base;';     
     
//      include('ele_select.php');
}
     
if($modu=='retc')
{
//      $zoptions='';
//      $zoptions.='rcresu,Resumen;';     
//      $zoptions.='rcddbb,Data Base;';     
     
//      include('ele_select.php');
}
     
$zhide=1;     
     
include('ele_select.php');
// include('ele_reset.php');

     
//orden     
if(!empty($modu))     
{
//      $zid='orden';
//      $zvalue=$orden;
//      $zlabel='Ordenar X';
//      $zoptions='';
//      $zoptions.='Nombre;';
//      $zoptions.='Código;';
//      if($modu=='cont'){$zhide=1;}
//      if($modu=='inve')     
//      {
//           $zoptions.='Linea;';
//      }     
//      if($modu=='vtas' or $modu=='clie')     
//      {
//           $zoptions.='Zona;';
//           $zoptions.='Linea;';
//      }
//      if($modu=='comp')     
//      {
//           $zoptions.='T.Prov.;';
//           $zoptions.='CAIR;';
//      }


//      $zonchange='{fn_consulta(event);}';
//      $zalign='right';
// //      $zhide=1;
//      include('ele_select.php');

}     
     include('ele_break.php');
     
    
$zid='fecha1';
$ztype='date';
$zlabel='Fec.Ini.';
$zvalue=$fecha1;
$zdefa=$fecha0;    
//$ztype='month';     
include('ele_input.php');  
     
$zid='fecha2';
$ztype='date';
$zlabel='Fec.Fin';
$zvalue=$fecha2;     
//$ztype='month';     
include('ele_input.php');  

// if(@!mb_stristr('cxco.cxpa',$modu))
// if(!empty($modu) and @!mb_stristr('cxco.cxpa.rete.retc.retp',$modu))
// if(!empty($modu) and @!mb_stristr('cxco.cxpa.',$modu))
{
     $zid='docu';
//      $ztype='date';
     $zlabel='Documento';
     $zvalue=$docu;     
     $ztabla='docu';
//      $ztodo=1;
//      {$zwhere='(docu_codigo in (select distinct docu from '.$modu.'1 where status not in ("X")))';}
     {$zwhere='(docu_codigo in (select distinct docu from vtas1 where status not in ("X")) or docu_codigo in (select distinct docu from clie1 where status not in ("X")))';}
//      if($modu=='cont')
//      {$zwhere='(docu_codigo in (select distinct docu from cont1 where status not in ("X")))';}
//      if($modu!='cont')
//      {$zwhere='(docu_tabla="'.$modu.'")';}
//      include('ele_input.php');  
     $zonblur='';
     include('ele_select.php');  
     
     
     
}     
     
if(@mb_stristr('vtas.clie',$modu))
{
//      $zid='ptov';
//      $zlabel='Pto.Vta.';
//      $zvalue=$ptov;     
//      $ztabla='ptov';
//      $ztodo=1;
//      include('ele_select.php');  
     
}     

if(@mb_stristr('inve.cxco.cxpa',$modu))
{
//      $zid='tsaldo';
//      $zlabel='Saldo';
//      $zvalue=$tsaldo;
//      $zheptav=1;
//      $zalign='right';
// //      if($modu=='inve'){$zlabel='Stock'}
//      include('ele_select.php');  
     
//      $zid='cero';
//      $zlabel='Cero';
//      $zvalue=$cero;
//      $zclass='numeric-dec';
//      $zmax=.99;
//      $zmin=0;
//      $zstep=0.01;
//      $zhide=1;
// //      $zwidth=20;
//      $zalign='right';
//      include('ele_input.php');
}
     
if(@mb_stristr('inve',$modu))
{
//      {
//           $zid='stock';
//           $ztype='checkbox';
//           $zlabel='Stock';
//           $zvalue=$stock;
//           $zalign='right';
//           include('ele_input.php');  
//      }
     
     
//      $zid='prec';
//      $zlabel='Precio$';
//      $zvalue=$prec;
//      $zalign='right';
//      $zoptions='nn,N/A;puni,Unit.;pvp,P.V.P.';
//      $zhide=1;
//      include('ele_select.php');  
     
//      $zid='cost';
//      $ztype='checkbox';
//      $zlabel='Costo$';
//      $zvalue=$cost;
//      $zalign='right';
//      include('ele_input.php');  
     
     
//      if($imgi_ok==1)
//      {
//           $zid='imgi';
//           $ztype='checkbox';
//           $zlabel='Imagen';
//           $zvalue=$imgi;
//           $zalign='right';
//           include('ele_input.php');  
//      }
     
}     

if(@mb_stristr('cxco.cxpa',$modu))
{
//      $zid='anti';
//      $ztype='checkbox';
//      $zlabel='Antiguedad';
//      $zvalue=$anti;
//      $zalign='right';
//      include('ele_input.php');  
}     
     

if(!empty($modu) and @!mb_stristr('cxco.cxpa.',$modu))
{
     
//      $zid='stat';
//      $zlabel='Status';
//      $zvalue=$stat;     
//      $ztabla='stat';
//      $ztodo=1;
//      {$zwhere='(stat_codigo in (select distinct status from '.$modu.'1 where status not in ("X")))';}
//      include('ele_select.php');  
}     
     
     
$zobj=1;     
include('ele_break.php');

if(@mb_stristr('caja',$modu))
{
//      $zid='caja';
//      $zlabel='Caja';
//      $ztodo=1;
//      $zvalue=$caja;
//      $ztabla='caja';
//      include('ele_select.php');
}     

if(@mb_stristr('bcos',$modu))
{
//      $zid='bcos';
//      $zlabel='Cta.Banc.';
//      $ztodo=1;
//      $zvalue=$bcos;
//      $ztabla='bcos';
//      include('ele_select.php');
}     

     
     
     
if(@mb_stristr('inve',$modu))
{
//      if($tbod_ok==1)
//      {
//           $zid='tbod';
//           $zlabel='T.Bod.';
//           $zvalue=$tbod;
//           $ztodo=1;
//           $zoptions='D,DISPO;N,NO-DIS';
//           $ztabla='bode';
//           include('ele_select.php');
//      }

//      $zid='bode';
//      $zlabel='Bodega';
//      $ztodo=1;
//      $zvalue=$bode;
//      $ztabla='bode';
//      include('ele_select.php');
}     

// if($modu=='cxco' or $modu=='vtas' or $modu=='clie')
if(@mb_stristr('vtas.clie.cxco.retc.plan.atvd',$modu))     
{
//      if($zsub_ok==1)
//      {
//           $zid='zsub';
//           $zlabel='Zona';
//           $zvalue=$zsub;
//           $ztabla='zsub';
//           $ztodo=1;
//           include('ele_select.php');
//      }

     $zid='enti';
     $zlabel='Cliente';
     if($modu=='atvd'){$zlabel='Empleado';}
     $zvalue=$enti;
     $ztabla='enti';
     $zopen=1;
     $zhide=1;
     include('ele_input.php');
     
//      if($vndd_ok==1)
//      {
//           $zid='vndd';
//           $zlabel='Vendedor';
//           $zvalue=$vndd;     
//           $ztabla='vndd';
//           $ztodo=1;
// //           echo '*/*/*/'.$modu;
// //           $zwhere='(vndd_codigo in(select distinct vndd from '.$modu.'1))';     
//           $zwhere='(vndd_codigo in(select distinct vndd from vtas1))';     
//           include('ele_select.php');  
//      }


//      if(mb_stristr('tgck',$cfg_empr))
//      {
          
//           $zid='vhcl';
//           $zlabel='Vehiculo';
//           $zvalue=$vhcl;
//           $ztabla='vhcl';
//           include('ele_input.php');
//      }
     
     
//      if(mb_stristr('anml',$cfg_empr))
//      {
          
//           $zid='anml';
//           $zlabel='Paciente';
//           $zvalue=$pcnt;
//           $zlist='dlpcnt';
//           $ztabla='pcnt';
//           $zwhere='(pcnt_codigo in(select distinct pcnt from vtas1 where status not in("X")))';
//           include('ele_input.php');
//      }
     
     
     
     
}

// if($modu=='cxpa' or $modu=='comp' or $modu=='prov')
if(@mb_stristr('comp.prov.cxpa',$modu))     
{
//      $zid='tpro';
//      $zlabel='T.Proveedor';
//      $zvalue=$tpro;
//      $ztabla='tpro';
//      $ztodo=1;
//      include('ele_select.php');
}

if(@mb_stristr('comp.prov.cxpa.retp',$modu))     
{
//      $zid='enti';
//      $zlabel='Proveedor';
//      $zvalue=$enti;
//      $ztabla='enti';
//      $zopen=1;
//      include('ele_input.php');
}

     
if(@mb_stristr('comp.retp.retc',$modu))     
{
//      $zid='cair';
//      $zlabel='CAIR';
//      $zvalue=$cair;
//      $ztabla='cair';
//      $ztodo=1;
//      include('ele_input.php');
//      include('ele_select.php');

}
     
if(@mb_stristr('cont',$modu))
{
//      $zid='ctas';
//      $zlabel='Cuenta';
//      $zvalue=$ctas;
//      $ztabla='ctas';
//      $ztodo=1;
//      include('ele_input.php');

//      $zid='csub';
//      $zlabel='Centro-Sub';
//      $zvalue=$csub;
//      $ztabla='csub';
//      $ztodo=1;
//      include('ele_select.php');
     
//      $zid='nivel';
//      $zlabel='Nivel';
//      $zvalue=$nivel;
// //      $zoptions='1;2;3;4;5';
//      $zoptions='3;4;5';
//      include('ele_select.php');
     
}
          
if(@mb_stristr('vtas.clie.inve',$modu))
{
     $zobj=1;     
     include('ele_break.php');
     
//      if($lsub_ok==1)
//      {
//      $zid='lsub';
//      $zlabel='Linea';
//      $zvalue=$lsub;
//      $ztabla='lsub';
//      $ztodo=1;
//      include('ele_select.php');
//      }

     $zid='item';
     $zlabel='Item';
     $zvalue=$item;
     $ztabla='item';
     $zopen=1;
     include('ele_input.php');

     
// $zobj=1;     
// include('ele_break.php');
//      if($lote_ok==1)
//      {
//           $zid='lote';
//           $zlabel='Lote';
//           $zvalue=$lote;
//           $ztabla='lote';
//           include('ele_input.php');
//      }
     
//      if($mrca_ok==1)
//      {
//           $zid='mrca';
//           $zlabel='Marca';
//           $zvalue=$mrca;
//           $ztabla='mrca';
//           $ztodo=1;
//           include('ele_select.php');
//      }
     
}

if(!empty($modu))
{
// $zid='concep';
// $zlabel='Concepto';
// $zvalue=$concep;
// include('ele_input.php');
}    
     
// $zobj=1;     
// include('ele_break.php');
     
$zid='btn_consul'; 
$zlabel='Consultar';
$zalign='right';
$zonclick='{fn_consulta(event);}';

include('ele_button.php');
     
echo '<span style="float:right; white-space:nowrap;">';     
echo $msgres;
echo '</span>';     

include('ele_break.php');

// TITULO     
{
// $ztitulo=$xtitulo;     
// include('ele_title.php');
// include('ele_break.php');

}
     
     

}     
echo '</div>';




// echo '*/*/*'.$_COOKIE['user_codigo'];
// RESULTADO
echo '<div id="main2" >';

$sql_idx=1;
if($info=='iikrdx')
{
     $sql_orig=$sql_info;
     $sql_array=array();
     $sql_idx=0;
     while($aso_krdx=msql_fetch_assoc($res_krdx))
     {
          $sql_idx++;
          if(empty($item))
          {$sql_info=str_replace('where ','where item="'.$aso_krdx['item_codigo'].'" and ',$sql_orig);}
          if(!empty($item))
          {$sql_info=str_replace($item.'%',$aso_krdx['item_codigo'].'%',$sql_orig);}
          $sql_array[$sql_idx]=$sql_info;
     }
}

if($info=='iiblog')
{
     $sql_orig=$sql_info;
     $sql_array=array();
     $sql_idx=0;
     while($aso_krdx=msql_fetch_assoc($res_krdx))
     {
          $sql_idx++;
          if(empty($bode))
          {$sql_info=str_replace('where ','where bode="'.$aso_krdx['bode_codigo'].'" and ',$sql_orig);}
          if(!empty($bode))
          {$sql_info=str_replace($bode.'%',$aso_krdx['bode_codigo'].'%',$sql_orig);}
          $sql_array[$sql_idx]=$sql_info;
     }
}


?>
<!-- <input type="range"> -->
<?php



echo '<result>';
for($idx=1; $idx<=$sql_idx; $idx++)
{
     if($info=='iikrdx'){$res_info=msql_query($sql_array[$idx],$link_data);}
     if($info=='iikrdx' and msql_num_rows($res_krdx)>1 and msql_num_rows($res_info)==0){continue;}     

     if(gettype($res_info)!='NULL')
     {
          $zreso=$res_info;
          $zinfo=$info;
          $zname=$zname;
          $zhead=1;
          $zheightrow='1.6em';
//           $type='xml';
//           $zwidthtable='100%';
          include('ele_grid.php');     
     
          if($info=='iikrdx')
          {if($idx<msql_num_rows($res_krdx)){echo '<div id="pgbreak" style="height:2em;"></div>';}}
     }
     
}
echo '</result>';




if(1==2)
{
     
msql_data_seek($res_info);
while($aso_item=msql_fetch_assoc($res_info))
{
          $zid=$aso_item['item'];
          $ztabla='item';
//           $zprecio=$lpre;
          $zcodigo=$aso_item['item'];
          if(empty($zcodigo)){$zcodigo=$aso_item['item_mdlo'];}
          if(empty($zcodigo)){$zcodigo=$aso_item['item_codigo'];}
//           $zstockv=3;
          if(mb_stristr('gnya.gmny',$cfg_empr) and !esMovil()){$zobj=4;}
          if(mb_stristr('gnya.gmny',$cfg_empr)){$zstockv=0;}
          if(mb_stristr('orel.imcp',$cfg_empr)){$zfixh=1;}
          if($format==4){$zobj=5; $zstockv=0;}
//           $ztotpvp=$aso_item['total']; 
//           $zbode=$bode;
//           $zcarr=1;
          if($format==5)
          {
//                $zcarr=0;
//                $zupld=1;
//                $zobj=2;
          }
          include('ele_image.php');  
     
}

}




echo '</div>';     

?>

<script>
function fn_consulta(event)
{
     var xhref='',dataget;
     xhref=xhref+'?scri=<?php echo basename(__FILE__,'.php');?>';
     
     dataget=new_FormData('filtros','get');
     xhref=xhref+dataget;

     document.getElementById("main2").innerHTML='Espere...';
     location.href=xhref;
     
     
}
</script>





<script>document.title="<?php echo $xtitle;?>"</script>
<script>document.getElementById('topcenter').innerHTML="<?php echo $xtopcenter;?>"</script>


