<?php

// Criar objeto Janela
$oJanelaPrinc = New R_Janela();
$oJanelaPrinc->sIdObj  = "iJan_LstCadCus"; 
$oJanelaPrinc->nTop    = 30;
$oJanelaPrinc->nLeft   = 70;
$oJanelaPrinc->nWidth  = 420;   // Largura
$oJanelaPrinc->nHeight = 0;     // Altura
$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
$oJanelaPrinc->sTitulo = 'Contas';
$oJanelaPrinc->sJavOnClick = "document.getElementById('iCadCus_PChave').focus();";
$oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso.$nQdrNomeAcs.".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.fmPCadCus.acao.value='FECHAR'; ".
	"parent.document.forms.fmPCadCus.Cus_PChave.value=''; ".
	"parent.document.forms.fmPCadCus.Cus_NumCam.value=''; ".
	"parent.document.forms.fmPCadCus.submit();".
	"";
//
//
// Criar objeto GRID
$oTabelaRegs = New Pad_GridPesq();
$oTabelaRegs->sNomeTabela  = 'cad_centro_custo';
$oTabelaRegs->sIdObjTabela = 'iQdr_ListaCus';
$oTabelaRegs->GLstCampos( 'CUS_CODIGO,Codigo,60px;'.
                          'CUS_DESCRI,Descrição;'.
						  'CUS_CREDEB,Tipo,50px;'
						);
$oTabelaRegs->sCampoIndice = ( $bCTP ? 'CUS_CODIGOI' : 'CUS_CODIGO' ) ;
$oTabelaRegs->nWidth  = $oJanelaPrinc->nWidth;
$oTabelaRegs->nHeight = 300;    // Altura
$oTabelaRegs->sCampoOnClick  = "Car_".$sNomeAcesso.$nQdrNomeAcs.".P_Sel(<NUMCAM>); Car_".$sNomeAcesso.$nQdrNomeAcs.".P_Atu();";
$oTabelaRegs->sLinhaOnClick  = "Car_".$sNomeAcesso.$nQdrNomeAcs.".PRow_Sel(<QTDCOL>,<SELLIN>);";
$oTabelaRegs->sLinhaOnDblClk = "Car_".$sNomeAcesso.$nQdrNomeAcs.".Pesq_Seleciona();".
							   "";
$oTabelaRegs->sJavSelectReg = "sSelIndiceC = S_Indice;".
	                          "if (parseInt(sSelIndiceC)>0) {".
	                              "parent.document.getElementById('CadCCus_BT_Sel').style.display='inline-block';".
							  "}".
                              'parent.document.getElementById("iCadCus_PChave").focus();';
