<?php
REQUIRE_ONCE("./global/funcoes_cad_telefones.inc");
$sNomeIdJan1 = 'iJan_Entrega_Princ';
$sCorBarraInf = '#E8E3CE';
$sVersaoBD = SQLVarConfig('VERSAO_BASE_DADOS');
//
$sData_Trabalho = SQLVarConfig('DATA_DE_TRABALHO');
$nCalcPrecoIte  = SQLVarConfig('GARCOM_TIPO_CALCPRE')+0;
$s_DirDestino   = SQLVarConfig('GARCOM_CLIPPER_ARQ_EXPORTA2');    // Pasta de exportação para o Serial (Impressão)
$nDescontoM     = SQLVarConfig('FAT_DESCONTO_MAX')+0;
$sDsc_Senha     = SQLVarConfig('FAT_DESCONTO_SENHA');
$bAceiPreZerado = SQLVarConfig('CAD_GARCOM_SEMPRE')+0; // Aceita produto sem preço. 0=Nao , 1=Sim
$nColsDosGrupos = ( $nTela_W<1200 ? 1 : 2 );           // Quantidade de colunas dos grupos dos produtos. Menos de 1200px de largura vai exibir somente uma coluna
$nJ_LarguraReal = 820 + ($nColsDosGrupos*160);

$aQuadrosAds = ARRAY( "RELFTG" => 10, "CXARCL" => 10 );   // Quadros iframe adicionais
//
$sHTMLQdrAguarde=
   '<div style="height:30px;"></div>'.
   '<table width="400px" height="60px" border="0" cellspacing="0" cellpadding="0" style="background-color:#FFFFFF; border:1px solid #777777;">'.
    '<tr><td align="center" valign="middle" style="color:#555555;">'.
    'Aguarde um momento...<br>'.
    '<img src="images/img_load1.gif" border="0">'.
    '</td></tr>'.
   '</table>'.
   '';
