<?php
// Criar objeto Janela
$oJanelaPrinc = New R_Janela();
$oJanelaPrinc->sIdObj  = $sNomeIdJEdt_Gru;
$oJanelaPrinc->nWidth  = 720;   // Largura
$oJanelaPrinc->nHeight = 0;     // Altura
$oJanelaPrinc->nTop    = 10;
$oJanelaPrinc->nLeft   = 0;
$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
$oJanelaPrinc->sTitulo = 'Agrupador de grupo de produtos';
$sJavaTravarJ = "parent.document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);";
$oJanelaPrinc->sJavOnClickF =
     $sJavaTravarJ.
     "parent.document.forms.fmECadGruPro.acao.value='FECHAR'; ".
     "parent.document.forms.fmECadGruPro.submit();".
	 "";
$oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."3.Teclas_F(this,event);";
//
$nSel_AgrPro  = @$_REQUEST['Ite_Cod_Gru']+0;
$sAgr_CodigoI = @$_REQUEST['Agr_CodigoI'];
$a_ListaGruPr = @$aSessao['AGR_L_GRUPOS'];
$nGru_CodigoI = @$_POST['Gru_CodigoI']+0;
//
// Criar objeto GRID dos grupos
$oTabelaRegs = New Pad_GridPesq();
$oTabelaRegs->bUsarSoMatriz = True;
$oTabelaRegs->sIdObjTabela  = 'iQdr_ListaGru';
$oTabelaRegs->GLstCampos( 'GRU_CODIGO,CÓdigo,50px,STRZERO=3;'.
                          'GRU_DESCRI,Descrição;'.
						      'NUMORD,Ordem,50px,STRZERO=3;'.
						  'GRU_GARVIS,Visível no GarÇom ?,70px,LOGICA;'
						);
$oTabelaRegs->sCampoIndice = 'GRU_CODIGO';
$oTabelaRegs->nWidth  = $oJanelaPrinc->nWidth;
$oTabelaRegs->nHeight = 180;   // Altura
$oTabelaRegs->sCampoOnClick  = "Car_".$sNomeAcesso."3.P_Sel(<NUMCAM>); ";
                               "";
$oTabelaRegs->sLinhaOnClick = "Car_".$sNomeAcesso."3.PRow_Sel(<QTDCOL>,<SELLIN>);";
$oTabelaRegs->sJavSelectReg = "sSelIndice = S_Indice;".
                              "if (parseInt(sSelIndice)>0) {".
                                  "parent.document.getElementById('iCadEProAgr_BT_Rmv').style.display='inline-block';".
                                  "parent.document.getElementById('iCadEProAgr_BT_Alt').style.display='inline-block';".
                              "}".
                              'parent.document.getElementById("iCadEProAgr_LstNvg").focus();';
