<?php

$sNomeIdJConsulta = 'iJan_LstCadBai';
$sNomeIdJEdt_Cad  = 'iJan_EdtCadBai';
$sNomeIdJFer_Crg  = 'iJan_FerramCrg';
$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) **
$sBai_Codigo = @$_REQUEST['Bai_Codigo'];
If ( ISSET($_REQUEST['Cad_Codigo']) ) {
   $sBai_Codigo = @$_REQUEST['Cad_Codigo']+0;
}
If ( $sSubModulo=="EDT" ) {
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJEdt_Cad; 
    $oJanelaPrinc->nTop    = 40;
    $oJanelaPrinc->nLeft   = 27;
    $oJanelaPrinc->nWidth  = 660;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
	$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Cadastro de bairro';
	//
	$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->sJavOnClickF =
	      $sJavaTravarJ.
		  "document.forms.fmECadBai.acao.value='FECHAR'; ".
		  "document.forms.fmECadBai.submit();".
		  "";
	//
	$bMontarJanela = true;
	$bBai_Novo   = $sBai_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 este bairro.').
            "";
	   }
	   If ($bGravarReg) {
	      If ( STRLEN(@$_REQUEST['Bai_Descri'])<2 ) {
	         $sRet_Javs .= Info_Evento('Campo descrição incompleto.');
	         $bGravarReg = False;
	      }
	   }
	   If ($bGravarReg) {
	      If ( STRLEN(@$_REQUEST['Bai_CodCid'])<2 ) {
	         $sRet_Javs .= Info_Evento('Campo código da cidade incompleto.');
	         $bGravarReg = False;
	      }
	   }
	   // VERIFICA SE EXISTE BAIRRO E A CIDADE PARA NÃO DEIXAR GRAVAR DOIS BAIRROS COM O MESMO NOME CIDADE IGUAL
	   If ($bGravarReg) {
	      $sSqlBai=
	         "SELECT * ".
		     "FROM cad_bairro ".
			 "LEFT JOIN cad_cidade ON CID_CODIGO = BAI_CODCID ".
			 "WHERE BAI_DESCRI='".@$_REQUEST['Bai_Descri']."' AND BAI_CODCID='".@$_REQUEST['Bai_CodCid']."' ;"; 
		  
		  $Row_Bairro = MYSQL_QUERY($sSqlBai) or die('ERRO NO SELECT. '.mysql_error());
		  If (MYSQL_NUM_ROWS($Row_Bairro)>0) {
	          $nCod_Bai = MYSQL_FETCH_ARRAY( $Row_Bairro );
              If ($bBai_Novo) {
			     $sRet_Javs .= Info_Evento('Já existe um bairro cadastrado com esta cidade.<br>'.$nCod_Bai[0].'-'.$nCod_Bai[1].'-'.$nCod_Bai[8] );
	             $bGravarReg = False;
			  }
	      }
	   
	   
	   
	   }
	   If ($bGravarReg) {
		  $nBai_Codigo = Somente_Numeros($sBai_Codigo)+0;
	      If ( $bBai_Novo ) {
			 $sSQL = "INSERT INTO cad_bairro( BAI_DESCRI, BAI_ATIVO_ ) VALUES ('".@$_POST['Bai_Descri']."',1);";
			 MYSQL_QUERY( $sSQL ) Or Die($sSQL."<br>".MYSQL_ERROR());
			  
	         $sSQLQuery = "SELECT BAI_CODIGOI FROM cad_bairro ORDER BY BAI_CODIGOI DESC LIMIT 1;";
	         $nBai_Codigo = MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery."<br>".MYSQL_ERROR());
	         $nBai_Codigo = MYSQL_FETCH_ARRAY($nBai_Codigo);
	         $nBai_Codigo = $nBai_Codigo[0];
			 
			 
		  }
       		  
	      $nBai_TaxVal = STR_REPLACE(',','.',Somente_Numeros(@$_POST['Bai_TaxVal'],',.'))+0;
	      $nBai_TaxMot = STR_REPLACE(',','.',Somente_Numeros(@$_POST['Bai_TaxMot'],',.'))+0;
			 
		  // Atualizar registro
          MYSQL_QUERY(
             "UPDATE cad_bairro SET ".
                'BAI_DESCRI=' .SQL_Bin(UTF8_DECODE(STRTOUPPER(@$_POST['Bai_Descri']))).','.
                'BAI_TAXVAL="'.$nBai_TaxVal.'",'.
				'BAI_TAXMOT="'.$nBai_TaxMot.'",'.
				'BAI_CODCID="'.@$_REQUEST['Bai_CodCid'] .'",'.
				'BAI_ATIVO_=1 '.
			 " WHERE BAI_CODIGOI=".($nBai_Codigo)."; ") or die(MYSQL_ERROR());
	         
			 //
	      
          $sRet_Javs .= "document.location.href = './car_js.php?mod=".$sModulo."&submod=".$sSubModulo."&acao=FECHAR&nomeacs=".$sNomeAcesso."&acaoAnt=".$sAcao."';";
       }
	   //
	   $bMontarJanela = false;
    //
    // PUXAR CIDADE PELO CODIGO DO IBGE
    } ElseIf ( $sAcao=="PUXAR_CIDADE" ) {
	   $sBai_CodCid = @$_POST['Bai_CodCid'];
	   // Consulta
	   If ( $sBai_CodCid=='/' ) {
          $sRet_Javs .= 
	           "parent.document.getElementById('sCadEBai_Cidade').innerHTML = '( Consulta )';".
	           "parent.document.getElementById('iCadEBai_CodCid').value = '';".
	           $sJavaTravarJ.
		       "setTimeout( function () { ".
		          "parent.document.forms.fmECadBai.acao.value=''; ".
		          "parent.document.forms.fmECadBai.submod.value='CID'; ".
		          "parent.document.forms.fmECadBai.submit();".
		          "parent.document.forms.fmECadBai.submod.value='".$sSubModulo."'; ".
		       "} , 100);".
		       "";
	   // Exibir nome da cidade
	   } Else {
	      $sNomeCidade = '';
	      $Row = MYSQL_QUERY("SELECT * FROM cad_cidade WHERE CID_CODIGO='".$sBai_CodCid."' ;") or die(MYSQL_ERROR());
          If ($Row = MYSQL_FETCH_OBJECT($Row)) {
		     $sNomeCidade = $Row->CID_NOMECD.' - '.$Row->CID_ESTADO;
		  }
          $sRet_Javs .= 
	           "parent.document.getElementById('sCadEBai_Cidade').innerHTML = '".$sNomeCidade."';".
		       "";
	   }
	   //
	   $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("iCadBai_PChave").focus();'.
		  (@$_REQUEST['acaoAnt']=='SALVAR' ? "parent.Car_".$sNomeAcesso."1.P_Atu();" : '').
		  "";
	   $bMontarJanela = false;
	//
	// NOVO REGISTRO
	} ElseIf ( $sAcao=="NV" ) {
	   $sBai_Codigo = 'NOVO';
	   $bBai_Novo   = True;
	//
	// PUXAR REGISTRO
	} Else {
	   If (STRLEN($sBai_Codigo)==0) {
	      $bMontarJanela = False;
	      $sAcao = 'FECHAR';
          $sRet_Javs .=
		     "parent.document.getElementById('".$sNomeIdJConsulta."_Travar').style.visibility='hidden';".
	         Info_Evento('Selecione um bairro na lista.');
	   } Else {
		  $sSqlBai= 
		     "SELECT * ".
		     "FROM cad_bairro ".
			 "LEFT JOIN cad_cidade ON CID_CODIGO = BAI_CODCID ".
			 "WHERE BAI_CODIGOI=".($sBai_Codigo+0)." ;"; 
		   
          $Row_CadBai = MYSQL_QUERY($sSqlBai) or die(MYSQL_ERROR());
          If (! $Row_CadBai = MYSQL_FETCH_ARRAY($Row_CadBai)) {
	         $Row_CadBai = ARRAY();
	      }
	   }
       //
	}
	If ($bMontarJanela) {
	   //
	   $oJanelaPrinc->aIdsObjList =
	      ARRAY(
		    'iCadEBai_Descri', 'iCadEBai_CodCid','iCadEBai_TaxVal', 'iCadEBai_TaxMot'
		  );
	   //
	   If ( STRLEN(@$Row_CadBai['BAI_DESCRI'])>0 ) {
	      $sBai_Codigo = Str_Zero($sBai_Codigo, 7);
	   }
	   //
       // Tela HTML
	   //
	   $sCor_CampoT_1Fundo = "#FFFFFF";  // Campos input
	   $sCor_CampoT_1Letra = "#000000";
	   
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
		  '<style type="text/css" rel="stylesheet">'.
		     '.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.';'.
		     '}'.
		  '</style>'.
          '<form name="fmECadBai2" 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="'.$sBai_Codigo.'">'.
		  '</form>'.
          '<form name="fmECadBai" 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.'">'.
		     '<table width="100%" border="0">'.
			    '<tr>'.
       	           '<td width="94px" height="24px" align="right">'.
		              'Código:'.
		           '</td>'.
       	           '<td align="left" width="34px" >'.
			          '<input id="iCadEBai_Codigo" name="Bai_Codigo" type="text" value="'.$sBai_Codigo.'" readonly="readonly" style="width:60px; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;">'.
       	           '</td>'.
       	           '<td width="95px" height="24px" align="right">'.
		              'Descrição:'.
		           '<td>'.
		           '<td align="left">'.
		              '<input id="iCadEBai_Descri" name="Bai_Descri" type="text" value="'.@$Row_CadBai['BAI_DESCRI'].'" maxlength="30" style="text-transform:uppercase;width:95%; height:22px; background:#FFFBEC; border-width:1px; border-style:solid; border-color:#0099FF;">'.
       	           '</td>'.
       	      	'</tr>'.
			 '</table>'.
		     //
			 '<table width="100%" border="0">'.
		        '<tr>'.
		           '<td align="right" width="75px">'.
		              'Taxa de entrega:'.
		           '</td>'.
       	           '<td align="left" width="200px" valign="middle">'.
				      '<input id="iCadEBai_TaxVal" name="Bai_TaxVal" type="text" value="'.FormatoMoeda(@$Row_CadBai['BAI_TAXVAL']).'" maxlength="12" style="width:31%; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;" >'.
       	           '</td>'.
       	           '<td align="right" width="158px">'.
		              'Taxa do motoqueiro:'.
		           '</td>'.
		           '<td align="left" width="80px" valign="middle">'.
		              '<input id="iCadEBai_TaxMot" name="Bai_TaxMot" type="text" value="'.FormatoMoeda(@$Row_CadBai['BAI_TAXMOT']).'" size="10" maxlength="7" style="width:83%;height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
		           '</td>'.
		          //'<td width="4px">&nbsp;</td>'.
		        '</tr>'.
		     // alteração 4008
		     '</table>'.
			 
			 //
       	     '<table width="100%">'.
		        '<tr>'.
       	           '<td width="94px" height="24px" align="right">'.
		              'Cidade:'.
       	           '</td>'.
       	           '<td align="left" width="65px" valign="middle">'.
		              (  $bBai_Novo ?
		                 '<input id="iCadEBai_CodCid" name="Bai_CodCid" type="text" value="'.@$Dados_Empresa['EMP_CODCID'].'" maxlength="7" style="width:95%; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;" onchange="parent.Car_'.$sNomeAcesso.'2.Puxar_Cidade();">'
			          : 
			             '<input id="iCadEBai_CodCid" name="Bai_CodCid" type="text" value="'.@$Row_CadBai['BAI_CODCID'].'" maxlength="7" style="width:95%; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;" onchange="parent.Car_'.$sNomeAcesso.'2.Puxar_Cidade();">'
       	              ).
		           '</td>'.
       	           '<td align="left" id="sCadEBai_Cidade" style="font-size:12px;">'.
		              '(Aguarde...)'.
       	           '</td>'.
       	           '<td width="4px">&nbsp;</td>'.
       	        '</tr>'.
		     '</table>'.
		     //
		  //
          '</form>'.
          '<table width="100%" style="background-color:'.$sCorBarraInf.';"></tr>'.
       	   '<td width="4px" height="40px" align="left">&nbsp;</td>'.
       	   '</td>'.
       	   '<td>'.
       	    HTML_Botao( 3, 'CadEBai_BT_Svl', "document.forms.fmECadBai.acao.value='SALVAR'; ".
    	                                     "document.forms.fmECadBai.submit();"
			             , 'Salvar (F10)','images/btimg_salvar.png').'&nbsp;&nbsp;'.
       	   '</td>'.
       	   '<td width="114px" align="left">'.
       	    HTML_Botao( 3, 'CadEBai_BT_Fec', $oJanelaPrinc->sJavOnClickF
                         , 'Sair (ESC)' ,'images/btimg_fechar.png').
       	   '</td>'.
       	  '</tr></table>'.
    	  $oJanelaPrinc->MontaJanHTML(False);
       //
       $sRet_Javs .=
	      "".
          "";
       //
       $sRet_JavsPos .=
    	  'parent.document.getElementById("iCadEBai_Descri").focus();'.
		  ($bDir_Alterar ? '' :
		    "parent.document.getElementById('CadEBai_BT_Svl').style.display='none';"
		  ).
		  //
		  "function Puxar_Cidade() {".
		      "parent.document.forms.fmECadBai.acao.value='PUXAR_CIDADE'; ".
		      "parent.document.forms.fmECadBai.submit();".
		  "}".
		  "Puxar_Cidade();".
		  //
		  "function Teclas_F( Objeto, Evento ) {".
             "vNumTecla = parent.Tecla_Apertada(Evento);".
             "if ( vNumTecla==121) { ".         // ** [F10] **        Gravar
			     "if ( parent.document.getElementById('CadEBai_BT_Svl').style.display != 'none' ) {".
                     "setTimeout( parent.document.getElementById('CadEBai_BT_Svl').onclick , 100);".
				 "}".
		     "} else if ( vNumTecla==116) { ".  // ** [F5] **         Não atualizar
                 //
		     "} else if ( vNumTecla==27) { ".   // ** [ESC] **        (SAIR)
                 "setTimeout( parent.document.getElementById('CadEBai_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 {".
    	             'parent.document.getElementById("iCadEBai_Descri").focus();'.
				 "}".
			     //
			 "} else {".
			     "return true;".
			 "}".
			 "return false;".
		  '}'.
		  //
    	 "";
       //
	}
