<?php
// Criar objeto Janela
$oJanelaPrinc = New R_Janela();
$oJanelaPrinc->sIdObj  = $sNomeIdJEdt_Gru.'_AI';
$oJanelaPrinc->nWidth  = 300;   // Largura
$oJanelaPrinc->nHeight = 0;     // Altura
$oJanelaPrinc->nTop    = 200;
$oJanelaPrinc->nLeft   = 0;
$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
$oJanelaPrinc->sTitulo = 'Alterar Item';
$sJavaTravarJ = "parent.document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);";
$oJanelaPrinc->sJavOnClickF =
     $sJavaTravarJ.
     "parent.document.forms.fmECadGruProI.acao.value='FECHAR'; ".
     "parent.document.forms.fmECadGruProI.submit();".
	 "";
$oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."4.Teclas_F(this,event);";
//
$a_ListaGruPr = @$aSessao['AGR_L_GRUPOS'];
$nGru_CodigoI = @$_POST['Gru_CodigoI']+0;
$nGru_Num_Ord = @$_POST['Gru_Num_Ord']+0;
//
// MONTAGEM DA JANELA
If ( EMPTY($sAcao) ) {
   //
   $oJanelaPrinc->aIdsObjList = ARRAY('iCadEProAgr_NumOrd');
   $nGru_Num_Ord = @$a_ListaGruPr[$nGru_CodigoI]['NUMORD'];
   //
   // Tela HTML
   //
   $sCSS_Inputs = 'background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;';
   $sRet_TelaJ_HTML =
	  $oJanelaPrinc->MontaJanHTML(True).
      '<form name="fmECadGruProI" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'5">'.
       '<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="Gru_CodigoI" type="hidden" value="'.$nGru_CodigoI.'">'.
	  '<table width="100%">'.
	   '<tr>'.
	    '<td align="right" width="100px">'.
	     'Item: '.$nGru_CodigoI.
		'</td>'.
		'<td align="left">'.
	     '- '.@$a_ListaGruPr[$nGru_CodigoI]['GRU_DESCRI'].
		'</td>'.
	   '</tr>'.
	   '<tr>'.
	    '<td align="right">'.
	     'Ordem:'.
		'</td>'.
		'<td align="left">'.
	     '<input id="iCadEProAgrI_NumOrd" name="Gru_Num_Ord" value="'.$nGru_Num_Ord.'" type="text" maxlength="3" style="width:40px; height:22px; '.$sCSS_Inputs.'">'.
		'</td>'.
	   '</tr>'.
	  '</table>'.
      '</form>'.
	  '<div style="width:100%; height:1px; background-color:#91D8F8;"></div>'.
   	  '<table width="100%"></tr>'.
   	   '<td width="4px" height="40px" align="left">&nbsp;</td>'.
   	   '</td>'.
   	   '<td>'.
   	    HTML_Botao( 3, 'CadEProAgrI_BT_Sav', "JanEspera(true, 'Salvando o cadastro aguarde...');".
                                             "document.forms.fmECadGruProI.acao.value='SALVAR'; ".
	                                         "document.forms.fmECadGruProI.submit();"
		             , 'Confirma','images/btimg_ativar.png').'&nbsp;&nbsp;'.
   	   '</td>'.
   	   '<td width="120px" align="left">'.
   	    HTML_Botao( 3, 'CadEProAgrI_BT_Fec', $oJanelaPrinc->sJavOnClickF
                     , 'Sair (ESC)','images/btimg_fechar.png').
   	   '</td>'.
   	  '</tr></table>'.
	  $oJanelaPrinc->MontaJanHTML(False);
   //
   $sRet_Javs .=
      "function Teclas_F( Objeto, Evento ) {".
         "vNumTecla = parent.Tecla_Apertada(Evento);".
         "if ( vNumTecla==13) { ".         //  ** [ENTER] **         // (Gravar)
	 	    "if ( parent.document.getElementById('CadEProAgrI_BT_Sav').style.display != 'none' ) {".
                 "setTimeout( parent.document.getElementById('CadEProAgrI_BT_Sav').onclick , 100);".
	 	    "}".
         "} else if ( vNumTecla==116) { ".  // ** [F5] **         Não atualizar
	 	    //
         "} else if ( vNumTecla==27) { ".  //  ** [ESC] **        // (SAIR)
             "setTimeout( parent.document.getElementById('CadEProAgrI_BT_Fec').onclick , 100);".
         "} else {".
             "return true;".
         "}".
         "return false;".
      '}'.
      '';
   $sRet_JavsPos .=
      'parent.document.getElementById("iCadEProAgrI_NumOrd").focus();'.
      '';
   //
//
// SALVAR
} ElseIf ( $sAcao=="SALVAR" ) {
   $a_ListaGruPr[$nGru_CodigoI]['NUMORD'] = $nGru_Num_Ord;
   $sRet_Javs .=
      "parent.Car_".$sNomeAcesso."3.bAlterou=true;".
      'parent.Car_'.$sNomeAcesso.'3.P_Atu();'.
      "parent.JanEspera(false);".
      $oJanelaPrinc->sJavOnClickF.
	  '';
//
// FECHAR
} ElseIf ( $sAcao=="FECHAR" ) {
   $sRet_Javs .= 
      "parent.RmElem('".$oJanelaPrinc->sIdObj."'); ".
	  "parent.Disabled_In_Elems('".$sNomeIdJEdt_Gru."',false);".
	  "parent.document.getElementById('".$sNomeIdJEdt_Gru."_Travar').style.visibility='hidden';".
	  'parent.document.getElementById("iCadEProAgr_LstNvg").focus();'.
	  "";
}
//
IF ( ISSET($aSessao['AGR_L_GRUPOS']) ) { $aSessao['AGR_L_GRUPOS'] = $a_ListaGruPr; }
?>