<?php
//header( "Content-type: text/html; charset=utf-8" );   
//  ** MODULO DE PESQUISA CONFIGURAÇÃO **
//
$sCorBarraInf = '#E8E3CE';
//
// Criar objeto Janela
$oJanelaPrinc = New R_Janela();
$oJanelaPrinc->sIdObj  = "iJan_EdtCadPes"; 
$oJanelaPrinc->nTop    = 100;
$oJanelaPrinc->nLeft   = 5;
$oJanelaPrinc->nWidth  = 540;   // Largura
$oJanelaPrinc->nHeight = 0;     // Altura
$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
$oJanelaPrinc->sTitulo = 'Pesquisa de Texto';
$oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."6.Teclas_F(this,event);";
//    
//$oJanelaPrinc->sJavKeyDown = "return frames['".$sNomeQdrH."_2'].Teclas_F(this,event);";
$sJavaTravarJ = "parent.document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);";
//

$oJanelaPrinc->sJavOnClickF =
   $sJavaTravarJ.
   "parent.document.forms.fmPCadPes.acao.value='FECHAR'; ".
   "parent.document.forms.fmPCadPes.submod.value='".$sSubModulo."';".
   "parent.document.forms.fmPCadPes.submit();".
   "";
  	
//
// Conferir senha
If ( $sAcao=="CFM_TEXTO" ) {
   $sRet_ListaAba = '';
   $sPesq_Texto = $_REQUEST['Pesq_Texto'];
   
   If (STRLEN($sPesq_Texto)>0){
	  $sRet_ListaAba = P_TextoAba( $sPesq_Texto, $a_ListaAba);
   }   
   
   If (STRLEN(STR_REPLACE("<br>","",TRIM($sRet_ListaAba)))==0){
       $sRet_ListaAba = 
	      'Nenhum encontrado'.
          '';	   
   }
   
   $sHtmlRet = 
      //'<div style="height:30px"></div>'.
	  '<div style="height:10px"></div>'.
	  '<div style="width:'.($oJanelaPrinc->nWidth-12).'px;height:4px; background-color:#91D8F8;"></div>'.
	  '<div style="height:10px"></div>'.
	  '<div align="center" style="font-family: Arial, Helvetica, sans-serif; font-size: 20px; color: #000000;">'.
	     'ABA(S) '.
	  '</div>'.
	  '<div style="height:10px"></div>'.
	  '<div style="width:'.($oJanelaPrinc->nWidth-12).'px;height:4px; background-color:#91D8F8;"></div>'.
	  '<div style="height:10px"></div>'.
      '<div>'.	  
		 $sRet_ListaAba.
	  '</div>'.
	  '';
   
   $sRet_Javs .=
      "parent.document.getElementById('dv_ListaAba').innerHTML = ".JAVA_CharCode($sHtmlRet).";".
	  "parent.document.getElementById('dv_ListaAba').style.display= 'inline';".
	   "";
// FECHAR
} ElseIf ( $sAcao=="FECHAR" ) {
   
  $sRet_Javs .=
     "parent.document.getElementById('".$sNomeIdJan1."_Travar').style.visibility='hidden';".
 	 "parent.Disabled_In_Elems('".$sNomeIdJan1."',false);";
     "parent.RmElem('".$oJanelaPrinc->sIdObj."');";
  //
//
// JANELA TELA PRINCIPAL
} Else {
   // Tela HTML
   $sRet_TelaJ_HTML =
	    $oJanelaPrinc->MontaJanHTML(True).
	       '<form name="fmPCadPes" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'7">'.
		      '<input name="mod" type="hidden" value="'.$sModulo.'">'.
              '<input name="submod" type="hidden" value="'.$sSubModulo.'">'.
              '<input name="acao" type="hidden" value="">'.
	          '<input name="Pesq_Texto" type="hidden" value="">'.
           '</form>'.
	       '<table width="100%">'.
	          '<tr>'.
  	             '<td width="4px" height="10px" align="left">&nbsp;</td>'.
       	         '<td align="right" width="60px">'.
       	            'Procurar por: '.
       	         '</td>'.
       	         '<td align="left" width="300px">'.
				 //'<td align="left" height="40px" valign="middle">'.
                    '<input id="i_Pesq_Texto" type="text"  style="font-size:16px; height:26px; width:98%;">'.
  		         '</td>'.
  	          '</tr>'.
  	       '</table>'.
		   '<div id="dv_ListaAba" style="display:none;" align="center" style="font-size:20px; width:'.($oJanelaPrinc->nWidth-12).'px; height:180px; background:#FFFFFF; overflow:auto;" >'.
              '<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0">'.
	             '<tr>'.
				    '<td align="center" valign="middle" style="color:#555555;">'.
	                   'Aguarde um momento...<br>'.
                       '<img src="images/img_load1.gif" border="0">'.
	                '</td>'.
				 '</tr>'.
              '</table>'.
		   '</div>'.
		   '<table width="95%" border="0" cellspacing="0" cellpadding="0">'.
		      '<tr>'.
			     '<td height="100px" align="center" style="font-size:16px;">'.
				 '</td>'.
			  '</tr>'.            
           '</table>'.
		   //
           '<table width="100%" style="background-color:'.$sCorBarraInf.';">'.
		      '<tr>'.
                 '<td width="4px" height="40px" align="left">&nbsp;</td>'.
                 '<td align="left">'.
                    HTML_Botao( 3, 'objChaNor_BT_Cfm', "parent.document.forms.fmPCadPes.Pesq_Texto.value = parent.document.getElementById('i_Pesq_Texto').value;".
  		                                               "parent.document.forms.fmPCadPes.acao.value='CFM_TEXTO';".
  						    	       				   "parent.document.forms.fmPCadPes.submit(); ".
  	  							      	               ""
                                 , 'Ok (ENTER)' ,'images/btimg_ativar.png',130).
                 '</td>'.
                 '<td align="right">'.
                    HTML_Botao( 3, 'objChaNor_BT_Fch', $oJanelaPrinc->sJavOnClickF
                                 , 'Voltar (ESC)' ,'images/btimg_fechar.png').
                 '</td>'.
                 '<td width="4px" height="40px" align="right">&nbsp;</td>'.				 
              '</tr>'.
		   '</table>'.
  	       //
  	    $oJanelaPrinc->MontaJanHTML(False);
   //
   // Java anterior
   $sRet_Javs .=
      "function Teclas_F( Objeto, Evento ) {".
         "vNumTecla = parent.Tecla_Apertada(Evento); ".
   	     "if ( vNumTecla==116) { ".         // ** [F5] **     Não atualizar
              //
   	     "} else if ( vNumTecla==13) { ".   // ** [ENTER] **
            "setTimeout( parent.document.getElementById('objChaNor_BT_Cfm').onclick , 10);".
         "} else if ( vNumTecla==27 ) { ".  // [ESC]
            $oJanelaPrinc->sJavOnClickF.
   		 "} else {".
   		    "return true;".
   		 "} ".
            "return false;".
         '}';
       //
       // Java posterior
   $sRet_JavsPos .=
      "parent.document.getElementById('i_Pesq_Texto').focus();".
      '';
       
}


