<?php
// Criar objeto Janela
$oJanelaPrinc = New R_Janela();
$oJanelaPrinc->sIdObj  = "iJan_LstCadTel"; 
$oJanelaPrinc->nTop    = 80;
$oJanelaPrinc->nLeft   = 40;
$oJanelaPrinc->nWidth  = 450;   // Largura
$oJanelaPrinc->nHeight = 0;     // Altura
$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
$oJanelaPrinc->sTitulo = 'Telefones';
//$oJanelaPrinc->sJavOnClick = "document.getElementById('iCadTel_PChave').focus();";
$oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."4.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.fmPCadTel.acao.value='FECHAR'; ".
	"parent.document.forms.fmPCadTel.submit();".
	"";
//
// Criar objeto GRID dos telefones
$oListaTel = New Pad_GridPesq();
$oListaTel->bUsarSoMatriz = True;
$oListaTel->sNomeTabela   = 'cad_telefones';
$oListaTel->sIdObjTabela  = 'iQdr_ListaTel';
$oListaTel->GLstCampos( 'CTT_DESCRI,Tipo,70px;'.
                        'TEL_NUMERO,Telefone,100px,TEL;'.
                        'TEL_OBSERV,Observações;');
$oListaTel->sCampoIndice = 'TEL_NUMERO';
$oListaTel->nWidth  = $oJanelaPrinc->nWidth;
$oListaTel->nHeight = 150;   // Altura
$oListaTel->sCampoOnClick  = "Car_".$sNomeAcesso."4.P_Sel(<NUMCAM>); ";
                             //"Car_".$sNomeAcesso."5.P_Atu();".
							 "";
$oListaTel->sLinhaOnClick  = "Car_".$sNomeAcesso."4.PRow_Sel(<QTDCOL>,<SELLIN>);";
$oListaTel->sJavSelectReg = "sSelIndice = S_Indice;".
                            "if (parseInt(sSelIndice)>0) {".
	                            "parent.document.getElementById('CadETel_BT_Rmv').style.display='inline-block';".
							"} ".
                            'parent.document.getElementById("iECadETel_iLstTel").focus();';
