<?php
$sNomeIdJan1 = 'iJan_Cxa_Princ';    // Tela das mesas, balcão e Disk Entrega (Principal)
$sNomeIdJan2 = 'iJan_Cxa_Receb';    // Tela do recebimento das comandas
$sNomeIdJan3 = 'iJan_Cxa_Caixa';    // Tela de operações de caixa
$sNomeIdJan4 = 'iJan_Cxa_PmDsc';    // Tela de senha para a permissão de desconto
$sNomeIdJan5 = 'iJan_Cxa_PagPc';    // Tela para inserir pagamento parcial
$sNomeIdJan6 = 'iJan_Cxa_InsPr';    // Tela para inserir produto
$sNomeIdJan7 = 'iJan_Cxa_IdenCli';  // Tela para identificação do cliente na comanda
$aQuadrosAds = ARRAY( "RELFTG" => 10, "FINCRC" => 10,"FISECF" => 10 );   // Quadros iframe adicionais
//
REQUIRE_ONCE('./global/funcoes_acbr.inc');                // Carrega as funcoes do ACBR
$nStatus_ACBR = @$aSessao[$sNomeAcesso.'_ACBR']+0;        // Status do ACBR
//
REQUIRE_ONCE "./global/est_funcoes.inc";                  // Carrega as funcoes de estoque
REQUIRE_ONCE "./global/fin_funcoes.inc";                  // Carrega as funcoes de contas á receber
REQUIRE_ONCE "./global/funcoes_cc_cli.inc";               // Carrega as funcoes de conta corrente de cliente
//
$nTipoFiscal     = Terminal_e_Fiscal();
$sTipoLocal      = SQLVarConfig('NOME_LOCAIS_SVC');
$nQtdLocsT       = SQLVarConfig('QTD_LOCAIS_SVC')+0;
$bCliente_FatGer = SQLVarConfig('CLIENTE_NO_FAT_GERAL')+0;         // Obrigatório identificar cliente na comanda
$bActBalcao      = SQLVarConfig('GARCOM_ACT_BALCAO')+0;
$bActEntreg      = SQLVarConfig('GARCOM_ACT_ENTREGA')+0;
$nValCouver      = SQLVarConfig('VALOR_COUVER_SVC')+0;
$nDescontoM      = SQLVarConfig('FAT_DESCONTO_MAX')+0;
$sDsc_Senha      = SQLVarConfig('FAT_DESCONTO_SENHA');
$sCan_Senha      = SQLVarConfig('FAT_CANCELAR_SENHA');
$bCupomAIte      = SQLVarConfig('IMP_AGRUPAITEM_CUPOM');
$sCan_Sen_Item   = SQLVarConfig('FAT_CAN_ITEM_SENHA');
$bTaxaIteIndv    = (SQLVarConfig('TODOSITENS_COM_TAXASVR')+0)==0;
$sData_Trabalho  = SQLVarConfig('DATA_DE_TRABALHO');
$nTipoTrabCtl    = SQLVarConfig('CONTROLE_DO_FAT_GERAL')+0;        // Tipo do controle de trabalho. 0=Por local , 1=Por comanda
$nCodSeq_Comanda = SQLVarConfig('COMANDA_L_SEQCOD')+0;
$bMovimento_Gor  = SQLVarConfig('MOVIMENTO_DE_GORJETA')+0;
$bCon_ModVirgula = SQLVarConfig('CONVERTE_MOD_VIRGULA');
$nQtdMax_Itens   = SQLVarConfig('VALOR_QTDE_MAXIMA')+0;            // Trava de qtde maxima na inserção de produto
$bGav_Nao_Fiscal = SQLVarConfig('GAVETA_NAO_FISCAL')+0;
$nImp_Nao_Fiscal = SQLVarConfig('NOME_IMP_NAO_FISCAL')+0;
$bImp_Garcom_Ped = SQLVarConfig('MOS_GAR_PRO');                    // Imprime na tela logo abaixo do produto o garcom e a hora de quem fes o pedido
$sDesc_Balcao    = 'Balcao rapido';


If ($nImp_Nao_Fiscal==0) {
   $sImp_Nao_Fiscal = 'BEMATECH MP-4200 TH'; 
} Elseif ($nImp_Nao_Fiscal==1){
   $sImp_Nao_Fiscal = 'BEMATECH'; 
} Elseif ($nImp_Nao_Fiscal==2){
   $sImp_Nao_Fiscal = 'DARUMA'; 
} Elseif ($nImp_Nao_Fiscal==3){
   $sImp_Nao_Fiscal = 'MECAF';
} Elseif ($nImp_Nao_Fiscal==4){
   $sImp_Nao_Fiscal = 'ELGIN';
} Else {   
   $sImp_Nao_Fiscal = '';
}


