<?php
$sSubMod2 = @$_POST['SubMod2'];
$nTipoFonte = @$nTipoFonte+0; // Tipo da fonte de dados (0=Tabela Fat_Geral e Fat_Item, 1=Matrix do modulo FISCAL_ECF)
$nQtdeMax = SQLVarConfig('VALOR_QTDE_MAXIMA')+0;       //trava de qtde maxima na inserção de produto
$nInsAut  = SQLVarConfig('LAN_GRID_BAL')+0;           //0-nao 1-sim inserção de produto ao pressionar enter na grid

//
// JANELA TELA PRINCIPAL
If  ( EMPTY($sSubMod2) ) {
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJan6;
    $oJanelaPrinc->nTop    = 60;
    $oJanelaPrinc->nLeft   = 10;
    $oJanelaPrinc->nWidth  = 800;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
    $oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Inserir Produto';
    //$oJanelaPrinc->sJavOnClick = "document.getElementById('iCadTel_PChave').focus();";
    $oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso.$nQdrNomeAcs.".Teclas_F(this,event);";
    //
    $sJavaTravarJ = "parent.document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);";
    $oJanelaPrinc->sJavOnClickF = 
         $sJavaTravarJ.
     	 "parent.document.forms.fmCxaInsPro.acao.value='FECHAR'; ".
    	 "parent.document.forms.fmCxaInsPro.submit();".
    	 "";
    //
    // Criar objeto GRID dos Produtos
    $oTabelaRegs = New Pad_GridPesq();
    $oTabelaRegs->bUsarSoMatriz = True;
    $oTabelaRegs->sTabelas     = 'fat_item,cad_produtos';
    $oTabelaRegs->sIdObjTabela  = 'iQdr_ListaCxa';
    $oTabelaRegs->GLstCampos( 'ITE_CODIGOL,Produto,40px;'.
                              'ITE_DESCRIC,Descrição,300px;'. 
                              'FAT_QTD_ITE,Quantidade,60px;'.
                              'CALCULO,Preço,60px,MOE;'.
                              'FAT_PRE_TOT,TOTAL,60px,MOE;');
    $oTabelaRegs->sCampoIndice = 'SEQCOD';
    $oTabelaRegs->nWidth  = $oJanelaPrinc->nWidth;
    $oTabelaRegs->nHeight = 250;   // Altura
    $oTabelaRegs->sCampoOnClick  = "Car_".$sNomeAcesso.$nQdrNomeAcs.".P_Sel(<NUMCAM>); ";
                                   "";
    $oTabelaRegs->sLinhaOnClick  = "Car_".$sNomeAcesso.$nQdrNomeAcs.".PRow_Sel(<QTDCOL>,<SELLIN>);";
    $oTabelaRegs->sJavSelectReg = "sSelIndice = S_Indice;".
                                  "if (parseInt(sSelIndice)>0) {".
                                      "parent.document.getElementById('CadELrP_BT_Rmv').style.display='inline-block';".
                                      "parent.document.getElementById('CadELrP_BT_Alt').style.display='inline-block';".
                                  "}".
                                  'parent.document.getElementById("iCadELrP_CodBar").focus();';
    //
    $nR_FatGe   = 0;
    If ( ISSET($_REQUEST['NumFatG']) ) {
       $nR_FatGe = @$_REQUEST['NumFatG']+0;
    }
    $sData_Trabalho = SQLVarConfig('DATA_DE_TRABALHO');
    $sLrP_CodPro = @$_POST['LrP_CodBar'];
    $sLrP_QtdIte = @$_POST['LrP_QtdIte'];
    $sLrP_VlrIte = @$_POST['LrP_VlrIte'];
    $sLrP_NomBal = @$_POST['LrP_NomBal'];
    
    $nBar_Sequen = 0;
    $n_QtdIte  = 1;
    //Tirado daqui para poder colocar vários produtos Ex: 3*122,3*124 de um mesmo grupo 
    /*If ( STRLEN($sLrP_CodPro)>=1 ) {
      $_TMP = EXPLODE("*",$sLrP_CodPro);
      If ( COUNT( $_TMP)>1 ) {
        $sLrP_CodPro = $_TMP[1];
        $_TMP = $_TMP[0];  
        $n_QtdIte = $_TMP;
		If ($n_QtdIte<1) { $n_QtdIte=1; }
      } 
      //
      
		If ( STRLEN($sLrP_CodPro)<=4 ) {
         If ( $sLrP_CodPro<>'/') {
			   $sLrP_CodPro = Str_Zero($sLrP_CodPro,4);
         }
      }
		
    }*/
    $n_QtdIte= NUMBER_FORMAT($n_QtdIte,3,'.','');
    $a_ListaLrP  = @$aSessao['CADBAR_LISTA'];
    $n_CoIndice  = (@$aSessao['CADBAR_COINDICE']+0);
    $sEnt_TipoFt = @$aSessao[$sNomeAcesso.'_FAT_TIPLOC'];
    If( $sEnt_TipoFt==0 ){
      $sEnt_TipoFt = 'MES';
    } ElseIf ( $sEnt_TipoFt==1 ){
      $sEnt_TipoFt = 'BAL';
    } ElseIf ( $sEnt_TipoFt==2 ){  
      $sEnt_TipoFt = 'ENT';
    } ElseIf ( $sEnt_TipoFt==3 ){  
      $sEnt_TipoFt = 'MES';
    } Else {
      $sEnt_TipoFt = 'MES';
    }
    // MONTAR LISTA DE Codigo de Barras
    If ( $sAcao=="LISTAR" ) {  
      $nValorTotal_Ped = 0;
      $oTabelaRegs->aLstItensTab = $a_ListaLrP;
      $oTabelaRegs->s_PHP_LinhaTb =
    	   'Global $nValorTotal_Ped;'.
           'If ($Row_Temp2Tabela["ACAO"]==2) {'.
     		   '$s_CorLinha="#FF8888";'.
           '} Else {'.
    	       '$nValorTotal_Ped += $Row_Temp2Tabela["FAT_PRE_TOT"];'.
    	   '}';
      // Tabela dos CODIGO DE BARRAS
      $sRet_TelaJ_HTML = $oTabelaRegs->MontaTabelaHTML();
      // Java
      $sRet_Javs .=
        "parent.document.getElementById('CadELrP_BT_Rmv').style.display='none';".
        "parent.document.getElementById('CadELrP_BT_Alt').style.display='none';".
        "var iQdr_ListaCxa = parent.document.getElementById('".$oTabelaRegs->sIdObjTabela."');".
        'iQdr_ListaCxa.innerHTML = '.JAVA_CharCode($sRet_TelaJ_HTML).';'.
        "parent.document.getElementById('Total_Ped').innerHTML = '".FormatoMoeda($nValorTotal_Ped)."';".
    	'parent.Car_'.$sNomeAcesso.$nQdrNomeAcs.'.'.$oTabelaRegs->sNomeTabela.'_Rowsel = 1;'.
        '';
      // Java posterior
      $sRet_JavsPos .=
        'parent.Car_'.$sNomeAcesso.$nQdrNomeAcs.'.P_Sel(0);'.
        '';
      $sRet_TelaJ_HTML = '';
    
    //
	// ADICIONAR barras
    } ElseIf ( $sAcao=="BAR_ADC" ) {
      $sJava_Final = '';
      $bIncluir = True;
      $sListItem = $sLrP_CodPro;
		//poder colocar vários produtos Ex: 3*122,3*124 de um mesmo grupo 
		$aListItem = EXPLODE(",",$sListItem.';');
		$nCodGru = 0;
		
	    $nLrP_QtdIte = ROUND(Somente_Numeros($sLrP_QtdIte,".")+0,3);
	    $nLrP_VlrIte = ROUND(STR_REPLACE(",",".",Somente_Numeros($sLrP_VlrIte,",."))+0,2);
		
		ForEach ( $aListItem As $sCodPro ) {
          
		   $sCodPro = Somente_Numeros($sCodPro,'.*');
		   $n_QtdIte = 1;
		   If ( STRPOS(' '.$sCodPro,"*")>0 ) {
		     $n_QtdIte = EXPLODE("*",$sCodPro);
			  $sCodPro  = $n_QtdIte[1];
			  $n_QtdIte = $n_QtdIte[0];
		   } Else {
		      If ( $nLrP_QtdIte>0 ) { $n_QtdIte = $nLrP_QtdIte; }
		   }
	     
		   If ( SUBSTR($sLrP_CodPro,0,1)<>'/') {
			  $nCodPro = $sCodPro+0;
	          If ( $nCodPro==0 ) { CONTINUE; }
		   
			  If ( $n_QtdIte>100 ) { $n_QtdIte = 100; } // Limite de 100 unidades
		      //If ($n_QtdIte<1) { $n_QtdIte=1; }  // kg menor que 1
			  If ($n_QtdIte<0) { $n_QtdIte=1; }
			
			  $sLrP_CodPro = $sCodPro;
		   } Else {
             $aSessao['Pesq_Chave'] = STR_REPLACE( '/' , '', $sLrP_CodPro );
             $sLrP_CodPro = SUBSTR( $sLrP_CodPro, 0,1 );
             
           }
		
		   If ( STRLEN($sLrP_CodPro)<=4 ) {
              If ( $sLrP_CodPro<>'/') {
			     $sLrP_CodPro = Str_Zero($sLrP_CodPro,4);
              }
           }
		
		 //
		 If ( STRLEN($sLrP_CodPro)==0 ) {
            // Erro: Erro codigo inválido
    	 	 $sRet_Javs .= "parent.document.getElementById('iCadELrP_CodBar').focus();".
                          Info_Evento('Você não informou um código válido.',1);
    	 	 $bIncluir = False;


        } ElseIf ( $sLrP_CodPro =='/' ) {
    	    $sJava_Final = 
    	 	   "parent.document.getElementById('iCadELrP_CodBar').value = '';".
    	 		"setTimeout( function () { ".
    	 		   "parent.document.forms.fmCxaInsProC.acao.value=''; ".
    	 		   "parent.document.forms.fmCxaInsProC.submod.value='INS_PRODUTO_CSL'; ".
    	 		   "parent.document.forms.fmCxaInsProC.submit();".
    	 		   "parent.document.forms.fmCxaInsProC.submod.value='".$sSubModulo."'; ".
    	 	   "} , 100);".
    	 	   "";
    	 	  $sRet_Javs .=
               //"parent.document.getElementById('sCadELrP_CodBar').innerHTML='".$s_Cxa_Ite_Descri."';".
    	 	    "parent.document.getElementById('iCadELrP_CodBar').value='".$sLrP_CodPro."';".
    	 	    $sJava_Final.
    	 		"";
         //
         } Else {
    	 	  $sSQLQueryA =
             "SELECT ".
    	 	       "cad_produto.ITE_CODIGOL, ".
    	 		   "cad_produto.ITE_DESCRIC, ".
    	 		   "cad_produto.ITE_COD_GRU , ".
    	 		   "cad_produto.ITE_PRE_".$sEnt_TipoFt."_NOR, ".
    	 		   "cad_produto.ITE_CODIGOI ".
    	 	    "FROM cad_codigo_barras, cad_produto ".
             "WHERE cad_codigo_barras.BAR_CODBAR='".$sLrP_CodPro."' AND ".
    	 		    "cad_produto.ITE_CODIGOI=cad_codigo_barras.BAR_CODITE ".
     	  	  "";
           $RowsT = MYSQL_QUERY( $sSQLQueryA ) Or Die( $sSQLQueryA.'<br>'.MYSQL_ERROR() );
           $NUM = MYSQL_NUM_ROWS($RowsT);
           If ($NUM==0) {
    	 		$sSQLQueryB =
              "SELECT  ".
    	 	      "ITE_CODIGOL, ".
    	 		   "ITE_DESCRIC, ".
    	 			"ITE_COD_GRU , ".
    	 			"ITE_PRE_".$sEnt_TipoFt."_NOR, ".
    	 			"ITE_CODIGOI, ".
					"ITE_SIG_UNIDADE ".
    	 		  "FROM cad_produto, cad_grupo_produtos ".
    	 		  "WHERE ".
    	 			"ITE_CODIGOL='".$sLrP_CodPro."' AND ITE_REG_TRAVADO=0 AND ITE_ITEM_ATIVO_ AND GRU_CODIGO=ITE_COD_GRU ".  
             	  "";
               $RowsT = MYSQL_QUERY( $sSQLQueryB ) Or Die( $sSQLQueryB.'<br>'.MYSQL_ERROR() );
               $NUM = MYSQL_NUM_ROWS($RowsT);
           }
           $RowT = MYSQL_FETCH_ARRAY($RowsT);
           $_LrP_CodigoL  = @$RowT[0];
           $_LrP_Descri   = @$RowT[1];
           $_LrP_CodGru   = @$RowT[2];
           $nITE_PRE_NOR  = ($nLrP_VlrIte==0 ? @$RowT[3] : $nLrP_VlrIte);
           $LrP_CodigoI   = @$RowT[4];	
		     $_LrP_SigUni   = @$RowT[5];
           $Row_CadGru = MYSQL_QUERY( "SELECT * FROM cad_grupo_produtos WHERE GRU_TRAREG=0 AND GRU_CODIGO=".($_LrP_CodGru+0).";" ) Or Die(MYSQL_ERROR());
           $Row_CadGru = MYSQL_FETCH_ARRAY($Row_CadGru);
           $bActSabores = @$Row_CadGru['GRU_ACTSAB']+0;
           If ($bActSabores) {
            $sRet_Javs .=
    	 	      "parent.document.getElementById('iCadELrP_CodBar').focus();".
                 Info_Evento('Produto pertence ao grupo vários sabores. <br> Não é permitido seleciona-lo nesta opção ! <br>'.$_LrP_CodigoL.'-'.$_LrP_Descri,1);
             $bIncluir = False;
           }
           If ($NUM==0) {
              $bIncluir = False;
           }
			  
			 If ($_LrP_SigUni=='KG') {
			    $n_QtdIte = ROUND($n_QtdIte,3);
			    $n_QtdIte = NUMBER_FORMAT($n_QtdIte, 3, '.','');
			} Else {
			    $n_QtdIte = ROUND($n_QtdIte,0);
			} 
			  
			  
          If ( $bIncluir ) {
   	 	      // Capturar preço promocional
			  $nIte_Pre_Promocao = PuxarPrecoPromocional( $LrP_CodigoI );
			  If ( $nIte_Pre_Promocao>=0 && $nLrP_VlrIte==0 ) { $nITE_PRE_NOR=$nIte_Pre_Promocao; }
			  //
              //If ($nITE_PRE_NOR>0){
			  If ($nITE_PRE_NOR>0){
    	 		 $aBar = ARRAY(
                                "ACAO" => 1,
                         	   "SEQCOD" => $n_CoIndice,
                          "ITE_CODIGOL" => $_LrP_CodigoL,
                          "ITE_DESCRIC" => $_LrP_Descri,
                          "FAT_QTD_ITE" => $n_QtdIte,
                          "CALCULO"     => $nITE_PRE_NOR,
                          "FAT_PRE_TOT" => $n_QtdIte*STR_REPLACE('R$ ','',$nITE_PRE_NOR),
                          "ITE_CODIGOI" => $LrP_CodigoI
    	 			     );
    	 	     $n_CoIndice++;
    	 	     $a_ListaLrP[] = $aBar;
    	 	     $aSessao['CADBAR_LISTA'] = $a_ListaLrP;
                 $aSessao['CADBAR_COINDICE'] = $n_CoIndice;
              } Else {
                 $sRet_Javs .= "parent.document.getElementById('iCadELrP_CodBar').focus();".
    	 			            Info_Evento('Produto sem preço cadastrado: <br>'.$_LrP_CodigoL.'-'.$_LrP_Descri,1);
              }
           } Else {
              If (!$bActSabores && ! STRLEN($sLrP_CodPro)==0) {
    	 	      $sRet_Javs .= "parent.document.getElementById('iCadELrP_CodBar').focus();".
    	 	  	                Info_Evento('Código de barras não cadastrado: <br>'.$sLrP_CodPro,1);
              }
           }
           //
           $sRet_Javs .=
             "parent.document.getElementById('iCadELrP_CodBar').value='';".
             "parent.document.getElementById('iCadELrP_CodBar').focus();".
             'parent.Car_'.$sNomeAcesso.$nQdrNomeAcs.'.P_Atu();'.
             "";
         }
		}
    //
	// REMOVER 
    } ElseIf ( $sAcao=="BAR_RMV" ) {
      $bRemove = True;
      If ( STRLEN($sLrP_CodPro)==0 ) {
          // Erro: Erro Codigo Barras inválido
          $sRet_Javs .= Info_Evento('Código de barras inválido.',1);
          $bRemove = False;
      }
      $a_ListaLrPN = ARRAY();
      If ( $bRemove ) {
    	 $bRemove = False;
         ForEach ( $a_ListaLrP As $nPosicao => $aBar ) {
           If ( $aBar["SEQCOD"] == ($sLrP_CodPro+0)) {
              If ( $aBar['ACAO']==0 ) {       // Existente no banco
                 $aBar['ACAO']=2;             // Pendente para excluir
                 $a_ListaLrPN[] = $aBar;
              } ElseIf ( $aBar['ACAO']==1 ) { // Pendente para incluir
                 //
              } Else {
                 $a_ListaLrPN[] = $aBar;
              }
              $bRemove = True;
           } Else {
              $a_ListaLrPN[] = $aBar;
           }
         }
      }
      If ( $bRemove ) {
        $aSessao['CADBAR_LISTA'] = $a_ListaLrPN;
        $sRet_Javs .=
           "parent.document.getElementById('iCadELrP_CodBar').focus();".
           'parent.Car_'.$sNomeAcesso.$nQdrNomeAcs.'.P_Atu();'.
           "";
      } Else {
           $sRet_Javs .= Info_Evento('Código de Barras inválido.',1);
      }
	//
    // VALIDAR CAMPOS
    } ElseIf ( $sAcao=="VALIDACAM" ) {
	  $sLrP_CodPro = Somente_Numeros($sLrP_CodPro);
	  $nLrP_QtdIte = ROUND(STR_REPLACE(",",".",Somente_Numeros($sLrP_QtdIte,",."))+0,3);
	  $nLrP_VlrIte = ROUND(STR_REPLACE(",",".",Somente_Numeros($sLrP_VlrIte,",."))+0,2);
	  $bProdutoAlt = ($aSessao[$sNomeAcesso.'_CAMPOPROD']<>$sLrP_CodPro);
	  $bQtdeAlt = (@$aSessao[$sNomeAcesso.'_CAMPOQTDE']<>$nLrP_QtdIte);
	  //
	  $bTrava_Max  = False;
	  //
      $sPro_Descricao = '';
	  $sSig_Unidade   = '';
      
	  
	  If ( STRLEN($sLrP_CodPro)>0 ) {
         $sSQLQuery =
             "SELECT ITE_CODIGOI, ITE_DESCRIC, ITE_PRE_".$sEnt_TipoFt."_NOR, ITE_CODIGOL, ITE_SIG_UNIDADE ".
             "FROM cad_produto ".
             "LEFT JOIN cad_codigo_barras ON ITE_CODIGOI=BAR_CODITE ".
             "WHERE BAR_CODBAR='".$sLrP_CodPro."' OR (ITE_CODIGOL='".Str_Zero($sLrP_CodPro,4)."');";
         $Row = MYSQL_QUERY( $sSQLQuery ) Or DIE( $sSQLQuery.'<br>'.MYSQL_ERROR() );
         If ( $Row = MYSQL_FETCH_ARRAY($Row) ) {
      	   $sPro_Descricao = $Row[1].( STRLEN($Row[4])>0 ? ' - '.$Row[4] : "" );
		   $sSig_Unidade   = $Row[4];
      	   If ( $bProdutoAlt ) {
      	      $nLrP_QtdIte = 1;
              $nLrP_VlrIte = $Row[2];
			  $nIte_Pre_Promocao = PuxarPrecoPromocional( $Row[0] );
			  If ( $nIte_Pre_Promocao>=0 ) { $nLrP_VlrIte=$nIte_Pre_Promocao; }
      	   }
         } Else {
      	   $sLrP_CodPro    = '';
      	   If ( $bProdutoAlt ) {
      	      $nLrP_VlrIte = 0;
      	      $nLrP_QtdIte = 0;
      	   }
         }
      } Else {
      	$nLrP_VlrIte = 0;
      	$nLrP_QtdIte = 0;
      	$sLrP_CodPro = '';
      }
      $aSessao[$sNomeAcesso.'_CAMPOPROD'] = $sLrP_CodPro;
	  $aSessao[$sNomeAcesso.'_CAMPOQTDE'] = $nLrP_QtdIte;
      $sRet_Javs .=
        "parent.document.getElementById('spCadELrP_ProDescr').innerHTML='".$sPro_Descricao."';".
        "";
	  //
	  $sLrP_VlrIte = '';
	  If ( $nLrP_VlrIte>0 ) {
	     $sLrP_VlrIte = FormatoMoeda($nLrP_VlrIte);
	  }
	  $sLrP_QtdIte = '';
	  If ( $nLrP_QtdIte>0 ) {
	     If ( STRTOUPPER($sSig_Unidade)=="KG" ) {
	        $sLrP_QtdIte = NUMBER_FORMAT($nLrP_QtdIte,3,'.','');
		 } Else {
	        $sLrP_QtdIte = ROUND($nLrP_QtdIte,0);
		 }
	  }
      // trava de quantidade maxima permitida
      If ( $nQtdeMax > 0 && $nLrP_QtdIte > 0 ) {
	     If ( $nLrP_QtdIte > $nQtdeMax ) {
		    $bTrava_Max = True;
	     } Else {
		    $bTrava_Max = False;
		 }
	  }
	  
	  
	  
	  $sRet_Javs .=
        "parent.document.getElementById('iCadELrP_CodBar').value='".$sLrP_CodPro."';".
		"parent.document.getElementById('iCadELrP_QtdIte').value='".$sLrP_QtdIte."';".
        
		( STRLEN($sLrP_CodPro)>0 && (! $bQtdeAlt > 0 ) ?
		  "parent.document.getElementById('iCadELrP_QtdIte').focus();".
		  "parent.document.getElementById('iCadELrP_QtdIte').select();"
		:
		  "" ).
		"parent.document.getElementById('iCadELrP_VlrIte').value='".$sLrP_VlrIte."';".
		( $bTrava_Max && STRLEN($sLrP_CodPro) > 0 ?
		   "parent.Qdr_Prompt_H(true,'Confirma quantidade digitada?',".
		   JAVA_CharCode(
			   "if (_NUM_BOT_==1) { ".
		          "parent.document.getElementById('iCadELrP_VlrIte').focus();". 
		       "} else {".
	              "parent.document.getElementById('iCadELrP_QtdIte').value='1';".
	 		      "parent.document.getElementById('iCadELrP_QtdIte').focus();".
			      "parent.document.getElementById('iCadELrP_QtdIte').select();".
		       "}".
		   "").
		   ",['Sim','Não']);".
		   ""
		:
           	  
		   ""
		).
		
		//"parent.document.getElementById('iCadELrP_VlrIte').value='".$sLrP_VlrIte."';".
		"";
    //
	//VERIFICA ALTERAÇAO DE PRODUTO JA GRAVADO NA LISTA
	} ElseIf ( $sAcao=="VALIDA_ALT" ) {
      ForEach ( $a_ListaLrP As $nPosicao => $aBar ) {
        If ( $aBar["SEQCOD"] == ($sLrP_CodPro+0)) { 
          
          $sRet_Javs .= 
            $sJavaTravarJ.
            "var _fm = parent.document.forms.fmCxaInsPro;".
            "_fm.acao.value='INI';".
            "_fm.SubMod2.value='ALT';".
            "_fm.submit();".
            "_fm.acao.value='';".
            "_fm.SubMod2.value='';";
          
        }
      }       
      
    //
    // CONFIRMA
    } ElseIf ( $sAcao=="CONFIRMA" ) {
      $a_ListaLrP = $aSessao['CADBAR_LISTA'];      
	  $aItens_Ticket = ARRAY();
      $bIncluir = False;
      $bExcluir = False;
      $sNCM_Erro = '';
      $sRet_Javs .=
       "parent.JanEspera(false);".
       "";
      //
      If ($nTipoFonte==1) {
    	 // Puxar dados do Cad_Tabela_IBPT
    	 $aTabelaIBPT = ARRAY();
         $Rows = MYSQL_QUERY("SELECT * FROM cad_tabela_ibpt;") Or Die(MYSQL_ERROR());
         While ( $Row = MYSQL_FETCH_ARRAY($Rows) ) {
    	    $aTabelaIBPT[$Row['IBP_COD_NCM']] = $Row;
    	 }
      }
      //
      ForEach ( $a_ListaLrP As $nPosicao => $aBar ) {
        If ( $aBar['ACAO']==0 ) {       // Existente no banco
		   //
        } ElseIf ( $aBar['ACAO']==1 ) { // Pendente para incluir
          If ($nTipoFonte==1) {
    	     $aLista_dos_Itens = $aSessao[$sNomeAcesso.'_FAT_ITENS'];
    	     $sItensCancelados = $aSessao[$sNomeAcesso.'_ITENS_CAN'];
    		 $bExecAdc = True;
    		 //
    		 $aDados_Item = ARRAY();
    		 $aDados_Item[0]  = 0;     // Codigo único no cupom, pode ser o do Fat_item
    		 $aDados_Item[1]  = '';    // Codigos   do produto   (100;104;180;100)
    		 $aDados_Item[2]  = '';    // Descrição do produto   (AAA;BBB;CCC;DDD)
    		 $aDados_Item[3]  = 0 ;    // Aliquota               (18.00)
    		 $aDados_Item[4]  = 0 ;    // Quantidade
    		 $aDados_Item[5]  = '';    // Unidade                (UN ou KG ou PC etc...)
    		 $aDados_Item[6]  = 0 ;    // Valor unitário do item (22.50)
    		 $aDados_Item[7]  = '';    // Lista de opcionais direto do Banco de dados
    		 $aDados_Item[8]  = 0;     // Valor total dos opcionais
    		 $aDados_Item[9]  = '';    // Tipo do preço
    		 $aDados_Item[10] = '';    // Codigo ECF da aliquota
    		 //
    	     $aDados_Item[0] = $aBar["SEQCOD"]+99999000;
    	     $aDados_Item[1] = $aBar["ITE_CODIGOI"];
    		 $sSQLQuery = "SELECT * FROM cad_produto,cad_tributacao,cad_cst WHERE ITE_CODIGOI=".$aDados_Item[1]." AND (ITE_FISCAL_TRIB=0 OR (TRB_CODIGOI=ITE_FISCAL_TRIB AND TRB_COD_CST=CST_CODIGOI ));";
             $Row_CadPro = MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().'<br>'.$sSQLQuery);
             If ( $Row_CadPro=MYSQL_FETCH_OBJECT($Row_CadPro) ) {
                If ($Row_CadPro->ITE_FISCAL_TRIB>0 && $aDados_Item[3]==0) {
             	   $aDados_Item[3]  = $Row_CadPro->TRB_I_C_M_S+0;
             	   $aDados_Item[10] = $Row_CadPro->CST_COD_ECF;
             	}
    		 	//$aDados_Item[1] .= $Row_CadPro->ITE_CODIGOI.';';
    		 	//$aDados_Item[2] .= $Row_CadPro->ITE_DESCRIC.';';
    		    If ( STRLEN($Row_CadPro->ITE_COD_NCM)==0 ) {
    		 	   $sNCM_Erro .= 'Produto sem NCM: '.$Row_CadPro->ITE_CODIGOL.' - '.$Row_CadPro->ITE_DESCRIC.'<br>';
    		       //$bExecAdc = False;
    		    } Else {
    		       If ( ! ISSET($aTabelaIBPT[$Row_CadPro->ITE_COD_NCM] ) ) {
    		          $sNCM_Erro .= 'Produto com NCM inválido: '.$Row_CadPro->ITE_CODIGOL.' - '.$Row_CadPro->ITE_DESCRIC.'<br>';
    		          //$bExecAdc = False;
    		 	   }
    		    }
    		    If ( STRLEN($aDados_Item[10])==0 ) {
    		 	   $sNCM_Erro .= 'Produto sem Codigo ECF: '.$Row_CadPro->ITE_CODIGOL.' - '.$Row_CadPro->ITE_DESCRIC.'<br>';
    		       $sItensCancelados .= "(".$aDados_Item[0].")";
    			}
             }
    		 //
    	     $aDados_Item[2] = $aBar["ITE_DESCRIC"];
    	     $aDados_Item[4] = $aBar["FAT_QTD_ITE"];
    	     $aDados_Item[6] = $aBar["CALCULO"];
    		 If ( $bExecAdc ) {
    		    $aLista_dos_Itens[] = $aDados_Item;
    	        $aSessao[$sNomeAcesso.'_FAT_ITENS'] = $aLista_dos_Itens;
    		 }
    	     $aSessao[$sNomeAcesso.'_ITENS_CAN'] = $sItensCancelados;
    	     //
    	  } Else {
             //
			 //Pega o  preço custo do cad_produto 
	         $nIte_Pre_Cus_001 = PuxarPrecoCusto(($aBar['ITE_CODIGOI']+0), "N" );
          	 //Calcula o total do custo
             $nCusto_Total =  $nIte_Pre_Cus_001*$aBar['FAT_QTD_ITE'];
			 
			 // Inserir o item
             $nFti_Codigo = SQLVarConfig('FAT_ITEM_SEQCOD');
             SQLVarConfigG('FAT_ITEM_SEQCOD',$nFti_Codigo+1);
             $sSQLQuery = 
                    "INSERT INTO fat_item(".
                       "FAT_CODIGOI, FAT_CFATGER, FAT_COD_FUN, FAT_DAT_HOR, FAT_PRE_TOT, ".
                       "FAT_PRE_OPC, FAT_CODITE1, FAT_CODITE2, FAT_CODITE3, FAT_CODITE4, FAT_QTD_ITE, ".
                       "FAT_GAR_EST, FAT_PRE_TIP, FAT_TOTCUST, FAT_CUS_001 ".
                    ") VALUE(".
                       $nFti_Codigo.",".
                       $nR_FatGe.",".
                        "'".$R_CadFuncionario->FUN_CODIGO."',".
                        "'".DATE("Y-m-d H:i:s")."',".
                       "'".$aBar['FAT_PRE_TOT']."',".
                       "0,".
                       ($aBar['ITE_CODIGOI']+0).",".
                       "0,".
                       "0,".
                       "0,".
                       $aBar['FAT_QTD_ITE'].",".
                       "0,".
                       '"N",'.
					   "'".$nCusto_Total."',".
				       "'".$nIte_Pre_Cus_001."'".
                    ");";
             MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' '.$sSQLQuery);
			 //
			 $aItens_Ticket[$nFti_Codigo] = 1;
			 //
    	  }
    	} ElseIf ( $aBar['ACAO']==2 ) { // Pendente para excluir
    	  
          If ($nTipoFonte==1) {
    	     $sItensCancelados = $aSessao[$sNomeAcesso.'_ITENS_CAN'];
    		 $sItensCancelados .= "(".$aBar["FAT_CODIGOI"].")";
    	     $aSessao[$sNomeAcesso.'_ITENS_CAN'] = $sItensCancelados;
    	     //
    	  } Else {
             $aSessao[$sNomeAcesso.'_FAT_TOT_REC_G'] = 1;      // Atualizar o total á receber no calculo
             $sRet_Javs .= "parent.JanEspera(false);";
             $sSQLQueryFD = 
                  "SELECT FAT_GAR_EST, ".
                         "FAT_CFATGER, ".
             	         "FAT_CODIGOI ".
             	  "FROM fat_item ".
             	  "WHERE  FAT_GAR_EST=0 AND FAT_CFATGER=".$nR_FatGe." AND ".
                         "FAT_CODIGOI=".($aBar['FAT_CODIGOI']+0)." AND ".
             			 "FAT_CODITE1=".($aBar['ITE_CODIGOI']+0).";";
             $Row_FatIte = MYSQL_QUERY($sSQLQueryFD) or die(MYSQL_ERROR().' '.$sSQLQueryFD); 
             //
             $sSQLQueryFG = 
                  "SELECT FAT_CODIGOI ".
                  "FROM fat_geral ".
             	  "WHERE FAT_CODIGOI=".$nR_FatGe.";";
             $Row_FatGer = MYSQL_QUERY($sSQLQueryFG) or die(MYSQL_ERROR().' '.$sSQLQueryFG);
             If ( ($Row_FatGer = MYSQL_FETCH_OBJECT($Row_FatGer)) && ($Row_FatIte = MYSQL_FETCH_OBJECT($Row_FatIte)) ) {
                $sFat_CanItem = '';
                If ( STRLEN($Row_FatIte->FAT_CANITEM)==0 ) {
                  $sFat_CanItem = $R_CadFuncionario->FUN_CODIGO.';'.DATE("Y-m-d H:i:s");
                }
                MYSQL_QUERY(
    			  "UPDATE fat_item ".
             	  "SET FAT_CANITEM='".$sFat_CanItem."' ".
             	  "WHERE FAT_CODITE1=".($aBar['ITE_CODIGOI']+0)." AND ".
             		    "FAT_CODIGOI=".($aBar['FAT_CODIGOI']+0).";"
    			) Or Die(MYSQL_ERROR());
                //
             } Else {
                $sRet_Javs .= Info_Evento('Não é possível remover este item, codigo inválido. ITEM('.($aBar['ITE_CODIGOI']+0).') , GERAL('.$nR_FatGe.').',1);
             }
    	  }
    	  //
    	} ElseIf ( $aBar['ACAO']==3 ){ // Pendente para alterar
    	  
          If ($nTipoFonte==1) {
    	     $aLista_dos_Itens = $aSessao[$sNomeAcesso.'_FAT_ITENS'];
			 $aTemp = $aLista_dos_Itens;
			 ForEach ($aTemp As $nPosicao => $aDados_Item) {
			    If ($aDados_Item[0]==$aBar["FAT_CODIGOI"]) {
				   $aLista_dos_Itens[$nPosicao][4] = $aBar["FAT_QTD_ITE"];
				   $aLista_dos_Itens[$nPosicao][6] = $aBar["CALCULO"];
				   BREAK;
				}
			 }
			 $aSessao[$sNomeAcesso.'_FAT_ITENS'] = $aLista_dos_Itens;
		     //
		  } Else {
            // cancelar primeiro para depois incluir
            $aSessao[$sNomeAcesso.'_FAT_TOT_REC_G'] = 1;      // Atualizar o total á receber no calculo
            $sRet_Javs .= "parent.JanEspera(false);";
            $sSQLQueryFD = 
                  "SELECT FAT_GAR_EST, ".
                         "FAT_CFATGER, ".
             	         "FAT_CODIGOI ".
             	  "FROM fat_item ".
             	  "WHERE  FAT_GAR_EST=0 AND FAT_CFATGER=".$nR_FatGe." AND ".
                         "FAT_CODIGOI=".($aBar['FAT_CODIGOI']+0)." AND ".
             			 "FAT_CODITE1=".($aBar['ITE_CODIGOI']+0).";";
             $Row_FatIte = MYSQL_QUERY($sSQLQueryFD) or die(MYSQL_ERROR().' '.$sSQLQueryFD); 
             //
             $sSQLQueryFG = 
                  "SELECT FAT_CODIGOI ".
                  "FROM fat_geral ".
             	  "WHERE FAT_CODIGOI=".$nR_FatGe.";";
             $Row_FatGer = MYSQL_QUERY($sSQLQueryFG) or die(MYSQL_ERROR().' '.$sSQLQueryFG);
             If ( ($Row_FatGer = MYSQL_FETCH_OBJECT($Row_FatGer)) && ($Row_FatIte = MYSQL_FETCH_OBJECT($Row_FatIte)) ) {
                $sFat_CanItem = '';
                If ( STRLEN($Row_FatIte->FAT_CANITEM)==0 ) {
                  $sFat_CanItem = $R_CadFuncionario->FUN_CODIGO.';'.DATE("Y-m-d H:i:s");
                }
                MYSQL_QUERY(
    			  "UPDATE fat_item ".
             	  "SET FAT_CANITEM='".$sFat_CanItem."' ".
             	  "WHERE FAT_CODITE1=".($aBar['ITE_CODIGOI']+0)." AND ".
             		    "FAT_CODIGOI=".($aBar['FAT_CODIGOI']+0).";"
    			) Or Die(MYSQL_ERROR());
                //
             } Else {
                $sRet_Javs .= Info_Evento('Não é possível remover este item, codigo inválido. ITEM('.($aBar['ITE_CODIGOI']+0).') , GERAL('.$nR_FatGe.').',1);
             }
             //
			 //Pega o  preço custo do cad_produto 
	         $nIte_Pre_Cus_001 = PuxarPrecoCusto(($aBar['ITE_CODIGOI']+0), "N" );
          	 //Calcula o total do custo
             $nCusto_Total =  $nIte_Pre_Cus_001*$aBar['FAT_QTD_ITE'];
			 
             // Inserir o item
             $nFti_Codigo = SQLVarConfig('FAT_ITEM_SEQCOD');
             SQLVarConfigG('FAT_ITEM_SEQCOD',$nFti_Codigo+1);
             $sSQLQuery = 
                    "INSERT INTO fat_item(".
                       "FAT_CODIGOI, FAT_CFATGER, FAT_COD_FUN, FAT_DAT_HOR, FAT_PRE_TOT, ".
                       "FAT_PRE_OPC, FAT_CODITE1, FAT_CODITE2, FAT_CODITE3, FAT_CODITE4, FAT_QTD_ITE, ".
                       "FAT_GAR_EST, FAT_PRE_TIP, FAT_TOTCUST, FAT_CUS_001 ".
                    ") VALUE(".
                       $nFti_Codigo.",".
                       $nR_FatGe.",".
                        "'".$R_CadFuncionario->FUN_CODIGO."',".
                        "'".DATE("Y-m-d H:i:s")."',".
                       "'".$aBar['FAT_PRE_TOT']."',".
                       "0,".
                       ($aBar['ITE_CODIGOI']+0).",".
                       "0,".
                       "0,".
                       "0,".
                       $aBar['FAT_QTD_ITE'].",".
                       "0,".
                       '"N",'.
					   "'".$nCusto_Total."',".
				       "'".$nIte_Pre_Cus_001."'".
                    ");";
             MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' '.$sSQLQuery);
             //

		  }
		  //
    	}
 
      }
	  
	  //UPDATE NO FAT_GERAL FAT_ULTPED
	  $sSQLFatGeral = 
         "SELECT FAT_CODIGOI ".
         "FROM fat_geral ".
         "WHERE FAT_CODIGOI=".$nR_FatGe.";";
      $Row_Ftg = MYSQL_QUERY($sSQLFatGeral) or die(MYSQL_ERROR().' SELECT FAT_GERAL '.$sSQLQueryFG);         
	  If ( $Row_Ftg = MYSQL_FETCH_OBJECT($Row_Ftg)) {
          $sSQLQuery = 
            "UPDATE fat_geral SET ".
	           "FAT_ULTPED='".DATE("Y-m-d H:i:s")."'".       // ULTIMO PEDIDO
	        " WHERE FAT_CODIGOI=".$nR_FatGe.";";
          MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' GRAVAR FAT_ULTPED '.$sSQLQuery);
      } 
	  
      // balção rápido( Nome Cliente - alterar de  balcao rapido para novo nome
      If (@$aSessao[$sNomeAcesso.'_FAT_TIPLOC']==1) { 
         
        If ( STRLEN($sLrP_NomBal)>0) {    
           
            $sSQLQueryFG = 
              "SELECT FAT_CODIGOI ".
              "FROM fat_geral ".
              "WHERE FAT_CODIGOI=".$nR_FatGe.";";
           $Row_FatGer = MYSQL_QUERY($sSQLQueryFG) or die(MYSQL_ERROR().' '.$sSQLQueryFG);
           If ( $Row_FatGer = MYSQL_FETCH_OBJECT($Row_FatGer)) {
             $sSQLQuery = 
                "UPDATE fat_geral SET ".
		           "FAT_NOMCLIE='".$sLrP_NomBal."'".       // NOME CLIENTE BALCAO RAPIDO
		        " WHERE FAT_CODIGOI=".$nR_FatGe.";";
             MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' '.$sSQLQuery);
           }
         }
      } 

      If ($nTipoFonte==1) {
         //
      } Else {
        Recalcular_FatGer( $nR_FatGe );
        $aSessao['SUGERE_MODPAG_TOTAL'] = True;  
      }
	  // Gerar ticket de produção
	  $nRetornoSucesso = GerarTicketProducao( $nR_FatGe, $aItens_Ticket );
	  //
      $sRet_Javs .=
         ( STRLEN($sNCM_Erro)>0 ? Info_Evento($sNCM_Erro,1) : "").
         "parent.Disabled_In_Elems('".$sNomeIdJ_Ant."',false);".
         $aSessao[$sNomeAcesso.'_CXA_ALTPROD'].
         $oJanelaPrinc->sJavOnClickF.
    	 '';
    
    // FECHAR
    } ElseIf ( $sAcao=="FECHAR" ) {
      $sRet_Javs .=
         "parent.document.getElementById('".$sNomeIdJ_Ant."_Travar').style.visibility='hidden';".
         "parent.Disabled_In_Elems('".$sNomeIdJ_Ant."',false);".
         //$sJavaExePos.
         'parent.document.getElementById("'.$sNomeIdCampo.'").focus();'.
         "parent.RmElem('".$oJanelaPrinc->sIdObj."');";
      If ( ISSET($aSessao['CADBAR_LISTA']) ){
         UNSET( $aSessao['CADBAR_LISTA'] );
         UNSET($aSessao['CADBAR_COINDICE']);
         
      }
    
    // JANELA TELA PRINCIPAL
    } Else {
    //
      $n_CoIndice = 1;
      $a_ListaLrP = ARRAY();
      //
      If ($nTipoFonte==1) {  // Modo FISCAL_ECF
         $aLista_dos_Itens = $aSessao[$sNomeAcesso.'_FAT_ITENS'];
    	 $sItensCancelados = $aSessao[$sNomeAcesso.'_ITENS_CAN'];
    	 FOREACH ( $aLista_dos_Itens As $aDados_Item ) {
    	   If ( STRPOS(" ".$sItensCancelados,"(".$aDados_Item[0].")")>0 ) { CONTINUE; }
    	   $a_ItemL = ARRAY();
           $a_ItemL["ACAO"]        = 0;
           $a_ItemL["SEQCOD"]      = $n_CoIndice;
    	   $a_ItemL["FAT_CODIGOI"] = $aDados_Item[0];
    	   $a_ItemL["ITE_CODIGOL"] = STR_REPLACE(";",",",SUBSTR($aDados_Item[1],0,STRLEN($aDados_Item[1])-1));
    	   $a_ItemL["ITE_CODIGOI"] = EXPLODE(";",$aDados_Item[1].";")[0];
    	   $a_ItemL["ITE_DESCRIC"] = STR_REPLACE(";",",",SUBSTR($aDados_Item[2],0,STRLEN($aDados_Item[2])-1));
    	   $a_ItemL["FAT_QTD_ITE"] = $aDados_Item[4];
    	   $a_ItemL["CALCULO"]     = $aDados_Item[6];
    	   $a_ItemL["FAT_PRE_TOT"] = $aDados_Item[6]*$aDados_Item[4];
    	   If ( STRPOS(" ".$a_ItemL["ITE_CODIGOL"],",")==0 ) {
    	      $RowT = MYSQL_QUERY("SELECT ITE_CODIGOL FROM cad_produto WHERE ITE_CODIGOI=".$a_ItemL["ITE_CODIGOI"].";") or die(MYSQL_ERROR());
    	      If ( $RowT = MYSQL_FETCH_OBJECT($RowT) ) {
    		     If ( STRLEN($RowT->ITE_CODIGOL)>0 ) {
    			    $a_ItemL["ITE_CODIGOL"] = $RowT->ITE_CODIGOL;
    			 }
    		  }
    	   }
           $a_ListaLrP[] = $a_ItemL;
           $n_CoIndice++;
    	 }
         //
      } Else {               // Modo tabelas
         $sSQLQuery =
           "SELECT fat_item.FAT_CODIGOI, ".
    	          "fat_item.FAT_CFATGER, ".
    	          "fat_item.FAT_QTD_ITE, ".
    	   		  "Format((fat_item.FAT_PRE_TOT/fat_item.FAT_QTD_ITE),2) AS CALCULO, ".
    	   		  "fat_item.FAT_PRE_TOT, ".
    	   		  "fat_item.FAT_CANITEM, ".
    	   		  "cad_produto.ITE_CODIGOL, ".
    	   		  "cad_produto.ITE_DESCRIC, ".
    	   		  "cad_produto.ITE_CODIGOI ".
    	   "FROM fat_item, cad_produto ".
    	   "WHERE ". 
    	          "Length(fat_item.FAT_CANITEM)<2 AND ".
    	   		  "fat_item.FAT_CODITE1 = cad_produto.ITE_CODIGOI AND ".
    	   		  "fat_item.FAT_GAR_EST=0 AND fat_item.FAT_CFATGER=".$nR_FatGe.
    	   		  "";
         $RowsT = MYSQL_QUERY( $sSQLQuery ) Or Die( $sSQLQuery.'<br>'.MYSQL_ERROR() );
         //   
         While ($RowT = MYSQL_FETCH_ARRAY($RowsT)) {
           $RowT["ACAO"]=0;
           $RowT["SEQCOD"] = $n_CoIndice;
           $a_ListaLrP[] = $RowT;
           $n_CoIndice++;
         }
      }
      //
      $aSessao['CADBAR_LISTA'] = $a_ListaLrP;
      $aSessao['CADBAR_COINDICE'] = $n_CoIndice;
	  $aSessao[$sNomeAcesso.'_CAMPOPROD'] = '';
      // VERIFICA FAT_GERAL PUXAR NOME DO CLIENTE - BALCAO RAPIDO
      $s_TipoFt = @$aSessao[$sNomeAcesso.'_FAT_TIPLOC'];
      $sLrP_NomBal = '';
      If ( $s_TipoFt == 1) {
         $sSQLQueryG =
            "SELECT FAT_NOMCLIE ".
            "FROM fat_geral ".
            "WHERE FAT_CODIGOI=".$nR_FatGe.
 	 				   "";
         $RowsT = MYSQL_QUERY( $sSQLQueryG ) Or Die( $sSQLQueryG.'<br>'.MYSQL_ERROR() );
         While ($RowT = MYSQL_FETCH_OBJECT($RowsT)) {
           $sLrP_NomBal = $RowT->FAT_NOMCLIE ;
           If ( ($sLrP_NomBal == $sDesc_Balcao) OR ($sLrP_NomBal== 'Balcão' ) ) {
            $sLrP_NomBal = '';
           }
         }
      }
      //
      $oJanelaPrinc->aIdsObjList =
         ARRAY( 'iCadELrP_CodBar', 'iCadELrP_QtdIte', 'iCadELrP_VlrIte','iCadELrP_NomBal' );
      //

      // Tela HTML
      $sRet_TelaJ_HTML =
        $oJanelaPrinc->MontaJanHTML(True).
         '<style type="text/css">'.
            '*{'.
             'font-family: Arial, sans-serif;'.
            '}'.
            'div > .tooltip, li > .tooltip, a > .tooltip, span > .tooltip {'.
              'opacity: 0;'.
              'visibility: hidden;'.
              '-webkit-transition: 0.3s;'.
              '-moz-transition: all 0.3s;'.
            '}'.
            'div:hover > .tooltip, li:hover > .tooltip, a:hover > .tooltip, span:hover > .tooltip,'.
              'a .tooltip:hover, span .tooltip:hover, li .tooltip:hover, div .tooltip:hover {'.
              'opacity: 1;'.
              'visibility: visible;'.
              'overflow: visible;'.
              'margin-top: -70px;'.
              'display: inline;'.
              'margin-left: 230px;'.
              '-webkit-transition: 0.3s;'.
              '-moz-transition: all 0.3s;'.
            '}'.
            '.tooltip {'.
              'background: #3378C1;'.
              'color: #fff;'.
              '-webkit-border-radius: 5px;'.
              '-moz-border-radius: 5px;'.
              '-o-border-radius: 5px;'.
              'border-radius: 5px;'.
              'padding: 10px;'.
              'margin-left: 230px;'.
              'position: absolute;'.
              'font-family: Arial;'.
              'font-size: 12px;'.
              'text-decoration: none;'.
              'font-style: normal; '.
              'z-index: 10;'.
            '}'.
            '.tooltip:before {'.
              'content: "";'.
              'background: #3378C1;'.
              'border: 0;'.
              'width: 10px;'.
              'height: 10px;'.
              'margin-left: 5px;'.
              'margin-top: 20px;'.
              'display: block;'.
              'position: absolute;'.
              '-webkit-transform: rotate(-45deg);'.
              '-moz-transform: rotate(-45deg);'.
              '-o-transform: rotate(-45deg);'.
              'transform: rotate(-45deg);'.
              'display /*\**/: none\9;'.
              '*display: none !important;'.
              '*display: none;'.
            '}'.
    	  '</style>'. 
          '<form name="fmCxaInsPro" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.($nQdrNomeAcs+1).'">'.
           '<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="Bar_NumCam" type="hidden" value="">'.
           '<input name="LrP_CodBar" type="hidden" value="">'.
           '<input name="LrP_QtdIte" type="hidden" value="">'.
           '<input name="LrP_VlrIte" type="hidden" value="">'.
           '<input name="LrP_NomBal" type="hidden" value="">'.
           '<input name="SubMod2" type="hidden" value="">'.
           '<input name="NumFatG" type="hidden" value="'.$nR_FatGe.'">'.
         '</form>'.
         '<form name="fmCxaInsProC" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.($nQdrNomeAcs+2).'">'.
           '<input name="mod" type="hidden" value="'.$sModulo.'">'.
           '<input name="submod" type="hidden" value="">'.
           '<input name="acao" type="hidden" value="">'.
           '<input name="nomeacs" type="hidden" value="'.$sNomeAcesso.'">'.
         '</form>'.
         '<table width="100%">'.
            '<tr>'.
      	      '<td width="4px" height="10px" align="left">&nbsp;</td>'.
          	  '<td align="center" width="26px" valign="middle">'.
           	       HTML_Botao( 3, 'CadECPI_BT_Psq' , "document.getElementById('iCadELrP_CodBar').value='/';".
          			                                   'parent.Car_'.$sNomeAcesso.$nQdrNomeAcs.'.AdicionaBar();'
    	  	                                       ,  ''  ,'images/btimg_lupa.png',24).
    	  	      
    	  	  '</td>'.
    	  	  '<td align="center" width="26px">'.
    	  	    '<input type="image" src="images/interroga.png"  width="23px" height="23px" onclick="parent.Car_'.$sNomeAcesso.$nQdrNomeAcs.'.Interroga(1)">'.
    	  	  '</td>'.
      	      '<td align="right" width="115px">'.
                  '<span style="font-size:14px;">'.
                     'Código de Barras:'.
                  '</span>'.
                '</td>'.
    	  	  '<td align="left" width="160px">'.
    	  	      '<input id="iCadELrP_CodBar" type="text" maxlength="25" onblur="parent.Car_'.$sNomeAcesso.$nQdrNomeAcs.'.ValidaCampos();" style="width:160px; height:22px; background:#FFFBEC; border-width:1px; border-style:solid; border-color:#0099FF;">'.
    	  	  '</td>'.
    	  	  '<td align="left">'.
			   '<span id="spCadELrP_ProDescr" style="font-size:14px; font-weight:bold; color:#222222;"></span>'.
    	  	  '</td>'.
            '</tr>'.
         '</table>'.
         '<span id="men_01" class="tooltip" style="display:none;">'.
    	    'Quantidade : *'.
            ' e depois o código de barras.'.
            '  Ex: '.
    	    ' 3*1234567890123'.
         '</span>'.
		 //
         '<table width="100%">'.
            '<tr>'.
      	      '<td width="4px" align="left"></td>'.
      	      '<td align="right" width="188px" style="font-size:14px;">'.
               'Quantidade:'.
              '</td>'.
    	  	  '<td align="right" width="65px">'.
    	  	    '<input id="iCadELrP_QtdIte" type="text" maxlength="25" onchange="parent.Car_'.$sNomeAcesso.$nQdrNomeAcs.'.ValidaCampos();" style="width:98%; height:22px; background:#FFFBEC; border-width:1px; border-style:solid; border-color:#0099FF;">'.
    	  	  '</td>'.
      	      '<td align="right" width="185px" style="font-size:14px;">'.
               'Preço unitário:'.
              '</td>'.
    	  	  '<td align="right" width="80px">'.
    	  	    '<input id="iCadELrP_VlrIte" type="text" maxlength="25" onchange="parent.Car_'.$sNomeAcesso.$nQdrNomeAcs.'.ValidaCampos();" style="width:98%; height:22px; background:#FFFBEC; border-width:1px; border-style:solid; border-color:#0099FF;">'.
    	  	  '</td>'.
    	  	  '<td align="left">'.
    	  	  '</td>'.
            '</tr>'.
         '</table>'.
         //
         '<table width="100%">'.
          '<tr>'.
             '<td width="180px" height="40px" align="center" valign="middle">'.
                 HTML_Botao( 3, 'CadEBar_BT_Adc',"Car_".$sNomeAcesso.$nQdrNomeAcs.".AdicionaBar();"
                              , 'Adicionar','images/btimg_novo.png',130).
             '</td>'.
             '<td align="left">'.
             '</td>'.
             '<td width="140px" align="center" valign="middle">'.
                 HTML_Botao( 3, 'CadELrP_BT_Alt',"Car_".$sNomeAcesso.$nQdrNomeAcs.".CAlterarBar();"
                              , 'Alterar (F8)','images/btimg_editar.png',120).
             '</td>'.
             '<td width="140px" align="center" valign="middle">'.
                 HTML_Botao( 3, 'CadELrP_BT_Rmv',"Car_".$sNomeAcesso.$nQdrNomeAcs.".CRemoverBar();"
                              , 'Remover (F6)','images/btimg_remover.png',120).
             '</td>'.
           '</tr>'.
         '</table>'.
         '<div style="position:absolute; top:-1000px; left:-1000px;">'.
           '<input id="iECadELrP_iLstLrP" type="text" maxlength="1" onkeydown="Car_'.$sNomeAcesso.$nQdrNomeAcs.'.P_TeclasPress_fm(event);">'.
         '</div>'.
         $oTabelaRegs->MontaDivHtml().
         '<table width="100%">'.
           '<tr>'.
             '<td width="4px" height="40px" align="left">&nbsp;</td>'.
      	      ((@$aSessao[$sNomeAcesso.'_FAT_TIPLOC']+0)==1 ?
                '<td style="font-size:16px; font-weight:bold;" align="left" valign="middle">'.
                  '&nbsp;&nbsp;'.'Nome do Cliente: &nbsp;&nbsp;'.
                  '<input id="iCadELrP_NomBal" type="text" value="'.$sLrP_NomBal.'" maxlength="45" onchange="parent.Car_'.$sNomeAcesso.$nQdrNomeAcs.'." style="width:300px; height:22px; background:#FFFBEC; border-width:1px; border-style:solid; border-color:#0099FF;">'.
    	        '</td>'
              :
               ''
             ).
             '<td width="250px" style="font-size:16px; font-weight:bold;" align="right" valign="middle">'.
              'Valor total: R$ <span id="Total_Ped">0,00</span>&nbsp;&nbsp;'.
    	     '</td>'.
    	   '</tr>'.
      	  // 
    	   '<tr>'.
            (@$aSessao[$sNomeAcesso.'_FAT_TIPLOC']==1 ?
              '<td height="40px">&nbsp;</td>'
            :
              ''
            ).
            '<td align="left">'.
               '&nbsp;&nbsp;&nbsp;&nbsp'.
    	  	 HTML_Botao( 3, 'bt_CTR_Rec_Conf', 'Car_'.$sNomeAcesso.$nQdrNomeAcs.'.Confirma();'
                            , 'Confirmar (F10)','images/btimg_ativar.png',130).
            '</td>'.
    	    '<td align="right">'.
               HTML_Botao( 3, 'CadCBar_BT_Fch' , $oJanelaPrinc->sJavOnClickF
                            , 'Sair (ESC)'     ,'images/btimg_fechar.png',130).'&nbsp;&nbsp;&nbsp;&nbsp;'.
            '</td>'.
      	 '</tr>'.
         '</table>'.
        $oJanelaPrinc->MontaJanHTML(False);
     //
     $sRet_Javs .=
       "parent.document.getElementById('".$sNomeIdJ_Ant."_Travar').style.visibility='visible';".
       "parent.Disabled_In_Elems('".$sNomeIdJ_Ant."',true);".
       'parent.document.getElementById("dv_MenuL_Barra").style.visibility="hidden";'.
       "var sSelIndice='0';".
       "function P_Atu() {".
         "sSelIndice='0';".
         $oTabelaRegs->MontaJavaAgu().
		 "ValidaCampos();".
         "parent.document.forms.fmCxaInsPro.acao.value='LISTAR'; ".
         "parent.document.forms.fmCxaInsPro.Bar_NumCam.value=nPesq_CampoSel+''; ".
         "setTimeout( function() { parent.document.forms.fmCxaInsPro.submit(); }, 100);".
       '}'.
      //'function Pesq_Seleciona() {'.
      //  'parent.document.getElementById("'.$sNomeIdCampo.'").value = sSelIndiceC;'.
      //  $oJanelaPrinc->sJavOnClickF.
      //'}'.
        $oTabelaRegs->MontaJavaPri().
        //
        "function ValidaCampos() {".
           "var _fm = parent.document.forms.fmCxaInsPro;".
		   "TargetAnt = _fm.target;".
		   "_fm.target='car_".$sNomeAcesso.($nQdrNomeAcs+3)."';".
           "_fm.LrP_CodBar.value=parent.document.getElementById('iCadELrP_CodBar').value;".
		   "_fm.LrP_QtdIte.value=parent.document.getElementById('iCadELrP_QtdIte').value;".
		   "_fm.LrP_VlrIte.value=parent.document.getElementById('iCadELrP_VlrIte').value;".
           "_fm.acao.value='VALIDACAM'; ".
           "_fm.submit();".
		   "_fm.target=TargetAnt;".
        "}".
        "function AdicionaBar() {".
           "var _fm = parent.document.forms.fmCxaInsPro;".
           "_fm.LrP_CodBar.value=parent.document.getElementById('iCadELrP_CodBar').value;".
		   "_fm.LrP_QtdIte.value=parent.document.getElementById('iCadELrP_QtdIte').value;".
		   "_fm.LrP_VlrIte.value=parent.document.getElementById('iCadELrP_VlrIte').value;".
           "_fm.acao.value='BAR_ADC'; ".
           "_fm.submit();".
        "}".
    	"function Interroga(opcao) {".
    	  'if (opcao==1){'.
    	    "if ( parent.document.getElementById('men_01').style.display == 'none') {".
    	      'parent.document.getElementById("men_01").style.display="inline";'. 
    	    "} else {".   
    	      "if ( parent.document.getElementById('men_01').style.display != 'none') {".
    	  	   'parent.document.getElementById("men_01").style.display="none";'. 
    	      "}".  
    	    "}".  
    	  '}'.
    	"}".
		"function CAlterarBar() {".
		   //$sJavaTravarJ.
           "var _fm = parent.document.forms.fmCxaInsPro;".
           "_fm.LrP_CodBar.value=sSelIndice;".
           "_fm.acao.value='VALIDA_ALT'; ".
           "_fm.submit();".
          
           /*

           "_fm.acao.value='INI';".
           "_fm.SubMod2.value='ALT';".
           "_fm.submit();".
           "_fm.acao.value='';".
           "_fm.SubMod2.value='';".*/
    	"}".
        "function RemoverBar() {".
           "var _fm = parent.document.forms.fmCxaInsPro;".
           "_fm.LrP_CodBar.value=sSelIndice;".
           "_fm.acao.value='BAR_RMV'; ".
           "_fm.submit();".
        "}".
        "function CRemoverBar() {".
           "sIdHasFocus='iECadELrP_iLstLrP';".
           "parent.Qdr_Prompt_H(true,'Tem certeza que deseja REMOVER este produto?',".JAVA_CharCode('if (_NUM_BOT_==1) { Car_'.$sNomeAcesso.$nQdrNomeAcs.'.RemoverBar(); }').",['Sim','Não']); ".
        "}".
    	'';
     // Java posterior
     $sRet_JavsPos .=
      "P_Atu();".
      'parent.document.getElementById("iCadELrP_CodBar").focus();'.
      //
      "function Teclas_F( Objeto, Evento ) {".
         "vNumTecla = parent.Tecla_Apertada(Evento);".
         "if ( vNumTecla==116) { ".            // ** [F5] **         Não atualizar
             //
         "} else if ( vNumTecla==27) { ".      // ** [ESC] **        (SAIR)
             "setTimeout( parent.document.getElementById('CadCBar_BT_Fch').onclick , 100);".
         "} else if ( vNumTecla==121) { ".     // ** [F10] **        Confirmar
    	   	"Confirma();".
    	 "} else if ( vNumTecla==13) { ".   // ** [ENTER] **         Adicionar
     	    "sTempId = parent.Proximo_TabObj(parent.document.getElementById('".$oJanelaPrinc->sIdObj."'),parent.sIdHasFocus);".
     	    "if ( sTempId.length>0 ) {".
			    
			    "if (parent.sIdHasFocus=='iCadELrP_CodBar') {".
				    "sTempValue = ' '+parent.document.getElementById('iCadELrP_CodBar').value;".
    	            "if ( ( sTempValue.indexOf(',')>0 || sTempValue.indexOf('*')>0 || sTempValue.indexOf('/')>0 ) && parent.document.getElementById('CadEBar_BT_Adc').style.display != 'none') {".
				    	"setTimeout( parent.document.getElementById('CadEBar_BT_Adc').onclick , 100);".
				    "} else {".
     	               (  $nInsAut==1  ?
						  "AdicionaBar();".
						  'parent.document.getElementById("iCadELrP_CodBar").focus();'
						:
						  "parent.document.getElementById(sTempId).focus();"
						).
					"}".
				"} else if (parent.sIdHasFocus=='iCadELrP_VlrIte') {".
                   'parent.document.getElementById("iCadELrP_CodBar").focus();'.
    	            "if ( parent.document.getElementById('CadEBar_BT_Adc').style.display != 'none') {".
				        "setTimeout( parent.document.getElementById('CadEBar_BT_Adc').onclick , 100);".
					"}".
				"} else {".
     	            "parent.document.getElementById(sTempId).focus();".
			    "}".
     	    "} else {".
                	'parent.document.getElementById("iCadELrP_CodBar").focus();'.
     	    "}".
             //
         "} else if ( vNumTecla==117) { ".  // ** [F6] **            Remover
            "if ( parent.document.getElementById('CadELrP_BT_Rmv').style.display != 'none') {".
                "setTimeout( parent.document.getElementById('CadELrP_BT_Rmv').onclick , 100);".
    		 "}".
         "} else if ( vNumTecla==119) { ".  // ** [F8] **            Alterar
            "if ( parent.document.getElementById('CadELrP_BT_Alt').style.display != 'none') {".
                "setTimeout( parent.document.getElementById('CadELrP_BT_Alt').onclick , 100);".
    		 "}".
         "} else {".
             "P_TeclasPress_fm(Evento);".
             
			 "return true;".
    	 "}".
    	 "return false;".
      '}'.
      'function Confirma() {'.
    		   "parent.".$sJava_Desfoca_Input.
    		   "parent.JanEspera(true, 'Confirmando...');".
           	   "setTimeout( function() { ".
    	         "var fm = parent.document.forms.fmCxaInsPro;".
    	         "fm.target = 'car_".$sNomeAcesso.($nQdrNomeAcs+1)."';".
                 "if ( parent.document.getElementById('iCadELrP_NomBal') != null ) {".
                     "fm.LrP_NomBal.value=parent.document.getElementById('iCadELrP_NomBal').value;".
                 "}".
                 "fm.acao.value='CONFIRMA'; ".
                 "fm.submit();".
    		    "} , 700);".
      '}'.
       "parent.document.getElementById('CadELrP_BT_Rmv').style.display='none';".
       "parent.document.getElementById('CadELrP_BT_Alt').style.display='none';".
       "";
    }
