<?php
$sNomeIdJEdt_Cad = 'iJan_EdtCadAPP';
$nTmpFrmEnv = 300;


$bDir_Consult = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'V');
$bDir_Alterar = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'A');

//
//  ** CADASTRO (NOVO/EDITA) **
If ( $sSubModulo=="APP_EDT" ) {
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJEdt_Cad; 
    $oJanelaPrinc->nTop    = 40;
    $oJanelaPrinc->nLeft   = 25;
    $oJanelaPrinc->nWidth  = 710;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
	$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Alterar o Apelido do Dispositivo';
	//
	$oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."8.Teclas_F(this,event);";
    $sJavaTravarJ = "document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);";
	$oJanelaPrinc->sJavOnClickF =
	      $sJavaTravarJ.
		  "document.forms.fmELibAPP.acao.value='FECHAR'; ".
		  "document.forms.fmELibAPP.submit();".
		  "";
	//
	$bMontarJanela = true;
    
	
	$nApp_Codigo = $aSessao[$sNomeAcesso.'_Vars']['ID_DISP'];
	
	$sApp_Descritivo =@$_POST['App_Descritivo'];
	//$sApp_IdTrm      =@$_POST['App_IdTrm'];
	//$nApp_NumTrm     =(@$_POST['App_NumTrm']+0);
	
	
	
	// SALVAR
    If ( $sAcao=="SALVAR" ) {
	   $bGravarReg = False;
	   $bCampoInco = True;
	   $sMensagem_Trava = '';
	   $bTrava = False;
	   If ($bDir_Alterar) {
          $bGravarReg = True;
	   } Else {
          $sRet_Javs .=
            Info_Evento('ALERTA: Você não tem previlégio para alterar este Terminal.').
            "";
	   }
	   
	   
	   
	   
	   If ($bGravarReg) {
	      
		  If ( STRLEN($sApp_Descritivo) > 0 ) {
		     $bCampoInco = False;  
		  }
		  
	      
		  
		  If ( $bCampoInco ) {
	         $sRet_Javs .= Info_Evento('Apelido inválido.');
	         $bGravarReg = False;
	      }
	   }
	   
	   
	   If ($bGravarReg) {
	      
		  // Salvar registro
		  $sSQLQuery =		  
             "UPDATE cad_terminal_app SET ".
                'APP_DESCRITIVO='.SQL_Bin(UTF8_DECODE($sApp_Descritivo)).' '.
             "WHERE APP_CODIGOI=".$nApp_Codigo."; ";
	         
			//die($sSQLQuery); 
			 MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery."<br>".MYSQL_ERROR());
          
	      $sRet_Javs .= "document.location.href = './car_js.php?mod=".$sModulo."&submod=".$sSubModulo."&acao=FECHAR&nomeacs=".$sNomeAcesso."&acaoAnt=".$sAcao."';";
       }
	   $bMontarJanela = false;
    //
    // FECHAR
    } ElseIf ( $sAcao=="FECHAR" ) {
       
	   
	   $sRet_Javs .= 
		  $aSessao[$sNomeAcesso.'_Vars']['ExeJava_Fim_Edt_App'].
		  "parent.RmElem('".$oJanelaPrinc->sIdObj."');".
		  "";
	   $bMontarJanela = false;
	
	// PUXAR REGISTRO
	} Else {
	  
	  $sSQLQuery =
       "SELECT ".
          "APP_CODIGOI, ".
          "APP_DESCRITIVO, ".
          "APP_ID_TERMINAL, ".
          "APP_N_TERMINAL  ".
       "FROM cad_terminal_app ".
	   "WHERE APP_CODIGOI=".$nApp_Codigo.
       ";";
	  
	  
       $Row_CadApp = MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR());
       If (! $Row_CadApp = MYSQL_FETCH_ARRAY($Row_CadApp)) {
	      $Row_CadApp = ARRAY();
	   }
	  
	}
	If ($bMontarJanela) {
		 
	   //
	   $oJanelaPrinc->aIdsObjList =
	      ARRAY(
		     'iCadEApp_Descritivo','iCadEApp_IdTrm','iCadEApp_NumTrm'
		  );
	   //
       // Tela HTML
	   //
      //
	   $nApp_Codigo = Str_Zero($nApp_Codigo, 4);
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
             '<form name="fmELibAPP" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'9">'.
                '<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.'">'.
				'<table width="100%">'.
		           '<tr>'.
       	              '<td width="4px" height="24px">&nbsp;</td>'.
       	              '<td align="right" width="145px">'.
		                 'Código:'.
			          '</td>'.
					  '<td align="left">'.
					  '<input id="iCadEApp_Codigo" name="APP_Codigo" type="text" value="'.$nApp_Codigo.'" readonly="readonly" style="width:60px; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
       	              '</td>'.
       	           '</tr>'.
		        '</table>'.   
       	        //
				'<table width="100%">'.
		           '<tr>'.
       	              '<td width="4px" height="24px">&nbsp;</td>'.
       	              '<td align="right" width="145px">'.
		                 'Apelido:'.
			          '</td>'.
				      '<td align="left">'.
				         '<input id="iCadEApp_Descritivo" name="App_Descritivo" type="text" value="'.@$Row_CadApp['APP_DESCRITIVO'].'" maxlength="30" style="width:80%; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
       	                 '<span style="color:#FF0000;font-size: 14px;">'.
			                '&nbsp;&nbsp;*'.
			             '</span>'.
					  '</td>'.
                      '<td width="4px" height="24px">&nbsp;</td>'.					  
			       '</tr>'.
		        '</table>'.
		     	//
		        /*'<table width="100%">'.
		          '<tr>'.
       	             '<td width="4px" height="24px">&nbsp;</td>'.
       	             '<td align="right" width="145px">'.
		                'ID do Terminal:'.
			         '</td>'.
					 '<td align="left">'.
					    '<input id="iCadEApp_IdTrm" name="App_IdTrm" type="text" value="'.@$Row_CadApp['APP_ID_TERMINAL'].'" maxlength="60" style="width:80%; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
       	             '<span style="color:#FF0000;font-size: 14px;">'.
			           '&nbsp;&nbsp;*'.
			         '</span>'.
					 
					 '<br>'.
			         '<span style="color:#FF0000;">'.
			            'Ex: 3494342B-6E05-4617-B2BD-B2245D002D4A (Sem ; ponto e virgula no final)&nbsp;&nbsp;'.
			         '</span>'.
					 
					 '</td>'.
					 '<td width="4px" height="24px">&nbsp;</td>'.					  
				  '</tr>'.
		        '</table>'.
		        '<table width="100%">'.
		           '<tr>'.
       	              '<td width="4px" height="24px">&nbsp;</td>'.
       	              '<td align="right" width="145px">'.
		                 'Terminal:'.
			          '</td>'.
				      '<td align="left">'.
				         '<input id="iCadEApp_NumTrm" name="App_NumTrm" type="text" value="'.@$Row_CadApp['APP_N_TERMINAL'].'" maxlength="4" size="6" style="width:30%; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
       	                 '<span style="color:#FF0000;font-size: 14px;">'.
			                '&nbsp;&nbsp;*'.
			             '</span>'.
					  '</td>'.
                      '<td width="4px" height="24px">&nbsp;</td>'.					  
			       '</tr>'.
		        '</table>'.*/
		  
		  //
		  //
          '</form>'.
       	  '<table width="100%"></tr>'.
       	   '<td width="4px" height="40px" align="left">&nbsp;</td>'.
       	   '</td>'.
       	   '<td>'.
       	    HTML_Botao( 3, 'CadEApp_BT_Svl', 
			                                 "var fm = parent.document.forms.fmELibAPP;".
											 "fm.acao.value='SALVAR'; ".
    	                                     "fm.submit();"
			             , 'Salvar (F10)','images/btimg_salvar.png').'&nbsp;&nbsp;'.
       	   '</td>'.
       	   '<td width="114px" align="left">'.
       	    HTML_Botao( 3, 'CadEApp_BT_Fec', $oJanelaPrinc->sJavOnClickF
                         , 'Sair (ESC)' ,'images/btimg_fechar.png').
       	   '</td>'.
       	  '</tr></table>'.
    	  $oJanelaPrinc->MontaJanHTML(False);
       //
       $sRet_JavsPos .=
    	  'parent.document.getElementById("iCadEApp_Descritivo").focus();'.
		  ($bDir_Alterar ? '' :
		    "parent.document.getElementById('CadEApp_BT_Svl').style.display='none';"
		  ).
		  //
		  "function Teclas_F( Objeto, Evento ) {".
             "vNumTecla = parent.Tecla_Apertada(Evento);".
             "if ( vNumTecla==121) { ".        //  ** [F10] **         // (Gravar)
			     "if ( parent.document.getElementById('CadEApp_BT_Svl').style.display != 'none' ) {".
                     "setTimeout( parent.document.getElementById('CadEApp_BT_Svl').onclick , 100);".
				 "}".
		     "} else if ( vNumTecla==116) { ".  // ** [F5] **         Não atualizar
                 //
		     "} else if ( vNumTecla==27) { ".   // ** [ESC] **         // (SAIR)
                 "setTimeout( parent.document.getElementById('CadEApp_BT_Fec').onclick , 100);".
		     "} else if ( vNumTecla==13) { ".   // ** [ENTER] **
				 "sTempId = parent.Proximo_TabObj(parent.document.getElementById('".$oJanelaPrinc->sIdObj."'),parent.sIdHasFocus);".
				 "if ( sTempId.length>0 ) {".
				     "parent.document.getElementById(sTempId).focus();".
				 "} else {".
    	             'parent.document.getElementById("iCadEApp_Descritivo").focus();'.
				 "}".
			     //
			 "} else {".
			     "return true;".
			 "}".
			 "return false;".
		  '}'.
		  //
    	 "";
       //
	}
//

}
?>