<?php
$bDir_Consult = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'C');
$bDir_Alterar = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'A');
$bDir_Incluir = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'I');
//
$nTmpFrmEnv = 300;
$sCorBarraInf = '#E8E3CE';
$sNomeIdJConsulta = 'iJan_LstCadTrb';
$sNomeIdJEdt_Cad  = 'iJan_EdtCadTrb';
$sNomeIdJEdt_Cad2 = 'iJan_EdtCadCST';
//
//** JANELA PRINCIPAL, CONSULTA **
If ( EMPTY($sSubModulo) ) {
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJConsulta; 
    $oJanelaPrinc->nWidth  = 870;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
    $oJanelaPrinc->nTop    = 1;
    $oJanelaPrinc->nLeft   = 20;
	$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Cadastro de tributações';
	//$oJanelaPrinc->sJavOnClick = "document.getElementById('iCadTrb_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.fmPCadTrb.acao.value='FECHAR'; ".
		"document.forms.fmPCadTrb.submod.value=''; ".
		"document.forms.fmPCadTrb.Trb_PChave.value=''; ".
		"document.forms.fmPCadTrb.Trb_NumCam.value=''; ".
		"document.forms.fmPCadTrb.submit();".
		"";
	//
    // Criar objeto GRID
    $oTabelaRegs = New Pad_GridPesq();
    $oTabelaRegs->sIdObjTabela = 'iQdr_ListaPro';
    $oTabelaRegs->GLstCampos( 'TRB_CODIGOI,Código,45px,STRZERO=3;'.
                              'CST_CODFISC,C. Fiscal,50px;'.
                              'CST_DESCRIC,Descrição CST;'.
    			              'TRB_I_C_M_S,ICMS,36px,PERC;'.
    			              'TRB_COD_CFO,C.F.O.P.,48px;'.
    			              'TRB_COD_PIS,PIS,34px;'.
							  'TRB_PER_PIS,% PIS ,44px,PERC;'.
    			              'TRB_COD_CFN,COFINS,24px;'.
							  'TRB_PER_CFN,% COFINS,56px,PERC;'.
                              'CST_CREGIME,Regime do CST,120px;'
							);
    $oTabelaRegs->sCampoIndice = 'TRB_CODIGOI';
    $oTabelaRegs->nWidth  = $oJanelaPrinc->nWidth;
    $oTabelaRegs->nHeight = 350;    // Altura
    $oTabelaRegs->sCampoOnClick  = "Car_".$sNomeAcesso."1.P_Sel(<NUMCAM>); Car_".$sNomeAcesso."1.P_Atu();";
    $oTabelaRegs->sLinhaOnClick  = "Car_".$sNomeAcesso."1.PRow_Sel(<QTDCOL>,<SELLIN>);";
    $oTabelaRegs->sLinhaOnDblClk = $sJavaTravarJ.
	                               "Car_".$sNomeAcesso."1.Pesq_Editar();";
    $oTabelaRegs->sJavSelectReg = "sSelIndice = S_Indice;".
	                              "if (parseInt(sSelIndice)>0) {".
								      "if (parent.document.forms.fmPCadTrb.Trb_Ativos.value=='1') {".
									      ($bDir_Alterar ?
				                             "parent.document.getElementById('CadCTrb_BT_Itv').style.display='inline-block';"
										  : '').
				                          "parent.document.getElementById('CadCTrb_BT_Atv').style.display='none';".
									   "} else {".
				                          "parent.document.getElementById('CadCTrb_BT_Itv').style.display='none';".
									      ($bDir_Alterar ?
				                             "parent.document.getElementById('CadCTrb_BT_Atv').style.display='inline-block';"
										  : '').
								       "}".
		                               "parent.document.getElementById('CadCTrb_BT_Edt').style.display='inline-block';".
								   "} ".
	                              'parent.document.getElementById("iCadTrb_PChave").focus();';
    //
    // MONTAR JANELA TELA
    If ( EMPTY($sAcao) ) {
	   //
	   $sJavClkAtiv =
          "JanEspera(true, 'Ativando registro... Aguarde...');".
          "setTimeout( function() { ".
             "document.forms.fmPCadTrb.acao.value='ATIVAR'; ".
			 "document.forms.fmPCadTrb.submod.value=''; ".
             "document.forms.fmPCadTrb.Trb_CodigoI.value=Car_".$sNomeAcesso."1.sSelIndice;".
    	     "document.forms.fmPCadTrb.submit();".
          "}, ".$nTmpFrmEnv.");".
		  "";
	   //
	   // Confirma a inativação do registro
	   $sJavClkInat =
		  JAVA_CharCode(
		     "if (_NUM_BOT_==1) { ".
                 "JanEspera(true, 'Inativando registro... Aguarde...');".
                 "setTimeout( function() { ".
                    "document.forms.fmPCadTrb.acao.value='INATIVAR'; ".
                    "document.forms.fmPCadTrb.submod.value=''; ".
                    "document.forms.fmPCadTrb.Trb_CodigoI.value=Car_".$sNomeAcesso."1.sSelIndice;".
                    "document.forms.fmPCadTrb.submit();".
                 "}, ".$nTmpFrmEnv.");".
		  	"}"
		  );
	   $sJavClkInat =
		  "sIdHasFocus='iCadTrb_PChave';".
	      "Qdr_Prompt_H(true,'Tem certeza que deseja INATIVAR este registro?',".$sJavClkInat.",['Sim','Não']); ";
	   //
	   $oJanelaPrinc->aIdsObjList = ARRAY( 'iCadTrb_PChave' );
	   //
       // Tela HTML
	   //
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
          '<form name="fmPCadTrb" 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="Trb_PChave" type="hidden" value="">'.
           '<input name="Trb_Ativos" type="hidden" value="1">'.
    	   '<input name="Trb_NumCam" type="hidden" value="">'.
    	   '<input name="Trb_CodigoI" type="hidden" value="">'.
          '</form>'.
       	  '<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="180px">'.
       	    '<input id="iCadTrb_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="PCadTrb_Ativos">inativos</span>'.
			'</span>'.
       	   '</td>'.
       	   '<td align="left" width="116px">'.
       	   HTML_Botao( 3, 'CadMPG_BT_Pro', 'Car_'.$sNomeAcesso.'1.P_Atu();'
		                , 'Procurar'     , 'images/btimg_lupa.png').
       	   '</td>'.
       	  '</tr></table>'.
    	  $oTabelaRegs->MontaDivHtml().
		  '<div style="width:100%; height:1px; background-color:#91D8F8;"></div>'.
       	  '<table width="100%"></tr>'.
       	   '<td width="4px" height="10px" align="left">&nbsp;</td>'.
		   '<td>'.
		    '<span id="CadCTrb_sp_QtdReg"></span>'.
		   '</td>'.
		  '</table>'.
       	  '<table width="100%" style="background-color:'.$sCorBarraInf.';"></tr>'.
       	   '<td width="4px" height="40px" align="left">&nbsp;</td>'.
       	   '</td>'.
       	   '<td>'.
       	    HTML_Botao( 3, 'CadCTrb_BT_Nov', $sJavaTravarJ.
                                             "parent.document.forms.fmPCadTrb.Trb_CodigoI.value='NOVO';".
			                                 "document.forms.fmPCadTrb.acao.value=''; ".
			                                 "document.forms.fmPCadTrb.submod.value='EDT'; ".
    	                                     "document.forms.fmPCadTrb.submit();"
			             , 'Novo (F6)'   ,'images/btimg_novo.png').'&nbsp;&nbsp;'.
       	    HTML_Botao( 3, 'CadCTrb_BT_Edt', $sJavaTravarJ.
			                                 "Car_".$sNomeAcesso."1.Pesq_Editar();"
			             , ($bDir_Alterar ? 'Editar' : 'Visualizar').' (F7)' ,'images/btimg_editar.png', 130).'&nbsp;&nbsp;'.
       	    HTML_Botao( 3, 'CadCTrb_BT_Itv', $sJavClkInat
			             , 'Inativar (F8)','images/btimg_remover.png', 110).
       	    HTML_Botao( 3, 'CadCTrb_BT_Atv', $sJavClkAtiv
			             , 'Ativar (F8)','images/btimg_ativar.png').'&nbsp;&nbsp;'.
       	   '</td>'.
       	   '<td width="124px" align="left">'.
       	    HTML_Botao( 3, 'CadCTrb_BT_Fch', $oJanelaPrinc->sJavOnClickF
                         , 'Sair (ESC)' ,'images/btimg_fechar.png').
       	   '</td>'.
       	  '</tr></table>'.
    	  $oJanelaPrinc->MontaJanHTML(False);
       //
       $sRet_Javs .=
		  'parent.document.getElementById("dv_MenuL_Barra").style.visibility="hidden";'.
	      "var sSelIndice='0';".
          "function P_Atu() {".
            "sSelIndice='0';".
		    $oTabelaRegs->MontaJavaAgu().
		    "parent.document.getElementById('CadCTrb_BT_Edt').style.display='none';".
		    "parent.document.getElementById('CadCTrb_BT_Itv').style.display='none';".
		    "parent.document.getElementById('CadCTrb_BT_Atv').style.display='none';".
			"parent.document.getElementById('CadCTrb_sp_QtdReg').innerHTML='';".
         	"parent.document.forms.fmPCadTrb.acao.value='LISTAR'; ".
            "parent.document.forms.fmPCadTrb.submod.value=''; ".
         	"parent.document.forms.fmPCadTrb.Trb_PChave.value=parent.document.getElementById('iCadTrb_PChave').value; ".
         	"parent.document.forms.fmPCadTrb.Trb_NumCam.value=nPesq_CampoSel+''; ".
         	"setTimeout( function() { parent.document.forms.fmPCadTrb.submit(); }, 100);".
          '}'.
		  'function Pesq_Editar() {'.
            "parent.document.forms.fmPCadTrb.acao.value='';".
            "parent.document.forms.fmPCadTrb.submod.value='EDT';".
            "parent.document.forms.fmPCadTrb.Trb_CodigoI.value=sSelIndice;".
            "parent.document.forms.fmPCadTrb.submit();".
		  '}'.
		  "var bExbAtivos=true;".
		  'function P_Ativos() {'.
		    "var obj = parent.document.getElementById('PCadTrb_Ativos');".
			"if (bExbAtivos) {".
                "parent.document.forms.fmPCadTrb.Trb_Ativos.value='0'; ".
			    "obj.innerHTML = 'ativos';".
				"bExbAtivos = false;".
			"} else {".
                "parent.document.forms.fmPCadTrb.Trb_Ativos.value='1'; ".
			    "obj.innerHTML = 'inativos';".
				"bExbAtivos = true;".
			"}".
			"P_Atu();".
		  '}'.
          $oTabelaRegs->MontaJavaPri();
          '';
       // Java posterior
       $sRet_JavsPos .=
          ($bDir_Incluir ? '' :
		  "parent.document.getElementById('CadCTrb_BT_Nov').style.display='none';"
		  ).
		  "parent.document.getElementById('CadCTrb_BT_Edt').style.display='none';".
		  "parent.document.getElementById('CadCTrb_BT_Itv').style.display='none';".
		  "parent.document.getElementById('CadCTrb_BT_Atv').style.display='none';".
		  ($bDir_Consult ?
		    "P_Atu();"
		  :
		    Info_Evento('ALERTA: Sem previlégio para consulta neste modulo.').
         	"parent.document.forms.fmPCadTrb.acao.value='FECHAR'; ".
            "parent.document.forms.fmPCadTrb.submod.value=''; ".
         	"parent.document.forms.fmPCadTrb.submit();"
		  ).
    	  'parent.document.getElementById("iCadTrb_PChave").focus();'.
		  //
		  "function Teclas_F( Objeto, Evento ) {".
             "vNumTecla = parent.Tecla_Apertada(Evento);".
             "if ( vNumTecla==117) { ".        //  ** [F6] **          // (Novo)
                 "if ( parent.document.getElementById('CadCTrb_BT_Nov').style.display != 'none') {".
                     "setTimeout( parent.document.getElementById('CadCTrb_BT_Nov').onclick , 100);".
				 "}".
		     "} else if ( vNumTecla==116) { ".  // ** [F5] **         Não atualizar
                 //
		     "} else if ( vNumTecla==118) { ". //  ** [F7] **          // (Editar)
                 "if ( parent.document.getElementById('CadCTrb_BT_Edt').style.display != 'none') {".
                      "setTimeout( parent.document.getElementById('CadCTrb_BT_Edt').onclick , 100);".
				 "}".
		     "} else if ( vNumTecla==119) { ". //  ** [F8] **          // (Inativar)
                 "if ( parent.document.getElementById('CadCTrb_BT_Itv').style.display != 'none') {".
                      "setTimeout( parent.document.getElementById('CadCTrb_BT_Itv').onclick , 100);".
					                                                   // (Ativar)
                 "} else if ( parent.document.getElementById('CadCTrb_BT_Atv').style.display != 'none') {".
                      "setTimeout( parent.document.getElementById('CadCTrb_BT_Atv').onclick , 100);".
				 "}".
		     "} else if ( vNumTecla==27) { ".  //  ** [ESC] **         // (SAIR)
                  "setTimeout( parent.document.getElementById('CadCTrb_BT_Fch').onclick , 100);".
			 "} else {".
		          "P_TeclasPress_fm(Evento);".
			      "return true;".
			 "}".
			 "return false;".
		  '}'.
    	  "";
	   //
    //
    // MONTAR LISTA DE CADASTROS
    } ElseIf ( $sAcao=="LISTAR" ) {
	   If ($bDir_Consult) {
          $sP_PChave =  @$_REQUEST['Trb_PChave'];
          $nP_NumCam =  @$_REQUEST['Trb_NumCam']+0;
          $bP_Ativos = (@$_REQUEST['Trb_Ativos']+0)>0;
          $nQtdReg = 300;  // Quantidade Máxima de registros
          $nIniReg = 0;
		  // Montar matriz da tabela "cad_regime_fiscal"
		  $aCad_RegimeFiscal = ARRAY();
		  $sSQLQuery =
		     "SELECT RGF_CODIGOI, RGF_DESCRIC ".
			 "FROM cad_regime_fiscal;";
	      $Rows = MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR());
		  While ( $Row = MYSQL_FETCH_OBJECT($Rows) ) {
		     $aCad_RegimeFiscal[$Row->RGF_CODIGOI] = $Row->RGF_DESCRIC;
		  }
          // Montar condição para a pesquisa
          $sWhereSQL  = '';
          If ($bP_Ativos) {
             $sWhereSQL .= 'TRB_RGATIVO';
          } Else {
             $sWhereSQL .= 'TRB_RGATIVO=0';
          }
          If ( $nP_NumCam==0 ) { $nP_NumCam=2; }
          $aLstCampo = EXPLODE(',',@$oTabelaRegs->aLstCampos[$nP_NumCam-1]);
          If ( STRLEN(@$aLstCampo[0])>0 ) {
             If ( STRLEN($sP_PChave)>0 ) {
                $sWhereSQL .= 'AND '.$aLstCampo[0].' LIKE "%'.$sP_PChave.'%" ';
             }
			 $sWhereSQL .= ' ORDER BY '.$aLstCampo[0].' ASC ';
          }
		  // Código fonte PHP na GRID ** Parte do descritivo do regime fiscal
		  $oTabelaRegs->s_PHP_IniMonta =
		    'Global $aCad_RegimeFiscal, $Dados_Empresa;'.
		    '';
          $oTabelaRegs->s_PHP_LinhaTb =
		    '$sTmp_CRegime = "";'.
            '$aTmp_CRegime = EXPLODE(",",$Row_Temp2Tabela["CST_CREGIME"]);'.
			'$b_IncluirL = ( STRPOS(" ".$Row_Temp2Tabela["CST_CREGIME"]."," , $Dados_Empresa["EMP_REGIME"].",")>0 );'. // Regime atual da empresa
			'If ( $b_IncluirL ) {'.
                'ForEach ( $aTmp_CRegime as $nTmp_CRegime ) {'.
			       'If ( STRLEN($nTmp_CRegime)==0 ) { BREAK; }'.
		           '$nTmp_CRegime += 0;'.
			       'If ( STRLEN($sTmp_CRegime)>0 ) {'.
			           '$sTmp_CRegime .= ", ";'.
			       '}'.
			       '$sTmp_CRegime .= $aCad_RegimeFiscal[$nTmp_CRegime];'.
		        '}'.
		        '$Row_Temp2Tabela["CST_CREGIME"] = $sTmp_CRegime;'.
		    '}'.
		    '';
		
		  //$oTabelaRegs->s_PHP_ColunaTb =
		  //   'If ( $aBDCamposN[$nContador]=="TRB_PER_PIS" ) {'.
		  //      '$sConteudoCRow = $Row_Temp2Tabela["TRB_COD_PIS"]."-".$Row_Temp2Tabela["TRB_PER_PIS"];'.
		  //   '} elseif ( $aBDCamposN[$nContador]=="TRB_PER_CFN" ) {'.
		  //      '$sConteudoCRow = $Row_Temp2Tabela["TRB_COD_CFN"]."-".$Row_Temp2Tabela["TRB_PER_CFN"];'.
		  //   '}'.
		  //   "";
			
		  // Comando SQL para montar a tabela
          $oTabelaRegs->sBDQuery =
		    'SELECT '.
			  'trb.*, cst.CST_CODFISC, cst.CST_DESCRIC, cst.CST_CREGIME '.
			'FROM cad_tributacao AS trb '.
            'LEFT JOIN cad_cst   AS cst ON TRB_COD_CST=CST_CODIGOI '.
		    'WHERE '.$sWhereSQL.' LIMIT '.$nIniReg.','.$nQtdReg.';';
          // Executar montagem da tabela em codigo HTML
          $sRet_TelaJ_HTML = $oTabelaRegs->MontaTabelaHTML();
          // Java
          $sRet_Javs .=
            "var iQdr_ListaTrb = parent.document.getElementById('".$oTabelaRegs->sIdObjTabela."');".
            'iQdr_ListaTrb.innerHTML = '.JAVA_CharCode_Mini($sRet_TelaJ_HTML).';'.
            'parent.Car_'.$sNomeAcesso.'1.'.$oTabelaRegs->sNomeTabela.'_Rowsel = 1;'.
			"parent.document.getElementById('CadCTrb_sp_QtdReg').innerHTML = '".($oTabelaRegs->nQtdRegistros>0 ? $oTabelaRegs->nQtdRegistros.' registros encontrados.' : 'Nenhum registro encontrado')."';".
            '';
          // Java posterior
          $sRet_JavsPos .=
            'parent.Car_'.$sNomeAcesso.'1.'.$oTabelaRegs->sNomeTabela.'_Rowsel = 1;'.
			'parent.Car_'.$sNomeAcesso.'1.P_Sel('.$nP_NumCam.');'.
            //'parent.Car_'.$sNomeAcesso.'1.PRow_Sel('.($oTabelaRegs->nQtdCampos-1).',1);'.
            '';
          $sRet_TelaJ_HTML = '';
	   }
    //
    // FECHAR
    } ElseIf ( $sAcao=="FECHAR" ) {
       $sRet_Javs .=
	      'parent.document.getElementById("dv_MenuL_Barra").style.visibility="visible";'.
	      "parent.RmElem('".$oJanelaPrinc->sIdObj."');";
    //
    // ATIVAR REGISTRO
    } ElseIf ( $sAcao=="ATIVAR" || $sAcao=="INATIVAR" ) {
	   $bAtivar = $sAcao=="ATIVAR";
	   $sRet_Javs .=
	      'parent.JanEspera(false);'.
		  '';
	   If ($bDir_Alterar) {
	      If ((@$_REQUEST['Trb_CodigoI']+0)>0) {
             MYSQL_QUERY("UPDATE cad_tributacao SET TRB_RGATIVO=".($bAtivar+0)." WHERE TRB_CODIGOI=".(@$_REQUEST['Trb_CodigoI']+0)." ;") or die(MYSQL_ERROR());
	         $sRet_Javs .=
		        'parent.Car_'.$sNomeAcesso.'1.PRow_Sel('.($oTabelaRegs->nQtdCampos-1).',1);'.
		   	    'parent.Car_'.$sNomeAcesso.'1.P_Atu();'.
		   	    '';
	      }
	   } Else {
	      $sRet_Javs .= Info_Evento('ALERTA: Sem previlégio de alteração para ativar este produto.');
	   }
	}
	//
