<?php
//
If ($sSubModulo=='') {
   // Criar objeto Janela
   $oJanelaPrinc = New R_Janela();
   $oJanelaPrinc->sIdObj  = 'Jan_Lic'; 
   $oJanelaPrinc->nTop    = 60;
   $oJanelaPrinc->nLeft   = 5;
   $oJanelaPrinc->nWidth  = 550;   // Largura
   $oJanelaPrinc->nHeight = 0;     // Altura
   $oJanelaPrinc->nLeft   += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
   $oJanelaPrinc->sTitulo = 'Erro fatal';
   //    
   $sJavaTravarJ = "parent.document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);";
   $oJanelaPrinc->sJavOnClick  = "document.getElementById('in_LicLibV_Tecla').focus();";
   $oJanelaPrinc->sJavKeyDown = "return ".$sNomeQdrJ.".Teclas_F(this,event);";
   //
   $oJanelaPrinc->sJavOnClickF =
        $sJavaTravarJ.
        "parent.document.forms.fmLicLibF.acao.value='FECHAR'; ".
		"parent.document.forms.fmLicLibF.target='".$sNomeQdrH."'; ".
        "parent.document.forms.fmLicLibF.submit();".
        "";
   //
   $bLicenca_Habilitada = ISSET($aSessao['LICENCA_SFT_VALIDA']);
   //
   // LIBERAR
   If ( $sAcao=="LIB" ) {
      If ( (!$bLicenca_Habilitada) && @$_POST['_senha_'] == $sSenhaGeral ) {
         Liberacao_Sistema(1);
         $sRet_Javs .= 'parent.JanEspera(true,"Corrigido... aguarde...");';
	 }
   $sRet_Javs .=
	   $oJanelaPrinc->sJavOnClickF.
		 "";
   //
   // FECHAR JANELA
   } ElseIf ( $sAcao=="FECHAR" ) {
        $sRet_Javs .=
	       'parent.document.getElementById("dv_MenuL_Barra").style.visibility="visible";'.
	       "parent.RmElem('".$oJanelaPrinc->sIdObj."');".
	       "parent.document.location.href='./';".
		   "";
   //
   // JANELA PRINCIPAL
   } Else {
	  $aEmpresa = MYSQL_QUERY("SELECT * FROM cad_empresa WHERE EMP_CODIGOI='".@$aSessao['CODIGO_EMPRESA']."';") or die(MYSQL_ERROR());
      $aEmpresa = MYSQL_FETCH_ARRAY($aEmpresa, MYSQL_ASSOC);
	  //
      // Tela HTML
      $sRet_TelaJ_HTML =
        '<div id="qdr_LicLib_TelaTrava" style="position:absolute; top:0px; left:0px; width: 100%; height: 100%; opacity:0.65; -moz-opacity: 0.65; filter: alpha(opacity=65); background-color: #000000;"></div>'.
         $oJanelaPrinc->MontaJanHTML(True).
         '<input id="in_LicLibV_Tecla" style="position:absolute; top:-100; left:-100; width:100px; height:21px;">'.
		 '<iframe name="'.$sNomeQdrH.'_1"></iframe>'.
         '<form name="fmLicLibF" accept-charset="utf-8" method="post" action="./car_js.php" target="'.$sNomeQdrH.'_1">'.
          '<input name="mod" type="hidden" value="'.$sModulo.'">'.
          '<input name="submod" type="hidden" value="'.$sSubModulo.'">'.
          '<input name="acao" type="hidden" value="">'.
          '<input name="_senha_" type="hidden" value="">'.
          '<input name="NomeQdrH" type="hidden" value="'.$sNomeQdrH.'">'.
         '<table width="100%">'.
          '<tr>'.
		   '<td width="90px" height="160px" valign="middle" align="center">'.
		    '<img id="img_LicLib_Ico" src="images/img_alerta.png" border="0">'.
		   '</td>'.
           '<td valign="middle" style="font-size:14px;" align="center" id="td_LicLib_Msg">'.
            ( $bLicenca_Habilitada ?
              'Dados da empresa: '.Str_Zero(@$aEmpresa['EMP_CODIGO']+0,6).' - '.@$aEmpresa['EMP_APELIDO'].
              '<br>'.
		      'Este sistema '.
              ( (@$aSessao['LICENCA_SFT_COM_ERRO']+0)>0 ?
              '<strong>não possui licença disponível</strong> para'
              :
              '<strong>não está licenciado</strong> a'
              ).
              ' operar <br>neste servidor.<br>'.
              'Entre em contato com a Simsoft.'
            :
		      'Este sistema não está autorizado a operar neste servidor.<br>'.
              'Entre em contato com a Simsoft.'
            ).
          '<br>&nbsp;<br>'.
		   '</td>'.
		  '</tr>'.
		 '</table>'.
         '</form>'.
         '<table width="100%"></tr>'.
          '<td width="4px" height="30px" align="left">&nbsp;</td>'.
          '</td>'.
          '<td>'.
          '</td>'.
          '<td width="124px" align="left">'.
           HTML_Botao( 3, 'LicLib_Ok', "parent.document.forms.fmLicLibF.acao.value='LIB'; ".
		                               "parent.document.forms.fmLicLibF.target='".$sNomeQdrH."'; ".
									   "parent.document.forms.fmLicLibF._senha_.value=parent.document.getElementById('in_LicLibV_Tecla').value;".
                                       "parent.document.forms.fmLicLibF.submit();"
                        , 'Ok' ,'images/btimg_fechar.png',80).
          '</td>'.
         '</tr></table>'.
         $oJanelaPrinc->MontaJanHTML(False);     
      //
      $sRet_Javs .=
         "function Teclas_F( Objeto, Evento ) { ".
           "vNumTecla = parent.Tecla_Apertada(Evento); ".
           "if ( vNumTecla==13) { ".          // ** [ENTER] **
               "setTimeout( parent.document.getElementById('LicLib_Ok').onclick , 10);".
		   "} else if ( vNumTecla==116) { ".  // ** [F5] **     Não atualizar
               //
           "} else if ( vNumTecla==27 ) { ".  // [ESC]
               $oJanelaPrinc->sJavOnClickF.
		   "} else {".
		     "return true;".
		   "} ".
	       "return false;".
		 '}'.
		 "";
      // Java posterior
      $sRet_JavsPos .=
	     "parent.document.getElementById('in_LicLibV_Tecla').focus();".
		 "";
      //
   }
}


?>