<?php
REQUIRE_ONCE("./global/funcoes_cad_telefones.inc");
// Criar objeto Janela                
$oJanelaPrinc = New R_Janela();       
$oJanelaPrinc->sIdObj  = $sNomeIdJan7; 
$oJanelaPrinc->nTop    = 100;           
$oJanelaPrinc->nLeft   = 5;           
$oJanelaPrinc->nWidth  = 580;   // Largura
$oJanelaPrinc->nHeight = 0;     // Altura
$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
$oJanelaPrinc->sTitulo = 'Identificar cliente na '.STRTOLOWER($sTipoLocal);
//
$sJavaTravarJ = "parent.document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);";
//
$oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso.$nQdrNomeAcs.".Teclas_F(this,event);";
$oJanelaPrinc->sJavOnClickF =
     $sJavaTravarJ.
	 "parent.document.forms.fmCxaI_Cmd1.acao.value='FECHAR'; ".
     "parent.document.forms.fmCxaI_Cmd1.submit();";
//
$oJanelaPrinc->aIdsObjList = ARRAY( 'i_CxaIde_NumLoc' , 'i_CxaIde_C_P_F_', 'i_CxaIde_DtaNsc', 'i_CxaIde_Cod_Cli', 'i_CxaIde_NomeCP',
                                    'i_CxaIde_Fone_1' , 'i_CxaIde_Fone_2'
                             );