//
//  ** CADASTRO (NOVO/EDITA) **
} ElseIf ( $sSubModulo=="EDT" ) {
   // Criar objeto Janela
   $oJanelaPrinc = New R_Janela();
   $oJanelaPrinc->sIdObj  = $sNomeIdJEdt_Cad; 
   $oJanelaPrinc->nWidth  = 720;   // Largura
   $oJanelaPrinc->nHeight = 0;     // Altura
   $oJanelaPrinc->nTop    = 20;
   $oJanelaPrinc->nLeft   = 5;
   $oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
   $oJanelaPrinc->sTitulo = 'Cadastro de tributação';
   //
   $oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."2.Teclas_F(this,event);";
   $sJavaTravarJ = "document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);";
   $oJanelaPrinc->sJavOnClickF =
      $sJavaTravarJ.
   	  "document.forms.fmECadTrb.acao.value='FECHAR'; ".
   	  "document.forms.fmECadTrb.submit();".
   	  "";
   //
   $sTrb_CodigoI = @$_REQUEST['Trb_CodigoI'];
   $bTrb_Novo    = $sTrb_CodigoI=="NOVO";
   //
   // MONTAR JANELA TELA
   If ( EMPTY($sAcao) ) {
       $bMontarJanela = False;
	   // Novo registro
	   If ( $bTrb_Novo ) {
	      $bMontarJanela = $bDir_Incluir;
		  If ( ! $bMontarJanela ) {
             $sRet_Javs .=
               Info_Evento('ALERTA: Você não tem previlégio para incluir um novo registro de tributação.').
               "";
		  }
       // Puxar dados para a alteração do registro
	   } Else {
	      $sTrb_CodigoI = Str_Zero($sTrb_CodigoI, 3);
		  $sSQLQueryC =
		     "SELECT * FROM cad_tributacao WHERE TRB_CODIGOI='".$sTrb_CodigoI."';";
	      $Row_CadTrb = MYSQL_QUERY($sSQLQueryC) Or Die($sSQLQueryC."<br>".MYSQL_ERROR());
		  $bMontarJanela = ($Row_CadTrb = MYSQL_FETCH_ARRAY($Row_CadTrb));
		  If ( ! $bMontarJanela ) {
             $sRet_Javs .=
               Info_Evento('ERRO: Registro não encontrado.').
               "";
		  } ElseIf ( ! $bDir_Alterar ) {
             $bMontarJanela = False;
             $sRet_Javs .=
               Info_Evento('ALERTA: Você não tem previlégio para alterar um registro de tributação.').
               "";
		  }
	   }
	   //
	   If ($bMontarJanela) {
		  //
          $oJanelaPrinc->aIdsObjList =
             ARRAY('iCadETrb_I_C_M_S','iECadETrb_CodCST','iECadETrb_CodCFOP','iECadETrb_CodPIS','iCadETrb_Per_PIS','iECadETrb_CodCFN','iCadETrb_Per_CFN');
          // Tela HTML
	      //
	      $sCSS_Inputs = 'background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;';
          $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
            '<form name="fmECadTrb" 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.'">'.
            '<input name="Trb_CodigoI" type="hidden" value="'.$sTrb_CodigoI.'">'.
            '<input name="CST_CodigoI" type="hidden" value="'.(@$Row_CadTrb['TRB_COD_CST']+0).'">'.
            '<input name="PIS_CodigoI" type="hidden" value="'.(@$Row_CadTrb['TRB_COD_PIS']+0).'">'.
            '<input name="CFN_CodigoI" type="hidden" value="'.(@$Row_CadTrb['TRB_COD_CFN']+0).'">'.
		    //
            '<table width="100%">'.
			 '<tr>'.
              '<td width="4px" height="24px">&nbsp;</td>'.
              '<td align="right" width="60px">'.
               'Código: '.
              '</td>'.
			  '<td width="60px" align="left">'.
			   '<input id="iCadETrb_CodigoI" type="text" value="'.$sTrb_CodigoI.'" readonly="readonly" style="width:50px; height:22px; '.$sCSS_Inputs.'">'.
			  '</td>'.
              '<td align="right">'.
               'Percentual ICMS: '.
              '</td>'.
			  '<td align="left" width="60px">'.
			   '<input id="iCadETrb_I_C_M_S" name="Trb_I_C_M_S" type="text" value="'.(@$Row_CadTrb['TRB_I_C_M_S']+0).'%" maxlength="6" style="width:100%; height:22px; text-align:center; '.$sCSS_Inputs.'">'.
              '</td>'.
              '<td width="10px" height="24px">&nbsp;</td>'.
			 '</tr>'.
			'</table>'.
            '<table width="100%">'.
			 '<tr>'.
              '<td width="4px" height="24px">&nbsp;</td>'.
              '<td align="right" width="60px">'.
               'CST: '.
              '</td>'.
			  '<td align="left">'.
			   '<select id="iECadETrb_CodCST" name="Trb_Cod_CST" onchange="return Car_'.$sNomeAcesso.'2.Muda_CST();" style="width:100%; font-family:Courier;">'.
			   '</select>'.
			  '</td>'.
              '<td width="10px" height="24px">&nbsp;</td>'.
			 '</tr>'.
			'</table>'.
            '<table width="100%">'.
			 '<tr>'.
              '<td align="right" valign="top" width="68px" height="70px">'.
               'CFOP saída: '.
              '</td>'.
			  '<td align="left" valign="top" width="40px">'.
			   '<input id="iECadETrb_CodCFOP" name="Trb_Cod_CFO" type="text" value="'.(@$Row_CadTrb['TRB_COD_CFO']+0).'" maxlength="5" onchange="return Car_'.$sNomeAcesso.'2.Puxar_CFOP();" style="width:100%; height:22px; text-align:center; '.$sCSS_Inputs.'">'.
			  '</td>'.
			  '<td align="left" valign="top">'.
			   '<div style="width:'.($oJanelaPrinc->nWidth-90).'px;" id="dvECadTrb_Descri_CFOP"></div>'.
			  '</td>'.
              '<td width="10px" height="24px">&nbsp;</td>'.
			 '</tr>'.
			'</table>'.
            '<table width="100%">'.
			 '<tr>'.
              '<td width="4px" height="24px">&nbsp;</td>'.
              '<td align="right" width="60px">'.
               'PIS saída: '.
              '</td>'.
			  '<td align="left">'.
			   '<select id="iECadETrb_CodPIS" name="Trb_Cod_PIS" style="width:99%; font-family:Courier;">'.
			   '</select>'.
			  '</td>'.
              '<td align="right" width="90px">'.
               'Percentual PIS: '.
              '</td>'.
			  '<td align="left" width="60px">'.
			   '<input id="iCadETrb_Per_PIS" name="Trb_Per_PIS" type="text" value="'.(@$Row_CadTrb['TRB_PER_PIS']+0).'%" maxlength="6" style="width:100%; height:22px; text-align:center; '.$sCSS_Inputs.'">'.
              '</td>'.
              '<td width="10px" height="24px">&nbsp;</td>'.
			 '</tr>'.
			'</table>'.
            '<table width="100%">'.
			 '<tr>'.
              '<td width="4px" height="24px">&nbsp;</td>'.
              '<td align="right" width="60px">'.
               'COFINS saída: '.
              '</td>'.
			  '<td align="left">'.
			   '<select id="iECadETrb_CodCFN" name="Trb_Cod_CFN" style="width:99%; font-family:Courier;">'.
			   '</select>'.
			  '</td>'.
              '<td align="right" width="90px">'.
               'Percentual COFINS: '.
              '</td>'.
			  '<td align="left" width="60px">'.
			   '<input id="iCadETrb_Per_CFN" name="Trb_Per_CFN" type="text" value="'.(@$Row_CadTrb['TRB_PER_CFN']+0).'%" maxlength="6" style="width:100%; height:22px; text-align:center; '.$sCSS_Inputs.'">'.
              '</td>'.
              '<td width="10px" height="24px">&nbsp;</td>'.
			 '</tr>'.
			'</table>'.
            '</form>'.
       	    '<table width="100%"></tr>'.
       	     '<td width="6px" height="40px"></td>'.
       	     '<td width="160px" align="left" valign="middle">'.
       	      HTML_Botao( 3, 'CadETrb_BT_Svl', "document.forms.fmECadTrb.acao.value='SALVAR';".
    	                                       "document.forms.fmECadTrb.submit();"
			               , 'Salvar (F10)',   'images/btimg_salvar.png').
       	     '</td>'.
       	     '<td width="130px" align="left" valign="middle">'.
       	      HTML_Botao( 3, 'CadECST_BT_Nov', $sJavaTravarJ.
			                                   "sSubModAnt = document.forms.fmECadTrb.submod.value;".
			                                   "document.forms.fmECadTrb.submod.value='CST';".
			                                   "document.forms.fmECadTrb.CST_CodigoI.value='NOVO';".
			                                   "document.forms.fmECadTrb.acao.value='';".
    	                                       "document.forms.fmECadTrb.submit();".
			                                   "document.forms.fmECadTrb.submod.value=sSubModAnt;"
			               , 'Novo CST (F6)',  'images/btimg_novo.png', 120).
       	     '</td>'.
       	     '<td width="135px" align="left" valign="middle">'.
       	      HTML_Botao( 3, 'CadECST_BT_Edt', $sJavaTravarJ.
			                                   "sSubModAnt = document.forms.fmECadTrb.submod.value;".
			                                   "document.forms.fmECadTrb.submod.value='CST';".
			                                   "document.forms.fmECadTrb.acao.value='';".
    	                                       "document.forms.fmECadTrb.submit();".
			                                   "document.forms.fmECadTrb.submod.value=sSubModAnt;"
			               , 'Editar CST (F7)','images/btimg_editar.png', 125).
       	     '</td>'.
       	     '<td align="right" valign="middle">'.
       	      HTML_Botao( 3, 'CadETrb_BT_Fec', $oJanelaPrinc->sJavOnClickF
                           , 'Sair (ESC)' ,'images/btimg_fechar.png').
       	     '</td>'.
       	     '<td width="6px"></td>'.
       	    '</tr></table>'.
    	    $oJanelaPrinc->MontaJanHTML(False);
	      //
          // Java posterior
          $sRet_JavsPos .=
    	    "parent.document.getElementById('iCadETrb_I_C_M_S').focus();".
			"Puxar_CFOP();".
			"Monta_CST();".
		    //
			"function Muda_CST() {".
			   "var ipt_CST = parent.document.getElementById('iECadETrb_CodCST');".
			   "var bot_CST = parent.document.getElementById('CadECST_BT_Edt');".
               "parent.document.forms.fmECadTrb.CST_CodigoI.value=ipt_CST.value;".
			   "if ( ipt_CST.value=='0' ) {".
			       "bot_CST.style.display='none';".
			   "} else {".
			       "bot_CST.style.display='inline-block';".
			   "}".
			"}".
			//
			"function Monta_CST() {".
			   "var _Fm = parent.document.forms.fmECadTrb;".
               "_Fm.acao.value='MONTAR_COMBOS';".
    	       "_Fm.submit();".
			"}".
			//
			"function Puxar_CFOP() {".
			   "var _Fm = parent.document.forms.fmECadTrb;".
			   "TargetAnt = _Fm.target;".
			   "_Fm.target='car_".$sNomeAcesso."4';".
               "_Fm.acao.value='PUXAR_CFOP';".
    	       "_Fm.submit();".
			   "_Fm.target = TargetAnt;".
			"}".
			//
		    "function Teclas_F( Objeto, Evento ) {".
               "vNumTecla = parent.Tecla_Apertada(Evento);".
               "if ( vNumTecla==121) { ".        //  ** [F10] **         // (Gravar)
                   "setTimeout( parent.document.getElementById('CadETrb_BT_Svl').onclick , 100);".
               "} else if ( vNumTecla==117) { ". //  ** [F6] **          // (Novo CST)
			       "if ( parent.document.getElementById('CadECST_BT_Nov').style.display != 'none' ) {".
                       "setTimeout( parent.document.getElementById('CadECST_BT_Nov').onclick , 100);".
				   "}".
               "} else if ( vNumTecla==118) { ". //  ** [F7] **          // (Editar CST)
			       "if ( parent.document.getElementById('CadECST_BT_Edt').style.display != 'none' ) {".
                       "setTimeout( parent.document.getElementById('CadECST_BT_Edt').onclick , 100);".
				   "}".
		       "} else if ( vNumTecla==27) { ".  //  ** [ESC] **         // (SAIR)
                   "setTimeout( parent.document.getElementById('CadETrb_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("iCadETrb_I_C_M_S").focus();'.
			       "}".
			       //
			   "} else {".
			       "return true;".
			   "}".
			   "return false;".
		    '}'.
	        '';
		    //
	   } Else {
	      $sAcao = "FECHAR";
	   }
  	//
	// MONTAR COMBOS
    } ElseIf ( $sAcao=="MONTAR_COMBOS" ) {
       // Montar matriz da tabela "cad_regime_fiscal"
       $aCad_RegimeFiscal = ARRAY();
       $sSQLQuery =
          "SELECT RGF_CODIGOI, RGF_DESCRIC ".
          "FROM cad_regime_fiscal;";
       $Rows = MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR());
       While ( $Row = MYSQL_FETCH_OBJECT($Rows) ) {
          $aCad_RegimeFiscal[$Row->RGF_CODIGOI] = $Row->RGF_DESCRIC;
       }
       //
       // Combo de CST do ICMS
       $sHTML_ComboCST = '<option value="0">- Nenhum selecionado -</option>';
       $sSQLQuery =
          "SELECT CST_CODIGOI, CST_CREGIME, CST_CODFISC, CST_DESCRIC ".
          "FROM cad_cst ".
          "WHERE CST_RGATIVO ".
          ";";
       $RowsT = MYSQL_QUERY( $sSQLQuery ) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
       While ($RowT = MYSQL_FETCH_OBJECT($RowsT)) {
           $sCST_SRegime = $RowT->CST_CREGIME;
           If ( STRLEN($sCST_SRegime)==0 ) {
              $sCST_SRegime = "SEM REGIME";
           } Else {
              If ( STRPOS(" ".$sCST_SRegime."," , $Dados_Empresa['EMP_REGIME'].",")==0 ) {   // Regime atual da empresa
       	         CONTINUE;
              }
              $aCST_SRegime = EXPLODE(",",$sCST_SRegime);
       	      $sCST_SRegime = "";
       	      ForEach ( $aCST_SRegime As $nCST_SRegime ) {
       	         If ( STRLEN($nCST_SRegime)==0 ) { BREAK; }
                 If ( STRLEN($sCST_SRegime)>0 ) { $sCST_SRegime .= ", "; }
                 $sCST_SRegime .= @$aCad_RegimeFiscal[$nCST_SRegime+0];
       	      }
           }
           $sHTML_ComboCST .=
              '<option value="'.$RowT->CST_CODIGOI.'" '.($RowT->CST_CODIGOI==(@$_POST['CST_CodigoI']+0) ? 'selected' : '').'>'.
               '&nbsp;'.$RowT->CST_CODFISC.'|&nbsp;'.
               AlinhaStr($RowT->CST_DESCRIC,0,45,'&nbsp;')."|&nbsp;".
               AlinhaStr($sCST_SRegime,0,30,'&nbsp;')."&nbsp;".
              '</option>';
       }
       //
       // Combo de CST do PIS
       $sHTML_ComboPIS = '<option value="0">- Nenhum selecionado -</option>';
       $sSQLQuery =
          "SELECT * ".
          "FROM cad_cst_pis ".
          "WHERE PIS_TIPOCST IN (1,2) ".
          ";";
       $RowsT = MYSQL_QUERY( $sSQLQuery ) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
       While ($RowT = MYSQL_FETCH_OBJECT($RowsT)) {
           $sHTML_ComboPIS .=
              '<option value="'.$RowT->PIS_CODIGOI.'" '.($RowT->PIS_CODIGOI==(@$_POST['PIS_CodigoI']+0) ? 'selected' : '').'>'.
               Str_Zero($RowT->PIS_CODIGOI,2).'&nbsp;|&nbsp;'.$RowT->PIS_DESCRIC.
              '</option>';
	   }
       //
       // Combo de CST do COFINS
       $sHTML_ComboCFN = '<option value="0">- Nenhum selecionado -</option>';
       $sSQLQuery =
          "SELECT * ".
          "FROM cad_cst_cofins ".
          "WHERE CFN_TIPOCST IN (1,2) ".
          ";";
       $RowsT = MYSQL_QUERY( $sSQLQuery ) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
       While ($RowT = MYSQL_FETCH_OBJECT($RowsT)) {
           $sHTML_ComboCFN .=
              '<option value="'.$RowT->CFN_CODIGOI.'" '.($RowT->CFN_CODIGOI==(@$_POST['CFN_CodigoI']+0) ? 'selected' : '').'>'.
               Str_Zero($RowT->CFN_CODIGOI,2).'&nbsp;|&nbsp;'.$RowT->CFN_DESCRIC.
              '</option>';
	   }
	   //
	   $sRet_Javs .= 
         "parent.document.getElementById('iECadETrb_CodCST').innerHTML = ".JAVA_CharCode_Mini($sHTML_ComboCST).";".
         "parent.document.getElementById('iECadETrb_CodPIS').innerHTML = ".JAVA_CharCode_Mini($sHTML_ComboPIS).";".
         "parent.document.getElementById('iECadETrb_CodCFN').innerHTML = ".JAVA_CharCode_Mini($sHTML_ComboCFN).";".
		 'parent.Car_'.$sNomeAcesso.'2.Muda_CST();'.
		 "";
  	//
	// PUXAR DETALHES DO C.F.O.P.
    } ElseIf ( $sAcao=="PUXAR_CFOP" ) {
	   $nTrb_Cod_CFO = Somente_Numeros(@$_POST['Trb_Cod_CFO'])+0;
	   $sTrb_Cod_CFO = '';
	   $sDescri_CFOP = '';
	   If ( $nTrb_Cod_CFO==0 ) {
	      $sDescri_CFOP = '(Nenhum C.F.O.P. de saída selecionado)';
	   } Else {
          $sSQLQuery =
             "SELECT * ".
             "FROM cad_cfop_saida ".
             "WHERE ".$nTrb_Cod_CFO." IN (CFO_COD_DE, CFO_COD_FE, CFO_COD_IN)".
             ";";
          $RowT = MYSQL_QUERY( $sSQLQuery ) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
          If ($RowT = MYSQL_FETCH_OBJECT($RowT)) {
		     $sDescri_CFOP = '<strong>';
			 If ( $RowT->CFO_COD_DE==$nTrb_Cod_CFO ) {       // dentro do estado
		        $sDescri_CFOP .= 'Dentro do estado';
			 } ElseIf ( $RowT->CFO_COD_FE==$nTrb_Cod_CFO ) { // fora do estado
		        $sDescri_CFOP .= 'Fora do estado';
			 } ElseIf ( $RowT->CFO_COD_IN==$nTrb_Cod_CFO ) { // fora do país
		        $sDescri_CFOP .= 'Fora do país';
			 }
		     $sDescri_CFOP .= ' - '.$RowT->CFO_TITULO.'</strong><br>'.HTMLENTITIES($RowT->CFO_OBSERV);
			 $sTrb_Cod_CFO = $nTrb_Cod_CFO;
		  }
	   }
	   $sRet_Javs .= 
         "parent.document.getElementById('dvECadTrb_Descri_CFOP').innerHTML = ".JAVA_CharCode($sDescri_CFOP).";".
         "parent.document.getElementById('iECadETrb_CodCFOP').value = '".$sTrb_Cod_CFO."';".
		 "";
	   //
  	//
	// SALVAR REGISTRO
    } ElseIf ( $sAcao=="SALVAR" ) {
	   //
	   If ($bDir_Alterar) {
	      $nTrb_Cod_Cst = Somente_Numeros(@$_POST['Trb_Cod_CST'])+0;
	      $nTrb_I_C_M_S = Somente_Numeros(@$_POST['Trb_I_C_M_S'])+0;
	      $nTrb_Cod_CFO = Somente_Numeros(@$_POST['Trb_Cod_CFO'])+0;
	      $nTrb_Cod_PIS = Somente_Numeros(@$_POST['Trb_Cod_PIS'])+0;
	      $nTrb_Per_PIS = Somente_Numeros(@$_POST['Trb_Per_PIS'],'.')+0;
	      $nTrb_Cod_CFN = Somente_Numeros(@$_POST['Trb_Cod_CFN'])+0;
	      $nTrb_Per_CFN = Somente_Numeros(@$_POST['Trb_Per_CFN'],'.')+0;
		  $nTrb_CodigoI = Somente_Numeros($sTrb_CodigoI)+0;
	      // Novo registro
	      If ( $bTrb_Novo ) {
	         $sSQLQuery = "SELECT TRB_CODIGOI FROM cad_tributacao ORDER BY TRB_CODIGOI DESC LIMIT 1;";
	         $nTrb_CodigoI = MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery."<br>".MYSQL_ERROR());
	         $nTrb_CodigoI = MYSQL_FETCH_ARRAY($nTrb_CodigoI);
	         $nTrb_CodigoI = $nTrb_CodigoI[0]+1;
		     $sSQLQuery = "INSERT INTO cad_tributacao( TRB_CODIGOI,TRB_RGATIVO ) VALUES (".$nTrb_CodigoI.",1);";
	         MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery."<br>".MYSQL_ERROR());
	      }
		  // Salvar registro
		  $sSQLQuery =
               "UPDATE cad_tributacao SET ".
                 'TRB_COD_CST="'.$nTrb_Cod_Cst.'",'.
				 'TRB_I_C_M_S="'.$nTrb_I_C_M_S.'",'.
				 'TRB_COD_CFO="'.$nTrb_Cod_CFO.'",'.
				 'TRB_COD_PIS="'.$nTrb_Cod_PIS.'",'.
				 'TRB_PER_PIS="'.$nTrb_Per_PIS.'",'.
				 'TRB_COD_CFN="'.$nTrb_Cod_CFN.'",'.
				 'TRB_PER_CFN="'.$nTrb_Per_CFN.'" '.
               "WHERE TRB_CODIGOI=".($nTrb_CodigoI).";";
		  MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery."<br>".MYSQL_ERROR());
		  //
          $sRet_Javs .= "document.location.href = './car_js.php?nomeacs=".$sNomeAcesso."&mod=".$sModulo."&submod=".$sSubModulo."&acao=FECHAR&acaoAnt=".$sAcao."';";
	   } Else {
          $sRet_Javs .=
            Info_Evento('ALERTA: Você não tem previlégio para alterar um registro de tributação.').
            "";
	   }
    //
    // 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("iCadTrb_PChave").focus();'.
		  "parent.Car_".$sNomeAcesso."1.P_Atu();".
		  "";
		//
	}
