<?php
$sNomeIdJConsulta = 'iJan_LstCadCus';
$sNomeIdJEdt_Cad = 'iJan_EdtCadCus';
$nTmpFrmEnv = 300;
$bDir_Consult = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'C');
$bDir_Alterar = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'A');
$bDir_Incluir = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'I');
//
$sCus_CodigoI = @$_REQUEST['Cus_CodigoI'];
If ( ISSET($_REQUEST['Cad_CodigoI']) ) {
   $sCus_CodigoI = @$_REQUEST['Cad_CodigoI']+0;
}

//
//  ** CADASTRO (NOVO/EDITA) **
If ( $sSubModulo=="EDT" ) {
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJEdt_Cad; 
    $oJanelaPrinc->nTop    = 40;
    $oJanelaPrinc->nLeft   = 25;
    $oJanelaPrinc->nWidth  = 660;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
	$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Cadastro de Centro de Custo';
	//
	$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.fmECadCus.acao.value='FECHAR'; ".
		  "document.forms.fmECadCus.submit();".
		  "";
	//
	$bMontarJanela = true;
	//
	// 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 centro de custo.').
            "";
	   }
	   //
	   If ($bGravarReg) {
	      If ( (STRLEN(@$_REQUEST['Cus_Codigo'])<2 ) || (STRLEN(@$_REQUEST['Cus_Descri'])<2 ) ) {
	         $sRet_Javs .= Info_Evento('Campo Código ou descrição do centro de custo está incompleto !');
	         $bGravarReg = False;
	      }
	   }
	   
	   If ($bGravarReg) {
	   	   $Tmp_Codigo = Somente_Numeros(@$_REQUEST['Cus_Codigo'])+0;
           If ($Tmp_Codigo>0){
	          $bGravarReg = True;
           } Else {	     
		     
			 $sRet_Javs .= Info_Evento('Código centro de custo inválido :'.'<br>'.@$_REQUEST['Cus_Codigo']);
		     $bGravarReg = False;
	       }
		}
        // trava de começo = 000.001 ou 000.000
        If ($bGravarReg) {
	   	   $Tmp_Codigo_1 = @$_REQUEST['Cus_Codigo'];
           If (STRLEN($Tmp_Codigo_1)>0){
	     	 If ( (SUBSTR($Tmp_Codigo_1, 0,3)=='000') || (SUBSTR($Tmp_Codigo_1, 0,7)=='000.000') ) {
		        $sRet_Javs .= Info_Evento('Código centro de custo inválido :'.'<br>'.@$_REQUEST['Cus_Codigo']);
		        $bGravarReg = False;
		      }
		   }
		}

       		
	    If ($bGravarReg) {
	       //Trava se já existe conta e não grava
		   If ( @$_REQUEST['Cus_Codigo']<> @$aSessao['CUS_CODIGO'] ){
		      $sSQLQuery = "SELECT CUS_CODIGO FROM cad_centro_custo";
	          $RowsT = MYSQL_QUERY( $sSQLQuery ) Or Die($sSQLQuery."<br>".MYSQL_ERROR());
	          While ($RowT = MYSQL_FETCH_OBJECT($RowsT)) {
	             $nCus_Cod = Somente_Numeros($RowT->CUS_CODIGO)+0;
		         If ( ($RowT->CUS_CODIGO==@$_REQUEST['Cus_Codigo']) ) {
                    $sRet_Javs .= Info_Evento('Já existe um centro de custo cadastrado com esse código :'.'<br>'.@$_REQUEST['Cus_Codigo']);
	                $bGravarReg = False;
		         }
		      }
		   }
		}
		If ($bGravarReg) {
	       //Trava se NÃO EXISTE GRUPO NIVEL 1
		   If ( @$_REQUEST['Cus_Codigo']<> @$aSessao['CUS_CODIGO'] ){
		      If (STRLEN(@$_REQUEST['Cus_Codigo'])>0){
			     $Tmp_Codigo_2 = SUBSTR(@$_REQUEST['Cus_Codigo'], 0,3).'.000';
			     If (SUBSTR(@$_REQUEST['Cus_Codigo'],4,7) <> '000') {
				    $sSQLQuery = 'SELECT CUS_CODIGO FROM cad_centro_custo WHERE CUS_CODIGO='.$Tmp_Codigo_2.';';
	                $RowsT = MYSQL_QUERY( $sSQLQuery ) Or Die($sSQLQuery."<br>".MYSQL_ERROR());
	                If (MYSQL_NUM_ROWS($RowsT)==0) {     
				       $sRet_Javs .= Info_Evento('Grupo principal não Cadastrado no Centro de Custo :'.'<br>'.$Tmp_Codigo_2);
	                   $bGravarReg = False;
		            }
		         }
			  }
		   }
		}
	       
	   //
	   //
	   If ($bGravarReg) {
	      $nCus_CodigoI = Somente_Numeros($sCus_CodigoI)+0;
	      If ( $sCus_CodigoI=="NOVO" ) {
	         $sSql_Cus = "INSERT INTO cad_centro_custo( CUS_CODIGO, CUS_ATIVO_ ) VALUES ('".@$_POST['Cus_Codigo']."',1);";
			 MYSQL_QUERY( $sSql_Cus ) Or Die($sSql_Cus."<br>".MYSQL_ERROR());
			 
	         $sSQLQuery = "SELECT CUS_CODIGOI FROM cad_centro_custo ORDER BY CUS_CODIGOI DESC LIMIT 1;";
	         $nCus_CodigoI = MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery."<br>".MYSQL_ERROR());
	         $nCus_CodigoI = MYSQL_FETCH_ARRAY($nCus_CodigoI);
	         $nCus_CodigoI = $nCus_CodigoI[0];
		  }
          
		 		 		 
		  
		  
		  // Salvar registro
		  $sSQLQuery =		  
             "UPDATE cad_centro_custo SET ".
                'CUS_CODIGO=' .SQL_Bin(UTF8_DECODE(@$_POST['Cus_Codigo'])).', '.
				'CUS_DESCRI=' .SQL_Bin(UTF8_DECODE(STRTOUPPER(@$_POST['Cus_Descri']))).', '.
				'CUS_CREDEB=' .@$_POST['Cus_CreDeb'].' '.
             "WHERE CUS_CODIGOI=".($nCus_CodigoI)."; ";
	         MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery."<br>".MYSQL_ERROR());
		
	      
          $sRet_Javs .= "document.location.href = './car_js.php?mod=".$sModulo."&submod=".$sSubModulo."&acao=FECHAR&nomeacs=".$sNomeAcesso."&acaoAnt=".$sAcao."';";
       }
	   $bMontarJanela = false;
    //
    //
    // FECHAR
    } ElseIf ( $sAcao=="FECHAR" ) {
	   UNSET($aSessao['CUS_CODIGO']);
	  
	   //
	   
	   //
       $sRet_Javs .= 
	      "parent.RmElem('".$oJanelaPrinc->sIdObj."'); ".
		  "parent.Disabled_In_Elems('".$sNomeIdJConsulta."',false);".
		  "parent.document.getElementById('".$sNomeIdJConsulta."_Travar').style.visibility='hidden';".
    	  'parent.document.getElementById("iCadCus_PChave").focus();'.
		  (@$_REQUEST['acaoAnt']=='SALVAR' ? "parent.Car_".$sNomeAcesso."1.P_Atu();" : '').
		  "";
	   $bMontarJanela = false;
	//
	// NOVO REGISTRO
	} ElseIf ( $sAcao=="NV" ) {
	   $sCus_CodigoI = 'NOVO';
	//
	// PUXAR REGISTRO
	} Else {
	   If (STRLEN($sCus_CodigoI)==0) {
	      $bMontarJanela = False;
	      $sAcao = 'FECHAR';
          $sRet_Javs .=
		     "parent.document.getElementById('".$sNomeIdJConsulta."_Travar').style.visibility='hidden';".
	         Info_Evento('Selecione um centro de custo na lista.');
	   } Else {
          $Row_CadCus = MYSQL_QUERY("SELECT CUS_CODIGOI, CUS_CODIGO, CUS_DESCRI, CUS_CREDEB FROM cad_centro_custo WHERE CUS_CODIGOI=".($sCus_CodigoI+0)." ;") or die(MYSQL_ERROR());
          If (! $Row_CadCus = MYSQL_FETCH_ARRAY($Row_CadCus)) {
	         $Row_CadCus = ARRAY();
			  
	      }
	   }
	   
	   $aSessao['CUS_CODIGO'] = @$Row_CadCus['CUS_CODIGO'];
	   
       //
	}
	If ($bMontarJanela) {
	   //
	   $oJanelaPrinc->aIdsObjList =
	      ARRAY(
		    'iCadECus_Codigo', 'iCadECus_Descri','iCadECus_CreDeb'
		  );
	   //
	   //If ( STRLEN(@$Row_CadCus['Cus_DESCRI'])>0 ) {
       //   $sCus_CodigoI = Str_Zero($sCus_CodigoI, 11);
	   //}
	   $sHTML_ComboCus = '';
       $RowsT_CadCus = MYSQL_QUERY( "SELECT * FROM cad_centro_custo WHERE CUS_CODIGOI > 0 ORDER BY CUS_DESCRI ASC" ) Or Die(MYSQL_ERROR());
       While ($RowT_CadCus = MYSQL_FETCH_OBJECT($RowsT_CadCus)) {
           $sHTML_ComboCus .= 
		   '<option value='.$RowT_CadCus->CUS_CODIGOI.'" '.($RowT_CadCus->CUS_CODIGOI==(@$Row_CadCus['CUS_CODIGO']+0) ? 'selected' : '').'>'.$RowT_CadCus->CUS_CREDEB.'</option>';
       }
	   
	   
	   
	   //
       // Tela HTML
	   //
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
		  '<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: -20px;'.       
              'display: inline;'.         
              'margin-left: 100px;'.      
              '-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: 100px;'.      
              'position: absolute;'.      
              'font-family: Arial;'.      
              'font-size: 12px;'.         
              'text-decoration: none;'.   
              'font-style: normal; '.     
              'z-index: 10;'.             
            '}'.                          
            '.tooltip:before {'.          
              'content: "";'.             
              'background: #3378C1;'.     
              'border: 0;'.               
              'width: 10px;'.             
              'height: 10px;'.            
              'margin-left: 5px;'.        
              'margin-top: 20px;'.        
              '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="fmECadCus2" 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_CodigoI" type="hidden" value="'.$sCus_CodigoI.'">'.
		  '</form>'.
          '<form name="fmECadCus" 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%">'.
		        '<tr>'.
       	           '<td width="70px" height="24px" align="right">'.
		              'Código Interno:'.
		           '</td>'.
       	           '<td align="left" width="130px">'.
			          '<input id="iCadECus_CodigoI" name="Cus_CodigoI" type="text" value="'.$sCus_CodigoI.'" readonly="readonly" style="width:100px; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;">'.
       	           '</td>'.
   				   '<td align="right">'.
				   
				   '</td>'.

				   '<td width="4px">&nbsp;</td>'.
       	        '</tr>'.
			 '</table>'.
			 '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span id="men_01" class="tooltip" style="display:none;">'.
    	          'Exemplo: '.       
                  ' Nível 1 : 001.000 = Despesas  /'.
                  ' Nível 2 : 001.001 = Telefone  '.               
    	     '</span>'. 
			 
       	     '<table width="100%">'.
			    '<tr>'.
       	           '<td width="70px" height="24px" align="right">'.
		              'Código:'.
					  '&nbsp;&nbsp;&nbsp;&nbsp;<input type="image" src="images/interroga.png"  width="23px" height="23px" onclick="parent.Car_'.$sNomeAcesso.'2.Interroga(1)">'.					  
       	           '</td>'.
       	           '<td align="left" width="480px">'.
			          '<input id="iCadECus_Codigo" class="Cus_Codigo" id="Cus_Codigo" name="Cus_Codigo" type="text" value="'.@$Row_CadCus['CUS_CODIGO'].'" maxlength="7" style="width:100px; height:22px; background:#FFFBEC; border-width:1px; border-style:solid; border-color:#0099FF;">'.
			          '<span style="color:#FF0000;font-size:12px;"> * Obrigatório </span>'.	
                      '<br>'. 
					  '<span style="color:#FF0000;font-size:12px;"> (6 digitos) </span>'.
				   
				   '</td>'.
				   '<td align="right">'.
				   
					 
				   '</td>'.
				   '<td width="4px">&nbsp;</td>'.
       	        '</tr>'.
			 '</table>'.
			 
			 
			 '<table width="100%">'.
			    '<tr>'.
       	           '<td width="70px" height="24px" align="right">'.
		              'Descrição:'.
       	           '</td>'.
       	           '<td align="left" width="480px">'.
			          '<input id="iCadECus_Descri" name="Cus_Descri" type="text" value="'.@$Row_CadCus['CUS_DESCRI'].'" maxlength="50" style="text-transform:uppercase;width:80%; height:22px; background:#FFFBEC; border-width:1px; border-style:solid; border-color:#0099FF;">'.
			          '<span style="color:#FF0000;font-size:12px;"> * Obrigatório </span>'.					  
				   '</td>'.
  				   '<td align="right">'.
				   '</td>'.
				   '<td width="4px">&nbsp;</td>'.
       	        '</tr>'.
			 '</table>'.
			 '<table width="100%">'.
			    '<tr>'.
       	           '<td width="70px" height="24px" align="right">'.
		              'Crédito/Débito:'.
       	           '</td>'.
       	           '<td align="left" width="480px">'.
			          //'< id="" name="Cus_CreDeb" type="text" value="'.@$Row_CadCus['CUS_CREDEB'].'" maxlength="50" style="text-transform:uppercase;width:80%; height:22px; background:#FFFBEC; border-width:1px; border-style:solid; border-color:#0099FF;">'.
			          '<select id="iCadECus_CreDeb" name="Cus_CreDeb" style="width:10%; height:22px; background:#FFFBEC; border-width:1px; border-style:solid; border-color:#0099FF;">'.
			             '<option value="0"'.(@$Row_CadCus['CUS_CREDEB'] ? '' : ' selected').'>D</option>'.
			             '<option value="1"'.(@$Row_CadCus['CUS_CREDEB'] ? ' selected' : '').'>C</option>'.
			          '</select>'.   
				   '</td>'.
  				   '<td align="right">'.
				   '</td>'.
				   '<td width="4px">&nbsp;</td>'.
       	        '</tr>'.
			 '</table>'.
			 
		  //
       	  //
       	  //
       	  //
          '</form>'.
       	  '<table width="100%"></tr>'.
       	   '<td width="4px" height="40px" align="left">&nbsp;</td>'.
       	   '</td>'.
       	   '<td>'.
       	    HTML_Botao( 3, 'CadECus_BT_Svl', "document.forms.fmECadCus.acao.value='SALVAR'; ".
    	                                     "document.forms.fmECadCus.submit();"
			             , 'Salvar (F10)','images/btimg_salvar.png').'&nbsp;&nbsp;'.
       	   '</td>'.
       	   '<td width="114px" align="left">'.
       	    HTML_Botao( 3, 'CadECus_BT_Fec', $oJanelaPrinc->sJavOnClickF
                         , 'Sair (ESC)' ,'images/btimg_fechar.png').
       	   '</td>'.
       	  '</tr></table>'.
		  $oJanelaPrinc->MontaJanHTML(False);
       //
       $sRet_JavsPos .=
    	  'parent.document.getElementById("iCadECus_Codigo").focus();'.
		  ($bDir_Alterar ? '' :
		    "parent.document.getElementById('CadECus_BT_Svl').style.display='none';"
		  ).
		    'parent.$(document).ready(function(){'.
	           'parent.$("input.Cus_Codigo").mask("999.999");'.
            '});'.
		  //
		  "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 Teclas_F( Objeto, Evento ) {".
             "vNumTecla = parent.Tecla_Apertada(Evento);".
             "if ( vNumTecla==121) { ".        //  ** [F10] **         // (Gravar)
			     "if ( parent.document.getElementById('CadECus_BT_Svl').style.display != 'none' ) {".
                     "setTimeout( parent.document.getElementById('CadECus_BT_Svl').onclick , 100);".
				 "}".
		     "} else if ( vNumTecla==116) { ".  // ** [F5] **         Não atualizar
                 //
		     "} else if ( vNumTecla==27) { ".   // ** [ESC] **         // (SAIR)
                 "setTimeout( parent.document.getElementById('CadECus_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("iCadECus_Descri").focus();'.
				 "}".
			     //
			 "} else {".
			     "return true;".
			 "}".
			 "return false;".
		  '}'.
		  //
    	 "";
       //
	}
