<?php
// Criar objeto Janela
$oJanelaPrinc = New R_Janela();
$oJanelaPrinc->sIdObj  = $sNomeIdJEdt_Gru;
$oJanelaPrinc->nWidth  = 720;   // Largura
$oJanelaPrinc->nHeight = 0;     // Altura
$oJanelaPrinc->nTop    = 50;
$oJanelaPrinc->nLeft   = 0;
$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
$oJanelaPrinc->sTitulo = 'Grupo de produtos';
$sJavaTravarJ = "document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);";
$oJanelaPrinc->sJavOnClickF =
     $sJavaTravarJ.
     "document.forms.fmECadGruPro.acao.value='FECHAR'; ".
     "document.forms.fmECadGruPro.submit();".
	 "";
$oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."3.Teclas_F(this,event);";
//
$nSel_GruPro = @$_REQUEST['Ite_Cod_Gru']+0;
$sGru_Codigo = @$_REQUEST['Gru_Codigo'];

//
// PUXAR REGISTRO DO GRUPO
If ( $sAcao=="PUXAR" ) {
   //
   $Row_CadGru = MYSQL_QUERY( "SELECT * FROM cad_grupo_produtos WHERE GRU_TRAREG=0 AND GRU_CODIGO=".$nSel_GruPro.";" ) Or Die(MYSQL_ERROR());
   $Row_CadGru = MYSQL_FETCH_ARRAY($Row_CadGru);
   //
   $sHTML_ComboGru = '<option value="0">- Novo grupo de produtos -</option>';
   $sHTML_CbGruOpc = '<option value="0">- Nenhum grupo selecionado -</option>';
   $RowsT_CadGru = MYSQL_QUERY( "SELECT * FROM cad_grupo_produtos WHERE GRU_TRAREG=0 ORDER BY GRU_DESCRI" ) Or Die(MYSQL_ERROR());
   $sCorFunLet = ""; // cor fundo e letra do grupo garcom 2
   While ($RowT_CadGru = MYSQL_FETCH_OBJECT($RowsT_CadGru)) {
      $sHTML_ComboGru .= '<option value="'.$RowT_CadGru->GRU_CODIGO.'" '.($RowT_CadGru->GRU_CODIGO==$nSel_GruPro ? 'selected' : '').'>'.Str_Zero($RowT_CadGru->GRU_CODIGO,3).' - '.$RowT_CadGru->GRU_DESCRI.($RowT_CadGru->GRU_ATIVO_ ? '' : ' (INATIVO)').'</option>';
	  $sHTML_CbGruOpc .= '<option value="'.$RowT_CadGru->GRU_CODIGO.'" '.($RowT_CadGru->GRU_CODIGO==(@$Row_CadGru['GRU_OPCGRU']+0) ? 'selected' : '').'>'.Str_Zero($RowT_CadGru->GRU_CODIGO,3).' - '.$RowT_CadGru->GRU_DESCRI.($RowT_CadGru->GRU_ATIVO_ ? '' : ' (INATIVO)').'</option>';
      
	  
   }
   //
   $aARQ = ARRAY();
   If ( $Row_CadGru['GRU_COD_ARQ']>0 ) {
      $Row_CadArq = MYSQL_QUERY( "SELECT * FROM cad_arquivos WHERE ARQ_CODIGOI=".$Row_CadGru['GRU_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;
	  }
   }
   // FUNDO GRUPO E LETRA NO GARCOM 2
   $sCorFunLet = @$Row_CadGru['GRU_FUNLET'];
   $sCorFun_1 = '';
   $sCorFun_2 = '';
   If ( STRLEN($sCorFunLet)>4 ) {
 	 $a_CorFunLet = EXPLODE(";",$sCorFunLet);
     $sGru_FunLet_1 = $a_CorFunLet[0];
     $sGru_FunLet_2 = $a_CorFunLet[1];  
	 $sCorFun_1 = $sGru_FunLet_1;
	 $sCorFun_2 = $sGru_FunLet_2;
   } Else {
     $sGru_FunLet_1 = '';
     $sGru_FunLet_2 = '';
   }
   
   $aARQ['ALTERADO'] = 0;
   $aARQ['JAVA_UPLOAD'] =
       "parent.document.getElementById('arq_ImagemGru').value='';".
       //"parent.document.getElementById('img_GrupoPro').src='./car_js.php?mod=car_arq';".
	   "parent.document.getElementById('img_GrupoPro').src='./car_js.php?mod=car_arq&chave=".GeraChave(40)."';".
	   "";
   $aSessao['CAR_ARQ'] = $aARQ;
   //
   $sRet_Javs .=
        "parent.document.getElementById('iCadEProGru_IteCodGru').innerHTML=".JAVA_CharCode($sHTML_ComboGru).";".
        "parent.document.getElementById('iCadEProGru_OpcGru').innerHTML=".JAVA_CharCode($sHTML_CbGruOpc).";".
		"var fm_GruPro = parent.document.forms.fmECadGruPro;".
		"fm_GruPro.Gru_Codigo.value='".((@$Row_CadGru['GRU_CODIGO']+0)==0 ? '(NOVO)' : (@$Row_CadGru['GRU_CODIGO']))."';".
		"fm_GruPro.Gru_Descri.value='".(@$Row_CadGru['GRU_DESCRI'])."';".
		"fm_GruPro.Gru_GarVis.value='".(@$Row_CadGru['GRU_GARVIS']+0)."';".
		"fm_GruPro.Gru_Opcion.value='".(@$Row_CadGru['GRU_OPCION']+0)."';".
		"fm_GruPro.Gru_ActSab.value='".(@$Row_CadGru['GRU_ACTSAB']+0)."';".
		"fm_GruPro.Gru_ActMei.value='".(@$Row_CadGru['GRU_ACTMEI']+0)."';".
		"fm_GruPro.Gru_NumOrd.value='".(@$Row_CadGru['GRU_NUMORD']+0)."';".
		"fm_GruPro.Gru_OrdImp.value='".(@$Row_CadGru['GRU_ORDIMP']+0)."';".
		"fm_GruPro.Gru_OpcGru.value='".(@$Row_CadGru['GRU_OPCGRU']+0)."';".
		"fm_GruPro.Gru_Ativo_.value='".(ISSET($Row_CadGru['GRU_ATIVO_']) ? @$Row_CadGru['GRU_ATIVO_']+0 : '1')."';".
		"fm_GruPro.Gru_FunLet_1.value='".$sGru_FunLet_1."';".
		"fm_GruPro.Gru_FunLet_2.value='".$sGru_FunLet_2."';".
		"fm_GruPro.Gru_CamFun.value='".STRTOUPPER($sCorFun_1)."';".
		"fm_GruPro.Gru_CamLet.value='".STRTOUPPER($sCorFun_2)."';".
		"parent.document.getElementById('iCadEProGru_CamFun').style.backgroundColor = '".STRTOUPPER($sCorFun_1)."';".
		"parent.document.getElementById('iCadEProGru_CamLet').style.backgroundColor = '".STRTOUPPER($sCorFun_2)."';".
		"parent.document.getElementById('img_GrupoPro').src='./car_js.php?mod=car_arq&chave=".GeraChave(40)."';".
		"";
//
// SALVAR
} ElseIf ( $sAcao=="SALVAR" ) {
   $nGru_Codigo = 0;
   $bGravarReg = 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['Gru_Descri'])<2 ) {
         $sRet_Javs .= Info_Evento('Alguns campos estão incompletos.');
         $bGravarReg = False;
      }
   }
   If ($bGravarReg) {
      If ( $sGru_Codigo=="(NOVO)" ) {
         $nGru_Codigo = SQLVarConfig("CAD_GRUPO_PRODUTO_SEQCOD")+0;
         $Row_CadGru = MYSQL_QUERY("SELECT * FROM cad_grupo_produtos WHERE GRU_CODIGO=".($nGru_Codigo+1)." ;") or die(MYSQL_ERROR());
         If ($Row_CadGru = MYSQL_FETCH_ARRAY($Row_CadGru)) {
            $sRet_Javs .= Info_Evento('Não posso gravar, codigo sequencial já existe ('.Str_Zero($nGru_Codigo+1,4).') .',1);
			$bGravarReg = False;
		 }
	  }
   }
   If ($bGravarReg) {
      If ( $sGru_Codigo=="(NOVO)" ) {
         $nGru_Codigo = SQLVarConfig("CAD_GRUPO_PRODUTO_SEQCOD")+0;
         SQLVarConfigG("CAD_GRUPO_PRODUTO_SEQCOD", $nGru_Codigo+1 );
         MYSQL_QUERY(   // Cria um novo registro
           "INSERT INTO cad_grupo_produtos(GRU_CODIGO) VALUES (".$nGru_Codigo."); ") or die(MYSQL_ERROR());
      } Else {
         $nGru_Codigo = $sGru_Codigo+0;
      }
      $Row_CadGru = MYSQL_QUERY("SELECT * FROM cad_grupo_produtos WHERE GRU_CODIGO=".($nGru_Codigo)." ;") or die(MYSQL_ERROR());
      If ($Row_CadGru = MYSQL_FETCH_ARRAY($Row_CadGru)) {
         //
		 // Gravar arquivo imagem
		 $nGru_Cod_Arq = $Row_CadGru['GRU_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 ($nGru_Cod_Arq>0) {
			      $sSQLRequest = "DELETE FROM cad_arquivos WHERE ARQ_CODIGOI=".$nGru_Cod_Arq." ;";
			      MYSQL_QUERY($sSQLRequest) or die(MYSQL_ERROR().'<br>'.$sSQLRequest);
			      $nGru_Cod_Arq = 0;
			   }
			} Else {
			   If ($nGru_Cod_Arq==0) {
                  $nGru_Cod_Arq = MYSQL_QUERY("SELECT * FROM cad_arquivos ORDER BY ARQ_CODIGOI DESC LIMIT 1;") or die(MYSQL_ERROR());
                  If ($nGru_Cod_Arq = MYSQL_FETCH_OBJECT($nGru_Cod_Arq)) {
				     $nGru_Cod_Arq = $nGru_Cod_Arq->ARQ_CODIGOI;
				  } Else {
				     $nGru_Cod_Arq = 0;
				  }
				  $nGru_Cod_Arq++;
                  $sSQLRequest =
				     "INSERT INTO cad_arquivos(".
                        "ARQ_CODIGOI".
                     ") VALUE(".
					    $nGru_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='".$nGru_Cod_Arq."';";
	           MYSQL_QUERY($sSQLRequest) or die(MYSQL_ERROR().'<br>'.$sSQLRequest);
			}
		    /*
 	        $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;
			*/
		 }
		 //
		 
         MYSQL_QUERY( // atualizar registro
           "UPDATE cad_grupo_produtos SET ".
             'GRU_DESCRI="'.UTF8_DECODE(STRTOUPPER(@$_REQUEST['Gru_Descri'])).'",'.
             'GRU_GARVIS="'.@$_REQUEST['Gru_GarVis'].'",'.
             'GRU_OPCION="'.@$_REQUEST['Gru_Opcion'].'",'.
             'GRU_ACTSAB="'.@$_REQUEST['Gru_ActSab'].'",'.
             'GRU_ACTMEI="'.@$_REQUEST['Gru_ActMei'].'",'.
             'GRU_NUMORD="'.@$_REQUEST['Gru_NumOrd'].'",'.
			 'GRU_ORDIMP="'.@$_REQUEST['Gru_OrdImp'].'",'.
             'GRU_OPCGRU="'.@$_REQUEST['Gru_OpcGru'].'",'.
             'GRU_ATIVO_="'.@$_REQUEST['Gru_Ativo_'].'",'.
			 //'GRU_FUNLET="'.@$_POST['Gru_FunLet_1'].';'.@$_POST['Gru_FunLet_2'].';'.'",'.
			 'GRU_FUNLET="'.@$_POST['Gru_CamFun'].( STRLEN(@$_POST['Gru_CamFun'])> 0 ? ';' :'').@$_POST['Gru_CamLet'].( STRLEN(@$_POST['Gru_CamLet'])> 0 ? ';' : '').'",'.
			 'GRU_COD_ARQ='.$nGru_Cod_Arq.' '.
           "WHERE GRU_CODIGO=".($nGru_Codigo)."; ") or die(MYSQL_ERROR());
		 //
         $sRet_Javs =
            "document.location.href = './car_js.php?mod=".$sModulo."&submod=".$sSubModulo."&acao=FECHAR';";
      } Else {
         // Erro: registro não existe
		 $sRet_Javs .= Info_Evento('ERRO INTERNO: Registro não existe para dar o UPDATE.',1);
      }
   }
   //
   $sHTML_ComboGru = '<option value="0">- Nenhum grupo selecionado -</option>';
   $RowsT_CadGru = MYSQL_QUERY( "SELECT * FROM cad_grupo_produtos WHERE GRU_TRAREG=0 ORDER BY GRU_NUMORD" ) Or Die(MYSQL_ERROR());
   While ($RowT_CadGru = MYSQL_FETCH_OBJECT($RowsT_CadGru)) {
       $sHTML_ComboGru .= '<option value="'.$RowT_CadGru->GRU_CODIGO.'" '.($RowT_CadGru->GRU_CODIGO==$nGru_Codigo ? 'selected' : '').'>'.$RowT_CadGru->GRU_CODIGO.' - '.$RowT_CadGru->GRU_DESCRI.($RowT_CadGru->GRU_ATIVO_ ? '' : ' (INATIVO)').'</option>';
   }
   //
   $sRet_Javs =
      "parent.document.getElementById('iECadEIte_CodGru').innerHTML=".JAVA_CharCode($sHTML_ComboGru).";".
	  $sRet_Javs.
      "document.location.href = './car_js.php?mod=".$sModulo."&submod=".$sSubModulo."&acao=FECHAR';";