//
//
//  ** CONSULTA AO CADASTRO DE CIDADES **
} ElseIf ( $sSubModulo=="CID" ) {
    $sNomeIdJ_Ant = $sNomeIdJEdt_Cad;
    $sNomeIdCampo = "iCadEBai_CodCid";
    $sJavaExePos  = "parent.Car_".$sNomeAcesso."2.Puxar_Cidade();";
    REQUIRE "./modulos/consulta_cidade.inc";
//
//
//  ** FERRAMENTA DE CORREÇÃO DE BAIRROS **
} ElseIf ( $sSubModulo=="CRG" ) {
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJFer_Crg; 
    $oJanelaPrinc->nTop    = 60;
    $oJanelaPrinc->nLeft   = 0;
    $oJanelaPrinc->nWidth  = 740;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
	$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Ferramenta de correção de bairros';
	//
	//$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);";
    $sJavaDesTravarJ = "parent.document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='hidden'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',false);";
	$oJanelaPrinc->sJavOnClickF =
	      $sJavaTravarJ.
		  "document.forms.fmEFerCrg.acao.value='FECHAR'; ".
		  "document.forms.fmEFerCrg.submit();".
		  "";
	//
	$a_Sessao = @$aSessao[$sNomeAcesso.'_CRG'];
	//
	// Montar janela inicial
    If ( EMPTY($sAcao) ) {
	   //
	   $a_Sessao =
	      ARRAY(
		    "SEL_ORG" => ARRAY() ,
			"SEL_DST" => 0
		  );
	   // Html da janela
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
          '<form name="fmEFerCrg" 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.'">'.
		  '</form>'.
		  '<style type="text/css">'.
		   '.ListaQdrCrg {'.    // Estilo dos quadros das listas verticais
		     'width: 100%;'.
		     'height: 300px;'.
		     'background-color: #FFFFFF;'.
		     'overflow: auto;'.
			 'border: solid 1px #CBCBC5;'.
		   '}'.
		   '#Qdr_BaiCfg_Prn form {'.
		     'padding: 0px 0px;'.
			 'margin: 0px 0px;'.
		   '}'.
		  '</style>'.
		  '<div id="Qdr_BaiCfg_Agd" style="width:100%; height:410px;" align="center">'.
           '<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0">'.
            '<tr><td align="center" valign="middle" style="color:#555555;">'.
            'Aguarde um momento...<br>'.
            '<img src="images/img_load1.gif" border="0">'.
            '</td></tr>'.
           '</table>'.
		  '</div>'.
		  '<div id="Qdr_BaiCfg_Prn" style="width:100%; display:none;" align="center">'.
           '<form name="fmEFerCrg2" 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.'">'.
		   '<table width="98%" border="0">'.
		    '<tr>'.
       	     '<td width="260px" height="24px" align="center" style="font-size:14px;">'.
			  'Bairros cadastrados'.
			 '</td>'.
			 '<td align="center">'.
			  '&nbsp;'.
			 '</td>'.
       	     '<td width="260px" align="center" style="font-size:14px;">'.
			  'A serem convertidos (Origem)'.
			 '</td>'.
		    '</tr>'.
		    '<tr>'.
       	     '<td>'.
			  '<div id="dvQdrCrg_CadBai" class="ListaQdrCrg">'.
			  '</div>'.
			 '</td>'.
       	     '<td align="center">'.
       	       HTML_Botao( 2, 'CadECrg_BT_Dst', "Car_".$sNomeAcesso."2.Marcar_Destino();"
			                , 'Marcar como destino'   , '').
			   '<div style="height:10px;"></div>'.
       	       HTML_Botao( 2, 'CadECrg_BT_Org', "Car_".$sNomeAcesso."2.Marcar_Origem();"
			                , 'Marcar como origem >'   , '').
			   '<div style="height:10px;"></div>'.
       	       HTML_Botao( 2, 'CadECrg_BT_Rmv', "Car_".$sNomeAcesso."2.Remover_Origem();"
			                , '< Remover da origem'    , '').
			 '</td>'.
       	     '<td>'.
			  '<div id="dvQdrCrg_OrgBai" class="ListaQdrCrg">'.
			  '</div>'.
			 '</td>'.
		    '</tr>'.
		   '</table>'.
           '<table width="100%">'.
		    '</tr>'.
       	     '<td width="4px" height="32px" align="left">&nbsp;</td>'.
       	     '</td>'.
       	     '<td width="260px" align="center" valign="middle" style="font-size:12px;">'.
			  '<span id="spBaiCfgQtdDes"></span>'.
       	     '</td>'.
       	     '<td width="180px" align="right" valign="middle" style="font-size:14px; color:#000099;">'.
			  'Bairro de destino:'.
       	     '</td>'.
       	     '<td align="left" valign="middle">'.
			  '<input id="iCadECfg_Bai_Dst" type="text" value="" readonly="readonly" '.
			   'style="width:100%; height:24px; background:#FEFEFE; border-width: 1px; border-style: solid; border-color:#CBCBC5;"'.
			  '>'.
       	     '</td>'.
       	     '<td width="4px" style="font-size:1px;" align="left">&nbsp;</td>'.
       	     '</td>'.
		    '</tr>'.
		   '</table>'.
		   '</form>'.
           '<table width="100%" style="background-color:'.$sCorBarraInf.';"></tr>'.
       	    '<td width="4px" height="40px" align="left">&nbsp;</td>'.
       	    '</td>'.
       	    '<td>'.
       	     HTML_Botao( 3, 'CadECrg_BT_Act' ,"Car_".$sNomeAcesso."2.Corrigir();"
			              , 'Converter'      ,'images/btimg_salvar.png', 130).
       	    '</td>'.
       	    '<td width="120px" align="left">'.
       	     HTML_Botao( 3, 'CadECrg_BT_Fec', $oJanelaPrinc->sJavOnClickF
                          , 'Sair'          ,'images/btimg_fechar.png').
       	    '</td>'.
       	    '<td width="4px" align="left">&nbsp;</td>'.
       	    '</td>'.
       	   '</tr></table>'.
		  '</div>'.
    	  $oJanelaPrinc->MontaJanHTML(False);
       // Javascript anterior
       $sRet_Javs .=
          "";
       // Javascript posterior
       $sRet_JavsPos .=
	      "var Fm  = parent.document.forms.fmEFerCrg;".
	      "var Fm2 = parent.document.forms.fmEFerCrg2;".
		  // função para puxar bairros cadastrados
		  "function Puxar_CadBai() {".
		     "Fm.acao.value = 'PUXAR_CADBAI';".
			 "Fm.submit();".
		     "Fm.acao.value = '';".
		  "}".
		  // função do comando para marcar bairro de origem
		  "function Marcar_Origem() {".
		     "Fm2.acao.value = 'MARCAR_ORG';".
			 "Fm2.submit();".
		     "Fm2.acao.value = '';".
		  "}".
		  // função do comando para marcar bairro de destino
		  "function Marcar_Destino() {".
		     "Fm2.acao.value = 'MARCAR_DST';".
			 "Fm2.submit();".
		     "Fm2.acao.value = '';".
		  "}".
		  // função do comando para remover bairro de origem
		  "function Remover_Origem() {".
		     "Fm2.acao.value = 'REMOVER_ORG';".
			 "Fm2.submit();".
		     "Fm2.acao.value = '';".
		  "}".
		  // função do comando para aplicar as alterações de correção escolhidas
		  "function Corrigir() {".
		     "Fm.acao.value = 'SALVAR_CRG';".
			 "Fm.submit();".
		     "Fm.acao.value = '';".
			 $sJavaTravarJ.
		  "}".
		  //
		  "Puxar_CadBai();".
          "";
	   //
	// Puxar bairros cadastrados
    } ElseIf ( $sAcao=="PUXAR_CADBAI" ) {
	   //
	   $a_SelOrigem  = @$a_Sessao['SEL_ORG'];
	   $n_SelDestino = @$a_Sessao['SEL_DST'];
	   $a_Cad_Bairro = ARRAY();
	   $sQdrListaHtml = '';    // Lista dos bairros registrados
	   $sQdrLstSlHtml = '';    // Lista dos bairro já selecionado como origem
	   $sBairro_Destino = '';  // Descrição do bairro selecionado como destino
	   $sSQLQuery =
	     "SELECT ".
		    "BAI_CODIGOI, BAI_DESCRI ".
		 "FROM cad_bairro ".
		 "WHERE BAI_ATIVO_ ".
		 "ORDER BY BAI_DESCRI ASC ".
		 "LIMIT 2000 ".
		 ";";
	   $Rows_CadBai = MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery."<br>".MYSQL_ERROR());
	   $nQtd_Total = 0;
	   $sCor_da_Linha = "";
	   $aCoresLinha1 = ARRAY(1, "87CEEB","ADD8E6");
	   $aCoresLinha2 = ARRAY(1, "87CEEB","ADD8E6");
	   While ( $Row_CadBai = MYSQL_FETCH_ARRAY($Rows_CadBai, MYSQL_ASSOC) ) {
		  //
		  $nQtd_Total++;
		  $a_Cad_Bairro[$Row_CadBai['BAI_CODIGOI']] = $Row_CadBai['BAI_DESCRI'];
		  $sId_CheckBox = "iCk_Bai_".($Row_CadBai['BAI_CODIGOI']+0);
		  $sFm_CheckBox = "Bai_Sel_".($Row_CadBai['BAI_CODIGOI']+0);
		  //
		  If ( ISSET($a_SelOrigem[$Row_CadBai['BAI_CODIGOI']+0]) ) {      // Bairro selecionado como origem
		    If ( ISSET($aCoresLinha2[$aCoresLinha2[0]+1]) ) {
			   $aCoresLinha2[0]++;
		    } Else {
			   $aCoresLinha2[0] = 1;
		    }
	        $sCor_da_Linha = $aCoresLinha2[$aCoresLinha2[0]];
		    //
		    $sQdrLstSlHtml .=
              '<table width="241px" style="background-color:#'.$sCor_da_Linha.';"></tr>'.
			   '<tr>'.
			    '<td width="2px" height="22px" style="font-size:1px;">'.
			     '&nbsp;'.
			    '</td>'.
			    '<td width="20px" align="left" valign="middle">'.
			     '<input id="'.$sId_CheckBox.'" name="'.$sFm_CheckBox.'" type="checkbox" value="1">'. // checked
			    '</td>'.
			    '<td align="left" valign="middle" style="font-size:11px;">'.
			     $Row_CadBai['BAI_CODIGOI'].' - '.$Row_CadBai['BAI_DESCRI'].'<br>'.
			    '</td>'.
			    '<td width="2px" height="26px" style="font-size:1px;">'.
			     '&nbsp;'.
			    '</td>'.
			   '</tr>'.
		      '</table>'.
		      '';
		    //
		  } ElseIf ( $n_SelDestino==($Row_CadBai['BAI_CODIGOI']+0) ) {    // Bairro selecionado como destino
		    $sBairro_Destino = $Row_CadBai['BAI_CODIGOI'].' - '.$Row_CadBai['BAI_DESCRI'];
		    //
		  } Else {                                                        // Bairro cadastrado
		    If ( ISSET($aCoresLinha1[$aCoresLinha1[0]+1]) ) {
			   $aCoresLinha1[0]++;
		    } Else {
			   $aCoresLinha1[0] = 1;
		    }
	        $sCor_da_Linha = $aCoresLinha1[$aCoresLinha1[0]];
		    //
		    $sQdrListaHtml .=
              '<table width="241px" style="background-color:#'.$sCor_da_Linha.';"></tr>'.
			   '<tr>'.
			    '<td width="2px" height="22px" style="font-size:1px;">'.
			     '&nbsp;'.
			    '</td>'.
			    '<td width="20px" align="left" valign="middle">'.
			     '<input id="'.$sId_CheckBox.'" name="'.$sFm_CheckBox.'" type="checkbox" value="1">'. // checked
			    '</td>'.
			    '<td align="left" valign="middle" style="font-size:11px;">'.
			     $Row_CadBai['BAI_CODIGOI'].' - '.$Row_CadBai['BAI_DESCRI'].'<br>'.
			    '</td>'.
			    '<td width="2px" height="26px" style="font-size:1px;">'.
			     '&nbsp;'.
			    '</td>'.
			   '</tr>'.
		      '</table>'.
		      '';
		  }
		  //
	   }
   	   $a_Sessao['CAD_BAI'] = $a_Cad_Bairro;
	   //
       $sRet_Javs .=
	      'parent.document.getElementById("dvQdrCrg_CadBai").innerHTML = '.JAVA_CharCode($sQdrListaHtml).';'.
	      'parent.document.getElementById("dvQdrCrg_OrgBai").innerHTML = '.JAVA_CharCode($sQdrLstSlHtml).';'.
		  'parent.document.getElementById("spBaiCfgQtdDes").innerHTML = "'.$nQtd_Total.' bairros encontrados";'.
		  'parent.document.getElementById("iCadECfg_Bai_Dst").value = '.JAVA_CharCode($sBairro_Destino).';'.
		  'parent.document.getElementById("Qdr_BaiCfg_Agd").style.display = "none";'.
		  'parent.document.getElementById("Qdr_BaiCfg_Prn").style.display = "";'.
	      '';
	   //
	// Marcar bairros como origem
    } ElseIf ( $sAcao=="MARCAR_ORG" ) {
	   //
	   $a_SelOrigem  = @$a_Sessao['SEL_ORG'];
	   $a_Cad_Bairro = @$a_Sessao['CAD_BAI'];
	   ForEach ( $a_Cad_Bairro As $nBai_CodigoI => $sBai_Descri ) {
		  If ( (@$_POST["Bai_Sel_".$nBai_CodigoI]+0) ) {
			 $a_SelOrigem[$nBai_CodigoI] = 1;
		  }
	   }
	   $a_Sessao['SEL_ORG'] = $a_SelOrigem;
	   //
       $sRet_Javs .=
		  'parent.document.getElementById("Qdr_BaiCfg_Agd").style.display = "";'.
		  'parent.document.getElementById("Qdr_BaiCfg_Prn").style.display = "none";'.
	      "parent.Car_".$sNomeAcesso."2.Puxar_CadBai();".
	      '';
	   //
	// Marcar bairros como origem
    } ElseIf ( $sAcao=="REMOVER_ORG" ) {
	   //
	   $a_SelOrigem  = @$a_Sessao['SEL_ORG'];
	   $a_Cad_Bairro = @$a_Sessao['CAD_BAI'];
	   ForEach ( $a_Cad_Bairro As $nBai_CodigoI => $sBai_Descri ) {
		  If ( (@$_POST["Bai_Sel_".$nBai_CodigoI]+0) ) {
			 If ( @$a_SelOrigem[$nBai_CodigoI]+0 ) {
			    UNSET( $a_SelOrigem[$nBai_CodigoI] );
		     }
		  }
	   }
	   $a_Sessao['SEL_ORG'] = $a_SelOrigem;
	   //
       $sRet_Javs .=
		  'parent.document.getElementById("Qdr_BaiCfg_Agd").style.display = "";'.
		  'parent.document.getElementById("Qdr_BaiCfg_Prn").style.display = "none";'.
	      "parent.Car_".$sNomeAcesso."2.Puxar_CadBai();".
	      '';
	   //
	// Marcar bairro como destino
    } ElseIf ( $sAcao=="MARCAR_DST" ) {
	   //
	   $a_SelOrigem  = @$a_Sessao['SEL_ORG'];
	   $n_SelDestino = @$a_Sessao['SEL_DST']+0;
	   $a_Cad_Bairro = @$a_Sessao['CAD_BAI'];
	   ForEach ( $a_Cad_Bairro As $nBai_CodigoI => $sBai_Descri ) {
		  If ( (@$_POST["Bai_Sel_".$nBai_CodigoI]+0) ) {
			 If ( @$a_SelOrigem[$nBai_CodigoI]+0 ) {
				UNSET( $a_SelOrigem[$nBai_CodigoI] );
				If ( $n_SelDestino>0 ) {
				   $a_SelOrigem[$n_SelDestino] = 1;
				}
			 }
			 $n_SelDestino = $nBai_CodigoI;
			 BREAK;
		  }
	   }
	   $a_Sessao['SEL_DST'] = $n_SelDestino;
	   $a_Sessao['SEL_ORG'] = $a_SelOrigem;
	   //
       $sRet_Javs .=
		  'parent.document.getElementById("Qdr_BaiCfg_Agd").style.display = "";'.
		  'parent.document.getElementById("Qdr_BaiCfg_Prn").style.display = "none";'.
	      "parent.Car_".$sNomeAcesso."2.Puxar_CadBai();".
	      '';
	   //
	// Salvar todas as alterações de correção em banco de dados
    } ElseIf ( $sAcao=="SALVAR_CRG" ) {
	   //
	   $a_SelOrigem  = @$a_Sessao['SEL_ORG'];
	   $n_SelDestino = @$a_Sessao['SEL_DST']+0;
	   $a_Cad_Bairro = @$a_Sessao['CAD_BAI'];
	   $s_Mensg_Erro = '';
	   // Verificar alguns itens
	   If ( EMPTY($s_Mensg_Erro) && $n_SelDestino<1 ) {
		  $s_Mensg_Erro = "Bairro de destino não selecionado.";
	   }
	   If ( EMPTY($s_Mensg_Erro) && (!ISSET($a_Cad_Bairro[$n_SelDestino])) ) {
		  $s_Mensg_Erro = "Bairro de destino não encontrado em registro.";
	   }
	   If ( EMPTY($s_Mensg_Erro) && EMPTY($a_SelOrigem) ) {
		  $s_Mensg_Erro = "Bairro de origem não selecionado.";
	   }
	   // Salvar tudo em banco de dados
	   If ( EMPTY($s_Mensg_Erro) ) {
		  //
		  ForEach ( $a_SelOrigem As $nBai_CodigoI => $b_BaiAltera ) {
			 $sSQLQuery =
               "UPDATE cad_cliente SET ".
			      "CLI_CODBAI=".$n_SelDestino.",".
			      "CLI_ENDBAI=".SQL_Bin($a_Cad_Bairro[$n_SelDestino])." ".
			   "WHERE CLI_CODBAI=".$nBai_CodigoI." ".
			   ";";
	         MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery."<br>".MYSQL_ERROR());
			 $sSQLQuery =
               "DELETE FROM cad_bairro ".
			   "WHERE BAI_CODIGOI=".$nBai_CodigoI." ".
			   ";";
	         MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery."<br>".MYSQL_ERROR());
		  }
		  //
		  $a_Sessao['SEL_ORG']  = ARRAY();
		  $a_Sessao['SEL_DST']  = 0;
		  $a_Sessao['ALTERADO'] = True;
          $sRet_Javs .=
		     $sJavaDesTravarJ.
		     'parent.document.getElementById("Qdr_BaiCfg_Agd").style.display = "";'.
		     'parent.document.getElementById("Qdr_BaiCfg_Prn").style.display = "none";'.
	         "parent.Car_".$sNomeAcesso."2.Puxar_CadBai();".
			 Info_Evento('Alterações de correção aplicadas com sucesso.',0);
	         '';
		  //
	   } Else {
          $sRet_Javs .=
		     $sJavaDesTravarJ.
			 Info_Evento('ERRO: '.$s_Mensg_Erro,1).
			 "";
	   }
	   //
	// Fechar janela
    } 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("iCadBai_PChave").focus();'.
		  (@$a_Sessao['ALTERADO'] ? "parent.Car_".$sNomeAcesso."1.P_Atu();" : '').
		  "";
	   //
	   UNSET( $a_Sessao );
	   //
	}
	//
	If ( ISSET($a_Sessao) ) {
	   $aSessao[$sNomeAcesso.'_CRG'] = $a_Sessao;
	} Else {
	   UNSET( $aSessao[$sNomeAcesso.'_CRG'] );
	}
	//