//
$nTmpFrmEnv = 500;
$sSQL_ExbModPag = "SELECT * FROM cad_modalidade_pag WHERE MPG_MOS_REC=1 AND MPG_TRAVADO=0 ORDER BY MPG_N_ORDEM ASC, MPG_DESCRIC ASC;";
$sSQL_PrcModPag = "SELECT * FROM cad_modalidade_pag WHERE MPG_MOS_REC=1 AND MPG_TRAVADO=0 ORDER BY MPG_P_TROCO ASC;";
$sCorBarraInf = '#E8E3CE';
//
$ImpFiscal = New ComACBR();
$ImpFiscal->Host_IP     = ObterIPdoCliente();
$ImpFiscal->Host_Porta  = 3434;
$ImpFiscal->sECF_CNPJ   = $Dados_Empresa['EMP_N_CNPJ'];
$ImpFiscal->sECF_CNPJ_S = SoftHouse_CNPJ;
$ImpFiscal->nTimeOutECF = 20;
If ( $nTipoFiscal==1 ) {
   $ImpFiscal->nTipo_EmissoFiscal = Acbr_EmissorFiscal_ECF;
} ElseIf ( $nTipoFiscal==2 ) {
   $ImpFiscal->nTipo_EmissoFiscal = Acbr_EmissorFiscal_SAT;
}
//
If ( $sSubModulo=="REC" ) {
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJan2;
    $oJanelaPrinc->nTop    = 2;
    $oJanelaPrinc->nLeft   = 5;
    $oJanelaPrinc->nWidth  = 990;   // Largura 990
    $oJanelaPrinc->nHeight = 0;     // Altura
	$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Receber conta';
    //
    $nR_Local   = @$_REQUEST['NumLocal']+0;
    $nR_FatGe   = @$_REQUEST['NumFatG']+0;
	$sOpcao_Mod = @$_POST['opcao_mod'];
    $bModulo_Avulso  = @$aSessao[$sNomeAcesso.'_Avulso_Rec'];
	//
	$sSelItensLst   = @$aSessao[$sNomeAcesso.'_SELITENS_LST'];
	$nSelItensValor = @$aSessao[$sNomeAcesso.'_SELITENS_VLR']+0;
	//
	$sJavaTravarJ = "parent.document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible';";
	$sJavaFechaEr = 'document.location.href = "./car_js.php?mod='.$sModulo.'&submod='.$sSubModulo.'&nomeacs='.$sNomeAcesso.'&acao=FECHAR&NumLocal='.$nR_Local.'";';
	//
	$oJanelaPrinc->sJavOnClickF =
         $sJavaTravarJ.
         "parent.document.forms.fmPCxaRec2.acao.value='FECHAR'; ".
         "NomeQdrCar = parent.document.forms.fmPCxaRec2.target;".
         "NomeQdrCar = NomeQdrCar.substr(0,NomeQdrCar.length-1)+'5';".
         "parent.document.forms.fmPCxaRec2.target = NomeQdrCar;".
         "parent.document.forms.fmPCxaRec2.submit();".
		 "parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);".
		 "";
	//
 	$nSeqCaixa     = PuxarCaixaAberto($R_CadFuncionario->FUN_CODIGO);
	$bDesc_Acm_Max = @$aSessao[$sNomeAcesso.'_DESC_ACM_MAX']+0;       // Permite desconto acima do permitido configurado (FAT_DESCONTO_MAX)
    // Usado para adicionar produto
    $sLrP_CodPro = @$_POST['LrP_CodBar'];
    $sLrP_QtdIte = @$_POST['LrP_QtdIte'];
    $sLrP_VlrIte = @$_POST['LrP_VlrIte'];
    //
    $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';
    }
	// PARAMETRO INVALIDO
	If ($nR_Local==0 && $nR_FatGe==0 && $sAcao<>"FECHAR")  {
	   $sRet_Javs .=
	       Info_Evento('Parametros do numero da mesa ou codigo do faturamento inválido.',0).
           $sJavaFechaEr;
	} ElseIf ($nSeqCaixa==0 && $sAcao<>"FECHAR") {
	   $sRet_Javs .=
		   'parent.JanEspera(false);'.
	       Info_Evento('ATENÇÃO: Seu caixa está fechado.',0).
           $sJavaFechaEr;
    //
    // VALIDA O CODIGO DO CLIENTE
    } ElseIf ( $sAcao=="VALIDA_CLIENTE" ) {
	   $s_Cod_Cli = @$_POST['in_Cod_Cli'];
	   $s_Lab_Nom_Cli = '';
	   //
	   If ( SUBSTR($s_Cod_Cli,0,1)=="/" ) {
		  $aSessao['Pesq_Chave'] = STR_REPLACE( '/' , '', $s_Cod_Cli );
		  
		  $s_Cod_Cli = '';
		  $s_Lab_Nom_Cli = "(Consulta)";
		  
          $sRet_Javs .= 
	           $sJavaTravarJ.
		       "setTimeout( function () { ".
			      "var fm = parent.document.forms.fmPCxaRec3;".
			      "TargetAnt = fm.target;".
			      "fm.target='car_".$sNomeAcesso."10';".
		          "fm.acao.value=''; ".
		          "fm.submod.value='REC_CSLCLI'; ".
		          "fm.submit();".
			      "fm.target = TargetAnt;".
		          "fm.submod.value='".$sSubModulo."'; ".
		       "} , 100);".
		       "";
	   } ElseIf ( STRLEN($s_Cod_Cli)==0 ) {
          //
	   } Else {
	      //
	      $s_Cod_Cli = Somente_Numeros(@$_POST['in_Cod_Cli'])+0;
          //$sSQLQuery = "SELECT * FROM cad_cliente WHERE CLI_CODIGOI=".$s_Cod_Cli." AND CLI_TRAREG=0;";
		  
		  $sSQLQuery = "SELECT * FROM cad_cliente WHERE CLI_CODIGOI=".$s_Cod_Cli." ;";
          $Row_CadCli = MYSQL_QUERY($sSQLQuery) Or Die(MYSQL_ERROR().'<br>'.$sSQLQuery);
          $s_Lab_Nom_Cli = "Cliente não especificado";
          If ( $Row_CadCli = MYSQL_FETCH_OBJECT($Row_CadCli) ) {
	         $s_Cod_Cli = Str_Zero($s_Cod_Cli,8);
	         $s_Lab_Nom_Cli = PegarPorPausa($Row_CadCli->CLI_NOMECP,3);
	      } Else {
	         //procura por telefone
		     $sSQLQueryA =
			       "SELECT TEL_NUMERO,TEL_TRAREG,TEL_CODCAD FROM cad_telefones ".
	               "WHERE ".
		  	       "TEL_NUMERO='".STR_REPLACE("-","",$s_Cod_Cli)."' AND ".
		  	       "(TEL_TRAREG=0 OR TEL_TRAREG=2) ".
		  	       ";";
			 $RowsT = MYSQL_QUERY($sSQLQueryA) Or Die($sSQLQueryA.'<br>'.MYSQL_ERROR());
             If ($RowT = MYSQL_FETCH_OBJECT($RowsT)) {
			    $s_Cod_Cli = $RowT->TEL_CODCAD;
			    $sSQLQueryC = "SELECT CLI_CODIGOI, CLI_NOMECP FROM cad_cliente WHERE CLI_CODIGOI='".$RowT->TEL_CODCAD."';"; 
			    $Row_CadCli = MYSQL_QUERY($sSQLQueryC) Or Die(MYSQL_ERROR().'<br>'.$sSQLQueryC);
			    If ( $Row_CadCli = MYSQL_FETCH_OBJECT($Row_CadCli) ) {
	               $s_Cod_Cli = Str_Zero($s_Cod_Cli,8);
	               $s_Lab_Nom_Cli = PegarPorPausa($Row_CadCli->CLI_NOMECP,3);
			   	} Else {
				   $s_Cod_Cli = '';
                   $sRet_Javs .=
	                  Info_Evento('Cliente não encontrado.',1).
		   	          "";
				}
			  
		     } Else {
			   $s_Cod_Cli = '';
               $sRet_Javs .=
	              Info_Evento('Cliente não encontrado no cadastro de telefones.',1).
		   	      "";
			 }
	      }
	   }
	   $aSessao[$sNomeAcesso.'_FAT_CLIENTE'] = $s_Cod_Cli+0;
       $sRet_Javs .=
	       'parent.document.getElementById("in_Entrega_CodCli").value = "'.$s_Cod_Cli.'";'.
	       'parent.document.getElementById("sp_Entrega_NomCli").innerHTML = "'.$s_Lab_Nom_Cli.'";'.
		   "";
    //
	// ATUALIZA TELA: PRODUTOS E VALORES
    } ElseIf ( $sAcao=="ATUALIZA" ) {
	   $bCxaRc_Inicial = @$aSessao[$sNomeAcesso.'_CXA_INICIAL'];
	   $sLstProds_Html = '';
	   $sLstBInf1_Html = '';
	   $Row_FatGer = MYSQL_QUERY("SELECT * FROM fat_geral WHERE FAT_CANCELA=0 AND FAT_RCFORMA=0".($nR_Local>0 ? ' AND FAT_NUM_MES='.$nR_Local : '').($nR_FatGe>0 ? ' AND FAT_CODIGOI='.$nR_FatGe : '')." ORDER BY FAT_DAT_INI ASC LIMIT 1;") or die(MYSQL_ERROR());
	   $Row_FatGer = MYSQL_FETCH_OBJECT($Row_FatGer);
	   If ( (@$Row_FatGer->FAT_CODIGOI+0)==0 ) {
	      $sRet_Javs .=     // Codigo do faturamento geral não encontrado
	          Info_Evento('Faturamento geral não encontrado. ('.$sTipoLocal.' '.$nR_Local.').',1).
              $sJavaFechaEr;
	   } Else {
	      
		  $nR_FatGe = $Row_FatGer->FAT_CODIGOI;
		  $nR_Local = $Row_FatGer->FAT_NUM_MES;
		  $aSessao[$sNomeAcesso.'_FAT_VALDESC_PERM'] = 0;
		  If ($Row_FatGer->FAT_DAT_FIM>0) {
             $aSessao[$sNomeAcesso.'_FAT_TAXACVR'] = $Row_FatGer->FAT_TAXACVR;
	         $aSessao[$sNomeAcesso.'_FAT_TAXASVR'] = $Row_FatGer->FAT_TAXASVR;
			 $aSessao[$sNomeAcesso.'_FAT___TAXA1'] = $Row_FatGer->FAT_PERTAXASVR;
	         $aSessao[$sNomeAcesso.'_FAT_TOT_REC'] = $Row_FatGer->FAT_TOT_REC;
		     $aSessao[$sNomeAcesso.'_FAT_VALDESC_PERM'] = $Row_FatGer->FAT_VALDESC;
			 If ($Row_FatGer->FAT_TAXASVR>0) {
			    If ( $aSessao[$sNomeAcesso.'_FAT___TAXA1']==0 ) {
		           $aSessao[$sNomeAcesso.'_FAT___TAXA1'] = ROUND( ($Row_FatGer->FAT_TAXASVR / $Row_FatGer->FAT_TOT_CTX)*100 ,2).'%';
				}
		     }
			 If ($Row_FatGer->FAT_QTD_PES>0) {
	            $aSessao[$sNomeAcesso.'_FAT_QTD_PES'] = $Row_FatGer->FAT_QTD_PES;
		        $aSessao[$sNomeAcesso.'_FAT___TAXA2'] = FormatoMoeda($Row_FatGer->FAT_TAXACVR/$Row_FatGer->FAT_QTD_PES);
			 }
		  }
		  //
		  $aCad_Telefones = ARRAY();
	      
          If ( $Row_FatGer->FAT_CLIENTE>0 ) {
		     $Row_CadCli = MYSQL_QUERY("SELECT * FROM cad_cliente WHERE CLI_CODIGOI=".$Row_FatGer->FAT_CLIENTE.";") or die(MYSQL_ERROR());
			 If ($Row_CadCli = MYSQL_FETCH_OBJECT($Row_CadCli)) {
	            $sSQLQuery =
	                "SELECT * FROM cad_telefones ".
	                "WHERE ".
		                "TEL_TIPCAD=1 AND TEL_CODCAD='".$Row_CadCli->CLI_CODIGOI."' AND ".
		                "(TEL_TRAREG=0 OR TEL_TRAREG=2)  ".
		            "ORDER BY TEL_NUMERO ASC LIMIT 6;";
	            $RowsT = MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
                While ($RowT = MYSQL_FETCH_ARRAY($RowsT)) {
		           $aCad_Telefones[] = $RowT['TEL_NUMERO'];
		        }
			 }
		  } 
          
		  $bFat_Fechado = $Row_FatGer->FAT_DAT_FIM>0;
		  $aSessao[$sNomeAcesso.'_FAT_FECHADO'] = $bFat_Fechado;
		  If ( $bFat_Fechado ) {
		      $aSessao[$sNomeAcesso.'_SELITENS_LST'] = '';
		      $aSessao[$sNomeAcesso.'_SELITENS_VLR'] = 0;
		  }
		  $sRet_Javs .=
		      "parent.document.forms.fmPCxaRec2.NumFatG.value='".$nR_FatGe."';".
			  "parent.document.forms.fmPCxaRec3.NumFatG.value='".$nR_FatGe."';".
		      "parent.document.forms.fmPCxaRec2.NumLocal.value='".$nR_Local."';".
			  "parent.document.forms.fmPCxaRec3.NumLocal.value='".$nR_Local."';".
		      "parent.document.getElementById('Q_CxaRec_LstModPag').style.display='".($Row_FatGer->FAT_DAT_FIM==0 ? 'none' : 'inline-block')."';".
			  "parent.document.getElementById('i_CxaRec_Taxa1').disabled =".($Row_FatGer->FAT_DAT_FIM==0 ? 'false' : 'true').";".
			  "parent.document.getElementById('i_CxaRec_Taxa2').disabled = parent.document.getElementById('i_CxaRec_Taxa1').disabled;".
			  "parent.document.getElementById('i_CxaRec_QtdPes').disabled= parent.document.getElementById('i_CxaRec_Taxa1').disabled;".
			  "parent.document.getElementById('P_CxaRec_BtFec').style.display='".($Row_FatGer->FAT_DAT_FIM==0 && $Row_FatGer->FAT_TOT_REC>0 ? 'inline-block' : 'none' )."';".
			  "parent.document.getElementById('i_CxaRec_ValDesc').value = '".FormatoMoeda($aSessao[$sNomeAcesso.'_FAT_VALDESC_PERM'])."';".
			  "";
		  //
		  $sNomeOpFec = '';   //nome de quem fechou
		  $sApelidoFec = '';  // apelido de quem fechou
		  $nFat_GarPed = 0;   // garcom que fez o pedido
		  $sFat_HorPed = '';  // hora que foi pedido
		  $sNomeOpPed  = '';  // nome do garcom que fez o pedido
		  If ( $Row_FatGer->FAT_TIP_LOC==2 ) {
			  $sHTML_LstFuncs = '<option value="0">-- Nenhum --</option>';
	          $RowsT = MYSQL_QUERY("SELECT * FROM cad_funcionario WHERE FUN_ATIVO_;") or die(MYSQL_ERROR());
	          While ( $RowT = MYSQL_FETCH_OBJECT($RowsT) ) {
	             If ( $RowT->FUN_CODIGO > 9990 ) { CONTINUE; }
	             $sHTML_LstFuncs .=
		            '<option value="'.$RowT->FUN_CODIGO.'"'.( $Row_FatGer->FAT_COD_ENT==$RowT->FUN_CODIGO ? ' selected' : '').'>'.
		               Str_Zero($RowT->FUN_CODIGO,4).' - '.$RowT->FUN_NOMECP.
		            '</option>';
	          }
		      $sRet_Javs .=
			     "parent.document.getElementById('in_CxaEn_FunEnt').innerHTML=".JAVA_CharCode_Mini($sHTML_LstFuncs).";".
			     "parent.document.getElementById('tr_CxaEn_FunEnt').style.display='';".
				 "";
		  //
		  } Else {
             // PEGAR O NOME DO FUNCIONARIO QUE FECHOU A MESA OU COMANDA
			 If ((@$Row_FatGer->FAT_TIP_LOC+0)==0 OR (@$Row_FatGer->FAT_TIP_LOC+0)==3 ) {
			    If ($Row_FatGer->FAT_OPEFECH>0) {
				   $R_CadFunc = MYSQL_QUERY('SELECT FUN_CODIGO, '. 
				                                   'FUN_APELID, '.
												   'FUN_NOMECP  '.
                            			    'FROM cad_funcionario '.
									        'WHERE FUN_CODIGO="'.$Row_FatGer->FAT_OPEFECH.'";');
                   If ( $R_CadFunc=MYSQL_FETCH_OBJECT($R_CadFunc) ) {
			          $sNomeOpFec = SUBSTR($R_CadFunc->FUN_NOMECP, 0,10); 
			          $sApelidoFec = SUBSTR($R_CadFunc->FUN_APELID,0,3);
				   }
				}
			 } 
			 //
  		     $sRet_Javs .=
			    "parent.document.getElementById('in_CxaEn_FunEnt').innerHTML='';".
			    "parent.document.getElementById('tr_CxaEn_FunEnt').style.display='none';".
			    "";
		  }
		  //
		  $sSQLQuery =
			"SELECT fat_item.*, ".
                    "prod.ITE_PRE_MES_MEI, ". 
                    "prod.ITE_PRE_ENT_MEI, ".
                    "prod.ITE_PRE_BAL_MEI, ".
					"prod.ITE_CODIGOL ".
            "FROM fat_item ".
			"LEFT JOIN cad_produto AS prod ON FAT_CODITE1=ITE_CODIGOI ".
			"WHERE FAT_GAR_EST=0 AND FAT_CFATGER=".$Row_FatGer->FAT_CODIGOI." ".
			"ORDER BY ITE_DESCRIC ASC;";
	      $Rows_FatIte = MYSQL_QUERY($sSQLQuery) or die($sSQLQuery."<br>".MYSQL_ERROR());
	      //$aCoresLinPr = ARRAY( 0=>0, 1=> '#FFFFAB', 2=> '#FFEEB9');
		  $aCoresLinPr = ARRAY( 0=>0, 1=> '#FFFFFF', 2=> '#EEEEEE');
		  $nValorTotal    = $Row_FatGer->FAT_TOT_VAL;
		  $nValorTotalCtx = $Row_FatGer->FAT_TOT_CTX;
		  $nSelItensValor = 0;
		  $nValorTroPa    = $Row_FatGer->FAT_TROCOPA;
		  
		  While ( $Row_FatIte = MYSQL_FETCH_ARRAY($Rows_FatIte) ) {
		     $sIte_Descric = '';
			 $sLst_Ite = ""; 
             For ($iContIte = 1; $iContIte<=4; $iContIte++) {
			     
				 If ($Row_FatIte['FAT_CODITE'.$iContIte]==0) { BREAK; }
	             $Row_CadPro = MYSQL_QUERY("SELECT ITE_DESCRIC, ITE_SIG_UNIDADE, ITE_CODIGOL FROM cad_produto WHERE ITE_CODIGOI=".$Row_FatIte['FAT_CODITE'.$iContIte].";") or die(MYSQL_ERROR());
				 If ( $Row_CadPro=MYSQL_FETCH_OBJECT($Row_CadPro) ) {
				    If ( STRLEN($sIte_Descric)>2 ) { $sIte_Descric .= '<br>'; }
				    $nIte_Codigo = $Row_CadPro->ITE_CODIGOL;
					$sIte_Descric .= '_SIMBOLO_'.SUBSTR($Row_CadPro->ITE_DESCRIC,0,25).' ('.$nIte_Codigo.')';
                    
					//If ( STRPOS(" ".$sLst_Ite, $nIte_Codigo )==0 ) {
	                //   If(STRLEN($sLst_Ite)>0){ 
					//   $sLst_Ite .= $nIte_Codigo.' ';  				 
			        //}
			     }
			 }
		     $iContIte -= 1;
			 If ($iContIte>1) {
			    $sIte_Descric = STR_REPLACE("_SIMBOLO_"," 1 / ".$iContIte." - ", $sIte_Descric);
			 
			 } Else {
			    $sIte_Descric = STR_REPLACE("_SIMBOLO_","", $sIte_Descric);
			 }
			 $bSelItemCxa = STRPOS(" ".$sSelItensLst, "(". $Row_FatIte['FAT_CODIGOI'].")" )>0;
			 // Monta lista de opcionais
			 $sHTMLLstOpc = '';
			 If ( STRLEN($Row_FatIte['FAT_OPCINAL'])>1 ) {
			    $aFat_Opcional = EXPLODE(';',$Row_FatIte['FAT_OPCINAL']);
                For ($iContIteOpc = 0; $iContIteOpc<=200; $iContIteOpc++) {
				     If ( STRLEN($aFat_Opcional[$iContIteOpc])==0 ) { BREAK; }
					 $aFat_OpcItem = EXPLODE(',',$aFat_Opcional[$iContIteOpc]);
					 // 0=Codigo do Item, 1=Quantidade, 2=Preco total
	                 $Row_CadPro = MYSQL_QUERY("SELECT * FROM cad_produto WHERE ITE_CODIGOI=".(@$aFat_OpcItem[0]+0).";") or die(MYSQL_ERROR());
				     If ( $Row_CadPro=MYSQL_FETCH_OBJECT($Row_CadPro) ) {
					    $sHTMLLstOpc .=
						    "<table width='100%'>".
							 "<tr>".
							  '<td width="75px"></td>'.
							  '<td width="15px" align="right">'.
					 	       $aFat_OpcItem[1].' x'.
							  '</td>'.
							  '<td>'.
					           SUBSTR($Row_CadPro->ITE_DESCRIC,0,20).
							  '</td>'.
							  '<td width="70px">'.
					 	       ( ($aFat_OpcItem[2]+0>0) ? 'R$ '.FormatoMoeda($aFat_OpcItem[2]) : '').
							  '</td>'.
							  '<td width="20px"></td>'.
							 "</tr>".
					 	    "</table>";
					 }
				}
			 }
			 //
			 $nFat_CodI = $Row_FatIte['FAT_CODIGOI'];
             $bCanc = False;                   
             $sSQLQue = "SELECT * FROM fat_item WHERE FAT_CODIGOI=".$nFat_CodI.";";
             $RowTp = MYSQL_QUERY($sSQLQue) Or Die(MYSQL_ERROR().'<br>'.$sSQLQue);
             If ( $RowTp = MYSQL_FETCH_OBJECT($RowTp) ) {
                $bCanc = STRLEN($RowTp->FAT_CANITEM)>0;
             }   
			 
			 //
			 $sOnClick_Del =
		   		  "var fm = parent.document.forms.fmPCxaRec3;".
		          "fm.Fat_Item_CodI.value='".$Row_FatIte['FAT_CODIGOI']."';".
				  ( STRLEN($sCan_Sen_Item)==0 ? 
			        ( $bCanc ?
                	   //"JanEspera(true, 'Aguarde...');".
					   "fm.acao.value='RMV_ITEM';". 
                       "fm.submit();"
					: // colocado para chamar a tela do motivo quando não ta cancelado. 
					   $sJavaTravarJ.
					   "vAnt_SubMod = fm.submod.value;".
                       "vAnt_target = fm.target;".
                       "NomeQdrCar = vAnt_target;".
                       "NomeQdrCar = NomeQdrCar.substr(0,NomeQdrCar.length-1)+'9';".
                       "fm.target = NomeQdrCar;".
                       "fm.submod.value='CFM_MOTIVO'; ".
                       "fm.acao.value='';".
                       "fm.submit(); ".
                       "fm.target = vAnt_target;".
                       "fm.submod.value=vAnt_SubMod; "
          		    )
					
				  :
			        ( $bCanc ?
                	   "JanEspera(true, 'Aguarde...');".
					   "fm.acao.value='RMV_ITEM';". 
                       "fm.submit();"
					:
                       $sJavaTravarJ.
                       "vAnt_SubMod = fm.submod.value;".
                       "vAnt_target = fm.target;".
                       "NomeQdrCar = vAnt_target;".
                       "NomeQdrCar = NomeQdrCar.substr(0,NomeQdrCar.length-1)+'6';".
                       "fm.target = NomeQdrCar;".
                       "fm.submod.value='PERM_CAN_ITEM'; ".
                       "fm.acao.value='';".
                       "fm.submit(); ".
                       "fm.target = vAnt_target;".
                       "fm.submod.value=vAnt_SubMod;"
					)
				  ).
				  "";
			 $sOnClick_Sel =
		   		  "var fm = parent.document.forms.fmPCxaRec3;".
		          "fm.Fat_Item_CodI.value='".$Row_FatIte['FAT_CODIGOI']."';".
                  "JanEspera(true, 'Aguarde...');".
			      "fm.acao.value='SEL_ITEM';".
                  "fm.submit();";
			 //
		     $aCoresLinPr[0]++;
		     If ( STRLEN(@$aCoresLinPr[$aCoresLinPr[0]])==0 ) { $aCoresLinPr[0] = 1; }
	         $sCorLinha = @$aCoresLinPr[$aCoresLinPr[0]];
			 $sImgBotRmv = 'btimg_remover.png';
			 $sTitBotRmv = 'Remover este produto';
			 $bHabRemove = ($Row_FatGer->FAT_DAT_FIM==0 OR $Row_FatGer->FAT_TIP_LOC==1);
             If ( STRLEN($Row_FatIte['FAT_CANITEM'])>0 ) { // Item cancelado
			    $sCorLinha = '#CCCCCC';
				$sImgBotRmv = 'btimg_volta.png';
				$sTitBotRmv = 'Incluir novamente este produto';
			 } Else {
			    If ( $bSelItemCxa ) {
			       $sCorLinha = '#00CCFF';
			       $nSelItensValor += $Row_FatIte['FAT_PRE_TOT'];
				} ElseIf ($Row_FatIte['FAT_RCBPARC']) {
			       $sCorLinha = '#80B3FF';
				}
			 }
			 // Tipo do preço (TAMANHO)
			 $sDescri_TipPre = $Row_FatIte['FAT_PRE_TIP'];
			 If ( $sDescri_TipPre=='M' ) {
			    $sDescri_TipPre = '(Meia)';
			 } ElseIf ( STRLEN($sDescri_TipPre)==0 ) {
			    $sDescri_TipPre = '';
			 } ElseIf ( $sDescri_TipPre=='N' ) {
               $sDescri_TipPre = '';
             } Else {
			    $sDescri_TipPre = SQLVarConfig('DESCRI_PROPRECO'.$sDescri_TipPre);
			 }
             
             // VERIFICA SE TEM PREÇO DE MEIA PORÇÃO PARA JOGAR NA DESCRIÇÃO INTEIRA OU MEIA
             If ($Row_FatIte['FAT_PRE_TIP']<>'M') {
                If ( (($Row_FatIte['ITE_PRE_MES_MEI']+0) >0) ) {
                   $bTem_PreMei = True;
                } ElseIf (($Row_FatIte['ITE_PRE_ENT_MEI']+0) >0) {
                   $bTem_PreMei = True;
                } ElseIf (($Row_FatIte['ITE_PRE_BAL_MEI']+0) >0) {
                   $bTem_PreMei = True;
                } Else {
                  $bTem_PreMei = False;
                }
                
                If ($bTem_PreMei) {
                     $sDescri_TipPre = SQLVarConfig('DESCRI_PROPRECO'.$Row_FatIte['FAT_PRE_TIP']);
                }
             } 
 			 //Garçom e hora que pediu 
			 If ($bImp_Garcom_Ped) { // CONFIGURACAO
                 $nFat_GarPed = $Row_FatIte['FAT_COD_FUN'];
			     $sFat_HorPed = SUBSTR( $Row_FatIte['FAT_DAT_HOR'],10 ); 
				 
				 If ($nFat_GarPed>0) {
				   $R_CadFunc = MYSQL_QUERY('SELECT FUN_CODIGO, '. 
				                                   'FUN_APELID, '.
												   'FUN_NOMECP  '.
                            			    'FROM cad_funcionario '.
									        'WHERE FUN_CODIGO="'.$nFat_GarPed.'";');
                   If ( $R_CadFunc=MYSQL_FETCH_OBJECT($R_CadFunc) ) {
			          $sNomeOpPed = $R_CadFunc->FUN_APELID. '-'.SUBSTR($R_CadFunc->FUN_NOMECP, 0,10); 
			       } Else {
			 	      $sNomeOpPed = '';
				   }
				   If ( STRLEN($sNomeOpPed) >0 ) {
				      $sNomeOpPed .= ' - '.$sFat_HorPed; 
				   }
				   
				 }  Else {
			       $nFat_GarPed = 0;
			     }
			     If ($nFat_GarPed > 0) {
				    $sNomeOpPed =
					   "<table width='100%'>".
                	      "<tr>".
                	         '<td width="75px"></td>'.
                	         '<td>'.
					            $sNomeOpPed.
					         '</td>'.
                	         '<td width="20px"></td>'.
                	      "</tr>".
                       "</table>";
				 } Else {
                   $sNomeOpPed = '';
				 }
			 
			 } 
			 
			 
			 
			 // Observações
			 $sFat_Observa = $Row_FatIte['FAT_OBSERV1'].'<br>'.$Row_FatIte['FAT_OBSERV2'];
			 If (STRLEN($sFat_Observa)>4) {
                $sFat_Observa =
                    "<table width='100%'>".
                	 "<tr>".
                	  '<td width="75px"></td>'.
                	  '<td>'.
                       $sFat_Observa.
                	  '</td>'.
                	  '<td width="20px"></td>'.
                	 "</tr>".
                    "</table>";
			 } Else {
			   $sFat_Observa = '';
			 }
			 //
			 $sFat_Qtd_Ite = $Row_FatIte['FAT_QTD_ITE']+0;
			 If ( STRTOUPPER($Row_CadPro->ITE_SIG_UNIDADE)=="KG" ) {
			    $sFat_Qtd_Ite = NUMBER_FORMAT($sFat_Qtd_Ite,3,'.','');
			 }
			 //
			 //$sCod_Ite = Str_Zero($Row_FatIte['ITE_CODIGOL'],5);
			 
			 //
		     $sLstProds_Html .=
			    "<table border='0' style='width:100%; background-color:".$sCorLinha.";'>".
			     "<tr>".
			      "<td width='34px' height='25px' align='left' valign='middle'>".
				    ($bHabRemove ?
			         '&nbsp;<img src="./images/'.$sImgBotRmv.'" border="0" style="cursor:pointer;" onclick="'.$sOnClick_Del.'" title="'.$sTitBotRmv.'">'
					: '').
			      "</td>".
			      "<td width='40px' align='right' style='font-weight:bold; color:555555;'>".
			       $sFat_Qtd_Ite.' x '.
			      "</td>".
				  ( STRLEN($sDescri_TipPre)>0 ?
			      "<td width='50px' align='right'>".
				   $sDescri_TipPre.'&nbsp;-&nbsp;'.
			      "</td>" : '').
				  ($bFat_Fechado ?
			       '<td style="color:000000;">'
				  :
			       '<td style=" color:000000; cursor:pointer;" onclick="'.$sOnClick_Sel.'">'
				  ).
			       $sIte_Descric.
			      "</td>".
				  // codigo 
				  //"<td width='20px' valign='middle' align='left'>".
				   // $sLst_Ite.
				  //"</td>".
				  //
			      "<td width='70px' align='center' style='font-size:12px; color:#000000;'>".
			       "R$ ".FormatoMoeda($Row_FatIte['FAT_PRE_TOT']).
			      "</td>".
				 "</tr>".
				 //risco entre produtos
				 '<div style="height:1px; background-color:#BEBEBE"></div>'.
			    "</table>".
				// GARÇOM QUE FEZ O PEDIDO
				( STRLEN( $sNomeOpPed ) > 3 ? 
				   '<div style="width:100%; background-color:'.$sCorLinha.';">'.
				      $sNomeOpPed.
				   '</div>'
				:
				   '' ).
				//
				( STRLEN($sHTMLLstOpc.$sFat_Observa)>3 ?
				   '<div style="width:100%; background-color:'.$sCorLinha.';">'.
				      $sHTMLLstOpc.
				      $sFat_Observa.
				   '</div>'.
				   '<div style="height:6px;"></div>'
				:  '').
			    "<div style='width:100%; height:2px;'></div>".
			    "";
		  }
		  //
	      If ($nSelItensValor>0) {
	         $sLstBInf1_Html .=
	             "<span style='font-size:13px; color:#FFFF00; font-weight:bold;'>".
	              "Parcial de produtos marcados R$ ".FormatoMoeda($nSelItensValor).
	             "</span>";
	      }
		  //
		  $aSessao[$sNomeAcesso.'_SELITENS_VLR'] = $nSelItensValor;
	      $aSessao[$sNomeAcesso.'_FAT_TOTPED']   = $nValorTotal;
	      $aSessao[$sNomeAcesso.'_FAT_TOTCTX']   = $nValorTotalCtx;
		  
          $aSessao[$sNomeAcesso.'_FAT_TIPLOC']   = $Row_FatGer->FAT_TIP_LOC;
		  
          $aSessao['SUGERE_MODPAG_TOTAL'] = True;
		  
          $sLstProds_Html =
		      "<table width='100%'>".
			   "<tr>".
			    "<td align='center'>".
				 "<span style='font-weight:bold; font-size:16px;'>".
			     ($Row_FatGer->FAT_TIP_LOC==0 ? STRTOUPPER($sTipoLocal).' '.Str_Zero($Row_FatGer->FAT_NUM_MES,3) : '').
			     ($Row_FatGer->FAT_TIP_LOC==1 ? 'BALCÃO' : '').
			     ($Row_FatGer->FAT_TIP_LOC==2 ? 'ENTREGA' : '').
				 "</span>".
				 "<br>".
				 'Comanda:  '.Str_Zero($Row_FatGer->FAT_SQCOMAN,4).'&nbsp;&nbsp;&nbsp;'.
			     "<span style='color:#006600;'>DATA: </span>".
				 ConvertDataUSBR($Row_FatGer->FAT_DATAINI)." ".DATE("H:i:s",ConvertDtHrSTR($Row_FatGer->FAT_DAT_INI)).
				"</td>".
			   "</tr>".
			  "</table>".
			  
               // OPERADOR ATUAL
			 ( (@$Row_FatGer->FAT_TIP_LOC+0)==0 || (@$Row_FatGer->FAT_TIP_LOC+0)==3 ?
              "<table width='100%'>".			  
			   // CONFIGURADO IDENTIFICA CLIENTE
			   //( $bCliente_FatGer ?
			    //   "<tr>".
			    //      "<td width='75px' align='right' style='color:#006600;'>".
				///         "Nome:".
				//      "</td>".
			    //      "<td align='left'>".
				//        $Row_FatGer->FAT_NOMCLIE.
				//      "</td>".
				 //  "</tr>"  
			//	:
              //   ""				
			   //).
			   "<tr>".
			      "<td width='75px' align='right' style='color:#006600;'>".
				     "Operador:".
				  "</td>".
			      "<td align='left'>".
				     SUBSTR( $R_CadFuncionario->FUN_APELID,0,3).' - '.SUBSTR($R_CadFuncionario->FUN_NOMECP,0 ,10).
				  "</td>".
				  // OPERADOR QUE MANDOU FECHAR A MESA
			     ( STRLEN($sNomeOpFec)>0 ?
				     "<td align='right' style='color:#006600;'>".
				        "Fechou:".
				     "</td>".
					 "<td align='left'>".
  					    $sApelidoFec.'-'.$sNomeOpFec.
				     "</td>"
				  :
				     "<td width='70px' align='left'>".
				      '&nbsp;'.
				     "</td>".
					 "<td align='left'>".
  					  
				      '&nbsp;'.
					  '&nbsp;'.
				  	 "</td>"
			  	 ).
				"</tr>".  
			  "</table>"
			  : "" ).
			  ( ( ($Row_FatGer->FAT_TIP_LOC<>0 && $Row_FatGer->FAT_TIP_LOC<>3) ||        //  Não for mesa
			      ($Row_FatGer->FAT_TIP_LOC==0 && $bCliente_FatGer)           ) ?        //  identifica cliente
		      "<table>".
		       "<tr>".
			    "<td width='75px' align='right' style='color:#006600;'>".
				 "Nome:".
				"</td>".
			    "<td align='left'>".
				 ( EMPTY( $Row_FatGer->FAT_NOMCLIE ) ? 
				    @$Row_CadCli->CLI_NOMECP
				 :
				    $Row_FatGer->FAT_NOMCLIE
				 ).
				"</td>".
			   "</tr>".
			   ( $Row_FatGer->FAT_TIP_LOC==2 ?         //  Somente Entrega
		       "<tr>".
			    "<td align='right' style='color:#006600;'>".
				 "Bairro:".
				"</td>".
			    "<td align='left'>".
				 @$Row_CadCli->CLI_ENDBAI.
				 "&nbsp;&nbsp;&nbsp;&nbsp;".
				 "<span style='color:#006600;'>Telefone:</span>&nbsp;".
				 @$aCad_Telefones[0].
				 " , ".
				 @$aCad_Telefones[1].
				"</td>".
			   "</tr>".
		       "<tr>".
			    "<td align='right' style='color:#006600;'>".
				 "Endereço:".
				"</td>".
			    "<td align='left'>".
				 @$Row_CadCli->CLI_ENDLOG.', '.@$Row_CadCli->CLI_ENDNUM.' '.@$Row_CadCli->CLI_ENDCPL.
				"</td>".
			   "</tr>"
			   : '').
			  // Obs 1
			  ( STRLEN($Row_FatGer->FAT_OBSERV1)>0 ?
		       "<tr>".
			    "<td align='right' style='color:#006600;'>".
				 "Observação 1:".
				"</td>".
			    "<td align='left'>".
				 $Row_FatGer->FAT_OBSERV1.
				"</td>".
			   "</tr>"
			   : '').
			  // Obs 2
			  ( STRLEN($Row_FatGer->FAT_OBSERV2)>0 ?
		       "<tr>".
			    "<td align='right' style='color:#006600;'>".
				 "Observação 2:".
				"</td>".
			    "<td align='left'>".
				 $Row_FatGer->FAT_OBSERV2.
				"</td>".
			   "</tr>"
			   : '').
			   //
			  "</table>"
			  : '').
			  "<div style='height:10px;'></div>".
			  $sLstProds_Html.
			  '<div style="height:20px;"></div>'.
			  '<div id="dv_CxaRec_TotalCp" style="position:relative; left:40px; width:300px; font-size:12px; font-family:Courier New,Courier,mono;">'.
			  '</div>'.
			  '<div style="height:20px;"></div>'.
			  '';
	   }
	   //
	   $sRet_Javs .=
           ( (@$aSessao[$sNomeAcesso.'_FAT_TOTPED']+0)>0 ?  //verifica se ja tem algum valor pois no balcao rapido estava desfocando do campo
		     "parent.document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='hidden';".
		     "parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',false);".
	         "parent.document.getElementById('i_CxaRec_CodBar').focus();"
		   : "").
		   "parent.document.getElementById('Q_CxaRec_Prods').innerHTML = " .JAVA_CharCode($sLstProds_Html)."; ".
	       "parent.document.getElementById('Q_CxaRec_BInf1').innerHTML = " .JAVA_CharCode_Mini($sLstBInf1_Html)."; ".
		   ( ((@$Row_FatGer->FAT_TIP_LOC+0)==0 OR (@$Row_FatGer->FAT_TIP_LOC+0)==3 ) ?
		   'var iQtdPes = parent.document.getElementById("i_CxaRec_QtdPes");'.
		   'if ( ! iQtdPes.disabled ) {'.
		      //'iQtdPes.focus();'.
		      //'iQtdPes.select();'.
		    '}'
		   : '').
		   ( (@$Row_FatGer->FAT_TIP_LOC+0)==2 ?
		     "parent.document.getElementById('in_Entrega_CodCli').setAttribute('readOnly','readonly');"
		   : "").
		   ( $bCxaRc_Inicial && (@$Row_FatGer->FAT_CLIENTE+0)>0 ?
		     "parent.document.getElementById('in_Entrega_CodCli').value='".$Row_FatGer->FAT_CLIENTE."';".
	         'parent.Car_'.$sNomeAcesso.'5.Valida_Cliente();'
		   : '').
		   ( $bModulo_Avulso ?
		     ""
		   :
		     'parent.document.getElementById("i_CxaRec_NumLoc").value="";'
		   ).
	       "parent.document.forms.fmPCxaRec2.acao.value='CALCULA';".
		   "parent.document.forms.fmPCxaRec2.submit();".
	       "";
    //
    // CALCULAR NA TELA
    } ElseIf ( $sAcao=="CALCULA" ) {
      IF ($nR_FatGe>0) {	

		 

	//
	   $Row_FatGer = MYSQL_QUERY("SELECT * FROM fat_geral WHERE FAT_CODIGOI=".$nR_FatGe." ;") or die(MYSQL_ERROR());
	   $Row_FatGer = MYSQL_FETCH_OBJECT($Row_FatGer);
	   		 		

		 
		 
	   //
	   $bCxaRc_Inicial = @$aSessao[$sNomeAcesso.'_CXA_INICIAL'];
	   //
	   If ( $bCxaRc_Inicial ) {
	      $aSessao[$sNomeAcesso.'_FAT_QTD_PES'] = $Row_FatGer->FAT_QTD_PES;
	      $sR_QtdPes = $Row_FatGer->FAT_QTD_PES;
	   } Else {
	      $sR_QtdPes = STR_REPLACE(',','.',Somente_Numeros(@$_REQUEST["R_QtdPes"],',.'))+0;
	   }
	   //
	   $sR_Taxa1  = @$_REQUEST["R_Taxa1"];
	   $sR_Taxa2  = @$_REQUEST["R_Taxa2"];
	   If ($bCxaRc_Inicial) {
	      $sR_Taxa2 = $nValCouver;
	   }
	   If ( $sR_QtdPes==0 ) { $sR_QtdPes = 1; }
	   $sLstBInf2_Html = '';
	   $sLstBInf3_Html = '';
	   $s_Html_PagsParcial = '';
	   $nValorTotal_Ped = @$aSessao[$sNomeAcesso.'_FAT_TOTPED']+0;              // Capturar o preço total dos pedidos
	   $nValorTotal_Ctx = @$aSessao[$sNomeAcesso.'_FAT_TOTCTX']+0;              // Capturar o preço total dos pedidos para calculo de taxa
	   $nFat_TipLoc   = @$aSessao[$sNomeAcesso.'_FAT_TIPLOC']+0;                // Capturar o tipo do pedido (Mesa, Balcão ou Entraga)
	   $bFat_Fechado  = @$aSessao[$sNomeAcesso.'_FAT_FECHADO']+0;               // Capturar: Conta fechada?
	   //
	   If ($nFat_TipLoc==0 OR $nFat_TipLoc==3) {
	      // 
	   } Else {
          $sR_Taxa1  = '0%';
          $sR_Taxa2  = '0,00';
          $sR_QtdPes = '1';
	   }
	   $sR_Descon = 0;
	   $sV_Descon = 0;
	   //
	   // Conta Fechada
	   If ($bFat_Fechado) {
		  $sR_Taxa1  = @$aSessao[$sNomeAcesso.'_FAT___TAXA1'];
		  $sR_Taxa2  = @$aSessao[$sNomeAcesso.'_FAT___TAXA2'];
          $sR_QtdPes = @$aSessao[$sNomeAcesso.'_FAT_QTD_PES'];
	      $sR_Descon = @$_POST["R_Descon"];
	      $sV_Descon = @$_POST["V_Descon"];
	   }
	   //
	   $nR_Taxa1 = STR_REPLACE(',','.',Somente_Numeros($sR_Taxa1,',.'))+0;
	   $nR_Taxa2 = STR_REPLACE(',','.',Somente_Numeros($sR_Taxa2,',.'))+0;
	   $sR_Taxa1 = STR_REPLACE('.',',', $nR_Taxa1).'%';
	   $sR_Taxa2 = FormatoMoeda($nR_Taxa2);
	   $nR_Descon = STR_REPLACE(',','.',Somente_Numeros($sR_Descon,',.'))+0;
	   //
	   $nV_Descon = STR_REPLACE(',','.',Somente_Numeros($sV_Descon,',.+-/*'));
	   If ( STRPOS(" ".$nV_Descon ,'+')>0 OR STRPOS(" ".$nV_Descon ,'-')>0 OR STRPOS(" ".$nV_Descon ,'/')>0 OR STRPOS(" ".$nV_Descon ,'*')>0 ) {
		   EVAL('$nV_Descon = ('.$nV_Descon.');');
	   }
       $nV_Descon = $nV_Descon+0;
	   //
	   // Calculo 1
	   //$nTaxa_de_Svr = ROUND($nValorTotal_Ctx * ($nR_Taxa1/100),2);               // Calcula o valor da taxa de serviço (Comissão do Garcom) com arredondamento normal
	   $nTaxa_de_Svr = (FLOOR( ($nValorTotal_Ctx * ($nR_Taxa1/100))*100 )/100);   // Calcula o valor da taxa de serviço (Comissão do Garcom) com arredondamento para baixo
	   $nValorCouver = $nR_Taxa2 * $sR_QtdPes;
	   $nVal_SbTotal = $nValorTotal_Ped + $nTaxa_de_Svr + $nValorCouver;        // Calcula Subtotal
	   //
	   // Desconto
	   $bDescAlterado = False;
	   If ( (@$aSessao[$sNomeAcesso.'_FAT_VALDESC']+0) != $nV_Descon ) {
	      // Calcular desconto pelo valor
	      $nR_Descon = ROUND(($nV_Descon / $nVal_SbTotal) * 100, 2);
	      $bDescAlterado = True;
	   } ElseIf ( (@$aSessao[$sNomeAcesso.'_FAT_DESCONT']+0) != $nR_Descon ) {
	      // Calcular desconto pelo percentual
	      $nV_Descon = ROUND( ($nR_Descon/100)*$nVal_SbTotal ,2);
	      $bDescAlterado = True;
	   }
	   If ( $nR_Descon>$nDescontoM && (!$bDesc_Acm_Max) && $bDescAlterado) {
	      If ( STRLEN($sDsc_Senha)>0 ) {
             $sRet_Javs .=
                $sJavaTravarJ.
                "vAnt_SubMod = parent.document.forms.fmPCxaRec3.submod.value;".
                "vAnt_target = parent.document.forms.fmPCxaRec3.target;".
                "NomeQdrCar = vAnt_target;".
                "NomeQdrCar = NomeQdrCar.substr(0,NomeQdrCar.length-1)+'6';".
                "parent.document.forms.fmPCxaRec3.target = NomeQdrCar;".
                "parent.document.forms.fmPCxaRec3.submod.value='PERM_DESCONTO'; ".
                "parent.document.forms.fmPCxaRec3.acao.value='';".
                "parent.document.forms.fmPCxaRec3.Per_Desc.value='".$nR_Descon."';".
                "parent.document.forms.fmPCxaRec3.submit(); ".
                "parent.document.forms.fmPCxaRec3.target = vAnt_target;".
                "parent.document.forms.fmPCxaRec3.submod.value=vAnt_SubMod; ".
                "";
		     //
		  } Else {
	        $sRet_Javs .=
	            Info_Evento('O desconto é maior do que o permitido.<br>Máximo permitido é de '.$nDescontoM.'% .<br>Por isso não será permitido ultrapassá-lo.',1,"Recebimento de comanda").
				"";
		    //
		  }
		  $aSessao[$sNomeAcesso.'_FAT_DESCONT'] = 0;
	      $nR_Descon = $nDescontoM;
	   } Else {
		  $aSessao[$sNomeAcesso.'_DESC_ACM_MAX'] = 0;
	      If ( $nR_Descon > 100 ) {
		     $nR_Descon = 100;
		  }
	   }
	   //
	   // Calculo 2
	   If ( (@$aSessao[$sNomeAcesso.'_FAT_DESCONT']+0) != $nR_Descon ) {
	      // Calcular desconto pelo percentual
	      $nV_Descon = ROUND( ($nR_Descon/100)*$nVal_SbTotal ,2);
	   }
	   $nR_Descon = ROUND($nR_Descon, 2);
	   //
	   $nValorTotal = $nVal_SbTotal-($nV_Descon);                      // Calcula o valor total a pagar
	   $sR_Descon = STR_REPLACE('.',',', $nR_Descon).'%';
	   //
	   $aPag_Parcial = Ext_Pag_Parcial(@$Row_FatGer->FAT_LSTRPCL);
	   //
       $aSessao[$sNomeAcesso.'_FAT_TAXASVR'] = $nTaxa_de_Svr;
       $aSessao[$sNomeAcesso.'_FAT_TAXACVR'] = $nValorCouver;
       $aSessao[$sNomeAcesso.'_FAT_SBTOTAL'] = $nVal_SbTotal;
       $aSessao[$sNomeAcesso.'_FAT_TOT_REC'] = $nValorTotal;
       $aSessao[$sNomeAcesso.'_FAT_DESCONT'] = $nR_Descon;
       $aSessao[$sNomeAcesso.'_FAT_VALDESC'] = $nV_Descon;
	   
       //
	   $bPmRecCnt      = False;
	   $bBotao_Ecf     = True;
	   $bEcf_ModPagTro = False;
	   //
	   
	   If ($bFat_Fechado) {
	     
           //
	      //If ($nValorTotal==0) {
		  //   $nValorTotal=$nValorTotal_Ped;
		  //   $aSessao[$sNomeAcesso.'_FAT_TOT_REC'] = $nValorTotal;
		  //}
		  //
          $Rows_CadMPG = MYSQL_QUERY($sSQL_PrcModPag) or die(MYSQL_ERROR());
		  $nValorTotalR = $aPag_Parcial['TOTAL'];
		  $nValorSemTrR = 0;
		  $bPermite_Troco = False;
		  $nIndiceModPagTro = 0;
		  //$bDesconta_Troc = True;
		  
		  
          
          While ($Row_CadMPG = MYSQL_FETCH_OBJECT($Rows_CadMPG)) {
              If ( ! ISSET($_POST['Cxa_ModPag_'.$Row_CadMPG->MPG_CODIGOI]) ) { 
                 CONTINUE; 
              }
		      
              $sCxa_ModPag = $_POST['Cxa_ModPag_'.$Row_CadMPG->MPG_CODIGOI];
			  $sCxa_ModPag = STR_REPLACE(',','.',Somente_Numeros($sCxa_ModPag,',.+-/*'));
              
			  
			  // Traz o valor na modalidade configurada sugere pag total.
              
              If (@$aSessao['SUGERE_MODPAG_TOTAL']) {
                $sCxa_ModPag = 0;
                If ($Row_CadMPG->MPG_P_TOTRE) {
                   $nIndiceModPagTro = $Row_CadMPG->MPG_CODIGOI;
				   $bEcf_ModPagTro   = $Row_CadMPG->MPG_EMI_ECF;
                }
              } Else { 
                //Preenchimento automatico do valor restante
                If ( $sCxa_ModPag=="*" ) {
		           $sCxa_ModPag = 0;
				   $nIndiceModPagTro = $Row_CadMPG->MPG_CODIGOI;
				   $bEcf_ModPagTro   = $Row_CadMPG->MPG_EMI_ECF;
			    //Calculo 
                } ElseIf ( STRPOS(" ".$sCxa_ModPag ,'+')>0 OR STRPOS(" ".$sCxa_ModPag ,'-')>0 OR STRPOS(" ".$sCxa_ModPag ,'/')>0 OR STRPOS(" ".$sCxa_ModPag ,'*')>0 ) {
			       EVAL('$sCxa_ModPag = ('.$sCxa_ModPag.');');
			    } Else {
                   // Converte para nao precisar digitar virgula
                   If ( $bCon_ModVirgula ) {
                      $sCxa_ModPag = STR_REPLACE('.','',$sCxa_ModPag)+0;
                      If ( STRLEN($sCxa_ModPag)>=3 ) {
                         $sCxa_ModPag = $sCxa_ModPag/100;
                      } ElseIf(STRLEN($sCxa_ModPag)<=2) {
                         $sCxa_ModPag = $sCxa_ModPag/100;
                      }					  
                   }                      
                                          
                }                         
              }                           
                                          
			  $sCxa_ModPag = $sCxa_ModPag+0;
			  //                          
			  $nValorTotalR += $sCxa_ModPag;
			  //
			  If ( $Row_CadMPG->MPG_P_TROCO ) {
			     //                       
				 // Esta modalidade que permite voltar troco (Dinheiro) for igual ao troco.
			     //If ( ($nValorTotalR-$nValorTotal)==$sCxa_ModPag ) {
			     //   $nValorTotalR -= $sCxa_ModPag;
				 //   $sCxa_ModPag = 0;   
				 //}                      
			  } Else {                    
			     $nValorSemTrR += $sCxa_ModPag;
			  }  
			  //
              // verifica se emite somente cupom fiscal para esconder o botão F10
			  If ( $sCxa_ModPag>0 && $Row_CadMPG->MPG_EMI_ECF && $nTipoFiscal>0) {
                 $bBotao_Ecf = False;
			  } 			  
			  //                          
			  $sCxa_ModPag   = FormatoMoeda($sCxa_ModPag);
              //
              $sRet_JavsPos .=
			     'if (parent.document.forms.fmPCxaRec2.Cxa_ModPag_'.$Row_CadMPG->MPG_CODIGOI.'.value != "'.$sCxa_ModPag.'") {'.
			         'parent.document.forms.fmPCxaRec2.Cxa_ModPag_'.$Row_CadMPG->MPG_CODIGOI.'.value="'.$sCxa_ModPag.'";'.
				 '}';	                  
          }                               
          $aSessao['SUGERE_MODPAG_TOTAL'] = False; 
		  //
		  $nValTroco = ROUND( $nValorTotalR-$nValorTotal ,2);
		  If ($nIndiceModPagTro>0 && $nValTroco<0) {
			  $sCxa_ModPag   = Somente_Numeros(FormatoMoeda($nValTroco),'.,');
			  $sRet_JavsPos .= 'parent.document.forms.fmPCxaRec2.Cxa_ModPag_'.$nIndiceModPagTro.'.value = "'.$sCxa_ModPag.'";'.
			  $nValTroco = 0;             
			  $nValorTotalR = $nValorTotal;
			  //If ( $bEcf_ModPagTro ) {
              //   $bBotao_Ecf = False;
			  //}
		  }
		  //  If ( $nValTroco>=0 && ($nValorTotalR-$nValorSemTrR)>$nValTroco ) {
		  If ( $nValTroco>=0 &&                         // Não fecha com desconto
		      ($nValorSemTrR)<=$nValorTotal             // O total de modalidades sem troco (Cartões) não pode superar o valor total
			 ) {                          
		     $bPermite_Troco = True;      
		  } 
         
		  //                              
		  $sLstBInf2_Html .=              
		      '<table width="100%">'.     
			   '<tr>'.                    
			    '<td align="right" style="font-size:13px;">'.
			     "Total de pagamento digitado:".
				'</td>'.                  
			    '<td width="130px" align="left" style="font-size:16px; font-weight:bold;">'.
			     'R$ '.FormatoMoeda($nValorTotalR).
				'</td>'.                  
			   '</tr>'.                   
			  '</table>'.                 
		      //"&nbsp;<br>".             
			  "";                         
		  //                              
		  $aSessao[$sNomeAcesso.'_CXA_VLTROCO'] = $nValTroco;
		  If ($nValorTotal_Ped==0 && (!$bCliente_FatGer) ) {      
		     $sLstBInf3_Html .=           
		         "<span style='font-size:16px; color:#FF6600; font-weight:bold;'>".
		          'NÃO HÁ PRODUTOS PARA FINALIZAR'.'&nbsp;&nbsp;&nbsp;'.
		         "</span>";               
		  } ElseIf ($nValorTotalR==0 && $nValorTotal==0) {
		     $sLstBInf3_Html .=           
		         "<span style='font-size:16px; color:#FFFF00; font-weight:bold;'>".
		          'Cortesia'.'&nbsp;&nbsp;&nbsp;'.
		         "</span>";               
			 $bPmRecCnt = True;           
		  } ElseIf ($nValTroco==0) {      
		     $sLstBInf3_Html .=           
		         "<span style='font-size:16px; color:#FFFF00; font-weight:bold;'>".
		          'Pagamento exato'.'&nbsp;&nbsp;&nbsp;'.
		         "</span>";               
			 $bPmRecCnt = True;           
		  } ElseIf ($nValTroco>0) {       
		     $sLstBInf3_Html .=           
					"<span style='font-size:16px; color:#FFFF00; font-weight:bold;'>".
                   (!$bPermite_Troco ?    
				    "PERMISSÃO PARA DAR TROCO NEGADA"."&nbsp;&nbsp;&nbsp;&nbsp;"
				   : '').		          
					"Troco de R$ ".FormatoMoeda($nValTroco).'&nbsp;&nbsp;&nbsp;'.
				  //(!$bPermite_Troco ?   
				  //"<br>PERMISSÃO PARA DAR TROCO NEGADA"
				  //: '').                
		         "</span>";               
			 $bPmRecCnt = $bPermite_Troco;
		  } ElseIf ($nValTroco<0) {       
		     $sLstBInf3_Html .=           
		         "<span style='font-size:16px; color:#FF6600; font-weight:bold;'>".
		          "Falta receber R$ ".FormatoMoeda(Somente_Numeros($nValTroco,".")).'&nbsp;&nbsp;&nbsp;'.
		         "</span>";               
			 //$bPmRecCnt         // Tem que ter permissão para dar Desconto
		  }                               
		   
		  
		  $sRet_Javs .=                   
			  ($bCxaRc_Inicial ?          
			  'var Pri_InModPag = parent.document.getElementById("'.$aSessao[$sNomeAcesso.'_CXA_PRIMEIRA_MODPAG'].'");'.
		      'if ( ! Pri_InModPag.disabled ) {'.
			      'Pri_InModPag.focus();'.
			      'Pri_InModPag.select();'.
			  '}'                         
			  :                           
              '').                        
			  '';                         
	   //                                 
	   // Conta Aberta                    
	   } Else {                           
	      //                              
		  $aSessao[$sNomeAcesso.'_FAT___TAXA1'] = $sR_Taxa1;
		  $aSessao[$sNomeAcesso.'_FAT___TAXA2'] = $sR_Taxa2;
		  $aSessao[$sNomeAcesso.'_FAT_QTD_PES'] = $sR_QtdPes;
		  //                              
		  // Mostrar pagamentos parciais efetuados
		  ForEach ( $aPag_Parcial as $aPagamento ) {
		     If ( (@$aPagamento[0]+0)>0 ) {
		         // $aPagamento[0]   // Valor
	             // $aPagamento[1]   // Codigo interno da tabela cad_modalidade
	             // $aPagamento[2]   // Descrição da modalidade
	             // $aPagamento[3]   // Nome do cliente
	             // $aPagamento[4]   // Data e Hora do recebimento YYYY-MM-DD HH:MM:SS
	             // $aPagamento[5]   // Codigo do funcionário
	             $s_Html_PagsParcial .=   
				    '<tr>'.               
					 '<td align="right">'.
					  $aPagamento[3].' '. 
					 '</td>'.             
					 '<td align="right">'.
					  $aPagamento[2].'.: '.
					 '</td>'.             
					 '<td align="left" style="color:#000000;">'.
					  'R$'.               
					 '</td>'.             
					 '<td align="right" style="color:#000000;">'.
				       FormatoMoeda($aPagamento[0]).' '.
					 '</td>'.             
					 '<td></td>'.         
			        '</tr>'.              
					'<tr><td width="1px;" style="background-color:#FFEEDD; font-size:1px;" colspan="5"></td></tr>';
			 }                            
		  }                               
		  If ( STRLEN($s_Html_PagsParcial)>0 ) {
		     $s_Html_PagsParcial =        
			   '<div style="height:6px;"></div>'.
			   '<div style="height:1px; background-color:#00CCFF"></div>'.
			   '<div style="height:6px;"></div>'.
			   '<table width="100%">'.    
			    $s_Html_PagsParcial.      
			    '<tr>'.                   
				 '<td width=""></td>'.    
				 '<td width="140px" align="right">Total antecipado.:</td>'.
				 '<td width="20px" align="left" style="font-weight:bold; color:#000000;">'.
				  'R$'.                   
				 '</td>'.                 
				 '<td width="50px" align="right" style="font-weight:bold; color:#000000;">'.
				   FormatoMoeda($aPag_Parcial['TOTAL']).' '.
				 '</td>'.                 
				 '<td width="17px"></td>'.
				'</tr>'.                  
			   '</table>';                
		     //                           
		     $nValorRestante = $nValorTotal - $aPag_Parcial['TOTAL'];
			 If ( $nValorRestante>0 ) {   
		        $sLstBInf3_Html .=        
		            "<span style='font-size:17px; color:#FFFFFF; font-weight:bold;'>".
		             "Restante á receber: R$ ".FormatoMoeda($nValorRestante).'&nbsp;&nbsp;&nbsp;'.
		            "</span>";            
			 }                            
		  }                               
		  //                              
	   }                                  
	   $nValorCadaPe = 0;                 
	   If ($sR_QtdPes>0) {                
	      //$nValorCadaPe = $nValorTotal / $sR_QtdPes;                               // Calcula valor para cada pessoa
		  If ($aPag_Parcial['TOTAL']>0) {  // se tiver recebimento parcial
		     $nValorCadaPe = (( $nValorTotal - $aPag_Parcial['TOTAL']) / $sR_QtdPes);      							// Calcula valor para cada pessoa
		  } Else {                        
             $nValorCadaPe = $nValorTotal/$sR_QtdPes;      							// Calcula valor para cada pessoa
          }		                          
	   }                                  
	   If ((@$aSessao[$sNomeAcesso.'_FAT_TOT_REC_G']+0)) {                         // Gravar total á receber no calculo
	      $aSessao[$sNomeAcesso.'_FAT_TOT_REC_G'] = 0;
	      
		  
		  $sSQLQuery =                    
		     "UPDATE fat_geral SET ".     
		        "FAT_SBTOTAL='".$nVal_SbTotal."',".       // Subtotal
		        "FAT_TOT_REC='".$nValorTotal."'".         // Total á receber
		     " WHERE FAT_CODIGOI=".$nR_FatGe.";";
	      MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' '.$sSQLQuery);
	   }                                  
	   //                                 
	   $s_Html_TotalCp = '';              
	   If ($bFat_Fechado) {               
          $s_Html_TotalCp .=              
             'Total de produtos acima....: R$ '.AlinhaStr( FormatoMoeda($nValorTotal_Ped),2,8,'&nbsp;').'<br>'.
             '----------------------------------------<br>'.
			 ( $nR_Taxa1 == 0 ? '' :      
			  ( $Row_FatGer->FAT_TIP_LOC==2 ?   // Disk entrega
               AlinhaStr('Taxa de entrega',0,27,'.').': R$ '.AlinhaStr( FormatoMoeda($nTaxa_de_Svr),2,8,'&nbsp;').'<br>'
			   :                                // Balcão, Mesa, commanda e etc...
               AlinhaStr('Taxa de serviço, '.$sR_Taxa1.' ',0,27,'.').': R$ '.AlinhaStr( FormatoMoeda($nTaxa_de_Svr),2,8,'&nbsp;').'<br>'
			  ).                          
			 '' ).                        
			 ( $nR_Taxa2 == 0 ? '' :      
             AlinhaStr('Taxa do couver ('.$sR_QtdPes.'x '.$sR_Taxa2.')',0,27,'.').': R$ '.AlinhaStr( FormatoMoeda($nValorCouver),2,8,'&nbsp;').'<br>'.
			 '' ).                        
             'Sub-Total..................: R$ '.AlinhaStr( FormatoMoeda($nVal_SbTotal),2,8,'&nbsp;').'<br>'.
             '<br>'.                      
             '';                          
		  //                              
		  // Mostrar pagamentos parciais efetuados
		  $s_Html_PagsParcial = '';       
		  ForEach ( $aPag_Parcial as $aPagamento ) {
		     If ( (@$aPagamento[0]+0)>0 ) {
		         // $aPagamento[0]   // Valor
	             // $aPagamento[1]   // Codigo interno da tabela cad_modalidade
	             // $aPagamento[2]   // Descrição da modalidade
	             // $aPagamento[3]   // Nome do cliente
	             // $aPagamento[4]   // Data e Hora do recebimento YYYY-MM-DD HH:MM:SS
	             // $aPagamento[5]   // Codigo do funcionário
	             $s_Html_PagsParcial .=   
				    AlinhaStr( $aPagamento[3]               ,0 ,15,'.'     ).
					AlinhaStr( $aPagamento[2]               ,0 ,12,'.'     ).
					': R$'.               
				    AlinhaStr( FormatoMoeda($aPagamento[0]) ,2 , 9,'&nbsp;').
					'<br>';               
			 }                            
		  }                               
		  If ( STRLEN($s_Html_PagsParcial)>0 ) {
		     $s_Html_TotalCp .=           
                '========================================<br>'.
                AlinhaStr( '** PAGAMENTOS ANTECIPADOS **' ,1,40,'&nbsp;').'<br>'.
			    $s_Html_PagsParcial.      
                '----------------------------------------<br>'.
                'Total antecipado...........: R$ '.AlinhaStr( FormatoMoeda($aPag_Parcial['TOTAL']),2,8,'&nbsp;').'<br>'.
			   '<br>';                    
			 $s_Html_PagsParcial = '';    
		  }   
          // TROCO PARA 
		  If ( @$Row_FatGer->FAT_TIP_LOC==2 || @$Row_FatGer->FAT_TIP_LOC==1 ) { //balcao ou disk 
		     If ( $Row_FatGer->FAT_TROCOPA>0 ) { // se tiver troco para
                $s_Html_TotalCp .= 
				   '<br>'.
				   '----------------------------------------<br>'.            
				   'Troco para.................: R$ '.AlinhaStr( FormatoMoeda($Row_FatGer->FAT_TROCOPA),2,8,'&nbsp;').'<br>'.
                   '';


			
		     }    
		  } 
		  //                              
	   }                                  
	   
	   //$bBotao_Ecf -> verifica se a modalidade esta tickada somente cupom fiscal 0-false 1- true        
       
	   $sRet_Javs .=                      
		   //'parent.document.getElementById("objCxaRec_BT_Rec").style.display="'.($bPmRecCnt ? 'inline-block' : 'none').'";'.
		   'parent.document.getElementById("objCxaRec_BT_Rec").style.display="'.(($bPmRecCnt && $bBotao_Ecf) ? 'inline-block' : 'none').'";'.
		   (  $nTipoFiscal ? 		   
		      'parent.document.getElementById("objCxaRec_BT_Cup").style.display="'.($bPmRecCnt ? 'inline-block' : 'none').'";'
		   :
		     "").
		   'parent.document.getElementById("objCxaRec_BT_Imp").style.display="'.($bFat_Fechado ? 'inline-block' : 'none').'";'.
		   'parent.document.getElementById("objCxaRec_BT_RAb").style.display="'.(($bFat_Fechado && ($nFat_TipLoc==0 OR $nFat_TipLoc==3) ) ? 'inline-block' : 'none').'";'.
		   'parent.document.getElementById("objCxaRec_BT_PgP").style.display="'.(( (!$bFat_Fechado) && ($nFat_TipLoc==0 OR $nFat_TipLoc==3) ) ? 'inline-block' : 'none').'";'.
		   'parent.document.getElementById("objCxaRec_BT_ALC").style.display=parent.document.getElementById("objCxaRec_BT_PgP").style.display;'.
		   //'parent.document.getElementById("objCxaRec_BT_LrP").style.display="'.( ($nFat_TipLoc==1 OR ((!$bFat_Fechado) && ($nFat_TipLoc==0 OR $nFat_TipLoc==3))) ? 'inline-block' : 'none').'";'.
		   "if (parent.document.getElementById('i_CxaRec_Taxa1').value != '".$sR_Taxa1."') {".
	           "parent.document.getElementById('i_CxaRec_Taxa1').value = '".$sR_Taxa1."';".
           "}".                           
		   "if (parent.document.getElementById('i_CxaRec_Taxa2').value != '".$sR_Taxa2."') {".
	           "parent.document.getElementById('i_CxaRec_Taxa2').value = '".$sR_Taxa2."';".
           "}".                           
		   "if (parent.document.getElementById('i_CxaRec_QtdPes').value != '".$sR_QtdPes."') {".
	           "parent.document.getElementById('i_CxaRec_QtdPes').value = '".$sR_QtdPes."';".
           "}".                           
		   'parent.document.getElementById("dv_CxaRec_Part1").style.display="'.($bFat_Fechado ? 'none' : 'inline').'";'.
		   'parent.document.getElementById("CxaRec_InsPro").style.display="'.( ( ($bFat_Fechado && ($nFat_TipLoc==0 || $nFat_TipLoc==3 ) ) || $nFat_TipLoc==2 ) ? 'none' : 'inline').'";'.
           'parent.document.getElementById("tr_CxaRec_Subtot").style.display="'.($bFat_Fechado ? 'table-row' : 'none').'";'.
		   'parent.document.getElementById("tr_CxaRec_Descon").style.display="'.($bFat_Fechado && $nDescontoM>0 ? 'table-row' : 'none').'";'.
		   "if (parent.document.getElementById('i_CxaRec_Descon').value != '".$sR_Descon."') {".
	           "parent.document.getElementById('i_CxaRec_Descon').value = '".$sR_Descon."';".
           "}".
           'parent.document.getElementById("tr_Entrega_Client").style.display="'.($bFat_Fechado ? '' : 'none').'";'.
		   'parent.document.getElementById("CxaRec_BT_Psq_1").style.display="'.( ($bFat_Fechado && ( ( (!$bCliente_FatGer && $nFat_TipLoc==0) || $nFat_TipLoc==3 || $nFat_TipLoc==1 ) ) ) ? 'inline' : 'none').'";'.
		   "parent.document.getElementById('dv_CxaRec_TotAnte').style.display = '".($aPag_Parcial['TOTAL']>0 ? 'inline' : 'none')."';".
		   "parent.document.getElementById('i_CxaRec_TotAnte').value = '".FormatoMoeda($aPag_Parcial['TOTAL'])."';".
		   "parent.document.getElementById('s_CxaRec_TotProd').innerHTML = '".FormatoMoeda($nValorTotal_Ped)."';".
	       "parent.document.getElementById('s_CxaRec_Taxa1').innerHTML = '".FormatoMoeda($nTaxa_de_Svr)."';".
	       "parent.document.getElementById('s_CxaRec_SubTot').innerHTML = 'R$ ".FormatoMoeda($nVal_SbTotal)."';".
	       "parent.document.getElementById('s_CxaRec_VlrTot').innerHTML = 'R$ ".FormatoMoeda($nValorTotal)."';".
		   ( @$Row_FatGer->FAT_TROCOPA > 0 ?
		      "parent.document.getElementById('s_CxaRec_VlrTroPa').innerHTML = 'troco para R$ ".FormatoMoeda($Row_FatGer->FAT_TROCOPA)."&nbsp;&nbsp;&nbsp;';"
		   :
		      "parent.document.getElementById('s_CxaRec_VlrTroPa').innerHTML ='';" 		   
		   ).
		   "parent.document.getElementById('sp_CxaRec_ValorTotRec').innerHTML = parent.document.getElementById('s_CxaRec_VlrTot').innerHTML;".
	       "parent.document.getElementById('s_CxaRec_TotCov').innerHTML = 'R$ ".FormatoMoeda($nValorCouver)."';".
	       "parent.document.getElementById('s_CxaRec_VlrPes').innerHTML = 'R$ ".FormatoMoeda($nValorCadaPe)."';".
	       "parent.document.getElementById('s_CxaRec_VlrDsc').innerHTML = 'R$ ".FormatoMoeda($nV_Descon)."';".
		   "parent.document.getElementById('i_CxaRec_ValDesc').value = '".FormatoMoeda($nV_Descon)."';".
	       "parent.document.getElementById('Q_CxaRec_BInf2').innerHTML = ".JAVA_CharCode_Mini($sLstBInf2_Html)."; ".
	       "parent.document.getElementById('Q_CxaRec_BInf3').innerHTML = ".JAVA_CharCode_Mini($sLstBInf3_Html)."; ".
		   ($bCxaRc_Inicial && (!$bFat_Fechado) ?
		      'var iTaxa1 = parent.document.getElementById("i_CxaRec_Taxa1");'.
		      'var iTaxa2 = parent.document.getElementById("i_CxaRec_Taxa2");'.
		      'var iCodBar = parent.document.getElementById("i_CxaRec_CodBar");'.
			  'iCodBar.focus();'.         
			  //'if ( ! iTaxa1.disabled ) {'.
		      //    'iTaxa1.focus();'.    
		      //    'iTaxa1.select();'.   
			  //'}'.                      
		      ($nValCouver>0 ?            
			    'iTaxa2.disabled=false;'  
			  :                           
			    'iTaxa2.disabled=true;'   
			  )                           
		   : '').                         
		   "parent.document.getElementById('dv_CxaRec_TotalCp').innerHTML = " .JAVA_CharCode_Mini($s_Html_TotalCp)."; ".
		   "parent.document.getElementById('dv_CxaRec_Part3').innerHTML = " .JAVA_CharCode_Mini($s_Html_PagsParcial)."; ".
		   ( $bMovimento_Gor ?            
		     'parent.document.getElementById("tr_Opc_Gorjeta").style.display="'.( (($nFat_TipLoc==0 OR $nFat_TipLoc==3) && $bFat_Fechado) ? '' : 'none').'";'
		   : '').
           //'parent.document.getElementById("CxaRec_InsPro").style.display="'.( (($nFat_TipLoc==0 OR $nFat_TipLoc==3) && $bFat_Fechado) ? '' : 'none').'";'.
		   //'parent.document.getElementById("i_CxaRec_CodBar").focus;'.
	       "";                            
	   $aSessao[$sNomeAcesso.'_CXA_INICIAL'] = False;
    
	}
	//                                    
    // CANCELAR OU VOLTAR ITEM            
    } ElseIf ( $sAcao=="RMV_ITEM" ) {     
	   $sMotivo_Can = @$aSessao['Motivo_Aut'];
	   
	   $nR_FatItem_CodI = @$_REQUEST["Fat_Item_CodI"]+0;
	   $aSessao[$sNomeAcesso.'_FAT_TOT_REC_G'] = 1;      // Atualizar o total á receber no calculo
	   $sRet_Javs .= "parent.JanEspera(false);";
	   $Row_FatIte = MYSQL_QUERY("SELECT * FROM fat_item WHERE FAT_GAR_EST=0 AND FAT_CFATGER=".$nR_FatGe." AND FAT_CODIGOI=".$nR_FatItem_CodI.";") or die(MYSQL_ERROR());
	   $Row_FatGer = MYSQL_QUERY("SELECT * FROM fat_geral WHERE FAT_CODIGOI=".$nR_FatGe.";") or die(MYSQL_ERROR());
	   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");
			 $sSelItensLst = STR_REPLACE("(".$Row_FatIte->FAT_CODIGOI.")","", $sSelItensLst);
			 $aSessao[$sNomeAcesso.'_SELITENS_LST'] = $sSelItensLst;
		  }                               
	      MYSQL_QUERY("UPDATE fat_item SET FAT_CANITEM='".$sFat_CanItem."' WHERE FAT_CODIGOI=".$nR_FatItem_CodI.";") or die(MYSQL_ERROR());
          // MOTIVO DO CANCELAMENTO
          If (STRLEN($sMotivo_Can)>0) {
             MYSQL_QUERY("UPDATE fat_item SET FAT_MOTCFT='".$sMotivo_Can."' WHERE FAT_CODIGOI=".$nR_FatItem_CodI.";") or die(MYSQL_ERROR());
		  }
		  
		  Recalcular_FatGer( $nR_FatGe ); 
		  $sRet_Javs .= $aSessao[$sNomeAcesso.'_CXA_ALTPROD'];
	   //                                 
	   } Else {                           
          $sRet_Javs .= Info_Evento('Não é possível remover este item, codigo inválido. ITEM('.$nR_FatItem_CodI.') , GERAL('.$nR_FatGe.').',1);
	   }                                  
    //                                    
    // SELECIONA OU DESMARCA O ITEM       
    } ElseIf ( $sAcao=="SEL_ITEM" ) {     
	   $nR_FatItem_CodI = @$_REQUEST["Fat_Item_CodI"]+0;
	   $sRet_Javs .= "parent.JanEspera(false);";
	   $Row_FatIte = MYSQL_QUERY("SELECT * FROM fat_item WHERE FAT_GAR_EST=0 AND FAT_CFATGER=".$nR_FatGe." AND FAT_CODIGOI=".$nR_FatItem_CodI.";") or die(MYSQL_ERROR());
	   If ( $Row_FatIte = MYSQL_FETCH_OBJECT($Row_FatIte) ) {
		  $bSelItemCxa = STRPOS(" ".$sSelItensLst, "(". $Row_FatIte->FAT_CODIGOI.")" )>0;
	      If ( $bSelItemCxa ) {           
			 $sSelItensLst = STR_REPLACE("(".$Row_FatIte->FAT_CODIGOI.")","", $sSelItensLst);
		  } Else {                        
		     $sSelItensLst .= "(".$Row_FatIte->FAT_CODIGOI.")";
		  }                               
		  $aSessao[$sNomeAcesso.'_SELITENS_LST'] = $sSelItensLst;
		  $sRet_Javs .= $aSessao[$sNomeAcesso.'_CXA_ALTPROD'];
	   //                                 
	   } Else {                           
          $sRet_Javs .= Info_Evento('Não é possível remover este item, codigo inválido. ITEM('.$nR_FatItem_CodI.') , GERAL('.$nR_FatGe.').',1);
	   }                                  
	//                                    
	// CANCELAR DE CUPOM (CONTA)          
    } ElseIf ( $sAcao=="CNTCAN" ) {       
       $sMotivo_Can = $aSessao['Motivo_Aut'];
	   
	   //                                 
       $sRet_Javs .=                      
	      "parent.JanEspera(false);";     
	   //                                 
	   $Row_FatGer = MYSQL_QUERY("SELECT * FROM fat_geral WHERE FAT_CODIGOI=".$nR_FatGe.";") or die(MYSQL_ERROR());
	   If ($Row_FatGer = MYSQL_FETCH_OBJECT($Row_FatGer) ) {
          $sSQLQuery =                    
             "UPDATE fat_geral SET ".     
                "FAT_CANCELA=".$R_CadFuncionario->FUN_CODIGO.",".
            	"FAT_CAN_DAT='".DATE("Y-m-d H:i:s")."'".
             " WHERE FAT_CODIGOI=".$nR_FatGe.";";
          MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' '.$sSQLQuery);
		  
		  If (STRLEN($sMotivo_Can)>0) {
		     $sSQLQueryB =                    
             "UPDATE fat_geral SET ".     
                "FAT_MOTCFG='".$sMotivo_Can."'".
             " WHERE FAT_CODIGOI=".$nR_FatGe.";";
             MYSQL_QUERY($sSQLQueryB) or die(MYSQL_ERROR().' '.$sSQLQueryB);
		  
		  }
		  
          $sRet_Javs .= $sJavaFechaEr;    
	   } Else {                           
          $sRet_Javs .= Info_Evento('Não é possível efetuar o fechamento, codigo inválido. GERAL('.$nR_FatGe.').',1);
	   }                                  
	//                                    
	// FECHAMENTO DE CONTA                
    } ElseIf ( $sAcao=="CNTFEC" ) {       
       //                                 
       $aSessao['SUGERE_MODPAG_TOTAL'] = True;
       //                                 
	   $bImpCup = @$_REQUEST['ImpCup']+0; 
       $sRet_Javs .= "parent.JanEspera(false);";
	   //                                 
       $nValorCouver = @$aSessao[$sNomeAcesso.'_FAT_TAXACVR']+0;
	   $nTaxa_de_Svr = @$aSessao[$sNomeAcesso.'_FAT_TAXASVR']+0;
	   $nValor_Total = @$aSessao[$sNomeAcesso.'_FAT_TOT_REC']+0;
	   $nR_QuantiPes = @$aSessao[$sNomeAcesso.'_FAT_QTD_PES']+0;
	   $sR_Taxa1     = @$aSessao[$sNomeAcesso.'_FAT___TAXA1'];
	   $nR_Taxa1     = STR_REPLACE(',','.',Somente_Numeros($sR_Taxa1,',.'))+0;
       //                                 
	   $Row_FatGer = MYSQL_QUERY("SELECT * FROM fat_geral WHERE FAT_CODIGOI=".$nR_FatGe.";") or die(MYSQL_ERROR());
	   If ($Row_FatGer = MYSQL_FETCH_OBJECT($Row_FatGer) ) {
          If ($bImpCup<>2) {              
	         
			 
			 
			 $sSQLQuery =                 
		        "UPDATE fat_geral SET ".  
			   	   ($Row_FatGer->FAT_DAT_FIM==0 ? "FAT_DAT_FIM='".DATE("Y-m-d H:i:s")."'," : '').
				   ($Row_FatGer->FAT_DATAFIM==0 ? "FAT_DATAFIM='".$sData_Trabalho."',"     : '').
			       "FAT_TAXACVR='".$nValorCouver."',".        // Taxa de couver
			       "FAT_TAXASVR='".$nTaxa_de_Svr."',".        // Taxa de serviço
				   "FAT_PERTAXASVR='".$nR_Taxa1."',".         // Porcentagem da taxa de serviço
			       "FAT_QTD_PES='".$nR_QuantiPes."',".        // Quantidade de pessoas
			       "FAT_TOT_REC='".$nValor_Total."',".        // Total á receber
                   "FAT_OPEFECH='".$R_CadFuncionario->FUN_CODIGO."'".         // operador que mandou fechar
			    " WHERE FAT_CODIGOI=".$nR_FatGe.";";
	         MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' '.$sSQLQuery);
			 $sRet_Javs .= $aSessao[$sNomeAcesso.'_CXA_ALTPROD'];
		  }                               
	   } Else {                           
          $sRet_Javs .= Info_Evento('Não é possível efetuar o fechamento, codigo inválido. GERAL('.$nR_FatGe.').',1);
		  $bImpCup = 0;                   
	   }                                  
	   //                                 
       If ($bImpCup) { 
	   
	      $nTip_Loc = $Row_FatGer->FAT_TIP_LOC;
		  If ( $nTip_Loc==3 ) { $nTip_Loc = 0; }
          $sCfg_ClpExp2 = SQLVarConfig('GARCOM_CLIPPER_ARQ_EXPORTA2');
		  $aExtencaoAq = SQLVarConfig('GARCOM_IMPC_'.$nTip_Loc);
		  $aExtencaoAq = EXPLODE(";",$aExtencaoAq);
          If ( STRLEN($sCfg_ClpExp2)>3 && ($aExtencaoAq[0]+0)) {
             $sTxt_ImpCup = MontaCupom_Rec('fat_geral.FAT_CODIGOI='.$Row_FatGer->FAT_CODIGOI, True, $bCupomAIte); // se imprime os cancelados

			 
			 If (STRLEN($sTxt_ImpCup)>0) {
			    $sIP_NomeArq = STR_REPLACE(".","_",ObterIPdoCliente());
                $sNomArqExpT = $sCfg_ClpExp2.$Row_FatGer->FAT_CODIGOI.'_'.$Row_FatGer->FAT_NUM_MES.'_IMP.TMP';
                $sNomArqExpR = $sCfg_ClpExp2.$Row_FatGer->FAT_CODIGOI.'_'.$Row_FatGer->FAT_NUM_MES.'_FECHAMENTO_'.$sIP_NomeArq.'.'.$aExtencaoAq[1];
                $hArqExp = FOPEN( $sNomArqExpT, "a" );
                FWRITE($hArqExp, $sTxt_ImpCup );
                FCLOSE( $hArqExp );       
        	    If ( FILE_EXISTS($sNomArqExpR) ) { UNLINK($sNomArqExpR); }
        	    RENAME( $sNomArqExpT, $sNomArqExpR );
        	 }                            
          }                               
       }                                  
	   //                                 
	   $aSessao[$sNomeAcesso.'_CXA_INICIAL'] = True;
       //                                 
	//                                    
	// REABRIR DE CONTA                   
    } ElseIf ( $sAcao=="CNTRAB" ) {       
       //                                 
       $sRet_Javs .= "parent.JanEspera(false);";
       //                                 
	   $Row_FatGer = MYSQL_QUERY("SELECT * FROM fat_geral WHERE FAT_CODIGOI=".$nR_FatGe.";") or die(MYSQL_ERROR());
	   If ($Row_FatGer = MYSQL_FETCH_OBJECT($Row_FatGer) ) {
          $sSQLQuery =                    
             "UPDATE fat_geral SET ".     
            	"FAT_DAT_FIM=0,".         
            	"FAT_DATAFIM=0,".         
                "FAT_TAXACVR=0,".         
                "FAT_TAXASVR=0,".         
                "FAT_OPEFECH=0".          
             " WHERE FAT_CODIGOI=".$nR_FatGe.";";
          MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' '.$sSQLQuery);
		  //                              
		  $aSessao[$sNomeAcesso.'_FAT_FECHADO'] = False;
		  $aSessao[$sNomeAcesso.'_FAT_DESCONT'] = 0;
		  $aSessao[$sNomeAcesso.'_FAT_VALDESC'] = 0;
		  //                              
          $sRet_Javs .=                   
		     $aSessao[$sNomeAcesso.'_CXA_ALTPROD'];
		                                  
		  //                              
	   } Else {                           
          $sRet_Javs .= Info_Evento('Não é possível efetuar a reabertura de conta, codigo inválido. GERAL('.$nR_FatGe.').',1);
	   }                                  
	   //	                              
	//                                    
	// RECEBER PAGAMENTO DA CONTA         
    } ElseIf ( $sAcao=="RECFAT" ) {       
	   //                                 
       $nValTroco    = $aSessao[$sNomeAcesso.'_CXA_VLTROCO'];
       $nR_Descon    = $aSessao[$sNomeAcesso.'_FAT_DESCONT'];
	   $nV_Descon    = $aSessao[$sNomeAcesso.'_FAT_VALDESC'];
	   $nVal_SbTotal = @$aSessao[$sNomeAcesso.'_FAT_SBTOTAL']+0;
	   $nValor_Total = @$aSessao[$sNomeAcesso.'_FAT_TOT_REC']+0;
	   $sFun_Cod_Ent = @$_POST['in_Fun_Cod_Ent']+0;
	   $nFat_TipTmp  = @$aSessao[$sNomeAcesso.'_FAT_TIPLOC']+0;
	   $bImpCupFis   = @$_REQUEST['Tmp_CupFisc']+0;  // se clicou no fiscal
	   //                                 
       $sRet_Javs .=
          "parent.JanEspera(false);".
          "";
       //$bDescoRec = True;               
	   $Row_FatGer = MYSQL_QUERY("SELECT * FROM fat_geral WHERE FAT_CODIGOI=".$nR_FatGe.";") or die(MYSQL_ERROR());
	   If ($Row_FatGer = MYSQL_FETCH_OBJECT($Row_FatGer) ) {
	       // Conferir modalidades á prazo
		   $bModaliadesOk = True;         
           $bEntregadorOK = True;         
		   $Rows_CadMPG = MYSQL_QUERY($sSQL_PrcModPag) or die(MYSQL_ERROR());
		   $nTotal_Prazo = 0;             
           While ($Row_CadMPG = MYSQL_FETCH_OBJECT($Rows_CadMPG)) {
              $nCxa_ModPag = @$_POST['Cxa_ModPag_'.$Row_CadMPG->MPG_CODIGOI];
              $nCxa_ModPag = STR_REPLACE(',','.',Somente_Numeros($nCxa_ModPag,',.'))+0;
			  If ($Row_CadMPG->MPG_FIN_CTR) {
			     $nTotal_Prazo += $nCxa_ModPag;
			  }                           
		   }                              
		   // Travar disk sem entregador
		   If ($nFat_TipTmp==2 && $sFun_Cod_Ent==0) {
			  $bModaliadesOk = False;
              $bEntregadorOK = False;    
			  $sRet_Javs .=         
			     'parent.document.getElementById("in_CxaEn_FunEnt").focus();'.
			     "setTimeout( function () { ".
                    Info_Evento('Para finalizar é necessário que<BR>especifique o entregador cadastrado.',1).
			     "} , 200);".          
                 "";                   
		   }                             
		   //TRAVA DE LIMITE E CLIENTE A PRAZO
		   $nSaldoCC_Cli = Fin_ContaCorrente_Saldo( $aSessao[$sNomeAcesso.'_FAT_CLIENTE'] );
		   If ( $nTotal_Prazo>0 ) {      
		      If ( $aSessao[$sNomeAcesso.'_FAT_CLIENTE']==0 ) {
		         $bModaliadesOk = False;  
                 $sRet_Javs .=            
				    'parent.document.getElementById("in_Entrega_CodCli").focus();'.
			        "setTimeout( function () { ".
                       Info_Evento('Para finalizar á prazo é necessário que<BR>especifique o cliente cadastrado.',1).
			        "} , 200);".          
                    "";                   
			  } Else {                    
	             $aCli_Saldos = FinCTR_SaldoDevedor( $aSessao[$sNomeAcesso.'_FAT_CLIENTE'] );
		         If ( ($aCli_Saldos[0]+$nTotal_Prazo) > ($aCli_Saldos[1]+$nSaldoCC_Cli) ) {
	                $sRet_Javs .=         
			           "setTimeout( function () { ".
		                 Info_Evento('Não há limite suficiente para este cliente<br>na compra á prazo.',1).
			           "} , 200);".       
					   "";                
		            $bModaliadesOk = False;
		         }                        
			  }                           
		   }                              
           //                             
           // Gravar modalidade de pagamentos
		   If ($bModaliadesOk) {          
	          $aPag_Parcial   = Ext_Pag_Parcial($Row_FatGer->FAT_LSTRPCL);
		      $nTotAntecipado = $aPag_Parcial['TOTAL'];
              $Rows_CadMPG    = MYSQL_QUERY($sSQL_PrcModPag) or die(MYSQL_ERROR());
		      $bModaliadesOk  = False;
              While ($Row_CadMPG = MYSQL_FETCH_OBJECT($Rows_CadMPG)) {
                 $nCxa_ModPag = @$_REQUEST['Cxa_ModPag_'.$Row_CadMPG->MPG_CODIGOI];
                 $nCxa_ModPag = STR_REPLACE(',','.',Somente_Numeros($nCxa_ModPag,',.'))+0;
                 If ( ($nCxa_ModPag+$nTotAntecipado)>0) {
			        $bModaliadesOk = True;
                    //If ($bDescoRec && $nValTroco>0 && $Row_CadMPG->MPG_P_TROCO) {
                    //   $bDescoRec = False;
                    //   $nCxa_ModPag -= $nValTroco;
                    //}                   
                    //
                    $nCodSeqMov = SQLVarConfig('MOV_MOD_PAG_SEQCOD',True)+0;
                    SQLVarConfigG('MOV_MOD_PAG_SEQCOD', $nCodSeqMov+1);
                    $sSQLQuery =          
                           "INSERT INTO mov_modalidade_pag(MOV_CODIGOI) VALUES (".$nCodSeqMov."); ";
                    MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' '.$sSQLQuery);
                    $sSQLQuery =          
                           "UPDATE mov_modalidade_pag SET ".
                              "MOV_REGDATA='".DATE("Y-m-d H:i:s")."',".
                              "MOV_CFATGER='".$nR_FatGe."',".
                              "MOV_MPGCODI='".$Row_CadMPG->MPG_CODIGOI."',".
                              "MOV_VALORMV='".$nCxa_ModPag."'".
                           " WHERE MOV_CODIGOI=".$nCodSeqMov."; ";
                    MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' '.$sSQLQuery);
			   	    //
					If ( $Row_CadMPG->MPG_FIN_CTR ) {
					   // Debitar do saldo em conta corrente do cliente
					   If ( $nSaldoCC_Cli>0 ) {
					      $nValorCCDeb = 0;
					      If ( $nSaldoCC_Cli<$nCxa_ModPag ) {
					         $nValorCCDeb = $nSaldoCC_Cli;
					      } Else {
					         $nValorCCDeb = $nCxa_ModPag;
					      }
					      $nSaldoCC_Cli -= $nValorCCDeb;
					      $nCxa_ModPag  -= $nValorCCDeb;
					      Fin_ContaCorrente_CrdDeb( $aSessao[$sNomeAcesso.'_FAT_CLIENTE'],
					                                (-$nValorCCDeb),
					   							    "Débito direto",
					   							    $nSeqCaixa,
					   							    0, $nR_FatGe );
					      //
					   }
	   	               // GRAVAR CONTAS Á RECEBER
					   If ( $nCxa_ModPag>0 ) {
			   	          FinCTR_Incluir( $nCxa_ModPag, 0, '', $nR_FatGe, $Row_CadMPG->MPG_CODIGOI, $aSessao[$sNomeAcesso.'_FAT_CLIENTE'], $Row_FatGer->FAT_SQCOMAN, $nSeqCaixa, True );
					   }
					}
			   	    //                       
                 }                        
              }                           
		   }                              
		   //                             
		   If ($bModaliadesOk OR $nValor_Total==0) {
              //                          
			  // Gravar Valor antecipado  
			  If ($nTotAntecipado>0) {    
                 $nCodSeqMov = SQLVarConfig('MOV_MOD_PAG_SEQCOD',True)+0;
                 SQLVarConfigG('MOV_MOD_PAG_SEQCOD', $nCodSeqMov+1);
                 $sSQLQuery =             
                    "INSERT INTO mov_modalidade_pag(MOV_CODIGOI) VALUES (".$nCodSeqMov."); ";
                 MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' '.$sSQLQuery);
                 $sSQLQuery =             
                    "UPDATE mov_modalidade_pag SET ".
                       "MOV_REGDATA='".DATE("Y-m-d H:i:s")."',".
                       "MOV_CFATGER='".$nR_FatGe."',".
                       "MOV_MPGCODI='999',".
                       "MOV_VALORMV='".$nTotAntecipado."'".
                    " WHERE MOV_CODIGOI=".$nCodSeqMov."; ";
                 MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' '.$sSQLQuery);
			  }                           
			  //                          
              // Gravar troco, MPG_MPGCODI=0
              If ($nValTroco>0) {         
                 $nCodSeqMov = SQLVarConfig('MOV_MOD_PAG_SEQCOD',True)+0;
                 SQLVarConfigG('MOV_MOD_PAG_SEQCOD', $nCodSeqMov+1);
                 $sSQLQuery =             
                    "INSERT INTO mov_modalidade_pag(MOV_CODIGOI) VALUES (".$nCodSeqMov."); ";
                 MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' '.$sSQLQuery);
                 $sSQLQuery =             
                    "UPDATE mov_modalidade_pag SET ".
                       "MOV_REGDATA='".DATE("Y-m-d H:i:s")."',".
                       "MOV_CFATGER='".$nR_FatGe."',".
                       "MOV_MPGCODI='0',".
                       "MOV_VALORMV='".$nValTroco."'".
                    " WHERE MOV_CODIGOI=".$nCodSeqMov."; ";
                 MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' '.$sSQLQuery);
				 //                       
			     //GRAVAR GORJETA         
				 $nGor_Cod_Fun = Somente_Numeros(@$_POST['in_Cod_Fun'])+0;
			     If ($bMovimento_Gor && $nGor_Cod_Fun>0) {
                    $sSQLQuery =          
                       "INSERT INTO mov_gorjeta(".
					     "MGT_CFATGER,".  
						 "MGT_COD_FUN,".  
						 "MGT_VALORMV,".  
						 "MGT_SQCAIXA ".  
					   ") VALUES (".      
					     "'".$nR_FatGe    ."',".
						 "'".$nGor_Cod_Fun."',".
						 "'".$nValTroco   ."',".
						 "'".$nSeqCaixa   ."'".
					   "); ";
                    MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' '.$sSQLQuery);
			     }
				 //                       
              }
			  // Gravar baixa no FAT_GERAL
              $sSQLQuery =                
                 "UPDATE fat_geral SET ". 
				    "FAT_DESCONT='".$nR_Descon."',".           // Desconto em percentual
				    "FAT_VALDESC='".$nV_Descon."',".           // Desconto em valor
			        "FAT_SBTOTAL='".$nVal_SbTotal."',".        // SubTotal
			        "FAT_TOT_REC='".$nValor_Total."',".        // Total á receber
                    ($Row_FatGer->FAT_DAT_FIM==0 ? "FAT_DAT_FIM='".DATE("Y-m-d H:i:s")."'," : '').
                    ($Row_FatGer->FAT_DATAFIM==0 ? "FAT_DATAFIM='".$sData_Trabalho."'," : '').
                    "FAT_REC_FUN='".$R_CadFuncionario->FUN_CODIGO."',".
		        	"FAT_SQCAIXA='".$nSeqCaixa."',".
					"FAT_COD_ENT='".$sFun_Cod_Ent."',".
					"FAT_CLIENTE='".$aSessao[$sNomeAcesso.'_FAT_CLIENTE']."',".
                    "FAT_RCFORMA=1".      
                 " WHERE FAT_CODIGOI=".$nR_FatGe."; ".
                 "";                      
              MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' '.$sSQLQuery);
			  //
			  Baixa_Estoque( $nR_FatGe ); // Baixa no estoque dos produtos
			  //
			  // Imprimir comprovante á prazo
			  If ($nTotal_Prazo>0) {      
                 $sCfg_ClpExp2 = SQLVarConfig('GARCOM_CLIPPER_ARQ_EXPORTA2');
                 If ( STRLEN($sCfg_ClpExp2)>3) {
			        $sTxt_ImpCup = FinCTR_ImpDev( $nR_FatGe );  // Recibo para o cliente
                    If (STRLEN($sTxt_ImpCup)>0) {
			           $sIP_NomeArq = STR_REPLACE(".","_",ObterIPdoCliente());
                       $sNomArqExpT = $sCfg_ClpExp2.$Row_FatGer->FAT_CODIGOI.'_'.$Row_FatGer->FAT_NUM_MES.'_IMP.TMP';
                       $sNomArqExpR = $sCfg_ClpExp2.$Row_FatGer->FAT_CODIGOI.'_'.$Row_FatGer->FAT_NUM_MES.'_A_PRAZO_'.$sIP_NomeArq.'.VPR';
                       $hArqExp = FOPEN( $sNomArqExpT, "a" );
                       FWRITE($hArqExp, $sTxt_ImpCup );
                       FCLOSE( $hArqExp );
        	           If ( FILE_EXISTS($sNomArqExpR) ) { UNLINK($sNomArqExpR); }
        	           RENAME( $sNomArqExpT, $sNomArqExpR );
        	        }                     
				 }                        
			  }                           
	          //                          
			  // CHAMAR FUNCAO GAVETA NAO FISCAL USA SERIAL
              If ($bGav_Nao_Fiscal) {     
                  $sCfg_ClpExp2 = SQLVarConfig('GARCOM_CLIPPER_ARQ_EXPORTA2');
				  If (STRLEN($sImp_Nao_Fiscal)>0) {
				     $sTxt_ImpCup = 'IMPRESSORA='.$sImp_Nao_Fiscal;
                  }                       
				  If (STRLEN($sTxt_ImpCup)>0) {
			         $sIP_NomeArq = STR_REPLACE(".","_",ObterIPdoCliente());
                     $sNomArqExpT = $sCfg_ClpExp2.'ABRE_GAVETA_IMP.TMP';
                     $sNomArqExpR = $sCfg_ClpExp2.'ABRE_GAVETA_'.$sIP_NomeArq.'.GAV';
                     $hArqExp = FOPEN( $sNomArqExpT, "a" );
                     FWRITE($hArqExp, $sTxt_ImpCup );
                     FCLOSE( $hArqExp );  
        	         If ( FILE_EXISTS($sNomArqExpR) ) { UNLINK($sNomArqExpR); }
        	         RENAME( $sNomArqExpT, $sNomArqExpR );
        	      }                       
			                              
              }			                  
			  // CHAMAR FUNCAO GAVETA     
		      If ($nTipoFiscal==1) {        
	             $ImpFiscal->Conectar();  
		         $ImpFiscal->ECF_AbreGaveta();
		      }
			  //
			  If ( $bImpCupFis ) {  // se clicou no botão cupom fiscal
			     $sRet_Javs .= "parent.Car_".$sNomeAcesso."5.Cupom_Fiscal('".$nR_FatGe."');";
			  }
		      //                          
              $sRet_Javs .=
                 "setTimeout( function () {".
                   $oJanelaPrinc->sJavOnClickF.
                 "} , 200);".
                 "";
		      //
		   } ElseIf ($nTotal_Prazo==0 AND $bEntregadorOK) { // SE PREENCHEU ENTREGADOR
              $sRet_Javs .=               
			     "setTimeout( function () { ".
                    Info_Evento('ERRO INTERNO: Não há modalidades á receber.',1).
			     "} , 200);".             
                 "";                      
           }                                
	   }                                  
	//                                    
   //  ** TELA DE PESQUISA DO PRODUTO PARA INSERIR **
   } 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; } quando for kilo 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);
          }                               
       }                                  
                                          
       $sRet_Javs .=                      
	      "parent.document.getElementById('CxaRec_BT_Adc').style.display='inline-block';".
          "";		                      
	   //                                 
	   If ( STRLEN($sLrP_CodPro)==0 ) {   
        // Erro: Erro codigo inválido     
     	 $sRet_Javs .= "parent.document.getElementById('i_CxaRec_CodBar').focus();".
                      Info_Evento('Você não informou um código válido.',1);
     	 $bIncluir = False;               
                                          
                                          
       } ElseIf ( $sLrP_CodPro =='/' ) {  
      	 	                              
          $sRet_Javs .=                   
           "parent.document.getElementById('i_CxaRec_CodBar').value='".$sLrP_CodPro."';".
	       $sJavaTravarJ.                 
		   "setTimeout( function () { ".  
			  "var fm = parent.document.forms.fmPCxaRec2;".
			  "TargetAnt = fm.target;".   
			  "fm.target='car_".$sNomeAcesso."10';".
		      "fm.acao.value=''; ".       
		      "fm.submod.value='PESQ_PRODUTO'; ".
		      "fm.submit();".             
			  "fm.target = TargetAnt;".   
		      "fm.submod.value='".$sSubModulo."'; ".
		   "} , 100);".                   
		   "";                            
       //                                 
      } Else {                            
        //$sRet_Javs .=                   
		//  "alert('okok');".             
        //  "parent.document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='hidden';".
		//  "parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',false);".
		//  "";                           
	    //                                
        $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('i_CxaRec_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){           
     		 /*$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;*/
			 //                           
			 //Pega o  preço custo do cad_produto 
	         $nIte_Pre_Cus_001 = PuxarPrecoCusto(($LrP_CodigoI+0), "N" );
          	 //Calcula o total do custo   
             $nCusto_Total =  $nIte_Pre_Cus_001*$n_QtdIte;
			                              
			 //                           
			 $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")."',".
                       "'".($n_QtdIte*STR_REPLACE('R$ ','',$nITE_PRE_NOR))."',".
                       "0,".              
                       ($LrP_CodigoI+0).",".
                       "0,".              
                       "0,".              
                       "0,".              
                       $n_QtdIte.",".     
                       "0,".              
                       '"N",'.            
					   "'".$nCusto_Total."',".
				       "'".$nIte_Pre_Cus_001."'".
                    ");";                 
             MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' '.$sSQLQuery);
			 
		 
			 Recalcular_FatGer( $nR_FatGe );
			 
			 //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);
      } 
			 
			 // Gerar ticket de produção
		     $bImp_Ticket = True;
			 If( $aSessao[$sNomeAcesso.'_FAT_TIPLOC']== 1 ) { // balcao
			   $bImp_Ticket =  SQLVarConfig('BALCAO_TXT_TICKET')+0;
			 } Elseif ( $aSessao[$sNomeAcesso.'_FAT_TIPLOC']== 2 ){ //disk 
			   $bImp_Ticket =  SQLVarConfig('ENTREGA_TXT_TICKET')+0;
			 } Else { // mesa ou comanda
			   $bImp_Ticket =  SQLVarConfig('LOCAL_TXT_TICKET')+0;
			 }
			 If ($bImp_Ticket) {
			    $nRetornoSucesso = GerarTicketProducao( $nR_FatGe, ARRAY( $nFti_Codigo => 1 ) );
             }
		  } Else {                        
             $sRet_Javs .= "parent.document.getElementById('i_CxaRec_CodBar').focus();".
     			            Info_Evento('Produto sem preço de cadastro: <br>'.$_LrP_CodigoL.'-'.$_LrP_Descri,1);
          }                               
        } Else {                          
          If (!$bActSabores && ! STRLEN($sLrP_CodPro)==0) {
     	      $sRet_Javs .= "parent.document.getElementById('i_CxaRec_CodBar').focus();".
     	  	                Info_Evento('Código de barras não cadastrado: <br>'.$sLrP_CodPro,1);
          }                               
        }                                 
        //                                
        $sRet_Javs .=                     
         "parent.document.getElementById('i_CxaRec_CodBar').value='';".
         "parent.document.getElementById('i_CxaRec_CodBar').focus();".
		 'parent.Car_'.$sNomeAcesso.'5.ValidaCampos_2();'.
		 "parent.document.getElementById('CxaRec_BT_Adc').style.display='inline-block';".
		 $sJavaTravarJ.                   
		 "parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);".
		 "parent.Car_".$sNomeAcesso."5.AtualizarProd();".
		 "";                              
      }                                   
	}                                     
    // VALIDAR CAMPOS 2                   
    } ElseIf ( $sAcao=="VALIDACAM" ) {    
	  $sLrP_CodPro = Somente_Numeros($sLrP_CodPro);
	  $sTmp_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);
	  $bEncontrou  = True;                
	  $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 {                         
      	   $bEncontrou = False;	          
		   $sLrP_CodPro    = '';          
      	   If ( $bProdutoAlt ) {          
      	      $nLrP_VlrIte = 0;           
      	      $nLrP_QtdIte = 0;           
      	   }                              
         }                                
      } Else {                            
        $bEncontrou = False;	          
		$nLrP_VlrIte = 0;                 
      	$nLrP_QtdIte = 0;                 
      	$sLrP_CodPro = '';                
                                          
	                                      
	  }                                   
      $aSessao[$sNomeAcesso.'_CAMPOPROD'] = $sLrP_CodPro;
      $aSessao[$sNomeAcesso.'_CAMPOQTDE'] = $nLrP_QtdIte;
	  If (!$bEncontrou) {                 
	    $sPro_Descricao = '';             
	  }                                   
	  $sRet_Javs .=
		"if ( parent.document.getElementById('spCxaRec_ProDescr') != null ) {".
            "parent.document.getElementById('spCxaRec_ProDescr').innerHTML='".STR_REPLACE("'"," ",$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);
	     }                                
	                                      
	  }                                   
	                                      
	  If (!$bEncontrou) {                 
	     $nLrP_VlrIte = 0;                
      	 $nLrP_QtdIte = 0;                
      	 $sLrP_CodPro = '';               
      }                                   
	  // trava de quantidade maxima permitida
      If ( $nQtdMax_Itens > 0 && $nLrP_QtdIte > 0 ) {
	     If ( $nLrP_QtdIte > $nQtdMax_Itens ) {
		    $bTrava_Max = True;           
	     } Else {                         
		    $bTrava_Max = False;          
		 }                                
	  }                                   
	                                      
	 If ( STRLEN( $sLrP_QtdIte )== 0 && STRLEN($sTmp_CodPro) > 0) {
	    $sLrP_QtdIte = '1';               
	 }                                    
	  $sRet_Javs .=                       
        //Avisar se a quantidade é maior que 15 unidades digitada
		( $bTrava_Max && STRLEN($sTmp_CodPro) > 0 ?
		    "parent.Qdr_Prompt_H(true,'Confirma quantidade digitada?',".
			    JAVA_CharCode(            
			     "if (_NUM_BOT_==1) { ".  
		             ( !$bEncontrou && STRLEN($sTmp_CodPro) > 0 ? 
		               Info_Evento('Código de barras não cadastrado: <br>'.$sTmp_CodPro,1)
		             :                    
		               ""                 
	                 ).                   
		             "parent.document.getElementById('i_CxaRec_CodBar').value='".$sLrP_CodPro."';".
                     "parent.document.getElementById('i_CxaRec_QtdIte').value='".$sLrP_QtdIte."';".
		             "parent.document.getElementById('i_CxaRec_VlrIte').value='".$sLrP_VlrIte."';".
					 ( STRLEN($sLrP_CodPro)>0 && (! $bQtdeAlt > 0 ) ?
					   "parent.document.getElementById('i_CxaRec_QtdIte').select();"
                     :                    
		               ""                 
		             ).                   
		             //"parent.document.getElementById('i_CxaRec_VlrIte').value='".$sLrP_VlrIte."';".
		             ( !$bEncontrou && STRLEN($sTmp_CodPro) > 0 ?
		               "parent.document.getElementById('i_CxaRec_CodBar').focus();"		
		             :                    
	                   ""		          
		             ).                   
			     "} else {".              
				    //"parent.document.getElementById('i_CxaRec_CodBar').value='".$sLrP_CodPro."';".
                    "parent.document.getElementById('i_CxaRec_QtdIte').value='1';".
					"parent.document.getElementById('i_CxaRec_QtdIte').focus();".
					"parent.document.getElementById('i_CxaRec_QtdIte').select();".
				 "}".                     
			    "").                      
		    ",['Sim','Não']);".           
			""                            
		:                                 
         ( !$bEncontrou && STRLEN($sTmp_CodPro) > 0 ? 
		   Info_Evento('Código de barras não cadastrado: <br>'.$sTmp_CodPro,1)
		   :                              
		   ""                             
	     ).                               
		 "if ( parent.document.getElementById('i_CxaRec_CodBar') != null ) {".
		     "parent.document.getElementById('i_CxaRec_CodBar').value='".$sLrP_CodPro."';".
             "parent.document.getElementById('i_CxaRec_QtdIte').value='".$sLrP_QtdIte."';".
		     "parent.document.getElementById('i_CxaRec_VlrIte').value='".$sLrP_VlrIte."';".
		     ( STRLEN($sLrP_CodPro)>0 && (! $bQtdeAlt > 0 ) ?
		       "parent.document.getElementById('i_CxaRec_QtdIte').select();"
             :                                
		       ""                             
		     ).                               
		     //"parent.document.getElementById('i_CxaRec_VlrIte').value='".$sLrP_VlrIte."';".
		     ( !$bEncontrou && STRLEN($sTmp_CodPro) > 0 ?
		       "parent.document.getElementById('i_CxaRec_CodBar').focus();"		
		     :                                
	           ""		                      
		     ).
		 "}"
	    ).                                
        "";                               
	//                                    
	                                      
    //                                    
    // FECHAR                             
    } ElseIf ( $sAcao=="FECHAR" ) {       
	   $aSessao[$sNomeAcesso.'_CXA_ALTPROD' ] = '';
       $aSessao[$sNomeAcesso.'_SELITENS_LST'] = '';
	   $aSessao[$sNomeAcesso.'_SELITENS_VLR'] = 0;
	   UNSET( $aSessao['CXA_REC_ABERTO'] );
	   // Se não houver nenhum item no Fat_Item cancelar o Fat_Geral
       $nFat_Item_C = MYSQL_QUERY("SELECT COUNT(*) FROM fat_item WHERE FAT_CFATGER=".$nR_FatGe.";") or die(MYSQL_ERROR());
	   $nFat_Item_C = MYSQL_FETCH_ARRAY($nFat_Item_C);
	   $nFat_Item_C = $nFat_Item_C[0];    
	   If ($nFat_Item_C==0 && (!$bCliente_FatGer) ) {
          $sSQLQuery =                    
             "UPDATE fat_geral SET ".     
                "FAT_CANCELA=".$R_CadFuncionario->FUN_CODIGO.",".
            	"FAT_CAN_DAT='".DATE("Y-m-d H:i:s")."'".      
             " WHERE FAT_CODIGOI=".$nR_FatGe.";";
          MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' '.$sSQLQuery);
	   }                                  
	   //                                 
       MYSQL_QUERY("SET AUTOCOMMIT=0;")  Or Die(MYSQL_ERROR());
       MYSQL_QUERY("START TRANSACTION;") Or Die(MYSQL_ERROR());
	   MYSQL_QUERY("DELETE FROM garcom_term_local WHERE LOC_CODNUM='".$nR_Local."' AND LOC_NUMTRM=0;") or die(MYSQL_ERROR().' '.MYSQL_QUERY("ROLLBACK;"));
       MYSQL_QUERY("COMMIT;")            Or Die(MYSQL_ERROR());
       $sRet_Javs .=                      
	      "parent.Car_".$sNomeAcesso."4.location.href='about:blank';".		   
	      "if (parent.document.getElementById('".$oJanelaPrinc->sIdObj."') != null) { parent.RmElem('".$oJanelaPrinc->sIdObj."'); }".
		  ( (@$_POST['Tmp_CupFisc']+0==0) ?
		    ( $bModulo_Avulso ? 
		      @$aSessao["JAVA_EXECUTAR_AO_FECHAR"]
		    :
		      "parent.document.getElementById('".$sNomeIdJan1."_Travar').style.visibility='hidden';".
		      "parent.Disabled_In_Elems('".$sNomeIdJan1."',false);".
		      'parent.document.getElementById("i_CxaRec_NumLoc").focus();'.
	          "parent.Car_".$sNomeAcesso."1.Load_Status();"
		    )
		  : "").
		  "";
	  $aSessao[$sNomeAcesso.'_Avulso_Rec'] = False;
    //                                    
    // JANELA TELA PRINCIPAL              
    } Else {                              
	   //
	   $aSessao['CXA_REC_ABERTO'] = True;
	   @$aSessao[$sNomeAcesso.'_Avulso_Rec'] = ($sAcao=="_AVULSO_");  // Iniciar modulo modo avulso (sozinho)
	   $bModulo_Avulso = @$aSessao[$sNomeAcesso.'_Avulso_Rec'];
	   //                                 
	   $nTaxa_Promocao = PuxarTaxaPromocional();
	   //
       $aSessao[$sNomeAcesso.'_FAT___TAXA1'] = '';
	   $aSessao[$sNomeAcesso.'_FAT___TAXA2'] = '';
	   $aSessao[$sNomeAcesso.'_FAT_QTD_PES'] = 1;
	   $aSessao[$sNomeAcesso.'_FAT_TAXASVR'] = 0;
	   $aSessao[$sNomeAcesso.'_FAT_TAXACVR'] = 0;
	   $aSessao[$sNomeAcesso.'_FAT_TOT_REC'] = 0;
	   $aSessao[$sNomeAcesso.'_CXA_VLTROCO'] = 0;
	   $aSessao[$sNomeAcesso.'_FAT_TOT_REC_G'] = 0;
	   $aSessao[$sNomeAcesso.'_DESC_ACM_MAX'] = 0;
	   $aSessao[$sNomeAcesso.'_FAT_CLIENTE'] = 0;
	   $aSessao[$sNomeAcesso.'_FAT_VALDESC'] = 0;
	   $aSessao[$sNomeAcesso.'_ADC_PRODUTO'] = 1;
	   //                                 
	   $bMostrarJan = True;               
	   If ( $nR_Local>0 && $nR_Local<>$Cod_Bal_Ent ) {
          $Rows_MovLocal = MYSQL_QUERY("SELECT * FROM garcom_term_local WHERE LOC_CODNUM='".$nR_Local."';") or die(MYSQL_ERROR());
          $bMostrarJan = False;           
		  $nNumero_Trm = 0;               
          If ( $Row_MovLocal = MYSQL_FETCH_OBJECT( $Rows_MovLocal ) ) {
             //If ( (ConvertDtHrSTR($Row_MovLocal->LOC_ULTACS)+300)<TIME() OR $Row_MovLocal->LOC_NUMTRM==$nNumero_Trm) {
             If ( $Row_MovLocal->LOC_NUMTRM==$nNumero_Trm ) {
                MYSQL_QUERY("SET AUTOCOMMIT=0;")  Or Die(MYSQL_ERROR());
                MYSQL_QUERY("START TRANSACTION;") Or Die(MYSQL_ERROR());
                MYSQL_QUERY("DELETE FROM garcom_term_local WHERE LOC_CODNUM='".$nR_Local."';") or die(MYSQL_ERROR().' '.MYSQL_QUERY("ROLLBACK;"));
                MYSQL_QUERY("COMMIT;")            Or Die(MYSQL_ERROR());
          	    $bMostrarJan = True;      
             } Else {                     
               If ( $Row_MovLocal->LOC_NUMTRM<>$nNumero_Trm ) {
                  $sMensgErro = 'O terminal '.$Row_MovLocal->LOC_NUMTRM.' esta com a '.$sTipoLocal.' '.$nR_Local.' aberta.';
				  $sRet_Javs .=           
				     Info_Evento($sMensgErro,1).
					 $sJavaFechaEr.       
					 '';                  
          	    }                         
            }                             
          } Else {                        
            $bMostrarJan = True;          
          }                               
          If ( $bMostrarJan ) {           
             $Rowt_FatGer  = MYSQL_QUERY("SELECT * FROM fat_geral WHERE FAT_NUM_MES='".$nR_Local."' AND FAT_RCFORMA=0 AND FAT_CANCELA=0;") or die(MYSQL_ERROR());
		     If ($Rowt_FatGer = MYSQL_FETCH_OBJECT($Rowt_FatGer) ) {
                $Rowt_FatItem = MYSQL_QUERY("SELECT * FROM fat_item WHERE FAT_CFATGER='".$Rowt_FatGer->FAT_CODIGOI."' AND FAT_GAR_EST<>0;") or die(MYSQL_ERROR());
		        If ( $Rowt_FatItem = MYSQL_FETCH_OBJECT($Rowt_FatItem) ) {
                   $sMensgErro = 'A '.$sTipoLocal.' '.$nR_Local.' contem produtos a serem gravados, entre no Garçom Express e verifique.';
				   $sRet_Javs .=          
				      Info_Evento($sMensgErro,1).
				      $sJavaFechaEr.      
				      '';                 
		           $bMostrarJan = False;  
		        }                         
		     }                            
		  }                               
          If ( $bMostrarJan ) {           
             $sSQLRequest =               
			     "INSERT INTO garcom_term_local(".
                    "LOC_CODNUM, LOC_ULTACS, LOC_NUMTRM".
                    ") VALUE(".           
          	        "'".$nR_Local."',".   
          	        "'".DATE("Y-m-d H:i:s")."',".
          	        "'".$nNumero_Trm."'". 
                 ");";                    
             MYSQL_QUERY("SET AUTOCOMMIT=0;")  Or Die(MYSQL_ERROR());
             MYSQL_QUERY("START TRANSACTION;") Or Die(MYSQL_ERROR());
             MYSQL_QUERY($sSQLRequest) or die(MYSQL_ERROR().' - '.$sSQLRequest.MYSQL_QUERY("ROLLBACK;"));
             MYSQL_QUERY("COMMIT;")            Or Die(MYSQL_ERROR());
			 //                           
			 If ( (@$Rowt_FatGer->FAT_CODIGOI+0)>0 ) {
			    // Recalcular total (16/05/2013)
	
				
				
				Recalcular_FatGer( $Rowt_FatGer->FAT_CODIGOI );
				//                        
		     }                            
			 //                           
          }                               
	   } Else {                           
          $Rowt_FatGer = MYSQL_QUERY("SELECT * FROM fat_geral WHERE FAT_CODIGOI='".$nR_FatGe."';") or die(MYSQL_ERROR());
		  $Rowt_FatGer = MYSQL_FETCH_OBJECT($Rowt_FatGer);
	   }                                  
	   //                                 
       If ($bMostrarJan) {                
	      $aSessao[$sNomeAcesso.'_CXA_INICIAL'] = True;
		  $aSessao[$sNomeAcesso.'_FAT_QTD_PES'] = @$Rowt_FatGer->FAT_QTD_PES+0;
          $aSessao['SUGERE_MODPAG_TOTAL'] = True;
          //                              
          $sJavaAtlProd = 'parent.Car_'.$sNomeAcesso.'4.location.href = "./car_js.php?mod='.$sModulo.'&submod='.$sSubModulo.'&nomeacs='.$sNomeAcesso.'&acao=ATUALIZA&NumLocal='.$nR_Local.'&NumFatG='.$nR_FatGe.'";';
          $aSessao[$sNomeAcesso.'_CXA_ALTPROD'] = $sJavaAtlProd;
          //                              
          $sJavInpR_OnBlur =              
		      //"sIdHasFocus='';".        
              "document.forms.fmPCxaRec2.acao.value='CALCULA';".
              "document.forms.fmPCxaRec2.submit();".
			  '';                         
          $sJavInpR_ParCal =              
              "parent.document.forms.fmPCxaRec2.acao.value='CALCULA';".
              "parent.document.forms.fmPCxaRec2.submit();";
          //                              
          $Rows_CadMPG = MYSQL_QUERY($sSQL_ExbModPag) or die(MYSQL_ERROR());
		  $aSessao[$sNomeAcesso.'_CXA_PRIMEIRA_MODPAG'] = '';
		  //                              
	      $oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."5.Teclas_F(this,event);";
          // colocado para poder usar o enter nos campos diferente de keydow
          $oJanelaPrinc->sJavKeyUp   = "return Car_".$sNomeAcesso."5.Teclas_F2(this,event);";
		  //                              
		  //$nContadorTab = 5;            
          $nContadorTab = 8;              
		  $sCampos_ModPag =               
		     '<div id="dv_CxaRec_TotAnte" style="width:100%;">'.
              '<table style="width:100%;">'.
               '<tr>'.                    
                '<td height="25px" align="right" valign="middle" style="font-size:14px;">'.
                 'Total antecipado:&nbsp;'.
                '</td>'.                  
                '<td width="100px" valign="middle" align="left">'.
                 '<input id="i_CxaRec_TotAnte" value="" style="font-size:14px; height:23px; width:97%;" readonly="readonly">'.
                '</td>'.                  
               '</tr>'.                   
              '</table>'.                 
			 '</div>'.                    
			 '';                          
          
		  
		  While ($Row_CadMPG = MYSQL_FETCH_OBJECT($Rows_CadMPG)) {
		     $nContadorTab++;             
		     If ( STRLEN($aSessao[$sNomeAcesso.'_CXA_PRIMEIRA_MODPAG'])==0 ) {
				    $aSessao[$sNomeAcesso.'_CXA_PRIMEIRA_MODPAG'] = 'i_CxaRec_ModPag_'.$Row_CadMPG->MPG_CODIGOI;
			 }                            
             			 

			 //                           
				 $oJanelaPrinc->aIdsObjList[] = 'i_CxaRec_ModPag_'.$Row_CadMPG->MPG_CODIGOI;
               $sCampos_ModPag .=           
                 '<table style="width:100%;">'.
                  '<tr>'.                 
                   '<td height="25px" align="right" valign="middle" style="font-size:14px;">'.
					   ( $Row_CadMPG->MPG_FIN_CTR ?
						 '<span style="color:#FF5500; font-size:12px;">'.
						  '(Á prazo)'.        
						 '</span>'.           
					     '&nbsp;&nbsp;'       
					   : "").                 
					   //( $Row_CadMPG->MPG_P_TROCO ?
                   // '<span id="Q_CxaRec_Balao_Mod'.$nContadorTab.'" class="'.$oJanelaPrinc->sIdObj.'_Balao" style="display:none;">'.
    	           //   'Capturar valor restante: *<br>'.
						//  'Calculadora: 5*10=50, 6+14=20...'.
                   // '</span>'.          
                   // '<input type="image" style="position:relative; left:-30px;" src="./images/interroga.png" width="23px" height="23px" onclick="'."parent.Car_".$sNomeAcesso."5.Interroga_Img('Q_CxaRec_Balao_Mod".$nContadorTab."');".'">'
					   //: '').               
                    $Row_CadMPG->MPG_DESCRIC.':&nbsp;'.
                   '</td>'.               
                   '<td width="100px" valign="middle" align="left">'.
                    '<input tabIndex="'.$nContadorTab.'" name="Cxa_ModPag_'.$Row_CadMPG->MPG_CODIGOI.'" id="i_CxaRec_ModPag_'.$Row_CadMPG->MPG_CODIGOI.'" type="text" maxlength="60" value="'.( STRPOS(" ".$sOpcao_Mod,"INS_PRODUTO")==0 && $Row_CadMPG->MPG_P_TOTRE ? '*' : '0,00').'" style="font-size:14px; height:23px; width:97%;" onchange="'.$sJavInpR_OnBlur.'">'.
                   '</td>'.               
                  '</tr>'.                
                 '</table>'; 
          
          }
		    		  
		  //                              
		  $sJav_RmvFat =                  
		     JAVA_CharCode(               
			    "if (_NUM_BOT_==1) { ".   
	                 ( STRLEN($sCan_Senha)==0 ?
                      //"JanEspera(true, 'Cancelando a comanda... Aguarde...');".  // vai chamar a janela do motivo 
                      "setTimeout( function() { ".
                        //"document.forms.fmPCxaRec3.acao.value='CNTCAN';".
                        //"document.forms.fmPCxaRec3.ImpCup.value='';".
						//"document.forms.fmPCxaRec3.submit();".
                        $sJavaTravarJ.
					    "var fm = parent.document.forms.fmPCxaRec3;".
						"vAnt_SubMod = fm.submod.value;".
                        "vAnt_target = fm.target;".
                        "NomeQdrCar = vAnt_target;".
                        "NomeQdrCar = NomeQdrCar.substr(0,NomeQdrCar.length-1)+'9';".
                        "fm.target = NomeQdrCar;".
                        "fm.submod.value='CFM_MOTIVO_C_CMD'; ".
                        "fm.acao.value='';".
                        "fm.submit(); ".
                        "fm.target = vAnt_target;".
                        "fm.submod.value=vAnt_SubMod; ".
					  
					  "}, ".$nTmpFrmEnv.");"
					  
					  
					 :                    
                     $sJavaTravarJ.       
		   		     "var fm = parent.document.forms.fmPCxaRec3;".
                     "vAnt_SubMod = fm.submod.value;".
                     "vAnt_target = fm.target;".
                     "NomeQdrCar = vAnt_target;".
                     "NomeQdrCar = NomeQdrCar.substr(0,NomeQdrCar.length-1)+'6';".
                     "fm.target = NomeQdrCar;".
                     "fm.submod.value='PERM_CANCELAR'; ".
                     "fm.acao.value='';". 
                     "fm.submit(); ".     
                     "fm.target = vAnt_target;".
                     "fm.submod.value=vAnt_SubMod; "
					 ).                   
				"}"                       
		     );                           
		                                  
	      ARRAY_PUSH($oJanelaPrinc->aIdsObjList,
            'i_CxaRec_Taxa1', 'i_CxaRec_Taxa2','i_CxaRec_QtdPes','i_CxaRec_Descon','i_CxaRec_ValDesc','in_CxaEn_FunEnt',
			'in_Entrega_CodCli','bComboGorjeta','in_Gor_CodFun','i_CxaRec_CodBar','i_CxaRec_QtdIte','i_CxaRec_VlrIte'
          );                              
		  //Gorjeta                       
		  //Montar string para o campo combo de Funcionarios
          If( $bMovimento_Gor) {          
		    $strCampoFun = '<option value="0">-- Nenhum --</option>';
	        $Rows_CadFun = MYSQL_QUERY('SELECT * FROM cad_funcionario WHERE FUN_ATIVO_ = 1 ORDER BY FUN_NOMECP ASC;') or die(MYSQL_ERROR());
	        While ( $Rowt_CadFun = MYSQL_FETCH_OBJECT($Rows_CadFun) ) {
	            If ( $Rowt_CadFun->FUN_CODIGO > 9990 ) { CONTINUE; }
	            			              
				 $strCampoFun .=          
		            '<option value="'.$Rowt_CadFun->FUN_CODIGO.'">'.
		      	      Str_Zero($Rowt_CadFun->FUN_CODIGO,4).' - '.$Rowt_CadFun->FUN_NOMECP.
		            '</option>';          
	         }                            
	 	                                  
          }		       
          
		  //BALCAO - MONTAR COMBO DE FUNCIONARIOS
		  // Tela HTML                    
		  $sRet_TelaJ_HTML =              
             $oJanelaPrinc->MontaJanHTML(True).
             '<style type="text/css">'.   
	          CSS_Estilos(1,$oJanelaPrinc->sIdObj."_Balao").
            '*{'.                         
             '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: -80px;'.       
              'display: inline;'.         
              'margin-left: 180px;'.      
              '-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: 180px;'.      
              '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="fmPCxaRec3" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'2">'.
              '<input name="mod" type="hidden" value="'.$sModulo.'">'.
              '<input name="submod" type="hidden" value="'.$sSubModulo.'">'.
              '<input name="acao" type="hidden" value="">'.
              '<input name="nomeacs" type="hidden" value="'.$sNomeAcesso.'">'.
              '<input name="NumLocal" type="hidden" value="'.$nR_Local.'">'.
              '<input name="NumFatG" type="hidden" value="'.$nR_FatGe.'">'.
              '<input name="ImpCup" type="hidden" value="">'.
              '<input name="Fat_Item_CodI" type="hidden" value="">'.
              '<input name="Per_Desc" type="hidden" value="">'.
			 '</form>'.                   
             '<form name="fmPCxa_Fisc" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'6">'.
              '<input name="mod" type="hidden" value="">'.
              '<input name="submod" type="hidden" value="">'.
              '<input name="acao" type="hidden" value="">'.
    	      '<input name="nomeacs" type="hidden" value="">'.
              '<input name="Fat_CodigoI" type="hidden" value="">'.
             '</form>'.                     
             '<form name="fmPCxaRec2" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'9">'.
              '<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="NumLocal" type="hidden" value="'.$nR_Local.'">'.
              '<input name="NumFatG" type="hidden" value="'.$nR_FatGe.'">'.
			  '<input name="ModoCalc" type="hidden" value="0">'.
              '<input name="Fat_Item_CodI" type="hidden" value="">'.
			  '<input name="Tmp_CodBar" type="hidden" value="">'.
			  '<input name="Tmp_CupFisc" type="hidden" value="0">'.
             '<table width="100%">'.      
              '<tr>'.                     
               '<td width="380px" valign="top">'.
                // Parte dos produtos     
                '<div id="Q_CxaRec_Prods" style="width:100%; height:380px; background:#FFFFFF; border-style:solid; border-width:1px; border-color:#CCCCCC; overflow:auto;">'.
                  '<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0">'.
                     '<tr>'.              
                       '<td align="center" valign="middle" style="color:#555555;">'.
                            'Aguarde um momento...<br>'.
                            '<img src="images/img_load1.gif" border="0">'.
                       '</td>'.           
                     '</tr>'.             
                  '</table>'.             
                '</div>'.                 
				'<div style="height:2px;"></div>'.
				// div para poder inserir produto disk nao mostra
                '<div id="CxaRec_InsPro" style="display:none;">'.
                 '<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0">'.
                   '<tr>'.                
      	              '<td width="4px">&nbsp;</td>'.
                      '<td valign="middle" align="left" width="188px">'.
                         '<span style="font-size:14px;">'.
                            'Código de Barras:'.'&nbsp;'.
                         '</span>'.       
                         '<input type="image" src="images/interroga.png"  width="23px" height="23px" onclick="parent.Car_'.$sNomeAcesso.'5.Interroga(1)">'.
    	  	          '</td>'.            
    	  	          '<td valign="middle" align="left" width="75px">'.
                         '<input id="i_CxaRec_CodBar" tabindex="1" name="LrP_CodBar" type="text" maxlength="25" onblur="parent.Car_'.$sNomeAcesso.'5.ValidaCampos_2();" autocomplete="off" style="width:160px; height:22px; background:#FFFBEC; border-width:1px; border-style:solid; border-color:#0099FF;">'.
    	  	          '</td>'.            
    	  	          '<td width="8px">&nbsp;&nbsp;</td>'.
                      '<td valign="top" align="right" width="28px">'.
           	 	   		  HTML_Botao( 3, 'CxaRec_BT_Psq' , "document.getElementById('i_CxaRec_CodBar').value='/';".
			                                       'return Car_'.$sNomeAcesso.'5.AdicionaBar();'
                    	               , ''   ,'images/btimg_lupa.png',20).
    	  			  '</td>'.            
                   '</tr>'.               
                   '<tr height="8px">'.   
                      '<td width="4px">&nbsp;</td>'.
                      '<td colspan="2" valign="bottom" align="right" width="255px">'.
                        '<span id="spCxaRec_ProDescr" style="font-size:10px; font-weight:bold; color:#FF0000;"></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%" height="100%" border="0" cellspacing="0" cellpadding="0">'.
                  '<tr>'.                 
      	            '<td width="4px">&nbsp;</td>'.
                    '<td valign="bottom" align="left" width="65px" style="font-size:14px;">'.
                       'Quantidade:'.'&nbsp;'.
                    '</td>'.              
    	  	        '<td valign="bottom" align="left" width="100px">'.
    	  	           '<input id="i_CxaRec_QtdIte" tabindex="2" name="LrP_QtdIte" autocomplete="off" type="text" maxlength="25" onchange="parent.Car_'.$sNomeAcesso.'5.ValidaCampos_2();" style="width:60px; height:22px; background:#FFFBEC; border-width:1px; border-style:solid; border-color:#0099FF;">'.
    	  	        '</td>'.              
      	            '<td valign="bottom" align="right" width="188px" style="font-size:14px;">'.
                       'Preço unitário:'. 
                    '</td>'.              
    	  	        '<td valign="bottom" align="right" width="90px">'.
    	  	           '<input id="i_CxaRec_VlrIte" tabindex="3" autocomplete="off" name="LrP_VlrIte" type="text" maxlength="25" onchange="parent.Car_'.$sNomeAcesso.'5.ValidaCampos_2();" style="width:70px; height:22px; background:#FFFBEC; border-width:1px; border-style:solid; border-color:#0099FF;">'.
    	  	        '</td>'.              
                    '<td width="8px">&nbsp;&nbsp;</td>'.
    	  	        '<td valign="bottom" align="right" width="28px">'.
           	 	   		  HTML_Botao( 3, 'CxaRec_BT_Adc' , "Car_".$sNomeAcesso."5.AdicionaBar();"
          				               , ''   ,'images/btimg_novo.png',20).
    	  			'</td>'.              
      	            //'<td align="left">'.
    	  	        //'</td>'.            
                  '</tr>'.                
                 '</table>'.              
                '</div>'.                 
                //                        
                // Mudado de lugar por causa  Restaurante Mel - 
                //       para poder jogar Inserir Produto
                /*  HTML_Botao( 3, 'objCxaRec_BT_ALC',  $sJavaTravarJ.
                                                      "document.forms.fmPCxaRec2.acao.value=''; ".
                                                      "document.forms.fmPCxaRec2.submod.value='JUNTAR_LOCAL'; ".
                                                      "NomeQdrCar = document.forms.fmPCxaRec2.target;".
                                                      "NomeQdrCarA = NomeQdrCar;".
                                                      "NomeQdrCar = NomeQdrCar.substr(0,NomeQdrCar.length-1)+'10';".
                                                      "document.forms.fmPCxaRec2.target = NomeQdrCar;".
                                                      "document.forms.fmPCxaRec2.submit();".
                                                      "document.forms.fmPCxaRec2.submod.value='".$sSubModulo."'; ".
                                                      "document.forms.fmPCxaRec2.target = NomeQdrCarA; "
                               , 'Juntar '.STRTOLOWER($sTipoLocal).' (F7)' ,'images/btimg_novo.png').
				                          
                    '</div>'.*/           
                //'<div id="Q_CxaRec_BInf1" style="width:100%; height:30px;"></div>'.
                //                        
                '</td>'.                  
                '<td valign="top">'.      
                // Fechamento de conta    
				'<div id="dv_CxaRec_Part1" style="display:none;">'.
				 '<div style="width:100%; background-color:#0066FF;">'.
                  '<table width="100%">'. 
                   '<tr>'.                
                    '<td width="150px" style="font-size:13px; color:#FFFFFF;" align="right" valign="middle">'.
                     'Total dos produtos (+):'.
                    '</td>'.              
                    '<td width="110px" style="font-weight:bold; font-size:12px; color:#FFFFFF;">'.
                     'R$ <span id="s_CxaRec_TotProd">0,00</span>'.
                    '</td>'.              
                    '<td width="140px" style="font-size:13px;" align="right" valign="middle">'.
                    '</td>'.              
                    '<td></td>'.          
                   '</tr>'.               
				  '</table>'.             
				 '</div>'.                
                 '<table width="100%">'.  
                  '<tr>'.                 
                   '<td height="2px;" width="150px" style="font-size:13px;" align="right" valign="middle">'.
                   '</td>'.               
                   '<td width="110px" style="font-weight:bold; font-size:12px;">'.
                   '</td>'.               
                   '<td width="140px" style="font-size:13px;" align="right" valign="middle">'.
                   '</td>'.               
                   '<td></td>'.           
                  '</tr>'.                
                  '<tr>'.                 
                   '<td style="font-size:13px;" align="right" valign="middle">'.
                    'Taxa do serviço (+):'.
                   '</td>'.               
                   '<td>'.                
                    '<span style="font-weight:bold; font-size:12px;">R$ <span id="s_CxaRec_Taxa1">0,00</span></span>'.
                   '</td>'.               
                   '<td style="font-size:11px;" align="right" valign="middle">'.
                    'Taxa de serviço: '.  
                   '</td>'.               
                   '<td style="font-size:11px;" align="left" valign="middle">'.
                     //'<input id="i_CxaRec_Taxa1" tabindex="4"  name="R_Taxa1" type="text" maxlength="5" onkeydown="'.$oJanelaPrinc->sJavKeyDown.'" value="'.SQLVarConfig('GARCOM_GAR_COMISSAO').'%" disabled onchange="'.$sJavInpR_OnBlur.'" style="font-size:13px; height:21px; width:55px;">'.
				     '<input id="i_CxaRec_Taxa1" tabindex="4"  name="R_Taxa1" type="text" maxlength="5" onkeydown="'.$oJanelaPrinc->sJavKeyDown.'" value="'.$nTaxa_Promocao.'%" disabled onchange="'.$sJavInpR_OnBlur.'" style="font-size:13px; height:21px; width:55px;">'.
				   '</td>'.               
                  '</tr>'.                
                  '<tr>'.                 
                   '<td style="font-size:13px;" align="right" valign="middle">'.
                    'Total do couver (+):'.
                   '</td>'.               
                   '<td style="font-size:12px; font-weight:bold;">'.
                    '<span id="s_CxaRec_TotCov">0,00</span>'.
                   '</td>'.               
                   '<td style="font-size:11px;" align="right" valign="middle">'.
                    'Taxa de couver:'.    
                   '</td>'.               
                   '<td style="font-size:11px;" align="left" valign="middle">'.
                    '<input id="i_CxaRec_Taxa2" tabindex="5" name="R_Taxa2" type="text" maxlength="7" onkeydown="'.$oJanelaPrinc->sJavKeyDown.'" value="0,00" disabled onchange="'.$sJavInpR_OnBlur.'" style="font-size:13px; height:21px; width:55px;">'.
                   '</td>'.               
                  '</tr>'.                
                  '<tr>'.                 
                   '<td colspan="2"></td>'.
                   '<td style="font-size:11px;" align="right" valign="middle">'.
                    'Quantidade pessoas: '.
                   '</td>'.               
                   '<td style="font-size:11px;" align="left" valign="middle">'.
                    '<input id="i_CxaRec_QtdPes" tabindex="6" name="R_QtdPes" type="text" maxlength="3" onkeydown="'.$oJanelaPrinc->sJavKeyDown.'" value="'.$aSessao[$sNomeAcesso.'_FAT_QTD_PES'].'" disabled onchange="'.$sJavInpR_OnBlur.'" style="font-size:13px; height:21px; width:55px;">'.
                   '</td>'.               
                  '</tr>'.                
				 '</table>'.              
				 '<div style="height:6px;"></div>'.
				 '<div style="height:1px; background-color:#00CCFF"></div>'.
				 '<div style="height:6px;"></div>'.
				'</div>'.                 
				//                        
				'<div id="dv_CxaRec_Part2">'.
                 '<table width="100%">'.  
				  '<tr>'.                 
                   '<td width="150px"></td>'.
                   '<td width="110px"></td>'.
                   '<td width="140px"></td>'.
                   '<td></td>'.           
				  '</tr>'.                
                  '<tr id="tr_CxaRec_Subtot">'.
                   '<td align="right" valign="middle" style="font-size:13px;">'.
                    'Subtotal (+):'.      
                   '</td>'.               
                   '<td align="left" valign="middle" style="font-size:14px; font-weight:bold; color:#444444;">'.
                    '<span id="s_CxaRec_SubTot">R$ 0,00</span>'.
                   '</td>'.               
				  '</tr>'.                
                  '<tr id="tr_CxaRec_Descon">'.
                   '<td style="font-size:13px;" align="right" valign="middle">'.
                    'Desconto (-):'.      
                   '</td>'.               
                   '<td align="left" style="font-size:14px; color:#0000CC;" valign="middle">'.
				    '<span id="s_CxaRec_VlrDsc">R$ 0,00</span>'.
                   '</td>'.               
				   '<td align="right" valign="middle" style="font-size:11px;">'.
                    'Desconto %:<input id="i_CxaRec_Descon"  name="R_Descon" type="text" maxlength="6" value="0" onchange="'.$sJavInpR_OnBlur.'" style="font-size:13px; height:21px; width:50px;">'.
					' = '.                
				   '</td>'.               
				   '<td align="left" valign="middle" style="font-size:11px;">'.
					'R$ <input id="i_CxaRec_ValDesc" name="V_Descon"  type="text" maxlength="12" value="0,00" onchange="'.$sJavInpR_OnBlur.'" style="font-size:13px; height:21px; width:60px;">'.
				   '</td>'.               
                  '</tr>'.                
				  '<tr><td height="4px" style="font-size:1px;">&nbsp;</td></tr>'.
                  '<tr>'.                 
                   '<td style="font-size:13px; font-weight:bold;" align="right" valign="middle">'.
                    'Valor total da '.STRTOLOWER($sTipoLocal).':'.
                   '</td>'.               
                   '<td align="left" style="font-size:26px; font-weight:bold; color:#770000;">'.
                    '<span id="s_CxaRec_VlrTot">R$ 0,00</span>'.
                   '</td>'.               
                   '<td style="font-size:12px;" align="right" valign="middle">'.
                    'Valor para cada pessoa:'.
                   '</td>'.               
                   '<td style="font-size:12px; font-weight:bold;" align="left" valign="middle">'.
                    '<span id="s_CxaRec_VlrPes">0,00</span>'.
                   '</td>'.               
                  '</tr>'.                
				  // Entregador           
                  '<tr id="tr_CxaEn_FunEnt" style="display:none;">'.
                   '<td style="font-size:13px;" align="right" valign="middle">'.
                    'Entregador:'.        
                   '</td>'.               
                   '<td align="left" colspan="3" style="font-size:15px; font-weight:bold; color:#AA0000;">'.
			         '<select id="in_CxaEn_FunEnt" name="in_Fun_Cod_Ent"  style="width:300px; font-size:11px; font-family:Courier; border:1px solid #CCCCCC;">'.
                     '</select>'.         
                   '</td>'.               
                  '</tr>'.                
				  // Cliente              
                  '<tr id="tr_Entrega_Client">'.
                     '<td style="font-size:13px;" align="right" valign="middle">'.
					    ( $bCliente_FatGer ? 'Cliente vinculado:' : 'Marcar para o cliente:' ).
                        '<input type="image" style="position:relative; left:5px;" src="./images/interroga.png" width="20px" height="20px" onclick="'."parent.Car_".$sNomeAcesso."5.Interroga_Img('Q_CxaRec_Balao_Mod');".'">'.'&nbsp;&nbsp;'.
                        '<span id="Q_CxaRec_Balao_Mod" class="'.$oJanelaPrinc->sIdObj.'_Balao" style="display:none;">'.
    	                   'Ex: <br>'.
				           '13 ou<br>'.
				           '998772190'.
                        '</span>'.
					 '</td>'.
                     '<td align="left" colspan="3" style="font-size:12px; font-weight:bold; color:#666666;">'.
				        '<input id="in_Entrega_CodCli" name="in_Cod_Cli" tabindex="7" type="text" maxlength="30" value="" onchange="return Car_'.$sNomeAcesso.'5.Valida_Cliente();" style="font-size:12px; width:80px;"'.( $bCliente_FatGer ? "readonly" : "").'>'.
					    '&nbsp;&nbsp;'.
                           HTML_Botao( 3, 'CxaRec_BT_Psq_1' , "document.getElementById('in_Entrega_CodCli').value='/';".
			                                                'return Car_'.$sNomeAcesso.'5.Valida_Cliente();'
                                        , ''   ,'images/btimg_lupa_2.png',20).'&nbsp;&nbsp;'.
				        '<span id="sp_Entrega_NomCli"></span>'.
                     '</td>'.               
                  '</tr>'.                
				  //GORJETA               
				  ( $bMovimento_Gor ?     
				   '<tr id="tr_Opc_Gorjeta">'. 
				     '<td height="25px" align="right" style="font-size: 12px;">'.
 		               '&nbsp;&nbsp;&nbsp;'.
		               'Grava troco como gorjeta:&nbsp;&nbsp;'.
                     '</td>'.             
		             '<td height="" align="left" style="font-size: 12px;">'.
		               '<select id="bComboGorjeta" style="font-size: 13px;" onchange="'.
					     "var TR = document.getElementById('tr_Gor_CodFun');".
					     "if (this.value==1){".
							 "TR.style.display='';".
						 "} else {".      
						     "TR.style.display='none';".
						     "document.getElementById('in_Gor_CodFun').value='0';".
						                  
						 "}".             
					   '">'.              
                         '<option value="0">N&atilde;o</option>'.
                         '<option value="1">Sim       </option>'.   
                       '</select>'.       
		             '</td>'.             
	                '</tr>'.              
				    '<tr id="tr_Gor_CodFun" style="display:none;">'.
                     '<td style="font-size:13px;" align="right" valign="middle">'.
                       'Funcionário:'.    
                     '</td>'.             
                     '<td align="left" colspan="3" style="font-size:12px; font-weight:bold; color:#666666;">'.
					  '<select id="in_Gor_CodFun" name="in_Cod_Fun" style="font-size:12px; width:200px;">'.
					   $strCampoFun.      
					  '</select>'.        
                     '</td>'.             
                   '</tr>' :              
				  '').                    
		    	  //                      
				  '</table>'.             
				'</div>'.                 
                '<div style="height:5px;"></div>'.
				// Parte dos pagamentos parciais
				'<div id="dv_CxaRec_Part3">'.
				'</div>'.                 
                '<div style="height:5px;"></div>'.
                // Parte da Modalidade    
                '<div id="Q_CxaRec_LstModPag" style="display:none; width:100%; background:#FFFFFF; border-style:solid; border-width:1px; border-color:#CCCCCC;">'.
                 '<table width="100%" height="25px" style="background:#0066FF;">'.
                  '<tr>'.                 
                   '<td width="15px">&nbsp;</td>'.
                   '<td align="left" style="font-size:18px; color:#FFFFFF;">'.
                    '<input type="image" style="position:relative; left:-10px;" src="./images/interroga.png" width="23px" height="23px" onclick="'."parent.Car_".$sNomeAcesso."5.Interroga_Img('Q_CxaRec_Balao_Mod');".'">'.
                    'Modalidades'.        
                    '<span id="Q_CxaRec_Balao_Mod" class="'.$oJanelaPrinc->sIdObj.'_Balao" style="display:none;">'.
    	              'Capturar valor restante: *<br>'.
					  'Calculadora: 5*10=50, 6+14=20...'.
                    '</span>'.            
                   '</td>'.               
                   '<td align="right" width="290px">'.
                      '<span id="s_CxaRec_VlrTroPa">R$ 0,00</span>'.
				      '&nbsp;&nbsp;&nbsp;'.
					  '<span id="sp_CxaRec_ValorTotRec" style="font-weight:bold; font-size:26px; color:#FFFFFF;">R$ 0,00</span>'.
          	          '</td>'.               
                   '<td width="15px">&nbsp;</td>'.
                  '</tr>'.                
                 '</table>'.              
                 '<div style="width:100%; height:257px; overflow:auto;">'.$sCampos_ModPag.'</div>'.
                '</div>'.                 
				//                        
				'<div style="height:8px;"></div>'.
                '<div id="Q_CxaRec_BInf2" style="width:100%;" align="center"></div>'.
               '</td>'.                   
              '</tr>'.                    
             '</table>'.                  
             '</form>'.                   
             '<table width="100%" style="background:#0044BB;">'.
              '<tr>'.                     
			   '<td width="50%" valign="middle" height="25px">'.
                '<div id="Q_CxaRec_BInf1" style="width:100%;" align="center"></div>'.
			   '</td>'.                   
			   '<td valign="middle">'.    
                '<div id="Q_CxaRec_BInf3" style="width:100%;" align="right"></div>'.
			   '</td>'.                   
			  '</tr>'.                    
			 '</table>'.                  
			 '<div style="height:2px;"></div>'.
			 //                           
             '<table width="100%" style="background-color:'.$sCorBarraInf.';"></tr>'.
              '<td width="4px" height="40px" align="left" style="font-size:1px;">&nbsp;</td>'.
              '<td align="left">'.        
               '<span id="P_CxaRec_BtFec" style="display:none;">'.
                 HTML_Botao( 3, 'objCxaRec_BT_FecCnt1', "JanEspera(true, 'Imprimindo o cupom... Aguarde...');".
			                                             "setTimeout( function() { ".
                                                          "document.forms.fmPCxaRec3.acao.value='CNTFEC';".
                                                          "document.forms.fmPCxaRec3.ImpCup.value='1';".
                                                          "document.forms.fmPCxaRec3.submit(); ".
			   										  "}, ".$nTmpFrmEnv.");"
                              , 'Fechar e imprimir(F8)' ,'images/btimg_imp.png', 178).
			    '&nbsp;'.                 
                HTML_Botao( 3, 'objCxaRec_BT_FecCnt0', "JanEspera(true, 'Fechando a conta... Aguarde...');".
			                                             "setTimeout( function() { ".
                                                          "document.forms.fmPCxaRec3.acao.value='CNTFEC';".
                                                          "document.forms.fmPCxaRec3.ImpCup.value='0';".
                                                          "document.forms.fmPCxaRec3.submit(); ".
			   										    "}, ".$nTmpFrmEnv.");"
                              , 'Fechar sem imprimir(F9)' ,'images/btimg_ativar.png', 188).
               '</span>'.                 
                HTML_Botao( 3, 'objCxaRec_BT_Rec', "JanEspera(true, 'Processando o recebimento da conta... Aguarde...');".
			                                       "parent.".$sJava_Desfoca_Input.
				                                   "setTimeout( function() { ".
                                                     "document.forms.fmPCxaRec2.acao.value='RECFAT'; ".
                                                     "NomeQdrCar = document.forms.fmPCxaRec2.target;".
                                                     "NomeQdrCarA = NomeQdrCar;".
                                                     "NomeQdrCar = NomeQdrCar.substr(0,NomeQdrCar.length-1)+'6';".
                                                     "document.forms.fmPCxaRec2.target = NomeQdrCar;".
                                                     "document.forms.fmPCxaRec2.submit();".
                                                     "document.forms.fmPCxaRec2.target = NomeQdrCarA; ".
												   "}, ".$nTmpFrmEnv.");"
                            , 'Receber conta(F10)' ,'images/btimg_dinheiro.png', 158).
			   '&nbsp;'.                  
               (  $nTipoFiscal ? 
			      HTML_Botao( 3, 'objCxaRec_BT_Cup', "JanEspera(true, 'Processando o recebimento da conta... Aguarde...');".
			                                         "parent.".$sJava_Desfoca_Input.
				                                     "setTimeout( function() { ".
													    "document.forms.fmPCxaRec2.Tmp_CupFisc.value='1';".
                                                        "document.forms.fmPCxaRec2.acao.value='RECFAT'; ".
                                                        "NomeQdrCar = document.forms.fmPCxaRec2.target;".
                                                        "NomeQdrCarA = NomeQdrCar;".
                                                        "NomeQdrCar = NomeQdrCar.substr(0,NomeQdrCar.length-1)+'6';".
                                                        "document.forms.fmPCxaRec2.target = NomeQdrCar;".
                                                        "document.forms.fmPCxaRec2.submit();".
													    "document.forms.fmPCxaRec2.target = NomeQdrCarA; ".
												     "}, ".$nTmpFrmEnv.");"
                               , 'Cupom (F6)' ,'images/btimg_fiscal_ecf.png', 158).
			   '&nbsp;'
			   :
			     ""
			   ).
			   HTML_Botao( 3, 'objCxaRec_BT_Imp', "JanEspera(true, 'Reimprimindo a conta... Aguarde...');".
				                                   "setTimeout( function() { ".
                                                    "document.forms.fmPCxaRec3.acao.value='CNTFEC';".
                                                    "document.forms.fmPCxaRec3.ImpCup.value='2';".
                                                    "document.forms.fmPCxaRec3.submit(); ".
												   "}, ".$nTmpFrmEnv.");"
                            , 'Reimprimir(F9)' ,'images/btimg_imp.png', 138).
			   '&nbsp;'.                  
               HTML_Botao( 3, 'objCxaRec_BT_RAb', "JanEspera(true, 'Reabrindo a conta... Aguarde...');".
				                                   "setTimeout( function() { ".
                                                    "document.forms.fmPCxaRec3.acao.value='CNTRAB';".
                                                    "document.forms.fmPCxaRec3.ImpCup.value='';".
                                                    "document.forms.fmPCxaRec3.submit(); ".
												   "}, ".$nTmpFrmEnv.");"
                            , 'Reabrir comanda(F8)' ,'images/btimg_garexp.png', 178).
               HTML_Botao( 3, 'objCxaRec_BT_PgP',  $sJavaTravarJ.
			                                       "document.forms.fmPCxaRec2.acao.value=''; ".
			                                       "document.forms.fmPCxaRec2.submod.value='PAG_PARCIAL'; ".
                                                   "NomeQdrCar = document.forms.fmPCxaRec2.target;".
                                                   "NomeQdrCarA = NomeQdrCar;".
                                                   "NomeQdrCar = NomeQdrCar.substr(0,NomeQdrCar.length-1)+'6';".
                                                   "document.forms.fmPCxaRec2.target = NomeQdrCar;".
                                                   "document.forms.fmPCxaRec2.submit();".
			                                       "document.forms.fmPCxaRec2.submod.value='".$sSubModulo."'; ".
                                                   "document.forms.fmPCxaRec2.target = NomeQdrCarA; ".
												   ""
                            , 'Parcial(F12)' ,'images/btimg_dinheiro.png', 118).
			   '&nbsp;'.                  
               HTML_Botao( 3, 'objCxaRec_BT_CaC',  "s_Alerta_Ant_Focus = 'i_CxaRec_Taxa1'; ".
			                                       "Qdr_Prompt_H(true,'Tem certeza que deseja CANCELAR esta comanda?',".$sJav_RmvFat.",['Sim','Não']);".
												   ""
                            , 'Cancelar(F4)' ,'images/btimg_remover.png', 120).
               '&nbsp;'.                  
			   //' Mudado de lugar por causa  Restaurante Mel - 
               //       para poder jogar Inserir Produto
               //'<div style="width:100%;" align="center">'.
                  HTML_Botao( 3, 'objCxaRec_BT_ALC',  $sJavaTravarJ.
                                                      "document.forms.fmPCxaRec2.acao.value=''; ".
                                                      "document.forms.fmPCxaRec2.submod.value='JUNTAR_LOCAL'; ".
                                                      "NomeQdrCar = document.forms.fmPCxaRec2.target;".
                                                      "NomeQdrCarA = NomeQdrCar;".
                                                      "NomeQdrCar = NomeQdrCar.substr(0,NomeQdrCar.length-1)+'10';".
                                                      "document.forms.fmPCxaRec2.target = NomeQdrCar;".
                                                      "document.forms.fmPCxaRec2.submit();".
                                                      "document.forms.fmPCxaRec2.submod.value='".$sSubModulo."'; ".
                                                      "document.forms.fmPCxaRec2.target = NomeQdrCarA; "
                               , 'Juntar '.'(F7)' ,'images/btimg_novo.png', 130).
				//'</div>'.               
               '&nbsp;'.                  
               // RESTAURANTE MEL         
               //HTML_Botao( 3, 'objCxaRec_BT_LrP',  $sJavaTravarJ.
			   //                                    "return Car_".$sNomeAcesso."5.Inserir_Produto();"
               //             , 'Adicionar(INS)','images/btimg_novo.png',120).
			   '&nbsp;'.                  
			  '</td>'.                    
              '<td width="120px" align="left">'.
               HTML_Botao( 3, 'objCxaRecM_BT_Fch', $oJanelaPrinc->sJavOnClickF
                            , 'Sair(ESC)' ,'images/btimg_fechar.png').
              '</td>'.                    
             '</tr></table>'.             
             //                           
             $oJanelaPrinc->MontaJanHTML(False);
          //                              
          // Java anterior                
          $sRet_Javs .=                   
		  "function Teclas_F( Objeto, Evento ) {".
			  "vNumTecla = parent.Tecla_Apertada(Evento);".
			  "if ( vNumTecla==123) { ".              //  ** [F12] **
				  "if ( parent.document.getElementById('objCxaRec_BT_PgP').style.display!='none') {".           // (Pagamento Parcial)
			         "parent.".$sJava_Desfoca_Input.
			         //"parent.JanEspera(true, 'Fechando conta... Aguarde...');".
			         "setTimeout( function() { ".$sJavInpR_ParCal." }, 50);".
			         "setTimeout( parent.document.getElementById('objCxaRec_BT_PgP').onclick , 200);".
				  "}".                    
			  "} else if ( vNumTecla==45) { ".              //  ** [INS] **
				  //"if ( parent.document.getElementById('objCxaRec_BT_LrP').style.display!='none') {".           // (Lançamento Rapido de Produto)
			      //   "parent.".$sJava_Desfoca_Input.
			      //   "setTimeout( function() { ".$sJavInpR_ParCal." }, 50);".
			      //   "setTimeout( parent.document.getElementById('objCxaRec_BT_LrP').onclick , 200);".
				  //"}".                  
				                          
			  "} else if ( vNumTecla==121) { ".       //  ** [F10] **
				  "if ( parent.document.getElementById('objCxaRec_BT_Rec').style.display!='none') {".           // (Receber conta)
			         "parent.".$sJava_Desfoca_Input.
			         "parent.JanEspera(true, 'Fechando conta... Aguarde...');".
			         "setTimeout( function() { ".$sJavInpR_ParCal." }, 50);".
			         "setTimeout( parent.document.getElementById('objCxaRec_BT_Rec').onclick , 500);".
				  "}".                    
			  "} else if ( vNumTecla==117) { ".       //  ** [F6] **
				  (  $nTipoFiscal ? 	
				  "if ( parent.document.getElementById('objCxaRec_BT_Cup').style.display!='none') {".           // (Receber conta com cupom fiscal)
			         "parent.".$sJava_Desfoca_Input.
			         "parent.JanEspera(true, 'Fechando conta... Aguarde...');".
			         "setTimeout( function() { ".$sJavInpR_ParCal." }, 50);".
			         "setTimeout( parent.document.getElementById('objCxaRec_BT_Cup').onclick , 500);".
				  "}"
				  :
				  "").
			  "} else if ( vNumTecla==120) { ".       // ** [F9] **
			      "if (parent.document.getElementById('P_CxaRec_BtFec').style.display!='none') {".              // (Fechar sem imprimir conta)
			         "parent.".$sJava_Desfoca_Input.
			         "parent.JanEspera(true, 'Fechando sem imprimir... Aguarde...');".
			         "setTimeout( function() { ".$sJavInpR_ParCal." }, 50);".
			         "setTimeout( parent.document.getElementById('objCxaRec_BT_FecCnt0').onclick , 1000);".
			      "} else if (parent.document.getElementById('objCxaRec_BT_Imp').style.display!='none') {".     // (Reimprimir conta)
			          "parent.".$sJava_Desfoca_Input.
			          "parent.JanEspera(true, 'Aguarde...');".
			          "setTimeout( function() { ".$sJavInpR_ParCal." }, 50);".
			          "setTimeout( parent.document.getElementById('objCxaRec_BT_Imp').onclick , 500);".
				  "}".                    
			  "} else if ( vNumTecla==118) { ".       // ** [F7] **
			      "if (parent.document.getElementById('objCxaRec_BT_ALC').style.display!='none') {".            // (Juntar mesa ou comanda)
			         "parent.".$sJava_Desfoca_Input.
			         //"JanEspera(true, 'Cancelando cupom... Aguarde...');".
			         "setTimeout( parent.document.getElementById('objCxaRec_BT_ALC').onclick , 100);".
			      "}".                    
			  "} else if ( vNumTecla==119) { ".       // ** [F8] **
			      "if (parent.document.getElementById('P_CxaRec_BtFec').style.display!='none') {".              // (Fechar e imprimir conta)
			         "parent.".$sJava_Desfoca_Input.
			         "parent.JanEspera(true, 'Fechando conta... Aguarde...');".
			         "setTimeout( function() { ".$sJavInpR_ParCal." }, 50);".
			         "setTimeout( parent.document.getElementById('objCxaRec_BT_FecCnt1').onclick , 500);".
			      "} else if (parent.document.getElementById('objCxaRec_BT_RAb').style.display!='none') {".     // (Reabrir conta)
			          "parent.".$sJava_Desfoca_Input.
			          "parent.JanEspera(true, 'Aguarde...');".
			          "setTimeout( function() { ".$sJavInpR_ParCal." }, 50);".
			          "setTimeout( parent.document.getElementById('objCxaRec_BT_RAb').onclick , 500);".
			      "}".                    
			  "} else if ( vNumTecla==115) { ".       // ** [F4] **
			      "if (parent.document.getElementById('objCxaRec_BT_CaC').style.display!='none') {".            // (Cancelar cupom ou conta)
			         "parent.".$sJava_Desfoca_Input.
			         //"JanEspera(true, 'Cancelando cupom... Aguarde...');".
			         "setTimeout( function() { ".$sJavInpR_ParCal." }, 50);".
			         "setTimeout( parent.document.getElementById('objCxaRec_BT_CaC').onclick , 100);".
			      "}".                    
		      "} else if ( vNumTecla==13 ) { ".       // [ENTER]
                 //"if ( parent.document.getElementById('i_CxaRec_CodBar').value >0 ) {".
                 //    "setTimeout( parent.document.getElementById('CxaRec_BT_Psq').onclick , 500);". 
                 //"}".                   
                 //                       
		      "} else if ( vNumTecla==116) { ".       // ** [F5] **     Não atualizar
			      //                      
			  "} else if ( vNumTecla==27 ) { ".       // [ESC]
			      "parent.".$sJava_Desfoca_Input.
			      "setTimeout( parent.document.getElementById('objCxaRecM_BT_Fch').onclick , 10);".
			  "} else {".                 
				  "return true;".         
			  "} ".                       
	          "return false;".            
          "}".                            
          //
         //
		  "function Teclas_F2( Objeto, Evento ) {".
			  "vNumTecla = parent.Tecla_Apertada(Evento);".
		      "if ( vNumTecla==13 ) { ".       // [ENTER]
			     "while (true) {".        
				    "sTempId = parent.Proximo_TabObj(parent.document.getElementById('".$oJanelaPrinc->sIdObj."'),parent.sIdHasFocus);".
                    "if (parent.sIdHasFocus=='i_CxaRec_CodBar') {".
					    "var CodBar=parent.document.getElementById('i_CxaRec_CodBar').value;".
						"if (CodBar.length==0) {".
						    'var iTaxa1 = parent.document.getElementById("i_CxaRec_Taxa1");'.
		     		        'if ( ! iTaxa1.disabled ) {'.
		                        'iTaxa1.focus();'.
		                        'iTaxa1.select();'.
			                '}'.
		      			"} else {".       
						   "sTempValue = ' '+parent.document.getElementById('i_CxaRec_CodBar').value;".
    	                   "if ( ( sTempValue.indexOf(',')>0 || sTempValue.indexOf('*')>0 || sTempValue.indexOf('/')>0 ) && parent.document.getElementById('CxaRec_BT_Adc').style.display != 'none') {".
					         "setTimeout( parent.document.getElementById('CxaRec_BT_Adc').onclick , 100);".
					       "} else {".    
     	                      "parent.document.getElementById(sTempId).focus();".
						   "}".           
						"}".              
						'break;'.         
                    "} else if (parent.sIdHasFocus=='i_CxaRec_VlrIte') {".
                       	'parent.document.getElementById("i_CxaRec_CodBar").focus();'.
						"if ( parent.document.getElementById('CxaRec_BT_Adc').style.display != 'none') {".
				            "setTimeout( parent.document.getElementById('CxaRec_BT_Adc').onclick , 100);".
					    "}".			        
                        'break;'.         
                    "} else if ( sTempId.length>0 ) {".
                    	"parent.document.getElementById(sTempId).focus();".
                        "if (sTempId == parent.sIdHasFocus ) {".
                   		    "break;".      
						"}".              
						"parent.sIdHasFocus=sTempId;".
                      
					"} else {".           
				    	"if ( parent.document.getElementById('CxaRec_InsPro').style.display == 'none') {".
						   //"sTempId = parent.Proximo_TabI(parent.document.getElementById('".$oJanelaPrinc->sIdObj."'),'i_CxaRec_CodBar');".	
						   "parent.document.getElementById('".$aSessao[$sNomeAcesso.'_CXA_PRIMEIRA_MODPAG']. "').focus();".
						   //'parent.document.getElementById(sTempId).focus();'.
						"} else {".	
						   'parent.document.getElementById("i_CxaRec_CodBar").focus();'.
						"}".	
						'break;'.
				    "}".                  
				 "}".                     
                                          
              "} else {".                 
			     "return true;".          
		      "}".                        
	          "return false;".            
          "}".                            
           //div inserir produto          
           "function ValidaCampos_2() {". 
             "var _fm = parent.document.forms.fmPCxaRec2;".
		     "TargetAnt = _fm.target;".   
		     "_fm.target='car_".$sNomeAcesso.'8'."';".
             "_fm.LrP_CodBar.value=parent.document.getElementById('i_CxaRec_CodBar').value;".
		     "_fm.LrP_QtdIte.value=parent.document.getElementById('i_CxaRec_QtdIte').value;".
		     "_fm.LrP_VlrIte.value=parent.document.getElementById('i_CxaRec_VlrIte').value;".
             "_fm.acao.value='VALIDACAM'; ".
             "_fm.submit();".             
	         "_fm.target=TargetAnt;".     
          "}".                            
          "function AdicionaBar() {".     
          	 "var fm = parent.document.forms.fmPCxaRec2;".
             "fm.Tmp_CodBar.value=parent.document.getElementById('i_CxaRec_CodBar').value;".
			 "if ( fm.Tmp_CodBar.value.length>0 ) {".
			     "parent.document.getElementById('CxaRec_BT_Adc').style.display='none';". 
			 "}".                         
			 "fm.acao.value='BAR_ADC';".  
			 "stmp = fm.target;".         
			 "fm.target='car_".$sNomeAcesso."7';".
             "fm.submit(); ".             
			 "fm.target = stmp;".         
          "}".                            
          "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 Valida_Cliente() {'.  
		     "var fm = parent.document.forms.fmPCxaRec2;".
             "fm.acao.value='VALIDA_CLIENTE';".
			 "stmp = fm.target;".         
			 "fm.target='car_".$sNomeAcesso."8';".
             "fm.submit(); ".             
			 "fm.target = stmp;".         
		  '}'.
		  //
		  "function Interroga_Img(sObjeto) {".
             "if ( parent.document.getElementById(sObjeto).style.display == 'none') {".
                'parent.document.getElementById(sObjeto).style.display="inline";'. 
             "} else {".                   
                'parent.document.getElementById(sObjeto).style.display="none";'. 
             "}".                          
          "}".                            
		  //
          'function Valida_Garcom() {'.   
		     "var fm = parent.document.forms.fmPCxaRec2;".
             "fm.acao.value='VALIDA_GARCOM';".
			 "stmp = fm.target;".         
			 "fm.target='car_".$sNomeAcesso."8';".
             "fm.submit(); ".             
			 "fm.target = stmp;".         
		  '}'.                            
          "function Interroga_Img(sObjeto) {".
            "if ( parent.document.getElementById(sObjeto).style.display == 'none') {".
              'parent.document.getElementById(sObjeto).style.display="inline";'. 
            "} else {".                   
              'parent.document.getElementById(sObjeto).style.display="none";'. 
            "}".                          
          "}".                            
		  "function Inserir_Produto() {". 
            "parent.document.forms.fmPCxaRec2.acao.value=''; ".
            "parent.document.forms.fmPCxaRec2.submod.value='INS_PRODUTO'; ".
            "NomeQdrCar = parent.document.forms.fmPCxaRec2.target;".
            "NomeQdrCarA = NomeQdrCar;".  
            "NomeQdrCar = NomeQdrCar.substr(0,NomeQdrCar.length-1)+'6';".
            "parent.document.forms.fmPCxaRec2.target = NomeQdrCar;".
            "parent.document.forms.fmPCxaRec2.submit();".
            "parent.document.forms.fmPCxaRec2.submod.value='".$sSubModulo."'; ".
            "parent.document.forms.fmPCxaRec2.target = NomeQdrCarA; ".
          "}".                            
		  "function Cupom_Fiscal(sFat_CodigoI) {".
		    "FmF = parent.document.forms.fmPCxa_Fisc;".
		    ( $nTipoFiscal ?             
		      "FmF.target = 'car_FISECF3';".
		      "FmF.mod.value = 'fiscal_ecf';".
              "FmF.acao.value='_CXA_REC_';".
              "FmF.submod.value='ECF_CUPOM';".
              "FmF.nomeacs.value='FISECF';".
              "FmF.Fat_CodigoI.value=sFat_CodigoI;".
		      //"parent.sIdHasFocus = 'i_CxaRec_NumLoc;'".
			  //tirado pergunta e colocado tecla f6 para emitir cupom fiscal
			  // "parent.Qdr_Prompt_H(true,'Deseja emitir cupom fiscal<br>da comanda que acabou de receber?',".
			  //JAVA_CharCode(            
			  //'parent.document.getElementById("i_CxaRec_NumLoc").focus();'.
			  //     "if (_NUM_BOT_==1) { ".  
		  	  $sJavaTravarJ.
              "FmF.submit();".
			  //"}".
			  //"").
		      //",'');".
			  ""
			: '').
		  "}".                            
          '';                             
		  //                              
          // Java posterior               
          $sRet_JavsPos .=                
            'parent.document.getElementById("objCxaRec_BT_Rec").style.display="none";'.
			(  $nTipoFiscal ? 	
			  'parent.document.getElementById("objCxaRec_BT_Cup").style.display="none";'
			: 
			  ""
			).
            'parent.document.getElementById("objCxaRec_BT_Imp").style.display="none";'.
            'parent.document.getElementById("objCxaRec_BT_RAb").style.display="none";'.
			'parent.document.getElementById("objCxaRec_BT_PgP").style.display="none";'.
			'parent.document.getElementById("tr_CxaRec_Descon").style.display="none";'.
			'parent.document.getElementById("objCxaRec_BT_ALC").style.display="none";'.
		    "setTimeout( function() {".   
              "AtualizarProd();".         
            "}, 300);".                   
			"function AtualizarProd() {". 
			  $sJavaAtlProd.              
			"}".                          
			( STRPOS(" ".$sOpcao_Mod,"INS_PRODUTO")>0 ? "Inserir_Produto();" : "").   // Abrir modulo de inserir produtos
            "";                           
       } Else {                           
          $sRet_Javs .=                   
		   "parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);".
		   ( $bModulo_Avulso ?
		     ""
		   :
             'parent.document.getElementById("i_CxaRec_NumLoc").focus();'.
		     "parent.document.getElementById('".$sNomeIdJan1."_Travar').style.visibility='hidden';".
	         Info_Evento('Local travado, entre pelo Garçom Express e termine a operação.',1)
		   ).
		   "";                            
	      $sAcao = 'FECHAR';              
	   }                                  
    }                                     