Function P_TextoAba( $sTexto, $a_ListaAba ) {
   Global $a_ListaAba;	
   $sRetorno = '';
   $sTexto= utf8_decode($sTexto);
   
   //FOREACH($a_ListaAba AS $ListaAba) {
   //   For ($nPos=1; $nPos<=50 ; $nPos++) {
	//     If ( ! EMPTY( $ListaAba[$nPos] ) ) {
    //        If ( STRPOS (  STRTOUPPER($ListaAba[$nPos]),STRTOUPPER($sTexto) ) > - 1 ){ 
    //           $sRetorno .= $ListaAba[0]. ',' ;
    //        }
    //     }
    //  }
   //}
   FOREACH($a_ListaAba AS $nIndice=>$ListaAba) {
     For ($nPos=0; $nPos<=50 ; $nPos++) {
	    If ( ! EMPTY( $ListaAba[$nPos] ) ) {
           If( STRPOS (  STRTOUPPER($ListaAba[$nPos]),STRTOUPPER($sTexto) ) > - 1 ){ 
              $sRetorno .= $nIndice. ',' ;
           }
        }   
	 
	 } 
   }	
   
   $aRetorno = EXPLODE(",",$sRetorno);
   $sLst_Temp = "";
   ForEach ( $aRetorno as $sAba ) {
      $s_Aba = STRTOUPPER($sAba);
	  If ( STRPOS(" ".$sLst_Temp, " ".$s_Aba )==0 ) {
	      $sLst_Temp .= " ".$s_Aba.'<br>';
	  }
	 
   }
   
   Return $sLst_Temp;
  
}	
   
?> 