//
// PUXAR REGISTRO DO GRUPO
If ( $sAcao=="PUXAR" ) {
   //
   $Row_CadAgr = MYSQL_QUERY( "SELECT * FROM cad_agrupador_grupo_produtos WHERE AGR_COD_GRU=0 AND AGR_CODIGOI=".$nSel_AgrPro.";" ) Or Die(MYSQL_ERROR());
   $Row_CadAgr = MYSQL_FETCH_ARRAY($Row_CadAgr);
   //
   $sHTML_ComboGru = '<option value="0">- Novo agrupador de grupos -</option>';
   $RowsT_CadGru = MYSQL_QUERY( "SELECT AGR_CODIGOI,AGR_DESCRIC,AGR_CDATIVO FROM cad_agrupador_grupo_produtos WHERE AGR_COD_GRU=0 ORDER BY AGR_DESCRIC" ) Or Die(MYSQL_ERROR());
   While ($RowT_CadGru = MYSQL_FETCH_OBJECT($RowsT_CadGru)) {
       $sHTML_ComboGru .= '<option value="'.$RowT_CadGru->AGR_CODIGOI.'" '.($RowT_CadGru->AGR_CODIGOI==$nSel_AgrPro ? 'selected' : '').'>'.Str_Zero($RowT_CadGru->AGR_CODIGOI,3).' - '.$RowT_CadGru->AGR_DESCRIC.($RowT_CadGru->AGR_CDATIVO ? '' : ' (INATIVO)').'</option>';
   }
   //
   $aARQ = ARRAY();
   If ( $Row_CadAgr['AGR_COD_ARQ']>0 ) {
      $Row_CadArq = MYSQL_QUERY( "SELECT * FROM cad_arquivos WHERE ARQ_CODIGOI=".$Row_CadAgr['AGR_COD_ARQ'].";" ) Or Die(MYSQL_ERROR());
      If ( $Row_CadArq = MYSQL_FETCH_OBJECT($Row_CadArq) ) {
 	     $aARQ['TYPE'] = $Row_CadArq->ARQ_TP_MIME;
		 $aARQ['SIZE'] = $Row_CadArq->ARQ_TAMANHO;
		 $aARQ['NAME'] = $Row_CadArq->ARQ_NOMEARQ;
		 $aARQ['CONT'] = $Row_CadArq->ARQ_BINARIO;
	  }
   }
   $aARQ['ALTERADO'] = 0;
   $aARQ['JAVA_UPLOAD'] =
       "parent.document.getElementById('arq_ImagemGru').value='';".
       "parent.document.getElementById('img_GrupoPro').src='./car_js.php?mod=car_arq';".
	   "";
   $aSessao['CAR_ARQ'] = $aARQ;
   //
   // Tabela GRID da lista de grupos
   $a_ListaGruPr = ARRAY();
   $sSQLQuery = 
      "SELECT GRU_CODIGO, GRU_DESCRI, GRU_GARVIS, AGR_NUMORDE AS NUMORD ".
      "FROM cad_agrupador_grupo_produtos ".
      "LEFT JOIN cad_grupo_produtos ON AGR_COD_GRU=GRU_CODIGO ".
      "WHERE AGR_CODIGOI=".$nSel_AgrPro." AND AGR_COD_GRU>0 ".
      "GROUP BY GRU_CODIGO;".
	  "";
   $RowsT = MYSQL_QUERY($sSQLQuery) Or Die(MYSQL_ERROR().'<br>'.$sSQLQuery);
   While ($RowT = MYSQL_FETCH_ARRAY($RowsT)) {
     $a_ListaGruPr[$RowT['GRU_CODIGO']] = $RowT;
   }
   //
   $sRet_Javs .=
        "parent.document.getElementById('iCadEProAgr_IteCodGru').innerHTML=".JAVA_CharCode($sHTML_ComboGru).";".
		"var fm_Agr = parent.document.forms.fmECadGruPro;".
		"fm_Agr.Agr_CodigoI.value='".((@$Row_CadAgr['AGR_CODIGOI']+0)==0 ? '(NOVO)' : (@$Row_CadAgr['AGR_CODIGOI']))."';".
		"fm_Agr.Agr_Descri.value='".(@$Row_CadAgr['AGR_DESCRIC'])."';".
		"fm_Agr.Agr_GarVis.value='".(@$Row_CadAgr['AGR_GARVISI']+0)."';".
		"fm_Agr.Agr_NumOrd.value='".(@$Row_CadAgr['AGR_NUMORDE']+0)."';".
		"fm_Agr.Agr_Ativo_.value='".(ISSET($Row_CadAgr['AGR_CDATIVO']) ? $Row_CadAgr['AGR_CDATIVO']+0 : '1')."';".
		//"parent.document.getElementById('CadEProAgr_BT_Del').style.visibility='".((@$Row_CadAgr['Agr_CODIGO']+0)==0 ? 'hidden' : 'visible')."';".
		"parent.document.getElementById('img_GrupoPro').src='./car_js.php?mod=car_arq';".
		'parent.Car_'.$sNomeAcesso.'3.bAlterou=false;'.
		"parent.Car_".$sNomeAcesso."3.nAtualCodAgr='".(@$Row_CadAgr['AGR_CODIGOI']+0)."';".
    	'parent.Car_'.$sNomeAcesso.'3.P_Atu();'.
		"";
//
// ATUALIZA
} ElseIf ( $sAcao=="ATUALIZA" ) {
   //
   // Colocar ordem por NUMORD e GRU_DESCRIC na matriz
   $aTMP1 = ARRAY();
   $aTMP2 = ARRAY();
   ForEach ( $a_ListaGruPr As $a_ItemGru ) {
      $aTMP1[Str_Zero($a_ItemGru['NUMORD'],3)."_".$a_ItemGru['GRU_DESCRI']] = $a_ItemGru;
   }
   KSORT($aTMP1);
   ForEach ( $aTMP1 As $a_ItemGru ) {
      $aTMP2[$a_ItemGru['GRU_CODIGO']] = $a_ItemGru;
   }
   $a_ListaGruPr = $aTMP2;
   //
   // Tabela GRID da lista de grupos
   $oTabelaRegs->aLstItensTab = $a_ListaGruPr;
   //$oTabelaRegs->s_PHP_LinhaTb =
   //   'Global $sListaCadAgr;'.
   //   '$sListaCadAgr .= "(".$Row_Temp2Tabela["GRU_CODIGO"].")";'.
   //   '';
   $sRet_TelaJ_HTML = $oTabelaRegs->MontaTabelaHTML();
   //
   $sHTML_ComboGru = '<option value="0">- Selecionar Grupo de produtos -</option>';
   $RowsT_CadGru = MYSQL_QUERY( "SELECT GRU_CODIGO, GRU_DESCRI, GRU_ATIVO_ FROM cad_grupo_produtos WHERE GRU_TRAREG=0 ORDER BY GRU_DESCRI" ) Or Die(MYSQL_ERROR());
   While ($RowT_CadGru = MYSQL_FETCH_OBJECT($RowsT_CadGru)) {
       //If ( STRPOS(" ".$sListaCadAgr,"(".$RowT_CadGru->GRU_CODIGO.")")==0 ) {
	   If ( ! ISSET($a_ListaGruPr[$RowT_CadGru->GRU_CODIGO]) ) {
          $sHTML_ComboGru .= '<option value="'.$RowT_CadGru->GRU_CODIGO.'" >'.Str_Zero($RowT_CadGru->GRU_CODIGO,3).' - '.$RowT_CadGru->GRU_DESCRI.($RowT_CadGru->GRU_ATIVO_ ? '' : ' (INATIVO)').'</option>';
	   }
   }
   //
   $sRet_Javs .=
        "var iQdr_Lista = parent.document.getElementById('".$oTabelaRegs->sIdObjTabela."');".
		"var iComboGru  = parent.document.getElementById('iCadEProAgr_CodGru');".
        'iQdr_Lista.innerHTML = '.JAVA_CharCode_Mini($sRet_TelaJ_HTML).';'.
		'iComboGru.innerHTML = '.JAVA_CharCode_Mini($sHTML_ComboGru).';'.
    	'parent.Car_'.$sNomeAcesso.'3.'.$oTabelaRegs->sNomeTabela.'_Rowsel = 1;'.
		"";
   $sRet_TelaJ_HTML = '';
//
// ADICIONA ITEM NA LISTA
} ElseIf ( $sAcao=="ADC" ) {
   If ($nGru_CodigoI>0) {
      $RowT = MYSQL_QUERY( "SELECT GRU_CODIGO, GRU_DESCRI, GRU_ATIVO_, GRU_GARVIS, GRU_NUMORD AS NUMORD FROM cad_grupo_produtos WHERE GRU_TRAREG=0 AND GRU_CODIGO=".$nGru_CodigoI." ORDER BY GRU_DESCRI" ) Or Die(MYSQL_ERROR());
      If ($RowT = MYSQL_FETCH_ARRAY($RowT)) {
         $a_ListaGruPr[$RowT['GRU_CODIGO']] = $RowT;
	  }
      $sRet_Javs .=
    	'parent.Car_'.$sNomeAcesso.'3.P_Atu();'.
		'';
   }
//
// REMOVE ITEM DA LISTA
} ElseIf ( $sAcao=="RMV" ) {
   If ($nGru_CodigoI>0) {
      If ( ISSET($a_ListaGruPr[$nGru_CodigoI]) ) {
         UNSET( $a_ListaGruPr[$nGru_CodigoI] );
	  }
      $sRet_Javs .=
    	'parent.Car_'.$sNomeAcesso.'3.P_Atu();'.
		'';
   }
//
// SALVAR
} ElseIf ( $sAcao=="SALVAR" ) {
   $nAgr_CodigoI = 0;
   $bGravarReg = False;
   //
   $sRet_Javs .=
      "parent.JanEspera(false);".
	  '';
   //
   If ($bDir_Alterar) {
      $bGravarReg = True;
   } Else {
      $sRet_Javs .=
        Info_Evento('ALERTA: Você não tem previlégio para alterar este grupo de produto.').
        "";
   }
   If ($bGravarReg) {
      If ( STRLEN(@$_REQUEST['Agr_Descri'])<2 ) {
         $sRet_Javs .= Info_Evento('Alguns campos estão incompletos.');
         $bGravarReg = False;
      }
   }
   If ($bGravarReg) {
      If ( $sAgr_CodigoI=="(NOVO)" ) {
         $nAgr_CodigoI = SQLVarConfig("CAD_AGRUPADOR_GRUPRO_SEQCOD")+0;
         $Row_CadAgr = MYSQL_QUERY("SELECT AGR_CODIGOI FROM cad_agrupador_grupo_produtos WHERE AGR_CODIGOI=".($nAgr_CodigoI+1)." ;") or die(MYSQL_ERROR());
         If ($Row_CadAgr = MYSQL_FETCH_ARRAY($Row_CadAgr)) {
            $sRet_Javs .= Info_Evento('Não posso gravar, codigo sequencial já existe ('.Str_Zero($nAgr_CodigoI+1,4).') .',1);
			$bGravarReg = False;
		 }
	  }
   }
   If ($bGravarReg) {
      If ( $sAgr_CodigoI=="(NOVO)" ) {
         //$nAgr_CodigoI = SQLVarConfig("CAD_AGRUPADOR_GRUPRO_SEQCOD")+0;
         SQLVarConfigG("CAD_AGRUPADOR_GRUPRO_SEQCOD", $nAgr_CodigoI+1 );
         MYSQL_QUERY(   // Cria um novo registro
           "INSERT INTO cad_agrupador_grupo_produtos(AGR_CODIGOI) VALUES (".$nAgr_CodigoI."); ") or die(MYSQL_ERROR());
      } Else {
         $nAgr_CodigoI = $sAgr_CodigoI+0;
      }
      $Row_CadAgr = MYSQL_QUERY("SELECT * FROM cad_agrupador_grupo_produtos WHERE AGR_CODIGOI=".($nAgr_CodigoI)." AND AGR_COD_GRU=0 ;") or die(MYSQL_ERROR());
      If ($Row_CadAgr = MYSQL_FETCH_ARRAY($Row_CadAgr)) {
         //
		 // Gravar arquivo imagem
		 $nAgr_Cod_Arq = $Row_CadAgr['AGR_COD_ARQ'];
         $aARQ = @$aSessao['CAR_ARQ'];
		 If ( ISSET( $aSessao['CAR_ARQ'] ) ) { UNSET($aSessao['CAR_ARQ']); }
         If ( (@$aARQ['ALTERADO']+0) ) {
		    If ($aARQ['SIZE']==0) {  // Apagar arquivo
			   If ($nAgr_Cod_Arq>0) {
			      $sSQLRequest = "DELETE FROM cad_arquivos WHERE ARQ_CODIGOI=".$nAgr_Cod_Arq." ;";
			      MYSQL_QUERY($sSQLRequest) or die(MYSQL_ERROR().'<br>'.$sSQLRequest);
			      $nAgr_Cod_Arq = 0;
			   }
			} Else {
			   If ($nAgr_Cod_Arq==0) {
                  $nAgr_Cod_Arq = MYSQL_QUERY("SELECT * FROM cad_arquivos ORDER BY ARQ_CODIGOI DESC LIMIT 1;") or die(MYSQL_ERROR());
                  If ($nAgr_Cod_Arq = MYSQL_FETCH_OBJECT($nAgr_Cod_Arq)) {
				     $nAgr_Cod_Arq = $nAgr_Cod_Arq->ARQ_CODIGOI;
				  } Else {
				     $nAgr_Cod_Arq = 0;
				  }
				  $nAgr_Cod_Arq++;
                  $sSQLRequest =
				     "INSERT INTO cad_arquivos(".
                        "ARQ_CODIGOI".
                     ") VALUE(".
					    $nAgr_Cod_Arq.
                     ");";
	              MYSQL_QUERY($sSQLRequest) or die(MYSQL_ERROR().'<br>'.$sSQLRequest);
			   }
               $sSQLRequest =
			      "UPDATE cad_arquivos SET ".
				     "ARQ_CHAVELG='".GeraChave(30)."',".
				     "ARQ_TP_MIME='".$aARQ['TYPE']."',".
				     "ARQ_TAMANHO='".$aARQ['SIZE']."',".
				     "ARQ_NOMEARQ='".$aARQ['NAME']."',".
				     "ARQ_BINARIO=".SQL_Bin($aARQ['CONT'])." ".
				  "WHERE ARQ_CODIGOI='".$nAgr_Cod_Arq."';";
	           MYSQL_QUERY($sSQLRequest) or die(MYSQL_ERROR().'<br>'.$sSQLRequest);
			}
		 }
		 //
         MYSQL_QUERY( // atualizar registro
           "UPDATE cad_agrupador_grupo_produtos SET ".
             'AGR_DESCRIC="'.UTF8_DECODE(STRTOUPPER(@$_REQUEST['Agr_Descri'])).'",'.
             'AGR_GARVISI="'.@$_REQUEST['Agr_GarVis'].'",'.
             'AGR_NUMORDE="'.@$_REQUEST['Agr_NumOrd'].'",'.
             'AGR_CDATIVO="'.@$_REQUEST['Agr_Ativo_'].'",'.
			 'AGR_COD_ARQ='.$nAgr_Cod_Arq.' '.
           "WHERE AGR_CODIGOI=".($nAgr_CodigoI)." AND AGR_COD_GRU=0; ") or die(MYSQL_ERROR());
		 //
		 $aLstGru_Db = ARRAY();
         $RowsT = MYSQL_QUERY("SELECT * FROM cad_agrupador_grupo_produtos WHERE AGR_CODIGOI=".($nAgr_CodigoI)." AND AGR_COD_GRU>0 ;") or die(MYSQL_ERROR());
		 While ( $RowT = MYSQL_FETCH_ARRAY($RowsT) ) {
		    $aLstGru_Db[$RowT['AGR_COD_GRU']] = $RowT;
		 }
		 //
		 ForEach ( $a_ListaGruPr As $a_ItemGru ) {
		    $nCodGru = $a_ItemGru['GRU_CODIGO'];
		    If ( ! ISSET($aLstGru_Db[$nCodGru]) ) {
               $sSQLRequest =
			      "INSERT INTO cad_agrupador_grupo_produtos(".
                     "AGR_CODIGOI,".
					 "AGR_COD_GRU".
                  ") VALUE(".
			         $nAgr_CodigoI.",".
					 $nCodGru.
                  ");";
	           MYSQL_QUERY($sSQLRequest) or die(MYSQL_ERROR().'<br>'.$sSQLRequest);
			}
            $sSQLRequest =
			   "UPDATE cad_agrupador_grupo_produtos SET ".
                  "AGR_NUMORDE=".$a_ItemGru['NUMORD']." ".
			   "WHERE AGR_CODIGOI=".($nAgr_CodigoI)." AND AGR_COD_GRU=".$nCodGru." ;";
	        MYSQL_QUERY($sSQLRequest) or die(MYSQL_ERROR().'<br>'.$sSQLRequest);
		 }
		 ForEach ( $aLstGru_Db As $a_ItemGru ) {
		    $nCodGru = $a_ItemGru['AGR_COD_GRU'];
		    If ( ! ISSET($a_ListaGruPr[$nCodGru]) ) {
               MYSQL_QUERY("DELETE FROM cad_agrupador_grupo_produtos WHERE AGR_CODIGOI=".($nAgr_CodigoI)." AND AGR_COD_GRU=".$nCodGru." ;") or die(MYSQL_ERROR());
			}
		 }
		 //
         $sRet_Javs .=
            $oJanelaPrinc->sJavOnClickF.
			'';
		 //
      } Else {
         // Erro: registro não existe
		 $sRet_Javs .= Info_Evento('ERRO INTERNO: Registro não existe para dar o UPDATE.',1);
      }
   }
   //
//
// FECHAR
} ElseIf ( $sAcao=="FECHAR" ) {
   IF ( ISSET($aSessao['AGR_L_GRUPOS']) ) { UNSET( $aSessao['AGR_L_GRUPOS'] ); }
   $sRet_Javs .= 
      "parent.RmElem('".$oJanelaPrinc->sIdObj."'); ".
	  "parent.Disabled_In_Elems('".$sNomeIdJEdt_Cad."',false);".
	  "parent.document.getElementById('".$sNomeIdJEdt_Cad."_Travar').style.visibility='hidden';".
	  'parent.document.getElementById("iCadEIte_Descric").focus();'.
	  "";
//
// MONTAGEM DA JANELA
} Else {
   //
   $aSessao['AGR_L_GRUPOS'] = ARRAY();
   $a_ListaGruPr = ARRAY();
   //
   $oJanelaPrinc->aIdsObjList =
      ARRAY(
	    'iCadEProAgr_Descri','iCadEProAgr_GarVis','iCadEProAgr_NumOrd',
		'iCadEProAgr_Ativo_','iCadEProAgr_IteCodGru',
		'iCadEProAgr_CodGru','iCadEProAgr_LstNvg'
	  );
   //
   // Tela HTML
   //
   $sCSS_Inputs = 'background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;';
   $sRet_TelaJ_HTML =
	  $oJanelaPrinc->MontaJanHTML(True).
      '<style type="text/css">'.
	   CSS_Estilos(1,$oJanelaPrinc->sIdObj."_Balao").
      '</style>'. 
      '<form name="fmECadGruPro" enctype="multipart/form-data" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'4">'.
       '<input type="hidden" name="MAX_FILE_SIZE" value="10000000">'.
       '<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="">'.
   	  '<table width="100%"><tr>'.
   	   '<td width="4px" height="24px">&nbsp;</td>'.
	   '<td align="left" width="200px" id="iCadGruEd_Comb">'.
		'<select id="iCadEProAgr_IteCodGru" name="Ite_Cod_Gru" onchange="Car_'.$sNomeAcesso.'3.F_Puxar();" style="width:95%;"><option value="'.$nSel_AgrPro.'" selected>Aguarde...</option></select>'.
	   '</td>'.
   	   '<td align="left" width="100px">'.
	    'Código:'.
		'<input name="Agr_CodigoI" type="text" readonly="readonly" style="width:60px; height:22px; '.$sCSS_Inputs.'">'.
   	   '</td>'.
   	   '<td align="left">'.
	    'Descrição:'.
		'<input id="iCadEProAgr_Descri" name="Agr_Descri" type="text" maxlength="40" style="width:280px; height:22px; '.$sCSS_Inputs.'" onchange="Car_'.$sNomeAcesso.'3.bAlterou=true;">'.
   	   '</td>'.
   	  '</tr></table>'.
   	  '<table width="100%">'.
	   '<tr>'.
   	    '<td width="4px" height="35px">&nbsp;</td>'.
   	    '<td width="200px" align="center">'.
         '<span id="Balao_Img" class="'.$oJanelaPrinc->sIdObj.'_Balao" style="display:none;">'.
    	    'Imagem padrão 120x120 pixels e fundo transparente.'.
         '</span>'.
		 '<img width="120px" height="120px" id="img_GrupoPro" src="" border="0">'.
         '<input type="image" src="./images/interroga.png" width="23px" height="23px" onclick="parent.Car_'.$sNomeAcesso.'3.Interroga_Img()">'.
		 '<div style="height:3px;"></div>'.
   	      HTML_Botao( 3, 'CadEProAgr_BT_AltImg',
		                 "parent.document.getElementById('arq_ImagemGru').click(); "
		               , 'Alterar imagem (F4)','images/btimg_type_image.png' ,180).
		 '<div style="height:3px;"></div>'.
   	      HTML_Botao( 3, 'CadEProAgr_BT_LmpImg',
		                 'Car_'.$sNomeAcesso.'3.F_Lmp_Img();'
		               , 'Remover imagem (F3)','images/btimg_remover.png', 180).
		 '<input type="file" id="arq_ImagemGru" name="Entrada_Arq" style="display:none;" onchange="Car_'.$sNomeAcesso.'3.bAlterou=true; Car_'.$sNomeAcesso.'3.F_Car_Img();" >'.
		'</td>'.
   	    '<td>'.
   	     '<table width="100%">'.
	      '<tr>'.
   	       '<td width="120px" align="right">Numero da ordem de exibição:</td>'.
   	       '<td align="left">'.
		    '<input id="iCadEProAgr_NumOrd" name="Agr_NumOrd" onchange="Car_'.$sNomeAcesso.'3.bAlterou=true;" type="text" maxlength="2" style="position:relative; left:2px; width:30px; height:22px; '.$sCSS_Inputs.'">'.
		   '</td>'.
		  '</tr><tr>'.
   	       '<td align="right">Está ativo?:</td>'.
   	       '<td align="left">'.
            '<select id="iCadEProAgr_Ativo_" name="Agr_Ativo_" style="font-size:12px;" onchange="Car_'.$sNomeAcesso.'3.bAlterou=true;">'.
             '<option value="1">ATIVO</option>'.
	         '<option value="0">INATIVO</option>'.
            '</select>'.
		   '</td>'.
		  '</tr><tr>'.
   	       '<td align="right">Está visível no Garçom Express?</td>'.
   	       '<td align="left">'.
            '<select id="iCadEProAgr_GarVis" name="Agr_GarVis" style="font-size:12px;" onchange="Car_'.$sNomeAcesso.'3.bAlterou=true;">'.
             '<option value="0">N&atilde;o</option>'.
	         '<option value="1">Sim</option>'.
            '</select>'.
		   '</td>'.
   	      '</tr>'.
	     '</table>'.
		'</td>'.
   	   '</tr>'.
	  '</table>'.
	  '</form>'.
	  '<div style="width:100%; height:1px; background-color:#91D8F8;"></div>'.
	  //
   	  '<table width="100%"></tr>'.
	   '<td width="6px"></td>'.
       '<td width="136px" height="40px" align="left" valign="middle">'.
        HTML_Botao( 3, 'iCadEProAgr_BT_Adc',"Car_".$sNomeAcesso."3.Adc();"
                     , 'Adicionar','images/btimg_novo.png',120).
       '</td>'.
       '<td align="center">'.
	    '<select id="iCadEProAgr_CodGru" type="text" style="width:240px;"></select>'.
       '</td>'.
       '<td width="136px" align="right" valign="middle">'.
        HTML_Botao( 3, 'iCadEProAgr_BT_Alt',"Car_".$sNomeAcesso."3.Alt();"
                     , 'Alterar (F7)','images/btimg_editar.png',120).
       '</td>'.
       '<td width="136px" align="right" valign="middle">'.
        HTML_Botao( 3, 'iCadEProAgr_BT_Rmv',"Car_".$sNomeAcesso."3.Rmv();"
                     , 'Remover (F6)','images/btimg_remover.png',120).
       '</td>'.
	   '<td width="6px"></td>'.
      '</tr></table>'.
      '<div style="position:absolute; top:-1000px; left:-1000px;">'.
       '<input id="iCadEProAgr_LstNvg" type="text" maxlength="1" onkeydown="Car_'.$sNomeAcesso.'3.P_TeclasPress_fm(event);">'.
      '</div>'.
      $oTabelaRegs->MontaDivHtml().
	  '&nbsp;'.
	  '<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, 'CadEProAgr_BT_Sav', "JanEspera(true, 'Salvando o cadastro aguarde...');".
                                            "document.forms.fmECadGruPro.acao.value='SALVAR'; ".
	                                        "document.forms.fmECadGruPro.submit();".
	                                        "Car_".$sNomeAcesso."3.bAlterou=false;"
		             , 'Salvar (F10)','images/btimg_salvar.png').'&nbsp;&nbsp;'.
   	   '</td>'.
   	   '<td width="120px" align="left">'.
   	    HTML_Botao( 3, 'CadEProAgr_BT_Fec', $oJanelaPrinc->sJavOnClickF
                     , 'Sair (ESC)','images/btimg_fechar.png').
   	   '</td>'.
   	  '</tr></table>'.
	  $oJanelaPrinc->MontaJanHTML(False);
   //
   $sRet_Javs .=
       "var sSelIndice='0';".
	   "var bAlterou = false;".
	   "var nAtualCodAgr = '0';".
       "function P_Atu() {".
         "parent.document.getElementById('iCadEProAgr_BT_Rmv').style.display='none';".
         "parent.document.getElementById('iCadEProAgr_BT_Alt').style.display='none';".
         "sSelIndice='0';".
         $oTabelaRegs->MontaJavaAgu().
         "parent.document.forms.fmECadGruPro.acao.value='ATUALIZA';".
         "parent.document.forms.fmECadGruPro.submit();".
       '}'.
       $oTabelaRegs->MontaJavaPri().
       "function F_Puxar() {".
	     "if (bAlterou) {".
    	     "parent.Qdr_Prompt_H(true,".
			     "'Tem certeza que deseja sair deste cadastro sem salvar?',".
		         JAVA_CharCode(
		           "if (_NUM_BOT_==1) {".
				       "parent.Car_".$sNomeAcesso."3.F_PuxarAcao();".
				   "} else {".
				       "document.getElementById('iCadEProAgr_IteCodGru').value=parent.Car_".$sNomeAcesso."3.nAtualCodAgr;".
				   "}"
				 ).",".
				 "['Sim','Não']".
			 ");".
		 "} else {".
		     "F_PuxarAcao();".
		 "}".
	   "}".
       "function F_PuxarAcao() {".
         "parent.document.forms.fmECadGruPro.acao.value='PUXAR';".
         "parent.document.forms.fmECadGruPro.submit();".
	     "parent.document.forms.fmECadGruPro.Agr_Descri.focus();".
	   "}".
	   ($bDir_Alterar ? '' :
	     "parent.document.getElementById('CadEProAgr_BT_Sav').style.display='none';"
	   ).
	   "function Adc() {".
	     "bAlterou=true;".
	     "var _Fm = parent.document.forms.fmECadGruPro;".
         "_Fm.acao.value='ADC';".
		 "_Fm.Gru_CodigoI.value = parent.document.getElementById('iCadEProAgr_CodGru').value;".
         "_Fm.submit();".
	   "}".
	   "function Rmv() {".
	     "bAlterou=true;".
	     "var _Fm = parent.document.forms.fmECadGruPro;".
         "_Fm.acao.value='RMV';".
		 "_Fm.Gru_CodigoI.value = sSelIndice;".
         "_Fm.submit();".
	   "}".
	   "function Alt() {".
	     $sJavaTravarJ.
	     "var _Fm = parent.document.forms.fmECadGruPro;".
         "_Fm.acao.value='';".
         "_Fm.submod.value='".$sSubModulo."ALTITEM';".
		 "_Fm.Gru_CodigoI.value = sSelIndice;".
         "_Fm.submit();".
         "_Fm.submod.value='".$sSubModulo."';".
	   "}".
       "function Interroga_Img() {".
         "if ( parent.document.getElementById('Balao_Img').style.display == 'none') {".
           'parent.document.getElementById("Balao_Img").style.display="inline";'. 
         "} else {".   
           'parent.document.getElementById("Balao_Img").style.display="none";'. 
         "}".  
       "}".
	   '';
   $sRet_JavsPos .=
     "parent.document.getElementById('iCadEProAgr_BT_Rmv').style.display='none';".
     "parent.document.getElementById('iCadEProAgr_BT_Alt').style.display='none';".
	 "F_Puxar();".
	 //
	 "function F_Car_Img() {".
       "parent.document.forms.fmECadGruPro.mod.value='car_arq';".
       "parent.document.forms.fmECadGruPro.acao.value='UPLOAD';".
       "parent.document.forms.fmECadGruPro.submit();".
       "parent.document.forms.fmECadGruPro.acao.value='';".
       "parent.document.forms.fmECadGruPro.mod.value='".$sModulo."';".
	 "}".
	 "function F_Lmp_Img() {".
       "parent.document.forms.fmECadGruPro.mod.value='car_arq';".
       "parent.document.forms.fmECadGruPro.acao.value='CLEAR';".
       "parent.document.forms.fmECadGruPro.submit();".
       "parent.document.forms.fmECadGruPro.acao.value='';".
       "parent.document.forms.fmECadGruPro.mod.value='".$sModulo."';".
	 "}".
     //
     "function Teclas_F( Objeto, Evento ) {".
        "vNumTecla = parent.Tecla_Apertada(Evento);".
        "if ( vNumTecla==121) { ".        //  ** [F10] **         // (Gravar)
		    "if ( parent.document.getElementById('CadEProAgr_BT_Sav').style.display != 'none' ) {".
                "setTimeout( parent.document.getElementById('CadEProAgr_BT_Sav').onclick , 100);".
		    "}".
        "} else if ( vNumTecla==114) { ".  // ** [F3] **         Remover imagem
            "setTimeout( parent.document.getElementById('CadEProAgr_BT_LmpImg').onclick , 100);".
		    //
        "} else if ( vNumTecla==115) { ".  // ** [F4] **         Altera imagem
            "setTimeout( parent.document.getElementById('CadEProAgr_BT_AltImg').onclick , 100);".
			//
        "} else if ( vNumTecla==116) { ".  // ** [F5] **         Não atualizar
		    //
        "} else if ( vNumTecla==117) { ".  // ** [F6] **         Remover item
		    "if ( parent.document.getElementById('iCadEProAgr_BT_Rmv').style.display != 'none' ) {".
                "setTimeout( parent.document.getElementById('iCadEProAgr_BT_Rmv').onclick , 100);".
			"}".
		    //
        "} else if ( vNumTecla==118) { ".  // ** [F7] **         Alterar item
		    "if ( parent.document.getElementById('iCadEProAgr_BT_Alt').style.display != 'none' ) {".
                "setTimeout( parent.document.getElementById('iCadEProAgr_BT_Alt').onclick , 100);".
			"}".
		    //
        "} else if ( vNumTecla==27) { ".  //  ** [ESC] **         // (SAIR)
            "setTimeout( parent.document.getElementById('CadEProAgr_BT_Fec').onclick , 100);".
        "} else if ( vNumTecla==13) { ".
     	    "sTempId = parent.Proximo_TabObj(parent.document.getElementById('".$oJanelaPrinc->sIdObj."'),parent.sIdHasFocus);".
     	    "if ( sTempId.length>0 ) {".
     	        "parent.document.getElementById(sTempId).focus();".
     	    "} else {".
                'parent.document.getElementById("iCadEProAgr_Descri").focus();'.
     	    "}".
        "} else {".
            "return true;".
        "}".
        "return false;".
     '}'.
     //
	 "";
}
IF ( ISSET($aSessao['AGR_L_GRUPOS']) ) { $aSessao['AGR_L_GRUPOS'] = $a_ListaGruPr; }
?>