<?php
REQUIRE_ONCE('modulos.inc'); // Incluir matriz de modulos
$sNomeIdJConsulta = 'iJan_LstCadDir';
$sNomeIdJEdt_Cad = 'iJan_EdtCadDir';
$nTmpFrmEnv = 300;
$aQuadrosAds = ARRAY( "RELFTG" => 10, "FINCRC" => 10 );   // Quadros iframe adicionais
//
//  ** CADASTRO (NOVO/EDITA) **
If ( $sSubModulo=="EDT" ) {
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJEdt_Cad; 
    $oJanelaPrinc->nTop    = 10;
    $oJanelaPrinc->nLeft   = 0;
    $oJanelaPrinc->nWidth  = 660;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
	$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Diretos de acesso';
	$bMontarJanela = true;
    $sDir_Codigo = @$_REQUEST['Dir_Codigo'];
	$bAcessoGeral = (@$aSessao[$sNomeAcesso.'DIR_GERAL']+0);
	//
	$oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."3.Teclas_F(this,event);";
    $sJavaTravarJ = "document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);";
	$oJanelaPrinc->sJavOnClickF =
	      $sJavaTravarJ.
		  "document.forms.fmECadDir.acao.value='FECHAR'; ".
		  "document.forms.fmECadDir.submit();".
		  "";
	$oJanelaPrinc->sJavOnClick = "document.getElementById('iCadEDir_Descric').focus();";
	//
	// MODO DIRETOS GERAIS
	If ($bAcessoGeral) {
       $oJanelaPrinc->sTitulo = 'Diretos de gerais';
	}
	//
	// SALVAR
    If ( $sAcao=="SALVAR" ) {
	   $nDir_Codigo = 0;
	   $bGravarReg = False;
	   If ( STRLEN(@$_REQUEST['Dir_Descri'])<2 ) {
	      $sRet_Javs .= Info_Evento('Alguns campos estão incompletos.');
	   } Else {
	      $bGravarReg = True;
	   }
	   If ($bGravarReg) {
	      If ( $sDir_Codigo=="NOVO" ) {
	         $nDir_Codigo = SQLVarConfig(STRTOUPPER($sModulo)."_SEQCOD")+0;
             SQLVarConfigG(STRTOUPPER($sModulo)."_SEQCOD", $nDir_Codigo+1 );
             MYSQL_QUERY(   // Cria um novo registro
               "INSERT INTO cad_direitos(DIR_CODIGO,DIR_ATIVO_) VALUES (".$nDir_Codigo.",1); ") or die(MYSQL_ERROR());
	      } Else {
	         $nDir_Codigo = $sDir_Codigo+0;
	      }
	      $Row_CadDir = MYSQL_QUERY("SELECT * FROM cad_direitos WHERE DIR_CODIGO=".($nDir_Codigo)." ;") or die(MYSQL_ERROR());
		  // ***
          $RowT_CadDir = MYSQL_QUERY("SELECT * FROM cad_direitos WHERE DIR_CODIGO=0 ;") or die(MYSQL_ERROR());
          If ($RowT_CadDir = MYSQL_FETCH_OBJECT($RowT_CadDir)) {
             $sLst_AcsGer = $RowT_CadDir->DIR_ACESSO;
          }
          $nMenuCont1 = 1;
          $sDir_Acesso = '';
          While ($nMenuCont1<30) {
             $sM_Titulo = @$aMenuLat[$nMenuCont1.'_TITULO'];
             If ( STRLEN($sM_Titulo)==0 ) { BREAK; }
             $nMenuCont2 = 1;
             While ($nMenuCont2<30) {
                $sMS_Acesso = @$aMenuLat[$nMenuCont1.'_'.$nMenuCont2.'_ACESSO'];
                If ( STRLEN($sMS_Acesso)==0 ) { BREAK; }
			    If ($bAcessoGeral) {
                   $bAcsPerm = (@$_REQUEST['Dir_'.$sMS_Acesso.'_GER']+0)>0;
                   If ($bAcsPerm) { $sDir_Acesso .= $sMS_Acesso.';'; }
				} Else {
                   If ( STRPOS(' ;'.$sLst_AcsGer, ';'.$sMS_Acesso.';')>0 ) {
                      $aLst_AcsMod = EXPLODE(';',@$aMenuLat[$nMenuCont1.'_'.$nMenuCont2.'_LSTDIR']);
                      $nContAcsM = 0;
                      $sDir_AcessoT = '';
                      While (True) {
                         $sPerAcsMod = @$aLst_AcsMod[$nContAcsM];
                         If ( STRLEN($sPerAcsMod)==0 ) { BREAK; }
                         $aTempAcsMd = EXPLODE(':',$sPerAcsMod.':');
                         $sPerAcsMod = $aTempAcsMd[0];
                         $sNomAcsMod = $aTempAcsMd[1];
                         $bAcsPerm = (@$_REQUEST['Dir_'.$sMS_Acesso.'_'.$sPerAcsMod]+0)>0;
                         If ($bAcsPerm) { $sDir_AcessoT .= '['.$sPerAcsMod.']'; }
                         $nContAcsM++;
                      }
                      If (STRLEN($sDir_AcessoT)>0) {
                         $sDir_Acesso .= 
                             '<|'.$sMS_Acesso.'|>'.CHR(13).
                             ' '.$sDir_AcessoT.CHR(13).
                             '</>'.CHR(13);
                      }
                   }
				}
                $nMenuCont2++;
             }
             $nMenuCont1++;
          }
		  
		  // ***
          If ($Row_CadDir = MYSQL_FETCH_ARRAY($Row_CadDir)) {
               If(STRLEN($sDir_Acesso)>0) {        
				      MYSQL_QUERY(   // Atualizar o registro
                    "UPDATE cad_direitos SET ".
                         'DIR_DESCRI=0x'.BIN2HEX(UTF8_DECODE(@$_REQUEST['Dir_Descri'])).','.
				             'DIR_ACESSO=0x'.BIN2HEX($sDir_Acesso).' '.
                    "WHERE DIR_CODIGO=".($nDir_Codigo)."; ") or die(MYSQL_ERROR());
	            } Else {
					   $sRet_Javs .= Info_Evento('Alguns campos estão incompletos.');
					}
			} Else {
			
             // Erro: registro não existe
	      }
       }
       $sRet_Javs .= "document.location.href = './car_js.php?mod=".$sModulo."&submod=".$sSubModulo."&nomeacs=".$sNomeAcesso."&acao=FECHAR&acaoAnt=".$sAcao."';";
	   $bMontarJanela = false;
    //
    // FECHAR
    } ElseIf ( $sAcao=="FECHAR" ) {
       $aSessao[$sNomeAcesso.'DIR_GERAL'] = false;
       $sRet_Javs .= 
	         //( $bAcessoGeral ? '' :
	         "parent.document.getElementById('".$sNomeIdJConsulta."_Travar').style.visibility='hidden';".
			 "parent.Disabled_In_Elems('".$sNomeIdJConsulta."',false);".
    	     'parent.document.getElementById("iCadDir_PChave").focus();'.
			 //).
	         "parent.RmElem('".$oJanelaPrinc->sIdObj."');".
		     (@$_REQUEST['acaoAnt']=='SALVAR' ? "parent.Car_".$sNomeAcesso."1.P_Atu();" : '').
			 "";
	   $bMontarJanela = false;
	//
	// NOVO REGISTRO
	} ElseIf ( $sAcao=="NV" ) {
	   $sDir_Codigo = 'NOVO';
	//
	// PUXAR REGISTRO
	} Else {
	   If ($bAcessoGeral) {
	      $Row_CadDir['DIR_DESCRI'] = 'DIREITOS GERAIS DO SISTEMA';
	   } Else {  // Não carregar dados de direitos quanto for SENHA GERAL
	      If (STRLEN($sDir_Codigo)==0) {
	         $bMontarJanela = False;
	         $sAcao = 'FECHAR';
             $sRet_Javs .= 
		         "parent.document.getElementById('".$sNomeIdJConsulta."_Travar').style.visibility='hidden';".
			     Info_Evento('Selecione um registro.');
	      } Else {
             $Row_CadDir = MYSQL_QUERY("SELECT * FROM cad_direitos WHERE DIR_CODIGO=".($sDir_Codigo+0)." ;") or die(MYSQL_ERROR());
             If (! $Row_CadDir = MYSQL_FETCH_ARRAY($Row_CadDir)) {
	            $Row_CadDir = ARRAY();
	         }
		  }
	   }
       //
	}
	If ($bMontarJanela) {
	   // Montar Lista de acessos em HTML
        $sListaAcs_HTML = '';
		$sJava_SelTodos = '';
        $aCoresLin = ARRAY( 1, '#FFE680', '#FFFFDD' );
		$sLst_AcsGer = '';
        $RowT_CadDir = MYSQL_QUERY("SELECT * FROM cad_direitos WHERE DIR_CODIGO=0 ;") or die(MYSQL_ERROR());
        If ($RowT_CadDir = MYSQL_FETCH_OBJECT($RowT_CadDir)) {
		   $sLst_AcsGer = $RowT_CadDir->DIR_ACESSO;
		}
        $nMenuCont1 = 1;
        While ($nMenuCont1<30) {
           $sM_Titulo = @$aMenuLat[$nMenuCont1.'_TITULO'];
           If ( STRLEN($sM_Titulo)==0 ) { BREAK; }
           $sTemp1_HTML = '';
		   //
		   For ( $nMenuCont2=1; $nMenuCont2<30; $nMenuCont2++ ) {
              $sMS_Titulo = @$aMenuLat[$nMenuCont1.'_'.$nMenuCont2.'_TITULO'];
              $sMS_Acesso = @$aMenuLat[$nMenuCont1.'_'.$nMenuCont2.'_ACESSO'];
	          $sMS_Condic = @$aMenuLat[$nMenuCont1.'_'.$nMenuCont2.'_CONDIC'];
              If ( STRLEN($sMS_Titulo)==0 ) { BREAK; }
	          If (STRPOS(' '.$sMS_Condic,"(LIVRE)")>0 ) { CONTINUE; }
			  $sHTML_LstMd = '';
			  If ($bAcessoGeral) {
			     $bAcsPerm = ( STRPOS(' ;'.$sLst_AcsGer, ';'.$sMS_Acesso.';')>0 );
                 $sHTML_LstMd .=
                      '<input type="checkbox" name="Dir_'.$sMS_Acesso.'_GER" value="1" '.($bAcsPerm ? 'checked' : '' ).'>'.
					  '';
			  } Else {
                If ( STRPOS(' ;'.$sLst_AcsGer, ';'.$sMS_Acesso.';')>0 ) {
                   $aLst_AcsMod = EXPLODE(';',@$aMenuLat[$nMenuCont1.'_'.$nMenuCont2.'_LSTDIR']);
                   $nContAcsM = 0;
                   While (True) {
                      $sPerAcsMod = @$aLst_AcsMod[$nContAcsM];
                      If ( STRLEN($sPerAcsMod)==0 ) { BREAK; }
                      $aTempAcsMd = EXPLODE(':',$sPerAcsMod.':');
                      $sPerAcsMod = $aTempAcsMd[0];
                      $sNomAcsMod = $aTempAcsMd[1];
                      $bAcsPerm = CondPrivilegio(@$Row_CadDir['DIR_ACESSO'], $sMS_Acesso , $sPerAcsMod);
					  $sId_Java = 'iDir_'.$sMS_Acesso.'_'.$sPerAcsMod;
                      $sHTML_LstMd .=
                           (STRLEN($sHTML_LstMd)>0 ? '&nbsp;&nbsp;&nbsp;' : '').'<input type="checkbox" id="'.$sId_Java.'" name="Dir_'.$sMS_Acesso.'_'.$sPerAcsMod.'" value="1" '.($bAcsPerm ? 'checked' : '' ).'>'.
                           $sNomAcsMod;
				      $sJava_SelTodos .= "parent.document.getElementById('".$sId_Java."').checked = true;";
                      $nContAcsM++;
                   }
                }
			  }
			  If ( STRLEN($sHTML_LstMd)>0 ) {
        	     $sTemp1_HTML .=
			       '<tr style="background-color: '.$aCoresLin[$aCoresLin[0]].';">'.
        	        '<td width="30px" height="25px">&nbsp;</td>'.
        	        '<td width="250px" style="font-size:16px;">'.
                     $sMS_Titulo.
        		    '</td>'.
        	        '<td>'.
				     '&nbsp;'.$sHTML_LstMd.
        		    '</td>'.
        		   '</tr>';
			  }
  	          $aCoresLin[0]++;
  	          If ( ! ISSET($aCoresLin[$aCoresLin[0]]) ) { $aCoresLin[0]=1; }
           }
		   //
		   If ( STRLEN($sTemp1_HTML)>0 ) {
              $sListaAcs_HTML .=
		        '<span style="font-size:17px;">&nbsp;<br>'.$sM_Titulo.'</span>'.
                '<table width="100%" border="0" cellspacing="0" cellpadding="0">'.
        	     $sTemp1_HTML.
                '</table>'.
                '';
		   }
           //
           $nMenuCont1++;
        }
	   //
	   $oJanelaPrinc->aIdsObjList = ARRAY('iCadEPro_Descric');
	   //
       // Tela HTML
	   $sDir_Codigo = Str_Zero($sDir_Codigo, 2);
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
          '<form name="fmECadDir" 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.'">'.
       	   '<table width="100%"></tr>'.
       	    '<td width="4px" height="24px">&nbsp;</td>'.
       	    '<td align="left" width="90px">'.
		     'Código:'.
			 '<input name="Dir_Codigo" type="text" value="'.$sDir_Codigo.'" readonly="readonly" style="width:40px; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
       	    '</td>'.
       	    '<td align="left">'.
		     'Descrição:'.
			 '<input id="iCadEDir_Descric" name="Dir_Descri" type="text" value="'.@$Row_CadDir['DIR_DESCRI'].'" maxlength="12" style="width:230px; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
       	    '</td>'.
			( $bAcessoGeral ? '' :
       	    '<td width="120px" align="left">'.
       	     HTML_Botao( 3, 'CadEDir_BT_SlT', 'Car_'.$sNomeAcesso.'3.Selecionar_Todos();'
                          , 'Todos (F3)'    ,'images/btimg_ativar.png').
       	    '</td>'
			).
       	   '</tr></table>'.
		   '&nbsp;'.
		   '<div id="iCadEDir_LstAcs" style="width:100%; height:380px; background:#FFFFFF; overflow:auto;">'.
		    $sListaAcs_HTML.
		   '</div>'.
          '</form>'.
       	  '<table width="100%"></tr>'.
       	   '<td width="4px" height="40px" align="left">&nbsp;</td>'.
       	   '</td>'.
       	   '<td>'.
       	    HTML_Botao( 3, 'CadEDir_BT_Svl', "document.forms.fmECadDir.acao.value='SALVAR';".
    	                                     "document.forms.fmECadDir.submit();"
			             , 'Salvar (F10)','images/btimg_salvar.png').'&nbsp;&nbsp;'.
       	   '</td>'.
       	   '<td width="120px" align="left">'.
       	    HTML_Botao( 3, 'CadEDir_BT_Fec', $oJanelaPrinc->sJavOnClickF
                         , 'Sair (ESC)' ,'images/btimg_fechar.png').
       	   '</td>'.
       	  '</tr></table>'.
    	  $oJanelaPrinc->MontaJanHTML(False);
       //
       $sRet_JavsPos .=
    	  'parent.document.getElementById("iCadEDir_Descric").focus();'.
		  //
		  "function Teclas_F( Objeto, Evento ) {".
             "vNumTecla = parent.Tecla_Apertada(Evento);".
             "if ( vNumTecla==121) { ".        //  ** [F10] **        (Gravar)
                 "setTimeout( parent.document.getElementById('CadEDir_BT_Svl').onclick , 100);".
		     "} else if ( vNumTecla==114) { ".  // ** [F3] **         (Selecionar todos)
                 "setTimeout( parent.document.getElementById('CadEDir_BT_SlT').onclick , 100);".
		     "} else if ( vNumTecla==116) { ".  // ** [F5] **         Não atualizar
                 //
		     "} else if ( vNumTecla==27) { ".  //  ** [ESC] **        (SAIR)
                 "setTimeout( parent.document.getElementById('CadEDir_BT_Fec').onclick , 100);".
		     "} else if ( vNumTecla==13) { ".
			     //
			 "} else {".
			     "return true;".
			 "}".
			 "return false;".
		  "}".
		  //
		  "function Selecionar_Todos() {".
		     $sJava_SelTodos.
		  "}".
		  //
    	  "";
	}
//
//  ** SENHA PARA PERMISSAO DOS MODULOS DO SISTEMA cad_direitos( DIR_CODIGO=0 - GERAL )**
} ElseIf ( $sSubModulo=="DIR_GERAL" ) {
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = 'iJan_GeralCadDir'; 
    $oJanelaPrinc->nWidth  = 400;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
    $oJanelaPrinc->nTop    = 150;
	$oJanelaPrinc->nLeft   = ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    //$oJanelaPrinc->nLeft   = 320;
    $oJanelaPrinc->sTitulo = '(( Senha para a permissão de acesso aos modulos ))';
	$bMontarJanela = true;
	//
	// ENTRAR
    If ( $sAcao=="E" ) {
	   $bMontarJanela = false;
	   If ( $sSenhaGeral==@$_REQUEST['Dir_SenhaGeral'] ) { // Senha válida
          $aSessao[$sNomeAcesso.'DIR_GERAL'] = true;
	      $sRet_Javs .= 
		     "parent.document.forms.fmGCadDir.target='car_".$sNomeAcesso."3';".
			 "parent.document.forms.fmGCadDir.acao.value='';".
			 "parent.document.forms.fmGCadDir.submod.value='EDT';".
    	     "parent.document.forms.fmGCadDir.submit();".
			 "parent.RmElem('".$oJanelaPrinc->sIdObj."');";
	   } Else {
	      $sRet_Javs .=
		     Info_Evento('SENHA INVALIDA').
			 "parent.document.forms.fmGCadDir.acao.value='FECHAR'; ".
			 "parent.document.forms.fmGCadDir.submit(); ".
			 '';
          $aSessao[$sNomeAcesso.'DIR_GERAL'] = false;
	   }
    //
    // CANCELAR
    } ElseIf ( $sAcao=="FECHAR" ) {
       $sRet_Javs .=
          "parent.document.getElementById('".$sNomeIdJConsulta."_Travar').style.visibility='hidden';".
		  "parent.Disabled_In_Elems('".$sNomeIdJConsulta."',false);";	   
	      "parent.RmElem('".$oJanelaPrinc->sIdObj."');";
	   $bMontarJanela = false;
	}
	//
	If ($bMontarJanela) {
	   //
       // Tela HTML
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
          '<form name="fmGCadDir" 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.'">'.
		   '&nbsp;'.
       	   '<table width="100%"></tr>'.
       	    '<td align="center" style="font-size:22px;">'.
		     'Senha:'.
			 '<input id="iCadDirGeral_Senha" name="Dir_SenhaGeral" type="password" onkeydown="Car_'.$sNomeAcesso.'3.P_Senha(this,event);" value="" style="font-size:22px; width:160px; height:26px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
       	    '</td>'.
       	   '</tr></table>'.
          '</form>'.
       	  '<table width="100%"></tr>'.
       	   '<td width="4px" height="40px" align="left">&nbsp;</td>'.
       	   '</td>'.
       	   '<td>'.
       	    HTML_Botao( 3, 'CadGDir_BT_Svl', "document.forms.fmGCadDir.acao.value='E'; ".
    	                                     "document.forms.fmGCadDir.submit();"
			             , 'Entrar'   ,'images/btimg_ativar.png').'&nbsp;&nbsp;'.
       	   '</td>'.
       	   '<td width="114px" align="left">'.
       	    HTML_Botao( 3, 'CadGDir_BT_Cab', "document.forms.fmGCadDir.acao.value='FECHAR'; ".
    	                                     "document.forms.fmGCadDir.submit();"
                         , 'Cancelar' ,'images/btimg_fechar.png').
       	   '</td>'.
       	  '</tr></table>'.
    	  $oJanelaPrinc->MontaJanHTML(False);
	   //
       $sRet_Javs .=
	         //'alert( window.name );'.
		     'function P_Senha(t,e) {'.    // Teclas
               'e = e || window.event;'.
               'var keynum = e.which || e.keyCode;'.
               'var AltKey = e.altKey;'.
               'var CtrlKey = e.ctrlKey;'.
	           'var ShiftKey = e.shiftKey;'.
               'if (keynum == 13) { '.        // ENTER
			       "parent.document.forms.fmGCadDir.acao.value='E';".
    	           "parent.document.forms.fmGCadDir.submit();".
               '} else if (keynum == 27) { '. // ESC
			       "t.disabled='disabled'; ".
    	           "setTimeout( function() { ".
				     "parent.document.forms.fmGCadDir.acao.value='FECHAR'; ".
				     "parent.document.forms.fmGCadDir.submit(); ".
				   "}, 200);".
			   '}'.
		     '}'.
    	     "";
       $sRet_JavsPos .=
    	     'parent.document.getElementById("iCadDirGeral_Senha").focus();'.   // Focar
    	     "";
       //
	}
//
//  ** CONSULTA **
} Else {
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJConsulta; 
    $oJanelaPrinc->nTop    = 5;
    $oJanelaPrinc->nLeft   = 25;
    $oJanelaPrinc->nWidth  = 590;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
	$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Direitos de Acessos';
	//$oJanelaPrinc->sJavOnClick = "document.getElementById('iCadDir_PChave').focus();";
	$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.
		"document.forms.fmPCadDir.acao.value='FECHAR'; ".
        "document.forms.fmPCadDir.submod.value=''; ".
        "document.forms.fmPCadDir.Dir_PChave.value=''; ".
        "document.forms.fmPCadDir.Dir_NumCam.value=''; ".
        "document.forms.fmPCadDir.submit();".
		"";
	//
	//
    // Criar objeto GRID
    $oTabelaRegs = New Pad_GridPesq();
    $oTabelaRegs->sNomeTabela  = 'cad_direitos';
    $oTabelaRegs->sIdObjTabela = 'iQdr_ListaDir';
    $oTabelaRegs->GLstCampos( 'DIR_CODIGO,Código,100px;'.
                              'DIR_DESCRI,Descrição;' );
    $oTabelaRegs->sCampoIndice = 'DIR_CODIGO';
    $oTabelaRegs->nWidth  = $oJanelaPrinc->nWidth;
    $oTabelaRegs->nHeight = 300;    // Altura
    $oTabelaRegs->sCampoOnClick  = "Car_".$sNomeAcesso."1.P_Sel(<NUMCAM>); Car_".$sNomeAcesso."1.P_Atu();";
    $oTabelaRegs->sLinhaOnClick  = "Car_".$sNomeAcesso."1.PRow_Sel(<QTDCOL>,<SELLIN>); Car_".$sNomeAcesso."1.sSelIndice=<INDICE>;";
    $oTabelaRegs->sLinhaOnDblClk = $sJavaTravarJ.
	                               "Car_".$sNomeAcesso."1.Pesq_Editar();";
    $oTabelaRegs->sJavSelectReg = "sSelIndice = S_Indice;".
	                              "if (parseInt(sSelIndice)>0) {".
								      "if (parent.document.forms.fmPCadDir.Dir_Ativos.value=='0') {".
				                          "parent.document.getElementById('CadCDir_BT_Itv').style.display='inline-block';".
				                          "parent.document.getElementById('CadCDir_BT_Atv').style.display='none';".
									   "} else if (parent.document.forms.fmPCadDir.Dir_Ativos.value=='1') {".
									   //"} else {".
				                          "parent.document.getElementById('CadCDir_BT_Itv').style.display='none';".
				                          "parent.document.getElementById('CadCDir_BT_Atv').style.display='inline-block';".
								       "}".
		                               "parent.document.getElementById('CadCDir_BT_Edt').style.display='inline-block';".
								   "} ".
	                              'parent.document.getElementById("iCadDir_PChave").focus();';
    //
    // MONTAR LISTA DE CADASTROS
    If ( $sAcao=="LISTAR" ) {
       $sP_PChave = @$_REQUEST['Dir_PChave'];
       $nP_NumCam = @$_REQUEST['Dir_NumCam']+0;
	   //$bP_Ativos = (@$_REQUEST['Dir_Ativos']+0)>0;
	   $nP_Ativos  = @$_REQUEST['Dir_Ativos']+0; 
       $nIniReg = 0;
       $nQtdReg = 80;
       // Montar condição para a pesquisa
       $sWhereSQL = 'DIR_CODIGO>0 ';
	   If ($nP_Ativos == 0) {
	      $sWhereSQL .= 'AND DIR_ATIVO_ ';
	   } ElseIf ($nP_Ativos == 1) { //inativos
	      $sWhereSQL .= 'AND DIR_ATIVO_=0 ';
	   }
       $aLstCampo = EXPLODE(',',@$oTabelaRegs->aLstCampos[$nP_NumCam-1]);
       If ( $nP_NumCam==0 ) { $nP_NumCam=2; }
       If ( STRLEN(@$aLstCampo[0])>0 ) {
          If ( STRLEN($sP_PChave)>0 ) {
    	     $sWhereSQL .= 'AND '.$aLstCampo[0].' LIKE "%'.$sP_PChave.'%" ';
    	  }
		  $sWhereSQL .= 'ORDER BY '.$aLstCampo[0].' ASC ';
       }
       $oTabelaRegs->sBDParametros = 'WHERE '.$sWhereSQL.'LIMIT '.$nIniReg.','.$nQtdReg;
       // Tabela
       $sRet_TelaJ_HTML = $oTabelaRegs->MontaTabelaHTML();
       // Java
       $sRet_Javs .=
         "var iQdr_ListaCli = parent.document.getElementById('".$oTabelaRegs->sIdObjTabela."');".
    	 'iQdr_ListaCli.innerHTML = '.JAVA_CharCode($sRet_TelaJ_HTML).';'.
    	 '';
       // Java posterior
       $sRet_JavsPos .=
         'parent.Car_'.$sNomeAcesso.'1.P_Sel('.$nP_NumCam.');'.
         //'parent.Car_'.$sNomeAcesso.'1.PRow_Sel('.($oTabelaRegs->nQtdCampos-1).',1);'.
    	 '';
       $sRet_TelaJ_HTML = '';
    //
    // FECHAR
    } ElseIf ( $sAcao=="FECHAR" ) {
       $sRet_Javs .=
		  'parent.document.getElementById("dv_MenuL_Barra").style.visibility="visible";'.
	      "parent.RmElem('".$oJanelaPrinc->sIdObj."');";
    //
    // ATIVAR REGISTRO
    } ElseIf ( $sAcao=="ATIVAR" ) {
	   If ((@$_REQUEST['Dir_Codigo']+0)>0) {
          //MYSQL_QUERY("DELETE FROM cad_funcionario WHERE FUN_CODIGO=".(@$_REQUEST['Fun_Codigo']+0)." ;") or die(MYSQL_ERROR());
          MYSQL_QUERY("UPDATE cad_direitos SET DIR_ATIVO_=1 WHERE DIR_CODIGO=".(@$_REQUEST['Dir_Codigo']+0)." ;") or die(MYSQL_ERROR());
	      $sRet_Javs .=
		     'parent.JanEspera(false);'.
		     'parent.Car_'.$sNomeAcesso.'1.PRow_Sel('.($oTabelaRegs->nQtdCampos-1).',1);'.
		     'parent.Car_'.$sNomeAcesso.'1.P_Atu();'.
			 '';
	   }
    //
    // INATIVAR REGISTRO
    } ElseIf ( $sAcao=="INATIVAR" ) {
	   If ((@$_REQUEST['Dir_Codigo']+0)>0) {
          //MYSQL_QUERY("DELETE FROM cad_funcionario WHERE FUN_CODIGO=".(@$_REQUEST['Fun_Codigo']+0)." ;") or die(MYSQL_ERROR());
          MYSQL_QUERY("UPDATE cad_direitos SET DIR_ATIVO_=0 WHERE DIR_CODIGO=".(@$_REQUEST['Dir_Codigo']+0)." ;") or die(MYSQL_ERROR());
	      $sRet_Javs .=
		     'parent.JanEspera(false);'.
		     'parent.Car_'.$sNomeAcesso.'1.PRow_Sel('.($oTabelaRegs->nQtdCampos-1).',1);'.
			 'parent.Car_'.$sNomeAcesso.'1.P_Atu();'.
			 '';
	   }
    //
    // JANELA TELA PRINCIPAL
    } Else {
	   //
	   $sJavClkAtiv =
          "JanEspera(true, 'Ativando registro... Aguarde...');".
          "setTimeout( function() { ".
              "document.forms.fmPCadDir.acao.value='ATIVAR'; ".
			  "document.forms.fmPCadDir.submod.value=''; ".
              "document.forms.fmPCadDir.Dir_Codigo.value=Car_".$sNomeAcesso."1.sSelIndice;".
    	      "document.forms.fmPCadDir.submit();".
          "}, ".$nTmpFrmEnv.");".
		  "";
	   //
	   // Confirma a inativação do registro
	   $sJavClkInat =
		  JAVA_CharCode(
		     "if (_NUM_BOT_==1) { ".
                 "JanEspera(true, 'Inativando registro... Aguarde...');".
                 "setTimeout( function() { ".
		            "document.forms.fmPCadDir.acao.value='INATIVAR'; ".
			        "document.forms.fmPCadDir.submod.value=''; ".
                    "document.forms.fmPCadDir.Dir_Codigo.value=Car_".$sNomeAcesso."1.sSelIndice;".
    	            "document.forms.fmPCadDir.submit();".
                 "}, ".$nTmpFrmEnv.");".
		  	"}"
		  );
	   $sJavClkInat =
		  "sIdHasFocus='iCadDir_PChave';".
	      "Qdr_Prompt_H(true,'Tem certeza que deseja INATIVAR este registro?',".$sJavClkInat.",['Sim','Não']); ";
	   //
	   //
       // Tela HTML
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
          '<form name="fmPCadDir" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'3">'.
           '<input name="mod" type="hidden" value="'.$sModulo.'">'.
           '<input name="submod" type="hidden" value="">'.
           '<input name="acao" type="hidden" value="">'.
    	   '<input name="nomeacs" type="hidden" value="'.$sNomeAcesso.'">'.
    	   '<input name="Dir_PChave" type="hidden" value="">'.
           '<input name="Dir_Ativos" type="hidden" value="1">'.
    	   '<input name="Dir_NumCam" type="hidden" value="">'.
    	   '<input name="Dir_Codigo" type="hidden" value="">'.
          '</form>'.
		  '<table width="100%">'.
		     '<tr>'.
       	        '<td width="4px" height="10px" align="left">'.
				   '&nbsp;'.
				'</td>'.
       	        '<td align="left" width="70px" style="font-size:14px;">'.
       	           'Procurar por: '.
       	        '</td>'.
				'<td align="left" style="font-size:14px;">'.
		          'Mostrar'.
			    '</td>'.
			 '</tr>'.
			 '<tr>'.
			    '<td width="4px" height="10px" align="left">'.
				   '&nbsp;'.
			    '</td>'.
			    '<td align="left" width="200px">'.
       	           '<input id="iCadDir_PChave" type="text" maxlength="30" style="width:98%; height:24px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
       	        '</td>'.
       	        '<td align="left">'.
			       '<select id="sl_CadDir_Ativos" onchange="Car_'.$sNomeAcesso.'1.P_Atu();" style="font-size:14px;border-width: 1px; border-style: solid; border-color: #0099FF;margin-top:-1px;height:20px;">'.			
				      '<option value="0">Ativos&nbsp;&nbsp;&nbsp;</option>'.
				      '<option value="1">Inativos&nbsp;&nbsp;&nbsp;</option>'.
					  '<option value="2">Todos&nbsp;&nbsp;&nbsp;</option>'.				  
			       '</select>'.	
				'</td>'.
				'<td align="right" width="70px">'.
       	           HTML_Botao( 3, 'CadDir_BT_Pro', 'Car_'.$sNomeAcesso.'1.P_Atu();'
		                        , 'Procurar'     ,'images/btimg_lupa.png').
       	        '</td>'.
		     '</tr>'.
		  '</table>'.
       	  //'<table width="100%"></tr>'.
       	  // '<td width="4px" height="10px" align="left">&nbsp;</td>'.
       	  // '<td align="left" width="70px">'.
       	  //  'Procurar por: '.
       	  // '</td>'.
       	  // '<td align="left" width="200px">'.
       	  //  '<input id="iCadDir_PChave" type="text" maxlength="30" style="width:98%; height:24px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
       	  // '</td>'.
       	  // '<td align="center">'.
		  //  '<span onclick="Car_'.$sNomeAcesso.'1.P_Ativos();" style="cursor:pointer; font-weight:bold; font-size:13px; text-decoration:underline;">'.
		  // 'Mostrar somente os <span id="PCadDir_Ativos">inativos</span>'.
		  //	'</span>'.
       	  //  '</td>'.
       	  // '<td align="right" width="70px">'.
       	  //HTML_Botao( 3, 'CadDir_BT_Pro', 'Car_'.$sNomeAcesso.'1.P_Atu();'
		  //             , 'Procurar'     ,'images/btimg_lupa.png').
       	  //'</td>'.
       	  //'</tr></table>'.
    	  $oTabelaRegs->MontaDivHtml().
       	  '<table width="100%"></tr>'.
       	   '<td width="4px" height="40px" align="left">&nbsp;</td>'.
       	   '</td>'.
       	   '<td>'.
       	    HTML_Botao( 3, 'CadCDir_BT_Nov', $sJavaTravarJ.
			                                 "document.forms.fmPCadDir.acao.value='NV'; ".
			                                 "document.forms.fmPCadDir.submod.value='EDT'; ".
    	                                     "document.forms.fmPCadDir.submit();"
			             , 'Novo (F6)'   ,'images/btimg_novo.png').'&nbsp;&nbsp;'.
       	    HTML_Botao( 3, 'CadCDir_BT_Edt', $sJavaTravarJ.
			                                 "Car_".$sNomeAcesso."1.Pesq_Editar();"
			             , 'Editar (F7)' ,'images/btimg_editar.png',100).'&nbsp;&nbsp;'.
       	    HTML_Botao( 3, 'CadCDir_BT_Itv', $sJavClkInat
			             , 'Inativar (F9)','images/btimg_remover.png',110).
       	    HTML_Botao( 3, 'CadCDir_BT_Atv', $sJavClkAtiv
			             , 'Ativar (F9)','images/btimg_ativar.png',110).'&nbsp;&nbsp;'.
       	   '</td>'.
       	   '<td width="120px" align="left">'.
       	    HTML_Botao( 3, 'CadCDir_BT_Fch', $oJanelaPrinc->sJavOnClickF
                         , 'Sair (ESC)' ,'images/btimg_fechar.png').
       	   '</td>'.
       	  '</tr></table>'.
    	  $oJanelaPrinc->MontaJanHTML(False);
       //
       $sRet_Javs .=
		  'parent.document.getElementById("dv_MenuL_Barra").style.visibility="hidden";'.
	      "var sSelIndice='';".
          "function P_Atu() {".
		    "parent.document.getElementById('CadCDir_BT_Atv').style.display='none';".
            "parent.document.getElementById('CadCDir_BT_Itv').style.display='none';".
            "parent.document.getElementById('CadCDir_BT_Edt').style.display='none';".
            "sSelIndice='0';".
		    $oTabelaRegs->MontaJavaAgu().
         	"parent.document.forms.fmPCadDir.acao.value='LISTAR'; ".
            "parent.document.forms.fmPCadDir.submod.value=''; ".
         	"parent.document.forms.fmPCadDir.Dir_PChave.value=parent.document.getElementById('iCadDir_PChave').value; ".
         	"parent.document.forms.fmPCadDir.Dir_Ativos.value=parent.document.getElementById('sl_CadDir_Ativos').value;".
			"parent.document.forms.fmPCadDir.Dir_NumCam.value=nPesq_CampoSel+''; ".
         	"setTimeout( function() { parent.document.forms.fmPCadDir.submit(); }, 100);".
          '}'.
		  'function Pesq_Editar() {'.
            "parent.document.forms.fmPCadDir.acao.value='';".
            "parent.document.forms.fmPCadDir.submod.value='EDT';".
            "parent.document.forms.fmPCadDir.Dir_Codigo.value=sSelIndice;".
            "parent.document.forms.fmPCadDir.submit();".
		  '}'.
		  "var bExbAtivos=true;".
		  //'function P_Ativos() {'.
		  //  "var obj = parent.document.getElementById('PCadDir_Ativos');".
		  //	"if (bExbAtivos) {".
          //       "parent.document.forms.fmPCadDir.Dir_Ativos.value='0'; ".
		  //	    "obj.innerHTML = 'ativos';".
		  //		"parent.document.getElementById('CadCDir_BT_Itv').style.display='none';".
		  //		"parent.document.getElementById('CadCDir_BT_Edt').style.display='none';".
		  //		"parent.document.getElementById('CadCDir_BT_Atv').style.display='inline-block';".
		  //		"bExbAtivos = false;".
		  //	"} else {".
          //       "parent.document.forms.fmPCadDir.Dir_Ativos.value='1'; ".
		  //	    "obj.innerHTML = 'inativos';".
		  //		"parent.document.getElementById('CadCDir_BT_Itv').style.display='inline-block';".
		  //		"parent.document.getElementById('CadCDir_BT_Edt').style.display='inline-block';".
		  //		"parent.document.getElementById('CadCDir_BT_Atv').style.display='none';".
		  //		"bExbAtivos = true;".
		  //	"}".
		  //	"P_Atu();".
		  // '}'.
          $oTabelaRegs->MontaJavaPri().
          '';
       // Java posterior
       $sRet_JavsPos .=
		 "P_Atu();".
    	 'parent.document.getElementById("iCadDir_PChave").focus();'.
		  //
		  "function Teclas_F( Objeto, Evento ) {".
             "vNumTecla = parent.Tecla_Apertada(Evento);".
             "if ( vNumTecla==117) { ".        //  ** [F6] **          // (Novo)
                 "setTimeout( parent.document.getElementById('CadCDir_BT_Nov').onclick , 100);".
		     "} else if ( vNumTecla==116) { ".  // ** [F5] **         Não atualizar
                 //
		     "} else if ( vNumTecla==118) { ". //  ** [F7] **          // (Editar)
                 "if ( parent.document.getElementById('CadCDir_BT_Edt').style.display != 'none') {".
                      "setTimeout( parent.document.getElementById('CadCDir_BT_Edt').onclick , 100);".
				 "}".
		     "} else if ( vNumTecla==120) { ". //  ** [F9] **          // (Inativar)
                 "if ( parent.document.getElementById('CadCDir_BT_Itv').style.display != 'none') {".
                      "setTimeout( parent.document.getElementById('CadCDir_BT_Itv').onclick , 100);".
					                                                   // (Ativar)
                 "} else if ( parent.document.getElementById('CadCDir_BT_Atv').style.display != 'none') {".
                      "setTimeout( parent.document.getElementById('CadCDir_BT_Atv').onclick , 100);".
				 "}".
		     "} else if ( vNumTecla==119) { ". //  ** [F8] **          // Chamar o cadastro de direitos (SIMSOFT)
                 "parent.document.forms.fmPCadDir.acao.value=''; ".
			     "parent.document.forms.fmPCadDir.submod.value='DIR_GERAL'; ".
    	         "parent.document.forms.fmPCadDir.submit();".
				 $sJavaTravarJ.
		     "} else if ( vNumTecla==27) { ".  //  ** [ESC] **         // (SAIR)
                  "setTimeout( parent.document.getElementById('CadCDir_BT_Fch').onclick , 100);".
			 "} else {".
		          "P_TeclasPress_fm(Evento);".
			      "return true;".
			 "}".
			 "return false;".
		  '}'.
		  //
    	 "";
    }
}
?>