<?php
$sNomeIdJPrin = "iJan_Cad_FichaP";
$sNomeIdJItem = "iJan_Cad_FichaE";
// Capturar matrizes de trabalho
$aReg_Geral = @$aSessao['FTP_GERAL'];
$aReg_Itens = @$aSessao['FTP_ITENS'];
$bActVariosSabores = @$aReg_Geral['GRU_ACTSAB']+0;
$bActPrMeia_Porcao = @$aReg_Geral['GRU_ACTMEI']+0;
$nIte_CodigoI      = @$aReg_Geral['ITE_CODIGOI']+0;
$nVir_Cod_Fpi      = 600000;
//
//  ** PRINCIPAL **
If ( $sSubModulo=="FICHA_PRODUCAO" ) {
   // Criar objeto Janela
   $oJan = New R_Janela();
   $oJan->sIdObj  = $sNomeIdJPrin;
   $oJan->nWidth  = 840;   // Largura
   $oJan->nHeight = 0;     // Altura
   $oJan->nTop    = 10;
   $oJan->nLeft   = 0;
   $oJan->nLeft  += ($nTela_W/2)-($oJan->nWidth/2);
   $oJan->sTitulo = 'Ficha técnica de produção';
   $oJan->sJavKeyDown = "return Car_".$sNomeAcesso."3.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.fmCadFchP_H.acao.value='FECHAR'; ".
   	   "parent.document.forms.fmCadFchP_H.submit();".
   	   "";
   // Criar objeto GRID
   $oTabItem = New Pad_GridPesq();
   $oTabItem->sIdObjTabela   = 'iQdr_CFch_Itens';
   $oTabItem->sNomeTabela    = 'cad_ficha_producao_itens';
   $oTabItem->bUsarSoMatriz  = True;
   $oTabItem->sCampoIndice   = 'FPI_COD_FPI';
   $oTabItem->nWidth         = $oJan->nWidth;
   $oTabItem->nHeight        = 170;    // Altura
   $oTabItem->sCampoOnClick  = "Car_".$sNomeAcesso."3.P_Sel(<NUMCAM>); Car_".$sNomeAcesso."3.P_Atu();";
   $oTabItem->sLinhaOnClick  = "Car_".$sNomeAcesso."3.PRow_Sel(<QTDCOL>,<SELLIN>);";
   $oTabItem->sLinhaOnDblClk = "if ( parent.document.getElementById('bCFch_Ite_AdcLst').style.display!='none' ) {".
                                   "setTimeout( parent.document.getElementById('bCFch_Ite_EdtLst').onclick , 1);".
							   "}";
   $oTabItem->sJavSelectReg  = "sSelIndice = S_Indice;".
                               "if (parseInt(sSelIndice)>0 && parent.document.getElementById('bCFch_Ite_AdcLst').style.display!='none') {".
                                   "parent.document.getElementById('bCFch_Ite_DelLst').style.display='inline-block';".
                                   "parent.document.getElementById('bCFch_Ite_EdtLst').style.display='inline-block';".
							   "}".
                               'parent.document.getElementById("iCFch_TabItem_Tecla").focus();';
   //
   // >> Inicial
   If ( EMPTY($sAcao) ) {
      // SQL: Puxar registro geral
	  $nIte_CodigoI = Somente_Numeros(@$_POST['Ite_CodigoI'])+0;
      $sSQLQuery =
	     "SELECT pro.ITE_CODIGOI    , pro.ITE_CODIGOL    , pro.ITE_DESCRIC,".
		        "pro.ITE_PRE_CUS_001, pro.ITE_PRE_CUS_002, pro.ITE_PRE_CUS_003, pro.ITE_PRE_CUS_004,".
		        "pro.ITE_PRE_CUSTO_N, pro.ITE_PRE_CUSTO_M,".
		        "gru.GRU_ACTSAB , gru.GRU_ACTMEI, ".
		        "fpg.* ".
		 "FROM cad_produto                   AS pro ".
         "LEFT JOIN cad_grupo_produtos       AS gru ON GRU_CODIGO =ITE_COD_GRU ".
         "LEFT JOIN cad_ficha_producao_geral AS fpg ON FPG_COD_ITE=ITE_CODIGOI ".
		 "WHERE ITE_CODIGOI=".$nIte_CodigoI.";";
      $aReg_Geral = MYSQL_QUERY( $sSQLQuery ) Or Die( $sSQLQuery.'<br>'.MYSQL_ERROR() );
	  If ( ! $aReg_Geral = MYSQL_FETCH_ARRAY($aReg_Geral,MYSQL_ASSOC) ) {
	     $aReg_Geral = ARRAY();
		 $aReg_Geral['FPG_COD_ITE'] = 0;
		 $aReg_Geral['ITE_CODIGOI'] = $nIte_CodigoI;
	  }
      $aReg_Geral['VIR_COD_FPI'] = $nVir_Cod_Fpi;              //  Identificador virtual para os itens
	  $bActVariosSabores = @$aReg_Geral['GRU_ACTSAB']+0;
	  $bActPrMeia_Porcao = @$aReg_Geral['GRU_ACTMEI']+0;
      // SQL: Puxar registro dos itens
	  $aReg_Itens = ARRAY();
      $sSQLQuery =
	     "SELECT pro.ITE_CODIGOI, pro.ITE_CODIGOL, pro.ITE_DESCRIC, pro.ITE_SIG_UNIDADE,".
		        "pro.ITE_PRE_CUSTO_N AS ITE_PRE_CUSTO_E,".
		        "gru.GRU_ACTSAB ,".
		        "fpi.* ".
		 "FROM cad_ficha_producao_itens AS fpi ".
         "LEFT JOIN cad_produto         AS pro ON ITE_CODIGOI=FPI_COD_ITE ".
         "LEFT JOIN cad_grupo_produtos  AS gru ON GRU_CODIGO =ITE_COD_GRU ".
		 "WHERE FPI_COD_FPG=".$nIte_CodigoI.";";
      $aReg_Temp = MYSQL_QUERY( $sSQLQuery ) Or Die( $sSQLQuery.'<br>'.MYSQL_ERROR() );
	  $aReg_Item = 0;
	  While ( $aReg_Item = MYSQL_FETCH_ARRAY($aReg_Temp,MYSQL_ASSOC) ) {
	     $aReg_Itens[] = $aReg_Item;
	  }
	  UNSET( $aReg_Item );  UNSET( $aReg_Temp );
	  $aReg_Geral['REG_ITENS_ANTERIOR'] = $aReg_Itens;
	  // Objetos na janela
      $oJan->aIdsObjList = ARRAY('iCFch_TabItem_Tecla','iCFch_Fpg_Instruc');
	  // Divisão padrão em HTML
	  $sDivisaoFm_HTML =
         '<div style="height:5px;"></div>'.
         '<div style="width:100%; height:1px; background-color:#91D8F8;"></div>'.
         '<div style="height:5px;"></div>';
      // Formulário visual
      $sRet_TelaJ_HTML =
	     // 1º linha
       	 '<table width="100%">'.
		  '<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>'.
		  '</tr>'.
		  // campos
		  '<tr>'.
		   '<td valign="middle">'.
		    // -- campo do código livre do produto
            '<input id="iCFch_Ite_CodigoL" readonly value="'.@$aReg_Geral['ITE_CODIGOL'].'" type="text" maxlength="4" style="width:50px;">'.
			// --
		   '</td>'.
		   '<td></td>'.
		   '<td valign="middle">'.
		    // -- campo da descrição do produto
            '<input id="iCFch_Ite_Descric" readonly value="'.@$aReg_Geral['ITE_DESCRIC'].'" type="text" maxlength="60" style="width:780px;">'.
			// --
		   '</td>'.
		  '</tr>'.
		 '</table>'.
		 $sDivisaoFm_HTML.
	     // 2º linha
       	 '<table width="100%">'.
		  '<tr>'.
		   '<td valign="middle" style="font-size:14px; font-weight:bold; color:#444444;">'.
		    'Produtos na produção'.
		   '</td>'.
           '<td width="124px" align="right">'.
       	     HTML_Botao( 3, 'bCFch_Ite_DelLst', "Car_".$sNomeAcesso."3.Del_Item(Car_".$sNomeAcesso."3.sSelIndice);"
			              , 'Excluir (DEL)'   ,'images/btimg_remover_2.png', 112).
		   '</td>'.
           '<td width="124px" align="right">'.
       	     HTML_Botao( 3, 'bCFch_Ite_EdtLst', $sJavaTravarJ.
			                                   "Car_".$sNomeAcesso."3.Edt_Item(Car_".$sNomeAcesso."3.sSelIndice);"
			              , 'Editar (F2)'     ,'images/btimg_editar.png'   , 102).
		   '</td>'.
           '<td width="154px" align="right">'.
       	     HTML_Botao( 3, 'bCFch_Ite_AdcLst', $sJavaTravarJ.
			                                   "Car_".$sNomeAcesso."3.Edt_Item('_NOVO_');"
			              , 'Adicionar (INS)' ,'images/btimg_novo.png'     , 132).
		   '</td>'.
		  '</tr>'.
		 '</table>'.
         '<div style="height:5px;"></div>'.
	     '<input id="iCFch_TabItem_Tecla" style="position:absolute; top:-100; left:-100; width:1px; height:1px;">'.
		 $oTabItem->MontaDivHtml().
         '<div style="height:5px;"></div>'.
		 $sDivisaoFm_HTML.
	     // 3º linha
       	 '<table width="100%">'.
		  '<tr>'.
		   '<td valign="middle" style="font-size:14px; font-weight:bold; color:#444444;">'.
		    'Instruções de produção'.
		   '</td>'.
		  '</tr>'.
		 '</table>'.
         '<div style="height:5px;"></div>'.
	     '<textarea id="iCFch_Fpg_Instruc" name="FPG_INSTRUC" style="text-align:left; width:100%; height:100px;"></textarea>'.
		 $sDivisaoFm_HTML.
	     // 4º linha
       	 '<table width="100%">'.
		  '<tr>'.
           '<td align="left">'.
		    '<span class="Titulo">Total de custos:</span>'.
		   '</td>'.
		   ( $bActVariosSabores ?
             '<td align="center">'.
		      '<span class="Titulo">'.SQLVarConfig('DESCRI_PROPRECO1').'</span>'.
		     '</td>'.
             '<td align="center">'.
		      '<span class="Titulo">'.SQLVarConfig('DESCRI_PROPRECO2').'</span>'.
		     '</td>'.
             '<td align="center">'.
		      '<span class="Titulo">'.SQLVarConfig('DESCRI_PROPRECO3').'</span>'.
		     '</td>'.
             '<td align="center">'.
		      '<span class="Titulo">'.SQLVarConfig('DESCRI_PROPRECO4').'</span>'.
		     '</td>'
		   :
             '<td align="center">'.
		      '<span class="Titulo">'.SQLVarConfig('DESCRI_PROPRECON').'</span>'.
		     '</td>'.
			 ( $bActPrMeia_Porcao ?
             '<td align="center">'.
		      '<span class="Titulo">'.SQLVarConfig('DESCRI_PROPRECOM').'</span>'.
		     '</td>' : '')
		   ).
		   '<td></td>'.
		  '</tr>'.
		  // campos
		  '<tr>'.
		   '<td width="100px"></td>'.
		   ( $bActVariosSabores ?
		     '<td valign="middle" align="center" width="112px">'.
		      // -- campo do total de custo 1
              '<input id="iCFch_Fpg_Custo_1" readonly type="text" maxlength="12" style="width:100px; text-align:right;">'.
			  // --
		     '</td>'.
		     '<td valign="middle" align="center" width="112px">'.
		      // -- campo do total de custo 2
              '<input id="iCFch_Fpg_Custo_2" readonly type="text" maxlength="12" style="width:100px; text-align:right;">'.
			  // --
		     '</td>'.
		     '<td valign="middle" align="center" width="112px">'.
		      // -- campo do total de custo 3
              '<input id="iCFch_Fpg_Custo_3" readonly type="text" maxlength="12" style="width:100px; text-align:right;">'.
			  // --
		     '</td>'.
		     '<td valign="middle" align="center" width="112px">'.
		      // -- campo do total de custo 4
              '<input id="iCFch_Fpg_Custo_4" readonly type="text" maxlength="12" style="width:100px; text-align:right;">'.
			  // --
		     '</td>'
		   :
		     '<td valign="middle" align="center" width="112px">'.
		      // -- campo do total de custo normal
              '<input id="iCFch_Fpg_Custo_N" readonly type="text" maxlength="12" style="width:100px; text-align:right;">'.
			  // --
		     '</td>'.
			 ( $bActPrMeia_Porcao ?
		     '<td valign="middle" align="center" width="112px">'.
		      // -- campo do total de custo meia
              '<input id="iCFch_Fpg_Custo_M" readonly type="text" maxlength="12" style="width:100px; text-align:right;">'.
			  // --
		     '</td>' : '')
		   ).
	       '<td></td>'.
		  '</tr>'.
		 '</table>'.
		 '';
	  //
      $sRet_TelaJ_HTML =
         $oJan->MontaJanHTML(True).
		 '<style type="text/css" rel="stylesheet">'.
          '.CadFchPro 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;'.
		  '}'.
          '.CadFchPro span.Titulo {'.
		    'display:inline-block;'.
			'position:relative;'.
			'left:6px;'.
		  '}'.
          '.CadFchPro span.Titulo {'.
		    'display:inline-block;'.
			'position:relative;'.
		  '}'.
          '.CadFchPro 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;'.
          '}'.
          '.CadFchPro input:read-only {'.
			'background:#F0EFE8;'.
			'border-color:#DBDAD2;'.
          '}'.
		 '</style>'.
         '<form name="fmCadFchP_H" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'4">'.
          '<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="Fil_Num_Cam" type="hidden" value="">'.
          '<input name="FPI_COD_FPI" type="hidden" value="">'.
       	  '<table width="'.($oJan->nWidth-8).'px" class="CadFchPro">'.
		   '<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 style="height:8px;"></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, 'bCFch_Salvar' , "Car_".$sNomeAcesso."3.Salvar_FpgGeral();"
		 	              , 'Salvar (F10)' ,'images/btimg_salvar.png'   , 112).
		   '</td>'.
           '<td width="184px" align="right" valign="center">'.
       	     HTML_Botao( 3, 'bCFch_Remover', "Car_".$sNomeAcesso."3.Remover_FpgGeral();"
			              , 'Remover ficha (F4)','images/btimg_remover.png', 160).
		   '</td>'.
           '<td align="left"></td>'.
           '<td width="124px" align="right" valign="center">'.
       	     HTML_Botao( 3, 'bCFch_SairJn' , $oJan->sJavOnClickF
		 	              , 'Sair (ESC)'   ,'images/btimg_fechar.png'   , 102).
		   '</td>'.
           '<td width="8px"></td>'.
		  '</tr>'.
		 '</table>'.
         $oJan->MontaJanHTML(False);
      //
      // Java inicial
      $sRet_Javs .=
 	     "";
      // Java posterior
      $sRet_JavsPos .=
	    "var FmH = parent.document.forms['fmCadFchP_H'];".
		//
		"parent.document.getElementById('iCFch_Fpg_Instruc').value = ".JAVA_CharCode(@$aReg_Geral['FPG_INSTRUC']).";".
        "sSelIndice='0';".
        $oTabItem->MontaJavaPri().
        "function P_Atu() {".
           $oTabItem->MontaJavaAgu().
           "sSelIndice='0';".
           "parent.document.getElementById('bCFch_Ite_DelLst').style.display='none';".
           "parent.document.getElementById('bCFch_Ite_EdtLst').style.display='none';".
           "FmH.acao.value='PUXAR_ITENS';".
           "FmH.Fil_Num_Cam.value=nPesq_CampoSel+'';".
           "setTimeout( function() { FmH.submit(); }, 300);".
        '}'.
		// teclas da janela
		"function Teclas_F( Objeto, Evento ) {".
           "vNumTecla = parent.Tecla_Apertada(Evento);".
		   "if ( vNumTecla==116) {".            //  ** [F5] **       Não atualizar
		       //
		   "} else if ( vNumTecla==27) {".      //  ** [ESC] **      (SAIR)
              "setTimeout( function () { ".$oJan->sJavOnClickF." } , 1);".
		   "} else if ( vNumTecla==121) {".     //  ** [10] **       (Salvar ficha de produção)
			  "if (parent.document.getElementById('bCFch_Salvar').style.display != 'none') { ".
                  "setTimeout( parent.document.getElementById('bCFch_Salvar').onclick , 1);".
			  "}".
		   "} else if ( parent.sIdHasFocus=='iCFch_TabItem_Tecla' ) { ".   //  Navegar na tabela
		      "if ( vNumTecla==113) { ".        //  ** [F2] **       (Alterar item)
			      "if (parent.document.getElementById('bCFch_Ite_EdtLst').style.display != 'none') { ".
                      "setTimeout( parent.document.getElementById('bCFch_Ite_EdtLst').onclick , 1);".
			      "}".
		      "} else if ( vNumTecla==46) { ".  //  ** [DEL] **      (Deletar item)
			     "if (parent.document.getElementById('bCFch_Ite_DelLst').style.display != 'none') { ".
                     "setTimeout( parent.document.getElementById('bCFch_Ite_DelLst').onclick , 1);".
				 "}".
		      "} else if ( vNumTecla==45) { ".  //  ** [INS] **      (Adicionar item)
                 "setTimeout( parent.document.getElementById('bCFch_Ite_AdcLst').onclick , 1);".
			  "} else {".
                 "P_TeclasPress_fm(Evento);".
			  "}".
		   "} else {".
		      "return true;".
		   "}".
		   "return false;".
		"}".
		//
		"function Edt_Item(sCod_Item) {".
		   "TargetAnt = FmH.target;".
		   "FmH.target='car_".$sNomeAcesso."6';".
           "FmH.submod.value='EDT_ITEM';".
           "FmH.acao.value='';".
           "FmH.FPI_COD_FPI.value=sCod_Item;".
           "FmH.submit();".
		   "FmH.target = TargetAnt;".
           "FmH.submod.value='".$sSubModulo."';".
           "FmH.FPI_COD_FPI.value='';".
		"}".
		"function Del_Item(sCod_Item) {".
		   "TargetAnt = FmH.target;".
		   "FmH.target='car_".$sNomeAcesso."6';".
           "FmH.acao.value='DEL_ITEM';".
           "FmH.FPI_COD_FPI.value=sCod_Item;".
           "FmH.submit();".
		   "FmH.target = TargetAnt;".
           "FmH.FPI_COD_FPI.value='';".
		"}".
		"function Salvar_FpgGeral() {".
           "FmH.acao.value='SALVAR';".
           "FmH.submit();".
		   "parent.JanEspera(true, 'Aguarde, salvando ficha técnica de produção...');".
		"}".
		"function Remover_FpgGeral() {".
		   "parent.Qdr_Prompt_H(true,'Confirma a exclusão desta ficha técnica de produção?',".
		      JAVA_CharCode(
		        "if (_NUM_BOT_==1) { ".  
	                "JanEspera(true, 'Aguarde, removendo...');".
                    "setTimeout( function() {".
                       "Car_".$sNomeAcesso."3.FmH.acao.value='REMOVER';".
		               "Car_".$sNomeAcesso."3.FmH.submit(); ".
		            "}, 1000);".
		   	    "}"
			  ).                      
		   ",['Sim','Não']);".
		"}".
		//
		"parent.document.getElementById('iCFch_TabItem_Tecla').focus();".
		"P_Atu();".
		//
		"";
   //
   // >> Puxar Itens na tabela
   } ElseIf ( $sAcao=="PUXAR_ITENS" ) {
      $nFil_Num_Cam = @$_POST['Fil_Num_Cam']+0;
      $oTabItem->GLstCampos( 'ITE_CODIGOL,Código,45px,STRZERO=4;'.
      			             'ITE_DESCRIC,Descrição do produto;'.
      			             'ITE_PRE_CUSTO_E,Custo Un.,80px,MOE;'.
      			             'ITE_SIG_UNIDADE,Un.,27px;'.
							 ( $bActVariosSabores ?
      			             'FPI_QUANT_1,Qtd '.SQLVarConfig('DESCRI_PROPRECO1').',80px,DECIMAL=3;'.
      			             'FPI_QUANT_2,Qtd '.SQLVarConfig('DESCRI_PROPRECO2').',80px,DECIMAL=3;'.
      			             'FPI_QUANT_3,Qtd '.SQLVarConfig('DESCRI_PROPRECO3').',80px,DECIMAL=3;'.
      			             'FPI_QUANT_4,Qtd '.SQLVarConfig('DESCRI_PROPRECO4').',80px,DECIMAL=3;'
							 :
      			             'FPI_QUANT_N,Qtd '.SQLVarConfig('DESCRI_PROPRECON').',90px,DECIMAL=3;'.
							 ( $bActPrMeia_Porcao ?
      			             'FPI_QUANT_M,Qtd '.SQLVarConfig('DESCRI_PROPRECOM').',90px,DECIMAL=3;' : '')
							 )
							 );
	  $oTabItem->aLstItensTab = @$aReg_Itens;
      // Monta a tabela
      $sRet_Tabela = $oTabItem->MontaTabelaHTML();
	  // Recalcular totais de custo
	  Calcular_Custo_Simulacao();
      // Java
      $sRet_Javs .=
        "var iQdr_ListaCxa = parent.document.getElementById('".$oTabItem->sIdObjTabela."');".
        'iQdr_ListaCxa.innerHTML = '.JAVA_CharCode($sRet_Tabela).';'.
    	'parent.Car_'.$sNomeAcesso.'3.'.$oTabItem->sNomeTabela.'_Rowsel = 1;'.
        'parent.Car_'.$sNomeAcesso.'3.P_Sel('.$nFil_Num_Cam.');'.
		( $bActVariosSabores ?
		 "parent.document.getElementById('iCFch_Fpg_Custo_1').value=".JAVA_CharCode_Mini('R$ '.FormatoMoeda(@$aReg_Geral['ITE_PRE_CUS_001']+0)).";".
		 "parent.document.getElementById('iCFch_Fpg_Custo_2').value=".JAVA_CharCode_Mini('R$ '.FormatoMoeda(@$aReg_Geral['ITE_PRE_CUS_002']+0)).";".
		 "parent.document.getElementById('iCFch_Fpg_Custo_3').value=".JAVA_CharCode_Mini('R$ '.FormatoMoeda(@$aReg_Geral['ITE_PRE_CUS_003']+0)).";".
		 "parent.document.getElementById('iCFch_Fpg_Custo_4').value=".JAVA_CharCode_Mini('R$ '.FormatoMoeda(@$aReg_Geral['ITE_PRE_CUS_004']+0)).";"
		:
		 "parent.document.getElementById('iCFch_Fpg_Custo_N').value=".JAVA_CharCode_Mini('R$ '.FormatoMoeda(@$aReg_Geral['ITE_PRE_CUSTO_N']+0)).";".
		 ( $bActPrMeia_Porcao ?
		 "parent.document.getElementById('iCFch_Fpg_Custo_M').value=".JAVA_CharCode_Mini('R$ '.FormatoMoeda(@$aReg_Geral['ITE_PRE_CUSTO_M']+0)).";"
		 : '')
		).
        '';
	  //
   //
   // >> Deletar um item na tebela
   } ElseIf ( $sAcao=="DEL_ITEM" ) {
      $nFpi_Cod_Fpi = @$_POST['FPI_COD_FPI']+0;
	  If ( $nFpi_Cod_Fpi>0 ) {
	     $nItem_Indice = Loc_Indice_Item($nFpi_Cod_Fpi);
         UNSET( $aReg_Itens[$nItem_Indice] );
	  }
      $sRet_Javs .=
	    "parent.Car_".$sNomeAcesso."3.P_Atu();".
	    '';
   //
   // >> Salvar ficha de produção
   } ElseIf ( $sAcao=="SALVAR" ) {
	  $aReg_Itens_Anterior = $aReg_Geral['REG_ITENS_ANTERIOR'];
      //
      $sRet_Javs .=
		   "parent.JanEspera(false);".
		   "";
	  // MySql: Iniciar a translação
      MYSQL_QUERY("START TRANSACTION;");
	  // Nova ficha de produção
	  If ( $aReg_Geral['FPG_COD_ITE']==0 ) {
		   $sSQLQuery = "INSERT INTO cad_ficha_producao_geral(FPG_COD_ITE) VALUE (".$nIte_CodigoI.");";
           MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
		   $aReg_Geral['FPG_COD_ITE'] = $nIte_CodigoI;
	  }
	  // Atualizar dados na ficha de produção
      $sSQLQuery = 
         "UPDATE cad_ficha_producao_geral SET ".
	       "FPG_INSTRUC=".SQL_Bin(UTF8_DECODE(@$_POST['FPG_INSTRUC']))." ".
         "WHERE FPG_COD_ITE=".$aReg_Geral['FPG_COD_ITE'].";";
      MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
      // Remover itens da tabela
      ForEach ( $aReg_Itens_Anterior As $aReg_ItemA ) {
        $nItem_Indice = Loc_Indice_Item( $aReg_ItemA['FPI_COD_FPI'] );
        If ( $nItem_Indice<0 ) {
            $sSQLQuery = "DELETE FROM cad_ficha_producao_itens WHERE FPI_COD_FPI=".$aReg_ItemA['FPI_COD_FPI'].";";
            MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
		}
      }
      // Adicionar e atualizar itens na tabela
      ForEach ( $aReg_Itens As $aReg_Item ) {
	    If ( $aReg_Item['FPI_COD_FPI'] >= $nVir_Cod_Fpi ) {  // Novo
		   $sSQLQuery = "INSERT INTO cad_ficha_producao_itens(FPI_COD_FPG) VALUE (".$aReg_Geral['FPG_COD_ITE'].");";
           MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
		   $aReg_Item['FPI_COD_FPI'] = MYSQL_INSERT_ID();
		}
		// Atualizar dados
        $sSQLQuery = 
           "UPDATE cad_ficha_producao_itens SET ".
		     "FPI_COD_ITE=".$aReg_Item['FPI_COD_ITE'].",".
		     "FPI_QUANT_N=".$aReg_Item['FPI_QUANT_N'].",".
		     "FPI_QUANT_M=".$aReg_Item['FPI_QUANT_M'].",".
		     "FPI_QUANT_1=".$aReg_Item['FPI_QUANT_1'].",".
		     "FPI_QUANT_2=".$aReg_Item['FPI_QUANT_2'].",".
		     "FPI_QUANT_3=".$aReg_Item['FPI_QUANT_3'].",".
		     "FPI_QUANT_4=".$aReg_Item['FPI_QUANT_4']." ".
           "WHERE FPI_COD_FPI=".$aReg_Item['FPI_COD_FPI'].";";
        MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
		//
	  }
	  // Recalcular custos do produto
	  Calcular_Custo_Ficha_Producao( $aReg_Item['FPI_COD_ITE'] );
      // MySql: Salvar a translação
      MYSQL_QUERY("COMMIT;");
	  //
      $sRet_Javs .= $oJan->sJavOnClickF;
	  //
   //
   // >> Remover ficha de produção
   } ElseIf ( $sAcao=="REMOVER" ) {
      //
      $sSQLQuery = "DELETE FROM cad_ficha_producao_itens WHERE FPI_COD_FPG=".$aReg_Geral['FPG_COD_ITE'].";";
      MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
      $sSQLQuery = "DELETE FROM cad_ficha_producao_geral WHERE FPG_COD_ITE=".$aReg_Geral['FPG_COD_ITE'].";";
      MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
	  //
      $sRet_Javs .=
		   "parent.JanEspera(false);".
		   $oJan->sJavOnClickF.
		   "";
   //
   // >> Fechar janela
   } ElseIf ( $sAcao=="FECHAR" ) {
      //
	  UNSET( $aReg_Geral );
	  UNSET( $aReg_Itens );
	  //
      $sRet_Javs .=
	     "parent.Disabled_In_Elems('".$sNomeIdJEdt_Cad."',false);".
	     "parent.document.getElementById('".$sNomeIdJEdt_Cad."_Travar').style.visibility='hidden';".
		 "parent.Car_".$sNomeAcesso."2.Atualizar_Campos();".
		 "parent.document.getElementById('iECadEIte_EstMin').focus();".
         "parent.RmElem('".$oJan->sIdObj."');";
   }
   //
