<?php
$sNomeIdJan1 = 'iJLibPrazo_Princ';
$sNomeIdJan2 = 'iJan_Sen_Internet';
$nTmpFrmEnv = 500;
$bPeloMenu = False;
If ( STRLEN($sNomeQdrH)<2 ) {
   $sNomeQdrH = "car_Indice2";
   $bPeloMenu = True;
}
If ( ! ISSET($aSessao['LIB_PRAZO_MENU']) ) {
   $aSessao['LIB_PRAZO_MENU'] = $bPeloMenu;
}
$bPeloMenu = $aSessao['LIB_PRAZO_MENU'];
//
If ($sSubModulo=='') {
   // Criar objeto Janela
   $oJanelaPrinc = New R_Janela();
   $oJanelaPrinc->sIdObj  = $sNomeIdJan1; 
   $oJanelaPrinc->nTop    = 60;
   $oJanelaPrinc->nLeft   = 5;
   $oJanelaPrinc->nWidth  = 450;   // Largura
   $oJanelaPrinc->nHeight = 0;     // Altura
   $oJanelaPrinc->nLeft   += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
   $oJanelaPrinc->sTitulo = 'Liberação de Prazo';
   //    
   $sJavaTravarJ = "document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);";
   //$oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."1.Teclas_F(this,event);";
   //$oJanelaPrinc->sJavKeyDown = "return frames['".$sNomeQdrH."_1'].Teclas_F(this,event);";
	//
   $oJanelaPrinc->sJavOnClickF =
        $sJavaTravarJ.
        "parent.document.forms.fmChaLibF.acao.value='FECHAR'; ".
  	    "parent.document.forms.fmChaLibF.target='".$sNomeQdrH."'; ".
        "parent.document.forms.fmChaLibF.submit();".
		  "";
   //
	
	//	}
	// FECHAR JANELA
	If ( $sAcao=="FECHAR" ) {
        UNSET($aSessao['LIB_PRAZO_MENU']);
        $sRet_Javs .=
	       //'parent.document.getElementById("dv_MenuL_Barra").style.visibility="visible";'.
	       "parent.RmElem('".$oJanelaPrinc->sIdObj."');".
	       "parent.document.location.href='./';".
		    "";
   //
   // JANELA PRINCIPAL
   //} ElseIf ( $sAcao=="MSG_CIN" ) {
	
	
	// JANELA PRINCIPAL
	} Else {
	  
	  //
      // Tela HTML
      $sRet_TelaJ_HTML =
       	$oJanelaPrinc->MontaJanHTML(True).
			'<form name="fmChaLibF" accept-charset="utf-8" method="post" action="./car_js.php" target="'.$sNomeQdrH.'_2">'.
          '<input name="mod" type="hidden" value="'.$sModulo.'">'.
          '<input name="submod" type="hidden" value="'.$sSubModulo.'">'.
          '<input name="acao" 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_ChaLib_Ico" src="images/img_alerta.png" border="0">'.
		      '</td>'.
            '<td valign="middle" style="font-size:14px;" align="center" id="td_ChaLib_Msg">'.
		        'Qual chave voc&ecirc; deseja informar ?'.
			     '<br>&nbsp;<br>'.
			   '</td>'.
		     '</tr>'.
		    '</table>'.
         '</form>'.
         '<table width="100%">'.
			'<tr>'.
          '<td width="4px" height="40px" align="left">&nbsp;</td>'.
           '<td align="left">'.
             HTML_Botao( 3, 'ChaInt_BT_Int', $sJavaTravarJ.
			                                    "parent.document.forms.fmChaLibF.acao.value=''; ".
                                             "parent.document.forms.fmChaLibF.submod.value='CHA_INT'; ".
					      								"document.forms.fmChaLibF.submit();".
                                             "parent.document.forms.fmChaLibF.submod.value=''; "
                          , 'Internet' ,'images/btimg_ativar.png').
           '</td>'.
           
			  '<td width="50px" align="right">'.
             HTML_Botao( 3, 'ChaInt_BT_Nor', $sJavaTravarJ.
			                                    "parent.document.forms.fmChaLibF.acao.value=''; ".
                                             "parent.document.forms.fmChaLibF.submod.value='CHA_NOR'; ".
						   							   "document.forms.fmChaLibF.submit();".
                                             "parent.document.forms.fmChaLibF.submod.value=''; "
			                 , 'Normal' ,'images/btimg_ativar.png').   
			  '</td>'.
         '<td width="4px" height="40px" align="right">&nbsp;</td>'.
			'</tr>'.
		  '</table>'.
         $oJanelaPrinc->MontaJanHTML(False);     
      //
      $sRet_Javs .=
	     'parent.document.getElementById("dv_MenuL_Barra").style.visibility="hidden";'.
        "function Teclas_F( Objeto, Evento ) {".
          "vNumTecla = parent.Tecla_Apertada(Evento); ".
          "if ( vNumTecla==116) { ".  // ** [F5] **     Não atualizar
                 //
			 "} else {".
		      "return true;".
		    "} ".
	       "return false;".
		 "}".
		 "";
      
	    // Java posterior
      $sRet_JavsPos .=
		 "";
      //
      //
   }
   
//
} ElseIf ($sSubModulo=='CHA_INT') {
  $sCod_Cli = $Dados_Empresa['EMP_CODIGO'];
  $sSen_Cli = SEN_CLIINT($sCod_Cli);
  $sNomeIdJ_Ant = $sNomeIdJan1;
  $sHTML_TextoM = '<span style="font-family:Courier;font-size:18px;">'. 
	                  '<table align="left">'.
							'<tr>'.
							  '<td>'.
							   'Acesse.................: www.simsoft.com.br'.
	                    '</td>'.
                     '</tr>'.
							//'<tr>'.
							//  '<td>'.
							//  '&nbsp;'.
							//  '</td>'.
							//'</tr>'.
							'<tr>'.
							  '<td>'.
							   'Codigo de Acesso: '.$sCod_Cli.
							  '</td>'.
							'</tr>'.
							'<tr>'.
							  '<td>'.
							   'Senha de Acesso.:'.$sSen_Cli;
 							  '</td>'.
							'</tr>'.
							'<tr>'.
							  '<td>'.
							   'Hoje é dia..............:'.DATE("d/m/Y").
							'</tr>'.
							'</table>'.
							'</span>'.
							'';
                  
  $sJavaExePos  =
     "";
  //  ** TELA DE SENHA PARA CHAVE Internet**
  $sCorBarraInf = '#E8E3CE';
  //
  // Criar objeto Janela
  $oJanelaPrinc = New R_Janela();
  $oJanelaPrinc->sIdObj  = $sNomeIdJan2; 
  $oJanelaPrinc->nTop    = 100;
  $oJanelaPrinc->nLeft   = 5;
  $oJanelaPrinc->nWidth  = 340;   // Largura
  $oJanelaPrinc->nHeight = 0;     // Altura
  $oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
  $oJanelaPrinc->sTitulo = 'Chave de Internet';
  //    
  $oJanelaPrinc->sJavKeyDown = "return frames['".$sNomeQdrH."_2'].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.fmPTelChaInt.acao.value='FECHAR'; ".
  		"parent.document.forms.fmPTelChaInt.target='".$sNomeQdrH."_2'; ".
        "parent.document.forms.fmPTelChaInt.submit();".
  		"";
  	
  	
  //
  // Conferir senha
  If ( $sAcao=="CFM_SENHA" ) {
     
  	 $sCod_Cli = $Dados_Empresa['EMP_CODIGO'];
  	 $_Sen_Ins = STRTOUPPER(@$_POST['Senha_Aut']);
     $_Sen_Ins = G_CHAVEINT( $sCod_Cli,NULL   ,NULL    ,12      ,2    ,TRIM($_Sen_Ins),0);
    	 
	 If ($_Sen_Ins=='A'){ 
        // ** AVISAR SISTEMA POR NOTIFICAÇÃO (Suspeito de tentativa de fraude) **
        Reg_Ntf_Simdesk( $sCod_Cli+0, 'Cliente informou chave '.STRTOUPPER(@$_POST['Senha_Aut']).' de outro cliente', $oJanelaPrinc->sTitulo );
	    $sRet_Javs .=
		   Info_Evento('Esta chave não Pertence a este Cliente. Verifique.',1,$oJanelaPrinc->sTitulo).
		   '';
	 } ElseIf ($_Sen_Ins=='B') {
        // ** AVISAR SISTEMA POR NOTIFICAÇÃO (Suspeito de tentativa de fraude) **
        Reg_Ntf_Simdesk( $sCod_Cli+0, 'Cliente informou chave '.STRTOUPPER(@$_POST['Senha_Aut']).' com a data atrazada ('.DATE('d/m/Y').').', $oJanelaPrinc->sTitulo );
	    $sRet_Javs .=
		   Info_Evento('Seu computador está com a Data Atrazada. A liberação da chave não será permitida.',1,$oJanelaPrinc->sTitulo).
		   '';
	 } ElseIf ($_Sen_Ins=='C') {
	    $sRet_Javs .=
		   Info_Evento('Chave já expirou.',1,$oJanelaPrinc->sTitulo).
		   '';
	 } ElseIf ($_Sen_Ins=='D') {
	    $sRet_Javs .=
		   Info_Evento('Chave Inválida.',1,$oJanelaPrinc->sTitulo).
		   '';
	 
	 } Else {      
  	   
		If ($_Sen_Ins==TRIM(STRTOUPPER(@$_POST['Senha_Aut']))) {
          $aSessao['CHA_INT_VLD'] = True;
		  $sRet_Javs .=
  		   Info_Evento('Sistema liberado com sucesso.',0,$oJanelaPrinc->sTitulo).
		   $oJanelaPrinc->sJavOnClickF.
  		   "";
      } Else {
        $sRet_Javs .=
         Info_Evento('A chave informada n&atilde;o &eacute; v&aacute;lida.',1,$oJanelaPrinc->sTitulo).
         '';
      }      
  	}
  // FECHAR
  } ElseIf ( $sAcao=="FECHAR" ) {
     $sRet_Javs .=
       ( $aSessao['CHA_INT_VLD'] ?
         'parent.document.getElementById("dv_MenuL_Barra").style.visibility="visible";'
       :
         "parent.RmElem('".$oJanelaPrinc->sIdObj."');".
         "parent.document.location.href='./';"
       ).
       "parent.RmElem('".$sNomeIdJan1."');".
       "";
     UNSET($aSessao['LIB_PRAZO_MENU']);
     UNSET($aSessao['CHA_INT_VLD']);
     //
  //
  // JANELA TELA PRINCIPAL
  } Else {
     $aSessao['CHA_INT_VLD'] = False;
     // Tela HTML
     $sRet_TelaJ_HTML =
  	  $oJanelaPrinc->MontaJanHTML(True).
  	  '<form name="fmPTelChaInt" accept-charset="utf-8" method="post" action="./car_js.php" target="'.$sNomeQdrH.'_3">'.
      '<input name="acao" type="hidden" value="">'.
      '<input name="submod" type="hidden" value="'.$sSubModulo.'">'.
  	   '<input name="Senha_Aut" type="hidden" value="">'.
      '<input name="NomeQdrH" type="hidden" value="'.$sNomeQdrH.'">'.
  	   '<input name="mod" type="hidden" value="'.$sModulo.'">'.
  	  '</form>'.
  	  '<table width="100%">'.
  	   '<tr>'.
  	    '<td align="center" style="font-size:18px;">'.
  	     $sHTML_TextoM.
  		 '</td>'.
  	   '</tr>'.
  	   '<tr>'.
  	    '<td align="center" height="40px" valign="middle">'.
           '<input id="i_ChaInt_Senha" type="text" maxlength="12" style="font-size:16px; height:26px; width:70%;">'.
  		 '</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, 'objChaInt_BT_Cfm', "parent.document.forms.fmPTelChaInt.Senha_Aut.value = parent.document.getElementById('i_ChaInt_Senha').value;".
  		                                       "parent.document.forms.fmPTelChaInt.acao.value='CFM_SENHA';".
  														   "parent.document.forms.fmPTelChaInt.submit(); ".
  	  									     ""
                       , 'Ok (ENTER)' ,'images/btimg_ativar.png').
         '</td>'.
         '<td width="50%" align="right">'.
          HTML_Botao( 3, 'objChaInt_BT_Fch', $oJanelaPrinc->sJavOnClickF
                       , 'Voltar (ESC)' ,'images/btimg_fechar.png').
         '</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('objChaInt_BT_Cfm').onclick , 10);".
         "} else if ( vNumTecla==27 ) { ".  // [ESC]
           $oJanelaPrinc->sJavOnClickF.
  		   "} else {".
  		     "return true;".
  		   "} ".
         "return false;".
       '}';
     //
     // Java posterior
     $sRet_JavsPos .=
        "parent.document.getElementById('i_ChaInt_Senha').focus();".
  	  '';
     //
     //
     
  }