//
$aVarSessao = @$aSessao['Cxa_IdeCli'];
$sFat_Num_Loc = Somente_Numeros(@$_POST['Fat_Num_Loc']);
$sCli_Num_CPF = Somente_Numeros(@$_POST['Cli_Num_CPF']);
$sCli_Dta_Nsc = ConvertDataBRUS(@$_POST['Cli_Dta_Nsc']);
$sCli_Nome_CP = @$_POST['Cli_Nome_CP'];
$nCli_CodigoI = Somente_Numeros(@$_POST['Cli_CodigoI'])+0;
$sCli_Fone_01 = Somente_Numeros(@$_POST['Cli_Fone_01']);
$sCli_Fone_02 = Somente_Numeros(@$_POST['Cli_Fone_02']);
$snId_Objeto_ = @$_POST['nId_Objeto_'];
//
// JANELA TELA PRINCIPAL
If ( EMPTY($sAcao) ) {
    $sFat_Num_Loc = Somente_Numeros(@$_POST['NumLocal']);
	$aSessao['Cxa_IdeCli'] = ARRAY();
	//
    // Tela HTML
    $sRet_TelaJ_HTML =
      $oJanelaPrinc->MontaJanHTML(True).
	  '<div style="position:absolute; top:-300px;">'.
       '<form name="fmCxaI_Cmd1" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.($nQdrNomeAcs+1).'">'.
        '<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="Fat_Num_Loc" type="hidden">'.
        '<input name="Cli_Num_CPF" type="hidden">'.
        '<input name="Cli_Dta_Nsc" type="hidden">'.
        '<input name="Cli_CodigoI" type="hidden">'.
        '<input name="Cli_Nome_CP" type="hidden">'.
        '<input name="Cli_Fone_01" type="hidden">'.
        '<input name="Cli_Fone_02" type="hidden">'.
        '<input name="nId_Objeto_" type="hidden">'.
       '</form>'.
      '</div>'.
	  // Estilização CSS
	  '<style type="text/css" rel="stylesheet">'.
       '.CxaIdeCli table {'.
	    'margin-left:0px; margin-top:0px; margin-right:0px; margin-bottom:0px; padding:0px; border-spacing:0px;'.
	   '}'.
	   '.CxaIdeCli td {'.
	  	'color:#222222;'.
	  	'font-family: "arial";'.
	  	'font-size:14px;'.
	   '}'.
       '.CxaIdeCli span.Titulo {'.
	    'display:inline-block;'.
	  	'position:relative;'.
	  	'left:6px;'.
	   '}'.
       '.CxaIdeCli span.Titulo {'.
	    'display:inline-block;'.
	  	'position:relative;'.
	   '}'.
       '.CxaIdeCli input,select {'.
	    'display:inline-block;'.
	    'height:20px;'.
	  	'color:#000000;'.
	  	'font-family: "arial";'.
	  	'font-size:14px;'.
	  	'background:#FFFFFF;'.
	  	'border-width:1px;'.
	  	'border-style:solid;'.
	  	'border-color:#D6D0AE;'.
       '}'.
       '.CxaIdeCli input:read-only {'.
	  	'background:#F0EFE8;'.
	  	'border-color:#DBDAD2;'.
       '}'.
	  '</style>'.
	  // Formulario de entrada
  	  '<table width="'.($oJanelaPrinc->nWidth-8).'px" class="CxaIdeCli">'.
	   '<tr>'.
		'<td align="right" valign="middle">'.
		 StrMaiusculas($sTipoLocal).':'.
		'</td>'.
		'<td width="90px" align="left" valign="middle">'.
	     '<input id="i_CxaIde_NumLoc" type="text" maxlength="6" value="'.$sFat_Num_Loc.'" style="width:99%;" onchange="Car_'.$sNomeAcesso.$nQdrNomeAcs.'.At_Campos(this.id);">'.
		'</td>'.
		'<td align="right" valign="middle">'.
		 'CPF:'.
		'</td>'.
		'<td width="110px" align="left" valign="middle">'.
	     '<input id="i_CxaIde_C_P_F_" type="text" maxlength="15" style="width:99%;" onchange="Car_'.$sNomeAcesso.$nQdrNomeAcs.'.At_Campos(this.id);">'.
		'</td>'.
		'<td align="right" valign="middle">'.
		 'Data de nascimento:'.
		'</td>'.
		'<td width="80px" align="left" valign="middle">'.
	     '<input id="i_CxaIde_DtaNsc" type="text" maxlength="10" value="00/00/0000" style="width:99%;" onchange="Car_'.$sNomeAcesso.$nQdrNomeAcs.'.At_Campos(this.id);">'.
		'</td>'.
	    '<td width="4px" height="28px">'.
	    '</td>'.
	   '</tr>'.
	   '<tr>'.
		'<td align="right" valign="middle" height="32px">'.
		 'Codigo:'.
	    '</td>'.
		'<td align="left" valign="middle">'.
	     '<input id="i_CxaIde_Cod_Cli" type="text" maxlength="8" style="width:40px;" readonly>'.
		 '&nbsp;&nbsp;'.
            HTML_Botao( 3, 'b_CxaIde_PsqCli' , 'Car_'.$sNomeAcesso.$nQdrNomeAcs.'.Pesquisar_Cli();'
                         , '','images/btimg_lupa.png',18).
	    '</td>'.
		'<td align="right" valign="middle">'.
		 'Nome:'.
	    '</td>'.
		'<td colspan="3" align="left" valign="middle">'.
	     '<input id="i_CxaIde_NomeCP" type="text" maxlength="60" style="width:99%;" onchange="Car_'.$sNomeAcesso.$nQdrNomeAcs.'.At_Campos(this.id);">'.
		'</td>'.
	   '</tr>'.
	   '<tr>'.
		'<td align="right" valign="middle" height="28px">'.
		 'Telefones:'.
	    '</td>'.
		'<td colspan="5" align="left" valign="middle">'.
	     '<input id="i_CxaIde_Fone_1" type="text" maxlength="18" style="width:110px;" onchange="Car_'.$sNomeAcesso.$nQdrNomeAcs.'.At_Campos(this.id);">'.
		 ', '.
	     '<input id="i_CxaIde_Fone_2" type="text" maxlength="18" style="width:110px;" onchange="Car_'.$sNomeAcesso.$nQdrNomeAcs.'.At_Campos(this.id);">'.
		'</td>'.
	   '</tr>'.
	  '</table>'.
	  //
      '<table width="100%">'.
	   '<tr>'.
	    '<td height="30px" style="font-size:16px;" align="center" valign="middle">'.
		 '<span id="s_CxaIde_Messg"></span>'.
	    '</td>'.
	   '</tr>'.
	  '</table>'.
	  // Barra inferior
      '<table width="100%" style="background-color:'.$sCorBarraInf.';">'.
	   '</tr>'.
        '<td width="4px" height="40px" align="left" style="font-size:1px;">&nbsp;</td>'.
   	    '<td width="130px" align="left">'.
   	     HTML_Botao( 3, 'CxaIdeC_BT_Reg'   , "Car_".$sNomeAcesso.$nQdrNomeAcs.".Registrar();"
                      , 'Registrar (F10)'  ,'images/btimg_salvar.png', 120).
   	    '</td>'.
        '<td align="left">'.
		'</td>'.
   	    '<td width="124px" align="left">'.
   	     HTML_Botao( 3, 'CxaIdeC_BT_Fec', $oJanelaPrinc->sJavOnClickF
                      , 'Sair (ESC)'    ,'images/btimg_fechar.png').
   	    '</td>'.
	   '</tr>'.
	  '</table>'.
      $oJanelaPrinc->MontaJanHTML(False);
	//
	// Java anterior
    $sRet_Javs .=
	   //
	   "function At_Campos(sIdObj) {".
	     "parent.document.getElementById('CxaIdeC_BT_Reg').style.display = 'none';".
         "var Fm = parent.document.forms.fmCxaI_Cmd1;".
	     "Fm.Fat_Num_Loc.value = parent.document.getElementById('i_CxaIde_NumLoc').value;".
	     "Fm.Cli_Num_CPF.value = parent.document.getElementById('i_CxaIde_C_P_F_').value;".
	     "Fm.Cli_Dta_Nsc.value = parent.document.getElementById('i_CxaIde_DtaNsc').value;".
	     "Fm.Cli_CodigoI.value = parent.document.getElementById('i_CxaIde_Cod_Cli').value;".
	     "Fm.Cli_Nome_CP.value = parent.document.getElementById('i_CxaIde_NomeCP').value;".
	     "Fm.Cli_Fone_01.value = parent.document.getElementById('i_CxaIde_Fone_1').value;".
	     "Fm.Cli_Fone_02.value = parent.document.getElementById('i_CxaIde_Fone_2').value;".
	     "Fm.nId_Objeto_.value = sIdObj;".
		 "Fm.acao.value = 'AT_CAMPOS';".
		 "Fm.submit();".
	   "}".
	   //
	   "function Pesquisar_Cli() {".
         $sJavaTravarJ.
         "var Fm = parent.document.forms.fmCxaI_Cmd1;".
	     "TargetAnt = Fm.target;".
	     "Fm.target='car_".$sNomeAcesso."10';".
	     "Fm.acao.value=''; ".
	     "Fm.submod.value='IDE_CSLCLI'; ".
	     "Fm.submit();".
	     "Fm.target = TargetAnt;".
	     "Fm.submod.value='".$sSubModulo."';".
	   "}".
	   //
	   "function Registrar() {".
	     "parent.document.getElementById('CxaIdeC_BT_Reg').style.display = 'none';".
         "parent.JanEspera(true, 'Aguarde...');".
         "var Fm = parent.document.forms.fmCxaI_Cmd1;".
	     "Fm.Fat_Num_Loc.value = parent.document.getElementById('i_CxaIde_NumLoc').value;".
	     "Fm.Cli_Num_CPF.value = parent.document.getElementById('i_CxaIde_C_P_F_').value;".
	     "Fm.Cli_Dta_Nsc.value = parent.document.getElementById('i_CxaIde_DtaNsc').value;".
	     "Fm.Cli_Nome_CP.value = parent.document.getElementById('i_CxaIde_NomeCP').value;".
	     "Fm.Cli_Fone_01.value = parent.document.getElementById('i_CxaIde_Fone_1').value;".
	     "Fm.Cli_Fone_02.value = parent.document.getElementById('i_CxaIde_Fone_2').value;".
		 "Fm.acao.value = 'REGISTRAR';".
		 "Fm.submit();".
	   "}".
	   
	   //
	   "function Teclas_F( Objeto, Evento ) {".
		 "vNumTecla = parent.Tecla_Apertada(Evento);".
		 "if ( vNumTecla==13 ) { ".              // [ENTER]
			 "sTempId = parent.Proximo_TabObj(parent.document.getElementById('".$oJanelaPrinc->sIdObj."'),parent.sIdHasFocus);".
			 "if ( parent.sIdHasFocus=='i_CxaIde_NumLoc' ) {".
			     "sTempId = 'i_CxaIde_C_P_F_';".
			 "}".
			 "if ( sTempId.length>0 ) {".
			     //
			 "} else {".
    	         "sTempId = 'i_CxaIde_NumLoc';".
			 "}".
			 "if ( sTempId.length>0 ) {".
			     "parent.document.getElementById(sTempId).focus();".
			     "parent.document.getElementById(sTempId).setSelectionRange(0,parent.document.getElementById(sTempId).value.length);".
			 "}".
             //
		 "} else if ( vNumTecla==116) { ".       // ** [F5] **     Não atualizar
		     //
		 "} else if ( vNumTecla==121) { ".       // ** [F10] **    Registrar
	 	    "if ( parent.document.getElementById('CxaIdeC_BT_Reg').style.display != 'none' ) {".
                 "setTimeout( parent.document.getElementById('CxaIdeC_BT_Reg').onclick , 100);".
	 	    "}".
		     //
		 "} else if ( vNumTecla==27 ) { ".       // [ESC]
		     $oJanelaPrinc->sJavOnClickF.
		 "} else if ( (vNumTecla>=96 && vNumTecla<=105) || (vNumTecla>=65 && vNumTecla<=91) || vNumTecla==8 ) { ".       // Entrada de dados
	       "parent.document.getElementById('CxaIdeC_BT_Reg').style.display = 'none';".
		   "return true;".
		 "} else {".
		   //"alert(vNumTecla);".
		   "return true;".
		 "} ".
	     "return false;".
	   "}".
       "";
	//
    // Java posterior
    $sRet_JavsPos .=
	   ( $sFat_Num_Loc==0 ?
	   "parent.document.getElementById('i_CxaIde_NumLoc').focus();"
	   :
	   "parent.document.getElementById('i_CxaIde_C_P_F_').focus();"
	   ).
	   "At_Campos('i_CxaIde_NumLoc');";
	   
	//
//
// ATUALIZAR CAMPOS
} ElseIf ( $sAcao=="AT_CAMPOS" ) {
	$bB_Registrar = False;
	$s_Mensagem_T = '';
	//
    If ( $snId_Objeto_=="i_CxaIde_NumLoc" ) {     // Campo do numero da comanda
	    If ( $sFat_Num_Loc>0 ) {
		   $sSQLQuery =
		      "SELECT COALESCE(cli.CLI_NUMCPF,'') AS CLI_NUMCPF,".
			         "COALESCE(cli.CLI_DTANSC,'') AS CLI_DTANSC,".
			         "COALESCE(cli.CLI_NOMECP,'') AS CLI_NOMECP,".
			         "COALESCE(cli.CLI_CODIGOI,0) AS CLI_CODIGOI,".
			         "COALESCE(tel.TEL_NUMERO,'') AS TEL_NUMERO ".
			  "FROM      fat_geral     AS ftg ".
			  "LEFT JOIN cad_cliente   AS cli ON cli.CLI_CODIGOI = ftg.FAT_CLIENTE ".
			  "LEFT JOIN cad_telefones AS tel ON cli.CLI_CODIGOI = tel.TEL_CODCAD ".
			  "WHERE ftg.FAT_CANCELA=0 AND ftg.FAT_RCFORMA=0 ".
			    "AND ftg.FAT_NUM_MES=".$sFat_Num_Loc." ".
			  "ORDER BY tel.TEL_SEQUEN ASC, ftg.FAT_DAT_INI ASC ".
			  "LIMIT 2;";
	       $Rows = MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR());
	       If ( $Row = MYSQL_FETCH_OBJECT($Rows) ) {
		      // Caso encontrou uma comanda já registrada
			  $aVarSessao['Fat_Cliente'] = @$Row->CLI_CODIGOI;
	          $sCli_Num_CPF = @$Row->CLI_NUMCPF;
	          $sCli_Dta_Nsc = @$Row->CLI_DTANSC;
	          $sCli_Nome_CP = @$Row->CLI_NOMECP;
	          $sCli_Fone_01 = $Row->TEL_NUMERO;
		      $sCli_Fone_02 = '';
	          If ( $Row = MYSQL_FETCH_OBJECT($Rows) ) {
			     $sCli_Fone_02 = $Row->TEL_NUMERO;
			  }
			  $aVarSessao['Blq_C_P_F_'] = True;
			  $aVarSessao['Blq_DtaNsc'] = True;
			  $aVarSessao['Blq_NomeCP'] = True;
			  $aVarSessao['Blq_Fone_1'] = True;
			  $aVarSessao['Blq_Fone_2'] = True;
			  $s_Mensagem_T = '<span style="color:#FF0000;">Esta '.STRTOLOWER($sTipoLocal).' já está vinculada com um cliente.</span>';
		   } Else {
		      // Caso seja uma comanda nova sem registro em banco de dados
			  $aVarSessao['Fat_Cliente'] = 0;
	          $sCli_Num_CPF = '';
	          $sCli_Dta_Nsc = '';
	          $sCli_Nome_CP = '';
	          $sCli_Fone_01 = '';
	          $sCli_Fone_02 = '';
			  $aVarSessao['Blq_C_P_F_'] = False;
			  $aVarSessao['Blq_DtaNsc'] = False;
			  $aVarSessao['Blq_NomeCP'] = False;
			  $aVarSessao['Blq_Fone_1'] = False;
			  $aVarSessao['Blq_Fone_2'] = False;
		   }
	    } Else {
		   // Caso o numero da comanda é igual a zero ou está em branco
		   $aVarSessao['Fat_Cliente'] = 0;
	       $sCli_Num_CPF = '';
	       $sCli_Dta_Nsc = '';
	       $sCli_Nome_CP = '';
	       $sCli_Fone_01 = '';
	       $sCli_Fone_02 = '';
		   $aVarSessao['Blq_C_P_F_'] = False;
		   $aVarSessao['Blq_DtaNsc'] = False;
		   $aVarSessao['Blq_NomeCP'] = False;
		   $aVarSessao['Blq_Fone_1'] = False;
		   $aVarSessao['Blq_Fone_2'] = False;
	    }
    //
    } ElseIf ( $snId_Objeto_=="i_CxaIde_C_P_F_" Or $snId_Objeto_=="i_CxaIde_Cod_Cli" ) {  // Campo do CPF do cliente
	    If ( ($snId_Objeto_=="i_CxaIde_C_P_F_" && $sCli_Num_CPF>0) Or ($snId_Objeto_=="i_CxaIde_Cod_Cli" && $nCli_CodigoI>0) ) {
		   $sSQLQuery =
		      "SELECT COALESCE(cli.CLI_NUMCPF,'') AS CLI_NUMCPF,".
			         "COALESCE(cli.CLI_DTANSC,'') AS CLI_DTANSC,".
			         "COALESCE(cli.CLI_NOMECP,'') AS CLI_NOMECP,".
			         "COALESCE(cli.CLI_CODIGOI,0) AS CLI_CODIGOI,".
			         "COALESCE(tel.TEL_NUMERO,'') AS TEL_NUMERO ".
			  "FROM      cad_cliente   AS cli ".
			  "LEFT JOIN cad_telefones AS tel ON cli.CLI_CODIGOI = tel.TEL_CODCAD ".
			  "WHERE ".
			     ( $snId_Objeto_=="i_CxaIde_C_P_F_" ?
			     "cli.CLI_NUMCPF='".$sCli_Num_CPF."' "
				 :
			     "cli.CLI_CODIGOI='".$nCli_CodigoI."' "
				 ).
			  "LIMIT 2;";
	       $Rows = MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR());
	       If ( $Row = MYSQL_FETCH_OBJECT($Rows) ) {
		      // Caso existe um cliente registrado com este CPF
			  $aVarSessao['Fat_Cliente'] = @$Row->CLI_CODIGOI;
	          $sCli_Num_CPF = $Row->CLI_NUMCPF;
	          $sCli_Dta_Nsc = $Row->CLI_DTANSC;
	          $sCli_Nome_CP = $Row->CLI_NOMECP;
	          $sCli_Fone_01 = $Row->TEL_NUMERO;
		      $sCli_Fone_02 = '';
	          If ( $Row = MYSQL_FETCH_OBJECT($Rows) ) {
			     $sCli_Fone_02 = $Row->TEL_NUMERO;
			  }
		      $aVarSessao['Blq_DtaNsc'] = True;
		      $aVarSessao['Blq_NomeCP'] = True;
		      $aVarSessao['Blq_Fone_1'] = True;
		      $aVarSessao['Blq_Fone_2'] = True;
		   } Else {
		      // Caso não há cliente registrado com este CPF ( novo cliente )
			  $aVarSessao['Fat_Cliente'] = 0;
	          $sCli_Dta_Nsc = '';
	          $sCli_Nome_CP = '';
	          $sCli_Fone_01 = '';
	          $sCli_Fone_02 = '';
		      $aVarSessao['Blq_C_P_F_'] = False;
		      $aVarSessao['Blq_DtaNsc'] = False;
		      $aVarSessao['Blq_NomeCP'] = False;
		      $aVarSessao['Blq_Fone_1'] = False;
		      $aVarSessao['Blq_Fone_2'] = False;
		   }
	    } Else {
		  
		   // Caso o campo do CPF esteje em branco
		   $aVarSessao['Fat_Cliente'] = 0;
	       $sCli_Num_CPF = '';
	       $sCli_Dta_Nsc = '';
	       $sCli_Nome_CP = '';
	       $sCli_Fone_01 = '';
	       $sCli_Fone_02 = '';
		   $aVarSessao['Blq_C_P_F_'] = False;
		   $aVarSessao['Blq_DtaNsc'] = False;
		   $aVarSessao['Blq_NomeCP'] = False;
		   $aVarSessao['Blq_Fone_1'] = False;
		   $aVarSessao['Blq_Fone_2'] = False;
		}
	}
	//foi pedido para deixar registrar com cpf em branco alteração 003418
	//VINCULAR CLIENTE SEM CPF
    //$bB_Registrar = $sFat_Num_Loc>0 && $sCli_Num_CPF>0 && STRLEN($sCli_Nome_CP)>0 && (!@$aVarSessao['Blq_C_P_F_']) ;
	$bB_Registrar = $sFat_Num_Loc>0 && STRLEN($sCli_Nome_CP)>0 && (!@$aVarSessao['Blq_C_P_F_']) ;
	//
	If ( $sFat_Num_Loc > $nQtdLocsT ) {
	   $sFat_Num_Loc = '';
	} ElseIf ( $sFat_Num_Loc > 0 ) {
	   $sFat_Num_Loc = Str_Zero($sFat_Num_Loc,6);
	} Else {
	   $sFat_Num_Loc = '';
	}
	//
	If ( $sCli_Num_CPF > 0 ) {
	   $sCli_Num_CPF = SUBSTR($sCli_Num_CPF,0,3).'.'.SUBSTR($sCli_Num_CPF,3,3).'.'.SUBSTR($sCli_Num_CPF,6,3).'-'.SUBSTR($sCli_Num_CPF,9,2);
	} Else {
	   $sCli_Num_CPF = '';
	}
	//
	$nCli_Dta_Nsc = ConvertDataSTR($sCli_Dta_Nsc);
	If ( $nCli_Dta_Nsc==0 ) {
	   $sCli_Dta_Nsc = '';
	} Else {
	   $sCli_Dta_Nsc = DATE("d/m/Y",$nCli_Dta_Nsc);
	}
	//
	$sCli_Fone_01 = FormataTelefone($sCli_Fone_01);
	$sCli_Fone_02 = FormataTelefone($sCli_Fone_02);
	//
    $sRet_Javs .= 
	   "sFocar = parent.sIdHasFocus;".
	   "parent.document.getElementById('i_CxaIde_NumLoc').value = '".$sFat_Num_Loc."';".
	   "parent.document.getElementById('i_CxaIde_C_P_F_').value = '".$sCli_Num_CPF."';".
	   "parent.document.getElementById('i_CxaIde_DtaNsc').value = '".$sCli_Dta_Nsc."';".
	   "parent.document.getElementById('i_CxaIde_Cod_Cli').value= '".Str_Zero(@$aVarSessao['Fat_Cliente'],4)."';".
	   "parent.document.getElementById('i_CxaIde_NomeCP').value = '".$sCli_Nome_CP."';".
	   "parent.document.getElementById('i_CxaIde_Fone_1').value = '".$sCli_Fone_01."';".
	   "parent.document.getElementById('i_CxaIde_Fone_2').value = '".$sCli_Fone_02."';".
	   //
	   "parent.document.getElementById('i_CxaIde_C_P_F_').readOnly = ".( @$aVarSessao['Blq_C_P_F_'] ? 'true' : 'false').";".
	   "parent.document.getElementById('i_CxaIde_DtaNsc').readOnly = ".( @$aVarSessao['Blq_DtaNsc'] ? 'true' : 'false').";".
	   "parent.document.getElementById('i_CxaIde_NomeCP').readOnly = ".( @$aVarSessao['Blq_NomeCP'] ? 'true' : 'false').";".
	   "parent.document.getElementById('i_CxaIde_Fone_1').readOnly = ".( @$aVarSessao['Blq_Fone_1'] ? 'true' : 'false').";".
	   "parent.document.getElementById('i_CxaIde_Fone_2').readOnly = ".( @$aVarSessao['Blq_Fone_2'] ? 'true' : 'false').";".
       "parent.document.getElementById(sFocar).focus();".
       "parent.document.getElementById(sFocar).setSelectionRange(0,parent.document.getElementById(sFocar).value.length);".
	   "parent.document.getElementById('CxaIdeC_BT_Reg').style.display = '".( $bB_Registrar ? 'inline-block' : 'none')."';".
	   "parent.document.getElementById('b_CxaIde_PsqCli').style.display = '".( @$aVarSessao['Blq_C_P_F_'] ? 'none' : 'inline-block')."';".
	   "parent.document.getElementById('s_CxaIde_Messg').innerHTML = ".JAVA_CharCode($s_Mensagem_T).";".
	   "";
	//
    $aSessao['Cxa_IdeCli'] = $aVarSessao;
    //