//
// MONTAR LISTA DE CADASTROS
If ( $sAcao=="LISTAR" ) {
   If ($bDir_Consult) {
      $sP_PChave    = @$_REQUEST['Cus_PChave'];
      $nP_NumCam    = @$_REQUEST['Cus_NumCam']+0;
	  $s_Filtro_SQL = @$_REQUEST['FiltroSQL'];
      $nIniReg      = 0;
      $nQtdReg      = 1000;
      // Montar condição para a pesquisa
      $sWhereSQL = 'CUS_ATIVO_';
      If ( $nP_NumCam==0 ) { $nP_NumCam=2; }
	  $aLstCampo = EXPLODE(',',@$oTabelaRegs->aLstCampos[$nP_NumCam-1]);
      If ( STRLEN(@$aLstCampo[0])>0 ) {
         If ( STRLEN($sP_PChave)>0 ) {
	        $sWhereSQL .= ' AND '.$aLstCampo[0].' LIKE "%'.$sP_PChave.'%"';
	     }
		 If (!EMPTY($s_Filtro_SQL) ) {
	        $sWhereSQL .= ' AND '.$s_Filtro_SQL;
		 }
		 $sWhereSQL .= ' ORDER BY '.$aLstCampo[0].' ASC';
      }
      $oTabelaRegs->sBDParametros = 'WHERE '.$sWhereSQL.' LIMIT '.$nIniReg.','.$nQtdReg;
	  // Condição interna para coluna da tabela
	  $oTabelaRegs->s_PHP_ColunaTb =
	     'If ( $aBDCamposN[$nContador]=="CUS_CREDEB" ) {'.
	        'If ((@$Row_Temp2Tabela["CUS_CREDEB"]+0)==0 ) { '.
	            '$sConteudoCRow = "Débito";'.
           	'} Else {'.			
                '$sConteudoCRow = "Crédito";'.
	        '}'.
	     '}';
      // Tabela
      $sRet_TelaJ_HTML = $oTabelaRegs->MontaTabelaHTML();
      // Java
      $sRet_Javs .=
         "var iQdr_ListaCus = parent.document.getElementById('".$oTabelaRegs->sIdObjTabela."');".
	     'iQdr_ListaCus.innerHTML = '.JAVA_CharCode($sRet_TelaJ_HTML).';'.
	     '';
      // Java posterior
      $sRet_JavsPos .=
         'parent.Car_'.$sNomeAcesso.$nQdrNomeAcs.'.'.$oTabelaRegs->sNomeTabela.'_Rowsel = 1;'.
         'parent.Car_'.$sNomeAcesso.$nQdrNomeAcs.'.P_Sel('.$nP_NumCam.');'.
	     '';
      $sRet_TelaJ_HTML = '';
   }
//
// 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 {
   //
   // Tela HTML
   $sRet_TelaJ_HTML =
	  $oJanelaPrinc->MontaJanHTML(True).
      '<form name="fmPCadCus" 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="Cus_PChave" type="hidden" value="">'.
	   '<input name="Cus_NumCam" type="hidden" value="">'.
	   '<input name="Cus_Codigo" type="hidden" value="">'.
	   '<input name="FiltroSQL" type="hidden" value="'.$s_Filtro_SQL.'">'.
      '</form>'.
   	  '<table width="100%"></tr>'.
   	   '<td width="4px" height="10px" align="left">&nbsp;</td>'.
   	   '<td align="left" width="70px">'.
   	    'Procurar por: '.
   	   '</td>'.
   	   '<td align="left">'.
   	    '<input id="iCadCus_PChave" type="text" maxlength="30" style="width:98%; height:24px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
   	   '</td>'.
   	   '<td align="right" width="130px">'.
   	   HTML_Botao( 3, 'CadCus_BT_Pro'  , 'Car_'.$sNomeAcesso.$nQdrNomeAcs.'.P_Atu();'
	                , 'Procurar (F10)' ,'images/btimg_lupa.png',120).
   	   '</td>'.
   	   '<td width="4px" align="left">&nbsp;</td>'.
   	  '</tr></table>'.
	  $oTabelaRegs->MontaDivHtml().
   	  '<table width="100%"></tr>'.
   	   '<td width="4px" height="40px" align="left">&nbsp;</td>'.
   	   '</td>'.
   	   '<td>'.
   	    HTML_Botao( 3, 'CadCCus_BT_Sel'   ,'Car_'.$sNomeAcesso.$nQdrNomeAcs.'.Pesq_Seleciona();'
		             , 'Seleciona (ENTER)','images/btimg_ativar.png').'&nbsp;&nbsp;'.
   	   '</td>'.
   	   '<td width="120px" align="left">'.
   	    HTML_Botao( 3, 'CadCCus_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='';".
	    $oTabelaRegs->MontaJavaAgu().
	    "parent.document.getElementById('CadCCus_BT_Sel').style.display='none';".
     	"parent.document.forms.fmPCadCus.acao.value='LISTAR'; ".
     	"parent.document.forms.fmPCadCus.Cus_PChave.value=parent.document.getElementById('iCadCus_PChave').value; ".
     	"parent.document.forms.fmPCadCus.Cus_NumCam.value=nPesq_CampoSel+''; ".
     	"setTimeout( function() { parent.document.forms.fmPCadCus.submit(); }, 100);".
      '}'.
	  'function Pesq_Seleciona() {'.
	    'parent.document.getElementById("'.$sNomeIdCampo.'").value = sSelIndiceC;'.
	    $oJanelaPrinc->sJavOnClickF.
	  '}'.
      $oTabelaRegs->MontaJavaPri().
      '';
   // Java posterior
   $sRet_JavsPos .=
	  "P_Atu();".
	  'parent.document.getElementById("iCadCus_PChave").focus();'.
	  //
	  "function Teclas_F( Objeto, Evento ) {".
         "vNumTecla = parent.Tecla_Apertada(Evento);".
	     "if ( vNumTecla==116) { ".        //  ** [F5] **         Não atualizar
             //
	     "} else if ( vNumTecla==121) { ". //  ** [F10] **        Procurar
	         "P_Atu();".
	     "} else if ( vNumTecla==27) { ".  //  ** [ESC] **        (SAIR)
              "setTimeout( parent.document.getElementById('CadCCus_BT_Fch').onclick , 100);".
	     "} else if ( vNumTecla==13) { ". //   ** [ENTER] **      Selecionar
              "if ( parent.document.getElementById('CadCCus_BT_Sel').style.display != 'none') {".
                   "setTimeout( parent.document.getElementById('CadCCus_BT_Sel').onclick , 100);".
			  "}".
		 "} else {".
	          "P_TeclasPress_fm(Evento);".
		      "return true;".
		 "}".
		 "return false;".
	  '}'.
	  //
	  "";
}
?>