<?php
$sNomeIdJPrin  = "iJan_EdtPrd_Cmb";
$sNomeIdJItem  = "iJan_EdtIte_Cmb";
$sId_CampoOclt = "in_Tecla_PrdCmb";
//
//  ** PRINCIPAL **
If ( $sSubModulo=="EDITAR_CMB" ) {
   EdtCmb_CargaVar(False);
   // Id dos formulários e outros objetos
   $sId_QuadroIni = "Car_".$sNomeAcesso."3";
   $sId_Form_Prin = "fmPrdCmb_Pri";
   $sNm_QuadroPri = "car_".$sNomeAcesso."4";
   $sId_QuadroPri = "Car_".$sNomeAcesso."4";
   $sNm_Quadro_02 = "car_".$sNomeAcesso."5";
   $sId_Quadro_02 = "Car_".$sNomeAcesso."5";
   // Criar objeto Janela
   $oJan = New R_Janela();
   $oJan->sIdObj  = $sNomeIdJPrin;
   $oJan->nWidth  = 750;   // Largura
   $oJan->nHeight = 0;     // Altura
   $oJan->nTop    = 10;
   $oJan->nLeft   = 0;
   $oJan->nLeft  += ($nTela_W/2)-($oJan->nWidth/2);
   $oJan->sTitulo = 'Produtos no combo';
   $oJan->sJavKeyDown = "return ".$sId_QuadroIni.".Teclas_F(this,event);";
   // travar janela
   $sJavaTravarJ =
     "parent.document.getElementById('".$oJan->sIdObj."_Travar').style.visibility='visible';".
	 "parent.Disabled_In_Elems('".$oJan->sIdObj."',true);";
   // destravar janela
   $sJavaDestravarJ =
     "parent.document.getElementById('".$oJan->sIdObj."_Travar').style.visibility='hidden';".
	 "parent.Disabled_In_Elems('".$oJan->sIdObj."',false);";
   // comando para fechar janela
   $oJan->sJavOnClickF = 
     $sJavaTravarJ.
   	 "parent.document.forms.".$sId_Form_Prin.".acao.value='FECHAR'; ".
   	 "parent.document.forms.".$sId_Form_Prin.".submit();".
   	 "";
   // Objetos na janela
   $oJan->aIdsObjList = ARRAY('iEdt_Ite_CodigoL','iEdt_Ite_Descric');
   // Criar objeto GRID
   $oTabItem = New Pad_GridPesq();
   $oTabItem->sIdObjTabela   = 'iQdr_Cmb_Itens';
   $oTabItem->sNomeTabela    = 'cad_produto_combo';
   $oTabItem->bUsarSoMatriz  = True;
   $oTabItem->sCampoIndice   = 'CMB_CODIGOINT';
   $oTabItem->nWidth         = $oJan->nWidth;
   $oTabItem->nHeight        = 250;    // Altura
   $oTabItem->sCampoOnClick  = $sId_QuadroIni.".P_Sel(<NUMCAM>); ".$sId_QuadroIni.".P_Atu();";
   $oTabItem->sLinhaOnClick  = $sId_QuadroIni.".PRow_Sel(<QTDCOL>,<SELLIN>);";
   $oTabItem->sLinhaOnDblClk =
     "if ( parent.document.getElementById('bEdtC_Ite_AdcLst').style.display!='none' ) {".
        "setTimeout( parent.document.getElementById('bEdtC_Ite_EdtLst').onclick , 1);".
	 "}";
   $oTabItem->sJavSelectReg  =
     "sSelIndice = S_Indice;".
     "if (parseInt(sSelIndice)>0 && parent.document.getElementById('bEdtC_Ite_AdcLst').style.display!='none') {".
         "parent.document.getElementById('bEdtC_Ite_DelLst').style.display='inline-block';".
         "parent.document.getElementById('bEdtC_Ite_EdtLst').style.display='inline-block';".
     "}".
     'parent.document.getElementById("'.$sId_CampoOclt.'").focus();';
   $oTabItem->GLstCampos(
     'ITE_CODIGOL,Código,45px,STRZERO=4;'.
   	 'ITE_DESCRIC,Descrição do produto;'.
   	 'CMB_PRECO_UNI,Preço unitário,100px,MOE;'.
   	 'ITE_SIG_UNIDADE,Un.,27px;'.
   	 'CMB_QTD_ITEM_,Quantidade,80px,DECIMAL=3;'.
   	 'CMB_PRECO_SUB,Subtotal,100px,MOE;'
   );
   //
   // >> Inicial
   If ( EMPTY($sAcao) ) {
	  // SQL: Puxar registro geral
      $nIte_CodigoI = Somente_Numeros(@$_POST['Ite_CodigoI'])+0;
      $aReg_Item = @$aSessao['FPI_ITEM'];
      $sSQLQuery =
	     "SELECT ITE_CODIGOI, ITE_CODIGOL, ITE_DESCRIC ".
		 "FROM cad_produto ".
		 "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['ITE_CODIGOI'] = $nIte_CodigoI;
	  }
      //$aReg_Geral['VIR_COD_CMB'] = $nVir_Cod_Cmb;              //  Identificador virtual para os itens
      // SQL: Puxar registro dos itens
	  $aReg_Itens = ARRAY();
      $sSQLQuery =
	    "SELECT ".
		   "cmb.*,".
		   "ite.ITE_CODIGOL, ite.ITE_DESCRIC, ite.ITE_SIG_UNIDADE ".
		"FROM      cad_produto_combo AS cmb ".
		"LEFT JOIN cad_produto       AS ite  ON  ite.ITE_CODIGOI = cmb.CMB_COD_C_ITE ".
		"WHERE cmb.CMB_COD_P_ITE=".$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_Item['CMB_PRECO_SUB'] = $aReg_Item['CMB_PRECO_UNI'] * $aReg_Item['CMB_QTD_ITEM_'];
		 $aReg_Item['CMB_CODIGOINT'] = $aReg_Item['CMB_CODIGOINT']+0;
	     $aReg_Itens[] = $aReg_Item;
	  }
	  UNSET( $aReg_Item );  UNSET( $aReg_Temp );
	  $aReg_Geral['REG_ITENS_ANTERIOR'] = $aReg_Itens;
	  //
	  // 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" width="50px">'.
		   // -- campo do código livre do produto
           '<input id="iEdt_Ite_CodigoL" readonly value="'.@$aReg_Geral['ITE_CODIGOL'].'" type="text" maxlength="4" style="width:99%; text-align:center;">'.
		   // --
		  '</td>'.
		  '<td></td>'.
		  '<td valign="middle">'.
		   // -- campo da descrição do produto
           '<input id="iEdt_Ite_Descric" readonly value="'.@$aReg_Geral['ITE_DESCRIC'].'" type="text" maxlength="60" style="width:99%;">'.
		   // --
		  '</td>'.
		 '</tr>'.
		'</table>'.
		$sDivisaoFm_HTML.
	    // 2º linha
       	'<table width="100%">'.
		 '<tr>'.
		  '<td valign="middle" style="font-size:14px; font-weight:bold; color:#444444;">'.
		   'Produtos inclusos no combo'.
		  '</td>'.
          '<td width="124px" align="right">'.
       	    HTML_Botao( 3, 'bEdtC_Ite_DelLst', $sId_QuadroIni.".Del_Item(".$sId_QuadroIni.".sSelIndice);"
			              , 'Excluir'   ,'images/btimg_remover_2.png', 112).
		  '</td>'.
          '<td width="124px" align="right">'.
       	    HTML_Botao( 3, 'bEdtC_Ite_EdtLst', $sJavaTravarJ.
			                                   $sId_QuadroIni.".Edt_Item(".$sId_QuadroIni.".sSelIndice);"
			              , 'Editar'     ,'images/btimg_editar.png'   , 102).
		  '</td>'.
          '<td width="154px" align="right">'.
       	    HTML_Botao( 3, 'bEdtC_Ite_AdcLst', $sJavaTravarJ.
			                                   $sId_QuadroIni.".Edt_Item('_NOVO_');"
			              , 'Adicionar' ,'images/btimg_novo.png'     , 132).
		  '</td>'.
		 '</tr>'.
		'</table>'.
        '<div style="height:5px;"></div>'.
		'<input id="'.$sId_CampoOclt.'" style="position:absolute; top:-100; left:-100; width:1px; height:1px;">'.
		$oTabItem->MontaDivHtml().
        '<div style="height:5px;"></div>'.
       	'<table width="100%">'.
		 '<tr>'.
		  '<td valign="middle" style="font-size:13px; font-weight:bold; color:#444444; text-align:right;">'.
		   'Valor do combo:'.
		  '</td>'.
		  '<td width="120px" valign="middle" style="font-size:14px; font-weight:bold; color:#222222; text-align:right;">'.
		   '<span id="spEdtCmb_Preco_Tot"></span>'.
		  '</td>'.
		 '</tr>'.
		'</table>'.
	    '';
	  // ** Concluir janela **
      $sRet_TelaJ_HTML =
        $oJan->MontaJanHTML(True).
		'<style type="text/css" rel="stylesheet">'.
         '.EdtCmbPro 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;'.
		 '}'.
         '.EdtCmbPro span.Titulo {'.
		    'display:inline-block;'.
			'position:relative;'.
			'left:6px;'.
		 '}'.
         '.EdtCmbPro span.Titulo {'.
		    'display:inline-block;'.
			'position:relative;'.
		 '}'.
         '.EdtCmbPro 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;'.
         '}'.
         '.EdtCmbPro input:read-only {'.
			'background:#F0EFE8;'.
			'border-color:#DBDAD2;'.
         '}'.
		'</style>'.
        '<div style="height:5px;"></div>'.
        '<form name="'.$sId_Form_Prin.'" accept-charset="utf-8" method="post" action="./car_js.php" target="'.$sNm_QuadroPri.'">'.
         '<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="CMB_CODIGOINT" type="hidden" value="">'.
       	 '<table width="'.($oJan->nWidth-8).'px" class="EdtCmbPro">'.
		  '<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>'.
        // Barra inferior
        '<table width="100%" style="background-color:'.$sCorBarraInf.';">'.
         '<tr>'.
          '<td align="left"></td>'.
          '<td width="124px" align="right" valign="center">'.
            HTML_Botao( 3, 'bEdtCmb_Salvar'  , $sId_QuadroIni.'.Salvar();'
                         , 'Salvar (F10)' , 'images/btimg_ativar.png' , 112).
          '</td>'.
          '<td width="124px" align="right" valign="center">'.
            HTML_Botao( 3, 'bEdtCmb_Fechar', $oJan->sJavOnClickF
                         , 'Sair (ESC)'    ,'images/btimg_fechar.png'  , 102).
          '</td>'.
          '<td width="4px"></td>'.
         '</tr>'.
        '</table>'.
        $oJan->MontaJanHTML(False).
		'';
      // Java inicial
      $sRet_Javs .=
 	    "";
	  // Java posterior
      $sRet_JavsPos .=
	    "var Fm_Pri = parent.document.forms['".$sId_Form_Prin."'];".
		//
		"function Edt_Item(sCod_Item) {".
		   "TargetAnt = Fm_Pri.target;".
		   "Fm_Pri.target='".$sNm_Quadro_02."';".
           "Fm_Pri.submod.value='EDT_ITEM_CMB';".
           "Fm_Pri.acao.value='';".
           "Fm_Pri.CMB_CODIGOINT.value=sCod_Item;".
           "Fm_Pri.submit();".
		   "Fm_Pri.target = TargetAnt;".
           "Fm_Pri.submod.value='".$sSubModulo."';".
           "Fm_Pri.CMB_CODIGOINT.value='';".
		"}".
		"function Del_Item(sCod_Item) {".
		   "TargetAnt = Fm_Pri.target;".
		   "Fm_Pri.target='".$sNm_Quadro_02."';".
           "Fm_Pri.acao.value='DEL_ITEM';".
           "Fm_Pri.CMB_CODIGOINT.value=sCod_Item;".
           "Fm_Pri.submit();".
		   "Fm_Pri.target = TargetAnt;".
           "Fm_Pri.CMB_CODIGOINT.value='';".
		"}".
		"function Salvar() {".
           "Fm_Pri.acao.value='SALVAR';".
           "Fm_Pri.submit();".
		   "parent.JanEspera(true, 'Aguarde, salvando lista da combo...');".
		"}".
		//
        "sSelIndice='0';".
        $oTabItem->MontaJavaPri().
        "function P_Atu() {".
           $oTabItem->MontaJavaAgu().
           "sSelIndice='0';".
           "parent.document.getElementById('bEdtC_Ite_DelLst').style.display='none';".
           "parent.document.getElementById('bEdtC_Ite_EdtLst').style.display='none';".
           "Fm_Pri.acao.value='PUXAR_ITENS';".
           "Fm_Pri.Fil_Num_Cam.value=nPesq_CampoSel+'';".
           "setTimeout( function() { Fm_Pri.submit(); }, 300);".
        '}'.
		//
		"function Teclas_F( Objeto, Evento ) {".
           "vNumTecla = parent.Tecla_Apertada(Evento);".
           "if ( vNumTecla==121) { ".           //  ** [F10] **      (Gravar)
			   "if (parent.document.getElementById('bEdtCmb_Salvar').style.display != 'none') { ".
                   "setTimeout( parent.document.getElementById('bEdtCmb_Salvar').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('".@$oJan->aIdsObjList[0]."').focus();".
              "}".
		   "} else {".
			   "return true;".
		   "}".
		   "return false;".
		"}".
		//
		"P_Atu();".
        "parent.document.getElementById('".@$oJan->aIdsObjList[0]."').focus();".
		"";
	  //
   //
   // >> Puxar Itens na tabela
   } ElseIf ( $sAcao=="PUXAR_ITENS" ) {
      $nFil_Num_Cam = @$_POST['Fil_Num_Cam']+0;
	  //
	  $nCmb_Preco_Tot = 0;
  	  $oTabItem->aLstItensTab = @$aReg_Itens;
	  $oTabItem->s_PHP_LinhaTb =
    	   'Global $nCmb_Preco_Tot;'.
    	   '$nCmb_Preco_Tot += $Row_Temp2Tabela["CMB_PRECO_SUB"];'.
		   '';
      $sRet_Tabela = $oTabItem->MontaTabelaHTML();
      // Java
      $sRet_Javs .=
        "var iQdr_Lista = parent.document.getElementById('".$oTabItem->sIdObjTabela."');".
        'iQdr_Lista.innerHTML = '.JAVA_CharCode($sRet_Tabela).';'.
    	'parent.'.$sId_QuadroIni.'.'.$oTabItem->sNomeTabela.'_Rowsel = 1;'.
        'parent.'.$sId_QuadroIni.'.P_Sel('.$nFil_Num_Cam.');'.
        "parent.document.getElementById('spEdtCmb_Preco_Tot').innerHTML = ".JAVA_CharCode( "R$ ".FormatoMoeda($nCmb_Preco_Tot) ).";".
        '';
	  //
   //
   // >> Deletar um item na tebela
   } ElseIf ( $sAcao=="DEL_ITEM" ) {
      $nCmb_CodigoInt = @$_POST['CMB_CODIGOINT']+0;
	  If ( $nCmb_CodigoInt>0 ) {
	     $nItem_Indice = Edt_Cmb_Loc_Item($nCmb_CodigoInt);
         UNSET( $aReg_Itens[$nItem_Indice] );
	  }
      $sRet_Javs .=
	    "parent.".$sId_QuadroIni.".P_Atu();".
	    '';
	  //
   //
   // >> Salvar combo de produtos
   } 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;");
      // Remover itens da tabela
      ForEach ( $aReg_Itens_Anterior As $aReg_ItemA ) {
        $nItem_Indice = Edt_Cmb_Loc_Item( $aReg_ItemA['CMB_CODIGOINT'] );
        If ( $nItem_Indice<0 ) {
            $sSQLQuery = "DELETE FROM cad_produto_combo WHERE CMB_CODIGOINT=".$aReg_ItemA['CMB_CODIGOINT'].";";
            MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
		}
      }
      // Adicionar e atualizar itens na tabela
      ForEach ( $aReg_Itens As $aReg_Item ) {
	    If ( $aReg_Item['CMB_CODIGOINT'] >= $nIni_Cod_Cmb ) {  // Novo
		   $sSQLQuery = "INSERT INTO cad_produto_combo(CMB_COD_P_ITE) VALUE (".$aReg_Geral['ITE_CODIGOI'].");";
           MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
		   $aReg_Item['CMB_CODIGOINT'] = MYSQL_INSERT_ID();
		}
		// Atualizar dados
        $sSQLQuery = 
           "UPDATE cad_produto_combo SET ".
		     "CMB_COD_C_ITE=".$aReg_Item['CMB_COD_C_ITE'].",".
		     "CMB_QTD_ITEM_=".$aReg_Item['CMB_QTD_ITEM_'].",".
		     "CMB_PRECO_UNI=".$aReg_Item['CMB_PRECO_UNI']." ".
           "WHERE CMB_CODIGOINT=".$aReg_Item['CMB_CODIGOINT'].";";
        MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
		//
	  }
      // MySql: Salvar a translação
      MYSQL_QUERY("COMMIT;");
	  //
      $sRet_Javs .= $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_CodigoL').focus();".
        "parent.RmElem('".$oJan->sIdObj."');";
	  //
   }
   //
   EdtCmb_CargaVar(True);
   //