//
// REGISTRAR NO FAT_GERAL
} ElseIf ( $sAcao=="REGISTRAR" ) {
   $sRet_Javs .= "parent.JanEspera(false);";
   $nFat_Cliente = (@$aVarSessao['Fat_Cliente']+0);
   $bExecutar = True;
   $nCli_Dta_Nsc = ConvertDataSTR($sCli_Dta_Nsc);
   //FOI PEDIDO PARA DEIXAR PASSAR CPF EM BRANCO
   //If (! validaCPF($sCli_Num_CPF) ) {
   If (STRLEN($sCli_Num_CPF)> 0 && (! validaCPF($sCli_Num_CPF)) ) {
      $bExecutar = False;
   	  $sRet_Javs .= Info_Evento('CPF Inválido',1,$oJanelaPrinc->sTitulo.' - Erro');
   } ElseIf ( $nCli_Dta_Nsc > (TIME()-(18*12*30*24*60*60)) ) {
      $bExecutar = False;
	  $sRet_Javs .= Info_Evento('Proibido menor de 18 anos.',1,$oJanelaPrinc->sTitulo.' - Erro');
   } ElseIf ( STRLEN($sCli_Fone_01)<7 && STRLEN($sCli_Fone_02)<7 ) {
      $bExecutar = False;
	  $sRet_Javs .= Info_Evento('Informe no mínimo um telefone ou celular.',1,$oJanelaPrinc->sTitulo.' - Erro');
   } ElseIf ( STRLEN($sCli_Nome_CP)<4 ) {
      $bExecutar = False;
	  $sRet_Javs .= Info_Evento('Nome completo curto, são 4 letras no mínimo',1,$oJanelaPrinc->sTitulo.' - Erro');
   }
   //
   If ( $bExecutar ) {
      If ( $nFat_Cliente==0 ) {
	     $nFat_Cliente = SQLVarConfig("CAD_CLIENTE_SEQCOD")+0;
         SQLVarConfigG("CAD_CLIENTE_SEQCOD", $nFat_Cliente+1 );
         $sSQLQuery =
	        "INSERT INTO cad_cliente(".
	   	    "CLI_CODIGOI, CLI_NOMECP, CLI_NUMCPF, CLI_DTANSC, CLI_CODCID".
	        ") VALUE (".
	   	    $nFat_Cliente.",".
	   	    SQL_Bin($sCli_Nome_CP).",".
	   	    "'".$sCli_Num_CPF."',".
	   	    "'".$sCli_Dta_Nsc."',".
	   	    "'".$Dados_Empresa['EMP_CODCID']."' ".
	   	 ");";
         MYSQL_QUERY($sSQLQuery) or die($sSQLQuery.'<br>'.MYSQL_ERROR());
	     //
	     $aTelefones = ARRAY();
	     If ( STRLEN($sCli_Fone_01)>6 ) {
	        $aTelefones[] = ARRAY('TEL_CODCTT'=>2, 'TEL_NUMERO'=>$sCli_Fone_01, 'TEL_OBSERV'=>'');
	     }
	     If ( STRLEN($sCli_Fone_02)>6 ) {
	        $aTelefones[] = ARRAY('TEL_CODCTT'=>2, 'TEL_NUMERO'=>$sCli_Fone_02, 'TEL_OBSERV'=>'');
	     }
	     If ( COUNT($aTelefones)>0 ) {
	        GravarTelefones(1, $nFat_Cliente, $aTelefones);
         }
	     //
      }
      //
      $nCodSeq_Comanda = SQLVarConfig('COMANDA_L_SEQCOD')+0;
      SQLVarConfigG('COMANDA_L_SEQCOD',$nCodSeq_Comanda+1);
      $nFat_CodigoI = SQLVarConfig('FAT_GERAL_SEQCOD')+0;
      SQLVarConfigG('FAT_GERAL_SEQCOD',$nFat_CodigoI+1);
      $sSQLQuery =
         "INSERT INTO fat_geral(".
            "FAT_CODIGOI, FAT_CLIENTE, FAT_DAT_INI, FAT_TIP_LOC, FAT_SQCOMAN, FAT_DATAINI,".
			"FAT_NUM_MES, FAT_NUM_TRM, FAT_QTD_PES, FAT_TAXACVR, FAT_TOT_REC".
         ") VALUE (".
            $nFat_CodigoI.",".
	   	    $nFat_Cliente.",".
            "'".DATE("Y-m-d H:i:s")."',".
            "0,".
            $nCodSeq_Comanda.",".
            "'".$sData_Trabalho."',".
            $sFat_Num_Loc.",".
            "0,".
			"1,".
			$nValCouver.",".
			$nValCouver." ".
         ");";
      MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR());
      $sRet_Javs .=
	     "parent.document.getElementById('i_CxaIde_NumLoc').value = '';".
	     "parent.document.getElementById('i_CxaIde_C_P_F_').value = '';".
	     "parent.document.getElementById('i_CxaIde_DtaNsc').value = '';".
	     "parent.document.getElementById('i_CxaIde_Cod_Cli').value= '';".
	     "parent.document.getElementById('i_CxaIde_NomeCP').value = '';".
	     "parent.document.getElementById('i_CxaIde_Fone_1').value = '';".
	     "parent.document.getElementById('i_CxaIde_Fone_2').value = '';".
	     "parent.document.getElementById('i_CxaIde_NumLoc').focus();".
		 "Car_".$sNomeAcesso.$nQdrNomeAcs.".At_Campos('i_CxaIde_C_P_F_');".
	     "";
   }
   //
//
// FECHAR
} ElseIf ( $sAcao=="FECHAR" ) {
    //
	UNSET( $aSessao['Cxa_IdeCli'] );
	//
    $sRet_Javs .= 
       "parent.RmElem('".$oJanelaPrinc->sIdObj."');".
	   "parent.Disabled_In_Elems('".$sNomeIdJ_Ant."',false);".
	   "parent.document.getElementById('".$sNomeIdJ_Ant."_Travar').style.visibility='hidden';".
	   $sJavaExePos.
	   "";
    //
}
?>