<?php
$sNomeIdJConsulta = 'iJan_LstCadCPI';
$sNomeIdJEdt_Cad = 'iJan_EdtCadCPI';
$nTmpFrmEnv = 300;
$bDir_Consult = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'C');
$bDir_Alterar = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'A');
$bDir_Incluir = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'I');
$sCorBarraInf = '#E8E3CE';
//
//  ** CADASTRO (NOVO/EDITA) **
$sCPI_Codigo = @$_REQUEST['CPI_Codigo'];
If ( ISSET($_REQUEST['Cad_Codigo']) ) {
   $sCPI_Codigo = @$_REQUEST['Cad_Codigo']+0;
}
$_SESSION['COD_INT'] = '';
If ( $sSubModulo=="EDT" ) {
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJEdt_Cad; 
    $oJanelaPrinc->nTop    = 10;
    $oJanelaPrinc->nLeft   = 0;
    $oJanelaPrinc->nWidth  = 860;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
	$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo =   ( @$aSessao['TipoLocal']==0 ? 'Cadastro de promoção' : 'Taxa de Serviço' );
	//
	$oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."2.Teclas_F(this,event);";
    $sJavaTravarJ = "parent.document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);";
	$oJanelaPrinc->sJavOnCPIckF =
       $sJavaTravarJ.
       "document.forms.fmECadCPI.acao.value='FECHAR'; ".
       "document.forms.fmECadCPI.submit();".
       "";
	//
	
	$bMontarJanela = true;
	$bCPI_Novo   = $sCPI_Codigo=="NOVO";
	
	//
	// SALVAR
    If ( $sAcao=="SALVAR" ) {
	   $bGravarReg = False;
	   If ($bDir_Alterar) {
          $bGravarReg = True;
	   } Else {
          $sRet_Javs .=
            Info_Evento('ALERTA: Você não tem previlégio para alterar esta promoção.').
            "";
	   }
	   //If ($bGravarReg) {
		//	If ( @$_REQUEST['CPI_DiaSemana']<=0 && @$_REQUEST['CPI_DataInici']<=0 && @$_REQUEST['CPI_DataFinal'] <=0 ) { 
		//		$sRet_Javs .= Info_Evento('Campos Data ou Dia da Semana incompleto.');
	   //      $bGravarReg = False;
	   //   }
	   //}
	   //
	   If ($bGravarReg) {  
	     If ( @$_REQUEST['CPI_DiaSemana']>0 && @$_REQUEST['CPI_DataInici'] >0) {
	        $sRet_Javs .= Info_Evento('Não é permitido informar Dia da Semana e Periodo<br> em uma mesma promoção.<br> Não será possível gravar !');
	        $bGravarReg = False;
	     }
	   
	   }
	   If ($bGravarReg) {
          If ( (0+@$_REQUEST['CPI_Quantid'])>0 AND (0+@$_REQUEST['CPI_QTDMULT'])>0 ) {
	        $sRet_Javs .= Info_Evento('Não é permitido informar quantidade mínima e válido para multiplo<br> em uma mesma promoção.<br> Não é possível gravar !');
	        $bGravarReg = False;
          }
       }
	   //
		//		
		If ($bGravarReg) {
	      If( @$aSessao['TipoLocal']==0 ) {
			If ( (@$_REQUEST['CPI_ValorProm']+0) <=0 ) { 
	    		$sRet_Javs .= 
				     'parent.document.getElementById("iCadECPI_ValorProm").focus();'.
					 Info_Evento('Campo Valor não pode ser zerado.');
	            $bGravarReg = False;
	        }
		  }
	   }
		If ($bGravarReg) {
	      If ( @$aSessao['TipoLocal']==0 ) {
			 If ( @$_REQUEST['CPI_CodProInt']<=0 ) { 
	    	    $sRet_Javs .= 
				   'parent.document.getElementById("iCadECPI_CodProInt").focus();'.
				   Info_Evento('Campo Produto não informado.');
	            $bGravarReg = False;
	        }
		  }
	   }
       //
	   If ($bGravarReg) {
	       If ( @$aSessao['TipoLocal']==1 ) {
		      If ( @$_REQUEST['CPI_Horar_Ini']>0 ) {
			     If ( @$_REQUEST['CPI_Horar_Fim']<=0 ) {
	    	        $sRet_Javs .= 
					  'parent.document.getElementById("iCadECPI_Horar_Fim").focus();'.
					   Info_Evento('Campo Hora final não informado.');
	                $bGravarReg = False;
				 }	
	          }
		   }  
	   }
	   //
	   If ($bGravarReg) {
		  If ( @$aSessao['TipoLocal']==0 ) {
		     If ( (@$_REQUEST['CPI_SubTot_Fc']+0)>0 && @$_REQUEST['CPI_P_Balcao']<=0 && @$_REQUEST['CPI_P_Delivery'] <=0 && @$_REQUEST['CPI_P_Mesa'] <=0 ) { 
				$sRet_Javs .= 
				   'parent.document.getElementById("iCadECPI_SubTot_Fc").focus();'.
				   Info_Evento('Campos Sub-Totalizar no fechamento da comanda incompleto.');
	            $bGravarReg = False;
	         }
		  }
	   
	   }
	   If ($bGravarReg) {
	      If ( $bCPI_Novo ) {
		     $nCPI_Codigo = SQLVarConfig(STRTOUPPER($sModulo)."_SEQCOD")+0;
			 $Row_CadCPI = 
			 MYSQL_QUERY(
               "SELECT * ".
			   "FROM cad_promocao_itens ".
			   " WHERE ". 
			   " CPI_ID_PROITE = ".($nCPI_Codigo).";") or die(MYSQL_ERROR());
			 If ($Row_CadCPI = MYSQL_FETCH_ARRAY($Row_CadCPI)) {
	            $sRet_Javs .= Info_Evento('Não posso gravar, codigo sequencial já existe ('.Str_Zero($$nCPI_Codigo,7).') .',1);
				$bGravarReg = False;
			 }   
			
		  }
	   }
       //
	   If ($bGravarReg && @$aSessao['TipoLocal']==0) {
          $sSQLQuery_Semana = '';
          ForEach( $aDias_da_Semana_F As $nIndice => $sDia_Semana ) {
             If ( EMPTY($sDia_Semana) ) { CONTINUE; }
             $sId_Input_Chk = 'CPI_HrSm'.$nIndice.'_Habi';
             $bVl_Input_Chk = @$_POST[$sId_Input_Chk]+0;
             $sId_Input_Ini1 = 'CPI_HrSm'.$nIndice.'_Ini1';       $sId_Input_Fim1 = 'CPI_HrSm'.$nIndice.'_Fim1';
             $sId_Input_Ini2 = 'CPI_HrSm'.$nIndice.'_Ini2';       $sId_Input_Fim2 = 'CPI_HrSm'.$nIndice.'_Fim2';
             $sVl_Input_Ini1 = @$_POST[$sId_Input_Ini1];          $sVl_Input_Fim1 = @$_POST[$sId_Input_Fim1];
             $sVl_Input_Ini2 = @$_POST[$sId_Input_Ini2];          $sVl_Input_Fim2 = @$_POST[$sId_Input_Fim2];
             $nVl_Input_Ini1 = ConvertHoraStr($sVl_Input_Ini1);   $nVl_Input_Fim1 = ConvertHoraStr($sVl_Input_Fim1);
             $nVl_Input_Ini2 = ConvertHoraStr($sVl_Input_Ini2);   $nVl_Input_Fim2 = ConvertHoraStr($sVl_Input_Fim2);
             $sTimeZone_Def = DATE_DEFAULT_TIMEZONE_GET();
             DATE_DEFAULT_TIMEZONE_SET("Etc/GMT+0");
             $sCv_Input_Ini1 = DATE("H:i:s",$nVl_Input_Ini1);     $sCv_Input_Fim1 = DATE("H:i:s",$nVl_Input_Fim1);
             $sCv_Input_Ini2 = DATE("H:i:s",$nVl_Input_Ini2);     $sCv_Input_Fim2 = DATE("H:i:s",$nVl_Input_Fim2);
             DATE_DEFAULT_TIMEZONE_SET($sTimeZone_Def);
             //
             If ( $bVl_Input_Chk ) {
                If ( @$_POST['CPI_DiaSemana']+0 > 0 ) {
	               $sRet_Javs .= Info_Evento('Não pode usar o campo "Dia da semana" e marcar outro na tabela de semanas.',0);
				   $bGravarReg = False;
                   BREAK;
                } ElseIf ( ( $sVl_Input_Ini1<>$sCv_Input_Ini1 OR $sVl_Input_Fim1<>$sCv_Input_Fim1 ) OR
                         (   $sVl_Input_Ini2<>$sCv_Input_Ini2 OR $sVl_Input_Fim2<>$sCv_Input_Fim2 ) ) {
	               $sRet_Javs .= Info_Evento('O dia de '.$sDia_Semana.' está com o horários inválido.',0);
				   $bGravarReg = False;
                   BREAK;
                //} ElseIf ( ( $nVl_Input_Ini1==0 AND $nVl_Input_Fim1==0 ) AND
                //           ( $nVl_Input_Ini2==0 AND $nVl_Input_Fim2==0 ) ) {
	            //   $sRet_Javs .= Info_Evento('O dia de '.$sDia_Semana.' está marcado mas sem horário.',0);
				//   $bGravarReg = False;
                //   BREAK;
                } ElseIf ( ( $nVl_Input_Ini1 > $nVl_Input_Fim1 ) OR
                           ( $nVl_Input_Ini2 > $nVl_Input_Fim2 ) ) {
	               $sRet_Javs .= Info_Evento('O dia de '.$sDia_Semana.' está com horário inicial maior do que o final.',0);
				   $bGravarReg = False;
                   BREAK;
                }
             } Else {
                If ( ( $nVl_Input_Ini1>0 OR $nVl_Input_Fim1>0 ) OR
                     ( $nVl_Input_Ini2>0 OR $nVl_Input_Fim2>0 ) ) {
	               $sRet_Javs .= Info_Evento('O dia de '.$sDia_Semana.' não está marcado mas está com horário preenchido.',0);
				   $bGravarReg = False;
                   BREAK;
                }
                $sCv_Input_Ini1 = '';    $sCv_Input_Fim1 = '';
                $sCv_Input_Ini2 = '';    $sCv_Input_Fim2 = '';
             }
             //
             $sSQLQuery_Semana .=
               STRTOUPPER($sId_Input_Chk) ." = '" .$bVl_Input_Chk."',".
               STRTOUPPER($sId_Input_Ini1)." = '".$sCv_Input_Ini1."',".
               STRTOUPPER($sId_Input_Fim1)." = '".$sCv_Input_Fim1."',".
               STRTOUPPER($sId_Input_Ini2)." = '".$sCv_Input_Ini2."',".
               STRTOUPPER($sId_Input_Fim2)." = '".$sCv_Input_Fim2."',".
               '';
          }
       }
       //
	   If ($bGravarReg) {
          If ( $bCPI_Novo ) {
			 $nCPI_Codigo = SQLVarConfig(STRTOUPPER($sModulo)."_SEQCOD")+0;
             SQLVarConfigG(STRTOUPPER($sModulo)."_SEQCOD", $nCPI_Codigo+1 );
             $sSQLQuery =
               "INSERT INTO cad_promocao_itens (".
                 "CPI_ID_PROITE,CPI_DATACADAS,CPI_FUNCCADAS".
               ") VALUES (".
                 $nCPI_Codigo.",'".
                 DATE("Y-m-d H:i:s")."',".
                 $R_CadFuncionario->FUN_CODIGO.
               ");";
             MYSQL_QUERY($sSQLQuery) OR DIE(MYSQL_ERROR()); // Cria um novo registro
             //
		  } Else {
			$nCPI_Codigo = $sCPI_Codigo+0;
	      }
          //
          $sSQLQuery =
            "SELECT CPI_ID_PROITE ".
            "FROM cad_promocao_itens ".
            "WHERE ". 
            "CPI_ID_PROITE = ".($nCPI_Codigo).";";
		  $Row_CadCPI = MYSQL_QUERY($sSQLQuery) OR DIE(MYSQL_ERROR());
          If ($Row_CadCPI = MYSQL_FETCH_ARRAY($Row_CadCPI)) {
             //
             $sSQLQuery =
               'UPDATE cad_promocao_itens SET '.
                 ( $bCPI_Novo ? '' :
                 "CPI_DATAALTER= '".DATE("Y-m-d H:i:s")."',".
                 'CPI_FUNCALTER="'.$R_CadFuncionario->FUN_CODIGO.'",'
                 ).
                 ( @$aSessao['TipoLocal']==0 ?
                 'CPI_CODPROINT = "'.($aSessao['ITE_CODIGO']+0).'",'.
                 'CPI_TIP_TABEL = 0,'.
                 'CPI_VALORPROM = "'.(STR_REPLACE(',','.',@$_POST['CPI_ValorProm'])+0).'",'.
                 'CPI_PARQUAN   = "'.(STR_REPLACE(',','.',@$_POST['CPI_Quantid'])+0).'",'.
                 'CPI_QTDMULT   = "'.(STR_REPLACE(',','.',@$_POST['CPI_QTDMULT'])+0).'",'.
                 'CPI_SUBTOT_FC = "'.(@$_REQUEST['CPI_SubTot_Fc']+0).'",'.
                 'CPI_P_BALCAO  = "'.(@$_REQUEST['CPI_P_Balcao']+0).'",'.
                 'CPI_P_DELIVERY= "'.(@$_REQUEST['CPI_P_Delivery']+0).'",'.
                 'CPI_P_MESA    = "'.(@$_REQUEST['CPI_P_Mesa']+0).'",'
                 :
                 'CPI_HORAR_INI = "'.@$_POST['CPI_Horar_Ini'].'",'.
                 'CPI_HORAR_FIM = "'.@$_POST['CPI_Horar_Fim'].'",'.
                 'CPI_TIP_TABEL = 1,'.
                 'CPI_PERCEPROM = "'.(str_replace(',','.',@$_POST['CPI_PerceProm'])+0).'",'
                 ).
                 $sSQLQuery_Semana.
                 'CPI_DIASEMANA = "'.@$_POST['CPI_DiaSemana'].'",'.
                 'CPI_DATAINICI = "'.ConvertDataBRUS(@$_POST['CPI_DataInici']).'",'.
                 'CPI_DATAFINAL = "'.ConvertDataBRUS(@$_POST['CPI_DataFinal']).'" '.
               'WHERE '.
                 'CPI_ID_PROITE = '.($nCPI_Codigo).
               ';';
		     MYSQL_QUERY($sSQLQuery) OR DIE(MYSQL_ERROR());
               /*
		    // Novo Registro
            If ( $bCPI_Novo ) {
             
			   MYSQL_QUERY(   // Cria um novo registro
                  "UPDATE cad_promocao_itens SET ".
                      (  @$aSessao['TipoLocal']==0 ?
					     'CPI_CODPROINT="'.($aSessao['ITE_CODIGO']+0).'",'
				      :
					     ''
					  ).
					  'CPI_DIASEMANA="'.@$_POST['CPI_DiaSemana'].'",'.
                      'CPI_DATAINICI="'.ConvertDataBRUS(@$_POST['CPI_DataInici']).'",'.
				      'CPI_DATAFINAL="'.ConvertDataBRUS(@$_POST['CPI_DataFinal']).'",'.
                   (  @$aSessao['TipoLocal']==0 ?
				      'CPI_TIP_TABEL=0, '.
					  'CPI_VALORPROM="'.(str_replace(',','.',@$_POST['CPI_ValorProm'])+0).'",'.
					  'CPI_PARQUAN="'.(str_replace(',','.',@$_POST['CPI_Quantid'])+0).'",'.
					  'CPI_QTDMULT="'.(str_replace(',','.',@$_POST['CPI_QTDMULT'])+0).'",'.
					  'CPI_SUBTOT_FC="'.(@$_REQUEST['CPI_SubTot_Fc']+0).'",'.
					  'CPI_P_BALCAO="'.(@$_REQUEST['CPI_P_Balcao']+0).'",'.
					  'CPI_P_DELIVERY="'.(@$_REQUEST['CPI_P_Delivery']+0).'",'.
					  'CPI_P_MESA="'.(@$_REQUEST['CPI_P_Mesa']+0).'"'
					  
				   :
				      'CPI_HORAR_INI="'.@$_POST['CPI_Horar_Ini'].'",'.
				      'CPI_HORAR_FIM="'.@$_POST['CPI_Horar_Fim'].'",'.
					  'CPI_TIP_TABEL=1, '.
				      'CPI_PERCEPROM="'.(str_replace(',','.',@$_POST['CPI_PerceProm'])+0).'"'
				   ).
				   " WHERE CPI_ID_PROITE = ".($nCPI_Codigo).";") or die(MYSQL_ERROR());
	         
				// Alteração grava o operador que alterou o registro
			   } Else {
			      MYSQL_QUERY(   // Cria um novo registro
                    "UPDATE cad_promocao_itens SET ".
                   //'CPI_CODPROINT="'.@$_POST['CPI_CodProInt'].'",'.
				      (  @$aSessao['TipoLocal']==0 ?
					  'CPI_CODPROINT="'.($aSessao['ITE_CODIGO']+0).'",'
				      :
					     ''
					  ).
					  "CPI_DATAALTER= '".DATE("Y-m-d H:i:s")."',".
				      'CPI_FUNCALTER="'.$R_CadFuncionario->FUN_CODIGO.'",'.
				      'CPI_DIASEMANA="'.@$_POST['CPI_DiaSemana'].'",'.
                      'CPI_DATAINICI="'.ConvertDataBRUS(@$_POST['CPI_DataInici']).'",'.
				      'CPI_DATAFINAL="'.ConvertDataBRUS(@$_POST['CPI_DataFinal']).'",'.
                   (  @$aSessao['TipoLocal']==0 ?
				      'CPI_TIP_TABEL=0, '.
					  'CPI_VALORPROM="'.(str_replace(',','.',@$_POST['CPI_ValorProm'])+0).'",'.
					  'CPI_PARQUAN="'.(str_replace(',','.',@$_POST['CPI_Quantid'])+0).'",'.
					  'CPI_QTDMULT="'.(str_replace(',','.',@$_POST['CPI_QTDMULT'])+0).'",'.
					  'CPI_SUBTOT_FC="'.(@$_REQUEST['CPI_SubTot_Fc']+0).'",'.
					  'CPI_P_BALCAO="'.(@$_REQUEST['CPI_P_Balcao']+0).'",'.
					  'CPI_P_DELIVERY="'.(@$_REQUEST['CPI_P_Delivery']+0).'",'.
					  'CPI_P_MESA="'.(@$_REQUEST['CPI_P_Mesa']+0).'"'
					  
				   :
				      'CPI_HORAR_INI="'.@$_POST['CPI_Horar_Ini'].'",'.
				      'CPI_HORAR_FIM="'.@$_POST['CPI_Horar_Fim'].'",'.
					  'CPI_TIP_TABEL=1, '.
				      'CPI_PERCEPROM="'.(str_replace(',','.',@$_POST['CPI_PerceProm'])+0).'"'
				   ). 
				   " WHERE CPI_ID_PROITE = ".($nCPI_Codigo).";") or die(MYSQL_ERROR());
			   }
             */
			 //
	      } Else {
             // Erro: registro não existe
			 $sRet_Javs .= Info_Evento('Registro não existe.',1);
	      }
          $sRet_Javs .= "document.location.href = './car_js.php?mod=".$sModulo."&submod=".$sSubModulo."&acao=FECHAR&nomeacs=".$sNomeAcesso."&acaoAnt=".$sAcao."';";
       }
	   //
	   $bMontarJanela = false;
    //
    
	 } ElseIf ( $sAcao=="PUXAR_PRODUTO" ) { 
	    $sCPI_CodProInt = @$_POST['CPI_CodProInt'];
		If ( $sCPI_CodProInt=='/' ) {
	       $sRet_Javs .= 
	         "parent.document.getElementById('sCadECPI_CodProInt').innerHTML = '( Consulta )';".
			 "parent.document.getElementById('iCadECPI_CodProInt').value = '';".
			 "parent.document.getElementById('iCadECPI_CodProVal').value = '';".
			 "parent.document.getElementById('iCadECPI_CodProCus').value = '';".
             'parent.Car_'.$sNomeAcesso.'2.Calcular_MargemCusto();'.
		     $sJavaTravarJ.
             "setTimeout( function () { ".
		       "parent.document.forms.fmECadCPI.acao.value=''; ".
		       "parent.document.forms.fmECadCPI.submod.value='PRO'; ".
		       "parent.document.forms.fmECadCPI.submit();".
		       "parent.document.forms.fmECadCPI.submod.value='".$sSubModulo."'; ".
		     "} , 100);".
			 "";
		  // Exibir nome do produto
	    } ElseIf ( EMPTY($sCPI_CodProInt) ) {
		    $sRet_Javs .=
			  "parent.document.getElementById('sCadECPI_CodProInt').innerHTML='';".
			  "parent.document.getElementById('iCadECPI_CodProInt').value = '';".
			  "parent.document.getElementById('iCadECPI_CodProVal').value = '';".
			  "parent.document.getElementById('iCadECPI_CodProCus').value = '';".
              'parent.Car_'.$sNomeAcesso.'2.Calcular_MargemCusto();'.
           	  "";
	    } Else {
	      $sCPI_CodProInt = Str_Zero( $sCPI_CodProInt,4 );
          $sSQLQuery =
	       'SELECT '.
             'ite.ITE_CODIGOI    , ite.ITE_CODIGOL    , ite.ITE_DESCRIC    ,'.
             'ite.ITE_PRE_MES_NOR, ite.ITE_PRE_MES_001, ite.ITE_PRE_CUSTO_N,'.
             'gru.GRU_CODIGO , gru.GRU_ACTSAB '.
           'FROM      cad_produto        AS ite '.
           'LEFT JOIN cad_grupo_produtos AS gru  ON  gru.GRU_CODIGO = ite.ITE_COD_GRU '.
           "WHERE ITE_CODIGOL='".$sCPI_CodProInt."' ".
             "AND ITE_REG_TRAVADO=0 ". 
           "ORDER BY ITE_COD_GRU ASC, ITE_DESCRIC ASC ".
           ";";
	      $RowsT = MYSQL_QUERY($sSQLQuery) or die($sSQLQuery.'<br>'.MYSQL_ERROR());
          $s_Cpi_Ite_Descri = '';
		  $s_Cpi_Ite_PrecoV = '';
		  $bActVariosSabores = False;
		  If ($RowT = MYSQL_FETCH_ARRAY($RowsT)) {
		     $bActVariosSabores = $RowT['GRU_ACTSAB'];
			 IF($bActVariosSabores){
			   $s_Cpi_Ite_Descri = '';
			 } Else {
			 	$s_Cpi_Ite_Descri = $RowT['ITE_DESCRIC'];
				$s_Cpi_Ite_PrecoV = $RowT['ITE_PRE_MES_NOR']+0;
				$s_Cpi_Ite_PrecoC = $RowT['ITE_PRE_CUSTO_N']+0;
				If ( $s_Cpi_Ite_PrecoV==0 ) {
				   $s_Cpi_Ite_PrecoV = $RowT['ITE_PRE_MES_001']+0;
				}
				$s_Cpi_Ite_PrecoV = FormatoMoeda($s_Cpi_Ite_PrecoV);
				$s_Cpi_Ite_PrecoC = FormatoMoeda($s_Cpi_Ite_PrecoC);
		 	    //If ( ! ISSET($aSessao['ITE_CODIGO']) ) {
				$aSessao['ITE_CODIGO'] = $RowT['ITE_CODIGOI'];
			    //}
			 }
		
       		//
		  } Else {
		     $sRet_Javs .=
			   "parent.document.getElementById('sCadECPI_CodProInt').innerHTML='".$s_Cpi_Ite_Descri."';".
			   "parent.document.getElementById('iCadECPI_CodProInt').value = '';".
			   "parent.document.getElementById('iCadECPI_CodProVal').value = '';".
			   "parent.document.getElementById('iCadECPI_CodProCus').value = '';".
               'parent.Car_'.$sNomeAcesso.'2.Calcular_MargemCusto();'.
			   Info_Evento('Código de produto não encontrado',1). 
           	   "";
		  }
	      //
		  If ($bActVariosSabores) {
		     $sRet_Javs .=
			   "parent.document.getElementById('sCadECPI_CodProInt').innerHTML='".$s_Cpi_Ite_Descri."';".
			   "parent.document.getElementById('iCadECPI_CodProInt').value = '';".
			   "parent.document.getElementById('iCadECPI_CodProVal').value = '';".
			   "parent.document.getElementById('iCadECPI_CodProCus').value = '';".
               'parent.Car_'.$sNomeAcesso.'2.Calcular_MargemCusto();'.
			   Info_Evento('Produto no grupo de vários sabores. Não permitido',1). 
           	   "";
		  } Else {
		     $sRet_Javs .=                      
               "parent.document.getElementById('sCadECPI_CodProInt').innerHTML='".$s_Cpi_Ite_Descri."';".
			   "parent.document.getElementById('iCadECPI_CodProVal').value = 'R$ ".$s_Cpi_Ite_PrecoV."';".
			   "parent.document.getElementById('iCadECPI_CodProCus').value = 'R$ ".$s_Cpi_Ite_PrecoC."';".
               'parent.Car_'.$sNomeAcesso.'2.Calcular_MargemCusto();'.
               "";
		  } 
		}
	   //
	   $bMontarJanela = False;	
	   //
	// 
    } ElseIf ( $sAcao=="VALIDA_QTDE" ) {
       $nIte_Quanti = @$_POST['CPI_Quantid'];
	   $nIte_Quanti = STR_REPLACE(',','.',$nIte_Quanti);
	   $nIte_Quanti = Somente_Numeros($nIte_Quanti,'.')+0;
	   If ( $nIte_Quanti<0 ) {
	      $nIte_Quanti=0;
	   }
	   //
	   $sRet_Javs .=
	      "parent.document.getElementById('iCadECPI_Quantid').value = '".NUMBER_FORMAT($nIte_Quanti, 3, '.','')."';".
		  "";
	   $bMontarJanela = False;	
    // FECHAR
    } ElseIf ( $sAcao=="FECHAR" ) {
      
       $sRet_Javs .= 
	      "parent.RmElem('".$oJanelaPrinc->sIdObj."'); ".
		  "parent.Disabled_In_Elems('".$sNomeIdJConsulta."',false);".
		  "parent.document.getElementById('".$sNomeIdJConsulta."_Travar').style.visibility='hidden';".
    	  'parent.document.getElementById("iCadCPI_PChave").focus();'.
		  (@$_REQUEST['acaoAnt']=='SALVAR' ? "parent.Car_".$sNomeAcesso."1.P_Atu();" : '').
		  "";
	   $bMontarJanela = false;
	//
	// NOVO REGISTRO
	} ElseIf ( $sAcao=="NV" ) {
	   $sCPI_Codigo = 'NOVO';
	   $bCPI_Novo   = True;
	    $sHTML_ComboDiaS = '';
	//
	// PUXAR REGISTRO
	} Else {
	   If (STRLEN($sCPI_Codigo)==0) {
	      $bMontarJanela = False;
	      $sAcao = 'FECHAR';
          $sRet_Javs .=
		     "parent.document.getElementById('".$sNomeIdJConsulta."_Travar').style.visibility='hidden';".
	         Info_Evento('Selecione uma promoção na lista.');
	   } Else {
        if (! $bCPI_Novo) {
	
         $Row_CadCPI = 
		    MYSQL_QUERY("SELECT ". 
			                  ( @$aSessao['TipoLocal']==0  ?
							    "b.ITE_CODIGOL, "
				              :
							    ""
							  ).
								//"a.CPI_ID_PROITE, ".
								//( @$aSessao['TipoLocal']==0  ?
								//  "a.CPI_CODPROINT, "
								//:
								//'' ).
								//"a.CPI_DATACADAS,a.CPI_FUNCCADAS, ".
								//"a.CPI_DATAALTER,a.CPI_FUNCALTER, ".
								//"a.CPI_DIASEMANA,a.CPI_DATAINICI, ".
								//"a.CPI_DATAFINAL,a.CPI_VALORPROM, a.CPI_PARQUAN, a.CPI_QTDMULT, ".
								//"a.CPI_DATACANCE,a.CPI_FUNCCANCE, ".
								//"a.CPI_HORAR_INI,a.CPI_HORAR_FIM, ".
								//"a.CPI_PERCEPROM,a.CPI_TIP_TABEL, a.CPI_SUBTOT_FC,a.CPI_P_BALCAO,a.CPI_P_DELIVERY,a.CPI_P_MESA  ".
                                "a.* ".
					     " FROM cad_promocao_itens a ".
					   ( @$aSessao['TipoLocal']==0  ?
						 " INNER JOIN cad_produto b on b.ITE_CODIGOI = a.CPI_CODPROINT " 
					   : "" ).
						 " WHERE ". 
							    " a.CPI_ID_PROITE = ".($sCPI_Codigo)." ;") or die(MYSQL_ERROR());			    
			 
			 If (! $Row_CadCPI = MYSQL_FETCH_ARRAY($Row_CadCPI)) {
				$Row_CadCPI = ARRAY();
	      }         
        
		} else {
		  $bMontarJanela = False;
		}
		
	   }
       //
	}
	
	If ($bMontarJanela) {
	   //
	   $oJanelaPrinc->aIdsObjList =
	    ( @$aSessao['TipoLocal']==0  ?
	      ARRAY( 'iCadECPI_CodProInt' ,'iCadECPI_DiaDaSemana',
		         'iCadECPI_DataInici' ,'iCadECPI_DataFinal',
			     'iCadECPI_ValorProm', 'iCadECPI_Quantid',
                 'iCadECPI_QtdMult',
				 'iCadECPI_SubTot_Fc', 
                 'iCadPro_P_Balcao'  ,'iCadPro_P_Delivery','iCadPro_P_Mesa' )
	   :   
		  ARRAY( 'iCadECPI_CodProInt' ,'iCadECPI_DiaDaSemana',
		         'iCadECPI_DataInici' ,'iCadECPI_DataFinal',
		  	     'iCadECPI_Horar_Ini' ,'iCadECPI_Horar_Fim',
			     'iCadECPI_PerceProm' )
	   );	  
	   
	   //
	   If ( (@$Row_CadCPI['iCadECPI_ValorProm']+0)>0 ) {
	      $sCPI_Codigo = Str_Zero($sCPI_Codigo, 7);
	   }
	   //
      // Tela HTML
		
		
      If($bCPI_Novo) {
         $RowsT_CadCPI = MYSQL_QUERY( "SELECT CPI_ID_PROITE,CPI_DIASEMANA".
                                      " FROM cad_promocao_itens;") or die(MYSQL_ERROR());
		
      } Else {		
		   $RowsT_CadCPI = MYSQL_QUERY( "SELECT CPI_ID_PROITE,CPI_DIASEMANA".
                                     " FROM cad_promocao_itens " .
                                     " WHERE ". 
								             " CPI_ID_PROITE = ".($sCPI_Codigo)." ;") or die(MYSQL_ERROR());
		}
		
		$RowT_CadCPI = MYSQL_FETCH_ARRAY($RowsT_CadCPI);
		//If (! $RowT_CadCPI = MYSQL_FETCH_ARRAY($RowsT_CadCPI) || $bCPI_Novo  ) {
	   //    $RowT_CadCPI = ARRAY();
	   //   }	 
		If($bCPI_Novo) { 	 
		   $RowT_CadCPI['CPI_DIASEMANA'] = 0;
		}	 
      
		$sHTML_ComboDiaS = '<option value="0">- Nenhum selecionado -</option>';
		$RowsT_CadSem = MYSQL_QUERY("SELECT CSE_CODIGOSEM,CSE_DESCRICAO ".
					   " FROM cad_semana ".
						" WHERE CSE_CODIGOSEM>0" ) Or Die(MYSQL_ERROR());
		            
		While ( $RowT_CadSem = MYSQL_FETCH_OBJECT($RowsT_CadSem)) {
			  $sHTML_ComboDiaS .= '<option value="'.$RowT_CadSem->CSE_CODIGOSEM.'" '.($RowT_CadSem->CSE_CODIGOSEM ==(@$RowT_CadCPI['CPI_DIASEMANA']+0) ? 'selected' : '').'>'.$RowT_CadSem->CSE_DESCRICAO.'</option>';	 
		    
		}
        //
		$nLargura_Esquerda = 120;
		$nBorda_Direita    = 6;
		$nAltura_Linha     = 24;
		$nAltura_Pular_Lin = 3;
		//
        $sRet_TelaJ_HTML =
		   '<style type="text/css">'.
	         CSS_Estilos(1,$oJanelaPrinc->sIdObj."_Balao").
            '*{'.
             'font-family: Arial, sans-serif;'.
            '}'.
            'div > .tooltip, li > .tooltip, a > .tooltip, span > .tooltip {'.
              'opacity: 0;'.
              'visibility: hidden;'.
              '-webkit-transition: 0.3s;'.
              '-moz-transition: all 0.3s;'.
            '}'.
            'div:hover > .tooltip, li:hover > .tooltip, a:hover > .tooltip, span:hover > .tooltip,'.
              'a .tooltip:hover, span .tooltip:hover, li .tooltip:hover, div .tooltip:hover {'.
              'opacity: 1;'.
              'visibility: visible;'.
              'overflow: visible;'.
              //'margin-top: 80px;'.
              'display: inline;'.
              'margin-left: 120px;'.
              '-webkit-transition: 0.3s;'.
              '-moz-transition: all 0.3s;'.
            '}'.
            '.tooltip {'.
              'background: #3378C1;'.
              'color: #fff;'.
              '-webkit-border-radius: 5px;'.
              '-moz-border-radius: 5px;'.
              '-o-border-radius: 5px;'.
              'border-radius: 5px;'.
              'padding: 10px;'.
              'margin-left: 120px;'.
              'position: absolute;'.
              'font-family: Arial;'.
              'font-size: 12px;'.
              'text-decoration: none;'.
              'font-style: normal; '.
              'z-index: 0;'.
            '}'.
            '.tooltip:before {'.
              'content: "";'.
              'background: #3378C1;'.
              'border: 0;'.
              'width: 10px;'.
              'height: 10px;'.
              'margin-left: 5px;'.
              //'margin-top: -80px;'.
              'display: block;'.
              'position: absolute;'.
              '-webkit-transform: rotate(-45deg);'.
              '-moz-transform: rotate(-45deg);'.
              '-o-transform: rotate(-45deg);'.
              'transform: rotate(-45deg);'.
              'display /*\**/: none\9;'.
              '*display: none !important;'.
              '*display: none;'.
            '}'.
    	   '</style>'. 
	       '<form name="fmECadCPI2" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'4">'.
             '<input name="mod" type="hidden" value="'.$sModulo.'">'.
             '<input name="submod" type="hidden" value="'.$sSubModulo.'">'.
             '<input name="acao" type="hidden" value="">'.
    	     '<input name="nomeacs" type="hidden" value="'.$sNomeAcesso.'">'.
             '<input name="Cad_Codigo" type="hidden" value="'.$sCPI_Codigo.'">'.
		   '</form>'.
           '<form name="fmECadCPI" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'3">'.
             '<input name="mod" type="hidden" value="'.$sModulo.'">'.
             '<input name="submod" type="hidden" value="'.$sSubModulo.'">'.
             '<input name="acao" type="hidden" value="">'.
    	     '<input name="nomeacs" type="hidden" value="'.$sNomeAcesso.'">'.
		     // Código interno
       	     '<table width="100%">'.
              '<tr>'.
                '<td width="'.$nLargura_Esquerda.'px" height="'.$nAltura_Linha.'px" align="right" valign="middle">'.
                  'Código:'.
              	   '&nbsp;'.
                '</td>'.
                '<td align="left" valign="middle">'.
                  '<input id="iCadECPI_Codigo" name="CPI_Codigo" type="text" value="'.$sCPI_Codigo.'" readonly style="width:60px; text-align:center;">'.
                '</td>'.
                '<td align="left" valign="middle" width="200px" style="font-size:11px;">'.
                 ( ConvertDataSTR(@$Row_CadCPI['CPI_DATACADAS'])>0 ?
		   	     'Data do Cadastro:'.
		   	     '&nbsp;&nbsp;&nbsp;'.
		   	     '<span style="font-weight:bold;">'.ConvertDataUSBR(@$Row_CadCPI['CPI_DATACADAS']).'</span>'
		   	     : '' ).
                '</td>'.
                '<td height="'.$nBorda_Direita.'px" style="font-size:1px;">&nbsp;</td>'.
              '</tr>'.
		     '</table>'.
		     //
		     '<div style="height:'.$nAltura_Pular_Lin.'px;"></div>'.
		     // Código do produto
             ( @$aSessao['TipoLocal']==0 ?
       	     '<table width="100%">'.
		      '<tr>'.
               '<td width="'.$nLargura_Esquerda.'px" height="'.$nAltura_Linha.'px" align="right" valign="middle">'.
                'Produto: '.
                '&nbsp;'.
               '</td>'.
               '<td align="left" width="80px" valign="middle">'.
                  '<input id="iCadECPI_CodProInt" name="CPI_CodProInt" type="text" value="'.@$Row_CadCPI['ITE_CODIGOL'].'" maxlength="7" size="5" style="background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;" onchange="parent.Car_'.$sNomeAcesso.'2.Puxar_Produto();">'.
               '</td>'. 
               '<td width="50px" align="left" valign="middle">'.
                 HTML_Botao( 3, 'CadECPI_BT_Psq' , "document.getElementById('iCadECPI_CodProInt').value='/';".
                                                   'parent.Car_'.$sNomeAcesso.'2.Puxar_Produto();'
                               ,  ''  ,'images/btimg_lupa.png',24).
               '</td>'.
               '<td align="left" id="sCadECPI_CodProInt" valign="middle" style="font-weight:bold;">'.
                 '(Aguarde...)'.
               '</td>'.
               '<td width="130px" align="right" valign="middle" style="font-size:12px;">'.
                 'Preço cadastrado:&nbsp;'.
               '</td>'.
               '<td width="144px" align="left" valign="middle" style="font-size:12px;">'.
                 '<input id="iCadECPI_CodProVal" type="text" value="0,00" readonly style="width:100px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
               '</td>'.
		      '</tr>'.
		      '<tr>'.
               '<td colspan="4">'.
               '</td>'.
               '<td align="right" valign="middle" style="font-size:12px;">'.
                'Preço de custo:&nbsp;'.
               '</td>'.
               '<td align="left" valign="middle">'.
                 '<input id="iCadECPI_CodProCus" type="text" value="" readonly style="width:100px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
               '</td>'.
		      '</tr>'.
   	         '</table>'
             : "" ).
       	     '<table width="100%">'.
		      '<tr>'.
		       ( @$aSessao['TipoLocal']==0 ?
               //'<td width="'.$nLargura_Esquerda.'px" height="'.$nAltura_Linha.'px" align="right" valign="middle">'.
               // 'Dia da Semana:'.
               //  '&nbsp;'.
		   	   // '</td>'.
       	       //'<td align="left">'.
	           // '<select id="iCadECPI_DiaDaSemana" name="CPI_DiaSemana" style="float:left; height: 22px; border-width: 1px; border-style: solid; border-color: rgb(0, 153, 255); background:#FFFBEC;font-size:12px;">'.
               //  $sHTML_ComboDiaS.
		   	   // '</select>'.
	   	   	   //'</td>'.
               '' :
               '<td width="'.$nLargura_Esquerda.'px" height="'.$nAltura_Linha.'px" align="right" valign="middle">'.
                'Dia da Semana:'.
                '&nbsp;'.
               '</td>'.
               '<td align="left">'.
                '<select id="iCadECPI_DiaDaSemana" name="CPI_DiaSemana" style="float:left; height: 22px; border-width: 1px; border-style: solid; border-color: rgb(0, 153, 255); background:#FFFBEC;font-size:12px;">'.
                 $sHTML_ComboDiaS.
                '</select>'.
               '</td>'.
		   	   '' ).
               '</td>'.
		      '</tr>'.
  	         '</table>'.
		     //'<div style="height:'.$nAltura_Pular_Lin.'px;"></div>'.
		     //
       	     '<table width="100%">'.
		      '<tr>'.
               '<td width="'.($nLargura_Esquerda+310).'px" height="'.$nAltura_Linha.'px" align="right" valign="middle" style="color:#CC6A00; font-size:12px;">'.
                 '* Será considerado o dia pela data de trabalho do sistema.'.
               '</td>'.
               '<td>'.
               '</td>'.
              '</tr>'.
             '</table>'.
		     //
       	     '<table width="100%">'.
		      '<tr>'.
               '<td width="'.$nLargura_Esquerda.'px" height="'.$nAltura_Linha.'px" align="right" valign="middle">'.
                'Data Inicial:'.
		        '&nbsp;'.
		   	'</td>'.
       	       ( @$aSessao['TipoLocal']==0 ?
               '<td width="84px" align="left" valign="middle">'.
                '<input id="iCadECPI_DataInici" name="CPI_DataInici" type="text" value="'.ConvertDataUSBR(@$Row_CadCPI['CPI_DATAINICI']).'" maxlength="10" style="width:75px; height:22px; text-align:center; background:#FFFBEC; border-width: 1px; border-style:solid; border-color:#0099FF;">'.
               '</td>'.
               '<td width="238px" align="left" valign="middle">'.
                '<img src="images/bimg_calendario.png" border="0" id="bt_CadECPI_DataInici" style="cursor:pointer;">'.
               '</td>'.
               '<td align="right" valign="middle">'.
                'Data Final: '.
                '&nbsp;'.						   
               '</td>'.
               '<td width="84px" align="left" valign="middle">'.
                '<input id="iCadECPI_DataFinal" name="CPI_DataFinal" type="text" value="'.ConvertDataUSBR(@$Row_CadCPI['CPI_DATAFINAL']).'" maxlength="10" style="width:75px; height:22px; text-align:center; background:#FFFBEC; border-width: 1px; border-style:solid; border-color:#0099FF;">'.
               '<td align="left" valign="middle">'.
                '<img src="images/bimg_calendario.png" border="0" id="bt_CadECPI_DataFinal" style="cursor:pointer;">'.
               '</td>'
		       : 
		   	'<td align="left">'.
		   	 '<input id="iCadECPI_DataInici" name="CPI_DataInici" type="text" value="'.ConvertDataUSBR(@$Row_CadCPI['CPI_DATAINICI']).'" maxlength="10" style="width:70px; height:22px; background:#FFFBEC; border-width: 1px; border-style:solid; border-color:#0099FF;">'.
		   	 '&nbsp;&nbsp;'.
		   	 '<img src="images/bimg_calendario.png" border="0" id="bt_CadECPI_DataInici" style="cursor:pointer;">'.
                '</td>'.
		        '<td align="right" valign="middle">'.
		        'Data Final: '.
                '&nbsp;&nbsp;'.						   
               '</td>'.
               '<td align="left" valign="middle">'.
		   	 '<input id="iCadECPI_DataFinal" name="CPI_DataFinal" type="text" value="'.ConvertDataUSBR(@$Row_CadCPI['CPI_DATAFINAL']).'" maxlength="10" style="width:70px; height:22px; background:#FFFBEC; border-width: 1px; border-style:solid; border-color:#0099FF;">'.
		   	 '&nbsp;&nbsp;'.                        
		   	 '<img src="images/bimg_calendario.png" border="0" id="bt_CadECPI_DataFinal" style="cursor:pointer;">'.
               '</td>'
		   	).
       	      '</tr>'.
  	         '</table>'.
             //
		     '<div style="height:'.$nAltura_Pular_Lin.'px;"></div>'.
       	     // HORA INICIAL E HORA FINAL Taxa de serviço
		     ( @$aSessao['TipoLocal']==1 ?
       	     '<table width="100%">'.
		      '<tr>'.
               '<td width="'.$nLargura_Esquerda.'px" height="'.$nAltura_Linha.'px" align="right" valign="middle">'.
                '<span id="men_01" class="tooltip" style="display:none;">'.
    	           'Alterar : '.
                   ' Selecione o campo inteiro.'.
                   '<br>Campo vazio : '.
    	           ' Corresponde 24 horas'.
                '</span>'.
		   	 'Hora Inicial: '.
		   	 '&nbsp;'.
               '</td>'.
       	       '<td width="290px" align="left">'.
		   	 '<input id="iCadECPI_Horar_Ini" name="CPI_Horar_Ini" type="text" value="'.@$Row_CadCPI['CPI_HORAR_INI'].'" OnKeyUp=parent.Car_'.$sNomeAcesso.'2.mascara_hora_ini(this.value) maxlength="8" style="width:70px; height:22px; background:#FFFBEC; border-width: 1px; border-style:solid; border-color:#0099FF;">&nbsp;&nbsp;hh:mm'.
		   	'</td>'.
       	       '<td align="right" valign="middle">'.
                'Hora Final: '. 
                '&nbsp;'.
               '</td>'.
       	       '<td align="left">'.
                '<input id="iCadECPI_Horar_Fim" name="CPI_Horar_Fim" type="text" value="'.@$Row_CadCPI['CPI_HORAR_FIM'].'" OnKeyUp=parent.Car_'.$sNomeAcesso.'2.mascara_hora_fim(this.value) maxlength="8"  style="width:70px; height:22px; background:#FFFBEC; border-width: 1px; border-style:solid; border-color:#0099FF;">&nbsp;&nbsp;hh:mm'.
                '&nbsp;&nbsp;'.
                '<input type="image" src="images/interroga.png" width="23px" height="23px" onclick="parent.Car_'.$sNomeAcesso.'2.Interroga(1)">'.
		       '</td>'.
              '</tr>'.
             '</table>'
		     :
             '<!--POR_DIAS_DA_SEMANA-->'
             ).
             // --
		     '<div style="height:'.$nAltura_Pular_Lin.'px;"></div>'.
             ( @$aSessao['TipoLocal']==0 ?
		     '<table width="100%">'.
		      '<tr>'.
               '<td width="'.($nLargura_Esquerda+30).'px" height="'.$nAltura_Linha.'px" align="right" valign="middle" style="font-weight:bold; font-size:12px;">'.
		   	    'Preço promoção: R$ '.
                '&nbsp;'.
		   	   '</td>'.
       	       '<td align="left" width="100px">'.
		   	    '<input id="iCadECPI_ValorProm" name="CPI_ValorProm" type="text" '.
                    'value="'.FormatoMoeda(@$Row_CadCPI['CPI_VALORPROM']).'" maxlength="10" '.
                    'onchange="parent.Car_'.$sNomeAcesso.'2.Calcular_MargemCusto();" '.
                    'style="width:70px; height:22px; background:#FFFBEC; border-width: 1px; border-style:solid; border-color:#0099FF;"'.
                '>'.
		   	   '</td>'.
       	       '<td width="370px" align="right">'.
		   	 'A Partir desta Quantidade:'.
		   	 '&nbsp;'.
		       '</td>'.
		       '<td align="left" valign="middle">'.
		        '<input id="iCadECPI_Quantid" name="CPI_Quantid" value="'.@$Row_CadCPI['CPI_PARQUAN'].'" autocomplete="off" type="text" maxlength="55"  onchange="parent.Car_'.$sNomeAcesso.'2.Valida_Qtde();" style="width:100px; height:22px; text-align:right; background:#FFFBEC; border-width:1px; border-style:solid; border-color:#0099FF;">'.
		       '</td>'.
		      '</tr>'.
		     '</table>'.
             //
		     '<table width="100%">'.
		      '<tr>'.
               '<td width="'.($nLargura_Esquerda+30).'px" height="'.$nAltura_Linha.'px" align="right" valign="middle" style="font-size:12px;">'.
		   	    'Desconto na promoção:'.
                '&nbsp;'.
		   	   '</td>'.
       	       '<td align="left" width="100px">'.
		   	    '<input id="iCadECPI_PercDescontoPromo" type="text" readonly '.
                    'style="width:70px; height:22px; font-weight:bold; text-align:center; background:#FFFBEC; border-width: 1px; border-style:solid; border-color:#0099FF;"'.
                '>'.
		   	   '</td>'.
               '<td width="140px" align="right" valign="middle" style="font-size:12px;">'.
		   	    'Margem com promoção:'.
                '&nbsp;'.
		   	   '</td>'.
       	       '<td align="left" width="110px">'.
		   	    '<input id="iCadECPI_MargemPromocao" type="text" readonly '.
                    'style="width:70px; height:22px; font-weight:bold; text-align:center; background:#FFFBEC; border-width: 1px; border-style:solid; border-color:#0099FF;"'.
                '>'.
		   	   '</td>'.
       	       '<td width="120px" align="right" style="font-size:12px;">'.
		   	    'Margem normal:'.
		   	    '&nbsp;'.
		       '</td>'.
		       '<td align="left" valign="middle">'.
		   	    '<input id="iCadECPI_MargemNormal" type="text" readonly '.
                    'style="width:70px; height:22px; font-weight:bold; text-align:center; background:#FFFBEC; border-width: 1px; border-style:solid; border-color:#0099FF;"'.
                '>'.
		       '</td>'.
		      '</tr>'.
		     '</table>'.
		     //
		     '<div style="height:'.$nAltura_Pular_Lin.'px;"></div>'.
		     '<table width="100%">'.
		      '<tr>'.
               '<td width="'.$nLargura_Esquerda.'px" height="'.$nAltura_Linha.'px" align="right" valign="middle">'.
                '&nbsp;'.
		   	'</td>'.
       	       '<td align="left" width="100px">'.
                '&nbsp;'.
		   	'</td>'.
       	       '<td width="386px" align="right">'.
		   	 'Válido para multiplo de:'.
		   	 '&nbsp;'.
		       '</td>'.
		       '<td align="left" valign="middle">'.
		        '<input id="iCadECPI_QtdMult" name="CPI_QTDMULT" value="'.@$Row_CadCPI['CPI_QTDMULT'].'" autocomplete="off" type="text" maxlength="55"  onchange="parent.Car_'.$sNomeAcesso.'2.Valida_Qtde();" style="width:100px; height:22px; text-align:right; background:#FFFBEC; border-width:1px; border-style:solid; border-color:#0099FF;">'.
		       '</td>'.
		      '</tr>'.
		     '</table>'
		     //
		     :
		     '<div style="height:'.$nAltura_Pular_Lin.'px;"></div>'.
		     '<table width="100%">'.
		      '<tr>'.
               '<td width="340px" height="'.$nAltura_Linha.'px" align="right" valign="middle">'.
                ' Sub-Totalizar'.
		   	 ' no Fechamento'. 
		   	 '	da Comanda :'.
               '</td>'.
       	       '<td align="left">'.
		   	 '<select id="iCadECPI_SubTot_Fc" name="CPI_SubTot_Fc" style="font-size:12px;" onchange="parent.Car_'.$sNomeAcesso.'2.Exibir_SubTot_Chks();">'.
                   '<option value="0">N&atilde;o</option>'.
                   '<option value="1"'.(@$Row_CadCPI['CPI_SUBTOT_FC']+0 ? ' selected' : '').'>Sim</option>'.
		   	 '</select>'.
		   	 //'<input  type="text" value="'.@$Row_CadCPI['CPI_SUBTOT_FC'].'" maxlength="5" style="width:70px; height:22px; background:#FFFBEC; border-width: 1px; border-style:solid; border-color:#0099FF;">&nbsp;&nbsp;'.
		   	'</td>'.
		      '</tr>'.
		     '</table>'.
		     '<table width="100%" id="tb_SubTot_Chks" style="display:none;">'.
		      '<tr>'.
               '<td width="'.$nLargura_Esquerda.'px" height="'.$nAltura_Linha.'px" align="right" valign="middle">'.
		      	 '&nbsp;'.
   		   	'</td>'.
       	      	'<td align="left">'.
		   	 '<input id="iCadPro_P_Balcao" name="CPI_P_Balcao" type="checkbox" value="1" '.(@$Row_CadCPI['CPI_P_BALCAO'] ? 'checked' : '').'>'.
		   	 '&nbsp;&nbsp;'.
		   	 'Balcao'.
       	   	'</td>'.
	   	      '</tr>'.
              '<tr>'.
		      '<td align="right">'.
		       '&nbsp;'.
		      '</td>'.
       	      '<td align="left">'.
		   	'<input id="iCadPro_P_Delivery" name="CPI_P_Delivery" type="checkbox" value="1" '.(@$Row_CadCPI['CPI_P_DELIVERY'] ? 'checked' : '').'>'.
		   	 '&nbsp;&nbsp;'.
		   	 'Delivery'.
       	   	'</td>'.
		      '</tr>'.
              '<tr>'.
		   	'<td align="right">'.
		      	 '&nbsp;'.
       	   	'</td>'.
       	      	'<td align="left">'.
		   	 '<input id="iCadPro_P_Mesa" name="CPI_P_Mesa" type="checkbox" value="1" '.(@$Row_CadCPI['CPI_P_MESA'] ? 'checked' : '').'>'.
		   	 '&nbsp;&nbsp;'.
		   	 SQLVarConfig('NOME_LOCAIS_SVC').
       	   	'</td>'.
		      '</tr>'.
		     '</table>'.
		     '<table width="100%">'.
		      '<tr>'.
               '<td width="'.$nLargura_Esquerda.'px" height="'.$nAltura_Linha.'px" align="right" valign="middle">'.
		        'Percentual: '.
		        '&nbsp;'.
       	   	'</td>'.
       	      	'<td align="left" valign="middle">'.
		         '<input id="iCadECPI_PerceProm" name="CPI_PerceProm" type="text" value="'.@$Row_CadCPI['CPI_PERCEPROM'].'" maxlength="5" style="width:70px; height:22px; background:#FFFBEC; border-width: 1px; border-style:solid; border-color:#0099FF;">'.
       	   	'</td>'.
       	      	'<td align="left" valign="middle">'.
		        '<span style="color:#FF0000;"> % taxa de serviço cobrada no fechamento da conta - '.SQLVarConfig('NOME_LOCAIS_SVC').
       	   	'</td>'.
		      '</tr>'.
		     '</table>'
             ).
           '</form>'.
       	   '<table width="100%">'.
       	     '<tr>'.
		        '<td width="4px" height="40px" align="left">'.
		    	    '&nbsp;'.
		        '</td>'.
       	        '<td>'.
       	           HTML_Botao( 3, 'CadECPI_BT_Svl', "document.forms.fmECadCPI.acao.value='SALVAR'; ".
    	                                            "document.forms.fmECadCPI.submit();"
		                        , 'Salvar (F10)','images/btimg_salvar.png').'&nbsp;&nbsp;'.
       	        '</td>'.
       	        '<td width="120px" align="left">'.
       	           HTML_Botao( 3, 'CadECPI_BT_Fec', $oJanelaPrinc->sJavOnCPIckF
                                , 'Sair (ESC)' ,'images/btimg_fechar.png').
       	        '</td>'.
       	     '</tr>'.
		   '</table>'.
           '';
		 //
         If ( STRPOS($sRet_TelaJ_HTML,'<!--POR_DIAS_DA_SEMANA-->')>0 ) {
            $sHTML_Por_Semana =
              '<style type="text/css" rel="stylesheet">'.
               '.CadPromItem_Semanas {'.
                 'margin-left:0px; margin-top:0px; margin-right:0px; margin-bottom:0px; padding:0px; border-spacing:0px;'.
                 'background:#EDEBD9;'.
               '}'.
               '.CadPromItem_Semanas input[type="text"] {'.
                 'width:70px;'.
                 'height:26px;'.
                 'background:#FFFBEC;'.
                 'border-width: 1px;'.
                 'border-style:solid;'.
                 'border-color:#0099FF;'.
                 'text-align:center;'.
               '}'.
               '.CadPromItem_Semanas input[type="checkbox"] {'.
                 'position:relative;'.
                 'top:0px;'.
                 'width:16px;'.
                 'height:16px;'.
               '}'.
              '</style>'.
       	      '<table width="100%">'.
			   '<tr>'.
                '<td width="10px" height="200px">'.
			    '</td>'.
                 '<!--POR_DIAS_DA_SEMANA-->'.
                '<td>'.
			    '</td>'.
               '</tr>'.
               //
               '<tr>'.
                '<td>'.
			    '</td>'.
                '<td colspan="5" style="color:#CC6A00;">'.
                 '* Será considerado o dia da semana pela data de trabalho do sistema.'.
                 //'<br>'.
                 //PuxarPrecoPromocional( $Row_CadCPI['CPI_CODPROINT']+0, 1 ).
			    '</td>'.
               '</tr>'.
               //
              '</table>';
            //
            $sHTML_Tmp = '';
            ForEach( $aDias_da_Semana_F As $nIndice => $sDia_Semana ) {
               If ( EMPTY($sDia_Semana) ) { CONTINUE; }
               $sId_Input_Chk = 'iCadECPI_HrSm'.$nIndice.'_Habi';
               $sId_Input_Ini = 'iCadECPI_HrSm'.$nIndice.'_Ini';
               $sId_Input_Fim = 'iCadECPI_HrSm'.$nIndice.'_Fim';
               $aTmp = $oJanelaPrinc->aIdsObjList;
               $aTmp[] = $sId_Input_Chk;
               $aTmp[] = $sId_Input_Ini.'1';   $aTmp[] = $sId_Input_Fim.'1';
               $aTmp[] = $sId_Input_Ini.'2';   $aTmp[] = $sId_Input_Fim.'2';
               $Row_CadCPI['CPI_HRSM'.$nIndice.'_INI1'] = DATE("H:i:s" , ConvertDtHrSTR( '2000-01-01 '.@$Row_CadCPI['CPI_HRSM'.$nIndice.'_INI1'] ));
               $Row_CadCPI['CPI_HRSM'.$nIndice.'_FIM1'] = DATE("H:i:s" , ConvertDtHrSTR( '2000-01-01 '.@$Row_CadCPI['CPI_HRSM'.$nIndice.'_FIM1'] ));
               $Row_CadCPI['CPI_HRSM'.$nIndice.'_INI2'] = DATE("H:i:s" , ConvertDtHrSTR( '2000-01-01 '.@$Row_CadCPI['CPI_HRSM'.$nIndice.'_INI2'] ));
               $Row_CadCPI['CPI_HRSM'.$nIndice.'_FIM2'] = DATE("H:i:s" , ConvertDtHrSTR( '2000-01-01 '.@$Row_CadCPI['CPI_HRSM'.$nIndice.'_FIM2'] ));
               $oJanelaPrinc->aIdsObjList = $aTmp;
               $sHTML_Tmp .=
                 '<td width="115px" valign="middle" align="center" class="CadPromItem_Semanas">'.
			      '<spam style="font-weight:bold;">'.
                   '<input id="'.$sId_Input_Chk.'" name="CPI_HrSm'.$nIndice.'_Habi" type="checkbox" value="1" '.(@$Row_CadCPI['CPI_HRSM'.$nIndice.'_HABI'] ? 'checked' : '' ).'>'.
			       '<div style="height:1px;"></div>'.
                   $sDia_Semana.
			      '</spam>'.
			      '<div style="height:12px;"></div>'.
                  '<input id="'.$sId_Input_Ini.'1" name="CPI_HrSm'.$nIndice.'_Ini1" type="text" value="'.@$Row_CadCPI['CPI_HRSM'.$nIndice.'_INI1'].'" maxlength="8">'.
			      '<div style="height:6px;"></div>'.
                  '<input id="'.$sId_Input_Fim.'1" name="CPI_HrSm'.$nIndice.'_Fim1" type="text" value="'.@$Row_CadCPI['CPI_HRSM'.$nIndice.'_FIM1'].'" maxlength="8">'.
			      '<div style="height:12px;"></div>'.
                  '<input id="'.$sId_Input_Ini.'2" name="CPI_HrSm'.$nIndice.'_Ini2" type="text" value="'.@$Row_CadCPI['CPI_HRSM'.$nIndice.'_INI2'].'" maxlength="8">'.
			      '<div style="height:6px;"></div>'.
                  '<input id="'.$sId_Input_Fim.'2" name="CPI_HrSm'.$nIndice.'_Fim2" type="text" value="'.@$Row_CadCPI['CPI_HRSM'.$nIndice.'_FIM2'].'" maxlength="8">'.
			     '</td>'.
                 '';
            }
            //
            $sHTML_Por_Semana = STR_REPLACE( '<!--POR_DIAS_DA_SEMANA-->', $sHTML_Tmp       , $sHTML_Por_Semana);
            $sRet_TelaJ_HTML  = STR_REPLACE( '<!--POR_DIAS_DA_SEMANA-->', $sHTML_Por_Semana, $sRet_TelaJ_HTML );
            UNSET($sHTML_Tmp);
         }
         //
         $sRet_TelaJ_HTML =
   	       $oJanelaPrinc->MontaJanHTML(True).
           $sRet_TelaJ_HTML.
    	   $oJanelaPrinc->MontaJanHTML(False);
         //
		 $sRet_Javs .=
          "";
         //
         $sRet_JavsPos .=
    	   ( @$aSessao['TipoLocal']==0 ?
		      'parent.document.getElementById("iCadECPI_CodProInt").focus();'
		   : 
		      'parent.document.getElementById("iCadECPI_DiaDaSemana").focus();'
		   ).
		   ( $bDir_Alterar ? '' :
		       "parent.document.getElementById('CadECPI_BT_Svl').style.display='none';"
		    ).
		   "function Puxar_Produto() {".
		      "parent.document.forms.fmECadCPI.acao.value='PUXAR_PRODUTO'; ".
		      "parent.document.forms.fmECadCPI.submit();".
		   "}".
		   "function Valida_Qtde() {".
		      //"parent.document.forms.fmECadCPI.Ite_Qtd.value = parent.document.getElementById('iCadECPI_Quantid').value;".
		      "parent.document.forms.fmECadCPI.acao.value='VALIDA_QTDE'; ".
		      "parent.document.forms.fmECadCPI.submit();".
		   "}".
           //
           "function Calcular_MargemCusto() {".
             "var sValorPreVenda = parent.$('#iCadECPI_CodProVal').val();".
             "var nValorPreVenda = Converter_Moeda_em_Numero( sValorPreVenda );".
             "var sValorPreCusto = parent.$('#iCadECPI_CodProCus').val();".
             "var nValorPreCusto = Converter_Moeda_em_Numero( sValorPreCusto );".
             "var sValorPromocao = parent.$('#iCadECPI_ValorProm').val();".
             "var nValorPromocao = Converter_Moeda_em_Numero( sValorPromocao );".
             //
             "var nPerDescontoPromo = 0;".
             "if ( nValorPreVenda > 0 && nValorPromocao > 0 ) {".
               "nPerDescontoPromo = ( ( nValorPreVenda - nValorPromocao ) / nValorPreVenda ) * 100;".
               "nPerDescontoPromo = nPerDescontoPromo.toFixed(2);".
             "}".
             "parent.$('#iCadECPI_PercDescontoPromo').val('% '+nPerDescontoPromo);".
             //
             "var nPerMargemNormal = 0;".
             "if ( nValorPreVenda > 0 && nValorPreCusto > 0 ) {".
               "nPerMargemNormal = ( ( ( nValorPreVenda / nValorPreCusto ) - 1) * 100);".
               "nPerMargemNormal = nPerMargemNormal.toFixed(2);".
             "}".
             "parent.$('#iCadECPI_MargemNormal').val('% '+nPerMargemNormal);".
             //
             "var nPerMargemPromocao = 0;".
             "if ( nValorPromocao > 0 && nValorPreCusto > 0 ) {".
               "nPerMargemPromocao = ( ( ( nValorPromocao / nValorPreCusto ) - 1) * 100);".
               "nPerMargemPromocao = nPerMargemPromocao.toFixed(2);".
             "}".
             "parent.$('#iCadECPI_MargemPromocao').val('% '+nPerMargemPromocao);".
             //
           "}".
           "function Converter_Moeda_em_Numero( sValor ) {".
             "var sValor_Retorno = sValor;". 
             "sValor_Retorno = sValor_Retorno.replaceAll('R','');".
             "sValor_Retorno = sValor_Retorno.replaceAll('$','');".
             "sValor_Retorno = sValor_Retorno.replaceAll(' ','');".
             "sValor_Retorno = sValor_Retorno.replaceAll('.','');".
             "sValor_Retorno = sValor_Retorno.replaceAll(',','.');".
             "return parseFloat( '0'+sValor_Retorno );".
           "}".
           //
           "if (!String.prototype.replaceAll) {".
             "String.prototype.replaceAll = String.prototype.replaceAll || function(needle, replacement) {".
               "return this.split(needle).join(replacement);".
             "};".
           "}".
           //
		   ( @$aSessao['TipoLocal']==0 ?
		      "Puxar_Produto();"
			  //"Valida_Qtde();"
		   : "" ).
		   //
		   "function Interroga(opcao) {".
    	      'if (opcao==1){'.
    	         "if ( parent.document.getElementById('men_01').style.display == 'none') {".
    	            'parent.document.getElementById("men_01").style.display="inline";'. 
    	         "} else {".   
    	           "if ( parent.document.getElementById('men_01').style.display != 'none') {".
    	    	      'parent.document.getElementById("men_01").style.display="none";'. 
    	            "}".  
    	         "}".  
    	      '}'.
    	   "}".
		   //
		   "function Exibir_SubTot_Chks() {".
		      "objIn = parent.document.getElementById('iCadECPI_SubTot_Fc');".
		      "objTb = parent.document.getElementById('tb_SubTot_Chks');".
			  "if ( objIn.value=='0' ) {".
			      "objTb.style.display='none';".
			  "} else {".
			      "objTb.style.display='';".
			  "}".
		   "}".
		   // horario inicial taxa
		   "function mascara_hora_ini(hora) {". 
              "var myhora = '';". 
              "myhora = myhora + hora;". 
              
			  "if (myhora.length == 2){". 
                  "myhora = myhora + ':';". 
                  "parent.document.forms.fmECadCPI.CPI_Horar_Ini.value = myhora;". 
              "}". 
              "if (myhora.length == 5){". 
                  "verifica_hora_ini();". 
              "}". 
           "}". 
           "function verifica_hora_ini() {". 
              "hrs = (parent.document.forms.fmECadCPI.CPI_Horar_Ini.value.substring(0,2));". 
              "min = (parent.document.forms.fmECadCPI.CPI_Horar_Ini.value.substring(3,5));". 
              "situacao = '';". 
              // verifica data e hora 
              "if ((hrs < 00 ) || (hrs > 23) || ( min < 00) ||( min > 59)){". 
                  "situacao = 'falsa';".
              "}". 
              "if (parent.document.forms.fmECadCPI.CPI_Horar_Ini.value == '') {". 
                  "situacao = 'falsa';". 
              "}". 
              "if (situacao == 'falsa') {". 
                  "parent.document.forms.fmECadCPI.CPI_Horar_Ini.focus();". 
                  "parent.document.forms.fmECadCPI.CPI_Horar_Ini.value='';".
				  "parent.Alerta_Simples('Hora Inválida.',0);".
			  "}". 
           "}". 
		   // horario final taxa
		   "function mascara_hora_fim(hora) {". 
              "var myhora = '';". 
              "myhora = myhora + hora;". 
              
			  "if (myhora.length == 2){". 
                  "myhora = myhora + ':';". 
                  "parent.document.forms.fmECadCPI.CPI_Horar_Fim.value = myhora;". 
              "}". 
              "if (myhora.length == 5){". 
                  "verifica_hora_fim();". 
              "}". 
           "}". 
           "function verifica_hora_fim() {". 
              "var HoraIni = parent.document.forms.fmECadCPI.CPI_Horar_Ini.value;".
			  "hrs = (parent.document.forms.fmECadCPI.CPI_Horar_Fim.value.substring(0,2));". 
              "min = (parent.document.forms.fmECadCPI.CPI_Horar_Fim.value.substring(3,5));". 
              "situacao = '';".
              "hormen	= '';".		  
              // verifica data e hora 
              "if ((hrs < 00 ) || (hrs > 23) || ( min < 00) ||( min > 59)){". 
                  "situacao = 'falsa';".
              "}". 
              "if (parent.document.forms.fmECadCPI.CPI_Horar_Fim.value == '') {". 
                  "situacao = 'falsa';". 
              "}". 
			  "if (parent.document.forms.fmECadCPI.CPI_Horar_Fim.value < HoraIni) {".
                  "hormen = 'verdade';".
				  "situacao = 'falsa';". 
              "}". 
              "if (situacao == 'falsa') {". 
                  "parent.document.forms.fmECadCPI.CPI_Horar_Fim.focus();". 
                  "parent.document.forms.fmECadCPI.CPI_Horar_Fim.value='';".
				  "if (hormen == 'verdade') {". 
				     "parent.Alerta_Simples('Horário menor que a hora inicial.',0);".
				  "} else {".
				     "parent.Alerta_Simples('Hora Inválida.',0);".
				  "}".
				  
			  "}". 
           "}".
	   
		   //
		   "function Teclas_F( Objeto, Evento ) {".
             "vNumTecla = parent.Tecla_Apertada(Evento);".
             "if ( vNumTecla==121) { ".         // ** [F10] **        Gravar
			     "if ( parent.document.getElementById('CadECPI_BT_Svl').style.display != 'none' ) {".
                     "setTimeout( parent.document.getElementById('CadECPI_BT_Svl').onclick , 100);".
				 "}".
		     
		     "} else if ( vNumTecla==116) { ".  // ** [F5] **         Não atualizar
                 //
		     "} else if ( vNumTecla==27) { ".   // ** [ESC] **        (SAIR)
                 "setTimeout( parent.document.getElementById('CadECPI_BT_Fec').onclick , 100);".
		     "} else if ( vNumTecla==13) { ".   // ** [ENTER] **
				 "sTempId = parent.Proximo_TabObj(parent.document.getElementById('".$oJanelaPrinc->sIdObj."'),parent.sIdHasFocus);".
				 "if ( sTempId.length>0 ) {".
				     "parent.document.getElementById(sTempId).focus();".
				 "} else {".
    	             ( @$aSessao['TipoLocal']==0 ?
					    'parent.document.getElementById("iCadECPI_CodProInt").focus();'
				     :
					    'parent.document.getElementById("iCadECPI_DiaDaSemana").focus();'
					 ).
				 "}".
			     //
			 "} else {".
			     "return true;".
			 "}".
			 "return false;".
		  '}'.
		  // calendario
		  'parent.Calendar.setup({ '.
            'inputField : "iCadECPI_DataInici", '.
            'trigger    : "bt_CadECPI_DataInici", '.
            'onSelect   : function() { this.hide(); P_Atu(); }, '.
            'showTime   : 0, '.
            'dateFormat : "%d/%m/%Y" '.
        '});'.
        'parent.Calendar.setup({ '.
            'inputField : "iCadECPI_DataFinal", '.
            'trigger    : "bt_CadECPI_DataFinal", '.
            'onSelect   : function() { this.hide(); P_Atu(); }, '.
            'showTime   : 0, '.
            'dateFormat : "%d/%m/%Y" '.
        '});'.
	    "";
       //
	}
//
//  ** CONSULTA AO CADASTRO DE Produtos **
} ElseIf ( $sSubModulo=="PRO" ) {
    $sNomeIdJ_Ant = $sNomeIdJEdt_Cad;
    $sNomeIdCampo = "iCadECPI_CodProInt";
    $sJavaExePos  = "parent.Car_".$sNomeAcesso."2.Puxar_Produto();";
    $nQdrNomeAcs  = 3;
    REQUIRE "./modulos/consulta_produto.inc";
//
//  ** CONSULTA **
} Else {
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJConsulta; 
    $oJanelaPrinc->nTop    = 5;
    $oJanelaPrinc->nLeft   = 5;
    $oJanelaPrinc->nWidth  = 830;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
  	$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Promoção';
	$oJanelaPrinc->sJavOnCPIck = "document.getElementById('iCadCPI_PChave').focus();";
	$oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."1.Teclas_F(this,event);";
    //
	$sJavaTravarJ = "document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);";
	$oJanelaPrinc->sJavOnCPIckF = 
	   $sJavaTravarJ.
		"document.forms.fmPCadCPI.acao.value='FECHAR'; ".
		"document.forms.fmPCadCPI.submod.value=''; ".
		"document.forms.fmPCadCPI.CPI_PChave.value=''; ".
		"document.forms.fmPCadCPI.CPI_NumCam.value=''; ".
		"document.forms.fmPCadCPI.submit();".
		"";
	//	
	$n_TipoLocal   = (@$_REQUEST['TipoLocal']-1);       // Tipo Promoção=0 / Taxa=1 / 	
    //
	// Criar objeto GRID
    $oTabelaRegs = New Pad_GridPesq();
    If ($n_TipoLocal==1) {  // taxa de serviço
	   //$oTabelaRegs->sNomeTabela  = 'cad_promocao_itens';
	   $oTabelaRegs->sTabelas     = 'cad_promocao_itens';
    } ElseIf($n_TipoLocal==0) {
	   $oTabelaRegs->sTabelas     = 'cad_promocao_itens,cad_produto';
	}
	$oTabelaRegs->sIdObjTabela = 'iQdr_ListaCPI';
    $oTabelaRegs->GLstCampos( ( $n_TipoLocal==0 ? 
	                              'ITE_CODIGOL,Produto,50px;'.
								  'ITE_DESCRIC,Descrição;'
                               :
                                  "" ).  							   
								  //'CPI_DIASEMANA,Dia da Semana,66px,DIADASEMANA;'.
								  'CPI_DATAINICI,Período Inicial,80px,DTA;'.
								  'CPI_DATAFINAL,Período Final,80px,DTA;'.
							    ( $n_TipoLocal==0 ? 
								  'CPI_VALORPROM,Valor,80px,MOE;'.
								  'CPI_PARQUAN,Á Partir desta Qtde,120px;'
							    :
								  'CPI_HORAR_INI,Horário Inicial,60px,HOR;'.
				                  'CPI_HORAR_FIM,Horário Final,60px,HOR;'.
								  'CPI_PERCEPROM,% Percentual,60px;'
							    ).
							 "");
    $oTabelaRegs->sCampoIndice = 'CPI_ID_PROITE';
    $oTabelaRegs->nWidth  = $oJanelaPrinc->nWidth;
    $oTabelaRegs->nHeight = 400;    // Altura
    $oTabelaRegs->sCampoOnClick  = "Car_".$sNomeAcesso."1.P_Sel(<NUMCAM>); Car_".$sNomeAcesso."1.P_Atu();";
    $oTabelaRegs->sLinhaOnClick  = "Car_".$sNomeAcesso."1.PRow_Sel(<QTDCOL>,<SELLIN>);";
    $oTabelaRegs->sLinhaOnDblClk = $sJavaTravarJ.
	                               "Car_".$sNomeAcesso."1.Pesq_Editar();";
    $oTabelaRegs->sJavSelectReg =
	  "sSelIndice = S_Indice;".
      "if (parseInt(sSelIndice)>0) {".
          ($bDir_Alterar ?
           "parent.document.getElementById('CadCCPI_BT_Itv').style.display='inline-block';"
          : '').
          //"parent.document.getElementById('CadCCPI_BT_Edt').style.visibility='visible';".
          "parent.document.getElementById('CadCCPI_BT_Edt').style.display='inline-block';".
      "} ".
      'parent.document.getElementById("iCadCPI_PChave").focus();';
    //
    // MONTAR LISTA DE CADASTROS
    If ( $sAcao=="LISTAR" ) {
      $n_TipoLocal   = (@$_REQUEST['TipoLocal']-1);       // Tipo Promoção=0 / Taxa=1 / 
      $aSessao['TipoLocal'] = $n_TipoLocal;
	  If ($bDir_Consult) {
		 $sP_PChave = @$_REQUEST['CPI_PChave'];
         $nP_NumCam = @$_REQUEST['CPI_NumCam']+0;
         $nIniReg = 0;
         $nQtdReg = 10000;
         // Montar condição para a pesquisa
		 $sWhereSQL = "CPI_DATACANCE IS NULL";
		 If ($n_TipoLocal==0) {         // Promoção
		    $sWhereSQL .= ' AND CPI_TIP_TABEL=0';
         } ElseIf ($n_TipoLocal==1) {   // Taxa de serviço
		    $sWhereSQL .= ' AND CPI_TIP_TABEL=1';
	     }
			
		 If ( $nP_NumCam==0 ) { 
		    $nP_NumCam=2; 
		 }
		 $aLstCampo = EXPLODE(',',@$oTabelaRegs->aLstCampos[$nP_NumCam-1]);
		 If ( STRLEN(@$aLstCampo[0])>0 ) {
			If ( STRLEN($sP_PChave)>0 ) {
			   If ( STRTOUPPER( $sP_PChave ) == 'DOMINGO' ) {
				  $sP_PChave = '1';
			   } ElseIf( STRTOUPPER( $sP_PChave ) == 'SEGUNDA' ) {
			      $sP_PChave = '2';
			   } ElseIf( STRTOUPPER( $sP_PChave ) == 'TERÇA' ) {
			      $sP_PChave = '3';
			   } ElseIf( STRTOUPPER( $sP_PChave ) == 'QUARTA' ) {
			      $sP_PChave = '4';
			   } ElseIf( STRTOUPPER( $sP_PChave ) == 'QUINTA' ) {
			      $sP_PChave = '5';
			   } ElseIf( STRTOUPPER( $sP_PChave ) == 'SEXTA' ) {
			      $sP_PChave = '6';
			   } ElseIf( STRTOUPPER( $sP_PChave ) == 'SÁBADO' ) {
			      $sP_PChave = '7';
			   }
    	       $sWhereSQL .= ' AND '.$aLstCampo[0].' LIKE "%'.$sP_PChave.'%" ';
			}
		    $sWhereSQL .=  ' ORDER BY '.$aLstCampo[0].' ASC ';
         }
		 If ($n_TipoLocal==0) {
		    $sProInt = 'CPI_CODPROINT=ITE_CODIGOI AND ';			 
		 } ElseIf ($n_TipoLocal==1) {   // Taxa de serviço
		    $sProInt = '';
		 }
		 $oTabelaRegs->sBDParametros = ' WHERE '.$sProInt.$sWhereSQL.' LIMIT '.$nIniReg.','.$nQtdReg;	
         //$oTabelaRegs->sBDParametros = ' WHERE CPI_CODPROINT=ITE_CODIGOI AND '.$sWhereSQL.' LIMIT '.$nIniReg.','.$nQtdReg;
			
			// Tabela
         $sRet_TelaJ_HTML = $oTabelaRegs->MontaTabelaHTML();
         // Java
         $sRet_Javs .=
            "var iQdr_ListaCPI = parent.document.getElementById('".$oTabelaRegs->sIdObjTabela."');".
    	    'iQdr_ListaCPI.innerHTML = '.JAVA_CharCode($sRet_TelaJ_HTML).';'.
    	    '';
         // Java posterior
         $sRet_JavsPos .=
	       'parent.Car_'.$sNomeAcesso.'1.'.$oTabelaRegs->sNomeTabela.'_Rowsel = 1;'.
           'parent.Car_'.$sNomeAcesso.'1.P_Sel('.$nP_NumCam.');'.
    	   '';
         $sRet_TelaJ_HTML = '';
         //
      }	
	//
    // FECHAR
    } ElseIf ( $sAcao=="FECHAR" ) {
       $sRet_Javs .=
		  'parent.document.getElementById("dv_MenuL_Barra").style.visibility="visible";'.
	      "parent.RmElem('".$oJanelaPrinc->sIdObj."');";
    //
    
    //
    // INATIVAR REGISTRO
    } ElseIf ( $sAcao=="INATIVAR" ) {
	   $sRet_Javs .=
	      'parent.JanEspera(false);'.
		  '';
	   If ($bDir_Alterar) {
	      If ((@$_REQUEST['CPI_Codigo']+0)>0) {
             //MYSQL_QUERY("UPDATE cad_cliente SET CLI_TRAREG=1 WHERE CLI_CODIGOI=".(@$_REQUEST['CPI_Codigo']+0)." ;") or die(MYSQL_ERROR());
	         MYSQL_QUERY("UPDATE cad_promocao_itens SET CPI_DATACANCE='".DATE("Y-m-d H:i:s")."' ,CPI_FUNCCANCE=".$R_CadFuncionario->FUN_CODIGO." WHERE CPI_ID_PROITE=".(@$_REQUEST['CPI_Codigo']+0)." ;") or die(MYSQL_ERROR());
				
				$sRet_Javs .= 
		        'parent.Car_'.$sNomeAcesso.'1.PRow_Sel('.($oTabelaRegs->nQtdCampos-1).',1);'.
		        'parent.Car_'.$sNomeAcesso.'1.P_Atu();'.
                '';
	      }
	   } Else {
	      $sRet_Javs .= Info_Evento('ALERTA: Sem previlégio de alteração para inativar.');
	   }
    //
    // JANELA TELA PRINCIPAL
    } Else {
	   
	   // Confirma a inativação do registro
	   $sJavClkInat =
		  JAVA_CharCode(
		     "if (_NUM_BOT_==1) { ".
                 "JanEspera(true, 'Inativando registro... Aguarde...');".
                 "setTimeout( function() { ".
                    "document.forms.fmPCadCPI.acao.value='INATIVAR'; ".
                    "document.forms.fmPCadCPI.submod.value=''; ".
                    "document.forms.fmPCadCPI.CPI_Codigo.value=Car_".$sNomeAcesso."1.sSelIndice;".
                    "document.forms.fmPCadCPI.submit();".
                 "}, ".$nTmpFrmEnv.");".
		  	 "}"
		   );
	   $sJavClkInat =
		  "sIdHasFocus='iCadCPI_PChave';".
	      "Qdr_Prompt_H(true,'Tem certeza que deseja INATIVAR esta promoção?',".$sJavClkInat.",['Sim','Não']); ";
	   //
       // Tela HTML
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
          '<form name="fmPCadCPI" 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="CPI_PChave" type="hidden" value="">'.
           '<input name="CPI_NumCam" type="hidden" value="">'.
    	   '<input name="CPI_Codigo" type="hidden" value="">'.
		   '<input name="TipoLocal" type="hidden" value="1">'.
          '</form>'.
       	  '<table width="100%"><tr>'.
       	   '<td width="4px" height="10px" align="left">&nbsp;</td>'.
       	   '<td align="left" width="110px">'.
       	    'Procurar por : '.
       	   '</td>'.
       	   '<td align="left" width="300px">'.
       	    '<input id="iCadCPI_PChave" type="text" maxlength="30" style="width:98%; height:24px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
       	   '</td>'.
       	   '<td align="center">'.
		    //'<span onclick="Car_'.$sNomeAcesso.'1.P_Ativos();" style="cursor:pointer; font-weight:bold; font-size:13px; text-decoration:underline;">'.
		    //'Mostrar somente os <span id="PCadCPI_Ativos">inativos</span>'.
			//'</span>'.
       	   '</td>'.
       	   '<td align="right" width="70px">'.
       	   HTML_Botao( 3, 'CadCPI_BT_Pro', 'Car_'.$sNomeAcesso.'1.P_Atu();'
		                , 'Procurar'     ,'images/btimg_lupa.png').
       	   '</td>'.
       	  '</tr></table>'.
		  //
		  MontarGuiasHTML('Gu_ProTxa', "",
		     '** [{Promoção}] **'.
		     ''.
		     '** {[FIM]} **'.
		     '** [{Taxa de Serv.}] **'.
		     ''.
		     '** {[FIM]} **',
		     "document.forms.fmPCadCPI.TipoLocal.value='<COD_GUIA>';".
			 'Car_'.$sNomeAcesso.'1.P_Atu();'
		  ).
		  //
    	  $oTabelaRegs->MontaDivHtml().
       	  '<table width="100%" style="background-color:'.$sCorBarraInf.';"></tr>'.
       	   '<td width="4px" height="40px" align="left">&nbsp;</td>'.
       	   '</td>'.
       	   '<td>'.
       	    HTML_Botao( 3, 'CadCCPI_BT_Nov', $sJavaTravarJ.
			                                 "document.forms.fmPCadCPI.acao.value='NV'; ".
			                                 "document.forms.fmPCadCPI.submod.value='EDT'; ".
    	                                     "document.forms.fmPCadCPI.submit();"
			             , 'Novo (F6)'   ,'images/btimg_novo.png').'&nbsp;&nbsp;'.
       	    HTML_Botao( 3, 'CadCCPI_BT_Edt', $sJavaTravarJ.
			                                 "Car_".$sNomeAcesso."1.Pesq_Editar();"
			             , ($bDir_Alterar ? 'Editar' : 'Visualizar').' (F7)' ,'images/btimg_editar.png',110).'&nbsp;&nbsp;'.
       	    HTML_Botao( 3, 'CadCCPI_BT_Itv', $sJavClkInat
			             , 'Inativar (F8)','images/btimg_remover.png',110).
       	   // HTML_Botao( 3, 'CadCCPI_BT_Atv', $sJavClkAtiv
			   //          , 'Ativar (F8)','images/btimg_ativar.png').'&nbsp;&nbsp;'.
       	   '</td>'.
       	   '<td width="120px" align="left">'.
       	    HTML_Botao( 3, 'CadCCPI_BT_Fch', $oJanelaPrinc->sJavOnCPIckF
                         , 'Sair (ESC)' ,'images/btimg_fechar.png').
       	   '</td>'.
       	  '</tr></table>'.
		  $oJanelaPrinc->MontaJanHTML(False);
       //
       $sRet_Javs .=
		  'parent.document.getElementById("dv_MenuL_Barra").style.visibility="hidden";'.
	      "var sSelIndice='';".
		  $oTabelaRegs->MontaJavaPri().
          "function P_Atu() {".
            "sSelIndice='0';".
		    $oTabelaRegs->MontaJavaAgu().
		    "parent.document.getElementById('CadCCPI_BT_Edt').style.display='none';".
		    "parent.document.getElementById('CadCCPI_BT_Itv').style.display='none';".
		    //"parent.document.getElementById('CadCCPI_BT_Atv').style.display='none';".
         	"parent.document.forms.fmPCadCPI.acao.value='LISTAR'; ".
            "parent.document.forms.fmPCadCPI.submod.value=''; ".
         	"parent.document.forms.fmPCadCPI.CPI_PChave.value=parent.document.getElementById('iCadCPI_PChave').value; ".
         	"parent.document.forms.fmPCadCPI.CPI_NumCam.value=nPesq_CampoSel+''; ".
         	"setTimeout( function() { parent.document.forms.fmPCadCPI.submit(); }, 100);".
          "}".
		  'function Pesq_Editar() {'.
            "parent.document.forms.fmPCadCPI.acao.value='';".
            "parent.document.forms.fmPCadCPI.submod.value='EDT';".
            "parent.document.forms.fmPCadCPI.CPI_Codigo.value=sSelIndice;".
            "parent.document.forms.fmPCadCPI.submit();".
		  '}'.
		  /*"var bExbAtivos=true;".
		  'function P_Ativos() {'.
		    "var obj = parent.document.getElementById('PCadCPI_Ativos');".
			"if (bExbAtivos) {".
                "parent.document.forms.fmPCadCPI.CPI_Ativos.value='0'; ".
			    "obj.innerHTML = 'ativos';".
				"bExbAtivos = false;".
			"} else {".
                "parent.document.forms.fmPCadCPI.CPI_Ativos.value='1'; ".
			    "obj.innerHTML = 'inativos';".
				"bExbAtivos = true;".
			"}".
			"P_Atu();".
		  '}'.*/
          //$oTabelaRegs->MontaJavaPri();
          '';
       // Java posterior
       $sRet_JavsPos .=
		  //"parent.document.getElementById('CadCCPI_BT_Atv').style.display='none';".
          ($bDir_Incluir ? '' :
		     "parent.document.getElementById('CadCCPI_BT_Nov').style.display='none';"
		  ).
		  ($bDir_Consult ?
		    "P_Atu();"
		  :
		    Info_Evento('ALERTA: Sem previlégio para consulta neste modulo.').
         	"parent.document.forms.fmPCadCPI.acao.value='FECHAR'; ".
            "parent.document.forms.fmPCadCPI.submod.value=''; ".
         	"parent.document.forms.fmPCadCPI.submit();"
		  ).
    	  'parent.document.getElementById("iCadCPI_PChave").focus();'.
		  //
		  "function Teclas_F( Objeto, Evento ) {".
             "vNumTecla = parent.Tecla_Apertada(Evento);".
             "if ( vNumTecla==117) { ".        //  ** [F6] **          // (Novo)
                 "if ( parent.document.getElementById('CadCCPI_BT_Nov').style.display != 'none') {".
                     "setTimeout( parent.document.getElementById('CadCCPI_BT_Nov').onclick , 1);".
				 "}".
		     "} else if ( vNumTecla==116) { ".  // ** [F5] **         Não atualizar
                 //
		     "} else if ( vNumTecla==118) { ". //  ** [F7] **          // (Editar)
                 "if ( parent.document.getElementById('CadCCPI_BT_Edt').style.display != 'none') {".
                      "setTimeout( parent.document.getElementById('CadCCPI_BT_Edt').onclick , 1);".
				 "}".
		     "} else if ( vNumTecla==119) { ". //  ** [F8] **          // (Inativar)
                 "if ( parent.document.getElementById('CadCCPI_BT_Itv').style.display != 'none') {".
                      "setTimeout( parent.document.getElementById('CadCCPI_BT_Itv').onclick , 1);".
					                                                   // (Ativar)
                // "} else if ( parent.document.getElementById('CadCCPI_BT_Atv').style.display != 'none') {".
                //      "setTimeout( parent.document.getElementById('CadCCPI_BT_Atv').onclick , 100);".
				     "}".
		     "} else if ( vNumTecla==27) { ".  //  ** [ESC] **         // (SAIR)
                  "setTimeout( parent.document.getElementById('CadCCPI_BT_Fch').onclick , 1);".
			 "} else {".
		          "P_TeclasPress_fm(Evento);".
			      "return true;".
			 "}".
			 "return false;".
		  "}".
		  //
    	  "";
    }
}

?>