<?php
$bDir_Consult = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'C');
// Criar objeto Janela
$oJanelaPrinc = New R_Janela();
$oJanelaPrinc->sIdObj  = "iJan_LstSql"; 
$oJanelaPrinc->nTop    = 10;
$oJanelaPrinc->nLeft   = 0;
$oJanelaPrinc->nWidth  = 990;   // Largura
$oJanelaPrinc->nHeight = 0;     // Altura
$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
$oJanelaPrinc->sTitulo = 'Consulta MySql';
$oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."1.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.fmPSelect.acao.value='FECHAR'; ".
	"parent.document.forms.fmPSelect.Sel_PChave.value=''; ".
	"parent.document.forms.fmPSelect.Sel_NumCam.value=''; ".
	"parent.document.forms.fmPSelect.submit();".
	"";
//
//
// Criar objeto GRID
$oTabelaRegs = New Pad_GridPesq();
$oTabelaRegs->bUsarSoMatriz = True;
$oTabelaRegs->sIdObjTabela = 'iQdr_ListaSel';
$oTabelaRegs->sNomeTabela  = 'Tab_Select';
$oTabelaRegs->nWidth  = $oJanelaPrinc->nWidth;
$oTabelaRegs->nHeight = 360;    // Altura
$oTabelaRegs->sCampoOnClick  = "Car_".$sNomeAcesso."1.P_Sel(<NUMCAM>); Car_".$sNomeAcesso."3.P_Atu();";
$oTabelaRegs->sLinhaOnClick  = "Car_".$sNomeAcesso."1.PRow_Sel(<QTDCOL>,<SELLIN>);";
$oTabelaRegs->sLinhaOnDblClk = "Car_".$sNomeAcesso."1.Pesq_Seleciona();".
							   "";
$oTabelaRegs->sJavSelectReg = "sSelIndiceC = S_Indice;".
	                          "if (parseInt(sSelIndiceC)>0) {".
	                              //"parent.document.getElementById('ComSSel_BT_Sel').style.display='inline-block';".
							  "}".
                              'parent.document.getElementById("iComSel_PChave").focus();';
