<?php

// Criar objeto Janela
$oJanelaPrinc = New R_Janela();
$oJanelaPrinc->sIdObj  = "iJan_CslCadPro"; 
$oJanelaPrinc->nTop    = 30;
$oJanelaPrinc->nLeft   = 40;
$oJanelaPrinc->nWidth  = 650;   // Largura
$oJanelaPrinc->nHeight = 0;     // Altura
$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
$oJanelaPrinc->sTitulo = 'Produtos';
$oJanelaPrinc->sJavOnClick = "document.getElementById('iPCsl_Pro_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 = 
	"parent.document.forms.fmPCsl_Pro.acao.value='FECHAR'; ".
	"parent.document.forms.fmPCsl_Pro.Pro_PChave.value=''; ".
	"parent.document.forms.fmPCsl_Pro.Pro_NumCam.value=''; ".
	"parent.document.forms.fmPCsl_Pro.submit();".
    $sJavaTravarJ.
	"";
//
//
// Criar objeto GRID
$oTabelaRegs = New Pad_GridPesq();
//$oTabelaRegs->sNomeTabela  = 'cad_produto';
$oTabelaRegs->sIdObjTabela = 'iQdr_CslListaPro';
$oTabelaRegs->GLstCampos( 'ITE_CODIGOL,Cod.,35px;'.
                          'ITE_DESCRIC,Descrição;'.
                          'ITE_PRE_MES_NOR,Valor,70px,MOE;'.
			              'ITE_SIG_UNIDADE,Unidade,50px;' );
$oTabelaRegs->sCampoIndice = 'ITE_CODIGOL';
$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('iPCsl_Pro_BT_Sel').style.display='inline-block';".
							   "}".
                               'parent.document.getElementById("iPCsl_Pro_PChave").focus();';
//
// MONTAR LISTA DE CADASTROS
If ( $sAcao=="LISTAR" ) {
   If ($bDir_Consult) {
      $sP_PChave = @$_REQUEST['Pro_PChave'];
      // quando digitar exe: /coca na tela de inserir produto 
      If ( ISSET($aSessao['Pesq_Chave']) ){
         $sP_PChave = $aSessao['Pesq_Chave'];
         UNSET($aSessao['Pesq_Chave']);
      }
      $nP_NumCam = @$_REQUEST['Pro_NumCam']+0;
      $nIniReg = 0;
      $nQtdReg = 1000;
      // Montar condição para a pesquisa
      $sWhereSQL = 'WHERE ITE_REG_TRAVADO=0 AND ITE_ITEM_ATIVO_ '.@$sWhereSQL_Csl;
      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.'%" ';
	     }
		 $sWhereSQL .= 'ORDER BY '.$aLstCampo[0].' ASC ';
      }
      //
      $oTabelaRegs->s_PHP_ColunaTb =
			  'If ( $aBDCamposN[$nContador]=="ITE_PRE_MES_NOR" ) {'.
			     //'$sConteudoCRow = $Row_Temp2Tabela["ITE_PRE_MES_NOR"]'.
			     // Capturar preço promocional
		        '$nIte_Pre_Promocao = PuxarPrecoPromocional( $Row_Temp2Tabela["ITE_CODIGOI"] );'.
			     'If ( $nIte_Pre_Promocao>=0 ) { '.
                 '$sConteudoCRow="R$ ".FormatoMoeda($nIte_Pre_Promocao);'. 
              '}'.
		     '}';
	  $sWhereSQL .= 'LIMIT '.$nIniReg.','.$nQtdReg;
	  //$oTabelaRegs->sBDParametros = $sWhereSQL;
	  $oTabelaRegs->sBDQuery =
	     "SELECT pro.ITE_CODIGOI,".
		        "pro.ITE_CODIGOL,".
		        "pro.ITE_DESCRIC,".
		        "pro.ITE_PRE_MES_NOR,".
		        "pro.ITE_SIG_UNIDADE ".
		 "FROM                    cad_produto AS pro ".
		 "LEFT JOIN cad_produto_classificacao AS cls ON cls.CLS_IDN_CLS=pro.ITE_COD_CLS ".
		 $sWhereSQL.
	     ";";
      // Tabela
      $sRet_TelaJ_HTML = $oTabelaRegs->MontaTabelaHTML();
      // Java
      $sRet_Javs .=
         "var iQdr_Lista = parent.document.getElementById('".$oTabelaRegs->sIdObjTabela."');".
	     'iQdr_Lista.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.RmElem('".$oJanelaPrinc->sIdObj."');".
	  'parent.document.getElementById("'.$sNomeIdCampo.'").focus();'.
	  '';
//
// JANELA TELA PRINCIPAL
} Else {
   //
   // Tela HTML
   $sRet_TelaJ_HTML =
	  $oJanelaPrinc->MontaJanHTML(True).
      '<form name="fmPCsl_Pro" 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="Pro_PChave" type="hidden" value="">'.
	   '<input name="Pro_NumCam" type="hidden" value="">'.
	   '<input name="Pro_Codigo" type="hidden" value="">'.
      '</form>'.
   	  '<table width="100%"></tr>'.
   	   '<td width="4px" height="10px" align="left">&nbsp;</td>'.
   	   '<td align="left" width="70px">'.
   	    'Procurar por: '.
   	   '</td>'.
   	   '<td align="left">'.
   	    '<input id="iPCsl_Pro_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, 'CadPro_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, 'iPCsl_Pro_BT_Sel',   'Car_'.$sNomeAcesso.$nQdrNomeAcs.'.Pesq_Seleciona();'
		             , 'Seleciona (ENTER)','images/btimg_ativar.png').'&nbsp;&nbsp;'.
   	   '</td>'.
   	   '<td width="120px" align="left">'.
   	    HTML_Botao( 3, 'iPCsl_Pro_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('iPCsl_Pro_BT_Sel').style.display='none';".
     	"parent.document.forms.fmPCsl_Pro.acao.value='LISTAR'; ".
     	"parent.document.forms.fmPCsl_Pro.Pro_PChave.value=parent.document.getElementById('iPCsl_Pro_PChave').value; ".
     	"parent.document.forms.fmPCsl_Pro.Pro_NumCam.value=nPesq_CampoSel+''; ".
     	"setTimeout( function() { parent.document.forms.fmPCsl_Pro.submit(); }, 100);".
      '}'.
	  'function Pesq_Seleciona() {'.
	    'parent.document.getElementById("'.$sNomeIdCampo.'").value = sSelIndiceC;'.
	    $oJanelaPrinc->sJavOnClickF.
	  '}'.
      $oTabelaRegs->MontaJavaPri();
      '';
   // Java posterior
   $sRet_JavsPos .=
	  "P_Atu();".
	  'parent.document.getElementById("iPCsl_Pro_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('iPCsl_Pro_BT_Fch').onclick , 100);".
	     "} else if ( vNumTecla==13) { ". //   ** [ENTER] **      Selecionar
           "if ( parent.document.getElementById('iPCsl_Pro_BT_Sel').style.display == 'none') {".
             "P_Atu();". 
             "parent.document.getElementById('iPCsl_Pro_PChave').value='';".
           "} else { ".  
             "setTimeout( parent.document.getElementById('iPCsl_Pro_BT_Sel').onclick , 100);".
			  "}".
		 "} else {".
	          "P_TeclasPress_fm(Evento);".
		      "return true;".
		 "}".
		 "return false;".
	  '}'.
	  //
	  "";
}
?>