//
//  ** CADASTRO (NOVO/EDITA) CODIGO DE SITAÇÃO TRIBUTÁRIA (CST) **
} ElseIf ( $sSubModulo=="CST" ) {
   // Criar objeto Janela
   $oJanelaPrinc = New R_Janela();
   $oJanelaPrinc->sIdObj  = $sNomeIdJEdt_Cad2; 
   $oJanelaPrinc->nWidth  = 720;   // Largura
   $oJanelaPrinc->nHeight = 0;     // Altura
   $oJanelaPrinc->nTop    = 130;
   $oJanelaPrinc->nLeft   = 5;
   $oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
   $oJanelaPrinc->sTitulo = 'Cadastro de sitação tributária';
   //
   $oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."3.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.fmECadCST.acao.value='FECHAR'; ".
   	  "document.forms.fmECadCST.submit();".
   	  "";
   //
   $sCST_CodigoI = @$_REQUEST['CST_CodigoI'];
   $bCST_Novo    = $sCST_CodigoI=="NOVO";
   //
   // MONTAR JANELA TELA
   If ( EMPTY($sAcao) ) {
       $bMontarJanela = False;
	   // Novo registro
	   If ( $bCST_Novo ) {
	      $bMontarJanela = $bDir_Incluir;
		  If ( ! $bMontarJanela ) {
             $sRet_Javs .=
               Info_Evento('ALERTA: Você não tem previlégio para incluir um novo registro de tributação.').
               "";
		  }
       // Puxar dados para a alteração do registro
	   } Else {
	      $sCST_CodigoI = Str_Zero($sCST_CodigoI, 3);
		  $sSQLQueryC =
		     "SELECT * FROM cad_cst WHERE CST_CODIGOI='".$sCST_CodigoI."';";
	      $Row_CadCST = MYSQL_QUERY($sSQLQueryC) Or Die($sSQLQueryC."<br>".MYSQL_ERROR());
		  $bMontarJanela = ($Row_CadCST = MYSQL_FETCH_ARRAY($Row_CadCST));
		  If ( ! $bMontarJanela ) {
             $sRet_Javs .=
               Info_Evento('ERRO: Registro não encontrado.').
               "";
		  } ElseIf ( ! $bDir_Alterar ) {
             $bMontarJanela = False;
             $sRet_Javs .=
               Info_Evento('ALERTA: Você não tem previlégio para alterar um registro de tributação.').
               "";
		  }
	   }
	   //
	   If ($bMontarJanela) {
		  // Montar matriz da tabela "cad_regime_fiscal"
		  $aCad_RegimeFiscal = ARRAY();
		  $sSQLQuery =
		     "SELECT RGF_CODIGOI, RGF_DESCRIC ".
			 "FROM cad_regime_fiscal;";
	      $Rows = MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR());
		  While ( $Row = MYSQL_FETCH_OBJECT($Rows) ) {
		     $aCad_RegimeFiscal[$Row->RGF_CODIGOI] = $Row->RGF_DESCRIC;
		  }
		  //
          $oJanelaPrinc->aIdsObjList =
             ARRAY('iCadETrb_I_C_M_S','iECadETrb_CodCST');
          // Tela HTML
	      //
	      $sCSS_Inputs = 'background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;';
          $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
            '<form name="fmECadCST" 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.'">'.
            '<input name="CST_CodigoI" type="hidden" value="'.$sCST_CodigoI.'">'.
		    //
            '<table width="100%">'.
			 '<tr>'.
              '<td width="100px" align="right">'.
               'Cód. Interno: '.
              '</td>'.
			  '<td width="60px" align="left">'.
			   '<input id="iCadECST_CodigoI" type="text" value="'.$sCST_CodigoI.'" readonly="readonly" style="width:50px; height:22px; '.$sCSS_Inputs.'">'.
			  '</td>'.
              '<td align="right" width="170px">'.
               'Cód. Fiscal: '.
              '</td>'.
			  '<td width="60px" align="left">'.
			   '<input id="iCadECST_CodFisc" name="CST_CodFisc" type="text" value="'.@$Row_CadCST['CST_CODFISC'].'" maxlength="3" style="width:50px; height:22px; '.$sCSS_Inputs.'">'.
			  '</td>'.
              '<td align="right">'.
               'Codigo ECF: '.
              '</td>'.
			  '<td width="60px" align="left">'.
			   '<input id="iCadECST_Cod_ECF" name="CST_Cod_ECF" type="text" value="'.@$Row_CadCST['CST_COD_ECF'].'" maxlength="2" style="width:50px; height:22px; '.$sCSS_Inputs.'">'.
			  '</td>'.
              '<td width="10px" height="24px"></td>'.
			 '</tr>'.
			'</table>'.
            '<table width="100%">'.
			 '<tr>'.
              '<td width="100px" align="right">'.
               'Descrição: '.
              '</td>'.
			  '<td align="left">'.
			   '<input id="iCadECST_Descric" name="CST_Descric" type="text" value="'.@$Row_CadCST['CST_DESCRIC'].'" style="width:100%; height:22px; '.$sCSS_Inputs.'">'.
              '</td>'.
              '<td width="10px" height="24px"></td>'.
			 '</tr>'.
			'</table>'.
            '</form>'.
       	    '<table width="100%"></tr>'.
       	     '<td width="6px" height="40px"></td>'.
       	     '<td width="160px" align="left" valign="middle">'.
       	      HTML_Botao( 3, 'CadECST_BT_Svl', "document.forms.fmECadCST.acao.value='SALVAR';".
    	                                       "document.forms.fmECadCST.submit();"
			               , 'Salvar (F10)',   'images/btimg_salvar.png').
       	     '</td>'.
       	     '<td align="right" valign="middle">'.
       	      HTML_Botao( 3, 'CadECST_BT_Fec', $oJanelaPrinc->sJavOnClickF
                           , 'Sair (ESC)' ,'images/btimg_fechar.png').
       	     '</td>'.
       	     '<td width="6px"></td>'.
       	    '</tr></table>'.
    	    $oJanelaPrinc->MontaJanHTML(False);
	      //
          // Java posterior
          $sRet_JavsPos .=
    	    "parent.document.getElementById('iCadECST_CodFisc').focus();".
			//
		    "function Teclas_F( Objeto, Evento ) {".
               "vNumTecla = parent.Tecla_Apertada(Evento);".
               "if ( vNumTecla==121) { ".        //  ** [F10] **         // (Gravar)
                   "setTimeout( parent.document.getElementById('CadECST_BT_Svl').onclick , 100);".
		       "} else if ( vNumTecla==27) { ".  //  ** [ESC] **         // (SAIR)
                   "setTimeout( parent.document.getElementById('CadECST_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("iCadECST_CodFisc").focus();'.
			       "}".
			       //
			   "} else {".
			       "return true;".
			   "}".
			   "return false;".
		    '}'.
	        '';
		    //
	   } Else {
	      $sAcao = "FECHAR";
	   }
  	//
	// SALVAR REGISTRO
    } ElseIf ( $sAcao=="SALVAR" ) {
	   //
	   If ($bDir_Alterar) {
	      $sCST_CodFisc = @$_POST['CST_CodFisc'];
	      $sCST_Cod_ECF = @$_POST['CST_Cod_ECF'];
	      $sCST_Descric = @$_POST['CST_Descric'];
		  $nCST_CodigoI = Somente_Numeros($sCST_CodigoI)+0;
	      // Novo registro
	      If ( $bCST_Novo ) {
	         $sSQLQuery = "SELECT CST_CODIGOI FROM cad_cst ORDER BY CST_CODIGOI DESC LIMIT 1;";
	         $nCST_CodigoI = MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery."<br>".MYSQL_ERROR());
	         $nCST_CodigoI = MYSQL_FETCH_ARRAY($nCST_CodigoI);
	         $nCST_CodigoI = $nCST_CodigoI[0]+1;
		     $sSQLQuery = "INSERT INTO cad_cst( CST_CODIGOI,CST_RGATIVO,CST_CREGIME ) VALUES (".$nCST_CodigoI.",1,'".$Dados_Empresa['EMP_REGIME']."');";
	         MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery."<br>".MYSQL_ERROR());
	      }
		  // Salvar registro
		  $sSQLQuery =
               "UPDATE cad_cst SET ".
                 'CST_CODFISC="'.$sCST_CodFisc.'",'.
				 'CST_COD_ECF="'.$sCST_Cod_ECF.'",'.
				 'CST_DESCRIC="'.$sCST_Descric.'" '.
               "WHERE CST_CODIGOI=".($nCST_CodigoI).";";
		  MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery."<br>".MYSQL_ERROR());
		  //
          $sRet_Javs .=
		     ( $bCST_Novo ?
               "parent.document.forms.fmECadTrb.CST_CodigoI.value='".$nCST_CodigoI."';"
		     : '').
		     "parent.Car_".$sNomeAcesso."3.document.location.href = './car_js.php?nomeacs=".$sNomeAcesso."&mod=".$sModulo."&submod=".$sSubModulo."&acao=FECHAR&acaoAnt=".$sAcao."';".
			 "";
	   } Else {
          $sRet_Javs .=
            Info_Evento('ALERTA: Você não tem previlégio para alterar um registro de tributação.').
            "";
	   }
    //
    // FECHAR JANELA
    } ElseIf ( $sAcao=="FECHAR" ) {
		//
		$sRet_Javs .= 
	      "parent.RmElem('".$oJanelaPrinc->sIdObj."'); ".
		  "parent.Disabled_In_Elems('".$sNomeIdJEdt_Cad."',false);".
		  "parent.document.getElementById('".$sNomeIdJEdt_Cad."_Travar').style.visibility='hidden';".
	      "parent.Car_".$sNomeAcesso."2.Monta_CST();".
    	  'parent.document.getElementById("iECadETrb_CodCST").focus();'.
		  "";
		//
	}
}
?>