<?php
REQUIRE_ONCE "./global/est_funcoes.inc";
$bDir_Consult = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'C');   // Consultar documento
$bDir_Incluir = CondPrivilegio(@$s_DireitosLst, $sNomeAcesso, 'I');   // Incluir documento
$sData_Trabalho = SQLVarConfig('DATA_DE_TRABALHO');
$sNomeIdJPrin = "iJan_EstEntDoc";
$sNomeIdJItem = "iJan_EstEntIte";
$sCorBarraInf = '#E8E3CE';
$nVir_Idn_Etd = 600000;
$nMaxParcelas = 13;
// Capturar matrizes de trabalho
$aEtn_Geral = @$aSessao['ETN_GERAL'];
$aEtn_Itens = @$aSessao['ETN_ITENS'];

$aQuadrosAds    = ARRAY('CADFOR' => 10);
//
//  ** PRINCIPAL **
If ( EMPTY($sSubModulo) ) {
   // Criar objeto Janela
   $oJan = New R_Janela();
   $oJan->sIdObj  = $sNomeIdJPrin;
   $oJan->nWidth  = 880;   // Largura
   $oJan->nHeight = 0;     // Altura
   $oJan->nTop    = 5;
   $oJan->nLeft   = 0;
   $oJan->nLeft  += ($nTela_W/2)-($oJan->nWidth/2);
   $oJan->sTitulo = 'Entrada de estoque';
   $oJan->sJavKeyDown = "return Car_".$sNomeAcesso."1.Teclas_F(this,event);";
   //
   $sJavaTravarJ = "parent.document.getElementById('".$oJan->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJan->sIdObj."',true);";
   $oJan->sJavOnClickF = 
       $sJavaTravarJ.
   	   "parent.document.forms.fmPEstDocH.acao.value='FECHAR'; ".
   	   "parent.document.forms.fmPEstDocH.submod.value=''; ".
   	   "parent.document.forms.fmPEstDocH.submit();".
   	   "";
   // Criar objeto GRID
   $oTabItem = New Pad_GridPesq();
   $oTabItem->sIdObjTabela   = 'iQdr_ListaEtd';
   $oTabItem->sNomeTabela    = 'Est_Entrada';
   $oTabItem->bUsarSoMatriz  = True;
   $oTabItem->GLstCampos( 'ITE_CODIGOL,Código,54px,STRZERO=6;'.
   			              'ITE_DESCRIC,Descrição do produto;'.
   			              'ETD_QTD_ITE,Quantidade,80px,DECIMAL=3;'.
   			              'ITE_UNIDADE,UN,20px;'.
   			              'ETD_UNI_ITE,Preço unitário,86px,MOE;'.
   			              'ETD_TOT_ITE,Preço total,90px,MOE;'.
   			              'ETD_DSP_VAL,Acrécimo por item,70px,MOE;'.
   			              'ETD_VAL_TOT,Preço uni. com acréscimo,90px,MOE;'
						  );
   $oTabItem->sCampoIndice   = 'ETD_IDN_ETD';
   $oTabItem->nWidth         = $oJan->nWidth;
   $oTabItem->nHeight        = 210;    // Altura
   $oTabItem->sCampoOnClick  = "Car_".$sNomeAcesso."1.P_Sel(<NUMCAM>); Car_".$sNomeAcesso."1.P_Atu();";
   $oTabItem->sLinhaOnClick  = "Car_".$sNomeAcesso."1.PRow_Sel(<QTDCOL>,<SELLIN>);";
   $oTabItem->sLinhaOnDblClk = "if ( parent.document.getElementById('oDoc_Ite_AdcLst').style.display!='none' ) {".
                                   $sJavaTravarJ.
                                   "Car_".$sNomeAcesso."1.Edt_Item(Car_".$sNomeAcesso."1.sSelIndice);".
							   "}";
   $oTabItem->sJavSelectReg  = "sSelIndice = S_Indice;".
                               "if (parseInt(sSelIndice)>0 && parent.document.getElementById('oDoc_Ite_AdcLst').style.display!='none') {".
                                   "parent.document.getElementById('oDoc_Ite_DelLst').style.display='inline-block';".
                                   "parent.document.getElementById('oDoc_Ite_EdtLst').style.display='inline-block';".
							   "}".
                               'parent.document.getElementById("iDoc_TabItem_Tecla").focus();';
   //
   // >> Inicial
   If ( EMPTY($sAcao) ) {
      //
	  $aEtn_Geral = ARRAY();   $aEtn_Itens = ARRAY();
	  $aEtn_Geral['ETG_IDN_ETG'] = "______";
	  //
	  // Montar html de select de funcionarios
	  $sHTML_LstFuncs = '<option value="0">-- Nenhum --</option>';
	  $RowsT = MYSQL_QUERY("SELECT * FROM cad_funcionario WHERE FUN_ATIVO_;") or die(MYSQL_ERROR());
	  While ( $RowT = MYSQL_FETCH_OBJECT($RowsT) ) {
	     If ( $RowT->FUN_CODIGO > 9990 ) { CONTINUE; }
	     $sHTML_LstFuncs .=
	        '<option value="'.$RowT->FUN_CODIGO.'">'.
	           Str_Zero($RowT->FUN_CODIGO,4).' - '.$RowT->FUN_NOMECP.
	        '</option>';
	  }
	  // Montar html de select de espécies de documento
	  $sHTML_LstEspDc = '';
	  $RowsT = MYSQL_QUERY("SELECT * FROM cad_especie_doc;") or die(MYSQL_ERROR());
	  While ( $RowT = MYSQL_FETCH_OBJECT($RowsT) ) {
	     $sHTML_LstEspDc .=
	        '<option value="'.$RowT->ESP_IDN_ESP.'">'.
	           Str_Zero($RowT->ESP_IDN_ESP,2).' - '.$RowT->ESP_DESCRIC.
	        '</option>';
	  }
      //
      // lista dos objetos na janela
      $oJan->aIdsObjList =
          ARRAY( 'iDoc_Etg_IdN'      , 'iDoc_Etg_RCodOpe', 'iDoc_Etg_Cod_For',
		         'iDoc_Etg_Esp_Doc'  , 'iDoc_Etg_DataEms', 'iDoc_Etg_NFiscal', 'iDoc_Etg_NFSerie',
				 'iDoc_Etg_NFChave'  ,
				 'iDoc_TabItem_Tecla',
				 'iDoc_Etg_Vl_ICMS'  , 'iDoc_Etg_Vl_IPI_', 'iDoc_Etg_V_Frete', 'iDoc_Etg_Val_Des',
				 'iDoc_Etg_Observa'
               );
      //
	  // Montagem dos campos das parcelas
	  $sHTML_Parcelas1 = '';
	  $sHTML_Parcelas2 = '';
	  FOR ($nParcela=1; $nParcela<=$nMaxParcelas; $nParcela++) {
	      $aIdObj_Venci = "iDoc_CTP_Venci".$nParcela;
	      $aIdObj_Valor = "iDoc_CTP_Valor".$nParcela;
		  $oJan->aIdsObjList[] = $aIdObj_Venci;
		  $oJan->aIdsObjList[] = $aIdObj_Valor;
		  //
	      $sHTML_TempPar =
	  		 '<table>'.
			  '<tr>'.
			   '<td height="22px" width="180px" align="left">'.
			    '<strong>'.$nParcela.'º</strong> parcela com vencimento em '.
			   '</td>'.
			   '<td width="84px" align="center">'.
			    '<input id="'.$aIdObj_Venci.'" name="CTP_DTAVEN'.$nParcela.'" type="text" maxlength="10" style="width:80px; height:21px; text-align:center;">'.
			   '</td>'.
			   '<td width="80px" align="left">'.
			    ', com valor de'.
			   '</td>'.
			   '<td>'.
			    '<input id="'.$aIdObj_Valor.'" name="CTP_VALDUP'.$nParcela.'" type="text" maxlength="8" style="width:70px; height:21px; text-align:right; font-weight:bold; color:#550000;" onchange="Car_'.$sNomeAcesso.'1.Valida_EtnGeral();">'.
			   '</td>'.
			  '</tr>'.
			 '</table>';
		  If ( $nParcela<=6 ) {
		     $sHTML_Parcelas1 .= $sHTML_TempPar;
		  } Else {
		     $sHTML_Parcelas2 .= $sHTML_TempPar;
		  }
	  }
	  //
      // montar janela HTML
      $sRet_TelaJ_HTML =
	     // 1º linha
       	 '<table width="100%">'.
		  '<tr>'.
           '<td align="left">'.
		    '<span class="Titulo">Nr. Controle</span>'.
		   '</td>'.
		   '<td width="6px"></td>'.
           '<td align="left">'.
		    '<span class="Titulo">Recebido por</span>'.
		   '</td>'.
		   '<td width="6px"></td>'.
           '<td align="left">'.
		    '<span class="Titulo">Fornecedor</span>'.
		   '</td>'.
		  '</tr>'.
		  // campos
		  '<tr>'.
		   '<td valign="middle">'.
		    // -- campo do número de controle
       	    '<table width="100%"><tr>'.
			 '<td>'.
       	      '<input id="iDoc_Etg_IdN" name="ETG_IDN_ETG" type="text" maxlength="7" style="width:62px;" onchange="Car_'.$sNomeAcesso.'1.Volta_EtnGeral();">'.
			 '</td>'.
			 '<td align="left">'.
       	      HTML_Botao( 3, 'oDoc_Psq_Etg_Id', "document.getElementById('iDoc_Etg_IdN').value='/';".
			                                    "Car_".$sNomeAcesso."1.Conf_EtnGeral();"
			               , ''  ,'images/btimg_lupa.png',20).
			 '</td>'.
       	    '</tr></table>'.
			// --
		   '</td>'.
		   '<td></td>'.
		   '<td valign="middle">'.
		    // -- campo do operador que recebeu o documento
       	    '<table width="100%"><tr>'.
			 '<td>'.
			  '<select id="iDoc_Etg_RCodOpe" name="ETG_RCODOPE" style="width:176px;" onchange="Car_'.$sNomeAcesso.'1.Valida_EtnGeral();">'.
			   $sHTML_LstFuncs.
			  '</select>'.
			    '<span style="font-size:18px;color:#FF0000;">'.
			       '&nbsp;&nbsp;'.
	    	       '*'.
		        '</span>'.
			 '</td>'.
       	    '</tr></table>'.
			// --
		   '</td>'.
		   '<td></td>'.
		   '<td valign="middle">'.
		    // -- campo do fornecedor
       	    '<table width="100%"><tr>'.
			 '<td>'.
       	      '<input id="iDoc_Etg_Cod_For" name="ETG_COD_FOR" type="text" maxlength="4" style="width:38px;" onchange="Car_'.$sNomeAcesso.'1.Valida_EtnGeral(); Car_'.$sNomeAcesso.'1.Puxar_For();">'.
			 '</td>'.
			 '<td>'.
       	      '<input id="iDoc_For_Descric" type="text" style="width:300px;" readonly>'.
			  '<span style="font-size:18px;color:#FF0000;">'.
			     '&nbsp;&nbsp;'.
	    	     '*'.
		      '</span>'.
			 '</td>'.
			 '<td align="left">'.
       	      HTML_Botao( 3, 'oDoc_Psq_CodFor', "document.getElementById('iDoc_Etg_Cod_For').value='/';".
			                                    'Car_'.$sNomeAcesso.'1.Puxar_For();'
			               , ''  ,'images/btimg_lupa.png',20).
			 '</td>'.
       	    '</tr></table>'.
			// --
		   '</td>'.
		  '</tr>'.
		 '</table>'.
	     // 2º linha
       	 '<table width="100%">'.
		  '<tr>'.
           '<td align="left">'.
		    '<span class="Titulo">Espécie do documento</span>'.
		   '</td>'.
		   '<td width="6px"></td>'.
           '<td align="center">'.
		    '<span class="Titulo_N">Emissão</span>'.
		   '</td>'.
		   '<td width="6px"></td>'.
           '<td align="center">'.
		    '<span class="Titulo_N">Entrada</span>'.
		   '</td>'.
		   '<td width="6px"></td>'.
           '<td align="center">'.
		    '<span class="Titulo_N">Nr. do DOC</span>'.
		   '</td>'.
		   '<td width="6px"></td>'.
           '<td align="center">'.
		    '<span class="Titulo_N">Série</span>'.
		   '</td>'.
		  '</tr>'.
		  // campos
		  '<tr>'.
		   '<td valign="middle">'.
		    // -- campo da espécie do documento
			 '<select id="iDoc_Etg_Esp_Doc" name="ETG_ESP_DOC" onchange="Car_'.$sNomeAcesso.'1.Valida_EtnGeral();">'.
			  $sHTML_LstEspDc.
			 '</select>'.
			// --
		   '</td>'.
		   '<td></td>'.
		   '<td valign="middle">'.
		    // -- campo da data de emissão
       	    '<table width="100%">'.
		     '<tr>'.
		      '<td width="28px" align="center">'.
		       '<img src="images/bimg_calendario.png" border="0" id="iDoc_Img_DataEms" style="cursor:pointer;">'.
		      '</td>'.
		      '<td>'.
       	       '<input id="iDoc_Etg_DataEms" name="ETG_DATAEMS" type="text" maxlength="10" style="text-align:center; width:80px;" onchange="Car_'.$sNomeAcesso.'1.Valida_EtnGeral();">'.
		      '</td>'.
			 '</tr>'.
			'</table>'.
			// --
		   '</td>'.
		   '<td></td>'.
		   '<td valign="middle">'.
		    // -- campo da data de entrada
       	     '<input id="iDoc_Etg_DataEnt" type="text" maxlength="10" readonly style="text-align:center; width:100px">'.
			// --
		   '</td>'.
		   '<td></td>'.
		   '<td valign="middle">'.
		    // -- campo do número do documento (Número da Nota Fiscal)
       	     '<input id="iDoc_Etg_NFiscal" name="ETG_NFISCAL" type="text" maxlength="13" style="text-align:center; width:110px" onchange="Car_'.$sNomeAcesso.'1.Valida_EtnGeral();">'.
			// --
		   '</td>'.
		   '<td></td>'.
		   '<td valign="middle">'.
		    // -- campo da série do documento (Nota Fiscal)
       	     '<input id="iDoc_Etg_NFSerie" name="ETG_NFSERIE" type="text" maxlength="1" style="text-align:center; width:40px" onchange="Car_'.$sNomeAcesso.'1.Valida_EtnGeral();">'.
			 '<span style="font-size:18px;color:#FF0000;">'.
			     '&nbsp;&nbsp;'.
	    	     '*'.
		      '</span>'.
			// --
		   '</td>'.
		  '</tr>'.
		 '</table>'.
	     // 3º linha
       	 '<table width="100%">'.
		  '<tr>'.
           '<td align="left">'.
		    '<span class="Titulo">Chave</span>'.
		   '</td>'.
		  '</tr>'.
		  // campos
		  '<tr>'.
		     '<td valign="middle">'.
		     // -- campo da chave (Nota Fiscal)
       	        '<input id="iDoc_Etg_NFChave" name="ETG_NFCHAVE" type="text" maxlength="46" style="text-align:center; width:96%" onchange="Car_'.$sNomeAcesso.'1.Valida_EtnGeral();">'.
			    '<span style="font-size:18px;color:#FF0000;">'.
			       '&nbsp;&nbsp;'.
	    	       '*'.
		        '</span>'.
			// --
		   '</td>'.
		  '</tr>'.
		 '</table>'.
		 // Divisão
         '<div style="height:5px;"></div>'.
         '<div style="width:100%; height:1px; background-color:#91D8F8;"></div>'.
         '<div style="height:5px;"></div>'.
	     // 4º linha
       	 '<table width="100%">'.
		  '<tr>'.
           '<td align="left">'.
		    'Produtos'.
		   '</td>'.
           '<td width="124px" align="right">'.
       	     HTML_Botao( 3, 'oDoc_Ite_DelLst', "Car_".$sNomeAcesso."1.Del_Item(Car_".$sNomeAcesso."1.sSelIndice);"
			              , 'Excluir (DEL)'  ,'images/btimg_remover_2.png', 112).
		   '</td>'.
           '<td width="124px" align="right">'.
       	     HTML_Botao( 3, 'oDoc_Ite_EdtLst', $sJavaTravarJ.
			                                   "Car_".$sNomeAcesso."1.Edt_Item(Car_".$sNomeAcesso."1.sSelIndice);"
			              , 'Editar (F2)'    ,'images/btimg_editar.png'   , 102).
		   '</td>'.
           '<td width="154px" align="right">'.
       	     HTML_Botao( 3, 'oDoc_Ite_AdcLst', $sJavaTravarJ.
			                                   "Car_".$sNomeAcesso."1.Edt_Item('_NOVO_');"
			              , 'Adicionar (INS)','images/btimg_novo.png'     , 132).
		   '</td>'.
		  '</tr>'.
		 '</table>'.
		 // 5º Linha
         '<div style="height:5px;"></div>'.
	     '<input id="iDoc_TabItem_Tecla" style="position:absolute; top:-100; left:-100; width:1px; height:1px;">'.
		 $oTabItem->MontaDivHtml().
         '<div style="height:5px;"></div>'.
		 // 6º Linha -- Guias
		 MontarGuiasHTML('Guias_DocEtg', "width:100%; height:170px;",
		 // => TOTAIS
	     '** [{Totais}] **'.
       	  '<table width="100%">'.
		   '<tr>'.
            '<td>'.
            '</td>'.
            '<td width="260px" align="right" valign="top">'.
			 //
       	     '<table>'.
		      '<tr>'.
               '<td width="140px" align="right">'.
       	        'Valor do ICMS:'.
		       '</td>'.
               '<td width="120px" align="left">'.
       	        '<input id="iDoc_Etg_Vl_ICMS" name="ETG_VL_ICMS" type="text" style="text-align:right; width:100%;" onchange="Car_'.$sNomeAcesso.'1.Valida_EtnGeral();">'.
		       '</td>'.
		      '</tr>'.
		      '<tr>'.
               '<td align="right">'.
       	        'Valor do IPI:'.
		       '</td>'.
               '<td align="left">'.
       	        '<input id="iDoc_Etg_Vl_IPI_" name="ETG_VL_IPI_" type="text" style="text-align:right; width:100%;" onchange="Car_'.$sNomeAcesso.'1.Valida_EtnGeral();">'.
		       '</td>'.
		      '</tr>'.
		      '<tr>'.
               '<td align="right">'.
       	        'Valor do frete:'.
		       '</td>'.
               '<td align="left">'.
       	        '<input id="iDoc_Etg_V_Frete" name="ETG_V_FRETE" type="text" style="text-align:right; width:100%;" onchange="Car_'.$sNomeAcesso.'1.Valida_EtnGeral();">'.
		       '</td>'.
		      '</tr>'.
			 '</table>'.
			 //
            '</td>'.
            '<td width="260px" align="right">'.
			 //
       	     '<table>'.
		      '<tr>'.
               '<td width="140px" align="right">'.
       	        'Valor total dos itens:'.
		       '</td>'.
               '<td width="120px" align="left">'.
       	        '<input id="iDoc_Etg_I_Total" type="text" readonly style="text-align:right; width:100%;">'.
		       '</td>'.
		      '</tr>'.
		      '<tr>'.
               '<td align="right">'.
       	        'Total das despesas:'.
		       '</td>'.
               '<td align="left">'.
       	        '<input id="iDoc_Etg_Despesa" type="text" readonly style="text-align:right; width:100%;">'.
		       '</td>'.
		      '</tr>'.
		      '<tr>'.
               '<td align="right">'.
       	        'Desconto:'.
		       '</td>'.
               '<td align="left">'.
       	        '<input id="iDoc_Etg_Val_Des" name="ETG_VAL_DES" type="text" style="text-align:right; width:100%; color:#0000AA;" onchange="Car_'.$sNomeAcesso.'1.Valida_EtnGeral();">'.
		       '</td>'.
		      '</tr>'.
		      '<tr>'.
               '<td align="right">'.
       	        'Valor total:'.
		       '</td>'.
               '<td align="left">'.
       	        '<input id="iDoc_Etg_D_Total" type="text" readonly style="text-align:right; width:100%; font-weight:bold;">'.
		       '</td>'.
		      '</tr>'.
		     '</table>'.
			 //
		    '</td>'.
		   '</tr>'.
		  '</table>'.
         '** {[FIM]} **'.
		 // => CONTAS Á PAGAR
	     '** [{Contas á pagar}] **'.
       	  '<table width="100%">'.
		   '<tr>'.
            '<td width="50%">'.
			 //
			 '<table>'.
			  '<tr>'.
			   '<td height="28px" align="right" valign="middle">'.
			    //'Valor total das parcelas '.
				'Total da Nota '.
				'<span id="sDoc_Total_ValDup" style="font-weight:bold; color:#880000; font-size:16px;">0,00</span>'.
			   '</td>'.
			   '<td height="28px" align="right" valign="middle">'.
			    '&nbsp;&nbsp;&nbsp;&nbsp;Falta Receber '.
				'<span id="sDoc_Total_ValRes" style="font-weight:bold; color:#880000; font-size:16px;">0,00</span>'.
			   '</td>'.
			   
			   
			  '</tr>'.
			 '</table>'.
			 $sHTML_Parcelas1.
			 //
            '</td>'.
            '<td>'.
			 //
			 $sHTML_Parcelas2.
			 //
            '</td>'.
		   '</tr>'.
		  '</table>'.
         '** {[FIM]} **'.
		 // => OBSERVAÇÕES
	     '** [{Observações}] **'.
		  '<textarea id="iDoc_Etg_Observa" name="ETG_OBSERVA" style="text-align:left; width:100%; height:75px;" onchange="Car_'.$sNomeAcesso.'1.Valida_EtnGeral();"></textarea>'.
         '** {[FIM]} **'
		 ).
		 '';
	  //
      $sRet_TelaJ_HTML =
         $oJan->MontaJanHTML(True).
		 '<style type="text/css" rel="stylesheet">'.
          '.EstDocEnt table {'.
		    'margin-left:0px; margin-top:0px; margin-right:0px; margin-bottom:0px; padding:0px; border-spacing:0px;'.
			'color:#222222;'.
			'font-family: "arial";'.
			'font-size:12px;'.
		  '}'.
          '.EstDocEnt span.Titulo {'.
		    'display:inline-block;'.
			'position:relative;'.
			'left:6px;'.
		  '}'.
          '.EstDocEnt span.Titulo {'.
		    'display:inline-block;'.
			'position:relative;'.
		  '}'.
          '.EstDocEnt input,select {'.
		    'display:inline-block;'.
		    'height:24px;'.
			'color:#000000;'.
			'font-family: "arial";'.
			'font-size:14px;'.
			'background:#FFFFFF;'.
			'border-width:1px;'.
			'border-style:solid;'.
			'border-color:#D6D0AE;'.
          '}'.
          '.EstDocEnt input:read-only {'.
			'background:#F0EFE8;'.
			'border-color:#DBDAD2;'.
          '}'.
		 '</style>'.
         '<form name="fmPEstDocH" 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="'.$sSubModulo.'">'.
          '<input name="acao" type="hidden" value="">'.
          '<input name="nomeacs" type="hidden" value="'.$sNomeAcesso.'">'.
          '<input name="ETD_IDN_ETD" type="hidden" value="">'.
          '<input name="Fil_Num_Cam" type="hidden" value="">'.
         '</form>'.
		 '<div style="width:100%; height:610px; overflow:hidden;">'.
         '<form name="fmPEstDocV" 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="'.$sSubModulo.'">'.
          '<input name="acao" type="hidden" value="">'.
          '<input name="nomeacs" type="hidden" value="'.$sNomeAcesso.'">'.
       	  '<table width="'.($oJan->nWidth-8).'px" class="EstDocEnt">'.
		   '<tr>'.
       	    '<td width="4px" style="font-size:1px;">&nbsp;</td>'.
       	    '<td align="left">'.
		     $sRet_TelaJ_HTML.
		    '</td>'.
       	    '<td width="4px" style="font-size:1px;">&nbsp;</td>'.
		   '</tr>'.
		  '</table>'.
         '</form>'.
		 '</div>'.
		 // Divisão
         '<div style="height:5px;"></div>'.
         '<div style="width:100%; height:1px; background-color:#91D8F8;"></div>'.
         '<div style="height:5px;"></div>'.
		 // Barra inferior
       	 '<table width="100%" style="background-color:'.$sCorBarraInf.';">'.
		  '<tr>'.
           '<td width="8px"></td>'.
           '<td width="134px" align="right" valign="center">'.
       	     HTML_Botao( 3, 'oDoc_EfeEtg', "Car_".$sNomeAcesso."1.Efetivar_EtnGeral();"
			              , 'Efetivar (F12)'   ,'images/btimg_ativar.png'   , 112).
		   '</td>'.
           '<td align="left">'.
		    '<span id="lb_EntDoc_Cancelado" style="display:none; color:#EE0000; font-size:16px; font-weight:bold;">'.
			 'Documento cancelado'.
			'</span>'.
		    '<span id="lb_EntDoc_Efetivado" style="display:none; color:#009933; font-size:16px; font-weight:bold;">'.
			 'Documento efetivado'.
			'</span>'.
		   '</td>'.
           '<td align="left"></td>'.
           '<td width="134px" align="right" valign="center">'.
       	     HTML_Botao( 3, 'oDoc_SvrEtg', "Car_".$sNomeAcesso."1.Salvar_EtnGeral();"
			              , 'Salvar (F10)'   ,'images/btimg_salvar.png'   , 112).
		   '</td>'.
           '<td width="124px" align="right" valign="center">'.
       	     HTML_Botao( 3, 'oDoc_SaiEtg', $oJan->sJavOnClickF
			              , 'Sair (ESC)'     ,'images/btimg_fechar.png'   , 102).
		   '</td>'.
           '<td width="4px"></td>'.
		  '</tr>'.
		 '</table>'.
         $oJan->MontaJanHTML(False);
      //
      // Java inicial
      $sRet_Javs .=
        'parent.document.getElementById("dv_MenuL_Barra").style.visibility="hidden";'.
 	    "";
      // Java posterior
      $sRet_JavsPos .=
	    "var FmH = parent.document.forms['fmPEstDocH'];".
	    "var FmV = parent.document.forms['fmPEstDocV'];".
		//
		"function Focar_EtgId() {".
	       "parent.document.getElementById('iDoc_Etg_IdN').focus();".
	       "parent.document.getElementById('iDoc_Etg_IdN').select();".
		"}".
	    "parent.document.getElementById('oDoc_EfeEtg').style.display='none';".
	    "parent.document.getElementById('oDoc_SvrEtg').style.display='none';".
	    "parent.document.getElementById('iDoc_Etg_RCodOpe').focus();".
		//
        "sSelIndice='0';".
        $oTabItem->MontaJavaPri().
        "function P_Atu() {".
           $oTabItem->MontaJavaAgu().
           "sSelIndice='0';".
           "parent.document.getElementById('oDoc_Ite_DelLst').style.display='none';".
           "parent.document.getElementById('oDoc_Ite_EdtLst').style.display='none';".
           "FmH.acao.value='PUXAR_ITENS';".
           "FmH.Fil_Num_Cam.value=nPesq_CampoSel+''; ".
           "setTimeout( function() { FmH.submit(); }, 300);".
        '}'.
		//
		"function Teclas_F( Objeto, Evento ) {".
           "vNumTecla = parent.Tecla_Apertada(Evento);".
           "if ( vNumTecla==121) { ".           //  ** [F10] **      (Gravar)
			   "if (parent.document.getElementById('oDoc_SvrEtg').style.display != 'none') { ".
                   "setTimeout( parent.document.getElementById('oDoc_SvrEtg').onclick , 1);".
			   "}".
           "} else if ( vNumTecla==123) { ".    //  ** [F12] **      (Gravar e Efetivar)
			   "if (parent.document.getElementById('oDoc_EfeEtg').style.display != 'none') { ".
                   "setTimeout( parent.document.getElementById('oDoc_EfeEtg').onclick , 1);".
			   "}".
		   "} else if ( vNumTecla==116) { ".    //  ** [F5] **       Não atualizar
		       //
		   "} else if ( vNumTecla==113) { ".    //  ** [F2] **       (Alterar item)
			   "if (parent.document.getElementById('oDoc_Ite_EdtLst').style.display != 'none') { ".
                   "setTimeout( parent.document.getElementById('oDoc_Ite_EdtLst').onclick , 1);".
			   "}".
               //
		   "} else if ( vNumTecla==27) { ".     //  ** [ESC] **      (SAIR)
              "setTimeout( function () { ".$oJan->sJavOnClickF." } , 1);".
		   "} else if ( vNumTecla==45) { ".     //  ** [INS] **      (Adicionar item)
              "setTimeout( parent.document.getElementById('oDoc_Ite_AdcLst').onclick , 1);".
		   "} else if ( vNumTecla==46) { ".     //  ** [DEL] **      (Deletar item)
		      "if ( parent.sIdHasFocus=='iDoc_TabItem_Tecla' ) { ".   //  Navegar na tabela
			     "if (parent.document.getElementById('oDoc_Ite_DelLst').style.display != 'none') { ".
                     "setTimeout( parent.document.getElementById('oDoc_Ite_DelLst').onclick , 1);".
				 "}".
			  "} else {".
			     "return true;".
			  "}".
           "} else if ( vNumTecla==13) { ".     //  ** [ENTER] **
           	  "sTempId = parent.Proximo_TabObj(parent.document.getElementById('".$oJan->sIdObj."'),parent.sIdHasFocus);".
              "if ( sTempId.length>0 ) {".
			      "if ( parent.sIdHasFocus=='iDoc_Etg_IdN' ) {".
			          'parent.Car_'.$sNomeAcesso.'1.Conf_EtnGeral();'.
				  "}".
				  "var ObjPrx = parent.document.getElementById(sTempId);".
           	      "ObjPrx.focus();".
				  "if ( parent.sIdHasFocus != sTempId ) {".
                      'Focar_EtgId();'.
				  "} else if ( ObjPrx.type=='text' || ObjPrx.type=='textarea' ) {".
           	          "ObjPrx.select();".
				  "} else if ( ObjPrx.type=='select-one' ) {".
           	          //"ObjPrx.show();".
				  "}".
           	  "} else {".
                  'Focar_EtgId();'.
              "}".
		   "} else if ( parent.sIdHasFocus=='iDoc_TabItem_Tecla' ) { ".   //  Navegar na tabela
              "P_TeclasPress_fm(Evento);".
		   "} else {".
			  "return true;".
		   "}".
		   "return false;".
		"}".
		"Conf_EtnGeral();".
	    //
        'parent.Calendar.setup({ '.
          'inputField : "iDoc_Etg_DataEms", '.
          'trigger    : "iDoc_Img_DataEms", '.
          'onSelect   : function() { this.hide(); }, '.
          'showTime   : 0, '.
          'dateFormat : "%d/%m/%Y" '.
        '});'.
		//
		"function Conf_EtnGeral() {".
           "FmV.acao.value='ETNGERAL';".
           "setTimeout( function() { FmV.submit(); }, 1);".
		"}".
		"function Volta_EtnGeral() {".
           "FmH.acao.value='ETNGERAL_VOLTA';".
           "setTimeout( function() { FmH.submit(); }, 1);".
		"}".
		"function Valida_EtnGeral() {".
		   "TargetAnt = FmV.target;".
		   "FmV.target='car_".$sNomeAcesso."3';".
           "FmV.acao.value='ETNGERAL_VALIDA';".
           "FmV.submit();".
		   "FmV.target = TargetAnt;".
		"}".
		"function Salvar_EtnGeral() {".
	       "parent.JanEspera(true, 'Aguarde, salvando documento...');".
		   "Valida_EtnGeral();".
           "setTimeout( function() {".
              "FmV.acao.value='ETNGERAL_SALVAR';".
		      "FmV.submit(); ".
		   "}, 1000);".
		"}".
		"function Efetivar_EtnGeral() {".
		   "parent.Qdr_Prompt_H(true,'A efetivação do documento de entrada atualizará estoque e preço médio de cada produto.<br>Confirma a efetivação do documento?',".
		      JAVA_CharCode(
		        "if (_NUM_BOT_==1) { ".  
	                "JanEspera(true, 'Aguarde, salvando e efetivando documento...');".
		            "Car_".$sNomeAcesso."1.Valida_EtnGeral();".
                    "setTimeout( function() {".
                       "Car_".$sNomeAcesso."1.FmV.acao.value='ETNGERAL_SALVAR_EFE';".
		               "Car_".$sNomeAcesso."1.FmV.submit(); ".
		            "}, 1000);".
		   	    "}"
			  ).                      
		   ",['Sim','Não']);".
		"}".
		//
		"function Puxar_For() {".
		   "TargetAnt = FmV.target;".
		   "FmV.target='car_".$sNomeAcesso."4';".
           "FmV.acao.value='PUXAR_FOR';".
           "FmV.submit();".
		   "FmV.target = TargetAnt;".
		"}".
		//
		"function Edt_Item(sCod_Item) {".
		   "TargetAnt = FmH.target;".
		   "FmH.target='car_".$sNomeAcesso."6';".
           "FmH.submod.value='EDT_ITEM';".
           "FmH.acao.value='';".
           "FmH.ETD_IDN_ETD.value=sCod_Item;".
           "FmH.submit();".
		   "FmH.target = TargetAnt;".
           "FmH.submod.value='".$sSubModulo."';".
           "FmH.ETD_IDN_ETD.value='';".
		"}".
		//
		"function Del_Item(sCod_Item) {".
		   "TargetAnt = FmH.target;".
		   "FmH.target='car_".$sNomeAcesso."6';".
           "FmH.acao.value='DEL_ITEM';".
           "FmH.ETD_IDN_ETD.value=sCod_Item;".
           "FmH.submit();".
		   "FmH.target = TargetAnt;".
           "FmH.ETD_IDN_ETD.value='';".
		"}".
		"";
      //
   //
   // >> Conferir e salvar a identificação da entrada geral
   } ElseIf ( SUBSTR($sAcao,0,8)=="ETNGERAL" ) {
      $sEtg_Idn_Etg = @$_POST['ETG_IDN_ETG'];
	  $bLimparTudo     = False;  // Ação para limpar as matrizes das tabelas de entrada
	  $bAtualizaCampos = False;  // Ação para atualizar todos campos
	  $bDespesasAltera = False;
	  $nBotaoEfetivar  = -1;     // Botão Efetivar
	  $nBotaoSalvar    = -1;     // Botão Salvar
	  $nEditarItens    = -1;     // Botões para editar itens
	  $nLbCancelado    = -1;     // Label Documento cancelado
	  $nLbEfetivado    = -1;     // Label Documento efetivado
	  $sRet_Javs_Apos  = '';
	  // * Volta o código
	  If ( SUBSTR($sAcao,8)=="_VOLTA" ) {
         $sRet_Javs .=
		    "parent.document.getElementById('iDoc_Etg_IdN').value='".Str_Zero($aEtn_Geral['ETG_IDN_ETG'], 6)."';".
			"";
	  // * Captura e valida os dados
	  } ElseIf ( SUBSTR($sAcao,8)=="_VALIDA" ) {
	     $bAtualizaCampos = True;
		 // Puxar validação da chave
		 $nEtg_Esp_Doc = Somente_Numeros(@$_POST['ETG_ESP_DOC'])+0;
		 If ( $aEtn_Geral['ETG_ESP_DOC']<0 OR $nEtg_Esp_Doc <> $aEtn_Geral['ETG_ESP_DOC'] ) {
            $sSQLQuery = "SELECT * FROM cad_especie_doc WHERE ESP_IDN_ESP=".$nEtg_Esp_Doc.";";
            $RowT = MYSQL_QUERY( $sSQLQuery ) Or Die( $sSQLQuery.'<br>'.MYSQL_ERROR() );
		    If ( $RowT = MYSQL_FETCH_OBJECT($RowT) ) {
		       $aEtn_Geral['ESP_CHAVEOB'] = $RowT->ESP_CHAVEOB+0;
			} Else {
			   $nEtg_Esp_Doc = 0;
			}
		 }
		 // Condição do documento novo para os botões de Salvar e Efetivar
		 $nEtg_RCodOpe = Somente_Numeros(@$_POST['ETG_RCODOPE'])+0;
	     If ( $aEtn_Geral['ETG_IDN_ETG']==0 ) {
		    If ( $nEtg_RCodOpe>0 ) {
		       $nBotaoSalvar   = 1;
			   $nBotaoEfetivar = 1;
	        }
		 }
		 // Calcular depesas
	     $nEtg_Vl_ICMS = STR_REPLACE(',','.',Somente_Numeros(@$_POST['ETG_VL_ICMS'],'.,'))+0;   // Valor do ICMS
	     $nEtg_Vl_IPI_ = STR_REPLACE(',','.',Somente_Numeros(@$_POST['ETG_VL_IPI_'],'.,'))+0;   // Valor do IPI
	     $nEtg_V_Frete = STR_REPLACE(',','.',Somente_Numeros(@$_POST['ETG_V_FRETE'],'.,'))+0;   // Valor do frete
		 $bDespesasAltera =
		    !($aEtn_Geral['ETG_VL_ICMS'] == $nEtg_Vl_ICMS &&
			  $aEtn_Geral['ETG_VL_IPI_'] == $nEtg_Vl_IPI_ &&
			  $aEtn_Geral['ETG_V_FRETE'] == $nEtg_V_Frete);
		 $aEtn_Geral['ETG_VL_ICMS'] = $nEtg_Vl_ICMS;
		 $aEtn_Geral['ETG_VL_IPI_'] = $nEtg_Vl_IPI_;
		 $aEtn_Geral['ETG_V_FRETE'] = $nEtg_V_Frete;
		 $nEtg_Despesa = $nEtg_Vl_ICMS + $nEtg_Vl_IPI_ + $nEtg_V_Frete;
		 // Calcular totais
	     $nEtg_Val_Des = STR_REPLACE(',','.',Somente_Numeros(@$_POST['ETG_VAL_DES'],'.,'))+0;   // Valor de desconto do documento
		 If ( $nEtg_Val_Des > $aEtn_Geral['ETG_I_TOTAL'] ) {
		    $nEtg_Val_Des = $aEtn_Geral['ETG_I_TOTAL'];
		 }
		 $aEtn_Geral['ETG_D_TOTAL'] = $nEtg_Despesa + $aEtn_Geral['ETG_I_TOTAL'] - $nEtg_Val_Des;
		 $aEtn_Geral['ETG_VAL_DES'] = $nEtg_Val_Des;
		 //
		 // Validar parcelas (Contas á receber)
		 $aEtn_Geral['ETG_INC_CTP'] = ARRAY();
         FOR ($nParcela=1; $nParcela<=$nMaxParcelas; $nParcela++) {
         	 $nCtp_DtaVen = ConvertDataSTR(ConvertDataBRUS(@$_POST['CTP_DTAVEN'.$nParcela]));
         	 $nCtp_ValDup = STR_REPLACE(',','.',Somente_Numeros(@$_POST['CTP_VALDUP'.$nParcela],'.,'))+0;
			 If ( $nCtp_DtaVen==0 Or $nCtp_ValDup==0 ) {
			    BREAK;
			 }
			 $aEtn_Geral['ETG_INC_CTP'][$nParcela] = ARRAY( $nParcela, $nCtp_DtaVen, $nCtp_ValDup );
         }
		 //
		 $aEtn_Geral['ETG_RCODOPE'] = $nEtg_RCodOpe;
		 $aEtn_Geral['ETG_COD_FOR'] = Somente_Numeros(@$_POST['ETG_COD_FOR'])+0;
		 $aEtn_Geral['ETG_ESP_DOC'] = $nEtg_Esp_Doc;
		 $aEtn_Geral['ETG_DATAEMS'] = ConvertDataSTR(ConvertDataBRUS(@$_POST['ETG_DATAEMS']));
		 $aEtn_Geral['ETG_NFISCAL'] = Somente_Numeros(@$_POST['ETG_NFISCAL'])+0;
		 $aEtn_Geral['ETG_NFSERIE'] = STRTOUPPER(@$_POST['ETG_NFSERIE']);
		 $aEtn_Geral['ETG_NFCHAVE'] = @$_POST['ETG_NFCHAVE'];
		 $aEtn_Geral['ETG_OBSERVA'] = @$_POST['ETG_OBSERVA'];
	     // Data inválida: Se data for maior que a data de hoje limpar a variável.
		 If ( $aEtn_Geral['ETG_DATAEMS'] > ConvertDataSTR(DATE("Y-m-d")) ) {
		    $aEtn_Geral['ETG_DATAEMS'] = 0;
		 }
	     //
	  // * Salvar documento
	  } ElseIf ( SUBSTR($sAcao,8,7)=="_SALVAR" ) {
	     $bEfetivar_Doc  = (SUBSTR($sAcao,15,4)=="_EFE");    // Efetivar documento
	     $sMensagemErro  = '';
		 $bNovoDocumento = ($aEtn_Geral['ETG_IDN_ETG'] == '_NOVO_');
         $sRet_Javs .=
		    "parent.JanEspera(false);".
			"";
		 // Operador que recebeu
		 If ( $aEtn_Geral['ETG_RCODOPE']==0 ) {
		    $sMensagemErro .= 'Operador inválido.<br>';
		 }
		 // Fornecedor
		 If ( $aEtn_Geral['ETG_COD_FOR']==0 ) {
		    $sMensagemErro .= 'Código do fornecedor inválido.<br>';
		 }
		 // Data de emissão
		 If ( $aEtn_Geral['ETG_DATAEMS']==0 ) {
		    $sMensagemErro .= 'Data de emissão inválida.<br>';
		 }
		 // Número da nota fiscal
		 If ( $aEtn_Geral['ETG_NFISCAL']==0 ) {
		    $sMensagemErro .= 'Número da nota fiscal inválido.<br>';
		 }
		 // Série da nota fiscal
		 If ( STRLEN($aEtn_Geral['ETG_NFSERIE'])==0 ) {
		    $sMensagemErro .= 'Série da nota fiscal precisa ser preenchida.<br>';
		 }
		 // Chave da nota fiscal
		 If ( $aEtn_Geral['ESP_CHAVEOB'] && STRLEN($aEtn_Geral['ETG_NFCHAVE'])<40 ) {
		    $sMensagemErro .= 'Chave obrigatória.<br>';
		 }
		 // Valor total
		 If ( $aEtn_Geral['ETG_I_TOTAL']==0 ) {
		    $sMensagemErro .= 'Valor total dos itens zerado.<br>';
		 }
		 // Verificar parcelas (Contas á receber)
		 If ( $aEtn_Geral['ETG_D_TOTAL']==0 ) {
		    $aEtn_Geral['ETG_INC_CTP'] = ARRAY();
		 }
		 If ( COUNT($aEtn_Geral['ETG_INC_CTP'])>0 ) {
		    $nTotal_ValDup = 0;
            FOR ($nParcela=1; $nParcela<=$nMaxParcelas; $nParcela++) {
            	$nCtp_DtaVen = @$aEtn_Geral['ETG_INC_CTP'][$nParcela][1]+0;
            	$nCtp_ValDup = @$aEtn_Geral['ETG_INC_CTP'][$nParcela][2]+0;
                $aIdObj_Venci = "iDoc_CTP_Venci".$nParcela;
                $aIdObj_Valor = "iDoc_CTP_Valor".$nParcela;
		  	    If ( $nCtp_DtaVen==0 Or $nCtp_ValDup==0 ) {
				   BREAK;
		        }
				$nTotal_ValDup += $nCtp_ValDup;
				If ( $nCtp_DtaVen < MKTIME(0,0,0) ) {
		           $sMensagemErro .= 'A data da parcela '.$nParcela.' é menor que a data de hoje.<br>';
				}
		    }
			If ( $nTotal_ValDup > $aEtn_Geral['ETG_D_TOTAL'] ) {
		       $sMensagemErro .= 'Valor total do documento é maior que o valor total das parcelas.<br>';
			} ElseIf ( $nTotal_ValDup < $aEtn_Geral['ETG_D_TOTAL'] ) {
		       $sMensagemErro .= 'Valor total do documento é menor que o valor total das parcelas.<br>';
			}
		 }
		 // Verificar se existe a nota (Fornecedor + Espécie + Nr. Fiscal + Série + Não cancelada)
		 If ( STRLEN($sMensagemErro)==0 ) {
            $sSQLQuery = "SELECT ETG_IDN_ETG FROM est_entrada_geral ".
		                 "WHERE ETG_COD_FOR= ".$aEtn_Geral['ETG_COD_FOR']."  AND ".
		  	 		           "ETG_ESP_DOC= ".$aEtn_Geral['ETG_ESP_DOC']."  AND ".
		  	 		           "ETG_NFISCAL= ".$aEtn_Geral['ETG_NFISCAL']."  AND ".
		  	 		           "ETG_NFSERIE='".$aEtn_Geral['ETG_NFSERIE']."' AND ".
							   ( $bNovoDocumento ? '' :        // Caso seja alteração de documento, verificar todos os documentos que não seja o atual
							   "ETG_IDN_ETG<>".$aEtn_Geral['ETG_IDN_ETG']."  AND "
							   ).
		  	 		           "ETG_CAN_OPE=0".
		  	 		  ";";
            $RowT = MYSQL_QUERY( $sSQLQuery ) Or Die( $sSQLQuery.'<br>'.MYSQL_ERROR() );
		    If ( $RowT = MYSQL_FETCH_OBJECT($RowT) ) {
		       $sMensagemErro .= 'Esté documento já existe neste fornecedor,<br>seu número de controle é '.Str_Zero($RowT->ETG_IDN_ETG,7).'.<br>';
		    }
		 }
		 // Gravar
		 If ( STRLEN($sMensagemErro)==0 ) {
		    //
			$aListaItensIgn = ARRAY();   // Lista dos itens á serem ignorados na inclusão no banco de dados
			$aListaItensAnt = ARRAY();   // Lista dos itens anteriores na memória com indices por identificação do banco
			$nEtn_Idn_Etg = $aEtn_Geral['ETG_IDN_ETG'];
		    $aEtn_ItensA = @$aSessao['ANT_ETN_ETD'][1];
			// MySql: Iniciar a translação
			MYSQL_QUERY("START TRANSACTION;");
		    // Novo documento ou documento efetivado
		    If ( $bNovoDocumento Or $aEtn_Geral['ETG_EFETIVA'] ) {
			   // Incluir registro (EST_ENTRADA_GERAL)
			   $sSQLQuery = "INSERT INTO est_entrada_geral (ETG_ICODOPE) VALUE (".$aEtn_Geral['ETG_ICODOPE'].");";
               MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
			   $nEtn_Idn_Etg = MYSQL_INSERT_ID();
			}
			// Documento efetivado
			If ( $aEtn_Geral['ETG_EFETIVA'] ) {
			   // Gravar cancelamento
			   $sSQLQuery = "UPDATE est_entrada_geral SET ".
                                "ETG_CAN_DTH='".DATE('Y-m-d H:i:s')."',".
								"ETG_CAN_OPE='".$R_CadFuncionario->FUN_CODIGO."',".
								"ETG_IDN_SUC='".$nEtn_Idn_Etg."' ".
                            "WHERE ETG_IDN_ETG=".$aEtn_Geral['ETG_IDN_ETG'].";";
               MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
			   $aEtn_Geral['ETG_IDN_ANT'] = $aEtn_Geral['ETG_IDN_ETG'];
			   $aEtn_Geral['ETG_DATAENT'] = TIME();
			   // Organizar itens antigos e incluir estorno de movimento
               ForEach ( $aEtn_ItensA As $aEtn_ItemA ) {
				  // Estornar movimento de estoque
				  SQLIns_Est_Movimento( $aEtn_ItemA['ETD_COD_ITE'], -$aEtn_ItemA['ETD_QTD_ITE'], 0, $aEtn_ItemA['ETD_IDN_ETD'],
				                        'Estorno ref. ao cancelamento do doc. de entrada '.$aEtn_Geral['ETG_IDN_ETG'].', '.
										'o motivo de cancelamento é alteração de documento já efetivado');
			   }
			   //
			} Else {
			   // Organizar itens antigos e incluir estorno de movimento
               ForEach ( $aEtn_ItensA As $aEtn_ItemA ) {
				  // Remover da tabela registros deletados
				  $nEtn_Indice = Loc_Indice_Item( $aEtn_ItemA['ETD_IDN_ETD'] );
				  If ( $nEtn_Indice<0 ) {
			         $sSQLQuery = "DELETE FROM est_entrada_itens WHERE ETD_IDN_ETD=".$aEtn_ItemA['ETD_IDN_ETD'].";";
                     MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
				  }
			   }
			}
			$aEtn_Geral['ETG_IDN_ETG'] = $nEtn_Idn_Etg;
			// Entrada de dados do documento (est_entrada_geral)
			$sSQLQuery = 
               "UPDATE est_entrada_geral SET ".
			      "ETG_RCODOPE=".                     $aEtn_Geral['ETG_RCODOPE'].  ",".
			      "ETG_COD_FOR=".                     $aEtn_Geral['ETG_COD_FOR'].  ",".
			      "ETG_ESP_DOC=".                     $aEtn_Geral['ETG_ESP_DOC'].  ",".
			      "ETG_DATAEMS='".DATE('Y-m-d'      , $aEtn_Geral['ETG_DATAEMS'])."',".
			      "ETG_DATAENT='".DATE('Y-m-d H:i:s', $aEtn_Geral['ETG_DATAENT'])."',".
			      "ETG_NFISCAL=".                     $aEtn_Geral['ETG_NFISCAL'].  ",".
			      "ETG_NFSERIE='".                    $aEtn_Geral['ETG_NFSERIE']. "',".
			      "ETG_NFCHAVE=".SQL_Bin(UTF8_DECODE( $aEtn_Geral['ETG_NFCHAVE'])).",".
			      "ETG_I_TOTAL=".                     $aEtn_Geral['ETG_I_TOTAL'].  ",".
			      "ETG_VL_ICMS=".                     $aEtn_Geral['ETG_VL_ICMS'].  ",".
			      "ETG_VL_IPI_=".                     $aEtn_Geral['ETG_VL_IPI_'].  ",".
			      "ETG_V_FRETE=".                     $aEtn_Geral['ETG_V_FRETE'].  ",".
			      "ETG_VAL_DES=".                     $aEtn_Geral['ETG_VAL_DES'].  ",".
			      "ETG_D_TOTAL=".                     $aEtn_Geral['ETG_D_TOTAL'].  ",".
				  ( ($bEfetivar_Doc Or $aEtn_Geral['ETG_EFETIVA']) ? "ETG_EFETIVA=1," : "").
				  "ETG_IDN_ANT=".                     $aEtn_Geral['ETG_IDN_ANT'].  ",".
				  "ETG_INC_CTP=".SQL_Bin(VAR_EXPORT($aEtn_Geral['ETG_INC_CTP'],True)).",".
			      "ETG_OBSERVA=".SQL_Bin(UTF8_DECODE( $aEtn_Geral['ETG_OBSERVA']))." ".
               "WHERE ETG_IDN_ETG=".$aEtn_Geral['ETG_IDN_ETG'].";";
            MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
		    // Inserir itens na tabela est_entrada_itens
		    ForEach ( $aEtn_Itens As $aEtn_Item ) {
			   // Se for o documento for novo ou efetivado
			   If ( $bNovoDocumento Or $aEtn_Geral['ETG_EFETIVA'] Or $aEtn_Item['ETD_IDN_ETD']>=$nVir_Idn_Etd ) {
		          $sSQLQuery = "INSERT INTO est_entrada_itens(ETD_IDN_ETG) VALUE (".$aEtn_Geral['ETG_IDN_ETG'].");";
                  MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
				  $aEtn_Item['ETD_IDN_ETD'] = MYSQL_INSERT_ID();
			   }
			   $sSQLQuery = 
                  "UPDATE est_entrada_itens SET ".
				     "ETD_COD_ITE=".$aEtn_Item['ETD_COD_ITE'].",".
					 "ETD_QTD_EMB=".$aEtn_Item['ETD_QTD_EMB'].",".
		    	     "ETD_QTD_ITE=".$aEtn_Item['ETD_QTD_ITE'].",".
		    	     "ETD_UNI_ITE=".$aEtn_Item['ETD_UNI_ITE'].",".
		    	     "ETD_TOT_ITE=".$aEtn_Item['ETD_TOT_ITE'].",".
		    	     "ETD_DSP_PRM=".$aEtn_Item['ETD_DSP_PRM'].",".
		    	     "ETD_DSP_VAL=".$aEtn_Item['ETD_DSP_VAL']." ".
                  "WHERE ETD_IDN_ETD=".$aEtn_Item['ETD_IDN_ETD'].";";
               MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
		       //
		       If ( $aEtn_Geral['ETG_EFETIVA'] Or $bEfetivar_Doc ) {
                  //
				  $nSaldo_Anterior = 0;
				  $nSaldo_Atualiza = 0;
	              If ( $bUtilizaEstoque ) {
                     $nSaldo_Anterior = Produto_Estoque($aEtn_Item['ETD_COD_ITE']);
                     $nSaldo_Anterior = @$nSaldo_Anterior['EST_SALDOS']+0;
		    		 // Inclusão de movimento de estoque
		    		 SQLIns_Est_Movimento( $aEtn_Item['ETD_COD_ITE'], $aEtn_Item['ETD_QTD_ITE'], 0, $aEtn_Item['ETD_IDN_ETD'],
					                    ( $aEtn_Geral['ETG_IDN_ANT']==0 ?
				                        'Ref. á efetivação de doc. de entrada '.$aEtn_Geral['ETG_IDN_ETG']
										:
										'Ref. á alteração de doc. de entrada já efetivado '.$aEtn_Geral['ETG_IDN_ETG']));
		    		 //
                     $nSaldo_Atualiza = Produto_Estoque($aEtn_Item['ETD_COD_ITE']);
                     $nSaldo_Atualiza = @$nSaldo_Atualiza['EST_SALDOS']+0;
		          }
		          If ( $bEfetivar_Doc ) {    // Se for documento em efetivação
		            // Preço médio
		            $nAtual__Preco_Medio = $aEtn_Item['ITE_PRE_CUSTO_E'];
		            $nCompra_Preco_Total = $aEtn_Item['ETD_TOT_ITE'] + $aEtn_Item['ETD_DSP_VAL'];
		            $nCompra_Quantidade_ = $aEtn_Item['ETD_QTD_ITE'];
		            $nCompra_Preco_Medio = 0;
		            If ( $nSaldo_Anterior>=0 ) {
		               $nCompra_Preco_Medio = $nCompra_Preco_Total + ( $nAtual__Preco_Medio * $nSaldo_Anterior );
		           	   $nCompra_Preco_Medio = $nCompra_Preco_Medio / $nSaldo_Atualiza;
		            } Else {
					   $nCompra_Preco_Medio = $nCompra_Preco_Total / $nCompra_Quantidade_;
					}
		            If ( $nCompra_Preco_Medio <> $nAtual__Preco_Medio ) {
		               $sSQLQuery = "UPDATE cad_produto SET ITE_PRE_CUSTO_E=".$nCompra_Preco_Medio." ".
                                    "WHERE ITE_CODIGOI=".$aEtn_Item['ETD_COD_ITE'].";";
                       MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
	                   // Recalcular custos do produto
	                   Calcular_Custo_Ficha_Producao( $aEtn_Item['ETD_COD_ITE'] );
					   //
		            }
		            //
		         }
		         //
		       }
		    }
			// Gravar contas á pagar
            If ( (!$aEtn_Geral['ETG_EFETIVA']) && $bEfetivar_Doc ) {    // Se for documento em efetivação
			   $sCtp_NumDup = $aEtn_Geral['ETG_NFISCAL'].$aEtn_Geral['ETG_NFSERIE'];
               FOR ($nParcela=1; $nParcela<=$nMaxParcelas; $nParcela++) {
                   $nCtp_DtaVen = @$aEtn_Geral['ETG_INC_CTP'][$nParcela][1]+0;
                   $nCtp_ValDup = @$aEtn_Geral['ETG_INC_CTP'][$nParcela][2]+0;
                   $aIdObj_Venci = "iDoc_CTP_Venci".$nParcela;
                   $aIdObj_Valor = "iDoc_CTP_Valor".$nParcela;
                   If ( $nCtp_DtaVen==0 Or $nCtp_ValDup==0 ) {
                      BREAK;
                   }
			       $sSQLQuery =
                      "INSERT INTO fin_contas_pagar(".
			            "CTP_CODEMP, CTP_DTAENT, CTP_VALORI, CTP_FUNINC, CTP_NUMDUP, CTP_NUMPAR, CTP_TOTPAR, CTP_CODFOR, ".
			   	        "CTP_CODCUS, CTP_ETG_ID, CTP_DTAFIC, CTP_DTAVEN, CTP_VALDUP, CTP_HISTOR".
			          ") VALUES (".
			            $Dados_Empresa['EMP_CODIGOI'].     ",".
			            "'".DATE("Y-m-d H:i:s").          "',".
			            $aEtn_Geral['ETG_D_TOTAL'].        ",".
			            $R_CadFuncionario->FUN_CODIGO.     ",".
			   	        "'".$sCtp_NumDup.                 "',".
			   	        $nParcela.                         ",".
			   	        COUNT($aEtn_Geral['ETG_INC_CTP']). ",".
			   	        $aEtn_Geral['ETG_COD_FOR'].        ",".
			   	        $aEtn_Geral['FOR_COD_CUS'].        ",".
			   	        $aEtn_Geral['ETG_IDN_ETG'].        ",".
			   	        "'".$sData_Trabalho.              "',".
			   	        "'".DATE("Y-m-d",$nCtp_DtaVen).   "',".
			   	        $nCtp_ValDup.                      ",".
			   	        SQL_Bin('Ref. á em de documento de entrada '.$aEtn_Geral['ETG_IDN_ETG']).
			          ");";
                   MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
			   }
			}
			// MySql: Salvar a translação
			MYSQL_QUERY("COMMIT;");
			//
			$sRet_Javs_Apos .=
			   Info_Evento( ( ($aEtn_Geral['ETG_EFETIVA'] Or $bEfetivar_Doc) ? "Documento efetivado com sucesso.<br>" :
							"Documento salvo com sucesso.<br>Ele está pendente aguardando a efetivação.").
			                "O número de controle do documento é ".Str_Zero($aEtn_Geral['ETG_IDN_ETG'], 7)."."
						  ,0).
			   "parent.Car_".$sNomeAcesso."1.Valida_EtnGeral();".
			   "";
			$bLimparTudo = True;
			//
		 // Exibir os erros
	     } Else {
            $sRet_Javs .= Info_Evento($sMensagemErro,1);
		 }
	  // * Alterou a identificador?
	  } ElseIf ( $sEtg_Idn_Etg<>@$aEtn_Geral['ETG_IDN_ETG'] ) {
	     $nEtg_Idn_Etg = Somente_Numeros($sEtg_Idn_Etg)+0;
		 // Consulta
		 If ( SUBSTR($sEtg_Idn_Etg,0,1)=='/' ) {
            $sRet_Javs .=
               "var FmH = parent.document.forms['fmPEstDocH'];".
               "setTimeout( function () {".
            	  "TargetAnt = FmH.target;".   
            	  "FmH.target='car_".$sNomeAcesso."6';".
                  "FmH.acao.value=''; ".
                  "FmH.submod.value='ENT_DOC_CSL';".
                  "FmH.submit();".
                  "FmH.submod.value='';".
            	  "FmH.target = TargetAnt;".   
               "}, 10);".
               "";
		 // Novo documento
		 } ElseIf ( $nEtg_Idn_Etg==0 ) {
			$bLimparTudo = True;
			//
	     // Abrir documento
		 } Else {
		    $sSQLQuery =
			    "SELECT etg.*, esp.ESP_CHAVEOB ".
			    "FROM est_entrada_geral as etg ".
                "LEFT JOIN cad_especie_doc as esp ON ESP_IDN_ESP=ETG_ESP_DOC ".
				"WHERE ETG_IDN_ETG=".($nEtg_Idn_Etg).";";
            $Row = MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
			// Registro encontrado
			If ( $Row = MYSQL_FETCH_ARRAY($Row) ) {
			   $aEtn_Geral = $Row;
		       $aEtn_Geral['VIR_IDN_ETD'] = $nVir_Idn_Etd;               //  Identificador virtual para os itens
			   $aEtn_Geral['ETG_DATAENT'] = ConvertDtHrSTR($aEtn_Geral['ETG_DATAENT']);
			   $aEtn_Geral['ETG_DATAEMS'] = ConvertDataSTR($aEtn_Geral['ETG_DATAEMS']);
			   If ( EMPTY($aEtn_Geral['ETG_INC_CTP']) ) {
			      $aEtn_Geral['ETG_INC_CTP'] = ARRAY();
			   } Else {
			      $sExecutarPHP = '$sExecutarPHP = '.$aEtn_Geral['ETG_INC_CTP'].';';
			      EVAL( $sExecutarPHP );
				  $aEtn_Geral['ETG_INC_CTP'] = $sExecutarPHP;
			   }
			   //
		       $sSQLQuery =
			      "SELECT ".
                    "item.*, ".
                    "prod.ITE_CODIGOL AS ITE_CODIGOL,".
                    "prod.ITE_DESCRIC AS ITE_DESCRIC,".
                    "prod.ITE_SIG_UNIDCMP AS ITE_UNIDADE,".
					"prod.ITE_PRE_CUSTO_E ".
				  "FROM est_entrada_itens as item ".
                  "LEFT JOIN cad_produto as prod ON ITE_CODIGOI=ETD_COD_ITE ".
                  "WHERE ETD_IDN_ETG=".$aEtn_Geral['ETG_IDN_ETG'].";";
               $Rows = MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
			   $aEtn_Itens = ARRAY();
			   While ( $Row = MYSQL_FETCH_ARRAY($Rows) ) {
				  $Row['ITE_QTD_EMBACMP'] = ROUND($Row['ETD_QTD_ITE']/$Row['ETD_QTD_EMB'],3);
			      $aEtn_Itens[] = $Row;
			   }
			   $aSessao['ANT_ETN_ETD'] = ARRAY( 0 => $aEtn_Geral, 1 => $aEtn_Itens );
               $sRet_Javs_Apos .=
			      "parent.Car_".$sNomeAcesso."1.Puxar_For();".
			      "parent.Car_".$sNomeAcesso."1.P_Atu();".
				  "";
		       $nEditarItens = 1;
			   $nLbCancelado = 0;
			   $nLbEfetivado = 0;
			   // Documento já cancelado
			   If ( $aEtn_Geral['ETG_CAN_OPE']>0 ) {
			      $nEditarItens = 0;
				  $nLbCancelado = 1;
				  $sRet_Javs_Apos .= Info_Evento("Alerta: Este documento está cancelado e não pode ser alterado.",0);
			   } Else {
			      $nLbEfetivado = $aEtn_Geral['ETG_EFETIVA']+0;
			   }
			   //
			// Registro não encontrado
			} Else {
               $sRet_Javs .=
			      "parent.Car_".$sNomeAcesso."1.Focar_EtgId();".
			      Info_Evento("ERRO: Não foi possível encontrar o documento.",1).
				  "";
			   //
			}
		    //
		 }
		 $bAtualizaCampos = True;
		 //
	  }
	  // Ordem para limpar todo o conteúdo da memória
	  If ( $bLimparTudo ) {
		 $aEtn_Geral['VIR_IDN_ETD'] = $nVir_Idn_Etd;                  //  Identificador virtual para os itens
		 $aEtn_Geral['ETG_IDN_ETG'] = "_NOVO_";                       //  Identificador único e automático
		 $aEtn_Geral['ETG_ICODOPE'] = $R_CadFuncionario->FUN_CODIGO;  //  Código do operador que incluiu este registro
		 $aEtn_Geral['ETG_RCODOPE'] = 0;                              //  Código do operador que recebeu a mercadoria
		 $aEtn_Geral['ETG_COD_FOR'] = 0;                              //  Código do fornecedor
		 $aEtn_Geral['ETG_ESP_DOC'] = 0;                              //  Identificador da espécie do documento
		 $aEtn_Geral['ETG_DATAEMS'] = TIME();                         //  Data de emissão
		 $aEtn_Geral['ETG_DATAENT'] = TIME();                         //  Data e hora de entrada (registro)
		 $aEtn_Geral['ETG_NFISCAL'] = 0;                              //  Número da nota fiscal
		 $aEtn_Geral['ETG_NFSERIE'] = '';                             //  Série da nota fiscal
		 $aEtn_Geral['ETG_NFCHAVE'] = '';                             //  Chave da nota fiscal eletronica
		 $aEtn_Geral['ETG_I_TOTAL'] = 0;                              //  Valor do ICMS
		 $aEtn_Geral['ETG_VL_ICMS'] = 0;                              //  Valor do IPI
		 $aEtn_Geral['ETG_VL_IPI_'] = 0;                              //  Valor do frete
		 $aEtn_Geral['ETG_V_FRETE'] = 0;                              //  Valor total dos itens
		 $aEtn_Geral['ETG_VAL_DES'] = 0;                              //  Valor de desconto
		 $aEtn_Geral['ETG_D_TOTAL'] = 0;                              //  Valor total do documento
		 $aEtn_Geral['ETG_OBSERVA'] = '';                             //  Observações
		 $aEtn_Geral['ETG_CAN_DTH'] = 0;                              //  Data e hora do cancelamento deste registro
		 $aEtn_Geral['ETG_CAN_OPE'] = 0;                              //  Código do operador que cancelou este registro
		 $aEtn_Geral['ETG_EFETIVA'] = 0;                              //  Documento efetivado? (0=Pendente, 1=Efetivado)
		 $aEtn_Geral['ETG_IDN_ANT'] = 0;                              //  Identificador do registro antecessor (Alteração)
		 $aEtn_Geral['ETG_IDN_SUC'] = 0;                              //  Identificador do registro sucessor (Alteração)
         $aEtn_Geral['ETG_INC_CTP'] = ARRAY();                        //  Forma de inclusão em contas á pagar em codigo texto
         $aEtn_Geral['ESP_CHAVEOB'] = True;
		 $nEtg_Despesa = 0;
		 $aEtn_Itens = ARRAY();
         $sRet_Javs_Apos .=
		    "parent.Car_".$sNomeAcesso."1.Puxar_For();".
		    "parent.Car_".$sNomeAcesso."1.P_Atu();".
		    "";
		 $bAtualizaCampos = True;
		 $nBotaoEfetivar = 0;
		 $nBotaoSalvar   = 0;
         $nEditarItens   = 1;
		 $nLbCancelado   = 0;
		 $nLbEfetivado   = 0;
		 If ( ISSET($aSessao['ANT_ETN_ETD']) ) { UNSET($aSessao['ANT_ETN_ETD']); }
	  //
	  } Else {
	     // Condições para o botão de salvar o documento
	     If ( $aEtn_Geral['ETG_IDN_ETG']>0 ) {
		    $nBotaoEfetivar = ($aEtn_Geral['ETG_EFETIVA']==0 && $aEtn_Geral['ETG_CAN_OPE']==0);
            If ($aEtn_Geral['ETG_CAN_OPE']==0 && ($aSessao['ANT_ETN_ETD'][0]<>$aEtn_Geral OR $aSessao['ANT_ETN_ETD'][1]<>$aEtn_Itens) ) {
			   $nBotaoSalvar   = 1;
			} Else {
			   $nBotaoSalvar   = 0;
			}
		 }
	  }
	  //
	  If ( $bAtualizaCampos ) {
	     $nTotal_ValDup = 0;
         FOR ($nParcela=1; $nParcela<=$nMaxParcelas; $nParcela++) {
         	 $nCtp_DtaVen = @$aEtn_Geral['ETG_INC_CTP'][$nParcela][1]+0;
         	 $nCtp_ValDup = @$aEtn_Geral['ETG_INC_CTP'][$nParcela][2]+0;
             $aIdObj_Venci = "iDoc_CTP_Venci".$nParcela;
             $aIdObj_Valor = "iDoc_CTP_Valor".$nParcela;
			 If ( $nCtp_ValDup==0 ) {
                $sRet_Javs .=
		           "parent.document.getElementById('".$aIdObj_Venci."').value='';".
		           "parent.document.getElementById('".$aIdObj_Valor."').value='';".
				   "";
			 } Else {
			    $nTotal_ValDup += $nCtp_ValDup;
                $sRet_Javs .=
		           "parent.document.getElementById('".$aIdObj_Venci."').value='".DATE("d/m/Y",$nCtp_DtaVen)."';".
		           "parent.document.getElementById('".$aIdObj_Valor."').value='".FormatoMoeda($nCtp_ValDup)."';".
				   "";
			 }
         }
		 
		 $nValRestante = ROUND( $aEtn_Geral['ETG_D_TOTAL']-$nTotal_ValDup ,2);
		 //
         $sRet_Javs .=
		    "parent.document.getElementById('sDoc_Total_ValRes').innerHTML='R$ ".FormatoMoeda($nValRestante)."';".
			"parent.document.getElementById('sDoc_Total_ValDup').innerHTML='R$ ". FormatoMoeda($aEtn_Geral['ETG_D_TOTAL'])."';".
			"parent.document.getElementById('iDoc_Etg_IdN').value='".         Str_Zero($aEtn_Geral['ETG_IDN_ETG'], 6)."';".
		    "parent.document.getElementById('iDoc_Etg_RCodOpe').value='".              $aEtn_Geral['ETG_RCODOPE'] ."';".
		    "parent.document.getElementById('iDoc_Etg_Cod_For').value='".( $aEtn_Geral['ETG_COD_FOR']>0 ? Str_Zero($aEtn_Geral['ETG_COD_FOR'],4) : '' )."';".
		    "parent.document.getElementById('iDoc_Etg_Esp_Doc').value='".              $aEtn_Geral['ETG_ESP_DOC'] ."';".
		    "parent.document.getElementById('iDoc_Etg_DataEms').value='".( $aEtn_Geral['ETG_DATAEMS']>10000 ? DATE("d/m/Y", $aEtn_Geral['ETG_DATAEMS']) : '')."';".
		    "parent.document.getElementById('iDoc_Etg_DataEnt').value='".DATE("d/m/Y", $aEtn_Geral['ETG_DATAENT'])."';".
		    "parent.document.getElementById('iDoc_Etg_NFiscal').value='".              $aEtn_Geral['ETG_NFISCAL']."';".
		    "parent.document.getElementById('iDoc_Etg_NFSerie').value='".              $aEtn_Geral['ETG_NFSERIE'] ."';".
		    "parent.document.getElementById('iDoc_Etg_NFChave').value='".              $aEtn_Geral['ETG_NFCHAVE'] ."';".
		    "parent.document.getElementById('iDoc_Etg_I_Total').value='".    FormatoMoeda($aEtn_Geral['ETG_I_TOTAL'])."';".
		    "parent.document.getElementById('iDoc_Etg_Vl_ICMS').value='".    FormatoMoeda($aEtn_Geral['ETG_VL_ICMS'])."';".
		    "parent.document.getElementById('iDoc_Etg_Vl_IPI_').value='".    FormatoMoeda($aEtn_Geral['ETG_VL_IPI_'])."';".
		    "parent.document.getElementById('iDoc_Etg_V_Frete').value='".    FormatoMoeda($aEtn_Geral['ETG_V_FRETE'])."';".
		    "parent.document.getElementById('iDoc_Etg_Despesa').value='".    FormatoMoeda(@$nEtg_Despesa)."';".
		    "parent.document.getElementById('iDoc_Etg_Val_Des').value='".    FormatoMoeda($aEtn_Geral['ETG_VAL_DES'])."';".
		    "parent.document.getElementById('iDoc_Etg_D_Total').value='R$ ". FormatoMoeda($aEtn_Geral['ETG_D_TOTAL'])."';".
		    "parent.document.getElementById('iDoc_Etg_Observa').value="    .JAVA_CharCode($aEtn_Geral['ETG_OBSERVA']).";".
			( $bDespesasAltera ?
			'parent.Car_'.$sNomeAcesso.'1.P_Atu();'
			: "").
			"";
	  }
	  If ( $nBotaoEfetivar >= 0 ) {
         $sRet_Javs .= 
		    //"parent.document.getElementById('oDoc_EfeEtg').style.display='".($nBotaoEfetivar==1 ? 'inline-block' : 'none')."';";
		    "parent.document.getElementById('oDoc_EfeEtg').style.display='inline-block';";
	  }
	  If ( $nBotaoSalvar >= 0 ) {
         $sRet_Javs .= "parent.document.getElementById('oDoc_SvrEtg').style.display='".($nBotaoSalvar==1 ? 'inline-block' : 'none')."';";
	  }
	  If ( $nEditarItens >= 0 ) {
         $sRet_Javs .= "parent.document.getElementById('oDoc_Ite_AdcLst').style.display='".($nEditarItens==1 ? 'inline-block' : 'none')."';";
	  }
	  If ( $nLbCancelado >= 0 ) {
		 $sRet_Javs .= "parent.document.getElementById('lb_EntDoc_Cancelado').style.display='".($nLbCancelado==1 ? '' : 'none')."';";
	  }
	  If ( $nLbEfetivado >= 0 ) {
		 $sRet_Javs .= "parent.document.getElementById('lb_EntDoc_Efetivado').style.display='".($nLbEfetivado==1 ? '' : 'none')."';";
	  }
      $sRet_Javs .= $sRet_Javs_Apos;
   //
   // >> Puxar os itens na memória
   } ElseIf ( $sAcao=="PUXAR_ITENS" ) {
      $nFil_Num_Cam = @$_POST['Fil_Num_Cam']+0;
	  // Calcular valor total dos itens
      $nEtg_D_Total = 0;
	  ForEach ($aEtn_Itens As $aEtn_Item) {
 	     $nEtg_D_Total += $aEtn_Item["ETD_TOT_ITE"];
	  }
	  $aEtn_Geral['ETG_I_TOTAL'] = $nEtg_D_Total;
	  // Calcular acréscimo para cada item referente o total de despesas
	  $aEtn_Itens_Tmp = ARRAY();
	  $nValor_Despesas = $aEtn_Geral['ETG_VL_ICMS'] + $aEtn_Geral['ETG_VL_IPI_'] + $aEtn_Geral['ETG_V_FRETE'];
	  $nResta_Despesas = $nValor_Despesas;
	  ForEach ($aEtn_Itens As $aEtn_Item) {
		 $nEtd_Dsp_Prm = ROUND( $aEtn_Item["ETD_TOT_ITE"] / $nEtg_D_Total,2 ) * 100;   // Calcular percentual
		 $nEtd_Dsp_Val = ROUND( ($nEtd_Dsp_Prm / 100) * $nValor_Despesas ,2 );         // Calcular valor da despesa
		 If ( $nEtd_Dsp_Val > $nResta_Despesas ) {
			$nEtd_Dsp_Val = $nResta_Despesas;
		 }
		 $nResta_Despesas -= $nEtd_Dsp_Val;
		 $aEtn_Item['ETD_DSP_PRM'] = $nEtd_Dsp_Prm;
		 $aEtn_Item['ETD_DSP_VAL'] = $nEtd_Dsp_Val;
		 $aEtn_Itens_Tmp[] = $aEtn_Item;
	  }
	  $aEtn_Itens = $aEtn_Itens_Tmp;
	  //
      $oTabItem->aLstItensTab = $aEtn_Itens;
	  //
      $oTabItem->s_PHP_LinhaTb =
	    '$nValor_Acrecimo = ROUND($Row_Temp2Tabela["ETD_DSP_VAL"] / $Row_Temp2Tabela["ETD_QTD_ITE"],2);'.
		'$Row_Temp2Tabela["ETD_VAL_TOT"] = $Row_Temp2Tabela["ETD_UNI_ITE"] + $nValor_Acrecimo;'.         // Acrécimo por item
		'$Row_Temp2Tabela["ETD_DSP_VAL"] = $nValor_Acrecimo;'.                                           // Preço unitário com acrécimo
	    '';
	  //
      $sRet_Tabela = $oTabItem->MontaTabelaHTML();
      // Java
      $sRet_Javs .=
        "var iQdr_ListaCxa = parent.document.getElementById('".$oTabItem->sIdObjTabela."');".
        'iQdr_ListaCxa.innerHTML = '.JAVA_CharCode($sRet_Tabela).';'.
    	'parent.Car_'.$sNomeAcesso.'1.'.$oTabItem->sNomeTabela.'_Rowsel = 1;'.
        'parent.Car_'.$sNomeAcesso.'1.P_Sel('.$nFil_Num_Cam.');'.
        "parent.document.getElementById('iDoc_Etg_D_Total').value='R$ ". FormatoMoeda($aEtn_Geral['ETG_D_TOTAL'])."';".
		( ISSET($aSessao['ETN_ITEM']) ? '' : 'parent.Car_'.$sNomeAcesso.'1.Valida_EtnGeral();' ).
        '';
	  //
   //
   // >> Deletar item da memória
   } ElseIf ( $sAcao=="DEL_ITEM" ) {
      $nEtd_Idn_Etd = Somente_Numeros(@$_POST['ETD_IDN_ETD'])+0;
	  If ( $nEtd_Idn_Etd>0 ) {
	     $nItem_Indice = Loc_Indice_Item($nEtd_Idn_Etd);
		 UNSET( $aEtn_Itens[$nItem_Indice] );
	  }
      $sRet_Javs .=
	    "parent.Car_".$sNomeAcesso."1.P_Atu();".
	    '';
   //
   // >> Puxar fornecedor
   } ElseIf ( $sAcao=="PUXAR_FOR" ) {
      $sEtg_Cod_For_Pt = Somente_Numeros(@$_POST['ETG_COD_FOR'],'/');
	  $sEtg_For_Descri = '';
      // Consulta
	  If ( SUBSTR($sEtg_Cod_For_Pt,0,1)=='/' ) {
         $sRet_Javs .=
	        "var FmH = parent.document.forms['fmPEstDocH'];".
            "setTimeout( function () {".
			   "TargetAnt = FmH.target;".   
			   "FmH.target='car_".$sNomeAcesso."6';".
               "FmH.acao.value=''; ".
               "FmH.submod.value='INS_FORNECEDOR_CSL';".
               "FmH.submit();".
               "FmH.submod.value='';".
			   "FmH.target = TargetAnt;".   
            "}, 10);".
            "";
	     //
	  // Inválido
	  } ElseIf ( STRLEN($sEtg_Cod_For_Pt)==0 OR ($sEtg_Cod_For_Pt+0)==0 ) {
	     $aEtn_Geral['ETG_COD_FOR'] = 0;
	     $aEtn_Geral['FOR_COD_CUS'] = 0;
	  // Puxar no banco de dados
	  } Else {
         $sSQLQuery =
           "SELECT FOR_CODIGO, FOR_RAZAOS, FOR_FANTAS, FOR_CODCUS ".
           "FROM cad_fornecedor ".
           "WHERE FOR_CODIGO='".$sEtg_Cod_For_Pt."';";
           $RowT = MYSQL_QUERY( $sSQLQuery ) Or Die( $sSQLQuery.'<br>'.MYSQL_ERROR() );
		   If ( $RowT = MYSQL_FETCH_OBJECT($RowT) ) {
	          $aEtn_Geral['ETG_COD_FOR'] = $RowT->FOR_CODIGO;
	          $aEtn_Geral['FOR_COD_CUS'] = $RowT->FOR_CODCUS;
			  $sEtg_For_Descri = $RowT->FOR_FANTAS;
			  If ( STRLEN($sEtg_For_Descri)<3 ) {
			     $sEtg_For_Descri = $RowT->FOR_RAZAOS;
			  }
			  $sEtg_For_Descri = PegarPorPausa($sEtg_For_Descri,2);
		   } Else {
	          $aEtn_Geral['ETG_COD_FOR'] = 0;
	          $aEtn_Geral['FOR_COD_CUS'] = 0;
		   }
	  }
	  If ( (0+@$aEtn_Geral['ETG_COD_FOR'])==0 ) {
	     $sEtg_Cod_For_Pt = '';
	  } Else {
	     $sEtg_Cod_For_Pt = Str_Zero( @$aEtn_Geral['ETG_COD_FOR'], 4 );
	  }
      $sRet_Javs .=
        "parent.document.getElementById('iDoc_Etg_Cod_For').value='".$sEtg_Cod_For_Pt."';".
        "parent.document.getElementById('iDoc_For_Descric').value='".$sEtg_For_Descri."';".
        '';
   //
   // >> Fechar janela
   } ElseIf ( $sAcao=="FECHAR" ) {
      //
	  UNSET($aEtn_Geral);
	  UNSET($aEtn_Itens);
      //
      $sRet_Javs .=
         "parent.document.getElementById('dv_MenuL_Barra').style.visibility='visible';".
         "parent.RmElem('".$oJan->sIdObj."');";
   }
   //
//
//  ** TELA DE PESQUISA DOS DOCUMENTOS DE ENTRADA **
} ElseIf ( $sSubModulo=="ENT_DOC_CSL" ) {
   $sNomeIdJ_Ant = $sNomeIdJPrin;
   $sNomeIdCampo = "iDoc_Etg_IdN";
   $nQdrNomeAcs  = 6;
   $sJavaExePos  =
      "parent.document.getElementById('".$sNomeIdCampo."').setSelectionRange(0,0);".
	  "parent.Car_".$sNomeAcesso."1.Conf_EtnGeral();".
      '';
   REQUIRE "./modulos/consulta_ent_doc.inc";
   //
//
//  ** TELA DE PESQUISA DE FORNECEDOR **
} ElseIf ( $sSubModulo=="INS_FORNECEDOR_CSL" ) {
   $sNomeIdJ_Ant = $sNomeIdJPrin;
   $sNomeIdCampo = "iDoc_Etg_Cod_For";
   $nQdrNomeAcs  = 6;
   $sJavaExePos  =
      "parent.document.getElementById('".$sNomeIdCampo."').setSelectionRange(0,0);".
	  "parent.Car_".$sNomeAcesso."1.Puxar_For();".
      '';
   REQUIRE "./modulos/consulta_fornecedor.inc";
   //
//
//  ** TELA DE PESQUISA DE PRODUTO ** 
} ElseIf ( $sSubModulo=="PESQ_PRODUTO" ) {
  $sNomeIdJ_Ant = $sNomeIdJItem;
  $sNomeIdCampo = "iDoc_Etd_Cod_Ite";
  $nQdrNomeAcs  = 7;
  $sJavaExePos  =                         
     "parent.document.getElementById('".$sNomeIdCampo."').setSelectionRange(0,0);".
	 "parent.Car_".$sNomeAcesso."6.Puxar_Ite();".
     '';
  REQUIRE "./modulos/consulta_produto.inc";
  //
//
//  ** ADICIONAR / EDITAR PRODUTO NA LISTA **
} ElseIf ( $sSubModulo=="EDT_ITEM" ) {
   //
   $sEtd_Idn_Etd = @$_POST['ETD_IDN_ETD'];
   $bItemNovo = ($sEtd_Idn_Etd == '_NOVO_');
   $aEtn_Item = @$aSessao['ETN_ITEM'];
   // Criar objeto Janela
   $oJan = New R_Janela();
   $oJan->sIdObj  = $sNomeIdJItem; 
   $oJan->nWidth  = 660;   // Largura
   $oJan->nHeight = 0;     // Altura
   $oJan->nTop    = 100;
   $oJan->nLeft   = 0;
   $oJan->nLeft  += ($nTela_W/2)-($oJan->nWidth/2);
   $oJan->sTitulo = 'Produto'.($bItemNovo ? ' - Inserir novo' : '');
   $oJan->sJavKeyDown = "return Car_".$sNomeAcesso."6.Teclas_F(this,event);";
   //
   $sJavaTravarJ = "parent.document.getElementById('".$oJan->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJan->sIdObj."',true);";
   $oJan->sJavOnClickF = 
       $sJavaTravarJ.
   	   "parent.document.forms.fmPEstDoc_I1.acao.value='FECHAR'; ".
   	   "parent.document.forms.fmPEstDoc_I1.submit();".
   	   "";
   //
   // >> Inicial
   If ( EMPTY($sAcao) ) {
      //
	  If ( ! $bItemNovo ) {
	     $nIndiceMat_Item = Loc_Indice_Item($sEtd_Idn_Etd);
		 If ( $nIndiceMat_Item<0 ) {
		    // ** ERRO **
		 } Else {
		    $aEtn_Item = $aEtn_Itens[$nIndiceMat_Item];
	     }
	  }
      // lista dos objetos na janela
      $oJan->aIdsObjList =
          ARRAY( 'iDoc_Etd_Qtd_Emb', 'iDoc_Etd_Cod_Ite', 'iDoc_Etd_Qtd_Ite', 'iDoc_Etd_Uni_Ite' );
  	  //
      $sRet_TelaJ_HTML =
         $oJan->MontaJanHTML(True).
         '<form name="fmPEstDoc_I1" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'7">'.
          '<input name="mod" type="hidden" value="'.$sModulo.'">'.
          '<input name="submod" type="hidden" value="'.$sSubModulo.'">'.
          '<input name="nomeacs" type="hidden" value="'.$sNomeAcesso.'">'.
          '<input name="acao" type="hidden" value="">'.
          '<input name="ETD_IDN_ETD" type="hidden" value="'.$sEtd_Idn_Etd.'">'.
		  '<div align="center" style="width:100%;" class="EstDocEnt">'.
	       // 1º linha
       	   '<table width="96%">'.
		    '<tr>'.
             '<td align="left">'.
		      '<span class="Titulo">Código</span>'.
		     '</td>'.
		     '<td width="6px"></td>'.
             '<td align="left">'.
		      '<span class="Titulo">Descrição do produto</span>'.
		     '</td>'.
		     '<td></td>'.
		    '</tr>'.
		    // campos
		    '<tr>'.
             '<td align="left">'.
       	      '<input id="iDoc_Etd_Cod_Ite" name="ETD_COD_ITE" type="text" maxlength="7" value="'.@$aEtn_Item['ITE_CODIGOL'].'" style="width:62px; text-align:center;" onchange="Car_'.$sNomeAcesso.'6.Puxar_Ite();">'.
		     '</td>'.
			 '<td></td>'.
             '<td align="left">'.
       	      '<input id="iDoc_Ite_Descric" type="text" style="width:518px;" readonly value="'.@$aEtn_Item['ITE_DESCRIC'].'">'.
		     '</td>'.
			 '<td align="left">'.
       	      HTML_Botao( 3, 'oDoc_Etd_CodIte', "document.getElementById('iDoc_Etd_Cod_Ite').value='/';".
			                                    'Car_'.$sNomeAcesso.'6.Puxar_Ite();'
			               , ''  ,'images/btimg_lupa.png',20).
			 '</td>'.
		    '</tr>'.
	       '</table>'.
	       // 2º linha
       	   '<table width="96%">'.
		    '<tr>'.
             '<td align="left">'.
		      '<span class="Titulo">Embalagens</span>'.
		     '</td>'.
             '<td align="left">'.
		      '<span class="Titulo">Qtd por embalagem</span>'.
		     '</td>'.
             '<td align="left">'.
		      '<span class="Titulo">Quantidade</span>'.
		     '</td>'.
		     '<td width="6px"></td>'.
             '<td align="left">'.
		      '<span class="Titulo">Unidade</span>'.
		     '</td>'.
		     '<td width="6px"></td>'.
             '<td align="left">'.
		      '<span class="Titulo">Estoque</span>'.
		     '</td>'.
		     '<td width="6px"></td>'.
             '<td align="left">'.
		      '<span class="Titulo">Valor unitário</span>'.
		     '</td>'.
		     '<td width="6px"></td>'.
             '<td align="left">'.
		      '<span class="Titulo">Valor total</span>'.
		     '</td>'.
		    '</tr>'.
		    // campos
		    '<tr>'.
             '<td align="left">'.
       	      '<input id="iDoc_Etd_Qtd_Emb" name="ETD_QTD_EMB" type="text" maxlength="8" value="'.@$aEtn_Item['ETD_QTD_EMB'].'" style="width:80px; text-align:center;" onchange="Car_'.$sNomeAcesso.'6.Valida_Campos();">'.
		     '</td>'.
             '<td align="left">'.
       	      '<input id="iDoc_Etd_QtdpEmb" name="ETD_QTDpEMB" type="text" maxlength="8" value="'.@$aEtn_Item['ITE_QTD_EMBACMP'].'" style="width:100px; text-align:center;" onchange="Car_'.$sNomeAcesso.'6.Valida_Campos();">'.
		     '</td>'.
             '<td align="left">'.
       	      '<input id="iDoc_Etd_Qtd_Ite" name="ETD_QTD_ITE" type="text" readonly value="'.@$aEtn_Item['ETD_QTD_ITE'].'" style="width:80px; text-align:center;" onchange="Car_'.$sNomeAcesso.'6.Valida_Campos();">'.
		     '</td>'.
			 '<td></td>'.
             '<td align="left">'.
       	      '<input id="iDoc_Ite_Unidade" type="text" style="width:60px; text-align:center;" readonly value="'.@$aEtn_Item['ITE_UNIDADE'].'">'.
		     '</td>'.
			 '<td></td>'.
             '<td align="left">'.
       	      '<input id="iDoc_Est_SaldoQt" type="text" style="width:90px; text-align:center;" readonly>'.
		     '</td>'.
			 '<td></td>'.
             '<td align="left">'.
       	      '<input id="iDoc_Etd_Uni_Ite" name="ETD_UNI_ITE" type="text" maxlength="8" value="'.@$aEtn_Item['ETD_UNI_ITE'].'" style="width:90px; text-align:right;" onchange="Car_'.$sNomeAcesso.'6.Valida_Campos();">'.
		     '</td>'.
			 '<td></td>'.
             '<td align="left">'.
       	      '<input id="iDoc_Etd_Tot_Ite" type="text" style="width:100px; text-align:right;" readonly value="'.@$aEtn_Item['ETG_TOT_ITE'].'">'.
		     '</td>'.
		    '</tr>'.
	       '</table>'.
		   //
		  '</div>'.
         '</form>'.
  		 // Barra inferior
       	 '<table width="100%" style="background-color:'.$sCorBarraInf.';">'.
		  '<tr>'.
           '<td align="left"></td>'.
           '<td width="124px" align="right" valign="center">'.
       	     HTML_Botao( 3, 'oEtd_SvrEtg'  , 'Car_'.$sNomeAcesso.'6.Salvar();'
			              , 'Salvar (F10)' , 'images/btimg_ativar.png' , 112).
		   '</td>'.
           '<td width="124px" align="right" valign="center">'.
       	     HTML_Botao( 3, 'oEtd_SaiEtg'  , $oJan->sJavOnClickF
			              , 'Sair (ESC)'   ,'images/btimg_fechar.png'  , 102).
		   '</td>'.
           '<td width="4px"></td>'.
		  '</tr>'.
		 '</table>'.
         $oJan->MontaJanHTML(False);
	  // Java posterior
      $sRet_JavsPos .=
         "var FmI = parent.document.forms['fmPEstDoc_I1'];".
	     "parent.document.getElementById('iDoc_Etd_Cod_Ite').focus();".
		 "Valida_Campos();".
		 "function Teclas_F( Objeto, Evento ) {".
            "vNumTecla = parent.Tecla_Apertada(Evento);".
            "if ( vNumTecla==121) { ".           //  ** [F10] **      (Gravar)
		 	   "if (parent.document.getElementById('oEtd_SvrEtg').style.display != 'none') { ".
                    "setTimeout( parent.document.getElementById('oEtd_SvrEtg').onclick , 100);".
		 	   "}".
		    "} else if ( vNumTecla==116) { ".    //  ** [F5] **        Não atualizar
                //
		    "} else if ( vNumTecla==27) { ".     //  ** [ESC] **       (SAIR)
               "setTimeout( function () { ".$oJan->sJavOnClickF." } , 1);".
            "} else if ( vNumTecla==13) { ".     //  ** [ENTER] **
               "sTempId = parent.Proximo_TabObj(parent.document.getElementById('".$oJan->sIdObj."'),parent.sIdHasFocus);".
               "if ( sTempId.length>0 ) {".
		 		  "var ObjPrx = parent.document.getElementById(sTempId);".
            	  "ObjPrx.focus();".
		 		  "if ( ObjPrx.type=='text' || ObjPrx.type=='textarea' ) {".
            	      "ObjPrx.select();".
		 		  "}".
               "} else {".
                  "parent.document.getElementById('iDoc_Etd_Cod_Ite').focus();".
               "}".
		    "} else {".
		 	   "return true;".
		    "}".
		    "return false;".
		 "}".
		 //
		 "function Puxar_Ite() {".
	        "parent.document.getElementById('oEtd_SvrEtg').style.display='none';".
            "FmI.acao.value='PUXAR_ITE';".
            "setTimeout( function() { FmI.submit(); }, 1);".
		 "}".
		 "function Valida_Campos() {".
	        "parent.document.getElementById('oEtd_SvrEtg').style.display='none';".
            "FmI.acao.value='VALIDA_CAMPOS';".
            "setTimeout( function() { FmI.submit(); }, 1);".
		 "}".
		 "function Salvar() {".
	        "parent.document.getElementById('oEtd_SvrEtg').style.display='none';".
            "FmI.acao.value='SALVAR';".
            "setTimeout( function() { FmI.submit(); }, 100);".
		 "}".
	     "";
      //
   //
   // >> Puxar produto
   } ElseIf ( $sAcao=="PUXAR_ITE" ) {
      $sEtd_Cod_Ite_Pt = Somente_Numeros(@$_POST['ETD_COD_ITE'],'/');
	  $nEtd_Cod_Ite    = 0;
	  $sEtd_Ite_Descri = '';
	  $sEtd_Ite_Unidad = '';
	  $nEtd_Uni_Ite    = 0;
	  $nEtd_QtdpEmb    = 0;
      // Consulta
	  If ( SUBSTR($sEtd_Cod_Ite_Pt,0,1)=='/' ) {
         $sRet_Javs .=
	        "var FmI = parent.document.forms['fmPEstDoc_I1'];".
            "setTimeout( function () { ".
               "FmI.acao.value=''; ".
               "FmI.submod.value='PESQ_PRODUTO';".
               "FmI.submit();".
               "FmI.submod.value='".$sSubModulo."';".
			   $sJavaTravarJ.
            "}, 10);".
            "";
		 $sEtd_Cod_Ite_Pt = '';
	     //
	  // Inválido
	  } ElseIf ( STRLEN($sEtd_Cod_Ite_Pt)==0 ) {
	     //
	  // Puxar no banco de dados
	  } Else {
         $sSQLQuery =
           "SELECT ITE_CODIGOI, ITE_CODIGOL, ITE_DESCRIC, ITE_SIG_UNIDCMP, ITE_PRE_CUSTO_E, ITE_QTD_EMBACMP ".
           "FROM cad_produto ".
           "WHERE ITE_CODIGOL='".Str_Zero($sEtd_Cod_Ite_Pt,4)."'".
		   ";";
           $RowT = MYSQL_QUERY( $sSQLQuery ) Or Die( $sSQLQuery.'<br>'.MYSQL_ERROR() );
		   If ( $RowT = MYSQL_FETCH_OBJECT($RowT) ) {
	          $nEtd_Cod_Ite    = $RowT->ITE_CODIGOI;         // Código livre
		      $sEtd_Cod_Ite_Pt = $RowT->ITE_CODIGOL;         // Código livre
			  $sEtd_Ite_Descri = $RowT->ITE_DESCRIC;         // Descrição do produto
			  $sEtd_Ite_Unidad = $RowT->ITE_SIG_UNIDCMP;     // Sigla da unidade
			  $nEtd_Uni_Ite    = $RowT->ITE_PRE_CUSTO_E;     // Preço médio
			  $nEtd_QtdpEmb    = $RowT->ITE_QTD_EMBACMP;     // Quantidade por embalagem
              $sRet_Javs .=
                 "parent.document.getElementById('iDoc_Etd_Uni_Ite').value='".FormatoMoeda($nEtd_Uni_Ite)."';".
				 "";
			  //
		   } Else {
		      $sEtd_Cod_Ite_Pt = '';
	          //
		   }
	  }
	  $aEtn_Item['ITE_CODIGOL']     = $sEtd_Cod_Ite_Pt;
	  $aEtn_Item['ETD_COD_ITE']     = $nEtd_Cod_Ite;
	  $aEtn_Item['ITE_UNIDADE']     = $sEtd_Ite_Unidad;
	  $aEtn_Item['ITE_DESCRIC']     = $sEtd_Ite_Descri;
	  $aEtn_Item['ITE_PRE_CUSTO_E'] = $nEtd_Uni_Ite;
	  $aEtn_Item['ITE_QTD_EMBACMP'] = $nEtd_QtdpEmb;
      //$sEtd_Cod_Ite_Pt = Str_Zero( $sEtd_Cod_Ite_Pt, 4 );
      $sRet_Javs .=
        "parent.document.getElementById('iDoc_Etd_Cod_Ite').value='".$sEtd_Cod_Ite_Pt."';".
        "parent.document.getElementById('iDoc_Ite_Descric').value='".$sEtd_Ite_Descri."';".
        "parent.document.getElementById('iDoc_Ite_Unidade').value='".$sEtd_Ite_Unidad."';".
        "parent.document.getElementById('iDoc_Etd_QtdpEmb').value='".$nEtd_QtdpEmb.   "';".
		( EMPTY($sEtd_Cod_Ite_Pt) ?
        "parent.document.getElementById('iDoc_Etd_Cod_Ite').focus();"
		: "").
		"parent.Car_".$sNomeAcesso."6.Valida_Campos();".
        '';
   //
   // >> Validar campos
   } ElseIf ( $sAcao=="VALIDA_CAMPOS" ) {
      $sEtd_Cod_Ite = Somente_Numeros(@$_POST['ETD_COD_ITE']);                               // Código livre do item
      $nEtd_Qtd_Emb = STR_REPLACE(',','.',Somente_Numeros(@$_POST['ETD_QTD_EMB'],  ''))+0;   // Quantidade de embalagens
      $nEtd_QtdpEmb = STR_REPLACE(',','.',Somente_Numeros(@$_POST['ETD_QTDpEMB'],'.,'))+0;   // Quantidade de itens por embalagem
      $nEtd_Uni_Ite = STR_REPLACE(',','.',Somente_Numeros(@$_POST['ETD_UNI_ITE'],'.,'))+0;   // Valor unitário
	  If ( $nEtd_QtdpEmb<=0 ) {
		 $nEtd_QtdpEmb = 1;
	  }
      $nEtd_Qtd_Ite = $nEtd_Qtd_Emb * $nEtd_QtdpEmb;                                         // Calcular quantidade
	  $nEtd_Tot_Ite = ($nEtd_Qtd_Ite * $nEtd_Uni_Ite);
	  //
	  $aEtn_Item['ETD_QTD_EMB']     = $nEtd_Qtd_Emb;
	  $aEtn_Item['ETD_QTD_ITE']     = $nEtd_Qtd_Ite;
	  $aEtn_Item['ITE_QTD_EMBACMP'] = $nEtd_QtdpEmb;
	  $aEtn_Item['ETD_UNI_ITE']     = $nEtd_Uni_Ite;
	  $aEtn_Item['ETD_TOT_ITE']     = $nEtd_Tot_Ite;
	  $aEtn_Item['ETD_DSP_PRM']     = 0;
	  $aEtn_Item['ETD_DSP_VAL']     = 0;
	  //
	  $bTudo_Valido = ((@$aEtn_Item['ETD_COD_ITE']+0)>0 && $nEtd_Tot_Ite>0);
	  $nSaldo_Estoque = 0;
	  If ( (@$aEtn_Item['ETD_COD_ITE']+0)>0 ) {
 	     $nSaldo_Estoque = Produto_Estoque($aEtn_Item['ETD_COD_ITE']);
	     $nSaldo_Estoque = @$nSaldo_Estoque['EST_SALDOS']+0;
	  }
	  //
      $sRet_Javs .=
        "parent.document.getElementById('iDoc_Est_SaldoQt').value='".( $nSaldo_Estoque==0 ? '' : NUMBER_FORMAT($nSaldo_Estoque, 3, ',',''))."';".
        "parent.document.getElementById('iDoc_Etd_Qtd_Emb').value='".NUMBER_FORMAT($nEtd_Qtd_Emb, 0, ',','')."';".
        "parent.document.getElementById('iDoc_Etd_QtdpEmb').value='".NUMBER_FORMAT($nEtd_QtdpEmb, 3, ',','')."';".
        "parent.document.getElementById('iDoc_Etd_Qtd_Ite').value='".NUMBER_FORMAT($nEtd_Qtd_Ite, 3, ',','')."';".
        "parent.document.getElementById('iDoc_Etd_Uni_Ite').value='".FormatoMoeda($nEtd_Uni_Ite)."';".
        "parent.document.getElementById('iDoc_Etd_Tot_Ite').value='".FormatoMoeda($nEtd_Tot_Ite)."';".
        "parent.document.getElementById('oEtd_SvrEtg').style.display='".($bTudo_Valido ? "inline-block" : "none")."';".
        "if ( parent.sIdHasFocus == 'iDoc_Etd_Uni_Ite' ) {".     // Deixar campo selecionado quando alterar o valores
          "var ObjPrx = parent.document.getElementById(parent.sIdHasFocus);".
          "ObjPrx.select();".
        "}".
        '';
   //
   // >> Salvar item
   } ElseIf ( $sAcao=="SALVAR" ) {
	  $nEtd_Qtd_Ite = @$aEtn_Item['ETD_QTD_ITE']+0;
	  $nEtd_Uni_Ite = @$aEtn_Item['ETD_UNI_ITE']+0;
	  $nEtd_Cod_Ite = @$aEtn_Item['ETD_COD_ITE']+0;
	  // Item novo
      If ( $bItemNovo ) {
	     $aEtn_Item['ETD_IDN_ETD'] = $aEtn_Geral['VIR_IDN_ETD'];
		 $aEtn_Geral['VIR_IDN_ETD']++;
	     $aEtn_Itens[] = $aEtn_Item;
	  // Alteração no item
	  } Else {
	     $nIndiceMat_Item = Loc_Indice_Item($sEtd_Idn_Etd);
		 If ( $nIndiceMat_Item<0 ) {
		    // ** ERRO **
		 } Else {
		    $aEtn_Itens[$nIndiceMat_Item] = $aEtn_Item;
	     }
	  }
	  //
      $sRet_Javs .=
	      ( $bItemNovo ?
             "parent.document.getElementById('iDoc_Etd_Cod_Ite').value='';".
             "parent.document.getElementById('iDoc_Etd_Qtd_Ite').value='';".
             "parent.document.getElementById('iDoc_Etd_Uni_Ite').value='';".
		     "parent.Car_".$sNomeAcesso."6.Puxar_Ite();"
		  :
		     $oJan->sJavOnClickF
		  ).
		  "parent.Car_".$sNomeAcesso."1.P_Atu();".
	      "";
   //
   // >> Fechar janela
   } ElseIf ( $sAcao=="FECHAR" ) {
      UNSET($aEtn_Item);
      //
      $sRet_Javs .=
		 "parent.document.getElementById('".$sNomeIdJPrin."_Travar').style.visibility='hidden';".
		 "parent.Disabled_In_Elems('".$sNomeIdJPrin."',false);".
	     "parent.document.getElementById('iDoc_TabItem_Tecla').focus();".
		 "parent.Car_".$sNomeAcesso."1.Valida_EtnGeral();".
         "parent.RmElem('".$oJan->sIdObj."');";
   }
   // Sessao de trabalho do item
   If ( ISSET($aEtn_Item) ) {
      $aSessao['ETN_ITEM'] = @$aEtn_Item;
   } Else {
      If ( ISSET($aSessao['ETN_ITEM']) ) { UNSET($aSessao['ETN_ITEM']); }
   }
}
//
//Salvar ou limpar matrizes de trabalho
If ( ISSET($aEtn_Geral) ) {
   $aSessao['ETN_GERAL'] = @$aEtn_Geral;
   $aSessao['ETN_ITENS'] = @$aEtn_Itens;
} Else {
   If ( ISSET($aSessao['ETN_GERAL']) ) { UNSET($aSessao['ETN_GERAL']); }
   If ( ISSET($aSessao['ETN_ITENS']) ) { UNSET($aSessao['ETN_ITENS']); }
}
//
//
Function Loc_Indice_Item($nEtd_Idn_Etd) {
   Global $aEtn_Itens;
   ForEach ( $aEtn_Itens as $nIndice=>$aEtn_Item ) {
      If ( @$aEtn_Item['ETD_IDN_ETD']==$nEtd_Idn_Etd ) {
	     Return $nIndice;
	  }
   }
   Return -1;
}
?>