//
// MONTAR LISTA DE CADASTROS
If ( $sAcao=="LISTAR" ) {
   $bListarReg = False;
   
   If ($bDir_Consult) {
      $bListarReg = True;
	  $sP_PChave = @$_REQUEST['Sel_PChave'];
	  $nP_NumCam = @$_REQUEST['Sel_NumCam']+0;
	  $sMensagem = '';
	  $sPeg_Comando =  SUBSTR($sP_PChave,0,6);
		 		 
	  If(STRLEN($sP_PChave)>0) {
	     If ( STRTOUPPER($sPeg_Comando)=="SELECT" || STRTOUPPER(SUBSTR($sPeg_Comando, 0,4))=="SHOW" ){
		 	 
		    $sSQLQuery = $sP_PChave;
		    $RowsT = MYSQL_QUERY($sSQLQuery);
		    If (MYSQL_ERROR()){
		       $sMensagem =
		  	      "Houve um ERRO: ".MYSQL_ERROR().
		  	      " , COMANDO: <br>".$sP_PChave.
		  	      "";
		    
		       $bListarReg = False;
		    } 
		 }	Else {
		    $sMensagem =
		  	   "Comando UPDATE/DELETE/INSERT<br>".
		  	   "Não pode ser usado <br>".
		  	   "Somente Select".
			   "";
		    
		       $bListarReg = False;
		 
		 }
	     //
	  } Else {
	    $bListarReg = False;
	  }
	 
	  If ($bListarReg) { 
         $nContador_Indc = 0;
         While ($RowT = MYSQL_FETCH_ARRAY($RowsT,MYSQL_ASSOC)) {
		    $nContador_Indc++;
		    $RowT['INDICE_REGISTRO'] = $nContador_Indc;
	        $a_Lista[] = $RowT;
         }
         //
         $oTabelaRegs->aLstItensTab = $a_Lista;   
		 //
		 $a_Campos = ARRAY();
         For ($i = 0; $i < MYSQL_NUM_FIELDS($RowsT); ++$i) {
            $field   = MYSQL_FIELD_NAME($RowsT, $i);
		    $tamanho = MYSQL_FIELD_LEN($RowsT, $i);
		    $a_Campos[$i] = $field.",".$field.",".(20+($tamanho*10)).'px;';
            
		 }
		 //
	     $oTabelaRegs->aLstCampos   = $a_Campos;
	     $oTabelaRegs->sCampoIndice = 'INDICE_REGISTRO';
	     //
         // Tabela
         $sRet_TelaJ_HTML = $oTabelaRegs->MontaTabelaHTML();
         // Java
         $sRet_Javs .=
            "var iQdr_ListaSel = parent.document.getElementById('".$oTabelaRegs->sIdObjTabela."');".
	        'iQdr_ListaSel.innerHTML = '.JAVA_CharCode($sRet_TelaJ_HTML).';'.
		    'parent.Car_'.$sNomeAcesso.'1.'.$oTabelaRegs->sNomeTabela.'_Rowsel = 1;'.
	        '';
          //Java posterior
         $sRet_JavsPos .=
            //'parent.Car_'.$sNomeAcesso.'1.P_Sel(0);'.
	        '';
         $sRet_TelaJ_HTML = '';
	  
      }	Else {
         If (STRLEN($sMensagem) >2) {       
	        $sRet_Javs .= 
			   "parent.document.getElementById('".$oTabelaRegs->sIdObjTabela."').innerHTML ='';".
			   Info_Evento( $sMensagem ).
			   '';
         } Else {
		       $sRet_Javs .= 
			      "parent.document.getElementById('".$oTabelaRegs->sIdObjTabela."').innerHTML ='';".
			      Info_Evento( 'Nenhum comando digitado !' ).
			      '';  
		 }
	  }	  
   }  Else {
      $sRet_Javs .=
         "parent.document.getElementById('".$oTabelaRegs->sIdObjTabela."').innerHTML ='';".
		 Info_Evento('ALERTA: Você não tem previlégio para utilizar esta ferramenta.').
         "";
   }
//
//
// FECHAR
} ElseIf ( $sAcao=="FECHAR" ) {
   //$sRet_Javs .=
///	  "parent.document.getElementById('".$sNomeIdJ_Ant."_Travar').style.visibility='hidden';".
	//  "parent.Disabled_In_Elems('".$sNomeIdJ_Ant."',false);".
	 // $sJavaExePos.
	  //parent.document.getElementById("'.$sNomeIdCampo.'").focus();'.
     // "parent.RmElem('".$oJanelaPrinc->sIdObj."');";
  $sRet_Javs .=
      'parent.document.getElementById("dv_MenuL_Barra").style.visibility="visible";'.
      "parent.RmElem('".$oJanelaPrinc->sIdObj."');";
	  
//
// JANELA TELA PRINCIPAL
} Else {
   //
   $oJanelaPrinc->aIdsObjList = ARRAY( 'iComSel_PChave', 'iTip_Busca' );
   // Tela HTML
   $sCSS_Inputs = 'background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;';
   $sRet_TelaJ_HTML =
	  $oJanelaPrinc->MontaJanHTML(True).
      '<form name="fmPSelect" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'2">'.
       '<input name="mod" type="hidden" value="'.$sModulo.'">'.
       '<input name="submod" type="hidden" value="'.$sSubModulo.'">'.
       '<input name="acao" type="hidden" value="">'.
	   '<input name="nomeacs" type="hidden" value="'.$sNomeAcesso.'">'.
	   '<input name="Sel_PChave" type="hidden" value="">'.
	   '<input name="Sel_NumCam" type="hidden" value="">'.
	   '<input name="Sel_Codigo" type="hidden" value="">'.
	   '<input name="Tip_Busca" type="hidden" value="">'.
      '</form>'.
   	  '<table width="100%"></tr>'.
   	   '<td width="4px" height="10px" align="left">&nbsp;</td>'.
   	   '<td align="left" width="70px">'.
   	    'Comando: '.
   	   '</td>'.
   	   '<td align="left">'.
   	    '<textarea id="iComSel_PChave" name="PChave" style="width:680px; height:85px;resize:none;" ></textarea>'.
		'&nbsp;&nbsp;'.         	   
   	   
	   '</td>'.
   	   '<td align="right" width="130px">'.
   	   HTML_Botao( 3, 'ComSel_BT_Pro'  , 'Car_'.$sNomeAcesso.'1.P_Atu();'
	                , 'Executar (F10)' ,'images/btimg_lupa.png',120).
   	   '&nbsp;&nbsp;<br>'.
   	   HTML_Botao( 3, 'ComSel_BT_Pro'  , "parent.document.getElementById('iComSel_PChave').value ='SHOW TABLES';".
	                                     'Car_'.$sNomeAcesso.'1.P_Atu();'
	                , 'Nome Tabelas' ,'images/btimg_tabela.png',120).
   	   '</td>'.
   	   
	   '<td width="4px" align="left">&nbsp;</td>'.
	   
   	   '</tr>'.
	  '</table>'.
	  '<table width="100%">'.
	      '<tr>'.
   	         '<td width="4px" height="10px" align="left">&nbsp;</td>'.
   	         '<td align="left" width="70px">'.
   	            '<span style="color:#FF0000">'.
				   '&nbsp;&nbsp;'.
				   'NOME DA TABELA EM MINUSCULO.<br>'. 
				   '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.
				   'EX: SELECT * FROM cad_produto;'.
				'</span>'.
   	         '</td>'.
   	         '<td width="4px" align="left">&nbsp;</td>'.
   	      '</tr>'.
	  '</table>'.
	  $oTabelaRegs->MontaDivHtml().
   	  '<table width="100%"></tr>'.
   	   '<td width="4px" height="40px" align="left">&nbsp;</td>'.
   	   '</td>'.
   	   '<td>'.
   	    HTML_Botao( 3, 'ComSSel_BT_Sel', "parent.document.getElementById('iComSel_PChave').value='';".
		                                 "parent.document.getElementById('".$oTabelaRegs->sIdObjTabela."').innerHTML ='';"                                 
		             , 'Limpa Comando','images/btimg_erase.png',160).'&nbsp;&nbsp;'.
   	   '</td>'.
   	   '<td width="120px" align="left">'.
   	    HTML_Botao( 3, 'ComSSel_BT_Fch'   , $oJanelaPrinc->sJavOnClickF
                     , 'Sair (ESC)'       ,'images/btimg_fechar.png').
   	   '</td>'.
   	  '</tr></table>'.
	  $oJanelaPrinc->MontaJanHTML(False);
   //
   $sRet_Javs .=
      //"parent.document.getElementById('".$sNomeIdJ_Ant."_Travar').style.visibility='visible';".
	  //"parent.Disabled_In_Elems('".$sNomeIdJ_Ant."',true);".
	  'parent.document.getElementById("dv_MenuL_Barra").style.visibility="hidden";'.
      "var sSelIndiceC='';".
      "function P_Atu() {".
        "sSelIndiceC='';".
	    $oTabelaRegs->MontaJavaAgu().
	    //"parent.document.getElementById('ComSSel_BT_Sel').style.display='none';".
     	"parent.document.forms.fmPSelect.acao.value='LISTAR'; ".
     	"parent.document.forms.fmPSelect.Sel_PChave.value=parent.document.getElementById('iComSel_PChave').value; ".
     	"parent.document.forms.fmPSelect.Sel_NumCam.value=nPesq_CampoSel+''; ".
		//"parent.document.forms.fmPSelect.Tip_Busca.value = parent.document.getElementById('iTip_Busca').value;".
     	"setTimeout( function() { parent.document.forms.fmPSelect.submit(); }, 100);".
      '}'.
	  'function Pesq_Seleciona() {'.
	    //'parent.document.getElementById("'.$sNomeIdCampo.'").value = sSelIndiceC;'.
	    //$oJanelaPrinc->sJavOnClickF.
	  '}'.
      $oTabelaRegs->MontaJavaPri().
	  '';
   
      // Java posterior
      $sRet_JavsPos .=
	     "parent.document.getElementById('".$oTabelaRegs->sIdObjTabela."').innerHTML ='';".
		 'parent.document.getElementById("iComSel_PChave").focus();'.
	     //
		 "function Teclas_F( Objeto, Evento ) {".
            "vNumTecla = parent.Tecla_Apertada(Evento);".
	        "if ( vNumTecla==116) { ".        //  ** [F5] **         Não atualizar
             //
	        "} else if ( vNumTecla==121) { ". //  ** [F10] **        Procurar
	           "P_Atu();".
	        "} else if ( vNumTecla==27) { ".  //  ** [ESC] **        (SAIR)
               "setTimeout( parent.document.getElementById('ComSSel_BT_Fch').onclick , 100);".
	        "} else if ( vNumTecla==13) { ". //   ** [ENTER] **      Selecionar
               //"if ( parent.document.getElementById('ComSSel_BT_Sel').style.display == 'none') {".
			      "P_Atu();". 
                  "parent.document.getElementById('iComSel_PChave').value='';".
			   //"} else {".
               //  "setTimeout( parent.document.getElementById('ComSSel_BT_Sel').onclick , 100);".
			   //"}".
		    "} else {".
	           "P_TeclasPress_fm(Evento);".
		       "return true;".
		    "}".
		    "return false;".
	     "}".
	     //
	     "";
}
?>