//
//  ** CONSULTA **
} Else {
    
	// Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJConsulta; 
    $oJanelaPrinc->nTop    = 5;
    $oJanelaPrinc->nLeft   = 20;
    $oJanelaPrinc->nWidth  = 700;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
  	$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Centro de Custo';
	//$oJanelaPrinc->sJavOnClick = "document.getElementById('iCadCus_PChave').focus();";
	$oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."1.Teclas_F(this,event);";
    //
	$sJavaTravarJ = "document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);";
	$oJanelaPrinc->sJavOnClickF = 
	    $sJavaTravarJ.
		"document.forms.fmPCadCus.acao.value='FECHAR'; ".
		"document.forms.fmPCadCus.submod.value=''; ".
		"document.forms.fmPCadCus.Cus_PChave.value=''; ".
		"document.forms.fmPCadCus.Cus_NumCam.value=''; ".
		"document.forms.fmPCadCus.submit();".
		"";
		
	//
	//
    // Criar objeto GRID
    $oTabelaRegs = New Pad_GridPesq();
    $oTabelaRegs->sNomeTabela  = 'cad_centro_custo';
    $oTabelaRegs->sIdObjTabela = 'iQdr_ListaCus';
    $oTabelaRegs->GLstCampos( 'CUS_CODIGO,Código,65px ;'.
	                          'CUS_DESCRI,Descrição ;'.
							  'CUS_CREDEB,Tipo,50px;'.
    			              'CUS_CODIGOI,Cód.Interno,75px,STRZERO=4;');
    $oTabelaRegs->sCampoIndice = 'CUS_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.fmPCadCus.Cus_Ativos.value=='0') {".
									      ($bDir_Alterar ?
				                             "parent.document.getElementById('CadCCus_BT_Itv').style.display='inline-block';"
										  : '').
				                          "parent.document.getElementById('CadCCus_BT_Atv').style.display='none';".
									  "} else if (parent.document.forms.fmPCadCus.Cus_Ativos.value=='1') {".
									  //"} else {".
				                          "parent.document.getElementById('CadCCus_BT_Itv').style.display='none';".
									      ($bDir_Alterar ?
                                             "parent.document.getElementById('CadCCus_BT_Atv').style.display='inline-block';"
										  : '').
								       "}".      
									   "parent.document.getElementById('CadCCus_BT_Edt').style.display='inline-block';".
								   "} ".
	                              'parent.document.getElementById("iCadCus_PChave").focus();';
    //
	If ( $sAcao=="LISTAR" ) {
	   
	   If ($bDir_Consult) {
	      
          $sP_PChave = @$_REQUEST['Cus_PChave'];
          $nP_NumCam = @$_REQUEST['Cus_NumCam']+0;
	      //$bP_Ativos = (@$_REQUEST['Cus_Ativos']+0)>0;
          $nP_Ativos  = @$_REQUEST['Cus_Ativos']+0; 
		  $nIniReg = 0;
          $nQtdReg = 10000;
          // Montar condição para a pesquisa
		  $sParamSQL = '';
		  $sWhereSQL = '';
		  If ($nP_Ativos == 0) { // ativos
		     $sWhereSQL =' CUS_ATIVO_';
		  } ElseIf ($nP_Ativos == 1) { //inativos
		     $sWhereSQL =' CUS_ATIVO_=0';
		  } 
		  
	      //$sWhereSQL = 'Cus_ATIVO_='.($bP_Ativos+0).' ';
          If ( $nP_NumCam==0 ) { $nP_NumCam=1; }
    	  $aLstCampo = EXPLODE(',',@$oTabelaRegs->aLstCampos[$nP_NumCam-1]);
   	      If ( STRLEN(@$aLstCampo[0])>0 ) {
             If ( STRLEN($sP_PChave)>0 ) {
			    If (STRLEN($sWhereSQL)>0) { $sWhereSQL .= ' AND ';}
    	        //$sWhereSQL .= 'AND '.$aLstCampo[0].' LIKE "%'.$sP_PChave.'%" ';
				
			    If ($nP_NumCam==1) {
				   $sWhereSQL .= $aLstCampo[0].' LIKE  "'.$sP_PChave.'%" ';
				} Else {
				   $sWhereSQL .= $aLstCampo[0].' LIKE "%'.$sP_PChave.'%" ';
				}
    	     }
			 
			 $sParamSQL .= ' ORDER BY '.$aLstCampo[0].' ASC ';
          }
		  $oTabelaRegs->s_PHP_ColunaTb =
		     'If ( $aBDCamposN[$nContador]=="CUS_CREDEB" ) {'.
		        'If ((@$Row_Temp2Tabela["CUS_CREDEB"]+0)==0 ) { '.
		            '$sConteudoCRow = "Débito";'.
               	'} Else {'.			
                    '$sConteudoCRow = "Crédito";'.
		        '}'.
		     '}';
		  
		  
		  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_ListaCus = parent.document.getElementById('".$oTabelaRegs->sIdObjTabela."');".
    	     'iQdr_ListaCus.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."');";
    //
    // ATIVAR REGISTRO
    } ElseIf ( $sAcao=="ATIVAR" ) {
	   $sRet_Javs .=
	      'parent.JanEspera(false);'.
		  '';
	   If ($bDir_Alterar) {
	      If ((@$_REQUEST['Cus_CodigoI']+0)>0) {
             MYSQL_QUERY("UPDATE cad_centro_custo SET CUS_ATIVO_=1 WHERE CUS_CODIGOI=".(@$_REQUEST['Cus_CodigoI']+0)." ;") or die(MYSQL_ERROR());
	         $sRet_Javs .=
		        'parent.Car_'.$sNomeAcesso.'1.PRow_Sel('.($oTabelaRegs->nQtdCampos-1).',1);'.
		   	    'parent.Car_'.$sNomeAcesso.'1.P_Atu();';
	      }
	   } Else {
	      $sRet_Javs .= Info_Evento('ALERTA: Sem previlégio de alteração para ativar.');
	   }
    //
    // INATIVAR REGISTRO
    } ElseIf ( $sAcao=="INATIVAR" ) {
	   $sRet_Javs .=
	      'parent.JanEspera(false);'.
		  '';
	   If ($bDir_Alterar) {
	      If ((@$_REQUEST['Cus_CodigoI']+0)>0) {
             MYSQL_QUERY("UPDATE cad_centro_custo SET CUS_ATIVO_=0 WHERE CUS_CODIGOI=".(@$_REQUEST['Cus_CodigoI']+0)." ;") or die(MYSQL_ERROR());
	         $sRet_Javs .= 
		        'parent.Car_'.$sNomeAcesso.'1.PRow_Sel('.($oTabelaRegs->nQtdCampos-1).',1);'.
		        'parent.Car_'.$sNomeAcesso.'1.P_Atu();'.
                '';
	      }
	   } Else {
	      $sRet_Javs .= Info_Evento('ALERTA: Sem previlégio de alteração para inativar.');
	   }
    //
    // JANELA TELA PRINCIPAL
    } Else {
	   //
	   $sJavClkAtiv =
          "JanEspera(true, 'Ativando registro... Aguarde...');".
          "setTimeout( function() { ".
             "document.forms.fmPCadCus.acao.value='ATIVAR'; ".
			 "document.forms.fmPCadCus.submod.value=''; ".
             "document.forms.fmPCadCus.Cus_CodigoI.value=Car_".$sNomeAcesso."1.sSelIndice;".
    	     "document.forms.fmPCadCus.submit();".
          "}, ".$nTmpFrmEnv.");".
	      "";
	   //
	   // Confirma a inativação do registro
	   $sJavClkInat =
		  JAVA_CharCode(
		     "if (_NUM_BOT_==1) { ".
                 "JanEspera(true, 'Inativando registro... Aguarde...');".
                 "setTimeout( function() { ".
                    "document.forms.fmPCadCus.acao.value='INATIVAR'; ".
                    "document.forms.fmPCadCus.submod.value=''; ".
                    "document.forms.fmPCadCus.Cus_CodigoI.value=Car_".$sNomeAcesso."1.sSelIndice;".
                    "document.forms.fmPCadCus.submit();".
                 "}, ".$nTmpFrmEnv.");".
		  	 "}"
		  );
	
       $sJavClkInat =
		  "sIdHasFocus='iCadCus_PChave';".
	      "Qdr_Prompt_H(true,'Tem certeza que deseja INATIVAR este centro de custo?',".$sJavClkInat.",['Sim','Não']); ";
	   
	   
	   $oJanelaPrinc->aIdsObjList = ARRAY( 'iCadCus_PChave', 'sl_CadCus_Ativos' );
	   
	   
       // Tela HTML
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
          '<form name="fmPCadCus" 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="Cus_PChave" type="hidden" value="">'.
             '<input name="Cus_Ativos" type="hidden" value="0">'.
    	     '<input name="Cus_NumCam" type="hidden" value="">'.
    	     '<input name="Cus_CodigoI" type="hidden" value="">'.
          '</form>'.
		  '<table width="100%">'.
		    '</tr>'.
       	       '<td width="4px" height="10px" align="left">'.
			      '&nbsp;'.
			   '</td>'.
			   '<td align="left" width="70px" style="font-size:14px;">'.
       	          'Procurar por: '.
       	       '</td>'.
       	       '<td align="left" style="font-size:14px;">'.
		          'Mostrar'.
			   '</td>'.
       	    '</tr>'.
			'<tr>'.
			   '<td width="4px" height="10px" align="left">'.
				  '&nbsp;'.
			   '</td>'.
			   '<td align="left" width="300px">'.
       	          '<input id="iCadCus_PChave" type="text" maxlength="30" style="width:98%; height:24px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
       	       '</td>'.
       	       '<td align="left">'.
			       '<select id="sl_CadCus_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="right" width="70px">'.
       	          HTML_Botao( 3, 'CadCus_BT_Pro', 'Car_'.$sNomeAcesso.'1.P_Atu();'
		                       , 'Procurar'     ,'images/btimg_lupa.png').
       	       '</td>'.
		    '</tr>'.
		  '</table>'.
		  //'<table width="100%"></tr>'.
       	  // '<td width="4px" height="10px" align="left">&nbsp;</td>'.
       	  // '<td align="left" width="70px">'.
       	  //  'Procurar por: '.
       	  // '</td>'.
       	  // '<td align="left" width="300px">'.
       	  //  '<input id="iCadCus_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="PCadCus_Ativos">inativos</span>'.
		  //	'</span>'.
       	  // '</td>'.
       	  // '<td align="right" width="70px">'.
       	  // HTML_Botao( 3, 'CadCus_BT_Pro', 'Car_'.$sNomeAcesso.'1.P_Atu();'
		  //              , 'Procurar'     ,'images/btimg_lupa.png').
       	  // '</td>'.
       	  //'</tr></table>'.
    	  $oTabelaRegs->MontaDivHtml().
       	  '<table width="100%"></tr>'.
       	   '<td width="4px" height="40px" align="left">&nbsp;</td>'.
       	   '</td>'.
       	   '<td>'.
       	    HTML_Botao( 3, 'CadCCus_BT_Nov', $sJavaTravarJ.
			                                 "document.forms.fmPCadCus.acao.value='NV'; ".
			                                 "document.forms.fmPCadCus.submod.value='EDT'; ".
    	                                     "document.forms.fmPCadCus.submit();"
			             , 'Novo (F6)'   ,'images/btimg_novo.png').'&nbsp;&nbsp;'.
       	    HTML_Botao( 3, 'CadCCus_BT_Edt', $sJavaTravarJ.
			                                 "Car_".$sNomeAcesso."1.Pesq_Editar();"
			             , ($bDir_Alterar ? 'Editar' : 'Visualizar').' (F7)' ,'images/btimg_editar.png',130).'&nbsp;&nbsp;'.
       	    HTML_Botao( 3, 'CadCCus_BT_Itv', $sJavClkInat
			             , 'Inativar (F8)','images/btimg_remover.png',110).
       	    HTML_Botao( 3, 'CadCCus_BT_Atv', $sJavClkAtiv
			             , 'Ativar (F8)','images/btimg_ativar.png').'&nbsp;&nbsp;'.
       	   '</td>'.
       	   '<td width="120px" align="left">'.
       	    HTML_Botao( 3, 'CadCCus_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() {".
		    "sSelIndice='0';".
		    $oTabelaRegs->MontaJavaAgu().
		    "parent.document.getElementById('CadCCus_BT_Edt').style.display='none';".
		    "parent.document.getElementById('CadCCus_BT_Itv').style.display='none';".
		    "parent.document.getElementById('CadCCus_BT_Atv').style.display='none';".
         	"parent.document.forms.fmPCadCus.acao.value='LISTAR'; ".
            "parent.document.forms.fmPCadCus.submod.value=''; ".
         	"parent.document.forms.fmPCadCus.Cus_PChave.value=parent.document.getElementById('iCadCus_PChave').value; ".
         	"parent.document.forms.fmPCadCus.Cus_Ativos.value=parent.document.getElementById('sl_CadCus_Ativos').value;".
			"parent.document.forms.fmPCadCus.Cus_NumCam.value=nPesq_CampoSel+''; ".
         	"setTimeout( function() { parent.document.forms.fmPCadCus.submit(); }, 100);".
          '}'.
		  'function Pesq_Editar() {'.
            "parent.document.forms.fmPCadCus.acao.value='';".
            "parent.document.forms.fmPCadCus.submod.value='EDT';".
            "parent.document.forms.fmPCadCus.Cus_CodigoI.value=sSelIndice;".
            "parent.document.forms.fmPCadCus.submit();".
		  '}'.
		  "var bExbAtivos=true;".
		  //'function P_Ativos() {'.
		  //  "var obj = parent.document.getElementById('PCadCus_Ativos');".
			//"if (bExbAtivos) {".
             //   "parent.document.forms.fmPCadCus.Cus_Ativos.value='0'; ".
			 //   "obj.innerHTML = 'ativos';".
			//	"bExbAtivos = false;".
			//"} else {".
            //    "parent.document.forms.fmPCadCus.Cus_Ativos.value='1'; ".
			//    "obj.innerHTML = 'inativos';".
			//	"bExbAtivos = true;".
			//"}".
			//"P_Atu();".
		  //'}'.
          $oTabelaRegs->MontaJavaPri();
          '';
       // Java posterior
       $sRet_JavsPos .=
		  "parent.document.getElementById('CadCCus_BT_Atv').style.display='none';".
          ($bDir_Incluir ? '' :
		     "parent.document.getElementById('CadCCus_BT_Nov').style.display='none';"
		  ).
		  ($bDir_Consult ?
		    "P_Atu();"
		  :
		    Info_Evento('ALERTA: Sem previlégio para consulta neste modulo.').
         	"parent.document.forms.fmPCadCus.acao.value='FECHAR'; ".
            "parent.document.forms.fmPCadCus.submod.value=''; ".
         	"parent.document.forms.fmPCadCus.submit();"
		  ).
    	  'parent.document.getElementById("iCadCus_PChave").focus();'.
		  //
		  "function Teclas_F( Objeto, Evento ) {".
             "vNumTecla = parent.Tecla_Apertada(Evento);".
             "if ( vNumTecla==117) { ".        //  ** [F6] **          // (Novo)
                 "if ( parent.document.getElementById('CadCCus_BT_Nov').style.display != 'none') {".
                     "setTimeout( parent.document.getElementById('CadCCus_BT_Nov').onclick , 100);".
				 "}".
		     "} else if ( vNumTecla==116) { ".  // ** [F5] **         Não atualizar
                 //
		     "} else if ( vNumTecla==118) { ". //  ** [F7] **          // (Editar)
                 "if ( parent.document.getElementById('CadCCus_BT_Edt').style.display != 'none') {".
                      "setTimeout( parent.document.getElementById('CadCCus_BT_Edt').onclick , 100);".
				 "}".
		     "} else if ( vNumTecla==119) { ". //  ** [F8] **          // (Inativar)
                "if ( parent.document.getElementById('CadCCus_BT_Itv').style.display != 'none') {".
                      "setTimeout( parent.document.getElementById('CadCCus_BT_Itv').onclick , 100);".
					                                                   // (Ativar)
                 "} else if ( parent.document.getElementById('CadCCus_BT_Atv').style.display != 'none') {".
                      "setTimeout( parent.document.getElementById('CadCCus_BT_Atv').onclick , 100);".
				 "}".
		     "} else if ( vNumTecla==27) { ".  //  ** [ESC] **         // (SAIR)
                  "setTimeout( parent.document.getElementById('CadCCus_BT_Fch').onclick , 100);".
			 "} else {".
		          "P_TeclasPress_fm(Evento);".
			      "return true;".
			 "}".
			 "return false;".
		  '}'.
		  //
    	  "";
    }
}
?>