<?php
REQUIRE_ONCE "./global/est_funcoes.inc";
REQUIRE_ONCE("./global/funcoes_cad_codigo_bar.inc");
$sNomeIdJConsulta = 'iJan_LstRpdPro';
$nTmpFrmEnv = 300;
$sCorBarraInf = '#E8E3CE';
$bDir_Consult = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'C');
$bDir_Alterar = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'A');
$bDir_Incluir = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'I');
//
//  ** CADASTRO (NOVO/EDITA) **
$sIte_CodigoI = @$_POST['Ite_CodigoI'];

//
//  ** TELA DE PESQUISA PARA ADICIONAR UM PRODUTO Á LISTA **
If ( $sSubModulo=="ADC_PSQ" ) {
  $sNomeIdJ_Ant = $sNomeIdJConsulta;
  $sNomeIdCampo = "iCadLst_CodIte";
  $nQdrNomeAcs  = 4;
  $sJavaExePos  =
     "parent.document.getElementById('".$sNomeIdCampo."').setSelectionRange(0,0);".
     '';
  REQUIRE "./modulos/consulta_produto.inc";

//
//  ** TELA DE ALTERAÇÃO DE ORDEM DO ITEM **
} ElseIf ( $sSubModulo=="ALT" ) {
  // Criar objeto Janela
  $oJanelaPrinc = New R_Janela();
  $oJanelaPrinc->sIdObj  = 'iJan_LstRpd_AI';
  $oJanelaPrinc->nWidth  = 300;   // Largura
  $oJanelaPrinc->nHeight = 0;     // Altura
  $oJanelaPrinc->nTop    = 200;
  $oJanelaPrinc->nLeft   = 0;
  $oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
  $oJanelaPrinc->sTitulo = 'Alterar Item';
  $sJavaTravarJ = "parent.document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);";
  $oJanelaPrinc->sJavOnClickF =
       $sJavaTravarJ.
       "parent.document.forms.fmECadRpdProI.acao.value='FECHAR'; ".
       "parent.document.forms.fmECadRpdProI.submit();".
  	 "";
  $oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."4.Teclas_F(this,event);";
  //
  $nIte_CodigoI = @$_POST['Ite_CodigoI']+0;
  $nIte_Num_Ord = @$_POST['Ite_Num_Ord']+0;
  //
  // MONTAGEM DA JANELA
  If ( EMPTY($sAcao) ) {
     //
     $oJanelaPrinc->aIdsObjList = ARRAY('iCadEProRpd_NumOrd');
     $sSQLRequest =
       "SELECT ITE_CODIGOL, ITE_DESCRIC, LST_NUMORDE ".
       "FROM cad_produto ".
       "LEFT JOIN cad_lista_rapida ON LST_ITECODI=ITE_CODIGOI ".
       "WHERE ITE_CODIGOI=".$nIte_CodigoI.";";
     $Row = MYSQL_QUERY( $sSQLRequest ) Or Die( $sSQLRequest.'<br>'.MYSQL_ERROR() );
     $Row = MYSQL_FETCH_OBJECT($Row);
     //
     // Tela HTML
     //
     $sCSS_Inputs = 'background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;';
     $sRet_TelaJ_HTML =
  	  $oJanelaPrinc->MontaJanHTML(True).
       '<form name="fmECadRpdProI" 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="Ite_CodigoI" type="hidden" value="'.$nIte_CodigoI.'">'.
  	   '<table width="100%">'.
  	   '<tr>'.
  	    '<td align="right" width="60px">'.
  	     'Item:'.
  		'</td>'.
  		'<td align="left">'.
  	     @$Row->ITE_CODIGOL.' - '.@$Row->ITE_DESCRIC.
  		'</td>'.
  	   '</tr>'.
  	   '<tr>'.
  	    '<td align="right">'.
  	     'Ordem:'.
  		'</td>'.
  		'<td align="left">'.
  	     '<input id="iCadEProRpdI_NumOrd" name="Ite_Num_Ord" value="'.@$Row->LST_NUMORDE.'" type="text" maxlength="3" style="width:40px; height:22px; '.$sCSS_Inputs.'">'.
  		'</td>'.
  	   '</tr>'.
  	  '</table>'.
      '</form>'.
  	  '<div style="width:100%; height:1px; background-color:#91D8F8;"></div>'.
      '<table width="100%"></tr>'.
       '<td width="4px" height="40px" align="left">&nbsp;</td>'.
       '</td>'.
       '<td>'.
        HTML_Botao( 3, 'CadEProRpdI_BT_Sav', "JanEspera(true, 'Salvando o cadastro aguarde...');".
                                             "document.forms.fmECadRpdProI.acao.value='SALVAR'; ".
  	                                         "document.forms.fmECadRpdProI.submit();"
  	             , 'Confirma','images/btimg_ativar.png').'&nbsp;&nbsp;'.
       '</td>'.
       '<td width="120px" align="left">'.
        HTML_Botao( 3, 'CadEProRpdI_BT_Fec', $oJanelaPrinc->sJavOnClickF
                     , 'Sair (ESC)','images/btimg_fechar.png').
       '</td>'.
      '</tr></table>'.
  	  $oJanelaPrinc->MontaJanHTML(False);
     //
     $sRet_Javs .=
        "function Teclas_F( Objeto, Evento ) {".
           "vNumTecla = parent.Tecla_Apertada(Evento);".
           "if ( vNumTecla==13) { ".         //  ** [ENTER] **         // (Gravar)
  	 	    "if ( parent.document.getElementById('CadEProRpdI_BT_Sav').style.display != 'none' ) {".
                   "setTimeout( parent.document.getElementById('CadEProRpdI_BT_Sav').onclick , 100);".
  	 	    "}".
           "} else if ( vNumTecla==116) { ".  // ** [F5] **         Não atualizar
  	 	    //
           "} else if ( vNumTecla==27) { ".  //  ** [ESC] **        // (SAIR)
               "setTimeout( parent.document.getElementById('CadEProRpdI_BT_Fec').onclick , 100);".
           "} else {".
               "return true;".
           "}".
           "return false;".
        '}'.
        '';
     $sRet_JavsPos .=
        'parent.document.getElementById("iCadEProRpdI_NumOrd").focus();'.
        '';
     //
  //
  // SALVAR
  } ElseIf ( $sAcao=="SALVAR" ) {
     $sSQLRequest =
       "UPDATE cad_lista_rapida ".
	   "SET LST_NUMORDE=".$nIte_Num_Ord." ".
       "WHERE LST_ITECODI=".$nIte_CodigoI.";";
     $Row = MYSQL_QUERY( $sSQLRequest ) Or Die( $sSQLRequest.'<br>'.MYSQL_ERROR() );
     //
     $sRet_Javs .=
        'parent.Car_'.$sNomeAcesso.'1.P_Atu();'.
        "parent.JanEspera(false);".
        $oJanelaPrinc->sJavOnClickF.
  	    '';
  //
  // FECHAR
  } ElseIf ( $sAcao=="FECHAR" ) {
     $sRet_Javs .= 
        "parent.RmElem('".$oJanelaPrinc->sIdObj."'); ".
  	    "parent.Disabled_In_Elems('".$sNomeIdJConsulta."',false);".
  	    "parent.document.getElementById('".$sNomeIdJConsulta."_Travar').style.visibility='hidden';".
  	    'parent.document.getElementById("iCadLst_CodIte").focus();'.
  	    "";
  }
  //
//
//  ** CONSULTA **
} Else {
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJConsulta; 
    $oJanelaPrinc->nWidth  = 800;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
    $oJanelaPrinc->nTop    = 10;
    $oJanelaPrinc->nLeft   = 20;
	$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Lista rápida de produtos';
	$oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."1.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.fmPCadLst.acao.value='FECHAR'; ".
		"document.forms.fmPCadLst.submod.value=''; ".
		"document.forms.fmPCadLst.Pro_NumCam.value=''; ".
		"document.forms.fmPCadLst.submit();".
		"";
	//
    // Criar objeto GRID
    $oTabelaRegs = New Pad_GridPesq();
    $oTabelaRegs->sIdObjTabela = 'iQdr_ListaRpd';
    $oTabelaRegs->GLstCampos( 'ITE_CODIGOL,Código,50px;'.
                              'ITE_DESCRIC,Descrição;'.
							  'LST_NUMORDE,Ordem,40px;'.
                              'ITE_SIG_UNIDADE,Unid.,35px;'.
    			              'ITE_PRE_MES_NOR,Preço Normal,100px,MOE;'.
    			              'ITE_PRE_MES_MEI,Meia,100px,MOE;' );
    $oTabelaRegs->sCampoIndice = 'ITE_CODIGOI';
    $oTabelaRegs->nWidth  = $oJanelaPrinc->nWidth;
    $oTabelaRegs->nHeight = 350;    // 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 = "Car_".$sNomeAcesso."1.Alterar_Ite();";
    $oTabelaRegs->sJavSelectReg = "sSelIndice = S_Indice;".
	                              "if (parseInt(sSelIndice)>0) {".
		                               "parent.document.getElementById('CadCLst_BT_Rmv').style.display='inline-block';".
									   "parent.document.getElementById('CadCLst_BT_Alt').style.display='inline-block';".
								   "} ".
	                              'parent.document.getElementById("iCadLst_CodIte").focus();';
    //
    // MONTAR LISTA DE CADASTROS
    If ( $sAcao=="LISTAR" ) {
	   If ($bDir_Consult) {
          //$sP_PChave = @$_REQUEST['Pro_PChave'];
          $nP_NumCam = @$_REQUEST['Pro_NumCam']+0;
		  $sWhereSQL = '';
          $nIniReg = 0;
          $nQtdReg = 7000;  // Quantidade Máxima de registros
          // Montar condição para a pesquisa
          If ( $nP_NumCam==0 ) { $nP_NumCam=3; }
          $aLstCampo = EXPLODE(',',@$oTabelaRegs->aLstCampos[$nP_NumCam-1]);
          If ( STRLEN(@$aLstCampo[0])>0 ) {
             //If ( STRLEN($sP_PChave)>0 ) {
             //   If (SUBSTR(@$aLstCampo[0],0,8)=='ITE_PRE_') { $sP_PChave = STR_REPLACE(',','.',$sP_PChave); }
             //   $sWhereSQL .= 'AND '.$aLstCampo[0].' LIKE "%'.$sP_PChave.'%" ';
             //}
			 $sWhereSQL .= 'ORDER BY '.$aLstCampo[0].' ASC ';
          }
          $oTabelaRegs->sBDQuery = 
               "SELECT * ".
               "FROM cad_lista_rapida ".
               "LEFT JOIN cad_produto ON ITE_CODIGOI=LST_ITECODI ".
               'WHERE ITE_REG_TRAVADO=0 '.
               "GROUP BY LST_ITECODI ".
			   $sWhereSQL.'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_Mini($sRet_TelaJ_HTML).';'.
            'parent.Car_'.$sNomeAcesso.'1.'.$oTabelaRegs->sNomeTabela.'_Rowsel = 1;'.
			"parent.document.getElementById('CadCLst_sp_QtdReg').innerHTML = '".($oTabelaRegs->nQtdRegistros>0 ? $oTabelaRegs->nQtdRegistros.' registros encontrados.' : 'Nenhum registro encontrado')."';".
            '';
          // Java posterior
          $sRet_JavsPos .=
            'parent.Car_'.$sNomeAcesso.'1.'.$oTabelaRegs->sNomeTabela.'_Rowsel = 1;'.
			'parent.Car_'.$sNomeAcesso.'1.P_Sel('.$nP_NumCam.');'.
            //'parent.Car_'.$sNomeAcesso.'1.PRow_Sel('.($oTabelaRegs->nQtdCampos-1).',1);'.
            '';
          $sRet_TelaJ_HTML = '';
	   }
    //
    // FECHAR
    } ElseIf ( $sAcao=="FECHAR" ) {
       $sRet_Javs .=
	      'parent.document.getElementById("dv_MenuL_Barra").style.visibility="visible";'.
	      "parent.RmElem('".$oJanelaPrinc->sIdObj."');";
    //
	// ADICIONAR UM PRODUTO Á LISTA
    } ElseIf ( $sAcao=="ADC" ) {
      If ( $sIte_CodigoI=='/' ) {            // Pesquisar produtos
         $sRet_Javs .=
    		"var _fm = parent.document.forms.fmPCadLst;".
            "_fm.acao.value='';".
            "_fm.submod.value='ADC_PSQ';".
            "_fm.Ite_CodigoI.value='';".
    		"parent.document.getElementById('iCadLst_CodIte').value='';".
            "AntTarget = _fm.target;".
            "_fm.target = AntTarget.substr(0,AntTarget.length-1)+'4';".
            "_fm.submit();".
    		"_fm.target = AntTarget;".
    		"";
		  //
      } ElseIf ( STRLEN($sIte_CodigoI)>0 ) { // Bucar codigo livre do produto
	      If (STRLEN($sIte_CodigoI)<4) { $sIte_CodigoI = Str_Zero($sIte_CodigoI,4); }
    	  $sSQLRequest =
            "SELECT ITE_CODIGOL, ITE_CODIGOI, GRU_ACTSAB ".
    	    "FROM cad_produto ".
			"LEFT JOIN cad_grupo_produtos ON GRU_CODIGO=ITE_COD_GRU ".
    	    "WHERE ITE_CODIGOL='".$sIte_CodigoI."'".  
            "";
          $Row = MYSQL_QUERY( $sSQLRequest ) Or Die( $sSQLRequest.'<br>'.MYSQL_ERROR() );
		  If ( $Row = MYSQL_FETCH_OBJECT($Row) ) {
		     $sSQLRequest = "SELECT LST_ITECODI FROM cad_lista_rapida WHERE LST_ITECODI=".$Row->ITE_CODIGOI.";";
             $RowT = MYSQL_QUERY( $sSQLRequest ) Or Die( $sSQLRequest.'<br>'.MYSQL_ERROR() );
			 $bRegistrado = $RowT = MYSQL_FETCH_OBJECT($RowT);
		     If ($Row->GRU_ACTSAB) {
    	        $sRet_Javs .= 
			       "parent.document.getElementById('iCadLst_CodIte').focus();".
                   Info_Evento('Produto que aceita vário sabores não é permitido ser adicionado.',1).
		           "";
			 } ElseIf ( $bRegistrado ) {
    	        $sRet_Javs .= 
			       "parent.document.getElementById('iCadLst_CodIte').focus();".
                   Info_Evento('Já existe na lista.',1).
		           "";
			 } Else {
			    $sSQLRequest =
                  "INSERT INTO cad_lista_rapida".
				     "(LST_ITECODI,LST_NUMORDE) ".
				  "VALUES ".
				  "(".$Row->ITE_CODIGOI.",0); ".
				  "";
				MYSQL_QUERY( $sSQLRequest ) Or Die( $sSQLRequest.'<br>'.MYSQL_ERROR() );
    	        $sRet_Javs .= 
    		       "parent.document.getElementById('iCadLst_CodIte').value='';".
				   "parent.Car_".$sNomeAcesso."1.P_Atu();".
		           "";
			 }
		  } Else {
    	     $sRet_Javs .= 
			    "parent.document.getElementById('iCadLst_CodIte').focus();".
                Info_Evento('Produto não encontrado.',1).
		     	"";
		  }
	      //
      } Else {                               // Codigo em branco
    	 $sRet_Javs .=
		    "parent.document.getElementById('iCadLst_CodIte').focus();".
            Info_Evento('Você não informou um código válido.',1).
			"";
	      //
      }
    //
	// REMOVER UM PRODUTO Á LISTA
    } ElseIf ( $sAcao=="RMV" ) {
      $sIte_CodigoI = $sIte_CodigoI+0;
      $sRet_Javs .= 
		 "parent.JanEspera(false);".
		 "";
	  If ( $sIte_CodigoI==0 ) {
    	 $sRet_Javs .=
		    "parent.document.getElementById('iCadLst_CodIte').focus();".
            Info_Evento('Você não informou um código válido.',1).
			"";
	  } Else {
		 $sSQLRequest = "SELECT LST_ITECODI FROM cad_lista_rapida WHERE LST_ITECODI=".$sIte_CodigoI.";";
         $Row = MYSQL_QUERY( $sSQLRequest ) Or Die( $sSQLRequest.'<br>'.MYSQL_ERROR() );
		 If ( $Row = MYSQL_FETCH_OBJECT($Row) ) {
		    $sSQLRequest = "DELETE FROM cad_lista_rapida WHERE LST_ITECODI=".$sIte_CodigoI.";";
            $Row = MYSQL_QUERY( $sSQLRequest ) Or Die( $sSQLRequest.'<br>'.MYSQL_ERROR() );
    	    $sRet_Javs .= 
			   "parent.Car_".$sNomeAcesso."1.P_Atu();".
		       "";
		 }
	  }
    //
    // JANELA TELA PRINCIPAL
    } Else {
	   //
	   // Confirma a inativação do registro
	   $sJavClkRmv =
		  JAVA_CharCode(
		     "if (_NUM_BOT_==1) { ".
                 "JanEspera(true, 'Apagando registro, aguarde...');".
                 "setTimeout( function() { ".
				     "Car_".$sNomeAcesso."1.Remover_Ite();".
                 "}, ".$nTmpFrmEnv.");".
		  	"}"
		  );
	   $sJavClkRmv =
		  "sIdHasFocus='iCadLst_CodIte';".
	      "Qdr_Prompt_H(true,'Tem certeza que deseja APAGAR este produto da lista?',".$sJavClkRmv.",['Sim','Não']); ";
	   //
	   $oJanelaPrinc->aIdsObjList = ARRAY( 'iCadLst_CodIte' );
	   //
       // Tela HTML
	   //
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
          '<form name="fmPCadLst" 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="Pro_NumCam" type="hidden" value="">'.
    	   '<input name="Ite_CodigoI" type="hidden" value="">'.
          '</form>'.
       	  '<table width="100%"></tr>'.
       	   '<td width="4px" height="10px" align="left">&nbsp;</td>'.
       	   '<td align="left" width="100px">'.
       	    '<input id="iCadLst_CodIte" type="text" maxlength="30" style="width:98%; height:24px; background:#FFFBEC; border-width: 1px; border-style: solid; border-color: #0099FF;">'.
       	   '</td>'.
           '<td align="left" width="50px" valign="middle">'.
               HTML_Botao( 3, 'CadCLst_BT_Psq' , "document.getElementById('iCadLst_CodIte').value='/';".
           	                                     "Car_".$sNomeAcesso."1.Adicionar_Ite();"
    	                                       , ''  ,'images/btimg_lupa.png',24).
    	       
    	   '</td>'.
           '<td width="180px" height="40px" align="center" valign="middle">'.
               HTML_Botao( 3, 'CadCLst_BT_Adc',"Car_".$sNomeAcesso."1.Adicionar_Ite();"
                            , 'Adicionar','images/btimg_novo.png',130).
           '</td>'.
       	   '<td align="center">'.
       	   '</td>'.
           '<td width="140px" align="left" valign="middle">'.
               HTML_Botao( 3, 'CadCLst_BT_Rmv', $sJavClkRmv
                            , 'Remover (F6)','images/btimg_remover.png',120).
           '</td>'.
       	  '</tr></table>'.
    	  $oTabelaRegs->MontaDivHtml().
		  '<div style="width:100%; height:1px; background-color:#91D8F8;"></div>'.
       	  '<table width="100%"></tr>'.
       	   '<td width="4px" height="10px" align="left">&nbsp;</td>'.
		   '<td>'.
		    '<span id="CadCLst_sp_QtdReg"></span>'.
		   '</td>'.
		  '</table>'.
       	  '<table width="100%" style="background-color:'.$sCorBarraInf.';"></tr>'.
       	   '<td width="4px" height="40px" align="left">&nbsp;</td>'.
       	   '</td>'.
           '<td width="140px" align="center" valign="middle">'.
            HTML_Botao( 3, 'CadCLst_BT_Alt',"Car_".$sNomeAcesso."1.Alterar_Ite();"
                         , 'Alterar (F8)','images/btimg_editar.png',120).
           '</td>'.
     	   '<td>'.
       	   '</td>'.
       	   '<td width="124px" align="left">'.
       	    HTML_Botao( 3, 'CadCLst_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='0';".
          "function P_Atu() {".
            "sSelIndice='0';".
		    $oTabelaRegs->MontaJavaAgu().
		    "parent.document.getElementById('CadCLst_BT_Rmv').style.display='none';".
		    "parent.document.getElementById('CadCLst_BT_Alt').style.display='none';".
			"parent.document.getElementById('CadCLst_sp_QtdReg').innerHTML='';".
         	"parent.document.forms.fmPCadLst.acao.value='LISTAR'; ".
            "parent.document.forms.fmPCadLst.submod.value=''; ".
         	"parent.document.forms.fmPCadLst.Pro_NumCam.value=nPesq_CampoSel+''; ".
         	"setTimeout( function() { parent.document.forms.fmPCadLst.submit(); }, 100);".
          '}'.
		  'function Adicionar_Ite() {'.
		    "var _fm = parent.document.forms.fmPCadLst;".
            "_fm.acao.value='ADC';".
            "_fm.submod.value='';".
            "_fm.Ite_CodigoI.value=parent.document.getElementById('iCadLst_CodIte').value;".
            "_fm.submit();".
		  '}'.
		  'function Remover_Ite() {'.
		    "var _fm = parent.document.forms.fmPCadLst;".
            "_fm.acao.value='RMV';".
            "_fm.submod.value='';".
            "_fm.Ite_CodigoI.value=sSelIndice;".
            "_fm.submit();".
		  '}'.
		  'function Alterar_Ite() {'.
		    $sJavaTravarJ.
		    "var _fm = parent.document.forms.fmPCadLst;".
            "_fm.acao.value='';".
            "_fm.submod.value='ALT';".
            "_fm.Ite_CodigoI.value=sSelIndice;".
            "AntTarget = _fm.target;".
            "_fm.target = AntTarget.substr(0,AntTarget.length-1)+'4';".
            "_fm.submit();".
    		"_fm.target = AntTarget;".
		  '}'.
		  "var bExbAtivos=true;".
          $oTabelaRegs->MontaJavaPri().
          '';
       // Java posterior
       $sRet_JavsPos .=
          ($bDir_Incluir ? '' :
		  "parent.document.getElementById('CadCLst_BT_Adc').style.display='none';"
		  ).
		  "parent.document.getElementById('CadCLst_BT_Rmv').style.display='none';".
	      "parent.document.getElementById('CadCLst_BT_Alt').style.display='none';".
		  ($bDir_Consult ?
		    "P_Atu();"
		  :
		    Info_Evento('ALERTA: Sem previlégio para consulta neste modulo.').
         	"parent.document.forms.fmPCadLst.acao.value='FECHAR'; ".
            "parent.document.forms.fmPCadLst.submod.value=''; ".
         	"parent.document.forms.fmPCadLst.submit();"
		  ).
    	  'parent.document.getElementById("iCadLst_CodIte").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('CadCLst_BT_Fch').onclick , 100);".
    	     "} else if ( vNumTecla==13) { ".   // ** [ENTER] **         Adicionar
    	        "if ( parent.document.getElementById('CadCLst_BT_Adc').style.display != 'none') {".
                    "setTimeout( parent.document.getElementById('CadCLst_BT_Adc').onclick , 100);".
    	        "}".
		     "} else if ( vNumTecla==117) { ". //  ** [F6] **          // (Remover)
                "if ( parent.document.getElementById('CadCLst_BT_Rmv').style.display != 'none') {".
                    "setTimeout( parent.document.getElementById('CadCLst_BT_Rmv').onclick , 100);".
				"}".
             //
		     "} else if ( vNumTecla==119) { ". //  ** [F8] **          // (Alterar)
                "if ( parent.document.getElementById('CadCLst_BT_Alt').style.display != 'none') {".
                    "setTimeout( parent.document.getElementById('CadCLst_BT_Alt').onclick , 100);".
				"}".
             //
			 "} else {".
		          "P_TeclasPress_fm(Evento);".
			      "return true;".
			 "}".
			 "return false;".
		  '}'.
		  //
    	  "";
    }
}
//
// Limpa os registro travados (em edição) da tabela CAD_PRODUTO_FORNECEDOR
Function LimparForIte($nCodIte) {
   MYSQL_QUERY( "UPDATE cad_produto_fornecedor SET PFO_TRAREG=0 WHERE PFO_CODITE='".$nCodIte."' AND PFO_TRAREG=1;" ) Or Die(MYSQL_ERROR());
   MYSQL_QUERY( "DELETE FROM cad_produto_fornecedor             WHERE PFO_CODITE='".$nCodIte."' AND PFO_TRAREG=2;" ) Or Die(MYSQL_ERROR());
}
// Destrava os registro (em edição) da tabela CAD_PRODUTO_FORNECEDOR
Function DestravaForIte($nCodIte) {
   MYSQL_QUERY( "UPDATE cad_produto_fornecedor SET PFO_TRAREG=0 WHERE PFO_CODITE='".$nCodIte."' AND PFO_TRAREG=2;" ) Or Die(MYSQL_ERROR());
   MYSQL_QUERY( "DELETE FROM cad_produto_fornecedor             WHERE PFO_CODITE='".$nCodIte."' AND PFO_TRAREG=1;" ) Or Die(MYSQL_ERROR());
}
//
?>