//
//  ** CONSULTA AO CADASTRO DE CLIENTES PARA TELA DE RECEBIMENTO **
} ElseIf ( $sSubModulo=="REC_CSLCLI" ) {
   $bDir_Consult = True;
   $sNomeIdJ_Ant = $sNomeIdJan2;
   $sNomeIdCampo = "in_Entrega_CodCli";
   $sJavaExePos  = "parent.Car_".$sNomeAcesso."5.Valida_Cliente();";
   REQUIRE "./modulos/consulta_cliente.inc";

//
//  ** PESQUISAR PRODUTO **
} ElseIf ( $sSubModulo=="PESQ_PRODUTO" ) {
  $bDir_Consult = True;
  $sNomeIdJ_Ant = $sNomeIdJan2;
  $sNomeIdCampo = "i_CxaRec_CodBar";
  $nQdrNomeAcs  = 10;
  $sJavaExePos  =                         
     "parent.document.getElementById('".$sNomeIdCampo."').setSelectionRange(0,0);".
     //"parent.Car_".$sNomeAcesso."5.AdicionaBar();".
     '';
  REQUIRE "./modulos/consulta_produto.inc";

//
//  ** TELA PARA JUNTAR LOCAL **          
} ElseIf ( $sSubModulo=="JUNTAR_LOCAL" ) {
   $sNomeIdJ_Ant = $sNomeIdJan2;
   $sJavaExePos  =
 	  'parent.document.getElementById("i_CxaRec_CodBar").focus();'.
      "parent.Car_".$sNomeAcesso."5.AtualizarProd();".
	  "";
   REQUIRE "./modulos/cxa_juntar_local.inc";

//
//  ** TELA PARA INSERIR PAGAMENTO PARCIAL **
} ElseIf ( $sSubModulo=="PAG_PARCIAL" ) { 
    // Criar objeto Janela                
    $oJanelaPrinc = New R_Janela();       
    $oJanelaPrinc->sIdObj  = $sNomeIdJan5; 
    $oJanelaPrinc->nTop    = 100;         
    $oJanelaPrinc->nLeft   = 5;           
    $oJanelaPrinc->nWidth  = 430;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
	$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Pagamento parcial';
    //                                    
    $sJavaTravarJ = "parent.document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible';";
	//                                    
    $nFat_CodigoI= @$_REQUEST['NumFatG']+0;
	$sPag_Valr   = @$_REQUEST['Pag_Valr'];
	$sTro_Valr   = @$_REQUEST['Tro_Valr'];
	$sCli_Nome   = UTF8_DECODE(@$_REQUEST['Cli_Nome']);
	$nCMod_Pag   = @$_REQUEST['CMod_Pag']+0;
	$nPag_Total  = STR_REPLACE(',','.',Somente_Numeros(@$_POST['Valor_Total'],'.,'))+0;
	$nPag_TxSvr  = Somente_Numeros(@$_REQUEST['Pag_TxSvr'],'.')+0;
	$nSelItensValor = @$aSessao[$sNomeAcesso.'_SELITENS_VLR']+0;
	//                                    
	$oJanelaPrinc->sJavOnClickF =         
	   $sJavaTravarJ.                     
       "setTimeout( function() { ".       
         "parent.document.forms.fmPCxaPgPar.acao.value='FECHAR';".
         "parent.document.forms.fmPCxaPgPar.submit(); ".
       "}, 200);".		                  
	   "";                                
	//                                    
	If ( $sAcao<>"FECHAR" ) {             
       $Row_FatGer = MYSQL_QUERY("SELECT * FROM fat_geral WHERE FAT_CANCELA=0 AND FAT_RCFORMA=0 AND FAT_CODIGOI=".$nFat_CodigoI.";") or die(MYSQL_ERROR());
       If ( ! $Row_FatGer = MYSQL_FETCH_OBJECT($Row_FatGer) ) {
          $sRet_Javs .=                   
             Info_Evento('ERRO: Comanda já finalizada ou cancelada.',1,$oJanelaPrinc->sTitulo).
		     $oJanelaPrinc->sJavOnClickF. 
			 '';                          
	   }                                  
	   $aPag_Parcial = Ext_Pag_Parcial( $Row_FatGer->FAT_LSTRPCL );
    }                                     
	//                                    
	// Valida o formulário                
    If ( $sAcao=="VALIDA" ) {             
	   $nPag_Total = 0;                   
	   $nPag_Valr  = STR_REPLACE(',','.',Somente_Numeros($sPag_Valr,',.'))+0;
	   $nPag_Valr  = ROUND($nPag_Valr,2); 
	   $nTro_Valr  = STR_REPLACE(',','.',Somente_Numeros($sTro_Valr,',.'))+0;
	   $nTro_Valr  = ROUND($nTro_Valr,2); 
	   $nTot_ARec  = ROUND($aSessao[$sNomeAcesso.'_FAT_TOT_REC']-($aPag_Parcial['TOTAL']),2);
	   If ( $nPag_Valr > $nTot_ARec ) {   
	      $nPag_Valr = $nTot_ARec;        
	   }                                  
	   If ( $nPag_TxSvr<0 ) { $nPag_TxSvr=0; }
	   If ( $nPag_Valr <0 ) { $nPag_Valr=0;  }
	   $nVlr_TxSvr = ROUND(($nPag_TxSvr/100)*$nPag_Valr,2);
	   $nPag_Total = $nPag_Valr + $nVlr_TxSvr;
	   $nTot_ARec -= $nPag_Total;         
	   If ( $nTot_ARec<0 ) {              
	      $nVlr_TxSvr += $nTot_ARec;      
	      $nPag_Total = $nPag_Valr + $nVlr_TxSvr;
		  $nTot_ARec   = 0;               
	   }                                  
	   //                                 
	   $s_SpTroValor = '';                
	   $sTro_Valr    = '';                
	   If ( $nTro_Valr>0 ) {              
	      $s_SpTroValor = "Troco de R$ ".FormatoMoeda($nTro_Valr-$nPag_Total);
	      $sTro_Valr = FormatoMoeda($nTro_Valr);
	   }                                  
	   $s_ValorTxSvr = " = R$ ".FormatoMoeda($nVlr_TxSvr);
	   $sPag_Valr    = FormatoMoeda($nPag_Valr);
	   $sPag_Total   = FormatoMoeda($nPag_Total);
	   //                                 
       $sRet_Javs .=                      
	      "parent.document.forms.fmPCxaPgPar.Valor_Total.value='".$nPag_Total."';".
	      'parent.document.forms.fmPCxaPgPar.Pag_Valr.value="'.$sPag_Valr.'";'.
	      'parent.document.forms.fmPCxaPgPar.Tro_Valr.value="'.$sTro_Valr.'";'.
	      'parent.document.forms.fmPCxaPgPar.Pag_TxSvr.value="'.$nPag_TxSvr.'%";'.
		  'parent.document.getElementById("s_CxaPagP_TotARec").innerHTML="'.FormatoMoeda($nTot_ARec).'";'.
		  'parent.document.getElementById("sp_CxaPagP_TroValr").innerHTML="'.$s_SpTroValor.'";'.
		  'parent.document.getElementById("td_CxaPagP_VlrTxSvr").innerHTML="'.$s_ValorTxSvr.'";'.
		  'parent.document.getElementById("i_CxaPagP_TotalVlr").value="'.FormatoMoeda($nPag_Total).'";'.
		  '';                             
	//                                    
	// Confirmar pagamento                
    } ElseIf ( $sAcao=="CFM_PAG" ) {      
	   //$nPag_Valr = STR_REPLACE(',','.',Somente_Numeros($sPag_Valr,',.'))+0;
	   If ( $nPag_Total==0 ) {            
          $sRet_Javs .=                   
             Info_Evento('Valor inválido',1,$oJanelaPrinc->sTitulo).
			 '';                          
	   } ElseIf ( $nPag_Total > ($aSessao[$sNomeAcesso.'_FAT_TOT_REC']-$aPag_Parcial['TOTAL']) ) {
          $sRet_Javs .=                   
             Info_Evento('Valor maior do que o restante á receber.',1,$oJanelaPrinc->sTitulo).
			 '';                          
	   } Else {                           
          $Row_CadMPG = MYSQL_QUERY("SELECT * FROM cad_modalidade_pag WHERE MPG_CODIGOI=".$nCMod_Pag." ;") or die(MYSQL_ERROR());
	      $Row_CadMPG = MYSQL_FETCH_ARRAY($Row_CadMPG);
	      $sFat_LstRPcl = Adc_Pag_Parcial($Row_FatGer->FAT_LSTRPCL, $nPag_Total, $Row_CadMPG['MPG_CODIGOI'], $Row_CadMPG['MPG_DESCRIC'], $sCli_Nome);
	      $sSQLQuery =                    
	         "UPDATE fat_geral SET ".     
	            "FAT_LSTRPCL=".( STRLEN($sFat_LstRPcl)>0 ? '0x'.BIN2HEX($sFat_LstRPcl) : "''")." ".
	         " WHERE FAT_CODIGOI=".$nFat_CodigoI.";";
	      MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' '.$sSQLQuery);
		  // Marcar itens selecionados para calculo como já marcados
		  $aSelItens_Lst = ")".@$aSessao[$sNomeAcesso.'_SELITENS_LST']."(";
		  $aSelItens_Lst = EXPLODE(")(",$aSelItens_Lst);
		  ForEach ( $aSelItens_Lst As $sSelItem ) {
	        $sSQLQuery =                  
	           "UPDATE fat_item SET ".    
	              "FAT_RCBPARC=1 ".       
	           "WHERE FAT_CODIGOI=".($sSelItem+0).";";
	        MYSQL_QUERY($sSQLQuery) Or Die(MYSQL_ERROR().' '.$sSQLQuery);
		  }                               
	      //                              
		  $aSessao[$sNomeAcesso.'_SELITENS_LST'] = '';
		  $aSessao[$sNomeAcesso.'_SELITENS_VLR'] = 0;
		  //                              
          $sRet_Javs .=                   
	         "parent.document.forms.fmPCxaRec2.acao.value='CALCULA';".
		     "parent.document.forms.fmPCxaRec2.submit();".
    	     'parent.document.getElementById("i_CxaRec_CodBar").focus();'.
             Info_Evento('Recebimento parcial de R$ '.FormatoMoeda($nPag_Total).' da comanda<br>efetuada com sucesso.',0,$oJanelaPrinc->sTitulo).
	         $oJanelaPrinc->sJavOnClickF. 
	         '';                          
	   }                                  
       $sRet_Javs .=                      
	      '';                             
	} ElseIf ( ROUND((@$aSessao[$sNomeAcesso.'_FAT_TOT_REC'])-(@$aPag_Parcial['TOTAL']+0),2) <= 0 ) {
       $sRet_Javs .=                      
		  "parent.document.getElementById('".$sNomeIdJan2."_Travar').style.visibility='hidden';".
    	  'parent.document.getElementById("i_CxaRec_CodBar").focus();'.
          Info_Evento('Não há valor restante para receber parcialmente.').
		  '';                             
	   $sAcao="FECHAR";                   
    //                                    
    // FECHAR                             
    } ElseIf ( $sAcao=="FECHAR" ) {       
		 $sRet_Javs .=                    
		   "parent.document.getElementById('".$sNomeIdJan2."_Travar').style.visibility='hidden';".
		   "parent.RmElem('".$oJanelaPrinc->sIdObj."');".
    	   'parent.document.getElementById("i_CxaRec_CodBar").focus();'.
		   "parent.Car_".$sNomeAcesso."5.AtualizarProd();".
		 	"";                           
    //                                    
    // JANELA TELA PRINCIPAL              
    } Else {                              
	   //                                 
	   // Combo das modalidades de pagamento
       $Rows_CadMPG = MYSQL_QUERY($sSQL_ExbModPag) or die(MYSQL_ERROR());
	   $sHTML_ComboMPag = '';             
       While ($Row_CadMPG = MYSQL_FETCH_OBJECT($Rows_CadMPG)) {
	      If ($Row_CadMPG->MPG_FIN_CTR) { CONTINUE; }
	      $sHTML_ComboMPag .=             
		     '<option value="'.$Row_CadMPG->MPG_CODIGOI.'">'.
			  Str_Zero($Row_CadMPG->MPG_CODIGOI,2).
			  ' - '.                      
			  $Row_CadMPG->MPG_DESCRIC.   
			 '</option>';                 
       }                                  
	   //                                 
	   $oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."6.Teclas_F(this,event);";
	   $oJanelaPrinc->aIdsObjList =       
	      ARRAY( 'i_CxaPagP_PagValr', 'i_CxaPagP_TaxaSvr','i_CxaPagP_CliNome','i_CxaPagP_CModPag' );
	   //                                 
       $sJavVal_OnBlur =                  
	       "var fm = parent.document.forms.fmPCxaPgPar;".
		   "TargetAnt = fm.target;".      
		   "fm.target = 'car_".$sNomeAcesso."8';".
           "fm.acao.value='VALIDA';".     
           "fm.submit();".                
		   "fm.acao.value='';".           
		   "fm.target = TargetAnt;".      
		   "";                            
	   //                                 
       // Tela HTML                       
       $sRet_TelaJ_HTML =                 
    	  $oJanelaPrinc->MontaJanHTML(True).
          '<form name="fmPCxaPgPar" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'7">'.
           '<input name="mod" type="hidden" value="'.$sModulo.'">'.
           '<input name="submod" type="hidden" value="'.$sSubModulo.'">'.
           '<input name="acao" type="hidden" value="">'.
    	   '<input name="nomeacs" type="hidden" value="'.$sNomeAcesso.'">'.
    	   '<input name="NumFatG" type="hidden" value="'.$nFat_CodigoI.'">'.
    	   '<input name="Valor_Total" type="hidden" value="">'.
		   '<div style="height:6px;"></div>'.
		  '<table width="100%" border="0" cellspacing="0" cellpadding="2">'.
		   '<tr style="background-color:#0066FF;" >'.
		    '<td width="160px" align="right" style="font-size:13px; color:#FFFFFF;">'.
		     'Total dos produtos:&nbsp;'. 
			'</td>'.                      
		    '<td width="90px" align="left" style="font-size:13px; font-weight:bold; color:#FFCC99;">'.
			  'R$ '.FormatoMoeda($aSessao[$sNomeAcesso.'_FAT_TOT_REC']).
			'</td>'.                      
		    '<td>'.                       
			'</td>'.                      
		   '</tr>'.                       
		    '<td align="right" style="font-size:13px;">'.
		     'Total já recebido:&nbsp;'.  
			'</td>'.                      
		    '<td align="left" style="font-size:13px; font-weight:bold;">'.
			  'R$ '.FormatoMoeda($aPag_Parcial['TOTAL']).
			'</td>'.                      
		    '<td>'.                       
			'</td>'.                      
		   '</tr>'.                       
		   '<tr>'.                        
		    '<td colspan="3">'.           
			 '<div style="height:6px;"></div>'.
			 '<div style="height:1px; background-color:#00CCFF"></div>'.
			 '<div style="height:6px;"></div>'.
			'</td>'.                      
		   '</tr>'.                       
		   '<tr>'.                        
		    '<td align="right" style="font-size:12px;">'.
		     'Valor á calcular:&nbsp;'.   
			'</td>'.                      
		    '<td align="left" style="font-size:13px; font-weight:bold;">'.
			 '<input id="i_CxaPagP_PagValr" name="Pag_Valr" type="text" maxlength="10" value="'.(FormatoMoeda($nSelItensValor)).'" style="font-size:13px; height:21px; width:80px;" onchange="'.$sJavVal_OnBlur.'">'.
			'</td>'.                      
		    '<td align="center">'.        
			'</td>'.                      
		   '</tr>'.                       
		   '<tr>'.                        
		    '<td align="right" style="font-size:12px;">'.
		     'Taxa de serviço:&nbsp;'.    
			'</td>'.                      
		    '<td align="left" style="font-size:13px; font-weight:bold;">'.
			 '<input id="i_CxaPagP_TaxaSvr" name="Pag_TxSvr" type="text" maxlength="10" value="'.($aSessao[$sNomeAcesso.'_FAT___TAXA1']+0).'%" style="font-size:13px; height:21px; width:80px;" onchange="'.$sJavVal_OnBlur.'">'.
			'</td>'.                      
		    '<td align="left" id="td_CxaPagP_VlrTxSvr" style="color:#880000; font-size:12px; font-weight:bold;">'.
			'</td>'.                      
		   '</tr>'.                       
		   '<tr>'.                        
		    '<td align="right" style="font-size:12px;">'.
		     'Valor á receber:&nbsp;'.    
			'</td>'.                      
		    '<td align="left" style="font-size:13px; font-weight:bold;">'.
			 '<input id="i_CxaPagP_TotalVlr" readonly="readonly" type="text" maxlength="10" value="" style="color:#880000; font-weight:bold; font-size:13px; height:21px; width:80px;">'.
			'</td>'.                      
		    '<td align="center">'.        
			'</td>'.                      
		   '</tr>'.                       
		   '<tr>'.                        
		    '<td align="right" style="font-size:12px;">'.
		     'Troco para:&nbsp;'.         
			'</td>'.                      
		    '<td align="left" style="font-size:13px; font-weight:bold;">'.
			 '<input id="i_CxaPagP_TroValr" name="Tro_Valr" type="text" maxlength="10" value="0,00" style="font-size:13px; height:21px; width:80px;" onchange="'.$sJavVal_OnBlur.'">'.
			'</td>'.                      
		    '<td align="left" style="font-size:12px;">'.
			 '&nbsp;&nbsp;&nbsp;<span id="sp_CxaPagP_TroValr" style="font-size:12px; font-weight:bold;"></span>'.
			'</td>'.                      
		   '</tr>'.                       
		   '<tr>'.                        
		    '<td align="right" style="font-size:12px;">'.
		     'Nome do cliente:&nbsp;'.    
			'</td>'.                      
		    '<td align="left" colspan="2" style="font-size:13px; font-weight:bold;">'.
			  '<input id="i_CxaPagP_CliNome" name="Cli_Nome" type="text" maxlength="60" value="" style="font-size:13px; height:21px; width:220px;">'.
			'</td>'.                      
		   '</tr>'.                       
		   '<tr>'.                        
		    '<td align="right" style="font-size:12px;">'.
		     'Modalidade de pagamento:&nbsp;'.
			'</td>'.                      
		    '<td align="left" colspan="2" style="font-size:13px; font-weight:bold;">'.
			 '<select id="i_CxaPagP_CModPag" name="CMod_Pag">'.
			  $sHTML_ComboMPag.           
			 '</select>'.                 
			'</td>'.                      
		   '</tr>'.                       
		   '<tr>'.                        
		    '<td colspan="3">'.           
			 '<div style="height:6px;"></div>'.
			 '<div style="height:1px; background-color:#00CCFF"></div>'.
			 '<div style="height:6px;"></div>'.
			'</td>'.                      
		   '</tr>'.                       
		   '<tr>'.                        
		    '<td align="right" style="font-size:13px;">'.
		     'Restante à Receber:&nbsp;'. 
			'</td>'.                      
		    '<td align="left" style="font-size:14px; font-weight:bold; color:#CF0000;">'.
			  'R$ <span id="s_CxaPagP_TotARec">0,00</spán>'.
			'</td>'.                      
		    '<td>'.                       
			'</td>'.                      
		   '</tr>'.                       
		  '</table>'.                     
          '</form>'.                      
		  //                              
          '<table width="100%" style="background-color:'.$sCorBarraInf.';"></tr>'.
           '<td width="4px" height="40px" align="left">&nbsp;</td>'.
           '<td align="left">'.           
            HTML_Botao( 3, 'objCxaPgPar_BT_Cfm', "parent.document.forms.fmPCxaPgPar.acao.value='CFM_PAG';".
                                                 "parent.document.forms.fmPCxaPgPar.submit(); ".
		  									     ""
                         , 'Receber (F10)' ,'images/btimg_ativar.png').
           '</td>'.                       
           '<td width="50%" align="right">'.
            HTML_Botao( 3, 'objCxaPgPar_BT_Fch', $oJanelaPrinc->sJavOnClickF
                         , 'Voltar (ESC)' ,'images/btimg_fechar.png').
           '</td>'.                       
          '</tr></table>'.                
		  //                              
    	  $oJanelaPrinc->MontaJanHTML(False);
       //                                 
       // Java anterior                   
       $sRet_Javs .=                      
          "function Teclas_F( Objeto, Evento ) {".
            "vNumTecla = parent.Tecla_Apertada(Evento); ".
		    "if ( vNumTecla==116) { ".         // ** [F5] **     Não atualizar
                //                        
		    "} else if ( vNumTecla==13) { ".   // ** [ENTER] **
			    "sTempId = parent.Proximo_TabObj(parent.document.getElementById('".$oJanelaPrinc->sIdObj."'),parent.sIdHasFocus);".
			    "if ( sTempId.length>0 ) {".
				    "if (sTempId=='i_CxaPagP_TotalVlr') {".
			            "sTempId = parent.Proximo_TabObj(parent.document.getElementById('".$oJanelaPrinc->sIdObj."'),sTempId);".
					"}".                  
			        "parent.document.getElementById(sTempId).focus();".
			    "} else {".               
    	            'parent.document.getElementById("i_CxaPagP_PagValr").focus();'.
			    "}".                      
                //                        
		    "} else if ( vNumTecla==121) { ".  // ** [F10] **    Confirmar recebimento
                "setTimeout( parent.document.getElementById('objCxaPgPar_BT_Cfm').onclick , 10);".
            "} else if ( vNumTecla==27 ) { ".  // [ESC]
                "parent.".$sJava_Desfoca_Input.
                "setTimeout( parent.document.getElementById('objCxaPgPar_BT_Fch').onclick , 10);".
			"} else {".                   
			  "return true;".             
			"} ".                         
	        "return false;".              
          '}';                            
	   //                                 
       // Java posterior                  
       $sRet_JavsPos .=                   
	      "parent.document.getElementById('i_CxaPagP_PagValr').focus();".
	      "setTimeout( function() { ".$sJavVal_OnBlur." } , 200);".
		  '';                             
	   //                                 
	   //                                 
	                                      
    }                                     