//
//
//  ** CONSULTA **
} Else {
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJConsulta; 
    $oJanelaPrinc->nTop    = 40;
    $oJanelaPrinc->nLeft   = 25;
    $oJanelaPrinc->nWidth  = 950;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
  	$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Bairros';
	//$oJanelaPrinc->sJavOnClick = "document.getElementById('iCadBai_PChave').focus();";
	$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);";
	$oJanelaPrinc->sJavOnClickF = 
	    $sJavaTravarJ.
		"document.forms.fmPCadBai.acao.value='FECHAR'; ".
		"document.forms.fmPCadBai.submod.value=''; ".
		"document.forms.fmPCadBai.Bai_PChave.value=''; ".
		"document.forms.fmPCadBai.Bai_NumCam.value=''; ".
		"document.forms.fmPCadBai.submit();".
		"";
	//
	//TEL_CODCAD  Bai_CODCID
    // Criar objeto GRID
    $oTabelaRegs = New Pad_GridPesq();
    $oTabelaRegs->sTabelas  =   '     cad_bairro '.
								'LEFT JOIN '.
									'cad_cidade '.
								'ON '.
									'CID_CODIGO=BAI_CODCID '.
								'';
    $oTabelaRegs->sIdObjTabela = 'iQdr_ListaBai';
    $oTabelaRegs->GLstCampos( 
								'BAI_CODIGOI,Código,50px;'.
								'BAI_DESCRI,Descrição;'.
								'CID_NOMECD,Cidade,170px;'.
    			                'BAI_TAXVAL,Taxa de Serviço,130px,MOE;'.
								'BAI_TAXMOT,Taxa do motoqueiro,80px,MOE;' );
    $oTabelaRegs->sCampoIndice = 'BAI_CODIGOI';
    $oTabelaRegs->nWidth  = $oJanelaPrinc->nWidth;
    $oTabelaRegs->nHeight = 340;    // Altura
    $oTabelaRegs->sCampoOnClick  = "Car_".$sNomeAcesso."1.P_Sel(<NUMCAM>); Car_".$sNomeAcesso."1.P_Atu();";
    $oTabelaRegs->sLinhaOnClick  = "Car_".$sNomeAcesso."1.PRow_Sel(<QTDCOL>,<SELLIN>);";
    $oTabelaRegs->sLinhaOnDblClk = $sJavaTravarJ.
	                               "Car_".$sNomeAcesso."1.Pesq_Editar();";
    $oTabelaRegs->sJavSelectReg = "sSelIndice = S_Indice;".
	                              "if (parseInt(sSelIndice)>0) {".
								      "if (parent.document.forms.fmPCadBai.Bai_Ativos.value=='0') {".
									      ($bDir_Alterar ?
				                             "parent.document.getElementById('CadCBai_BT_Itv').style.display='inline-block';"
										  : '').
				                          "parent.document.getElementById('CadCBai_BT_Atv').style.display='none';".
									  "} else if (parent.document.forms.fmPCadBai.Bai_Ativos.value=='1') {".
									      "parent.document.getElementById('CadCBai_BT_Itv').style.display='none';".
									      ($bDir_Alterar ?
                                             "parent.document.getElementById('CadCBai_BT_Atv').style.display='inline-block';"
										  : '').
								      "}".
		                              "parent.document.getElementById('CadCBai_BT_Edt').style.display='inline-block';".
								  "} ".
	                              'parent.document.getElementById("iCadBai_PChave").focus();';
    //
    // MONTAR LISTA DE CADASTROS
    If ( $sAcao=="LISTAR" ) {
	   SET_TIME_LIMIT(120);    // Tempo de execução do PHP
	   //
	   If ($bDir_Consult) {
          $sP_PChave  = @$_REQUEST['Bai_PChave'];
		  $sTip_Busca = @$_REQUEST['Tip_Busca'];
          $nP_NumCam  = @$_REQUEST['Bai_NumCam']+0;
	      
		  $nP_Ativos  = @$_REQUEST['Bai_Ativos']+0; //1-ativos 0-inativos 2 -todos
          $nIniReg    = 0;
          $nQtdReg    = 10000;
          
		  // Montar condição para a pesquisa
          
		  $sParamSQL = '';
		  $sWhereSQL = '';
		  If ($nP_Ativos == 0) { // ativos
		     $sWhereSQL =' BAI_ATIVO_';
		  } ElseIf ($nP_Ativos == 1) { //inativos
		     $sWhereSQL =' BAI_ATIVO_=0';
		  } 
		  // 
		  If ( $nP_NumCam==0 ) { $nP_NumCam=2; }   // Ordem inicial (Nome completo)
    	  $aLstCampo = EXPLODE(',',@$oTabelaRegs->aLstCampos[$nP_NumCam-1]);
   	      If ( STRLEN(@$aLstCampo[0])>0 ) {
             If ( STRLEN($sP_PChave)>0 ) {
				If ($sTip_Busca == 1) {
				   If (STRLEN($sWhereSQL)>0) { $sWhereSQL .= ' AND ';}
				   
				   $sWhereSQL .= $aLstCampo[0].' LIKE "'.$sP_PChave.'%" ';
				}
				If ($sTip_Busca == 2) {
				   If (STRLEN($sWhereSQL)>0) { $sWhereSQL .= ' AND ';}
				   
                   $sWhereSQL .= $aLstCampo[0].' LIKE "%'.$sP_PChave.'%" ';
				}				
    	     }
			 $sParamSQL .= ' GROUP BY BAI_CODIGOI ORDER BY '.$aLstCampo[0].' ASC ';
          }
		  If (STRLEN($sWhereSQL)>0) { $sWhereSQL = ' WHERE '.$sWhereSQL; }  
          $oTabelaRegs->sBDParametros = $sWhereSQL.$sParamSQL.'LIMIT '.$nIniReg.','.$nQtdReg;
          // Tabela
          $sRet_TelaJ_HTML = $oTabelaRegs->MontaTabelaHTML();
          // Java
          $sRet_Javs .=
             "var iQdr_ListaBai = parent.document.getElementById('".$oTabelaRegs->sIdObjTabela."');".
    	     'iQdr_ListaBai.innerHTML = '.JAVA_CharCode($sRet_TelaJ_HTML).';'.
		     "parent.document.getElementById('CadCBai_BT_Crg').style.display='inline-block';".
    	     '';
          // 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."');";
    //
    // ATIVAR REGISTRO
    } ElseIf ( $sAcao=="ATIVAR" ) {
	   $sRet_Javs .=
	      'parent.JanEspera(false);'.
		  '';
	   If ($bDir_Alterar) {
	      If ((@$_REQUEST['Bai_Codigo']+0)>0) {
             MYSQL_QUERY("UPDATE cad_bairro SET BAI_ATIVO_=1 WHERE BAI_CODIGOI=".(@$_REQUEST['Bai_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 ativar.');
	   }
    //
    // INATIVAR REGISTRO
    } ElseIf ( $sAcao=="INATIVAR" ) {
	   $sRet_Javs .=
	      'parent.JanEspera(false);'.
		  '';
	   If ($bDir_Alterar) {
	      If ((@$_REQUEST['Bai_Codigo']+0)>0) {
             MYSQL_QUERY("UPDATE cad_bairro SET BAI_ATIVO_=0 WHERE BAI_CODIGOI=".(@$_REQUEST['Bai_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 {
	   //
	   $sJavClkAtiv =
          "JanEspera(true, 'Ativando registro... Aguarde...');".
          "setTimeout( function() { ".
             "document.forms.fmPCadBai.acao.value='ATIVAR'; ".
			 "document.forms.fmPCadBai.submod.value=''; ".
             "document.forms.fmPCadBai.Bai_Codigo.value=Car_".$sNomeAcesso."1.sSelIndice;".
    	     "document.forms.fmPCadBai.submit();".
          "}, ".$nTmpFrmEnv.");".
		  "";
	   //
	   // Confirma a inativação do registro
	   $sJavClkInat =
		  JAVA_CharCode(
		     "if (_NUM_BOT_==1) { ".
                 "JanEspera(true, 'Inativando registro... Aguarde...');".
                 "setTimeout( function() { ".
                    "document.forms.fmPCadBai.acao.value='INATIVAR'; ".
                    "document.forms.fmPCadBai.submod.value=''; ".
                    "document.forms.fmPCadBai.Bai_Codigo.value=Car_".$sNomeAcesso."1.sSelIndice;".
                    "document.forms.fmPCadBai.submit();".
                 "}, ".$nTmpFrmEnv.");".
		  	 "}"
		   );
	   $sJavClkInat =
		  "sIdHasFocus='iCadBai_PChave';".
	      "Qdr_Prompt_H(true,'Tem certeza que deseja INATIVAR este bairro?',".$sJavClkInat.",['Sim','Não']); ";
	   //
	   $oJanelaPrinc->aIdsObjList = ARRAY( 'iTip_Busca','iCadBai_PChave','sl_CadBai_Ativos' );
	   //
       // Tela HTML
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
          '<form name="fmPCadBai" 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="Bai_PChave" type="hidden" value="">'.
           '<input name="Bai_Ativos" type="hidden" value="0">'.
    	   '<input name="Bai_NumCam" type="hidden" value="">'.
    	   '<input name="Bai_Codigo" type="hidden" value="">'.
		   '<input name="Tip_Busca" type="hidden" value="2">'.
          '</form>'.
       	  '<table border="0" width="100%">'.
		     '<tr>'.
       	        '<td width="4px" height="10px" align="left">'.
				   '&nbsp;'.
				'</td>'.
		        '<td align="left" width="120px" style="font-size:14px;">'.
       	           'Tipo de Busca'.
       	        '</td>'.
				'<td align="left" style="font-size:14px;">'.
       	           'Procurar por: '.
				'</td>'.
				'<td>'.
				   '&nbsp;&nbsp;'.
				'</td>'.
				'<td align="left" style="font-size:14px;">'.
       	           'Mostrar'.
				'</td>'.
				'<td>'.
				   '&nbsp;&nbsp;'.
				'</td>'.
       	     '</tr>'.
			 //
             '<tr>'.
			    '<td width="4px" height="10px" align="left">'.
				   '&nbsp;'.
				'</td>'.
			 	'<td align="left" width="120px">'.
  			       '<select id="iTip_Busca" onchange="Car_'.$sNomeAcesso.'1.P_Atu();" style="font-size:14px; border-width: 1px; border-style: solid; border-color: #0099FF;margin-top:-1px;height:20px;">'.			
				      '<option value="2">Contida&nbsp;&nbsp;&nbsp;&nbsp;</option>'.
					  '<option value="1">Normal&nbsp;&nbsp;&nbsp;&nbsp;</option>'.				  
			       '</select>'.
		        '</td>'.
				'<td width="300px">'.
			       '<input id="iCadBai_PChave" type="text"  maxlength="40" style="width:100%; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;height:20px;">'.	   
				'</td>'.
				'<td>'.
				   '&nbsp;&nbsp;'.
				'</td>'.
				'<td align="left">'.
			       '<select id="sl_CadBai_Ativos" onchange="Car_'.$sNomeAcesso.'1.P_Atu();" style="font-size:14px;border-width: 1px; border-style: solid; border-color: #0099FF;margin-top:-1px;height:20px;">'.			
				      '<option value="0">Ativos&nbsp;&nbsp;&nbsp;</option>'.
				      '<option value="1">Inativos&nbsp;&nbsp;&nbsp;</option>'.
					  '<option value="2">Todos&nbsp;&nbsp;&nbsp;</option>'.				  
			       '</select>'.	
				'</td>'.
				'<td align="left" width="70px">'.
       	           HTML_Botao( 3, 'CadBai_BT_Pro', 'Car_'.$sNomeAcesso.'1.P_Atu();'
		                        , 'Procurar'     ,'images/btimg_lupa.png').
       	         '</td>'.
				 '<td width="4px" height="10px" align="left">&nbsp;</td>'.
       	     '</tr>'.			 
		  '</table>'. 
		  $oTabelaRegs->MontaDivHtml().
          '<table width="100%" style="background-color:'.$sCorBarraInf.';"></tr>'.
       	   '<td width="4px" height="40px" align="left">&nbsp;</td>'.
       	   '</td>'.
       	   '<td>'.
       	    HTML_Botao( 3, 'CadCBai_BT_Nov', $sJavaTravarJ.
			                                 "document.forms.fmPCadBai.acao.value='NV'; ".
			                                 "document.forms.fmPCadBai.submod.value='EDT'; ".
    	                                     "document.forms.fmPCadBai.submit();"
			             , 'Novo (F6)'   ,'images/btimg_novo.png').'&nbsp;&nbsp;'.
       	    HTML_Botao( 3, 'CadCBai_BT_Edt', $sJavaTravarJ.
			                                 "Car_".$sNomeAcesso."1.Pesq_Editar();"
			             , ($bDir_Alterar ? 'Editar' : 'Visualizar').' (F7)' ,'images/btimg_editar.png',120).'&nbsp;&nbsp;'.
       	    HTML_Botao( 3, 'CadCBai_BT_Itv', $sJavClkInat
			             , 'Inativar (F8)','images/btimg_remover.png',110).
       	    HTML_Botao( 3, 'CadCBai_BT_Atv', $sJavClkAtiv
			             , 'Ativar (F8)','images/btimg_ativar.png').'&nbsp;&nbsp;'.
       	    HTML_Botao( 3, 'CadCBai_BT_Crg', "Car_".$sNomeAcesso."1.Ferramenta_Crg();"
			             , 'Correção (F11)' ,'images/btimg_atualizar.png',120).'&nbsp;&nbsp;'.
       	   '</td>'.
       	   '<td width="120px" align="left">'.
       	    HTML_Botao( 3, 'CadCBai_BT_Fch', $oJanelaPrinc->sJavOnClickF
                         , 'Sair (ESC)' ,'images/btimg_fechar.png').
       	   '</td>'.
       	  '</tr></table>'.
    	  $oJanelaPrinc->MontaJanHTML(False);
       //
       $sRet_Javs .=
		  'parent.document.getElementById("dv_MenuL_Barra").style.visibility="hidden";'.
	      "var sSelIndice='';".		  
          "function P_Atu() {".		  
		    "var vTip_Busca = parent.document.getElementById('iTip_Busca').value;".
        	"sSelIndice='0';".
		    $oTabelaRegs->MontaJavaAgu().
		    "parent.document.getElementById('CadCBai_BT_Edt').style.display='none';".
		    "parent.document.getElementById('CadCBai_BT_Itv').style.display='none';".
		    "parent.document.getElementById('CadCBai_BT_Atv').style.display='none';".
		    "parent.document.getElementById('CadCBai_BT_Crg').style.display='none';".
         	"parent.document.forms.fmPCadBai.acao.value='LISTAR'; ".
            "parent.document.forms.fmPCadBai.submod.value=''; ".
         	"parent.document.forms.fmPCadBai.Bai_PChave.value=parent.document.getElementById('iCadBai_PChave').value;".
			"parent.document.forms.fmPCadBai.Bai_Ativos.value=parent.document.getElementById('sl_CadBai_Ativos').value;".
			"parent.document.forms.fmPCadBai.Tip_Busca.value = vTip_Busca;".
         	"parent.document.forms.fmPCadBai.Bai_NumCam.value=nPesq_CampoSel+''; ".
         	"setTimeout( function() { parent.document.forms.fmPCadBai.submit(); }, 100);".
          '}'.
		  'function Pesq_Editar() {'.
            "parent.document.forms.fmPCadBai.acao.value='';".
            "parent.document.forms.fmPCadBai.submod.value='EDT';".
            "parent.document.forms.fmPCadBai.Bai_Codigo.value=sSelIndice;".
            "parent.document.forms.fmPCadBai.submit();".
		  '}'.
		  'function Ferramenta_Crg() {'.
            "parent.document.forms.fmPCadBai.acao.value='';".
            "parent.document.forms.fmPCadBai.submod.value='CRG';".
            "parent.document.forms.fmPCadBai.submit();".
		    $sJavaTravarJ.
		  '}'.
		  "var bExbAtivos=true;".
		  //'function P_Ativos() {'.
		  //  "var obj = parent.document.getElementById('PCadBai_Ativos');".
		  //	"if (bExbAtivos) {".
          //      "parent.document.forms.fmPCadBai.Bai_Ativos.value='0'; ".
		  //	    "obj.innerHTML = 'ativos';".
		  //		"bExbAtivos = false;".
		  //	"} else {".
          //       "parent.document.forms.fmPCadBai.Bai_Ativos.value='1'; ".
		  //	    "obj.innerHTML = 'inativos';".
		  //		"bExbAtivos = true;".
		  //	"}".
		  //	"P_Atu();".
		  // '}'.
          $oTabelaRegs->MontaJavaPri().
          '';
       // Java posterior
       $sRet_JavsPos .=
		  "parent.document.getElementById('CadCBai_BT_Atv').style.display='none';".
          ($bDir_Incluir ? '' :
		     "parent.document.getElementById('CadCBai_BT_Nov').style.display='none';"
		  ).
		  ($bDir_Consult ?
		    "P_Atu();"
		  :
		    Info_Evento('ALERTA: Sem previlégio para consulta neste modulo.').
         	"parent.document.forms.fmPCadBai.acao.value='FECHAR'; ".
            "parent.document.forms.fmPCadBai.submod.value=''; ".
         	"parent.document.forms.fmPCadBai.submit();"
		  ).
    	  'parent.document.getElementById("iCadBai_PChave").focus();'.
		  //
		  "function Teclas_F( Objeto, Evento ) {".
             "vNumTecla = parent.Tecla_Apertada(Evento);".
             "if ( vNumTecla==117) { ".        //  ** [F6] **          // (Novo)
                 "if ( parent.document.getElementById('CadCBai_BT_Nov').style.display != 'none') {".
                     "setTimeout( parent.document.getElementById('CadCBai_BT_Nov').onclick , 100);".
				 "}".
		     "} else if ( vNumTecla==116) { ".  // ** [F5] **         Não atualizar
                 //
		     "} else if ( vNumTecla==118) { ". //  ** [F7] **          // (Editar)
                 "if ( parent.document.getElementById('CadCBai_BT_Edt').style.display != 'none') {".
                      "setTimeout( parent.document.getElementById('CadCBai_BT_Edt').onclick , 100);".
				 "}".
		     "} else if ( vNumTecla==119) { ". //  ** [F8] **          // (Inativar)
                 "if ( parent.document.getElementById('CadCBai_BT_Itv').style.display != 'none') {".
                      "setTimeout( parent.document.getElementById('CadCBai_BT_Itv').onclick , 100);".
					                                                   // (Ativar)
                 "} else if ( parent.document.getElementById('CadCBai_BT_Atv').style.display != 'none') {".
                      "setTimeout( parent.document.getElementById('CadCBai_BT_Atv').onclick , 100);".
				 "}".
		     "} else if ( vNumTecla==122) { ". //  ** [F11] **         // (Ferramenta de correção de bairros)
                 "if ( parent.document.getElementById('CadCBai_BT_Crg').style.display != 'none') {".
                      "setTimeout( parent.document.getElementById('CadCBai_BT_Crg').onclick , 100);".
				 "}".
		     "} else if ( vNumTecla==27) { ".  //  ** [ESC] **         // (SAIR)
                  "setTimeout( parent.document.getElementById('CadCBai_BT_Fch').onclick , 100);".
			 "} else {".
		          "P_TeclasPress_fm(Evento);".
			      "return true;".
			 "}".
			 "return false;".
		  '}'.
		  //
    	  "";
    }
}

?>