//
// Criar diretório temporário e espelho
//$sTemporarios = GETCWD().'./temporarios'; no site estava dando erro ao criar a pasta 
$sTemporarios = GETCWD().'/temporarios';
If ( ! IS_DIR($sTemporarios) ) { MKDIR($sTemporarios); }
$sTemporarios .= '/';
//
//$sDir_Espelho = GETCWD().'./espelho_pedidos'; no site estava dando erro ao criar a pasta
$sDir_Espelho = GETCWD().'/espelho_pedidos';
If ( ! IS_DIR($sDir_Espelho) ) { MKDIR($sDir_Espelho); }
$sDir_Espelho .= '/';
//
//
//  ** TELA PRINCIPAL **
If ( EMPTY($sSubModulo) ) {
	//
	$aDadosS      = @$aSessao[$sNomeAcesso.'_Venda'];          // Dados da venda
    $bModo_Balcao = (0+@$aDadosS['PEDIDO']['FAT_TIP_LOC']==1); // Venda modo balcão
    //
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJan1; 
    $oJanelaPrinc->nTop    = 8;
    $oJanelaPrinc->nLeft   = 5;
    $oJanelaPrinc->nWidth  = $nJ_LarguraReal;               // Largura
    $oJanelaPrinc->nHeight = 0;                             // Altura
	$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'VENDA - Delivery / Balcão';
    $oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."1.Teclas_F(this,event);";
	//
 	$sJavaTravarJ = "parent.document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);";
 	$sJavaDesTraJ = "parent.document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='hidden'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',false);";
	$aSessao["JAVA_EXECUTAR_AO_FECHAR"] = 
        $sJavaDesTraJ.
        'parent.Car_'.$sNomeAcesso.'1.Sel_Guia(2);'.
        '';
	//
    $oJanelaPrinc->sJavOnClickF =
        $sJavaTravarJ.
		"parent.document.forms.fmEntregaR.acao.value='FECHAR'; ".
        "parent.document.forms.fmEntregaR.submod.value=''; ".
        "parent.document.forms.fmEntregaR.submit();";
    //
	$oJanelaPrinc->sJavOnClick = 
	    "Car_".$sNomeAcesso."1.bTeclaEnter=false;";
	//
	$s_Ent_CliCod = @$_POST['Cli_Codigo'];
	$s_Ent_CliTel = Somente_Numeros(@$_POST['Cli_Telefone']);
	$bDesc_Acm_Max = @$aSessao[$sNomeAcesso.'_DESC_ACM_MAX']+0;       // Permite desconto acima do permitido configurado (FAT_DESCONTO_MAX)
	//
	// PUXAR CLIENTE
    If ( $sAcao=="PUXAR_CLIENTE" ) {
	   $s_Entrega_CliEnd  = '';
	   $s_Entrega_DtaCad  = '';
	   $aDadosS['CADCLI'] = ARRAY();
	   $bPuxadoTel        = False;
	   $nTaxa_Ent         = SQLVarConfig('TXA_ENT_VAL');
	   $nFat_CodigoI      = @$aDadosS['PEDIDO']['FAT_CODIGOI']+0;
	   If (@$_POST['Cli_Codigo']=="/" OR @$_POST['Cli_Telefone']=="/") {
		  $s_Ent_CliCod = '';
		  $s_Ent_CliTel = '';
          $sRet_Javs .= 
	           $sJavaTravarJ.
		       "setTimeout( function () { ".
			      "var fm = parent.document.forms.fmEntregaR;".
			      "TargetAnt = fm.target;".
			      "fm.target='car_".$sNomeAcesso."10';".
		          "fm.acao.value=''; ".
		          "fm.submod.value='CSL_CLI'; ".
		          "fm.submit();".
			      "fm.target = TargetAnt;".
		          "fm.submod.value='".$sSubModulo."'; ".
		       "} , 100);".
		       "";
	   } Else {
	      If (STRLEN($s_Ent_CliTel)>0 OR STRLEN($s_Ent_CliCod)>0) {
	         $sSQLQueryW = "CLI_CODIGOI='".$s_Ent_CliCod."'";
		     If ( STRLEN($s_Ent_CliTel)>0 ) {
		        $bPuxadoTel = True;
	            $sSQLQueryW =
		   	   '(TEL_NUMERO LIKE "%'.$s_Ent_CliTel.'" AND '.
		   	    'TEL_CODCAD=CLI_CODIGOI AND TEL_TIPCAD=1 '.
		   	   ')';
		     }
		     $s_Ent_CliTel = FormataTelefone( $s_Ent_CliTel );
		     $aCad_Telefones = ARRAY();
	         $Row_CadCli = MYSQL_QUERY("SELECT * FROM cad_cliente,cad_telefones WHERE ".$sSQLQueryW." LIMIT 1;") or die(MYSQL_ERROR());
             If ($Row_CadCli = MYSQL_FETCH_ARRAY($Row_CadCli)) {
		        $aDadosS['CADCLI']['CLI_CODIGO'] = $Row_CadCli['CLI_CODIGOI'];
                $sRet_Javs .=
		           "var Ent_CodCli = parent.document.getElementById('Ent_CodCliente');".
		        //   "if ( Ent_CodCli.value.length==0 ) { Ent_CodCli.value = '".$Row_CadCli['CLI_CODIGOI']."'; }".
		           "Ent_CodCli.value = '".$Row_CadCli['CLI_CODIGOI']."';".
				   "";
		        //
		   	    $s_Ent_CliCod = Str_Zero($Row_CadCli['CLI_CODIGOI'],8);
		   	    $s_Entrega_DtaCad = ConvertDataUSBR($Row_CadCli['CLI_DTACAD']);
		   	    // Telefones
	            $RowsT = MYSQL_QUERY("SELECT TEL_NUMERO FROM cad_telefones WHERE TEL_TIPCAD=1 AND TEL_CODCAD=".$s_Ent_CliCod.";") or die(MYSQL_ERROR());
		   	    While ( $RowT = MYSQL_FETCH_OBJECT($RowsT) ) {
		   	       $aCad_Telefones[] = $RowT->TEL_NUMERO;
		   	    }
		   	    // Ultimo taxa de entrega
	            //$RowsT = MYSQL_QUERY("SELECT * FROM fat_geral WHERE FAT_CLIENTE=".$Row_CadCli['CLI_CODIGOI']." AND FAT_TIP_LOC=2 ORDER BY FAT_CODIGOI DESC LIMIT 1;") or die(MYSQL_ERROR());
		   	    $RowsT = MYSQL_QUERY("SELECT CLI_TAXENT FROM cad_cliente WHERE CLI_CODIGOI=".$Row_CadCli['CLI_CODIGOI']) or die(MYSQL_ERROR());
		   	    //
				If ( $RowT = MYSQL_FETCH_OBJECT($RowsT) ) {
					$nTaxa_Ent = $RowT->CLI_TAXENT;
				}
				$aDadosS['PEDIDO']['VAR_TAXASVR'] = $nTaxa_Ent;
				//
	         } Else {
		        $Row_CadCli   = ARRAY();
		   	    $s_Ent_CliCod = '(NOVO)';
		   	    $aCad_Telefones[0] = $s_Ent_CliTel;
		   	    $Row_CadCli['CLI_CODCID'] = $Dados_Empresa['EMP_CODCID'];
		     }
	      } Else {
		     $Row_CadCli = ARRAY();
		     $s_Ent_CliCod = '(NOVO)';
		  }
	   }
	   If ( STRLEN($s_Entrega_DtaCad)<10 ) { $s_Entrega_DtaCad="&nbsp;"; }
	   //
       $sRet_Javs .=
	      'parent.document.getElementById("in_Entrega_CliCod").value="'.$s_Ent_CliCod.'";'.
		  'parent.document.getElementById("in_Entrega_CliTel").value="'.FormataTelefone(@$aCad_Telefones[0]).'";'.
	      'parent.document.getElementById("in_Entrega_CliNom").value='.JAVA_CharCode_Mini(@$Row_CadCli['CLI_NOMECP']).';'.
		  'parent.document.getElementById("in_Entrega_CliTL1").value="'.@$aCad_Telefones[0].'";'.
		  'parent.document.getElementById("in_Entrega_CliTL2").value="'.@$aCad_Telefones[1].'";'.
		  'parent.document.getElementById("in_Entrega_CliTL3").value="'.@$aCad_Telefones[2].'";'.
		  'parent.document.getElementById("in_Entrega_CliTL4").value="'.@$aCad_Telefones[3].'";'.
		  'parent.document.getElementById("in_Entrega_CliCEP").value="'.@$Row_CadCli['CLI_ENDCEP'].'";'.
		  'parent.document.getElementById("in_Entrega_CliLgr").value="'.@$Row_CadCli['CLI_ENDLOG'].'";'.
		  'parent.document.getElementById("in_Entrega_CliNum").value="'.@$Row_CadCli['CLI_ENDNUM'].'";'.
		  'parent.document.getElementById("in_Entrega_CliCpl").value="'.@$Row_CadCli['CLI_ENDCPL'].'";'.
		  'parent.document.getElementById("in_Entrega_CliBai").value="'.@$Row_CadCli['CLI_ENDBAI'].'";'.
		  'parent.document.getElementById("in_Entrega_CliCid").value="'.@$Row_CadCli['CLI_CODCID'].'";'.
		  'parent.document.getElementById("in_Entrega_CliObs").value="'.@$Row_CadCli['CLI_OBS001'].@$Row_CadCli['CLI_OBS002'].'";'.
		  'parent.document.getElementById("sp_Entrega_DtaCad").innerHTML="'.$s_Entrega_DtaCad.'";'.
		  //( $bPuxadoTel ?
		  //'parent.document.getElementById("in_Entrega_CliNom").focus();'
		  //:
		  //'parent.document.getElementById("in_Entrega_CliTel").focus();'
		  //).
		  'parent.document.getElementById("in_Entrega_PedTaxa").value="'.$nTaxa_Ent.'";'.
		  ( ( $bModo_Balcao && $nFat_CodigoI==0 ) ?
		     'parent.document.getElementById("sl_Entrega_TipoFt").value = "2";'
		  : "").
          'parent.Car_'.$sNomeAcesso.'1.Alt_TipoFt();'.
		  'parent.Car_'.$sNomeAcesso.'1.Env_Dados_Cli();'.
	      '';
	   //
	//
	//
	// PUXAR CEP
    } ElseIf ( $sAcao=="PUXAR_CEP" ) {
       $s_Cli_EndCEP = Somente_Numeros(@$_POST['Cli_EndCEP']);
	   //
       $sRet_Javs .= "parent.JanEspera(false);";
	   $Row_CadCep = MYSQL_QUERY("SELECT * FROM cad_cep WHERE CEP_NUMCEP='".$s_Cli_EndCEP."' LIMIT 1;") or die(MYSQL_ERROR());
	   If ( $Row_CadCep = MYSQL_FETCH_ARRAY($Row_CadCep) ) {
	      //
          $sRet_Javs .=
	        'parent.document.getElementById("in_Entrega_CliCEP").value="'.$Row_CadCep['CEP_NUMCEP'].'";'.
	        'parent.document.getElementById("in_Entrega_CliLgr").value="'.$Row_CadCep['CEP_ENDERE'].'";'.
	        'parent.document.getElementById("in_Entrega_CliBai").value="'.$Row_CadCep['CEP_BAIRRO'].'";'.
	        'parent.document.getElementById("in_Entrega_CliCid").value="'.$Row_CadCep['CEP_CODCID'].'";'.
	        'setTimeout( function () { parent.Car_'.$sNomeAcesso.'1.Env_Dados_Cli(); } , 100);'.
		    'parent.document.getElementById("in_Entrega_CliNum").focus();'.
	        "";
	   } Else {
            $sRet_Javs .=
		       'parent.document.getElementById("in_Entrega_CliCEP").focus();'.
			   Info_Evento('Não foi possível localizar o CEP informado. ',1,$oJanelaPrinc->sTitulo);
	   }
	//
	//
	// ATUALIZAR DADOS CLIENTE
    } ElseIf ( $sAcao=="CLI_DADOS_AT" ) {
       $s_Cli_CliNom = UTF8_DECODE(@$_POST['Cli_NomeCP']);
       $s_Cli_EndCEP = Somente_Numeros(@$_POST['Cli_EndCEP']);
       $s_Cli_EndLog = UTF8_DECODE(@$_POST['Cli_EndLgr']);
       $s_Cli_EndNum = @$_POST['Cli_EndNum'];
       $s_Cli_EndCpl = UTF8_DECODE(@$_POST['Cli_EndCpl']);
       $s_Cli_EndBai = UTF8_DECODE(@$_POST['Cli_EndBai']);
       $n_Cli_EndCid = Somente_Numeros(@$_POST['Cli_EndCid'])+0;
       $s_Cli_Observ = UTF8_DECODE(@$_POST['Cli_Observ']);
       $s_Cli_Telef1 = Somente_Numeros(@$_POST['Cli_Telef1']);
       $s_Cli_Telef2 = Somente_Numeros(@$_POST['Cli_Telef2']);
       $s_Cli_Telef3 = Somente_Numeros(@$_POST['Cli_Telef3']);
       $s_Cli_Telef4 = Somente_Numeros(@$_POST['Cli_Telef4']);
	   //
	   $s_Cli_CliNom = StrMaiusculas($s_Cli_CliNom);
	   $s_Cli_EndLog = StrMaiusculas($s_Cli_EndLog);
	   $s_Cli_EndBai = StrMaiusculas($s_Cli_EndBai);
	   //
	   $s_Cid_NomeCP = "";
	   If ($_POST['Cli_EndCid']=="/") {
	      $n_Cli_EndCid = '';
          $sRet_Javs .= 
	           $sJavaTravarJ.
		       "setTimeout( function () { ".
			      "var fm = parent.document.forms.fmEntregaR;".
			      "TargetAnt = fm.target;".
			      "fm.target='car_".$sNomeAcesso."3';".
		          "fm.acao.value=''; ".
		          "fm.submod.value='CSL_CID'; ".
		          "fm.submit();".
			      "fm.target = TargetAnt;".
		          "fm.submod.value='".$sSubModulo."'; ".
		       "} , 100);".
		       "";
	   } ElseIf ($n_Cli_EndCid>0) {
	      $Row = MYSQL_QUERY("SELECT * FROM cad_cidade WHERE CID_CODIGO=".$n_Cli_EndCid.";") or die(MYSQL_ERROR());
          If ($Row = MYSQL_FETCH_ARRAY($Row)) {
		     $s_Cid_NomeCP = $Row['CID_NOMECD'].' - '.$Row['CID_ESTADO'];
		  } Else {
		     $n_Cli_EndCid = '';
		  }
	   }
	   //
	   $aCadCli = @$aDadosS['CADCLI'];
       If ( $bModo_Balcao && EMPTY($s_Cli_CliNom) ) {
			 $s_Cli_CliNom = 'Balcão';
	   }
	   $aCadCli['CLI_NOMECP'] = $s_Cli_CliNom;
	   $aCadCli['CLI_ENDCEP'] = $s_Cli_EndCEP;
	   $aCadCli['CLI_ENDLOG'] = $s_Cli_EndLog;
	   $aCadCli['CLI_ENDNUM'] = $s_Cli_EndNum;
	   $aCadCli['CLI_ENDCPL'] = $s_Cli_EndCpl;
	   $aCadCli['CLI_ENDBAI'] = $s_Cli_EndBai;
	   $aCadCli['CLI_CODCID'] = $n_Cli_EndCid;
	   //
	   //$aCadCli['CLI_OBS001'] = SUBSTR($s_Cli_Observ,0,60);
	   //$aCadCli['CLI_OBS002'] = SUBSTR($s_Cli_Observ,60,60);
	   
	   $aCadCli['CLI_OBS001'] = SUBSTR($s_Cli_Observ,0,50);
	   $aCadCli['CLI_OBS002'] = SUBSTR($s_Cli_Observ,51,50);
	   $aCadCli['CLI_NOMCID'] = $s_Cid_NomeCP;
	   //
	   // Validar telefone
	   If ( (@$aDadosS['CADCLI']['CLI_CODIGO']+0)>0 ) {
		  For ( $nContador=1; $nContador<=4; $nContador++) {
		      $sTemp1 = '';
		      EVAL('$sTemp1 = $s_Cli_Telef'.$nContador.';');
			  If ( STRLEN($sTemp1)>=8 ) {
	             $Row_T = MYSQL_QUERY(
			        "SELECT * FROM cad_telefones,cad_cliente WHERE ".
		   	         'TEL_NUMERO LIKE "%'.$sTemp1.'" AND '.
		   	         'TEL_TIPCAD=1 AND TEL_CODCAD=CLI_CODIGOI AND CLI_CODIGOI<>'.$aDadosS['CADCLI']['CLI_CODIGO'].
				    " LIMIT 1;"
			     ) or die(MYSQL_ERROR());
                 If ($Row_T = MYSQL_FETCH_ARRAY($Row_T)) {
                    $sRet_Javs .= 
					   'parent.document.getElementById("in_Entrega_CliTL'.$nContador.'").focus();'.
				       Info_Evento('Telefone '.FormataTelefone($sTemp1).' já existe, pertence ao cliente<br>'.Str_Zero($Row_T['CLI_CODIGOI'],8).'-'.$Row_T['CLI_NOMECP'],0).
				       "";
		            EVAL('$s_Cli_Telef'.$nContador.'="";');
	                Break;
			     }
			 } Else {
		         EVAL('$s_Cli_Telef'.$nContador.'="";');
			 }
		  }
	   }
	   $aCadCli['CLI_TELEF1'] = $s_Cli_Telef1;
	   $aCadCli['CLI_TELEF2'] = $s_Cli_Telef2;
	   $aCadCli['CLI_TELEF3'] = $s_Cli_Telef3;
	   $aCadCli['CLI_TELEF4'] = $s_Cli_Telef4;
	   //
	   $s_Cli_Telef1 = FormataTelefone($s_Cli_Telef1);
	   $s_Cli_Telef2 = FormataTelefone($s_Cli_Telef2);
	   $s_Cli_Telef3 = FormataTelefone($s_Cli_Telef3);
	   $s_Cli_Telef4 = FormataTelefone($s_Cli_Telef4);
	   //
	   $aDadosS['CADCLI'] = $aCadCli;
       $sRet_Javs .= 
	      'parent.document.getElementById("in_Entrega_CliNom").value='.JAVA_CharCode_Mini($s_Cli_CliNom).';'.
		  'parent.document.getElementById("in_Entrega_CliTL1").value="'.$s_Cli_Telef1.'";'.
		  'parent.document.getElementById("in_Entrega_CliTL2").value="'.$s_Cli_Telef2.'";'.
		  'parent.document.getElementById("in_Entrega_CliTL3").value="'.$s_Cli_Telef3.'";'.
		  'parent.document.getElementById("in_Entrega_CliTL4").value="'.$s_Cli_Telef4.'";'.
		  'parent.document.getElementById("in_Entrega_CliCEP").value="'.$s_Cli_EndCEP.'";'.
		  'parent.document.getElementById("in_Entrega_CliLgr").value="'.$s_Cli_EndLog.'";'.
		  'parent.document.getElementById("in_Entrega_CliNum").value="'.$s_Cli_EndNum.'";'.
		  'parent.document.getElementById("in_Entrega_CliCpl").value="'.$s_Cli_EndCpl.'";'.
		  'parent.document.getElementById("in_Entrega_CliBai").value="'.$s_Cli_EndBai.'";'.
		  'parent.document.getElementById("in_Entrega_CliCid").value="'.$n_Cli_EndCid.'";'.
		  'parent.document.getElementById("sp_Ent_NomCidade").innerHTML='.JAVA_CharCode_Mini($s_Cid_NomeCP).';'.
		  "parent.Car_".$sNomeAcesso."1.Ped_Atualizar();".
		  '';
	//
	//
	// PUXAR LISTA DE GRUPOS E PRODUTOS
    } ElseIf ( $sAcao=="PUXAR_PRODUTOS" ) {
	   $nGru_Codigo = @$_POST['Gru_Codigo']+0;
	   $sIte_Pesqui = @$_POST['Ite_Pesquisa'];
	   $sEnt_TipoFt = ($bModo_Balcao ? 'BAL' : 'ENT' );
	   $bActVariosSabores = False;
	   $sLst_Grupos = '';
	   //
	   // Puxar produtos
	   $sSQLQuery =
	      "SELECT pro.*, gru.* ".
		  "FROM      cad_produto               AS pro ".
          "LEFT JOIN cad_grupo_produtos        AS gru ON ITE_COD_GRU=GRU_CODIGO ".
          "LEFT JOIN cad_produto_classificacao AS cls ON ITE_COD_CLS=CLS_IDN_CLS ".
		  "WHERE ITE_ITEM_ATIVO_ AND ITE_REG_TRAVADO=0 AND ITE_COD_GRU>0 AND CLS_VGARCOM ".
			    ( STRLEN($sIte_Pesqui)>0 ? 'AND ITE_DESCRIC LIKE "%'.$sIte_Pesqui.'%" ' : '').
		  "ORDER BY ITE_COD_GRU ASC, ITE_DESCRIC ASC;";
	   $RowsT = MYSQL_QUERY($sSQLQuery) or die('001 - '.MYSQL_ERROR().'<br>'.$sSQLQuery);
	   $sHTML_Produtos = '';
	   $bItePre1_Exib = False;  $bItePre2_Exib = False;  $bItePre3_Exib = False;  $bItePre4_Exib = False;
	   //
	   //
	   $nQtd_Prods = 5;
       While ($RowT = MYSQL_FETCH_ARRAY($RowsT)) {
		  $nITE_PRE_NOR = $RowT['ITE_PRE_'.$sEnt_TipoFt.'_NOR'];
		  $nITE_PRE_MEI = $RowT['ITE_PRE_'.$sEnt_TipoFt.'_MEI'];
		  $nITE_PRE_001 = $RowT['ITE_PRE_'.$sEnt_TipoFt.'_001'];
		  $nITE_PRE_002 = $RowT['ITE_PRE_'.$sEnt_TipoFt.'_002'];
		  $nITE_PRE_003 = $RowT['ITE_PRE_'.$sEnt_TipoFt.'_003'];
		  $nITE_PRE_004 = $RowT['ITE_PRE_'.$sEnt_TipoFt.'_004'];
		  //GRUPO VARIOS SABORES NÃO TEM PROMOÇÃO
		  If ( ! $RowT['GRU_ACTSAB'] ) {
            // Capturar preço promocional
			$nIte_Pre_Promocao = PuxarPrecoPromocional( $RowT['ITE_CODIGOI'] );
			If ( $nIte_Pre_Promocao>=0 ) { $nITE_PRE_NOR=$nIte_Pre_Promocao; }
		  } 
		  //
		  //pegar a unidade se kg
		  //
		  If ( ! $bItePre1_Exib ) { $bItePre1_Exib = $nITE_PRE_001>0; }
		  If ( ! $bItePre2_Exib ) { $bItePre2_Exib = $nITE_PRE_002>0; }
		  If ( ! $bItePre3_Exib ) { $bItePre3_Exib = $nITE_PRE_003>0; }
		  If ( ! $bItePre4_Exib ) { $bItePre4_Exib = $nITE_PRE_004>0; }
		  //
		  If ( STRPOS( ' ;'.$sLst_Grupos, ';'.$RowT['ITE_COD_GRU'].';')==0 ) {
		     $sLst_Grupos .= $RowT['ITE_COD_GRU'].';';
		  }
		  If ( $nGru_Codigo==0 ) {
		     $nGru_Codigo = $RowT['ITE_COD_GRU'];
		  } ElseIf ( $nGru_Codigo<>$RowT['ITE_COD_GRU'] ) {
		     CONTINUE;
		  }
	      $bActVariosSabores = $RowT['GRU_ACTSAB'];
		  $nQtd_Prods++;
	      $sHTML_Produtos .=
		     '<div style="height:6px;"></div>'.
		     '<div id="Ent_Guia_Ite'.$RowT['ITE_CODIGOI'].'" align="left" class="Quadro_2L" style="width:95%;">'.
		      '<table width="100%" height="40px">'.
			   '<tr>'.
			    '<td>'.
		         '<table width="100%" style="cursor:pointer;" onclick="Car_'.$sNomeAcesso.'1.Sel_Produto('."'".$RowT['ITE_CODIGOI']."',''".');">'.
			      '<tr>'.
			       '<td align="left" style="font-size:14px; font-weight:bold;">'.
			        $RowT['ITE_CODIGOL'].' - '.$RowT['ITE_DESCRIC'].
				   '</td>'.
			      '</tr>'.
			      '<tr>'.
			       '<td align="left">'.
			        $RowT['ITE_INGRED1'].' '.$RowT['ITE_INGRED2'].
				   '</td>'.
			      '</tr>'.
			     '</table>'.
			    '</td>'.
				 ( $bActVariosSabores ?  // Preço por tamanho
			       '<td style="font-size:15px; font-weight:bold;" width="80px">'.
				    ( $nITE_PRE_004>0 ?
				     '<span style="cursor:pointer;" onclick="Car_'.$sNomeAcesso.'1.Sel_Produto('."'".$RowT['ITE_CODIGOI']."','004'".');">'.
					  'R$ '.FormatoMoeda($nITE_PRE_004).
					 '</span>'
				    : '').
			       '</td>'.
			       '<td style="font-size:15px; font-weight:bold;" width="80px">'.
				    ( $nITE_PRE_003>0 ?
				     '<span style="cursor:pointer;" onclick="Car_'.$sNomeAcesso.'1.Sel_Produto('."'".$RowT['ITE_CODIGOI']."','003'".');">'.
					  'R$ '.FormatoMoeda($nITE_PRE_003).
					 '</span>'
				    : '').
			       '</td>'.
			       '<td style="font-size:15px; font-weight:bold;" width="80px">'.
				    ( $nITE_PRE_002>0 ?
				     '<span style="cursor:pointer;" onclick="Car_'.$sNomeAcesso.'1.Sel_Produto('."'".$RowT['ITE_CODIGOI']."','002'".');">'.
					  'R$ '.FormatoMoeda($nITE_PRE_002).
					 '</span>'
				    : '').
			       '</td>'.
			       '<td style="font-size:15px; font-weight:bold;" width="80px">'.
				    ( $nITE_PRE_001>0 ?
				     '<span style="cursor:pointer;" onclick="Car_'.$sNomeAcesso.'1.Sel_Produto('."'".$RowT['ITE_CODIGOI']."','001'".');">'.
					  'R$ '.FormatoMoeda($nITE_PRE_001).
					 '</span>'
				    : '').
			       '</td>'
				  :                 // Preço Normal e Meia
			       '<td style="font-size:15px; font-weight:bold;" align="left" width="80px">'.
				    '<span style="cursor:pointer;" onclick="Car_'.$sNomeAcesso.'1.Sel_Produto('."'".$RowT['ITE_CODIGOI']."','NOR'".');">'.
				     'R$ '.FormatoMoeda($nITE_PRE_NOR).
					'</span>'.
			       '</td>'.
			       '<td style="font-size:15px; font-weight:bold;" align="left" width="80px">'.
				   ( $nITE_PRE_MEI > 0 ?
				     '<span style="cursor:pointer;" onclick="Car_'.$sNomeAcesso.'1.Sel_Produto('."'".$RowT['ITE_CODIGOI']."','MEI'".');">'.
				      'R$ '.FormatoMoeda($nITE_PRE_MEI).
					 '</span>'
				   : '').
			       '</td>'.
				   ''
				  ).
			   '</tr>'.
			  '</table>'.
		     '</div>'.
			 '';
	   }
	   If ( STRLEN($sHTML_Produtos)>10 ) {
	      $sHTML_Produtos =
		       '<table width="100%">'.
			    '<tr>'.
			     '<td>'.
		         '</td>'.
		         ( $bActVariosSabores ?  // Preço por tamanho
			       '<td style="font-size:15px; font-weight:bold; color:#FFFFFF;" align="left" width="80px">'.
				    ( $bItePre4_Exib ? SQLVarConfig('DESCRI_PROPRECO4') : '').
			       '</td>'.
			       '<td style="font-size:15px; font-weight:bold; color:#FFFFFF;" align="left" width="80px">'.
				    ( $bItePre3_Exib ? SQLVarConfig('DESCRI_PROPRECO3') : '').
			       '</td>'.
			       '<td style="font-size:15px; font-weight:bold; color:#FFFFFF;" align="left" width="80px">'.
				    ( $bItePre2_Exib ? SQLVarConfig('DESCRI_PROPRECO2') : '').
			       '</td>'.
			       '<td style="font-size:15px; font-weight:bold; color:#FFFFFF;" align="left" width="80px">'.
				    ( $bItePre1_Exib ? SQLVarConfig('DESCRI_PROPRECO1') : '').
			       '</td>'.
			     ''
				 :                       // Preço Normal e Meia
			       '<td style="font-size:15px; font-weight:bold; color:#FFFFFF;" align="left" width="80px">'.
				      'Inteira'.
			       '</td>'.
			       '<td style="font-size:15px; font-weight:bold; color:#FFFFFF;" align="left" width="80px">'.
				      'Meia'.
			       '</td>'
			
				 ).
			     '<td width="16px">'.
		         '</td>'.
			   '</tr>'.
			  '</table>'.
			  $sHTML_Produtos.
			  '';
	   }
	   //
	   // Puxar grupos
	   $RowsT = MYSQL_QUERY("SELECT * FROM cad_grupo_produtos WHERE GRU_TRAREG=0 AND GRU_ATIVO_ ORDER BY GRU_NUMORD ASC, GRU_DESCRI;") or die(MYSQL_ERROR());
	   $sHTML_Grupos  = '<table>';
	   $nQtd_Grupos   = 0;
	   $nContadorCols = 0;
       While ($RowT = MYSQL_FETCH_OBJECT($RowsT)) {
	      If ( $nGru_Codigo==0 ) { $nGru_Codigo = $RowT->GRU_CODIGO; }
		  If ( STRPOS( ' ;'.$sLst_Grupos, ';'.$RowT->GRU_CODIGO.';')==0 ) { CONTINUE; }
	      $bSelecionado = $nGru_Codigo==$RowT->GRU_CODIGO;
	      $sHTML_Grupos .=
		     ( $nContadorCols==0 ? '<tr>' : '').
		     '<td>'.
		      //'<div style="height:6px;"></div>'.
		      '<span id="Ent_Guia_Gru'.$RowT->GRU_CODIGO.'" align="left" class="botao_guia2'.($bSelecionado ? "S" : "N").'" style="left:20px; z-index:1;" onclick="Car_'.$sNomeAcesso.'1.Sel_Grupo('."'".$RowT->GRU_CODIGO."',''".');">'.
		       SUBSTR( PegarPorPausa($RowT->GRU_DESCRI,3) ,0,31).
		      '</span>'.
			 '</td>';
		  $nQtd_Grupos++;
		  $nContadorCols++;
		  If ( $nContadorCols >= $nColsDosGrupos ) {
	         $sHTML_Grupos .= '</tr>';
	         $nContadorCols = 0;
		  }
		  //If ($bSelecionado) {
		  //   $bActVariosSabores = $RowT->GRU_ACTSAB;
	      //}
	   }
	   $sHTML_Grupos .= '</table>';
	   $nHeight_Pro = $nQtd_Grupos;
	   If ($nHeight_Pro < $nQtd_Prods) { $nHeight_Pro = $nQtd_Prods; }
	   $nHeight_Pro = $nHeight_Pro * 53;
	   //
       $sRet_Javs .=
		  'parent.document.getElementById("dv_ListaGrupos").innerHTML='.JAVA_CharCode($sHTML_Grupos).';'.
		  'parent.document.getElementById("dv_ListaProdutos").innerHTML='.JAVA_CharCode($sHTML_Produtos).';'.
		  'parent.document.getElementById("dv_ListaProdutos").style.height="'.$nHeight_Pro.'px";'.
		  '';
    //
	//
	// ABRIR PEDIDO DO FAT_GERAL
    } ElseIf ( $sAcao=="PED_ABRIRFAT" ) {
	   $nFat_CodigoI = @$_POST['Fat_CodigoI']+0;
	   $aPedido = ARRAY();
	   $aFatIte = ARRAY();
	   $aCadCli = ARRAY();
	   //
       $sRet_Javs .=
	      "";
	   //
       $sSQLQuery = "SELECT * FROM fat_geral WHERE FAT_RCFORMA=0 AND FAT_CANCELA=0 AND FAT_CODIGOI=".$nFat_CodigoI." ;";
       $Row_FatGer = MYSQL_QUERY($sSQLQuery) OR Die($sSQLQuery.'<br>'.MYSQL_ERROR());
	   If ( $Row_FatGer=MYSQL_FETCH_ARRAY($Row_FatGer) ) {
	      $aPedido = $Row_FatGer;
          $sSQLQuery = "SELECT * FROM fat_item WHERE FAT_CFATGER=".$nFat_CodigoI." ;";
          $Rows_FatIte = MYSQL_QUERY($sSQLQuery) OR Die($sSQLQuery.'<br>'.MYSQL_ERROR());
	      $aTipPre = ARRAY( '1' => '001', '2' => '002', '3' => '003', '4' => '004', 'N' => 'NOR', 'M' => 'MEI' );
	      While ( $Row_FatIte=MYSQL_FETCH_ARRAY($Rows_FatIte) ) {
		    $aItem = $Row_FatIte;
		    //$aItem['FAT_PRE_TIP'] = $aTipPre[$aItem['FAT_PRE_TIP']];
		    $aFatIte[] = $aItem;
		  }
		  $nFat_Tip_Loc = $aPedido['FAT_TIP_LOC'];
		  //
	      $aDadosS['PEDIDO'] = $aPedido;
	      $aDadosS['FATITE'] = $aFatIte;
	      $aDadosS['CADCLI'] = $aCadCli;
		  //
          $sRet_Javs .=
			 'parent.document.getElementById("sl_Entrega_TipoFt").value="' .$nFat_Tip_Loc.'";'.
		     ( $aPedido['FAT_CLIENTE']>0 ? 
		      "parent.document.getElementById('in_Entrega_CliCod').value = '".$aPedido['FAT_CLIENTE']."';".
		      'parent.Car_'.$sNomeAcesso.'1.Puxar_Cli_Cod();'
		     :
			   "parent.document.getElementById('in_Entrega_CliNom').value = '".$aPedido['FAT_NOMCLIE']."';".
			   'parent.Car_'.$sNomeAcesso.'1.Env_Dados_Cli();'
			 ).
		     'parent.document.getElementById("in_Entrega_FunEnt").value="' .$aPedido['FAT_COD_ENT'].'";'.
			 'parent.document.getElementById("in_Entrega_PedTaxa").value="'.$aPedido['FAT_TAXASVR'].'";'.
			 'parent.document.getElementById("in_Entrega_TrocoPa").value="'.$aPedido['FAT_TROCOPA'].'";'.
			 'parent.document.getElementById("in_Entrega_PedDesc").value="'.$aPedido['FAT_VALDESC'].'";'.
			 'parent.document.getElementById("in_Entrega_CliObs").value='.JAVA_CharCode_Mini($aPedido['FAT_OBSERV1']).';'.
		     'parent.Car_'.$sNomeAcesso.'1.b_Editando=true;'.
	         'parent.Car_'.$sNomeAcesso.'1.Sel_Guia(3);'.
		     'parent.Car_'.$sNomeAcesso.'1.Ped_Atualizar();'.
	         "";
	   } Else {   // Pedido não encontrado no Fat_Geral
          $sRet_Javs .=
		     'parent.Car_'.$sNomeAcesso.'1.b_Editando=false;'.
             Info_Evento('Não foi possível abrir esta comanda, foi recebida <br>ou cancelada e não pode ser editada. ',1,$oJanelaPrinc->sTitulo).		     "".
			 'parent.Car_'.$sNomeAcesso.'1.Com_Atualizar();'.
			 '';
	   }
	   //
	//
	//
	// ATUALIZA OS DADOS E MONTA A LISTA DO PEDIDO
    } ElseIf ( $sAcao=="PED_ATUALIZAR" ) {
	   $n_TaxaEnt = ROUND(STR_REPLACE(",",'.',Somente_Numeros(@$_POST['in_Ped_TaxaEnt'],',.'))+0 ,2);
	   $n_TrocoPa = ROUND(STR_REPLACE(",",'.',Somente_Numeros(@$_POST['in_Ped_TrocoPa'],',.'))+0 ,2);
	   $n_Fun_Ent = ROUND(STR_REPLACE(",",'.',Somente_Numeros(@$_POST['in_Ped_Fun_Ent'],',.'))+0 ,2);
	   $n_PedDesc = ROUND(STR_REPLACE(",",'.',Somente_Numeros(@$_POST['in_Ped_PedDesc'],',.'))+0 ,2);
	   $sHTML_LstItens = '';
	   $sHTML_PedDados = '';
	   $sHTML_LstFuncs = '';
	   $bExistePed     = False;
	   $aPedido = @$aDadosS['PEDIDO'];
	   $aFatIte = @$aDadosS['FATITE'];
	   $aCadCli = @$aDadosS['CADCLI'];
	   If ( ( (@$aCadCli['CLI_CODIGO']+0)>0 OR STRLEN(@$aCadCli['CLI_NOMECP'])>2 ) ) {
	      $sHTML_PedDados =
		     '<table width="100%">'.
			  '<tr>'.
			   '<td>'.
			    '<span style="font-size:14px; font-weight:bold;">'.
				 @$aCadCli['CLI_NOMECP'].
				 ( (@$aCadCli['CLI_TELEF1']+0)>0 ?
				   ' - '.FormataTelefone(@$aCadCli['CLI_TELEF1'])
				 : '').
				'</span><br>'.
				( $bModo_Balcao ? '' :
				   @$aCadCli['CLI_ENDLOG'].', '.@$aCadCli['CLI_ENDNUM'].' '.@$aCadCli['CLI_ENDCPL'].'<br>'.
				   'Bairro '.@$aCadCli['CLI_ENDBAI'].' - '.@$aCadCli['CLI_NOMCID'].'<br>'.
				   ( (@$aCadCli['CLI_TELEF2']+0)>0 ? 'Telefone 2:'.FormataTelefone(@$aCadCli['CLI_TELEF2'])    : '').
				   ( (@$aCadCli['CLI_TELEF3']+0)>0 ? ' / Telefone 3:'.FormataTelefone(@$aCadCli['CLI_TELEF3']) : '').
				   '<br>'
				).
				 //'Observações: '.$aCadCli['CLI_OBS001'].
			   '</td>'.
			  '</tr>'.
			 '</table>';
	      //
	   } Else {
	      $sHTML_PedDados = 'DADOS DO CLIENTE SÃO INSUFICIENTES<br>';
	   }
	   $aPedido['FAT_TOT_VAL'] = 0;
	   //
	   If ( COUNT($aFatIte)>0) {
          ForEach ( $aFatIte as $nPosicaoItem => $aItem ) {
			 $sIte_Descric = "";
			 $nPartesIte = 0;
			 For ( $nContador=1; $nContador<=4; $nContador++) {
	             $rProduto = MYSQL_QUERY("SELECT ITE_CODIGOL, ITE_DESCRIC FROM cad_produto WHERE ITE_REG_TRAVADO=0 AND ITE_CODIGOI=".($aItem['FAT_CODITE'.$nContador]).";") or die(MYSQL_ERROR());
	             If ( $rProduto = MYSQL_FETCH_ARRAY($rProduto) ) {
				    If ( STRLEN($sIte_Descric)>0 ) { $sIte_Descric .= '<br>'; }
			        //$sIte_Descric .= $rProduto['ITE_CODIGOL'].' - '.$rProduto['ITE_DESCRIC'];
			        $sIte_Descric .= '([SIMBOLO])&nbsp;'.$rProduto['ITE_DESCRIC'];
					$nPartesIte++;
		         }
		     }
			 $sIte_Descric = STR_REPLACE("([SIMBOLO])", ( $nPartesIte>1 ? '1/'.$nPartesIte : '') ,$sIte_Descric);
			 $bItemCancelado = STRLEN(@$aItem['FAT_CANITEM'])>0;
			 //
			 If ( $bItemCancelado ) {
			    $sIte_Descric = '(CANCELADO) '.$sIte_Descric;
			 } Else {
			    $aPedido['FAT_TOT_VAL'] += $aItem['FAT_PRE_TOT'] + $aItem['FAT_PRE_OPC'];
		     }
			 $bComObs = STRLEN( $aItem['FAT_OBSERV1'].$aItem['FAT_OBSERV2'] )>2;
			 //
	         $aLst_Opcion = EXPLODE(";",$aItem['FAT_OPCINAL']);
			 $sHTML_Opcs_ = '';
             ForEach ( $aLst_Opcion as $sOpcional ) {
                $aOpcional = EXPLODE(",",$sOpcional);
		        $nOpc_Cod = (@$aOpcional[0]+0);
		        $nOpc_Qtd = (@$aOpcional[1]+0);
                If ( $nOpc_Cod==0 ) { CONTINUE; }
		        If ($nOpc_Qtd>0) {
	               $rO_Produto = MYSQL_QUERY("SELECT * FROM cad_produto WHERE ITE_REG_TRAVADO=0 AND ITE_CODIGOI=".($nOpc_Cod).";") or die(MYSQL_ERROR());
	               If ( $rO_Produto = MYSQL_FETCH_ARRAY($rO_Produto) ) {
				      $nVal_OpcUni = $rO_Produto['ITE_PRE_'.($bModo_Balcao ? 'BAL' : 'ENT').'_NOR'];
		              $nVal_Opcion = $nOpc_Qtd * $nVal_OpcUni;
					  $sHTML_Opcs_ .=
                         '<table style="position:relative; top:'.($bComObs ? '-3px' : '3px').'; width:100%;">'.
                          '<tr>'.
                           '<td align="right" align="right">'.
						    $rO_Produto['ITE_DESCRIC'].
					       '</td>'.
                           '<td width="20px">'.
					       '</td>'.
                           '<td width="100px" align="left">'.
						    'R$ '.FormatoMoeda($nVal_OpcUni).
					       '</td>'.
                           '<td width="50px" align="left">'.
						    'x '.($nOpc_Qtd+0).
					       '</td>'.
                           '<td width="100px" align="left">'.
						    'R$ '.FormatoMoeda($nVal_Opcion).
					       '</td>'.
						  '</tr>'.
						 '</table>';
		           }
		        }
	         }
			 //
			 $sHTML_LstItens .=
                '<div style="height:4px;"></div>'.
                '<div align="left" class="Quadro_2'.( $bItemCancelado ? '_Can' : 'L').'" style="width:97%; " valign="middle">'.
                 '<table style="position:relative; top:'.($bComObs ? '-3px' : '3px').'; width:100%;">'.
                  '<tr>'.
                   '<td>'.
                    '<table width="100%">'.
                     '<tr>'.
			          '<td width="30px" valign="middle" align="center">'.
					   ( $bItemCancelado ? 
					     '<img src="./images/btimg_volta.png" border="0" title="Incluir este item" style="cursor:pointer;" onclick="Car_'.$sNomeAcesso.'1.MarcaCan_Item('."'".($nPosicaoItem+1)."','0'".');">'
					   :
			             '<img src="./images/btimg_remover.png" border="0" title="Cancelar este item" style="cursor:pointer;" onclick="Car_'.$sNomeAcesso.'1.MarcaCan_Item('."'".($nPosicaoItem+1)."','1'".');">'
					   ).
			          '</td>'.
                      '<td align="left" style="font-size:12px; font-weight:bold;">'.
                       $sIte_Descric.
                	   '</td>'.
                     '</tr>'.
					 ( $bComObs ?
                     '<tr>'.
					  '<td></td>'.
                      '<td align="left" style="font-size:10px;">'.
                       $aItem['FAT_OBSERV1'].$aItem['FAT_OBSERV2'].
                	  '</td>'.
                     '</tr>' : '').
                    '</table>'.
                   '</td>'.
                   '<td style="font-size:15px; font-weight:bold;" valign="middle" align="left" width="100px">'.
                     'R$ '.FormatoMoeda( $aItem['FAT_PRE_TOT'] / $aItem['FAT_QTD_ITE'] ).
                   '</td>'.
                   '<td style="font-size:15px; font-weight:bold;" valign="middle" align="left" width="50px">'.
                     'x '.($aItem['FAT_QTD_ITE']+0).
                   '</td>'.
                   '<td style="font-size:15px; font-weight:bold;" valign="middle" align="left" width="100px">'.
                     'R$ '.FormatoMoeda( $aItem['FAT_PRE_TOT'] ).
                   '</td>'.
                  '</tr>'.
                 '</table>'.
				 $sHTML_Opcs_.
                '</div>'.
                '';
                //
	      }
	      //
	   } Else {
	      $sHTML_LstItens .= '<span style="font-size:20px;"><br>Nenhum item incluído</span>';
	   }
	   // Puxar entregador padrão
	   If ( $n_Fun_Ent==0 && ($n_Fun_Ent==0) && (@$aDadosS['PEDIDO']['FAT_TIP_LOC']+0)==2 ) {
          $RowT = MYSQL_QUERY("SELECT * FROM cad_funcionario WHERE FUN_ATIVO_ AND FUN_CODIGO<9990 AND FUN_ENTPAD;") or die(MYSQL_ERROR());
          If ( $RowT = MYSQL_FETCH_OBJECT($RowT) ) {
			 $n_Fun_Ent = $RowT->FUN_CODIGO;
		  }
	   }
	   // Montar combobox dos entregadores
	   $sHTML_LstFuncs .= '<option value="0">-- Nenhum --</option>';
	   If ( ! $bModo_Balcao ) {
          $RowsT = MYSQL_QUERY("SELECT * FROM cad_funcionario WHERE FUN_ATIVO_ AND FUN_CODIGO<9990;") or die(MYSQL_ERROR());
          While ( $RowT = MYSQL_FETCH_OBJECT($RowsT) ) {
              $sHTML_LstFuncs .=
                 '<option value="'.$RowT->FUN_CODIGO.'"'.( ($n_Fun_Ent==$RowT->FUN_CODIGO) ? ' selected' : '').'>'.
          	      Str_Zero($RowT->FUN_CODIGO,4).' - '.$RowT->FUN_NOMECP.
          	     '</option>';
          }
	   }
	   //
	   //
	   If ( $bModo_Balcao ) {
	      $aPedido['FAT_TAXASVR'] = 0;
	   } Else {
	      $aPedido['FAT_TAXASVR'] = $n_TaxaEnt;
	   }
	   $aPedido['FAT_COD_ENT'] = $n_Fun_Ent;
	   $aPedido['FAT_TROCOPA'] = $n_TrocoPa;
	   //
	   $nR_Descon = 0;
	   If ( $n_PedDesc>0 ) {
	      $nR_Descon = ($n_PedDesc / ($aPedido['FAT_TAXASVR']+$aPedido['FAT_TOT_VAL'])) * 100;
	      If ( $nR_Descon>$nDescontoM && (!$bDesc_Acm_Max) && $aPedido['FAT_VALDESC']<>$n_PedDesc) {
	         If ( STRLEN($sDsc_Senha)>0 ) {
	            
					If (! @$aSessao['SEN_LIBERADO']) {
					   $n_PedDesc = (($aPedido['FAT_TAXASVR']+$aPedido['FAT_TOT_VAL']) * ( $nDescontoM/100))- 0.5;
                  
					$sRet_Javs .=
                   $sJavaTravarJ.
		   		  "var fm = parent.document.forms.fmEntregaR;".
                   "vAnt_SubMod = fm.submod.value;".
                   "vAnt_target = fm.target;".
                   "NomeQdrCar = vAnt_target;".
                   "NomeQdrCar = NomeQdrCar.substr(0,NomeQdrCar.length-1)+'6';".
                   "fm.target = NomeQdrCar;".
                   "fm.submod.value='PERM_DESCONTO'; ".
                   "fm.acao.value='';".
                   "fm.Per_Desc.value='".$nR_Descon."';".
				   "fm.Per_Valor.value='".($aPedido['FAT_TAXASVR']+$aPedido['FAT_TOT_VAL'])."';".
                   "fm.submit(); ".
                   "fm.target = vAnt_target;".
                   "fm.submod.value=vAnt_SubMod; ".
                   "";
				  }		 
		        //
		     } Else {
	           $n_PedDesc = (($aPedido['FAT_TAXASVR']+$aPedido['FAT_TOT_VAL']) * ($nDescontoM/100));
	           $sRet_Javs .=
	               Info_Evento('O desconto é maior do que o permitido.<br>Máximo permitido é de '.$nDescontoM.'% .<br>Por isso não será permitido ultrapassá-lo.',1,"Recebimento de comanda").
		   		   "";
		       //
		     }
	      
			
			}
	   }
	   //
	   $aPedido['FAT_VALDESC'] = $n_PedDesc;
	   If ( $n_PedDesc>($aPedido['FAT_TAXASVR']+$aPedido['FAT_TOT_VAL']) ) {
	      $n_PedDesc = 0;
	   }
	   $aPedido['FAT_TOT_REC'] = ($aPedido['FAT_TAXASVR']+$aPedido['FAT_TOT_VAL'])-$n_PedDesc;
	   If ($n_TrocoPa>$aPedido['FAT_TOT_REC']) {
	      $n_TrocoVr = $n_TrocoPa-$aPedido['FAT_TOT_REC'];
	   } Else {
	      $n_TrocoVr = 0;
		  $n_TrocoPa = 0;
	   }
	   $aDadosS['PEDIDO'] = $aPedido;
	   //
	   If ($bModo_Balcao && EMPTY($aCadCli['CLI_NOMECP'])) {
		  $aCadCli['CLI_NOMECP'] = 'Balcão';
	   }
	   If ($bModo_Balcao) {
	      $bExistePed = ( $aPedido['FAT_TOT_VAL']>0 OR COUNT($aFatIte)>0); 
	   } Else {
	      $bExistePed = ( $aPedido['FAT_TOT_VAL']>0 OR (@$aCadCli['CLI_CODIGO']+0)>0 OR STRLEN(@$aCadCli['CLI_NOMECP'])>0 OR COUNT($aFatIte)>0);
	   }
       //
       $sRet_Javs .=
		  'parent.document.getElementById("dv_Ped_Dados").innerHTML='.   JAVA_CharCode_Mini($sHTML_PedDados).';'.
		  'parent.document.getElementById("dv_Ped_LstItens").innerHTML='.JAVA_CharCode_Mini($sHTML_LstItens).';'.
		  'parent.document.getElementById("dv_Ent_TotalPro").innerHTML="R$ '.FormatoMoeda($aPedido['FAT_TOT_VAL']).'";'.
		  'parent.document.getElementById("sp_Ent_TotalPed").innerHTML="R$ '.FormatoMoeda($aPedido['FAT_TOT_REC']).'";'.
		  'parent.document.getElementById("td_Entrega_PedTaxa").style.display="'.($bModo_Balcao ? 'none' : '').'";'.
		  'parent.document.getElementById("td_Entrega_TrocoPa").style.display="'.($bModo_Balcao ? 'none' : '').'";'.
		  'parent.document.getElementById("in_Entrega_PedTaxa").value="'.FormatoMoeda($aPedido['FAT_TAXASVR']).'";'.
		  'parent.document.getElementById("in_Entrega_TrocoPa").value="'.FormatoMoeda($n_TrocoPa).'";'.
		  'parent.document.getElementById("dv_Ent_TotalLiq").innerHTML="R$ '.FormatoMoeda($aPedido['FAT_TOT_REC']).'";'.
		  'parent.document.getElementById("dv_Ent_TrocoRe").innerHTML="R$ '.FormatoMoeda($n_TrocoVr).'";'.
		  'parent.document.getElementById("in_Entrega_FunEnt").innerHTML='.JAVA_CharCode_Mini($sHTML_LstFuncs).';'.
		  "parent.document.getElementById('dvPedVen_Entregador').style.display='".($bModo_Balcao ? 'none' : '')."';".
		  'parent.document.getElementById("in_Entrega_TrocoPa").value="'.FormatoMoeda($n_TrocoPa).'";'.
		  'parent.document.getElementById("in_Entrega_PedDesc").value="'.FormatoMoeda($n_PedDesc).'";'.
		  ( ($bModo_Balcao && EMPTY($aCadCli['CLI_NOMECP']) ) ?
		    'parent.document.getElementById("in_Entrega_CliNom").value="Balcão";'
		  : '' ).
	      //"parent.document.getElementById('Ent_Bot_Tel_Cai').style.display='".($bModo_Balcao ? '' : 'none')."';".
	      "parent.document.getElementById('Ent_Bot_Tel_Cai').style.display='';".
          'parent.document.getElementById("Ent_Bot_Ab_Ped").style.display="'.($bExistePed ? '' : 'none').'";'.
		  'parent.document.getElementById("sp_Ent_BarStatus").innerHTML="'.
		    ( ((@$aPedido['FAT_CODIGOI']+0)==0) ? 
			  '( NOVA COMANDA )'
			:
			  'COMANDA: '.Str_Zero(@$aPedido['FAT_SQCOMAN']+0,6)
		    ).'";'.
		  'var ATipPed = parent.document.getElementById("dv_Ent_Alerta_TipPed");'.
		  ( $bModo_Balcao ?
		    'ATipPed.innerHTML = "B A L C Ã O";'.
			'ATipPed.style.color="#FFFFFF";'.
			'ATipPed.style.backgroundColor="#FF3300";'
		  :
		    'ATipPed.innerHTML = "D I S K&nbsp;&nbsp;&nbsp;E N T R E G A";'.
			'ATipPed.style.color="#000000";'.
			'ATipPed.style.backgroundColor="#FFFF00";'
		  ).
		  //( ($bModo_Balcao && (!$bExistePed)) ? 'parent.Car_'.$sNomeAcesso.'1.Sel_Guia(2);' : '' ). 
		  '';
	//
	//
	// MARCAR E DESMARCAR COMO CANCELADO
    } ElseIf ( $sAcao=="PED_MARCACAN_ITEM" ) {
	   $nPosicaoItem = @$_POST['Ite_Codigo_1']+0;
	   $bCancelar    = @$_POST['Ite_BCodigoL']+0;
       $aFatIte = @$aDadosS['FATITE'];
       If ( $nPosicaoItem>0 && ISSET($aFatIte[$nPosicaoItem-1]) ) {
	      If ( $bCancelar ) {
		  	 $aFatIte[$nPosicaoItem-1]['FAT_CANITEM'] = $R_CadFuncionario->FUN_CODIGO.';'.DATE('Y-m-d H:i:s').';';
		  } Else {
		  	 $aFatIte[$nPosicaoItem-1]['FAT_CANITEM'] = '';
		  }
          $aDadosS['FATITE'] = $aFatIte;
          $sRet_Javs .=
		     //"parent.JanEspera(false);".
		     "parent.Car_".$sNomeAcesso."1.Ped_Atualizar();".
			 "";
	   }
	//
	//
	// ATUALIZA OS DADOS E MONTA A LISTA DO PEDIDO
    } ElseIf ( $sAcao=="PED_FINALIZA" ) {
       //
       $sRet_Javs .= "parent.JanEspera(false);";
	   //
	   $bAbandona = (@$_POST['Fat_CodigoI']=='ABANDONA');
	   $bTickedTd = (@$_POST['Ite_ValorUn']+0>0);
	   $bFinalizarPedido = False;
	   $bLimparTudo = False;
	   $bClikAbandona = False;
	   $aCadCli = @$aDadosS['CADCLI'];
	   $aPedido = @$aDadosS['PEDIDO'];
	   $aFatIte = @$aDadosS['FATITE'];
	   //
	   If ( $bAbandona ) {
	      $bLimparTudo = True;
	      $bClikAbandona = True;
		} Else {
	      $nSeqCaixa = PuxarCaixaAberto($R_CadFuncionario->FUN_CODIGO);
		  // Validar
	      If ( STRLEN($aCadCli['CLI_TELEF1'])<8 && (!$bModo_Balcao)) {
	         $sRet_Javs .=
	            'parent.Car_'.$sNomeAcesso.'1.Sel_Guia(1);'.
	            Info_Evento('Campo do telefone do cliente<br>não está preenchido corretamente.<br>Ainda não é possível finalizar seu pedido.',1,$oJanelaPrinc->sTitulo).
	            "";
	      } ElseIf ( STRLEN($aCadCli['CLI_NOMECP'])<2 ) {
	         $sRet_Javs .=
	            'parent.Car_'.$sNomeAcesso.'1.Sel_Guia(1);'.
	            'parent.document.getElementById("in_Entrega_CliNom").focus();'.
	            Info_Evento('Campo do nome do cliente<br>não está preenchido corretamente.<br>Ainda não é possível finalizar seu pedido.',1,$oJanelaPrinc->sTitulo).
	            "";
	      } ElseIf ( STRLEN($aCadCli['CLI_ENDLOG'])<3 && (!$bModo_Balcao)) {
	         $sRet_Javs .=
	            'parent.Car_'.$sNomeAcesso.'1.Sel_Guia(1);'.
	            'parent.document.getElementById("in_Entrega_CliLgr").focus();'.
	            Info_Evento('Campo do endereço do cliente<br>não está preenchido corretamente.<br>Ainda não é possível finalizar seu pedido.',1,$oJanelaPrinc->sTitulo).
	            "";
	      } ElseIf ( STRLEN($aCadCli['CLI_ENDNUM'])<1 && (!$bModo_Balcao)) {
	         $sRet_Javs .=
	            'parent.Car_'.$sNomeAcesso.'1.Sel_Guia(1);'.
	            'parent.document.getElementById("in_Entrega_CliNum").focus();'.
	            Info_Evento('Campo do numéro no endereço do cliente<br>não está preenchido.<br>Ainda não é possível finalizar seu pedido.',1,$oJanelaPrinc->sTitulo).
	            "";
	      } ElseIf ( STRLEN($aCadCli['CLI_CODCID'])<5 && (!$bModo_Balcao)) {
	         $sRet_Javs .=
	            'parent.Car_'.$sNomeAcesso.'1.Sel_Guia(1);'.
	            'parent.document.getElementById("in_Entrega_CliCid").focus();'.
	            Info_Evento('Campo do código da cidade do cliente<br>não está preenchido.<br>Ainda não é possível finalizar seu pedido.',1,$oJanelaPrinc->sTitulo).
	            "";
	      } ElseIf ( (@$aPedido['FAT_TOT_VAL']+0)==0 OR COUNT($aFatIte)==0 ) {
	         $sRet_Javs .=
	            'parent.Car_'.$sNomeAcesso.'1.Sel_Guia(2);'.
	            Info_Evento('Não há produtos incluido no pedido.<br>Ainda não é possível finalizar seu pedido.',1,$oJanelaPrinc->sTitulo).
	            "";
	      //trava de path serial se existe
	      } ElseIf( ! IS_DIR($s_DirDestino) && STRLEN($s_DirDestino)>0 ){
              $sRet_Javs .=
             	 'parent.Car_'.$sNomeAcesso.'1.Sel_Guia(3);'.
				 Info_Evento('Por favor configurar o caminho<br> de impressão para o <br>aplicativo serial.<br> Não encontrado.<br><br> Caminho: '.$s_DirDestino,2,$oJanelaPrinc->sTitulo).
                 '';
		  } ElseIf( $nSeqCaixa==0 && $bModo_Balcao) {
		      $sRet_Javs .=
             	 'parent.Car_'.$sNomeAcesso.'1.Sel_Guia(3);'.
				 Info_Evento('Atenção - Seu caixa está fechado' ,2,$oJanelaPrinc->sTitulo).
                 '';
		  
		  
		  } Else {
	     	  $bFinalizarPedido = True;
	      }
	   }
	   //
	   $nFat_CodigoI    = @$aPedido['FAT_CODIGOI']+0;
	   $nCodSeq_Comanda = @$aPedido['FAT_SQCOMAN']+0;
	   //
       If ( $bFinalizarPedido && $nFat_CodigoI>0 ) {
          $sSQLQuery = "SELECT * FROM fat_geral WHERE FAT_RCFORMA=0 AND FAT_CANCELA=0 AND FAT_CODIGOI=".$nFat_CodigoI." ;";
          $Row_FatGer = MYSQL_QUERY($sSQLQuery) OR Die($sSQLQuery.'<br>'.MYSQL_ERROR());
	      If ( $Row_FatGer=MYSQL_FETCH_ARRAY($Row_FatGer) ) {
		  } Else {
             $sRet_Javs .=
                 Info_Evento('Não foi possível salvar as alterações desta comanda,<br>foi recebida ou cancelada e não pode ser alterada. ',1,$oJanelaPrinc->sTitulo).		     "".
		   	     'parent.Car_'.$sNomeAcesso.'1.Com_Atualizar();'.
		   	     '';
	         $bFinalizarPedido = False;
	         $bLimparTudo = True;
	      }
	   }
	   //
	   // Gravar pedido
	   If ($bFinalizarPedido) {
	      //
		  // Gravar CAD_CLIENTE
		  $nCli_Codigo = @$aCadCli['CLI_CODIGO']+0;
          If ((!$bModo_Balcao) OR $nCli_Codigo>0 OR (Somente_Numeros(@$aCadCli['CLI_TELEF1'])+0)>0 ) {
             If ( $nCli_Codigo==0 ) {
                $nCli_Codigo = SQLVarConfig("CAD_CLIENTE_SEQCOD")+0;
                SQLVarConfigG("CAD_CLIENTE_SEQCOD", $nCli_Codigo+1 );
                MYSQL_QUERY(   // Cria um novo registro
                  "INSERT INTO cad_cliente(CLI_CODIGOI,CLI_TRAREG,CLI_DTACAD) VALUES (".$nCli_Codigo.",0,'".DATE("Y-m-d H:i:s")."'); ") or die(MYSQL_ERROR());
				$aCadCli['CLI_CODIGO'] = $nCli_Codigo;
             }
             $Row_CadCli = MYSQL_QUERY("SELECT * FROM cad_cliente WHERE CLI_CODIGOI=".$aCadCli['CLI_CODIGO']." ;") or die(MYSQL_ERROR());
             If ($Row_CadCli = MYSQL_FETCH_OBJECT($Row_CadCli)) {
	            // Puxar telefones existentes
		        $aCad_Telefones = ARRAY();
	            $sSQLQuery =
	                "SELECT * FROM cad_telefones, cad_tipo_telefone ".
	                "WHERE ".
		                "TEL_TIPCAD=1 AND TEL_CODCAD='".$aCadCli['CLI_CODIGO']."' AND ".
		                "(TEL_TRAREG=0 OR TEL_TRAREG=2) AND TEL_CODCTT=CTT_CODIGO ".
		            "ORDER BY TEL_NUMERO ASC LIMIT 6;";
	            $RowsT = MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
                While ($RowT = MYSQL_FETCH_ARRAY($RowsT)) {
		           $aCad_Telefones[$RowT['TEL_NUMERO']+0] = $RowT;
		        }
	            // Atualizar registro
                MYSQL_QUERY(
                  "UPDATE cad_cliente SET ".
                    'CLI_NOMECP=' .SQL_Bin($aCadCli['CLI_NOMECP']) .','.
                    'CLI_ENDBAI=' .SQL_Bin($aCadCli['CLI_ENDBAI']) .','.
                    'CLI_ENDLOG=' .SQL_Bin($aCadCli['CLI_ENDLOG']) .','.
                    'CLI_ENDNUM=' .SQL_Bin($aCadCli['CLI_ENDNUM']) .','.
                    'CLI_ENDCPL=' .SQL_Bin($aCadCli['CLI_ENDCPL']) .','.
					'CLI_ENDCEP="'.$aCadCli['CLI_ENDCEP']          .'",'.
					'CLI_OBS001=' .SQL_Bin($aCadCli['CLI_OBS001']) .','.
					'CLI_OBS002=' .SQL_Bin($aCadCli['CLI_OBS002']) .','.
					'CLI_TAXENT=' .@$aPedido['FAT_TAXASVR']        .','.
					'CLI_CODCID="'.$aCadCli['CLI_CODCID']          .'" '.
                  "WHERE CLI_CODIGOI=".$aCadCli['CLI_CODIGO']."; ") or die(MYSQL_ERROR());
	            // Gravar Telefones
		        $a_Telefones = ARRAY();
                For ( $nContador=1; $nContador<=4; $nContador++) {
                    $s_Temp = Somente_Numeros(@$aCadCli['CLI_TELEF'.$nContador]);
                    If (STRLEN($s_Temp)>0) {
                     $a_Temp = ARRAY(
                	            "TEL_NUMERO" => $s_Temp,
                		        "TEL_OBSERV" => @$aCad_Telefones[$s_Temp+0]['TEL_OBSERV'],
                		        "TEL_CODCTT" => ( ISSET($aCad_Telefones[$s_Temp+0]['TEL_CODCTT']) ? $aCad_Telefones[$s_Temp+0]['TEL_CODCTT'] : 1 )
                	           );
                     $a_Telefones[] = $a_Temp;
                  }
                }
		        GravarTelefones(1, $aCadCli['CLI_CODIGO'], $a_Telefones);
	         }
	         //
	         //
	      }
	  	  $nFat_Tip_Loc    = ($bModo_Balcao ? 1 : 2);
          $bFat_Alterado   = True; // se a comanda esta sendo alterada
		  If ( $nFat_CodigoI==0 ) {
	         // Capturar codigos sequenciais do FAT_GERAL
             If ($bModo_Balcao) {
                $nCodSeq_Comanda = SQLVarConfig('COMANDA_B_SEQCOD')+0;
                SQLVarConfigG('COMANDA_B_SEQCOD',$nCodSeq_Comanda+1);
             } Else {
                $nCodSeq_Comanda = SQLVarConfig('COMANDA_E_SEQCOD')+0;
                SQLVarConfigG('COMANDA_E_SEQCOD',$nCodSeq_Comanda+1);
	         }
             $nFat_CodigoI = SQLVarConfig('FAT_GERAL_SEQCOD')+0;
             SQLVarConfigG('FAT_GERAL_SEQCOD',$nFat_CodigoI+1);
		     // Gravar FAT_GERAL
             $sSQLQuery =
		         "INSERT INTO fat_geral(".
                    "FAT_CODIGOI, FAT_DAT_INI, FAT_COD_EMP, FAT_TIP_LOC, FAT_SQCOMAN, FAT_DATAINI, FAT_NUM_TRM".
	             ") VALUE(".
	                $nFat_CodigoI.",".
	                "'".DATE("Y-m-d H:i:s")."',".
			   	    $Dados_Empresa['EMP_CODIGOI'].",".
	  	            $nFat_Tip_Loc.",".
	  	            $nCodSeq_Comanda.",".
	  	            "'".$sData_Trabalho."',".
	                "0".
                 ");";
             MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
             $bFat_Alterado = False;
          }
		  //
		  $nFat_SbTotal = @$aPedido['FAT_TAXASVR']+@$aPedido['FAT_TOT_VAL'];
		  $nFat_DescVal = @$aPedido['FAT_VALDESC']+0;
		  $nFat_DescPer = ROUND( ($nFat_DescVal / $nFat_SbTotal)*100 , 2);
		  //
          $sSQLQuery =
		      "UPDATE fat_geral SET ".
				 "FAT_CLIENTE='".@$aCadCli['CLI_CODIGO']."',".               // Codigo interno do cliente
				 "FAT_COD_ENT=".$aPedido['FAT_COD_ENT'].",".                 // Entregador (Código do funcionário)
				 "FAT_TIP_LOC=".$nFat_Tip_Loc.",".                           // Tipo do local (0=Mesa, 1=Balcao, 2=Entrega, 3=Comanda)
				 "FAT_NOMCLIE=".SQL_Bin(@$aCadCli['CLI_NOMECP']).",".        // Nome do cliente por extenso (para Balcao)
				 "FAT_OBSERV1=".SQL_Bin($aCadCli['CLI_OBS001']) .",".        // Observacoes 1
				 "FAT_OBSERV2=".SQL_Bin($aCadCli['CLI_OBS002']) .",".        // Observacoes 2
				 "FAT_TOT_VAL='".@$aPedido['FAT_TOT_VAL']."',".              // Valor total dos produtos
				 "FAT_TOT_CTX='".@$aPedido['FAT_TOT_VAL']."',".              // Valor total dos produtos para calculo de taxa de servico
				 "FAT_QTD_PES=1,".                                           // Quantidade de pessoas
				 "FAT_TAXASVR='".@$aPedido['FAT_TAXASVR']."',".              // Taxa de servico (comissao do garcom) ou Taxa de Entrega (Motoqueiro)
				 "FAT_SBTOTAL='".$nFat_SbTotal."',".                         // Subtotal com produtos e taxas
				 "FAT_DESCONT='".$nFat_DescPer."',".                         // Desconto em percentual
				 "FAT_VALDESC='".$nFat_DescVal."',".                         // Desconto em valor real
				 "FAT_TOT_REC='".@$aPedido['FAT_TOT_REC']."',".              // Total a receber com o desconto
				 "FAT_TROCOPA='".@$aPedido['FAT_TROCOPA']."',".              // Troco para
                 "FAT_ALTERAD='".$bFat_Alterado."',".                        // Se alterou a comanda
				 "FAT_DAT_FIM='".DATE("Y-m-d H:i:s")."',".
				 "FAT_ULTPED='".DATE("Y-m-d H:i:s")."' ".
			  "WHERE FAT_CODIGOI=".$nFat_CodigoI.";";
          MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
		  //
		  // Grava espelho
		  $sNomArqEspG = $sDir_Espelho.$sData_Trabalho."_".$nFat_Tip_Loc."_".Str_Zero($nCodSeq_Comanda,6).".txt";
    	  $hArqEsp = FOPEN( $sNomArqEspG, "a" );
    	  FWRITE($hArqEsp,
    	    "** Comanda: ".Str_Zero($nCodSeq_Comanda,6)." , Data:".$sData_Trabalho." **".CHR(13).CHR(10)
		  );
		  //
		  $aNovosFatIte = ARRAY();
		  //
		  // Gravar FAT_ITEM
		  ForEach ( $aFatIte as $aItem ) {
		     // SE O PRODUTO FOR DE UM DOCUMENTO QUE ESTA SENDO ALTERADO
			 If ( $aItem['FAT_CODIGOI']>0 ) {
			    If ( $bTickedTd ) { 
				   $aNovosFatIte[$aItem['FAT_CODIGOI']]=1; 
				}
			    // Cancelar o item
                $sSQLRequest =
		           "UPDATE fat_item SET ".
				      "FAT_CANITEM='".@$aItem['FAT_CANITEM']."' ".
			       "WHERE FAT_CODIGOI=".$aItem['FAT_CODIGOI'].";";
                MYSQL_QUERY($sSQLRequest) or die($sSQLRequest.'<br>'.MYSQL_ERROR());
			 	CONTINUE;
			  
			 }
			 //pega o preço custo do cad_produtos 
			 $nIte_Pre_Cus_001 = PuxarPrecoCusto( ($aItem['FAT_CODITE1']+0), $aItem['FAT_PRE_TIP'] );
             If (($aItem['FAT_CODITE2']+0)> 0) {
	            $nIte_Pre_Cus_002 = PuxarPrecoCusto( ($aItem['FAT_CODITE2']+0), $aItem['FAT_PRE_TIP']);   
	         } Else {
               $nIte_Pre_Cus_002 = 0;
	         }
	         
	         If (($aItem['FAT_CODITE3']+0)> 0) {
	            $nIte_Pre_Cus_003 = PuxarPrecoCusto( ($aItem['FAT_CODITE3']+0), $aItem['FAT_PRE_TIP']);   
	         } Else {
               $nIte_Pre_Cus_003 = 0;
	         }
	         	   
	         If (($aItem['FAT_CODITE4']+0)> 0) {
	            $nIte_Pre_Cus_004 = PuxarPrecoCusto( ($aItem['FAT_CODITE4']+0), $aItem['FAT_PRE_TIP']);   
	         } Else {
               $nIte_Pre_Cus_004 = 0;
	         }
			 $nPartes = 1;
	         If ($nIte_Pre_Cus_002>0) { $nPartes++; }
             If ($nIte_Pre_Cus_003>0) { $nPartes++; }
             If ($nIte_Pre_Cus_004>0) { $nPartes++; }
        
	         //Calcula o total do custo
             $nCusto_Total =  (($nIte_Pre_Cus_001+$nIte_Pre_Cus_002+$nIte_Pre_Cus_003+$nIte_Pre_Cus_004)/$nPartes)*$aItem['FAT_QTD_ITE'];
			 
			 // SE O PRODUTO FOR NOVO NO DOCUMENTO 
			 //
			 // Inserir o item
	         $nFti_Codigo = SQLVarConfig('FAT_ITEM_SEQCOD');
	         SQLVarConfigG('FAT_ITEM_SEQCOD',$nFti_Codigo+1);
	         //
			 $aNovosFatIte[$nFti_Codigo] = 1;
             $sSQLRequest = "INSERT INTO fat_item(".
                   "FAT_CODIGOI, FAT_CFATGER, FAT_COD_FUN, FAT_DAT_HOR, FAT_UNITARI, FAT_PRE_TOT, ".
                   "FAT_PRE_OPC, FAT_CODITE1, FAT_CODITE2, FAT_CODITE3, FAT_CODITE4, FAT_QTD_ITE, ".
                   "FAT_GAR_EST, FAT_PRE_TIP, FAT_OPCINAL, FAT_TOTCUST, FAT_CUS_001, FAT_CUS_002, FAT_CUS_003, ".
				   "FAT_CUS_004,FAT_OBSERV1, FAT_OBSERV2, FAT_CANITEM ".
                ") VALUE(".
                   $nFti_Codigo.",".
                   $nFat_CodigoI.",".
                   "'".$R_CadFuncionario->FUN_CODIGO."',".
                   "'".DATE("Y-m-d H:i:s")."',".
				   "'".$aItem['FAT_UNITARI']."',".
						  // Não estava somando o total do Opcional
						  //  "'".$aItem['FAT_PRE_TOT']."',".
                   "'".($aItem['FAT_PRE_TOT']+$aItem['FAT_PRE_OPC'])."',".
                   "'".$aItem['FAT_PRE_OPC']."',".
                   ($aItem['FAT_CODITE1']+0).",".
                   ($aItem['FAT_CODITE2']+0).",".
                   ($aItem['FAT_CODITE3']+0).",".
                   ($aItem['FAT_CODITE4']+0).",".
                   $aItem['FAT_QTD_ITE'].",".
                   "0,".
                   "'".$aItem['FAT_PRE_TIP']."',".
                   "'".$aItem['FAT_OPCINAL']."',".
				   "'".$nCusto_Total."',".
		           "'".$nIte_Pre_Cus_001."',".
		           "'".$nIte_Pre_Cus_002."',".
		           "'".$nIte_Pre_Cus_003."',".
		           "'".$nIte_Pre_Cus_004."',".
                   SQL_Bin($aItem['FAT_OBSERV1']).",".
                   SQL_Bin($aItem['FAT_OBSERV2']).",".
                   "'".@$aItem['FAT_CANITEM']."' ".
				");";
             MYSQL_QUERY($sSQLRequest) or die($sSQLRequest.'<br>'.MYSQL_ERROR());
			 
			 // Gravar espelho
    		 $sTXT_Espelho =
    			">>>> ".Str_Zero($nFti_Codigo,6).", ".DATE("d/m/Y H:i:s").', Operador: '.$R_CadFuncionario->FUN_CODIGO.' - '.$R_CadFuncionario->FUN_NOMECP.
				CHR(13).CHR(10).
    			"    Produtos: ".
				  Str_Zero($aItem['FAT_CODITE1'],4).' - '.
				  Str_Zero($aItem['FAT_CODITE2'],4).' - '.
				  Str_Zero($aItem['FAT_CODITE3'],4).' - '.
				  Str_Zero($aItem['FAT_CODITE4'],4).' - '.
                ', Qtd: '  .$aItem['FAT_QTD_ITE'].
    		    ', Preço: '.FormatoMoeda($aItem['FAT_PRE_TOT']).', Tipo: '.$aItem['FAT_PRE_TIP'].
    		    ', Obs: '  .$aItem['FAT_OBSERV1'].' '.$aItem['FAT_OBSERV2'].
    		    ( STRLEN($aItem['FAT_OPCINAL'])>3 ? '      Opcional: '.$aItem['FAT_OPCINAL'] : '' ).CHR(13).CHR(10);
    		 FWRITE($hArqEsp, $sTXT_Espelho);
			 //
		  }
		  //
		  FCLOSE($hArqEsp);
		  //
		  // IMPRESSÃO DE TICKET DE PRODUÇÃO
		  $nRetornoSucesso = GerarTicketProducao( $nFat_CodigoI, $aNovosFatIte );
		  //
          $sRet_Javs .=
		     ( ($nRetornoSucesso==-2) ?
	            Info_Evento('Caminho de impressão para o aplicativo serial não configurado ou não encontrado.',1,$oJanelaPrinc->sTitulo)
			 : '' ).
			 ( ($nRetornoSucesso==0) ?
			   "parent.Qdr_Prompt_H(true,'Deseja imprimir o pedido que acabou de finalizar?',".
		         JAVA_CharCode(
		            ( $bModo_Balcao ?
                        //'parent.document.getElementById("i_CxaRec_NumLoc").focus();'
						''
			        :
                        'parent.document.getElementById("in_Ite_Codigo1").focus();'
                    ).
                    "if (_NUM_BOT_==1) { ".
                        "parent.JanEspera(true, 'Imprimindo o pedido... Aguarde...');".
						'setTimeout( function () { parent.Car_'.$sNomeAcesso.'1.GerarCupom("'.$nFat_CodigoI.'"); } , 500);'.
				    "}"
		         ).
			   ",['Sim','Não']);"
			 :
			   Info_Evento('Pedido enviado com sucesso.',0,$oJanelaPrinc->sTitulo)
			 ).
			 "";
	      $bLimparTudo = True;
		  //
	   }
	   //
	   If ($bLimparTudo) {
	   	  $aDadosS = ARRAY();
	      $aSessao[$sNomeAcesso.'_DESC_ACM_MAX'] = 0;
		  $nSeqCaixa = PuxarCaixaAberto($R_CadFuncionario->FUN_CODIGO);
		  //
          $sRet_Javs =
		     'var Qf1 = parent.Car_'.$sNomeAcesso.'1;'.
	         'parent.document.getElementById("Qdr_Cardapio1").style.display="";'.
	         'parent.document.getElementById("Qdr_Cardapio2").style.display="none";'.
			 "parent.document.getElementById('in_Entrega_CliCod').value = '';".
             'parent.document.getElementById("in_Entrega_TrocoPa").value="";'.
             'parent.document.getElementById("in_Entrega_PedTaxa").value="";'.
             'parent.document.getElementById("in_Entrega_PedDesc").value="";'.
			 'parent.document.getElementById("in_Entrega_CliObs").value="";'.
			 'parent.document.getElementById("in_Entrega_FunEnt").value="";'.
			 ( $bModo_Balcao ?
			   'parent.document.getElementById("sl_Entrega_TipoFt").value="1";'
			   :
			   'parent.document.getElementById("sl_Entrega_TipoFt").value="2";'
			 ).
			 'parent.document.getElementById("in_Ite_Codigo1").value="";'.
			 'parent.document.getElementById("in_Ite_Codigo2").value="";'.
			 'parent.document.getElementById("in_Ite_Codigo3").value="";'.
			 'parent.document.getElementById("in_Ite_Codigo4").value="";'.
			 "parent.document.getElementById('Ent_CodCliente').value='';".
			 ( $bClikAbandona ?
			     ""
	         :
			    ( ( $bModo_Balcao && $nSeqCaixa>0 ) ?
		          "setTimeout( function () { Qf1.Tel_Cai('".$nFat_CodigoI."'); }, 10);"
				: "" ).
				//"Qf1.Alt_TipoFt();".
				""
		     ).
			 'Qf1.b_Editando=false;'.
		     'Qf1.Puxar_Cli_Cod();'.
		     'Qf1.Sel_Guia(1);'.
		     //"Qf1.Sel_Grupo('');".
		     "setTimeout( function () { Qf1.Alt_TipoFt(); }, 500);".
		     //'parent.document.getElementById("in_Ite_Codigo1").focus();'.
			 ( ( (!$bClikAbandona) & $bModo_Balcao && $nSeqCaixa>0 ) ?
		       "parent.sIdHasFocus = 'in_Entrega_CodCli';"
			 : "" ).
			 $sRet_Javs.
             '';
		  //
		}
	   //
	//
	//
	// GERAR CUPOM DO PEDIDO
	} ElseIf ( $sAcao=="GERAR_CUPOM") {
       $sRet_Javs .= "parent.JanEspera(false);";
	   //
	   $nFat_CodigoI = @$_POST['Fat_CodigoI']+0;
	   $sTxtCupom = '';
	   //
	   If ($nFat_CodigoI>0) {
          // Puxar Fat_Geral
          $sSQLQuery = "SELECT * FROM fat_geral WHERE FAT_CODIGOI=".$nFat_CodigoI." ;";
          $Row_FatGer = MYSQL_QUERY($sSQLQuery) OR Die("<script>alert(".JAVA_CharCode($sSQLQuery.",".MYSQL_ERROR()).");</script>");
	      If ( $Row_FatGer=MYSQL_FETCH_ARRAY($Row_FatGer) ) {
	         $sTxtCupom = MontaCupom_Rec('fat_geral.FAT_CODIGOI='.$nFat_CodigoI, False); // se imprime os cancelados
		  }
	   }
	   If ( STRLEN($sTxtCupom)>0 ) {
	      $aExtencaoAq = SQLVarConfig('GARCOM_IMPC_'.$Row_FatGer['FAT_TIP_LOC']);
		  $aExtencaoAq = EXPLODE(";",$aExtencaoAq);
		  If ( (@$aExtencaoAq[0]+0) && STRLEN(@$aExtencaoAq[1])>0 ) {
		     $sExtencaoAq = $aExtencaoAq[1];
		     $sArqTemp = $sTemporarios."cupom_".$nFat_CodigoI.'.txt';
			 $sIP_NomeArq = STR_REPLACE(".","_",ObterIPdoCliente());
		     $sArqImpT = $s_DirDestino.($Row_FatGer['FAT_TIP_LOC']==1 ? "BALCAO" : "DISK")."_CUPOM_".DATE("Ymd")."_".Str_Zero($Row_FatGer['FAT_SQCOMAN'],6).'_'.$sIP_NomeArq.'.'.$sExtencaoAq;
		     $hArqExp = FOPEN( $sArqTemp, "a" );
		     FWRITE($hArqExp, $sTxtCupom );
		     FCLOSE( $hArqExp );
		     COPY( $sArqTemp, $sArqImpT );
		     UNLINK( $sArqTemp );
		  }
	   }
    //
	//
	// PUXAR CLIENTE NA TELA DE COMANDAS
    } ElseIf ( $sAcao=="COM_PUXARCLIENTE" ) {
	   $sCli_CodigoI  = @$_POST['Cli_Codigo'];
	   $sCli_NomeCmp = "";
	   If ( EMPTY($sCli_CodigoI) ) {
	      $sCli_NomeCmp = "** Todos os clientes **";
	   } ElseIf ( $sCli_CodigoI=="/" ) {
	      $sCli_NomeCmp = "(Pesquisa de cliente)";
          $sRet_Javs .= 
	           $sJavaTravarJ.
		       "setTimeout( function () { ".
			      "var fm = parent.document.forms.fmEntregaR;".
			      "TargetAnt = fm.target;".
			      "fm.target='car_".$sNomeAcesso."10';".
		          "fm.acao.value=''; ".
		          "fm.submod.value='COM_CSL_CLI'; ".
		          "fm.submit();".
			      "fm.target = TargetAnt;".
		          "fm.submod.value='".$sSubModulo."'; ".
		       "} , 100);".
		       "";
		  $sCli_CodigoI = "";
	   } Else {
	      $nCli_CodigoI = $sCli_CodigoI+0;
	      $sSQLQuery = "SELECT * FROM cad_cliente WHERE CLI_CODIGOI=".$nCli_CodigoI.";";
	      $Row = MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
	      If ( $Row=MYSQL_FETCH_OBJECT($Row) ) {
	         $sCli_NomeCmp = PegarPorPausa($Row->CLI_NOMECP,4);
			 $sCli_CodigoI = Str_Zero($sCli_CodigoI,6);
	      } Else {
		     $sCli_CodigoI = "";
	         $sCli_NomeCmp = "** Todos os clientes **";
		  }
	   }
       $sRet_Javs .=
		  "parent.document.getElementById('Ent_CodCliente').value='".$sCli_CodigoI."';".
		  "parent.document.getElementById('Ent_NomeCliente').innerHTML=".JAVA_CharCode_Mini($sCli_NomeCmp).";".
		  '';
    //
	//
	// ATUALIZA A LISTA DE COMANDAS
    } ElseIf ( $sAcao=="COM_ATUALIZAR" ) {
	   $nOpc_EstCom   = @$_POST['Ite_BCodigoL']+0;
	   $sFat_Data_de  = @$_POST['Fat_Data_de'];
	   $sFat_Data_ate = @$_POST['Fat_Data_ate'];
	   $sCli_CodigoI  = @$_POST['Cli_Codigo']+0;
	   //
	   $sHTML_LstItens = '';
	   $sFat_Data_de = ConvertDataBRUS($sFat_Data_de);
	   $sFat_Data_ate = ConvertDataBRUS($sFat_Data_ate);
	   $sSQLQuery =
	     "SELECT * FROM fat_geral WHERE ".
		   "FAT_CANCELA=0 AND ".($bModo_Balcao ? "FAT_TIP_LOC=1" : "(FAT_TIP_LOC=1 OR FAT_TIP_LOC=2)")." ".
		   ($sCli_CodigoI>0 ? "AND FAT_CLIENTE=".$sCli_CodigoI." " : "").
		   ($nOpc_EstCom==3 ? "" : "AND FAT_DATAINI BETWEEN '".$sFat_Data_de."' AND '".$sFat_Data_ate."' ").
		   //"AND FAT_COD_EMP=".$Dados_Empresa['EMP_CODIGOI']." ".
		   ($nOpc_EstCom==1 ? "AND FAT_RCFORMA=0" : "").
		   ($nOpc_EstCom==2 ? "AND FAT_RCFORMA>0" : "").
		   ($nOpc_EstCom==3 ? "ORDER BY FAT_DATAINI DESC LIMIT 5" : "").
		 ";";
	   $Rows_FatGer = MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
       While ($Row_FatGer = MYSQL_FETCH_OBJECT($Rows_FatGer)) {
		  // Entregador
		  $sEnt_NomeCP = '';
		  If ( $Row_FatGer->FAT_COD_ENT>0 ) {
		     $sSQLQuery = "SELECT * FROM cad_funcionario WHERE FUN_CODIGO=".$Row_FatGer->FAT_COD_ENT.";";
	         $Row_T = MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
			 If ( $Row_T=MYSQL_FETCH_OBJECT($Row_T) ) {
			    $sEnt_NomeCP = $Row_T->FUN_NOMECP;
			 }
		  }
		  //
		  If ( $Row_FatGer->FAT_RCFORMA==1 ) {
		     $sCorLinDireita = '006600';
		  } Else {
		     $sCorLinDireita = '888888';
		  }
		  //
		  $sItemOnClick =
			($Row_FatGer->FAT_RCFORMA==0 && $nOpc_EstCom<>3 ?
	        "parent.Car_".$sNomeAcesso."1.Ped_AbrirFat('".$Row_FatGer->FAT_CODIGOI."');"
			:
	        "parent.Car_".$sNomeAcesso."1.Abrir_Cupom('".$Row_FatGer->FAT_CODIGOI."');"		 
			).
			"";
		  //
		  $sHTML_LstItens .=
            '<div style="height:4px;"></div>'.
            '<div align="left" class="Quadro_2L'.($Row_FatGer->FAT_RCFORMA==1 ? "_Rec" : "").'" '.
			      'style="width:97%; cursor:pointer;" '.
				  'onclick="'.$sItemOnClick.'" '.
				  'valign="middle"'.
			 '>'.
             '<table style="position:relative; top:0px; width:100%;">'.
              '<tr>'.
               '<td>'.
                '<table width="100%">'.
                 '<tr>'.
		           '<td width="30px" valign="middle" align="center">'.
				    ( $Row_FatGer->FAT_TIP_LOC==1 ? 
				      '<img src="./images/btimg_balcao.png" border="0" title="Pedido feito pelo Balcão">'
					:
				      '<img src="./images/btimg_entrega.png" border="0" title="Pedido feito pelo Disk Entrega">'
					).
		           '</td>'.
                  '<td width="56px" align="left" style="font-size:12px; font-weight:bold; border-right:1px solid #'.$sCorLinDireita.';">'.
                   Str_Zero($Row_FatGer->FAT_SQCOMAN,6).
            	  '</td>'.
                  '<td width="64px" align="center" style="font-size:12px; font-weight:bold; border-right:1px solid #'.$sCorLinDireita.';">'.
				   DATE("d/m/Y",ConvertDtHrSTR($Row_FatGer->FAT_DATAINI)).
            	  '</td>'.
                  '<td width="280px" align="left" style="font-size:12px; font-weight:bold; border-right:1px solid #'.$sCorLinDireita.';">'.
				   '&nbsp;&nbsp;'.SUBSTR(PegarPorPausa($Row_FatGer->FAT_NOMCLIE,6),0,60).
            	  '</td>'.
				  '<td></td>'.
                 '</tr>'.
                '</table>'.
               '</td>'.
               '<td style="font-size:15px; font-weight:bold;" valign="middle" align="left" width="100px">'.
                 'R$ '.FormatoMoeda( $Row_FatGer->FAT_TOT_REC ).
               '</td>'.
              '</tr>'.
             '</table>'.
			 ( STRLEN($sEnt_NomeCP)>0 ?
               '<table style="position:relative; top:0px; width:100%;">'.
                '<tr>'.
                  '<td width="94px">'.
                  '<td width="64px" align="center" style="font-size:12px; font-weight:bold; border-right:1px solid #'.$sCorLinDireita.';">'.
				   DATE("H:i:s",ConvertDtHrSTR($Row_FatGer->FAT_DAT_INI)).
            	  '</td>'.
                  '<td align="left" style="font-size:12px;">'.
				   '&nbsp;&nbsp;'.
				   'Entregador: '.SUBSTR(PegarPorPausa($sEnt_NomeCP,3),0,30).
            	  '</td>'.
                '</tr>'.
			   '</table>'
			 : '').
            '</div>'.
            '';
		  //
	   }
	   //
       $sRet_Javs .=
		  "parent.document.getElementById('dv_Com_Lista').innerHTML=".JAVA_CharCode_Mini($sHTML_LstItens).";".
		  "";
	//
	//
	// VALIDA CODIGOS DOS PRODUTOS
	} ElseIf ( $sAcao=="SELPRO_VALIDA") {
	   $nIte_Codigo = ARRAY();
	   $nIte_Codigo[1] = Somente_Numeros(@$_POST['Ite_Codigo_1'])+0;
	   $nIte_Codigo[2] = Somente_Numeros(@$_POST['Ite_Codigo_2'])+0;
	   $nIte_Codigo[3] = Somente_Numeros(@$_POST['Ite_Codigo_3'])+0;
	   $nIte_Codigo[4] = Somente_Numeros(@$_POST['Ite_Codigo_4'])+0;
	   $n_Num_Campo_   = Somente_Numeros(@$_POST['Ite_BCodigoL'])+0;
	   //
	   If ( $n_Num_Campo_==0 OR $n_Num_Campo_>4 ) { $n_Num_Campo_=1; }
	   $sIte_Codigo = ARRAY();
	   $nGrupo_Sabo = 0;
	   $nCodigoErro = 0;
	   For ( $nContador=1; $nContador<=4; $nContador++) {
	       If ( $nIte_Codigo[$nContador]==0 ) { CONTINUE; }
	       $sIte_Cod = Str_Zero($nIte_Codigo[$nContador],4);
		   $sSQLQuery =
	          "SELECT pro.*, gru.* ".
		      "FROM      cad_produto               AS pro ".
              "LEFT JOIN cad_grupo_produtos        AS gru ON ITE_COD_GRU=GRU_CODIGO ".
              "LEFT JOIN cad_produto_classificacao AS cls ON ITE_COD_CLS=CLS_IDN_CLS ".
		      "WHERE ITE_ITEM_ATIVO_ AND ITE_REG_TRAVADO=0 AND ITE_COD_GRU>0 AND CLS_VGARCOM AND ".
			        "ITE_CODIGOL='".$sIte_Cod."' ".
		      ";";
 	       $rProduto = MYSQL_QUERY($sSQLQuery) or die('002 - '.MYSQL_ERROR().'<br>'.$sSQLQuery);
	       If ( $rProduto=MYSQL_FETCH_ARRAY($rProduto) ) {
		      $sIte_Codigo[$nContador] = $sIte_Cod;
			  If ($nContador==1) {
			     If ( $rProduto['GRU_ACTSAB'] ) {
				    $nGrupo_Sabo = $rProduto['GRU_CODIGO'];
				 }
			  } Else {
			     If ( $nGrupo_Sabo<>$rProduto['GRU_CODIGO'] ) {
				    If ( $nGrupo_Sabo==0 ) {
				       // ERRO: O grupo deste produto não aceita vários sabores.
				       $nCodigoErro = 2;
					} Else {
				       // ERRO: O grupo deste produto é diferente do restante dos produtos.
				       $nCodigoErro = 3;
					}
				    $sIte_Codigo[$nContador] = '';
				 }
			  }
	       } Else {
		      // ERRO: Produto não encontrado
		      $nCodigoErro = 1;
		   }
	   }
       $sRet_Javs .=
		  "parent.document.getElementById('in_Ite_Codigo1').value = '".@$sIte_Codigo[1]."';".
		  "parent.document.getElementById('in_Ite_Codigo2').value = '".@$sIte_Codigo[2]."';".
		  "parent.document.getElementById('in_Ite_Codigo3').value = '".@$sIte_Codigo[3]."';".
		  "parent.document.getElementById('in_Ite_Codigo4').value = '".@$sIte_Codigo[4]."';".
		  "";
	   If ( STRLEN(@$sIte_Codigo[$n_Num_Campo_])==0 ) {
          $sRet_Javs .= "parent.document.getElementById('in_Ite_Codigo".$n_Num_Campo_."').focus();";
	   } Else {
	      $n_Num_Proxi = $n_Num_Campo_+1;
		  If ($n_Num_Proxi>4) { $n_Num_Proxi=4; }
          $sRet_Javs .= "parent.document.getElementById('in_Ite_Codigo".$n_Num_Proxi."').focus();";
	   }
	   If ( $nCodigoErro==1 ) {
	      $sRet_Javs .=
		    Info_Evento('Produto não encontrado.',1,$oJanelaPrinc->sTitulo);
	   } ElseIf( $nCodigoErro==2 ) {
	      $sRet_Javs .=
		    Info_Evento('O grupo deste produto não aceita<br>vários sabores.',1,$oJanelaPrinc->sTitulo);
	   } ElseIf( $nCodigoErro==3 ) {
	      $sRet_Javs .=
		    Info_Evento('O grupo deste produto é diferente<br>do restante dos produtos.',1,$oJanelaPrinc->sTitulo);
	   } Else {
	      If ( STRLEN(@$sIte_Codigo[$n_Num_Campo_])==0 OR $nGrupo_Sabo==0 ) {
             $sRet_Javs .=
                "if ( parent.Car_".$sNomeAcesso."1.bTeclaEnter ) {".
                   "parent.Car_".$sNomeAcesso."1.Sel_Produto_4Ite();".
                "}";
		  }
	   }
	//
	//
	// ABRIR PARTE DOS DADOS DO PRODUTO
	} ElseIf ( $sAcao=="SELPRO_ABRIR") {
	   $nIte_Codigo = Str_Zero(@$_POST['Ite_Codigo_1'],4);
	   $sIte_TipPre = @$_POST['Ite_TipPreco'];
	   $bBCodigoL_S = @$_POST['Ite_BCodigoL']+0;
	   $sLst_IteCod = '';
	   $sEnt_TipoFt = ($bModo_Balcao ? 'BAL' : 'ENT');
	   //
       If ( $bBCodigoL_S ) {
          $sSQLQuery =
            "SELECT pro.*, gru.* ".
            "FROM      cad_produto               AS pro ".
            "LEFT JOIN cad_grupo_produtos        AS gru ON ITE_COD_GRU=GRU_CODIGO ".
            "LEFT JOIN cad_produto_classificacao AS cls ON ITE_COD_CLS=CLS_IDN_CLS ".
            "WHERE ITE_ITEM_ATIVO_ AND ITE_REG_TRAVADO=0 AND ITE_COD_GRU>0 AND CLS_VGARCOM AND ".
          	      "ITE_CODIGOL='".$nIte_Codigo."' ".
            ";";
 	      $rProduto   = MYSQL_QUERY($sSQLQuery) or die('003 - '.MYSQL_ERROR().'<br>'.$sSQLQuery);
	      $bAbrirTela = ($rProduto = MYSQL_FETCH_ARRAY($rProduto));
		  If ($bAbrirTela && $rProduto['GRU_ACTSAB']) {
		     For ( $nContador=2; $nContador<=4; $nContador++) {
			     $sIte_Codigo_ = @$_POST['Ite_Codigo_'.$nContador];
				 If ( STRLEN($sIte_Codigo_)==0 ) { CONTINUE; }
				 $sIte_Codigo_ = Str_Zero( $sIte_Codigo_ ,4 );
                 $sSQLQuery =
                   "SELECT pro.* ".
                   "FROM      cad_produto               AS pro ".
                   "LEFT JOIN cad_produto_classificacao AS cls ON ITE_COD_CLS=CLS_IDN_CLS ".
                   "WHERE ITE_ITEM_ATIVO_ AND ITE_REG_TRAVADO=0 AND CLS_VGARCOM AND ".
                 	      "ITE_CODIGOL='".$sIte_Codigo_."' ".
                   ";";
 	             $r_Produto  = MYSQL_QUERY($sSQLQuery) or die('004 - '.MYSQL_ERROR().'<br>'.$sSQLQuery);
	             If ($r_Produto = MYSQL_FETCH_ARRAY($r_Produto)) {
				    If ( $r_Produto['ITE_COD_GRU']==$rProduto['ITE_COD_GRU'] ) {
				       $sLst_IteCod .= $r_Produto['ITE_CODIGOI'].';';
					}
				 }
			 }
		  }
	   } Else {
	      $sSQLQuery =
	         "SELECT pro.*, gru.* ".
		     "FROM      cad_produto               AS pro ".
             "LEFT JOIN cad_grupo_produtos        AS gru ON ITE_COD_GRU=GRU_CODIGO ".
             "LEFT JOIN cad_produto_classificacao AS cls ON ITE_COD_CLS=CLS_IDN_CLS ".
		     "WHERE ITE_ITEM_ATIVO_ AND ITE_REG_TRAVADO=0 AND ITE_COD_GRU>0 AND CLS_VGARCOM AND ".
			       "ITE_CODIGOI=".$nIte_Codigo." ".
		     ";";
	      $rProduto   = MYSQL_QUERY($sSQLQuery) or die('005 - '.MYSQL_ERROR().'<br>'.$sSQLQuery);
	      $bAbrirTela = ($rProduto = MYSQL_FETCH_ARRAY($rProduto));
	   }
	   If ($bAbrirTela) {
	      $nIte_Codigo = $rProduto['ITE_CODIGOI'];
	      If ( STRLEN($sIte_TipPre)==0 ) {        		 
			  If ($rProduto['GRU_ACTSAB']) {
		        If ( $rProduto['ITE_PRE_'.$sEnt_TipoFt.'_001']>0 ) {
			       $sIte_TipPre = "001";
		        } ElseIf ( $rProduto['ITE_PRE_'.$sEnt_TipoFt.'_002']>0 ) {
			       $sIte_TipPre = "002";
		        } ElseIf ( $rProduto['ITE_PRE_'.$sEnt_TipoFt.'_003']>0 ) {
			       $sIte_TipPre = "003";
		        } ElseIf ( $rProduto['ITE_PRE_'.$sEnt_TipoFt.'_004']>0 ) {
			       $sIte_TipPre = "004";
				}
			 } Else {
			    $sIte_TipPre = "NOR";
			 }
		  }
	      $aDadosS['SELPRO'] =
		     ARRAY( 'FAT_CODIGO' => 0,
			        'ITE_CODIGO' => $nIte_Codigo,
			        'LST_ITECOD' => $sLst_IteCod,
					'LST_OPCION' => '',
	                'OPC_QUADRO' => 0,
	                'ITE_TIPPRE' => $sIte_TipPre,
					'ITE_QUANTI' => 0,
					'VAL_UNIDAD' => 0,
					'VAL_OPCION' => 0
					);
		   //
		   //PRINT_R( $aDadosS['SELPRO'] );
		   //
           $sRet_Javs .=
		      'parent.document.getElementById("sp_Ite_Descric").innerHTML = "'.$rProduto['ITE_DESCRIC'].'";'.
	          'parent.document.getElementById("Qdr_Cardapio1").style.display="none";'.
	          'parent.document.getElementById("Qdr_Cardapio2").style.display="";'.
	          'parent.document.getElementById("Ent_Bot_Can").style.display="none";'.
	          'parent.document.getElementById("Ent_Bot_Cnf").style.display="none";'.
			  "parent.document.getElementById('in_Inc_ValorUn').value='';".
			  "parent.document.getElementById('in_Inc_Quantid').value='';".
			  "parent.document.getElementById('in_Inc_Observ').value='';".
		      'parent.document.getElementById("dv_SP_ListaOpcs").innerHTML="";'.
		      'parent.document.getElementById("dv_SP_ListaOpcsT").innerHTML="";'.
		      'parent.document.getElementById("sl_Ent_ProdTPreco").innerHTML="";'.
		      'parent.document.getElementById("dv_ListaSabores").innerHTML="";'.
		      'parent.document.getElementById("dv_ListaOpcionais").innerHTML="";'.
			  //
              "function Sel_Guia(sOpc) {".
		        "var fm = parent.document.forms.fmEntregaR;".
			    "sAntTarget = fm.target;".
			    "fm.target = 'car_".$sNomeAcesso."4';".
			    "fm.acao.value = 'SELPRO_SELGUIA';".
				"fm.Opc_Quadro.value = sOpc;".
			    "fm.submit();".
			    "fm.target = sAntTarget;".
				"fm.Opc_Quadro.value = '';".
             '}'.
             "function Sel_Produto(sCodigo) {".
		        "var fm = parent.document.forms.fmEntregaR;".
			    "sAntTarget = fm.target;".
			    "fm.target = 'car_".$sNomeAcesso."4';".
			    "fm.acao.value = 'SELPRO_SEL_ITE';".
			    "fm.Ite_Codigo_1.value = sCodigo;".
			    "fm.submit();".
			    "fm.target = sAntTarget;".
             '}'.
             //
             "function Sel_Opcional(sCodigo,sQtd) {".
		        "var fm = parent.document.forms.fmEntregaR;".
			    "sAntTarget = fm.target;".
			    "fm.target = 'car_".$sNomeAcesso."4';".
			    "fm.acao.value = 'SELPRO_SEL_OPC';".
			    "fm.Ite_Codigo_1.value = sCodigo;".
				"fm.Ite_Qtd.value = sQtd;".
			    "fm.submit();".
			    "fm.target = sAntTarget;".
             '}'.
 		     "function Atualiza_Info() {".
		        "var fm = parent.document.forms.fmEntregaR;".
			    "sAntTarget = fm.target;".
			    "fm.target = 'car_".$sNomeAcesso."8';".
			    "fm.acao.value = 'SELPRO_AT_INFO';".
			    "fm.Ite_TipPreco.value = parent.document.getElementById('sl_Ent_ProdTPreco').value;".
			    "fm.Ite_ValorUn.value = parent.document.getElementById('in_Inc_ValorUn').value;".
			    "fm.Ite_Qtd.value = parent.document.getElementById('in_Inc_Quantid').value;".
				"fm.Ite_Observ.value = parent.document.getElementById('in_Inc_Observ').value;".
			    "fm.submit();".
			    "fm.target = sAntTarget;".
			 "}".
 		     "function Atualiza_LIte() {".
		        "var fm = parent.document.forms.fmEntregaR;".
			    "sAntTarget = fm.target;".
			    "fm.target = 'car_".$sNomeAcesso."4';".
			    "fm.acao.value = 'SELPRO_LSTITE';".
			    "fm.submit();".
			    "fm.target = sAntTarget;".
			 "}".
			 "function Inserir_Prod() {".
                "parent.JanEspera(true, 'Inserindo o produto no pedido... Aguarde...');".
	            'Atualiza_Info();'.
				'setTimeout( function () { '.
		          "var fm = parent.document.forms.fmEntregaR;".
			      "sAntTarget = fm.target;".
			      "fm.target = 'car_".$sNomeAcesso."4';".
			      "fm.acao.value = 'SELPRO_GRAVAR';".
			      "fm.submit();".
			      "fm.target = sAntTarget;".
				"} , 500);".
			 "}".
             
             "function Fechar_Tela() {".
		        "var fm = parent.document.forms.fmEntregaR;".
			    "sAntTarget = fm.target;".
			    "fm.target = 'car_".$sNomeAcesso."4';".
			    "fm.acao.value = 'SELPRO_FECHAR';".
			    "fm.submit();".
			    "fm.target = sAntTarget;".
              '}'.
		      "Atualiza_LIte();".
			  'b_LIte_AtInfo = true;'.
			  ( $bModo_Balcao ?
		        'parent.document.getElementById("Ent_Bot_Tel_Cai").style.display="none";'
              :
  		        ''
		      ).
              "parent.document.getElementById('in_Inc_Quantid').focus();".
			  "";
	   }
	   //
	//
	//
	// SELECIONA OUTRA GUIA DOS DADOS DO PRODUTO
	} ElseIf ( $sAcao=="SELPRO_SELGUIA") {
	   $nOpc_Quadro = Somente_Numeros(@$_POST['Opc_Quadro'])+0;
	   $aDadosS['SELPRO']['OPC_QUADRO'] = $nOpc_Quadro;
       $sRet_Javs .=
	      "parent.Car_".$sNomeAcesso."3.Atualiza_LIte();".
		  "parent.document.getElementById('in_Inc_Observ').focus();".
	      "";
	//
	//
	// COLOCAR O PRODUTO NA LISTA DE SABORES
	} ElseIf ( $sAcao=="SELPRO_SEL_ITE") {
	   $nIte_Codigo = Somente_Numeros(@$_POST['Ite_Codigo_1'])+0;
       $sSQLQuery =
         "SELECT pro.*, gru.* ".
         "FROM      cad_produto               AS pro ".
         "LEFT JOIN cad_grupo_produtos        AS gru ON ITE_COD_GRU=GRU_CODIGO ".
         "LEFT JOIN cad_produto_classificacao AS cls ON ITE_COD_CLS=CLS_IDN_CLS ".
         "WHERE ITE_ITEM_ATIVO_ AND ITE_REG_TRAVADO=0 AND CLS_VGARCOM AND ".
       	       "ITE_CODIGOI=".$nIte_Codigo." ".
         ";";
	   $rProduto   = MYSQL_QUERY($sSQLQuery) or die('006 - '.MYSQL_ERROR().'<br>'.$sSQLQuery);
	   $bExecutar  = ($rProduto = MYSQL_FETCH_ARRAY($rProduto));
	   $bCalcPrUn  = False;
       $sLst_IteCod = @$aDadosS['SELPRO']['LST_ITECOD'];
	   $sIte_TipPre = @$aDadosS['SELPRO']['ITE_TIPPRE'];
	   If ($bExecutar) {
	      $nMaxCfg = SQLVarConfig('QTDSAB_PROPRECO'.($sIte_TipPre+0))+0;
		  $nMaxSel = 4;
		  If ( $nMaxCfg>0 ) { $nMaxSel = $nMaxCfg; }
	      $nQtdSel = COUNT( EXPLODE(";",$sLst_IteCod) );
	      $bSelecionado = STRPOS(' ;'.$sLst_IteCod, ';'.$nIte_Codigo.';')>0;
		  If ( $bSelecionado ) {
		     $sLst_IteCod = STR_REPLACE($nIte_Codigo.';',"",$sLst_IteCod);
		     $bCalcPrUn = True;
		  } Else {
		     $bExecutar = $nQtdSel < $nMaxSel;
	         If ($bExecutar) {
		        $sLst_IteCod .= $nIte_Codigo.";";
				$bCalcPrUn = True;
		     }
	      }
		  $aDadosS['SELPRO']['LST_ITECOD'] = $sLst_IteCod;
		  //
          $sRet_Javs .=
		     ( $bCalcPrUn ?
			   "parent.document.getElementById('in_Inc_ValorUn').value='';".
			   "parent.Car_".$sNomeAcesso."3.Atualiza_Info();"
			 : '').
	         "parent.Car_".$sNomeAcesso."3.Atualiza_LIte();".
			 "parent.document.getElementById('in_Inc_Observ').focus();".
	         "";
	   }
	//
	//
	// INSERIR OU REMOVER OPCIONAL
	} ElseIf ( $sAcao=="SELPRO_SEL_OPC") {
	   $nIte_Codigo = Somente_Numeros(@$_POST['Ite_Codigo_1'])+0;
	   $nIte_Quanti = Somente_Numeros(@$_POST['Ite_Qtd'])+0;
       $sSQLQuery =
          "SELECT pro.*, gru.* ".
          "FROM      cad_produto               AS pro ".
          "LEFT JOIN cad_grupo_produtos        AS gru ON ITE_COD_GRU=GRU_CODIGO ".
          "LEFT JOIN cad_produto_classificacao AS cls ON ITE_COD_CLS=CLS_IDN_CLS ".
          "WHERE ITE_ITEM_ATIVO_ AND ITE_REG_TRAVADO=0 AND ITE_COD_GRU>0 AND CLS_VGARCOM AND ".
              "ITE_CODIGOI=".$nIte_Codigo." ".
          ";";
	   $rProduto  = MYSQL_QUERY($sSQLQuery) or die('007 - '.MYSQL_ERROR().'<br>'.$sSQLQuery);
	   $bExecutar = ($rProduto = MYSQL_FETCH_ARRAY($rProduto));
       $sLst_Opcion = @$aDadosS['SELPRO']['LST_OPCION'];
	   $bCalcPrUn = False;
	   //
	   If ($bExecutar) {
	      $aLst_Opcion = EXPLODE(";",$sLst_Opcion);
		  $sLst_Opcion = '';
		  $bEncontrado = False;
          ForEach ( $aLst_Opcion as $sOpcional ) {
		     $aOpcional = EXPLODE(",",$sOpcional);
			 If ( (@$aOpcional[0]+0)==0 ) { CONTINUE; }
			 If ( $nIte_Codigo==($aOpcional[0]+0) ) {  // Encontrado
			    If ( $nIte_Quanti>0 ) {                // Á quantidade
				   $bEncontrado = True;
				   $sLst_Opcion .= $nIte_Codigo.",".$nIte_Quanti.";";
				   $bCalcPrUn = True;
				}
			 } ElseIf ( (@$aOpcional[1]+0)>0 ) {
				$sLst_Opcion .= (@$aOpcional[0]+0).",".(@$aOpcional[1]+0).";";
			 }
		  }
		  If ( (!$bEncontrado) && $nIte_Quanti>0 ) {
		     $sLst_Opcion .= $nIte_Codigo.",".$nIte_Quanti.";";
			 $bCalcPrUn = True;
		  }
		  $aDadosS['SELPRO']['LST_OPCION'] = $sLst_Opcion;
	   }
       //
       $sRet_Javs .=
          ( $bCalcPrUn ?
          //"parent.document.getElementById('in_Inc_ValorUn').value='';".
          "parent.Car_".$sNomeAcesso."3.Atualiza_Info();"
          : '').
          "parent.Car_".$sNomeAcesso."3.Atualiza_LIte();".
		  "parent.document.getElementById('in_Inc_Observ').focus();".
          "";
	   //
	   //
	//
	//
	// ATUALIZA A LISTA DOS ITENS NO DADOS DO PRODUTO
	} ElseIf ( $sAcao=="SELPRO_LSTITE") {
	   $nIte_Codigo = @$aDadosS['SELPRO']['ITE_CODIGO']+0;
	   $sLst_IteCod = @$aDadosS['SELPRO']['LST_ITECOD'];
	   $sLst_Opcion = @$aDadosS['SELPRO']['LST_OPCION'];
	   $sIte_TipPre = @$aDadosS['SELPRO']['ITE_TIPPRE'];
	   $nOpc_Quadro = @$aDadosS['SELPRO']['OPC_QUADRO']+0;
	   $sEnt_TipoFt = ($bModo_Balcao ? 'BAL' : 'ENT');
	   $nIte_Quanti = @$aDadosS['SELPRO']['ITE_QUANTI']+0;
	   $nIte_ValorU = @$aDadosS['SELPRO']['VAL_UNIDAD']+0;
	   $nVal_Opcion = @$aDadosS['SELPRO']['VAL_OPCION']+0;
       $sSQLQuery =
          "SELECT pro.*, gru.* ".
          "FROM      cad_produto               AS pro ".
          "LEFT JOIN cad_grupo_produtos        AS gru ON ITE_COD_GRU=GRU_CODIGO ".
          "LEFT JOIN cad_produto_classificacao AS cls ON ITE_COD_CLS=CLS_IDN_CLS ".
          "WHERE ITE_ITEM_ATIVO_ AND ITE_REG_TRAVADO=0 AND ITE_COD_GRU>0 AND CLS_VGARCOM AND ".
                "ITE_CODIGOI=".$nIte_Codigo." ".
          ";";
	    $rProduto = MYSQL_QUERY($sSQLQuery) or die('008 - '.MYSQL_ERROR().'<br>'.$sSQLQuery);
	    $rProduto = MYSQL_FETCH_ARRAY($rProduto);
	    $sHTML_LstOpcs      = '';
	    $sHTML_LstOpcsT     = '';
		$sHTML_LstTPre      = '';
		$sHTML_LstSabores   = '';
		$sHTML_LstOpcionais = '';
		// Tamanhos
		$aTiposPre = ARRAY(
		   '001' => SQLVarConfig('DESCRI_PROPRECO1'),
		   '002' => SQLVarConfig('DESCRI_PROPRECO2'),
		   '003' => SQLVarConfig('DESCRI_PROPRECO3'),
		   '004' => SQLVarConfig('DESCRI_PROPRECO4'),
		   'NOR' => 'Inteira',
		   'MEI' => 'Meia');
	    ForEach ( $aTiposPre as $sPreTip => $sPreDes ) {
		   $bAdicionarCombo = $rProduto['ITE_PRE_'.$sEnt_TipoFt.'_'.$sPreTip]>0;
	       If ( $bAceiPreZerado ) {
		      If ( $rProduto['GRU_ACTSAB'] ) { // Aceita varios sabores
		         $bAdicionarCombo = ( $sPreTip=='001' OR $sPreTip=='002' OR $sPreTip=='003' OR $sPreTip=='004');
			  } Else {
		         $bAdicionarCombo = ( $sPreTip=='NOR' OR $sPreTip=='MEI');
			  }
		   }
		   If ( $bAdicionarCombo ) {
		      If ( STRLEN($sIte_TipPre)==0 ) { $sIte_TipPre=$sPreTip; }
		      $sHTML_LstTPre .=
                 '<option value="'.$sPreTip.'"'.($sIte_TipPre==$sPreTip ? ' selected' : '').'>'.
                   $sPreDes.
                 '</option>';
		     
			}
		}
		// Sabores
        If ( $rProduto['GRU_ACTSAB'] ) {
		   $sHTML_LstOpcsT .=
		      '<div style="height:16px;"></div>'.
		      '<div align="left" class="botao_guia3'.($nOpc_Quadro==0 ? "S" : "N").'" style="left:10px;" onclick="Car_'.$sNomeAcesso.'3.Sel_Guia('."'0'".');">'.
		       '+ Sabores'.
		      '</div>'.
		      '';
		   //
	       $nMaxCfg = SQLVarConfig('QTDSAB_PROPRECO'.($sIte_TipPre+0))+0;
		   $nMaxSel = 4;
		   If ( $nMaxCfg>0 ) { $nMaxSel = $nMaxCfg; }
	       $nQtdSel = COUNT( EXPLODE(";",$sLst_IteCod) );
		   If ( $nQtdSel > $nMaxSel ) {
		      $sLst_IteCod = "";
		      $aDadosS['SELPRO']['LST_ITECOD'] = $sLst_IteCod;
		   }
		   //
           $sSQLQuery =
              "SELECT pro.* ".
              "FROM      cad_produto               AS pro ".
              "LEFT JOIN cad_produto_classificacao AS cls ON ITE_COD_CLS=CLS_IDN_CLS ".
              "WHERE ITE_ITEM_ATIVO_ AND ITE_REG_TRAVADO=0 AND ITE_COD_GRU>0 AND CLS_VGARCOM AND ".
                    "ITE_COD_GRU=".$rProduto['GRU_CODIGO']." ".
              "ORDER BY ITE_DESCRIC ASC;";
	       $RowsT = MYSQL_QUERY($sSQLQuery) or die('009 - '.MYSQL_ERROR().'<br>'.$sSQLQuery);
           While ($RowT = MYSQL_FETCH_ARRAY($RowsT)) {
			 If(STRLEN($sIte_TipPre)<1) { // quando estiver com preço zerado
		      $sIte_TipPre = 'NOR';
			 }	  
			 $nOpc_PrecoUn = $RowT['ITE_PRE_'.$sEnt_TipoFt.'_'.$sIte_TipPre];
		     If ( $nOpc_PrecoUn==0 && (!$bAceiPreZerado) ) { CONTINUE; }
		     $bSelecionado = $RowT['ITE_CODIGOI']==$nIte_Codigo;
		     $bOnClickHab = False;
		     If ( ! $bSelecionado ) {
		        $bOnClickHab = True;
		        $bSelecionado = STRPOS(' ;'.$sLst_IteCod, ';'.$RowT['ITE_CODIGOI'].';')>0;
		     }
		     If ($bSelecionado) {
		        $sHTML_LstSabores .=
		          $RowT['ITE_DESCRIC'].
		     	 '<br>'.
		     	 '';
		     }
		     //
		     If ( $nOpc_Quadro==0 ) {
		        $sHTML_LstOpcs .=
		   	      '<div class="'.($bSelecionado ? 'Quadro_6F' : 'Quadro_5F').'" '.
				         ( $bOnClickHab ? 'onclick="Car_'.$sNomeAcesso.'3.Sel_Produto('."'".$RowT['ITE_CODIGOI']."'".');"' : '').
				  	   ' style="width:98%; '.($bOnClickHab ? 'cursor:pointer;' : '').'">'.
		   		   '<table width="100%">'.
		   		    '<tr>'.
		   		     '<td height="40px">'.
		   		      '<span style="font-size:14px;">'.
		   		       $RowT['ITE_CODIGOL'].' - '.$RowT['ITE_DESCRIC'].
		   		  	  '</span>'.
		              '<div style="height:5px;"></div>'.
		   		      '<span style="font-size:10px;">'.
		   		       $RowT['ITE_INGRED1'].' '.$RowT['ITE_INGRED2'].
		   		  	  '</span>'.
		   		     '</td>'.
		   		     '<td width="90px" style="font-size:22px;">'.
		   		      'R$ '.FormatoMoeda($nOpc_PrecoUn).
		   		     '</td>'.
		   		    '</tr>'.
		   		   '</table>'.
		   		  '</div>'.
		          '<div style="height:5px;"></div>'.
		   		  '';
	          }
		   }
		} Else {
		   $nOpc_Quadro=1;
		}
		// Opcionais
        If ( $rProduto['GRU_OPCGRU'] ) {
		   $sHTML_LstOpcsT .=
		      '<div style="height:56px;"></div>'.
		      '<div align="left" class="botao_guia3'.($nOpc_Quadro==1 ? "S" : "N").'" style="left:10px;" onclick="Car_'.$sNomeAcesso.'3.Sel_Guia('."'1'".');">'.
		       '+ Opcionais'.
		      '</div>'.
		      "";
		   //
		   $aLst_Opcion = EXPLODE(";",$sLst_Opcion);
		   $aOpcionais_ = ARRAY();
           ForEach ( $aLst_Opcion as $sOpcional ) {
              $aOpcional = EXPLODE(",",$sOpcional);
              If ( (@$aOpcional[0]+0)==0 ) { CONTINUE; }
		      $aOpcionais_[(@$aOpcional[0]+0)] = (@$aOpcional[1]+0);
		   }
		   //
	       $RowsT = MYSQL_QUERY("SELECT * FROM cad_produto WHERE ITE_COD_GRU=".$rProduto['GRU_OPCGRU']." AND ITE_REG_TRAVADO=0 AND ITE_ITEM_ATIVO_ ORDER BY ITE_DESCRIC ASC;") or die(MYSQL_ERROR());
           While ($RowT = MYSQL_FETCH_ARRAY($RowsT)) {
		     $nOpc_PrecoUn = $RowT['ITE_PRE_'.$sEnt_TipoFt.'_NOR'];
		     If ( $nOpc_PrecoUn==0 && (!$bAceiPreZerado) ) { CONTINUE; }
		     //
		     $bSelecionado = STRPOS(' ;'.$sLst_Opcion, ';'.$RowT['ITE_CODIGOI'].',')>0;
		     If ($bSelecionado) {
		        $sHTML_LstOpcionais .=
		          (@$aOpcionais_[$RowT['ITE_CODIGOI']]).'x '.$RowT['ITE_DESCRIC'].
		     	 '<br>'.
		     	 '';
		     }
		     //
		     If ( $nOpc_Quadro==1 ) {
		        $sHTML_LstOpcs .=
		   	      '<div class="'.($bSelecionado ? 'Quadro_6F' : 'Quadro_5F').'" style="width:98%;">'.
		   		   '<table width="100%">'.
		   		    '<tr>'.
		   		     '<td height="40px">'.
		   		      '<span style="font-size:14px;">'.
		   		       $RowT['ITE_CODIGOL'].' - '.$RowT['ITE_DESCRIC'].
		   		  	  '</span>'.
		              '<div style="height:5px;"></div>'.
		   		      '<span style="font-size:10px;">'.
		   		       $RowT['ITE_INGRED1'].' '.$RowT['ITE_INGRED2'].
		   		  	  '</span>'.
		   		     '</td>'.
		   		     '<td width="34px" valign="middle" align="left">'.
					  '<img src="./images/bot1_adicionar.png" style="cursor:pointer;" onclick="Car_'.$sNomeAcesso.'3.Sel_Opcional('."'".$RowT['ITE_CODIGOI']."','".(@$aOpcionais_[$RowT['ITE_CODIGOI']]+1)."'".');">'.
		   		     '</td>'.
		   		     '<td width="20px" valign="middle" align="center">'.
					  (@$aOpcionais_[$RowT['ITE_CODIGOI']]).
		   		     '</td>'.
		   		     '<td width="34px" valign="middle" align="right">'.
					  '<img src="./images/bot1_subtrair.png" '.($bSelecionado ? 'style="cursor:pointer;" onclick="Car_'.$sNomeAcesso.'3.Sel_Opcional('."'".$RowT['ITE_CODIGOI']."','".(@$aOpcionais_[$RowT['ITE_CODIGOI']]-1)."'".');"' : '').'>'.
		   		     '</td>'.
		   		     '<td width="100px" style="font-size:22px;" align="right">'.
		   		      'R$ '.FormatoMoeda($nOpc_PrecoUn).
		   		     '</td>'.
		   		    '</tr>'.
		   		   '</table>'.
		   		  '</div>'.
		          '<div style="height:5px;"></div>'.
		   		  '';
	          }
		  }
	   }
	   //
       $sRet_Javs .=
		   'parent.document.getElementById("dv_SP_ListaOpcs").innerHTML='.JAVA_CharCode($sHTML_LstOpcs).';'.
		   'parent.document.getElementById("dv_SP_ListaOpcsT").innerHTML='.JAVA_CharCode($sHTML_LstOpcsT).';'.
		   'parent.document.getElementById("sl_Ent_ProdTPreco").innerHTML='.JAVA_CharCode($sHTML_LstTPre).';'.
		   'parent.document.getElementById("dv_ListaSabores").innerHTML='.JAVA_CharCode($sHTML_LstSabores).';'.
		   'parent.document.getElementById("dv_ListaOpcionais").innerHTML='.JAVA_CharCode($sHTML_LstOpcionais).';'.
		   'if ( parent.Car_'.$sNomeAcesso.'3.b_LIte_AtInfo ) {'.
		       'parent.Car_'.$sNomeAcesso.'3.b_LIte_AtInfo = false;'.
			   'parent.Car_'.$sNomeAcesso.'3.Atualiza_Info();'.
		   '}'.
		   '';
	//
	//
	// GRAVAR DADOS DO PRODUTO
	} ElseIf ( $sAcao=="SELPRO_GRAVAR") {
	   $sLst_IteCod = @$aDadosS['SELPRO']['LST_ITECOD'];
	   $sLst_Opcion = @$aDadosS['SELPRO']['LST_OPCION'];
	   $sEnt_TipoFt = ($bModo_Balcao ? 'BAL' : 'ENT');
	   $sIte_Observ = @$aDadosS['SELPRO']['ITE_OBSERV'];
	   $aItem = $aDadosS['SELPRO'];
	   $sIte_TipPre = $aItem['ITE_TIPPRE'];
	   $aTipPre = ARRAY( '001' => '1', '002' => '2', '003' => '3', '004' => '4', 'NOR' => 'N', 'MEI' => 'M' );
	   $sIte_TipPre = @$aTipPre[$sIte_TipPre];
	   $aLst_IteCod = EXPLODE(";",$sLst_IteCod);
	   //
	   $aLst_Opcion = EXPLODE(";",$sLst_Opcion);
	   $sLst_Opcion = '';
       ForEach ( $aLst_Opcion as $sOpcional ) {
          $aOpcional = EXPLODE(",",$sOpcional);
          If ( (@$aOpcional[0]+0)==0 ) { CONTINUE; }
		  $nOpc_Cod = (@$aOpcional[0]+0);
		  $nOpc_Qtd = (@$aOpcional[1]+0);
		  If ($nOpc_Qtd>0) {
	         $rO_Produto = MYSQL_QUERY("SELECT * FROM cad_produto WHERE ITE_REG_TRAVADO=0 AND ITE_CODIGOI=".($nOpc_Cod).";") or die(MYSQL_ERROR());
	         If ( $rO_Produto = MYSQL_FETCH_ARRAY($rO_Produto) ) {
		        $nVal_Opcion = $nOpc_Qtd * $rO_Produto['ITE_PRE_'.$sEnt_TipoFt.'_NOR'];
				$sLst_Opcion .= $nOpc_Cod.",".$nOpc_Qtd.",".$nVal_Opcion.";";
		     }
		  }
	   }
	   //
	   //pega o preço custo do cad_produtos 
	   $nIte_Pre_Cus_001 = PuxarPrecoCusto( $aItem['ITE_CODIGO'], $sIte_TipPre );
       If ((@$aLst_IteCod[0]+0)> 0) {
	      $nIte_Pre_Cus_002 = PuxarPrecoCusto( (@$aLst_IteCod[0]+0), $sIte_TipPre);   
	   } Else {
          $nIte_Pre_Cus_002 = 0;
	   }
	    
	   If ((@$aLst_IteCod[1]+0)> 0) {
	      $nIte_Pre_Cus_003 = PuxarPrecoCusto( (@$aLst_IteCod[1]+0), $sIte_TipPre );   
	   } Else {
          $nIte_Pre_Cus_003 = 0;
	   }
	    	   
	   If ((@$aLst_IteCod[2]+0)> 0) {
	      $nIte_Pre_Cus_004 = PuxarPrecoCusto( (@$aLst_IteCod[2]+0), $sIte_TipPre );   
	   } Else {
          $nIte_Pre_Cus_004 = 0;
	   }
	   $nPartes = 1;
	   If ($nIte_Pre_Cus_002>0) { $nPartes++; }
       If ($nIte_Pre_Cus_003>0) { $nPartes++; }
       If ($nIte_Pre_Cus_004>0) { $nPartes++; }
        
	   //Calcula o total do custo
       $nCusto_Total =  (($nIte_Pre_Cus_001+$nIte_Pre_Cus_002+$nIte_Pre_Cus_003+$nIte_Pre_Cus_004)/$nPartes)*$aItem['ITE_QUANTI'];
		
	   //
	   $aFat_Item = ARRAY(
	        'FAT_CODIGOI' => 0,
		    'FAT_DAT_HOR' => DATE("Y-m-d H:i:s"),
		    'FAT_CODITE1' => $aItem['ITE_CODIGO'],
		    'FAT_CODITE2' => (@$aLst_IteCod[0]+0),
		    'FAT_CODITE3' => (@$aLst_IteCod[1]+0),
		    'FAT_CODITE4' => (@$aLst_IteCod[2]+0),
		    'FAT_QTD_ITE' => $aItem['ITE_QUANTI'],
			'FAT_UNITARI' => $aItem['VAL_UNIDAD'],
		    'FAT_PRE_TOT' => ($aItem['VAL_UNIDAD']*$aItem['ITE_QUANTI']),
		    'FAT_PRE_OPC' => $aItem['VAL_OPCION'],
			'FAT_TOTCUST' => $nCusto_Total,
			'FAT_CUS_001' => $nIte_Pre_Cus_001,
			'FAT_CUS_002' => $nIte_Pre_Cus_002,
			'FAT_CUS_003' => $nIte_Pre_Cus_003,
			'FAT_CUS_004' => $nIte_Pre_Cus_004,
		    'FAT_PRE_TIP' => $sIte_TipPre,
		    'FAT_OPCINAL' => $sLst_Opcion,
		    //'FAT_OBSERV1' => SUBSTR($sIte_Observ,0,250),
		    //'FAT_OBSERV2' => SUBSTR($sIte_Observ,250,250),
		    'FAT_OBSERV1' => SUBSTR($sIte_Observ,0,50),
		    'FAT_OBSERV2' => SUBSTR($sIte_Observ,51,50),
			'FAT_CANITEM' => ''
	       );
	   //
	   $aDadosS['FATITE'][] = $aFat_Item;
       $sRet_Javs .=
           "setTimeout( function () { parent.Car_".$sNomeAcesso."3.Fechar_Tela(); } , 200);".
		   '';
	//
	//
	// FECHAR TELA DADOS DO PRODUTO
	} ElseIf ( $sAcao=="SELPRO_FECHAR") {
       $sRet_Javs .=
          "parent.JanEspera(false);".
	      'parent.document.getElementById("Qdr_Cardapio1").style.display="";'.
	      'parent.document.getElementById("Qdr_Cardapio2").style.display="none";'.
		  'parent.document.getElementById("in_Ite_Codigo1").focus();'.
		  "parent.Car_".$sNomeAcesso."1.Ped_Atualizar();".
		  '';
    //
	//
	// ATUALIZAR INFORMACOES
	} ElseIf ( $sAcao=="SELPRO_AT_INFO") {
	   //$nIte_Codigo = Somente_Numeros(@$_POST['Ite_Codigo_1']);
	   $sIte_TipPre = @$_POST['Ite_TipPreco'];
	   
	   $nIte_ValorU = @$_POST['Ite_ValorUn'];
	   $nIte_ValorU = STR_REPLACE(',','.',$nIte_ValorU);
	   $nIte_ValorU = Somente_Numeros($nIte_ValorU,'.')+0;
	 
	   //ESTAVA COLOCANDO INTEIRO NA QUANTIDADE GUS- 06/12/2013
	   //$nIte_Quanti = Somente_Numeros(@$_POST['Ite_Qtd'])+0;
	   $nIte_Quanti = @$_POST['Ite_Qtd'];
	   $nIte_Quanti = STR_REPLACE(',','.',$nIte_Quanti);
	   $nIte_Quanti = Somente_Numeros($nIte_Quanti,'.')+0;
	   
	   $sIte_Observ = UTF8_DECODE(@$_POST['Ite_Observ']);
	   
	   //
	   $nIte_Codigo = $aDadosS['SELPRO']['ITE_CODIGO'];
	   $sEnt_TipoFt = ($bModo_Balcao ? 'BAL' : 'ENT');
	   $sLst_IteCod = $aDadosS['SELPRO']['LST_ITECOD'];
	   $sLst_Opcion = @$aDadosS['SELPRO']['LST_OPCION'];
	   $rProduto = MYSQL_QUERY("SELECT * FROM cad_produto,cad_grupo_produtos WHERE ITE_COD_GRU=GRU_CODIGO AND ITE_REG_TRAVADO=0 AND ITE_CODIGOI=".$nIte_Codigo.";") or die(MYSQL_ERROR());
	   $rProduto = MYSQL_FETCH_ARRAY($rProduto);
	   //
	   
	   If ( $nIte_Quanti<=0 ) {
	      $nIte_Quanti=1;
	   }
	   $bAtualiza_LIte = ( @$aDadosS['SELPRO']['ITE_TIPPRE'] <> $sIte_TipPre );
	   If ($bAtualiza_LIte) {
	      $nIte_ValorU = 0;
	   }
	   $bAtualiza_LIte = ( @$aDadosS['SELPRO']['VAL_UNIDAD'] <> $nIte_ValorU );
	   If ($nIte_ValorU==0) {
	      If(STRLEN($sIte_TipPre)<1) { // quando estiver com preço zerado
		     $sIte_TipPre = 'NOR';
		  }	  
		  $nIte_ValorU = $rProduto['ITE_PRE_'.$sEnt_TipoFt.'_'.$sIte_TipPre];
		  //
		  If ( ! $rProduto['GRU_ACTSAB'] ) {
            // Capturar preço promocional
			$nIte_Pre_Promocao = PuxarPrecoPromocional( $nIte_Codigo );
			If ( $nIte_Pre_Promocao>=0 ) { $nIte_ValorU=$nIte_Pre_Promocao; }
		  
		  }
		  //
		  $aLst_IteCod = EXPLODE(";",$sLst_IteCod);
		  $nQtdIteLst = COUNT($aLst_IteCod);
		  If ( COUNT($aLst_IteCod)>1 ) {
		     ForEach ( $aLst_IteCod as $nCodIte ) {
	            $r_Produto = MYSQL_QUERY("SELECT * FROM cad_produto,cad_grupo_produtos WHERE ITE_COD_GRU=GRU_CODIGO AND ITE_REG_TRAVADO=0 AND ITE_CODIGOI=".($nCodIte+0).";") or die(MYSQL_ERROR());
	            If ( $r_Produto = MYSQL_FETCH_ARRAY($r_Produto) ) {
			       $nIte_ValorI = $r_Produto['ITE_PRE_'.$sEnt_TipoFt.'_'.$sIte_TipPre];
				   If ($nCalcPrecoIte==0) {
				      If ( $nIte_ValorU < $nIte_ValorI ) {
					     $nIte_ValorU = $nIte_ValorI;
					  }
				   } ElseIf ($nCalcPrecoIte==1) {
				      $nIte_ValorU += $nIte_ValorI;
				   }
				}
			 }
			 If ($nCalcPrecoIte==1) {
			    $nIte_ValorU = ($nIte_ValorU/$nQtdIteLst);
		     }
		  }
	   }
	   //
	   $aLst_Opcion = EXPLODE(";",$sLst_Opcion);
	   $nVal_Opcion = 0;
       ForEach ( $aLst_Opcion as $sOpcional ) {
          $aOpcional = EXPLODE(",",$sOpcional);
          If ( (@$aOpcional[0]+0)==0 ) { CONTINUE; }
		  $nOpc_Cod = (@$aOpcional[0]+0);
		  $nOpc_Qtd = (@$aOpcional[1]+0);
		  If ($nOpc_Qtd>0) {
	         $rO_Produto = MYSQL_QUERY("SELECT * FROM cad_produto WHERE ITE_REG_TRAVADO=0 AND ITE_CODIGOI=".($nOpc_Cod).";") or die(MYSQL_ERROR());
	         If ( $rO_Produto = MYSQL_FETCH_ARRAY($rO_Produto) ) {
		        $nVal_Opcion += $nOpc_Qtd * $rO_Produto['ITE_PRE_'.$sEnt_TipoFt.'_NOR'];
		     }
		  }
	   }
	   //
	   $aDadosS['SELPRO']['ITE_TIPPRE'] = $sIte_TipPre;
	   $aDadosS['SELPRO']['ITE_QUANTI'] = $nIte_Quanti;
	   $aDadosS['SELPRO']['VAL_UNIDAD'] = $nIte_ValorU;
	   $aDadosS['SELPRO']['ITE_OBSERV'] = $sIte_Observ;
	   $aDadosS['SELPRO']['VAL_OPCION'] = $nVal_Opcion;
	   //
	   $nValTotalProd = ($nIte_Quanti * $nIte_ValorU) + $nVal_Opcion ;
	   //
       $sRet_Javs .=
          //"parent.document.getElementById('sl_Ent_ProdTPreco').value = '".$sIte_TipPre."';".
          "parent.document.getElementById('in_Inc_ValorUn').value = '".FormatoMoeda($nIte_ValorU)."';".
          "parent.document.getElementById('in_Inc_Quantid').value = '".$nIte_Quanti."';".
		  ( $bAtualiza_LIte ? "parent.Car_".$sNomeAcesso."3.Atualiza_LIte();" : "" ).
		  "parent.document.getElementById('dv_ValTotalProd').innerHTML = 'R$ ".FormatoMoeda($nValTotalProd)."';".
	      'parent.document.getElementById("Ent_Bot_Can").style.display="";'.
	      'parent.document.getElementById("Ent_Bot_Cnf").style.display="";'.
		  '';
    //
	//
    // ALTERAR TIPO DO PEDIDO
    } ElseIf ( $sAcao=="ALT_TIPOFT" ) {
	   $nEnt_TipoFt = @$_POST['Ent_TipoFt']+0;
	   $nGru_Codigo = @$_POST['Gru_Codigo'];
	   //
	   $nEnt_TipoFt  = ($nEnt_TipoFt<1 ? 1 : $nEnt_TipoFt);
       $bModo_Balcao = $nEnt_TipoFt==1;
	   $aDadosS['PEDIDO']['FAT_TIP_LOC'] = $nEnt_TipoFt;
	   //$nFat_Cod_Ent = 0;
	   //If ($nEnt_TipoFt==2) {
       //   $RowT = MYSQL_QUERY("SELECT * FROM cad_funcionario WHERE FUN_ATIVO_ AND FUN_CODIGO<9990 AND FUN_ENTPAD;") or die(MYSQL_ERROR());
       //   If ( $RowT = MYSQL_FETCH_OBJECT($RowT) ) {
	   //      $nFat_Cod_Ent = $RowT->FUN_CODIGO;
		//	 $aDadosS['PEDIDO']['FAT_COD_ENT'] = $nFat_Cod_Ent;
		//  }
	   //}
	   //
       $sRet_Javs .=
	      ( ( (!$bModo_Balcao) && (!EMPTY($_POST['Cli_Codigo'])) )?
		    'parent.document.getElementById("in_Entrega_PedTaxa").value="'.@$aDadosS['PEDIDO']['VAR_TAXASVR'].'";'
		  : "").
	      ( ISSET($aDadosS['SELPRO']['OPC_QUADRO']) ?
			"parent.document.getElementById('in_Inc_ValorUn').value='';".
		    "parent.Car_".$sNomeAcesso."3.Atualiza_Info();".
		    "parent.Car_".$sNomeAcesso."3.Atualiza_LIte();"
		  :
		    ""
		  ).
		  "parent.Car_".$sNomeAcesso."1.Ped_Atualizar();".
		  //"setTimeout( function () { parent.Car_".$sNomeAcesso."1.Sel_Grupo('".$nGru_Codigo."'); } , 300);".
		  "";
    //
	//
    // FECHAR
    } ElseIf ( $sAcao=="FECHAR" ) {
	   $aSessao["JAVA_EXECUTAR_AO_FECHAR"] = "";
       $sRet_Javs .=
	       'parent.document.getElementById("dv_MenuL_Barra").style.visibility="visible";'.
	       "parent.RmElem('".$oJanelaPrinc->sIdObj."');".
		   "";
	   $aDadosS = ARRAY();
		UNSET( $_SESSION[NomeVar_Sessao.'_Tela_B'] );
    //
    // JANELA TELA PRINCIPAL
    } Else {
	   //
	   $aSessao[$sNomeAcesso.'_DESC_ACM_MAX'] = 0;
	   $aDadosS['PEDIDO'] = ARRAY(
	      'FAT_CODIGOI' => 0,
	      'FAT_COD_ENT' => 0,
	      'FAT_TIP_LOC' => 0,
		  'FAT_TOT_VAL' => 0,
		  'FAT_TAXASVR' => 0,
		  'FAT_VALDESC' => 0,
		  'FAT_TOT_REC' => 0,
		  'FAT_TROCOPA' => 0
		  );
	   //
	   $aDadosS['CADCLI'] = ARRAY(
	      'CLI_CODIGO' => 0,
	      'CLI_NOMECP' => ( $bModo_Balcao ? 'Balcão': ''),
		  'CLI_ENDLOG' => '',
		  'CLI_ENDNUM' => '',
		  'CLI_ENDCPL' => '',
		  'CLI_ENDBAI' => '',
		  'CLI_CODCID' => '',
		  'CLI_ENDCEP' => '',
		  'CLI_OBS001' => '',
		  'CLI_OBS002' => '',
		  'CLI_TELEF1' => '',
		  'CLI_TELEF2' => '',
		  'CLI_TELEF3' => '',
		  'CLI_TELEF4' => ''
		  );
	   //
	   $aDadosS['FATITE'] = ARRAY();
	   //
       $oJanelaPrinc->aIdsObjList =
          ARRAY(
            'in_Entrega_CliCod' , 'in_Entrega_CliTel' , 'in_Entrega_CliNom',
			'in_Entrega_CliCEP' , 'in_Entrega_CliLgr' , 'in_Entrega_CliNum',
			'in_Entrega_CliCpl' , 'in_Entrega_CliBai' , 'in_Entrega_CliCid',
			'sl_Entrega_TipoFt' ,
			'in_Entrega_CliTL1' , 'in_Entrega_CliTL2' , 'in_Entrega_CliTL3', 'in_Entrega_CliTL4',
			'in_Ite_Codigo1'    , 'in_Ite_Codigo2'    , 'in_Ite_Codigo3'   , 'in_Ite_Codigo4'   ,
			'in_Ite_Pesquisa'   ,
			'in_Entrega_PedDesc', 'in_Entrega_PedTaxa','in_Entrega_TrocoPa', 'in_Entrega_FunEnt',
			'in_Entrega_CliObs' ,
			'Ent_Data_de'       , 'Ent_Data_ate'      , 'Ent_CodClient'
          );
       //
	   $sCor_BarraSuperior = "#AAAAAA";  // Barra superior
	   $sCor_GuiaBtN1Fundo = "#0000FF";  // Guia dos quadros
	   $sCor_GuiaBtN1Letra = "#FFFFFF";
	   $sCor_GuiaBtS1Fundo = "#FFFFFF";
	   $sCor_GuiaBtS1Letra = "#000000";
	   $sCor_GuiaBtN2Fundo = "#F7931E";  // Guia dos grupos de produtos do cardápio
	   $sCor_GuiaBtN2Letra = "#000000";
	   $sCor_GuiaBtS2Fundo = "#AAAAAA";
	   $sCor_GuiaBtS2Letra = "#000000";
	   $sCor_GuiaBtN3Fundo = "#F7931E";  // Guia dos dados do produto (+ Sabores , Opcionais)
	   $sCor_GuiaBtN3Letra = "#000000";
	   $sCor_GuiaBtS3Fundo = "#FFFFFF";
	   $sCor_GuiaBtS3Letra = "#000000";
	   $sCor_CampoT_1Fundo = "#FFFFFF";  // Campos input
	   $sCor_CampoT_1Letra = "#000000";
	   $sCor_CampoT_2Fundo = "#FFFFFF";  // Campos input
	   $sCor_CampoT_2Borda = "#FFCC00";
	   $sCor_CampoT_2Letra = "#000000";
	   $sCor_Quadro_1Fundo = "#AAAAAA";  //
	   $sCor_Quadro_1Letra = "#FFFFFF";
	   $sCor_Quadro_2Fundo = "#AAAAAA";
	   $sCor_Quadro_2Linha = "#FFFFFF";
	   $sCor_Quadro_2Letra = "#000000";
	   $sCor_Quadro_2F_Can = "#FFAEAE";  // Item Cancelado
	   $sCor_Quadro_2L_Can = "#000000";
	   $sCor_Quadro_3Fundo = "#999999";
	   $sCor_Quadro_3Letra = "#FFFFFF";
	   $sCor_Quadro_4Fundo = "#FFFFFF";
	   $sCor_Quadro_4Letra = "#000000";
	   $sCor_Quadro_5Fundo = "#BBBBBB";
	   $sCor_Quadro_5Letra = "#000000";
	   $sCor_Quadro_6Fundo = "#8CC63F";
	   $sCor_Quadro_6Letra = "#000000";
	   $sCor_Quadro_7Fundo = "#FFFFFF";
	   $sCor_Quadro_7Letra = "#000000";
	   //
       // Tela HTML
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
		  '<style type="text/css" rel="stylesheet">'.
		   '.botao_guia1N {'.
		     'position:relative;'.
		     'display:inline-block;'.
		     'width: 80px;'.
			 'height:30px;'.
		     'background:'.$sCor_GuiaBtN1Fundo.';'.
			 'border:'.$sCor_GuiaBtN1Fundo.' 1px solid;'.
			 'padding:11px;'.
			 'border-radius:18px; -moz-border-radius:18px; -webkit-border-radius:18px;'.
			 'font-size:13px;'.
			 'font-weight:bold;'.
			 'color:'.$sCor_GuiaBtN1Letra.';'.
			 'cursor:pointer;'.
		   '}'.
		   '.botao_guia1S {'.
		     'position:relative;'.
		     'display:inline-block;'.
		     'width: 80px;'.
			 'height:30px;'.
		     'background:'.$sCor_GuiaBtS1Fundo.';'.
			 'border:'.$sCor_GuiaBtS1Fundo.' 1px solid;'.
			 'padding:11px;'.
			 'border-radius:18px; -moz-border-radius:18px; -webkit-border-radius:18px;'.
			 'font-size:13px;'.
			 'font-weight:bold;'.
			 'color:'.$sCor_GuiaBtS1Letra.';'.
			 'cursor:pointer;'.
		   '}'.
		   '.botao_guia2N {'.
		     'position:relative;'.
		     'display:inline-block;'.
		     'width:110px;'.
			 'height:30px;'.
			 'overflow:hidden;'.
		     'background:'.$sCor_GuiaBtN2Fundo.';'.
			 'border:'.$sCor_GuiaBtN2Fundo.' 1px solid;'.
			 'padding:8px;'.
			 'border-radius:18px; -moz-border-radius:18px; -webkit-border-radius:18px;'.
			 'font-size:13px;'.
			 'font-weight:bold;'.
			 'color:'.$sCor_GuiaBtN2Letra.';'.
			 'cursor:pointer;'.
		   '}'.
		   '.botao_guia2S {'.
		     'position:relative;'.
		     'display:inline-block;'.
		     'width:110px;'.
			 'height:30px;'.
			 'overflow:hidden;'.
		     'background:'.$sCor_GuiaBtS2Fundo.';'.
			 'border:'.$sCor_GuiaBtS2Fundo.' 1px solid;'.
			 'padding:8px;'.
			 'border-radius:18px; -moz-border-radius:18px; -webkit-border-radius:18px;'.
			 'font-size:13px;'.
			 'font-weight:bold;'.
			 'color:'.$sCor_GuiaBtS2Letra.';'.
			 'cursor:pointer;'.
		   '}'.
		   '.botao_guia3N {'.
		     'position:absolute;'.
		     'display:inline-block;'.
		     'width:100px;'.
			 'height:30px;'.
		     'background:'.$sCor_GuiaBtN3Fundo.';'.
			 'border:'.$sCor_GuiaBtN2Fundo.' 1px solid;'.
			 'padding:8px;'.
			 'border-radius:18px; -moz-border-radius:18px; -webkit-border-radius:18px;'.
			 'font-size:13px;'.
			 'font-weight:bold;'.
			 'color:'.$sCor_GuiaBtN2Letra.';'.
			 'cursor:pointer;'.
		   '}'.
		   '.botao_guia3S {'.
		     'position:absolute;'.
		     'display:inline-block;'.
		     'width:100px;'.
			 'height:30px;'.
		     'background:'.$sCor_GuiaBtS3Fundo.';'.
			 'border:'.$sCor_GuiaBtS3Fundo.' 1px solid;'.
			 'padding:8px;'.
			 'border-radius:18px; -moz-border-radius:18px; -webkit-border-radius:18px;'.
			 'font-size:13px;'.
			 'font-weight:bold;'.
			 'color:'.$sCor_GuiaBtS3Letra.';'.
			 'cursor:pointer;'.
		   '}'.
		   '.botao_Confirma {'.
		     'position:relative;'.
		     'display:inline-block;'.
		     'width:100px;'.
			 'height:30px;'.
		     'background:#39B54A;'.
			 'border:#39B54A 1px solid;'.
			 'padding:6px;'.
			 'border-radius:16px; -moz-border-radius:16px; -webkit-border-radius:16px;'.
			 'font-size:13px;'.
			 'font-weight:bold;'.
			 'color:#FFFFFF;'.
			 'cursor:pointer;'.
		   '}'.
		   '.botao_Cancela {'.
		     'position:relative;'.
		     'display:inline-block;'.
		     'width:100px;'.
			 'height:30px;'.
		     'background:#C1272D;'.
			 'border:#C1272D 1px solid;'.
			 'padding:6px;'.
			 'border-radius:16px; -moz-border-radius:16px; -webkit-border-radius:16px;'.
			 'font-size:13px;'.
			 'font-weight:bold;'.
			 'color:#FFFFFF;'.
			 'cursor:pointer;'.
		   '}'.
		   '.botao_Finaliza {'.
		     'position:relative;'.
		     'display:inline-block;'.
		     'width:100px;'.
			 'height:30px;'.
		     'background:#39B54A;'.
			 'border:#39B54A 1px solid;'.
			 'padding:4px;'.
			 'border-radius:13px; -moz-border-radius:13px; -webkit-border-radius:13px;'.
			 'font-size:13px;'.
			 'font-weight:bold;'.
			 'color:#FFFFFF;'.
			 'cursor:pointer;'.
		   '}'.
		   '.botao_Ab_Ped {'.
		     'position:absolute;'.
			 'text-align:center;'.
		     'width:140px;'.
			 'height:30px;'.
		     'background:#C1272D;'.
			 'border:#C1272D 1px solid;'.
			 'padding:4px;'.
			 'border-radius:13px; -moz-border-radius:13px; -webkit-border-radius:13px;'.
			 'font-size:13px;'.
			 'font-weight:bold;'.
			 'color:#FFFFFF;'.
			 'cursor:pointer;'.
		   '}'.
			'.botao_Ab_Ped_1 {'.
		     'position:absolute;'.
			 'text-align:center;'.
		     'width:140px;'.
			 'height:30px;'.
		     'background:#3CB371;'.
			 'border:#3CB371 1px solid;'.
			 'padding:4px;'.
			 'border-radius:13px; -moz-border-radius:13px; -webkit-border-radius:13px;'.
			 'font-size:13px;'.
			 'font-weight:bold;'.
			 'color:#FFFFFF;'.
			 'cursor:pointer;'.
		   '}'.
			'.Quadro_1F {'.
		     'background:'.$sCor_Quadro_1Fundo.';'.
			 'border:'.$sCor_Quadro_1Fundo.' 1px solid;'.
			 'padding:8px;'.
			 'border-radius:18px; -moz-border-radius:18px; -webkit-border-radius:18px;'.
			 'font-size:13px;'.
			 'color:'.$sCor_Quadro_1Letra.';'.
		   '}'.
		   '.Quadro_2F {'.
		     'background:'.$sCor_Quadro_2Fundo.';'.
			 'border:'.$sCor_Quadro_2Fundo.' 1px solid;'.
			 'padding:11px;'.
			 'border-radius:18px; -moz-border-radius:18px; -webkit-border-radius:18px;'.
			 'font-size:11px;'.
			 'color:'.$sCor_Quadro_2Letra.';'.
		   '}'.
		   '.Quadro_2L {'.
		     'background:'.$sCor_Quadro_2Linha.';'.
			 'border:'.$sCor_Quadro_2Linha.' 1px solid;'.
			 'padding:4px;'.
			 'border-radius:14px; -moz-border-radius:14px; -webkit-border-radius:14px;'.
			 'font-size:11px;'.
			 'color:'.$sCor_Quadro_2Letra.';'.
		   '}'.
		   '.Quadro_2L_Rec {'.
		     'background:#C1FFC1;'.
			 'border:'.$sCor_Quadro_2Linha.' 1px solid;'.
			 'padding:4px;'.
			 'border-radius:14px; -moz-border-radius:14px; -webkit-border-radius:14px;'.
			 'font-size:11px;'.
			 'color:'.$sCor_Quadro_2Letra.';'.
		   '}'.
		   '.Quadro_2_Can {'.
		     'background:'.$sCor_Quadro_2F_Can.';'.
			 'border:'.$sCor_Quadro_2F_Can.' 1px solid;'.
			 'padding:4px;'.
			 'border-radius:14px; -moz-border-radius:14px; -webkit-border-radius:14px;'.
			 'font-size:11px;'.
			 'color:'.$sCor_Quadro_2L_Can.';'.
		   '}'.
		   '.Quadro_3F {'.
		     'background:'.$sCor_Quadro_3Fundo.';'.
			 'border:'.$sCor_Quadro_3Fundo.' 1px solid;'.
			 'padding:11px;'.
			 'border-radius:18px; -moz-border-radius:18px; -webkit-border-radius:18px;'.
			 'font-size:11px;'.
			 'color:'.$sCor_Quadro_3Letra.';'.
		   '}'.
		   '.Quadro_4F {'.
		     'background:'.$sCor_Quadro_4Fundo.';'.
			 'border:'.$sCor_Quadro_4Fundo.' 1px solid;'.
			 'padding:4px;'.
			 'border-radius:18px; -moz-border-radius:18px; -webkit-border-radius:18px;'.
			 'font-size:11px;'.
			 'color:'.$sCor_Quadro_4Letra.';'.
		   '}'.
		   '.Quadro_5F {'.
		     'background:'.$sCor_Quadro_5Fundo.';'.
			 'border:'.$sCor_Quadro_5Fundo.' 1px solid;'.
			 'padding:4px;'.
			 'border-radius:10px; -moz-border-radius:10px; -webkit-border-radius:10px;'.
			 'font-size:11px;'.
			 'color:'.$sCor_Quadro_5Letra.';'.
		   '}'.
		   '.Quadro_6F {'.
		     'background:'.$sCor_Quadro_6Fundo.';'.
			 'border:'.$sCor_Quadro_6Fundo.' 1px solid;'.
			 'padding:4px;'.
			 'border-radius:10px; -moz-border-radius:10px; -webkit-border-radius:10px;'.
			 'font-size:11px;'.
			 'color:'.$sCor_Quadro_6Letra.';'.
		   '}'.
		   '.Quadro_7F {'.
		     'background:'.$sCor_Quadro_7Fundo.';'.
			 'border:'.$sCor_Quadro_7Fundo.' 1px solid;'.
			 'padding:2px;'.
			 'border-radius:6px; -moz-border-radius:6px; -webkit-border-radius:6px;'.
			 'font-size:11px;'.
			 'color:'.$sCor_Quadro_7Letra.';'.
		   '}'.
		   '.CampoTipo1 {'.
		     'background:'.$sCor_CampoT_1Fundo.';'.
			 'border:'.$sCor_CampoT_1Fundo.' 1px solid;'.
			 'padding:2px;'.
			 'border-radius:6px; -moz-border-radius:6px; -webkit-border-radius:6px;'.
			 'font-size:13px;'.
			 'color:'.$sCor_CampoT_1Letra.';'.
		   '}'.
		   '.CampoTipo2 {'.
		     'position:relative; left:-3px;'.
		     'background:'.$sCor_CampoT_2Fundo.';'.
			 'border:'.$sCor_CampoT_2Borda.' 1px solid;'.
			 'padding:2px;'.
			 'border-radius:3px; -moz-border-radius:3px; -webkit-border-radius:3px;'.
			 'font-size:13px;'.
			 'color:'.$sCor_CampoT_2Letra.';'.
		   '}'.
		   '.table_Ped1 td { font-weight:bold; font-size:14px; color:#000000; }'.
		   '.table_Ped1 input,select {'.
		     'background:'.$sCor_CampoT_1Fundo.';'.
			 'border:'.$sCor_CampoT_1Fundo.' 1px solid;'.
			 'padding:2px;'.
			 'border-radius:6px; -moz-border-radius:6px; -webkit-border-radius:6px;'.
			 'font-size:13px;'.
			 'color:'.$sCor_CampoT_1Letra.';'.
		   '}'.
		  '</style>'.
 		  '<div style="position:absolute; top:-300px;">'.
           '<form name="fmEntregaR" accept-charset="utf-8" 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="Cli_Codigo" type="hidden" value="">'.
            '<input name="Cli_NomeCP" type="hidden" value="">'.
            '<input name="Cli_Telefone" type="hidden" value="">'.
            '<input name="Cli_Telef1" type="hidden" value="">'.
            '<input name="Cli_Telef2" type="hidden" value="">'.
            '<input name="Cli_Telef3" type="hidden" value="">'.
            '<input name="Cli_Telef4" type="hidden" value="">'.
            '<input name="Cli_EndCEP" type="hidden" value="">'.
            '<input name="Cli_EndLgr" type="hidden" value="">'.
            '<input name="Cli_EndBai" type="hidden" value="">'.
            '<input name="Cli_EndNum" type="hidden" value="">'.
            '<input name="Cli_EndCpl" type="hidden" value="">'.
            '<input name="Cli_EndCid" type="hidden" value="">'.
			'<input name="Cli_Observ" type="hidden" value="">'.
            '<input name="Gru_Codigo" type="hidden" value="">'.
            '<input name="Ite_BCodigoL" type="hidden" value="">'.
            '<input name="Ite_Codigo_1" type="hidden" value="">'.
            '<input name="Ite_Codigo_2" type="hidden" value="">'.
            '<input name="Ite_Codigo_3" type="hidden" value="">'.
            '<input name="Ite_Codigo_4" type="hidden" value="">'.
            '<input name="Ite_TipPreco" type="hidden" value="">'.
			'<input name="Ent_TipoFt" type="hidden" value="">'.
            '<input name="Ite_Qtd" type="hidden" value="">'.
            '<input name="Ite_ValorUn" type="hidden" value="">'.
            '<input name="Ite_Observ" type="hidden" value="">'.
            '<input name="Opc_Quadro" type="hidden" value="">'.
			'<input name="in_Ped_TaxaEnt" type="hidden" value="">'.
			'<input name="in_Ped_TrocoPa" type="hidden" value="">'.
			'<input name="in_Ped_Fun_Ent" type="hidden" value="">'.
			'<input name="in_Ped_PedDesc" type="hidden" value="">'.
            '<input name="Fat_CodigoI" type="hidden" value="">'.
            '<input name="NumFatG" type="hidden" value="">'.
			'<input name="Ite_Pesquisa" type="hidden" value="">'.
			'<input name="Per_Desc" type="hidden" value="">'.
			'<input name="Per_Valor" type="hidden" value="">'.
            '<input name="Fat_Data_de" type="hidden" value="">'.
			'<input name="Fat_Data_ate" type="hidden" value="">'.
          '</form>'.
		  '</div>'.
		  //
		  '<div style="position:relative; width:100%;">'.
		   '<div style="position:relative; width:100%; height:23px; background-color:'.$sCor_BarraSuperior.';">'.
		    //'<img src="./images/logo_simsoft_x80.png" border="0" style="position:relative; top:15px; left:20px;">'.
		   '</div>'.
		   '&nbsp;&nbsp;&nbsp;'.
		   '<div style="position:relative; top:-34; left:3px; height:23px;">'.
            '<span id="Ent_Guia_Cli" class="botao_guia1N" onclick="Car_'.$sNomeAcesso.'1.Sel_Guia(1);">'.
             'Cliente'.
            '</span>'.
            '&nbsp;'.
            '<span id="Ent_Guia_Car" class="botao_guia1N" onclick="Car_'.$sNomeAcesso.'1.Sel_Guia(2);">'.
             'Cardápio'.
            '</span>'.
            '&nbsp;'.
            '<span id="Ent_Guia_Ped" class="botao_guia1N" onclick="Car_'.$sNomeAcesso.'1.Sel_Guia(3);">'.
             'Pedido'.
            '</span>'.
            '&nbsp;'.
            '<span id="Ent_Guia_Com" class="botao_guia1N" onclick="Car_'.$sNomeAcesso.'1.Sel_Guia(4);">'.
             'Consultas'.
            '</span>'.
            //
            '<span id="Ent_Bot_Ab_Ped" class="botao_Ab_Ped" style="display:none; top:5px; left:'.($nJ_LarguraReal-170).'px;" onclick="Car_'.$sNomeAcesso.'1.Ped_Abandonar();">'.
             '<div style="height:6px;"></div>'.
             'Abandonar pedido'.
            '</span>'.
            '<span id="Ent_Bot_Tel_Cai" class="botao_Ab_Ped_1" style="display:inline; top:5px; left:'.($nJ_LarguraReal-340).'px;" onclick="Car_'.$sNomeAcesso.'1.Tel_Cai('."''".');">'.
              '<div style="height:4px;"></div>'.
              '<img src="./images/menu_fin_contasreceber.png" border="0" width="25px" height="25px" title="Caixa" style="cursor:pointer;">'.
             '<span style="position:relative; top:-9px;">&nbsp;&nbsp;Caixa</span>'. 
            '</span>'.
		   '</div>'.
		   // Cliente
		   '<div id="Qdr_Cliente">'.
		    '<table width="100%">'.
			 '<tr>'.
			  '<td align="center">'.
		       '<div class="Quadro_1F" style="position:relative; width:860px;">'.
			    //
		        '<table width="100%">'.
				 '<tr>'.
				  '<td width="90px" align="right" style="font-size:13px;">'.
			       'Código:'.
				  '</td>'.
				  '<td width="78px" align="left">'.
		           '<input id="in_Entrega_CliCod" value="" maxlength="8" type="text" onchange="Car_'.$sNomeAcesso.'1.Puxar_Cli_Cod();" class="CampoTipo1" style="width:70px;">'.
				  '</td>'.
				  '<td width="70px" align="right" style="font-size:13px;">'.
		           'Telefone:'.
				  '</td>'.
				  '<td align="left" width="110px">'.
				   '<input id="in_Entrega_CliTel" maxlength="12" type="text" onchange="Car_'.$sNomeAcesso.'1.Puxar_Cli_Tel();" class="CampoTipo1" style="width:105px;">'.
				  '</td>'.				  
				  '<td align="right" width="44px" style="font-size:13px;">'.
				   'Nome:'.
				  '</td>'.				  
				  '<td align="left">'.
			       '<input id="in_Entrega_CliNom" maxlength="60" type="text" class="CampoTipo1" style="width:426px;" onchange="Car_'.$sNomeAcesso.'1.Env_Dados_Cli();">'.
				  '</td>'.				  
				 '</tr>'.
				'</table>'.
		        '<table width="100%">'.
				 '<tr>'.
				  '<td width="90px" align="right" style="font-size:13px;">'.
			       'Telefones:'.
				  '</td>'.
				  '<td align="left">'.
		           '<input id="in_Entrega_CliTL1" maxlength="13" type="text" value="" class="CampoTipo1" style="width:100px;" onchange="Car_'.$sNomeAcesso.'1.Env_Dados_Cli();">'.
				   '&nbsp;&nbsp;'.
		           '<input id="in_Entrega_CliTL2" maxlength="13" type="text" value="" class="CampoTipo1" style="width:100px;" onchange="Car_'.$sNomeAcesso.'1.Env_Dados_Cli();">'.
				   '&nbsp;&nbsp;'.
		           '<input id="in_Entrega_CliTL3" maxlength="13" type="text" value="" class="CampoTipo1" style="width:100px;" onchange="Car_'.$sNomeAcesso.'1.Env_Dados_Cli();">'.
				   '&nbsp;&nbsp;'.
		           '<input id="in_Entrega_CliTL4" maxlength="13" type="text" value="" class="CampoTipo1" style="width:100px;" onchange="Car_'.$sNomeAcesso.'1.Env_Dados_Cli();">'.
				  '</td>'.
				  '<td width="100px" align="right" style="font-size:13px;">'.
		           'Cadastro:'.
				  '</td>'.
				  '<td width="87px" align="left">'.
	               '<span id="sp_Entrega_DtaCad" class="CampoTipo1" style="display:inline-block; text-align:left; width:70px; font-weight:bold; font-size:12px;">&nbsp;</span>'.
				  '</td>'.
				  '<td>'.
				  '</td>'.
				 '</tr>'.
				'</table>'.
		        '<table width="100%">'.
				 '<tr>'.
				  '<td width="90px" align="right" style="font-size:13px;">'.
		           'CEP:'.
		          '</td>'.
				  '<td width="80px" align="left">'.
		           '<input id="in_Entrega_CliCEP" maxlength="80" type="text" class="CampoTipo1" style="width:74px;" onchange="Car_'.$sNomeAcesso.'1.Env_Dados_Cli();">'.
		          '</td>'.
				  '<td width="30px" align="left">'.
       	           HTML_Botao( 3, 'Ent_BT_Psq' , 'Car_'.$sNomeAcesso.'1.Cli_LocCEP();'
			                    , ''  ,'images/btimg_lupa.png',24).
		          '</td>'.
				  '<td width="80px" align="right" style="font-size:13px;">'.
		           'Logradouro:'.
		          '</td>'.
				  '<td width="382px" align="left">'.
		           '<input id="in_Entrega_CliLgr" maxlength="80" type="text" class="CampoTipo1" style="width:376px;" onchange="Car_'.$sNomeAcesso.'1.Env_Dados_Cli();">'.
		          '</td>'.
				  '<td width="66px" align="right" style="font-size:13px;">'.
		           'Número:'.
		          '</td>'.
				  '<td align="left">'.
		           '<input id="in_Entrega_CliNum" maxlength="20" type="text" class="CampoTipo1" style="width:76px;" onchange="Car_'.$sNomeAcesso.'1.Env_Dados_Cli();">'.
		          '</td>'.
				 '</tr>'.
				'</table>'.
		        '<table width="100%">'.
				 '<tr>'.
				  '<td width="90px" align="right" style="font-size:13px;">'.
		           'Complemento:'.
		          '</td>'.
				  '<td width="106px" align="left">'.
		           '<input id="in_Entrega_CliCpl" maxlength="80" type="text" class="CampoTipo1" style="width:100px;" onchange="Car_'.$sNomeAcesso.'1.Env_Dados_Cli();">'.
		          '</td>'.
				  '<td width="98px" align="right" style="font-size:13px;">'.
			       'Bairro:'.
		          '</td>'.
				  '<td width="170px" align="left">'.
			       '<input id="in_Entrega_CliBai" maxlength="40" type="text" class="CampoTipo1" style="width:160px;" onchange="Car_'.$sNomeAcesso.'1.Env_Dados_Cli();">'.
		          '</td>'.
				  '<td>'.
		          '</td>'.
				 '</tr>'.
				'</table>'.
		        '<table width="100%">'.
				 '<tr>'.
				  '<td width="90px" align="right" style="font-size:13px;">'.
		           'Cidade:'.
		          '</td>'.
				  '<td width="76px" align="left">'.
		           '<input id="in_Entrega_CliCid" maxlength="7" type="text" class="CampoTipo1" style="width:74px;" onchange="Car_'.$sNomeAcesso.'1.Env_Dados_Cli();">'.
		          '</td>'.
				  '<td width="200px" align="left">'.
				   '<span id="sp_Ent_NomCidade" style="font-size:13px;"></span>'.
		          '</td>'.
				  '<td>'.
		          '</td>'.
				 '</tr>'.
				'</table>'.
		        '<table width="100%">'.
				 '<tr>'.
				  '<td width="90px" align="right" style="font-size:13px;">'.
		           'Pedido:'.
		          '</td>'.
				  '<td align="left">'.
				   '<select id="sl_Entrega_TipoFt" class="CampoTipo1" style="width:140px;" onchange="Car_'.$sNomeAcesso.'1.Alt_TipoFt();">'.
				     '<option value="1">BALCÃO</option>'.
				     '<option value="2">DISK ENTREGA</option>'.
				   '</select>'.
		          '</td>'.
				 '</tr>'.
				'</table>'.
		        '<table width="100%">'.
				 '<tr>'.
				  '<td align="right">'.
                    HTML_Botao( 3, 'Entrega_BT_Cli_Avc', 'Car_'.$sNomeAcesso.'1.Sel_Guia(2);'
                                 , 'Avançar > (F10)' ,'images/btimg_ativar.png',140).
		          '</td>'.
				  '<td width="40px">'.
		          '</td>'.
				 '</tr>'.
				'</table>'.
				//
			   '</div>'.
			   '<div style="height:30px;"></div>'.
			  '</td>'.
			 '</tr>'.
			'</table>'.
		   '</div>'.
		   // Cardápio
		   '<div id="Qdr_Cardapio">'.
		    '<div id="Qdr_Cardapio1" style="height:'.($nTela_H-196).'px; overflow:auto;" align="right">'.
		     '<table width="800px" style="position:relative; left:-4px;" class="Quadro_2F">'.
			  '<tr>'.
			   '<td width="70px" align="right" style="font-size:13px; color:'.$sCor_CampoT_1Fundo.'; font-weight:bold;">'.
			    'Produtos:'.
			   '</td>'.
			   '<td align="left" width="230px">'.
		        '<input id="in_Ite_Codigo1" maxlength="5" type="text" value="" class="CampoTipo1" style="width:50px;" onchange="Car_'.$sNomeAcesso.'1.ValidaCodIte('."'1'".')">'.
			    '&nbsp;&nbsp;'.
		        '<input id="in_Ite_Codigo2" maxlength="5" type="text" value="" class="CampoTipo1" style="width:50px;" onchange="Car_'.$sNomeAcesso.'1.ValidaCodIte('."'2'".')">'.
			    '&nbsp;&nbsp;'.
		        '<input id="in_Ite_Codigo3" maxlength="5" type="text" value="" class="CampoTipo1" style="width:50px;" onchange="Car_'.$sNomeAcesso.'1.ValidaCodIte('."'3'".')">'.
			    '&nbsp;&nbsp;'.
		        '<input id="in_Ite_Codigo4" maxlength="5" type="text" value="" class="CampoTipo1" style="width:50px;" onchange="Car_'.$sNomeAcesso.'1.ValidaCodIte('."'4'".')">'.
			   '</td>'.
			   '<td align="left" width="320px">'.
                 HTML_Botao( 3, 'bt_Ite_Incluir', 'Car_'.$sNomeAcesso.'1.Sel_Produto_4Ite();'
                   , 'Incluir produtos (INS)' ,'images/btimg_novo.png',170).
		       '</td>'.
			   '<td align="left">'.
                 HTML_Botao( 3, 'Entrega_BT_Cli_Avc2', 'Car_'.$sNomeAcesso.'1.Sel_Guia(3);'
                              , 'Avançar > (F10)' ,'images/btimg_ativar.png',140).
		       '</td>'.
			  '</tr>'.
			  '<tr>'.
			   '<td align="right" style="font-size:13px; color:'.$sCor_CampoT_1Fundo.'; font-weight:bold;">'.
			    'Procurar:'.
			   '</td>'.
			   '<td>'.
		        '<input id="in_Ite_Pesquisa" maxlength="40" type="text" value="" class="CampoTipo1" style="width:218px;" onchange="Car_'.$sNomeAcesso.'1.Cardapio_Psq();">'.
			   '</td>'.
			   '<td align="left">'.
                 HTML_Botao( 3, 'bt_Ite_Pesquisa', 'Car_'.$sNomeAcesso.'1.Cardapio_Psq();'
                   , 'Pesquisar produtos' ,'images/btimg_lupa.png',170).
		       '</td>'.
			   '<td>'.
		       '</td>'.
			  '</tr>'.
			 '</table>'.
		     '<table width="100%">'.
		      '<tr>'.
		       '<td align="right" valign="top">'.
		        '<div id="dv_ListaGrupos" style="position:relative; top:-80px;"></div>'.
		       '</td>'.
		       '<td width="790px" align="left" valign="top">'.
		        '<div id="dv_ListaProdutos" align="center" class="Quadro_2F" style="position:relative; width:775px;">'.
                '</div>'.
		       '</td>'.
		      '</tr>'.
		     '</table>'.
		    '</div>'.
		    // Dados do produto
		    '<div id="Qdr_Cardapio2" style="display:none; position:relative; top:0px; left:'.(($oJanelaPrinc->nWidth-970)/2).'px; width:935px; height:'.($nTela_H-220).'px;" class="Quadro_3F">'.
			 '<span style="font-size:20px;" id="sp_Ite_Descric"></span>'.
			 '<div style="height:6px;"></div>'.
		     '<table width="100%" class="table_Ped1">'.
		      '<tr>'.
		       '<td align="right" valign="middle" width="130px">'.
			    'Tamanho:'.
		       '</td>'.
		       '<td align="left" valign="middle" width="150px">'.
				 '<select id="sl_Ent_ProdTPreco" style="width:95%;" onchange="Car_'.$sNomeAcesso.'3.Atualiza_Info();">'.
				 '</select>'.
		       '</td>'.
		       '<td align="right" valign="middle" width="100px">'.
			    'Quantidade:'.
		       '</td>'.
		       '<td align="left" valign="middle" width="50px">'.
			    '<input id="in_Inc_Quantid" type="text" style="width:95%;" onchange="Car_'.$sNomeAcesso.'3.Atualiza_Info();">'.
		       '</td>'.
		       '<td align="right" valign="middle" width="120px">'.
			    'Valor unitário:'.
		       '</td>'.
		       '<td align="left" valign="middle" width="110px">'.
			    '<input id="in_Inc_ValorUn" type="text" style="width:95%;" onchange="Car_'.$sNomeAcesso.'3.Atualiza_Info();">'.
		       '</td>'.
		       '<td></td>'.
		      '</tr>'.
		     '</table>'.
		     '<table width="100%" class="table_Ped1">'.
			  '<tr>'.
		       '<td align="right" valign="middle" width="130px">'.
			    'Observações:'.
		       '</td>'.
		       '<td align="left" valign="middle" width="569px">'.
			    '<input id="in_Inc_Observ" type="text" style="width:95%;" onchange="Car_'.$sNomeAcesso.'3.Atualiza_Info();">'.
		       '</td>'.
		       '<td></td>'.
			  '</tr>'.
		     '</table>'.
		     '<table width="100%" class="table_Ped1">'.
			  '<tr>'.
		       '<td width="35px">'.
			   '</td>'.
		       '<td align="left" valign="top" width="630px" class="Quadro_4F">'.
			    '<div style="height:'.($nTela_H-320).'px; overflow:auto;">'.
		         '<table width="100%">'.
			      '<tr>'.
		           '<td width="70px" id="dv_SP_ListaOpcsT" align="left" valign="top">'.
				   '</td>'.
		           '<td id="dv_SP_ListaOpcs" align="left" valign="top">'.
				   '</td>'.
				  '</tr>'.
				 '</table>'.
				'</div>'.
		       '</td>'.
		       '<td valign="top" align="left">'.
			    '<div style="font-size:15px; color:'.$sCor_GuiaBtN3Fundo.';">'.
				 '+ Sabores'.
				'</div>'.
			    '<div id="dv_ListaSabores" style="height:70px; margin-left:5px; font-size:12px; color:'.$sCor_GuiaBtS3Fundo.';">'.
				'</div>'.
			    '<div style="font-size:17px; color:'.$sCor_GuiaBtN3Fundo.';">'.
				 'Opcionais'.
				'</div>'.
			    '<div id="dv_ListaOpcionais" style="height:90px; margin-left:5px; font-size:12px; color:'.$sCor_GuiaBtS3Fundo.';">'.
				'</div>'.
			    '<div style="font-size:20px; color:'.$sCor_GuiaBtN3Fundo.';">'.
				 'Total'.
				'</div>'.
			    '<div id="dv_ValTotalProd" align="right" style="margin-right:5px; font-size:36px; color:'.$sCor_GuiaBtS3Fundo.';">'.
				 'R$ 0,00'.
				'</div>'.
			    '<div style="height:14px;"></div>'.
		        '<span id="Ent_Bot_Can" class="botao_Cancela" style="left:10px;" onclick="Car_'.$sNomeAcesso.'3.Fechar_Tela();">'.
		         'Cancelar (ESC)'.
		        '</span>'.
		        '<span id="Ent_Bot_Cnf" class="botao_Confirma" style="left:20px;" onclick="Car_'.$sNomeAcesso.'3.Inserir_Prod();">'.
		         'Confirmar (F10)'.
		        '</span>'.
			   '</td>'.
			  '</tr>'.
		     '</table>'.
		    '</div>'.
			'<div style="height:3px;"></div>'.
		   '</div>'.
		   // Pedido
		   '<div id="Qdr_Pedido">'.
		    '<table width="100%">'.
		     '<tr>'.
		      //'<td align="right" valign="top">'.
		      // //Guias
		      //'</td>'.
		      '<td width="840px" align="center" valign="top">'.
			   // **
		       '<div align="center" class="Quadro_2F" style="position:relative; width:810px">'.
		        '<table width="100%">'.
		         '<tr>'.
		          '<td align="right" valign="top">'.
				   //
			       '<div style="height:5px;"></div>'.
		           '<div class="Quadro_7F" style="position:relative; width:98%; height:188px;">'.
				    '<div id="dv_Ent_Alerta_TipPed" style="height:30px; font-size:16px; font-weight:bold; line-height:30px;" align="center"></div>'.
		            '<table width="100%">'.
		             '<tr>'.
		              '<td valign="middle">'.
		               '<table width="100%">'.
		                '<tr>'.					  
					     '<td align="center" valign="middle" id="dv_Ped_Dados">'.
						 '</td>'.
						'</tr>'.
		                '<tr>'.					  
					     '<td align="left">'.
						  ( $bModo_Balcao ?
		                  '<table width="100%">'.
				           '<tr>'.
				            '<td width="80px" align="right" valign="middle">'.
		                     'Nome:'.
		                    '</td>'.
				            '<td align="left">'.
		                     '<input id="in_Entrega_CliNom_2" maxlength="60" type="text" class="CampoTipo2" style="width:300px;" onchange="'."document.getElementById('in_Entrega_CliNom').value=document.getElementById('in_Entrega_CliNom_2').value; ".'Car_'.$sNomeAcesso.'1.Env_Dados_Cli();">'.
		                    '</td>'.
				           '</tr>'.
				          '</table>'
						  : '').
		                  '<table width="100%">'.
				           '<tr>'.
				            '<td width="80px" align="right" valign="middle">'.
		                     'Observações:'.
		                    '</td>'.
				            '<td align="left">'.
		                     '<input id="in_Entrega_CliObs" maxlength="100" type="text" class="CampoTipo2" style="width:300px;" onchange="Car_'.$sNomeAcesso.'1.Env_Dados_Cli();">'.
		                    '</td>'.
				           '</tr>'.
				          '</table>'.
		                  '<table width="100%" id="dvPedVen_Entregador">'.
		                   '<tr>'.
					        '<td align="right" valign="middle" width="80px">'.
						     'Entregador:'.
					        '</td>'.
					        '<td align="left" valign="middle">'.
			                 '<select id="in_Entrega_FunEnt" class="CampoTipo2" style="width:300px; font-size:11px; font-family:Courier;" onchange="Car_'.$sNomeAcesso.'1.Ped_Atualizar();">'.
			                  '<option value="0">-- Nenhum --</option>'.
			                 '</select>'.
					        '</td>'.
					       '</tr>'.
					      '</table>'.
						 '</td>'.
						'</tr>'.
					   '</table>'.
				      '</td>'.
					  '<td width="230px" valign="top">'.
		               '<table width="100%">'.
		                '<tr>'.					  
					     '<td valign="middle" align="right" width="120px">'.
					      'Total de produtos (+):'.
					     '</td>'.
					     '<td valign="middle" align="left" style="font-size:12px; font-weight:bold;" id="dv_Ent_TotalPro">'.
					     '</td>'.
						'</tr>'.
						'<tr>'.
					     '<td valign="middle" align="right">'.
					      'Desconto (-):'.
					     '</td>'.
					     '<td valign="middle" align="left" style="font-size:12px; font-weight:bold;">'.
						  'R$ <input id="in_Entrega_PedDesc" class="CampoTipo2" maxlength="12" type="text" style="font-size:12px; font-weight:bold; width:70px;" onchange="Car_'.$sNomeAcesso.'1.Ped_Atualizar();">'.
					     '</td>'.
						'</tr>'.
						'<tr id="td_Entrega_PedTaxa">'.
					     '<td valign="middle" align="right">'.
					      'Taxa de entrega (+):'.
					     '</td>'.
					     '<td valign="middle" align="left" style="font-size:12px; font-weight:bold;">'.
						  'R$ <input id="in_Entrega_PedTaxa" class="CampoTipo2" maxlength="12" type="text" style="font-size:12px; font-weight:bold; width:70px;" onchange="Car_'.$sNomeAcesso.'1.Ped_Atualizar();">'.
					     '</td>'.
						'</tr>'.
						'<tr>'.
					     '<td valign="middle" align="right">'.
					      'Total á pagar (+):'.
					     '</td>'.
					     '<td valign="middle" align="left" style="font-size:12px; font-weight:bold; color:#CC3300;" id="dv_Ent_TotalLiq">'.
					     '</td>'.
						'</tr>'.
						'<tr>'.
					     '<td valign="middle" align="right">'.
					      'Troco para:'.
					     '</td>'.
					     '<td valign="middle" align="left" style="font-size:12px; font-weight:bold;">'.
						  'R$ <input id="in_Entrega_TrocoPa" class="CampoTipo2" maxlength="12" type="text" style="font-size:12px; font-weight:bold; width:70px;" onchange="Car_'.$sNomeAcesso.'1.Ped_Atualizar();">'.
					     '</td>'.
						'</tr>'.
						'<tr  id="td_Entrega_TrocoPa">'.
					     '<td valign="middle" align="right">'.
					      'Troco:'.
					     '</td>'.
					     '<td valign="middle" align="left" style="font-size:12px; font-weight:bold;" id="dv_Ent_TrocoRe">'.
					     '</td>'.
						'</tr>'.
					   '</table>'.
					  '</td>'.
					  '<td width="130px" valign="bottom" align="center">'.
		               '<span id="Ent_Bot_PedFim" class="botao_Finaliza" onclick="Car_'.$sNomeAcesso.'1.Ped_Finaliza();">'.
		                'Finalizar pedido (F10)'.
		               '</span>'.
					  '</td>'.
		             '</tr>'.
		            '</table>'.
				   '</div>'.
				   //
			       '<div style="height:5px;"></div>'.
		           '<div align="center" id="dv_Ped_LstItens" style="position:relative; width:98%; height:'.($nTela_H-437).'px; background-color:'.$sCor_Quadro_2Fundo.'; overflow:auto;">'.
				   '</div>'.
		          '</td>'.
		         '</tr>'.
		        '</table>'.
               '</div>'.
			   // **
		      '</td>'.
		     '</tr>'.
		    '</table>'.
			'<div style="height:4px;"></div>'.
		   '</div>'.
		   // Consulta de comandas
		   '<div id="Qdr_Comandas">'.
		    '<table width="100%" height="100%">'.
			 '<tr>'.
			  '<td align="right" valign="top">'.
		       '<div style="height:6px;"></div>'.
		       '<span id="Ent_Guia_Com1" align="left" class="botao_guia2N" style="left:20px; z-index:1;" onclick="Car_'.$sNomeAcesso.'1.Sel_Guia_Com(1);">'.
		        'Pendentes'.
		       '</span>'.
		       '<div style="height:6px;"></div>'.
		       '<span id="Ent_Guia_Com2" align="left" class="botao_guia2N" style="left:20px; z-index:1;" onclick="Car_'.$sNomeAcesso.'1.Sel_Guia_Com(2);">'.
		        'Recebidas'.
		       '</span>'.
		       '<div style="height:6px;"></div>'.
		       '<span id="Ent_Guia_Com3" align="left" class="botao_guia2N" style="left:20px; z-index:1; '.( $bModo_Balcao ? 'display:none;' : '').'" onclick="Car_'.$sNomeAcesso.'1.Sel_Guia_Com(3);">'.
		        '5 Ultimos pedidos'.
		       '</span>'.
			  '</td>'.
			  '<td align="left" valign="middle" style="font-weight:bold; font-size:13px; color:#FFFFFF;">'.
		       '<div align="center" class="Quadro_2F" style="position:relative; width:800px;">'.
			    '<div style="height:5px;"></div>'.
				 '<table width="100%" border="0">'.
				  '<tr>'.
				   '<td width="20px" align="right" style="font-size:13px; color:'.$sCor_CampoT_1Fundo.'; font-weight:bold;">'.
				    'Dê:'.
				   '</td>'.
				   '<td width="20px" align="center">'.
				    '<img src="images/bimg_calendario.png" border="0" id="img_data_de" style="cursor:pointer;">'.
				   '</td>'.
				   '<td width="90px" align="left" style="font-size:13px; color:'.$sCor_CampoT_1Fundo.'; font-weight:bold;">'.
				    '<input id="Ent_Data_de" type="text" value="'.ConvertDataUSBR($sData_Trabalho).'" "maxlength="10" style="width:75px; height:22px; background:#FFFBEC; border-width: 1px; border-style:solid; border-color:#0099FF;">'.
				   '</td>'.
				   '<td width="20px" align="right" style="font-size:13px; color:'.$sCor_CampoT_1Fundo.'; font-weight:bold;">'.
				    'Até:'.
				   '</td>'.
				   '<td width="20px" align="center">'.
				    '<img src="images/bimg_calendario.png" border="0" id="img_data_ate" style="cursor:pointer;">'.
				   '</td>'.
				   '<td width="90px" align="left" style="font-size:13px; color:'.$sCor_CampoT_1Fundo.'; font-weight:bold;">'.
				    '<input id="Ent_Data_ate" type="text" value="'.ConvertDataUSBR($sData_Trabalho).'" maxlength="10" style="width:75px; height:22px; background:#FFFBEC; border-width: 1px; border-style:solid; border-color:#0099FF;">'.
                   '</td>'.					   					   
				   '<td width="30px" align="center">'.
       	            HTML_Botao( 3, 'Ent_BT_PsqCli' , "document.getElementById('Ent_CodCliente').value='/';".
			                                         'Car_'.$sNomeAcesso.'1.Com_PuxarCliente();'
			                     , ''  ,'images/btimg_lupa.png',24).
                   '</td>'.					   					   
				   '<td align="left" style="font-size:13px; color:'.$sCor_CampoT_1Fundo.'; font-weight:bold;">'.
				    'Cliente:'.
				    '<input id="Ent_CodCliente" type="text" value="" maxlength="6" onchange="Car_'.$sNomeAcesso.'1.Com_PuxarCliente();" style="width:55px; height:22px; background:#FFFBEC; border-width: 1px; border-style:solid; border-color:#0099FF;">'.
					'&nbsp;<span id="Ent_NomeCliente" style="color:#FFFFCC;"></span>'.
                   '</td>'.
				   '<td align="left" width="130">'.
				    HTML_Botao( 3, 'bt_Ite_Pesquisa', 'Car_'.$sNomeAcesso.'1.Com_Atualizar();', 'Consultar' ,'images/btimg_lupa.png',100).
				   '</td>'.
				  '</tr>'.				 
				 '</table>'.
			    '</div>'.
	           '</div>'.
		       '<div align="center" id="dv_Com_Lista" style="position:relative; top:-6px; left:9px; width:810px; height:'.($nTela_H-262).'px; background-color:'.$sCor_Quadro_2Fundo.'; overflow:auto;">'.
			   '</div>'.
			  '</td>'.
			 '</tr>'.
		    '</table>'.
		   '</div>'.
		   //
		   '<div style="position:relative; width:100%; height:30px; background-color:#0064FA;">'.
		    '<table width="100%" height="100%">'.
			 '<tr>'.
			  '<td align="right" width="250px">'.
			   '<span id="sp_Ent_BarStatus" style="font-weight:bold; color:#FFFFFF; font-size:13px;"></span>'.
			  '</td>'.
			  '<td align="right">'.
			  '</td>'.
			  '<td width="180px" align="right" valign="middle" style="font-weight:bold; font-size:13px; color:#FFFFFF;">'.
			   'Total do pedido: '.
			   '<span id="sp_Ent_TotalPed" style="color:#000000; font-size:14px;">0,00</span>'.
			  '</td>'.
			  '<td width="30px">'.
			  '</td>'.
			 '</tr>'.
			'</table>'.
		   '</div>'.
		  '</div>'.
		  //
		  $oJanelaPrinc->MontaJanHTML(False);
	   //
	   // Java anterior
       $sRet_Javs .=
	      'parent.document.getElementById("dv_MenuL_Barra").style.visibility="hidden";'.
		  'n_NumGuiaAtual = 0;'.
		  'n_OpcEstadoCom = 0;'.
		  'b_Editando = false;'.
		  "bTeclaEnter = false;".
		  //
		  "function Sel_Guia(nNumGuia) {".
		    "var GuiaCli = parent.document.getElementById('Ent_Guia_Cli');".
		    "var GuiaCar = parent.document.getElementById('Ent_Guia_Car');".
		    "var GuiaPed = parent.document.getElementById('Ent_Guia_Ped');".
		    "var GuiaCom = parent.document.getElementById('Ent_Guia_Com');".
		    "var Qdr_Cli = parent.document.getElementById('Qdr_Cliente');".
			"var Qdr_Car = parent.document.getElementById('Qdr_Cardapio');".
			"var Qdr_Ped = parent.document.getElementById('Qdr_Pedido');".
			"var Qdr_Com = parent.document.getElementById('Qdr_Comandas');".
			"GuiaCli.className='botao_guia1N';".
			"GuiaCar.className=GuiaCli.className;".
			"GuiaPed.className=GuiaCli.className;".
			"GuiaCom.className=GuiaCli.className;".
			"Qdr_Cli.style.display='none';".
			"Qdr_Car.style.display='none';".
			"Qdr_Ped.style.display='none';".
			"Qdr_Com.style.display='none';".
			"n_NumGuiaAtual = nNumGuia;".
			"if ( nNumGuia==1 ) {".  // Cliente
			   "GuiaCli.className='botao_guia1S';".
			   "Qdr_Cli.style.display='inline';".
	           'parent.document.getElementById("in_Entrega_CliTel").focus();'.
			"}".
			"if ( nNumGuia==2 ) {".  // Cardapio
			   "Qdr_Car.style.display='';".
			   "GuiaCar.className='botao_guia1S';".
			   'parent.document.getElementById("in_Ite_Codigo1").focus();'.
			"}".
			"if ( nNumGuia==3 ) {".  // Pedido
			   "Qdr_Ped.style.display='';".
			   "GuiaPed.className='botao_guia1S';".
			   "if ( parent.document.getElementById('in_Entrega_CliNom_2') != null ) {".
			      "parent.document.getElementById('in_Entrega_CliNom_2').focus();".
			   "} else {".
			      "parent.document.getElementById('in_Entrega_CliObs').focus();".
			   "}".
			"}".
			"if ( nNumGuia==4 ) {".  // Comandas
			   "Qdr_Com.style.display='';".
			   "GuiaCom.className='botao_guia1S';".
			   'parent.document.getElementById("Ent_Data_de").focus();'.
			   "Com_PuxarCliente();".
			   "Com_Atualizar();".
			"}".
		  "}".
		  "function Alt_TipoFt() {".
		    "var fm = parent.document.forms.fmEntregaR;".
			"sAntTarget = fm.target;".
			"fm.target = 'car_".$sNomeAcesso."6';".
			"fm.acao.value = 'ALT_TIPOFT';".
			"fm.Ent_TipoFt.value = parent.document.getElementById('sl_Entrega_TipoFt').value;".
			"fm.submit();".
			"fm.Ent_TipoFt.value = '';".
			"fm.target = sAntTarget;".
		  "}".
          "function Sel_Grupo(sCodigo) {".
		    "var QuadroP = parent.document.getElementById('dv_ListaProdutos');".
		    "var QuadroC = parent.document.getElementById('Qdr_Cardapio1');".
			//"if ( QuadroC.scrollTop > 90 ) {".
            //    "QuadroC.scrollTop=90;".
			//"}".
            "QuadroC.scrollTop=0;".
			"QuadroP.innerHTML = ".JAVA_CharCode($sHTMLQdrAguarde).";".
		    "var fm = parent.document.forms.fmEntregaR;".
			"sAntTarget = fm.target;".
			"fm.target = 'car_".$sNomeAcesso."4';".
			"fm.acao.value = 'PUXAR_PRODUTOS';".
			"fm.Gru_Codigo.value = sCodigo;".
			"fm.submit();".
			"fm.target = sAntTarget;".
          '}'.
		  "function ValidaCodIte(sNumCampo) {".
		    "var fm = parent.document.forms.fmEntregaR;".
		    "var Ite1 = parent.document.getElementById('in_Ite_Codigo1').value;".
		    "var Ite2 = parent.document.getElementById('in_Ite_Codigo2').value;".
		    "var Ite3 = parent.document.getElementById('in_Ite_Codigo3').value;".
		    "var Ite4 = parent.document.getElementById('in_Ite_Codigo4').value;".
			"sAntTarget = fm.target;".
			"fm.target = 'car_".$sNomeAcesso."8';".
			"fm.acao.value = 'SELPRO_VALIDA';".
			"fm.Ite_Codigo_1.value = Ite1;".
			"fm.Ite_Codigo_2.value = Ite2;".
			"fm.Ite_Codigo_3.value = Ite3;".
			"fm.Ite_Codigo_4.value = Ite4;".
			"fm.Ite_BCodigoL.value = sNumCampo;".
			"fm.submit();".
			"fm.target = sAntTarget;".
          '}'.
          "function Sel_Produto(sCodigo,sPreco,sCodigo2,sCodigo3,sCodigo4,sBCodigoL) {".
		    "var fm = parent.document.forms.fmEntregaR;".
			"sAntTarget = fm.target;".
			"fm.target = 'car_".$sNomeAcesso."3';".
			"fm.acao.value = 'SELPRO_ABRIR';".
			"fm.Ite_Codigo_1.value = sCodigo;".
			"fm.Ite_Codigo_2.value = sCodigo2;".
			"fm.Ite_Codigo_3.value = sCodigo3;".
			"fm.Ite_Codigo_4.value = sCodigo4;".
			"fm.Ite_BCodigoL.value = sBCodigoL;".
			"fm.Ite_TipPreco.value = sPreco;".
			"fm.submit();".
			"fm.target = sAntTarget;".
          '}'.
          
          //
 		  "function Sel_Produto_4Ite() {".
		     "var Ite1 = parent.document.getElementById('in_Ite_Codigo1').value;".
		     "var Ite2 = parent.document.getElementById('in_Ite_Codigo2').value;".
		     "var Ite3 = parent.document.getElementById('in_Ite_Codigo3').value;".
		     "var Ite4 = parent.document.getElementById('in_Ite_Codigo4').value;".
		     "Sel_Produto(Ite1,'',Ite2,Ite3,Ite4,'1');".
			 "parent.document.getElementById('in_Ite_Codigo1').value = '';".
			 "parent.document.getElementById('in_Ite_Codigo2').value = '';".
			 "parent.document.getElementById('in_Ite_Codigo3').value = '';".
			 "parent.document.getElementById('in_Ite_Codigo4').value = '';".
		  "}".
		  "function MarcaCan_Item(sPosicaoItem,sCancelado) {".
		    "var fm = parent.document.forms.fmEntregaR;".
			"sAntTarget = fm.target;".
			"fm.target = 'car_".$sNomeAcesso."4';".
			"fm.acao.value = 'PED_MARCACAN_ITEM';".
			"fm.Ite_Codigo_1.value = sPosicaoItem;".
			"fm.Ite_BCodigoL.value = sCancelado;".
			"fm.submit();".
			"fm.Ite_Codigo_1.value = '';".
			"fm.Ite_BCodigoL.value = '';".
			"fm.target = sAntTarget;".
		  "}".
         "function Ped_Atualizar() {".
		      "var fm = parent.document.forms.fmEntregaR;".
			   "sAntTarget = fm.target;".
			   "fm.target = 'car_".$sNomeAcesso."7';".
			   "fm.in_Ped_TaxaEnt.value = parent.document.getElementById('in_Entrega_PedTaxa').value;".
			   "fm.in_Ped_TrocoPa.value = parent.document.getElementById('in_Entrega_TrocoPa').value;".
			   "fm.in_Ped_Fun_Ent.value = parent.document.getElementById('in_Entrega_FunEnt').value;".
			   "fm.in_Ped_PedDesc.value = parent.document.getElementById('in_Entrega_PedDesc').value;".
			   "fm.acao.value = 'PED_ATUALIZAR';".
			   "fm.submit();".
			   "fm.in_Ped_TaxaEnt.value = '';".
			   "fm.in_Ped_TrocoPa.value = '';".
			   "fm.in_Ped_Fun_Ent.value = '';".
			   "fm.in_Ped_PedDesc.value = '';".
			   "fm.target = sAntTarget;".
         '}'.
		  "function Ped_Finaliza() {".
		     "Ped_Atualizar();".
			 "if ( b_Editando ) {".
                 "parent.Qdr_Prompt_H(true,'Deseja gerar ticked de produção<br>de todos os produtos novamente?',".
                 JAVA_CharCode(
				    "sTickedTudo='0';".
                    "if (_NUM_BOT_==1) { ".
                       'sTickedTudo="1";'.
                    "}".
		            "parent.JanEspera(true, 'Validando o pedido... Aguarde...');".
			        'setTimeout( function () { parent.Car_'.$sNomeAcesso.'1.Ped_Finaliza_2(sTickedTudo); } , 500);'
				    ).
                 ",['Sim','Não']);".
			 "} else {".
		         "parent.JanEspera(true, 'Validando o pedido... Aguarde...');".
			     'setTimeout( function () { parent.Car_'.$sNomeAcesso.'1.Ped_Finaliza_2("0"); } , 500);'.
			 "}".
 		  "}".
		  "function Ped_Finaliza_2(sTickedTd) {".
		    "var fm = parent.document.forms.fmEntregaR;".
			"sAntTarget = fm.target;".
			"fm.target = 'car_".$sNomeAcesso."4';".
			"fm.Ite_ValorUn.value = sTickedTd;".
			"fm.acao.value = 'PED_FINALIZA';".
			"fm.submit();".
			"fm.Ite_ValorUn.value = '';".
			"fm.acao.value = '';".
			"fm.target = sAntTarget;".
 		  "}".
		  "function Ped_AbrirFat(sFat_CodigoI) {".
		   'if ( parent.document.getElementById("Ent_Bot_Ab_Ped").style.display=="none" ) {'.
		       "var fm = parent.document.forms.fmEntregaR;".
			    "sAntTarget = fm.target;".
			    "fm.target = 'car_".$sNomeAcesso."4';".
			    "fm.Fat_CodigoI.value = sFat_CodigoI;".
			    "fm.acao.value = 'PED_ABRIRFAT';".
			    "fm.submit();".
			    "fm.Fat_CodigoI.value = '';".
			    "fm.target = sAntTarget;".
			 "} else {".
			    'parent.Alerta_Simples("Há um pedido em andamento.",1,"Abrir pedido");'.
			 "}".
		  "}".
		  "function Ped_Abandonar() {".
            "parent.Qdr_Prompt_H(true,'Tem certeza que deseja abandonar este pedido?',".
              JAVA_CharCode(
                 "if (_NUM_BOT_==1) { ".
                    'parent.Car_'.$sNomeAcesso.'1.Ped_Abandonar_2();'.
                 "}").
            ",['Sim','Não']);".
 		  "}".
		  "function Ped_Abandonar_2() {".
		    "var fm = parent.document.forms.fmEntregaR;".
			"sAntTarget = fm.target;".
			"fm.target = 'car_".$sNomeAcesso."4';".
			"fm.Fat_CodigoI.value = 'ABANDONA';".
			"fm.Ite_ValorUn.value = '';".
			"fm.acao.value = 'PED_FINALIZA';".
			"fm.submit();".
			"fm.Fat_CodigoI.value = '';".
			//BALCAO
			//($nTela_B==1 ?
         //   $oJanelaPrinc->sJavOnClickF			
			//:
				"fm.target = sAntTarget;".
 		   //).
		  "}".
		  "function GerarCupom(sFat_CodigoI) {".
		    "var fm = parent.document.forms.fmEntregaR;".
			"sAntTarget = fm.target;".
			"fm.target = 'car_".$sNomeAcesso."4';".
			"fm.Fat_CodigoI.value = sFat_CodigoI;".
			"fm.acao.value = 'GERAR_CUPOM';".
			"fm.submit();".
			"fm.Fat_CodigoI.value = '';".
			"fm.target = sAntTarget;".
		  "}".
          "function Com_Atualizar() {".
		    "var fm = parent.document.forms.fmEntregaR;".
			"sAntTarget = fm.target;".
			"fm.target = 'car_".$sNomeAcesso."8';".
			"fm.Ite_BCodigoL.value = n_OpcEstadoCom;".
			"fm.Fat_Data_de.value = parent.document.getElementById('Ent_Data_de').value;".
			"fm.Fat_Data_ate.value = parent.document.getElementById('Ent_Data_ate').value;".
			"fm.Cli_Codigo.value = parent.document.getElementById('Ent_CodCliente').value;".
			"fm.acao.value = 'COM_ATUALIZAR';".
			"fm.submit();".
			"fm.target = sAntTarget;".
			"fm.Ite_BCodigoL.value = '';".
		  "}".
          "function Com_PuxarCliente() {".
		    "var fm = parent.document.forms.fmEntregaR;".
			"sAntTarget = fm.target;".
			"fm.target = 'car_".$sNomeAcesso."9';".
			"fm.Cli_Codigo.value = parent.document.getElementById('Ent_CodCliente').value;".
			"fm.acao.value = 'COM_PUXARCLIENTE';".
			"fm.submit();".
			"fm.target = sAntTarget;".
			"fm.Ite_BCodigoL.value = '';".
		  "}".
		  "function Sel_Guia_Com(nNumGuia) {".
		    "var GuiaPen = parent.document.getElementById('Ent_Guia_Com1');".
		    "var GuiaRec = parent.document.getElementById('Ent_Guia_Com2');".
		    "var GuiaUlt = parent.document.getElementById('Ent_Guia_Com3');".
			"var In_D_De = parent.document.getElementById('Ent_Data_de');".
			"var In_DAte = parent.document.getElementById('Ent_Data_ate');".
			"GuiaPen.className='botao_guia2N';".
			"GuiaRec.className=GuiaPen.className;".
			"GuiaUlt.className=GuiaPen.className;".
			"n_OpcEstadoCom=nNumGuia;".
			"In_D_De.readOnly = false;".
			"In_D_De.style.background = '';".
			"if ( nNumGuia==1 ) {".  // Pendentes
			   "GuiaPen.className='botao_guia2S';".
			"}".
			"if ( nNumGuia==2 ) {".  // Recebidos
			   "GuiaRec.className='botao_guia2S';".
			"}".
			"if ( nNumGuia==3 ) {".  // 5 Ultimos pedidos
			   "GuiaUlt.className='botao_guia2S';".
			   "In_D_De.readOnly = true;".
			   "In_D_De.style.background = '#999999';".
			"}".
			"In_DAte.readOnly = In_D_De.readOnly;".
			"In_DAte.style.background = In_D_De.style.background;".
			"Com_Atualizar();".
		  "}".
		  "function Cardapio_Psq() {".
		    "var fm = parent.document.forms.fmEntregaR;".
			"sAntTarget = fm.target;".
			"fm.target = 'car_".$sNomeAcesso."10';".
			"fm.Ite_Pesquisa.value = parent.document.getElementById('in_Ite_Pesquisa').value;".
			"fm.acao.value = 'PUXAR_PRODUTOS';".
			"fm.Gru_Codigo.value = '';".
			"fm.submit();".
			"fm.target = sAntTarget;".
		  "}".
		  "function Cli_LocCEP() {".
		    "parent.JanEspera(true, 'Localizando CEP... Aguarde...');".
		    "setTimeout( function () { ".
		       "var fm = parent.document.forms.fmEntregaR;".
			   "sAntTarget = fm.target;".
			   "fm.target = 'car_".$sNomeAcesso."10';".
			   "fm.Cli_EndCEP.value = parent.document.getElementById('in_Entrega_CliCEP').value;".
			   "fm.acao.value = 'PUXAR_CEP';".
			   "fm.submit();".
			   "fm.Cli_EndCEP.value = '';".
			   "fm.target = sAntTarget;".
			"}, 500);".
		  "}".
		  "function Abrir_Cupom(s_CodFat) {".
		    $sJavaTravarJ.
		    "var fm = parent.document.forms.fmEntregaR;".
		    "sAntTarget = fm.target;".
		    "fm.target = 'car_RELFTG2';".
		    "fm.acao.value = '_AVULSO_';".
    	    "fm.nomeacs.value='RELFTG';".
		    "fm.mod.value = 'fin_fat_geral';".
            "fm.submod.value='CUPOM';".
		    "fm.Fat_CodigoI.value=s_CodFat;".
		    "fm.submit();".
		    "fm.Fat_CodigoI.value='';".
            "fm.mod.value='".$sModulo."';".
            "fm.submod.value='';".
            "fm.acao.value='';".
    	    "fm.nomeacs.value='".$sNomeAcesso."';".
		    "fm.target = sAntTarget;".
		  "}".
		  "function Tel_Cai(s_CodFat) {".
		  	$sJavaTravarJ.
		  	"var fm = parent.document.forms.fmEntregaR;".
		  	"sAntTarget = fm.target;".
		    "fm.acao.value = '_AVULSO_';".
		  	"fm.nomeacs.value='CXARCL';".
		  	"fm.mod.value = 'cxa_receber_local';".
		    "fm.NumFatG.value=s_CodFat;".
		  	"if ( s_CodFat.length==0 ) {".
		        "fm.target = 'car_CXARCL1';".
                "fm.submod.value='';".
		  	"} else {".
		        "fm.target = 'car_CXARCL5';".
		  	    "fm.submod.value='REC';".
		  	"}".
            "fm.submit();".
		   	"fm.target = sAntTarget;".
		  	"fm.mod.value='".$sModulo."';".
		    "fm.NumFatG.value='';".
            "fm.acao.value='';".
    	    "fm.nomeacs.value='".$sNomeAcesso."';".
     	  "}".
		  '';
	   //
       // Java posterior
       $sRet_JavsPos .=
	      'Sel_Guia(1);'.
		  "Sel_Grupo('');".
		  //"Ped_Atualizar();".
		  "Alt_TipoFt();".
		  "Sel_Guia_Com(1);".
		  //
          // calendario
	      'parent.Calendar.setup({ '.
            'inputField : "Ent_Data_de", '.
            'trigger    : "img_data_de", '.
            'onSelect   : function() { this.hide();  }, '.
            'showTime   : 0, '.
            'dateFormat : "%d/%m/%Y" '.
          '});'.		  
          'parent.Calendar.setup({ '.
            'inputField : "Ent_Data_ate", '.
            'trigger    : "img_data_ate", '.
            'onSelect   : function() { this.hide(); }, '.
            'showTime   : 0, '.
            'dateFormat : "%d/%m/%Y" '.
          '});'.	  
		  'function Puxar_Cli_Tel() {'.
		    "var _fmR = parent.document.forms.fmEntregaR;".
            "_fmR.submod.value=''; ".
			"_fmR.Cli_Telefone.value=parent.document.getElementById('in_Entrega_CliTel').value;".
			"_fmR.Cli_Codigo.value='';".
         	"_fmR.acao.value='PUXAR_CLIENTE';".
         	"_fmR.submit(); ".
		  '}'.
		  'function Puxar_Cli_Cod() {'.
		    "var _fmR = parent.document.forms.fmEntregaR;".
            "_fmR.submod.value=''; ".
			"_fmR.Cli_Codigo.value=parent.document.getElementById('in_Entrega_CliCod').value;".
			"_fmR.Cli_Telefone.value='';".
         	"_fmR.acao.value='PUXAR_CLIENTE';".
         	"_fmR.submit(); ".
		  '}'.
		  //
		  'function FECHAR_JAN() {'.
		    "var _fmR = parent.document.forms.fmEntregaR;".
            "_fmR.submod.value=''; ".
			  	"_fmR.acao.value='FECHAR';".
         	"_fmR.submit(); ".
		  '}'.
		  //
		  'function Env_Dados_Cli() {'.
		    "var _fmR = parent.document.forms.fmEntregaR;".
			"sAntTarget = _fmR.target;".
			"_fmR.target = 'car_".$sNomeAcesso."9';".
            "_fmR.submod.value='';".
		    "_fmR.Cli_NomeCP.value = parent.document.getElementById('in_Entrega_CliNom').value;".
		    "_fmR.Cli_Telef1.value = parent.document.getElementById('in_Entrega_CliTL1').value;".
		    "_fmR.Cli_Telef2.value = parent.document.getElementById('in_Entrega_CliTL2').value;".
		    "_fmR.Cli_Telef3.value = parent.document.getElementById('in_Entrega_CliTL3').value;".
		    "_fmR.Cli_Telef4.value = parent.document.getElementById('in_Entrega_CliTL4').value;".
			"_fmR.Cli_EndCEP.value = parent.document.getElementById('in_Entrega_CliCEP').value;".
			"_fmR.Cli_EndLgr.value = parent.document.getElementById('in_Entrega_CliLgr').value;".
			"_fmR.Cli_EndBai.value = parent.document.getElementById('in_Entrega_CliBai').value;".
			"_fmR.Cli_EndNum.value = parent.document.getElementById('in_Entrega_CliNum').value;".
			"_fmR.Cli_EndCpl.value = parent.document.getElementById('in_Entrega_CliCpl').value;".
			"_fmR.Cli_EndCid.value = parent.document.getElementById('in_Entrega_CliCid').value;".
			"_fmR.Cli_Observ.value = parent.document.getElementById('in_Entrega_CliObs').value;".
         	"_fmR.acao.value='CLI_DADOS_AT';".
         	"_fmR.submit(); ".
			"_fmR.target = sAntTarget;".
		  '}'.
		  //
		  "function Teclas_F( Objeto, Evento ) {".
             "vNumTecla = parent.Tecla_Apertada(Evento);".
			 "sAntFocus = parent.sIdHasFocus;".
			 "bTeclaEnter = false;".
		     "if ( vNumTecla==116) { ".        // ** [F5] **           // Não atualizar
                 //
		     "} else if ( vNumTecla==27) { ".  // ** [ESC] **         // (SAIR)
                  //"setTimeout( parent.document.getElementById('Entrega_BT_Fch').onclick , 100);".
				  "if ( n_NumGuiaAtual==1 ) {".  // Guia do cliente
				      'if ( parent.document.getElementById("Ent_Bot_Ab_Ped").style.display=="none" ) {'.
				          $oJanelaPrinc->sJavOnClickF.
					  '} else {'.
					      'Ped_Abandonar();'.
					  '}'.
				  "} else if ( n_NumGuiaAtual==2 ) {".  // Guia do cardápio
	                  'if ( parent.document.getElementById("Qdr_Cardapio2").style.display=="" ) {'.
					      'parent.Car_'.$sNomeAcesso.'3.Fechar_Tela();'.
					  '} else {'.
		                  "Sel_Guia(1);".
					  '}'.
				  "} else if ( n_NumGuiaAtual==3 ) {".  // Guia do pedido
		              "Sel_Guia(2);".
				  "}".
				  //
		     "} else if ( vNumTecla==45) { ".  // ** [INS] **
			     "if ( sAntFocus.substring(0,17) == 'in_Entrega_CliCEP' ) { ".
					 'parent.Car_'.$sNomeAcesso.'1.Cli_LocCEP();'.
			     "} else if ( sAntFocus.substring(0,13) == 'in_Ite_Codigo' ) { ".
                     "Sel_Produto_4Ite();".
				 "}".
				 //
		     "} else if ( vNumTecla==121) { ". // ** [F10] **          // Avançar
				  "if ( n_NumGuiaAtual==1 ) {".  // Guia do cliente
		              "Sel_Guia(2);".
				  "} else if ( n_NumGuiaAtual==2 ) {".  // Guia do cardápio
	                  'if ( parent.document.getElementById("Qdr_Cardapio2").style.display=="" ) {'.
                          'parent.Car_'.$sNomeAcesso.'3.Inserir_Prod();'.
                      '} else if ( parent.document.getElementById("Qdr_Cardapio1").style.display=="" ) {'.
		                  "Sel_Guia(3);".
					  '}'.
				  "} else if ( n_NumGuiaAtual==3 ) {".  // Guia do pedido
		              'parent.Car_'.$sNomeAcesso.'1.Ped_Finaliza();'.
				  "}".
			      //
		     "} else if ( vNumTecla==13) { ".  // ** [ENTER] **
			     "bTeclaEnter = true;".
			     //
				 "if ( n_NumGuiaAtual==2 ) {".  // Guia do cardápio
	                 'if ( parent.document.getElementById("Qdr_Cardapio1").style.display=="" ) {'.
			             "if ( sAntFocus.substring(0,13)=='in_Ite_Codigo' && parent.document.getElementById(sAntFocus).value.length==0 ) {".
				 		     'Sel_Produto_4Ite();'.
							 'return false;'.
				         '}'.
				     '}'.
					 
				 "}".
				 //
			     "while (true) {".
				    "sTempId = parent.Proximo_TabObj(parent.document.getElementById('".$oJanelaPrinc->sIdObj."'),sAntFocus);".
				    "if ( sTempId.length>0 ) {".
				        "parent.document.getElementById(sTempId).focus();".
					    "if (sTempId == parent.sIdHasFocus ) {".
						    'parent.document.getElementById(sTempId).select();'.
						    "break;".
						"}".
						"sAntFocus=sTempId;".
				    "} else {".
				        "if ( n_NumGuiaAtual==1 ) {".  // Guia do cliente
    	                   'parent.document.getElementById("in_Entrega_CliCod").focus();'.
						   'parent.document.getElementById("in_Entrega_CliCod").select();'.
				        "} else if ( n_NumGuiaAtual==2 ) {".  // Guia do cardápio
			               'parent.document.getElementById("in_Ite_Codigo1").focus();'.
						   'parent.document.getElementById("in_Ite_Codigo1").select();'.
				        "} else if ( n_NumGuiaAtual==3 ) {".  // Guia do pedido
			               'parent.document.getElementById("in_Entrega_CliObs").focus();'.
						   'parent.document.getElementById("in_Entrega_CliObs").select();'.
				        "} else if ( n_NumGuiaAtual==4 ) {".  // Guia das comandas
			               'parent.document.getElementById("Ent_Data_de").focus();'.
						   'parent.document.getElementById("Ent_Data_de").select();'.
				        "}".
						'break;'.
				    "}".
				 "}".
			     //
			 "} else {".
			     //"alert(vNumTecla);". 
		         //"P_TeclasPress_fm(Evento);".
			     "return true;".
			 "}".
			 "return false;".
		  '}'.
		  //
		  '';
    }
	$aSessao[$sNomeAcesso.'_Venda'] = $aDadosS;
    //
//
//  ** CONSULTA AO CADASTRO DE CLIENTES **
} ElseIf ( $sSubModulo=="CSL_CLI" ) {
   $bDir_Consult = True;
   $sNomeIdJ_Ant = $sNomeIdJan1;
   $sNomeIdCampo = "in_Entrega_CliCod";
   $sJavaExePos  = "parent.Car_".$sNomeAcesso."1.Puxar_Cli_Cod();";
   REQUIRE "./modulos/consulta_cliente.inc";
//
//  ** CONSULTA AO CADASTRO DE CLIENTES PARA CONSULTA DE COMANDAS **
} ElseIf ( $sSubModulo=="COM_CSL_CLI" ) {
   $bDir_Consult = True;
   $sNomeIdJ_Ant = $sNomeIdJan1;
   $sNomeIdCampo = "Ent_CodCliente";
   $sJavaExePos  = "parent.Car_".$sNomeAcesso."1.Com_PuxarCliente();";
   REQUIRE "./modulos/consulta_cliente.inc";
//
//  ** CONSULTA AO CADASTRO DE CIDADES **
} ElseIf ( $sSubModulo=="CSL_CID" ) {
   $bDir_Consult = True;
   $sNomeIdJ_Ant = $sNomeIdJan1;
   $sNomeIdCampo = "in_Entrega_CliCid";
   $sJavaExePos  = "parent.Car_".$sNomeAcesso."1.Env_Dados_Cli();";
   REQUIRE "./modulos/consulta_cidade.inc";

//
//  ** TELA DE SENHA PARA PERMISSÃO DO DESCONTO ACIMA DO MÁXIMO CONFIGURADO **
} ElseIf ( $sSubModulo=="PERM_DESCONTO" ) {
   $sNomeIdJ_Ant = $sNomeIdJan1;
   $bCalc_Valor_ = True;
   $sNomeIdCampo = "in_Entrega_PedDesc";
   $sNomeIdCampo = "in_Entrega_PedDesc";
   $sJavaExePos  = 'parent.Car_'.$sNomeAcesso.'1.Ped_Atualizar();';
   REQUIRE "./modulos/tela_senha_desc.inc";

}
//
?>