<?php
//  ** TELA DE SENHA de inativar ctp**
//
$sNomeIdJan1 = 'iJan_Sen_Inativ';
$sSenhaITV = SQLVarConfig('SENHA_INATIVAR_CTR');

// Criar objeto Janela
$oJanelaPrinc = New R_Janela();
$oJanelaPrinc->sIdObj  = $sNomeIdJan1; 
$oJanelaPrinc->nTop    = 100;
$oJanelaPrinc->nLeft   = 5;
$oJanelaPrinc->nWidth  = 340;   // Largura
$oJanelaPrinc->nHeight = 0;     // Altura
$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
$oJanelaPrinc->sTitulo = 'Senha para inativar CTR';
$oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."6.Teclas_F(this,event);";
//
$oJanelaPrinc->sJavOnClickF =
   "parent.document.forms.fmPTelPmIna.acao.value='FECHAR';".
   "parent.document.forms.fmPTelPmIna.submit(); ".
   "";
//
// Conferir senha
If ( $sAcao=="CFM_SENHA" ) {
   If ( $sSenhaITV==@$_POST['Senha_Aut']) {
      $sRet_Javs .=
	      $sJavaExeCfm.
          $oJanelaPrinc->sJavOnClickF.
		  "";
   
	} Else {
      $sRet_Javs .=
        Info_Evento('Senha inválida.',1,$oJanelaPrinc->sTitulo).
        '';
   }
//
// FECHAR
} ElseIf ( $sAcao=="FECHAR" ) {
   $sRet_Javs .=
	   "parent.document.getElementById('".$sNomeIdJan1."_Travar').style.visibility='hidden';".
	   "parent.Disabled_In_Elems('".$sNomeIdJan1."',false);".
       "parent.RmElem('".$oJanelaPrinc->sIdObj."');".
	   $sJavaExePos.
	   
	   "";
   
//
// JANELA TELA PRINCIPAL
} Else {
   //
   
   // Tela HTML
   $sRet_TelaJ_HTML =
	  $oJanelaPrinc->MontaJanHTML(True).
      '<form name="fmPTelPmIna" 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="nomeacs" type="hidden" value="'.$sNomeAcesso.'">'.
       '<input name="Senha_Aut" type="hidden" value="">'.
      '</form>'.
	   '<table width="100%">'.
	   '<tr>'.
	    '<td align="center" style="font-size:16px;">'.
	     //$sHTML_TextoM.
		'</td>'.
	   '</tr>'.
	   '<tr>'.
	    '<td align="center" style="font-size:22px;">'.
	       'Senha:'.
		    '<input id="i_CtrPmCan_Senha" type="password" maxlength="10" value="" style="font-size:22px; width:160px; height:26px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
    	 '</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, 'objCtrPmCan_BT_Cfm', "parent.document.forms.fmPTelPmIna.Senha_Aut.value = parent.document.getElementById('i_CtrPmCan_Senha').value;".
                                             "parent.document.forms.fmPTelPmIna.acao.value='CFM_SENHA';".
                                             "parent.document.forms.fmPTelPmIna.submit(); ".
	  									     ""
                     , 'Ok (ENTER)' ,'images/btimg_ativar.png',120).
       '</td>'.
       '<td width="50%" align="right">'.
        HTML_Botao( 3, 'objCtrPmCan_BT_Fch', $oJanelaPrinc->sJavOnClickF
 		       			, 'Voltar (ESC)' ,'images/btimg_fechar.png',120).
       '</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('objCtrPmCan_BT_Cfm').onclick , 10);".
        "} else if ( vNumTecla==27 ) { ".  // [ESC]
            //"parent.".$sJava_Desfoca_Input.
            "setTimeout( parent.document.getElementById('objCtrPmCan_BT_Fch').onclick , 10);".
		"} else {".
		  "return true;".
		"} ".
        "return false;".
      '}'.
	  '';
   //
   // Java posterior
   $sRet_JavsPos .=
      "parent.document.getElementById('i_CtrPmCan_Senha').focus();".
	  '';
   //
   //
   
}

?>