<?php
REQUIRE_ONCE "./global/est_funcoes.inc";
REQUIRE_ONCE("./global/funcoes_cad_codigo_bar.inc");
$sNomeIdJConsulta = 'iJan_LstCadPro';
$sNomeIdJEdt_Cad = 'iJan_EdtCadPro';
$sNomeIdJEdt_Gru = 'iJan_EdtCadGru';
$nTmpFrmEnv = 300;
$bImpTxtLocal = SQLVarConfig('GARCOM_LOCAL_TXT_SERIAL')+0;
$bImpTxtBalca = SQLVarConfig('GARCOM_BALCAO_TXT_SERIAL')+0;
$bImpTxtEntre = SQLVarConfig('GARCOM_ENTREGA_TXT_SERIAL')+0;
$bTribuFiscal = SQLVarConfig('TRIBUTACAO_FISCAL')+0;
$bUsa_Balanca_Acbr = SQLVarConfig('BALANCA_ACBR')+0;
$sTipoLocal   = SQLVarConfig('NOME_LOCAIS_SVC');
$bTaxaIteIndv = (SQLVarConfig('TODOSITENS_COM_TAXASVR')+0)==0;
$sCorBarraInf = '#E8E3CE';
$bDir_Consult = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'C');
$bDir_Alterar = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'A');
$bDir_Incluir = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'I');
$bUsa_Balanca = (SQLVarConfig('BALANCA_MARCA')+0)>0;
$sMarca_Balanca = SQLVarConfig('BALANCA_MARCA')+0;
$bRevendaGas = (SQLVarConfig('REVENDA_DE_GAS')+0)>0;

If ($sMarca_Balanca ==0) {
	$sMarca_Balanca = '';
} ElseIf ($sMarca_Balanca ==1) {
	$sMarca_Balanca = 'Filizola';
} ElseIf ($sMarca_Balanca ==2) {
	$sMarca_Balanca = 'Toledo';
}

