<?php
$sNomeIdJan1 = 'iJan_FatG_Princ';
$sNomeIdJan2 = 'iJan_FatG_Cupom';
$sCorBarraInf = '#E8E3CE';
$sTipoLocal = SQLVarConfig('NOME_LOCAIS_SVC');
$sTipoConsignado = SQLVarConfig('NOME_CONSIGNADOS');
$sData_Trabalho = SQLVarConfig('DATA_DE_TRABALHO');
$nTipoTrabCtl = SQLVarConfig('CONTROLE_DO_FAT_GERAL')+0; // Tipo do controle de trabalho. 0=Por local , 1=Por comanda
$bModo_RecCaixa = @$aSessao[$sNomeAcesso.'_RecCaixa']+0;   // Modo de exibição CAIXA
$bTribuFiscal = Terminal_e_Fiscal();
$aQuadrosAds = ARRAY( "FISECF" => 10 );   // Quadros iframe adicionais
$sPulaLinha = CHR(13).CHR(10);
//
//
//  ** TELA PRINCIPAL **
If ( EMPTY($sSubModulo) ) {
    //
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJan1; 
    $oJanelaPrinc->nTop    = 5;
    $oJanelaPrinc->nLeft   = 5;
    $oJanelaPrinc->nWidth  = 980;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
	$oJanelaPrinc->nLeft   += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Consulta de comandas';
    $oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."1.Teclas_F(this,event);";
	//
	$sJavaTravarJ = "document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);";
    $oJanelaPrinc->sJavOnClickF =
          $sJavaTravarJ.
		  "document.forms.fmFatGerR.acao.value='FECHAR'; ".
          "document.forms.fmFatGerR.submod.value=''; ".
          "document.forms.fmFatGerR.submit();";
    //
    // Criar objeto GRID
    $oTabelaRegs = New Pad_GridPesq();
    $oTabelaRegs->sIdObjTabela = 'iQdr_LstFatG';
    $oTabelaRegs->GLstCampos( 'FAT_CODIGOI,Codigo;' );
    $oTabelaRegs->nWidth  = $oJanelaPrinc->nWidth;
    $oTabelaRegs->nHeight = 320;    // Altura
    $oTabelaRegs->sCampoOnClick  = "Car_".$sNomeAcesso."1.P_Sel(<NUMCAM>); Car_".$sNomeAcesso."1.P_Atu();";
    //$oTabelaRegs->sLinhaOnClick  = "Car_".$sNomeAcesso."1.PRow_Sel(<QTDCOL>,<SELLIN>); Car_".$sNomeAcesso."1.sSelIndice='<INDICE>'; ";
    $oTabelaRegs->sLinhaOnClick  = "Car_".$sNomeAcesso."1.PRow_Sel(<QTDCOL>,<SELLIN>); ";
    $oTabelaRegs->sLinhaOnDblClk = "Car_".$sNomeAcesso."1.Pesq_Visualizar();".
								   "";
	//
	$aCoresTabela  =
	//        Comanda em Aberto,   á Receber,     Recebidas,    Canceladas
	   ARRAY(        '#FF9D9D' ,   '#FFFF99',     '#A6FFC2',    '#BCBCBC');
    //
	$aCoresTabela2 =
	//              Item transf, Mesa transf,  Mesa Juntada
	   ARRAY(        '#A6FFC2' ,   '#FFFF99',     '#FF9D9D' );
    //
    // JANELA TELA PRINCIPAL
    If ( EMPTY($sAcao) Or SUBSTR($sAcao,0,1)=="_" ) {
	   //
       $bModo_RecCaixa = ($sAcao=="_CXA_");
	   $aSessao[$sNomeAcesso.'_RecCaixa'] = $bModo_RecCaixa;
	   //
	   $oJanelaPrinc->aIdsObjList =
	      ARRAY(
		    'in_FatGer_CampOculto',
			'in_FatGer_DatIni','in_FatGer_DatFim',
			'sl_FatGer_Receb' ,'sl_FatGer_Cancel','sl_FatGer_ModPag','sl_FatGer_Asterisco'
		  );
	   //
       $oTabelaRegs->sJavSelectReg =
         "sSelIndice = S_Indice; ".
         "if (parseInt(sSelIndice)>0 && parent.document.forms.fmFatGerR.TipoLocal.value!='6' ) { ".
            "parent.document.getElementById('FatGer_BT_Vsl').style.visibility='visible';".
            ( $bTribuFiscal ?
            "parent.document.getElementById('FatGer_BT_Fsc').style.visibility='visible';"
            : '' ).
         " } ".
         ( $bModo_RecCaixa ?
         'parent.document.getElementById("in_FatGer_CampOculto").focus();' :
         'parent.document.getElementById("in_FatGer_DatIni").focus();'    ).
         "";
       //
       $sHTML_ComboMpg = '<option value="0">Todas as modalidades de pagamento</option>';
       $RowsT_ModPag = MYSQL_QUERY( "SELECT * FROM cad_modalidade_pag WHERE MPG_TRAVADO=0 ORDER BY MPG_N_ORDEM ASC" ) Or Die(MYSQL_ERROR());
       While ($RowT_ModPag = MYSQL_FETCH_OBJECT($RowsT_ModPag)) {
           $sHTML_ComboMpg .= '<option value="'.$RowT_ModPag->MPG_CODIGOI.'">'.Str_Zero($RowT_ModPag->MPG_CODIGOI,3).' - '.$RowT_ModPag->MPG_DESCRIC.'</option>';
       }
	   //
       // Tela HTML
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
          '<form name="fmFatGerR" 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="">'.
           '<input name="acao" type="hidden" value="">'.
    	   '<input name="nomeacs" type="hidden" value="'.$sNomeAcesso.'">'.
           '<input name="TipoLocal" type="hidden" value="1">'.
           '<input name="Fat_CodigoI" type="hidden" value="">'.
           '<input name="Recebidos" type="hidden" value="">'.
           '<input name="Cancelados" type="hidden" value="">'.
           '<input name="Fil_DataIni" type="hidden" value="">'.
           '<input name="Fil_DataFim" type="hidden" value="">'.
		   '<input name="Fil_NumCam" type="hidden" value="">'.
		   '<input name="Fil_ModPag" type="hidden" value="">'.
		   '<input name="Fil_Asterisco" type="hidden" value="">'.
          '</form>'.
		  //
		  '<input id="in_FatGer_CampOculto" type="text" value="" style="position:absolute; top:-100px; left:-100px; width:10px; height:1px; '.($bModo_RecCaixa ? '' : 'display:none;').'">'.
		  '<div style="margin:2px; border-style:solid; border-width:1px; border-color:#45B6E7; background-color:#F4F4F4;">'.
       	   '<table width="100%" border="0" cellspacing="0" cellpadding="0"></tr>'.
       	    '<td width="10px" height="65px" align="left">&nbsp;</td>'.
       	    '<td align="left" width="400px">'.
		     '<select id="sl_FatGer_Receb" onchange_="Car_'.$sNomeAcesso.'1.P_Atu();">'.
			  '<option value="0" selected> ** Todos ** </option>'.
			  '<option value="1">Em aberto</option>'.
			  '<option value="2">A Receber</option>'.
			  '<option value="3">Recebidas</option>'.
		     '</select>'.
			 '&nbsp;&nbsp;'.
		     '<select id="sl_FatGer_Cancel" onchange_="Car_'.$sNomeAcesso.'1.P_Atu();" style="width:184px;">'.
			  '<option value="0">Cancelados e não cancelados</option>'.
			  '<option value="1">Cancelados</option>'.
			  '<option value="2" selected>Não cancelados</option>'.
		     '</select>'.
			 '<div style="height:6px;"></div>'.
		     '<select id="sl_FatGer_ModPag" onchange="Car_'.$sNomeAcesso.'1.P_Atu();">'.
			  $sHTML_ComboMpg.
		     '</select>'.
			 '&nbsp;&nbsp;'.
		     '<select id="sl_FatGer_Asterisco" onchange_="Car_'.$sNomeAcesso.'1.P_Atu();">'.
			  '<option value="2" selected>Todos</option>'.
			  '<option value="1">Com *</option>'.
			  '<option value="0">Sem *</option>'.
		     '</select>'.
       	    '</td>'.
       	    '<td width="20px">&nbsp;</td>'.
       	    '<td align="left">'.
       	     '<table border="0" cellspacing="0" cellpadding="0"><tr>'.
			  '<td width="100px" align="right">'.
			   ($bModo_RecCaixa ? 'Período permitido:' : 'Período:' ).'&nbsp;'.
			  '</td>'.
			  '<td width="28px" align="center"><img src="images/bimg_calendario.png" border="0" id="bt_FatGer_DatIni" style="cursor:pointer;'.($bModo_RecCaixa ? 'display:none' : '').'"></td>'.
			  '<td width="77px">'.
			   ($bModo_RecCaixa ?
			    '<input id="in_FatGer_DatIni" type="text" maxlength="10" value="" style="font-size:12px; width:99%; color:#0000BB; border:0px; background-color:transparent;" readonly="readonly">'
			    :
			    '<input id="in_FatGer_DatIni" type="text" maxlength="10" value="" style="font-size:12px; width:99%;">'
			   ).
			  '</td>'.
			  '<td align="center" width="10px">'.
			   '-'.
			  '</td>'.
			  '<td width="28px" align="center"><img src="images/bimg_calendario.png" border="0" id="bt_FatGer_DatFim" style="cursor:pointer;'.($bModo_RecCaixa ? 'display:none' : ';').'"></td>'.
			  '<td width="77px">'.
			   ($bModo_RecCaixa ?
			    '<input id="in_FatGer_DatFim" type="text" maxlength="10" value="" style="font-size:12px; width:99%; color:#0000BB; border:0px; background-color:transparent;" readonly="readonly">'
			   :
			    '<input id="in_FatGer_DatFim" type="text" maxlength="10" value="" style="font-size:12px; width:99%;">'
			   ).
			  '</td>'.
			 '</tr></table>'.
			 '<span style="position:relative; top:10px; left:120px; font-size:11px; color:#666666;">'.
			  'Para ordenar de forma crescente clique em uma coluna.'.
			 '</span>'.
       	    '</td>'.
			// comentado pois foi pedido para colocar em baixo perto do botao esc
       	    //'<td align="right" align="middle">'.
			//  '<div style="position:relative; top:-8px;">'.
       	    //   HTML_Botao( 3, 'FatGer_BT_Csl', 'Car_'.$sNomeAcesso.'1.P_Atu();', 'Atualizar (F10)', 'images/btimg_atualizar.png',130).
			//  '</div>'.
			//'</td>'.
       	    '<td width="15px">&nbsp;</td>'.
       	   '</tr></table>'.
		  '</div>'.
		  //
		  MontarGuiasHTML('Gu_FatGer', "",
		   '** [{'.STRTOUPPER($sTipoLocal).';1}] **'.
		   '** {[FIM]} **'.
		   //
		   '** [{Balcão;2}] **'.
		   '** {[FIM]} **'.
		   //
		   '** [{Disk Entregas;3}] **'.
		   '** {[FIM]} **'.
		   //
		   '** [{Delivery Express;7}] **'.
		   '** {[FIM]} **'.
		   //
		   '** [{Delivery IFood;8}] **'.
		   '** {[FIM]} **'.
		   //
		   '** [{Encomendas;4}] **'.
		   '** {[FIM]} **'.
		   //
		   '** [{'.$sTipoConsignado.'s;5}] **'.
		   '** {[FIM]} **'.
		   //
		   '** [{Transferências;6}] **'.
		   '** {[FIM]} **'
		   ,
		   "document.forms.fmFatGerR.TipoLocal.value='<COD_GUIA>';".
		   'Car_'.$sNomeAcesso.'1.P_Atu();'
		  ).
		  //
		  $oTabelaRegs->MontaDivHtml().
		  '<div id="dv_FatGer_BarInf2" style="height:26px; display:none;">'.
		   '<span style="font-size:13px;">&nbsp;&nbsp;&nbsp;&nbsp;Legenda:</span>'.
		   '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="display:inline-block; position:relative; top:5px; background-color:'.$aCoresTabela[0].'; height:16px; width:16px; border-style:solid; border-width:1px; border-color:#333333;"></span>'.
		   '&nbsp;-&nbsp;Ocupada'.
		   '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="display:inline-block; position:relative; top:5px; background-color:'.$aCoresTabela[1].'; height:16px; width:16px; border-style:solid; border-width:1px; border-color:#333333;"></span>'.
		   '&nbsp;-&nbsp;Á receber, já impressa'.
		   '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="display:inline-block; position:relative; top:5px; background-color:'.$aCoresTabela[2].'; height:16px; width:16px; border-style:solid; border-width:1px; border-color:#333333;"></span>'.
		   '&nbsp;-&nbsp;Recebida'.
		   '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="display:inline-block; position:relative; top:5px; background-color:'.$aCoresTabela[3].'; height:16px; width:16px; border-style:solid; border-width:1px; border-color:#333333;"></span>'.
		   '&nbsp;-&nbsp;Cancelada'.
		  '</div>'.
		  '<div id="dv_FatGer_BarInf3" style="height:26px; display:none;">'.
		   '<span style="font-size:13px;">&nbsp;&nbsp;&nbsp;&nbsp;Legenda:</span>'.
		   '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="display:inline-block; position:relative; top:5px; background-color:'.$aCoresTabela2[0].'; height:16px; width:16px; border-style:solid; border-width:1px; border-color:#333333;"></span>'.
		   '&nbsp;-&nbsp;Item transferido'.
		   '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="display:inline-block; position:relative; top:5px; background-color:'.$aCoresTabela2[1].'; height:16px; width:16px; border-style:solid; border-width:1px; border-color:#333333;"></span>'.
		   '&nbsp;-&nbsp;'.$sTipoLocal.' transferida'.
		   '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="display:inline-block; position:relative; top:5px; background-color:'.$aCoresTabela2[2].'; height:16px; width:16px; border-style:solid; border-width:1px; border-color:#333333;"></span>'.
		   '&nbsp;-&nbsp;'.$sTipoLocal.' juntada'.
		  '</div>'.
		  '<div id="dv_FatGer_BarInf" style="height:36px"></div>'.
		  //
          '<table width="100%" style="background-color:'.$sCorBarraInf.';"></tr>'.
           '<td width="4px" height="40px" align="left">&nbsp;</td>'.
           '</td>'.
           '<td width="140px" align="left">'.
            HTML_Botao( 3, 'FatGer_BT_Vsl', 'Car_'.$sNomeAcesso.'1.Pesq_Visualizar(); '
                         , 'Visualizar (F8)' ,'images/btimg_docs.png',130).
		   '</td>'.
           '<td width="160px" align="left">'.
            HTML_Botao( 3, 'FatGer_BT_Fsc', 'Car_'.$sNomeAcesso.'1.Cupom_Fiscal(); '
                         , 'Cupom Fiscal (F12)','images/btimg_fiscal_ecf.png',150).
		   '</td>'.
       	   '<td>'.
		    '&nbsp;'.
      	   '</td>'.
           '<td width="140px" align="left">'.
            HTML_Botao( 3, 'FatGer_BT_Csl', 'Car_'.$sNomeAcesso.'1.P_Atu();'
                         , 'Atualizar (F10)'   , 'images/btimg_atualizar.png',130).
		   '</td>'.
           '<td width="110px" align="left">'.
            HTML_Botao( 3, 'FatGer_BT_Exc', 'Car_'.$sNomeAcesso.'1.SalvarExcel();'
                         , 'Excel (F9)'   ,'images/btimg_exportar_excel.png',100).		    
		   '</td>'.
		   '<td width="160px" align="right">'.
            HTML_Botao( 3, 'FatGer_BT_Fch', $oJanelaPrinc->sJavOnClickF
                         , 'Sair (ESC)' ,'images/btimg_fechar.png').
           '<td width="4px">&nbsp;</td>'.
          '</tr></table>'.
		  //
		  $oJanelaPrinc->MontaJanHTML(False);
	   // Java anterior
       $sRet_Javs .=
	      'parent.document.getElementById("dv_MenuL_Barra").style.visibility="hidden";'.
	      "sSelIndice='0';".
          //
          $oTabelaRegs->MontaJavaPri().
          "function P_Atu() {".
		    "var Fm = parent.document.forms.fmFatGerR;".
		    $oTabelaRegs->MontaJavaAgu().
			"parent.document.getElementById('FatGer_BT_Vsl').style.visibility='hidden'; ".
			"parent.document.getElementById('FatGer_BT_Fsc').style.visibility='hidden'; ".
			"parent.document.getElementById('FatGer_BT_Exc').style.visibility='hidden'; ".
			"sSelIndice='0';".
			"if ( Fm.TipoLocal.value=='6' ) {".
         	    "Fm.acao.value='LISTAR_TRS'; ".   // Consulta do MOV_TRANSFERENCIA_ITEM
			"} else {".
         	    "Fm.acao.value='LISTAR_FAT'; ".   // Consulta do FAT_GERAL
		    "}".
            "Fm.submod.value=''; ".
         	"Fm.Recebidos.value=parent.document.getElementById('sl_FatGer_Receb').value; ".
         	"Fm.Cancelados.value=parent.document.getElementById('sl_FatGer_Cancel').value; ".
         	"Fm.Fil_DataIni.value=parent.document.getElementById('in_FatGer_DatIni').value; ".
         	"Fm.Fil_DataFim.value=parent.document.getElementById('in_FatGer_DatFim').value; ".
         	"Fm.Fil_NumCam.value=nPesq_CampoSel+'';".
         	"Fm.Fil_ModPag.value=parent.document.getElementById('sl_FatGer_ModPag').value;".
         	"Fm.Fil_Asterisco.value=parent.document.getElementById('sl_FatGer_Asterisco').value;".
         	"setTimeout( function() { parent.document.forms.fmFatGerR.submit(); }, 300);".
          '}'.
          //
		  'function SalvarExcel() {'.
		    "var Fm = parent.document.forms.fmFatGerR;".
      	    "Fm.acao.value='GERAR_CSV';".
            "Fm.submit();".
          '}'.
          //
		  'function Pesq_Visualizar() {'.
            "if ( parent.document.getElementById('FatGer_BT_Vsl').style.visibility=='visible') {".
		        "parent.".$sJavaTravarJ.
                "parent.document.forms.fmFatGerR.acao.value='';".
                "parent.document.forms.fmFatGerR.submod.value='CUPOM';".
                "parent.document.forms.fmFatGerR.Fat_CodigoI.value=sSelIndice;".
                "parent.document.forms.fmFatGerR.submit();".
			"}".
		  '}'.
          //
          "function Cupom_Fiscal() {".
		    "parent.".$sJavaTravarJ.
            "sAntTarget = parent.document.forms.fmFatGerR.target;".
            "sAntModulo = parent.document.forms.fmFatGerR.mod.value;".
            "sAntNomeAcs = parent.document.forms.fmFatGerR.nomeacs.value;".
			"parent.document.forms.fmFatGerR.target = 'car_FISECF3';".
			"parent.document.forms.fmFatGerR.mod.value = 'fiscal_ecf';".
            "parent.document.forms.fmFatGerR.acao.value='_FIN_FAT_';".
            "parent.document.forms.fmFatGerR.submod.value='ECF_CUPOM';".
            "parent.document.forms.fmFatGerR.nomeacs.value='FISECF';".
            "parent.document.forms.fmFatGerR.Fat_CodigoI.value=sSelIndice;".
            "parent.document.forms.fmFatGerR.submit();".
            "parent.document.forms.fmFatGerR.target = sAntTarget;".
            "parent.document.forms.fmFatGerR.mod.value = sAntModulo;".
            "parent.document.forms.fmFatGerR.nomeacs.value = sAntNomeAcs;".
            "parent.document.forms.fmFatGerR.submod.value='';".
		  '}'.
          '';
	   //
       // Java posterior
       $sRet_JavsPos .=
          ($bModo_RecCaixa ?
		   // COMENTADO POIS TAMBEM É PARA APARECER NA TELA DO CAIXA 
		   //"parent.document.getElementById('FatGer_BT_Csl').style.display='none';".
		   "parent.document.getElementById('in_FatGer_DatFim').value= '".ConvertDataUSBR($sData_Trabalho)."';".
	       'parent.document.getElementById("in_FatGer_CampOculto").focus();'.
		   ''
		  : '').
	      'parent.document.getElementById("in_FatGer_DatIni").focus();'.
		  "parent.document.getElementById('in_FatGer_DatIni').value= '".ConvertDataUSBR($sData_Trabalho)."';".
    	  "P_Atu();".
		  //
          'parent.Calendar.setup({ '.
            'inputField : "in_FatGer_DatIni", '.
            'trigger    : "bt_FatGer_DatIni", '.
            'onSelect   : function() { this.hide(); }, '.
            'showTime   : 0, '.
            'dateFormat : "%d/%m/%Y" '.
          '});'.
          'parent.Calendar.setup({ '.
            'inputField : "in_FatGer_DatFim", '.
            'trigger    : "bt_FatGer_DatFim", '.
            'onSelect   : function() { this.hide(); }, '.
            'showTime   : 0, '.
            'dateFormat : "%d/%m/%Y" '.
          '});'.
		  //
		  "function Teclas_F( Objeto, Evento ) {".
             "vNumTecla = parent.Tecla_Apertada(Evento);".
             "if ( vNumTecla==119) { ".        //  ** [F8] **          // (Visualizar)
                 "if ( parent.document.getElementById('FatGer_BT_Vsl').style.visibility=='visible') {".
                      "setTimeout( parent.document.getElementById('FatGer_BT_Vsl').onclick , 10);".
                 "}".
		     "} else if ( vNumTecla==116) { ".  // ** [F5] **          // Não atualizar
                 //
		     "} else if ( vNumTecla==120) { ". //  ** [F9] **          // (Exportar em CSV / Excel)
                 "if ( parent.document.getElementById('FatGer_BT_Exc').style.visibility=='visible') {".
                      "setTimeout( parent.document.getElementById('FatGer_BT_Exc').onclick , 10);".
                 "}".
		     "} else if ( vNumTecla==121) { ". //  ** [F10] **         // (Consultar)
                  "P_Atu();".
		     "} else if ( vNumTecla==123) { ". //  ** [F12] **         // (Cupom Fiscal)
                 "if ( parent.document.getElementById('FatGer_BT_Fsc').style.visibility=='visible') {".
                      "setTimeout( parent.document.getElementById('FatGer_BT_Fsc').onclick , 10);".
                 "}".
		     "} else if ( vNumTecla==27) { ".  //  ** [ESC] **         // (SAIR)
                  "setTimeout( parent.document.getElementById('FatGer_BT_Fch').onclick , 10);".
		     "} else if ( vNumTecla==13) { ".
			      //
			 "} else {".
		          "P_TeclasPress_fm(Evento);".
			      "return true;".
			 "}".
			 "return false;".
		  '}'.
		  //
		  '';
    //
    // ATUALIZAR LISTA DE CONSULTA
    } ElseIf ( SUBSTR($sAcao,0,7)=="LISTAR_" ) {
       $n_TipoLocal   = (@$_REQUEST['TipoLocal']-1);                     // Tipo MESA=0 / BALCAO=1 / ENTREGA=2 / ENCOMENDA=3
       $n_Recebidos   = @$_REQUEST['Recebidos']+0;                       // 0 = Todos, 1 = Recebidos , 2 = Nao Recebidos
       $n_Cancelados  = @$_REQUEST['Cancelados']+0;                      // 0 = Todos, 1 = Cancelados, 2 = Nao Cancelados
	   $s_Fil_DataIni = @$_REQUEST['Fil_DataIni'];                       // Data inicial
	   $s_Fil_DataFim = @$_REQUEST['Fil_DataFim'];                       // Data Final
       $nP_NumCam     = @$_REQUEST['Fil_NumCam']+0;                      // Campo selecionado
	   $n_Fil_ModPag  = @$_REQUEST['Fil_ModPag']+0;                      // Modalidade de pagamento
	   $n_Fil_Asteri  = @$_REQUEST['Fil_Asterisco']+0;                   // Asterisco (Fiscal): 0=Sem, 1=Com, 2=Todos
       $s_Descric_Tx  = "Valor Tx. Serv.: R$ ";
	   $sHTML_BarInf  = '';
	   $nMostrarBarraInf = 2;
	   $aSessao['TipoLocal'] = $n_TipoLocal; 
	   //
	   $d_Fil_DataIni = ConvertDataBRUS($s_Fil_DataIni);
	   $d_Fil_DataIni = ConvertDataSTR($d_Fil_DataIni);
	   If ( $d_Fil_DataIni > ConvertDataSTR('1990-01-01') ) {
	      $s_Fil_DataIni = DATE('d/m/Y',$d_Fil_DataIni);
	   } Else {
	      $s_Fil_DataIni = '';
          $d_Fil_DataIni = 0;
	   }
	   $d_Fil_DataFim = ConvertDataBRUS($s_Fil_DataFim);
	   $d_Fil_DataFim = ConvertDataSTR($d_Fil_DataFim);
	   If ( $d_Fil_DataFim > ConvertDataSTR('1990-01-01') ) {
	      $s_Fil_DataFim = DATE('d/m/Y',$d_Fil_DataFim);
	   } Else {
	      $s_Fil_DataFim = '';
          $d_Fil_DataFim = 0;
	   }
       $sNomeA_Csv = "";
	   //
       If ( SUBSTR($sAcao,7)=="FAT" ) {   // Consulta do FAT_GERAL
	      //
          $oTabelaRegs->sNomeTabela  = 'fat_geral';
          $oTabelaRegs->sCampoIndice = 'FAT_CODIGOI';
		  //
          //$sSQLParm = '(FAT_DAT_FIM>0 OR FAT_CANCELA>0 OR FAT_RCFORMA>0) AND FAT_TIP_LOC='.$n_TipoLocal;
	      If ($n_TipoLocal==0) {
	         $sSQLParm = '(FAT_TIP_LOC=0 OR FAT_TIP_LOC=3)'; //0- mesas 3- comandas
	      } ElseIf ($n_TipoLocal==2) {              // Entrega
	         $sSQLParm = '(FAT_TIP_LOC=2 AND FAT_IDORDER=0 AND FAT_TIPOORI=0 AND LENGTH(FAT_IDORDER_IFOOD)=0)';
	      } ElseIf ($n_TipoLocal==3) {              // Encomendas
	         $sSQLParm = 'FAT_TIP_LOC=4';
	      } ElseIf ($n_TipoLocal==4) {              // Consignados
	         $sSQLParm = 'FAT_TIPOORI=5';
	      } ElseIf ($n_TipoLocal==6) {              // Delivery Express
	         $sSQLParm = '(FAT_TIP_LOC=2 AND FAT_IDORDER>0)';
	      } ElseIf ($n_TipoLocal==7) {              // Delivery IFood
	         $sSQLParm = '(FAT_TIP_LOC=2 AND LENGTH(FAT_IDORDER_IFOOD)>0)';
	      } Else {
	         $sSQLParm = 'FAT_TIP_LOC='.$n_TipoLocal;
	      }
		  If ($n_Fil_ModPag>0 ) {
		     $sSQLParm .= (EMPTY($sSQLParm) ? '' : ' AND ').'mpg.MOV_MPGCODI='.$n_Fil_ModPag;
		  }
	      $sHTML_BarInf = '';
	      //
	      $nValor_TotRec  = 0;
          $nValor_TotTax  = 0;
	      $nValor_TotCan  = 0;
	      $nValor_Despesa = 0;
	      $nFatGer_QtdReg = 0;
          $sCabec_Csv = "";
          $sTexto_Csv = "";
          //
          $oTabelaRegs->s_PHP_IniMonta =
	         'Global $nValor_TotRec;'.
	         'Global $nValor_TotCan;'.
	         'Global $nFatGer_QtdReg;'.
	         'Global $nValor_TotTax;'.
	         'Global $nValor_Despesa;'.
		     'Global $sTipoLocal, $sPulaLinha, $sTexto_Csv;'.
             '';
	      // Execução por linha
	      $oTabelaRegs->s_PHP_LinhaTb =
	         'If ($Row_Temp2Tabela["FAT_CAN_DAT"]>0) { '.
	            '$s_CorLinha="'.$aCoresTabela[3].'"; '.
	      	    '$s_BalaoTit="Comanda cancelada."; '.
	            //'$nValor_TotCan += $Row_Temp2Tabela["FAT_TOT_REC"];'.
	         '} ElseIf ($Row_Temp2Tabela["FAT_RCFORMA"]==0) { '.
	            'If ($Row_Temp2Tabela["FAT_DAT_FIM"]==0) {'.
	                '$s_CorLinha="'.$aCoresTabela[0].'"; '.
	      	        '$s_BalaoTit="Ocupado."; '.
	      	    '} Else {'.
	                '$s_CorLinha="'.$aCoresTabela[1].'"; '.
	      	        '$s_BalaoTit="Á receber já impressa."; '.
	      	    '}'.
	         '} Else {'.
	            '$s_CorLinha="'.$aCoresTabela[2].'"; '.
	         '}'.
	         '$nValor_TotRec += $Row_Temp2Tabela["FAT_TOT_REC"];'.
             '$nValor_TotTax += $Row_Temp2Tabela["FAT_TAXASVR"];'.
	         '$nFatGer_QtdReg++;'.
	         '';
          // Execução por linha no final do ciclo
          //If ( $n_TipoLocal==4 ) {
             $oTabelaRegs->s_PHP_LinhaTbF =
               '$sTexto_Csv .= $sPulaLinha;'.
               '';
          //}
	      // Execução por coluna
		  $oTabelaRegs->s_PHP_ColunaTb =
		     'If ($aBDCamposN[$nContador]=="FAT_SQCOMAN") {'.
			    'If (@$Row_Temp2Tabela["FSC_CODIGOI"] && EMPTY($Row_Temp2Tabela["FSC_CANCELA"])) {'.
			        '$sConteudoCRow .= " *";'.
				'}'.
             ( $n_TipoLocal==4 ?
		     '} ElseIf ($aBDCamposN[$nContador]=="FTI_TOTAL_F") {'.
				// Total que vendeu
                'If (@$Row_Temp2Tabela["FAT_TIP_LOC"]==5) {'.
                   '$sConteudoCRow = "";'.
                '} Else {'.
		           '$sConteudoCRow = NUMBER_FORMAT( $Row_Temp2Tabela["FTI_TOTAL_Q"]-$Row_Temp2Tabela["FTI_TOTAL_S"] , 3, ",","");'.
                   '$nValor_TotTax  += $Row_Temp2Tabela["FAT_VALDESC"];'.
                   '$nValor_Despesa += $Row_Temp2Tabela["FAT_DESPESA"];'.
                '}'.
		     '} ElseIf ($aBDCamposN[$nContador]=="FAT_VALDESC") {'.
                'If (@$Row_Temp2Tabela["FAT_TIP_LOC"]==2) {'.
		           '$sConteudoCRow = "R$&nbsp;".FormatoMoeda( $Row_Temp2Tabela["FAT_VALDESC"]-$Row_Temp2Tabela["FAT_DESPESA"])."&nbsp;";'.
                '}'.
             '' : '').
             ( $n_TipoLocal==6 ?
		     '} ElseIf ($aBDCamposN[$nContador]=="FAT_TIPOVEN") {'.
                '$sConteudoCRow = "";'.
                'If (@$Row_Temp2Tabela["FAT_TIPOVEN"]==0) {'.
                   '$sConteudoCRow = "Entregar";'.
                '} ElseIf (@$Row_Temp2Tabela["FAT_TIPOVEN"]==1) {'.
                   '$sConteudoCRow = "Vem buscar";'.
                '}'.
             '' : '').
			 '}'.
             '$sColuna_Csv = $sConteudoCRow;'.
             '$sColuna_Csv = STR_REPLACE("&nbsp;","",$sColuna_Csv);'.
             '$sTexto_Csv .= $sColuna_Csv.";";'.
		     '';
		  //
	      If ($n_TipoLocal==0) {         // MESA
             $oTabelaRegs->GLstCampos(
	            'FAT_SQCOMAN,N. Interno,60px,STRZERO=6;'.
	      		( $nTipoTrabCtl==0 ? 'FAT_NUM_MES,'.STRTOUPPER($sTipoLocal).',60px,NUMLOC;' : '').
                'FAT_DATAINI,Abertura,75px,DTA;'.
                'FAT_DAT_INI,,75px,DRT;'.
                'FAT_DATAFIM,Fechamento,75px,DTA;'.
                'FAT_DAT_FIM,,75px,DRT;'.
                'FAT_QTD_PES,Qtd pessoas,75px,LIMITE=3;'.
                'FAT_TAXASVR,Taxa Serviço,,MOE;'.
                'FAT_TOT_REC,Valor total,100px,MOE;'
             		                   );
             $sNomeA_Csv = $sTipoLocal;
             $sCabec_Csv .=
                'N. Interno;'.
                STRTOUPPER($sTipoLocal).';'.
                'Abertura;'.
                ';'.
                'Fechamento;'.
                ';'.
                'Qtd Pessoas;'.
                'Taxa Serviço;'.
                'Valor total;'.
                $sPulaLinha;
             //
	      } ElseIf ($n_TipoLocal==1) {   // BALCAO
             $oTabelaRegs->GLstCampos(
	            'FAT_SQCOMAN,N. Comanda,70px,STRZERO=6;'.
                'FAT_DATAINI,Data,75px,DTA;'.
                'FAT_DAT_INI,Hora,75px,DRT;'.
                'FAT_NOMCLIE,Cliente,,LIMITE=40;'.
                'FAT_TOT_REC,Valor total,100px,MOE;'
             		                   );
             $sNomeA_Csv = "Balcao";
             $sCabec_Csv .=
                'N. Comanda;'.
                'Data;'.
                'Hora;'.
                'Cliente;'.
                'Valor;'.
                $sPulaLinha;
             //
	      } ElseIf ($n_TipoLocal==2) {   // ENTREGA
             //$oTabelaRegs->sTabelas = 'fat_geral,cad_cliente';
	         //$sSQLParm .= ' AND FAT_CLIENTE=CLI_CODIGOI';
             $oTabelaRegs->GLstCampos(
	            'FAT_SQCOMAN,N. Comanda,70px,STRZERO=6;'.
                'FAT_DATAINI,Data,75px,DTA;'.
                'FAT_DAT_INI,Hora,75px,DRT;'.
                //'CLI_TEL001,Telefone,80px,TEL;'.
                'FAT_CLIENTE,Cliente,70px,STRZERO=6;'.
                'FAT_NOMCLIE,Nome,,LIMITE=20;'.
                'FAT_TAXASVR,Taxa,90px,MOE;'.
                'FAT_TOT_REC,Valor total,100px,MOE;'
             		                   );
             $sNomeA_Csv = "Entregas";
             $sCabec_Csv .=
                'N. Comanda;'.
                'Data;'.
                'Hora;'.
                'Codigo;'.
                'Cliente;'.
                'Taxa;'.
                'Valor;'.
                $sPulaLinha;
             //
	      } ElseIf ($n_TipoLocal==3) {   // ENCOMENDA
             $oTabelaRegs->GLstCampos(
	            'FAT_SQCOMAN,N. Comanda,70px,STRZERO=6;'.
                'FAT_DATAINI,Data,75px,DTA;'.
                'FAT_DAT_INI,Hora,75px,DRT;'.
                'FAT_NOMCLIE,Cliente,,LIMITE=20;'.
                'FAT_DTA_ENC,Data,75px,DTA;'.
                'FAT_HOR_ENC,Hora,75px,HOR;'.
                'FAT_TOT_REC,Valor total,100px,MOE;'
             		                 );
             $nMostrarBarraInf = 0;
             $sNomeA_Csv = "Encomendas";
             $sCabec_Csv .=
                'N. Comanda;'.
                'Data;'.
                'Hora;'.
                'Cliente;'.
                'Data;'.
                'Hora;'.
                'Valor;'.
                $sPulaLinha;
            //
	      } ElseIf ($n_TipoLocal==4) {   // CONSIGNADOS
             $oTabelaRegs->GLstCampos(
	            //'FAT_SQCOMAN,N. Comanda,70px,STRZERO=6;'.
                'FAT_DATAINI,Data,98px,SMNDTA;'.
                'FAT_NOMCLIE,Cliente,,LIMITE=20;'.
                'FTI_TOTAL_Q,Saída,50px,DECIMAL=3;'.
                'FAT_TOT_VAL,Valor de saída,80px,MOE;'.
                'FTI_TOTAL_S,Sobra,50px,DECIMAL=3;'.
                'FTI_TOTAL_F,Vendeu,50px;'.
                'FAT_VALDESC,Sobra,55px,MOE;'.
                'FAT_DESPESA,Despesas,60px,MOE;'.
                'FAT_TOT_REC,Valor envelope,90px,MOE;'.
                'FAT_OBSERV1,Observações,260px,LIMITE=38;'
             		                 );
            //$nMostrarBarraInf = 0;
             $sNomeA_Csv = $sTipoConsignado;
             $sCabec_Csv .=
                'Data;'.
                'Cliente;'.
                'Saída;'.
                'Valor de saída;'.
                'Sobra;'.
                'Vendeu;'.
                'Sobra;'.
                'Despesas;'.
                'Valor envelope;'.
                'Observações;'.
                $sPulaLinha;
             //
	      } ElseIf ($n_TipoLocal==6) {   // DELIVERY EXPRESS
             $oTabelaRegs->GLstCampos(
	            'FAT_SQCOMAN,N. Comanda,70px,STRZERO=6;'.
                'FAT_DATAINI,Data,75px,DTA;'.
                'FAT_DAT_INI,Hora,75px,DRT;'.
                'FAT_NOMCLIE,Cliente,,LIMITE=20;'.
                'FAT_TIPOVEN,Ação da venda,87px;'.
                'FAT_TAXASVR,Taxa,70px,MOE;'.
                'FAT_TOT_REC,Valor total,100px,MOE;'
             		                 );
             //$nMostrarBarraInf = 0;
             $sNomeA_Csv = "Delivery_Express";
             $sCabec_Csv .=
                'N. Comanda;'.
                'Data;'.
                'Hora;'.
                'Cliente;'.
                'Acao da venda;'.
                'Taxa;'.
                'Valor;'.
                $sPulaLinha;
             //
	      } ElseIf ($n_TipoLocal==7) {   // DELIVERY IFOOD
             $oTabelaRegs->GLstCampos(
	            'FAT_SQCOMAN,N. Comanda,70px,STRZERO=6;'.
                'FAT_DATAINI,Data,75px,DTA;'.
                'FAT_DAT_INI,Hora,75px,DRT;'.
                'FAT_NOMCLIE,Cliente,,LIMITE=20;'.
                'FAT_TAXASVR,Taxa,70px,MOE;'.
                'FAT_TOT_REC,Valor total,100px,MOE;'
             		                 );
             //$nMostrarBarraInf = 0;
             $sNomeA_Csv = "Delivery_IFood";
             $sCabec_Csv .=
                'N. Comanda;'.
                'Data;'.
                'Hora;'.
                'Cliente;'.
                'Taxa;'.
                'Valor;'.
                $sPulaLinha;
	      }
	      //
	      If ( $nP_NumCam==0 OR $oTabelaRegs->nQtdCampos<($nP_NumCam+1) ) { $nP_NumCam=1; }
   	      $aLstCampo = EXPLODE(',',@$oTabelaRegs->aLstCampos[$nP_NumCam-1]);
	      //
	      If ($n_Recebidos==1) {        // EM ABERTO
	         If (STRLEN($sSQLParm)>0) { $sSQLParm .= ' AND '; }
	         $sSQLParm .= '(FAT_DAT_FIM=0)';
	      } ElseIf ($n_Recebidos==2) {  // NAO RECEBIDO
	         If (STRLEN($sSQLParm)>0) { $sSQLParm .= ' AND '; }
	         $sSQLParm .= '(FAT_RCFORMA=0)';
	      } ElseIf ($n_Recebidos==3) {  // RECEBIDO
	         If (STRLEN($sSQLParm)>0) { $sSQLParm .= ' AND '; }
	         $sSQLParm .= '(FAT_RCFORMA=1)';
	      }
	      If ($n_Cancelados==1) {       // CANCELADO
	         If (STRLEN($sSQLParm)>0) { $sSQLParm .= ' AND '; }
	         $sSQLParm .= '(ftg.FAT_CAN_DAT>0)';
	      } ElseIf ($n_Cancelados==2) { // NAO CANCELADO
	         If (STRLEN($sSQLParm)>0) { $sSQLParm .= ' AND '; }
	         $sSQLParm .= '(ftg.FAT_CAN_DAT=0)';
	      }
	      If ($d_Fil_DataIni>0) { // DATA INICIAL
	         If (STRLEN($sSQLParm)>0) { $sSQLParm .= ' AND '; }
	         //$sSQLParm .= '(FAT_DAT_INI>="'.DATE('Y-m-d',$d_Fil_DataIni).'")';
			 If ( $n_TipoLocal==3 ) {
	            $sSQLParm .= '(FAT_DATAINI>="'.DATE('Y-m-d',$d_Fil_DataIni).'" OR FAT_DTA_ENC>="'.DATE('Y-m-d',$d_Fil_DataIni).'")';
			 } Else {
	            $sSQLParm .= '(FAT_DATAINI>="'.DATE('Y-m-d',$d_Fil_DataIni).'")';
		     }
	      }
	      If ($d_Fil_DataFim>0) { // DATA FINAL
	         If (STRLEN($sSQLParm)>0) { $sSQLParm .= ' AND '; }
	         //$sSQLParm .= "(FAT_DAT_INI<'".DATE('Y-m-d',$d_Fil_DataFim+(24*60*60))."')";
			 If ( $n_TipoLocal==3 ) {
	            $sSQLParm .= '(FAT_DATAINI<="'.DATE('Y-m-d',$d_Fil_DataFim).'" OR FAT_DTA_ENC<="'.DATE('Y-m-d',$d_Fil_DataFim).'")';
			 } Else {
	            $sSQLParm .= "(FAT_DATAINI<='".DATE('Y-m-d',$d_Fil_DataFim)."')";
		     }
	      }
          If ( $n_TipoLocal==4 ) {
             //If (STRLEN($sSQLParm)>0) { $sSQLParm = 'WHERE '.$sSQLParm; }
             $sSQLParm = 'WHERE LENGTH(fti.FAT_CANITEM)=0 '.(EMPTY($sSQLParm) ? "" : "AND ".$sSQLParm);
             $oTabelaRegs->sBDQuery =
               "SELECT ".
                 "ftg.FAT_CODIGOI, ftg.FAT_NOMCLIE, ftg.FAT_CLIENTE, ".
                 "ftg.FAT_SQCOMAN, ftg.FAT_NUM_MES, ftg.FAT_DATAINI, ftg.FAT_DAT_INI, ".
                 "ftg.FAT_DATAFIM, ftg.FAT_DAT_FIM, ftg.FAT_TAXASVR, ftg.FAT_QTD_PES, ".
                 "ftg.FAT_TOT_VAL, ftg.FAT_TOT_REC, ftg.FAT_CANCELA, ftg.FAT_CAN_DAT, ".
                 "ftg.FAT_RCFORMA, ftg.FAT_VALDESC, ftg.FAT_DESPESA,".
                 "ftg.FAT_DTA_ENC, ftg.FAT_HOR_ENC, ftg.FAT_OBSERV1, ftg.FAT_TIP_LOC, ".
                 "SUM(fti.FAT_QTD_ITE) AS FTI_TOTAL_Q, SUM(fti.FAT_QTDSOBRA) AS FTI_TOTAL_S, fti.FAT_QTD_ITE AS FTI_TOTAL_F,".
                 "mpg.MOV_CODIGOI, cli.CLI_NOMECP   ".
               "FROM      fat_geral          AS ftg ".
               "LEFT JOIN fat_item           AS fti ON fti.FAT_CFATGER=ftg.FAT_CODIGOI ".
               "LEFT JOIN cad_cliente        AS cli ON cli.CLI_CODIGOI=ftg.FAT_CLIENTE ".
               "LEFT JOIN mov_modalidade_pag AS mpg ON mpg.MOV_CFATGER=ftg.FAT_CODIGOI ".
               $sSQLParm.
               " GROUP BY ftg.FAT_CODIGOI ".
               ' ORDER BY '.$aLstCampo[0].' ASC'.
               ';';
             //
          } Else {
             If ($n_Fil_Asteri==1) {        // Com *
                If (STRLEN($sSQLParm)>0) { $sSQLParm .= ' AND '; }
                $sSQLParm .= '(FSC_CODIGOI>0 AND COALESCE(FSC_CANCELA,0)=0)';
             } ElseIf ($n_Fil_Asteri==0) {  // Sem *
                If (STRLEN($sSQLParm)>0) { $sSQLParm .= ' AND '; }
                $sSQLParm .= '(COALESCE(FSC_CODIGOI,0)=0 OR FSC_CANCELA>0)';
             }
             //
             If (STRLEN($sSQLParm)>0) { $sSQLParm = 'WHERE '.$sSQLParm; }
             //$oTabelaRegs->sBDParametros = $sSQLParm.' ORDER BY '.$aLstCampo[0].' ASC';
             $oTabelaRegs->sBDQuery =
               "SELECT ".
                 "ftg.FAT_CODIGOI, ftg.FAT_NOMCLIE, ftg.FAT_CLIENTE, ftg.FAT_TIPOVEN, ".
                 "ftg.FAT_SQCOMAN, ftg.FAT_NUM_MES, ftg.FAT_DATAINI, ftg.FAT_DAT_INI, ".
                 "ftg.FAT_DATAFIM, ftg.FAT_DAT_FIM, ftg.FAT_TAXASVR, ftg.FAT_QTD_PES, ".
                 "ftg.FAT_TOT_REC, ftg.FAT_CANCELA, ftg.FAT_CAN_DAT, ftg.FAT_RCFORMA, ".
                 "ftg.FAT_DTA_ENC, ftg.FAT_HOR_ENC, ".
                 "COALESCE(fsc.FSC_CODIGOI,0) AS FSC_CODIGOI, ".
                 "COALESCE(fsc.FSC_CANCELA,0) AS FSC_CANCELA, ".
                 "mpg.MOV_CODIGOI, cli.CLI_NOMECP   ".
               "FROM      fat_geral          AS ftg ".
               "LEFT JOIN fiscal_geral       AS fsc ON fsc.FSC_CFATGER=ftg.FAT_CODIGOI ".
               "LEFT JOIN cad_cliente        AS cli ON cli.CLI_CODIGOI=ftg.FAT_CLIENTE ".
               "LEFT JOIN mov_modalidade_pag AS mpg ON mpg.MOV_CFATGER=ftg.FAT_CODIGOI ".
               $sSQLParm.
               " GROUP BY ftg.FAT_CODIGOI ".
               ' ORDER BY '.$aLstCampo[0].' ASC'.
               ';';
             //
          }
          $sRet_TelaJ_HTML = $oTabelaRegs->MontaTabelaHTML();
	      //
	      // HTML Barra Inferior
	      $sHTML_BarInf =
	        '<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0">'.
	         '<tr>'.
	      	  '<td width="10px"></td>'.
	      	  //'<td width="170px" style="font-size:16px; font-weight:bold;" align="left" valign="middle">'.
	            // 'Total cancelado: '.FormatoMoeda($nValor_TotCan).
	      	  //'</td>'.
	      	  '<td width="200px" style="font-size:14px;" align="left" valign="middle">'.
	            $nFatGer_QtdReg.' comandas localizadas'.
	      	  '</td>'.
	      	  '<td></td>'.
              ( $n_TipoLocal==4 ?
	      	   '<td width="320px" style="font-size:14px; font-weight:bold;" align="right" valign="middle">'.
	             "Despesas: R$ ".FormatoMoeda($nValor_Despesa).
                 "&nbsp;&nbsp;&nbsp;&nbsp;".
                 "Sobras: R$ ".FormatoMoeda($nValor_TotTax-$nValor_Despesa).
	      	   '</td>'
              :
	      	   '<td width="230px" style="font-size:14px; font-weight:bold;" align="right" valign="middle">'.
	             $s_Descric_Tx.FormatoMoeda($nValor_TotTax).
	      	   '</td>'
              ).
              '<td style="font-size:16px; font-weight:bold;" align="right" valign="middle">'.
	            'Valor Total.: R$ '.FormatoMoeda($nValor_TotRec).
	      	  '</td>'.
	      	  '<td width="10px"></td>'.
	      	 '</tr>'.
	        '</table>';
          //
          If ( $n_TipoLocal == 1 ) {
             $sTexto_Csv .=
               $sPulaLinha.
               ";;;Total geral;R$ ".FormatoMoeda($nValor_TotRec).";".
               $sPulaLinha;
          } ElseIf ( $n_TipoLocal == 2 ) {
             $sTexto_Csv .=
               $sPulaLinha.
               ";;;;Total geral;R$ ".FormatoMoeda($nValor_TotTax).";R$ ".FormatoMoeda($nValor_TotRec).";".
               $sPulaLinha;
          } ElseIf ( $n_TipoLocal == 3 ) {
             $sTexto_Csv .=
               $sPulaLinha.
               ";;;;;Total geral;R$ ".FormatoMoeda($nValor_TotRec).";".
               $sPulaLinha;
          } ElseIf ( $n_TipoLocal == 4 ) {
             $sTexto_Csv .=
               $sPulaLinha.
               ';;;;;Total geral;R$ '.FormatoMoeda($nValor_TotTax-$nValor_Despesa).";R$ ".FormatoMoeda($nValor_Despesa).";R$ ".FormatoMoeda($nValor_TotRec).";".
               $sPulaLinha;
          } ElseIf ( $n_TipoLocal == 6 ) {
             $sTexto_Csv .=
               $sPulaLinha.
               ";;;;Total geral;R$ ".FormatoMoeda($nValor_TotTax).";R$ ".FormatoMoeda($nValor_TotRec).";".
               $sPulaLinha;
          } ElseIf ( $n_TipoLocal == 7 ) {
             $sTexto_Csv .=
               $sPulaLinha.
               ";;;Total geral;R$ ".FormatoMoeda($nValor_TotTax).";R$ ".FormatoMoeda($nValor_TotRec).";".
               $sPulaLinha;
          }
		  //
       } ElseIf ( SUBSTR($sAcao,7)=="TRS" ) {   // Consulta do MOV_TRANSFERENCIA_ITEM
	      //
          $oTabelaRegs->sCampoIndice  = 'MOV_CODIGOI';
          $nMostrarBarraInf = 3;
		  //
		  $sSQLParm = '';
	      If ($d_Fil_DataIni>0) { // DATA INICIAL
	         If (STRLEN($sSQLParm)>0) { $sSQLParm .= ' AND '; }
	         $sSQLParm .= '(movt.MOV_DTHSIST>="'.DATE('Y-m-d',$d_Fil_DataIni).'")';
	      }
	      If ($d_Fil_DataFim>0) { // DATA FINAL
	         If (STRLEN($sSQLParm)>0) { $sSQLParm .= ' AND '; }
	         $sSQLParm .= "(movt.MOV_DTHSIST<='".DATE('Y-m-d',$d_Fil_DataFim)."')";
	      }
		  //
          $oTabelaRegs->sBDQuery =
		     'SELECT '.
			         'movt.MOV_CODIGOI, movt.MOV_DTHSIST, movt.MOV_DTHREAL, movt.MOV_TIPOMOV,'.
					 'fncr.FUN_CODIGO , fncr.FUN_NOMECP , fncr.FUN_APELID ,'.
					 'ftgo.FAT_TIP_LOC AS FATO_TIP_LOC, ftgo.FAT_NUM_MES AS FATO_NUM_MES, ftgo.FAT_SQCOMAN AS FATO_SQCOMAN,'.
					 'ftgd.FAT_TIP_LOC AS FATD_TIP_LOC, ftgd.FAT_NUM_MES AS FATD_NUM_MES, ftgd.FAT_SQCOMAN AS FATD_SQCOMAN,'.
					 'COALESCE(ite1.ITE_CODIGOI,0) AS ITE1_CODIGOI, COALESCE(ite1.ITE_DESCRIC,"") AS ITE1_DESCRIC,'.
					 'COALESCE(ite2.ITE_CODIGOI,0) AS ITE2_CODIGOI, COALESCE(ite2.ITE_DESCRIC,"") AS ITE2_DESCRIC,'.
					 'COALESCE(ite3.ITE_CODIGOI,0) AS ITE3_CODIGOI, COALESCE(ite3.ITE_DESCRIC,"") AS ITE3_DESCRIC,'.
					 'COALESCE(ite4.ITE_CODIGOI,0) AS ITE4_CODIGOI, COALESCE(ite4.ITE_DESCRIC,"") AS ITE4_DESCRIC '.
			 'FROM      mov_transferencia_item AS movt '.
			 'LEFT JOIN cad_funcionario        AS fncr ON fncr.FUN_CODIGO  = movt.MOV_COD_FUN '.
			 'LEFT JOIN fat_geral              AS ftgo ON ftgo.FAT_CODIGOI = movt.MOV_FATGORI '.
			 'LEFT JOIN fat_geral              AS ftgd ON ftgd.FAT_CODIGOI = movt.MOV_FATGDST '.
			 'LEFT JOIN fat_item               AS ftim ON ftim.FAT_CODIGOI = movt.MOV_FATITEM '.
			 'LEFT JOIN cad_produto            AS ite1 ON ftim.FAT_CODITE1 = ite1.ITE_CODIGOI '.
			 'LEFT JOIN cad_produto            AS ite2 ON ftim.FAT_CODITE2 = ite2.ITE_CODIGOI '.
			 'LEFT JOIN cad_produto            AS ite3 ON ftim.FAT_CODITE3 = ite3.ITE_CODIGOI '.
			 'LEFT JOIN cad_produto            AS ite4 ON ftim.FAT_CODITE4 = ite4.ITE_CODIGOI '.
			 ( EMPTY($sSQLParm) ? '' : 'WHERE '.$sSQLParm ).
		     ';';
		  //
          $oTabelaRegs->GLstCampos(
	         'MOV_DTHSIST,Data e Hora,130px;'.
	         'FUN_NOMECP,Operador,70px;'.
             'ITE1_DESCRIC,Produto;'.
             'FATO_SQCOMAN,Origem,170px;'.
             'FATD_SQCOMAN,Destino,170px;'.
			 'MOV_TIPOMOV,Tipo,90px;'
          		                   );
          //
	      $oTabelaRegs->s_PHP_IniMonta =
		     'Global $sTipoLocal;';
		  //
	      $oTabelaRegs->s_PHP_LinhaTb =
		     '$nTipoMov = $Row_Temp2Tabela["MOV_TIPOMOV"];'.
		     'If       ( $nTipoMov==0 ) {'.
	             '$s_CorLinha="'.$aCoresTabela2[0].'";'.
		     '} ElseIf ( $nTipoMov==1 ) {'.
	             '$s_CorLinha="'.$aCoresTabela2[1].'";'.
		     '} ElseIf ( $nTipoMov==2 ) {'.
	             '$s_CorLinha="'.$aCoresTabela2[2].'";'.
			 '}'.
             '';
		  //
		  $oTabelaRegs->s_PHP_ColunaTb =
		     '$sNomeCampo = $aBDCamposN[$nContador];'.
			 'Switch ($sNomeCampo) {'.
			    // Data e hora
			    'Case "MOV_DTHSIST":'.
		           '$sConteudoCRow = ConvertDataUSBR($Row_Temp2Tabela["MOV_DTHSIST"])." ".SUBSTR($Row_Temp2Tabela["MOV_DTHREAL"],11);'.
				   'BREAK;'.
				// Produtos
			    'Case "ITE1_DESCRIC":'.
				   'If ( $Row_Temp2Tabela["ITE2_CODIGOI"]>0 ) {'.
				       '$sConteudoCRow .= ",<br>".$Row_Temp2Tabela["ITE2_DESCRIC"];'.
				   '}'.
				   'If ( $Row_Temp2Tabela["ITE3_CODIGOI"]>0 ) {'.
				       '$sConteudoCRow .= ",<br>".$Row_Temp2Tabela["ITE3_DESCRIC"];'.
				   '}'.
				   'If ( $Row_Temp2Tabela["ITE4_CODIGOI"]>0 ) {'.
				       '$sConteudoCRow .= ",<br>".$Row_Temp2Tabela["ITE4_DESCRIC"];'.
				   '}'.
				   'BREAK;'.
				// Origem
			    'Case "FATO_SQCOMAN":'.
				   '$sConteudoCRow = "";'.
				   'If ( $Row_Temp2Tabela["FATO_TIP_LOC"]==0 ) {'.
				       '$sConteudoCRow = $sTipoLocal." ".($Row_Temp2Tabela["FATO_NUM_MES"]+0);'.
				   '} ElseIf ( $Row_Temp2Tabela["FATO_TIP_LOC"]==1 ) {'.
				       '$sConteudoCRow = "Balcão";'.
				   '} ElseIf ( $Row_Temp2Tabela["FATO_TIP_LOC"]==2 ) {'.
				       '$sConteudoCRow = "Entrega";'.
				   '} ElseIf ( $Row_Temp2Tabela["FATO_TIP_LOC"]==3 ) {'.
				       '$sConteudoCRow = "";'.
				   '}'.
			       '$sConteudoCRow .= (EMPTY($sConteudoCRow) ? "" : ", ")."Comanda ".Str_Zero($Row_Temp2Tabela["FATO_SQCOMAN"],6);'.
				   'BREAK;'.
				// Destino
			    'Case "FATD_SQCOMAN":'.
				   '$sConteudoCRow = "";'.
				   'If ( $Row_Temp2Tabela["FATD_TIP_LOC"]==0 ) {'.
				       '$sConteudoCRow = $sTipoLocal." ".$Row_Temp2Tabela["FATD_NUM_MES"];'.
				   '} ElseIf ( $Row_Temp2Tabela["FATD_TIP_LOC"]==1 ) {'.
				       '$sConteudoCRow = "Balcão";'.
				   '} ElseIf ( $Row_Temp2Tabela["FATD_TIP_LOC"]==2 ) {'.
				       '$sConteudoCRow = "Entrega";'.
				   '} ElseIf ( $Row_Temp2Tabela["FATD_TIP_LOC"]==3 ) {'.
				       '$sConteudoCRow = "";'.
				   '}'.
			       '$sConteudoCRow .= (EMPTY($sConteudoCRow) ? "" : ", ")."Comanda ".Str_Zero($Row_Temp2Tabela["FATD_SQCOMAN"],6);'.
				   'BREAK;'.
				// Tipo da transferência
			    'Case "MOV_TIPOMOV":'.
				   '$nTipoMov = $Row_Temp2Tabela["MOV_TIPOMOV"];'.
				   'If ( $nTipoMov==0 ) {'.
				       '$sConteudoCRow = "Transf. item";'.
				   '} ElseIf ( $nTipoMov==1 ) {'.
				       '$sConteudoCRow = "Transf. ".$sTipoLocal;'.
				   '} ElseIf ( $nTipoMov==2 ) {'.
				       '$sConteudoCRow = "Junção ".$sTipoLocal;'.
				   '}'.
				   'BREAK;'.
                //
			 '}'.
		     '';
		  //
          $sRet_TelaJ_HTML = $oTabelaRegs->MontaTabelaHTML();
		  //
	   }
       //
       $aSessao['NomeA_CSV'] = $sNomeA_Csv;
       $aSessao['Texto_CSV'] = ( EMPTY($sTexto_Csv) ? "" : $sCabec_Csv.$sTexto_Csv );
	   //
       // Java
       $sRet_Javs .=
           "var iQdr_ListaCli = parent.document.getElementById('".$oTabelaRegs->sIdObjTabela."'); ".
    	   'iQdr_ListaCli.innerHTML = '.JAVA_CharCode($sRet_TelaJ_HTML).'; '.
		   "parent.document.getElementById('dv_FatGer_BarInf2').style.display = '".($nMostrarBarraInf==2 ? '' : 'none')."';".
		   "parent.document.getElementById('dv_FatGer_BarInf3').style.display = '".($nMostrarBarraInf==3 ? '' : 'none')."';".
		   "parent.document.getElementById('in_FatGer_DatIni').value = '".$s_Fil_DataIni."';".
		   "parent.document.getElementById('in_FatGer_DatFim').value = '".$s_Fil_DataFim."';".
		   "parent.document.getElementById('dv_FatGer_BarInf').innerHTML = ".JAVA_CharCode_Mini($sHTML_BarInf)."; ".
           "parent.document.getElementById('FatGer_BT_Exc').style.visibility='".( EMPTY($aSessao['Texto_CSV']) ? 'hidden' : 'visible')."'; ".
           'parent.Car_'.$sNomeAcesso.'1.'.$oTabelaRegs->sNomeTabela.'_Rowsel = 1;'.
           'parent.Car_'.$sNomeAcesso.'1.P_Sel('.$nP_NumCam.');'.
		   "";
       $sRet_TelaJ_HTML = '';
    //
    // >> Gerar CSV para excel para download
    } ElseIf ( $sAcao=="GERAR_CSV" ) {
       $sNomeA_Csv = @$aSessao['NomeA_CSV'];
       $s_Conteudo = @$aSessao['Texto_CSV'];
	   $sArquivo = "Consulta_de_comandas_".$sNomeA_Csv."_".DATE("d-m-Y_H-i-s").".csv";
       OB_CLEAN();
	   HEADER("Content-Type: text/csv");
	   HEADER("Content-Length: ".STRLEN($s_Conteudo));
	   HEADER("Content-Disposition: attachment; filename=".$sArquivo);
	   ECHO $s_Conteudo;
	   EXIT;
    //
    // FECHAR
    } ElseIf ( $sAcao=="FECHAR" ) {
       $sRet_Javs .=
	       ($bModo_RecCaixa ?
		     "parent.Disabled_In_Elems('iJan_Cxa_Princ',false);".
	         'parent.document.getElementById("iJan_Cxa_Princ_Travar").style.visibility="hidden";'.
		     'parent.document.getElementById("i_CxaRec_NumLoc").focus();'.
			 ''
	       :
	         'parent.document.getElementById("dv_MenuL_Barra").style.visibility="visible";'
		   ).
	       "parent.RmElem('".$oJanelaPrinc->sIdObj."');".
		   "";
	   //
    }
//
//
//  ** VISUALIZAR CUPOM **
} ElseIf ( $sSubModulo=="CUPOM" ) {
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJan2;
    $oJanelaPrinc->nTop    = 8;
    $oJanelaPrinc->nLeft   = 5;
    $oJanelaPrinc->nWidth  = 500;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
	$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Visualizar comanda';
	$oJanelaPrinc->sJavOnClick = "document.getElementById('in_FatGerV_Tecla').focus();";
	$oJanelaPrinc->sJavKeyDown = "";
	$oJanelaPrinc->nIndicePos  = 2;
    //
	$sJavaTravarJ = "document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; ";
	$sJavaFechaEr = 'document.location.href = "./car_js.php?mod='.$sModulo.'&submod='.$sSubModulo.'&nomeacs='.$sNomeAcesso.'&acao=FECHAR";';
	//
    $oJanelaPrinc->sJavOnClickF =
         $sJavaTravarJ.
		 "document.forms.fmFatGerV.acao.value='FECHAR'; ".
         "document.forms.fmFatGerV.submit();";
	//
	$nFat_CodigoI = @$_REQUEST['Fat_CodigoI']+0;
	$Row_FatGer = MYSQL_QUERY("SELECT * FROM fat_geral WHERE FAT_CODIGOI=".$nFat_CodigoI.";") or die(MYSQL_ERROR());
	//
	// Comanda (Faturamento) não encontrada
	If ( ! ($Row_FatGer=MYSQL_FETCH_OBJECT($Row_FatGer)) ) {
	   $sAcao = "FECHAR";
	}
    //
    // JANELA TELA PRINCIPAL
    If ( EMPTY($sAcao) Or SUBSTR($sAcao,0,1)=="_" ) {
	   $n_TipoLocal = $aSessao['TipoLocal'];  // 1- balcao 2-disk
	   //
	   $oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."2.Teclas_F(this,event);";	   
	   $aSessao[$sNomeAcesso.'_Avulso'] = ($sAcao=="_AVULSO_");  // Iniciar modulo modo avulso (sozinho)
	   $bMod_Avulso = $aSessao[$sNomeAcesso.'_Avulso'];
	   //
       // Tela HTML
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
		  // Teclas
		  '<input id="in_FatGerV_Tecla" style="position:absolute; top:-100; left:-100; width:1px; height:1px;">'.
		  //
          '<form name="fmFatGerV" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'3">'.
           '<input name="mod" type="hidden" value="'.$sModulo.'">'.
           '<input name="submod" type="hidden" value="'.$sSubModulo.'">'.
           '<input name="acao" type="hidden" value="">'.
    	   '<input name="nomeacs" type="hidden" value="'.$sNomeAcesso.'">'.
           '<input name="G_Opcao" type="hidden" value="">'.
           '<input name="Fat_CodigoI" type="hidden" value="'.$nFat_CodigoI.'">'.
          '</form>'.
		  '<div id="dv_FatGerV_BarInf" style="width:100%; height:550px; background:#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%" style="background-color:'.$sCorBarraInf.';" border="0" cellspacing="0" cellpadding="0"></tr>'.
           '<td width="4px" height="40px" align="left">&nbsp;</td>'.
           '<td width="130px" align="left">'.
            HTML_Botao( 3, 'FatGerV_BT_Imp', "Car_".$sNomeAcesso."2.Mostrar_Cupom(1); "
                         , 'Reimprimir (F9)','images/btimg_imp.png').
		   '</td>'.
		   //( ($n_TipoLocal==0 || $n_TipoLocal==1 || $n_TipoLocal==2) ?
		      '<td align="left">'.
                 HTML_Botao( 3, 'FatGerV_BT_Exc',  'Car_'.$sNomeAcesso.'2.SalvarExcel();'
                              , 'Excel (F7)'   ,'images/btimg_exportar_excel.png',100).		    
		      '</td>'.
		   //'' : '').
           '<td>'.
		      '&nbsp;'.
       	   '</td>'.
           '<td width="120px" align="right">'.
           HTML_Botao( 3, 'FatGerV_BT_Fch', $oJanelaPrinc->sJavOnClickF
                        , 'Sair (ESC)' ,'images/btimg_fechar.png').
       	   '</td>'.
           '<td width="4px" height="40px" align="left">&nbsp;</td>'.
          '</tr></table>'.
		  //
		  $oJanelaPrinc->MontaJanHTML(False);
	   // Java anterior
       $sRet_Javs .=
          "function Mostrar_Cupom(sOpcImp) {".
		    "parent.document.forms.fmFatGerV.acao.value='GERAR'; ".
            "parent.document.forms.fmFatGerV.G_Opcao.value=sOpcImp; ".
			"if (sOpcImp != '0') { ".
			    "parent.JanEspera(true, 'Reimprimindo Cupom... aguarde...');".
                "setTimeout( function () { parent.document.forms.fmFatGerV.submit();} , 500); ".
			"} else {".
                "parent.document.forms.fmFatGerV.submit();".
			"}".
		  "}".
		  "function SalvarExcel() {".
	        "parent.document.forms.fmFatGerV.acao.value='GERAR_EXCEL';".
            "parent.document.forms.fmFatGerV.submit();".
		  "}".
		  
          '';
       // Java posterior
       $sRet_JavsPos .=
	      "parent.document.getElementById('in_FatGerV_Tecla').focus(); ".
          "setTimeout( function () { Mostrar_Cupom('0'); } , 500); ".
		  //
		  "function Teclas_F( Objeto, Evento ) {".
             "vNumTecla = parent.Tecla_Apertada(Evento);".
             "if ( vNumTecla==120) { ".        //  ** [F9] **          // (Imprimir)
                 "setTimeout( parent.document.getElementById('FatGerV_BT_Imp').onclick , 100);".
		     "} else if ( vNumTecla==116) { ".  // ** [F5] **     Não atualizar
                 //
		     "} else if ( vNumTecla==118) { ".  // ** [F7] **     Excel
               "setTimeout( parent.document.getElementById('FatGerV_BT_Exc').onclick , 100);".
			 "} else if ( vNumTecla==27) { ".  //  ** [ESC] **         // (SAIR)
                 "setTimeout( parent.document.getElementById('FatGerV_BT_Fch').onclick , 100);".
			 "} else {".
			     "return true;".
			 "}".
			 "return false;".
          '}'.
		  //
		  "";
	//
    // GERA O CUPOM
    } ElseIf ( $sAcao=="GERAR" ) {
	   $bMod_Avulso = $aSessao[$sNomeAcesso.'_Avulso'];
	   $nGeraOpcao = @$_REQUEST['G_Opcao']+0;  // (0=Na tela , 1=Imprimir)
	   $sTxt_Cupom = MontaCupom_Rec('fat_geral.FAT_CODIGOI='.$Row_FatGer->FAT_CODIGOI, True, True); // se imprime os cancelados
	   //
	   If ($nGeraOpcao==0) {                   // Mostra Cupom na tela
          $sHTML_Cupom = $sTxt_Cupom;
		  $sHTML_Cupom = STR_REPLACE(CHR(10),"",$sHTML_Cupom);
		  $sHTML_Cupom = STR_REPLACE(CHR(13),"<br>",$sHTML_Cupom);
		  $sHTML_Cupom = STR_REPLACE(CHR(32),"&nbsp;",$sHTML_Cupom);
		  $sHTML_Cupom = STR_REPLACE("[EXPANDIR]",'',$sHTML_Cupom);
	      $sHTML_Cupom =
		     '<div align="center" style="-moz-user-select:text; -khtml-user-select:text; -webkit-user-select:text; -ms-user-select:text; user-select: text; cursor:auto;">'.
			  '<table border="0" cellspacing="0" cellpadding="0"><tr><td align="left" style="font-size:13px; font-family:Courier New,Courier,mono;">'.
			   $sHTML_Cupom.
			  '</td></tr></table>'.
			 '</div>';
          $sRet_Javs .= 
		     "parent.document.getElementById('dv_FatGerV_BarInf').innerHTML = ".JAVA_CharCode($sHTML_Cupom).";".
			 "".
			 "";
	      //
	   //
	   } ElseIf ($nGeraOpcao==1) {             // Gera cupom para a pasta de Impressão
		  $sRet_Javs .= "parent.JanEspera(false); ";
          $sCfg_ClpExp2 = SQLVarConfig('GARCOM_CLIPPER_ARQ_EXPORTA2');
          If ( STRLEN($sCfg_ClpExp2)>3 ) {
             If (STRLEN($sTxt_Cupom)>0) {
			    //
				$sExt_ImpCup = $Row_FatGer->FAT_TIP_LOC;
				If ($sExt_ImpCup==3) { $sExt_ImpCup = 0; }
				$a_ImpC = SQLVarConfig('GARCOM_IMPC_'.$sExt_ImpCup);
				$sExt_ImpCup = '';
				$a_ImpC = EXPLODE(';',$a_ImpC);
				//If ( @$a_ImpC[0]+0 ) {
				   $sExt_ImpCup = @$a_ImpC[1];
				//}
				If ( STRLEN($sExt_ImpCup)==0 ) { $sExt_ImpCup = 'IMP'; }
				//
			    $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.'.'.$sExt_ImpCup;
				//
				ERROR_REPORTING(0);      // Bloqueio o relatório de erro
                If ( $hArqExp = FOPEN( $sNomArqExpT, "a" ) ) {
                   FWRITE($hArqExp, $sTxt_Cupom );
                   FCLOSE( $hArqExp );
        	       If ( FILE_EXISTS($sNomArqExpR) ) { UNLINK($sNomArqExpR); }
        	       RENAME( $sNomArqExpT, $sNomArqExpR );
				   //
				} Else {
		           $sRet_Javs .= Info_Evento('Erro ao gerar arquivo da comanda para impressão.',1,"Impressão da comanda");
				}
				ERROR_REPORTING(E_ALL); // Desbloqueio o relatório de erro
				//
		     //
        	 } Else {    // Sem conteudo para imprimir
		         $sRet_Javs .=
	                Info_Evento('Não há conteúdo para imprimir.',1).
                    '';
			 }
          } Else {       // Sem caminho para impressão
		     $sRet_Javs .=
	            Info_Evento('Parametros do caminho inválido.',1).
                $sJavaFechaEr;
		  }
	     //
	   }
	   //
    //
    // >> Gerar excel para download
    } ElseIf ( $sAcao=="GERAR_EXCEL" ) {
       $sArquivo = "Relatorio_Consulta_de_Comandas_".DATE("d-m-Y_H-i-s").".csv";
       $aRel_Excel = @$_SESSION['TXT_EXCEL'];
	  
	   If (! EMPTY($aRel_Excel) ) {
	      $sTxt_CupomE = Exporta_Excel( $aRel_Excel,$sNomeAcesso,40 );
	   
          HEADER ("Content-type: text/plain");
	      HEADER("Content-Length: ".STRLEN($sTxt_CupomE));
	      HEADER("Content-Disposition: attachment; filename=".$sArquivo);
          ECHO $sTxt_CupomE;
	      EXIT;
	   }
	// FECHAR
    } ElseIf ( $sAcao=="FECHAR" ) {
	   $bMod_Avulso = $aSessao[$sNomeAcesso.'_Avulso'];
	   //
       $sRet_Javs .=
	       "parent.Car_".$sNomeAcesso."3.location.href='about:blank';".
	       "if (parent.document.getElementById('".$oJanelaPrinc->sIdObj."') != null) { parent.RmElem('".$oJanelaPrinc->sIdObj."'); }".
		   ( $bMod_Avulso ? 
		     @$aSessao["JAVA_EXECUTAR_AO_FECHAR"]
		   :
		     "parent.document.getElementById('".$sNomeIdJan1."_Travar').style.visibility='hidden';".
		     "parent.Disabled_In_Elems('".$sNomeIdJan1."',false);".
		     //( $bModo_RecCaixa ?
		     //  'parent.document.getElementById("in_FatGer_CampOculto").focus();' :
	           'parent.document.getElementById("in_FatGer_DatIni").focus();'
		     //)
		   ).
		   "";
	   //
    }
}
?>