<?php
$sNomeIdJan1 = 'iJan_InfoSis_Princ';
$sCorBarraInf = '#E8E3CE';
$sVersaoBD = SQLVarConfig('VERSAO_BASE_DADOS');
//
//
//  ** JANELA PRINCIPAL **
If ( STRLEN($sSubModulo)==0 ) {
    //
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJan1;
    $oJanelaPrinc->nTop    = 50;
    $oJanelaPrinc->nLeft   = 5;
    $oJanelaPrinc->nWidth  = 500;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
	$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Informações do sistema';
	//
	$sJavaTravarJ = "document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);";
	$oJanelaPrinc->sJavOnClick = "document.getElementById('in_InfoSisV_Tecla').focus();";
	$oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."1.Teclas_F(this,event);";
	//
	$oJanelaPrinc->sJavOnClickF =
         $sJavaTravarJ.
		 "document.forms.fmInfoSis.acao.value='FECHAR'; ".
         "document.forms.fmInfoSis.submod.value=''; ".
         "document.forms.fmInfoSis.submit();";
	//
	// FECHAR
    If ( $sAcao=="FECHAR" ) {
	   
       $sRet_Javs .=
	       'parent.document.getElementById("dv_MenuL_Barra").style.visibility="visible";'.
	       "parent.RmElem('".$oJanelaPrinc->sIdObj."');";
    //
	
	} ElseIf ( $sAcao=="TAMANHO_BASE" ) {
       $nTamanho = 0;
	   $sScript_SQL = 
	      "SELECT ".
		      "table_schema 'Banco', ". 
              "round(sum( data_length + index_length ) / 1024 / 1024,2) 'Tamanho' ". 
          "FROM information_schema.TABLES ".
		  'WHERE table_schema = "'.$aSessao['BD_APONTADO_ACESSO'].'" '.
          "GROUP BY table_schema".
		  ";"; 

       $v_Rows = MYSQL_QUERY($sScript_SQL);
	   If( $a_Row = MYSQL_FETCH_ARRAY($v_Rows,MYSQL_ASSOC) ) {
	      $nTamanho = $a_Row['Tamanho']; 
	   }
	   
	   
	   $sRet_Javs .=
	     "parent.document.getElementById('tamanho').innerHTML='<strong>".$nTamanho." MB</strong>';".
	      '';
	
	
	// JANELA TELA PRINCIPAL
    } Else {
       INCLUDE_ONCE('./global/db_scripts_sql.inc');
	   $sCod_Cli = $Dados_Empresa['EMP_CODIGO'];
       $sSen_Cli = SEN_CLIINT($sCod_Cli);
       $aVd_Licenca = [];
       If ( STRLEN(SQLVarConfig('LICENCA_SOFTWARES_SIMSOFT'))>5 ) {
          $aVd_Licenca = Licenca_Sft_Validar(@$aSessao['Trv_Sft_Lic']['DiskDrive_Serie'],$Dados_Empresa['EMP_CODIGO']+0);
       }
       //
       foreach( $aScriptsSQL_Versoes As $sVersaoBD_SQL => $aScripts_BD ) {
          $sVersaoBD_Ultima = $sVersaoBD_SQL;
       }
	   //
	   //
       // Tela HTML
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
		  '<div style="position:absolute; top:-300px;">'.
		   // Teclas
		   '<input id="in_InfoSisV_Tecla" style="position:absolute; top:-100; left:-100; width:1px; height:1px;">'.
		   //
           '<form name="fmInfoSis" 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="">'.
           '<input name="acao" type="hidden" value="">'.
    	   '<input name="nomeacs" type="hidden" value="'.$sNomeAcesso.'">'.
		  '</form>'.
		  '</div>'.
		  //
		  '<table width="100%">'.
		   '<tr>'.
		    '<td width="200px" height="60px" align="center" valign="middle">'.
			 '<img src="./images/logo_simsoft.png" border="0">'.
		    '</td>'.
		    '<td align="left" valign="middle">'.
			 '<span style="font-size:13px; font-weight:bold;">eCook</span> <br>'.
			 'Versão: '.Aplicativo_Versao.
			'</td>'.
		   '</tr>'.
		   '<tr>'.
		      '<td align="left" valign="middle">'.
			     '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.
				 'Código do Cliente: '.
				 $Dados_Empresa['EMP_CODIGO'].
			  '</td>'.   
		   '</tr>'.
		   '<tr>'.
		      '<td align="left" valign="middle">'.
			     '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.
			     'Senha de internet: '.
				 $sSen_Cli.
			  '</td>'.   
		   '</tr>'.	 
           ( EMPTY($aVd_Licenca) ? '' :
		   '<tr>'.	 
		    '<td align="left" valign="middle">'.
             '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.
             'Numero de série da licença: <strong>'.@$aVd_Licenca['NSERIE'].'</strong> .'.
	        '</td>'.   
		   '</tr>'.	 
           '').
		   '<tr>'.	 
		    '<td align="left" valign="middle">'.
             '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.
             'ID do sistema operacional: <strong>'.PHP_OS.'</strong>, '.
             'IP público remoto: <strong>'.VarConfig_IP_Remoto().'</strong>'.
	        '</td>'.   
		   '</tr>'.	 
		  '</table>'.
		  '<table width="100%">'.
		     
		   '<tr>'.
		    '<td></td>'.
		    '<td colspan="2" height="25px" valign="middle">'.
			 'Desenvolvido por: Simsoft Soluções em Software.'.
			'</td>'.
		   '</tr>'.
		   '<tr>'.
		    '<td width="20px"></td>'.
		    '<td width="20px"></td>'.
		    '<td align="left">'.
			 //'Avenida Costábile Romano, 2938, Ribeirânia<br>'.
             //'Ribeirão Preto - São Paulo<br>'.
             //'CEP: 14096-275<br>'.
             'Telefone: (16) 3979-7273<br>'.
             'Portal: <a href="http://www.simsoft.com.br/" target="_blank" style="color:#0000FF;">www.simsoft.com.br</a> <br>'.
			 '&nbsp;'.
			'</td>'.
		   '</tr>'.
		   '<tr>'.
		    '<td colspan="2"></td>'.
		    '<td align="left">'.
			 'Servidor da base de dados: '.DBSql_Host.'<br>'.
			 'Nome da base de dados: '.$aSessao['BD_APONTADO_ACESSO'].'<br>'.
             'Tamanho da base de dados: '.
			"<span id='tamanho'></span>".'<br>'.
             'Versão da base de dados: <strong>'.$sVersaoBD.'</strong>'.
             ( $sVersaoBD_Ultima==$sVersaoBD ? ' atualizado.' : ', falta atualizar para <strong>'.$sVersaoBD_Ultima.'</strong>' ).
             '<br>'.
			 'Versão do PHP é <strong>'.PHPVERSION().'</strong>, e do MySQL é <strong>'.MYSQL_GET_SERVER_INFO().'</strong> .'.
			'</td>'.
		   '</tr>'.
		  '</table>'.
		  '&nbsp;<br>&nbsp;'.
		  //
		  // Botões
          '<table width="100%" style="background-color:'.$sCorBarraInf.';"></tr>'.
           '<td>'.
			'&nbsp;'.
           '</td>'.
           '<td width="114px" align="left">'.
            HTML_Botao( 3, 'objInfoSis_BT_Fch', $oJanelaPrinc->sJavOnClickF
                         , 'Sair (ESC)' ,'images/btimg_fechar.png').
           '</td>'.
           '<td width="4px" height="40px" align="left">&nbsp;</td>'.
           '</td>'.
          '</tr></table>'.
		  //
    	  $oJanelaPrinc->MontaJanHTML(False);
       //
       $sRet_Javs .=
	      'parent.document.getElementById("dv_MenuL_Barra").style.visibility="hidden";'.
		  "function P_TBase() {".
            "parent.document.forms.fmInfoSis.acao.value='TAMANHO_BASE'; ".
			"parent.document.forms.fmInfoSis.submit();".
			
         '}'.
		 
		  
		  
		  '';
       // Java posterior
       $sRet_JavsPos .=
	      "parent.document.getElementById('in_InfoSisV_Tecla').focus(); ".
		  "P_TBase();".
		  "function Teclas_F( Objeto, Evento ) {".
             "vNumTecla = parent.Tecla_Apertada(Evento);".
		     "if ( vNumTecla==116) { ".           //  ** [F5] **     Não atualizar
                 //
		     "} else if ( vNumTecla==27) { ".     //  ** [ESC] **         (SAIR)
                 "setTimeout( parent.document.getElementById('objInfoSis_BT_Fch').onclick , 100);".
			 "} else {".
			     "return true;".
			 "}".
			 "return false;".
          '}'.
		  //
		  "";
	   //
	}
}
//
//

?>