<?php
REQUIRE_ONCE("./global/funcoes_cad_telefones.inc");
$sNomeIdJConsulta = 'iJan_LstCadCli';
$sNomeIdJEdt_Cad = 'iJan_EdtCadCli';
$nTmpFrmEnv = 300;
$bDir_Consult = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'C');
$bDir_Alterar = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'A');
$bDir_Incluir = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'I');

$aQuadrosAds    = ARRAY('CADBAI' => 10);
//
//  ** CADASTRO (NOVO/EDITA) **
$sCli_Codigo = @$_REQUEST['Cli_Codigo'];
If ( ISSET($_REQUEST['Cad_Codigo']) ) {
   $sCli_Codigo = @$_REQUEST['Cad_Codigo']+0;
}
If ( $sSubModulo=="EDT" ) {
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJEdt_Cad; 
    $oJanelaPrinc->nTop    = 40;
    $oJanelaPrinc->nLeft   = 27;
    $oJanelaPrinc->nWidth  = 960;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
	$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Cadastro do cliente';
	//
	$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.fmECadCli.acao.value='FECHAR'; ".
		  "document.forms.fmECadCli.submit();".
		  "";
	//
	$bMontarJanela = true;
	$bCli_Novo   = $sCli_Codigo=="NOVO";
	//
	// SALVAR
    If ( $sAcao=="SALVAR" ) {
	   $bGravarReg = False;
	   If ($bDir_Alterar) {
          $bGravarReg = True;
	   } Else {
          $sRet_Javs .=
            Info_Evento('ALERTA: Você não tem previlégio para alterar este cliente.').
            "";
	   }
	   If ($bGravarReg) {
	      If ( STRLEN(@$_REQUEST['Cli_NomeCP'])<2 ) {
	         $sRet_Javs .= Info_Evento('Alguns campos estão incompletos.');
	         $bGravarReg = False;
	      }
	   }
	   If ($bGravarReg) {
	      If ( $bCli_Novo ) {
	         $nCli_Codigo = SQLVarConfig(STRTOUPPER($sModulo)."_SEQCOD")+0;
	         $Row_CadCli = MYSQL_QUERY("SELECT * FROM cad_cliente WHERE CLI_CODIGOI=".($nCli_Codigo)." ;") or die(MYSQL_ERROR());
             If ($Row_CadCli = MYSQL_FETCH_ARRAY($Row_CadCli)) {
	            $sRet_Javs .= Info_Evento('Não posso gravar, codigo sequencial já existe ('.Str_Zero($nCli_Codigo,6).') .',1);
				$bGravarReg = False;
			 }
		  }
	   }
	   //Valida cpf
	   If ($bGravarReg) {
	      If (STRLEN(@$_REQUEST['Cli_CpfCli'])> 0 && (! validaCPF(@$_REQUEST['Cli_CpfCli']))) {
         	 $bGravarReg = False;
   	         $sRet_Javs .= Info_Evento('CPF Inválido',1);
          }
	   }
	   //Valida cnpj
	   If ($bGravarReg) {
	      If (STRLEN(@$_REQUEST['Cli_CnpjCl'])> 0 && (! validar_cnpj(@$_REQUEST['Cli_CnpjCl']))) {
         	 $bGravarReg = False;
   	         $sRet_Javs .= Info_Evento('Cnpj Inválido',1);
          }
	   }
	   
	   
	   //If ($bGravarReg) {
       //   $Row_CadCli = MYSQL_QUERY("SELECT * FROM cad_cliente WHERE CLI_TEL001='".$_REQUEST['Fun_Apelid']."'".($sCli_Codigo<>"NOVO" ? " AND CLI_CODIGOI<>'".$sCli_Codigo."'" : "")." ;") or die(MYSQL_ERROR());
       //   If ($Row_CadCli = MYSQL_FETCH_ARRAY($Row_CadCli)) {
       //      $sRet_Javs .= Info_Evento('Não posso gravar, este apelido já existe.',1);
       //      $bGravarReg = False;
       //   }
	   //}
	   If ($bGravarReg) {
	      If (@$_REQUEST['Cli_TipCon']== 1) {
			 If (STRLEN(@$_REQUEST['Cli_InsEst'])<11) {
			    $bGravarReg = False;
   	            $sRet_Javs .= Info_Evento('Tipo Contribuinte ICMS <br> Obrigatório Inscrição Estadual !',1); 
		     }
		  }
	   
	   }
	   
	   If ($bGravarReg) {
	      If ( $bCli_Novo ) {
	         $nCli_Codigo = SQLVarConfig(STRTOUPPER($sModulo)."_SEQCOD")+0;
             SQLVarConfigG(STRTOUPPER($sModulo)."_SEQCOD", $nCli_Codigo+1 );
             MYSQL_QUERY(   // Cria um novo registro
               "INSERT INTO cad_cliente(CLI_CODIGOI,CLI_TRAREG,CLI_DTACAD) VALUES (".$nCli_Codigo.",0,'".DATE("Y-m-d H:i:s")."' ); ") or die(MYSQL_ERROR());
	      } Else {
	         $nCli_Codigo = $sCli_Codigo+0;
	      }
		 
	      $Row_CadCli = MYSQL_QUERY("SELECT * FROM cad_cliente WHERE CLI_CODIGOI=".($nCli_Codigo)." ;") or die(MYSQL_ERROR());
          If ($Row_CadCli = MYSQL_FETCH_ARRAY($Row_CadCli)) {		  
		     $nCli_PrzVal = STR_REPLACE(',','.',Somente_Numeros(@$_POST['Cli_PrzVal'],',.'))+0;
			 $nCli_TaxEnt = STR_REPLACE(',','.',Somente_Numeros(@$_POST['Cli_TaxEnt'],',.'))+0;
			 $nCli_DesFid = STR_REPLACE(',','.',Somente_Numeros(@$_POST['Cli_DesFid'],',.'))+0;
	         $nCli_CodBai = Somente_Numeros(@$_POST['Cli_CodBai'])+0;
			 
			
			 // Atualizar registro
             MYSQL_QUERY(
               "UPDATE cad_cliente SET ".
                 'CLI_NOMECP=' .SQL_Bin(UTF8_DECODE(@$_POST['Cli_NomeCP'])).','.
                 'CLI_CODBAI=' .$nCli_CodBai.','.
				 "CLI_ENDBAI=" .SQL_Bin(UTF8_DECODE(@$_POST['Cli_Bairro'])).",".
                 'CLI_ENDLOG=' .SQL_Bin(UTF8_DECODE(@$_POST['Cli_EndLog'])).','.
                 'CLI_ENDNUM=' .SQL_Bin(UTF8_DECODE(@$_POST['Cli_EndNum'])).','.
                 'CLI_ENDCPL=' .SQL_Bin(UTF8_DECODE(@$_POST['Cli_EndCpl'])).','.
                 'CLI_EMAIL_=' .SQL_Bin(UTF8_DECODE(@$_POST['Cli_Email_'])).','.
                 'CLI_CODCID="'.Somente_Numeros(@$_POST['Cli_CodCid']).'",'.
				 'CLI_NUMCPF="'.Somente_Numeros(@$_POST['Cli_CpfCli']).'",'.
				 'CLI_ENDCEP="'.Somente_Numeros(@$_POST['Cli_EndCEP']).'",'.
				 'CLI_N_CNPJ="'.Somente_Numeros(@$_POST['Cli_CnpjCl']).'",'.
				 'CLI_INSEST="'.Somente_Numeros(@$_POST['Cli_InsEst']).'",'.
				 'CLI_TIPCON="'.@$_POST['Cli_TipCon'].'",'.
				 'CLI_CODCNV="'.Somente_Numeros(@$_POST['Cli_CodCnv']).'",'.
				 'CLI_PRZVAL="'.$nCli_PrzVal.'",'.
				 'CLI_TAXENT="'.$nCli_TaxEnt.'",'.
				 'CLI_FIDELI="'.$nCli_DesFid.'",'.
				 'CLI_DTANSC="'. ConvertDataBRUS(@$_POST['Cli_DtaNsc']).'",'.
                 'CLI_OBS001=' .SQL_Bin(UTF8_DECODE(@$_POST['Cli_Obs001'])).','.
                 'CLI_OBS002=' .SQL_Bin(UTF8_DECODE(@$_POST['Cli_Obs002'])).
		       " WHERE CLI_CODIGOI=".($nCli_Codigo)."; ") or die(MYSQL_ERROR());
	         
			 
             // Gravar Telefones
			 If ( ISSET($aSessao['CADTEL_LISTA']) ) {
			    //GravarTelefones(1, $sCli_Codigo+0, $aSessao['CADTEL_LISTA']);
				GravarTelefones(1, $nCli_Codigo, $aSessao['CADTEL_LISTA']);
		     }
			 //
	      } Else {
             // Erro: registro não existe
			 $sRet_Javs .= Info_Evento('Registro não existe.',1);
	      }
          $sRet_Javs .= 
		     ( EMPTY($aSessao['CADBAI_IDOBJ']) ? "" :
		        "parent.document.getElementById('".$aSessao['CADBAI_IDOBJ']."').value='".$nCli_CodBai."';"
			 ).
		     "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" ) {
	   $sCli_CodCid = @$_POST['Cli_CodCid'];
	   // Consulta
	   If ( $sCli_CodCid=='/' ) {
          $sRet_Javs .= 
	           "parent.document.getElementById('sCadECli_Cidade').innerHTML = '( Consulta )';".
	           "parent.document.getElementById('iCadECli_CodCid').value = '';".
	           $sJavaTravarJ.
		       "setTimeout( function () { ".
		          "parent.document.forms.fmECadCli.acao.value=''; ".
		          "parent.document.forms.fmECadCli.submod.value='CID'; ".
		          "parent.document.forms.fmECadCli.submit();".
		          "parent.document.forms.fmECadCli.submod.value='".$sSubModulo."'; ".
		       "} , 100);".
		       "";
	   // Exibir nome da cidade
	   } Else {
	      $sNomeCidade = '';
	      $Row = MYSQL_QUERY("SELECT * FROM cad_cidade WHERE CID_CODIGO='".$sCli_CodCid."' ;") or die(MYSQL_ERROR());
          If ($Row = MYSQL_FETCH_OBJECT($Row)) {
		     $sNomeCidade = $Row->CID_NOMECD.' - '.$Row->CID_ESTADO;
		  }
          $sRet_Javs .= 
	           "parent.document.getElementById('sCadECli_Cidade').innerHTML = '".$sNomeCidade."';".
		       "";
	   }
	   //
	   $bMontarJanela = False;	
    
	// PUXAR Convenio
    } ElseIf ( $sAcao=="PUXAR_CONVENIO" ) {
	   $sCli_CodCnv = @$_POST['Cli_CodCnv'];
	   // Consulta
	   If ( $sCli_CodCnv=='/' ) {
          $sRet_Javs .= 
	           "parent.document.getElementById('sCadECli_CodCnv').innerHTML = '( Consulta )';".
	           "parent.document.getElementById('iCadECli_CodCnv').value = '';".
	           $sJavaTravarJ.
		       "setTimeout( function () { ".
		          "parent.document.forms.fmECadCli.acao.value=''; ".
		          "parent.document.forms.fmECadCli.submod.value='CNV'; ".
		          "parent.document.forms.fmECadCli.submit();".
		          "parent.document.forms.fmECadCli.submod.value='".$sSubModulo."'; ".
		       "} , 100);".
		       "";
	   // Exibir nome do convenio
	   } Else {
	      $sNomeConvenio = '';
	      $Row = MYSQL_QUERY("SELECT CNV_CODIGOI, CNV_TITULO FROM cad_convenio WHERE CNV_CODIGOI='".$sCli_CodCnv."' ;") or die(MYSQL_ERROR());
          If ($Row = MYSQL_FETCH_OBJECT($Row)) {
		     $sNomeConvenio = $Row->CNV_TITULO;
		  } Else {
			  $sNomeConvenio = 'Não Cadastrado';
			  
		  }
		  
		  
          $sRet_Javs .= 
	           "parent.document.getElementById('sCadECli_CodCnv').innerHTML = '".$sNomeConvenio."';".
		       "";
	   }
	   //
	   $bMontarJanela = False;	
    
	
     //
// PUXAR Convenio
    } ElseIf ( $sAcao=="PUXAR_BAIRRO" ) {
	   $sCli_CodBai = @$_POST['Cli_CodBai'];
	   // Consulta
	   If ( $sCli_CodBai=='/' ) {
          $sRet_Javs .= 
	           //"parent.document.getElementById('sCadECli_Bairro').innerHTML = '( Consulta )';".
	           "parent.document.getElementById('iCadECli_CodBai').value = '';".
	           $sJavaTravarJ.
		       "setTimeout( function () { ".
			      //"sTargetAnt = parent.document.forms.fmECadCli.target;".
                  //"parent.document.forms.fmECadCli.target='car_".$sNomeAcesso."10';".
		          "parent.document.forms.fmECadCli.acao.value=''; ".
		          "parent.document.forms.fmECadCli.submod.value='BAI'; ".
		          "parent.document.forms.fmECadCli.submit();".
		          "parent.document.forms.fmECadCli.submod.value='".$sSubModulo."'; ".
			      //"parent.document.forms.fmECadCli.target = sTargetAnt;".
		       "} , 100);".
		       "";
	   // Exibir nome do convenio
	   } Else {
	      $sNomeBairro = '';
	      $Row = MYSQL_QUERY("SELECT BAI_CODIGOI, BAI_DESCRI FROM cad_bairro WHERE BAI_CODIGOI='".$sCli_CodBai."' ;") or die(MYSQL_ERROR());
          If ($Row = MYSQL_FETCH_OBJECT($Row)) {
		     $sNomeBairro = $Row->BAI_DESCRI;
		  } Else {
			  $sNomeBairro = 'Não Cadastrado';
			  
		  }
		  
		  
          $sRet_Javs .= 
	           //"parent.document.getElementById('sCadECli_Bairro').innerHTML = '".$sNomeBairro."';".
			   "parent.document.getElementById('iCadECli_Bairro').value= '".$sNomeBairro."';".
			   //"parent.document.getElementById('iCadECli_CodBai').value= '".$sCli_CodBai."';".
		       "";
	   }
	   //
	   $bMontarJanela = False;	
	 
	// validar cnpj e cpf
    } ElseIf ( $sAcao=="V_CPF_CNPJ" ) {
	   $nP_NumCPF = @$_REQUEST['CPF_'];
	   $nP_NumCNPJ = @$_REQUEST['CNPJ_'];
	   $cpf = @ereg_replace('[^0-9]', '', $nP_NumCPF);
	   $cnpj = @ereg_replace('[^0-9]', '', $nP_NumCNPJ);
	   
	   If (STRLEN($cpf)> 0 && (! validaCPF($nP_NumCPF))) {
             $sRet_Javs .= Info_Evento('CPF Inválido',1);
       }
	   If (STRLEN($cnpj)> 0 && (! validar_cnpj($nP_NumCNPJ))) {
             $sRet_Javs .= Info_Evento('CNPJ Inválido',1);
       }
	
	
	
	
	$bMontarJanela = false;
	//
    // ATUALIZA LISTA DE TELEFONES
    } ElseIf ( $sAcao=="ALT_LSTTEL" ) {
	   $sRet_TelaJ_HTML = '';
	   If ( ISSET($aSessao['CADTEL_LISTA']) ) {
	      $a_ListaTel = $aSessao['CADTEL_LISTA'];
		  $nContar_ = 0;
          ForEach ( $a_ListaTel As $aTel ) {
		     $nContar_++;
			 If ( $nContar_==6 ) { BREAK; }
	         If ( STRLEN($sRet_TelaJ_HTML)>0 ) {
		        $sRet_TelaJ_HTML .= ', ';
		     }
	         $sRet_TelaJ_HTML .= FormataTelefone($aTel['TEL_NUMERO']);
		  }
	   } Else {
	      If(($sCli_Codigo+0)>0) {
		 	 $sSQLQuery =
	            "SELECT * FROM cad_telefones, cad_tipo_telefone ".
	              "WHERE ".
		 	         "TEL_TIPCAD=1 AND TEL_CODCAD='".($sCli_Codigo+0)."' AND ".
		 	         "(TEL_TRAREG=0 OR TEL_TRAREG=2) AND TEL_CODCTT=CTT_CODIGO ".
		 	    "ORDER BY TEL_NUMERO ASC LIMIT 6;";
	         $RowsT = MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
             While ($RowT = MYSQL_FETCH_OBJECT($RowsT)) {
	            If ( STRLEN($sRet_TelaJ_HTML)>0 ) {
		 	       $sRet_TelaJ_HTML .= ', ';
		 	    }
	            $sRet_TelaJ_HTML .= FormataTelefone($RowT->TEL_NUMERO);
	         }
		  }
	   }
       // Java
       $sRet_Javs .=
         "parent.document.getElementById('sp_CadECli_Telefones').innerHTML = ".JAVA_CharCode_Mini($sRet_TelaJ_HTML).";";
         '';
       $sRet_TelaJ_HTML = '';
	   $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("iCadCli_PChave").focus();'.
		  (@$_REQUEST['acaoAnt']=='SALVAR' ? 
		     ( EMPTY($aSessao['CADBAI_IDOBJ']) ?
		        "parent.Car_".$sNomeAcesso."1.P_Atu();"
		     :
		        "setTimeout( parent.document.getElementById('CadECli_BT_Fec').onclick , 1);"
			  )
		  : 
		     ''
		  ).
		  "";
		  
	   UNSET($aSessao['CADBAI_IDOBJ']);
	   $bMontarJanela = false;
	//
	// NOVO REGISTRO
	} ElseIf ( $sAcao=="NV" ) {
	   $sCli_Codigo = 'NOVO';
	   $bCli_Novo   = True;
	//
	// PUXAR REGISTRO
	} Else {
	   If (STRLEN($sCli_Codigo)==0) {
	      $bMontarJanela = False;
	      $sAcao = 'FECHAR';
          $sRet_Javs .=
		     "parent.document.getElementById('".$sNomeIdJConsulta."_Travar').style.visibility='hidden';".
	         Info_Evento('Selecione um cliente na lista.');
	   } Else {
		  $sSqlCli= 
		     "SELECT * ".
		     "FROM cad_cliente ".
			 "LEFT JOIN cad_convenio on CLI_CODCNV = CNV_CODIGOI ".
			 "WHERE CLI_CODIGOI=".($sCli_Codigo+0)." ;"; 
		   
          $Row_CadCli = MYSQL_QUERY($sSqlCli) or die(MYSQL_ERROR());
          If (! $Row_CadCli = MYSQL_FETCH_ARRAY($Row_CadCli)) {
	         $Row_CadCli = ARRAY();
	      }
	   }
       //
	}
	If ($bMontarJanela) {
		$aSessao['CADBAI_IDOBJ'] = @$_REQUEST['IdObj_Rec_Bai_Codigo'];
		
	   //
	   $oJanelaPrinc->aIdsObjList =
	      ARRAY(
		    'iCadECli_NomeCP', 'iCadECli_EndLog', 'iCadECli_EndNum', 'iCadECli_EndCpl',
			'iCadECli_CodBai','iCadECli_Bairro', 'iCadECli_Email_','iCadECli_CodCid', 'iCadECli_EndCEP', 
			'iCadECli_CnpjCl', 'iCadECli_InsEst','iCadECli_CpfCli',
			'iCadECli_DtaNsc',
			'iCadECli_TipCon',
			'iCadECli_CodCnv', 'iCadECli_PrzVal',
			'iCadECli_TaxVal','iCadECli_DesFid','iCadECli_Obs001', 'iCadECli_Obs002'
		  );
	   //
	   If ( STRLEN(@$Row_CadCli['CLI_NOMECP'])>0 ) {
	      $sCli_Codigo = Str_Zero($sCli_Codigo, 6);
	   }
	   //
       // Tela HTML
	   //
	   $sCor_CampoT_1Fundo = "#FFFFFF";  // Campos input
	   $sCor_CampoT_1Letra = "#000000";
	   
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
		  '<style type="text/css" rel="stylesheet">'.
		     '.CampoTipo1 {'.
		        'background:'.$sCor_CampoT_1Fundo.';'.
			    'border:'.$sCor_CampoT_1Fundo.' 1px solid;'.
			    'padding:2px;'.
			    'border-radius:6px; -moz-border-radius:6px; -webkit-border-radius:6px;'.
			    'font-size:13px;'.
			    'color:'.$sCor_CampoT_1Letra.';'.
		  '}'.
		  '</style>'.
          '<form name="fmECadCli2" 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="Tel_Numero" type="hidden" value="">'.
		   '<input name="Tel_TipCtt" type="hidden" value="">'.
		   '<input name="Tel_Observ" type="hidden" value="">'.
		   '<input name="Cad_Codigo" type="hidden" value="'.$sCli_Codigo.'">'.
		  '</form>'.
          '<form name="fmECadCli" 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="CPF_" type="hidden" value="">'.
		   '<input name="CNPJ_" type="hidden" value="">'.
       	  '<table width="100%"></tr>'.
       	   '<td width="65px" height="24px" align="right">'.
		    'Código:'.
		   '</td>'.
       	   '<td align="left" width="90px">'.
			'<input id="iCadECli_Codigo" name="Cli_Codigo" type="text" value="'.$sCli_Codigo.'" readonly="readonly" style="width:60px; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color:#0099FF;">'.
       	   '</td>'.
       	   '<td width="95px" height="24px" align="right">'.
		      'Nome Completo:'.
		   '<td>'.
		   '<td align="left">'.
		   '<input id="iCadECli_NomeCP" name="Cli_NomeCP" type="text" value="'.@$Row_CadCli['CLI_NOMECP'].'" maxlength="60" style="width:99%; 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="65px" height="24px" align="right">'.
		    'Logradouro:'.
       	   '</td>'.
       	   '<td align="left">'.
			'<input id="iCadECli_EndLog" name="Cli_EndLog" type="text" value="'.@$Row_CadCli['CLI_ENDLOG'].'"  maxlength="60" style="width:750px;height:22px; background:#FFFBEC; border-width: 1px; border-style:solid; border-color:#0099FF;">'.
       	   '</td>'.
       	   '<td align="right" width="36px">'.
		    'Número:'.
       	   '</td>'.
       	   '<td align="right" width="50px">'.
			'<input id="iCadECli_EndNum" name="Cli_EndNum" type="text" value="'.@$Row_CadCli['CLI_ENDNUM'].'" maxlength="10" style="width:46px; height:22px; background:#FFFBEC; border-width: 1px; border-style:solid; border-color:#0099FF;">'.
       	   '</td>'.
       	   //'<td align="right" width="30px">'.
		   // 'Comp:'.
       	   //'</td>'.
       	   //'<td align="left">'.
			//'<input id="iCadECli_EndCpl" name="Cli_EndCpl" type="text" value="'.@$Row_CadCli['CLI_ENDCPL'].'" maxlength="15" style="width:110px; 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 align="right" width="65px">'.
		           'Comp:'.
       	        '</td>'.
       	        '<td align="left">'.
			       '<input id="iCadECli_EndCpl" name="Cli_EndCpl" type="text" value="'.@$Row_CadCli['CLI_ENDCPL'].'" maxlength="30" style="width:510px; height:22px; background:#FFFBEC; border-width: 1px; border-style:solid; border-color:#0099FF;">'.
       	        '</td>'.
				'<td width="35px" height="24px" align="right">'.
		           //'Bairro:'.
       	        '</td>'.
       	        '<td align="right" width="330px">'.
			       //'<input id="iCadECli_Bairro" name="Cli_Bairro" type="text" value="'.@$Row_CadCli['CLI_ENDBAI'].'" maxlength="30" style="width:98%; height:22px; background:#FFFBEC; border-width: 1px; border-style:solid; border-color:#0099FF;">'.
       	        '</td>'.
       	        //DATA DE NASCIMENTO
		        //'<td width="105px" height="24px" align="center">'.
		        //   'Data de Nascimento:'.
       	        //'</td>'.
       	        //'<td align="right" valign="middle">'.
			    //   '<input id="iCadECli_DtaNsc" name="Cli_DtaNsc" type="text" value="'.ConvertDataUSBR(@$Row_CadCli['CLI_DTANSC']).'" maxlength="10" style="font-weight:bold; width:110px; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
       	        //'</td>'.
				//'<td width="184px">&nbsp;</td>'.
				'<td width="4px">&nbsp;</td>'.
       	     '</tr>'.
		  '</table>'.
		  //
		  '<table width="100%" border="0">'.
		     '<tr>'.
       	        //'<td align="right" width="65px">'.
		        //   'Bairro:'.
       	        //'</td>'.
       	        
				//
				'<td width="65px" height="24px" align="right">'.
		           'Bairro:'.
       	        '</td>'.
       	        '<td align="left" width="65px" valign="middle">'.
		           '<input id="iCadECli_CodBai" name="Cli_CodBai" type="text" value="'.@$Row_CadCli['CLI_CODBAI'].'" maxlength="7" style="width:95%; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;" onchange="parent.Car_'.$sNomeAcesso.'2.Puxar_Bairro();">'.
 			    '</td>'.
       	        '<td id="td_bai_02" valign="top" align="right" width="28px">'.
           	 	   HTML_Botao( 3, 'CadECli_BT_Bai' , "document.getElementById('iCadECli_CodBai').value='/';".
			                                        'return Car_'.$sNomeAcesso.'2.Puxar_Bairro();'
                                , ''   ,'images/btimg_lupa.png',20).
    	  	    '</td>'.
                //'<td align="left" id="sCadECli_Bairro" style="font-size:12px;">'.				
                '<td align="left" style="font-size:12px;">'.
		           //'(Aguarde...)'.
       	        '</td>'.
				
				//
				'<td width="65px" height="24px" align="right">'.
		           'Descrição:'.
       	        '</td>'.
				'<td align="left">'.
			       //'Descrição:&nbsp;&nbsp;'.
				   '<input id="iCadECli_Bairro" name="Cli_Bairro" type="text" value="'.@$Row_CadCli['CLI_ENDBAI'].'" maxlength="30" style="width:46%; height:22px; background:#FFFBEC; border-width: 1px; border-style:solid; border-color:#0099FF;">'.
       	        '</td>'.
				
				
				
			'</tr>'.
		  '</table>'.
		  //
       	  '<table width="100%" border="0">'.
		     '<tr>'.
       	        '<td width="65px" height="24px" align="right">'.
		           'Email:'.
       	        '</td>'.
       	        '<td align="left">'.
			       '<input id="iCadECli_Email_" name="Cli_Email_" type="text" value="'.@$Row_CadCli['CLI_EMAIL_'].'" maxlength="98" style="width:99%; height:22px; background:#FFFBEC; border-width: 1px; border-style:solid; border-color:#0099FF;">'.
       	        '</td>'.
       	        
       	     '</tr>'.
		  '</table>'.
		  //
       	  '<table width="100%">'.
		     '<tr>'.
       	        '<td width="65px" height="24px" align="right">'.
		           'Cidade:'.
       	        '</td>'.
       	        '<td align="left" width="65px" valign="middle">'.
		        (  $bCli_Novo ?
		              '<input id="iCadECli_CodCid" name="Cli_CodCid" type="text" value="'.@$Dados_Empresa['EMP_CODCID'].'" maxlength="7" style="width:95%; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;" onchange="parent.Car_'.$sNomeAcesso.'2.Puxar_Cidade();">'
			    : 
			          '<input id="iCadECli_CodCid" name="Cli_CodCid" type="text" value="'.@$Row_CadCli['CLI_CODCID'].'" maxlength="7" style="width:95%; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;" onchange="parent.Car_'.$sNomeAcesso.'2.Puxar_Cidade();">'
       	        ).
		        '</td>'.
       	        '<td align="left" id="sCadECli_Cidade" style="font-size:12px;">'.
		           //'(Aguarde...)'.
       	        '</td>'.
       	        //cpf
		        /*'<td width="65px" height="24px" align="right">'.
		           'CPF:'.
       	        '</td>'.
       	        '<td align="right" width="90px" valign="middle">'.
			       '<input id="iCadECli_CpfCli" name="Cli_CpfCli" type="text" value="'.@$Row_CadCli['CLI_NUMCPF'].'" maxlength="11" style="width:95%; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
       	        '</td>'.*/
		        //
		        '<td width="65px" height="24px" align="right">'.
		           'CEP:'.
       	        '</td>'.
       	        '<td align="right" width="70px" valign="middle">'.
			       '<input id="iCadECli_EndCEP" name="Cli_EndCEP" type="text" value="'.@$Row_CadCli['CLI_ENDCEP'].'"  maxlength="8" style="width:95%; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
       	        '</td>'.
		        '<td width="4px">&nbsp;</td>'.
       	     '</tr>'.
		  '</table>'.
		  '<table width="100%">'.
		     
			 '<tr>'.
			    //CNPJ
		        '<td width="65px" height="24px" align="right">'.
		           'CNPJ:'.
       	        '</td>'.
       	        '<td align="left" width="166px" valign="middle">'.
		           '<input id="iCadECli_CnpjCl" class="Cli_CnpjCl" name="Cli_CnpjCl" type="text" value="'.@$Row_CadCli['CLI_N_CNPJ'].'" OnBlur=parent.Car_'.$sNomeAcesso.'2.Valida_Cpf_Cnpj() maxlength="14" style="width:95%; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
				'</td>'.
       	        //INSC. ESTADUAL
		        '<td width="95px" height="24px" align="right">'.
		           'Inscrição Estadual:'.
       	        '</td>'.
       	        '<td align="right" width="120px" valign="middle">'.
			       '<input id="iCadECli_InsEst" name="Cli_InsEst" type="text" value="'.@$Row_CadCli['CLI_INSEST'].'" maxlength="15" style="width:95%; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
       	        '</td>'.
				//CPF
		        '<td width="65px" height="24px" align="right">'.
		           'CPF:'.
       	        '</td>'.
       	        '<td align="left" width="130px" valign="middle">'.
			       '<input id="iCadECli_CpfCli" class="Cli_CpfCli" name="Cli_CpfCli" type="text" value="'.@$Row_CadCli['CLI_NUMCPF'].'" OnBlur=parent.Car_'.$sNomeAcesso.'2.Valida_Cpf_Cnpj() maxlength="11" style="width:95%; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
       	        '</td>'.
				//
				//DATA DE NASCIMENTO
		        '<td width="135px" height="24px" align="right">'.
		           'Data de Nascimento:'.
       	        '</td>'.
       	        '<td align="right" width="120px" valign="middle">'.
			       '<input id="iCadECli_DtaNsc" name="Cli_DtaNsc" type="text" value="'.ConvertDataUSBR(@$Row_CadCli['CLI_DTANSC']).'" maxlength="10" style="font-weight:bold; width:130px; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
       	        '</td>'.
				//'<td width="184px">&nbsp;</td>'.
				//'<td width="4px">&nbsp;</td>'.
		        '<td width="4px">&nbsp;</td>'.
		     '</tr>'.
		  '</table>'.
		  // DADOS FISCAIS
		  '<div style="width:100%; height:1px; background-color:#91D8F8;"></div>'.
		  '<table width="100%" >'.
		     '<tr>'.
		        '<td align="center" style="font-size:16px;color:#6959CD;">'.
	               'Dados Fiscais'.
				'</td>'.	     
			 '</tr>'.
			 '<tr>'.
		        '<td width="65px" align="left" style="font-size:13px;">'.
		           '&nbsp;&nbsp;&nbsp;&nbsp;'.
				   'Tipo de Contribuinte:'.
		           '&nbsp;&nbsp;'.
		           '<select id="iCadECli_TipCon" name="Cli_TipCon" class="CampoTipo1" style="width:140px;">'.
		              '<option value="1">Contribuinte ICMS</option>'.
		              '<option value="2"'.(@$Row_CadCli['CLI_TIPCON']==2 ? ' selected' : '').'>Contribuinte Isento</option>'.
					  '<option value="9"'.(@$Row_CadCli['CLI_TIPCON']==9 ? ' selected' : '').'>Não Contribuinte</option>'.
			       '</select>'.
		        '</td>'.
		     '</tr>'.
			 '<tr>'.
			    '<td>'.
			       '&nbsp;&nbsp;'.
			    '</td>'.
			 '</tr>'.
		  '</table>'.
		  // Lista de telefones
		  '<div style="width:100%; height:1px; background-color:#91D8F8;"></div>'.
       	  '<table width="100%"><tr>'.
		   '<td height="40px" width="4px">&nbsp;</td>'.
       	   '<td width="140px" align="left" valign="middle">'.
       	    HTML_Botao( 3, 'CadECli_BT_Tel', "sAntMod = document.forms.fmECadCli2.submod.value;".
			                                 "document.forms.fmECadCli2.submod.value = 'CAD_TELEFONES';".
			                                 "document.forms.fmECadCli2.acao.value=''; ".
    	                                     "document.forms.fmECadCli2.submit();".
			                                 "document.forms.fmECadCli2.submod.value = sAntMod;".
											 ""
			             , 'Telefones (F3)','./images/btimg_telefone.png',120).
       	   '</td>'.
       	   '<td align="left" valign="middle">'.
		    '<span id="sp_CadECli_Telefones"></span>'.
       	   '</td>'.
       	   '<td height="24px" align="center">'.
		   '<td width="4px">&nbsp;</td>'.
       	  '</tr></table>'.
		  '<div style="width:100%; height:1px; background-color:#91D8F8;"></div>'.
       	  '<table width="100%">'.
		     '<tr>'.
		        '<td width="70px" height="24px" align="right">'.
		           'Convênio:'.
       	        '</td>'.
       	        '<td align="left" width="65px" valign="middle">'.
		           '<input id="iCadECli_CodCnv" name="Cli_CodCnv" type="text" value="'.@$Row_CadCli['CNV_CODIGOI'].'" maxlength="7" style="width:95%; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;" onchange="parent.Car_'.$sNomeAcesso.'2.Puxar_Convenio();">'.
       	       '</td>'.
       	        '<td id="td_cnv_02" valign="top" align="right" width="28px">'.
           	 	   HTML_Botao( 3, 'CxaRec_BT_Psq' , "document.getElementById('iCadECli_CodCnv').value='/';".
			                                        'return Car_'.$sNomeAcesso.'2.Puxar_Convenio();'
                                , ''   ,'images/btimg_lupa.png',20).
    	  	    '</td>'.   
                '<td align="left" id="sCadECli_CodCnv" style="font-size:12px;">'.
		           //'(Aguarde...)'.
       	        '</td>'.
		     '</tr>'.
		  '</table>'.
		  
		  //
		  //'<div style="width:100%; height:1px; background-color:#91D8F8;"></div>'.
       	  '<table width="100%" border="0">'.
		  '<tr>'.
		     //'<td width="4px" height="24px">&nbsp;</td>'.
       	     '<td align="right" width="55px">'.
		        'Limite de&nbsp;<br> crédito:'.
		     '</td>'.
       	     '<td align="left" width="200px" valign="middle">'.
			    '<input id="iCadECli_PrzVal" name="Cli_PrzVal" type="text" value="'.FormatoMoeda(@$Row_CadCli['CLI_PRZVAL']).'" maxlength="12" style="width:31%; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;" >'.
       	     '</td>'.
       	     '<td align="right" width="158px">'.
		        'Taxa de Entrega:'.
		     '</td>'.
		     '<td align="left" width="80px" valign="middle">'.
		        '<input id="iCadECli_TaxVal" name="Cli_TaxEnt" type="text" value="'.FormatoMoeda(@$Row_CadCli['CLI_TAXENT']).'" size="10" maxlength="7" style="width:83%;height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
		     '</td>'.
		     '<td width="165px" height="24px" align="right">'.
		           '% Desconto Fidelidade:'.
       	        '</td>'.
       	        '<td width="75px" align="right" >'.
       	           '<input id="iCadECli_DesFid" name="Cli_DesFid" type="text" value="'.FormatoMoeda(@$Row_CadCli['CLI_FIDELI']).'" size="10" maxlength="7" style="width:95%;height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
			 '</td>'.
       	        
			 
			 '<td width="4px">&nbsp;</td>'.
		  '</tr>'.
		   // alteração 4008
		  '</table>'.
		  '<table width="100%">'.
		     '<tr>'.
			    '<td width="4px" height="24px">&nbsp;</td>'.
		        '<td align="right">'.
		          '<span style="font-size:14px;color:#FF0000;">'.
			          'Desconto fidelidade.&nbsp;&nbsp;<br>'.
					  'Usado no Ecook Plus.&nbsp;&nbsp;<br>Desconto para (Delivery) e (Mesa com identificação para o cliente).&nbsp;&nbsp;'.
		           '</span>'.
				'</td>'.
		     '</tr>'.
		  '</table>'.
		  //
       	  '<table width="100%"></tr>'.
		   '<td width="4px" height="24px">&nbsp;</td>'.
       	   '<td align="left">'.
		    'Observações:'.
			'<textarea id="iCadECli_Obs001" name="Cli_Obs001" style="width:100%; height:60px; background:#FFFBEC; border-width:1px; border-style:solid; border-color:#0099FF;">'.
			 @$Row_CadCli['CLI_OBS001'].
			'</textarea>'.
			'<textarea id="iCadECli_Obs002" name="Cli_Obs002" style="width:100%; height:60px; background:#FFFBEC; border-width:1px; border-style:solid; border-color:#0099FF;">'.
			 @$Row_CadCli['CLI_OBS002'].
			'</textarea>'.
       	   '</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, 'CadECli_BT_Svl', "document.forms.fmECadCli.acao.value='SALVAR'; ".
    	                                     "document.forms.fmECadCli.submit();"
			             , 'Salvar (F10)','images/btimg_salvar.png').'&nbsp;&nbsp;'.
       	   '</td>'.
       	   '<td width="114px" align="left">'.
       	    HTML_Botao( 3, 'CadECli_BT_Fec', $oJanelaPrinc->sJavOnClickF
                         , 'Sair (ESC)' ,'images/btimg_fechar.png').
       	   '</td>'.
       	  '</tr></table>'.
    	  $oJanelaPrinc->MontaJanHTML(False);
       //
       $sRet_Javs .=
	      "".
          "";
       //
       $sRet_JavsPos .=
    	  'parent.document.getElementById("iCadECli_NomeCP").focus();'.
		  ($bDir_Alterar ? '' :
		    "parent.document.getElementById('CadECli_BT_Svl').style.display='none';"
		  ).
		  'parent.$(document).ready(function(){'.
	         'parent.$("input.Cli_CpfCli").mask("999.999.999-99");'.
			 'parent.$("input.Cli_CnpjCl").mask("99.999.999/9999-99");'.
          '});'.
		  "function AtualizarTels() {".
	          "parent.document.forms.fmECadCli2.acao.value='ALT_LSTTEL';".
	          "parent.document.forms.fmECadCli2.submit();".
		  "}".
		  //
		  "function Puxar_Cidade() {".
		      "parent.document.forms.fmECadCli.acao.value='PUXAR_CIDADE'; ".
		      "parent.document.forms.fmECadCli.submit();".
		  "}".
		  "function Puxar_Convenio() {".
		      "parent.document.forms.fmECadCli.acao.value='PUXAR_CONVENIO'; ".
		      "parent.document.forms.fmECadCli.submit();".
		  "}".
		  "function Puxar_Bairro() {".
		      "parent.document.forms.fmECadCli.acao.value='PUXAR_BAIRRO'; ".
		      "parent.document.forms.fmECadCli.submit();".
		  "}".
		  "AtualizarTels();".
		  "function Valida_Cpf_Cnpj() {".
		     "var _fm = parent.document.forms.fmECadCli;".
            "_fm.acao.value='V_CPF_CNPJ';".
            "_fm.CPF_.value=parent.document.getElementById('iCadECli_CpfCli').value;".
			"_fm.CNPJ_.value=parent.document.getElementById('iCadECli_CnpjCl').value;".
            "_fm.submit();".
		  '}'.
		  "Valida_Cpf_Cnpj();".
          "Puxar_Cidade();".
		  "Puxar_Bairro();".		  
		  "Puxar_Convenio();".		  
		  //
		  "function Teclas_F( Objeto, Evento ) {".
             "vNumTecla = parent.Tecla_Apertada(Evento);".
             "if ( vNumTecla==121) { ".         // ** [F10] **        Gravar
			     "if ( parent.document.getElementById('CadECli_BT_Svl').style.display != 'none' ) {".
                     "setTimeout( parent.document.getElementById('CadECli_BT_Svl').onclick , 100);".
				 "}".
		     "} else if ( vNumTecla==114) { ".  // ** [F3] **         Telefones
			     "if ( parent.document.getElementById('CadECli_BT_Tel').style.display != 'none' ) {".
                     "setTimeout( parent.document.getElementById('CadECli_BT_Tel').onclick , 100);".
				 "}".
		     "} else if ( vNumTecla==116) { ".  // ** [F5] **         Não atualizar
                 //
		     "} else if ( vNumTecla==27) { ".   // ** [ESC] **        (SAIR)
                 "setTimeout( parent.document.getElementById('CadECli_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("iCadECli_NomeCP").focus();'.
				 "}".
			     //
			 "} else {".
			     "return true;".
			 "}".
			 "return false;".
		  '}'.
		  //
    	 "";
       //
	}
//
//  ** CADASTRO DE TELEFONES **
} ElseIf ( $sSubModulo=="CAD_TELEFONES" ) {
   $sNomeIdJ_Ant = $sNomeIdJEdt_Cad;
   $sNomeIdCampo = "iCadECli_Obs001";
   $n_TipCad = 1;
   $sJavaExePos  = "parent.Car_".$sNomeAcesso."2.AtualizarTels();";
   REQUIRE "./modulos/cad_telefones.inc";
//
//  ** CONSULTA AO CADASTRO DE CIDADES **
} ElseIf ( $sSubModulo=="CID" ) {
   $sNomeIdJ_Ant = $sNomeIdJEdt_Cad;
   $sNomeIdCampo = "iCadECli_CodCid";
   $sJavaExePos  = "parent.Car_".$sNomeAcesso."2.Puxar_Cidade();";
   REQUIRE "./modulos/consulta_cidade.inc";
//
//  ** CONSULTA AO CADASTRO DE CONVENIO **
} ElseIf ( $sSubModulo=="CNV" ) {
   $sNomeIdJ_Ant = $sNomeIdJEdt_Cad;
   $sNomeIdCampo = "iCadECli_CodCnv";
   $sJavaExePos  = "parent.Car_".$sNomeAcesso."2.Puxar_Convenio();";
   REQUIRE "./modulos/consulta_convenio.inc";
//
//  ** CONSULTA AO CADASTRO DE Bairro **
} ElseIf ( $sSubModulo=="BAI" ) {
   //$bDir_Consult = True;
   //$nQdrNomeAcs  = 10;
   
   $sNomeIdJ_Ant = $sNomeIdJEdt_Cad;
   $sNomeIdCampo = "iCadECli_CodBai";
   $sJavaExePos  = "parent.Car_".$sNomeAcesso."2.Puxar_Bairro();";
   REQUIRE "./modulos/consulta_bairro.inc";
//




//  ** CONSULTA **
} Else {
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJConsulta; 
    $oJanelaPrinc->nTop    = 40;
    $oJanelaPrinc->nLeft   = 25;
    $oJanelaPrinc->nWidth  = 950;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
  	$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Clientes';
	//$oJanelaPrinc->sJavOnClick = "document.getElementById('iCadCli_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.fmPCadCli.acao.value='FECHAR'; ".
		"document.forms.fmPCadCli.submod.value=''; ".
		"document.forms.fmPCadCli.Cli_PChave.value=''; ".
		"document.forms.fmPCadCli.Cli_NumCam.value=''; ".
		"document.forms.fmPCadCli.submit();".
		"";
	//
	//TEL_CODCAD  CLI_CODCID
    // Criar objeto GRID
    $oTabelaRegs = New Pad_GridPesq();
    $oTabelaRegs->sTabelas  = '     cad_cliente 
								LEFT JOIN
									cad_cidade
								ON
									CID_CODIGO=CLI_CODCID
								LEFT JOIN
									cad_telefones
								ON
									TEL_CODCAD = CLI_CODIGOI
								LEFT JOIN
									cad_tipo_telefone
								ON
									CTT_CODIGO=TEL_TIPCAD 
							   ';
    $oTabelaRegs->sIdObjTabela = 'iQdr_ListaCli';
    $oTabelaRegs->GLstCampos( 
								'CLI_CODIGOI,Código,50px;'.
								'CLI_NOMECP,Nome Completo,150px;'.
								'TEL_NUMERO,Tel,100px;'.
								'CLI_ENDLOG,Endereço,200px;'.
								'CLI_ENDNUM,N°,50px;'.								 
							    'CID_NOMECD,Cidade,100px;'.
    			                'CLI_ENDBAI,Bairro,100px;' );
    $oTabelaRegs->sCampoIndice = 'CLI_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.fmPCadCli.Cli_Ativos.value=='0') {".
									      ($bDir_Alterar ?
				                             "parent.document.getElementById('CadCCli_BT_Itv').style.display='inline-block';"
										  : '').
				                          "parent.document.getElementById('CadCCli_BT_Atv').style.display='none';".
									  "} else if (parent.document.forms.fmPCadCli.Cli_Ativos.value=='1') {".
									      "parent.document.getElementById('CadCCli_BT_Itv').style.display='none';".
									      ($bDir_Alterar ?
                                             "parent.document.getElementById('CadCCli_BT_Atv').style.display='inline-block';"
										  : '').
								      "}".
		                              "parent.document.getElementById('CadCCli_BT_Edt').style.display='inline-block';".
								  "} ".
	                              'parent.document.getElementById("iCadCli_PChave").focus();';
    //
    // MONTAR LISTA DE CADASTROS
    If ( $sAcao=="LISTAR" ) {
	   //
	   If ($bDir_Consult) {
          $sP_PChave  = @$_REQUEST['Cli_PChave'];
		  $sTip_Busca = @$_REQUEST['Tip_Busca'];
          $nP_NumCam  = @$_REQUEST['Cli_NumCam']+0;
	      //$bP_Ativos  = (@$_REQUEST['Cli_Ativos']+0)>0;
		  $nP_Ativos  = @$_REQUEST['Cli_Ativos']+0; //0-ativos 1-inativos 2 -todos
          $nIniReg    = 0;
          $nQtdReg    = 10000;
          // Montar condição para a pesquisa
          //$sWhereSQL ='  CLI_TRAREG='.($bP_Ativos ? 0 : 1).' ';
		  $sParamSQL = '';
		  $sWhereSQL = '';
		  If ($nP_Ativos == 0) { // ativos
		     $sWhereSQL =' CLI_TRAREG=0';
		  } ElseIf ($nP_Ativos == 1) { //inativos
		     $sWhereSQL =' CLI_TRAREG';
		  } 
		  // 
		  If ( $nP_NumCam==0 ) { $nP_NumCam=2; }   // Ordem inicial (Nome completo)
    	  $aLstCampo = EXPLODE(',',@$oTabelaRegs->aLstCampos[$nP_NumCam-1]);
   	      If ( STRLEN(@$aLstCampo[0])>0 ) {
             If ( STRLEN($sP_PChave)>0 ) {
				If ($sTip_Busca == 1) {
				   If (STRLEN($sWhereSQL)>0) { $sWhereSQL .= ' AND ';}
				   //$sWhereSQL .= 'AND '.$aLstCampo[0].' LIKE "'.$sP_PChave.'%" ';
				   $sWhereSQL .= $aLstCampo[0].' LIKE "'.$sP_PChave.'%" ';
				}
				If ($sTip_Busca == 2) {
				   If (STRLEN($sWhereSQL)>0) { $sWhereSQL .= ' AND ';}
				   //$sWhereSQL .= 'AND '.$aLstCampo[0].' LIKE "%'.$sP_PChave.'%" ';
                   $sWhereSQL .= $aLstCampo[0].' LIKE "%'.$sP_PChave.'%" ';
				}				
    	     }
			 $sParamSQL .= ' GROUP BY CLI_CODIGOI ORDER BY '.$aLstCampo[0].' ASC ';
          }
		  If (STRLEN($sWhereSQL)>0) { $sWhereSQL = ' WHERE '.$sWhereSQL; }  
          $oTabelaRegs->sBDParametros = $sWhereSQL.$sParamSQL.'LIMIT '.$nIniReg.','.$nQtdReg;
          // Tabela
          $sRet_TelaJ_HTML = $oTabelaRegs->MontaTabelaHTML();
          // Java
          $sRet_Javs .=
             "var iQdr_ListaCli = parent.document.getElementById('".$oTabelaRegs->sIdObjTabela."');".
    	     'iQdr_ListaCli.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['Cli_Codigo']+0)>0) {
             MYSQL_QUERY("UPDATE cad_cliente SET CLI_TRAREG=0 WHERE CLI_CODIGOI=".(@$_REQUEST['Cli_Codigo']+0)." ;") or die(MYSQL_ERROR());
	         $sRet_Javs .=
		        'parent.Car_'.$sNomeAcesso.'1.PRow_Sel('.($oTabelaRegs->nQtdCampos-1).',1);'.
		   	    'parent.Car_'.$sNomeAcesso.'1.P_Atu();';
	      }
	   } Else {
	      $sRet_Javs .= Info_Evento('ALERTA: Sem previlégio de alteração para ativar.');
	   }
    //
    // INATIVAR REGISTRO
    } ElseIf ( $sAcao=="INATIVAR" ) {
	   $sRet_Javs .=
	      'parent.JanEspera(false);'.
		  '';
	   If ($bDir_Alterar) {
	      If ((@$_REQUEST['Cli_Codigo']+0)>0) {
             MYSQL_QUERY("UPDATE cad_cliente SET CLI_TRAREG=1 WHERE CLI_CODIGOI=".(@$_REQUEST['Cli_Codigo']+0)." ;") or die(MYSQL_ERROR());
	         $sRet_Javs .= 
		        'parent.Car_'.$sNomeAcesso.'1.PRow_Sel('.($oTabelaRegs->nQtdCampos-1).',1);'.
		        'parent.Car_'.$sNomeAcesso.'1.P_Atu();'.
                '';
	      }
	   } Else {
	      $sRet_Javs .= Info_Evento('ALERTA: Sem previlégio de alteração para inativar.');
	   }
    //
    // JANELA TELA PRINCIPAL
    } Else {
	   //
	   $sJavClkAtiv =
          "JanEspera(true, 'Ativando registro... Aguarde...');".
          "setTimeout( function() { ".
             "document.forms.fmPCadCli.acao.value='ATIVAR'; ".
			 "document.forms.fmPCadCli.submod.value=''; ".
             "document.forms.fmPCadCli.Cli_Codigo.value=Car_".$sNomeAcesso."1.sSelIndice;".
    	     "document.forms.fmPCadCli.submit();".
          "}, ".$nTmpFrmEnv.");".
		  "";
	   //
	   // Confirma a inativação do registro
	   $sJavClkInat =
		  JAVA_CharCode(
		     "if (_NUM_BOT_==1) { ".
                 "JanEspera(true, 'Inativando registro... Aguarde...');".
                 "setTimeout( function() { ".
                    "document.forms.fmPCadCli.acao.value='INATIVAR'; ".
                    "document.forms.fmPCadCli.submod.value=''; ".
                    "document.forms.fmPCadCli.Cli_Codigo.value=Car_".$sNomeAcesso."1.sSelIndice;".
                    "document.forms.fmPCadCli.submit();".
                 "}, ".$nTmpFrmEnv.");".
		  	 "}"
		   );
	   $sJavClkInat =
		  "sIdHasFocus='iCadCli_PChave';".
	      "Qdr_Prompt_H(true,'Tem certeza que deseja INATIVAR este cliente?',".$sJavClkInat.",['Sim','Não']); ";
	   //
	   $oJanelaPrinc->aIdsObjList = ARRAY( 'iTip_Busca','iCadCli_PChave','sl_CadCli_Ativos' );
	   //
       // Tela HTML
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
          '<form name="fmPCadCli" 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="Cli_PChave" type="hidden" value="">'.
           '<input name="Cli_Ativos" type="hidden" value="0">'.
    	   '<input name="Cli_NumCam" type="hidden" value="">'.
    	   '<input name="Cli_Codigo" type="hidden" value="">'.
		   '<input name="Tip_Busca" type="hidden" value="2">'.
          '</form>'.
       	  '<table border="0" width="100%">'.
		     '<tr>'.
       	        '<td width="4px" height="10px" align="left">'.
				   '&nbsp;'.
				'</td>'.
		        '<td align="left" width="120px"   style="font-size:14px;">'.
       	           'Tipo de Busca'.
       	        '</td>'.
				'<td align="left" style="font-size:14px;">'.
       	           'Procurar por: '.
				'</td>'.
				'<td>'.
				   '&nbsp;&nbsp;'.
				'</td>'.
				'<td align="left" style="font-size:14px;">'.
       	           'Mostrar'.
				'</td>'.
				'<td>'.
				   '&nbsp;&nbsp;'.
				'</td>'.
       	     '</tr>'.
			 //
             '<tr>'.
			    '<td width="4px" height="10px" align="left">'.
				   '&nbsp;'.
				'</td>'.
			 	'<td align="left" width="120px">'.
  			       '<select id="iTip_Busca" onchange="Car_'.$sNomeAcesso.'1.P_Atu();" style="font-size:14px; border-width: 1px; border-style: solid; border-color: #0099FF;margin-top:-1px;height:20px;">'.			
				      '<option value="2">Contida&nbsp;&nbsp;&nbsp;&nbsp;</option>'.
					  '<option value="1">Normal&nbsp;&nbsp;&nbsp;&nbsp;</option>'.				  
			       '</select>'.
		        '</td>'.
				'<td width="300px">'.
			       '<input id="iCadCli_PChave" type="text"  maxlength="40" style="width:100%; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;height:20px;">'.	   
				'</td>'.
				'<td>'.
				   '&nbsp;&nbsp;'.
				'</td>'.
				'<td align="left">'.
			       '<select id="sl_CadCli_Ativos" onchange="Car_'.$sNomeAcesso.'1.P_Atu();" style="font-size:14px;border-width: 1px; border-style: solid; border-color: #0099FF;margin-top:-1px;height:20px;">'.			
				      '<option value="0">Ativos&nbsp;&nbsp;&nbsp;</option>'.
				      '<option value="1">Inativos&nbsp;&nbsp;&nbsp;</option>'.
					  '<option value="2">Todos&nbsp;&nbsp;&nbsp;</option>'.				  
			       '</select>'.	
				'</td>'.
				'<td align="left" width="70px">'.
       	           HTML_Botao( 3, 'CadCli_BT_Pro', 'Car_'.$sNomeAcesso.'1.P_Atu();'
		                        , 'Procurar'     ,'images/btimg_lupa.png').
       	         '</td>'.
				 '<td width="4px" height="10px" align="left">&nbsp;</td>'.
       	     '</tr>'.			 
		  '</table>'. 
		   //'<td width="4px" height="10px" align="left">&nbsp;</td>'.
       	   //'<td align="left" width="70px">'.
       	   // 'Procurar por: '.
       	   //'</td>'.
       	   //'<td align="left" width="300px">'.
       	   // '<input id="iCadCli_PChave" type="text"  maxlength="30" style="width:50%; height:24px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
           // '&nbsp;&nbsp;'.         	   
		   // 'Tipo Busca:&nbsp;&nbsp;'.
		   //'<select id="iTip_Busca" onchange="Car_'.$sNomeAcesso.'1.Alt_TipoFt();" style="border-width: 1px; border-style: solid; border-color: #0099FF;margin-top:-20px;height:20px; ">'.
           //'<select id="iTip_Busca" onchange="Car_'.$sNomeAcesso.'1.P_Atu();" style="border-width: 1px; border-style: solid; border-color: #0099FF;margin-top:-20px;height:20px; ">'.			
		   //		 '<option value="2">Contida</option>'.
		   //		 '<option value="1">Normal</option>'.				  
		   //'</select>'.
		   //'</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="PCadCli_Ativos">inativos</span>'.
		   //'</span>'.
       	   //'</td>'.
       	   //'<td align="right" width="70px">'.
       	   //HTML_Botao( 3, 'CadCli_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, 'CadCCli_BT_Nov', $sJavaTravarJ.
			                                 "document.forms.fmPCadCli.acao.value='NV'; ".
			                                 "document.forms.fmPCadCli.submod.value='EDT'; ".
    	                                     "document.forms.fmPCadCli.submit();"
			             , 'Novo (F6)'   ,'images/btimg_novo.png').'&nbsp;&nbsp;'.
       	    HTML_Botao( 3, 'CadCCli_BT_Edt', $sJavaTravarJ.
			                                 "Car_".$sNomeAcesso."1.Pesq_Editar();"
			             , ($bDir_Alterar ? 'Editar' : 'Visualizar').' (F7)' ,'images/btimg_editar.png',120).'&nbsp;&nbsp;'.
       	    HTML_Botao( 3, 'CadCCli_BT_Itv', $sJavClkInat
			             , 'Inativar (F8)','images/btimg_remover.png',110).
       	    HTML_Botao( 3, 'CadCCli_BT_Atv', $sJavClkAtiv
			             , 'Ativar (F8)','images/btimg_ativar.png').'&nbsp;&nbsp;'.
       	   '</td>'.
       	   '<td width="120px" align="left">'.
       	    HTML_Botao( 3, 'CadCCli_BT_Fch', $oJanelaPrinc->sJavOnClickF
                         , 'Sair (ESC)' ,'images/btimg_fechar.png').
       	   '</td>'.
       	  '</tr></table>'.
    	  $oJanelaPrinc->MontaJanHTML(False);
       //
       $sRet_Javs .=
		  'parent.document.getElementById("dv_MenuL_Barra").style.visibility="hidden";'.
	      "var sSelIndice='';".		  
          "function P_Atu() {".		  
		    "var vTip_Busca = parent.document.getElementById('iTip_Busca').value;".
        	"sSelIndice='0';".
		    $oTabelaRegs->MontaJavaAgu().
		    "parent.document.getElementById('CadCCli_BT_Edt').style.display='none';".
		    "parent.document.getElementById('CadCCli_BT_Itv').style.display='none';".
		    "parent.document.getElementById('CadCCli_BT_Atv').style.display='none';".
         	"parent.document.forms.fmPCadCli.acao.value='LISTAR'; ".
            "parent.document.forms.fmPCadCli.submod.value=''; ".
         	"parent.document.forms.fmPCadCli.Cli_PChave.value=parent.document.getElementById('iCadCli_PChave').value;".
			"parent.document.forms.fmPCadCli.Cli_Ativos.value=parent.document.getElementById('sl_CadCli_Ativos').value;".
			"parent.document.forms.fmPCadCli.Tip_Busca.value = vTip_Busca;".
         	"parent.document.forms.fmPCadCli.Cli_NumCam.value=nPesq_CampoSel+''; ".
         	"setTimeout( function() { parent.document.forms.fmPCadCli.submit(); }, 100);".
          '}'.
		  'function Pesq_Editar() {'.
            "parent.document.forms.fmPCadCli.acao.value='';".
            "parent.document.forms.fmPCadCli.submod.value='EDT';".
            "parent.document.forms.fmPCadCli.Cli_Codigo.value=sSelIndice;".
            "parent.document.forms.fmPCadCli.submit();".
		  '}'.
		  "var bExbAtivos=true;".
		  //'function P_Ativos() {'.
		  //  "var obj = parent.document.getElementById('PCadCli_Ativos');".
		  //	"if (bExbAtivos) {".
          //      "parent.document.forms.fmPCadCli.Cli_Ativos.value='0'; ".
		  //	    "obj.innerHTML = 'ativos';".
		  //		"bExbAtivos = false;".
		  //	"} else {".
          //       "parent.document.forms.fmPCadCli.Cli_Ativos.value='1'; ".
		  //	    "obj.innerHTML = 'inativos';".
		  //		"bExbAtivos = true;".
		  //	"}".
		  //	"P_Atu();".
		  // '}'.
          $oTabelaRegs->MontaJavaPri().
          '';
       // Java posterior
       $sRet_JavsPos .=
		  "parent.document.getElementById('CadCCli_BT_Atv').style.display='none';".
          ($bDir_Incluir ? '' :
		     "parent.document.getElementById('CadCCli_BT_Nov').style.display='none';"
		  ).
		  ($bDir_Consult ?
		    "P_Atu();"
		  :
		    Info_Evento('ALERTA: Sem previlégio para consulta neste modulo.').
         	"parent.document.forms.fmPCadCli.acao.value='FECHAR'; ".
            "parent.document.forms.fmPCadCli.submod.value=''; ".
         	"parent.document.forms.fmPCadCli.submit();"
		  ).
    	  'parent.document.getElementById("iCadCli_PChave").focus();'.
		  //
		  "function Teclas_F( Objeto, Evento ) {".
             "vNumTecla = parent.Tecla_Apertada(Evento);".
             "if ( vNumTecla==117) { ".        //  ** [F6] **          // (Novo)
                 "if ( parent.document.getElementById('CadCCli_BT_Nov').style.display != 'none') {".
                     "setTimeout( parent.document.getElementById('CadCCli_BT_Nov').onclick , 100);".
				 "}".
		     "} else if ( vNumTecla==116) { ".  // ** [F5] **         Não atualizar
                 //
		     "} else if ( vNumTecla==118) { ". //  ** [F7] **          // (Editar)
                 "if ( parent.document.getElementById('CadCCli_BT_Edt').style.display != 'none') {".
                      "setTimeout( parent.document.getElementById('CadCCli_BT_Edt').onclick , 100);".
				 "}".
		     "} else if ( vNumTecla==119) { ". //  ** [F8] **          // (Inativar)
                 "if ( parent.document.getElementById('CadCCli_BT_Itv').style.display != 'none') {".
                      "setTimeout( parent.document.getElementById('CadCCli_BT_Itv').onclick , 100);".
					                                                   // (Ativar)
                 "} else if ( parent.document.getElementById('CadCCli_BT_Atv').style.display != 'none') {".
                      "setTimeout( parent.document.getElementById('CadCCli_BT_Atv').onclick , 100);".
				 "}".
		     "} else if ( vNumTecla==27) { ".  //  ** [ESC] **         // (SAIR)
                  "setTimeout( parent.document.getElementById('CadCCli_BT_Fch').onclick , 100);".
			 "} else {".
		          "P_TeclasPress_fm(Evento);".
			      "return true;".
			 "}".
			 "return false;".
		  '}'.
		  //
    	  "";
    }
}

?>