//
//  ** ADICIONAR / EDITAR PRODUTO NA LISTA **
} ElseIf ( $sSubModulo=="EDT_ITEM" ) {
   //
   $sFpi_Cod_Fpi = @$_POST['FPI_COD_FPI'];
   $bItemNovo = ($sFpi_Cod_Fpi == '_NOVO_');
   $aReg_Item = @$aSessao['FPI_ITEM'];
   // Criar objeto Janela
   $oJan = New R_Janela();
   $oJan->sIdObj  = $sNomeIdJItem; 
   $oJan->nWidth  = 690;   // 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.fmPFchPro_I1.acao.value='FECHAR'; ".
   	   "parent.document.forms.fmPFchPro_I1.submit();".
   	   "";
   //
   // >> Inicial
   If ( EMPTY($sAcao) ) {
      //
	  If ( ! $bItemNovo ) {
	     $nIndiceMat_Item = Loc_Indice_Item($sFpi_Cod_Fpi);
		 If ( $nIndiceMat_Item<0 ) {
		    // ** ERRO **
		 } Else {
		    $aReg_Item = $aReg_Itens[$nIndiceMat_Item];
	     }
	  }
      // lista dos objetos na janela
	  If ( $bActVariosSabores ) {
         $oJan->aIdsObjList =
             ARRAY( 'iFchP_Fpi_Cod_Ite', 'iFchP_Fpi_Quant_1', 'iFchP_Fpi_Quant_2', 'iFchP_Fpi_Quant_3', 'iFchP_Fpi_Quant_4' );
	  } Else {
	     If ( $bActPrMeia_Porcao ) {
            $oJan->aIdsObjList =
                ARRAY( 'iFchP_Fpi_Cod_Ite', 'iFchP_Fpi_Quant_N', 'iFchP_Fpi_Quant_M' );
		 } Else {
            $oJan->aIdsObjList =
                ARRAY( 'iFchP_Fpi_Cod_Ite', 'iFchP_Fpi_Quant_N' );
		 }
	  }
  	  //
      $sRet_TelaJ_HTML =
         $oJan->MontaJanHTML(True).
         '<form name="fmPFchPro_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="FPI_COD_FPI" type="hidden" value="'.$sFpi_Cod_Fpi.'">'.
		  '<div align="center" style="width:100%;" class="CadFchPro">'.
	       // 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="iFchP_Fpi_Cod_Ite" name="FPI_COD_ITE" type="text" maxlength="4" value="'.@$aReg_Item['ITE_CODIGOL'].'" style="width:62px; text-align:center;" onchange="Car_'.$sNomeAcesso.'6.Puxar_Ite();">'.
		     '</td>'.
			 '<td></td>'.
             '<td align="left">'.
       	      '<input id="iFchP_Ite_Descric" type="text" style="width:558px;" readonly value="'.@$aReg_Item['ITE_DESCRIC'].'">'.
		     '</td>'.
			 '<td align="left">'.
       	      HTML_Botao( 3, 'bFchP_Fpi_Cod_Ite', "document.getElementById('iFchP_Fpi_Cod_Ite').value='/';".
			                                      'Car_'.$sNomeAcesso.'6.Puxar_Ite();'
			               , ''  ,'images/btimg_lupa.png',20).
			 '</td>'.
		    '</tr>'.
	       '</table>'.
	       // 2º linha
       	   '<table>'.
		    '<tr>'.
             '<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>'.
			 ( $bActVariosSabores ?
              '<td align="left">'.
		       '<span class="Titulo">Qtd. '.SQLVarConfig('DESCRI_PROPRECO1').'</span>'.
		      '</td>'.
		      '<td width="6px"></td>'.
              '<td align="left">'.
		       '<span class="Titulo">Qtd. '.SQLVarConfig('DESCRI_PROPRECO2').'</span>'.
		      '</td>'.
		      '<td width="6px"></td>'.
              '<td align="left">'.
		       '<span class="Titulo">Qtd. '.SQLVarConfig('DESCRI_PROPRECO3').'</span>'.
		      '</td>'.
		      '<td width="6px"></td>'.
              '<td align="left">'.
		       '<span class="Titulo">Qtd. '.SQLVarConfig('DESCRI_PROPRECO4').'</span>'.
		      '</td>'
			 :
              '<td align="left">'.
		       '<span class="Titulo">Qtd. '.SQLVarConfig('DESCRI_PROPRECON').'</span>'.
		      '</td>'.
			  ( $bActPrMeia_Porcao ?
		      '<td width="6px"></td>'.
              '<td align="left">'.
		       '<span class="Titulo">Qtd. '.SQLVarConfig('DESCRI_PROPRECOM').'</span>'.
		      '</td>' : '')
			 ).
		    '</tr>'.
		    // campos
		    '<tr>'.
             '<td align="left">'.
       	      '<input id="iFchP_Ite_Unidade" type="text" readonly style="width:60px; text-align:center;" value="'.@$aReg_Item['ITE_SIG_UNIDADE'].'">'.
		     '</td>'.
			 '<td></td>'.
             '<td align="left">'.
       	      '<input id="iFchP_Est_SaldoQt" type="text" readonly style="width:90px; text-align:center;">'.
		     '</td>'.
			 '<td></td>'.
             '<td align="left">'.
       	      '<input id="iFchP_Ite_Pre_Cus" type="text" readonly value="'.@$aReg_Item['ITE_PRE_CUSTO_E'].'" style="width:90px; text-align:right;">'.
		     '</td>'.
			 '<td></td>'.
			 ( $bActVariosSabores ?
             '<td align="left">'.
       	      '<input id="iFchP_Fpi_Quant_1" type="text" name="FPI_QUANT_1" maxlength="10" value="'.@$aReg_Item['FPI_QUANT_1'].'" style="width:90px; text-align:right;" onchange="Car_'.$sNomeAcesso.'6.Valida_Campos();">'.
		     '</td>'.
			 '<td></td>'.
             '<td align="left">'.
       	      '<input id="iFchP_Fpi_Quant_2" type="text" name="FPI_QUANT_2" maxlength="10" value="'.@$aReg_Item['FPI_QUANT_2'].'" style="width:90px; text-align:right;" onchange="Car_'.$sNomeAcesso.'6.Valida_Campos();">'.
		     '</td>'.
			 '<td></td>'.
             '<td align="left">'.
       	      '<input id="iFchP_Fpi_Quant_3" type="text" name="FPI_QUANT_3" maxlength="10" value="'.@$aReg_Item['FPI_QUANT_3'].'" style="width:90px; text-align:right;" onchange="Car_'.$sNomeAcesso.'6.Valida_Campos();">'.
		     '</td>'.
			 '<td></td>'.
             '<td align="left">'.
       	      '<input id="iFchP_Fpi_Quant_4" type="text" name="FPI_QUANT_4" maxlength="10" value="'.@$aReg_Item['FPI_QUANT_4'].'" style="width:90px; text-align:right;" onchange="Car_'.$sNomeAcesso.'6.Valida_Campos();">'.
		     '</td>'
			 :
             '<td align="left">'.
       	      '<input id="iFchP_Fpi_Quant_N" type="text" name="FPI_QUANT_N" maxlength="10" value="'.@$aReg_Item['FPI_QUANT_N'].'" style="width:90px; text-align:right;" onchange="Car_'.$sNomeAcesso.'6.Valida_Campos();">'.
		     '</td>'.
			 '<td></td>'.
			 ( $bActPrMeia_Porcao ?
             '<td align="left">'.
       	      '<input id="iFchP_Fpi_Quant_M" type="text" name="FPI_QUANT_M" maxlength="10" value="'.@$aReg_Item['FPI_QUANT_M'].'" style="width:90px; text-align:right;" onchange="Car_'.$sNomeAcesso.'6.Valida_Campos();">'.
		     '</td>' : '')
			 ).
			 '<td></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, 'bFchP_SvrItem'  , 'Car_'.$sNomeAcesso.'6.Salvar();'
			              , 'Salvar (F10)' , 'images/btimg_ativar.png' , 112).
		   '</td>'.
           '<td width="124px" align="right" valign="center">'.
       	     HTML_Botao( 3, 'bFchP_SaiItem'  , $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['fmPFchPro_I1'];".
		 ( $bItemNovo ?
	        "parent.document.getElementById('iFchP_Fpi_Cod_Ite').focus();"
		 :
		   ( $bActVariosSabores ?
	        "parent.document.getElementById('iFchP_Fpi_Quant_1').focus();"
		   :
	        "parent.document.getElementById('iFchP_Fpi_Quant_N').focus();"
		   )
		 ).
		 "Valida_Campos();".
		 "function Teclas_F( Objeto, Evento ) {".
            "vNumTecla = parent.Tecla_Apertada(Evento);".
            "if ( vNumTecla==121) { ".           //  ** [F10] **      (Gravar)
		 	   "if (parent.document.getElementById('bFchP_SvrItem').style.display != 'none') { ".
                    "setTimeout( parent.document.getElementById('bFchP_SvrItem').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('iFchP_Fpi_Cod_Ite').focus();".
               "}".
		    "} else {".
		 	   "return true;".
		    "}".
		    "return false;".
		 "}".
		 //
		 "function Puxar_Ite() {".
	        "parent.document.getElementById('bFchP_SvrItem').style.display='none';".
            "FmI.acao.value='PUXAR_ITE';".
            "setTimeout( function() { FmI.submit(); }, 1);".
		 "}".
		 "function Valida_Campos() {".
	        "parent.document.getElementById('bFchP_SvrItem').style.display='none';".
            "FmI.acao.value='VALIDA_CAMPOS';".
            "setTimeout( function() { FmI.submit(); }, 1);".
		 "}".
		 "function Salvar() {".
	        "parent.document.getElementById('bFchP_SvrItem').style.display='none';".
            "FmI.acao.value='SALVAR';".
            "setTimeout( function() { FmI.submit(); }, 100);".
		 "}".
	     "";
      //
   //
   // >> Puxar produto
   } ElseIf ( $sAcao=="PUXAR_ITE" ) {
      $sFpi_Cod_Ite_Pt = Somente_Numeros(@$_POST['FPI_COD_ITE'],'/');
	  $nFpi_Cod_Ite    = 0;
	  $sFpi_Ite_Descri = '';
	  $sFpi_Ite_Unidad = '';
	  $nEst_Ite_Saldo_ = 0;
	  $nIte_Pre_CustoE = 0;
      // Consulta
	  If ( SUBSTR($sFpi_Cod_Ite_Pt,0,1)=='/' ) {
         $sRet_Javs .=
	        "var FmI = parent.document.forms['fmPFchPro_I1'];".
            "setTimeout( function () { ".
		       "TargetAnt = FmI.target;".
		       "FmI.target='car_".$sNomeAcesso."9';".
               "FmI.acao.value=''; ".
               "FmI.submod.value='PESQ_PRODUTO';".
               "FmI.submit();".
		       "FmI.target = TargetAnt;".
               "FmI.submod.value='".$sSubModulo."';".
			   $sJavaTravarJ.
            "}, 10);".
            "";
		 $sFpi_Cod_Ite_Pt = '';
	     //
	  // Inválido
	  } ElseIf ( STRLEN($sFpi_Cod_Ite_Pt)==0 ) {
	     //
	  // Puxar no banco de dados
	  } Else {
         $sSQLQuery =
           //"SELECT ITE_CODIGOI, ITE_CODIGOL, ITE_DESCRIC, ITE_SIG_UNIDADE, ITE_PRE_CUSTO_E ".
           "SELECT ".
             "ITE_CODIGOI, ITE_CODIGOL, ITE_DESCRIC, ITE_SIG_UNIDADE,".
             "pro.ITE_PRE_CUSTO_N AS ITE_PRE_CUSTO_E ".
           "FROM cad_produto AS pro ".
		   "LEFT JOIN cad_produto_classificacao AS cls ON cls.CLS_IDN_CLS=pro.ITE_COD_CLS ".
           "WHERE pro.ITE_CODIGOL='".Str_Zero($sFpi_Cod_Ite_Pt,4)."' AND cls.CLS_INC_FCP".
		   ";";
           $RowT = MYSQL_QUERY( $sSQLQuery ) Or Die( $sSQLQuery.'<br>'.MYSQL_ERROR() );
		   If ( $RowT = MYSQL_FETCH_OBJECT($RowT) ) {
	          $nFpi_Cod_Ite    = $RowT->ITE_CODIGOI;         // Código interno
		      $sFpi_Cod_Ite_Pt = $RowT->ITE_CODIGOL;         // Código livre
			  $sFpi_Ite_Descri = $RowT->ITE_DESCRIC;         // Descrição do produto
			  $sFpi_Ite_Unidad = $RowT->ITE_SIG_UNIDADE;     // Sigla da unidade
			  $nIte_Pre_CustoE = $RowT->ITE_PRE_CUSTO_E;     // Preço de custo
			  //
		   } Else {
		      $sFpi_Cod_Ite_Pt = '';
	          //
		   }
	  }
	  $aReg_Item['FPI_COD_ITE']     = $nFpi_Cod_Ite;
	  $aReg_Item['ITE_CODIGOL']     = $sFpi_Cod_Ite_Pt;
	  $aReg_Item['ITE_DESCRIC']     = $sFpi_Ite_Descri;
	  $aReg_Item['ITE_SIG_UNIDADE'] = $sFpi_Ite_Unidad;
	  $aReg_Item['ITE_PRE_CUSTO_E'] = $nIte_Pre_CustoE;
	  //
      $sRet_Javs .=
        "parent.document.getElementById('iFchP_Fpi_Cod_Ite').value='".$sFpi_Cod_Ite_Pt."';".
        "parent.document.getElementById('iFchP_Ite_Descric').value='".$sFpi_Ite_Descri."';".
        "parent.document.getElementById('iFchP_Ite_Unidade').value='".$sFpi_Ite_Unidad."';".
        "parent.document.getElementById('iFchP_Ite_Pre_Cus').value='R$ ".FormatoMoeda($nIte_Pre_CustoE)."';".
        "parent.document.getElementById('iFchP_Fpi_Cod_Ite').focus();".
		"parent.Car_".$sNomeAcesso."6.Valida_Campos();".
        '';
   //
   // >> Validar campos
   } ElseIf ( $sAcao=="VALIDA_CAMPOS" ) {
	  $nFpi_Quant_N = STR_REPLACE(',','.',Somente_Numeros(@$_POST['FPI_QUANT_N'],',.'))+0;
	  $nFpi_Quant_M = STR_REPLACE(',','.',Somente_Numeros(@$_POST['FPI_QUANT_M'],',.'))+0;
	  $nFpi_Quant_1 = STR_REPLACE(',','.',Somente_Numeros(@$_POST['FPI_QUANT_1'],',.'))+0;
	  $nFpi_Quant_2 = STR_REPLACE(',','.',Somente_Numeros(@$_POST['FPI_QUANT_2'],',.'))+0;
	  $nFpi_Quant_3 = STR_REPLACE(',','.',Somente_Numeros(@$_POST['FPI_QUANT_3'],',.'))+0;
	  $nFpi_Quant_4 = STR_REPLACE(',','.',Somente_Numeros(@$_POST['FPI_QUANT_4'],',.'))+0;
	  //
	  $aReg_Item['FPI_QUANT_N'] = $nFpi_Quant_N;
	  $aReg_Item['FPI_QUANT_M'] = $nFpi_Quant_M;
	  $aReg_Item['FPI_QUANT_1'] = $nFpi_Quant_1;
	  $aReg_Item['FPI_QUANT_2'] = $nFpi_Quant_2;
	  $aReg_Item['FPI_QUANT_3'] = $nFpi_Quant_3;
	  $aReg_Item['FPI_QUANT_4'] = $nFpi_Quant_4;
	  $nSaldo_Estoque = 0;
	  If ( @$aReg_Item['FPI_COD_ITE']+0 > 0 ) {
	     $nSaldo_Estoque = Produto_Estoque(@$aReg_Item['FPI_COD_ITE']+0);
         $nSaldo_Estoque = @$nSaldo_Estoque['EST_SALDOS']+0;
	  }
	  //
	  $bTudo_Valido = ( $nFpi_Quant_N + $nFpi_Quant_M + $nFpi_Quant_1 + $nFpi_Quant_2 + $nFpi_Quant_3 + $nFpi_Quant_4 ) > 0;
	  $bTudo_Valido = $bTudo_Valido && (@$aReg_Item['FPI_COD_ITE']>0);
	  //
      $sRet_Javs .=
	    ( $bActVariosSabores ?
          "parent.document.getElementById('iFchP_Fpi_Quant_1').value='".( $nFpi_Quant_1==0 ? '' : NUMBER_FORMAT($nFpi_Quant_1, 3, ',',''))."';".
          "parent.document.getElementById('iFchP_Fpi_Quant_2').value='".( $nFpi_Quant_2==0 ? '' : NUMBER_FORMAT($nFpi_Quant_2, 3, ',',''))."';".
          "parent.document.getElementById('iFchP_Fpi_Quant_3').value='".( $nFpi_Quant_3==0 ? '' : NUMBER_FORMAT($nFpi_Quant_3, 3, ',',''))."';".
          "parent.document.getElementById('iFchP_Fpi_Quant_4').value='".( $nFpi_Quant_4==0 ? '' : NUMBER_FORMAT($nFpi_Quant_4, 3, ',',''))."';"
		:
          "parent.document.getElementById('iFchP_Fpi_Quant_N').value='".( $nFpi_Quant_N==0 ? '' : NUMBER_FORMAT($nFpi_Quant_N, 3, ',',''))."';".
		  ( $bActPrMeia_Porcao ?
          "parent.document.getElementById('iFchP_Fpi_Quant_M').value='".( $nFpi_Quant_M==0 ? '' : NUMBER_FORMAT($nFpi_Quant_M, 3, ',',''))."';"
		  : '')
		).
        "parent.document.getElementById('iFchP_Est_SaldoQt').value='".( $nSaldo_Estoque==0 ? '' : NUMBER_FORMAT($nSaldo_Estoque, 3, ',',''))."';".
        "parent.document.getElementById('bFchP_SvrItem').style.display='".($bTudo_Valido ? "inline-block" : "none")."';".
		"";
   //
   // >> Salvar item
   } ElseIf ( $sAcao=="SALVAR" ) {
	  // Item novo
      If ( $bItemNovo ) {
	     $aReg_Item['FPI_COD_FPI'] = $aReg_Geral['VIR_COD_FPI'];
		 $aReg_Geral['VIR_COD_FPI']++;
	     $aReg_Itens[] = $aReg_Item;
	  // Alteração no item
	  } Else {
	     $nIndiceMat_Item = Loc_Indice_Item($sFpi_Cod_Fpi);
		 If ( $nIndiceMat_Item<0 ) {
		    // ** ERRO **
		 } Else {
		    $aReg_Itens[$nIndiceMat_Item] = $aReg_Item;
	     }
	  }
	  //
      $sRet_Javs .=
	      ( $bItemNovo ?
             "parent.document.getElementById('iFchP_Fpi_Cod_Ite').value='';".
	         ( $bActVariosSabores ?
               "parent.document.getElementById('iFchP_Fpi_Quant_1').value='';".
               "parent.document.getElementById('iFchP_Fpi_Quant_2').value='';".
               "parent.document.getElementById('iFchP_Fpi_Quant_3').value='';".
               "parent.document.getElementById('iFchP_Fpi_Quant_4').value='';"
		     :
               "parent.document.getElementById('iFchP_Fpi_Quant_N').value='';".
			   ( $bActPrMeia_Porcao ?
               "parent.document.getElementById('iFchP_Fpi_Quant_M').value='';" : '')
		     ).
		     "parent.Car_".$sNomeAcesso."6.Puxar_Ite();"
		  :
		     $oJan->sJavOnClickF
		  ).
		  "parent.Car_".$sNomeAcesso."3.P_Atu();".
	      "";
   //
   // >> Fechar janela
   } ElseIf ( $sAcao=="FECHAR" ) {
      UNSET($aReg_Item);
      //
      $sRet_Javs .=
		 "parent.document.getElementById('".$sNomeIdJPrin."_Travar').style.visibility='hidden';".
		 "parent.Disabled_In_Elems('".$sNomeIdJPrin."',false);".
	     "parent.document.getElementById('iCFch_TabItem_Tecla').focus();".
         "parent.RmElem('".$oJan->sIdObj."');";
   }
   // Sessao de trabalho do item
   If ( ISSET($aReg_Item) ) {
      $aSessao['FPI_ITEM'] = @$aReg_Item;
   } Else {
      If ( ISSET($aSessao['FPI_ITEM']) ) { UNSET($aSessao['FPI_ITEM']); }
   }
//
//  ** TELA DE PESQUISA DE PRODUTO ** 
} ElseIf ( $sSubModulo=="PESQ_PRODUTO" ) {
   $sNomeIdJ_Ant = $sNomeIdJItem;
   $sNomeIdCampo = "iFchP_Fpi_Cod_Ite";
   $nQdrNomeAcs  = 9;
   $sJavaExePos  =                         
      "parent.document.getElementById('".$sNomeIdCampo."').setSelectionRange(0,0);".
      "parent.Car_".$sNomeAcesso."6.Puxar_Ite();".
      '';
   $sWhereSQL_Csl = "AND CLS_INC_FCP ";
   REQUIRE "./modulos/consulta_produto.inc";
  //
}
//
//Salvar ou limpar matrizes de trabalho
If ( ISSET($aReg_Geral) ) {
   $aSessao['FTP_GERAL'] = @$aReg_Geral;
   $aSessao['FTP_ITENS'] = @$aReg_Itens;
} Else {
   If ( ISSET($aSessao['FTP_GERAL']) ) { UNSET($aSessao['FTP_GERAL']); }
   If ( ISSET($aSessao['FTP_ITENS']) ) { UNSET($aSessao['FTP_ITENS']); }
}
//
Function Loc_Indice_Item($sFpi_Cod_Fpi) {
   Global $aReg_Itens;
   ForEach ( $aReg_Itens As $nIndice=>$aReg_Item ) {
      If ( @$aReg_Item['FPI_COD_FPI']==$sFpi_Cod_Fpi ) {
	     Return $nIndice;
	  }
   }
   Return -1;
}
//
Function Calcular_Custo_Simulacao() {
   Global $aReg_Geral, $aReg_Itens;
   //
   $aReg_Geral['ITE_PRE_CUSTO_N'] = 0;
   $aReg_Geral['ITE_PRE_CUSTO_M'] = 0;
   $aReg_Geral['ITE_PRE_CUS_001'] = 0;
   $aReg_Geral['ITE_PRE_CUS_002'] = 0;
   $aReg_Geral['ITE_PRE_CUS_003'] = 0;
   $aReg_Geral['ITE_PRE_CUS_004'] = 0;
   //
   ForEach ( $aReg_Itens As $nIndice => $aReg_Item ) {
      $nCusto_Item = @$aReg_Item['ITE_PRE_CUSTO_E']+0;
	  //
	  $aReg_Geral['ITE_PRE_CUSTO_N'] += (@$aReg_Item['FPI_QUANT_N']+0) * $nCusto_Item;
	  $aReg_Geral['ITE_PRE_CUSTO_M'] += (@$aReg_Item['FPI_QUANT_M']+0) * $nCusto_Item;
	  $aReg_Geral['ITE_PRE_CUS_001'] += (@$aReg_Item['FPI_QUANT_1']+0) * $nCusto_Item;
	  $aReg_Geral['ITE_PRE_CUS_002'] += (@$aReg_Item['FPI_QUANT_2']+0) * $nCusto_Item;
	  $aReg_Geral['ITE_PRE_CUS_003'] += (@$aReg_Item['FPI_QUANT_3']+0) * $nCusto_Item;
	  $aReg_Geral['ITE_PRE_CUS_004'] += (@$aReg_Item['FPI_QUANT_4']+0) * $nCusto_Item;
	  //
   }
   //
   Return True;
}
//
?>