$bUsaNfe      = SQLVarConfig('ECOOK_PLUS_USA_NFE')+0;
//
$sIte_CodigoI = @$_REQUEST['Ite_CodigoI'];
If ( ISSET($_REQUEST['Ite_CodigoI']) ) {
   $sIte_CodigoI = @$_REQUEST['Ite_CodigoI']+0;
}
//
//  ** CONSULTA **
If ( EMPTY($sSubModulo) ) {
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJConsulta; 
    $oJanelaPrinc->nWidth  = 870;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
    $oJanelaPrinc->nTop    = 1;
    $oJanelaPrinc->nLeft   = 20;
	$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Produtos';
	//$oJanelaPrinc->sJavOnClick = "document.getElementById('iCadPro_PChave').focus();";
	$oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."1.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.fmPCadPro.acao.value='FECHAR';".
		"document.forms.fmPCadPro.submod.value='';".
		"document.forms.fmPCadPro.Pro_PChave.value='';".
		"document.forms.fmPCadPro.Pro_NumCam.value='';".
		"document.forms.fmPCadPro.submit();".
		"";
		
    //
    // Puxar Cad_Produto
    $sSQLRequest =
	  "SELECT pro.*, gru.GRU_ACTSAB, gru.GRU_ACTMEI ".
	  "FROM cad_produto             AS pro ".
	  "LEFT JOIN cad_grupo_produtos AS gru ON pro.ITE_COD_GRU = gru.GRU_CODIGO ".
	  ";";
    $Rows_Temp = MYSQL_QUERY($sSQLRequest) or die(MYSQL_ERROR().'<br>'.$sSQLRequest);
    $aGruActSab = ARRAY();
	$aGruActMei = ARRAY();
	
    While ( $Row_Temp = MYSQL_FETCH_ARRAY($Rows_Temp) ) {
       $aGruActSab[$Row_Temp['ITE_CODIGOI']] = $Row_Temp['GRU_ACTSAB'];
	   $aGruActMei[$Row_Temp['ITE_CODIGOI']] = $Row_Temp['GRU_ACTMEI'];
    }	
		
		
    // Criar objeto GRID
    $oTabelaRegs = New Pad_GridPesq();
    $oTabelaRegs->sNomeTabela  = 'cad_produto';
    $oTabelaRegs->sIdObjTabela = 'iQdr_ListaPro';
    $bMostra = False;
	$bMosMei = False; 
	ForEach ( $aGruActSab as $sTMP ) {
	     If( ($sTMP+0)>0 ) {
		    $bMostra = True;
		 }
	
	     ForEach ( $aGruActMei as $sTMP_MEI ) {
	        If( ($sTMP_MEI+0)>0 && ($sTMP+0)==0  ) {
		 	    $bMosMei = True;
	        } 
	     }
	
	
	
	}
	
	
	$oTabelaRegs->GLstCampos( //'ITE_CODIGOI,Código,45px;'.
	                          'ITE_CODIGOL,Código,45px;'.
                              'ITE_DESCRIC,Descrição;'.
                              'ITE_SIG_UNIDADE,Unid.,35px;'.
    			              'ITE_PRE_MES_NOR,Preço Normal,85px,MOE;'.  //alteração 4240
							  //'ITE_PRE_MES_NOR,'.SQLVarConfig('DESCRI_PROPRECON').',85px,MOE;'.
							  ( $bMosMei ?
							    'ITE_PRE_MES_MEI,Meia,70px,MOE;' //alteração 4240
								// 'ITE_PRE_MES_MEI,'.SQLVarConfig('DESCRI_PROPRECOM').',70px,MOE;'
							   :
                                  ""
                               ).								  
    			              (  $bMostra ?
							     'ITE_PRE_MES_001,'.SQLVarConfig('DESCRI_PROPRECO1').',80px,MOE;'.
    			                 'ITE_PRE_MES_002,'.SQLVarConfig('DESCRI_PROPRECO2').',80px,MOE;'.
    			                 'ITE_PRE_MES_003,'.SQLVarConfig('DESCRI_PROPRECO3').',80px,MOE;' 
                               :
							     ""
							   )
							);
	
	$oTabelaRegs->sCampoIndice = 'ITE_CODIGOI';
    $oTabelaRegs->nWidth  = $oJanelaPrinc->nWidth;
    $oTabelaRegs->nHeight = 350;    // Altura
    $oTabelaRegs->sCampoOnClick  = "Car_".$sNomeAcesso."1.P_Sel(<NUMCAM>); Car_".$sNomeAcesso."1.P_Atu();";
    $oTabelaRegs->sLinhaOnClick  = "Car_".$sNomeAcesso."1.PRow_Sel(<QTDCOL>,<SELLIN>);";
    $oTabelaRegs->sLinhaOnDblClk = $sJavaTravarJ.
	                               "Car_".$sNomeAcesso."1.Pesq_Editar();";
    $oTabelaRegs->sJavSelectReg = "sSelIndice = S_Indice;".
	                              "if (parseInt(sSelIndice)>0) {".
								      "if (parent.document.forms.fmPCadPro.Pro_Ativos.value=='0') {".
									      ($bDir_Alterar ?
				                             "parent.document.getElementById('CadCPro_BT_Itv').style.display='inline-block';"
										  : '').
				                          "parent.document.getElementById('CadCPro_BT_Atv').style.display='none';".
									  "} else if (parent.document.forms.fmPCadPro.Pro_Ativos.value=='1') {".
									   //"} else {".
				                          "parent.document.getElementById('CadCPro_BT_Itv').style.display='none';".
									      ($bDir_Alterar ?
				                             "parent.document.getElementById('CadCPro_BT_Atv').style.display='inline-block';"
										  : '').
								       "}".
		                               "parent.document.getElementById('CadCPro_BT_Edt').style.display='inline-block';".
								   "} ".
	                              'parent.document.getElementById("iCadPro_PChave").focus();';
    //
    // * Janela
    If ( EMPTY($sAcao) ) {
	   //
	   $sJavClkAtiv =
          "JanEspera(true, 'Ativando registro... Aguarde...');".
          "setTimeout( function() { ".
             "document.forms.fmPCadPro.acao.value='ATIVAR'; ".
			 "document.forms.fmPCadPro.submod.value=''; ".
             "document.forms.fmPCadPro.Ite_CodigoI.value=Car_".$sNomeAcesso."1.sSelIndice;".
    	     "document.forms.fmPCadPro.submit();".
          "}, ".$nTmpFrmEnv.");".
		  "";
	   //
	   // Confirma a inativação do registro
	   $sJavClkInat =
		  JAVA_CharCode(
		     "if (_NUM_BOT_==1) { ".
                 "JanEspera(true, 'Inativando registro... Aguarde...');".
                 "setTimeout( function() { ".
                    "document.forms.fmPCadPro.acao.value='INATIVAR'; ".
                    "document.forms.fmPCadPro.submod.value=''; ".
                    "document.forms.fmPCadPro.Ite_CodigoI.value=Car_".$sNomeAcesso."1.sSelIndice;".
                    "document.forms.fmPCadPro.submit();".
                 "}, ".$nTmpFrmEnv.");".
		  	"}"
		  );
	   $sJavClkInat =
		  "sIdHasFocus='iCadPro_PChave';".
	      "Qdr_Prompt_H(true,'Tem certeza que deseja INATIVAR este produto?',".$sJavClkInat.",['Sim','Não']); ";
	   //
	   // Combo de Grupo de produtos
       // $sHTML_ComboGru = '<option value="0">- Filtrar por grupo - (TODOS)</option>';
       // $RowsT_CadGru = MYSQL_QUERY( "SELECT * FROM cad_grupo_produtos WHERE GRU_TRAREG=0 AND GRU_ATIVO_ ORDER BY GRU_DESCRI ASC" ) Or Die(MYSQL_ERROR());
       // While ($RowT_CadGru = MYSQL_FETCH_OBJECT($RowsT_CadGru)) {
       //     $sHTML_ComboGru .= '<option value="'.$RowT_CadGru->GRU_CODIGO.'">'.Str_Zero($RowT_CadGru->GRU_CODIGO,3).' - '.$RowT_CadGru->GRU_DESCRI.'</option>';
       // }
	   //
	   $oJanelaPrinc->aIdsObjList = ARRAY( 'iCadPro_FilCodBar','iCadPro_PChave', 'iCadPro_FilCodGru','sl_CadPro_Ativos', );
	   //
       // Tela HTML
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
          '<form name="fmPCadPro" accept-charset="latin1" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'2">'.
           '<input name="mod" type="hidden" value="'.$sModulo.'">'.
           '<input name="submod" type="hidden" value="">'.
           '<input name="acao" type="hidden" value="">'.
    	   '<input name="nomeacs" type="hidden" value="'.$sNomeAcesso.'">'.
    	   '<input name="Pro_PChave" type="hidden" value="">'.
           '<input name="Pro_Ativos" type="hidden" value="0">'.
    	   '<input name="Pro_NumCam" type="hidden" value="">'.
    	   '<input name="Ite_CodigoI" type="hidden" value="">'.
    	   '<input name="Fil_CodGru" type="hidden" value="">'.
           '<input name="Fil_CodBar" type="hidden" value="0">'.
          '</form>'.
       	  '<table width="100%">'.
		     '<tr>'.
       	        '<td width="4px" height="1px" align="left">'.
				   '&nbsp;'.
				'</td>'.
       	        '<td align="left" width="228px" style="font-size:14px;">'.
       	           'Opção por: '.
       	        '</td>'.
       	        '<td align="left" width="222px" style="font-size:14px;">'.
       	           'Procurar por: '.
       	        '</td>'.
			    '<td align="left" width="169px" style="font-size:14px;">'.
       	           'Grupo '.
       	        '</td>'.
				'<td align="left" style="font-size:14px;">'.
       	           'Mostrar'.
				'</td>'.
			 '</tr>'.
		  '</table>'.  
		  '<table width="100%">'.
             '<tr>'.
       	        '<td width="4px" height="1px" align="left">'.
                   '&nbsp;'.
                '</td>'.
				'<td align="left">'.
                   '<select id="iCadPro_FilCodBar" style="font-size:12px;width:194px;;margin-top:-1px;height:20px;" onchange="Car_'.$sNomeAcesso.'1.P_Atu();">'.
                      '<option value="0">Por Coluna Selecionada Abaixo</option>'.
           	          '<option value="1">Por Código de Barras&nbsp;&nbsp;&nbsp;&nbsp;</option>'.
                   '</select>'.
                '</td>'.
				'<td align="left" width="220px">'.
       	           '<input id="iCadPro_PChave" type="text" maxlength="30" style="width:98%; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;height:20px;">'.
       	        '</td>'.
				'<td align="left" width="150px">'.
			       '<select id="iCadPro_FilCodGru" onchange="Car_'.$sNomeAcesso.'1.P_Atu();">'.
			  	   '</select>'.
       	        '</td>'.
				'<td align="left">'.
			       '<select id="sl_CadPro_Ativos" onchange="Car_'.$sNomeAcesso.'1.P_Atu();" style="font-size:14px;border-width: 1px; border-style: solid; border-color: #0099FF;margin-top:-1px;height:20px;">'.			
				      '<option value="0">Ativos&nbsp;&nbsp;&nbsp;</option>'.
				      '<option value="1">Inativos&nbsp;&nbsp;&nbsp;</option>'.
					  '<option value="2">Todos&nbsp;&nbsp;&nbsp;</option>'.				  
			       '</select>'.	
				'</td>'.
			    '<td align="left" width="116px">'.
       	           HTML_Botao( 3, 'CadMPG_BT_Pro', 'Car_'.$sNomeAcesso.'1.P_Atu();'
		                        , 'Procurar'     , 'images/btimg_lupa.png').
       	        '</td>'.
			 '</tr>'.
		  '</table>'.  
		   //'<td align="left" width="70px">'.
       	   // 'Procurar por: '.
       	   //'</td>'.
       	   //'<td align="left" width="180px">'.
       	   // '<input id="iCadPro_PChave" type="text" maxlength="30" style="width:98%; height:24px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
       	   //'</td>'.
       	   //'<td align="left" width="150px">'.
		   //'<select id="iCadPro_FilCodGru" onchange="Car_'.$sNomeAcesso.'1.P_Atu();">'.
		   //$sHTML_ComboGru.
		   //'</select>'.
       	   //'</td>'.
       	   //'<td align="center">'.
		   // '<span id="sp_MostrarInativos" onclick="Car_'.$sNomeAcesso.'1.P_Ativos();" style="cursor:pointer; font-weight:bold; font-size:13px; text-decoration:underline;">'.
		   //'Mostrar somente os <span id="PCadPro_Ativos">inativos</span>'.
		   //'</span>'.
       	   //'</td>'.
       	   //'<td align="left" width="116px">'.
       	   //HTML_Botao( 3, 'CadMPG_BT_Pro', 'Car_'.$sNomeAcesso.'1.P_Atu();'
		   //             , 'Procurar'     , 'images/btimg_lupa.png').
       	   //'</td>'.
       	   //  '</tr></table>'.
           // '<table width="100%">'.
           // '<tr>'.
       	   //   '<td width="4px" height="10px" align="left">'.
           //     '&nbsp;'.
           //   '</td>'.
           //   '<td align="left" width="70px">'.
       	   //     'Opção por: '.
       	   //   '</td>'.
       	   //   '<td height="28px" align="left" style="font-size:12px;">'.
           //     '<select id="iCadPro_FilCodBar" style="font-size:12px;width:200px;" onchange="Car_'.$sNomeAcesso.'1.P_Atu();">'.
           //       '<option value="0">Por Coluna Selecionada Abaixo</option>'.
           //	      '<option value="1">Por Código de Barras</option>'.
           //     '</select>'.
           //   '</td>'.
           // '</tr>'.
           //'</table>'.  
    	  $oTabelaRegs->MontaDivHtml().
		  '<div style="width:100%; height:1px; background-color:#91D8F8;"></div>'.
       	  '<table width="100%"></tr>'.
       	   '<td width="4px" height="10px" align="left">&nbsp;</td>'.
		   '<td>'.
		    '<span id="CadCPro_sp_QtdReg"></span>'.
		   '</td>'.
		  '</table>'.
       	  '<table width="100%" style="background-color:'.$sCorBarraInf.';"></tr>'.
       	   '<td width="4px" height="40px" align="left">&nbsp;</td>'.
       	   '</td>'.
       	   '<td>'.
       	    HTML_Botao( 3, 'CadCPro_BT_Nov', $sJavaTravarJ.
			                                 "document.forms.fmPCadPro.acao.value='NV'; ".
			                                 "document.forms.fmPCadPro.submod.value='EDT'; ".
    	                                     "document.forms.fmPCadPro.submit();"
			             , 'Novo (F6)'   ,'images/btimg_novo.png').'&nbsp;&nbsp;'.
       	    HTML_Botao( 3, 'CadCPro_BT_Edt', $sJavaTravarJ.
			                                 "Car_".$sNomeAcesso."1.Pesq_Editar();"
			             , ($bDir_Alterar ? 'Editar' : 'Visualizar').' (F7)' ,'images/btimg_editar.png', 130).'&nbsp;&nbsp;'.
       	    HTML_Botao( 3, 'CadCPro_BT_Itv', $sJavClkInat
			             , 'Inativar (F8)','images/btimg_remover.png', 110).
       	    HTML_Botao( 3, 'CadCPro_BT_Atv', $sJavClkAtiv
			             , 'Ativar (F8)','images/btimg_ativar.png').'&nbsp;&nbsp;'.
       	   '</td>'.
       	   '<td width="124px" align="left">'.
       	    HTML_Botao( 3, 'CadCPro_BT_Fch', $oJanelaPrinc->sJavOnClickF
                         , 'Sair (ESC)' ,'images/btimg_fechar.png').
       	   '</td>'.
       	  '</tr></table>'.
    	  $oJanelaPrinc->MontaJanHTML(False);
       //
       $sRet_Javs .=
		  'parent.document.getElementById("dv_MenuL_Barra").style.visibility="hidden";'.
	      "var sSelIndice='0';".
          "function P_Atu() {".
            "sSelIndice='0';".
		    $oTabelaRegs->MontaJavaAgu().
		    "parent.document.getElementById('CadCPro_BT_Edt').style.display='none';".
		    "parent.document.getElementById('CadCPro_BT_Itv').style.display='none';".
		    "parent.document.getElementById('CadCPro_BT_Atv').style.display='none';".
			"parent.document.getElementById('CadCPro_sp_QtdReg').innerHTML='';".
         	"parent.document.forms.fmPCadPro.acao.value='LISTAR'; ".
            "parent.document.forms.fmPCadPro.submod.value=''; ".
         	"parent.document.forms.fmPCadPro.Pro_PChave.value=parent.document.getElementById('iCadPro_PChave').value; ".
			"parent.document.forms.fmPCadPro.Fil_CodGru.value=parent.document.getElementById('iCadPro_FilCodGru').value; ".
            "parent.document.forms.fmPCadPro.Fil_CodBar.value=parent.document.getElementById('iCadPro_FilCodBar').value; ".
			"parent.document.forms.fmPCadPro.Pro_Ativos.value=parent.document.getElementById('sl_CadPro_Ativos').value;".
         	"parent.document.forms.fmPCadPro.Pro_NumCam.value=nPesq_CampoSel+''; ".
         	"setTimeout( function() { parent.document.forms.fmPCadPro.submit(); }, 100);".
            'parent.document.getElementById("iCadPro_PChave").focus();'.
			"TravarTodaJanela(true);".
          '}'.
		  'function Pesq_Editar() {'.
            "parent.document.forms.fmPCadPro.acao.value='';".
            "parent.document.forms.fmPCadPro.submod.value='EDT';".
            "parent.document.forms.fmPCadPro.Ite_CodigoI.value=sSelIndice;".
            "parent.document.forms.fmPCadPro.submit();".
		  '}'.
		  "var bExbAtivos=true;".
		  //'function P_Ativos() {'.
		  //  "var obj = parent.document.getElementById('PCadPro_Ativos');".
		  //	"if (bExbAtivos) {".
          //      "parent.document.forms.fmPCadPro.Pro_Ativos.value='0'; ".
	      //		    "obj.innerHTML = 'ativos';".
		  //		"bExbAtivos = false;".
		  //	"} else {".
          //       "parent.document.forms.fmPCadPro.Pro_Ativos.value='1'; ".
	      //		    "obj.innerHTML = 'inativos';".
	      //			"bExbAtivos = true;".
		  //	"}".
	      //		"P_Atu();".
		  //  '}'.
          $oTabelaRegs->MontaJavaPri().
		  "function TravarTodaJanela(bTravar) {".
		     "parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',bTravar);".
		     "if (bTravar) {".
		          "parent.document.getElementById('CadCPro_BT_Nov').style.display='none';".
		          "parent.document.getElementById('CadCPro_BT_Fch').style.display='none';".
		          "parent.document.getElementById('CadMPG_BT_Pro').style.display='none';".
		         // "parent.document.getElementById('sp_MostrarInativos').style.display='none';".
			 "} else {".
                  ($bDir_Incluir ? 
		          "parent.document.getElementById('CadCPro_BT_Nov').style.display='inline-block';"
		          : '').
		          "parent.document.getElementById('CadCPro_BT_Fch').style.display='inline-block';".
		          "parent.document.getElementById('CadMPG_BT_Pro').style.display='inline-block';".
		          //"parent.document.getElementById('sp_MostrarInativos').style.display='';".
                  'parent.document.getElementById("iCadPro_PChave").focus();'.
			 "}".
		  "}".
          '';
       // Java posterior
       $sRet_JavsPos .=
          ($bDir_Incluir ? '' :
		  "parent.document.getElementById('CadCPro_BT_Nov').style.display='none';"
		  ).
		  "parent.document.getElementById('CadCPro_BT_Edt').style.display='none';".
		  "parent.document.getElementById('CadCPro_BT_Itv').style.display='none';".
		  "parent.document.getElementById('CadCPro_BT_Atv').style.display='none';".
		  ($bDir_Consult ?
		    "P_Atu();"
		  :
		    Info_Evento('ALERTA: Sem previlégio para consulta neste modulo.').
         	"parent.document.forms.fmPCadPro.acao.value='FECHAR'; ".
            "parent.document.forms.fmPCadPro.submod.value=''; ".
         	"parent.document.forms.fmPCadPro.submit();"
		  ).
    	  'parent.document.getElementById("iCadPro_PChave").focus();'.
		  //
		  "function Teclas_F( Objeto, Evento ) {".
             "vNumTecla = parent.Tecla_Apertada(Evento);".
             "if ( vNumTecla==117) { ".        //  ** [F6] **          // (Novo)
                 "if ( parent.document.getElementById('CadCPro_BT_Nov').style.display != 'none') {".
                     "setTimeout( parent.document.getElementById('CadCPro_BT_Nov').onclick , 100);".
				 "}".
		     "} else if ( vNumTecla==116) { ".  // ** [F5] **         Não atualizar
                 //
		     "} else if ( vNumTecla==118) { ". //  ** [F7] **          // (Editar)
                 "if ( parent.document.getElementById('CadCPro_BT_Edt').style.display != 'none') {".
                      "setTimeout( parent.document.getElementById('CadCPro_BT_Edt').onclick , 100);".
				 "}".
		     "} else if ( vNumTecla==119) { ". //  ** [F8] **          // (Inativar)
                 "if ( parent.document.getElementById('CadCPro_BT_Itv').style.display != 'none') {".
                      "setTimeout( parent.document.getElementById('CadCPro_BT_Itv').onclick , 100);".
					                                                   // (Ativar)
                 "} else if ( parent.document.getElementById('CadCPro_BT_Atv').style.display != 'none') {".
                      "setTimeout( parent.document.getElementById('CadCPro_BT_Atv').onclick , 100);".
				 "}".
		     "} else if ( vNumTecla==27) { ".  //  ** [ESC] **         // (SAIR)
                  "setTimeout( parent.document.getElementById('CadCPro_BT_Fch').onclick , 100);".
			 "} else {".
		          "P_TeclasPress_fm(Evento);".
			      "return true;".
			 "}".
			 "return false;".
		  '}'.
    	  "";
		  //
    //
    // FECHAR
    } ElseIf ( $sAcao=="FECHAR" ) {
       $sRet_Javs .=
	      'parent.document.getElementById("dv_MenuL_Barra").style.visibility="visible";'.
	      "parent.RmElem('".$oJanelaPrinc->sIdObj."');";
    //
	// * Montar lista de cadastros
    } ElseIf ( $sAcao=="LISTAR" ) {
	   If ($bDir_Consult) {
          $sP_PChave = @$_REQUEST['Pro_PChave'];
          $nP_NumCam = @$_REQUEST['Pro_NumCam']+0;
          $nP_CodGru = @$_REQUEST['Fil_CodGru']+0;
          //$bP_Ativos = (@$_REQUEST['Pro_Ativos']+0)>0;
		  $nP_Ativos  = @$_REQUEST['Pro_Ativos']+0; //0-ativos 1-inativos 2 -todos
          $bP_CodBar = (@$_REQUEST['Fil_CodBar']+0)>0;
          $nIniReg = 0;
          $nQtdReg = 7000;  // Quantidade Máxima de registros
          // Montar condição para a pesquisa
          $sWhereSQL =  "";
          $sOrderSQL =  "";
          If ($nP_Ativos == 0) {
             $sWhereSQL .= 'AND ITE_ITEM_ATIVO_ ';
          } ElseIf ($nP_Ativos == 1) { //inativos
		     $sWhereSQL .= 'AND ITE_ITEM_ATIVO_=0 ';
          }
          If ($nP_CodGru>0) {
             $sWhereSQL .= 'AND ITE_COD_GRU='.$nP_CodGru.' ';
          }
          //
          If ( $nP_NumCam==0 ) { 
             $nP_NumCam=2;
          }
          $aLstCampo = EXPLODE(',',@$oTabelaRegs->aLstCampos[$nP_NumCam-1]);
          If ( $bP_CodBar && STRLEN($sP_PChave)>0) {
             If(STRLEN($sP_PChave)<4){
               $sP_PChave = Str_Zero($sP_PChave, 4);
             }
             $sWhereSQL .= "AND BAR_CODBAR='".$sP_PChave."' ";
          } Else {
             If ( STRLEN(@$aLstCampo[0])>0 ) {
               If ( STRLEN($sP_PChave)>0 ) {
                  If (SUBSTR(@$aLstCampo[0],0,8)=='ITE_PRE_') { $sP_PChave = STR_REPLACE(',','.',$sP_PChave); }
                  $sWhereSQL .= 'AND '.$aLstCampo[0].' LIKE "%'.$sP_PChave.'%" ';
               }
			   $sOrderSQL = 'ORDER BY '.$aLstCampo[0].' ASC ';
             }
          }
		  //
          $oTabelaRegs->sBDQuery =
              'SELECT ITE_CODIGOI, ITE_CODIGOL, ITE_DESCRIC,'.
                     'ITE_COD_GRU, ITE_INGRED1, ITE_INGRED2,'.
                     'ITE_COD_BAR, ITE_LOC_IMP1, ITE_LOC_IMP2,'.
                     'ITE_LOC_IMP3, ITE_PRE_MES_NOR, ITE_PRE_MES_001,'.
                     'ITE_PRE_MES_002, ITE_PRE_MES_003, ITE_PRE_MES_004,'.
                     'ITE_PRE_MES_MEI, ITE_PRE_ENT_NOR, ITE_PRE_ENT_001,'.
                     'ITE_PRE_ENT_002, ITE_PRE_ENT_003, ITE_PRE_ENT_004,'.
                     'ITE_PRE_ENT_MEI, ITE_PRE_BAL_NOR, ITE_PRE_BAL_001,'.
                     'ITE_PRE_BAL_002, ITE_PRE_BAL_003, ITE_PRE_BAL_004,'.
                     'ITE_PRE_BAL_MEI, ITE_ACT_OPCIONA, ITE_CALCTAXASVR,'.
					 'ITE_PRE_CUS_001, ITE_PRE_CUS_002, ITE_PRE_CUS_003,'.
					 'ITE_PRE_CUS_004, ITE_PRE_CUSTO_N, ITE_PRE_CUSTO_M,'.
					 'ITE_PRE_CUSTO_E,'.
                     'ITE_SIG_UNIDADE, ITE_TARA_BL, ITE_BALANCA, ITE_FISCAL_TRIB,'.
                     'ITE_CES_COD, ITE_COD_NCM, ITE_COD_ORI,'.
                     'ITE_COD_ANP, ITE_ANP_DESCRI, ITE_ANP_PRCGLP, '.
                     'ITE_ITEM_ATIVO_, ITE_REG_TRAVADO, ITE_PES_PRO, ITE_TIPCOMBO, ITE_PERAPVEN, ITE_SENHA_RET '.
              'FROM  cad_produto '.
              'LEFT JOIN cad_codigo_barras ON BAR_CODITE=ITE_CODIGOI '.
              "WHERE ". 
                     "ITE_REG_TRAVADO=0 ".
                     $sWhereSQL.
                     'GROUP BY ITE_CODIGOI '.
                     $sOrderSQL.  
                     'LIMIT '.$nIniReg.','.$nQtdReg;
          // Tabela
          $sRet_TelaJ_HTML = $oTabelaRegs->MontaTabelaHTML();
          // Combo de grupos
          $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_DESCRI ASC" ) Or Die(MYSQL_ERROR());
          While ($RowT_CadGru = MYSQL_FETCH_OBJECT($RowsT_CadGru)) {
             $sHTML_ComboGru .= '<option value="'.$RowT_CadGru->GRU_CODIGO.'" '.($RowT_CadGru->GRU_CODIGO==$nP_CodGru ? 'selected' : '').'>'.Str_Zero($RowT_CadGru->GRU_CODIGO,3).' - '.$RowT_CadGru->GRU_DESCRI.($RowT_CadGru->GRU_ATIVO_ ? '' : ' (INATIVO)').'</option>';
          }
		  // Java
          $sRet_Javs .=
            "var iQdr_ListaPro = parent.document.getElementById('".$oTabelaRegs->sIdObjTabela."');".
            //'iQdr_ListaPro.innerHTML = '.JAVA_CharCode($sRet_TelaJ_HTML).';'.
            'iQdr_ListaPro.innerHTML = '.JAVA_CharCode_Mini($sRet_TelaJ_HTML).';'.
            'parent.Car_'.$sNomeAcesso.'1.'.$oTabelaRegs->sNomeTabela.'_Rowsel = 1;'.
			"parent.document.getElementById('CadCPro_sp_QtdReg').innerHTML = '".($oTabelaRegs->nQtdRegistros>0 ? $oTabelaRegs->nQtdRegistros.' registros encontrados.' : 'Nenhum registro encontrado')."';".
            ( $bP_CodBar ? "parent.document.getElementById('iCadPro_PChave').value='".$sP_PChave."';" : "" ).
			"parent.document.getElementById('iCadPro_FilCodGru').innerHTML=".JAVA_CharCode_Mini($sHTML_ComboGru).";".
            '';
          // Java posterior
          $sRet_JavsPos .=
		    'parent.Car_'.$sNomeAcesso.'1.TravarTodaJanela(false);'.
            'parent.Car_'.$sNomeAcesso.'1.'.$oTabelaRegs->sNomeTabela.'_Rowsel = 1;'.
			'parent.Car_'.$sNomeAcesso.'1.P_Sel('.$nP_NumCam.');'.
            //'parent.Car_'.$sNomeAcesso.'1.PRow_Sel('.($oTabelaRegs->nQtdCampos-1).',1);'.
            '';
          $sRet_TelaJ_HTML = '';
	   }
    //
    // ATIVAR REGISTRO
    } ElseIf ( $sAcao=="ATIVAR" ) {
	   $sRet_Javs .=
	      'parent.JanEspera(false);'.
		  '';
	   If ($bDir_Alterar) {
	      If ((@$_REQUEST['Ite_CodigoI']+0)>0) {
             MYSQL_QUERY("UPDATE cad_produto SET ITE_ITEM_ATIVO_=1 WHERE ITE_CODIGOI=".(@$_REQUEST['Ite_CodigoI']+0)." ;") or die(MYSQL_ERROR());
	         $sRet_Javs .=
		        'parent.Car_'.$sNomeAcesso.'1.PRow_Sel('.($oTabelaRegs->nQtdCampos-1).',1);'.
		   	    'parent.Car_'.$sNomeAcesso.'1.P_Atu();'.
		   	    '';
	      }
	   } Else {
	      $sRet_Javs .= Info_Evento('ALERTA: Sem previlégio de alteração para ativar este produto.');
	   }
    //
    // INATIVAR REGISTRO
    } ElseIf ( $sAcao=="INATIVAR" ) {
	   $sRet_Javs .=
	      'parent.JanEspera(false);'.
		  '';
	   If ($bDir_Alterar) {
	      If ((@$_REQUEST['Ite_CodigoI']+0)>0) {
             MYSQL_QUERY("UPDATE cad_produto SET ITE_ITEM_ATIVO_=0 WHERE ITE_CODIGOI=".(@$_REQUEST['Ite_CodigoI']+0)." ;") or die(MYSQL_ERROR());
	         $sRet_Javs .=
		        'parent.Car_'.$sNomeAcesso.'1.PRow_Sel('.($oTabelaRegs->nQtdCampos-1).',1);'.
                'parent.Car_'.$sNomeAcesso.'1.P_Atu();'.
		   	    '';
	      }
	   } Else {
	      $sRet_Javs .= Info_Evento('ALERTA: Sem previlégio de alteração para inativar este produto.');
	   }
    }
//
//  ** CADASTRO (NOVO/EDITA) **
} ElseIf ( $sSubModulo=="EDT" ) {
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJEdt_Cad; 
    $oJanelaPrinc->nWidth  = 860;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
    $oJanelaPrinc->nTop    = 10;
    $oJanelaPrinc->nLeft   = 0;
	$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Cadastro de produto';
	//
	$oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."2.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.fmECadPro.acao.value='FECHAR'; ".
		  "document.forms.fmECadPro.submit();".
		  "";
	//
	$bMontarJanela = true;
    // $sIte_CodigoI = @$_REQUEST['Ite_CodigoI'];
	$bIte_Novo    = $sIte_CodigoI=="NOVO";
	//
    // Criar objeto GRID dos Fornecedores
    $oListaFor = New Pad_GridPesq();
    $oListaFor->sNomeTabela   = 'cad_fornecedor';
    $oListaFor->sTabelas      = 'cad_produto_fornecedor, cad_fornecedor';
	$oListaFor->sBDParametros =
	     "WHERE PFO_CODITE=".$sIte_CodigoI." AND PFO_CODFOR=FOR_CODIGO AND (PFO_TRAREG=0 OR PFO_TRAREG=2) ".
		 "ORDER BY PFO_ULTCOM DESC;";
    $oListaFor->sIdObjTabela  = 'iQdr_ListaFor';
    $oListaFor->GLstCampos( 'FOR_CODIGO,Código,45px,STRZERO=6;'.
                            'FOR_FANTAS,Nome fantasia;'.
    			            'PFO_ULTCOM,Ultima compra,110px,DTH;' );
    $oListaFor->sCampoIndice = 'FOR_CODIGO';
    $oListaFor->nWidth  = $oJanelaPrinc->nWidth-36;
    $oListaFor->nHeight = 150;   // Altura
    $oListaFor->sCampoOnClick  = "Car_".$sNomeAcesso."2.P_Sel(<NUMCAM>); ";
	                             //"Car_".$sNomeAcesso."1.P_Atu();".
								 "";
    $oListaFor->sLinhaOnClick  = "Car_".$sNomeAcesso."2.PRow_Sel(<QTDCOL>,<SELLIN>);";
    //$oListaFor->sLinhaOnDblClk = $sJavaTravarJ.
	//                               "Car_".$sNomeAcesso."1.Pesq_Editar();";
    $oListaFor->sJavSelectReg = "sSelIndice = S_Indice;".
	                            "if (parseInt(sSelIndice)>0) {".
								    ($bDir_Alterar ?
		                              "parent.document.getElementById('CadEPro_BT_RmvFor').style.display='inline-block';"
								    : '').
								"} ".
	                            'parent.document.getElementById("iECadEIte_iLstFor").focus();';
	//
	// * Salvar
    If ( $sAcao=="SALVAR" ) {
	   $nIte_CodigoI = 0;
	   $sIte_CodigoL = @$_REQUEST['Ite_CodigoL'];
	   $bGravarReg = False;
	   If ($bDir_Alterar) {
          $bGravarReg = True;
	   } Else {
          $sRet_Javs .=
            Info_Evento('ALERTA: Você não tem previlégio para alterar este produto.').
            "";
	   }
	   If ($bGravarReg) {
          If ( STRLEN(@$_REQUEST['Ite_Descric'])<2 ) {
             $sRet_Javs .=
               Info_Evento('Alguns campos estão incompletos.').
          	   "";
             $bGravarReg = False;
	      }
	   }
       $n_Calc_ValorT =
	     STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Mes_Nor'])+STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Mes_Mei'])+
         STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Mes_001'])+STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Mes_002'])+
		 STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Mes_003'])+STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Mes_004'])+
         STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Ent_Nor'])+STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Ent_Mei'])+
         STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Ent_001'])+STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Ent_002'])+
		 STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Ent_003'])+STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Ent_004'])+
         STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Bal_Nor'])+STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Bal_Mei'])+
         STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Bal_001'])+STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Bal_002'])+
		 STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Bal_003'])+STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Bal_004'])+
         0;
	   If ($bGravarReg) {
	      If ( $bTribuFiscal && $n_Calc_ValorT>0 && (@$_REQUEST['Ite_Fiscal_Trib']+0)==0) {
             $sRet_Javs .=
               Info_Evento('CST e Tributação é obrigatório.',1,'Cadastro de produto').
          	   "";
             $bGravarReg = False;
		  }
	   }
	   If ($bGravarReg && $n_Calc_ValorT>0 && $bTribuFiscal) {
	      If ( (@$_REQUEST['Ite_Cod_NCM']+0)==0) {
             $sRet_Javs .=
               Info_Evento('O código NCM do produto é obrigatório.',1,'Cadastro de produto').
          	   "";
             $bGravarReg = False;
		  } Else {
		     $sSQLQueryC =
			    "SELECT COUNT(*) FROM cad_tabela_ibpt WHERE IBP_COD_NCM='".($_REQUEST['Ite_Cod_NCM'])."';";
	         $bEncontrado = MYSQL_QUERY($sSQLQueryC) or die(MYSQL_ERROR());
		     $bEncontrado = MYSQL_FETCH_ARRAY($bEncontrado);
			 $bEncontrado = $bEncontrado[0]>0;
			 $bGravarReg  = $bEncontrado;
			 If ( ! $bEncontrado ) {
                $sRet_Javs .=
                  Info_Evento('O código NCM do produto é inválido.',1,'Cadastro de produto').
          	      "";
			 }
		  }
	   }
	   //trava cest
	   
	   If ($bGravarReg && $n_Calc_ValorT>0 && $bTribuFiscal) {
	      $sCod_Cest = @$_REQUEST['Ite_Cod_CES'];
		  $bTra_va   = False;
		  If( STRLEN($sCod_Cest)>0) {
		     $RowsT = MYSQL_QUERY("SELECT * FROM cad_cest WHERE CST_CODCES='".$sCod_Cest."' ;") or die(MYSQL_ERROR());
             If (MYSQL_NUM_ROWS($RowsT)==0) {     
		        $sRet_Javs .= Info_Evento('Cest não Cadastrado : '.$sCod_Cest);
	            $bGravarReg = False;
		     }
		  }
		  If ($bGravarReg) {
             $sCod_Cst = '';
		     $nIte_CstFis = (@$_REQUEST['Ite_Fiscal_Trib']+0);
		     
		     $sSQLQuery = "SELECT TRB.*,CST.* ". 
		                  "FROM cad_tributacao as TRB ".
							      "LEFT JOIN cad_cst AS CST ON CST.CST_CODIGOI=TRB.TRB_COD_CST ".
						          "WHERE TRB_CODIGOI='".$nIte_CstFis."' ;";
					
		     $RowTri = MYSQL_QUERY( $sSQLQuery ) or die(MYSQL_ERROR());
             If ($RowTri = MYSQL_FETCH_OBJECT($RowTri)) {
		        $sCod_Cst = $RowTri->CST_CODFISC;
		     }
			 
			 If ( (@$_REQUEST['Ite_Cod_CES']+0)==0) {
		        
		        //ALTERAÇÃO 3966 (10,30,60,70,90) (201,202,203,500,900)
		        If( (trim($sCod_Cst)=='010') || (trim($sCod_Cst)=='030') || (trim($sCod_Cst)=='060') || (trim($sCod_Cst)=='070') || (trim($sCod_Cst)=='090') || (trim($sCod_Cst)=='201') || (trim($sCod_Cst)=='202') || (trim($sCod_Cst)=='203') || (trim($sCod_Cst)=='500') || (trim($sCod_Cst)=='900')) { 
		        	$sRet_Javs .=
                       Info_Evento('CEST obrigatório para cst/csosn '.trim($sCod_Cst).'.',1).
                       "";
		            $bGravarReg = False; 
		        }
						
		     } Else {
				
				If ((trim($sCod_Cst)<>'010') && (trim($sCod_Cst)<>'030') && (trim($sCod_Cst)<>'060') && (trim($sCod_Cst)<>'070') && (trim($sCod_Cst)<>'090') && (trim($sCod_Cst)<>'201') && (trim($sCod_Cst)<>'202') && (trim($sCod_Cst)<>'203') && (trim($sCod_Cst)<>'500') && (trim($sCod_Cst)<>'900') ) { 
				  $bTra_va = True;
				} Else {
				  $bTra_va = False;
				}
				If ($bTra_va) {
				   $sRet_Javs .=
                      Info_Evento('CEST não obrigatório para cst/csosn '.trim($sCod_Cst).'.',1).
                      "";
		           $bGravarReg = False; 
			    }
			 }	  
		  
		  }    
	  
	   }
	   //
	      
	   
	   //
	   If ($bGravarReg) {
	      If ( STRLEN($sIte_CodigoL)==0 ) {
	         //$bGravarReg = False;
	         //$sRet_Javs .= Info_Evento('Codigo cardapio é obrigatório.');
             //gus livre
			 if ($bIte_Novo) {
			 	$sSQLQueryC =
			 	   "SELECT ITE_CODIGOL FROM cad_produto;"; 
				$Row_CadPro = MYSQL_QUERY($sSQLQueryC) or die(MYSQL_ERROR());
		        $nNum_Reg = MYSQL_NUM_ROWS($Row_CadPro);
				$Row_CadPro = MYSQL_FETCH_ARRAY($Row_CadPro);
		       
				 
				For ( $i = 0; $i < $nNum_Reg+1; $i++) {
				   
				   $sIte_CodigoL = SQLVarConfig("CAD_PRODUTO_CODL_SEQUEN")+0;
                   $sIte_CodigoL = Str_Zero($sIte_CodigoL, 4);
				   
                   $sSQLQueryC =
			          "SELECT COUNT(*) FROM cad_produto WHERE ITE_CODIGOL='".($sIte_CodigoL)."';";
	               $Row_CadPro = MYSQL_QUERY($sSQLQueryC) or die(MYSQL_ERROR());
		           $Row_CadPro = MYSQL_FETCH_ARRAY($Row_CadPro);
		           If ( (@$Row_CadPro[0]+0)==0) {
				      SQLVarConfigG("CAD_PRODUTO_CODL_SEQUEN", $sIte_CodigoL+1 );	
					  $bGravarReg = True;
					  break;
				   } else {
				      SQLVarConfigG("CAD_PRODUTO_CODL_SEQUEN", $sIte_CodigoL+1 );
					  $bGravarReg = False;
				      continue;
                   }
				}
				
			 } Else {
			   $sIte_CodigoL = SQLVarConfig("CAD_PRODUTO_CODL_SEQUEN")+0;
               $sIte_CodigoL = Str_Zero($sIte_CodigoL, 4);
                
			   SQLVarConfigG("CAD_PRODUTO_CODL_SEQUEN", $sIte_CodigoL+1 );		    
             }
          } ElseIf ( ($sIte_CodigoL+0)==0 ) {
	         $bGravarReg = False;
	         $sRet_Javs .= Info_Evento('Codigo cardápio é inválido.');
		  } Else {
		     $sIte_CodigoL = $sIte_CodigoL+0;
		     $sIte_CodigoL = Str_Zero($sIte_CodigoL, 4);
		     $sSQLQueryC =
			    "SELECT COUNT(*) FROM cad_produto WHERE ITE_CODIGOL='".($sIte_CodigoL)."'".($bIte_Novo ? '' : " AND ITE_CODIGOI<>".($sIte_CodigoI+0))." ;";
	         $Row_CadPro = MYSQL_QUERY($sSQLQueryC) or die(MYSQL_ERROR());
		     $Row_CadPro = MYSQL_FETCH_ARRAY($Row_CadPro);
		     $bGravarReg = (@$Row_CadPro[0]+0)==0;
             If (! $bGravarReg) {
	            $sRet_Javs .= Info_Evento('Não posso gravar, código cardápio já existe.');
	         }
		  }
	   }
	   If ($bGravarReg) {
	      If ( $bIte_Novo ) {
	         $nIte_CodigoI = SQLVarConfig(STRTOUPPER($sModulo)."_SEQCOD")+0;
	         $Row_CadPro = MYSQL_QUERY("SELECT * FROM cad_produto WHERE ITE_CODIGOI=".($nIte_CodigoI)." ;") or die(MYSQL_ERROR());
             If ($Row_CadPro = MYSQL_FETCH_ARRAY($Row_CadPro)) {
	            $sRet_Javs .= Info_Evento('Não posso gravar, codigo sequencial já existe ('.Str_Zero($nIte_CodigoI,6).') .',1);
				$bGravarReg = False;
			 }
		  }
	   }
	   If ($bGravarReg && STRLEN(@$_POST['Ite_CodBar'])>0) {
          $nIte_CodigoI_Tmp = Somente_Numeros($sIte_CodigoI)+0;
          $sSqlQueryA = "SELECT BAR_CODITE, ".
                               "ITE_CODIGOL, ITE_DESCRIC ".
                        "FROM cad_codigo_barras ".
                        "LEFT JOIN cad_produto ON ITE_CODIGOI = BAR_CODITE ".
                        "WHERE BAR_CODBAR='".@$_POST['Ite_CodBar']."' ;";
          $Row = MYSQL_QUERY($sSqlQueryA) or die(MYSQL_ERROR());
          If ($Row = MYSQL_FETCH_OBJECT($Row)) {
	        If( $nIte_CodigoI_Tmp <> $Row->BAR_CODITE  ){
               $sRet_Javs .= Info_Evento('Código de barras já existe no produto <br>'.
                                         $Row->ITE_CODIGOL. ' - '.$Row->ITE_DESCRIC,1);
			   $bGravarReg = False;
            }
		  } Else {
            If ( ! ISSET($aSessao['CADBAR_LISTA']) ) {
		       $sSQLQuery =
	              "SELECT BAR_CODBAR, BAR_SEQUEN ".
	              "FROM cad_codigo_barras ".
			      "WHERE BAR_CODITE=".($nIte_CodigoI_Tmp)." ".
			      "ORDER BY BAR_CODBAR";
			   $RowsT = MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
               $aCadBar_Lista = ARRAY();
               While ($RowT = MYSQL_FETCH_ARRAY($RowsT)) {
                  $aCadBar_Lista[] = $RowT;
               }
               $aSessao['CADBAR_LISTA'] = $aCadBar_Lista;
             }
             $aBar = ARRAY(
	                 "BAR_CODBAR" => @$_POST['Ite_CodBar'] ,
			 		 "BAR_SEQUEN" => 0);
	         $aSessao['CADBAR_LISTA'][] = $aBar;
          } 
       }
	   //
       If ( (!$bIte_Novo) && $bGravarReg && ISSET($_POST['Ite_Cod_Cls']) ) {
		  $sSQLQuery =
	         "SELECT CLS_HAB_FCP, CLS_INC_FCP ".
	         "FROM cad_produto_classificacao ".
		     "WHERE CLS_IDN_CLS=".($_POST['Ite_Cod_Cls']+0);
		  $RowsT = MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
          If ($RowT = MYSQL_FETCH_OBJECT($RowsT)) {
             If ( ! $RowT->CLS_INC_FCP) {
		        $sSQLQuery =
	               "SELECT FPI_COD_FPI, FPI_COD_FPG ".
	               "FROM cad_ficha_producao_itens ".
		           "WHERE FPI_COD_ITE=".($sIte_CodigoI+0);
		        $RowsT = MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
                If ($RowT = MYSQL_FETCH_OBJECT($RowsT)) {
                   $sRet_Javs .= Info_Evento('A classificação não pode ser alterada,<br>por este produto fazer parte de uma ficha técnica de produção.',1);
			       $bGravarReg = False;
				}
			 }
          } Else {
             $sRet_Javs .= Info_Evento('Código da classificação do produto é inválido.',1);
			 $bGravarReg = False;
		  }
	   }
	   //
       If ($bGravarReg) {
	      If ( $bIte_Novo ) {
	         $nIte_CodigoI = SQLVarConfig(STRTOUPPER($sModulo)."_SEQCOD")+0;
             SQLVarConfigG(STRTOUPPER($sModulo)."_SEQCOD", $nIte_CodigoI+1 );
             MYSQL_QUERY(   // Cria um novo registro
               "INSERT INTO cad_produto(ITE_CODIGOI,ITE_ITEM_ATIVO_) VALUES (".$nIte_CodigoI.",1); ") or die(MYSQL_ERROR());
	      } Else {
	         $nIte_CodigoI = $sIte_CodigoI+0;
	      }
	      $Row_CadPro = MYSQL_QUERY("SELECT * FROM cad_produto WHERE ITE_CODIGOI=".($nIte_CodigoI)." ;") or die(MYSQL_ERROR());
		  If ($Row_CadPro = MYSQL_FETCH_ARRAY($Row_CadPro)) {
	         // Atualizar registro
            // livre gustavo
            
			MYSQL_QUERY(
               "UPDATE cad_produto SET ".
                 'ITE_CODIGOL="'.$sIte_CodigoL.'",'.
                 'ITE_DESCRIC='.(STRLEN(@$_REQUEST['Ite_Descric'])>0 ? '0x'.BIN2HEX(UTF8_DECODE(STRTOUPPER(@$_REQUEST['Ite_Descric']))) : "''" ).','.
                 'ITE_INGRED1='.(STRLEN(@$_REQUEST['Ite_Ingred1'])>0 ? '0x'.BIN2HEX(UTF8_DECODE(STRTOUPPER(@$_REQUEST['Ite_Ingred1']))) : "''" ).','.
                 'ITE_INGRED2='.(STRLEN(@$_REQUEST['Ite_Ingred2'])>0 ? '0x'.BIN2HEX(UTF8_DECODE(STRTOUPPER(@$_REQUEST['Ite_Ingred2']))) : "''" ).','.
                 'ITE_ACT_OPCIONA="'.@$_REQUEST['Ite_Act_Opciona'].'",'.
				 ( $bTaxaIteIndv ?
				  'ITE_CALCTAXASVR="'.@$_REQUEST['Ite_CalcTaxaSvr'].'",'
				 : '').
                 'ITE_SIG_UNIDADE="'.STRTOUPPER(@$_REQUEST['Ite_Sig_Unidade']).'",'.
                 ( $bImpTxtLocal ? 'ITE_LOC_IMP1="'.@$_REQUEST['Ite_Loc_Imp1'].'",' : '' ).
                 ( $bImpTxtBalca ? 'ITE_LOC_IMP2="'.@$_REQUEST['Ite_Loc_Imp2'].'",' : '' ).
                 ( $bImpTxtEntre ? 'ITE_LOC_IMP3="'.@$_REQUEST['Ite_Loc_Imp3'].'",' : '' ).
                 'ITE_COD_GRU="'.@$_REQUEST['Ite_Cod_Gru'].'",'.
				 ( ISSET($_POST['Ite_Cod_Cls']) ? 'ITE_COD_CLS="'.@$_POST['Ite_Cod_Cls'].'",' : '').
				 'ITE_BALANCA="'.@$_REQUEST['Ite_Balanca'].'",'.
				 'ITE_TARA_BL="'.STR_REPLACE(',','.',@$_REQUEST['Ite_Tara_Bl']).'",'.
				 ( ($bUsa_Balanca && STRTOUPPER(@$_REQUEST['Ite_Sig_Unidade'])=='KG')?
				 //'ITE_PESPDV="'.@$_REQUEST['Ite_PesPDV'].'",'.
				 'ITE_PESADO="'.@$_REQUEST['Ite_ExpBal'].'",'.
				 'ITE_DESFIL="'.@$_REQUEST['Ite_DesFil'].'",'.
				 'ITE_TIPFIL="'.@$_REQUEST['Ite_TipFil'].'",'.
				 'ITE_VALFIL="'.@$_REQUEST['Ite_ValFil'].'",'
				 : '').
				 ( $bRevendaGas ?
				    'ITE_PES_PRO="'.STR_REPLACE(',','.',@$_REQUEST['Ite_Pes_Pro']).'",'
				 :
				   ''
				 ). 
				 ( $bTribuFiscal ? 
                   'ITE_FISCAL_TRIB="'.(@$_REQUEST['Ite_Fiscal_Trib']+0).'",'.
				   'ITE_CES_COD="'    .(@$_REQUEST['Ite_Cod_CES']      ).'",'.
				   'ITE_COD_NCM="'    .(@$_REQUEST['Ite_Cod_NCM']      ).'",'.
				   'ITE_COD_ORI="'    .(@$_REQUEST['Ite_Cod_Ori']+0    ).'",'.
				   // gas
				   ( $bRevendaGas ?
	                 'ITE_COD_ANP="'.   (@$_REQUEST['Ite_Cod_ANP']+0).'",'.
	                 'ITE_ANP_DESCRI='.SQL_Bin(@$_REQUEST['Ite_ANP_Descri']).','.
	                 'ITE_ANP_PRCGLP="'.STR_REPLACE(',','.',Somente_Numeros(@$_REQUEST['Ite_ANP_PrcGLP'],',.')).'",'
	                 //'ITE_ANP_V_PART="'.STR_REPLACE(',','.',Somente_Numeros(@$_REQUEST['Ite_ANP_V_Part'],',.')).'",'
				   :
                     ''			      
				   )
				   //
				 : '').
				 ( $bUtilizaEstoque ?
				   'ITE_SIG_UNIDCMP ="'.(@$_REQUEST['Ite_Sig_UnidCmp'])  .'",'.
				   'ITE_QTD_EMBACMP =' .(@$_REQUEST['Ite_Qtd_EmbaCmp']+0) .','.
				   'ITE_CONF_ESTOQUE=' .(@$_REQUEST['Ite_Conf_Estoque']+0).','
				 : '').
                 'ITE_PRE_MES_NOR="'.STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Mes_Nor']).'",'.
                 'ITE_PRE_MES_001="'.STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Mes_001']).'",'.
                 'ITE_PRE_MES_002="'.STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Mes_002']).'",'.
                 'ITE_PRE_MES_003="'.STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Mes_003']).'",'.
                 'ITE_PRE_MES_004="'.STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Mes_004']).'",'.
                 'ITE_PRE_MES_MEI="'.STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Mes_Mei']).'",'.
                 'ITE_PRE_ENT_NOR="'.STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Ent_Nor']).'",'.
                 'ITE_PRE_ENT_001="'.STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Ent_001']).'",'.
                 'ITE_PRE_ENT_002="'.STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Ent_002']).'",'.
                 'ITE_PRE_ENT_003="'.STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Ent_003']).'",'.
                 'ITE_PRE_ENT_004="'.STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Ent_004']).'",'.
                 'ITE_PRE_ENT_MEI="'.STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Ent_Mei']).'",'.
                 'ITE_PRE_BAL_NOR="'.STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Bal_Nor']).'",'.
                 'ITE_PRE_BAL_001="'.STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Bal_001']).'",'.
                 'ITE_PRE_BAL_002="'.STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Bal_002']).'",'.
                 'ITE_PRE_BAL_003="'.STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Bal_003']).'",'.
                 'ITE_PRE_BAL_004="'.STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Bal_004']).'",'.
                 'ITE_PRE_BAL_MEI="'.STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Bal_Mei']).'",'.
                 'ITE_PRE_CUS_001="'.STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Cus_001']).'",'.
			     'ITE_PRE_CUS_002="'.STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Cus_002']).'",'.
			     'ITE_PRE_CUS_003="'.STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Cus_003']).'",'.
			     'ITE_PRE_CUS_004="'.STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Cus_004']).'",'.
			     'ITE_PRE_CUSTO_N="'.STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Custo_N']).'",'.
			     'ITE_PRE_CUSTO_M="'.STR_REPLACE(',','.',@$_REQUEST['Ite_Pre_Custo_M']).'",'.
				 'ITE_LAN_RAP="'    .(@$_REQUEST['Ite_Lan_Rap']      ).'",'.
				 'ITE_PROVINVEN="'  .(@$_REQUEST['Ite_Vin_ProVenda']      ).'",'.
				 'ITE_TIPCOMBO="'   .(@$_REQUEST['Ite_Tip_Combo'] ).'",'.
				 'ITE_SENHA_RET="'  .(@$_REQUEST['Ite_Senha_Ret'] ).'",'.
                 'ITE_IMP_UNIT='    .(@$_REQUEST['Ite_Imp_Unit']+0).' ,'.
                 'ITE_IMP_CNFR='    .(@$_REQUEST['Ite_Imp_Cnfr']+0).' ,'.
				 'ITE_PERAPVEN="'   .(@$_REQUEST['Ite_PerAPVen']  ).'" '.
			   "WHERE ITE_CODIGOI=".($nIte_CodigoI)."; ") or die(MYSQL_ERROR());
			 // Gravar Codigo de barras
			 If ( ISSET($aSessao['CADBAR_LISTA']) ) {
			    GravarCodBar( $nIte_CodigoI, $aSessao['CADBAR_LISTA']);
		     }
			 //
			 DestravaForIte($nIte_CodigoI);
             Calcular_Custo_Ficha_Producao($nIte_CodigoI);
			 // Grava a parte do estoque
			 If ( $bUtilizaEstoque ) {
			    $nEst_SalMin = Somente_Numeros(@$_POST['Est_EstMin'],".")+0;
                $sSQLQuery = "SELECT * FROM cad_produto_estoque WHERE EST_CODEMP=".$aSessao['CODIGO_EMPRESA']." AND EST_CODITE=".$nIte_CodigoI.";";
                $bIncluir = MYSQL_QUERY( $sSQLQuery ) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
			    $bIncluir = ( !($bIncluir = MYSQL_FETCH_ARRAY($bIncluir)) );
			    If ($bIncluir) {
			       $sSQLQuery = 
                      "INSERT INTO cad_produto_estoque (EST_CODEMP, EST_CODITE, EST_ESTMIN".
			          ") VALUES (".
			       	  $aSessao['CODIGO_EMPRESA'].",".
			  	 	  $nIte_CodigoI.",".
			       	  $nEst_SalMin.
			          ");";
			       MYSQL_QUERY( $sSQLQuery ) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
			    } Else {
                   $sSQLQuery =
			         "UPDATE cad_produto_estoque SET EST_ESTMIN=".$nEst_SalMin." WHERE EST_CODEMP=".$aSessao['CODIGO_EMPRESA']." AND EST_CODITE=".$nIte_CodigoI.";";
	               MYSQL_QUERY( $sSQLQuery ) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
			    }
			 }
			 //
	      } Else {
             // Erro: registro não existe
			 $sRet_Javs .= Info_Evento('Registro não existe.',1);
	      }
          $sRet_Javs .= "document.location.href = './car_js.php?nomeacs=".$sNomeAcesso."&mod=".$sModulo."&submod=".$sSubModulo."&acao=FECHAR&acaoAnt=".$sAcao."';";
       }
	   $bMontarJanela = false;
    //
    // * Atualiza lista de codigo de barras
    } ElseIf ( $sAcao=="ALT_LSTBAR" ) {
	   $sRet_TelaJ_HTML = '';
	   $sTxt_Codbar = '';
	   If ( ISSET($aSessao['CADBAR_LISTA']) ) {
	      $a_ListaBar = $aSessao['CADBAR_LISTA'];
		  $nContar_ = 0;
          ForEach ( $a_ListaBar As $aBar ) {
		     $nContar_++;
			 If ( $nContar_==15 ) { BREAK; }
	         If ( STRLEN($sRet_TelaJ_HTML)>0 ) {
		        $sRet_TelaJ_HTML .= ' - ';
			 }
			 $sRet_TelaJ_HTML .= '<span style="font-size:12px;">'.@$aBar['BAR_CODBAR'].'</span>';
		  }
		  If ( STRLEN($sRet_TelaJ_HTML)>0 ) {
		     $sTxt_Codbar = '&nbsp;&nbsp;Código de Barras: ';
		  }
		  $sRet_TelaJ_HTML =
		     $sTxt_Codbar.
			 SUBSTR( $sRet_TelaJ_HTML, 0, 360 ).
			 '';
		  //
	   } Else {
		  $sSQLQuery =
	         "SELECT BAR_CODBAR, BAR_CODITE ".
	         "FROM cad_codigo_barras ".
			 "WHERE BAR_CODITE=".($sIte_CodigoI+0)." ".
			 "ORDER BY BAR_CODBAR ASC LIMIT 6;";
		  $RowsT = MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
          While ($RowT = MYSQL_FETCH_OBJECT($RowsT)) {
	       	If ( STRLEN($sRet_TelaJ_HTML)>0 ) {
		       $sRet_TelaJ_HTML .= ' - ';
		    }
	        $sRet_TelaJ_HTML .= '<span style="font-size:12px;">'.$RowT->BAR_CODBAR.'</span>';
	      }
		  If ( STRLEN($sRet_TelaJ_HTML)>0 ) {
		     $sTxt_Codbar = '&nbsp;&nbsp;Código de Barras: ';
		  }
		  $sRet_TelaJ_HTML =
		     $sTxt_Codbar.
			 SUBSTR( $sRet_TelaJ_HTML,0,360 ).
			 '';
		  //
	   }
       // Java
       $sRet_Javs .=
         "parent.document.getElementById('sp_CadEIte_CodBar').innerHTML = ".JAVA_CharCode($sRet_TelaJ_HTML).";";
         '';
       $sRet_TelaJ_HTML = '';
	   $bMontarJanela = false;
    //
	// * Fechar
    } ElseIf ( $sAcao=="FECHAR" ) {
       //
       UNSET($aSessao['CADBAR_LISTA']);      
	   //
	   $sRet_Javs .= 
	      "parent.RmElem('".$oJanelaPrinc->sIdObj."'); ".
	      "parent.Disabled_In_Elems('".$sNomeIdJConsulta."',false);".
	      "parent.document.getElementById('".$sNomeIdJConsulta."_Travar').style.visibility='hidden';".
          'parent.document.getElementById("iCadPro_PChave").focus();'.
	      (@$_REQUEST['acaoAnt']=='SALVAR' ? "parent.Car_".$sNomeAcesso."1.P_Atu();" : '').
	      "";
	   // Limpar
	   LimparForIte($sIte_CodigoI+0);
	   //
	   $bMontarJanela = false;
    //
    // * Alteração de campos
    } ElseIf ( $sAcao=="ALT_CAMPOS" ) {
       $Row_CadGru = MYSQL_QUERY( "SELECT GRU_ACTSAB, GRU_ACTMEI FROM cad_grupo_produtos WHERE GRU_TRAREG=0 AND GRU_CODIGO=".(@$_REQUEST['Ite_Cod_Gru']+0).";" ) Or Die(MYSQL_ERROR());
	   $Row_CadGru = MYSQL_FETCH_ARRAY($Row_CadGru);
	   $bActSabores = @$Row_CadGru['GRU_ACTSAB']+0;
	   $bActMeiaPrc = @$Row_CadGru['GRU_ACTMEI']+0;
	   $bActMeiaPrc = $bActMeiaPrc && (!$bActSabores);
	   $sPrxCampoId = @$_POST['PrxCampo'];
	   
	   //
	   $bCls_Cod  = 0;
	   If ( (!$bIte_Novo) && ($sIte_CodigoI>0) ) {
	      $sSqlQuery = 
             "SELECT pro.*, cls.CLS_HAB_FCP, COALESCE(fpg.FPG_COD_ITE,0) AS FPG_COD_ITE ".
			 "FROM      cad_produto               AS pro ".
             "LEFT JOIN cad_produto_classificacao AS cls ON ITE_COD_CLS=CLS_IDN_CLS ".
             "LEFT JOIN cad_ficha_producao_geral  AS fpg ON ITE_CODIGOI=FPG_COD_ITE ".
             "WHERE ITE_CODIGOI=".($sIte_CodigoI+0)." ".
             "LIMIT 1";
             //
          $Row_CadPro = MYSQL_QUERY($sSqlQuery) or die($sSqlQuery.'<BR>'.MYSQL_ERROR());
          If (! $Row_CadPro = MYSQL_FETCH_ARRAY($Row_CadPro)) {
	         $Row_CadPro = ARRAY();
	      }
	   
	      $bCls_Cod    = (@$Row_CadPro['ITE_COD_CLS']== 2)+0; //  código da classificação de produtos matéria prima
	   
	   }
	   //
       $sRet_Javs .=
	      "var fmCad = parent.document.forms.fmECadPro;".
          "parent.document.getElementById('iTD_LabelP').style.visibility='".($bRevendaGas ? 'visible' : 'hidden' )."';".
		  "parent.document.getElementById('iTD_PesoPro').style.visibility='".($bRevendaGas ? 'visible' : 'hidden' )."';".
		  "parent.document.getElementById('iTR_CadPro_Pre001').style.visibility='".($bActSabores ? 'visible' : 'hidden' )."';".
          "parent.document.getElementById('iTR_CadPro_Pre002').style.visibility='".($bActSabores ? 'visible' : 'hidden' )."';".
          "parent.document.getElementById('iTR_CadPro_Pre003').style.visibility='".($bActSabores ? 'visible' : 'hidden' )."';".
          "parent.document.getElementById('iTR_CadPro_Pre004').style.visibility='".($bActSabores ? 'visible' : 'hidden' )."';".
		  "parent.Disabled_In_Elems('iTR_CadPro_Pre001',".($bActSabores ? 'false'  : 'true').");".
		  "parent.Disabled_In_Elems('iTR_CadPro_Pre002',".($bActSabores ? 'false'  : 'true').");".
		  "parent.Disabled_In_Elems('iTR_CadPro_Pre003',".($bActSabores ? 'false'  : 'true').");".
		  "parent.Disabled_In_Elems('iTR_CadPro_Pre004',".($bActSabores ? 'false'  : 'true').");".
		  //
		  ( $bActSabores ?
		     "parent.document.getElementById('iTD_Pre002').style.visibility='".($bCls_Cod ? 'hidden' : 'visible' )."';".
             "parent.document.getElementById('iTD_Pre003').style.visibility='".($bCls_Cod ? 'hidden' : 'visible' )."';".
             "parent.document.getElementById('iTD_Pre004').style.visibility='".($bCls_Cod ? 'hidden' : 'visible' )."';".
		     "parent.document.getElementById('iTD_Pre002_02').style.visibility='".($bCls_Cod ? 'hidden' : 'visible' )."';".
             "parent.document.getElementById('iTD_Pre003_02').style.visibility='".($bCls_Cod ? 'hidden' : 'visible' )."';".
             "parent.document.getElementById('iTD_Pre004_02').style.visibility='".($bCls_Cod ? 'hidden' : 'visible' )."';".
		     "parent.document.getElementById('iTD_Pre002_03').style.visibility='".($bCls_Cod ? 'hidden' : 'visible' )."';".
             "parent.document.getElementById('iTD_Pre003_03').style.visibility='".($bCls_Cod ? 'hidden' : 'visible' )."';".
             "parent.document.getElementById('iTD_Pre004_03').style.visibility='".($bCls_Cod ? 'hidden' : 'visible' )."';".
		     "parent.document.getElementById('iTD_Pre002_04').style.visibility='".($bCls_Cod ? 'hidden' : 'visible' )."';".
             "parent.document.getElementById('iTD_Pre003_04').style.visibility='".($bCls_Cod ? 'hidden' : 'visible' )."';".
             "parent.document.getElementById('iTD_Pre004_04').style.visibility='".($bCls_Cod ? 'hidden' : 'visible' )."';"
		  :
		    ( $bActSabores ?
			   "parent.document.getElementById('iTD_Pre002').style.visibility='visible';".
               "parent.document.getElementById('iTD_Pre003').style.visibility='visible';".
               "parent.document.getElementById('iTD_Pre004').style.visibility='visible';".
		       "parent.document.getElementById('iTD_Pre002_02').style.visibility='visible';".
               "parent.document.getElementById('iTD_Pre003_02').style.visibility='visible';".
               "parent.document.getElementById('iTD_Pre004_02').style.visibility='visible';".
		       "parent.document.getElementById('iTD_Pre002_03').style.visibility='visible';".
               "parent.document.getElementById('iTD_Pre003_03').style.visibility='visible';".
               "parent.document.getElementById('iTD_Pre004_03').style.visibility='visible';".
		       "parent.document.getElementById('iTD_Pre002_04').style.visibility='visible';".
               "parent.document.getElementById('iTD_Pre003_04').style.visibility='visible';".
               "parent.document.getElementById('iTD_Pre004_04').style.visibility='visible';"
             :
               "parent.document.getElementById('iTD_Pre002').style.visibility='hidden';".
               "parent.document.getElementById('iTD_Pre003').style.visibility='hidden';".
               "parent.document.getElementById('iTD_Pre004').style.visibility='hidden';".
		       "parent.document.getElementById('iTD_Pre002_02').style.visibility='hidden';".
               "parent.document.getElementById('iTD_Pre003_02').style.visibility='hidden';".
               "parent.document.getElementById('iTD_Pre004_02').style.visibility='hidden';".
		       "parent.document.getElementById('iTD_Pre002_03').style.visibility='hidden';".
               "parent.document.getElementById('iTD_Pre003_03').style.visibility='hidden';".
               "parent.document.getElementById('iTD_Pre004_03').style.visibility='hidden';".
		       "parent.document.getElementById('iTD_Pre002_04').style.visibility='hidden';".
               "parent.document.getElementById('iTD_Pre003_04').style.visibility='hidden';".
               "parent.document.getElementById('iTD_Pre004_04').style.visibility='hidden';"
			 
			)
		  ).
		  ( $bActSabores ?
		     "parent.document.getElementById('iTD_PreBalN').style.visibility='hidden';".
             "parent.document.getElementById('iTD_PreMesN').style.visibility='hidden';".
             "parent.document.getElementById('iTD_PreEntN').style.visibility='hidden';"
		  :
		     "parent.document.getElementById('iTD_PreBalN').style.visibility='".($bCls_Cod ? 'hidden' : 'visible' )."';".
             "parent.document.getElementById('iTD_PreMesN').style.visibility='".($bCls_Cod ? 'hidden' : 'visible' )."';".
             "parent.document.getElementById('iTD_PreEntN').style.visibility='".($bCls_Cod ? 'hidden' : 'visible' )."';"
		  ).
		  ( $bActMeiaPrc ?
		     "parent.document.getElementById('iTD_PreBalM').style.visibility='".($bCls_Cod ? 'hidden' : 'visible' )."';".
             "parent.document.getElementById('iTD_PreMesM').style.visibility='".($bCls_Cod ? 'hidden' : 'visible' )."';".
             "parent.document.getElementById('iTD_PreEntM').style.visibility='".($bCls_Cod ? 'hidden' : 'visible' )."';"
		  :
		     ""
		   ).	 
		  //
		  
		  ( $bUtilizaEstoque ?
		     "parent.document.getElementById('iECadEIte_CodCls').disabled = ".((@$Row_CadPro['FPG_COD_ITE']+0>0) ? 'true' : 'false').";"
		  :
		  '' ).
		  //"parent.Disabled_In_Elems('iTD_CadPro_PreMed','false');".
		  //
          "parent.document.getElementById('iTR_CadPro_PreMei').style.visibility='".($bActMeiaPrc ? 'visible' : 'hidden' )."';".
          "parent.document.getElementById('iTR_CadPro_PreNor').style.visibility='".($bActSabores ? 'hidden'  : 'visible')."';".
		  "parent.Disabled_In_Elems('iTR_CadPro_PreMei',".($bActMeiaPrc ? 'false' : 'true' ).");".
		  "parent.Disabled_In_Elems('iTR_CadPro_PreNor',".($bActSabores ? 'true'  : 'false').");".
		  "bCls_Hab_Fcp = ".( @$Row_CadPro['CLS_HAB_FCP'] ? 'true' : 'false').";".
		  ($bActSabores ?
			"parent.document.getElementById('iECadEIte_Custo_1').readOnly = bCls_Hab_Fcp;".
			"parent.document.getElementById('iECadEIte_Custo_2').readOnly = bCls_Hab_Fcp;".
			"parent.document.getElementById('iECadEIte_Custo_3').readOnly = bCls_Hab_Fcp;".
			"parent.document.getElementById('iECadEIte_Custo_4').readOnly = bCls_Hab_Fcp;".
		    "parent.document.getElementById('iECadEIte_Custo_1').value = '".FormatoMoeda(@$Row_CadPro['ITE_PRE_CUS_001']+0)."';".
		    "parent.document.getElementById('iECadEIte_Custo_2').value = '".FormatoMoeda(@$Row_CadPro['ITE_PRE_CUS_002']+0)."';".
		    "parent.document.getElementById('iECadEIte_Custo_3').value = '".FormatoMoeda(@$Row_CadPro['ITE_PRE_CUS_003']+0)."';".
		    "parent.document.getElementById('iECadEIte_Custo_4').value = '".FormatoMoeda(@$Row_CadPro['ITE_PRE_CUS_004']+0)."';"
		  :
			"parent.document.getElementById('iECadEIte_Custo_N').readOnly = bCls_Hab_Fcp;".
			"parent.document.getElementById('iECadEIte_Custo_M').readOnly = bCls_Hab_Fcp;".
		    "parent.document.getElementById('iECadEIte_Custo_N').value = '".FormatoMoeda(@$Row_CadPro['ITE_PRE_CUSTO_N']+0)."';".
		    "parent.document.getElementById('iECadEIte_Custo_M').value = '".FormatoMoeda(@$Row_CadPro['ITE_PRE_CUSTO_M']+0)."';"
          ).
		  ( $bUsa_Balanca && STRTOUPPER(@$_REQUEST['Ite_Sig_Unidade'])=='KG' && @$_REQUEST['Ite_ExpBal'] ?
            "parent.document.getElementById('sp_MARCA_BALANCA').innerHTML = '".$sMarca_Balanca."';"
            //iECadEIte_ExpBal
           :
           "" ).

 
		  ( EMPTY($sPrxCampoId) ?
            ( $bIte_Novo ?
		      'parent.document.getElementById("iECadEIte_CodigoL").focus();'
             : 
              
			  'parent.document.getElementById("iECadEIte_CodBar").focus();'
			)
		  :
		    'parent.document.getElementById("'.$sPrxCampoId.'").focus();'
          ).
	      //"parent.document.getElementById('CadEPro_BT_FcProd').style.display='".(@$Row_CadPro['CLS_HAB_FCP'] ? 'inline-block' : 'none')."';".
		  "";
	   $bMontarJanela = False;
       //
	//
	// * Verfica se o produto pode ser combo
	} ElseIf ( $sAcao=="VERIFICA_COMBO" ) {
	   If ( (@$_POST['Ite_Tip_Combo']+0) ) {
	      $sSQLQuery =
	         "SELECT ".
		        "ite.ITE_CODIGOL, ite.ITE_DESCRIC ".
		     "FROM      cad_produto_combo AS cmb ".
		     "LEFT JOIN cad_produto       AS ite  ON  ite.ITE_CODIGOI = cmb.CMB_COD_P_ITE ".
		     "WHERE cmb.CMB_COD_C_ITE=".($sIte_CodigoI+0)." ".
	         "LIMIT 1".
		     ";";
          $RowT = MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery." <br> ".MYSQL_ERROR());
          If ($RowT = MYSQL_FETCH_OBJECT($RowT)) {
             $sRet_Javs .=
		       "parent.document.getElementById('iECadEIte_TipCombo').value = '0';".
		       Info_Evento('Este produto está anexado<br>a um combo, '.@$RowT->ITE_CODIGOL.'-'.@$RowT->ITE_DESCRIC.'.',1).
		       "";
	      }
	   } Else {
	      $sSQLQuery =
	         "SELECT * ".
		     "FROM      cad_produto_combo AS cmb ".
		     "WHERE cmb.CMB_COD_P_ITE=".($sIte_CodigoI+0)." ".
	         "LIMIT 1".
		     ";";
          $RowT = MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery." <br> ".MYSQL_ERROR());
          If ($RowT = MYSQL_FETCH_OBJECT($RowT)) {
             $sRet_Javs .=
		       "parent.document.getElementById('iECadEIte_TipCombo').value = '1';".
		       Info_Evento('Há produtos anexados a este combo.',1).
		       "";
	      }
	   }
	   $bMontarJanela = False;
	   //
	//
    // * Atualiza lista de fornecedores
    } ElseIf ( $sAcao=="ALT_LSTFOR" ) {
	   // Combo para adicionar fornecedores
	   $aLstForIte = ARRAY();
       $RowsT = MYSQL_QUERY( "SELECT * FROM cad_produto_fornecedor WHERE PFO_CODITE=".$sIte_CodigoI." AND (PFO_TRAREG=0 OR PFO_TRAREG=2)" ) Or Die(MYSQL_ERROR());
       While ($RowT = MYSQL_FETCH_OBJECT($RowsT)) {
	      $aLstForIte[ $RowT->PFO_CODFOR ] = $RowT->PFO_ULTCOM;
	   }
       $sHTML_ComboFor = '<option value="0">- Nenhum selecionado -</option>';
	   $bIteFor = False;
       $RowsT = MYSQL_QUERY( "SELECT * FROM cad_fornecedor WHERE FOR_ATIVO_ ORDER BY FOR_FANTAS ASC" ) Or Die(MYSQL_ERROR());
       While ($RowT = MYSQL_FETCH_OBJECT($RowsT)) {
	      If (! ISSET( $aLstForIte[$RowT->FOR_CODIGO]) ) {
             $sHTML_ComboFor .= '<option value="'.$RowT->FOR_CODIGO.'">'.Str_Zero($RowT->FOR_CODIGO,6).' - '.$RowT->FOR_FANTAS.'</option>';
	         $bIteFor = True;
		  }
       }
       // Tabela dos fornecedores
       $sRet_TelaJ_HTML = $oListaFor->MontaTabelaHTML();
       // Java
       $sRet_Javs .=
	     //"parent.document.getElementById('iQdr_FornecedorAdc').style.display='".($bIteFor ? 'inline' : 'none')."';".
		 "parent.document.getElementById('CadEPro_BT_RmvFor').style.display='none';".
         "var iQdr_ListaFor = parent.document.getElementById('".$oListaFor->sIdObjTabela."');".
		 "var iCmb_ListaFor = parent.document.getElementById('iECadEFor_Codigo');".
         'iQdr_ListaFor.innerHTML = '.JAVA_CharCode_Mini($sRet_TelaJ_HTML).';'.
         'iCmb_ListaFor.innerHTML = '.JAVA_CharCode_Mini($sHTML_ComboFor).';'.
         'parent.Car_'.$sNomeAcesso.'2.'.$oListaFor->sNomeTabela.'_Rowsel = 1;'.
	     //"parent.document.getElementById('CadCPro_sp_QtdReg').innerHTML = '".($oListaFor->nQtdRegistros>0 ? $oListaFor->nQtdRegistros.' registros encontrados.' : 'Nenhum registro encontrado')."';".
         '';
       // Java posterior
       $sRet_JavsPos .=
         'parent.Car_'.$sNomeAcesso.'2.P_Sel(0);'.
         //'parent.Car_'.$sNomeAcesso.'1.P_Sel('.$nP_NumCam.');'.
         //'parent.Car_'.$sNomeAcesso.'1.PRow_Sel('.($oTabelaRegs->nQtdCampos-1).',1);'.
         '';
       $sRet_TelaJ_HTML = '';
	   $bMontarJanela = false;
    //
    // * Adicionar fornecedor
    } ElseIf ( $sAcao=="FOR_ADC" ) {
	   $nFor_Codigo = @$_POST['For_Codigo']+0;
       $RowT = MYSQL_QUERY( "SELECT * FROM cad_fornecedor WHERE FOR_CODIGO=".$nFor_Codigo.";" ) Or Die(MYSQL_ERROR());
	   If ( $RowT = MYSQL_FETCH_OBJECT($RowT) ) {
	      $sSQLQuery =
		     "SELECT * ".
			 "FROM cad_produto_fornecedor ".
			 "WHERE PFO_CODITE=".$sIte_CodigoI." AND PFO_CODFOR=".$nFor_Codigo.";";
		  $RowT = MYSQL_QUERY( $sSQLQuery ) Or Die(MYSQL_ERROR().'<br>'.$sSQLQuery);
	      If ( $RowT = MYSQL_FETCH_OBJECT($RowT) ) {
		     $sSQLQuery =
			    "UPDATE cad_produto_fornecedor ".
				"SET PFO_TRAREG=0 ".
				"WHERE PFO_CODFOR=".$nFor_Codigo." AND PFO_CODITE=".$sIte_CodigoI.";";
		     MYSQL_QUERY( $sSQLQuery ) Or Die(MYSQL_ERROR().'<br>'.$sSQLQuery);
		  } Else {
		     $sSQLQuery =
			    "INSERT INTO cad_produto_fornecedor ".
				    "(PFO_CODFOR, PFO_CODITE, PFO_TRAREG) ".
			    "VALUES ".
				    "('".$nFor_Codigo."','".$sIte_CodigoI."',2);";
		     MYSQL_QUERY( $sSQLQuery ) Or Die(MYSQL_ERROR().'<br>'.$sSQLQuery);
		  }
          $sRet_Javs .= 
		     "setTimeout( function () {".
	            "parent.document.forms.fmECadProC.acao.value='ALT_LSTFOR';".
	            "parent.document.forms.fmECadProC.submit();".
			 "} , 200 );";
		  //
	   } Else {
	      // Fornecedor não cadastrado
	   }
	   $bMontarJanela = false;
    //
    // * Remover fornecedor
    } ElseIf ( $sAcao=="FOR_RMV" ) {
	   $nFor_Codigo = @$_POST['For_Codigo']+0;
       $RowT = MYSQL_QUERY( "SELECT * FROM cad_fornecedor WHERE FOR_CODIGO=".$nFor_Codigo.";" ) Or Die(MYSQL_ERROR());
	   If ( $RowT = MYSQL_FETCH_OBJECT($RowT) ) {
          $sSQLQuery =
		     "SELECT * FROM cad_produto_fornecedor ".
			 "WHERE PFO_CODITE=".$sIte_CodigoI." AND PFO_CODFOR=".$nFor_Codigo.";";
		  $RowT = MYSQL_QUERY( $sSQLQuery ) Or Die(MYSQL_ERROR().'<br>'.$sSQLQuery);
	      If ( $RowT = MYSQL_FETCH_OBJECT($RowT) ) {
		     If ( $RowT->PFO_TRAREG==2 ) {
		        $sSQLQuery =
			       "DELETE FROM cad_produto_fornecedor ".
				   "WHERE PFO_CODFOR=".$nFor_Codigo." AND PFO_CODITE=".$sIte_CodigoI.";";
		        MYSQL_QUERY( $sSQLQuery ) Or Die(MYSQL_ERROR().'<br>'.$sSQLQuery);
			 } Else {
		        $sSQLQuery =
			       "UPDATE cad_produto_fornecedor ".
				   "SET PFO_TRAREG=1 ".
				   "WHERE PFO_CODFOR=".$nFor_Codigo." AND PFO_CODITE=".$sIte_CodigoI.";";
		        MYSQL_QUERY( $sSQLQuery ) Or Die(MYSQL_ERROR().'<br>'.$sSQLQuery);
			 }
			 //
		  } Else {
		     //
		  }
          $sRet_Javs .= 
		     "setTimeout( function () {".
	            "parent.document.forms.fmECadProC.acao.value='ALT_LSTFOR';".
	            "parent.document.forms.fmECadProC.submit();".
			 "} , 200 );";
		  //
	   } Else {
	      // Fornecedor não cadastrado
	   }
	   $bMontarJanela = false;
	//
	// * Verificar código livre e codigo de barras
	} ElseIf ( $sAcao=="ITE_VER" ) {
	   $s_CodigoL = @$_POST['Ite_CodigoL'];
       If ( STRLEN($s_CodigoL)<=4){
		  $s_CodigoL = Str_Zero($s_CodigoL,4);
		  $sSQLQueryA = 
		     "SELECT cad_codigo_barras.BAR_CODBAR, ".
		            "cad_produto.ITE_CODIGOL, ".
		      		"cad_produto.ITE_DESCRIC ".
		     "FROM cad_codigo_barras,cad_produto ".
		     "WHERE ".
		            "ITE_CODIGOI<>'".$sIte_CodigoI."' AND ((BAR_CODBAR='".$s_CodigoL."' AND ITE_CODIGOI=BAR_CODITE) OR ITE_CODIGOL='".$s_CodigoL."') ".
		     "";
          //
		  $RowT = MYSQL_QUERY( $sSQLQueryA ) Or Die( $sSQLQueryA.'<br>'.MYSQL_ERROR() );
		  If ( $RowT = MYSQL_FETCH_OBJECT($RowT) ) {
			 $sRet_Javs .= "parent.document.getElementById('iECadEIte_CodigoL').focus();".
			               "parent.document.getElementById('iECadEIte_CodigoL').value='';".
	                       Info_Evento('Já existe um produto com esse Código Cardápio ou Código de Barras. '.$RowT->ITE_CODIGOL.'-'.$RowT->ITE_DESCRIC,1);
       
          }
	   }
	   $bMontarJanela = False;
	//
	// * Verificar codigo livre e codigo de barras
	} ElseIf ( $sAcao=="BAR_VER" ) {
	   $nIte_CodigoI_Tmp = Somente_Numeros($sIte_CodigoI)+0;
       $s_CodBar = @$_POST['Ite_CodBar'];
       If ( STRLEN($s_CodBar)>0 ){
          If ( STRLEN($s_CodBar)<4 ){
             $s_CodBar = Str_Zero($s_CodBar,4);
          }
          If ( STRLEN($s_CodBar)<=4){
             $sSQLQueryA = 
			    "SELECT cad_codigo_barras.BAR_CODBAR, ".
				       "cad_codigo_barras.BAR_CODITE, ".
                       "cad_produto.ITE_CODIGOL, ".
					   "cad_produto.ITE_DESCRIC ".
			    "FROM cad_codigo_barras,cad_produto ".
				"WHERE ".
				    "ITE_CODIGOI<>'".$sIte_CodigoI."' AND ((BAR_CODBAR='".$s_CodBar."' AND ITE_CODIGOI=BAR_CODITE) OR ITE_CODIGOL='".$s_CodBar."') ".
				"";      
         } Else { 
             $sSQLQueryA =
			    "SELECT BAR_CODITE, ".
                       "ITE_CODIGOL, ITE_DESCRIC ".
                "FROM cad_codigo_barras ".
                "LEFT JOIN cad_produto ON ITE_CODIGOI = BAR_CODITE ".
                "WHERE BAR_CODBAR='".$s_CodBar."' ;";
         }
         $Row = MYSQL_QUERY($sSQLQueryA) or die(MYSQL_ERROR());
         If ($Row = MYSQL_FETCH_OBJECT($Row)) {
	        If ( $nIte_CodigoI_Tmp <> $Row->BAR_CODITE  ){
               $s_CodBar = '';
               $sRet_Javs .= "parent.document.getElementById('iECadEIte_CodBar').focus();".
	                         Info_Evento('Já existe um produto com esse Código Cardápio ou<br> Código de Barras.<br> '.$Row->ITE_CODIGOL.'-'.$Row->ITE_DESCRIC,1);
            }
         }
         $sRet_Javs .= "parent.document.getElementById('iECadEIte_CodBar').value='".$s_CodBar."';";
       }
       $bMontarJanela = False;
	//
	// * Imagens
	} ElseIf ( SUBSTR($sAcao,0,4)=="IMG_" ) {
	   $sSubAcao = SUBSTR($sAcao,4);
	   $sSqlQuery = "SELECT ITE_LISTAIMG FROM cad_produto WHERE ITE_CODIGOI=".($sIte_CodigoI+0).";";
       $Cad_Produto = MYSQL_QUERY($sSqlQuery) or die(MYSQL_ERROR($sSqlQuery.'<BR>'));
	   $bMontarHTML = False;
	   $nArq_CodigoI = @$aSessao['IMAGEM_SELECIONADO']+0;
	   $aLista_Imagens = ARRAY();
	   $sMensagem_Erro = '';
       If ( $Cad_Produto = MYSQL_FETCH_OBJECT($Cad_Produto)) {
	      $aLista_Imagens = EXPLODE(";",$Cad_Produto->ITE_LISTAIMG);
		  //
		  If ( $sSubAcao=="MONTAR" ) {
		     $bMontarHTML = True;
			 //
		  } ElseIf ( SUBSTR($sSubAcao,0,4)=="SEL_" ) {
		     $nArq_CodigoI = SUBSTR($sSubAcao,4)+0;
			 $sRet_Javs .=
			    "var iObj = parent.document.getElementById('iCadPro_Imagem_".$nArq_CodigoI."');".
				"iObj.style.backgroundColor = '#00CCFF';".
				( $aSessao['IMAGEM_SELECIONADO']>0 ?
			      "var iObjA = parent.document.getElementById('iCadPro_Imagem_".$aSessao['IMAGEM_SELECIONADO']."');".
				  "iObjA.style.backgroundColor = '#FFFFFF';"
				: "").
				"";
			 //
		  } ElseIf ( $sSubAcao=="REMOVER" ) {
		     $sLista_Imagens = '';
		     ForEach ( $aLista_Imagens As $sArq_CodigoI ) {
			    If ( EMPTY($sArq_CodigoI) Or $nArq_CodigoI==($sArq_CodigoI+0) ) { CONTINUE; }
			    If ( !EMPTY($sLista_Imagens) ) {
				   $sLista_Imagens .= ";";
				}
			    $sLista_Imagens .= $sArq_CodigoI;
			 }
	         $sSqlQuery = "UPDATE cad_produto SET ITE_LISTAIMG='".$sLista_Imagens."' WHERE ITE_CODIGOI=".($sIte_CodigoI+0).";";
             MYSQL_QUERY($sSqlQuery) or die(MYSQL_ERROR($sSqlQuery.'<BR>'));
	         $aLista_Imagens = EXPLODE(";",$sLista_Imagens);
	         $sSqlQuery = "DELETE FROM cad_arquivos WHERE ARQ_CODIGOI=".$nArq_CodigoI.";";
             MYSQL_QUERY($sSqlQuery) or die(MYSQL_ERROR($sSqlQuery.'<BR>'));
		     $nArq_CodigoI = 0;
		     $bMontarHTML = True;
			 //
		  } ElseIf ( $sSubAcao=="ADICIONAR" ) {
		     // Capturar arquivo
             If ( STRLEN(@$_FILES['Entrada_Arq']['tmp_name'])>3 ) {
                $aEntArq = $_FILES['Entrada_Arq'];
                $nArq_Tamanh = FILESIZE($aEntArq['tmp_name']);
                If ( $nArq_Tamanh<100000 ) {
                   $nArq_Handle = FOPEN($aEntArq['tmp_name'],"rb");
                   $sArq_Conteu = FREAD($nArq_Handle, $nArq_Tamanh);
                   FCLOSE($nArq_Handle);
				   // Gravação SQL
                   $nArq_CodigoI = MYSQL_QUERY("SELECT * FROM cad_arquivos ORDER BY ARQ_CODIGOI DESC LIMIT 1;") or die(MYSQL_ERROR());
                   If ($nArq_CodigoI = MYSQL_FETCH_OBJECT($nArq_CodigoI)) {
				      $nArq_CodigoI = $nArq_CodigoI->ARQ_CODIGOI;
				   } Else {
				      $nArq_CodigoI = 0;
				   }
				   $nArq_CodigoI++;
                   $sSqlQuery =
				     "INSERT INTO cad_arquivos(".
                        "ARQ_CODIGOI, ARQ_CHAVELG, ARQ_TP_MIME, ARQ_TAMANHO, ARQ_NOMEARQ, ARQ_BINARIO".
                     ") VALUE(".
					        $nArq_CodigoI.",".
					    "'".GeraChave(30)."',".
					    "'".$aEntArq['type']."',".
					    "'".$nArq_Tamanh.    "',".
					    "'".$aEntArq['name']."',".
					    SQL_Bin($sArq_Conteu).
                     ");";
                   MYSQL_QUERY($sSqlQuery) or die(MYSQL_ERROR($sSqlQuery.'<BR>'));
				   //
                   $aLista_Imagens = EXPLODE(";",$Cad_Produto->ITE_LISTAIMG.";");
		           $sLista_Imagens = '';
		           ForEach ( $aLista_Imagens As $sArq_CodigoI ) {
			          If ( (Somente_Numeros($sArq_CodigoI)+0)<0 ) { CONTINUE; }
			          $sLista_Imagens .= (EMPTY($sLista_Imagens) ? "" : ";").$sArq_CodigoI;
			       }
			       $sLista_Imagens .= (EMPTY($sLista_Imagens) ? "" : ";").$nArq_CodigoI;
	               $sSqlQuery = "UPDATE cad_produto SET ITE_LISTAIMG='".$sLista_Imagens."' WHERE ITE_CODIGOI=".($sIte_CodigoI+0).";";
                   MYSQL_QUERY($sSqlQuery) or die(MYSQL_ERROR($sSqlQuery.'<BR>'));
	               $aLista_Imagens = EXPLODE(";",$sLista_Imagens);
				   //
		           $bMontarHTML = True;
				} Else {
	               $sMensagem_Erro = 'Erro ao subir o arquivo, o tamanho máximo<br>é de 100kbytes.';
				}
			 } Else {
	            $sMensagem_Erro = 'Não há arquivo a ser subir.';
			 }
			 //
		  }
		  // Retorno HTML
		  If ( $bMontarHTML ) {
		     $sHTML_Imagens = '';
		     ForEach ( $aLista_Imagens As $sArq_CodigoI ) {
			    If ( EMPTY($sArq_CodigoI) ) { CONTINUE; }
		        $bSelecionado = $nArq_CodigoI==($sArq_CodigoI+0);
                $sHTML_Imagens .=
		          '<td id="iCadPro_Imagem_'.$sArq_CodigoI.'" width="114px" height="114px" align="center" valign="middle" style="background-color:'.($bSelecionado ? '#00CCFF' : '#FFFFFF').';">'.
		           '<span onclick="Car_'.$sNomeAcesso.'2.Imagens_EDaps('."'SEL_".$sArq_CodigoI."'".');" style="cursor:pointer;">'.
		            '<img src="./car_js.php?mod=car_arq&acao=DATA_BASE&Arq_CodigoI='.$sArq_CodigoI.'" width="110px" height="110px" border="0">'.
		           '</span>'.
		          '</td>';
		     }
		     If ( ! EMPTY($sHTML_Imagens) ) {
	            $sHTML_Imagens =
	              '<table>'.
	               '<tr>'.
	                $sHTML_Imagens.
	               '</tr>'.
	              '</table>';
	         }
             $sRet_Javs .=
				"parent.document.getElementById('dv_CadIte_Imagens').innerHTML = ".JAVA_CharCode($sHTML_Imagens).";".
				"";
		  }
	      //
	   }
       $sRet_Javs .=
		  "parent.document.getElementById('CadEPro_BT_ImgNv').style.display = '".((COUNT($aLista_Imagens)>=5 Or ($sIte_CodigoI+0)==0) ? 'none' : 'inline-block') ."';".
	      "parent.document.getElementById('CadEPro_BT_ImgRm').style.display = '".($nArq_CodigoI==0 ? 'none' : 'inline-block') ."';".
		  "parent.JanEspera(false);".
		  ( !EMPTY($sMensagem_Erro) ? Info_Evento($sMensagem_Erro,1) : "").
	      "";
	   $aSessao['IMAGEM_SELECIONADO'] = $nArq_CodigoI;
       $bMontarJanela = False;
	//
	// PUXAR cest
    } ElseIf ( $sAcao=="PUXAR_CEST" ) {
	   $sCes_CodCes = @$_POST['Ite_Cod_CES'];
	   $sNomeCest = '';
		  
	   // Consulta
	   If ( $sCes_CodCes=='/' ) {
          $sRet_Javs .= 
	           "parent.document.getElementById('sECadEIte_Cest').innerHTML = '( Consulta )';".
	           "parent.document.getElementById('iECadEIte_Cod_CES').value = '';".
	           //$sJavaTravarJ.
		       "setTimeout( function () { ".
		          "parent.document.forms.fmECadPro.acao.value=''; ".
		          "parent.document.forms.fmECadPro.submod.value='_CEST'; ".
		          "parent.document.forms.fmECadPro.submit();".
		          "parent.document.forms.fmECadPro.submod.value='".$sSubModulo."'; ".
		       "} , 100);".
		       "";
	   // Exibir nome do cest
	   } Else {
		  
	     $Row = MYSQL_QUERY("SELECT * FROM cad_cest WHERE CST_CODCES='".$sCes_CodCes."' ;") or die(MYSQL_ERROR());
         If ($Row = MYSQL_FETCH_OBJECT($Row)) {
		    $sNomeCest = $Row->CST_DESCRI;
		 } Else {
		   If ( STRLEN($sCes_CodCes)>0) {
		      $sNomeCest = '';
		      $sRet_Javs .= Info_Evento('Cest não Cadastrado : '.$sCes_CodCes);
	       }
		 }
			
	   }
	   //
	   $sRet_Javs .= 
	      "parent.document.getElementById('sECadEIte_Cest').innerHTML = '".$sNomeCest."';".
		  "";
	   
	   $bMontarJanela = False;
	
	} ElseIf ( $sAcao=="P_MARBAL" ) {
	   $bExpBal = @$_REQUEST['Ite_ExpBal'];
	   $sDescRes = SUBSTR(@$_REQUEST['Ite_Descric'],0,22);
       $sRet_Javs .= 
	      ( $bExpBal ?
		     "parent.document.getElementById('sp_MARCA_BALANCA').innerHTML = '".$sMarca_Balanca."';".
             "parent.document.getElementById('iCadEIte_DesFil').value = '".$sDescRes."';"
		  :
		     "parent.document.getElementById('sp_MARCA_BALANCA').innerHTML = '';".
             "parent.document.getElementById('iCadEIte_DesFil').value = '';"
		  ).
		  
          "";
	   
	   $bMontarJanela = False;
	
	// * Novo registro
	} ElseIf ( $sAcao=="NV" ) {
	   $sIte_CodigoI = 'NOVO';
	   $bIte_Novo    = True;
	//
	// * Puxar registro
	} Else {
	   $aSessao['IMAGEM_SELECIONADO'] = 0;
	   If (STRLEN($sIte_CodigoI)==0) {
	      $bMontarJanela = False;
	      $sAcao = 'FECHAR';
          $sRet_Javs .= 
	   	     "parent.document.getElementById('".$sNomeIdJConsulta."_Travar').style.visibility='hidden';".
	   	     Info_Evento('Selecione um produto.');
	   } Else {
	      $sSqlQuery = 
             "SELECT PRO.*, EST.*, CLS.*, ". 
			        "COALESCE(BAR.BAR_CODBAR,'') AS BAR_CODBAR ".
			        //"(SELECT CDN_DESTRA FROM cad_dicionario WHERE CDN_ID_CAD = ITE_CODIGOI and CDN_ID_CID = 1 and CDN_TIPCAD = 1) as DESCRIC_I, ".
                    //"(SELECT CDN_DESTRA FROM cad_dicionario WHERE CDN_ID_CAD = ITE_CODIGOI and CDN_ID_CID = 1 and CDN_TIPCAD = 2) as INGRED1_I, ".
                    //"(SELECT CDN_DESTRA FROM cad_dicionario WHERE CDN_ID_CAD = ITE_CODIGOI and CDN_ID_CID = 2 and CDN_TIPCAD = 1) as DESCRIC_S, ".
                    //"(SELECT CDN_DESTRA FROM cad_dicionario WHERE CDN_ID_CAD = ITE_CODIGOI and CDN_ID_CID = 2 and CDN_TIPCAD = 2) as INGRED1_S, ".
                    //"(SELECT CDN_DESTRA FROM cad_dicionario WHERE CDN_ID_CAD = ITE_COD_GRU and CDN_ID_CID = 1 and CDN_TIPCAD = 3) as DESCGRU_I, ".
				    //"(SELECT CDN_DESTRA FROM cad_dicionario WHERE CDN_ID_CAD = ITE_COD_GRU and CDN_ID_CID = 2 and CDN_TIPCAD = 3) as DESCGRU_S  ".
			 "FROM      cad_produto               AS PRO ".
             "LEFT JOIN cad_codigo_barras         AS BAR ON ITE_CODIGOI=BAR_CODITE ".
             "LEFT JOIN cad_produto_estoque       AS EST ON ITE_CODIGOI=EST_CODITE ".
             "LEFT JOIN cad_produto_classificacao AS CLS ON ITE_COD_CLS=CLS_IDN_CLS ".
             "WHERE ITE_CODIGOI=".($sIte_CodigoI+0)." ".
             "LIMIT 1";
          //
          $Row_CadPro = MYSQL_QUERY($sSqlQuery) or die($sSqlQuery.'<BR>'.MYSQL_ERROR());
          If (! $Row_CadPro = MYSQL_FETCH_ARRAY($Row_CadPro)) {
	         $Row_CadPro = ARRAY();
	      }
		  //
	   }
       //
	}
	// Montar janela HTML
	If ($bMontarJanela) {
	   $oJanelaPrinc->aIdsObjList =
	      ARRAY(
		    'iECadEIte_CodBar' , 'iECadEIte_CodigoL', 'iCadEIte_Descric'  ,'iECadEIte_Unidade',
			'iECadEIte_Ingred1', 'iECadEIte_Ingred2', 'i_ECadEIte_Opciona',
			'iECadEIte_CodGru' , 'CadEPro_BT_Gru'   , 'iECadEIte_CodInt'  ,
			'iECadEIte_LocImp1', 'iECadEIte_LocImp2', 'iECadEIte_LocImp3' ,
			'iECadEIte_PreBal1', 'iECadEIte_PreMes1', 'iECadEIte_PreEnt1' ,'iECadEIte_Custo_1','iECadEIte_Custo_E',
			'iECadEIte_PreBal2', 'iECadEIte_PreMes2', 'iECadEIte_PreEnt2' ,'iECadEIte_Custo_2',
			'iECadEIte_PreBal3', 'iECadEIte_PreMes3', 'iECadEIte_PreEnt3' ,'iECadEIte_Custo_3',
			'iECadEIte_PreBal4', 'iECadEIte_PreMes4', 'iECadEIte_PreEnt4' ,'iECadEIte_Custo_4',
			'iECadEIte_PreBalN', 'iECadEIte_PreMesN', 'iECadEIte_PreEntN' ,'iECadEIte_Custo_N',
			'iECadEIte_PreBalM', 'iECadEIte_PreMesM', 'iECadEIte_PreEntM' ,'iECadEIte_Custo_M',
			'iECadEIte_Balanca', 'iECadEIte_Tara_Bl',     // balanca acbr   
			/*'iECadEIte_PesPDV' ,*/ 'iECadEIte_ExpBal', 'iCadEIte_DesFil', 'iECadEIte_TipFil','iCadEIte_ValFil',      // balanca
			//'iCadEIte_Descric_I','iECadEIte_Ingred1_I',  // ingles
			//'iCadEIte_Descric_S','iECadEIte_Ingred1_S',  // espanhol
			'iCadEProGru_Descri','iECadEPro_Gru',
			'iECadEIte_EstMin' , 'iECadEIte_CodCls' ,
			'iECadEIte_UnidCmp', 'iECadEIte_QtdECmp',
			'iECadEIte_Conf_Est',
			'iECadEFor_Codigo' , 'iECadEIte_iLstFor', 'iECadEIte_CalcTaxa', 'iECadEIte_LanRap', 'iECadEIte_VinProVenda',
			'iECadEIte_PesoPro', 'iECadEIte_TipCombo', 'iECadEIte_CodTrb'  , 'iECadEIte_CodOri', 'iECadEIte_Cod_CES','iECadEIte_Cod_NCM',
            'iECadEIte_CodANP' , 'iECadEIte_ANP_Descri', 'iECadEIte_ANP_PrcGLP', //'iECadEIte_ANP_V_Part',
			'iECadEIte_PerAPVen', 'iECadEIte_Senha_Ret',
            'iECadEIte_Imp_Unit', 'iECadEIte_Imp_Cnfr'
		  );
	   // Combo de Grupo de produtos
       $sHTML_ComboGru = '<option value="0">- Nenhum grupo selecionado -</option>';
	   $sHTML_ComboGru_IS = '<option value="0">- Nenhum grupo selecionado -</option>';
       $RowsT_CadGru = MYSQL_QUERY( "SELECT * FROM cad_grupo_produtos WHERE GRU_TRAREG=0 ORDER BY GRU_DESCRI ASC" ) Or Die(MYSQL_ERROR());
       While ($RowT_CadGru = MYSQL_FETCH_OBJECT($RowsT_CadGru)) {
           $sHTML_ComboGru .= '<option value="'.$RowT_CadGru->GRU_CODIGO.'" '.($RowT_CadGru->GRU_CODIGO==(@$Row_CadPro['ITE_COD_GRU']+0) ? 'selected' : '').'>'.Str_Zero($RowT_CadGru->GRU_CODIGO,3).' - '.$RowT_CadGru->GRU_DESCRI.($RowT_CadGru->GRU_ATIVO_ ? '' : ' (INATIVO)').'</option>';
		   $sHTML_ComboGru_IS .= '<option value="'.$RowT_CadGru->GRU_CODIGO.'" '.($RowT_CadGru->GRU_CODIGO==(@$Row_CadPro['ITE_COD_GRU']+0) ? 'selected' : '').'>'.Str_Zero($RowT_CadGru->GRU_CODIGO,3).' - '.$RowT_CadGru->GRU_DESCRI.($RowT_CadGru->GRU_ATIVO_ ? '' : ' (INATIVO)').'</option>';
       }
	   // Combo de Tributação
       $sHTML_ComboTRB = '<option value="0">- Nenhum selecionado -</option>';
       $RowsT_CadTRB = MYSQL_QUERY( "SELECT * FROM cad_tributacao,cad_cst WHERE TRB_RGATIVO AND CST_RGATIVO AND TRB_COD_CST=CST_CODIGOI ORDER BY CST_CODFISC ASC" ) Or Die(MYSQL_ERROR());
       While ($RowT_CadTRB = MYSQL_FETCH_OBJECT($RowsT_CadTRB)) {
	       If ( STRPOS(" ".$RowT_CadTRB->CST_CREGIME."," , $Dados_Empresa['EMP_REGIME'].",")>0 ) {
              $sHTML_ComboTRB .=
		         '<option value="'.$RowT_CadTRB->TRB_CODIGOI.'" '.($RowT_CadTRB->TRB_CODIGOI==(@$Row_CadPro['ITE_FISCAL_TRIB']+0) ? 'selected' : '').'>'.
		          AlinhaStr($RowT_CadTRB->CST_CODFISC,0,3,'&nbsp;').' | '.
		          AlinhaStr($RowT_CadTRB->CST_DESCRIC                  ,0,30,'&nbsp;')." | ".
		          AlinhaStr("ICMS "  .($RowT_CadTRB->TRB_I_C_M_S+0)."%",0, 8,'&nbsp;')." | ".
		          AlinhaStr("CFOP "  . $RowT_CadTRB->TRB_COD_CFO       ,0, 9,'&nbsp;')." | ".
		          AlinhaStr($RowT_CadTRB->TRB_COD_PIS.'-'."PIS ".($RowT_CadTRB->TRB_PER_PIS+0)."%",0, 10,'&nbsp;')." | ".
		          AlinhaStr($RowT_CadTRB->TRB_COD_CFN.'-'."COFINS ".($RowT_CadTRB->TRB_PER_CFN+0)."%",0,13,'&nbsp;').
				  
				  //AlinhaStr("PIS "   .($RowT_CadTRB->TRB_PER_PIS+0)."%",0, 7,'&nbsp;')." | ".
		          //AlinhaStr("COFINS ".($RowT_CadTRB->TRB_PER_CFN+0)."%",0,10,'&nbsp;').
		         '</option>';
           }
       }
	   // Combo de locais de impressão (ticket de producao)
	   $sHTML_ComboIMP1 = '<option value="0">- Nenhum local de impressão -</option>';
	   $sHTML_ComboIMP2 = '<option value="0">- Nenhum local de impressão -</option>';
	   $sHTML_ComboIMP3 = '<option value="0">- Nenhum local de impressão -</option>';
       $RowsT_LocImp = MYSQL_QUERY( "SELECT * FROM cad_local_imp WHERE IMP_TRAVADO=0 ORDER BY IMP_CODIGOI ASC" ) Or Die(MYSQL_ERROR());
       While ($RowT_LocImp = MYSQL_FETCH_OBJECT($RowsT_LocImp)) {
           $sHTML_ComboIMP1 .= '<option value="'.$RowT_LocImp->IMP_CODIGOI.'" '.($RowT_LocImp->IMP_CODIGOI==(@$Row_CadPro['ITE_LOC_IMP1']+0) ? 'selected' : '').'>'.Str_Zero($RowT_LocImp->IMP_CODIGOI,2).' - '.$RowT_LocImp->IMP_DESCRIC.'</option>';
           $sHTML_ComboIMP2 .= '<option value="'.$RowT_LocImp->IMP_CODIGOI.'" '.($RowT_LocImp->IMP_CODIGOI==(@$Row_CadPro['ITE_LOC_IMP2']+0) ? 'selected' : '').'>'.Str_Zero($RowT_LocImp->IMP_CODIGOI,2).' - '.$RowT_LocImp->IMP_DESCRIC.'</option>';
           $sHTML_ComboIMP3 .= '<option value="'.$RowT_LocImp->IMP_CODIGOI.'" '.($RowT_LocImp->IMP_CODIGOI==(@$Row_CadPro['ITE_LOC_IMP3']+0) ? 'selected' : '').'>'.Str_Zero($RowT_LocImp->IMP_CODIGOI,2).' - '.$RowT_LocImp->IMP_DESCRIC.'</option>';
       }
	   // Combo da origem do produto (Fiscal)
       $sHTML_ComboOri = '';
       $Rows = MYSQL_QUERY( "SELECT * FROM cad_produto_origem ORDER BY ORI_DESCRI ASC" ) Or Die(MYSQL_ERROR());
       While ($Row = MYSQL_FETCH_OBJECT($Rows)) {
           $sHTML_ComboOri .= '<option value="'.$Row->ORI_CODIGO.'" '.($Row->ORI_CODIGO==(@$Row_CadPro['ITE_COD_ORI']+0) ? 'selected' : '').'>'.Str_Zero($Row->ORI_CODIGO,3).' - '.$Row->ORI_DESCRI.'</option>';
       }
	   // Combo da classficação do produto
       $sHTML_ComboCls = '';
       $Rows = MYSQL_QUERY( "SELECT * FROM cad_produto_classificacao ORDER BY CLS_IDN_CLS ASC" ) Or Die(MYSQL_ERROR());
       While ($Row = MYSQL_FETCH_OBJECT($Rows)) {
           $sHTML_ComboCls .= '<option value="'.$Row->CLS_IDN_CLS.'" '.($Row->CLS_IDN_CLS==(@$Row_CadPro['ITE_COD_CLS']+0) ? 'selected' : '').'>'.Str_Zero($Row->CLS_IDN_CLS,2).' - '.$Row->CLS_DESCRIC.'</option>';
       }
	   // Limpar
	   LimparForIte($sIte_CodigoI+0);
	   //
       // Tela HTML
	   $sIte_CodigoI = Str_Zero($sIte_CodigoI, 6);
	   //
	   $sCSS_Inputs = 'background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;';
	   $sJava_OnCh_Camp =
	      "document.forms.fmECadPro.acao.value='ALT_CAMPOS';".
	      "document.forms.fmECadPro.submit();".
	      "";
	   // grupo varios sabores	  
	   //não tava pegando o cadgrupo correto 31/10/2016
	   //$Row_CadGru = MYSQL_QUERY( "SELECT * FROM cad_grupo_produtos WHERE GRU_TRAREG=0 AND GRU_CODIGO=".(@$_REQUEST['Ite_Cod_Gru']+0).";" ) Or Die(MYSQL_ERROR());
	   $Row_CadGru = MYSQL_QUERY( "SELECT * FROM cad_grupo_produtos WHERE GRU_TRAREG=0 AND GRU_CODIGO=".(@$Row_CadPro['ITE_COD_GRU']+0).";" ) Or Die(MYSQL_ERROR());
	   $Row_CadGru = MYSQL_FETCH_ARRAY($Row_CadGru);
	   $bActSabores = @$Row_CadGru['GRU_ACTSAB']+0;  
	   $bActMeiaPrc = @$Row_CadGru['GRU_ACTMEI']+0;
	   $bActMeiaPrc = ($bActMeiaPrc && (!$bActSabores))+0;
	   $bCls_Cod    = (@$Row_CadPro['ITE_COD_CLS']== 2)+0; //  código da classificação de produtos matéria prima
	   $sIte_Pes_Pro= '0.000';
	   //
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
          '<style type="text/css">'.   
	          CSS_Estilos(1,$oJanelaPrinc->sIdObj."_Balao").
    	  '</style>'. 
		  '<form name="fmECadPro" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'3">'.
           '<input name="mod" type="hidden" value="'.$sModulo.'">'.
           '<input name="submod" type="hidden" value="'.$sSubModulo.'">'.
           '<input name="acao" type="hidden" value="">'.
           '<input name="PrxCampo" type="hidden" value="">'.
    	   '<input name="nomeacs" type="hidden" value="'.$sNomeAcesso.'">'.
       	   //'<input name="GRU_CodigoI" type="hidden" value="'.((@$RowT_CadGru->ITE_COD_GRU)+0).'">'.
		   //
		   MontarGuiasHTML('Aba_ECadPro', "",
		   // => DADOS PRINCIPAIS
	       '** [{Principais}] **'.
           '<table width="100%"><tr>'.
       	    '<td width="4px" height="24px">&nbsp;</td>'.
            '<td align="left" width="140px">'.
		       'Cód. Cardápio:'.
			   '<input id="iECadEIte_CodigoL" name="Ite_CodigoL" type="text" value="'.@$Row_CadPro['ITE_CODIGOL'].'" maxlength="4" onchange="Car_'.$sNomeAcesso.'2.AdicionaLiv();" style="width:60px; height:22px; '.$sCSS_Inputs.'">'.
       	    '</td>'.
            '<td align="left" width="200px">'.
		       'Cód.Barras:'.
			   ( $bIte_Novo ?
			      '<input id="iECadEIte_CodBar" name="Ite_CodBar" type="text" value="'.@$Row_CadPro['BAR_CODBAR'].'" maxlength="15" onchange="Car_'.$sNomeAcesso.'2.ValidarBar();" style="width:130px; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;'.$sCSS_Inputs.'">'
			   :
			      '<input id="iECadEIte_CodBar" name="Ite_CodBar" type="text" value="'.@$Row_CadPro['BAR_CODBAR'].'" maxlength="15" readonly="readonly" onchange="Car_'.$sNomeAcesso.'2.ValidarBar();" style="width:130px; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;'.$sCSS_Inputs.'">'
               ).            
			'</td>'.
       	    '<td align="left">'.
		       'Descrição:'.
			   '<input id="iCadEIte_Descric" name="Ite_Descric" type="text" value="'.@$Row_CadPro['ITE_DESCRIC'].'" maxlength="50" style="width:315px; height:22px; '.$sCSS_Inputs.'">'.
       	    '</td>'.
			'<td align="left">'.
			   'Un:'.
		       '<input id="iECadEIte_Unidade" name="Ite_Sig_Unidade" type="text" maxlength="2" value="'.( $bIte_Novo ? 'UN' : @$Row_CadPro['ITE_SIG_UNIDADE'] ).'" style="width:27px; height:22px; text-align:center; '.$sCSS_Inputs.'">'.
			'</td>'.
       	   '</tr>'.
		  '</table>'.
       	  '<table width="100%"><tr>'.
       	    '<td width="4px" height="24px">&nbsp;</td>'.
       	    '<td align="left">'.
		       'Ingredientes 1:'.
			   '<input id="iECadEIte_Ingred1" name="Ite_Ingred1" type="text" value="'.@$Row_CadPro['ITE_INGRED1'].'" style="width:719px; height:22px; '.$sCSS_Inputs.'">'.
       	    '</td>'.
		    '</tr>'.
			'<tr>'.
       	       '<td height="24px">&nbsp;</td>'.
       	       '<td align="left">'.
		          'Ingredientes 2:'.
			      '<input id="iECadEIte_Ingred2" name="Ite_Ingred2" type="text" value="'.@$Row_CadPro['ITE_INGRED2'].'" style="width:719px; height:22px; '.$sCSS_Inputs.'">'.
       	       '<td align="left">'.
       	       '</td>'.
       	    '</tr>'.
		  '</table>'.
		  '<div style="width:'.$oJanelaPrinc->nWidth.'px; background-color:#0066FF;">'.
		     '<table width="100%">'. 
                '<tr>'.   
		           '<td width="150px" style="font-size:12px; font-weight:bold;color:#FFFFFF;" align="left" valign="middle">'.
                      '&nbsp;&nbsp;CÓDIGO DE BARRAS - GRUPOS - OPCIONAIS'.
                   '</td>'.  
		        '</tr>'.
		     '</table>'.
		  '</div>'.
          // Lista de Codigo de barras
		  //'<div style="width:100%; height:1px; background-color:#91D8F8;"></div>'.
       	  '<table width="100%"><tr>'.
		   //'<td height="40px" width="4px">&nbsp;</td>'.
       	   //cicero pediu para colocar em baixo  no rodapé da tela os botoes
		   /*'<td width="140px" height="40px" align="left" valign="middle">'.
       	    '&nbsp;&nbsp;'.
			HTML_Botao( 3, 'CadEIte_BT_Bar', "sAntMod = document.forms.fmECadPro2.submod.value;".
			                                 "document.forms.fmECadPro2.submod.value = 'CAD_CODBAR';".
			                                 "document.forms.fmECadPro2.acao.value=''; ".
			                                 "document.forms.fmECadPro2.Ite_CodigoL.value = document.getElementById('iECadEIte_CodigoL').value;".
    	                                     "document.forms.fmECadPro2.submit();".
			                                 "document.forms.fmECadPro2.submod.value = sAntMod;".
											 ""
			             , 'Código Barras (F3)','./images/btimg_novo.png',150).
		   '&nbsp;&nbsp;&nbsp;&nbsp;'.			 
       	   //'</td>'.
       	   //'<td width="405px" align="left" valign="middle">'.
		   // '<span id="sp_CadEIte_CodBar"></span>'.
           //'</td>'.
       	   //'<td width="165px" align="left">'.
       	     HTML_Botao( 3, 'CadEPro_BT_AGru',
			      "document.forms.fmECadPro.submod.value='AGRU';".
			      "document.forms.fmECadPro.acao.value='';".
				  "document.forms.fmECadPro.submit();".
                  $sJavaTravarJ.
			      "document.forms.fmECadPro.submod.value='".$sSubModulo."';"
		      , 'Agrupadores (F6)','./images/btimg_docs.png',160).
			'&nbsp;&nbsp;'.
		   //'</td>'.
		   //'<td width="220px" align="left">'.
       	     HTML_Botao( 3, 'CadEPro_BT_Gru',
			      "document.forms.fmECadPro.submod.value='GRU';".
			      "document.forms.fmECadPro.acao.value='';".
				  "document.forms.fmECadPro.submit();".
                  $sJavaTravarJ.
			      "document.forms.fmECadPro.submod.value='".$sSubModulo."';"
		      , 'Grupos (F7)','./images/btimg_docs.png',130).
			 //
			 ( (@$Row_CadPro['ITE_TIPCOMBO']+0) ?
			 '&nbsp;&nbsp;'.
       	     HTML_Botao( 3, 'CadEPro_BT_Cmb',
			      "document.forms.fmECadPro.submod.value='EDITAR_CMB';".
			      "document.forms.fmECadPro.acao.value='';".
				  "document.forms.fmECadPro.submit();".
                  $sJavaTravarJ.
			      "document.forms.fmECadPro.submod.value='".$sSubModulo."';"
		      , 'Produtos no combo (F8)','./images/btimg_tabela.png',190)
			 : "").
			'</td>'.*/
		   '<td width="16px">&nbsp;</td>'.
       	  '</tr></table>'.
		  //
		  '<table width="100%">'.
		     '<tr>'.
		        '<td width="405px" align="left" valign="middle">'.
		           '<span id="sp_CadEIte_CodBar"></span>'.
                '</td>'.
             '</tr>'.				
		  '</table>'.
		  //
		  '<table width="100%">'.
		  '<tr>'.
       	     '<td width="4px" height="5px">&nbsp;</td>'.
       	     '<td width="160px">Aceita opcionais neste produto?</td>'.
       	     '<td width="80px">'.
	            '<select id="i_ECadEIte_Opciona" name="Ite_Act_Opciona" style="font-size:12px;">'.
                   '<option value="0">N&atilde;o</option>'.
    	           '<option value="1"'.(@$Row_CadPro['ITE_ACT_OPCIONA']+0 ? ' selected' : '').'>Sim</option>'.
                '</select>'.
			 '</td>'.
       	    '<td width="140px" align="right">Grupo:</td>'.
       	    '<td width="195px">'.
            '<select id="iECadEIte_CodGru" style="width:198px;" name="Ite_Cod_Gru" onchange="document.forms.fmECadPro.PrxCampo.value='."'iECadEIte_CodGru'".';'.$sJava_OnCh_Camp.'">'.
			  $sHTML_ComboGru.
			 '</select>'.
			'</td>'.
       	    '<td>&nbsp;</td>'.
		   '</tr>'.
		  '</table>'.
		  //
		  '<table width="100%">'.
           '<tr>'.
             '<td width="4px" height="5px">&nbsp;</td>'.
       	     '<td width="160px" align="right" height="14px">'.
               'Código Interno:'.
             '</td>'.
       	     '<td width="80px" align="left">'.
		        '<input id="iECadEIte_CodInt" name="Ite_CodigoI" type="text" value="'.$sIte_CodigoI.'" readonly="readonly" style="width:60px; height:16px; '.$sCSS_Inputs.'">'.
       	     '</td>'.
			 '<td align="right" width="140px">Lançamento Rápido ?</td>'.
       	     '<td width="120px" align="left">'.
	           '<select id="iECadEIte_LanRap" name="Ite_Lan_Rap" style="font-size:12px;">'.
    	          '<option value="0">Não</option>'.
                  '<option value="1"'.(@$Row_CadPro['ITE_LAN_RAP']+0 ? ' selected' : '').'>Sim</option>'.
               '</select>'.
		       '<span style="font-size:14px;color:#FF0000;">'.
			    '&nbsp;&nbsp;'.
	    	      '* Só Plus'.
			   '</span>'.
			 '</td>'.
			 ( $bTaxaIteIndv ?
       	        '<td align="right" width="180px">Cobra taxa de serviço na '.STRTOLOWER($sTipoLocal).'?</td>'.
       	        '<td width="80px">'.
	               '<select id="iECadEIte_CalcTaxa" name="Ite_CalcTaxaSvr" style="font-size:12px;">'.
    	              '<option value="1">Sim</option>'.
                      '<option value="0"'.( (ISSET($Row_CadPro['ITE_CALCTAXASVR']) && ($Row_CadPro['ITE_CALCTAXASVR']+0)==0) ? ' selected' : '').'>N&atilde;o</option>'.
                   '</select>'.
			    '</td>'
		   
		     : '<td align="right" width="180px">&nbsp;</td>'
			 ).
       	      '<td>&nbsp;</td>'.
		    '</tr>'. 
		  '</table>'.
		  //
		  '<table border="0">'.
		     '<tr>'.
		        '<td align="right" width="4px" height="1px">&nbsp;'.
			    '</td>'.
		    	'<td align="left" valign="bottom">'.
				    'Vincular este produto na venda ? '.
       	            //'&nbsp;&nbsp;&nbsp;&nbsp;'.
					//'<input type="image" src="images/interroga.png"  width="23px" height="23px" onclick="parent.Car_'.$sNomeAcesso.'2.Interroga(1)">'.
				'</td>'.
				'<td width="120px" align="left" valign="middle">'.
	              '<select id="iECadEIte_VinProVenda" name="Ite_Vin_ProVenda" style="font-size:12px;">'.
    	             '<option value="0">Não</option>'.
                     '<option value="1"'.(@$Row_CadPro['ITE_PROVINVEN']+0 ? ' selected' : '').'>Sim</option>'.
                  '</select>'.
		          '&nbsp;'.
		          //
		          '<span id="spInfo_VincularPro" class="'.$oJanelaPrinc->sIdObj.'_Balao" style="display:none; left:26px; top:180px;">'.
    	             '&nbsp;&nbsp;Ao configurar como SIM, quando for imprimir ticket de produção para<br>'.
					 'este produto e tiver vendido outros produtos de LOCAL diferente, será<br>'.
					 'informado no final do ticket de produção o TEXTO:<br>'.
					 '*** VERIFIQUE PRODUTOS VINCULADOS ***<br>'.
                     'Ex: Venda de Pastel + Lanches'.
    	          '</span>'. 
				  '<img src="images/interroga.png" style="cursor:pointer;" src="images/interroga.png" width="23px" height="23px" onclick="'."parent.Car_".$sNomeAcesso."2.Interroga_Info('spInfo_VincularPro');".'">'.
				  '<span style="font-size:14px;color:#FF0000;">'.
				     '&nbsp;'.
	    	         '* Plus'.
				  '</span>'.
				  
				'</td>'.
				//
				'<td width="100px" align="right">'.
				   'Produto é combo ?'.
				'</td>'.
				'<td align="left" valign="middle">'.
	              '<select id="iECadEIte_TipCombo" name="Ite_Tip_Combo" onchange="Car_'.$sNomeAcesso.'2.Verifica_Combo();" style="font-size:12px;">'.
    	             '<option value="0">Não</option>'.
                     '<option value="1"'.( (@$Row_CadPro['ITE_TIPCOMBO']+0) ? ' selected' : '').'>Sim</option>'.
                  '</select>'.
		          '<span id="spInfo_Combo" class="'.$oJanelaPrinc->sIdObj.'_Balao" style="display:none; left:330px; top:226px;">'.
    	             '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ao configurar como SIM, poderá anexar os produtos a este produto combo.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.
    	          '</span>'. 
		          '&nbsp;'.
				  '<img src="images/interroga.png" style="cursor:pointer;" width="23px" height="23px" onclick="'."parent.Car_".$sNomeAcesso."2.Interroga_Info('spInfo_Combo');".'">'.
				  '<span style="font-size:14px;color:#FF0000;">'.
				     '&nbsp;'.
	    	         '* Só Plus'.
				  '</span>'.
				'</td>'.  
				// só aparece quando usa gas
				'<td id="iTD_LabelP" align="left">'.
				   'Peso do Produto'.
				'</td>'.
				'<td id="iTD_PesoPro" align="center" style="visibility:hidden;font-size:14px;">'.
		           '<input id="iECadEIte_PesoPro" name="Ite_Pes_Pro" type="text" maxlength="12" value="'.( @$Row_CadPro['ITE_PES_PRO']>0 ?  STR_REPLACE('.',',',@$Row_CadPro['ITE_PES_PRO'] ) : '0.000').'" style="width:100px; height:22px; text-align:right; '.$sCSS_Inputs.'">'.
				'</td>'.
				//
		     '</tr>'.
             //
			 '<tr>'.
			    '<td width="4px" height="5px">&nbsp;</td>'.
       	        '<td width="160px">Permite alterar preço na Venda</td>'.
       	        '<td width="80px">'.
	               '<select id="iECadEIte_PerAPVen" name="Ite_PerAPVen" style="font-size:12px;">'.
                      '<option value="0">N&atilde;o</option>'.
    	              '<option value="1"'.(@$Row_CadPro['ITE_PERAPVEN']+0 ? ' selected' : '').'>Sim</option>'.
                   '</select>'.
			       '<span style="font-size:14px;color:#FF0000;">'.
				      '&nbsp;'.
	    	          '* Só Plus'.
				   '</span>'.
       	           '<td width="220px" align="right">Imprimir senha para retirar o produtos?</td>'.
       	           '<td>'.
	                  '<select id="iECadEIte_Senha_Ret" name="Ite_Senha_Ret" style="font-size:12px;">'.
                         '<option value="0">N&atilde;o</option>'.
    	                 '<option value="1"'.(@$Row_CadPro['ITE_SENHA_RET']+0 ? ' selected' : '').'>Sim</option>'.
                      '</select>'.
			          //'<span style="font-size:14px;color:#FF0000;">'.
				      //   '&nbsp;'.
	    	          //   '* Só Plus'.
				      //'</span>'.
			       '</td>'.
			    '</td>'.
			 '</tr>'.
             //
			 '<tr>'.
              '<td width="4px" height="25px">&nbsp;</td>'.
              '<td width="160px" valign="middle">Imprimir por quantidade unitária?</td>'.
              '<td width="180px" valign="middle">'.
               '<select id="iECadEIte_Imp_Unit" name="Ite_Imp_Unit" style="font-size:12px;">'.
                '<option value="0">N&atilde;o</option>'.
                '<option value="1"'.(@$Row_CadPro['ITE_IMP_UNIT']+0 ? ' selected' : '').'>Sim</option>'.
                //
                // Imprimir ticket: 0 = Normal, 1 = Separado por quantidade unitária, 2 = Separado por quantidade agrupada
                //
               '</select>'.
               '<span style="font-size:12px;color:#FF0000;">'.
                '&nbsp;'.
                '* Só Garçom Express'.
               '</span>'.
              '<td width="120px" align="right" valign="middle">Imprimir ticket de conferência?</td>'.
              '<td valign="middle">'.
                '<select id="iECadEIte_Imp_Cnfr" name="Ite_Imp_Cnfr" style="font-size:12px;">'.
                 '<option value="0">N&atilde;o</option>'.
                 '<option value="1"'.(@$Row_CadPro['ITE_IMP_CNFR']+0 ? ' selected' : '').'>Sim</option>'.
                '</select>'.
               '<span style="font-size:12px;color:#FF0000;">'.
                '&nbsp;'.
                '* Só Garçom Express'.
               '</span>'.
               '</td>'.
              '</td>'.
			 '</tr>'.
             //
		  '</table>'.
          // Locais de impressão dos tickets de producao
		  ( $bImpTxtLocal || $bImpTxtBalca || $bImpTxtEntre  ?
		  '<div style="width:100%; background-color:#0066FF;">'.
		     '<table width="100%">'. 
                '<tr>'.   
		           '<td width="150px" style="font-size:12px; font-weight:bold;color:#FFFFFF;" align="left" valign="middle">'.
                      '&nbsp;&nbsp;LOCAIS DA IMPRESSÃO DOS TICKETS DE PRODUÇÃO'.
                   '</td>'.  
		        '</tr>'.
		     '</table>'.
		  '</div>'.
       	  '<table border="0">'.
		   '<tr>'.
		      '<td align="right" width="4px" >&nbsp;'.
		      '</td>'.
		    ( $bImpTxtLocal ?
       	     '<td width="50px" align="right">'.SQLVarConfig('NOME_LOCAIS_SVC').'&nbsp;</td>'.
       	     '<td width="170px">'.
			  '<select id="iECadEIte_LocImp1" name="Ite_Loc_Imp1" style="width:100%;">'.
			   $sHTML_ComboIMP1.
			  '</select>'.
			 '</td>'
			: '').
		    ( $bImpTxtBalca ?
       	     '<td width="70px" align="right">Balcão&nbsp;</td>'.
       	     '<td width="170px">'.
			  '<select id="iECadEIte_LocImp2" name="Ite_Loc_Imp2" style="width:100%;">'.
			   $sHTML_ComboIMP2.
			  '</select>'.
			 '</td>'
			: '').
		    ( $bImpTxtEntre ?
       	     '<td width="80px" align="right">Disk Entrega&nbsp;</td>'.
       	     '<td width="170px">'.
			  '<select id="iECadEIte_LocImp3" name="Ite_Loc_Imp3" style="width:100%;">'.
			   $sHTML_ComboIMP3.
			  '</select>'.
			 '</td>'
			: '').
       	    '<td>&nbsp;</td>'.
		   '</tr>'.
		  '</table>'.
		  '&nbsp;'
		  : '').
		  // Preços
       	  '<div style="background-color:#0066FF;">'.
		     '<table width="100%" border="0">'.
		        '<tr>'.
       	           '<td width="4px" height="14px">&nbsp;</td>'.
       	           '<td width="40px" style="font-size:14px; font-weight:bold;color:#FFFFFF;">Pre&ccedil;os</td>'.
       	           ( $bActSabores ?
	                 ( $bCls_Cod ?
					    '<td width="100px" align="center" style="font-size:14px;font-weight:bold;color:#FFFFFF;">'.
		                   '&nbsp;'.
       	                '</td>'.
					    '<td width="180px" align="right" style="font-size:14px;font-weight:bold;color:#FFFFFF;">'.
		                   '&nbsp;'.
       	                '</td>'.
				        '<td width="100px" align="center" style="font-size:14px;font-weight:bold;color:#FFFFFF;">'.
		                   'Custo'.
       	                '</td>'.
				        '<td width="130px" align="center" style="font-size:14px;font-weight:bold;color:#FFFFFF;">'.
		                   'Custo Médio'.
       	                '</td>'
					 : 
					    '<td width="100px" align="center" style="font-size:14px;font-weight:bold;color:#FFFFFF;">'.
		                   'Balcao'.
       	                '</td>'.
					    '<td width="90px" align="right" style="font-size:14px;font-weight:bold;color:#FFFFFF;">'.
		                   $sTipoLocal.
       	                '</td>'.
				        '<td width="100px" align="right" style="font-size:14px;font-weight:bold;color:#FFFFFF;">'.
		                   'Disk Entrega'.
       	                '</td>'.
					    '<td width="100px" align="center" style="font-size:14px;font-weight:bold;color:#FFFFFF;">'.
		                   'Custo'.
       	                '</td>'.
				        '<td width="160px" align="center" style="font-size:14px;font-weight:bold;color:#FFFFFF;">'.
		                   'Custo Médio'.
       	                '</td>'
					  
					  )
					  //'<td>&nbsp;</td>'
				   :
                      ( $bCls_Cod ?
					     '<td width="60px" align="left" style="font-size:14px;font-weight:bold;color:#FFFFFF;">'.
		                    '&nbsp;'.
       	                 '</td>'.
					     '<td width="60px" align="left" style="font-size:14px;font-weight:bold;color:#FFFFFF;">'.
		                    '&nbsp;'.
       	                 '</td>'.
				         '<td width="60px" align="left" style="font-size:14px;font-weight:bold;color:#FFFFFF;">'.
		                    'Custo'.
       	                 '</td>'.
					     '<td width="80px" align="left" style="font-size:14px;font-weight:bold;color:#FFFFFF;">'.
		                    'Custo Médio'.
       	                 '</td>'
					  :
					     '<td width="40px" align="left" style="font-size:14px;font-weight:bold;color:#FFFFFF;">'.
		                    'Balcao'.
       	                 '</td>'.
					     '<td width="40px" align="left" style="font-size:14px;font-weight:bold;color:#FFFFFF;">'.
		                    $sTipoLocal.
       	                 '</td>'.
				         '<td width="40px" align="left" style="font-size:14px;font-weight:bold;color:#FFFFFF;">'.
		                    'Disk Entrega'.
       	                 '</td>'.
				         '<td width="40px" align="left" style="font-size:14px;font-weight:bold;color:#FFFFFF;">'.
		                    'Custo'.
       	                 '</td>'.
					     '<td width="120px" align="left" style="font-size:14px;font-weight:bold;color:#FFFFFF;">'.
		                    'Custo Médio'.
       	                 '</td>'
					  )
					  
				   ).
       	        '</tr>'.
		     '</table>'.
		  '</div>'.
		  //
		  '<table>'.                    
		   '<tr id="iTR_CadPro_Pre001" style="visibility:hidden;">'.
       	    '<td height="24px">&nbsp;</td>'.
       	    // MATERIA PRIMA OCULTA - SÓ MOSTRA PREÇO DE CUSTO
			'<td align="left" style="font-size:13px; font-weight:bold;">'.SQLVarConfig('DESCRI_PROPRECO1').'</td>'.
       	    '<td id="iTD_Pre002" align="center" style="visibility:hidden;font-size:14px;">'.
		     '<input id="iECadEIte_PreBal1" name="Ite_Pre_Bal_001" type="text" value="'.FormatoMoeda(@$Row_CadPro['ITE_PRE_BAL_001']+0).'" style="width:90%; height:22px; text-align:right; '.$sCSS_Inputs.'">'.
       	    '</td>'.
       	    '<td id="iTD_Pre003"  width="140px" align="center" style="visibility:hidden;font-size:14px;">'.
		     '<input id="iECadEIte_PreMes1" name="Ite_Pre_Mes_001" type="text" value="'.FormatoMoeda(@$Row_CadPro['ITE_PRE_MES_001']+0).'" style="width:90%; height:22px; text-align:right; '.$sCSS_Inputs.'">'.
       	    '</td>'.
       	    '<td id="iTD_Pre004" width="140px" align="center" style="visibility:hidden;font-size:14px;">'.
		     '<input id="iECadEIte_PreEnt1" name="Ite_Pre_Ent_001" type="text" value="'.FormatoMoeda(@$Row_CadPro['ITE_PRE_ENT_001']+0).'" style="width:90%; height:22px; text-align:right; '.$sCSS_Inputs.'">'.
       	    '</td>'.
			
			// PREÇO CUSTO
			'<td width="140px" align="center" style="font-size:14px;">'.
		     '<input id="iECadEIte_Custo_1" name="Ite_Pre_Cus_001" type="text" value="'.FormatoMoeda(@$Row_CadPro['ITE_PRE_CUS_001']+0).'" style="width:90%; height:22px; text-align:right; '.$sCSS_Inputs.'">'.
       	    '</td>'.
			// PREÇO CUSTO MEDIO
			'<td width="140px" align="right" style="font-size:14px;">'.
		     '<input id="iECadEIte_Custo_E" type="text" value="'.FormatoMoeda(@$Row_CadPro['ITE_PRE_CUSTO_E']+0).'" readonly style="width:90%; height:22px; text-align:right; '.$sCSS_Inputs.'">'.
       	    '</td>'.
       	    '<td width="4px">&nbsp;</td>'.
       	   '</tr>'.
		   '<tr id="iTR_CadPro_Pre002" style="visibility:hidden;">'.
       	    '<td height="24px">&nbsp;</td>'.
       	    '<td  align="left" style="font-size:13px; font-weight:bold;">'.SQLVarConfig('DESCRI_PROPRECO2').'</td>'.
       	    '<td id="iTD_Pre002_02" align="center" style="visibility:hidden;font-size:14px;">'.
		     '<input id="iECadEIte_PreBal2" name="Ite_Pre_Bal_002" type="text" value="'.FormatoMoeda(@$Row_CadPro['ITE_PRE_BAL_002']+0).'" style="width:90%; height:22px; text-align:right; '.$sCSS_Inputs.'">'.
       	    '</td>'.
       	    '<td id="iTD_Pre003_02" width="140px" align="center" style="visibility:hidden;font-size:14px;">'.
		     '<input id="iECadEIte_PreMes2" name="Ite_Pre_Mes_002" type="text" value="'.FormatoMoeda(@$Row_CadPro['ITE_PRE_MES_002']+0).'" style="width:90%; height:22px; text-align:right; '.$sCSS_Inputs.'">'.
       	    '</td>'.
       	    '<td id="iTD_Pre004_02" width="140px" align="center" style="visibility:hidden;font-size:14px;">'.
		     '<input id="iECadEIte_PreEnt2" name="Ite_Pre_Ent_002" type="text" value="'.FormatoMoeda(@$Row_CadPro['ITE_PRE_ENT_002']+0).'" style="width:90%; height:22px; text-align:right; '.$sCSS_Inputs.'">'.
       	    '</td>'.
			// PREÇO CUSTO
			'<td width="140px" align="center" style="font-size:14px;">'.
		     '<input id="iECadEIte_Custo_2" name="Ite_Pre_Cus_002" type="text" value="'.FormatoMoeda(@$Row_CadPro['ITE_PRE_CUS_002']+0).'" style="width:90%; height:22px; text-align:right; '.$sCSS_Inputs.'">'.
       	    '</td>'.
       	    '<td>&nbsp;</td>'.
       	   '</tr>'.
		   
		   '<tr id="iTR_CadPro_Pre003" style="visibility:hidden;">'.
       	    '<td height="24px">&nbsp;</td>'.
       	    '<td align="left" style="font-size:13px; font-weight:bold;">'.SQLVarConfig('DESCRI_PROPRECO3').'</td>'.
       	    '<td id="iTD_Pre002_03" align="center" style="visibility:hidden;font-size:14px;">'.
		     '<input id="iECadEIte_PreBal3" name="Ite_Pre_Bal_003" type="text" value="'.FormatoMoeda(@$Row_CadPro['ITE_PRE_BAL_003']+0).'" style="width:90%; height:22px; text-align:right; '.$sCSS_Inputs.'">'.
       	    '</td>'.
       	    '<td id="iTD_Pre003_03" width="140px" align="center" style="visibility:hidden;font-size:14px;">'.
		     '<input id="iECadEIte_PreMes3" name="Ite_Pre_Mes_003" type="text" value="'.FormatoMoeda(@$Row_CadPro['ITE_PRE_MES_003']+0).'" style="width:90%; height:22px; text-align:right; '.$sCSS_Inputs.'">'.
       	    '</td>'.
       	    '<td id="iTD_Pre004_03" width="140px" align="center" style="visibility:hidden;font-size:14px;">'.
		     '<input id="iECadEIte_PreEnt3" name="Ite_Pre_Ent_003" type="text" value="'.FormatoMoeda(@$Row_CadPro['ITE_PRE_ENT_003']+0).'" style="width:90%; height:22px; text-align:right; '.$sCSS_Inputs.'">'.
       	    '</td>'.
			// PREÇO CUSTO
			'<td width="140px" align="center" style="font-size:14px;">'.
		     '<input id="iECadEIte_Custo_3" name="Ite_Pre_Cus_003" type="text" value="'.FormatoMoeda(@$Row_CadPro['ITE_PRE_CUS_003']+0).'" style="width:90%; height:22px; text-align:right; '.$sCSS_Inputs.'">'.
       	    '</td>'.
       	    '<td>&nbsp;</td>'.
       	   '</tr>'.
		   '<tr id="iTR_CadPro_Pre004" style="visibility:hidden;">'.
       	    '<td height="24px">&nbsp;</td>'.
       	    '<td align="left" style="font-size:13px; font-weight:bold;">'.SQLVarConfig('DESCRI_PROPRECO4').'</td>'.
       	    '<td id="iTD_Pre002_04" width="140px" align="center" style="visibility:hidden;font-size:14px;">'.
		     '<input id="iECadEIte_PreBal4" name="Ite_Pre_Bal_004" type="text" value="'.FormatoMoeda(@$Row_CadPro['ITE_PRE_BAL_004']+0).'" style="width:90%; height:22px; text-align:right; '.$sCSS_Inputs.'">'.
       	    '</td>'.
       	    '<td id="iTD_Pre003_04" width="140px" align="center" style="visibility:hidden;font-size:14px;">'.
		     '<input id="iECadEIte_PreMes4" name="Ite_Pre_Mes_004" type="text" value="'.FormatoMoeda(@$Row_CadPro['ITE_PRE_MES_004']+0).'" style="width:90%; height:22px; text-align:right; '.$sCSS_Inputs.'">'.
       	    '</td>'.
       	    '<td id="iTD_Pre004_04" width="140px" align="center" style="visibility:hidden;font-size:14px;">'.
		     '<input id="iECadEIte_PreEnt4" name="Ite_Pre_Ent_004" type="text" value="'.FormatoMoeda(@$Row_CadPro['ITE_PRE_ENT_004']+0).'" style="width:90%; height:22px; text-align:right; '.$sCSS_Inputs.'">'.
       	    '</td>'.
			// PREÇO CUSTO
			'<td width="140px" align="center" style="font-size:14px;">'.
		     '<input id="iECadEIte_Custo_4" name="Ite_Pre_Cus_004" type="text" value="'.FormatoMoeda(@$Row_CadPro['ITE_PRE_CUS_004']+0).'" style="width:90%; height:22px; text-align:right; '.$sCSS_Inputs.'">'.
       	    '</td>'.
       	    '<td>&nbsp;</td>'.
       	   '</tr>'.
		   //
		   '<tr id="iTR_CadPro_PreNor" style="visibility:hidden;position:absolute; top:425px; left:6px">'.
       	    '<td height="24px">&nbsp;</td>'.
       	    ( $bActMeiaPrc ? 
			   '<td align="left" style="font-size:13px; font-weight:bold;" width="90px;">'.SQLVarConfig('DESCRI_PROPRECON').'</td>'
	        :
			   '<td align="left" style="font-size:13px; font-weight:bold;" width="90px;">Normal</td>'
			).
			'<td id="iTD_PreBalN" width="120px" align="center" style="visibility:hidden;font-size:14px;">'.
		     '<input id="iECadEIte_PreBalN" name="Ite_Pre_Bal_Nor" type="text" value="'.FormatoMoeda(@$Row_CadPro['ITE_PRE_BAL_NOR']+0).'" style="width:90%; height:22px; text-align:right; '.$sCSS_Inputs.'">'.
       	    '</td>'.
       	    '<td id="iTD_PreMesN" width="120px" align="center" style="visibility:hidden;font-size:14px;">'.
		     '<input id="iECadEIte_PreMesN" name="Ite_Pre_Mes_Nor" type="text" value="'.FormatoMoeda(@$Row_CadPro['ITE_PRE_MES_NOR']+0).'" style="width:90%; height:22px; text-align:right; '.$sCSS_Inputs.'">'.
       	    '</td>'.
       	    '<td id="iTD_PreEntN" width="120px" align="center" style="visibility:hidden;font-size:14px;">'.
		     '<input id="iECadEIte_PreEntN" name="Ite_Pre_Ent_Nor" type="text" value="'.FormatoMoeda(@$Row_CadPro['ITE_PRE_ENT_NOR']+0).'" style="width:90%; height:22px; text-align:right; '.$sCSS_Inputs.'">'.
       	    '</td>'.
			// PREÇO CUSTO
			'<td width="120px" align="center" style="font-size:14px;">'.
		     '<input id="iECadEIte_Custo_N" name="Ite_Pre_Custo_N" type="text" value="'.FormatoMoeda(@$Row_CadPro['ITE_PRE_CUSTO_N']+0).'" style="width:90%; height:22px; text-align:right; '.$sCSS_Inputs.'">'.
       	    '</td>'.
			// PREÇO CUSTO MEDIO
			'<td width="" align="center" style="font-size:14px;">'.
		     '<input id="iECadEIte_Custo_E" type="text" value="'.FormatoMoeda(@$Row_CadPro['ITE_PRE_CUSTO_E']+0).'" readonly style="width:90%; height:22px; text-align:right; '.$sCSS_Inputs.'">'.
       	    '</td>'.
       	    '<td>&nbsp;</td>'.
       	   '</tr>'.
		   '<tr id="iTR_CadPro_PreMei" style="visibility:hidden;position:absolute; top:450px; left:6px">'.
       	    '<td height="24px">&nbsp;</td>'.
       	    ( $bActMeiaPrc ? 
			   '<td align="left" style="font-size:13px; font-weight:bold;" width="90px;">'.SQLVarConfig('DESCRI_PROPRECOM').'</td>'
			:
			   '<td align="left" style="font-size:13px; font-weight:bold;" width="90px;">Meia porção</td>'
       	    ).
			'<td id="iTD_PreBalM" width="120px" align="center" style="visibility:hidden;font-size:14px;">'.
		     '<input id="iECadEIte_PreBalM" name="Ite_Pre_Bal_Mei" type="text" value="'.FormatoMoeda(@$Row_CadPro['ITE_PRE_BAL_MEI']+0).'" style="width:90%; height:22px; text-align:right; '.$sCSS_Inputs.'">'.
       	    '</td>'.
       	    '<td id="iTD_PreMesM" width="120px" align="center" style="visibility:hidden;font-size:14px;">'.
		     '<input id="iECadEIte_PreMesM" name="Ite_Pre_Mes_Mei" type="text" value="'.FormatoMoeda(@$Row_CadPro['ITE_PRE_MES_MEI']+0).'" style="width:90%; height:22px; text-align:right; '.$sCSS_Inputs.'">'.
       	    '</td>'.
       	    '<td id="iTD_PreEntM" width="120px" align="center" style="visibility:hidden;font-size:14px;">'.
		     '<input id="iECadEIte_PreEntM" name="Ite_Pre_Ent_Mei" type="text" value="'.FormatoMoeda(@$Row_CadPro['ITE_PRE_ENT_MEI']+0).'" style="width:90%; height:22px; text-align:right; '.$sCSS_Inputs.'">'.
       	    '</td>'.
			// PREÇO CUSTO
			'<td width="120px" align="center" style="font-size:14px;">'.
		     '<input id="iECadEIte_Custo_M" name="Ite_Pre_Custo_M" type="text" value="'.FormatoMoeda(@$Row_CadPro['ITE_PRE_CUSTO_M']+0).'" style="width:90%; height:22px; text-align:right; '.$sCSS_Inputs.'">'.
       	    '</td>'.
       	    '<td>&nbsp;</td>'.
       	   '</tr>'.
		  '</table>'.
	      '** {[FIM]} **'.
		  ////
		  //// => Estoque
		    '** [{Estoque}] **'.
		  // Estoque
          ( $bUtilizaEstoque ?
           //'<div style="width:100%; height:1px; background-color:#91D8F8;"></div>'.
		   '<div style="width:100%;background-color:#0066FF;">'.
		      '<table width="100%">'. 
                '<tr>'.   
		           '<td width="150px" style="font-size:12px; font-weight:bold;color:#FFFFFF;" align="left" valign="middle">'.
                 '&nbsp;&nbsp;ESTOQUE'.
                   '</td>'.  
		        '</tr>'.
		      '</table>'.
           '</div>'.
		   '<table width="100%"><tr>'.
            '<td width="4px" height="24px">&nbsp;</td>'.
            '<td align="right" width="100px">'.
             'Saldo mínimo: '.
            '</td>'.
			'<td align="left" width="100px">'.
		     '<input id="iECadEIte_EstMin" name="Est_EstMin" type="text" maxlength="8" value="'.(@$Row_CadPro['EST_ESTMIN']).'" style="width:70px; height:20px; text-align:right; '.$sCSS_Inputs.'">'.
			'</td>'.
            '<td align="left" width="120px">'.
             'Saldo atual: <span style="font-weight:bold;">'.NUMBER_FORMAT(@$Row_CadPro['EST_SALDOS']+0,3, ',','').'</span>'.
            '</td>'.
            '<td align="left" width="210px">'.
             'Data do ultimo balanço: <span style="font-weight:bold;">'.ConvertDataUSBR(@$Row_CadPro['EST_DTABAL']).'</span>'.
            '</td>'.
            '<td align="left" width="210px">'.
             'Saldo do ultimo balanço: <span style="font-weight:bold;">'.NUMBER_FORMAT(@$Row_CadPro['EST_SALBAL']+0,3, ',','').'</span>'.
            '</td>'.
            '<td>&nbsp;</td>'.
		   '</tr></table>'.
           '<table width="100%"><tr>'.
            '<td width="10px" height="36px" style="font-size:1px;">&nbsp;</td>'.
            '<td align="right" width="94px">'.
			 'Classificação:'.
			'</td>'.
            '<td align="left" width="200px">'.
			 '<select id="iECadEIte_CodCls" name="Ite_Cod_Cls" style="width:99%; font-family:Courier;" onchange="Car_'.$sNomeAcesso.'2.Atualizar_Campos();">'.
		      $sHTML_ComboCls.
			 '</select>'.
			'</td>'.
            '<td>&nbsp;</td>'.
            '<td width="260px" align="left">'.
       	     HTML_Botao( 3, 'CadEPro_BT_FcProd',
			      "document.forms.fmECadPro.submod.value='FICHA_PRODUCAO';".
			      "document.forms.fmECadPro.acao.value='';".
				  "document.forms.fmECadPro.submit();".
                  $sJavaTravarJ.
			      "document.forms.fmECadPro.submod.value='".$sSubModulo."';"
		     , 'Ficha técnica de produção (F4)','./images/btimg_docs.png',230).
			'</td>'.
		   '</tr></table>'.
           '<table><tr>'.
            '<td width="10px" height="36px" style="font-size:1px;">&nbsp;</td>'.
            '<td align="right" width="94px">'.
			 'Unidade compra:'.
			'</td>'.
            '<td align="right" width="40px">'.
		      '<input id="iECadEIte_UnidCmp" name="Ite_Sig_UnidCmp" type="text" maxlength="2" value="'.(@$Row_CadPro['ITE_SIG_UNIDCMP']).'" style="width:100%; height:22px; text-align:center; '.$sCSS_Inputs.'">'.
			'</td>'.
            '<td align="right" width="160px">'.
			 'Quantidade na embalagem:'.
			'</td>'.
            '<td align="right" width="90px">'.
		      '<input id="iECadEIte_QtdECmp" name="Ite_Qtd_EmbaCmp" type="text" maxlength="8" value="'.(@$Row_CadPro['ITE_QTD_EMBACMP']+0).'" style="width:100%; height:22px; text-align:right; '.$sCSS_Inputs.'">'.
			'</td>'.
		   '</tr></table>'.
           '<table><tr>'.
            '<td width="20px" height="36px" style="font-size:1px;">&nbsp;</td>'.
            '<td align="left" width="160px">'.
			 'Produto Controla Rotatividade:'.
			'</td>'.
            '<td align="right" width="40px">'.
	          '<select id="iECadEIte_Conf_Est" name="Ite_Conf_Estoque" style="font-size:12px;">'.
                 '<option value="0">N&atilde;o</option>'.
    	         '<option value="1"'.(@$Row_CadPro['ITE_CONF_ESTOQUE']+0 ? ' selected' : '').'>Sim</option>'.
              '</select>'.
			'</td>'.
		   '</tr></table>'.
		   ''
		  : '' ).
		  // Fornecedores
		  ( $bIte_Novo ? '' :
            '<div style="width:100%;background-color:#0066FF;">'.
		      '<table width="100%">'. 
                '<tr>'.   
		           '<td width="150px" style="font-size:12px; font-weight:bold;color:#FFFFFF;" align="left" valign="middle">'.
                 '&nbsp;&nbsp;FORNECEDORES'.
                   '</td>'.  
		        '</tr>'.
		      '</table>'.
           '</div>'.
		   '<table width="100%"><tr>'.
            '<td width="10px" height="40px" style="font-size:1px;">&nbsp;</td>'.
            '<td align="left" width="400px">'.
	         '<select id="iECadEFor_Codigo" style="width:99%; font-family:Courier;">'.
			  '<option value="0" selected>Aguarde...</option>'.
			  '</select>'.
            '</td>'.
            '<td align="left" width="100px">'.
       	     HTML_Botao( 3, 'CadEPro_BT_AdcFor',"Car_".$sNomeAcesso."2.AdicionaIteFor();"
			              , 'Adicionar','images/btimg_novo.png',90).
            '</td>'.
            '<td align="left">'.
            '</td>'.
            '<td align="right" width="100px">'.
       	     HTML_Botao( 3, 'CadEPro_BT_RmvFor',"Car_".$sNomeAcesso."2.CRemoverIteFor();"
			              , 'Remover','images/btimg_remover.png',90).
            '</td>'.
            '<td width="10px" height="24px" style="font-size:1px;">&nbsp;</td>'.
		   '</tr></table>'.
		   '<div style="position:absolute; top:-1000px; left:-1000px;">'.
		    '<input id="iECadEIte_iLstFor" type="text" maxlength="1" onkeydown="Car_'.$sNomeAcesso.'2.P_TeclasPress_fm(event);">'.
		   '</div>'.
           '<table width="100%"><tr>'.
            '<td width="4px" style="font-size:1px;">&nbsp;</td>'.
            '<td align="center">'.
		     $oListaFor->MontaDivHtml().
		    '</td>'.
            '<td width="4px" style="font-size:1px;">&nbsp;</td>'.
		   '</tr></table>'.
		   '<div style="height:10px;"></div>'
		  ).
		  //
		  '<div style="height:10px;"></div>'.
		  '<div style="width:100%; height:1px; background-color:#91D8F8;"></div>'.
		  '** {[FIM]} **'.
		  ////
		  //// => Dados Fiscais
		  ( $bTribuFiscal ?
		   '** [{Fiscal}] **'.
            '<div style="width:'.($oJanelaPrinc->nWidth-14).'px; background-color:#0066FF;">'.
		      '<table width="100%">'. 
                '<tr>'.
		           '<td style="font-size:12px; font-weight:bold;color:#FFFFFF;" align="left" valign="middle">'.
                      '&nbsp;&nbsp;DADOS FISCAIS'.
                   '</td>'.
		        '</tr>'.
		      '</table>'.
           '</div>'.
		   '<table width="100%">'.
		      '<tr>'.
                 '<td width="4px" height="24px">&nbsp;</td>'.
                 '<td align="right" width="100px">'.
                    'CST e tributação: '.
                 '</td>'.
			     '<td align="left">'.
			        '<select id="iECadEIte_CodTrb" name="Ite_Fiscal_Trib" style="width:700px; font-family:Courier;">'.
			           $sHTML_ComboTRB.
			        '</select>'.
			     '</td>'.
		      '</tr>'.
		   '</table>'.
           '<table width="100%">'.
		      '<tr>'.
                 '<td width="4px" height="24px">&nbsp;</td>'.
                 '<td align="right" width="100px">'.
                    'Código do CEST: '.
                 '</td>'.
			     '<td width="100px" align="left">'.
		            '<input id="iECadEIte_Cod_CES" name="Ite_Cod_CES" type="text" maxlength="10" value="'.(@$Row_CadPro['ITE_CES_COD']).'"  onchange="Car_'.$sNomeAcesso.'2.PuxarCest();" style="width:80px; height:20px; text-align:right; '.$sCSS_Inputs.'">'.
                    '&nbsp;&nbsp;'.
					'<span align="left" id="sECadEIte_Cest" style="color:#FF4500;font-size:14px;">'.
					  //'(Aguarde...)'.
       	            '</span>'.
       	         '</td>'.
			    //'<td align="left">'.
			    //    '&nbsp;&nbsp;'.
			    // '</td>'.
		      '</tr>'.
              '<tr>'.
                 '<td width="4px" height="24px">&nbsp;</td>'.
                 '<td align="right" width="100px">'.
				    '&nbsp;&nbsp;'.
                 '</td>'.
				 '<td align="left">'.
		            '<span style="color:#FF0000;font-size:14px;">'.
				       '* Código Especificador da Substituição Tributária<br> (Obrigátório para CST 010 030 060 070 090 ou 201,202,203,500,900).'.
		    	    '</span>'.
                 '</td>'.
			  '</tr>'.
           '</table>'.
		   '<table width="100%">'.
		      '<tr>'.
                 '<td width="4px" height="24px">&nbsp;</td>'.
                 '<td align="right" width="100px">'.
                    'Código NCM: '.
                 '</td>'.
			     '<td width="140px" align="left">'.
		            '<input id="iECadEIte_Cod_NCM" name="Ite_Cod_NCM" type="text" maxlength="8" value="'.(@$Row_CadPro['ITE_COD_NCM']).'" style="width:80px; height:20px; text-align:right; '.$sCSS_Inputs.'">'.
                 '</td>'.
			     '<td align="right" width="120px">'.
                    'Origem da mercadoria: '.
                 '</td>'.
			     '<td align="left">'.
			        '<select id="iECadEIte_CodOri" name="Ite_Cod_Ori" style="width:430px; font-family:Courier;">'.
			           $sHTML_ComboOri.
			        '</select>'.
			     '</td>'.
		      '</tr>'.
		   '</table>'.
		   ( $bRevendaGas ?
		      '<table width="100%" border="0">'.
			     '<tr>'.
			        '<td align="right" width="108px">'.
				       'Código ANP:'.
				    '</td>'.   
				    '<td align="left" width="100px">'.
		               '<input id="iECadEIte_CodANP" name="Ite_Cod_ANP" type="text" maxlength="9" value="'.(@$Row_CadPro['ITE_COD_ANP']).'" style="width:80px; height:20px; text-align:right; '.$sCSS_Inputs.'">'.
                    '</td>'.
                    '<td align="left">'.
                       '(cProdANP) Utilizar a codificação do SIMP.'.
                    '</td>'.
		         '</tr>'.
			  '</table>'.
		      '<table width="100%" border="0">'.
			     '<tr>'.
			        '<td align="right" width="108px">'.
				       'Descrição ANP:'.
				    '</td>'.
				    '<td align="left" width="210px">'.
		               '<input id="iECadEIte_ANP_Descri" name="Ite_ANP_Descri" type="text" maxlength="50" value="'.(@$Row_CadPro['ITE_ANP_DESCRI']).'" style="width:200px; height:20px; text-align:left; '.$sCSS_Inputs.'">'.
                    '</td>'.
                    '<td align="left">'.
                       '(descANP) - Descrição conforme a ANP '.
                       '<a style="color:#0077BF; font-weight:bold; font-size:12px;" href="http://www.anp.gov.br/simp/" target="_blank">'.
                        'http://www.anp.gov.br/simp/'.
                       '</a>'.
                       '.'.
                    '</td>'.
		         '</tr>'.
		      '<table width="100%" border="0">'.
			     '<tr>'.
			        '<td align="right" width="108px">'.
				       'Percentual do GLP:'.
				    '</td>'.
				    '<td align="left" width="100px">'.
		               '<input id="iECadEIte_ANP_PrcGLP" name="Ite_ANP_PrcGLP" type="text" maxlength="6" value="'.NUMBER_FORMAT((0+@$Row_CadPro['ITE_ANP_PRCGLP']),2, ',','').'" style="width:80px; height:20px; text-align:right; '.$sCSS_Inputs.'">'.
                    '</td>'.
                    '<td align="left">'.
                       '(pGLP) informar em número decimal o percentual do GLP derivado de petróleo no produto GLP. Valores de 0 a 100.'.
                    '</td>'.
		         '</tr>'.
			  '</table>'
		      //'<table width="100%" border="0">'.
			  //   '<tr>'.
			  //      '<td align="right" width="108px">'.
              //       'Valor de partida:'.
              //      '</td>'.
              //      '<td align="left" width="100px">'.
		      //       '<input id="iECadEIte_ANP_V_Part" name="Ite_ANP_V_Part" type="text" maxlength="10" value="'.FormatoMoeda(0+@$Row_CadPro['ITE_ANP_V_PART']).'" style="width:80px; height:20px; text-align:right; '.$sCSS_Inputs.'">'.
              //      '</td>'.
              //      '<td align="left">'.
              //         '(pPart) Deve ser informado neste campo o valor por quilograma sem ICMS.'.
              //      '</td>'.
		      //   '</tr>'.
			  //'</table>'
		   : '' ).
		   '** {[FIM]} **'
		  : '').
		  // Balança acbr
		  ( ($bUsa_Balanca_Acbr && STRTOUPPER(@$Row_CadPro['ITE_SIG_UNIDADE'])=='KG')?
		  '** [{Acbr Balança}] **'.
		  '<div style="width:'.($oJanelaPrinc->nWidth-14).'px; background-color:#0066FF;">'.
		     '<table width="100%">'. 
                '<tr>'.   
		           '<td style="font-size:12px; font-weight:bold;color:#FFFFFF;" align="left" valign="middle">'.
                      '&nbsp;&nbsp;BALANÇA'.
                   '</td>'.  
		        '</tr>'.
		     '</table>'.
		  '</div>'.
		  
		  '<table width="100%">'.
		  '<tr>'.
       	    '<td width="4px" height="35px">&nbsp;</td>'.
       	    '<td width="80px">Usa balança?</td>'.
       	    '<td width="250px">'.
	         '<select id="iECadEIte_Balanca" name="Ite_Balanca" style="font-size:12px;">'.
              '<option value="0">N&atilde;o</option>'.
    	      '<option value="1"'.(@$Row_CadPro['ITE_BALANCA']+0 ? ' selected' : '').'>Sim</option>'.
             '</select>'.
			 '<span style="color:#FF0000;">'.
			    '&nbsp;&nbsp;'.
	       	    '* Usado Garçom Express Acbr'.
             '</span>'.
			'</td>'.
            '<td align="right" width="160px">'.
             'Tara KG (Desconto no peso): '.
            '</td>'.
			'<td width="90px" align="left">'.
		     '<input id="iECadEIte_Tara_Bl" name="Ite_Tara_Bl" type="text" maxlength="8" value="'.STR_REPLACE('.',',',@$Row_CadPro['ITE_TARA_BL']).'" style="width:80px; height:20px; text-align:right; '.$sCSS_Inputs.'">'.
            '</td>'.
       	    '<td>&nbsp;</td>'.
		   '</tr>'.
		  '</table>'.
		  '** {[FIM]} **'
		  : "").
		  //
		  // Balança
		  ( ($bUsa_Balanca && STRTOUPPER(@$Row_CadPro['ITE_SIG_UNIDADE'])=='KG')?
		  '** [{Balança}] **'.
		  '<div style="width:'.($oJanelaPrinc->nWidth-14).'px; background-color:#0066FF;">'.
		     '<table width="100%">'. 
                '<tr>'.   
		           '<td style="font-size:12px; font-weight:bold;color:#FFFFFF;" align="left" valign="middle">'.
                      '&nbsp;&nbsp;BALANÇA'.
                   '</td>'.  
		        '</tr>'.
		     '</table>'.
		  '</div>'.
		  '<table width="100%"border="0">'.
		  '<tr>'.
       	     '<td width="4px" height="35px">&nbsp;</td>'.
       	     //'<td width="80px">'.
			 //   'Pesa no PDV'.
			 //'</td>'.
       	     //'<td width="250px">'.
	         //   '<select id="iECadEIte_PesPDV" name="Ite_PesPDV" style="font-size:12px;">'.
             //      '<option value="0">N&atilde;o</option>'.
    	     //      '<option value="1"'.(@$Row_CadPro['ITE_PESPDV']+0 ? ' selected' : '').'>Sim</option>'.
             //   '</select>'.
			 //'</td>'.
             '<td align="right" width="160px">'.
                'Exporta para balança'.
             '</td>'.
			 '<td align="left" width="130px">'.
			    '<select id="iECadEIte_ExpBal" name="Ite_ExpBal" style="font-size:12px;" onchange="Car_'.$sNomeAcesso.'2.Puxar_MarBal();">'.
                   '<option value="0">N&atilde;o</option>'.
    	           '<option value="1"'.(@$Row_CadPro['ITE_PESADO']+0 ? ' selected' : '').'>Sim</option>'.
                '</select>'.
				'&nbsp;&nbsp;'.
			    '<span id="sp_MARCA_BALANCA" style="font-size:16px;"></span>'.
			 '</td>'.
		     //'<td align="left" valign="middle">'.
		     //   '&nbsp;&nbsp;'.
			 //   '<span id="sp_MARCA_BALANCA" style="font-size:16px;"></span>'.
             //'</td>'.
			 
       	     '<td>&nbsp;</td>'.
		   '</tr>'.
		   '<tr>'.
       	     '<td width="4px" height="35px">&nbsp;</td>'.
       	     '<td width="80px" align="right" >'.
			    'Descr.Reduzida'.
			 '</td>'.
       	     '<td width="150px" align="left">'.
	              '<input id="iCadEIte_DesFil" name="Ite_DesFil" type="text" value="'.@$Row_CadPro['ITE_DESFIL'].'" maxlength="22" style="width:170px; height:22px; '.$sCSS_Inputs.'">'.
			 '</td>'.
             '<td align="right" width="160px">'.
                'Tipo de Venda '.
             '</td>'.
			 '<td align="left" width="30px">'.
			    '<select id="iECadEIte_TipFil" name="Ite_TipFil" style="font-size:12px;">'.
                   '<option value="P"'.(@$Row_CadPro['ITE_TIPFIL']=='P' ? ' selected' : '').'>P&nbsp;&nbsp;&nbsp;&nbsp;</option>'.
    	           '<option value="U"'.(@$Row_CadPro['ITE_TIPFIL']=='U' ? ' selected' : '').'>U&nbsp;&nbsp;&nbsp;&nbsp;</option>'.
                '</select>'.
			 '</td>'.
		     '<td width="150px" align="left" valign="middle">'.
		        '&nbsp;&nbsp;'.
			    '(U)nidade - (P)eso'.
             '</td>'.
			 '<td>&nbsp;</td>'.
		   '</tr>'.
		   '<tr>'.
		      '<td width="4px" height="35px">&nbsp;</td>'.
		      '<td width="80px" align="right">'.
		         'Validade (dias)'.
		      '</td>'.
       	      '<td align="left">'.
	             '<input id="iCadEIte_ValFil" name="Ite_ValFil" type="text" value="'.((@$Row_CadPro['ITE_VALFIL']+0)>0 ? @$Row_CadPro['ITE_VALFIL'] : '' ).'" maxlength="5" style="width:70px; height:22px; '.$sCSS_Inputs.'">'.
		      '</td>'.
			   '<td>&nbsp;</td>'.
           '</tr>'.    
		  
		  '</table>'.
		  '** {[FIM]} **'
		  : "").
	      // 
		  '** [{Imagens}] **'.
          '<table width="'.($oJanelaPrinc->nWidth-12).'px" height="300px">'.
           '<tr>'.
            '<td width="4px" height="90px" align="left">&nbsp;</td>'.
			'<td>'.
		     '<div id="dv_CadIte_Imagens" style="width:100%;"></div>'.
			'</td>'.
            '<td width="180px" align="center">'.
               HTML_Botao( 3, 'CadEPro_BT_ImgNv' , "parent.document.getElementById('iCadPro_Arq').click();"
                            , 'Nova imagem'      , 'images/btimg_novo.png',120).
			   '<br>&nbsp;'.
			   '<br>'.
               HTML_Botao( 3, 'CadEPro_BT_ImgRm' , "Car_".$sNomeAcesso."2.Imagens_EDaps('REMOVER');"
                            , 'Remover imagem'   ,'images/btimg_remover.png',160).
            '</td>'.
		   '</tr>'.
		  '</table>'.
		  '** {[FIM]} **'.
		   '',
		    //"document.forms.fmFatGerR.TipoLocal.value='<COD_GUIA>';".
		    //'Car_'.$sNomeAcesso.'1.P_Atu();'
		   ''
		  ).
		  //
          '</form>'.
          '<form name="fmECadPro2" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'4">'.
           '<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="Ite_CodigoI" type="hidden" value="'.$sIte_CodigoI.'">'.
           '<input name="Ite_CodigoL" type="hidden" value="">'.
		   '<input name="Bar_CodBar" type="hidden" value="">'.
		  '</form>'.          
		  '<form name="fmECadProC" 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="Ite_CodigoI" type="hidden" value="'.$sIte_CodigoI.'">'.
           '<input name="For_Codigo" type="hidden" value="">'.
		   '<input name="Ite_CodigoL" type="hidden" value="">'.
		  '</form>'.
		  '<form name="fmECadPro3" enctype="multipart/form-data" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'6">'.
           '<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="Ite_CodigoI" type="hidden" value="'.$sIte_CodigoI.'">'.
		   '<input type="file" id="iCadPro_Arq" name="Entrada_Arq" style="display:none;" onchange="parent.JanEspera(true, '."'Fazendo upload, aguarde...'".'); Car_'.$sNomeAcesso.'2.Imagens_EDaps('."'ADICIONAR'".');" >'.
		  '</form>'.
		   //
		   '&nbsp;'.
       	   '<table width="100%" style="background-color:'.$sCorBarraInf.';">'.
		     '<tr>'.
       	       '<td width="4px" height="40px" align="left">&nbsp;</td>'.
       	       '<td>'.
       	          HTML_Botao( 3, 'CadEPro_BT_Svl', //$sJavaTravarJ.
			                                      "document.forms.fmECadPro.acao.value='SALVAR'; ".
    	                                          "document.forms.fmECadPro.submit();"
			                   , 'Salvar (F10)','images/btimg_salvar.png',120).'&nbsp;&nbsp;'.
       	       '</td>'.
       	       '<td height="40px" align="left" valign="middle">'.
       	          '&nbsp;&nbsp;'.
			      HTML_Botao( 3, 'CadEIte_BT_Bar', "sAntMod = document.forms.fmECadPro2.submod.value;".
			                                       "document.forms.fmECadPro2.submod.value = 'CAD_CODBAR';".
			                                       "document.forms.fmECadPro2.acao.value=''; ".
			                                       "document.forms.fmECadPro2.Ite_CodigoL.value = document.getElementById('iECadEIte_CodigoL').value;".
    	                                           "document.forms.fmECadPro2.submit();".
			                                       "document.forms.fmECadPro2.submod.value = sAntMod;".
											       ""
			                   , 'Código Barras (F3)','./images/btimg_novo.png',150).
		          '&nbsp;&nbsp;&nbsp;&nbsp;'.			 
       	       '</td>'.
       	       '<td align="left">'.
       	          HTML_Botao( 3, 'CadEPro_BT_AGru',
			                     "document.forms.fmECadPro.submod.value='AGRU';".
			                     "document.forms.fmECadPro.acao.value='';".
				                 "document.forms.fmECadPro.submit();".
                                 $sJavaTravarJ.
			                     "document.forms.fmECadPro.submod.value='".$sSubModulo."';"
		                       , 'Agrupadores (F6)','./images/btimg_docs.png',160).
			      '&nbsp;&nbsp;'.
		       '</td>'.
		       '<td align="left">'.
       	          HTML_Botao( 3, 'CadEPro_BT_Gru',
			                     "document.forms.fmECadPro.submod.value='GRU';".
			                     "document.forms.fmECadPro.acao.value='';".
				                 "document.forms.fmECadPro.submit();".
                                 $sJavaTravarJ.
			                     "document.forms.fmECadPro.submod.value='".$sSubModulo."';"
		                       , 'Grupos (F7)','./images/btimg_docs.png',130).
			 //
			   ( (@$Row_CadPro['ITE_TIPCOMBO']+0) ?
			      '<td>'.
			         '&nbsp;&nbsp;'.
       	             HTML_Botao( 3, 'CadEPro_BT_Cmb',
			                        "document.forms.fmECadPro.submod.value='EDITAR_CMB';".
			                        "document.forms.fmECadPro.acao.value='';".
				                    "document.forms.fmECadPro.submit();".
                                    $sJavaTravarJ.
			                        "document.forms.fmECadPro.submod.value='".$sSubModulo."';"
		                          , 'Produtos no combo (F8)','./images/btimg_tabela.png',190).
			      '</td>'
			   : "").
			   '<td width="126px" align="left">'.
       	          HTML_Botao( 3, 'CadEPro_BT_Fec', $oJanelaPrinc->sJavOnClickF
                              , 'Sair (ESC)' ,'images/btimg_fechar.png').
       	       '</td>'.
       	     '</tr>'.
		   '</table>'.
    	   $oJanelaPrinc->MontaJanHTML(False);
	   //
       $sRet_Javs .=
	      "".
          $oListaFor->MontaJavaPri().
		  
		  
		  ""; 
       //
       $sRet_JavsPos .=
	      "Atualizar_Campos();".
		  ( $bIte_Novo ?
		    'parent.document.getElementById("iECadEIte_CodigoL").focus();'
		  :
	        "parent.document.forms.fmECadProC.acao.value='ALT_LSTFOR';".
	        "parent.document.forms.fmECadProC.submit();".
		    "parent.document.getElementById('CadEPro_BT_RmvFor').style.display='none';".
		    //'parent.document.getElementById("iCadEIte_Descric").focus();'
            'parent.document.getElementById("iECadEIte_CodBar").focus();'
		  ).
		  ($bDir_Alterar ? '' :
		    "parent.document.getElementById('CadEPro_BT_Svl').style.display='none';"
		  ).
	      ( $bUtilizaEstoque ?
		  "parent.document.getElementById('CadEPro_BT_FcProd').style.display='".(@$Row_CadPro['CLS_HAB_FCP'] ? 'inline-block' : 'none')."';"
		  :
		  '').
		  //
		  //
		  "function PuxarCest() {".
		    "parent.document.forms.fmECadPro.acao.value='PUXAR_CEST';".
    	    "parent.document.forms.fmECadPro.submit();".
		  "}".
		  "function Atualizar_Campos() {".
	         "parent.document.forms.fmECadPro.acao.value='ALT_CAMPOS';".
	         "parent.document.forms.fmECadPro.submit();".
		  "}".
		  "function Verifica_Combo() {".
		     "AntTarget = parent.document.forms.fmECadPro.target;".
		     "parent.document.forms.fmECadPro.target = 'car_".$sNomeAcesso."3';".
	         "parent.document.forms.fmECadPro.acao.value='VERIFICA_COMBO';".
	         "parent.document.forms.fmECadPro.submit();".
		     "parent.document.forms.fmECadPro.target = AntTarget;".
		  "}".
		  //
		  "function Puxar_MarBal() {".
	         "parent.document.forms.fmECadPro.acao.value='P_MARBAL';".
	         "parent.document.forms.fmECadPro.submit();".
		  "}".
		  
          //
          "function AtualizarBars() {".
	         "parent.document.forms.fmECadPro2.acao.value='ALT_LSTBAR';".
	         "parent.document.forms.fmECadPro2.submit();".
		  "}".
		  //
		  "function AdicionaLiv() {".
            "parent.document.forms.fmECadProC.Ite_CodigoL.value=parent.document.getElementById('iECadEIte_CodigoL').value; ".
			"parent.document.forms.fmECadProC.acao.value='ITE_VER'; ".
    	    "parent.document.forms.fmECadProC.submit();".
          "}".
		  //
          "function ValidarBar() {".
            //"parent.document.forms.fmECadProC.Ite_CodBar.value=parent.document.getElementById('iECadEIte_CodBar').value; ".
			"parent.document.forms.fmECadPro.acao.value='BAR_VER'; ".
    	    "parent.document.forms.fmECadPro.submit();".
		  "}".
          //
		  
		  //
		  "function AdicionaIteFor() {".
             "parent.document.forms.fmECadProC.For_Codigo.value=parent.document.getElementById('iECadEFor_Codigo').value;".
			 "parent.document.forms.fmECadProC.acao.value='FOR_ADC'; ".
    	     "parent.document.forms.fmECadProC.submit();".
		  "}".
		  "function RemoverIteFor() {".
		     "parent.document.forms.fmECadProC.For_Codigo.value=sSelIndice;".
			 "parent.document.forms.fmECadProC.acao.value='FOR_RMV'; ".
    	     "parent.document.forms.fmECadProC.submit();".
		  "}".
		  "function CRemoverIteFor() {".
		  //"sIdHasFocus='iCadPro_PChave';".
	         "parent.Qdr_Prompt_H(true,'Tem certeza que deseja REMOVER este fornecedor?',".JAVA_CharCode('Car_'.$sNomeAcesso.'2.RemoverIteFor();').",['Sim','Não']); ".
		  "}".
		  "AtualizarBars();".
		  "function F_Puxar() {".
             "parent.document.forms.fmECadPro.acao.value='PUXAR';".
             "parent.document.forms.fmECadPro.submit();".
	         "parent.document.forms.fmECadPro.Gru_Descri.focus();".
	      "}".
		  "function Imagens_EDaps(sAcao) {".
			 "parent.document.forms.fmECadPro3.acao.value='IMG_'+sAcao;".
    	     "parent.document.forms.fmECadPro3.submit();".
		  "}".
		  "function Interroga_Info(sIdObj) {".
		     "var oObjMenssage = parent.document.getElementById(sIdObj);".
             "if ( oObjMenssage.style.display == 'none') {".
               'oObjMenssage.style.display="inline";'.
             "} else {".
               'oObjMenssage.style.display="none";'.
             "}".
    	  "}".
		  "Imagens_EDaps('MONTAR');".
		  //
		  "function Teclas_F( Objeto, Evento ) {".
             "vNumTecla = parent.Tecla_Apertada(Evento);".
             "if ( vNumTecla==121) { ".        //  ** [F10] **         // (Gravar)
			     "if (parent.document.getElementById('CadEPro_BT_Svl').style.display != 'none') { ".
                     "setTimeout( parent.document.getElementById('CadEPro_BT_Svl').onclick , 1);".
				 "}".
			 //
		     "} else if ( vNumTecla==114) { ".  // ** [F3] **         Cadbar
			     "if ( parent.document.getElementById('CadEIte_BT_Bar').style.display != 'none' ) {".
                     "setTimeout( parent.document.getElementById('CadEIte_BT_Bar').onclick , 1);".
				  "}".
			 //
			 "} else if ( vNumTecla==115) { ".  // ** [F4] **         Ficha técnica de produção
			     "if ( parent.document.getElementById('CadEPro_BT_FcProd').style.display != 'none' ) {".
                     "setTimeout( parent.document.getElementById('CadEPro_BT_FcProd').onclick , 1);".
				  "}".
			 "} else if ( vNumTecla==116) { ".  // ** [F5] **         Não atualizar
             //
             "} else if ( vNumTecla==117) { ".  // ** [F6] **         Abrir Agrupadores
                "if ( parent.document.getElementById('CadEPro_BT_AGru').style.display != 'none' ) {".
                    "setTimeout( parent.document.getElementById('CadEPro_BT_AGru').onclick , 1);".
				"}".             
             //
             "} else if ( vNumTecla==118) { ".  // ** [F7] **         Abrir Grupos
                "if ( parent.document.getElementById('CadEPro_BT_Gru').style.display != 'none' ) {".
                    "setTimeout( parent.document.getElementById('CadEPro_BT_Gru').onclick , 1);".
				"}".             
             //
             "} else if ( vNumTecla==119) { ".  // ** [F8] **         Abrir editor de produtos na combo
                "if ( parent.document.getElementById('CadEPro_BT_Cmb') != null ) {".
                    "setTimeout( parent.document.getElementById('CadEPro_BT_Cmb').onclick , 1);".
				"}".             
             //
		     "} else if ( vNumTecla==27) { ".  //  ** [ESC] **       (SAIR)
                 "setTimeout( parent.document.getElementById('CadEPro_BT_Fec').onclick , 1);".
		     "} else if ( vNumTecla==13) { ".
				 "sTempId = parent.Proximo_TabObj(parent.document.getElementById('".$oJanelaPrinc->sIdObj."'),parent.sIdHasFocus);".
                 //"sTempId = parent.Proximo_TabI( parent.document.getElementById(parent.sIdHasFocus) );".
                 "if ( sTempId.length>0 ) {".
				     ( $bActSabores ?
					   ( $bCls_Cod ? 
					      "if (sTempId=='iECadEIte_PreBal1') {".
						     'parent.document.getElementById("iECadEIte_Custo_1").focus();'.
                          "} else if ( sTempId=='iECadEIte_PreBal2') {".
					          'parent.document.getElementById("iECadEIte_Custo_2").focus();'.
					      "} else if ( sTempId=='iECadEIte_PreBal3') {".
					          'parent.document.getElementById("iECadEIte_Custo_3").focus();'.
                          "} else if ( sTempId=='iECadEIte_PreBal4') {".
					          'parent.document.getElementById("iECadEIte_Custo_4").focus();'.
						  "} else {".
					          "parent.document.getElementById(sTempId).focus();".
				          "}"
						:
                           "parent.document.getElementById(sTempId).focus();"
					    )
					 
					 :
					    ( $bCls_Cod ? 
					       "if (sTempId=='iECadEIte_PreBalN') {". 
					          'parent.document.getElementById("iECadEIte_Custo_N").focus();'.
					       "} else if ( sTempId=='iECadEIte_PreBalM') {".
					          'parent.document.getElementById("iECadEIte_Custo_M").focus();'.
					       "} else {".
					          "parent.document.getElementById(sTempId).focus();".
				           "}"
					    :
                           "parent.document.getElementById(sTempId).focus();"
					    )
                     ).					 
				 "} else {".
    	             //'parent.document.getElementById("iCadEIte_Descric").focus();'.
                    'parent.document.getElementById("iECadEIte_CodBar").focus();'.
                  "}".
			     //
			 "} else {".
			     "return true;".
			 "}".
			 "return false;".
		  "}".
		  "";
	   //
	}