//  ** TELA PARA INSERIR PRODUTO **       
} ElseIf ( $sSubModulo=="INS_PRODUTO" ) { 
   $bFat_Fechado = @$aSessao[$sNomeAcesso.'_FAT_FECHADO']+0;               // Capturar: Conta fechada?
   $sNomeIdJ_Ant = $sNomeIdJan2;          
   $sNomeIdCampo = ( $bFat_Fechado ? $aSessao[$sNomeAcesso.'_CXA_PRIMEIRA_MODPAG'] : "i_CxaRec_Taxa1" );
   $nFat_CodigoI = @$_POST['Fat_Item_CodI']+0;
   $nQdrNomeAcs  = 6;                     
	//$sJavaExePos  = "parent.Car_".$sNomeAcesso."2.AtualizarBars();";
   REQUIRE "./modulos/cxa_ins_produto.inc";  
                                          
//  ** TELA DE PESQUISA DO PRODUTO PARA INSERIR **
} ElseIf ( $sSubModulo=="INS_PRODUTO_CSL" ) {
  $bDir_Consult = True;
  $sNomeIdJ_Ant = $sNomeIdJan6;           
  $sNomeIdCampo = "iCadELrP_CodBar";      
  $nQdrNomeAcs  = 8;                      
  //$sJavaExePos  = "parent.Car_".$sNomeAcesso."6.AdicionaBar();";
  $sJavaExePos  =                         
     "parent.document.getElementById('".$sNomeIdCampo."').setSelectionRange(0,0);".
     '';                                  
  REQUIRE "./modulos/consulta_produto.inc";
                                          
                                          
//                                        
//  ** TELA DE SENHA PARA PERMISSÃO DO DESCONTO ACIMA DO MÁXIMO CONFIGURADO **
} ElseIf ( $sSubModulo=="PERM_DESCONTO" ) {
   $sNomeIdJ_Ant = $sNomeIdJan2;          
   $bCalc_Valor_ = False;                 
   $sNomeIdCampo = "i_CxaRec_Descon";     
   $sJavaExePos  =                        
       "parent.document.forms.fmPCxaRec2.acao.value='CALCULA';".
       "parent.document.forms.fmPCxaRec2.submit();".
       "";                                
   REQUIRE "./modulos/tela_senha_desc.inc";
                                          
//  ** TELA DE Motivo do cancelamento  produto**
} ElseIf ( $sSubModulo=="CFM_MOTIVO" ) {
  $sNomeIdJ_Ant = $sNomeIdJan2;          
  $sHTML_TextoM = 'Para cancelar digite o motivo.';
  $sNomeIdCampo = "i_CxaRec_CodBar";   
  //
  $sJavaExeCfm  =  
	     "parent.document.forms.fmPCxaRec3.acao.value='RMV_ITEM';".
         "parent.document.forms.fmPCxaRec3.submit(); ".                   
         "";                             
  
  $sJavaExePos  = 
       "parent.document.getElementById('".$sNomeIdCampo."').focus();".
	   "parent.document.getElementById('".$sNomeIdCampo."').setSelectionRange(0,0);".  
       "";                             
  REQUIRE "./modulos/tela_motivo_can.inc";                                        
   
   //

//  ** TELA DE Motivo do cancelamento  Comanda**
} ElseIf ( $sSubModulo=="CFM_MOTIVO_C_CMD" ) {
   $sNomeIdJ_Ant = $sNomeIdJan2;          
   $sNomeIdCampo = "i_CxaRec_CodBar";  
   $sHTML_TextoM = 'Para cancelar digite o motivo.';
   
     $sJavaExeCfm  = 
       "vAnt_target = parent.document.forms.fmPCxaRec3.target;".
       "NomeQdrCar = vAnt_target;".
       "NomeQdrCar = NomeQdrCar.substr(0,NomeQdrCar.length-1)+'6';".
       "parent.document.forms.fmPCxaRec3.target = NomeQdrCar;".
       "parent.document.forms.fmPCxaRec3.acao.value='CNTCAN';".
       "parent.document.forms.fmPCxaRec3.ImpCup.value='';".
       "parent.document.forms.fmPCxaRec3.submit(); ".	 
       "parent.document.forms.fmPCxaRec3.target = vAnt_target;".
	   "";                             
     $sJavaExePos  =  
       "parent.document.getElementById('".$sNomeIdCampo."').focus();".
	   "parent.document.getElementById('".$sNomeIdCampo."').setSelectionRange(0,0);".  	 
       "";                             
     REQUIRE "./modulos/tela_motivo_can.inc";                                        
//
                                        
//  ** TELA DE SENHA PARA CANELAMENTO DE COMANDA **
} ElseIf ( $sSubModulo=="PERM_CANCELAR" ) {
   $sNomeIdJ_Ant = $sNomeIdJan2;          
   $sHTML_TextoM = 'Para cancelar a comanda digite a senha<br>de permissão.';
   $sJavaExeCfm  =                        
       "parent.JanEspera(true, 'Cancelando a comanda... Aguarde...');".
       "vAnt_SubMod = parent.document.forms.fmPCxaRec3.submod.value;".
       "vAnt_target = parent.document.forms.fmPCxaRec3.target;".
       "NomeQdrCar = vAnt_target;".
       "NomeQdrCar = NomeQdrCar.substr(0,NomeQdrCar.length-1)+'9';".
       "parent.document.forms.fmPCxaRec3.target = NomeQdrCar;".
       "parent.document.forms.fmPCxaRec3.submod.value='CFM_MOTIVO_C_CMD'; ".
       "parent.document.forms.fmPCxaRec3.acao.value='';".
       "parent.document.forms.fmPCxaRec3.submit(); ".
       "parent.document.forms.fmPCxaRec3.target = vAnt_target;".
       "parent.document.forms.fmPCxaRec3.submod.value=vAnt_SubMod; ".
       "";                             
	   
	   
	   //"parent.document.forms.fmPCxaRec3.acao.value='CNTCAN';".
       //"parent.document.forms.fmPCxaRec3.ImpCup.value='';".
       //"parent.document.forms.fmPCxaRec3.submit(); ".
       //"";                                
   $sJavaExePos  =                        
       "";
	   
   REQUIRE "./modulos/tela_senha_can.inc";
                                          
                                          
//                                        
//  ** TELA DE SENHA PARA CANcELAMENTO DE PRODUTOS **
} ElseIf ( $sSubModulo=="PERM_CAN_ITEM" ) {
   // PARA VOLTAR O CANCELADO E NAO PEDIR SENHA 
   $nFat_CodigoI = @$_POST['Fat_Item_CodI']+0;
   $bCancelado = False;                   
   $sSQLQuery = "SELECT * FROM fat_item WHERE FAT_CODIGOI=".$nFat_CodigoI.";";
   $RowT = MYSQL_QUERY($sSQLQuery) Or Die(MYSQL_ERROR().'<br>'.$sSQLQuery);
   If ( $RowT = MYSQL_FETCH_OBJECT($RowT) ) {
      $bCancelado = STRLEN($RowT->FAT_CANITEM)>0;
   }   
   If ( $bCancelado ) {                   
	  $sRet_Javs .=                      
	      "parent.document.getElementById('".$sNomeIdJan2."_Travar').style.visibility='hidden';".
		  "var fm = parent.document.forms.fmPCxaRec3;".
          "fm.acao.value='RMV_ITEM';".    
          "fm.submit(); ".                
	      "";                             
	  $sAcao = "FECHAR";                 
   } Else {                               
      
	  $sNomeIdJ_Ant = $sNomeIdJan2;       
      $sHTML_TextoM = 'Para cancelar o produto digite a senha<br>de permissão.';
      $sCan_Senha = $sCan_Sen_Item;       
      $sJavaExeCfm  =                     
		  "parent.JanEspera(true, 'Cancelando O produto... Aguarde...');".
		  "vAnt_SubMod = parent.document.forms.fmPCxaRec3.submod.value;".
          "vAnt_target = parent.document.forms.fmPCxaRec3.target;".
          "NomeQdrCar = vAnt_target;".
          "NomeQdrCar = NomeQdrCar.substr(0,NomeQdrCar.length-1)+'9';".
          "parent.document.forms.fmPCxaRec3.target = NomeQdrCar;".
          "parent.document.forms.fmPCxaRec3.submod.value='CFM_MOTIVO'; ".
          "parent.document.forms.fmPCxaRec3.acao.value='';".
          //"parent.document.forms.fmPCxaRec3.Motivo.value='".$nR_Descon."';".
          "parent.document.forms.fmPCxaRec3.submit(); ".
          "parent.document.forms.fmPCxaRec3.target = vAnt_target;".
          "parent.document.forms.fmPCxaRec3.submod.value=vAnt_SubMod; ".
          //"parent.document.forms.fmPCxaRec3.acao.value='RMV_ITEM';".
          //"parent.document.forms.fmPCxaRec3.submit(); ".  
          "";                             
      $sJavaExePos  =                     
          "";  

		  
      REQUIRE "./modulos/tela_senha_can.inc";
	  
   }                                      
//                                        
//  ** TELA DE OPERAÇÕES DO CAIXA **      
} ElseIf ( $sSubModulo=="CAIXA" ) {
    // Criar objeto Janela                
    $oJanelaPrinc = New R_Janela();       
    $oJanelaPrinc->sIdObj  = $sNomeIdJan3; 
    $oJanelaPrinc->nTop    = 100;         
    $oJanelaPrinc->nLeft   = 5;           
    $oJanelaPrinc->nWidth  = 650;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
	$oJanelaPrinc->nLeft   += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Caixa';     
    //                                    
	$sJavaTravarJ = "document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; ";
	$nSeqCaixa = PuxarCaixaAberto($R_CadFuncionario->FUN_CODIGO);
	//                                    
	//                                    
	$sJav_F_Cxa =                         
	   "parent.JanEspera(false);".        
       "setTimeout( function() { ".       
         "parent.document.forms.fmPCxaRecCC.acao.value='FECHAR';".
         "parent.document.forms.fmPCxaRecCC.submit(); ".
       "}, 200);".		                  
	   "";                                
    //                                    
	// ABRIR CAIXA                        
    If ($sAcao=="CXA_ABRIR" ) {           
       If ($nSeqCaixa==0) {               
	      $nCaixa_Troco = @$_REQUEST['ValorC'];
	      $nCaixa_Troco = STR_REPLACE(',','.',Somente_Numeros($nCaixa_Troco,',.'))+0;
		  $nSeqCaixa = SQLVarConfig('MOV_CAIXA_SEQCOD')+0;
		  SQLVarConfigG('MOV_CAIXA_SEQCOD', $nSeqCaixa+1);
		  $sSQLQuery =                    
             "INSERT INTO mov_caixa(".    
			    "MVC_SQCAIXA, MVC_COD_FUN, MVC_DATAFIC, MVC_DATAMOV, MVC_TIPOMOV, MVC_VALORMV".
			 ") VALUES (".                
			    $nSeqCaixa.",".           
				$R_CadFuncionario->FUN_CODIGO.",".
				"'".$sData_Trabalho."',".
			    "'".DATE("Y-m-d H:i:s")."',".
			    "0,".                     
			    "'".$nCaixa_Troco."'".    
			 "); ";                       
          MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' '.$sSQLQuery);
	      //                              
		  // Java                         
	      $sRet_Javs .=                   
		     $sJav_F_Cxa.                 
			 'parent.sIdHasFocus = "i_CxaRec_NumLoc";'.
			 Info_Evento('O Caixa está aberto.',0).
			 "";                          
		  //                              
	   } Else {                           
	      // ERRO: Caixa já está aberto   
		  // Java                         
	      $sRet_Javs .=                   
		     $sJav_F_Cxa.                 
			 Info_Evento("Não é possível abrir o caixa pois ele já se encontra aberto.",1).
			 "";                          
		  //                              
	   }                                  
    //                                    
	// FECHAR CAIXA                       
    } ElseIf ($sAcao=="CXA_FECHAR" ) {    
       If ($nSeqCaixa==0) {               
	      // ERRO: Caixa já está fechado  
		  // Java                         
	      $sRet_Javs .=                   
		     $sJav_F_Cxa.                 
			 Info_Evento("Não é possível fechar o caixa pois ele já se encontra fechado.",1).
			 "";                          
		  //                              
	   } Else {                           
		  $sSQLQuery =                    
             "INSERT INTO mov_caixa(".    
			    "MVC_SQCAIXA, MVC_COD_FUN, MVC_DATAFIC, MVC_DATAMOV, MVC_TIPOMOV, MVC_VALORMV".
			 ") VALUES (".                
			    $nSeqCaixa.",".           
				$R_CadFuncionario->FUN_CODIGO.",".
				"'".$sData_Trabalho."',".
			    "'".DATE("Y-m-d H:i:s")."',".
			    "1,".                     
			    "0".                      
			 "); ";                       
          MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().' '.$sSQLQuery);
	      //                              
		  // Java                         
	      $sRet_Javs .=                   
		     $sJav_F_Cxa.                 
			 'parent.sIdHasFocus = "i_CxaRec_NumLoc";'.
			 "parent.Alerta_Simples('O Caixa está fechado.',0);".
			 "";                          
		  //                              
	   }                                  
    //                                    
	// REVISAR campos                     
    } ElseIf ($sAcao=="REVISAR") {        
	   $nValorC = @$_REQUEST['ValorC'];   
	   $nValorC = STR_REPLACE(',','.',Somente_Numeros($nValorC,',.'))+0;
	   $nValorC = FormatoMoeda($nValorC); 
	   //                                 
	   // Java                            
	   $sRet_Javs .=                      
          "parent.document.getElementById('in_CxaRec_ValOpe').value='".$nValorC."';";
    //                                    
	// SANGRIA (Retirada do Caixa) e CRÉDITO
    } ElseIf ($sAcao=="SANGRIA" OR $sAcao=="CREDITO" ) {
	   $nValorC = @$_REQUEST['ValorC'];   
	   $nValorC = STR_REPLACE(',','.',Somente_Numeros($nValorC,',.'))+0;
	   $sMotivo = @$_REQUEST['Text_Motivo'];
       If ($nSeqCaixa==0) {               
	      // ERRO: Caixa está fechado     
		  // Java                         
	      $sRet_Javs .=                   
		     $sJav_F_Cxa.                 
			 Info_Evento("Não é possível efetuar ".$sAcao." no caixa pois ele está fechado.",1).
			 "";                          
		  //                              
	   } ElseIf (STRLEN($sMotivo)<4 OR $nValorC<1) {
	      //                              
		  // ERRO: Valor ou descrição do motivo da operação inválida
	      $sRet_Javs .=                   
		     $sJav_F_Cxa.                 
			  Info_Evento("Não é possível efetuar ".$sAcao.", valor ou motivo não aceito.",1).
			  "";                         
		                                  
		  //                              
	   } Else {                           
		  $sSQLQuery =                    
             "INSERT INTO mov_caixa(".    
			    "MVC_SQCAIXA, MVC_COD_FUN, MVC_DATAFIC, MVC_DATAMOV, MVC_TIPOMOV, MVC_VALORMV, MVC_PARAMET".
			 ") VALUES (".                
			    $nSeqCaixa.",".           
				$R_CadFuncionario->FUN_CODIGO.",".
				"'".$sData_Trabalho."',".
			    "'".DATE("Y-m-d H:i:s")."',".
			    ($sAcao=="CREDITO" ? '3' : '2').",".
			    "'".$nValorC."',".        
				SQL_Bin($sMotivo).        
			 "); ";                       
          MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().'<br>'.$sSQLQuery);
	      //                              
		  // Java                         
	      $sRet_Javs .=                   
		     //$sJav_F_Cxa.               
			 "parent.JanEspera(false);".  
             "parent.document.getElementById('in_CxaRec_ValOpe').value='';".
             "parent.document.getElementById('in_CxaRec_MotOpe').value='';".
			 Info_Evento("Foi efetuado ".$sAcao." de R$ ".FormatoMoeda($nValorC)." no caixa .").
			 "";                          
		  //                              
	   }                                  
    //                                    
    // FECHAR                             
    } ElseIf ( $sAcao=="FECHAR" ) {
       $sRet_Javs .=                      
	         "parent.document.getElementById('".$sNomeIdJan1."_Travar').style.visibility='hidden';".
		     "parent.Disabled_In_Elems('".$sNomeIdJan1."',false);".
	         "parent.RmElem('".$oJanelaPrinc->sIdObj."');".
		     //"parent.Car_".$sNomeAcesso."3.location.reload(); ".
		     "parent.Car_".$sNomeAcesso."1.Load_Status();".
    	     'parent.document.getElementById("i_CxaRec_NumLoc").focus();'.
		     "";                          
    //                                    
    // JANELA TELA PRINCIPAL              
    } Else {                              
	   //                                 
	   $nCaixa_Troco = 0;                 
	   $nCaixa_Saldo = 0;                 
	   $sDataHoraAbr = ConvertDataUSBR($sData_Trabalho);
		If ($nSeqCaixa>0) {               
	      $aCaixaDados = PuxarDadosCaixa($nSeqCaixa);
	      $nCaixa_Troco = $aCaixaDados[0];
	      $nCaixa_Saldo = $aCaixaDados[1];
	      $sDataHoraAbr = DATE("d/m/Y",$aCaixaDados[7])." ".DATE("H:i:s",$aCaixaDados[2]);
	      $oJanelaPrinc->aIdsObjList = ARRAY('in_CxaRec_ValOpe','in_CxaRec_MotOpe');
	      //                              
	   } Else {                           
	      $oJanelaPrinc->aIdsObjList = ARRAY('in_CxaRec_Troco');
		  //                              
	   }                                  
	   //                                 
       $sJav_AbrirCxa =                   
          JAVA_CharCode(                  
             "if (_NUM_BOT_==1) { ".      
                 "JanEspera(true, 'Abrindo Caixa... Aguarde...');".
                 "setTimeout( function() { ".
                   "document.forms.fmPCxaRecCC.acao.value='CXA_ABRIR';".
                   "document.forms.fmPCxaRecCC.ValorC.value=document.getElementById('in_CxaRec_Troco').value;".
                   "document.forms.fmPCxaRecCC.submit(); ".
                 "}, ".$nTmpFrmEnv.");".  
       	     "}"                          
          );                              
	   //                                 
       $sJav_FecharCxa =                  
          JAVA_CharCode(                  
             "if (_NUM_BOT_==1) { ".      
                 "JanEspera(true, 'Fechando Caixa... Aguarde...');".
                 "setTimeout( function() { ".
                   "document.forms.fmPCxaRecCC.acao.value='CXA_FECHAR';".
                   "document.forms.fmPCxaRecCC.submit(); ".
                 "}, ".$nTmpFrmEnv.");".  
       	     "}"                          
          );                              
	   //                                 
	   $sJav_SangriaCxa =                 
          JAVA_CharCode(                  
             "if (_NUM_BOT_==1) { ".      
                 "JanEspera(true, 'Efetuando sangria no caixa...');".
                 "setTimeout( function() { ".
                   "document.forms.fmPCxaRecCC.acao.value='SANGRIA';".
                   "document.forms.fmPCxaRecCC.ValorC.value=document.getElementById('in_CxaRec_ValOpe').value;".
                   "document.forms.fmPCxaRecCC.Text_Motivo.value=document.getElementById('in_CxaRec_MotOpe').value;".
                   "document.forms.fmPCxaRecCC.submit(); ".
                 "}, ".$nTmpFrmEnv.");".  
       	     "}"                          
          );                              
	   //                                 
	   $sJav_CreditoCxa =                 
          JAVA_CharCode(                  
             "if (_NUM_BOT_==1) { ".      
                 "JanEspera(true, 'Efetuando crédito no caixa...');".
                 "setTimeout( function() { ".
                   "document.forms.fmPCxaRecCC.acao.value='CREDITO';".
                   "document.forms.fmPCxaRecCC.ValorC.value=document.getElementById('in_CxaRec_ValOpe').value;".
                   "document.forms.fmPCxaRecCC.Text_Motivo.value=document.getElementById('in_CxaRec_MotOpe').value;".
                   "document.forms.fmPCxaRecCC.submit(); ".
                 "}, ".$nTmpFrmEnv.");".  
       	     "}"                          
          );                              
	   //                                 
	   $sJavBlurValOpe =                  
	      "sIdHasFocus='';".              
	      "TargetAnt = document.forms.fmPCxaRecCC.target;".
	      "document.forms.fmPCxaRecCC.target='car_".$sNomeAcesso."4';".
		  "document.forms.fmPCxaRecCC.acao.value='REVISAR'; ".
          "document.forms.fmPCxaRecCC.ValorC.value=document.getElementById('in_CxaRec_ValOpe').value;".
          "document.forms.fmPCxaRecCC.submit();".
	      "document.forms.fmPCxaRecCC.target = TargetAnt;".
		  "";                             
	   //                                 
	   $oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."5.Teclas_F(this,event);";
	                                      
		                                  
		//                                
       // Tela HTML                       
       $sRet_TelaJ_HTML =                 
    	  $oJanelaPrinc->MontaJanHTML(True).
          '<form name="fmPCxaRecCC" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'2">'.
           '<input name="mod" type="hidden" value="'.$sModulo.'">'.
           '<input name="submod" type="hidden" value="'.$sSubModulo.'">'.
           '<input name="acao" type="hidden" value="">'.
    	   '<input name="nomeacs" type="hidden" value="'.$sNomeAcesso.'">'.
           '<input name="ValorC" type="hidden" value="">'.
           '<input name="Text_Motivo" type="hidden" value="">'.
          '</form>'.                      
		  '<table width="100%">'.         
		   '<tr>'.                        
           '<td width="8px" height="40px" align="left">&nbsp;</td>'.
		    '<td align="left" width="190px" style="font-size:14px;">'.
			 'Data: <span id="sp_CxaRec_Abr" style="font-weight:bold;">'.$sDataHoraAbr.'</span>'.
		    '</td>'.                      
		    '<td align="right" width="180px" style="font-size:14px;">'.
			 'Troco inicial: <input id="in_CxaRec_Troco" type="text" maxlength="8" value="'.FormatoMoeda($nCaixa_Troco).'" '.($nSeqCaixa>0 ? 'readonly' : '').' style="width:60px;">'.
		    '</td>'.                      
            '<td align="right" style="font-size:14px;">'.
			 // Mostrar saldo do caixa    
		     //'Saldo: <span id="sp_CxaRec_Saldo" style="font-weight:bold;">R$ '.FormatoMoeda($nCaixa_Saldo).'</span>'.
            '</td>'.                      
            '<td width="8px" align="left" >&nbsp;</td>'.
		   '</tr>'.                       
		  '</table>'.                     
		  //                              
		  ($nSeqCaixa>0 ?                 
		  '<table width="100%" style="background-color:#E0E0E0;">'.
		   '<tr>'.                        
		    '<td align="center" height="40px" style="font-size:14px;">'.
			 'Valor da sangria (saida) ou do crédito (entrada): <input id="in_CxaRec_ValOpe" type="text" maxlength="8" value="0,00" onchange="'.$sJavBlurValOpe.'" style="width:100px;">'.
		    '</td>'.                      
		   '</tr>'.                       
		    '<td align="center" height="140px" style="font-size:14px;">'.
			 'Motivo da operação:<br>'.   
			 '<textarea id="in_CxaRec_MotOpe" style="width:90%; height:100px;"></textarea>'.
		    '</td>'.                      
		   '<tr>'.                        
		   '</tr>'.                       
		  '</table>'.                     
		  '' : '').                       
		  //                              
          '<table width="100%" style="background-color:'.$sCorBarraInf.';"></tr>'.
           '<td width="8px" height="40px" align="left">&nbsp;</td>'.
           '</td>'.                       
           '<td align="left">'.           
            HTML_Botao( 3, 'objCxaRecCC_BT_ACx', "Qdr_Prompt_H(true,'Tem certeza que deseja ABRIR o caixa?',".$sJav_AbrirCxa.",['Sim','Não']);"
                         , 'Abrir Caixa (F8)' ,'images/btimg_ativar.png').
            HTML_Botao( 3, 'objCxaRecCC_BT_FCx', "Qdr_Prompt_H(true,'Tem certeza que deseja FECHAR o caixa?',".$sJav_FecharCxa.",['Sim','Não']);"
                         , 'Fechar Caixa (F9)' ,'images/btimg_salvar.png',140).
           "&nbsp;&nbsp;".                
            HTML_Botao( 3, 'objCxaRecCC_BT_Sgr', "if ( Car_".$sNomeAcesso."5.validaCampos() ) {".
			                                           "Qdr_Prompt_H(true,'Tem certeza que deseja efetuar uma SANGRIA de<br>R$ '+document.getElementById('in_CxaRec_ValOpe').value+' no caixa?',".$sJav_SangriaCxa.",['Sim','Não']);".
							                         	 "}"
                         , 'Sangria (F7)' ,'images/btimg_remover_2.png',110).
           "&nbsp;&nbsp;".                
            HTML_Botao( 3, 'objCxaRecCC_BT_Ent', "if ( Car_".$sNomeAcesso."5.validaCampos() ) {".
			                                           "Qdr_Prompt_H(true,'Tem certeza que deseja efetuar um CRÉDITO de <br>R$ '+document.getElementById('in_CxaRec_ValOpe').value+' no caixa?',".$sJav_CreditoCxa.",['Sim','Não']);".
					                                   "}"
                         , 'Crédito (F6)' ,'images/btimg_novo.png',110).
           '</td>'.                       
           '<td width="118px" align="left">'.
            HTML_Botao( 3, 'objCxaRecCC_BT_Fch', $sJavaTravarJ.
		                                     "document.forms.fmPCxaRecCC.acao.value='FECHAR'; ".
                                             "document.forms.fmPCxaRecCC.submit();"
                         , 'Sair (ESC)' ,'images/btimg_fechar.png',110).
			//                            
           '</td>'.                       
           '<td width="8px" align="left">&nbsp;</td>'.
           '</td>'.                       
          '</tr></table>'.                
		  //                              
     	  $oJanelaPrinc->MontaJanHTML(False);
       //                                 
       // Java anterior                   
       $sRet_Javs .=                      
          "function Teclas_F( Objeto, Evento ) {".
            "vNumTecla = parent.Tecla_Apertada(Evento); ".
            "if ( vNumTecla==120) { ".         // ** [F9] **
                "if (parent.document.getElementById('objCxaRecCC_BT_FCx').style.display!='none') {".           // (Fechar caixa)
                   "setTimeout( parent.document.getElementById('objCxaRecCC_BT_FCx').onclick , 10);".
          	    "}".                      
            "} else if ( vNumTecla==119) { ".  // ** [F8] **
                "if (parent.document.getElementById('objCxaRecCC_BT_ACx').style.display!='none') {".           // (Abrir caixa)
                   "setTimeout( parent.document.getElementById('objCxaRecCC_BT_ACx').onclick , 10);".
                "}".                      
            "} else if ( vNumTecla==118) { ".  // ** [F7] **
                "if (parent.document.getElementById('objCxaRecCC_BT_Sgr').style.display!='none') {".           // (Sangria)
                   "setTimeout( parent.document.getElementById('objCxaRecCC_BT_Sgr').onclick , 10);".
                "}".                      
		    "} else if ( vNumTecla==116) { ".  // ** [F5] **     Não atualizar
                //                        
            "} else if ( vNumTecla==117) { ".  // ** [F6] **
                "if (parent.document.getElementById('objCxaRecCC_BT_Ent').style.display!='none') {".           // (Crédito)
                   "setTimeout( parent.document.getElementById('objCxaRecCC_BT_Ent').onclick , 10);".
                "}".                      
		    "} else if ( vNumTecla==13) { ".  // ** [ENTER] **
			    "if (parent.sIdHasFocus=='in_CxaRec_ValOpe' && parent.document.getElementById('objCxaRecCC_BT_ACx').style.display=='none') {".
			        "parent.document.getElementById('in_CxaRec_MotOpe').focus();".
				"} else {".               
				   "return true;".        
				"}".                      
            "} else if ( vNumTecla==27 ) { ".  // [ESC]
                "parent.".$sJava_Desfoca_Input.
                "setTimeout( parent.document.getElementById('objCxaRecCC_BT_Fch').onclick , 10);".
			"} else {".                   
			  "return true;".             
			"} ".                         
	        "return false;".              
          '}';                            
	   //                                 
       // Java posterior                  
       $sRet_JavsPos .=                   
	        "parent.document.getElementById('objCxaRecCC_BT_ACx').style.display='".($nSeqCaixa==0 ? 'inline-block' : 'none')."'; ".
	        "parent.document.getElementById('objCxaRecCC_BT_FCx').style.display='".($nSeqCaixa >0 ? 'inline-block' : 'none')."'; ".
	        "parent.document.getElementById('objCxaRecCC_BT_Sgr').style.display='".($nSeqCaixa >0 ? 'inline-block' : 'none')."'; ".
	        "parent.document.getElementById('objCxaRecCC_BT_Ent').style.display='".($nSeqCaixa >0 ? 'inline-block' : 'none')."'; ".
    	    ($nSeqCaixa==0 ?              
			     'parent.document.getElementById("in_CxaRec_Troco").focus();'.
				 'parent.document.getElementById("in_CxaRec_Troco").select();'
				 :                        
				 'parent.document.getElementById("in_CxaRec_ValOpe").focus();'.
				 'parent.document.getElementById("in_CxaRec_ValOpe").select();'
			).                            
			"function validaCampos() {".                // Validador dos campos do Valor e do Texto do Motivo da Operação
			   "var inVal = parent.document.getElementById('in_CxaRec_ValOpe').value;".
			   "var inMtv = parent.document.getElementById('in_CxaRec_MotOpe').value;".
			   "vartmp = inVal.replace(',','');".
			   "vartmp = parseInt('0'+vartmp);".
			   "if (vartmp==0) { ".                                        
			       Info_Evento('Valor da operação não está preenchido',1,'',0).
			       "return false;".       
			   "}".                       
			   "vartmp = inMtv;".         
			   "if (vartmp.length<2) { ". 
			       Info_Evento('Motivo da operação não está preenchido',1,'',0).
			       "return false;".       
			   "}".                       
			   "return true;".            
			"}".                          
	        "";                           
	}