//
// JANELA DE ALTERAÇÃO DE PREÇO E QUANTIDADE
} ElseIf ($sSubMod2=="ALT") {
    $nQdrNomeAcs += 1;
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = 'iJan_Cxa_InsPr_Alt';
    $oJanelaPrinc->nTop    = 120;
    $oJanelaPrinc->nLeft   = 5;
    $oJanelaPrinc->nWidth  = 400;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
    $oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Alterar';
    $oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso.$nQdrNomeAcs.".Teclas_F(this,event);";
    //
    $sJavaTravarJ = "parent.document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);";
    $oJanelaPrinc->sJavOnClickF = 
         $sJavaTravarJ.
     	 "parent.document.forms.fmCxaInsProAlt.acao.value='SAIR'; ".
    	 "parent.document.forms.fmCxaInsProAlt.submit();".
    	 "";
	//
    $nCodSeq   = @$_POST['LrP_CodBar'];
    $nItem_Qtd = @$_POST['Item_Qtd']+0;
    $nItem_Val = @$_POST['Item_Val'];
	$nItem_Val = STR_REPLACE(',','.',Somente_Numeros($nItem_Val,',.'))+0;
	//
    $a_ListaLrP = @$aSessao['CADBAR_LISTA'];
    $aItem = ARRAY();
    ForEach ( $a_ListaLrP As $nPosicao => $aBar ) {
      If ( $aBar["SEQCOD"] == $nCodSeq) {
        $aItem = $aBar;
		BREAK;
      }
    }
    //
    // JANELA HTML
	If ( $sAcao=="INI" ) {
	   //
       $oJanelaPrinc->aIdsObjList =
          ARRAY( 'iProCxAlt_Qtd', 'iProCxAlt_Val' );
	   //
       $sRet_TelaJ_HTML =
         $oJanelaPrinc->MontaJanHTML(True).
          '<form name="fmCxaInsProAlt" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.($nQdrNomeAcs+1).'">'.
           '<input name="mod" type="hidden" value="'.$sModulo.'">'.
           '<input name="submod" type="hidden" value="'.$sSubModulo.'">'.
           '<input name="SubMod2" type="hidden" value="'.$sSubMod2.'">'.
           '<input name="acao" type="hidden" value="">'.
           '<input name="nomeacs" type="hidden" value="'.$sNomeAcesso.'">'.
           '<input name="LrP_CodBar" type="hidden" value="'.$nCodSeq.'">'.
           '<input name="Item_Qtd" type="hidden" value="">'.
           '<input name="Item_Val" type="hidden" value="">'.
         '</form>'.
         '<table width="100%">'.
          '<tr>'.
      	   '<td align="right" width="80px">'.
            'Produto:'.
           '</td>'.
      	   '<td>'.
		    $aItem['ITE_CODIGOL'].
			' - '.
		    $aItem['ITE_DESCRIC'].
           '</td>'.
		  '</tr>'.
         '</table>'.
         '<table width="100%">'.
          '<tr>'.
      	   '<td align="right" width="80px">'.
            'Quantidade:'.
           '</td>'.
      	   '<td width="90px">'.
    	    '<input id="iProCxAlt_Qtd" value="'.$aItem['FAT_QTD_ITE'].'" type="text" maxlength="15" style="width:60px; height:22px; background:#FFFBEC; border-width:1px; border-style:solid; border-color:#0099FF;" onchange="Car_'.$sNomeAcesso.$nQdrNomeAcs.'.Calcular();">'.
			'&nbsp;&nbsp;x'.
      	   '</td>'.
      	   '<td align="right" width="80px">'.
            'Preço unitário:'.
           '</td>'.
      	   '<td>'.
    	    '<input id="iProCxAlt_Val" value="'.FormatoMoeda($aItem['CALCULO']).'" type="text" maxlength="15" style="width:60px; height:22px; background:#FFFBEC; border-width:1px; border-style:solid; border-color:#0099FF;" onchange="Car_'.$sNomeAcesso.$nQdrNomeAcs.'.Calcular();">'.
      	   '</td>'.
		  '</tr>'.
          '<tr>'.
      	   '<td colspan="3" align="right" width="80px">'.
            'Total:'.
           '</td>'.
      	   '<td style="font-size:14px; font-weight:bold;">'.
		    'R$ <span id="sp_Alt_ValTot">0,00</span>'.
      	   '</td>'.
		  '</tr>'.
         '</table>'.
		 '<div style="height:10px;"></div>'.
		 //
         '<table width="100%">'.
    	   '<tr>'.
    	    '<td align="right" width="150px">'.
    	  	   HTML_Botao( 3, 'bt_InsAlt_Conf', 'Car_'.$sNomeAcesso.$nQdrNomeAcs.'.Salvar();'
                            , 'Salvar (F10)','images/btimg_salvar.png',130).
            '</td>'.
			'<td>'.
            '</td>'.
    	    '<td align="left" width="150px">'.
               HTML_Botao( 3, 'bt_InsAlt_Fch' , $oJanelaPrinc->sJavOnClickF
                            , 'Sair (ESC)'     ,'images/btimg_fechar.png',130).
            '</td>'.
      	   '</tr>'.
         '</table>'.
        $oJanelaPrinc->MontaJanHTML(False);
	  // Java anterior
      $sRet_Javs .=
		 ''.
		 "function Calcular() {".
            "var _fm = parent.document.forms.fmCxaInsProAlt;".
            "_fm.Item_Qtd.value=parent.document.getElementById('iProCxAlt_Qtd').value;".
            "_fm.Item_Val.value=parent.document.getElementById('iProCxAlt_Val').value;".
            "_fm.acao.value='CALCULAR';".
            "NomeQdrCar = _fm.target;".
			"NomeAnt = NomeQdrCar;".
            "NomeQdrCar = NomeQdrCar.substr(0,NomeQdrCar.length-1)+'".($nQdrNomeAcs+2)."';".
            "_fm.target = NomeQdrCar;".
            "_fm.submit();".
            "_fm.target = NomeAnt;".
    	 "}".
		 "function Salvar() {".
            "var _fm = parent.document.forms.fmCxaInsProAlt;".
            "_fm.Item_Qtd.value=parent.document.getElementById('iProCxAlt_Qtd').value;".
            "_fm.Item_Val.value=parent.document.getElementById('iProCxAlt_Val').value;".
            "_fm.acao.value='SALVAR';".
            "_fm.submit();".
    	 "}".
		 '';
      // Java posterior
      $sRet_JavsPos .=
		 'parent.document.getElementById("iProCxAlt_Qtd").focus();'.
		 'Calcular();'.
         "function Teclas_F( Objeto, Evento ) {".
            "vNumTecla = parent.Tecla_Apertada(Evento);".
            "if ( vNumTecla==116) { ".            // ** [F5] **         Não atualizar
                //
            "} else if ( vNumTecla==27) { ".      // ** [ESC] **        (SAIR)
                "setTimeout( parent.document.getElementById('bt_InsAlt_Fch').onclick , 100);".
            "} else if ( vNumTecla==121) { ".     // ** [F10] **        Salvar
    	      	"Salvar();".
	        "} else if ( vNumTecla==13) { ".      // ** [ENTER] **
				"sTempId = parent.Proximo_TabObj(parent.document.getElementById('".$oJanelaPrinc->sIdObj."'),parent.sIdHasFocus);".
				"if ( sTempId.length>0 ) {".
				    "parent.document.getElementById(sTempId).focus();".
				"} else {".
    	            'parent.document.getElementById("iProCxAlt_Qtd").focus();'.
				"}".
			    //
            "} else {".
                "return true;".
    	    "}".
    	    "return false;".
         '}'.
		 '';
	//
    // CALCULAR E MOSTRAR
    } ElseIf ( $sAcao=="CALCULAR" ) {
	  $nItem_Tot = $nItem_Qtd*$nItem_Val;
	  //
      $sRet_Javs .=
         "parent.document.getElementById('iProCxAlt_Qtd').value = '".NUMBER_FORMAT($nItem_Qtd,3,'.','')."';".
         "parent.document.getElementById('iProCxAlt_Val').value = '".FormatoMoeda($nItem_Val)."';".
         "parent.document.getElementById('sp_Alt_ValTot').innerHTML = '".FormatoMoeda($nItem_Tot)."';".
		 "";
	//
    // SALVAR ALTERACAO
    } ElseIf ( $sAcao=="SALVAR" ) {
	  If ( ($nItem_Qtd+0)==0 OR $nItem_Val==0 ) {
         $sRet_Javs .=
		   Info_Evento('Quantidade e valor não pode ser igual a zero.',1).
		   "";
	  } Else {
	     If ( $aItem['ACAO']==0 ) {       // Existente no banco sem alteração
	        $a_ListaLrP[$nPosicao]['ACAO'] = 3;
	     } ElseIf ( $aItem['ACAO']==1 ) { // Pendente para incluir
	     } ElseIf ( $aItem['ACAO']==2 ) { // Pendente para excluir
	     } ElseIf ( $aItem['ACAO']==3 ) { // Pendente para alterar
	     }
	     $a_ListaLrP[$nPosicao]['FAT_QTD_ITE'] = NUMBER_FORMAT($nItem_Qtd,3,'.','');
	     $a_ListaLrP[$nPosicao]['CALCULO']     = $nItem_Val;
	     $a_ListaLrP[$nPosicao]['FAT_PRE_TOT'] = $nItem_Val*$nItem_Qtd;
         $aSessao['CADBAR_LISTA'] = $a_ListaLrP;
	     //
         $sRet_Javs .=
            "parent.JanEspera(true, 'Aguarde...');".
	        "parent.Car_".$sNomeAcesso.$nQdrNomeAcs.".Calcular();".
		    "setTimeout( function () { ".$oJanelaPrinc->sJavOnClickF." } , 1000);".
		    "";
	  }
	//
    // FECHAR
    } ElseIf ( $sAcao=="SAIR" ) {
      $sRet_Javs .=
         "parent.JanEspera(false);".
         "parent.document.getElementById('".$sNomeIdJan6."_Travar').style.visibility='hidden';".
         "parent.Disabled_In_Elems('".$sNomeIdJan6."',false);".
         "parent.RmElem('".$oJanelaPrinc->sIdObj."');".
         'parent.document.getElementById("iCadELrP_CodBar").focus();'.
	     "parent.Car_".$sNomeAcesso.($nQdrNomeAcs-1).".P_Atu();".
		 "";
	}
}
?>