//
// FECHAR
} ElseIf ( $sAcao=="FECHAR" ) {
   $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();'.
	  "";
//
} Else {
   //
   $oJanelaPrinc->aIdsObjList =
      ARRAY(
	    'iCadEProGru_Ativo_','iCadEProGru_Descri'  ,'iCadEProGru_GarVis','iCadEProGru_Opcion'  ,'iCadEProGru_ActSab','iCadEProGru_ActMei',
		'iCadEProGru_NumOrd','iCadEProGru_OrdImp','iCadEProGru_FunLet_1','iCadEProGru_CamFun','iCadEProGru_FunLet_2','iCadEProGru_CamLet','iCadEProGru_OpcGru',
		'iCadEProGru_IteCodGru'
	  );
   //
   // 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.'">'.
   	  '<table width="100%"><tr>'.
   	   '<td width="4px" height="24px">&nbsp;</td>'.
	   '<td align="left" width="200px" id="iCadGruEd_Comb">'.
		'<select id="iCadEProGru_IteCodGru" name="Ite_Cod_Gru" onchange="Car_'.$sNomeAcesso.'3.F_Puxar();" style="width:95%;"><option value="'.$nSel_GruPro.'" selected>Aguarde...</option></select>'.
	   '</td>'.
   	   '<td align="left" width="100px">'.
	    'Código:'.
		'<input name="Gru_Codigo" type="text" readonly="readonly" style="width:60px; height:22px; '.$sCSS_Inputs.'">'.
   	   '</td>'.
   	   '<td align="left">'.
	    '&nbsp;&nbsp;&nbsp;'.
		'&nbsp;&nbsp;&nbsp;'.
		'&nbsp;&nbsp;'.
		'Descrição:&nbsp;&nbsp;'.
		'<input id="iCadEProGru_Descri" name="Gru_Descri" type="text" maxlength="40" style="width:280px; height:22px; '.$sCSS_Inputs.'">'.
   	   '</td>'.
   	  '</tr></table>'.
   	  '<table width="100%" border="0">'.
	   '<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, 'CadEProGru_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, 'CadEProGru_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.F_Car_Img();">'.
		'</td>'.
   	    '<td valign="top">'.
		  //
   	      '<table width="100%" border="0">'.
		   '<tr>'.
		    '<td width="180px" height="2px"></td>'.
		    '<td></td>'.
		   '</tr>'.
		   // Grupo ativo ou inativo
		   '<tr height="35px">'.
		     '<td align="right">'.
			 'Grupo está?&nbsp;'.
			'</td>'.
		    '<td align="left">'.
		     '<select id="iCadEProGru_Ativo_" name="Gru_Ativo_" style="font-size:12px;">'.
                '<option value="1">ATIVO</option>'.
	            '<option value="0">INATIVO</option>'.
             '</select>'.
			'</td>'.
		   '</tr>'.
		   // Visibilidade no Garcom Express
		   '<tr height="35px">'.
		    '<td align="right">'.
			 'Está visível no Garçom Express?&nbsp;'.
			'</td>'.
		    '<td align="left">'.
		     '<select id="iCadEProGru_GarVis" name="Gru_GarVis" style="font-size:12px;">'.
                '<option value="0">N&atilde;o</option>'.
	            '<option value="1">Sim</option>'.
             '</select>'.  
			'</td>'.
		   '</tr>'.
		   // É um grupo de opcionais?
		   '<tr height="35px">'.
		    '<td align="right">'.
		     'É grupo de opcionais?&nbsp;'.
			'</td>'.
		    '<td align="left">'.
		     '<select id="iCadEProGru_Opcion" name="Gru_Opcion" style="font-size:12px;">'.
                '<option value="0">N&atilde;o</option>'.
	            '<option value="1">Sim</option>'.
             '</select>'.
			'</td>'.
		   '</tr>'.
		   // Aceita vários sabores?
		   '<tr height="35px">'.
		    '<td align="right">'.
		     'Aceita vários sabores?&nbsp;'.
			'</td>'.
		    '<td align="left" id="td_CadEProGru_ActSab">'.
		     '<select id="iCadEProGru_ActSab" '.
			       'onchange="'.
			          "if ( this.value=='1' ) {".
			              "document.getElementById('iCadEProGru_ActMei').value = '0';".
						  "Disabled_In_Elems('td_CadEProGru_ActMei',true);".
					  "} else {".
						  "Disabled_In_Elems('td_CadEProGru_ActMei',false);".
					  "}".
				   '" name="Gru_ActSab" style="font-size:12px;">'.
                '<option value="0">N&atilde;o</option>'.
	            '<option value="1">Sim</option>'.
             '</select>'.
			 '<span id="Balao_Img_2" class="'.$oJanelaPrinc->sIdObj.'_Balao" style="display:none;">'.
    	        'Ex: Metade Portuguesa e Metade Calabresa'.
             '</span>'.
		     '<input type="image" src="./images/interroga.png" width="23px" height="23px" onclick="parent.Car_'.$sNomeAcesso.'3.Interroga_Img_2()">'.
		    
			'</td>'.
			
		   '</tr>'.
		   // Aceita meia porção?
		   '<tr height="35px">'.
		    '<td align="right">'.
		     'Aceita meia porção?&nbsp;'.
			'</td>'.
		    '<td align="left" id="td_CadEProGru_ActMei">'.
		     '<select id="iCadEProGru_ActMei" name="Gru_ActMei" style="font-size:12px;">'.
                '<option value="0">N&atilde;o</option>'.
	            '<option value="1">Sim</option>'.
             '</select>'.
			 '<span id="Balao_Img_3" class="'.$oJanelaPrinc->sIdObj.'_Balao" style="display:none;">'.
    	        'Ex: Meia Porção de Arroz ou Inteira'.
             '</span>'.
		     '<input type="image" src="./images/interroga.png" width="23px" height="23px" onclick="parent.Car_'.$sNomeAcesso.'3.Interroga_Img_3()">'.
			 
			 
			 
			'</td>'.
		   '</tr>'.
		   // Numero de ordem
		   '<tr height="35px">'.
		    '<td align="right">'.
		     'Numero da ordem de exibição no&nbsp;<br>Garçom Express:&nbsp;'.
			'</td>'.
		    '<td align="left">'.
		     '<input id="iCadEProGru_NumOrd" name="Gru_NumOrd" type="text" maxlength="4" style="width:48px; height:22px; '.$sCSS_Inputs.'">'.
			'</td>'.
		   '</tr>'.
		   // Número da Ordem para IMPRESSÃO na Comanda
           '<tr>'.
		      '<td align="right">'.
		         'Numero da ordem para Impressão na Comanda:&nbsp;'.
			  '</td>'.
		      '<td align="left">'.
		         '<input id="iCadEProGru_OrdImp" name="Gru_OrdImp" type="text" maxlength="4" style="width:48px; height:22px; '.$sCSS_Inputs.'">'.
			  '</td>'.
		      
		   '</tr>'.
		   '<tr>'.
		      '<td>'.
			     '<span style="color:#FF0000;">'.
			        '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.
	                '( Usado no eCook-Plus na impressão das Comandas )'.
			     '</span>'.
			  '</td>'.
		   
		   '</tr>'.
		   // Cor de fundo
		   '<tr height="35px">'.
		    '<td align="right">'.
		     'Cor do fundo do grupo no Garcom:&nbsp;'.
			'</td>'.
		    '<td align="left">'.
		     '<input type="text" id="iCadEProGru_CamFun" name="Gru_CamFun" readonly onchange="'."document.getElementById('iCadEProGru_FunLet_1').value=this.value;".'">'.
		     '<input type="Color" id="iCadEProGru_FunLet_1" name="Gru_FunLet_1" onchange="'."document.getElementById('iCadEProGru_CamFun').value=this.value;document.getElementById('iCadEProGru_CamFun').style.backgroundColor = this.value;".'">'.
		     '&nbsp;'.
   	         HTML_Botao( 3, 'CadEProGru_BT_Limpa1',
		                    "document.getElementById('iCadEProGru_FunLet_1').value='';".
                            "document.getElementById('iCadEProGru_CamFun').value='';".
                            "document.getElementById('iCadEProGru_CamFun').style.backgroundColor='';"
		                  , 'Limpar','images/btimg_erase.png' ,100).
			'</td>'.
		   '</tr>'.
		   // Cor da letra
		   '<tr height="35px">'.
		    '<td align="right">'.
		     'Cor do letra do grupo no Garcom:&nbsp;'.
			'</td>'.
		    '<td align="left">'.
		     '<input type="text" id="iCadEProGru_CamLet" name="Gru_CamLet" readonly onchange="'."document.getElementById('iCadEProGru_FunLet_2').value=this.value;".'">'.
		     '<input type="Color" id="iCadEProGru_FunLet_2" name="Gru_FunLet_2" onchange="'."document.getElementById('iCadEProGru_CamLet').value=this.value;document.getElementById('iCadEProGru_CamLet').style.backgroundColor = this.value;".'">'.
		     '&nbsp;'.
   	         HTML_Botao( 3, 'CadEProGru_BT_Limpa2',
		                    "document.getElementById('iCadEProGru_FunLet_2').value='';".
                            "document.getElementById('iCadEProGru_CamLet').value='';".
                            "document.getElementById('iCadEProGru_CamLet').style.backgroundColor='';"
		                  , 'Limpar','images/btimg_erase.png' ,100).
			'</td>'.
		   // Grupo de opcionais
		   '<tr height="35px">'.
		    '<td align="right">'.
		     'Grupo de opcionais:&nbsp;'.
			'</td>'.
		    '<td align="left">'.
	         '<select id="iCadEProGru_OpcGru" name="Gru_OpcGru" style="width:95%;"><option selected>Aguarde...</option></select>'.
			'</td>'.
		   //
		  '</table>'.
		  //
		'</td>'.
   	   '</tr>'.
	  '</table>'.
	  //
	  '</form>'.
	  '&nbsp;'.
	  '<div style="width:100%; height:1px; background-color:#91D8F8;"></div>'.
      //'</form>'.
   	  '<table width="100%"><tr>'.
   	     '<td width="4px" height="40px" align="left">&nbsp;</td>'.
   	   '</td>'.
   	   '<td>'.
   	    HTML_Botao( 3, 'CadEProGru_BT_Sav', "document.forms.fmECadGruPro.acao.value='SALVAR'; ".
	                                        "document.forms.fmECadGruPro.submit();"
		             , 'Salvar (F10)','images/btimg_salvar.png').'&nbsp;&nbsp;'.
   	   '</td>'.
   	   '<td width="120px" align="left">'.
   	    HTML_Botao( 3, 'CadEProGru_BT_Fec', $oJanelaPrinc->sJavOnClickF
                     , 'Sair (ESC)','images/btimg_fechar.png').
   	   '</td>'.
   	  '</tr></table>'.
	  $oJanelaPrinc->MontaJanHTML(False);
   //
   
   //
   $sRet_JavsPos .=
     "function F_Puxar() {".
       "parent.document.forms.fmECadGruPro.acao.value='PUXAR';".
       "parent.document.forms.fmECadGruPro.submit();".
	   "parent.document.forms.fmECadGruPro.Gru_Descri.focus();".
	 "}".
	 ($bDir_Alterar ? '' :
	   "parent.document.getElementById('CadEProGru_BT_Sav').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('CadEProGru_BT_Sav').style.display != 'none' ) {".
                "setTimeout( parent.document.getElementById('CadEProGru_BT_Sav').onclick , 100);".
		    "}".
        "} else if ( vNumTecla==116) { ".  // ** [F5] **         Não atualizar
		    //
        "} else if ( vNumTecla==115) { ".  // ** [F4] **         Altera imagem
            "setTimeout( parent.document.getElementById('CadEProGru_BT_AltImg').onclick , 100);".
			//
        "} else if ( vNumTecla==114) { ".  // ** [F3] **         Remover imagem
            "setTimeout( parent.document.getElementById('CadEProGru_BT_LmpImg').onclick , 100);".
		    //
        "} else if ( vNumTecla==27) { ".  //  ** [ESC] **         // (SAIR)
            "setTimeout( parent.document.getElementById('CadEProGru_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("iCadEProGru_Descri").focus();'.
     	    "}".
        "} else {".
            "return true;".
        "}".
        "return false;".
     '}'.
     "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";'. 
       "}".  
     "}".
	 "function Interroga_Img_2() {".
       "if ( parent.document.getElementById('Balao_Img_2').style.display == 'none') {".
         'parent.document.getElementById("Balao_Img_2").style.display="inline";'. 
       "} else {".   
         'parent.document.getElementById("Balao_Img_2").style.display="none";'. 
       "}".  
     "}".
	 "function Interroga_Img_3() {".
       "if ( parent.document.getElementById('Balao_Img_3').style.display == 'none') {".
         'parent.document.getElementById("Balao_Img_3").style.display="inline";'. 
       "} else {".   
         'parent.document.getElementById("Balao_Img_3").style.display="none";'. 
       "}".  
     "}".
	 
	 
	 
     //
	 "";
}
?>