<?php
//  ** MODULO DE CADASTRO DE EMPRESA **
//
$sNomeIdJConsulta = 'iJan_LstCadEmp';
$sNomeIdJEdt_Cad  = 'iJan_EdtCadEmp';
$sSubModulo2      = SUBSTR($sSubModulo,6);
//
$sEmp_Codigo = @$_POST['Emp_Codigo'];
// TELA DE CONSULTA
If ( EMPTY($sSubModulo2) ) {
    // 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 = 'Cadastro de empresas';
	$oJanelaPrinc->sJavOnClick = "document.getElementById('iCadEmp_PChave').focus();";
	//$oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."5.Teclas_F(this,event);";
    //
	$sJavaTravarJ = "parent.document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);";
	$oJanelaPrinc->sJavOnClickF = 
	    $sJavaTravarJ.
		"parent.document.forms.fmPCadEmp.acao.value='FECHAR'; ".
        "parent.document.forms.fmPCadEmp.submod.value='".$sSubModulo."';".
		"parent.document.forms.fmPCadEmp.Emp_PChave.value=''; ".
		"parent.document.forms.fmPCadEmp.Emp_NumCam.value=''; ".
		"parent.document.forms.fmPCadEmp.submit();".
		"";
	//
	//
    // Criar objeto GRID
    $oTabelaRegs = New Pad_GridPesq();
    $oTabelaRegs->sNomeTabela  = 'cad_empresa';
    $oTabelaRegs->sIdObjTabela = 'iQdr_ListaEmp';
    $oTabelaRegs->GLstCampos( 'EMP_CODIGO,Codigo,50px,STRZERO=6;'.
							  'EMP_RAZAOS,Razão Social;'.
    			              'EMP_N_CNPJ,CNPJ,110px;'.
	                          'EMP_TELEF1,Contato,90px,TEL;' );
    $oTabelaRegs->sCampoIndice = 'EMP_CODIGOI';
    $oTabelaRegs->nWidth  = $oJanelaPrinc->nWidth;
    $oTabelaRegs->nHeight = 340;    // Altura
    $oTabelaRegs->sCampoOnClick  = "Car_".$sNomeAcesso."5.P_Sel(<NUMCAM>); Car_".$sNomeAcesso."5.P_Atu();";
    $oTabelaRegs->sLinhaOnClick  = "Car_".$sNomeAcesso."5.PRow_Sel(<QTDCOL>,<SELLIN>);";
    $oTabelaRegs->sLinhaOnDblClk = $sJavaTravarJ.
	                               "Car_".$sNomeAcesso."5.Pesq_Editar();";
    $oTabelaRegs->sJavSelectReg = "sSelIndice = S_Indice;".
	                              "if (parseInt(sSelIndice)>0) {".
                                      //"if (parent.document.forms.fmPCadEmp.For_Ativos.value=='1') {".
                                      //    ($bDir_Alterar ?
                                      //       "parent.document.getElementById('CadCEmp_BT_Itv').style.display='inline-block';"
                                      //  : '').
                                      //    "parent.document.getElementById('CadCEmp_BT_Atv').style.display='none';".
                                      // "} else {".
                                      //    "parent.document.getElementById('CadCEmp_BT_Itv').style.display='none';".
                                      //    ($bDir_Alterar ?
                                      //       "parent.document.getElementById('CadCEmp_BT_Atv').style.display='inline-block';"
                                      //  : '').
                                      // "}".
		                              "parent.document.getElementById('CadCEmp_BT_Edt').style.display='inline-block';".
								   "} ".
	                              'parent.document.getElementById("iCadEmp_PChave").focus();';
    //
    // MONTAR LISTA DE CADASTROS
    If ( $sAcao=="LISTAR" ) {
	   If ($bDir_Consult) {
          $sP_PChave = @$_REQUEST['Emp_PChave'];
          $nP_NumCam = @$_REQUEST['Emp_NumCam']+0;
          $nIniReg = 0;
          $nQtdReg = 50;
          // Montar condição para a pesquisa
	      $sWhereSQL = 'EMP_CODIGOI>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 ) {
    	        $sWhereSQL .= 'AND '.$aLstCampo[0].' LIKE "%'.$sP_PChave.'%" ';
    	     }
			 $sWhereSQL .= 'ORDER BY '.$aLstCampo[0].' ASC ';
          }
          $oTabelaRegs->sBDParametros = 'WHERE '.$sWhereSQL.'LIMIT '.$nIniReg.','.$nQtdReg;
          // Tabela
          $sRet_TelaJ_HTML = $oTabelaRegs->MontaTabelaHTML();
          // Java
          $sRet_Javs .=
             "var iQdr_ListaEmp = parent.document.getElementById('".$oTabelaRegs->sIdObjTabela."');".
    	     'iQdr_ListaEmp.innerHTML = '.JAVA_CharCode($sRet_TelaJ_HTML).';'.
    	     '';
          // Java posterior
          $sRet_JavsPos .=
             'parent.Car_'.$sNomeAcesso.'5.'.$oTabelaRegs->sNomeTabela.'_Rowsel = 1;'.
             'parent.Car_'.$sNomeAcesso.'5.P_Sel('.$nP_NumCam.');'.
    	     '';
          $sRet_TelaJ_HTML = '';
	   }
    //
    // FECHAR
    } ElseIf ( $sAcao=="FECHAR" ) {
       $sRet_Javs .=
	   	  "parent.document.getElementById('".$sNomeIdJan1."_Travar').style.visibility='hidden';".
		  "parent.Disabled_In_Elems('".$sNomeIdJan1."',false);";
	      "parent.RmElem('".$oJanelaPrinc->sIdObj."');";
    //
    // JANELA TELA PRINCIPAL
    } Else {
	   //
       // Tela HTML
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
          '<form name="fmPCadEmp" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'6">'.
           '<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="Emp_PChave" type="hidden" value="">'.
           '<input name="Emp_Ativos" type="hidden" value="1">'.
    	   '<input name="Emp_NumCam" type="hidden" value="">'.
    	   '<input name="Emp_Codigo" 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="300px">'.
       	    '<input id="iCadEmp_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.'5.P_Ativos();" style="cursor:pointer; font-weight:bold; font-size:13px; text-decoration:underline;">'.
		    //'Mostrar somente os <span id="PCadEmp_Ativos">inativos</span>'.
			//'</span>'.
       	   '</td>'.
       	   '<td align="right" width="70px">'.
       	   HTML_Botao( 3, 'CadEmp_BT_Pro', 'Car_'.$sNomeAcesso.'5.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, 'CadCEmp_BT_Nov', $sJavaTravarJ.
			//                                 "document.forms.fmPCadEmp.acao.value='NV'; ".
			//                                 "document.forms.fmPCadEmp.submod.value='".$sSubModulo."EDT'; ".
    	    //                                 "document.forms.fmPCadEmp.submit();"
			//             , 'Novo (F6)'   ,'images/btimg_novo.png').'&nbsp;&nbsp;'.
       	    HTML_Botao( 3, 'CadCEmp_BT_Edt', $sJavaTravarJ.
			                                 "parent.Car_".$sNomeAcesso."5.Pesq_Editar();"
			             , ($bDir_Alterar ? 'Editar' : 'Visualizar'),'images/btimg_editar.png',110).'&nbsp;&nbsp;'.
       	    //HTML_Botao( 3, 'CadCEmp_BT_Itv', $sJavClkInat
			//             , 'Inativar (F8)','images/btimg_remover.png',110).
       	    //HTML_Botao( 3, 'CadCEmp_BT_Atv', $sJavClkAtiv
			//             , 'Ativar (F8)','images/btimg_ativar.png').'&nbsp;&nbsp;'.
       	   '</td>'.
       	   '<td width="120px" align="left">'.
       	    HTML_Botao( 3, 'CadCEmp_BT_Fch', $oJanelaPrinc->sJavOnClickF
                         , 'Sair' ,'images/btimg_fechar.png').
       	   '</td>'.
       	  '</tr></table>'.
    	  $oJanelaPrinc->MontaJanHTML(False);
       //
       $sRet_Javs .=
	   	  "parent.document.getElementById('".$sNomeIdJan1."_Travar').style.visibility='visible';".
		  "parent.Disabled_In_Elems('".$sNomeIdJan1."',true);";
          '';
       // Java posterior
       $sRet_JavsPos .=
		  "parent.document.getElementById('CadCEmp_BT_Edt').style.display='none';".
	      "var sSelIndice='';".
          "function P_Atu() {".
            "sSelIndice='0';".
		    $oTabelaRegs->MontaJavaAgu().
		    "parent.document.getElementById('CadCEmp_BT_Edt').style.display='none';".
		    //"parent.document.getElementById('CadCEmp_BT_Itv').style.display='none';".
		    //"parent.document.getElementById('CadCEmp_BT_Atv').style.display='none';".
         	"parent.document.forms.fmPCadEmp.acao.value='LISTAR'; ".
            "parent.document.forms.fmPCadEmp.submod.value='".$sSubModulo."'; ".
         	"parent.document.forms.fmPCadEmp.Emp_PChave.value=parent.document.getElementById('iCadEmp_PChave').value; ".
         	"parent.document.forms.fmPCadEmp.Emp_NumCam.value=nPesq_CampoSel+''; ".
         	"setTimeout( function() { parent.document.forms.fmPCadEmp.submit(); }, 100);".
          '}'.
		  'function Pesq_Editar() {'.
            "parent.document.forms.fmPCadEmp.acao.value='';".
            "parent.document.forms.fmPCadEmp.submod.value='".$sSubModulo."EDT'; ".
            "parent.document.forms.fmPCadEmp.Emp_Codigo.value=sSelIndice;".
            "parent.document.forms.fmPCadEmp.submit();".
		  '}'.
		  //"var bExbAtivos=true;".
		  //'function P_Ativos() {'.
		  //  "var obj = parent.document.getElementById('PCadEmp_Ativos');".
			//"if (bExbAtivos) {".
          //      "parent.document.forms.fmPCadEmp.For_Ativos.value='0'; ".
			//    "obj.innerHTML = 'ativos';".
			//	"bExbAtivos = false;".
			//"} else {".
          //      "parent.document.forms.fmPCadEmp.For_Ativos.value='1'; ".
			//    "obj.innerHTML = 'inativos';".
			//	"bExbAtivos = true;".
			//"}".
		  //'}'.
          ($bDir_Incluir ? '' :
		    "parent.document.getElementById('CadCEmp_BT_Nov').style.display='none';"
		  ).
		  ($bDir_Consult ?
		    "P_Atu();"
		  :
		    Info_Evento('ALERTA: Sem previlégio para consulta neste modulo.').
         	"parent.document.forms.fmPCadEmp.acao.value='FECHAR';".
            "parent.document.forms.fmPCadEmp.submod.value='".$sSubModulo."';".
         	"parent.document.forms.fmPCadEmp.submit();"
		  ).
    	  'parent.document.getElementById("iCadEmp_PChave").focus();'.
		  //
          $oTabelaRegs->MontaJavaPri();
		  //
		  "function Teclas_F( Objeto, Evento ) {".
             "vNumTecla = parent.Tecla_Apertada(Evento);".
		     "if ( vNumTecla==116) { ".             // ** [F5] **         Não atualizar
                 //
             //"} else if ( vNumTecla==117) { ".    //  ** [F6] **          // (Novo)
                 //"if ( parent.document.getElementById('CadCEmp_BT_Nov').style.display != 'none') {".
                 //    "setTimeout( parent.document.getElementById('CadCEmp_BT_Nov').onclick , 100);".
				 //"}".
		     "} else if ( vNumTecla==118) { ".      //  ** [F7] **          // (Editar)
                 "if ( parent.document.getElementById('CadCEmp_BT_Edt').style.display != 'none') {".
                      "setTimeout( parent.document.getElementById('CadCEmp_BT_Edt').onclick , 100);".
				 "}".
		     //"} else if ( vNumTecla==119) { ".    //  ** [F8] **          // (Inativar)
                 //"if ( parent.document.getElementById('CadCEmp_BT_Itv').style.display != 'none') {".
                 //     "setTimeout( parent.document.getElementById('CadCEmp_BT_Itv').onclick , 100);".
				 //	                                                   // (Ativar)
                 //"} else if ( parent.document.getElementById('CadCEmp_BT_Atv').style.display != 'none') {".
                 //     "setTimeout( parent.document.getElementById('CadCEmp_BT_Atv').onclick , 100);".
				 //"}".
		     "} else if ( vNumTecla==27) { ".       //  ** [ESC] **         // (SAIR)
                  "setTimeout( parent.document.getElementById('CadCEmp_BT_Fch').onclick , 100);".
			 "} else {".
		          "P_TeclasPress_fm(Evento);".
			      "return true;".
			 "}".
			 "return false;".
		  '}'.
		  //
    	  "";
    }

// EDITAR CADASTRO
} ElseIf ( $sSubModulo2=="EDT" ) {
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJEdt_Cad; 
    $oJanelaPrinc->nTop    = 40;
    $oJanelaPrinc->nLeft   = 25;
    $oJanelaPrinc->nWidth  = 850;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
	$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Cadastro da empresa';
	//
	$oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."6.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.fmECadEmp.acao.value='FECHAR'; ".
		  "document.forms.fmECadEmp.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 fornecedor.').
            "";
	   }
	   //
	   If ($bGravarReg) {
	      If ( STRLEN(@$_REQUEST['Emp_RazaoS'])<2 ) {
	         $sRet_Javs .= Info_Evento('Alguns campos estão incompletos.');
	         $bGravarReg = False;
	      }
	   }
	   //
	   If ($bGravarReg) {
	      If ( $sEmp_Codigo=="NOVO" ) {
		     $nEmp_Codigo = 1;
	         $Row_CadEmp = MYSQL_QUERY("SELECT EMP_CODIGOI FROM cad_empresa ORDER BY EMP_CODIGOI DESC LIMIT 1;") or die(MYSQL_ERROR());
             If ($Row_CadEmp = MYSQL_FETCH_ARRAY($Row_CadEmp)) {
			    $nEmp_Codigo = $Row_CadEmp[0]+1;
			 }
             MYSQL_QUERY(   // Cria um novo registro
               "INSERT INTO cad_empresa(EMP_CODIGOI) VALUES (".$nEmp_Codigo."); "
			 ) Or Die(MYSQL_ERROR());
	      } Else {
	         $nEmp_Codigo = $sEmp_Codigo+0;
	      }
	      $Row_CadEmp = MYSQL_QUERY("SELECT EMP_CODIGOI FROM cad_empresa WHERE EMP_CODIGOI=".($nEmp_Codigo)." ;") or die(MYSQL_ERROR());
          If ($Row_CadEmp = MYSQL_FETCH_ARRAY($Row_CadEmp)) {
             MYSQL_QUERY(   // Cria um novo registro
               "UPDATE cad_empresa SET ".
                 'EMP_CODIGO="'.(@$_POST['Emp_CodigoS']).'",'.
                 'EMP_APELIDO='.SQL_Bin(UTF8_DECODE(@$_POST['Emp_Apelido'])).','.
                 'EMP_RAZAOS=' .SQL_Bin(UTF8_DECODE(@$_POST['Emp_RazaoS'])) .','.
				 'EMP_FANTAS=' .SQL_Bin(UTF8_DECODE(@$_POST['Emp_Fantas'])) .','.
                 'EMP_N_CNPJ="'.(@$_POST['Emp_N_CNPJ']).'",'.
                 'EMP_CODCID="'.(@$_POST['Emp_CodCid']).'",'.
                 'EMP_REGIME="'.(@$_POST['Emp_Regime']).'",'.
                 'EMP_NUMIES="'.(@$_POST['Emp_NumIES']).'",'.
                 'EMP_TELEF1="'.(@$_POST['Emp_Telef1']).'",'.
                 'EMP_TELEF2="'.(@$_POST['Emp_Telef2']).'",'.
				 'EMP_ENDLOG="'.(@$_POST['Emp_EndLog']).'",'.
				 'EMP_ENDNUM="'.(@$_POST['Emp_EndNum']).'",'.
				 'EMP_ENDBAI="'.(@$_POST['Emp_EndBai']).'",'.
				 'EMP_C_E_P_="'.(@$_POST['Emp_EndCep']).'",'.
				 'EMP_EMAIL_="'.(@$_POST['Emp_Email_']).'",'.
                 'EMP_NFE_SERIE='.(@$_POST['Emp_Nfe_Serie']+0).','.
                 'EMP_NUMERO_PROX_NFE='.(@$_POST['Emp_Numero_Prox_Nfe']+0).','.
                 'EMP_NUMERO_PROX_NFCE='.(@$_POST['Emp_Numero_Prox_Nfce']+0).','.
				 'EMP_ALQSNA="'.(STR_REPLACE(',','.',@$_POST['Emp_AlqSNa'])+0).'" '.
		       "WHERE EMP_CODIGOI=".($nEmp_Codigo)."; ") Or Die(MYSQL_ERROR());
			 //
	      } Else {
             // Erro: registro não existe
			 $sRet_Javs .= Info_Evento('Registro não existe.',1);
	      }
          $sRet_Javs .= "document.location.href = './car_js.php?mod=".$sModulo."&submod=".$sSubModulo."&acao=FECHAR&nomeacs=".$sNomeAcesso."&acaoAnt=".$sAcao."';";
       }
	   $bMontarJanela = false;
    //
    // PUXAR CIDADE PELO CODIGO DO IBGE
    } ElseIf ( $sAcao=="PUXAR_CIDADE" ) {
	   $sEmp_CodCid = @$_POST['Emp_CodCid'];
	   // Consulta
	   If ( $sEmp_CodCid=='/' ) {
          $sRet_Javs .= 
	           "parent.document.getElementById('sCadEEmp_Cidade').innerHTML = '( Consulta )';".
	           "parent.document.getElementById('iCadEEmp_CodCid').value = '';".
	           $sJavaTravarJ.
		       "setTimeout( function () { ".
                  "NomeQdrCar = parent.document.forms.fmECadEmp.target;".
				  "AntQdrCar = NomeQdrCar;".
                  "NomeQdrCar = NomeQdrCar.substr(0,NomeQdrCar.length-1)+'3';".
                  "parent.document.forms.fmECadEmp.target = NomeQdrCar;".
		          "parent.document.forms.fmECadEmp.acao.value=''; ".
		          "parent.document.forms.fmECadEmp.submod.value='".SUBSTR($sSubModulo,0,6)."CID'; ".
		          "parent.document.forms.fmECadEmp.submit();".
                  "parent.document.forms.fmECadEmp.target = AntQdrCar;".
		          "parent.document.forms.fmECadEmp.submod.value='".$sSubModulo."'; ".
		       "} , 100);".
		       "";
	   // Exibir nome da cidade
	   } Else {
	      $sNomeCidade = '';
	      $Row = MYSQL_QUERY("SELECT CID_NOMECD, CID_ESTADO FROM cad_cidade WHERE CID_CODIGO='".$sEmp_CodCid."' ;") or die(MYSQL_ERROR());
          If ($Row = MYSQL_FETCH_OBJECT($Row)) {
		     $sNomeCidade = $Row->CID_NOMECD.' - '.$Row->CID_ESTADO;
		  }
          $sRet_Javs .= 
	           "parent.document.getElementById('sCadEEmp_Cidade').innerHTML = ".JAVA_CharCode(UTF8_DECODE($sNomeCidade)).";".
		       "";
	   }
	   //
	   $bMontarJanela = false;	
    //
    // CAPTURAR DADOS DA LICENÇA
    } ElseIf ( $sAcao=="GET_LICENCA" ) {
       $nEmp_Codigo = Somente_Numeros( $sEmp_Codigo )+0;
       $b_Licenca_Valida = ( STRLEN(SQLVarConfig('LICENCA_SOFTWARES_SIMSOFT'))>5 && $nEmp_Codigo>0 ) ;
       //
       If ( $b_Licenca_Valida ) {
          $aVd_Licenca = Licenca_Sft_Validar(@$aSessao['Trv_Sft_Lic']['DiskDrive_Serie'],$Dados_Empresa['EMP_CODIGO']+0);
          //ECHO VAR_EXPORT($aVd_Licenca);
          $aLic_Dados    = @$aVd_Licenca['Licenca_Inf'];
          $aLic_Portador = @$aLic_Dados['PORTADOR'];
          //
          If ( EMPTY($aLic_Dados) || EMPTY($aLic_Portador) ) {
             $b_Licenca_Valida = False;
             $sRet_Javs .= Info_Evento('Licença no formato desconhecida.',1);
             //
          } ElseIf ( ! @$aVd_Licenca['VALIDA'] ) {
             $b_Licenca_Valida = False;
             $sRet_Javs .= Info_Evento('Licença está inválida.',1);
             //
          } ElseIf ( 0+@$aLic_Dados['VERSAO'] < 0.2 ) {
             $b_Licenca_Valida = False;
             $sRet_Javs .= Info_Evento('Versão da licença é inferior á 0.2 , é necessário atualizar a licença.',1);
             //
          }
       }
       //
       If ( $b_Licenca_Valida ) {
          $sSQLQuery =
            "UPDATE cad_empresa SET ".
              'EMP_APELIDO ='.SQL_Bin(UTF8_DECODE( @$aLic_Portador['FANTASIA']                 ) ).' ,'.
              'EMP_RAZAOS  ='.SQL_Bin(UTF8_DECODE( @$aLic_Portador['RAZAO_SOCIAL']             ) ).' ,'.
              'EMP_FANTAS  ='.SQL_Bin(UTF8_DECODE( @$aLic_Portador['FANTASIA']                 ) ).' ,'.
              'EMP_REGIME  ="'.(                   @$aLic_Portador['REGIME_FISCAL']              ).'",'.
              'EMP_N_CNPJ  ="'.(                   @$aLic_Portador['CADNSC_NUMERO']              ).'",'.
              'EMP_NUMIES  ="'.(                   @$aLic_Portador['NUMERO_IES']                 ).'",'.
              'EMP_TELEF1  ="'.(                   @$aLic_Portador['TELEFONE_1']                 ).'",'.
              'EMP_TELEF2  ="'.(                   @$aLic_Portador['TELEFONE_2']                 ).'",'.
              'EMP_CODCID  ="'.(                   @$aLic_Portador['ENDERECO']['CIDADE_IBGE']    ).'",'.
              'EMP_ENDLOG  ='.SQL_Bin(UTF8_DECODE( @$aLic_Portador['ENDERECO']['LOGRADOURO']   ) ).' ,'.
              'EMP_ENDNUM  ="'.(                   @$aLic_Portador['ENDERECO']['NUMERO']         ).'",'.
              'EMP_ENDBAI  ='.SQL_Bin(UTF8_DECODE( @$aLic_Portador['ENDERECO']['BAIRRO']       ) ).' ,'.
              'EMP_C_E_P_  ="'.(                   @$aLic_Portador['ENDERECO']['CEP']            ).'",'.
              'EMP_EMAIL_  ='.SQL_Bin(UTF8_DECODE( @$aLic_Portador['EMAIL']                    ) ).'  '.
            "WHERE EMP_CODIGOI = ".$nEmp_Codigo.
            ";";
          //
          MYSQL_QUERY( $sSQLQuery ) OR DIE( MYSQL_ERROR().'<br>'.$sSQLQuery );
          //
          $sRet_Javs .= "document.location.href = './car_js.php?mod=".$sModulo."&submod=".$sSubModulo."&acao=FECHAR&nomeacs=".$sNomeAcesso."&acaoAnt=SALVAR';";
          //
       }
       //
	   $bMontarJanela = false;	
    //
    // FECHAR
    } ElseIf ( $sAcao=="FECHAR" ) {
	   //
	   UNSET($aSessao['CADTEL_LISTA']);
	   //
       $sRet_Javs .= 
	      "parent.RmElem('".$oJanelaPrinc->sIdObj."'); ".
		  "parent.Disabled_In_Elems('".$sNomeIdJConsulta."',false);".
		  "parent.document.getElementById('".$sNomeIdJConsulta."_Travar').style.visibility='hidden';".
    	  'parent.document.getElementById("iCadEmp_PChave").focus();'.
		  (@$_REQUEST['acaoAnt']=='SALVAR' ? "parent.Car_".$sNomeAcesso."5.P_Atu();" : '').
		  "";
	   $bMontarJanela = false;
	//
	// NOVO REGISTRO
	} ElseIf ( $sAcao=="NV" ) {
	   $sEmp_Codigo = 'NOVO';
	//
	// PUXAR REGISTRO
	} Else {
	   If (STRLEN($sEmp_Codigo)==0) {
	      $bMontarJanela = False;
	      $sAcao = 'FECHAR';
          $sRet_Javs .=
		     "parent.document.getElementById('".$sNomeIdJConsulta."_Travar').style.visibility='hidden';".
	         Info_Evento('Selecione um fornecedor na lista.');
	   } Else {
          $Row_CadEmp = MYSQL_QUERY("SELECT * FROM cad_empresa WHERE EMP_CODIGOI=".($sEmp_Codigo+0)." ;") or die(MYSQL_ERROR());
          If (! $Row_CadEmp = MYSQL_FETCH_ARRAY($Row_CadEmp)) {
	         $Row_CadEmp = ARRAY();
	      }
	   }
       //
	}
	If ($bMontarJanela) {
	   //
	   $oJanelaPrinc->aIdsObjList =
	      ARRAY(
		    'iCadEEmp_Codigo', 'iCadEEmp_Apelido',
			'iCadEEmp_Fantas',
			'iCadEEmp_RazaoS',
			'iCadEEmp_EndLog', 'iCadEEmp_EndNum', 'iCadEEmp_EndBai','iCadEEmp_EndCep',
			'iCadEEmp_N_CNPJ', 'iCadEEmp_Regime', 'iCadEEmp_NumIES','iCadEEmp_Email_','iCadEEmp_AlqSNa',
			'iCadEEmp_CodCid', 'iCadEEmp_Telef1', 'iCadEEmp_Telef2',
            'iCadEEmp_Nfe_Serie', 'iCadEEmp_Numero_Prox_Nfe', 'iCadEEmp_Numero_Prox_Nfce'
		  );
	   //
	   
       //
       // Combo de Tributação
       $sHTML_ComboRGF = '';
       $sSQLQuery =
          "SELECT RGF_CODIGOI, RGF_DESCRIC ".
          "FROM cad_regime_fiscal ".
          ";";
       $RowsT = MYSQL_QUERY( $sSQLQuery ) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
       While ($RowT = MYSQL_FETCH_OBJECT($RowsT)) {
           $sHTML_ComboRGF .=
              '<option value="'.$RowT->RGF_CODIGOI.'" '.($RowT->RGF_CODIGOI==(@$Row_CadEmp['EMP_REGIME']) ? 'selected' : '').'>'.
               '&nbsp;'.$RowT->RGF_CODIGOI.'|&nbsp;'.
               $RowT->RGF_DESCRIC."&nbsp;".
              '</option>';
	   }
	   //If ( STRLEN(@$Row_CadEmp['EMP_RAZAOS'])>0 ) {
       //   $sEmp_Codigo = Str_Zero($sEmp_Codigo, 6);
	   //}
	   //
       // Tela HTML
	   //
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
          '<form name="fmECadEmp" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'7">'.
           '<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="Emp_Codigo" type="hidden" value="'.$sEmp_Codigo.'">'.
		  // Codigo interno, Codigo simsoft, Apelido
       	  '<table width="100%"></tr>'.
       	   '<td width="80px" height="24px" align="right">'.
		    'Cód. Interno:'.
		   '</td>'.
       	   '<td align="left" width="30px">'.
			'<input id="iCadEEmp_CodigoI" type="text" value="'.$sEmp_Codigo.'" readonly="readonly" style="width:98%; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;">'.
       	   '</td>'.
       	   '<td width="60px" align="right">'.
		    'Código:'.
		   '</td>'.
       	   '<td align="left" width="60px">'.
			'<input id="iCadEEmp_Codigo" name="Emp_CodigoS" type="text" value="'.@$Row_CadEmp['EMP_CODIGO'].'" maxlength="6" style="width:98%; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;">'.
       	   '</td>'.
       	   '<td width="60px" align="right">'.
		    'Apelido:'.
       	   '</td>'.
       	   '<td align="left">'.
			'<input id="iCadEEmp_Apelido" name="Emp_Apelido" type="text" value="'.@$Row_CadEmp['EMP_APELIDO'].'" maxlength="60" style="width:98.5%; height:22px; background:#FFFBEC; border-width:1px; border-style:solid; border-color:#0099FF;">'.
       	   '</td>'.
       	   '<td width="4px">&nbsp;</td>'.
       	  '</tr></table>'.
		  // Nome fantasia
       	  '<table width="100%"></tr>'.
       	   '<td width="80px" height="24px" align="right">'.
		    'Nome fantasia:'.
		   '</td>'.
       	   '<td align="left">'.
			'<input id="iCadEEmp_Fantas" name="Emp_Fantas" type="text" value="'.@$Row_CadEmp['EMP_FANTAS'].'" style="width:99%; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;">'.
       	   '</td>'.
       	   '<td width="4px">&nbsp;</td>'.
       	  '</tr></table>'.
		  // Razão social
       	  '<table width="100%"></tr>'.
       	   '<td width="80px" height="24px" align="right">'.
		    'Razão social:'.
		   '</td>'.
       	   '<td align="left">'.
			'<input id="iCadEEmp_RazaoS" name="Emp_RazaoS" type="text" value="'.@$Row_CadEmp['EMP_RAZAOS'].'" style="width:99%; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;">'.
       	   '</td>'.
       	   '<td width="4px">&nbsp;</td>'.
       	  '</tr></table>'.
		  // endereço, numero,bairro,cep
		  '<table width="100%">'.
		     '</tr>'.
       	        '<td width="80px" height="24px" align="right">'.
		            'Logradouro:'.
		        '</td>'.
       	        '<td align="left">'.
			       '<input id="iCadEEmp_EndLog" name="Emp_EndLog" type="text" value="'.@$Row_CadEmp['EMP_ENDLOG'].'"  maxlength="50" style="width:94%; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;">'.
       	        '</td>'.
				'<td align="right" width="36px">'.
		           'Número:'.
       	        '</td>'.
       	        '<td align="left" width="50px">'.
			       '<input id="iCadEEmp_EndNum" name="Emp_EndNum" type="text" value="'.@$Row_CadEmp['EMP_ENDNUM'].'" maxlength="10" style="width:44px; height:22px; background:#FFFBEC; border-width: 1px; border-style:solid; border-color:#0099FF;">'.
       	        '</td>'.
				'<td width="4px">&nbsp;</td>'.
       	     '</tr>'.
		  '</table>'.
		  '<table width="100%" border="0">'.
		     '<tr>'.
       	        '<td width="80px" height="24px" align="right">'.
		           'Bairro:'.
       	        '</td>'.
       	        '<td align="left" >'.
			       '<input id="iCadEEmp_EndBai" name="Emp_EndBai" type="text" value="'.@$Row_CadEmp['EMP_ENDBAI'].'" maxlength="30" style="width:80%; height:22px; background:#FFFBEC; border-width: 1px; border-style:solid; border-color:#0099FF;">'.
       	        '</td>'.
       	        '<td width="36px" height="24px" align="right">'.
		           'CEP:'.
       	        '</td>'.
       	        '<td align="left" width="70px" valign="middle">'.
			       '<input id="iCadEEmp_EndCep" name="Emp_EndCep" type="text" value="'.@$Row_CadEmp['EMP_C_E_P_'].'" maxlength="8" style="width:63px; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
       	        '</td>'.
		        '<td width="4px">&nbsp;</td>'.
       	     '</tr>'.
		  '</table>'.
		  
		  
		  
		  // CNPJ, Regime fiscal, IES
       	  '<table width="100%" border="0"><tr>'.
       	   '<td width="80px" height="24px" align="right">'.
		    'CNPJ:'.
		   '</td>'.
       	   '<td width="120px" align="left">'.
			'<input id="iCadEEmp_N_CNPJ" name="Emp_N_CNPJ" type="text" value="'.@$Row_CadEmp['EMP_N_CNPJ'].'" style="width:98%; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;">'.
       	   '</td>'.
       	   '<td width="70px" height="24px" align="right">'.
		    'Regime fiscal:'.
		   '</td>'.
       	   '<td align="left">'.
			 '<select id="iCadEEmp_Regime" name="Emp_Regime" style="width:96%; font-family:Courier;">'.
			  $sHTML_ComboRGF.
			 '</select>'.
       	   '</td>'.
       	   '<td height="24px" align="right">'.
		    'IES:'.
		   '</td>'.
       	   '<td align="right">'.
			'<input id="iCadEEmp_NumIES" name="Emp_NumIES" type="text" value="'.@$Row_CadEmp['EMP_NUMIES'].'" style="width:94%; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;">'.
       	   '</td>'.
           '<td width="4px">&nbsp;&nbsp;&nbsp;</td>'.
       	  '</tr></table>'.
		  '<table width="100%" border="0"><tr>'.
		  '<tr>'.
		   '<td width="78px" height="24px" align="right">'.
		      'Email:'.
		   '</td>'.
       	   '<td width="530px" align="left">'.
			  '<input id="iCadEEmp_Email_" name="Emp_Email_" type="text" value="'.@$Row_CadEmp['EMP_EMAIL_'].'" maxlength="98" style="width:94%;height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;">'.
       	   '</td>'.
		   '<td height="24px" align="right">'.
		    'Aliquota Simples Nacional:'.
		   '</td>'.
       	   '<td align="right">'.
			'<input id="iCadEEmp_AlqSNa" name="Emp_AlqSNa" type="text" value="'.@$Row_CadEmp['EMP_ALQSNA'].'" maxlength="5" style="width:86px; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;">'.
       	   '</td>'.
		   '<td width="4px">&nbsp;&nbsp;&nbsp;</td>'.
       	  '</tr></table>'.
		  // Cidade IBGE, Telefones
       	  '<table width="100%"></tr>'.
       	   '<td width="80px" height="24px" align="right">'.
		    'Cidade IBGE:'.
		   '</td>'.
       	   '<td width="60px" align="left">'.
			'<input id="iCadEEmp_CodCid" name="Emp_CodCid" type="text" value="'.@$Row_CadEmp['EMP_CODCID'].'" onchange="parent.Car_'.$sNomeAcesso.'6.Puxar_Cidade();" style="width:98%; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;">'.
       	   '</td>'.
       	   '<td align="left" id="sCadEEmp_Cidade" style="font-size:12px;">'.
		    '(Aguarde...)'.
       	   '</td>'.
       	   '<td width="80px" height="24px" align="right">'.
		    'Telefones:'.
		   '</td>'.
       	   '<td width="90px" align="left">'.
			'<input id="iCadEEmp_Telef1" name="Emp_Telef1" type="text" value="'.@$Row_CadEmp['EMP_TELEF1'].'" style="width:98%; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;">'.
       	   '</td>'.
       	   '<td width="90px" align="right">'.
			'<input id="iCadEEmp_Telef2" name="Emp_Telef2" type="text" value="'.@$Row_CadEmp['EMP_TELEF2'].'" style="width:98%; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;">'.
       	   '</td>'.
       	   '<td width="6px">&nbsp;&nbsp;&nbsp;</td>'.
       	  '</tr></table>'.
		  // Série da NFE, Próximo numero NFE, Próximo numero NFC-e
       	  '<table width="100%"></tr>'.
       	   '<td align="right" width="100px;" style="font-size:12px;">'.
		    'Série da NFE:'.
       	   '</td>'.
       	   '<td align="left" width="40px" style="font-size:12px;">'.
			'<input id="iCadEEmp_Nfe_Serie" name="Emp_Nfe_Serie" maxlength="1" type="text" value="'.@$Row_CadEmp['EMP_NFE_SERIE'].'" style="width:98%; height:22px; text-align:center; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;">'.
           '</td>'.
       	   '<td align="right" width="150px;" style="font-size:12px;">'.
		    'Próximo numero NFE:'.
       	   '</td>'.
       	   '<td align="left" width="80px" style="font-size:12px;">'.
			'<input id="iCadEEmp_Numero_Prox_Nfe" name="Emp_Numero_Prox_Nfe" maxlength="9" type="text" value="'.@$Row_CadEmp['EMP_NUMERO_PROX_NFE'].'" style="width:98%; height:22px; text-align:right; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;">'.
           '</td>'.
       	   '<td align="right" width="150px;" style="font-size:12px;">'.
		    'Próximo numero NFC-e:'.
       	   '</td>'.
       	   '<td align="left" width="80px" style="font-size:12px;">'.
			'<input id="iCadEEmp_Numero_Prox_Nfce" name="Emp_Numero_Prox_Nfce" maxlength="9" type="text" value="'.@$Row_CadEmp['EMP_NUMERO_PROX_NFCE'].'" style="width:98%; height:22px; text-align:right; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;">'.
           '</td>'.
       	   '<td align="left" style="font-size:12px;">'.
       	   '<td width="6px">&nbsp;&nbsp;&nbsp;</td>'.
           '</td>'.
       	  '</tr></table>'.
		  //
          '</form>'.
       	  '<table width="100%"></tr>'.
       	   '<td width="4px" height="40px" align="left">&nbsp;</td>'.
       	   '</td>'.
       	   '<td>'.
       	    HTML_Botao( 3, 'CadEEmp_BT_Svl', "document.forms.fmECadEmp.acao.value='SALVAR'; ".
    	                                     "document.forms.fmECadEmp.submit();"
			             , 'Salvar (F10)','images/btimg_salvar.png').'&nbsp;&nbsp;'.
       	   '</td>'.
       	   '<td width="300px" align="left">'.
            ( STRLEN(SQLVarConfig('LICENCA_SOFTWARES_SIMSOFT'))>5 ?
       	    HTML_Botao( 3, 'CadEEmp_BT_Lic', "document.forms.fmECadEmp.acao.value='GET_LICENCA'; ".
    	                                     "document.forms.fmECadEmp.submit();"
			             , 'Capturar da licença','images/btimg_atualizar.png').'&nbsp;&nbsp;'.
            '' : '' ).
       	   '</td>'.
       	   '<td width="114px" align="left">'.
       	    HTML_Botao( 3, 'CadEEmp_BT_Fec', $oJanelaPrinc->sJavOnClickF
                         , 'Sair (ESC)' ,'images/btimg_fechar.png').
       	   '</td>'.
       	  '</tr></table>'.
    	  $oJanelaPrinc->MontaJanHTML(False);
       //
       $sRet_JavsPos .=
    	  'parent.document.getElementById("iCadEEmp_Codigo").focus();'.
		  ($bDir_Alterar ? '' :
		    "parent.document.getElementById('CadEEmp_BT_Svl').style.display='none';"
		  ).
		  //
		  "function Teclas_F( Objeto, Evento ) {".
             "vNumTecla = parent.Tecla_Apertada(Evento);".
             "if ( vNumTecla==121) { ".        //  ** [F10] **         // (Gravar)
			     "if ( parent.document.getElementById('CadEEmp_BT_Svl').style.display != 'none' ) {".
                     "setTimeout( parent.document.getElementById('CadEEmp_BT_Svl').onclick , 100);".
				 "}".
		     "} else if ( vNumTecla==116) { ".  // ** [F5] **         Não atualizar
                 //
		     "} else if ( vNumTecla==27) { ".   // ** [ESC] **         // (SAIR)
                 "setTimeout( parent.document.getElementById('CadEEmp_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("iCadEEmp_Codigo").focus();'.
				 "}".
			     //
			 "} else {".
			     "return true;".
			 "}".
			 "return false;".
		  '}'.
		  //
		  "function Puxar_Cidade() {".
		      "parent.document.forms.fmECadEmp.acao.value='PUXAR_CIDADE'; ".
		      "parent.document.forms.fmECadEmp.submit();".
		  "}".
		  "Puxar_Cidade();".
		  //
    	 "";
       //
	}
//
//  ** CONSULTA AO CADASTRO DE CIDADES **
} ElseIf ( $sSubModulo2=="CID" ) {
   $sNomeIdJ_Ant = $sNomeIdJEdt_Cad;
   $sNomeIdCampo = "iCadEEmp_CodCid";
   $sJavaExePos  = "parent.Car_".$sNomeAcesso."6.Puxar_Cidade();";
   REQUIRE "./modulos/consulta_cidade.inc";
}
?>