<?php
REQUIRE_ONCE "./global/est_funcoes.inc";
$bDir_Consult = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'C');   // Consultar
$bDir_Ent_Sai = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'A');   // Entrada/Saida
$bDir_FecharB = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'B');   // Fechar balanço
$sNomeIdJPrin = "iJan_MovEstIte";
$sCorBarraInf = '#E8E3CE';
$nTmpFrmEnv = 300;
$sData_Trabalho = SQLVarConfig('DATA_DE_TRABALHO');
//
//  **  **
If ( $sSubModulo=="****" ) {
//
//  ** TELA DE PESQUISA DO PRODUTO **
} ElseIf ( $sSubModulo=="CSL_PRODUTO" ) {
   $sNomeIdJ_Ant = $sNomeIdJPrin;
   $sNomeIdCampo = "iEtmIte_Codigo";
   $sJavaExePos  = "parent.Car_".$sNomeAcesso."1.Atualiza();";
	$nQdrNomeAcs  = 3;
   REQUIRE "./modulos/consulta_produto.inc";
//
//  ** CONSULTA **
} Else {
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJPrin; 
    $oJanelaPrinc->nWidth  = 550;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
    $oJanelaPrinc->nTop    = 10;
    $oJanelaPrinc->nLeft   = 20;
	$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Movimento de estoque';
	//$oJanelaPrinc->sJavOnClick = "document.getElementById('iEtmIte_Codigo').focus();";
	$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.
		"parent.document.forms.fmPMovIte.acao.value='FECHAR'; ".
		"parent.document.forms.fmPMovIte.submod.value=''; ".
		"parent.document.forms.fmPMovIte.submit();".
		"";
    //
	$n_Etm_TipMov = @$_POST['Etm_TipMov']+0;
	$s_Etm_CdLIte = @$_POST['Etm_CdLIte'];
	$s_Etm_CodIte = @$_POST['Etm_CodIte'];
	$n_Etm_QtdMov = @$_POST['Etm_QtdMov']+0;
	$s_Etm_Histor = @$_POST['Etm_Histor'];
	$n_Etm_QtdCnt = @$_POST['Etm_QtdCnt']+0;
	$b_Etm_BalEfe = @$_POST['Etm_BalEfe']+0;
	//
    // ATUALIZAR
    If ( $sAcao=="ATUALIZA" ) {
	   $b_dv_Etm_SalBal_F = False;
	   $b_dv_Etm_SalBal_T = False;
	   $b_Etm_Ite_BT_Grv  = True;
	   $s_Etm_Ite_Descri  = '(Produto)';
	   $s_Est_DtaBal      = '';
	   $sHTML_QtdDescri   = '';
	   $s_Est_SalBal      = '0.000';
	   $s_Est_SalDos      = '0.000';
	   $s_Est_SalNovF     = '0.000';
	   $s_Est_SalNovT     = '0.000';
	   $n_Saldo = 0;
	   $sJava_Final = '';
	   //
	   If ( $s_Etm_CdLIte=='/' ) {
		  $s_Etm_CodIte = '';
	      $sJava_Final = 
	          "parent.document.getElementById('iEtmIte_Codigo').value = '';".
		      "setTimeout( function () { ".
		         "parent.document.forms.fmPMovIteC.acao.value=''; ".
		         "parent.document.forms.fmPMovIteC.submod.value='CSL_PRODUTO'; ".
		         "parent.document.forms.fmPMovIteC.submit();".
		         "parent.document.forms.fmPMovIteC.submod.value='".$sSubModulo."'; ".
		      "} , 100);".
			  "";
	      //
	   } ElseIf ( STRLEN($s_Etm_CdLIte)==0 ) {
		  $s_Etm_CodIte     = '';
	      //
	   } Else {
	      $s_Etm_CdLIte = Str_Zero( $s_Etm_CdLIte,4 );
          $RowT = MYSQL_QUERY( "SELECT * FROM cad_produto WHERE ITE_CODIGOL='".$s_Etm_CdLIte."' AND ITE_REG_TRAVADO=0;" ) Or Die(MYSQL_ERROR());
          //$RowT = MYSQL_QUERY( "SELECT * FROM cad_produto WHERE ITE_CODIGOI='".$s_Etm_CodIte."' AND ITE_REG_TRAVADO=0;" ) Or Die(MYSQL_ERROR());
          If ($RowT = MYSQL_FETCH_OBJECT($RowT)) {
		     $s_Etm_Ite_Descri = $RowT->ITE_DESCRIC;
			 $s_Etm_CodIte = $RowT->ITE_CODIGOI;
			 //
		     $aProEstoque = Produto_Estoque($s_Etm_CodIte+0);
		     $n_Saldo      = @$aProEstoque['EST_SALDOS']+0;
			 $s_Est_SalDos = NUMBER_FORMAT($n_Saldo, 3, '.','');
			 $s_Est_DtaBal = ConvertDataUSBR(@$aProEstoque['EST_DTABAL']);
			 $s_Est_SalBal = NUMBER_FORMAT( (@$aProEstoque['EST_SALBAL']+0), 3, '.','');
			 //
		  } Else {
		     $s_Etm_Ite_Descri = 'Produto não encontrado';
			 $b_Etm_Ite_BT_Grv = False;
			 $s_Etm_CodIte     = '';
		  }
	      $s_Etm_CodIte += 0;
	   }
	   //
	   // Combo do Tipo do movimento
       $sHTML_CombTipEst = '<option value="0">- Nenhum tipo selecionado -</option>';
       $RowsT = MYSQL_QUERY( "SELECT * FROM cad_tipo_movest ORDER BY TME_DESCRI ASC" ) Or Die(MYSQL_ERROR());
       While ($RowT = MYSQL_FETCH_OBJECT($RowsT)) {
	       $bSelecionado = $n_Etm_TipMov==$RowT->TME_CODIGO;
           $sHTML_CombTipEst .= '<option value="'.$RowT->TME_CODIGO.'" '.($bSelecionado ? 'selected' : '').'>'.Str_Zero($RowT->TME_CODIGO,2).' - '.$RowT->TME_DESCRI.'</option>';
		   If ($bSelecionado) {
	          If ($RowT->TME_SALBAL) {
				 $b_dv_Etm_SalBal_T = True;
				 //
				 $aEtm_UltBal = Puxar_UltBal($s_Etm_CodIte+0, False);
				 If ( ISSET($aEtm_UltBal['ETM_QTDMOV']) ) {
				    $n_Saldo = $aEtm_UltBal['ETM_QTDMOV']+0;
				 }
				 //
			     //$s_Est_SalNovT = $n_Saldo+$n_Etm_QtdCnt;  alteração 4388
				 $s_Est_SalNovT = $n_Etm_QtdCnt;
				 $s_Est_SalNovT = NUMBER_FORMAT($s_Est_SalNovT, 3, '.','');
		      } Else {
			     $b_dv_Etm_SalBal_F = True;
				 $sHTML_QtdDescri = ($RowT->TME_ENTSAI ? '( - )' : '( + )');
			     $s_Est_SalNovF = ($RowT->TME_ENTSAI ? $n_Saldo-$n_Etm_QtdMov : $n_Saldo+$n_Etm_QtdMov );
				 $s_Est_SalNovF = NUMBER_FORMAT($s_Est_SalNovF, 3, '.','');
		      }
		   }
       }
	   If ( $b_Etm_Ite_BT_Grv ) {
	      $b_Etm_Ite_BT_Grv = ( $n_Etm_TipMov>0 && ($s_Etm_CodIte+0)>0 );
	   }
	   //
	   // Verificar se existe balanço a ser efetivado
	   $bBotao_BalEfe = False;
	   If (($s_Etm_CodIte+0)==0 && $bDir_FecharB) {
          $sSQLQuery =
		      "SELECT COUNT(*) FROM est_movimento ".
			     "WHERE ETM_CODEMP=".$aSessao['CODIGO_EMPRESA'].
		  		 " AND ETM_DIGBAL ".
		  		 " AND ETM_BALEFE=0;";
          $RowT = MYSQL_QUERY( $sSQLQuery ) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
		  $RowT = MYSQL_FETCH_ARRAY($RowT);
		  $bBotao_BalEfe = $RowT[0]>0;
	   }
	   //
	   //
       $sRet_Javs .=
          "var _fmPMovIte = parent.document.forms.fmPMovIte; ".
		  "_fmPMovIte.Etm_CodIte.value = '".$s_Etm_CodIte."';".
	      "parent.document.getElementById('sEtm_Ite_Descri').innerHTML='".$s_Etm_Ite_Descri."';".
	      "parent.document.getElementById('iEtmIte_Codigo').value='".$s_Etm_CdLIte."';".
	      "parent.document.getElementById('iEtmIte_TipMov').innerHTML=".JAVA_CharCode($sHTML_CombTipEst).";".
		  "parent.document.getElementById('sEst_QtdDcr').innerHTML=".JAVA_CharCode($sHTML_QtdDescri).";".
		  "parent.document.getElementById('sEst_DtaBal').innerHTML='".$s_Est_DtaBal."';".
		  "parent.document.getElementById('sEst_SalBal').innerHTML='".$s_Est_SalBal."';".
		  "parent.document.getElementById('sEst_SalDos').innerHTML='".$s_Est_SalDos."';".
		  "parent.document.getElementById('sEst_SalNovF').innerHTML='".$s_Est_SalNovF."';".
		  "parent.document.getElementById('sEst_SalNovT').innerHTML='".$s_Est_SalNovT."';".
		  "parent.document.getElementById('EtmIte_BT_Grv').style.display='".($b_Etm_Ite_BT_Grv ? 'inline-block' : 'none')."';".
		  "parent.document.getElementById('EtmIte_BT_Bal').style.display='".( $bBotao_BalEfe ? 'inline-block' : 'none')."';".
		  "Dv_SalBal_F = (parent.document.getElementById('dv_Etm_SalBal_F').style.display != 'none');".
		  "Dv_SalBal_T = (parent.document.getElementById('dv_Etm_SalBal_T').style.display != 'none');".
		  "parent.document.getElementById('dv_Etm_SalBal_F').style.display ='".($b_dv_Etm_SalBal_F ? 'inline' : 'none')."';".
		  "parent.document.getElementById('dv_Etm_SalBal_T').style.display ='".($b_dv_Etm_SalBal_T ? 'inline' : 'none')."';".
		  ( $b_dv_Etm_SalBal_F ?
		   "if (! Dv_SalBal_F) {".
		       "parent.document.getElementById('iEtmIte_QtdMov').focus();".
		   "}"
		  : '').
		  ( $b_dv_Etm_SalBal_T ?
		   "if (! Dv_SalBal_T) {".
		       "parent.document.getElementById('iEtmIte_QtdCnt').focus();".
		   "}"
		  : '').
		  $sJava_Final.
		  "";
    //
    // EFETIVAR BALANÇO
    } ElseIf ( $sAcao=="BALEFE" ) {
	   //
	   If ($bDir_FecharB) {
          $sSQLQuery =
                 "SELECT * FROM est_movimento ".
			     "WHERE ETM_CODEMP=".$aSessao['CODIGO_EMPRESA'].
		  		 " AND ETM_DIGBAL ".
		  		 " AND ETM_BALEFE=0;";
          $RowsT = MYSQL_QUERY( $sSQLQuery ) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
		  While ( $RowT = MYSQL_FETCH_OBJECT($RowsT) ) {
			 Produto_Estoque( $RowT->ETM_CODITE, True, $RowT->ETM_QTDMOV, DATE("Y-m-d H:i:s"), $RowT->ETM_QTDMOV);
			 
	      }
		  //
          $sSQLQuery =
                 "UPDATE est_movimento SET ".
				      "ETM_BALEFE=1,".
					  "ETM_DTAMOV='".DATE("Y-m-d H:i:s")."',".
					  "ETM_FUNINC='".$R_CadFuncionario->FUN_CODIGO."' ".
			     "WHERE ETM_CODEMP=".$aSessao['CODIGO_EMPRESA'].
		  		 " AND ETM_DIGBAL ".
		  		 " AND ETM_BALEFE=0;";
          MYSQL_QUERY( $sSQLQuery ) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
		  //
	   }
       $sRet_Javs .=
          "parent.JanEspera(false);".
		  Info_Evento('Balanço efetivado com sucesso.',0).
		  "setTimeout( function () { ".
		     'parent.Car_'.$sNomeAcesso.'1.Limpa_Campos();'.
		     'parent.Car_'.$sNomeAcesso.'1.Atualiza();'.
		  "},100);".
		  "";
    //
    // GRAVAR BALANÇO OU AJUSTE
    } ElseIf ( $sAcao=="GRV" ) {
       $R_MovEst = MYSQL_QUERY( "SELECT * FROM cad_tipo_movest WHERE TME_CODIGO='".$n_Etm_TipMov."';" ) Or Die(MYSQL_ERROR());
	   $bGravar = False;
	   $bFechar = False;
       If ($R_MovEst = MYSQL_FETCH_OBJECT($R_MovEst)) {
	      // Puxar o próximo numero sequencial
          $sSQLQuery = "SELECT ETM_SEQUEN FROM est_movimento ORDER BY ETM_SEQUEN DESC LIMIT 1;";
          $nEtm_Sequen = MYSQL_QUERY( $sSQLQuery ) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
          $nEtm_Sequen = MYSQL_FETCH_ARRAY($nEtm_Sequen);
          $nEtm_Sequen = @$nEtm_Sequen[0]+1;
	      // Puxar o ultimo balanço
		  $aEtm_UltBal = Puxar_UltBal($s_Etm_CodIte+0);
		  $nSal_UltBal = @$aEtm_UltBal['ETM_QTDMOV'];
		  $nDta_UltBal = ConvertDtHrSTR(@$aEtm_UltBal['ETM_DTAMOV']);
		  $sDta_UltBal = '';
		  If ( $nDta_UltBal>0 ) {
		     $sDta_UltBal = DATE("Y-m-d H:i:s",$nDta_UltBal);
		  }
		  // Puxar o saldo
		  $aProEstoque = Produto_Estoque($s_Etm_CodIte+0);
		  $n_Saldo = @$aProEstoque['EST_SALDOS']+0;
		  //
		  //
	      If ( $R_MovEst->TME_SALBAL ) {      // Balanço
		     //
			 $bGravar = ($b_Etm_BalEfe OR ($n_Etm_QtdCnt<>0 && ($s_Etm_CodIte+0)>0) );
			 If ( !$bGravar ) {
                $sRet_Javs .=
		          Info_Evento('BALANÇO: Erro de quantidade nula',1);
		          "";
			 }
			 //
			 If ( $bGravar && $b_Etm_BalEfe && (!$bDir_FecharB) ) {
			    $bGravar = False;
                $sRet_Javs .=
		          Info_Evento('BALANÇO: Você não tem privilégios para<br> efetuar fechamento de balanço.',1);
		          "";
			 }
			 //
             $sSQLQuery =
			     "SELECT * FROM est_movimento WHERE ETM_CODEMP=".$aSessao['CODIGO_EMPRESA'].
				                              " AND ETM_CODITE=".($s_Etm_CodIte+0).
											  " AND ETM_DIGBAL ".
											  " AND ETM_BALEFE=0 ".
				 "ORDER BY ETM_DTAMOV DESC;";
             $Row_EstMov = MYSQL_QUERY( $sSQLQuery ) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
			 If ( $Row_EstMov = MYSQL_FETCH_ARRAY($Row_EstMov) ) {
			    $nEtm_Sequen = $Row_EstMov['ETM_SEQUEN'];
				$n_Saldo     = $Row_EstMov['ETM_QTDMOV'];
				//
			 } Else {
			    $Row_EstMov = ARRAY();
			    $sSQLQuery = 
                   "INSERT INTO est_movimento(".
				      "ETM_SEQUEN, ETM_CODEMP, ETM_CODITE, ETM_DTAMOV, ETM_TIPMOV, ETM_DIGBAL, ETM_DTAFIC, ".
					  "ETM_ULTBAL, ETM_ULTSAL, ETM_BALEFE".
				   ") VALUES (".
				      $nEtm_Sequen.",".
					  $aSessao['CODIGO_EMPRESA'].",".
					  $s_Etm_CodIte.",".
					  "'".DATE("Y-m-d H:i:s")."',".
					  $n_Etm_TipMov.", ".
					  "1,".
					  "'".$sData_Trabalho."',".
					  "'".$sDta_UltBal."',".
					  "'".$nSal_UltBal."',".
					  "0".
				   ");";
				If ($bGravar) {
			       MYSQL_QUERY( $sSQLQuery ) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
				}
				//
			 }
			 //
			 If ($bGravar) {
			    //$n_Saldo = ($n_Saldo+$n_Etm_QtdCnt); //alteração 4388
				$n_Saldo = $n_Etm_QtdCnt;
                $sSQLQuery = 
                   "UPDATE est_movimento SET ".
				       "ETM_QTDMOV='".$n_Saldo."',".
					  ( $b_Etm_BalEfe ?
					   'ETM_BALEFE=1,'.
					   "ETM_DTAMOV='".DATE("Y-m-d H:i:s")."',"
					  : '').
					   "ETM_FUNINC='".$R_CadFuncionario->FUN_CODIGO."' ".
                   "WHERE ETM_CODEMP=".$aSessao['CODIGO_EMPRESA'].
				      " AND ETM_CODITE=".($s_Etm_CodIte+0).
				      " AND ETM_DIGBAL".
				      " AND ETM_BALEFE=0";
                MYSQL_QUERY( $sSQLQuery ) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
				//
				If ($b_Etm_BalEfe) {
				   Produto_Estoque( ($s_Etm_CodIte+0), True, $n_Saldo, DATE("Y-m-d H:i:s"), $n_Saldo);
				}
				$bFechar = True;
				//
			 }
			 //
             //
		  } Else {                            // Ajuste
			 $bGravar = ($n_Etm_QtdMov>0);
			 If ( $bGravar ) {
			    $bGravar = STRLEN($s_Etm_Histor)>2;
			    If ( ! $bGravar ) {
                   $sRet_Javs .=
					  Info_Evento('AJUSTE: Histórico vazio ou muito pequeno.',1).
		              "";
				}
			 } Else {
                $sRet_Javs .=
		          Info_Evento('AJUSTE: Erro de quantidade nula',1).
		          "";
			 }
			 If ($bGravar) {
				If ($R_MovEst->TME_ENTSAI) {
				   $n_Etm_QtdMov = -$n_Etm_QtdMov;
				}
			    SQLIns_Est_Movimento( $s_Etm_CodIte, $n_Etm_QtdMov, 0, 0, $s_Etm_Histor, $n_Etm_TipMov);
				$bFechar = True;
				//
			 }
		  }
	   } Else {
	      // ERRO: Tipo do movimento não encontrado
          $sRet_Javs .=
		    Info_Evento('Tipo do movimento não encontrado',1);
		    "";
	   }
	   If ($bFechar) {
          $sRet_Javs .=
	        'parent.document.getElementById("iEtmIte_Codigo").focus();'.
		    "setTimeout( function () { ".
		       'parent.Car_'.$sNomeAcesso.'1.Limpa_Campos();'.
		       'parent.Car_'.$sNomeAcesso.'1.Atualiza();'.
			"},100);".
			"";
	   }
	   //
	   //
    //
    // FECHAR
    } ElseIf ( $sAcao=="FECHAR" ) {
       $sRet_Javs .=
	      'parent.document.getElementById("dv_MenuL_Barra").style.visibility="visible";'.
	      "parent.RmElem('".$oJanelaPrinc->sIdObj."');";
    //
    // JANELA TELA PRINCIPAL
    } Else {
	   //
	   $oJanelaPrinc->aIdsObjList =
	      ARRAY(
		    'iEtmIte_Codigo','iEtmIte_TipMov', 'iEtmIte_QtdMov', 'iEtmIte_Histor', 'iEtmIte_QtdCnt'
		  );
	   // Confirma fechamento de balanço
	   $sJavClkBalEfe =
		  JAVA_CharCode(
		     "if (_NUM_BOT_==1) { ".
                 "JanEspera(true, 'Efetivando balanço... Aguarde...');".
                 "setTimeout( function() { ".
                    "document.forms.fmPMovIte.acao.value='BALEFE'; ".
    	            "document.forms.fmPMovIte.submit();".
                 "}, ".$nTmpFrmEnv.");".
		  	 "}"
		   );
	   $sJavClkBalEfe =
		  "sIdHasFocus='iEtmIte_Codigo';".
	      "Qdr_Prompt_H(true,'Tem certeza que deseja efetivar balanço de todos os produtos?',".$sJavClkBalEfe.",['Sim','Não']); ";
	   //
       // Tela HTML
	   //
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
          '<form name="fmPMovIte" 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="Etm_TipMov" type="hidden" value="">'.
           '<input name="Etm_CdLIte" type="hidden" value="">'.
           '<input name="Etm_CodIte" type="hidden" value="">'.
           '<input name="Etm_QtdMov" type="hidden" value="">'.
           '<input name="Etm_Histor" type="hidden" value="">'.
           '<input name="Etm_QtdCnt" type="hidden" value="">'.
		   '<input name="Etm_BalEfe" type="hidden" value="">'.
          '</form>'.
          '<form name="fmPMovIteC" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'3">'.
           '<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.'">'.
          '</form>'.
		  // Dados do estoque do produto
       	  '<table width="100%"></tr>'.
       	   '<td width="4px" height="26px" style="font-size:1px;">&nbsp;</td>'.
       	   '<td align="right" width="100px" valign="middle">'.
		    'Produto: '.
		   '</td>'.
       	   '<td align="center" width="40px" valign="middle">'.
       	    HTML_Botao( 3, 'EtmIte_BT_Psq' , 'Car_'.$sNomeAcesso.'1.Limpa_Campos();'.
			                                 "document.getElementById('iEtmIte_Codigo').value='/';".
			                                 'Car_'.$sNomeAcesso.'1.Atualiza();'
			             , ''  ,'images/btimg_lupa.png',24).
		   '</td>'.
       	   '<td align="left" width="55px" valign="middle">'.
       	    '<input id="iEtmIte_Codigo" type="text" maxlength="6" style="width:98%; height:22px; background:#FFFBEC; border-width:1px; border-style:solid; border-color:#0099FF;" onchange="Car_'.$sNomeAcesso.'1.Atualiza();">'.
		   '</td>'.
       	   '<td align="left" width="200px">'.
		    '<span id="sEtm_Ite_Descri" style="font-size:11px; font-weight:bold;">(Produto)</span>'.
		   '</td>'.
       	   '<td>&nbsp;</td>'.
       	   '<td width="4px" style="font-size:1px;">&nbsp;</td>'.
       	  '</tr></table>'.
		  //
       	  '<table width="100%"></tr>'.
       	   '<td width="4px" height="26px" style="font-size:1px;">&nbsp;</td>'.
       	   '<td align="right" width="100px" valign="middle">'.
		    'Saldo Atual: '.
		   '</td>'.
       	   '<td align="left" width="40px" valign="middle">'.
		    '<span id="sEst_SalDos" style="font-size:12px; font-weight:bold;"></span>'.
		   '</td>'.
       	   '<td align="right" width="110px" valign="middle">'.
		    'Data do útimo balanço: '.
		   '</td>'.
       	   '<td align="left" width="60px" valign="middle">'.
		    '<span id="sEst_DtaBal" style="font-size:12px; font-weight:bold;">00/00/0000</span>'.
		   '</td>'.
       	   '<td align="right" width="140px" valign="middle">'.
		    'Saldo do útimo balanço: '.
		   '</td>'.
       	   '<td align="left" width="40px" valign="middle">'.
		    '<span id="sEst_SalBal" style="font-size:12px; font-weight:bold;"></span>'.
		   '</td>'.
       	   '<td>&nbsp;</td>'.
       	   '<td width="4px" style="font-size:1px;">&nbsp;</td>'.
       	  '</tr></table>'.
		  // Tipo do movimento
		  '<div style="width:100%; height:1px; background-color:#91D8F8;"></div>'.
       	  '<table width="100%"></tr>'.
       	   '<td width="4px" height="26px" style="font-size:1px;">&nbsp;</td>'.
       	   '<td align="right" width="100px" valign="middle">'.
		    'Tipo do movimento: '.
		   '</td>'.
       	   '<td align="left" width="380px" valign="middle">'.
			 '<select id="iEtmIte_TipMov" style="width:100%; font-family:Courier;" onchange="Car_'.$sNomeAcesso.'1.Atualiza();">'.
			  '<option value="0">Aguarde...</option>'.
			 '</select>'.
		   '</td>'.
       	   '<td>&nbsp;</td>'.
       	   '<td width="4px" style="font-size:1px;">&nbsp;</td>'.
       	  '</tr></table>'.
		  // Ajuste de estoque (False)
		  '<div id="dv_Etm_SalBal_F" style="display:none;">'.
       	   '<table width="100%"></tr>'.
       	    '<td width="4px" height="26px" style="font-size:1px;">&nbsp;</td>'.
       	    '<td align="right" width="100px" valign="middle">'.
		     'Quantidade: '.
		    '</td>'.
       	    '<td align="left" width="55px" valign="middle">'.
       	     '<input id="iEtmIte_QtdMov" type="text" maxlength="6" style="width:98%; height:22px; background:#FFFBEC; border-width:1px; border-style:solid; border-color:#0099FF;" onchange="Car_'.$sNomeAcesso.'1.Atualiza();">'.
		    '</td>'.
       	    '<td align="left" width="60px" valign="middle">'.
		     '<span id="sEst_QtdDcr" style="font-size:12px; font-weight:bold;"></span>'.
		    '</td>'.
       	    '<td>&nbsp;</td>'.
       	    '<td align="right" width="140px" valign="middle">'.
		     'Novo saldo: '.
		    '</td>'.
       	    '<td align="left" width="46px" valign="middle">'.
		     '<span id="sEst_SalNovF" style="font-size:12px; font-weight:bold;"></span>'.
		    '</td>'.
       	    '<td width="4px" style="font-size:1px;">&nbsp;</td>'.
       	   '</tr></table>'.
		   //
       	   '<table width="100%"></tr>'.
       	    '<td width="4px" height="26px" style="font-size:1px;">&nbsp;</td>'.
       	    '<td align="right" width="100px" valign="middle">'.
		     'Histórico: '.
		    '</td>'.
       	    '<td align="left" width="380px" valign="middle">'.
       	     '<input id="iEtmIte_Histor" type="text" maxlength="60" style="width:100%; height:22px; background:#FFFBEC; border-width:1px; border-style:solid; border-color:#0099FF;">'.
		    '</td>'.
       	    '<td>&nbsp;</td>'.
       	    '<td width="4px" style="font-size:1px;">&nbsp;</td>'.
       	   '</tr></table>'.
		  '</div>'.
		  // Balanço (True)
		  '<div id="dv_Etm_SalBal_T" style="display:none;">'.
       	   '<table width="100%"></tr>'.
       	    '<td width="4px" height="26px" style="font-size:1px;">&nbsp;</td>'.
       	    '<td align="right" width="100px" valign="middle">'.
		     'Qtd. da contagem: '.
		    '</td>'.
       	    '<td align="left" width="55px" valign="middle">'.
       	     '<input id="iEtmIte_QtdCnt" type="text" maxlength="6" style="width:98%; height:22px; background:#FFFBEC; border-width:1px; border-style:solid; border-color:#0099FF;" onchange="Car_'.$sNomeAcesso.'1.Atualiza();">'.
		    '</td>'.
       	    '<td align="right" width="60px" valign="middle">'.
			  //( $bDir_FecharB ?
			  //'<input type="checkbox" id="iEtmIte_BalEfe" value="1">'
			  //: '').
		    '</td>'.
       	    '<td>'.
			 '&nbsp;'.
			 //( $bDir_FecharB ? 'Efetivar balanço' : '').
			'</td>'.
       	    '<td align="right" width="140px" valign="middle">'.
		     'Novo saldo: '.
		    '</td>'.
       	    '<td align="left" width="46px" valign="middle">'.
		     '<span id="sEst_SalNovT" style="font-size:12px; font-weight:bold;"></span>'.
		    '</td>'.
       	    '<td width="4px" style="font-size:1px;">&nbsp;</td>'.
       	   '</tr></table>'.
		  '</div>'.
		  //
       	  '<table width="100%" style="background-color:'.$sCorBarraInf.';"></tr>'.
       	   '<td width="4px" height="40px" align="left">&nbsp;</td>'.
       	   '</td>'.
       	   '<td>'.
       	    HTML_Botao( 3, 'EtmIte_BT_Grv' , 'Car_'.$sNomeAcesso.'1.Carga_Campos();'.
			                                 "document.forms.fmPMovIte.acao.value='GRV'; ".
    	                                     "document.forms.fmPMovIte.submit();"
			             , 'Gravar (F10)'  ,'images/btimg_salvar.png').
       	   '</td>'.
       	   '<td width="180px" align="left">'.
       	    HTML_Botao( 3, 'EtmIte_BT_Bal',  $sJavClkBalEfe
                         , 'Efetivar Balanço (F8)' ,'images/btimg_docs.png',160).
       	   '</td>'.
       	   '<td width="124px" align="left">'.
       	 //   HTML_Botao( 3, 'EtmIte_BT_Fch', $oJanelaPrinc->sJavOnClickF
         //                , 'Sair (ESC)' ,'images/btimg_fechar.png').
              HTML_Botao( 3, 'EtmIte_BT_Fch', 'Car_'.$sNomeAcesso.'1.V_Sair();'
                           , 'Sair (ESC)' ,'images/btimg_fechar.png').
       	   '</td>'.
       	  '</tr></table>'.
    	  $oJanelaPrinc->MontaJanHTML(False);
       //
	   // Java inicial
       $sRet_Javs .=
		  'parent.document.getElementById("dv_MenuL_Barra").style.visibility="hidden";'.
		  //
		  "function Teclas_F( Objeto, Evento ) {".
             "vNumTecla = parent.Tecla_Apertada(Evento);".
             "if ( vNumTecla==121) { ".        //  ** [F10] **        (Gravar)
			     "if (parent.document.getElementById('EtmIte_BT_Grv').style.display != 'none') { ".
                     "setTimeout( parent.document.getElementById('EtmIte_BT_Grv').onclick , 100);".
				 "}".
             "} else if ( vNumTecla==119) { ".        //  ** [F8] **         (Efetivar Balanço)
			     "if (parent.document.getElementById('EtmIte_BT_Bal').style.display != 'none') { ".
                     "setTimeout( parent.document.getElementById('EtmIte_BT_Bal').onclick , 100);".
				 "}".
		     "} else if ( vNumTecla==116) { ".  // ** [F5] **         Não atualizar
                 //
		     "} else if ( vNumTecla==27) { ".  //  ** [ESC] **       (SAIR)
                 "setTimeout( parent.document.getElementById('EtmIte_BT_Fch').onclick , 100);".
		     "} else if ( vNumTecla==13) { ".
			     "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("iEtmIte_Codigo").focus();'.
						'break;'.
				    "}".
				 "}".
			     //
			 "} else {".
			     "return true;".
			 "}".
			 "return false;".
		  '}'.
		  //
 	      "";
       // Java posterior
       $sRet_JavsPos .=
	      'parent.document.getElementById("iEtmIte_Codigo").focus();'.
		  "parent.document.getElementById('EtmIte_BT_Bal').style.display='none';".
		  //
		  "function Limpa_Campos() {".
			 //"parent.document.getElementById('iEtmIte_TipMov').value = '0';".
			 "parent.document.getElementById('iEtmIte_Codigo').value = '';".
			 "parent.document.getElementById('iEtmIte_QtdMov').value = '';".
			 "parent.document.getElementById('iEtmIte_Histor').value = '';".
			 "parent.document.getElementById('iEtmIte_QtdCnt').value = '';".
		  "}".
		  "function Carga_Campos() {".
	         "var _fmPMovIte = parent.document.forms.fmPMovIte; ".
			 "_fmPMovIte.Etm_TipMov.value = parent.document.getElementById('iEtmIte_TipMov').value;".
			 //"_fmPMovIte.Etm_CodIte.value = parent.document.getElementById('iEtmIte_Codigo').value;".
			 "_fmPMovIte.Etm_CdLIte.value = parent.document.getElementById('iEtmIte_Codigo').value;".
			 "_fmPMovIte.Etm_QtdMov.value = parent.document.getElementById('iEtmIte_QtdMov').value;".
			 "_fmPMovIte.Etm_Histor.value = parent.document.getElementById('iEtmIte_Histor').value;".
			 "_fmPMovIte.Etm_QtdCnt.value = parent.document.getElementById('iEtmIte_QtdCnt').value;".
			 //"if (parent.document.getElementById('iEtmIte_BalEfe').checked) {".
			 //    "_fmPMovIte.Etm_BalEfe.value = '1';".
			 //"} else {".
			 //    "_fmPMovIte.Etm_BalEfe.value = '0';".
			 //"}".
		  "}".
	      "function Atualiza() {".
			 //"parent.document.getElementById('dv_Etm_SalBal_F').style.display = 'none';".
			 //"parent.document.getElementById('dv_Etm_SalBal_T').style.display = 'none';".
			 "Carga_Campos();".
	         "var _fmPMovIte = parent.document.forms.fmPMovIte; ".
			 "_fmPMovIte.acao.value = 'ATUALIZA'; ".
			 "_fmPMovIte.submod.value = ''; ".
    	     "_fmPMovIte.submit();".
		  "}".
		  "function V_Sair() {".
	         "if (parent.document.getElementById('EtmIte_BT_Bal').style.display != 'none') { ".
			    "parent.Qdr_Prompt_H(true,".
			       "'Existe(m) produto(s) para serem efetivado(s) balanço.<br> Tem certeza que deseja sair ?',".
		           JAVA_CharCode(
		              "if (_NUM_BOT_==1) {".
				         $oJanelaPrinc->sJavOnClickF.
				      "} else {".
				        
				      "}"
				      ).",".
				 "['Sim','Não']".
			    ");".
			  
			  
			  
			  
			  
		  "} else {".
			    $oJanelaPrinc->sJavOnClickF.
			 "}".
		  
		  "}".
		  
		  "Atualiza();".
		  '';
    }
}

?>