//
//  ** ADICIONAR / EDITAR PRODUTO NA LISTA DO COMBO **
} ElseIf ( $sSubModulo=="EDT_ITEM_CMB" ) {
   EdtCmb_CargaVar(False);
   //
   $sCmb_CodigoInt = @$_POST['CMB_CODIGOINT'];
   $bItemNovo = ($sCmb_CodigoInt == '_NOVO_');
   // Id dos formulários e outros objetos
   $sId_QuadroIni = "Car_".$sNomeAcesso."5";
   $sId_Form_Prin = "fmPrdCmbIte_Pri";
   $sNm_QuadroPri = "car_".$sNomeAcesso."6";
   $sId_QuadroPri = "Car_".$sNomeAcesso."6";
   $sNm_Quadro_02 = "car_".$sNomeAcesso."7";
   $sId_Quadro_02 = "Car_".$sNomeAcesso."7";
   // Criar objeto Janela
   $oJan = New R_Janela();
   $oJan->sIdObj  = $sNomeIdJItem;
   $oJan->nWidth  = 750;   // 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' : ' - Alterar');
   $oJan->sJavKeyDown = "return ".$sId_QuadroIni.".Teclas_F(this,event);";
   // travar janela
   $sJavaTravarJ =
     "parent.document.getElementById('".$oJan->sIdObj."_Travar').style.visibility='visible';".
	 "parent.Disabled_In_Elems('".$oJan->sIdObj."',true);";
   // destravar janela
   $sJavaDestravarJ =
     "parent.document.getElementById('".$oJan->sIdObj."_Travar').style.visibility='hidden';".
	 "parent.Disabled_In_Elems('".$oJan->sIdObj."',false);";
   // comando para fechar janela
   $oJan->sJavOnClickF = 
     $sJavaTravarJ.
   	 "parent.document.forms.".$sId_Form_Prin.".acao.value='FECHAR'; ".
   	 "parent.document.forms.".$sId_Form_Prin.".submit();".
   	 "";
   // Objetos na janela
   $oJan->aIdsObjList = ARRAY('iCmbE_Ite_CodigoL','iCmbE_Preco_Uni','iCmbE_Qtd_Item_');
   //
   // >> Inicial
   If ( EMPTY($sAcao) ) {
      //
	  If ( ! $bItemNovo ) {
	     $nIndiceMat_Item = Edt_Cmb_Loc_Item($sCmb_CodigoInt+0);
		 If ( $nIndiceMat_Item<0 ) {
		    // ** ERRO **
		 } Else {
		    $aReg_Item = $aReg_Itens[$nIndiceMat_Item];
	     }
	  }
  	  //
      $sRet_TelaJ_HTML =
         $oJan->MontaJanHTML(True).
         '<form name="'.$sId_Form_Prin.'" accept-charset="utf-8" method="post" action="./car_js.php" target="'.$sNm_QuadroPri.'">'.
          '<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="CMB_CODIGOINT" type="hidden" value="'.$sCmb_CodigoInt.'">'.
		  '<div align="center" style="width:100%;" class="EdtCmbPro">'.
	       // 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="iCmbE_Ite_CodigoL" name="CMB_COD_ITE" type="text" maxlength="4" value="'.@$aReg_Item['ITE_CODIGOL'].'" style="width:62px; text-align:center;" onchange="'.$sId_QuadroIni.'.Puxar_Ite();">'.
		     '</td>'.
			 '<td></td>'.
             '<td align="left">'.
       	      '<input id="iCmbE_Ite_Descric" type="text" style="width:558px;" readonly value="'.@$aReg_Item['ITE_DESCRIC'].'">'.
		     '</td>'.
			 '<td align="left">'.
       	      HTML_Botao( 3, 'bCmbE_Ite_CodigoL', "document.getElementById('iCmbE_Ite_CodigoL').value='/';".
			                                      $sId_QuadroIni.'.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">Preço unitário</span>'.
		     '</td>'.
		     '<td width="6px"></td>'.
             '<td align="left">'.
		      '<span class="Titulo">Quantidade</span>'.
		     '</td>'.
		     '<td width="6px"></td>'.
             '<td align="left">'.
		      '<span class="Titulo">Preço total</span>'.
		     '</td>'.
		     '<td width="6px"></td>'.
		    '</tr>'.
		    // campos
		    '<tr>'.
             '<td align="left">'.
       	      '<input id="iCmbE_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="iCmbE_Est_SaldoQt" type="text" readonly style="width:90px; text-align:center;">'.
		     '</td>'.
			 '<td></td>'.
             '<td align="left">'.
       	      '<input id="iCmbE_Preco_Uni" type="text" name="CMB_PRECO_UNI" value="'.FormatoMoeda(@$aReg_Item['CMB_PRECO_UNI']+0).'" style="width:90px; text-align:right;" onchange="'.$sId_QuadroIni.'.Valida_Campos();">'.
		     '</td>'.
			 '<td></td>'.
             '<td align="left">'.
       	      '<input id="iCmbE_Qtd_Item_" type="text" name="CMB_QTD_ITEM_" value="'.NUMBER_FORMAT(@$aReg_Item['CMB_QTD_ITEM_']+0,3).'" style="width:90px; text-align:right;" onchange="'.$sId_QuadroIni.'.Valida_Campos();">'.
		     '</td>'.
			 '<td></td>'.
             '<td align="left">'.
       	      '<input id="iCmbE_Preco_Tot" type="text" readonly value="" style="width:90px; text-align:right;">'.
		     '</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, 'bCmbE_SvrItem'  , $sId_QuadroIni.'.Salvar();'
			              , 'Salvar (F10)' , 'images/btimg_ativar.png' , 112).
		   '</td>'.
           '<td width="124px" align="right" valign="center">'.
       	     HTML_Botao( 3, 'bCmbE_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 Fm_Pri = parent.document.forms['".$sId_Form_Prin."'];".
		 //
		 "function Teclas_F( Objeto, Evento ) {".
            "vNumTecla = parent.Tecla_Apertada(Evento);".
            "if ( vNumTecla==121) { ".           //  ** [F10] **      (Gravar)
		 	   "if (parent.document.getElementById('bCmbE_SvrItem').style.display != 'none') { ".
                    "setTimeout( parent.document.getElementById('bCmbE_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('".$oJan->aIdsObjList[0]."').focus();".
               "}".
		    "} else {".
		 	   "return true;".
		    "}".
		    "return false;".
		 "}".
		 //
		 "function Puxar_Ite() {".
	        "parent.document.getElementById('bCmbE_SvrItem').style.display='none';".
            "Fm_Pri.acao.value='PUXAR_ITE';".
            "setTimeout( function() { Fm_Pri.submit(); }, 1);".
		 "}".
		 "function Valida_Campos() {".
	        "parent.document.getElementById('bCmbE_SvrItem').style.display='none';".
            "Fm_Pri.acao.value='VALIDA_CAMPOS';".
            "setTimeout( function() { Fm_Pri.submit(); }, 1);".
		 "}".
		 "function Salvar() {".
	        "parent.document.getElementById('bCmbE_SvrItem').style.display='none';".
            "Fm_Pri.acao.value='SALVAR';".
            "setTimeout( function() { Fm_Pri.submit(); }, 100);".
		 "}".
		 //
         "parent.document.getElementById('".$oJan->aIdsObjList[0]."').focus();".
		 'Valida_Campos();'.
		 "";
  	  //
   //
   // >> Puxar produto
   } ElseIf ( $sAcao=="PUXAR_ITE" ) {
      $sIte_CodigoL    = Somente_Numeros(@$_POST['CMB_COD_ITE'],'/');
	  $nIte_CodigoI    = 0;
	  $sIte_Descric    = '';
	  $sIte_Unidade    = '';
	  $nEst_Ite_Saldo_ = 0;
	  $nIte_Pre_CustoE = 0;
      // Consulta
	  If ( SUBSTR($sIte_CodigoL,0,1)=='/' ) {
         $sRet_Javs .=
	        "var FmI = parent.document.forms['".$sId_Form_Prin."'];".
            "setTimeout( function () { ".
		       "TargetAnt = FmI.target;".
		       "FmI.target='car_".$sNomeAcesso."9';".
               "FmI.acao.value=''; ".
               "FmI.submod.value='CMB_PESQ_PRODUTO';".
               "FmI.submit();".
		       "FmI.target = TargetAnt;".
               "FmI.submod.value='".$sSubModulo."';".
			   $sJavaTravarJ.
            "}, 10);".
            "";
		 $sIte_CodigoL = '';
	     //
	  // Inválido
	  } ElseIf ( STRLEN($sIte_CodigoL)==0 ) {
	     //
	  // Puxar no banco de dados
	  } Else {
         $sSQLQuery =
           "SELECT ite.ITE_CODIGOI, ite.ITE_CODIGOL, ite.ITE_DESCRIC, ite.ITE_SIG_UNIDADE, ite.ITE_PRE_CUSTO_E, ite.ITE_TIPCOMBO, ".
		           "cmb.CMB_CODIGOINT ".
           "FROM cad_produto            AS ite ".
		   "LEFT JOIN cad_produto_combo AS cmb  ON  ite.ITE_CODIGOI = cmb.CMB_COD_P_ITE ".
           //"WHERE ITE_CODIGOL='".Str_Zero($sIte_CodigoL,4)."' AND cmb.CMB_CODIGOINT < 1 ".
           "WHERE ITE_CODIGOL='".Str_Zero($sIte_CodigoL,4)."' ".
		   ";";
           $RowT = MYSQL_QUERY( $sSQLQuery ) Or Die( $sSQLQuery.'<br>'.MYSQL_ERROR() );
		   If ( $RowT = MYSQL_FETCH_OBJECT($RowT) ) {
			  If ( @$RowT->CMB_CODIGOINT+0 > 0 Or @$RowT->ITE_TIPCOMBO ) {
		         $sIte_CodigoL = '';
				 $sRet_Javs .=
		           Info_Evento('Não é possível adicionar este produto na combo,<br>porque ele já um produto combo.',1).
				   '';
			  } Else {
	             $nIte_CodigoI    = $RowT->ITE_CODIGOI;         // Código interno
		         $sIte_CodigoL    = $RowT->ITE_CODIGOL;         // Código livre
			     $sIte_Descric    = $RowT->ITE_DESCRIC;         // Descrição do produto
			     $sIte_Unidade    = $RowT->ITE_SIG_UNIDADE;     // Sigla da unidade
			     $nIte_Pre_CustoE = $RowT->ITE_PRE_CUSTO_E;     // Preço médio
			  }
			  //
		   } Else {
		      $sIte_CodigoL = '';
	          //
		   }
	  }
	  $aReg_Item['CMB_COD_C_ITE']   = $nIte_CodigoI;
	  $aReg_Item['ITE_CODIGOL']     = $sIte_CodigoL;
	  $aReg_Item['ITE_DESCRIC']     = $sIte_Descric;
	  $aReg_Item['ITE_SIG_UNIDADE'] = $sIte_Unidade;
	  $aReg_Item['ITE_PRE_CUSTO_E'] = $nIte_Pre_CustoE;
	  //
      $sRet_Javs .=
        "parent.document.getElementById('iCmbE_Ite_CodigoL').value='".$sIte_CodigoL."';".
        "parent.document.getElementById('iCmbE_Ite_Descric').value='".$sIte_Descric."';".
        "parent.document.getElementById('iCmbE_Ite_Unidade').value='".$sIte_Unidade."';".
        //"parent.document.getElementById('iCmbE_Ite_Pre_Cus').value='R$ ".FormatoMoeda($nIte_Pre_CustoE)."';".
        "parent.document.getElementById('iCmbE_Ite_CodigoL').focus();".
		"parent.".$sId_QuadroIni.".Valida_Campos();".
        '';
   //
   // >> Validar campos
   } ElseIf ( $sAcao=="VALIDA_CAMPOS" ) {
	  $nCmb_Preco_Uni = STR_REPLACE(',','.',Somente_Numeros(@$_POST['CMB_PRECO_UNI'],',.'))+0;
	  $nCmb_Qtd_Item_ = Somente_Numeros(@$_POST['CMB_QTD_ITEM_'],'.')+0;
	  //
	  $nCmb_Preco_Tot = $nCmb_Preco_Uni * $nCmb_Qtd_Item_;
	  $aReg_Item['CMB_PRECO_UNI'] = $nCmb_Preco_Uni;
	  $aReg_Item['CMB_QTD_ITEM_'] = $nCmb_Qtd_Item_;
	  $aReg_Item['CMB_PRECO_SUB'] = $nCmb_Preco_Tot;
	  //
	  $nSaldo_Estoque = 0;
	  If ( @$aReg_Item['CMB_COD_C_ITE']+0 > 0 ) {
	     $nSaldo_Estoque = Produto_Estoque(@$aReg_Item['CMB_COD_C_ITE']+0);
         $nSaldo_Estoque = @$nSaldo_Estoque['EST_SALDOS']+0;
	  }
	  //
	  $bTudo_Valido = True;
	  //$bTudo_Valido = $nCmb_Preco_Tot > 0;
	  $bTudo_Valido = $bTudo_Valido && ($nCmb_Qtd_Item_ > 0);
	  $bTudo_Valido = $bTudo_Valido && (@$aReg_Item['CMB_COD_C_ITE']+0 > 0);
	  //
      $sRet_Javs .=
        "parent.document.getElementById('iCmbE_Preco_Uni').value='".( $nCmb_Preco_Uni==0 ? '' : FormatoMoeda($nCmb_Preco_Uni) )."';".
        "parent.document.getElementById('iCmbE_Qtd_Item_').value='".( $nCmb_Qtd_Item_==0 ? '' : NUMBER_FORMAT($nCmb_Qtd_Item_, 3, '.',''))."';".
        "parent.document.getElementById('iCmbE_Preco_Tot').value='".( $nCmb_Preco_Tot==0 ? '' : FormatoMoeda($nCmb_Preco_Tot) )."';".
        "parent.document.getElementById('iCmbE_Est_SaldoQt').value='".( $nSaldo_Estoque==0 ? '' : NUMBER_FORMAT($nSaldo_Estoque, 3, '.',''))."';".
        "parent.document.getElementById('bCmbE_SvrItem').style.display='".($bTudo_Valido ? "inline-block" : "none")."';".
	    //"alert(".JAVA_CharCode(VAR_EXPORT($aReg_Item,True)).");".
		"";
   //
   // >> Salvar item
   } ElseIf ( $sAcao=="SALVAR" ) {
	  // Item novo
      If ( $bItemNovo ) {
	     $aReg_Item['CMB_CODIGOINT'] = $nVir_Cod_Cmb;
		 $nVir_Cod_Cmb++;
	     $aReg_Itens[] = $aReg_Item;
	  // Alteração no item
	  } Else {
	     $nIndiceMat_Item = Edt_Cmb_Loc_Item($sCmb_CodigoInt);
		 If ( $nIndiceMat_Item<0 ) {
		    // ** ERRO **
		 } Else {
		    $aReg_Itens[$nIndiceMat_Item] = $aReg_Item;
	     }
	  }
	  //
      $sRet_Javs .=
	      ( $bItemNovo ?
             "parent.document.getElementById('iCmbE_Ite_CodigoL').value='';".
             "parent.document.getElementById('iCmbE_Preco_Uni').value='';".
             "parent.document.getElementById('iCmbE_Qtd_Item_').value='';".
		     "parent.".$sId_QuadroIni.".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('".$sId_CampoOclt."').focus();".
         "parent.RmElem('".$oJan->sIdObj."');";
   }
   //
   EdtCmb_CargaVar(True);
   //
//
//  ** TELA DE PESQUISA DE PRODUTO ** 
} ElseIf ( $sSubModulo=="CMB_PESQ_PRODUTO" ) {
   $sNomeIdJ_Ant = $sNomeIdJItem;
   $sNomeIdCampo = "iCmbE_Ite_CodigoL";
   $nQdrNomeAcs  = 9;
   $sJavaExePos  =                         
      "parent.document.getElementById('".$sNomeIdCampo."').setSelectionRange(0,0);".
      "parent.Car_".$sNomeAcesso."5.Puxar_Ite();".
      '';
   //$sWhereSQL_Csl = "AND ";
   REQUIRE "./modulos/consulta_produto.inc";
  //
}
//
//
// Salvar, capturar e limpar variáveis de trabalho deste módulo
Function EdtCmb_CargaVar($bSalvar=False) {
   Global $aSessao, $aReg_Geral, $aReg_Itens, $nIte_CodigoI, $nIni_Cod_Cmb, $nVir_Cod_Cmb, $aReg_Item;
   $nIni_Cod_Cmb = 900000;
   // Salvar variáveis e matrizes de trabalho
   If ( $bSalvar ) {
      If ( ISSET($aReg_Geral) ) {
 	     $aReg_Geral['VIR_COD_CMB'] = @$nVir_Cod_Cmb+0;
         $aSessao['CMB_GERAL'] = @$aReg_Geral;
         $aSessao['CMB_ITENS'] = @$aReg_Itens;
      } Else {
         If ( ISSET($aSessao['CMB_GERAL']) ) { UNSET($aSessao['CMB_GERAL']); }
         If ( ISSET($aSessao['CMB_ITENS']) ) { UNSET($aSessao['CMB_ITENS']); }
      }
      If ( ISSET($aReg_Item) ) {
         $aSessao['CMB_ITEM'] = @$aReg_Item;
      } Else {
         If ( ISSET($aSessao['CMB_ITEM']) ) { UNSET($aSessao['CMB_ITEM']); }
	  }
   // Capturar variáveis e matrizes de trabalho
   } Else {
      $aReg_Geral   = @$aSessao['CMB_GERAL'];
      $aReg_Itens   = @$aSessao['CMB_ITENS'];
      $nIte_CodigoI = @$aReg_Geral['ITE_CODIGOI']+0;
	  $nVir_Cod_Cmb = @$aReg_Geral['VIR_COD_CMB']+0;
	  If ( $nVir_Cod_Cmb==0 ) {
         $nVir_Cod_Cmb = $nIni_Cod_Cmb;
	  }
      $aReg_Item = @$aSessao['CMB_ITEM'];
 }
}
//
Function Edt_Cmb_Loc_Item($nCodigo) {
   Global $aReg_Itens;
   ForEach ( $aReg_Itens As $nIndice=>$aReg_Item ) {
      If ( @$aReg_Item['CMB_CODIGOINT']==$nCodigo ) {
	     Return $nIndice;
	  }
   }
   Return -1;
}
//
?>