//
} ElseIf ($sSubModulo=='CHA_NOR') {
  // verifica par ou impar
  $sPar_Imp = '';
  $dDta_Hoj = Date( "Y-m-d"); 
  $nDta_Hoj = (DATE("w",STRTOTIME($dDta_Hoj))+0);
  $nDta_Hoj = Str_Zero($nDta_Hoj,2);
  If ($nDta_Hoj=="01" OR $nDta_Hoj=="03" OR $nDta_Hoj=="05" OR $nDta_Hoj=="07" OR $nDta_Hoj=="09") {
    $bDia_Par = True;
  } Else {
    $bDia_Par = False;
  }
  $sPar_Imp = ($bDia_Par ? '01':'02');

  $sNomeIdJ_Ant = $sNomeIdJan1;
  $sHTML_TextoM = 'Para liberar o sistema digite a senha.';
  
  $sJavaExePos  =
  "";
   
  $sCorBarraInf = '#E8E3CE';
  //
  // Criar objeto Janela
  $oJanelaPrinc = New R_Janela();
  $oJanelaPrinc->sIdObj  = "iJan_Sen_Normal"; 
  $oJanelaPrinc->nTop    = 100;
  $oJanelaPrinc->nLeft   = 5;
  $oJanelaPrinc->nWidth  = 340;   // Largura
  $oJanelaPrinc->nHeight = 0;     // Altura
  $oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
  $oJanelaPrinc->sTitulo = 'Instala&ccedil;&atilde;o'.' - '.DATE("d/m/Y").' - '.$sPar_Imp;
  //    
  $oJanelaPrinc->sJavKeyDown = "return frames['".$sNomeQdrH."_2'].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.fmPTelChaNor.acao.value='FECHAR'; ".
  		    "parent.document.forms.fmPTelChaNor.target='".$sNomeQdrH."_2'; ".
          "parent.document.forms.fmPTelChaNor.submit();".
  		"";
  	
  	
  //
  // Conferir senha
  If ( $sAcao=="CFM_SENHA" ) {
      
  	   $sChaveS  = "(- SIMSOFT -) :: (-SOFTWARE-)";
		$_Sen_Ins = STRTOUPPER(@$_POST['Senha_Aut']);
      $_Sen_Ins = CRIP_SENHA( 2,$_Sen_Ins ,0 , $bDia_Par );  
      
		If (STRLEN($_Sen_Ins)>0 AND STRLEN($_Sen_Ins)==4) {
   	  $_Dia_Uso = $_Sen_Ins;
		  $_Tmp_Uso = LibSiS_ENC( $_Dia_Uso,$sChaveS);
	     $_Tmp_Ins = LibSiS_ENC( Date("Y-m-d"),$sChaveS);
	  
	     
	     SQLVarConfigG('CFG_T_D_U',$_Tmp_Uso);
	     SQLVarConfigG('CFG_T_D_I',$_Tmp_Ins);
		  
		  $sRet_Javs .=
  		   Info_Evento('Sistema liberado com sucesso.',0,$oJanelaPrinc->sTitulo).
		   $oJanelaPrinc->sJavOnClickF.
			'';
      } Else {
        $sRet_Javs .=
         Info_Evento('A chave informada n&atilde;o &eacute; v&aacute;lida.',1,$oJanelaPrinc->sTitulo).
        '';
      }   
  	  
  	       
  	
  // FECHAR
  } ElseIf ( $sAcao=="FECHAR" ) {
     UNSET($aSessao['LIB_PRAZO_MENU']);     
	  $sRet_Javs .=
  	       //'parent.document.getElementById("dv_MenuL_Barra").style.visibility="visible";'.
  	       "parent.RmElem('".$oJanelaPrinc->sIdObj."');".
  	       "parent.document.location.href='./';".
			 "parent.RmElem('".$sNomeIdJan1."');".
  		    "";
  //
  // JANELA TELA PRINCIPAL
  } Else {
    
     // Tela HTML
     $sRet_TelaJ_HTML =
  	  $oJanelaPrinc->MontaJanHTML(True).
  	  '<form name="fmPTelChaNor" accept-charset="utf-8" method="post" action="./car_js.php" target="'.$sNomeQdrH.'_2">'.
  		 '<input name="mod" type="hidden" value="'.$sModulo.'">'.
       '<input name="submod" type="hidden" value="'.$sSubModulo.'">'.
       '<input name="acao" type="hidden" value="">'.
  	    '<input name="Senha_Aut" type="hidden" value="">'.
       '<input name="NomeQdrH" type="hidden" value="'.$sNomeQdrH.'">'.
  	  '</form>'.
  	  '<table width="100%">'.
  	   '<tr>'.
  	    '<td align="center" style="font-size:16px;">'.
  	     $sHTML_TextoM.
  		 '</td>'.
  	   '</tr>'.
  	   '<tr>'.
  	    '<td align="center" height="40px" valign="middle">'.
           '<input id="i_ChaNor_Senha" type="text" maxlength="10" style="font-size:16px; height:26px; width:70%;">'.
  		 '</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, 'objChaNor_BT_Cfm', "parent.document.forms.fmPTelChaNor.Senha_Aut.value = parent.document.getElementById('i_ChaNor_Senha').value;".
  		                                             "parent.document.forms.fmPTelChaNor.acao.value='CFM_SENHA';".
  							       							   "parent.document.forms.fmPTelChaNor.submit(); ".
  	  								      	               ""
                             , 'Ok (ENTER)' ,'images/btimg_ativar.png').
             '</td>'.
             '<td align="right">'.
                HTML_Botao( 3, 'objChaNor_BT_Fch', $oJanelaPrinc->sJavOnClickF
                             , 'Voltar (ESC)' ,'images/btimg_fechar.png').
             '</td>'.
             '<td width="4px" height="40px" align="right">&nbsp;</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('objChaNor_BT_Cfm').onclick , 10);".
          "} else if ( vNumTecla==27 ) { ".  // [ESC]
            $oJanelaPrinc->sJavOnClickF.
  		    "} else {".
  		      "return true;".
  		    "} ".
          "return false;".
        '}';
     //
     // Java posterior
     $sRet_JavsPos .=
        "parent.document.getElementById('i_ChaNor_Senha').focus();".
  	  '';
     //
     //
     
  }
}
?>