//
$n_CodCad = 0;
If ( ISSET($_POST['Cad_Codigo']) ) {
   $n_CodCad = $_POST['Cad_Codigo']+0;
}
If ( ISSET($_POST['Tel_CodCad']) ) {
   $n_CodCad = $_POST['Tel_CodCad']+0;
}
$sTel_Numero = Somente_Numeros(@$_POST['Tel_Numero']);
$nTel_TipCtt = @$_POST['Tel_TipCtt']+0;
$sTel_Observ = @$_POST['Tel_Observ'];
$a_ListaTel = @$aSessao['CADTEL_LISTA'];
//
// MONTAR LISTA DE TELEFONES
If ( $sAcao=="LISTAR" ) {
   If ( ! ISSET($aSessao['CADTEL_LISTA']) ) {
      $a_ListaTel = ARRAY();
      $sSQLQuery =
          "SELECT ".
		      "CTT_DESCRI, TEL_CODCTT, TEL_NUMERO, TEL_OBSERV ".
		  "FROM cad_telefones, cad_tipo_telefone ".
		  "WHERE ".
              "TEL_TIPCAD=".$n_TipCad." AND TEL_CODCAD=".$n_CodCad." AND ".
              "(TEL_TRAREG=0 OR TEL_TRAREG=2) AND TEL_CODCTT=CTT_CODIGO ".
          "ORDER BY TEL_NUMERO ASC;";
      $RowsT = MYSQL_QUERY( $sSQLQuery ) Or Die( $sSQLQuery.'<br>'.MYSQL_ERROR() );
      While ($RowT = MYSQL_FETCH_ARRAY($RowsT)) {
	     $a_ListaTel[] = $RowT;
      }
   }
   $oListaTel->aLstItensTab = $a_ListaTel;
   //
   // Tabela dos telefones
   $sRet_TelaJ_HTML = $oListaTel->MontaTabelaHTML();
   // Java
   $sRet_Javs .=
      "parent.document.getElementById('CadETel_BT_Rmv').style.display='none';".
      "var iQdr_ListaTel = parent.document.getElementById('".$oListaTel->sIdObjTabela."');".
      'iQdr_ListaTel.innerHTML = '.JAVA_CharCode_Mini($sRet_TelaJ_HTML).';'.
      'parent.Car_'.$sNomeAcesso.'4.'.$oListaTel->sNomeTabela.'_Rowsel = 1;'.
      '';
   // Java posterior
   $sRet_JavsPos .=
      'parent.Car_'.$sNomeAcesso.'4.P_Sel(0);'.
      '';
   $sRet_TelaJ_HTML = '';
//
// ADICIONAR TELEFONE
} ElseIf ( $sAcao=="TEL_ADC" ) {
   $bIncluir = True;
   If ( STRLEN($sTel_Numero)<6 ) {
      // Erro: Erro número do telefone inválido
	  $sRet_Javs .= Info_Evento('Número do telefone inválido.',1);
      $bIncluir = False;
   }
   If ( $bIncluir ) {
       ForEach ( $a_ListaTel As $aTel ) {
	      If ( $aTel['TEL_NUMERO'] == $sTel_Numero ) {
             // Erro: Já existe o telefone
	         $sRet_Javs .= Info_Evento('Já existe este telefone e não pode ser adicionado.',1);
		     $bIncluir = False;
		     BREAK;
		  }
	   }
   }
   If ( $bIncluir ) {
      If ( $nTel_TipCtt==0 ) { $nTel_TipCtt=2; }
      $RowT = MYSQL_QUERY("SELECT CTT_DESCRI FROM cad_tipo_telefone WHERE CTT_CODIGO='".$nTel_TipCtt."' ;") or die(MYSQL_ERROR());
      $RowT = MYSQL_FETCH_ARRAY($RowT);
	  $_Ctt_Descri = @$RowT[0];
	  $aTel = ARRAY(
	            "CTT_DESCRI" => $_Ctt_Descri ,
	            "TEL_CODCTT" => $nTel_TipCtt ,
	            "TEL_NUMERO" => $sTel_Numero ,
	            "TEL_OBSERV" => $sTel_Observ
	          );
	  $a_ListaTel[] = $aTel;
	  //
      $sRet_Javs .=
         "parent.document.getElementById('iCadETel_Numero').value='';".
         "parent.document.getElementById('iCadETel_Observ').value='';".
         "parent.document.getElementById('iCadETel_Numero').focus();".
         'parent.Car_'.$sNomeAcesso.'4.P_Atu();'.
	     "";
   }
//
// REMOVER TELEFONE
} ElseIf ( $sAcao=="TEL_RMV" ) {
   $bRemove = True;
   //alteração 4284 
   //If ( STRLEN($sTel_Numero)<6 ) {
   // Erro: Erro número do telefone inválido  
   //	  $sRet_Javs .= Info_Evento('Número do telefone inválido.',1);
   //    $bRemove = False;
   //}
   $a_ListaTelN = ARRAY();
   If ( $bRemove ) {
	   $bRemove = False;
       ForEach ( $a_ListaTel As $aTel ) {
	      If ( $aTel['TEL_NUMERO'] == $sTel_Numero ) {
		     $bRemove = True;
		  } Else {
		     $a_ListaTelN[] = $aTel;
		  }
	   }
   }
   If ( $bRemove ) {
      $a_ListaTel = $a_ListaTelN;
      $sRet_Javs .=
         "parent.document.getElementById('iCadETel_Numero').focus();".
         'parent.Car_'.$sNomeAcesso.'4.P_Atu();'.
        "";
   } Else {
	  $sRet_Javs .= Info_Evento('Número do telefone inválido.',1);
   }
//
// FECHAR
} ElseIf ( $sAcao=="FECHAR" ) {
   $sRet_Javs .=
	  "parent.document.getElementById('".$sNomeIdJ_Ant."_Travar').style.visibility='hidden';".
	  "parent.Disabled_In_Elems('".$sNomeIdJ_Ant."',false);".
	  $sJavaExePos.
	  'parent.document.getElementById("'.$sNomeIdCampo.'").focus();'.
      "parent.RmElem('".$oJanelaPrinc->sIdObj."');";
//
// JANELA TELA PRINCIPAL
} Else {
   //
   $sHTML_CmbTipTel = '';
   $RowsT = MYSQL_QUERY( "SELECT * FROM cad_tipo_telefone ORDER BY CTT_DESCRI ASC" ) Or Die(MYSQL_ERROR());
   While ($RowT = MYSQL_FETCH_OBJECT($RowsT)) {
       $sHTML_CmbTipTel .= '<option value="'.$RowT->CTT_CODIGO.'">'.$RowT->CTT_DESCRI.'</option>';
   }
   //
   $oJanelaPrinc->aIdsObjList =
      ARRAY( 'iCadETel_TipCtt', 'iCadETel_Numero', 'iCadETel_Observ', 'iECadETel_iLstTel' );
   //
   // Tela HTML
   $sRet_TelaJ_HTML =
	  $oJanelaPrinc->MontaJanHTML(True).
      '<form name="fmPCadTel" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'5">'.
       '<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_NumCam" type="hidden" value="">'.
	   '<input name="Tel_TipCod" type="hidden" value="'.$n_TipCad.'">'.
	   '<input name="Tel_CodCad" type="hidden" value="'.$n_CodCad.'">'.
	   '<input name="Tel_TipCtt" type="hidden" value="">'.
	   '<input name="Tel_Numero" type="hidden" value="">'.
	   '<input name="Tel_Observ" type="hidden" value="">'.
      '</form>'.
   	  '<table width="100%"></tr>'.
   	   '<td width="4px" height="10px" align="left">&nbsp;</td>'.
   	   '<td align="left" width="100px">'.
        '<select id="iCadETel_TipCtt" style="width:99%; font-family:Courier;">'.
          $sHTML_CmbTipTel.
        '</select>'.
   	   '</td>'.
   	   '<td align="left">'.
		 '<input id="iCadETel_Numero" type="text" maxlength="15" style="width:110px; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
   	   '</td>'.
   	   '<td width="4px" align="left">&nbsp;</td>'.
	  '</tr>'.
	  '<tr>'.
   	   '<td height="40px">&nbsp;</td>'.
   	   '<td align="left">'.
	    'Observações:'.
   	   '</td>'.
   	   '<td align="left">'.
	    '<input id="iCadETel_Observ" type="text" maxlength="50" style="width:95%; height:22px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
   	   '</td>'.
   	   '<td>&nbsp;</td>'.
   	  '</tr>'.
	  '</table>'.
	  //
   	  '<table width="100%"></tr>'.
       '<td width="180px" height="40px" align="center" valign="middle">'.
        HTML_Botao( 3, 'CadETel_BT_Adc',"Car_".$sNomeAcesso."4.AdicionaTel();"
                     , 'Adicionar (INS)','images/btimg_novo.png',130).
       '</td>'.
       '<td align="left">'.
       '</td>'.
       '<td width="180px" align="center" valign="middle">'.
        HTML_Botao( 3, 'CadETel_BT_Rmv',"Car_".$sNomeAcesso."4.CRemoverTel();"
                     , 'Remover (F6)','images/btimg_remover.png',120).
       '</td>'.
      '</tr></table>'.
	  '<div style="position:absolute; top:-1000px; left:-1000px;">'.
	   '<input id="iECadETel_iLstTel" type="text" maxlength="1" onkeydown="Car_'.$sNomeAcesso.'4.P_TeclasPress_fm(event);">'.
	  '</div>'.
	  $oListaTel->MontaDivHtml().
   	  '<table width="100%"></tr>'.
   	   '<td width="4px" height="40px" align="left">&nbsp;</td>'.
   	   '</td>'.
   	   '<td>'.
   	   '</td>'.
   	   '<td width="120px" align="left">'.
   	    HTML_Botao( 3, 'CadCTel_BT_Fch'   , $oJanelaPrinc->sJavOnClickF
                     , 'Sair (ESC)'       ,'images/btimg_fechar.png').
   	   '</td>'.
   	  '</tr></table>'.
	  $oJanelaPrinc->MontaJanHTML(False);
   //
   $sRet_Javs .=
	  "parent.document.getElementById('".$sNomeIdJ_Ant."_Travar').style.visibility='visible';".
	  "parent.Disabled_In_Elems('".$sNomeIdJ_Ant."',true);".
	  'parent.document.getElementById("dv_MenuL_Barra").style.visibility="hidden";'.
      "var sSelIndiceC='';".
      "function P_Atu() {".
        "sSelIndiceC='';".
	    $oListaTel->MontaJavaAgu().
     	"parent.document.forms.fmPCadTel.acao.value='LISTAR'; ".
     	"parent.document.forms.fmPCadTel.Tel_NumCam.value=nPesq_CampoSel+''; ".
     	"setTimeout( function() { parent.document.forms.fmPCadTel.submit(); }, 100);".
      '}'.
	  'function Pesq_Seleciona() {'.
	    'parent.document.getElementById("'.$sNomeIdCampo.'").value = sSelIndiceC;'.
	    $oJanelaPrinc->sJavOnClickF.
	  '}'.
      $oListaTel->MontaJavaPri().
      //
      "function AdicionaTel() {".
         "var _fm = parent.document.forms.fmPCadTel;".
         "_fm.Tel_Numero.value=parent.document.getElementById('iCadETel_Numero').value; ".
         "_fm.Tel_TipCtt.value=parent.document.getElementById('iCadETel_TipCtt').value; ".
         "_fm.Tel_Observ.value=parent.document.getElementById('iCadETel_Observ').value; ".
         "_fm.acao.value='TEL_ADC'; ".
         "_fm.submit();".
      "}".
      "function RemoverTel() {".
	     "var _fm = parent.document.forms.fmPCadTel;".
         "_fm.Tel_Numero.value=sSelIndice;".
         "_fm.Tel_TipCtt.value='';".
         "_fm.acao.value='TEL_RMV'; ".
         "_fm.submit();".
      "}".
      "function CRemoverTel() {".
         "sIdHasFocus='iECadETel_iLstTel';".
         "parent.Qdr_Prompt_H(true,'Tem certeza que deseja REMOVER este telefone?',".JAVA_CharCode('if (_NUM_BOT_==1) { Car_'.$sNomeAcesso.'4.RemoverTel(); }').",['Sim','Não']); ".
      "}".
      '';
   // Java posterior
   $sRet_JavsPos .=
	  "P_Atu();".
	  'parent.document.getElementById("iCadETel_TipCtt").focus();'.
	  //
	  "function Teclas_F( Objeto, Evento ) {".
         "vNumTecla = parent.Tecla_Apertada(Evento);".
	     "if ( vNumTecla==116) { ".         // ** [F5] **         Não atualizar
             //
	     "} else if ( vNumTecla==27) { ".   // ** [ESC] **        (SAIR)
             "setTimeout( parent.document.getElementById('CadCTel_BT_Fch').onclick , 100);".
         "} else if ( vNumTecla==13) { ".   // ** [ENTER] **
			 "sAntFocus = parent.sIdHasFocus;".
			 "while (true) {".
			    "sTempId = parent.Proximo_TabObj(parent.document.getElementById('".$oJanelaPrinc->sIdObj."'),sAntFocus);".
			    "if ( sTempId.length>0 ) {".
			        "parent.document.getElementById(sTempId).focus();".
			 	    "if (sTempId == parent.sIdHasFocus ) { break; }".
			 		"sAntFocus=sTempId;".
			    "} else {".
    	            'parent.document.getElementById("iCadETel_TipCtt").focus();'.
			 		'break;'.
			    "}".
			 "}".
             //
	     "} else if ( vNumTecla==45) { ".   // ** [INS] **         Adicionar
             "if ( parent.document.getElementById('CadETel_BT_Adc').style.display != 'none') {".
                  "setTimeout( parent.document.getElementById('CadETel_BT_Adc').onclick , 100);".
			 "}".
             //
	     "} else if ( vNumTecla==117) { ".  // ** [F6] **          Remover
             "if ( parent.document.getElementById('CadETel_BT_Rmv').style.display != 'none') {".
                  "setTimeout( parent.document.getElementById('CadETel_BT_Rmv').onclick , 100);".
			 "}".
		 "} else {".
	          //"P_TeclasPress_fm(Evento);".
			  //"alert( vNumTecla );".
		      "return true;".
		 "}".
		 "return false;".
	  '}'.
	  "";
}
//
$aSessao['CADTEL_LISTA'] = $a_ListaTel;
//
?>