//
//  ** CADASTRO DE codigo de barras **
} ElseIf ( $sSubModulo=="CAD_CODBAR" ) {
    $sNomeIdJ_Ant = $sNomeIdJEdt_Cad;
    $sNomeIdCampo = "i_ECadEIte_Opciona";
    //$sRet_Javs .= "parent.document.getElementById('iECadEIte_CodigoL').value;".
    $sJavaExePos  = "parent.Car_".$sNomeAcesso."2.AtualizarBars();";
    REQUIRE "./modulos/cad_codigo_barras.inc";
//
//  ** GRUPO DE PRODUTOS **
} ElseIf ( $sSubModulo=="GRU" ) {
    REQUIRE "./modulos/i_cad_grupos.inc";
//
//  ** AGRUPADOR DE PRODUTOS **
} ElseIf ( SUBSTR($sSubModulo,0,4)=="AGRU" ) {
    $sSubModulo2 = SUBSTR($sSubModulo,4);
	If ( STRLEN($sSubModulo2)>0 ) { $sSubModulo2 = "_".STRTOLOWER($sSubModulo2); }
    REQUIRE "./modulos/i_cad_agrupadores".$sSubModulo2.".inc";
//
//  ** CADASTRO DE CEST**
} ElseIf ( $sSubModulo=="_CEST" ) {
    $sNomeIdJ_Ant = $sNomeIdJEdt_Cad;
    $sNomeIdCampo = "iECadEIte_Cod_CES";
    $sJavaExePos  = "parent.Car_".$sNomeAcesso."2.PuxarCest();";
    REQUIRE "./modulos/consulta_cest.inc";
//


// ** OUTROS MODULOS **
} Else {
    REQUIRE_ONCE("./modulos/i_cad_ficha_producao.inc");
    REQUIRE_ONCE("./modulos/i_cad_produto_combo.inc");
}
//
// Limpa os registro travados (em edição) da tabela CAD_PRODUTO_FORNECEDOR
Function LimparForIte($nCodIte) {
   MYSQL_QUERY( "UPDATE cad_produto_fornecedor SET PFO_TRAREG=0 WHERE PFO_CODITE='".$nCodIte."' AND PFO_TRAREG=1;" ) Or Die(MYSQL_ERROR());
   MYSQL_QUERY( "DELETE FROM cad_produto_fornecedor             WHERE PFO_CODITE='".$nCodIte."' AND PFO_TRAREG=2;" ) Or Die(MYSQL_ERROR());
}
// Destrava os registro (em edição) da tabela CAD_PRODUTO_FORNECEDOR
Function DestravaForIte($nCodIte) {
   MYSQL_QUERY( "UPDATE cad_produto_fornecedor SET PFO_TRAREG=0 WHERE PFO_CODITE='".$nCodIte."' AND PFO_TRAREG=2;" ) Or Die(MYSQL_ERROR());
   MYSQL_QUERY( "DELETE FROM cad_produto_fornecedor             WHERE PFO_CODITE='".$nCodIte."' AND PFO_TRAREG=1;" ) Or Die(MYSQL_ERROR());
}
//
?>