//
//  ** IDENTIFICAR CLIENTE COM A COMANDA **
} ElseIf ( $sSubModulo=="IDENTIFICA_CLI" ) {
  $sNomeIdJ_Ant = $sNomeIdJan1;
  $sNomeIdCampo = "i_CxaRec_NumLoc";
  $nQdrNomeAcs  = 7;
  $sJavaExePos  =
     "parent.Car_".$sNomeAcesso."1.Load_Status_at();".
     "parent.document.getElementById('".$sNomeIdCampo."').value='';".
     "parent.document.getElementById('".$sNomeIdCampo."').focus();".
     '';
  REQUIRE "./modulos/cxa_identificar_cli.inc";

//
//  ** CONSULTA AO CADASTRO DE CLIENTES PARA TELA DE DE ITENFICAÇÃO DA COMANDA **
} ElseIf ( $sSubModulo=="IDE_CSLCLI" ) {
   $bDir_Consult = True;
   $sNomeIdJ_Ant = $sNomeIdJan7;
   $sNomeIdCampo = "i_CxaIde_Cod_Cli";
   $sJavaExePos  = "parent.Car_".$sNomeAcesso."7.At_Campos('".$sNomeIdCampo."');";
   REQUIRE "./modulos/consulta_cliente.inc";

//                                        
//  ** TELA DAS MESAS / BALCAO / ENTREGA **
} Else {                                  
    // Criar objeto Janela                
    $oJanelaPrinc = New R_Janela();       
    $oJanelaPrinc->sIdObj  = $sNomeIdJan1; 
    $oJanelaPrinc->nTop    = 0;           
    $oJanelaPrinc->nLeft   = 5;           
    $oJanelaPrinc->nWidth  = 1000;   // Largura 920
    $oJanelaPrinc->nHeight = 0;     // Altura
	$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Recebimentos de '.STRTOUPPER($sTipoLocal).'S'.($bActBalcao ? ' / Balcão' : '').($bActEntreg ? ' / Entrega' : '');
    //                                    
	$sJavaTravarJ = "parent.document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);";
	$oJanelaPrinc->sJavOnClick  = "document.getElementById('i_CxaRec_NumLoc').focus();";
	//                                    
	$oJanelaPrinc->sJavOnClickF =         
         $sJavaTravarJ.                   
		 "document.forms.fmPCxaRecL.acao.value='FECHAR'; ".
         "document.forms.fmPCxaRecL.submod.value=''; ".
         "document.forms.fmPCxaRecL.submit();";
    //
    $bModulo_Avulso  = @$aSessao[$sNomeAcesso.'_Avulso'];
    // ENVIA O STATUS EM GERAL            
    If ( $sAcao=="STATUS" ) {             
	   $aSt_Pri = ARRAY();                
	   $bAtu = (@$_POST['parm']=='AT');   
	   If (! $bAtu) {                     
	      $aSt_Pri = $aSessao[$sNomeAcesso.'_PRI'];  // Captura a variável dos status gerais
	   }                                  
	   //                                 
	   // Montar os locais (MESA)         
       $sHTMLLocs='';                     
	   If (@$aSt_Pri['MT_LOCAIS']+0) {    
	      $aSt_Pri['MT_LOCAIS'] = 0;      
		  $sHTMLLocsH='';                 
          For ($iCountMTt = 1; $iCountMTt<=$nQtdLocsT; $iCountMTt++) {
	          $iCountMT = $iCountMTt;     
	          If ( $nTipoTrabCtl==1 ) {   
                 $iCountMT += ($nCodSeq_Comanda-1);
				 $sCountMT = $iCountMT;   
				 //$sCountMT = Str_Zero($iCountMT,5);
	          } Else {                    
				 $sCountMT = Str_Zero($iCountMT,2);
			  }                           
			  $aSt_Pri['LOC_'.$iCountMT] = 0;
			  $sOnClkJav = "Car_".$sNomeAcesso."1.AbrRec('".$iCountMT."','0');";
			  $sHTMLLocs .=               
                '<div id="Q_Item_Cxa_Loc_'.$iCountMT.'" style="display:none; height: 55px; width: 65px; cursor:pointer;" id="dv_Local_'.$iCountMT.'" ondragstart="return false" align="center" onclick="'.$sOnClkJav.'">'.
                 '<img id="I_Item_Cxa_Loc_'.$iCountMT.'" src="./images/'.STRTOLOWER($sTipoLocal).'x60.png" border="0" width="50px" height="50px">'.
                 '<br>'.                  
                 '<span style="position:relative; display:fixed; top:-15px ;left:0px; font-size:'.($nTipoTrabCtl==1 ? '12' : '16' ).'px; color:#000000; font-family: Verdana, Arial, Helvetica, sans-serif; font-weight:bold;">'.
                  $sCountMT.              
                 '</span>'.               
                '</div>'.                 
			    '';                       
			  //                          
          }                               
	   }                                  
	   If (STRLEN($sHTMLLocs)>3) { $sRet_Javs .= "parent.document.getElementById('Q_CxaRec_Locs').innerHTML = ".JAVA_CharCode($sHTMLLocs)."; "; }
	   //                                 
	   // Puxar tabela na FAT_GERAL tudo que está pedido não cancelado e nem recebido
	   $Rows_FatGer = MYSQL_QUERY("SELECT * FROM fat_geral WHERE FAT_CANCELA=0 AND FAT_RCFORMA=0 ORDER BY FAT_NUM_MES ASC, FAT_TIP_LOC ASC;") or die(MYSQL_ERROR());
	   $aLstLocs = ARRAY();               
	   $aCoresLinBa = ARRAY( 0=>0, 1=> '#FFFFFF', 2=> '#EEEEEE');
	   $sLstBalHtml = ''; 
	   $sTotBalHtml = ''; 
	   $nTot_Bal = 0;
	   $aCoresLinEn = ARRAY( 0=>0, 1=> '#FFFFFF', 2=> '#EEEEEE');
	   $sLstEntHtml = ''; 
       $sTotEntHtml = ''; 	   
	   $nTot_Ent = 0;
	   $nTot_Tro = 0;
	   While ( $Row_FatGer = MYSQL_FETCH_OBJECT($Rows_FatGer) ) {
	                                      
		   //                             
		   $sOnClkJav = "Car_".$sNomeAcesso."1.AbrRec('0','".$Row_FatGer->FAT_CODIGOI."');";
		   //                             
	       // Tipo MESA                   
	       If ( $Row_FatGer->FAT_TIP_LOC==0 OR $Row_FatGer->FAT_TIP_LOC==3) {
		                                  
			  $nTmp_St_Loc = 0;           
		      If ($Row_FatGer->FAT_DAT_FIM>0) {  // Aguardando recebimento
			                              
				 $nTmp_St_Loc = 2;        
			  } Else {                           // Somente ocupada
			     $nTmp_St_Loc = 1;        
			  }                           
			  $aLstLocs[$Row_FatGer->FAT_NUM_MES] = $nTmp_St_Loc;
                                          
		  //                              
		   // Tipo Balcão                 
	       } ElseIf ( $Row_FatGer->FAT_TIP_LOC==1 && STRLEN($Row_FatGer->FAT_NOMCLIE)>0) {
		      $aCoresLinBa[0]++;          
		      If ( STRLEN(@$aCoresLinBa[$aCoresLinBa[0]])==0 ) { $aCoresLinBa[0] = 1; }
	          $sCorLinha = @$aCoresLinBa[$aCoresLinBa[0]];
		      $sLstBalHtml =              
				 "<table border='0' style='width:100%; background-color:".$sCorLinha."; cursor:pointer;' onclick=".'"'.$sOnClkJav.'"'.">".
				  "<tr>".                 
				   "<td width='56px'>".
				    "&nbsp;".Str_Zero($Row_FatGer->FAT_SQCOMAN,8).
				   "</td>".
				   "<td width='115px'>".
				     ConvertDataUSBR($Row_FatGer->FAT_DATAINI)." ".DATE("H:i:s",ConvertDtHrSTR($Row_FatGer->FAT_DAT_INI)).
				   "</td>".               
				   "<td>".                
				    PegarPorPausa($Row_FatGer->FAT_NOMCLIE,4).
				   "</td>".               
				   "<td width='75px' align='left' style='font-size:12px;'>".
				    "R$ ".FormatoMoeda($Row_FatGer->FAT_TOT_VAL).
				   "</td>".               
				  "</tr>".                
				 "</table>".              
				 "<div style='width:100%; height:2px;'></div>".
				 $sLstBalHtml; 

              $nTot_Bal += $Row_FatGer->FAT_TOT_VAL;

              $sTotBalHtml =
					( $nTot_Bal> 0 ? 
				          '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.
						  '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.
						  '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.
						  '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.
						  '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.
						  '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.
						  '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.
						  '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.
						  '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.
						  'Total: &nbsp;&nbsp;R$&nbsp;&nbsp;'.
					      FormatoMoeda($nTot_Bal).
						  ''
					 :
					      ''
					 ).
				     '';



			  
		   // Tipo Entrega                
	       } ElseIf ( $Row_FatGer->FAT_TIP_LOC==2 && $Row_FatGer->FAT_CLIENTE>0) {
		      $aCoresLinEn[0]++;          
		      If ( STRLEN(@$aCoresLinEn[$aCoresLinEn[0]])==0 ) { $aCoresLinEn[0] = 1; }
	          $sCorLinha = @$aCoresLinEn[$aCoresLinEn[0]];
		      $sLstEntHtml =              
				 "<table border='0' style='width:100%; background-color:".$sCorLinha."; cursor:pointer;' onclick=".'"'.$sOnClkJav.'"'.">".
				  "<tr>".                 
				     "<td width='56px'>".
				        "&nbsp;".Str_Zero($Row_FatGer->FAT_SQCOMAN,8).
				     "</td>".
				     "<td width='115px'>".  
				        ConvertDataUSBR($Row_FatGer->FAT_DATAINI)." ".DATE("H:i:s",ConvertDtHrSTR($Row_FatGer->FAT_DAT_INI)).
				     "</td>".               
				     "<td>".                
				        PegarPorPausa($Row_FatGer->FAT_NOMCLIE,4).
				     "</td>".               
				     "<td width='75px' align='left' style='font-weight:bold; font-size:12px;'>".
				        "R$ ".FormatoMoeda($Row_FatGer->FAT_TOT_REC).
				     "</td>".
				     // Coluna Troco Para 
				     ( $Row_FatGer->FAT_TROCOPA > 0 ?
					    "<td width='80px' align='right' style='font-weight:bold; color:555555;'>".
						   "troco para ".
						"</td>".
						"<td width='75px' align='left' style='font-weight:bold; font-size:12px;'>".
				           "R$ ".FormatoMoeda($Row_FatGer->FAT_TROCOPA).
				        "</td>"
					 :
					    "<td width='158px' align='left' style='font-weight:bold; font-size:12px;'>".
				           "&nbsp;&nbsp;&nbsp;".
						   
				        "</td>"
					 ).					 
				   //
				  "</tr>".                
				 "</table>".              
				 "<div style='width:100%; height:2px;'></div>".
				 $sLstEntHtml;	
               
			  $nTot_Ent += $Row_FatGer->FAT_TOT_REC;
              
			  If ($Row_FatGer->FAT_TROCOPA > 0 ) {	
                 $nTot_Tro += $Row_FatGer->FAT_TROCOPA;			  
			  }
			  				 
			  $sTotEntHtml =
					( $nTot_Ent> 0 ? 
				          '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.
						  '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.
						  '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.
						  '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.
						  '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.
						  '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.
						  '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.
						  '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.
						  '&nbsp;&nbsp;'.
						  'Total: &nbsp;&nbsp;R$&nbsp;&nbsp;'.
					      FormatoMoeda($nTot_Ent).
						  
					      (  $nTot_Tro > 0 ?
						     '&nbsp;&nbsp;&nbsp;&nbsp;'.
							 '&nbsp;&nbsp;&nbsp;&nbsp;'.
							 'R$&nbsp;&nbsp;'.
						     FormatoMoeda( $nTot_Tro ).
							  ''
						  :
						     ''
                          )						 
					 :
					      ''
					 ).
				     '';
			  
		   } Else {                       
		   // ERRO: Tipo do local desconhecido
		   }                              
	   }                                  
	   //                                 
	   // Verificar se o caixa está aberto
	   $nSeqCaixa = PuxarCaixaAberto($R_CadFuncionario->FUN_CODIGO);
	   $sHTML_SpMsg = '';                 
	   If ($nSeqCaixa==0) {               
	                                      
		 $sHTML_SpMsg =                   
		       '<table width="100%" height="100%" border="0"><tr><td valign="middle" align="center">'.
		        '<span style="font-size:14px; color:#FFFFFF; font-weight:bold;">Caixa fechado.</span>'.
			   '</td></tr></table>';      
	      $sRet_Javs .=                   
		     "var QBSup = parent.document.getElementById('Q_CxaRec_BarSup');".
			 "QBSup.style.backgroundColor = '#FF5555';".
			 "QBSup.innerHTML = ".JAVA_CharCode_Mini($sHTML_SpMsg).";".
			 '';                          
		                                  
	   } Else {                           
	                                      
		  $aDadosCxa = PuxarDadosCaixa($nSeqCaixa);
	      $sHTML_SpMsg =                  
		       '<table width="100%" height="100%" border="0"><tr><td valign="middle" align="center">'.
		       '<span style="font-size:14px; color:#FFFFFF; font-weight:bold;">'.
		        'Caixa Aberto.'.          
				'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.
				//DATE('d/m/Y H:i:s',$aDadosCxa[2]).
				DATE("d/m/Y",$aDadosCxa[7])." ".DATE("H:i:s",$aDadosCxa[2]).
				'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.
				'Operador: '.$aDadosCxa[6][1].'-'.$aDadosCxa[6][2].
               '</span>'.                 
			   '</td></tr></table>';      
	      $sRet_Javs .=                   
		     "var QBSup = parent.document.getElementById('Q_CxaRec_BarSup');".
			 "QBSup.style.backgroundColor = '#55BB55';".
			 "QBSup.innerHTML = ".JAVA_CharCode_Mini($sHTML_SpMsg).";".
			 '';                          
          //                              
		  // Verificar se o caixa de ontem está aberto
		  //If ( ($aSessao[$sNomeAcesso.'_INI']+0) && DATE('Y-m-d',$aDadosCxa[2])<>DATE('Y-m-d')  ) {
		  //   // Se ainda houver mais de 5 horas de diferença
		  //   If ($aDadosCxa[2]+(5*60*60) < TIME() ) {
	      //      $sRet_Javs .= Info_Evento('ATENÇÃO! O caixa que está aberto parece não ser mais de hoje, recomendamos que fechá-lo.');
		  //   }                          
		  //}                             
	   }                                  
	   $sTotEntHtml =
	      '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Entregas'.
          $sTotEntHtml.
          '';		  
		  
		$sTotBalHtml =
	      '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Balcão'.
          $sTotBalHtml.
          '';		    
	   //                                 
	   // Java                            
	   $sRet_Javs .=                      
	       "parent.document.getElementById('Q_CxaRec_Balc').innerHTML = ".JAVA_CharCode_Mini($sLstBalHtml)."; ".
		   "parent.document.getElementById('Q_CxaRec_Entr').innerHTML = ".JAVA_CharCode_Mini($sLstEntHtml)."; ".
		   "parent.document.getElementById('T_CxaRec_Entr').innerHTML = ".JAVA_CharCode_Mini($sTotEntHtml)."; ".
		   "parent.document.getElementById('T_CxaRec_Balc').innerHTML = ".JAVA_CharCode_Mini($sTotBalHtml)."; ".
		   "";                            
	   //                                 
       For ($iCountMTt = 1; $iCountMTt<=$nQtdLocsT; $iCountMTt++) {
	      $iCountMT = $iCountMTt;         
	      If ( $nTipoTrabCtl==1 ) {       
             $iCountMT += ($nCodSeq_Comanda-1);
                                          
		  }                               
		                                  
		  If ( (@$aLstLocs[$iCountMT]+0) <> (@$aSt_Pri['LOC_'.$iCountMT]+0) ) {
		                                  
			 $aSt_Pri['LOC_'.$iCountMT] = (@$aLstLocs[$iCountMT]+0);
			 //$nTmp_St_Loc = $aSt_Pri['LOC_'.$iCountMT]; //erro mel
			 $nTmp_St_Loc_1 = $aSt_Pri['LOC_'.$iCountMT];
			 If ( $nTmp_St_Loc_1==0 ) {        // Mesa livre   (Oculta)
			    $sRet_JavsPos .= "parent.document.getElementById('Q_Item_Cxa_Loc_".$iCountMT."').style.display='none'; ";
			 } Else {                        // Mesa ocupada (Visivel)
			    $sRet_JavsPos .= "parent.document.getElementById('Q_Item_Cxa_Loc_".$iCountMT."').style.display='inline-block'; ";
		     }                            
			                              
			 If ( $nTmp_St_Loc_1==0 ) {        // Mesa livre
			    $sRet_JavsPos .= "parent.document.getElementById('I_Item_Cxa_Loc_".$iCountMT."').src='./images/".STRTOLOWER($sTipoLocal)."x60.png'; ";
			 } ElseIf ( $nTmp_St_Loc_1==1 ) {  // Mesa ocupada
			    $sRet_JavsPos .= "parent.document.getElementById('I_Item_Cxa_Loc_".$iCountMT."').src='./images/".STRTOLOWER($sTipoLocal)."x60o.png'; ";
			 } ElseIf ( $nTmp_St_Loc_1==2 ) {  // Mesa á receber
			    $sRet_JavsPos .= "parent.document.getElementById('I_Item_Cxa_Loc_".$iCountMT."').src='./images/".STRTOLOWER($sTipoLocal)."x60r.png'; ";
			 }                            
			                              
		  }                               
	   }                                  
	   //                                 
       $sRet_Javs .=                      
	       "setTimeout( function() { ".   
		      "parent.Car_".$sNomeAcesso."1.Load_Status();".
		   "}, ".(1000*(SQLVarConfig('TEMPO_ATUALIZACAO_CXAREC')+0)).");".   // Recarregar em XX segundos
		   "";		                      
       //                                 
	   $aSessao[$sNomeAcesso.'_PRI'] = $aSt_Pri;  // Devolve atualizada a variável dos status gerais
	   $aSessao[$sNomeAcesso.'_INI'] = 0; 
    //                                    
    // Status do ACBR                     
    } ElseIf ( $sAcao=="ACBR_STATUS" ) {  
	   $bMostrarMSG = False;
	   If ($nStatus_ACBR==0) {
          $sRet_Javs .=
              "parent.JanEspera(false);".
    	      'parent.document.getElementById("i_CxaRec_NumLoc").focus();'.
              "";
	      $bMostrarMSG = True;
	   }
	   //
	   If ($nTipoFiscal) {
	      $ImpFiscal->Conectar();
	      If ( $ImpFiscal->nCod_Erro==0 ) {
	         // Conectado ao ACBR
			 $aSessao[$sNomeAcesso.'_ACBR'] = 100;
	      } Else {
		     // Ocorreu algum erro
	         $aSessao[$sNomeAcesso.'_ACBR'] = $ImpFiscal->nCod_Erro;
	      }
	   }
	   $nStatus_ACBR = $aSessao[$sNomeAcesso.'_ACBR'];
	   //
	   If ($bMostrarMSG) {
          $sRet_Javs .=
            (($nStatus_ACBR==Acbr_ERRO_Resposta OR $nStatus_ACBR==Acbr_ERRO_Conexao_TCP)  ?
              Info_Evento('Não foi possível conectar com o Emissor Fiscal.',1,'ERRO - ACBR')
            : "").
            ($nStatus_ACBR==Acbr_ERRO_Versao       ?
              Info_Evento('ERRO: Versão incompatível do ECF.',1,'ERRO - Emissor Fiscal')
            : "").
            ($nStatus_ACBR==Acbr_ERRO_SAT_Inicializacao ?
              Info_Evento('ERRO: Erro ao inicializar o SAT. '.HTMLENTITIES($ImpFiscal->sACBR_Erro),1,'ERRO - SAT')
            : "").
            ($nStatus_ACBR==Acbr_ERRO_ECFLinha     ?
              Info_Evento('ERRO: A impressora não está em linha.',1,'ERRO - Emissor Fiscal')
            : "").
            ($nStatus_ACBR==Acbr_ERRO_CNPJ         ?
              Info_Evento('ERRO: CNPJ do ECF (Impressora) é diferente do sistema.',1,'ERRO - Emissor Fiscal')
            : "").
            ($nStatus_ACBR==Acbr_ERRO_Reducao_Z    ?
              Info_Evento('ATENCAO: Impressora precisa tirar Redução Z.',0,'ALERTA - Emissor Fiscal')
            : "").
            ($nStatus_ACBR==Acbr_ERRO_Desconhecido ?
              Info_Evento( (STRLEN($ImpFiscal->sACBR_Erro) ? HTMLENTITIES($ImpFiscal->sACBR_Erro) : "ERRO: Desconhecido" ),1,'ERRO - Emissor Fiscal')
            : "").
			"";
	   }                                  
    //                                    
    // BALCAO RÁPIDO                      
    } ElseIf ( $sAcao=="BALCAO_RAPIDO" ) {
       // Capturar codigos sequenciais do FAT_GERAL
       // ERRO: Caixa está fechado        
	   // Java                            
       $nSeqCaixa = PuxarCaixaAberto($R_CadFuncionario->FUN_CODIGO); 
       // aberto                           
      If ($nSeqCaixa>0) {                 
	    $aSessao[$sNomeAcesso.'_FAT_TIPLOC'] = 1;
        $nCodSeq_Comanda = SQLVarConfig('COMANDA_B_SEQCOD')+0;
        SQLVarConfigG('COMANDA_B_SEQCOD',$nCodSeq_Comanda+1);
        $nFat_CodigoI = SQLVarConfig('FAT_GERAL_SEQCOD')+0;
        SQLVarConfigG('FAT_GERAL_SEQCOD',$nFat_CodigoI+1);
        // Gravar FAT_GERAL               
        $sSQLQuery =                      
            "INSERT INTO fat_geral(".     
               "FAT_CODIGOI, FAT_DAT_INI, FAT_DAT_FIM, FAT_COD_EMP, FAT_TIP_LOC, FAT_SQCOMAN, FAT_DATAINI, FAT_NUM_TRM, FAT_NOMCLIE".
            ") VALUE(".                   
               $nFat_CodigoI.",".         
               "'".DATE("Y-m-d H:i:s")."',".
			   "'".DATE("Y-m-d H:i:s")."',".
          	   $Dados_Empresa['EMP_CODIGOI'].",".
               "1,".                      
               $nCodSeq_Comanda.",".      
               "'".$sData_Trabalho."',".  
               "0,".                      
			  "'".$sDesc_Balcao."'".      
            ");";                         
        MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
        $sRet_Javs .=                     
	        "parent.Car_".$sNomeAcesso."1.AbrRec('0','".$nFat_CodigoI."','INS_PRODUTO');".  // "INS_PRODUTO" = Pedido para abrir o modulo de inserir produtos
		   '';                            
      // fechado                          
      } Else {                            
        $sRet_Javs .=                     
		  'parent.JanEspera(false);'.     
          "parent.document.getElementById('".$sNomeIdJan1."_Travar').style.visibility='hidden';".
		  "parent.Disabled_In_Elems('".$sNomeIdJan1."',false);".
		  'parent.document.getElementById("i_CxaRec_NumLoc").focus();'.
	       Info_Evento('ATENÇÃO: Seu caixa está fechado.',0).
           "parent.Car_".$sNomeAcesso."3.location.href='about:blank';".
           "";                            
      }                                   
     //                                   
	 // ABRIR GAVETA                      
    } ElseIf ( $sAcao=="ABRIR_GAVETA" ) { 
      // fiscal                           
      If ($nTipoFiscal) {                
	      $ImpFiscal->Conectar();         
		   $ImpFiscal->ECF_AbreGaveta();  
	  }                                   
      // NAO FISCAL
	  If ($bGav_Nao_Fiscal) {             
         $sCfg_ClpExp2 = SQLVarConfig('GARCOM_CLIPPER_ARQ_EXPORTA2');
		 $sTxt_ImpCup = 'IMPRESSORA='.$sImp_Nao_Fiscal;
         If (STRLEN($sTxt_ImpCup)>0) {    
		    $sIP_NomeArq = STR_REPLACE(".","_",ObterIPdoCliente());
            $sNomArqExpT = $sCfg_ClpExp2.'ABRE_GAVETA_IMP.TMP';
            $sNomArqExpR = $sCfg_ClpExp2.'ABRE_GAVETA_'.$sIP_NomeArq.'.GAV';
            $hArqExp = FOPEN( $sNomArqExpT, "a" );
            FWRITE($hArqExp, $sTxt_ImpCup );
            FCLOSE( $hArqExp );           
            If ( FILE_EXISTS($sNomArqExpR) ) { UNLINK($sNomArqExpR); }
                RENAME( $sNomArqExpT, $sNomArqExpR );
            }
      }
    // FECHAR
    } ElseIf ( $sAcao=="FECHAR" ) {       
	  UNSET($aSessao['CXA_PRI_ABERTO']);
	  $sRet_Javs .=                    
	     // mudar para não aparecer o menu e voltar para o caixa -gus
	     "parent.Car_".$sNomeAcesso."3.location.href='about:blank';".
	  	 ( $bModulo_Avulso ?
	       @$aSessao["JAVA_EXECUTAR_AO_FECHAR"]
	     :                             
	  	  'parent.document.getElementById("dv_MenuL_Barra").style.visibility="visible";'.
	      "parent.RmElem('".$oJanelaPrinc->sIdObj."');"
	  	 );
	  $aSessao[$sNomeAcesso.'_Avulso'] = False;
    //                                    
    // JANELA TELA PRINCIPAL              
    } Else {                              
	   $aSessao['CXA_PRI_ABERTO'] = True;
	   $aSessao[$sNomeAcesso.'_Avulso'] = ($sAcao=="_AVULSO_");  // Iniciar modulo modo avulso (sozinho)
	   $bModulo_Avulso = $aSessao[$sNomeAcesso.'_Avulso'];
	   //                                 
	   $aSessao[$sNomeAcesso.'_ACBR'] = 0;
	   //                                 
	   $aSessao[$sNomeAcesso.'_PRI'] = ARRAY('MT_LOCAIS' => 1);   // Limpa a variável dos status gerais
	   $aSessao[$sNomeAcesso.'_INI'] = 1;                         // Inicializando?
	   $sJavIn_NumL =                     
		 "vNumTecla = Tecla_Apertada(event);".
         'if (vNumTecla == 13) {'.               // ** [ENTER] **  Abrir mesa
	        "Car_".$sNomeAcesso."1.AbrRec(this.value,'0');".
			   'return false;'.
		 "} else if ( vNumTecla==113) { ".       // ** [F2] **     Identificar cliente para nova comanda
			"setTimeout( document.getElementById('BT_CxaRec_IdeCli').onclick , 10);".
			'return false;'.              
		 "} else if ( vNumTecla==115) { ".       // ** [F4] **     Novo balcão
			"setTimeout( document.getElementById('objCxaRec_BT_BlR').onclick , 10);".
			'return false;'.              
		 "} else if ( vNumTecla==116) { ".       // ** [F5] **     Não atualizar
	         "return false;".             
		 "} else if ( vNumTecla==117) {".        // ** [F6] **     Caixa
		    "setTimeout( document.getElementById('objCxaRec_BT_Cai').onclick , 10);".
			'return false;'.              
		 "} else if ( vNumTecla==118) {".        // ** [F7] **     Comandas
		    "setTimeout( document.getElementById('objCxaRec_BT_CsC').onclick , 10);".
			'return false;'.              
		 "} else if ( vNumTecla==119) {".        // ** [F8] **     Duplicatas
		    "setTimeout( document.getElementById('objCxaRec_BT_Ctr').onclick , 10);".
			'return false;'.              
         '} else if ( vNumTecla==120) {'.        // ** [F9] **     Abrir próximo do Balcão
	     //   "Car_".$sNomeAcesso."1.AbrRec('".$Cod_Bal_Ent."','0');".
            'return false;'.              
		 "} else if ( vNumTecla==121) { ".       // ** [F10] **    Abrir Gaveta
			"setTimeout( document.getElementById('BT_CxaRec_Gav').onclick , 10);".	
		 "} else if ( vNumTecla==27 ) { ".       // ** [ESC] **    Sair
		    "setTimeout( document.getElementById('objCxaRec_BT_Fch').onclick , 10);".
			'return false;'.              
         '}';                             
	                                      
		                                  
	   //
	   $sJavBt_NumL = "Car_".$sNomeAcesso."1.AbrRec(parent.document.getElementById('i_CxaRec_NumLoc').value,'0');";
	   //$oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."5.Teclas_F(this,event);";
	   //
       // Tela HTML
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
		  '<div style="position:absolute; top:-300px;">'.
           '<form name="fmPCxa_ACBR" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'6">'.
            '<input name="mod" type="hidden" value="'.$sModulo.'">'.
            '<input name="acao" type="hidden" value="">'.
    	    '<input name="nomeacs" type="hidden" value="'.$sNomeAcesso.'">'.
           '</form>'.                     
           '<form name="fmPCxaRecL" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'5">'.
            '<input name="mod" type="hidden" value="'.$sModulo.'">'.
            '<input name="submod" type="hidden" value="">'.
            '<input name="opcao_mod" type="hidden" value="">'.
            '<input name="acao" type="hidden" value="">'.
    	    '<input name="nomeacs" type="hidden" value="'.$sNomeAcesso.'">'.
    	    '<input name="NumLocal" type="hidden" value="">'.
    	    '<input name="NumFatG" type="hidden" value="">'.
           '</form>'.                     
           '<form name="fmPCxa_Rec2" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'3">'.
            '<input name="mod" type="hidden" value="'.$sModulo.'">'.
            '<input name="acao" type="hidden" value="">'.
    	    '<input name="nomeacs" type="hidden" value="'.$sNomeAcesso.'">'.
            '<input name="parm" type="hidden" value="">'.
		   '</form>'.                     
		  '</div>'.                       
		  '<div style="height:2px;"></div>'.
          '<div id="Q_CxaRec_BarSup" style="width:100%; height:24px;"></div>'.
       	  '<table width="100%">'.         
		   '<tr>'.                        
		    '<td width="410px" valign="top">'.
			 // Parte das MESAS           
             '<div id="Q_CxaRec_Locs" style="width:100%; height:370px; background:#FFFFFF; border-style:solid; border-width:1px; border-color:#CCCCCC; background-color: #FFFFFF; overflow:auto;">'.
               '<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0">'.
                '<tr><td align="center" valign="middle" style="color:#555555;">'.
                'Aguarde um momento...<br>'.
                '<img src="images/img_load1.gif" border="0">'.
                '</td></tr>'.             
               '</table>'.                
             '</div>'.                    
			 //                           
			 '<table width="100%">'.      
			  '<tr>'.                     
			   '<td width="74px" height="40px" align="right">'.
                HTML_Botao( 2, 'BT_CxaRec_AtlLoc', "Car_".$sNomeAcesso."1.Load_Status_at();", 'Atualizar').
			   '</td>'.                   
			   '<td width="72px" align="right" valign="middle" style="font-size:14px;">'.
			    StrMaiusculas($sTipoLocal).':'.
			   '</td>'.                   
			   '<td valign="middle" width="60px">'.
			    '<input id="i_CxaRec_NumLoc" type="text" maxlength="6" value="" style="font-size:18px; height:24px; width:97%;" onkeydown="'.$sJavIn_NumL.'">'.
			   '</td>'.                   
			   '<td width="62px" valign="middle" align="left">'.
       	        HTML_Botao( 3, 'BT_CxaRec_AbrLoc', $sJavaTravarJ.
				                                   $sJavBt_NumL
			                 , 'Abrir'      ,'images/btimg_ativar.png',60).
			   '</td>'.                   
			   '<td valign="middle" align="left">'.
			    ( $bCliente_FatGer ?
       	        HTML_Botao( 3, 'BT_CxaRec_IdeCli', $sJavaTravarJ.
				                                   "Car_".$sNomeAcesso."1.IdentificarCli(parent.document.getElementById('i_CxaRec_NumLoc').value);"
			                 , 'Nova (F2)' ,'images/btimg_novo.png',95)
				: "" ).
			   '</td>'.                   
			  '</tr>'.                    
			 '</table>'.                  
			 ($nTipoFiscal || $bGav_Nao_Fiscal ?
              '<table width="100%">'.     
			   '<tr>'.                    
			    '<td width="130px" valign="middle" align="left">'.
				   '&nbsp;&nbsp;'.        
					HTML_Botao( 3, 'BT_CxaRec_Gav', "document.forms.fmPCxaRecL.acao.value='ABRIR_GAVETA'; ".
                                               "document.forms.fmPCxaRecL.submod.value=''; ".
                                               "document.forms.fmPCxaRecL.submit();"
                            , 'Gaveta(F10)' ,'images/btimg_gaveta.png',150).	
				 '</td>'.                 
			   '</tr>'.                   
			  '</table>'                  
			 :                            
				 ""
			 ).                           
			                              
			 //                           
			'</td>'.                      
			'<td valign="top">'.          
			 // Parte do BALCÃO           
             '<div style="width:100%; background:#FFFFFF; border-style:solid; border-width:1px; border-color:#CCCCCC; background-color: #FFFFFF;">'.
			  '<div id="T_CxaRec_Balc" style="width:100%; height:25px; font-size:18px; color:#FFFFFF; background:#A0A0A0;" valign="middle">'.
			   //'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Balcão'.
			  '</div>'.                   
			  '<div id="Q_CxaRec_Balc" style="width:100%; height:140px; overflow:auto;"></div>'.
             '</div>'.                    
			 // Parte do ENTREGAS         
             '<div style="width:100%; background:#FFFFFF; border-style:solid; border-width:1px; border-color:#CCCCCC; background-color: #FFFFFF;">'.
			  '<div id="T_CxaRec_Entr" style="width:100%; height:25px; font-size:18px; color:#FFFFFF; background:#A0A0A0;" valign="middle">'.
			   //'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Entregas'.
			  '</div>'.                   
			  '<div id="Q_CxaRec_Entr" style="width:100%; height:225px; overflow:auto;"></div>'.
             '</div>'.                    
			'</td>'.                      
		   '</tr>'.                       
		  '</table>'.                     
		  //                              
          '<table width="100%" style="background-color:'.$sCorBarraInf.';"></tr>'.
           '<td width="4px" height="40px" align="left">&nbsp;</td>'.
           '</td>'.                       
           '<td width="160px" align="left">'.
            HTML_Botao( 3, 'objCxaRec_BT_BlR', $sJavaTravarJ.
		                                     "document.forms.fmPCxaRecL.acao.value='BALCAO_RAPIDO'; ".
                                             "document.forms.fmPCxaRecL.submod.value=''; ".
                                             "document.forms.fmPCxaRecL.submit();"
                         , 'Balcão rápido (F4)' ,'images/btimg_balcao.png',150).
           '</td>'.                       
		    //                            
           '<td width="160px" align="left">'.
            HTML_Botao( 3, 'BT_CxaRec_AbrGarExp', "if (Jan_GarcomExpress != null && (Jan_GarcomExpress.closed == false) ) { ".
                                                       "Alerta_Simples('O Garcom Express já está aberto, verifique em seu navegador.');".
                                                   "} else { ".
                                                      "Jan_GarcomExpress = window.open('../garcom_express/','J_GarcomExpress');".
            									   "}"
                         , 'Garcom Express'  ,'images/btimg_garexp.png', 150).
           '</td>'.                       
           '<td width="120px" align="center">'.
            HTML_Botao( 3, 'objCxaRec_BT_Cai', $sJavaTravarJ.
		                                     "document.forms.fmPCxaRecL.acao.value=''; ".
                                             "document.forms.fmPCxaRecL.submod.value='CAIXA'; ".
                                             "document.forms.fmPCxaRecL.submit();"
                         , 'Caixa (F6)' ,'images/btimg_dinheiro.png',100).
           '</td>'.                       
           '<td>'.                        
            HTML_Botao( 3, 'objCxaRec_BT_CsC', $sJavaTravarJ.
			                                 "sTargetAnt = document.forms.fmPCxaRecL.target;".
                                             "document.forms.fmPCxaRecL.target='car_RELFTG1'; ".
                                             "document.forms.fmPCxaRecL.mod.value='fin_fat_geral'; ".
                                             "document.forms.fmPCxaRecL.nomeacs.value='RELFTG'; ".
                                             "document.forms.fmPCxaRecL.submod.value=''; ".
		                                     "document.forms.fmPCxaRecL.acao.value='_CXA_'; ".
                                             "document.forms.fmPCxaRecL.submit();".
			                                 "document.forms.fmPCxaRecL.target = sTargetAnt;".
                                             "document.forms.fmPCxaRecL.mod.value='".$sModulo."'; ".
                                             "document.forms.fmPCxaRecL.nomeacs.value='".$sNomeAcesso."'; ".
											 ""
                         , 'Comandas (F7)' ,'images/btimg_comandas.png',130).
           '</td>'.                       
           '<td width="136px" align="left">'.
            HTML_Botao( 3, 'objCxaRec_BT_Ctr', $sJavaTravarJ.
			                                 "sTargetAnt = document.forms.fmPCxaRecL.target;".
                                             "document.forms.fmPCxaRecL.target='car_FINCRC4'; ".
                                             "document.forms.fmPCxaRecL.mod.value='fin_contas_receber'; ".
                                             "document.forms.fmPCxaRecL.nomeacs.value='FINCRC'; ".
                                             "document.forms.fmPCxaRecL.submod.value='TEL_REC'; ".
		                                     "document.forms.fmPCxaRecL.acao.value='_CXA_'; ".
                                             "document.forms.fmPCxaRecL.submit();".
			                                 "document.forms.fmPCxaRecL.target = sTargetAnt;".
                                             "document.forms.fmPCxaRecL.mod.value='".$sModulo."'; ".
                                             "document.forms.fmPCxaRecL.nomeacs.value='".$sNomeAcesso."'; ".
                                             "document.forms.fmPCxaRecL.submod.value=''; ".
		                                     "document.forms.fmPCxaRecL.acao.value=''; ".
											 ""
                         , 'Duplicatas (F8)' ,'images/btimg_docs.png',130).
           '</td>'.                       
           '<td width="114px" align="left">'.
            HTML_Botao( 3, 'objCxaRec_BT_Fch', $oJanelaPrinc->sJavOnClickF
                         , 'Sair (ESC)' ,'images/btimg_fechar.png').
			//                            
           '</td>'.                       
           '<td width="4px" height="40px" align="left">&nbsp;</td>'.
           '</td>'.                       
          '</tr></table>'.                
		                                  
		  //                              
    	  $oJanelaPrinc->MontaJanHTML(False);
       //                                 
		                                  
	   // Java anterior                   
       $sRet_Javs .=                      
	     'parent.document.getElementById("dv_MenuL_Barra").style.visibility="hidden";'.
	     'function AbrRec(nLoc, nFat, sOpcao) {'.
		    $sJavaTravarJ.      
		    "var formPr = parent.document.forms.fmPCxaRecL;".
		    "formPr.acao.value='';".      
			"formPr.submod.value='REC';". 
		    "formPr.NumLocal.value=nLoc;".
			"formPr.NumFatG.value=nFat;". 
		    "formPr.opcao_mod.value = '';".
			"if ( sOpcao != null ) {".    
			    "formPr.opcao_mod.value = sOpcao;".
			"}".                          
            "formPr.submit();".           
		    "formPr.opcao_mod.value = '';".
		 '}'.
		 "function IdentificarCli( nLoc ) {".
			"var fm = parent.document.forms.fmPCxaRecL;".
			"TargetAnt = fm.target;".   
			"fm.target='car_".$sNomeAcesso."7';".
		    "fm.acao.value=''; ".       
		    "fm.submod.value='IDENTIFICA_CLI'; ".
		    "fm.NumLocal.value=nLoc;".
		    $sJavaTravarJ.
		    "fm.submit();".             
		    "fm.NumLocal.value='';".
			"fm.target = TargetAnt;".   
		    "fm.submod.value='".$sSubModulo."'; ".
		 '}'.
		 "function Load_Status() {".     
			"var _FmR = parent.document.forms.fmPCxa_Rec2;".
			"_FmR.acao.value = 'STATUS';".
			"_FmR.submit();".             
		 "}".                            
		 "function Load_Status_at() {".  
			"var _FmR = parent.document.forms.fmPCxa_Rec2;".
			"_FmR.acao.value = 'STATUS';".
			"_FmR.parm.value = 'AT';".    
			"_FmR.submit();".             
			"_FmR.parm.value = '';".      
		 "}".                            
		 '';                             
   	   // Java posterior                  
       $sRet_JavsPos .=                   
          "setTimeout( function() {".     
		    'Load_Status();'.             
		  "}, 50);".                      
		  ($nTipoFiscal ?                
             "parent.JanEspera(true, 'Verificando Emissor Fiscal, aguarde...');".
		     "function Status_ACBR() {".  
		       "parent.document.forms.fmPCxa_ACBR.acao.value='ACBR_STATUS';".
               "parent.document.forms.fmPCxa_ACBR.submit();".
		     "}".                         
		     "setTimeout( function() { Status_ACBR(); }, 300);"
		   :                              
			 'parent.document.getElementById("i_CxaRec_NumLoc").focus();'
		   ).                             
	      "";                             
	   //                                 
    }                                     
	                                      
    //                                    
}                                         
                                          
//                                        
?>                                        