<?php
$bDir_Consult = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'V');
$bDir_Alterar = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'A');
$nTmpFrmEnv = 300;
$sNomeIdJPrin = "iJan_App_Licenca";
$sCorBarraInf = '#E8E3CE';
// Capturar matriz de trabalho

//
//  ** PRINCIPAL **
If ( EMPTY($sSubModulo) ) {
   // Criar objeto Janela
   $oJan = New R_Janela();
   $oJan->sIdObj  = $sNomeIdJPrin;
   $oJan->nWidth  = 940;   // Largura
   $oJan->nHeight = 0;     // Altura
   $oJan->nTop    = 10;
   $oJan->nLeft   = 0;
   $oJan->nLeft  += ($nTela_W/2)-($oJan->nWidth/2);
   $oJan->sTitulo = 'Acessos Garçom Express App';
   $oJan->sJavKeyDown = "return Car_".$sNomeAcesso."1.Teclas_F(this,event);";
   //
   $sJavaTravarJ = "parent.document.getElementById('".$oJan->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJan->sIdObj."',true);";
   $sJavaDesTravarJ = "parent.document.getElementById('".$oJan->sIdObj."_Travar').style.visibility='hidden'; parent.Disabled_In_Elems('".$oJan->sIdObj."',false);";
   $oJan->sJavOnClickF = 
       $sJavaTravarJ.
   	   "parent.document.forms.fmPApp_Lic.acao.value='FECHAR'; ".
   	   "parent.document.forms.fmPApp_Lic.submod.value=''; ".
   	   "parent.document.forms.fmPApp_Lic.submit();".
   	   "";
   //
   // >> Inicial
   If ( EMPTY($sAcao) ) {
      //
      
	  //
      $sRet_TelaJ_HTML =
         $oJan->MontaJanHTML(True).
         '<form name="fmPApp_Lic" 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.'">'.
            '<input name="COD_APP" type="hidden" value="">'.
			'<input name="QTD_LIC" type="hidden" value="">'.
         '</form>'.
		 // Lista
         '<div style="height:5px;"></div>'.
	        '<div id="dv_AppListaCab" align="left" style="width:100%; height:110px; background:#FFFFFF;"></div>'.
			'<div id="dv_AppListaMen" align="center" style="width:100%; height:26px; background:#FFFFFF;"></div>'.
			'<div id="dv_AppListaTab" align="center" style="width:100%; height:380px; background:#FFFFFF; overflow:auto;">'.
               '<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0">'.
                  '<tr>'.
			         '<td align="center" valign="middle" style="color:#555555;">'.
                        'Aguarde um momento...<br>'.
                        '<img src="images/img_load1.gif" border="0">'.
                     '</td>'.
				  '</tr>'.
               '</table>'.
		    '</div>'.
			//'<div id="dv_AppListaRod" align="left" style="width:100%; height:50px; background:#FFFFFF;"></div>'.
            '<div style="height:5px;"></div>'.
		    // Barra inferior
       	    '<table width="100%" style="background-color:'.$sCorBarraInf.';">'.
		       '<tr>'.
                  '<td width="8px"></td>'.
                  '<td width="134px" align="right" valign="center">'.
       	             HTML_Botao( 3, 'oApp_LisAtauliza', "parent.JanEspera(false); ".				    
	                                                    "parent.document.forms.fmPApp_Lic.acao.value='PUXAR_TAB';".
	                                                    "parent.document.forms.fmPApp_Lic.submod.value='';".
                                                        "parent.document.forms.fmPApp_Lic.submit(); "
			 					  , 'Atualizar'     ,'images/btimg_ativar_1.png'   , 112).      
		          '</td>'.
                  '<td width="134px" align="right" valign="center">'.
       	             
		          '</td>'.
		          '<td align="left"></td>'.
                  //'<td width="124px" align="left" valign="center">'.
       	          
		          //'</td>'.
                  
				  '<td width="124px" align="right" valign="center">'.
       	             HTML_Botao( 3, 'oApp_LisSair', $oJan->sJavOnClickF
			                      , 'Sair'     ,'images/btimg_fechar.png'   , 102).
		          '</td>'.
                  '<td width="4px"></td>'.
		       '</tr>'.
		    '</table>'.
            $oJan->MontaJanHTML(False);
      //
      // Java inicial
      $sRet_Javs .=
        'parent.document.getElementById("dv_MenuL_Barra").style.visibility="hidden";'.
 	    "";
      // Java posterior
      $sRet_JavsPos .=
	    "var FmH = parent.document.forms['fmPApp_Lic'];".
		// teclas da janela
		"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('oApp_LisSair').onclick , 100);".
              //"setTimeout( function () { ".$oJan->sJavOnClickF." } , 1);".
		   "} else {".
	           "P_TeclasPress_fm(Evento);".
		       "return true;".
		   "}".
		   "return false;".
		"}".
		//
		"Puxar_Tabelas();".
		"function Puxar_Tabelas() {".
           "FmH.acao.value='PUXAR_TAB';".
           "FmH.submit();".
		"}".
		"";
   //
   // >> Puxar tabelas
   } ElseIf ( $sAcao=="PUXAR_TAB" ) {
	  Global $Dados_Empresa;
	  $sHtml_ListaAppLic = '';
	  $sHtml_ListaAppLicCab = '';
	  $sHtml_ListaAppLicRod = '';
	  $sHtml_ListaAppLicMen = '';
	  $sCorLin   = 'color: #228B22;font-weight: bold;';
	  
	  //puxar Caminho Callapp Simdesk
	  $bHouve_Erro = False;
	  $sMensagem_Trava = '';
	  $sCam_App ='';
	  $sQtd_LicApp = '';
	  $nQtdLicSimdesk = 0;
      $sAcao     = 'P_CAMINHO_CALLAPP';
      $sCodEmp   = $Dados_Empresa['EMP_CODIGO'];
      $s_CodEmp = Str_Zero($sCodEmp,8);
      //$sCam_Ext =  SQLVarConfig('GARCOMAPP_URL_CALLAPP');
	  $s_Endereco_URL = '';
	  
	  $bGravarReg = True;
	  $bTrava = False;
	  
	  
	  $sCod_Cli = $Dados_Empresa['EMP_CODIGO'];
      $sSen_Cli = '<span style="color:#FF0000;">'.SEN_CLIINT($sCod_Cli).'</span>';
		
	  
	  //If ( STRLEN($sCam_Ext)>0) {
	  If ( STRLEN($sURLSimdesk_CallApp)>0) {
	     //$s_Endereco_URL = $sCam_Ext.'callapp_simdesk.php';
         $a_Dados_Post = 
		     ARRAY(
	           'Acao' => 'PUXAR_ENDAPP',
	           'CodEmp' => $s_CodEmp
            );

         $a_Dados = ComunicaUrl( $sURLSimdesk_CallApp , $a_Dados_Post );
         //$a_Dados[0] = Retorno de dados em string
         //$a_Dados[1] = Codigo HTTP do retorno
	  }
	  //
	  If (@$a_Dados[1]>=400) {
	     $bHouve_Erro = True;
	     $sMensagem_Trava = 'Erro '.$a_Dados[1].': Caminho inválido callapp_simdesk ou retorno em branco';
	  } ElseIf ( EMPTY($a_Dados[0]) OR SUBSTR($a_Dados[0],0,1)<>"{" ) {
	     $bHouve_Erro = True;
	     $sMensagem_Trava = 'Erro sem comunicação';
	  } Else {  
	     $a_DadosR = @JSON_DECODE($a_Dados[0],True);
		  If ( ISSET($a_DadosR["Erro"]) ) {
	        $bHouve_Erro = True;
	        $sMensagem_Trava = 'Erro '.@$a_DadosR["Erro"]["CODIGO"].' : '.@$a_DadosR["Erro"]["DESCRI"];
		  } Else {
		     $sCam_App = '<span style="color:#FF0000;">'.@$a_DadosR["Retorno"].'<span>';
			 
		  }
	  }	   
	  
	  If ($bHouve_Erro) {
	     $sRet_Javs .= "parent.JanEspera(false); ".				    
		                Info_Evento($sMensagem_Trava,1);
	  } Else {
		$bHouve_Erro = False;  
		  
		//If ( STRLEN($sCam_Ext)>0) {
		If ( STRLEN($sURLSimdesk_CallApp)>0) {
	       //$s_Endereco_URL = $sCam_Ext.'callapp_simdesk.php';
           $a_Dados_Post = 
		      ARRAY(
	             'Acao' => 'PUXAR_LIC',
	             'CodEmp' => $s_CodEmp
              );

           $a_Dados = ComunicaUrl( $sURLSimdesk_CallApp, $a_Dados_Post );
         //$a_Dados[0] = Retorno de dados em string
         //$a_Dados[1] = Codigo HTTP do retorno
	    }
	  
	  //
	     If (@$a_Dados[1]>=400) {
	        $bHouve_Erro = True;
	        $sMensagem_Trava = 'Erro '.$a_Dados[1].': Caminho inválido callapp_simdesk ou retorno em branco';
	     } ElseIf ( EMPTY($a_Dados[0]) OR SUBSTR($a_Dados[0],0,1)<>"{" ) {
	        $bHouve_Erro = True;
	        $sMensagem_Trava = 'Erro sem comunicação';
	     } Else {  
	        $a_DadosR = @JSON_DECODE($a_Dados[0],True);
		    If ( ISSET($a_DadosR["Erro"]) ) {
	           $bHouve_Erro = True;
	           $sMensagem_Trava = 'Erro '.@$a_DadosR["Erro"]["CODIGO"].' : '.@$a_DadosR["Erro"]["DESCRI"];
		    } Else {
		       $sQtd_LicApp = @$a_DadosR["Retorno"];
		    }
	     }  
		  
		  
		 If ($bHouve_Erro) {
	        $sRet_Javs .= "parent.JanEspera(false); ".				    
		                   Info_Evento($sMensagem_Trava,1);
	     }	 
		  
		///	
	  }
      ///
	  //
	  // pega a quantidade de licença atual no ecook de acordo com simdesk
	  $sSQLRequestC = "SELECT COUNT(*) FROM cad_app_licenca;";
      $Rows_CadApp = MYSQL_QUERY($sSQLRequestC) or Die(MYSQL_ERROR());
      $Rows_CadApp = MYSQL_FETCH_ARRAY($Rows_CadApp);
          
	  $nQtdLicEcook   = @$Rows_CadApp[0]+0; // quantidade de licença atual no ecook
   	  //
	  //cicero pediu para pegar direto no simdesk
	  If (STRLEN($sQtd_LicApp)>0) {
		$aLstLicAut = EXPLODE('|',$sQtd_LicApp.'|');
        //pega a quantidade de licença atual no simdesk
		ForEach ( $aLstLicAut as $sLstLicAut ) {
	       If ( STRLEN($sLstLicAut)>0) {
		      $nQtdLicSimdesk++;
           }				
	    }
		
		//limpar a tabela 
		$sSQLQuery =
	       "DELETE FROM cad_app_licenca;";
	    MYSQL_QUERY( $sSQLQuery ) Or Die(MYSQL_ERROR().'<br>'.'Limpar a tabela: '.'<br>'.$sSQLQuery);
		
		$aLstLicAut = EXPLODE('|',$sQtd_LicApp.'|');
	    ForEach ( $aLstLicAut as $sLstLicAut ) {
	       $aLstTmp = EXPLODE(";",$sLstLicAut.";");
	       $sCha_Gerada = @$aLstTmp[1];
	       If ( STRLEN($sCha_Gerada)==0) {
		      CONTINUE;
		   }	 
		 
		   If ( STRLEN($sCha_Gerada)>0) {
		      $sSQLQuery =
	             "INSERT INTO cad_app_licenca ".
		            "( APP_LICENCA ) ".
		         "VALUES ".
		            "('".$sCha_Gerada."');";
	          MYSQL_QUERY( $sSQLQuery ) Or Die(MYSQL_ERROR().'<br>'.'Simdesk para Ecook App Licença : '.'<br>'.$sSQLQuery);
		   }
	    }
	  
	    // se a quantidade de licenças no ecook diminuiu passa para falso o campo autorizado da tabela cad_terminal_app
        If ($nQtdLicSimdesk<$nQtdLicEcook) {
           $sSQLQuery =
		      "UPDATE cad_terminal_app SET ".
		         "APP_AUTORIZADO=0;";
		      
		   MYSQL_QUERY($sSQLQuery) or die('ERRO NO UPDATE. '.mysql_error().' : '.$sSQLQuery);   
		   If ($nQtdLicSimdesk > 0) {
		      $sRet_Javs .= Info_Evento('<br> Por favor operador responsável pelo estabelecimento<br> deverá redefinir quais dispositivos serão autorizados ! ');
		   }
		
	    }
	    
		$nQtdLicEcook = $nQtdLicSimdesk;
	  }
	  
	  $sCab_ListaAppLicCab =
	     '<tr>'.
		    '<td width="84px">&nbsp;&nbsp;</td>'.
			'<td width="130px" align="left" style="font-size: 12px;font-weight:bold; font-weight:bold;'.$sCorLin.'">'.'Acessos Permitidos...:'.'</td>'.
		    '<td colspan="4" align="left" style="font-size: 12px; font-weight:bold;color:#FF0000">&nbsp;&nbsp;'.$nQtdLicEcook.'</td>'.
	     '</tr>'.
		 '';
	  
	  $sCab_ListaNenhum =
	     '<tr>'.
		    '<td width="84px">&nbsp;&nbsp;</td>'.
		    '<td width="130px" align="center" style="font-size: 12px;font-weight:bold;font-weight:bold;'.$sCorLin.'">'.'Acessos Permitidos...:'.'</td>'.
		    '<td colspan="4" align="left" style="font-size: 12px;font-weight:bold;color:#FF0000">&nbsp;&nbsp;'.$nQtdLicEcook.'</td>'.
	        '';
	  
	  
	  //
	  
	     
      //
	  $sCab_ListaAppMen = 
	     '<tr>'.
		    '<td width="130px" align="center" style="font-size: 12px;border-width: 2px; border-style: solid; border-color: #888888; font-weight:bold;'.$sCorLin.'">'.'Número do Terminal'.'</td>'.
		    '<td width="114px"  align="center" style="font-size: 12px;border-width: 2px; border-style: solid; border-color: #888888; font-weight:bold;'.$sCorLin.'">'.'Id do Dispositivo'.'</td>'.
            '<td width="250px"  align="center" style="font-size: 12px;border-width: 2px; border-style: solid; border-color: #888888; font-weight:bold;'.$sCorLin.'">'.'Apelido do Dispositivo'.'</td>'.
		    '<td width="100px"  align="center" style="font-size: 12px;border-width: 2px; border-style: solid; border-color: #888888; font-weight:bold;'.$sCorLin.'">'.'Autorização'.'</td>'.
			'<td width="100px"  align="center" style="font-size: 12px;border-width: 2px; border-style: solid; border-color: #888888; font-weight:bold;'.$sCorLin.'">'.'Ação'.'</td>'.
		    '<td width="12px" align="center"></td>'.
		 '</tr>'.
		 '';		 
	  
	  
	  
	  //
      $sSQLQuery =
         "SELECT ".
            "APP_CODIGOI, ".
		    "APP_N_TERMINAL,  ".
			"APP_ID_TERMINAL, ".
            "APP_DESCRITIVO , ".
			"APP_AUTORIZADO   ".
         "FROM cad_terminal_app ".
	     ";";
	  
	  $RowsT = MYSQL_QUERY( $sSQLQuery ) Or Die( $sSQLQuery.'<br>'.MYSQL_ERROR() );
      While ($RowT = MYSQL_FETCH_ARRAY($RowsT, MYSQL_ASSOC)) {
	     $sImgBotSel = 'icone_ok.png';
		 $sTitBotSel = ' Autorizar este Dispositivo';
		 $sAutorizado = '<span style="color:#FF0000;">Não Autorizado</span>';	 
         If ( $RowT['APP_AUTORIZADO']>0 ) { // Terminal Autorizado
		    $sImgBotSel = 'btimg_remover.png';
			$sTitBotSel = 'Remover a Autorização deste Dispositivo';
			$sAutorizado = '<span style="color:#228B22;">Autorizado</span>';	 
		 }
		 
		 $sJav_ClkAlt =
		    "parent.Qdr_Prompt_H(true,".
			   "'Tem certeza que deseja alterar o Apelido do dispositivo ?'".
			   ",".
		       JAVA_CharCode(
			      "if (_NUM_BOT_==1) { ".
	                    "JanEspera(true, '... Aguarde...');".
                        "setTimeout( function() { ".
					       "document.forms.fmPApp_Lic.COD_APP.value='".$RowT['APP_CODIGOI']."';".
						   "document.forms.fmPApp_Lic.acao.value='ALT_APELIDO'; ".
                           "document.forms.fmPApp_Lic.submit();".
                        "}, ".$nTmpFrmEnv.");".
			         "}"
		          ).
			      ",['Sim','Não']".
			   ");".
			   '';
		 
		 
		 
		 
		 
		 $sJav_ClkSel =
		    ( $RowT['APP_AUTORIZADO']>0 ?
			   "parent.Qdr_Prompt_H(true,".
			      "'Tem certeza que deseja remover a Autorização deste dispositivo ?'".
			      ",".
		          JAVA_CharCode(
			         "if (_NUM_BOT_==1) { ".
	                    "JanEspera(true, '... Aguarde...');".
                        "setTimeout( function() { ".
					       "document.forms.fmPApp_Lic.COD_APP.value='".$RowT['APP_CODIGOI']."';".
						   "document.forms.fmPApp_Lic.acao.value='REM_DISP'; ".
                           "document.forms.fmPApp_Lic.submit();".
                        "}, ".$nTmpFrmEnv.");".
			         "}"
		          ).
			      ",['Sim','Não']".
			   ");"
			 :  
			   "parent.Qdr_Prompt_H(true,".
			      "'Tem certeza que deseja Autorizar este dispositivo ?'".
			      ",".
		          JAVA_CharCode(
			         "if (_NUM_BOT_==1) { ".
	                    "JanEspera(true, '... Aguarde...');".
                        "setTimeout( function() { ".
					       "document.forms.fmPApp_Lic.COD_APP.value='".$RowT['APP_CODIGOI']."';".
						   "document.forms.fmPApp_Lic.QTD_LIC.value='".$nQtdLicEcook."';".
                           "document.forms.fmPApp_Lic.acao.value='SEL_DISP'; ".
                           "document.forms.fmPApp_Lic.submit();".
                        "}, ".$nTmpFrmEnv.");".
			         "}"
		          ).
			      ",['Sim','Não']".
			   ");"
			  
             ).
    	     "";
		 
		 $sJav_Clk =
		    "parent.Qdr_Prompt_H(true,".
			   "'Tem certeza que deseja excluir este dispositivo ?'".
			   ",".
		       JAVA_CharCode(
			      "if (_NUM_BOT_==1) { ".
	                 "JanEspera(true, 'Excluindo... Aguarde...');".
                     "setTimeout( function() { ".
					    "document.forms.fmPApp_Lic.COD_APP.value='".$RowT['APP_CODIGOI']."';".
                        "document.forms.fmPApp_Lic.acao.value='CONFIRM_EXC'; ".
                        "document.forms.fmPApp_Lic.submit();".
                     "}, ".$nTmpFrmEnv.");".
			      "}"
		       ).
			   ",['Sim','Não']".
			");".
			"";
			
		 $sHtml_ListaAppLic .=
            '<tr>'.
			   '<td width="130px" style="font-size: 12px;border-width: 2px; border-style: solid; border-color: #888888; font-weight:bold;">&nbsp;'.@$RowT['APP_N_TERMINAL'].'</td>'.
			   '<td width="100px" style="font-size: 12px;border-width: 2px; border-style: solid; border-color: #888888; font-weight:bold;">&nbsp;'.@$RowT['APP_ID_TERMINAL'].'</td>'.
	           '<td width="250px" style="font-size: 12px;border-width: 2px; border-style: solid; border-color: #888888; font-weight:bold;">&nbsp;'.
			      '<span style="cursor:pointer;" onclick="'.$sJav_ClkAlt.'" title="Alterar o apelido deste dispositivo" >'.  
				     @$RowT['APP_DESCRITIVO'].
                  '</span>'.				
			   '</td>'.
			   '<td width="100px" align="center"  style="font-size: 12px;border-width: 2px; border-style: solid; border-color: #888888; font-weight:bold;">&nbsp;'.
			    //( $RowT['APP_AUTORIZADO']>0 ?
					$sAutorizado.
					//'<img src="./images/'.$sImgBotSel.'" width="20px" height="20px" border="0" style="cursor:pointer;" onclick="'.$sJav_ClkSel.'" title="'.$sTitBotSel.'">'
       	        //:		      
				    //'<input type="button" onclick="'.$sJav_ClkSel.'" value="Autorizar" title="'.$sTitBotSel.'">'
			    // ).
			   '</td>'.
			   '<td width="100px" align="center" style="font-size: 12px;border-width: 2px; border-style: solid; border-color: #888888; font-weight:bold;">'.
			      //'<img src="./images/btimg_remover.png" border="0" style="cursor:pointer;" title="Excluir Dispositivo" onclick="'.$sJav_Clk.'" title="Excluir este Dispositivo">'. 
	              '<img src="./images/'.$sImgBotSel.'" width="20px" height="20px" border="0" style="cursor:pointer;" onclick="'.$sJav_ClkSel.'" title="'.$sTitBotSel.'">'.
			   '</td>'.
			   '';
			
    
		 $sHtml_ListaAppLic .= '</tr>';
	  
	  }
	  
	  $sRod_ListaAppLic = 
	     '<tr>'.
		    '<td width="84px">&nbsp;&nbsp;</td>'.
			'<td width="130px" align="left" style="font-size: 12px;font-weight:bold; font-weight:bold;'.$sCorLin.'">'.'Endereço do Servidor:'.'</td>'.
		    '<td width="" align="left" style="font-size: 12px;font-weight:bold;">&nbsp;&nbsp;'.$sCam_App.'</td>'.
		 '</tr>'.
		 '';
		
	  
	  $sCod_CliSen = 
	     '<tr>'.
		     '<td width="84px">&nbsp;&nbsp;</td>'.
			 '<td width="130px" align="left" style="font-size: 12px;font-weight:bold; font-weight:bold;'.$sCorLin.'">'.'Código do Cliente.......:'.'</td>'.
		     '<td width="" align="left" style="font-size: 12px; font-weight:bold;">&nbsp;&nbsp;<span style="color:#FF0000;">'.$Dados_Empresa['EMP_CODIGO'].'</span>'.'</td>'.
		 '</tr>'.
		 '<tr>'.
		    '<td width="84px">&nbsp;&nbsp;</td>'.
			'<td width="130px" align="left" style="font-size: 12px;font-weight:bold; font-weight:bold;'.$sCorLin.'">'.'Senha de internet.......:'.'</td>'.
		    '<td width="" align="left" style="font-size: 12px; font-weight:bold;">&nbsp;&nbsp;'.$sSen_Cli.'</td>'.
		 '</tr>'.	 
		 '';	
	  
	  If ( STRLEN($sHtml_ListaAppLic)>0 ) {
	     $sHtml_ListaAppLic = 
		    '<table border="0">'.
		       $sHtml_ListaAppLic.
			   //$sRod_ListaAppLic.
			'</table>';
	  
	     $sHtml_ListaAppLicCab = 
		    '<table border="0">'.
		       $sCab_ListaAppLicCab.
			   $sRod_ListaAppLic.
			   $sCod_CliSen.
			'</table>';
	  
	     $sHtml_ListaAppLicMen =
		    '<table border="0">'.
		       $sCab_ListaAppMen.
			'</table>';
		 
		 
		 //$sHtml_ListaAppLicRod = 
	     //    '<table border="0">'.
		 //      $sRod_ListaAppLic.
		//	 '</table>';
	  } Else {
	     $sHtml_ListaAppLic = 
		    '<table border="0">'.
		       $sCab_ListaNenhum.
			   $sRod_ListaAppLic.
			   $sCod_CliSen.
			'</table>'.   
			'<table border="0">'.
			   '<tr>'.
			      '<br>'.
				  '<br>'.
				  '<td align="center" valign="middle" style="font-size:18px; font-weight:bold; color:#888888;">'.
	  	             'NENHUM TERMINAL ENCONTRADO'.
				  '</td>'.
			   '</tr>'.
			'</table>'. 
			'';
	  }
	  
	  
	  $sRet_Javs .=
         "parent.document.getElementById('dv_AppListaCab').innerHTML = ".JAVA_CharCode($sHtml_ListaAppLicCab).";".
		 "parent.document.getElementById('dv_AppListaMen').innerHTML = ".JAVA_CharCode($sHtml_ListaAppLicMen).";".
		 "parent.document.getElementById('dv_AppListaTab').innerHTML = ".JAVA_CharCode($sHtml_ListaAppLic).";".
		 //"parent.document.getElementById('dv_AppListaRod').innerHTML = ".JAVA_CharCode($sHtml_ListaAppLicRod).";".
		 "";
			
		
		
   //
   } ElseIf ( $sAcao=="SEL_DISP" ) {
      $nApp_Codigo = @$_REQUEST['COD_APP']+0;
	  $nApp_QtdLic = @$_REQUEST['QTD_LIC']+0;
      $bTrava = False;
	  $sMensagem_Trava = '';
	  
	  If ( $nApp_Codigo>0 ) {
        // pega a quantidade de DISPOSITIVO AUTORIZADO 
	     $sSQLRequestD = "SELECT COUNT(*) FROM cad_terminal_app WHERE APP_AUTORIZADO;";
         $Rows_CadAppD = MYSQL_QUERY($sSQLRequestD) or Die(MYSQL_ERROR());
         $Rows_CadAppD = MYSQL_FETCH_ARRAY($Rows_CadAppD);
         $nQtdAut = @$Rows_CadAppD[0]+0; 
   	     $nQtdAut = $nQtdAut+1;
       
         If ( $nQtdAut> $nApp_QtdLic ) {
	       $bTrava = True;
	       $sMensagem_Trava = 'Quantidade selecionada<br>maior que quantidade de licença permitida.<br>Remova a Autorização na lista de algum dispositivo !';
	     
	     }	  
	    
	     If ($bTrava) {
	        $sRet_Javs .= "parent.JanEspera(false); ".				    
	    	              Info_Evento($sMensagem_Trava,1);
	     } Else {
	        $sSQLRequest = "UPDATE cad_terminal_app SET APP_AUTORIZADO=1 WHERE APP_CODIGOI=".$nApp_Codigo." ;";
            MYSQL_QUERY($sSQLRequest) or die(MYSQL_ERROR());
	   
	        $sRet_Javs .=
	           "parent.JanEspera(false); ".				    
	           "parent.document.forms.fmPApp_Lic.acao.value='PUXAR_TAB';".
	           "parent.document.forms.fmPApp_Lic.submod.value='';".
               "parent.document.forms.fmPApp_Lic.submit(); ".
			   "";
	     }	  
      }
   } ElseIf ( $sAcao=="REM_DISP" ) {
     $nApp_Codigo = @$_REQUEST['COD_APP']+0;
	 $sSQLRequest = "UPDATE cad_terminal_app SET APP_AUTORIZADO=0 WHERE APP_CODIGOI=".$nApp_Codigo." ;";
     MYSQL_QUERY($sSQLRequest) or die(MYSQL_ERROR());
	   
	 $sRet_Javs .=
	    "parent.JanEspera(false); ".				    
	    "parent.document.forms.fmPApp_Lic.acao.value='PUXAR_TAB';".
	    "parent.document.forms.fmPApp_Lic.submod.value='';".
        "parent.document.forms.fmPApp_Lic.submit(); ".
		"";
	 
   } ElseIf ( $sAcao=="ALT_APELIDO" ) {
	   
	   $aSessao[$sNomeAcesso.'_Vars']['ExeJava_Fim_Edt_App'] =
	      "parent.".$sJavaDesTravarJ.
          //"parent.JanEspera(false); ".				    
	      "parent.document.forms.fmPApp_Lic.acao.value='PUXAR_TAB';".
	      "parent.document.forms.fmPApp_Lic.submod.value='';".
          "parent.document.forms.fmPApp_Lic.submit(); ".
		  "";
		  
	   $aSessao[$sNomeAcesso.'_Vars']['ID_DISP'] = @$_REQUEST['COD_APP']+0; 
	   
	   $sRet_Javs .=
	     "parent.JanEspera(false); ".
		 "parent.".$sJavaTravarJ.
		 "sAntTarget = parent.document.forms.fmPApp_Lic.target;".
         "sAntModulo = parent.document.forms.fmPApp_Lic.mod.value;".
         "sAntSubModulo = parent.document.forms.fmPApp_Lic.submod.value;".
         "sAntNomeAcs = parent.document.forms.fmPApp_Lic.nomeacs.value;".
		 "parent.document.forms.fmPApp_Lic.target = 'car_CHAAPP8';".
		 "parent.document.forms.fmPApp_Lic.mod.value = 'edt_lib_app_garcom';".
         "parent.document.forms.fmPApp_Lic.acao.value='';".
		 "parent.document.forms.fmPApp_Lic.submod.value='APP_EDT';".
         "parent.document.forms.fmPApp_Lic.nomeacs.value='CHAAPP';".
         //"parent.document.forms.fmPApp_Lic.APP_Codigo.value=sSelIndice;".
         "parent.document.forms.fmPApp_Lic.submit();".
         "parent.document.forms.fmPApp_Lic.target = sAntTarget;".
         "parent.document.forms.fmPApp_Lic.mod.value = sAntModulo;".
         "parent.document.forms.fmPApp_Lic.submod.value = sAntSubModulo;".
         "parent.document.forms.fmPApp_Lic.nomeacs.value = sAntNomeAcs;".
		 '';
    
   
		
   } ElseIf ( $sAcao=='CONFIRM_EXC' ) {
       $nApp_Codigo = @$_REQUEST['COD_APP']+0;
       If ( $nApp_Codigo>0 ) {
          $sSQLRequest = "UPDATE cad_terminal_app SET WHERE APP_CODIGOI=".$nApp_Codigo." ;";
          MYSQL_QUERY($sSQLRequest) or die(MYSQL_ERROR());
       }

	   
	   $sRet_Javs .=
	         "parent.JanEspera(false); ".				    
	         "parent.document.forms.fmPApp_Lic.acao.value='PUXAR_TAB';".
	         "parent.document.forms.fmPApp_Lic.submod.value='';".
             "parent.document.forms.fmPApp_Lic.submit(); ".
			 "";
	   
	   
	   
	
   // >> Fechar janela
   } ElseIf ( $sAcao=="FECHAR" ) {
      //
      UNSET( $aSessao[$sNomeAcesso.'_Vars']['ExeJava_Fim_Edt_App'] );
	  UNSET( $aSessao[$sNomeAcesso.'_Vars']['ID_DISP'] );
	  
	  $sRet_Javs .=
	     "parent.document.getElementById('dv_MenuL_Barra').style.visibility='visible';".
         "parent.RmElem('".$oJan->sIdObj."');";
   }
   
}
//
?>