<?php
//
$sNomeIdJan1 = 'iJan_RelCPC_Princ';
$sNomeIdJan2 = 'iJan_RelCPC_TxtVs';
$sCorBarraInf = '#E8E3CE';
$sData_Trabalho = SQLVarConfig('DATA_DE_TRABALHO');
$sPulaLinha = CHR(13).CHR(10);
//
// Carrega sessão para á variável
$aSessaoLocal = @$aSessao[$sNomeAcesso.'_S'];
//
//
//  ** TELA INICIAL **
If ( EMPTY( $sSubModulo ) ) {
    $s_Formulario = "fmPRelCP";     // Nome principal dos formulários HTML
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJan1; 
    $oJanelaPrinc->nTop    = 40;
    $oJanelaPrinc->nLeft   = 5;
    $oJanelaPrinc->nWidth  = 550;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
	$oJanelaPrinc->nLeft   += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Relatório de contas á pagar';
	$sJavaTravarJ =
	  "parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);".
	  "parent.document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible';";
	$oJanelaPrinc->sJavOnClickF =
	    "parent.document.forms.".$s_Formulario.".acao.value='FECHAR';".
        "parent.document.forms.".$s_Formulario.".submit();".
		$sJavaTravarJ;
    $oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."1.Teclas_F(this,event);";
	$oJanelaPrinc->aIdsObjList =
	      ARRAY(
		    'in_RelCPC_DatIni','in_RelCPC_DatFim','in_RelCPC_CodFor','sl_RelCPC_Opcao_','sl_RelCPC_OpcaoC', 'sl_RelCPC_Cod_Cta','sl_RelCPC_Cod_Cus' 
		  );
	//
	// >> Janela Principal
    If ( EMPTY($sAcao) ) {
	   // Montagem nos itens do cadastro de contas para a combobox
	   $sHTML_Combo_CodCTA = '<option value="0">* Todas as conta financeiras *</option>';
	   $Rows = MYSQL_QUERY("SELECT * FROM cad_contas WHERE CTA_ATIVO_ ORDER BY CTA_CODIGO ASC;") or die(MYSQL_ERROR());
       While ($Row = MYSQL_FETCH_OBJECT($Rows)) {
           $sHTML_Combo_CodCTA .=
		     '<option value="'.$Row->CTA_CODIGO.'">'.
			 $Row->CTA_DESCRI.
			 '</option>';
       }
	   // Montagem nos itens do cadastro de centro de custo para a combobox
	   $sHTML_Combo_CodCUS = '<option value="0">* Todos os custo *</option>';
	   $Rows = MYSQL_QUERY("SELECT * FROM cad_centro_custo WHERE CUS_ATIVO_ ORDER BY CUS_CODIGO ASC;") or die(MYSQL_ERROR());
       While ($Row = MYSQL_FETCH_OBJECT($Rows)) {
           $sHTML_Combo_CodCUS .=
		     '<option value="'.$Row->CUS_CODIGOI.'">'.
			 ( ( Somente_Numeros(SUBSTR($Row->CUS_CODIGO,4,3))+0==0 ) ? "" : "&nbsp;&nbsp;" ).
			 $Row->CUS_CODIGO.'-'.$Row->CUS_DESCRI.
			 '</option>';
       }
	  
		
		
		
		
	   //
       // Tela HTML
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
		  '<form name="'.$s_Formulario.'" 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.'">'.
		  // 1º linha
		  '<table width="100%" border="0">'.
           '<tr>'.
            '<td width="4px" height="20px">&nbsp;</td>'.
            '<td width="80px" align="right">'.
             'Período:'.
            '</td>'.
            '<td align="left">'.
       	     '<table border="0" cellspacing="0" cellpadding="0"><tr>'.
			  '<td width="28px" align="center"><img onclick="'."sIdHasFocus='in_RelCPC_DatIni';".'" src="images/bimg_calendario.png" border="0" id="bt_RelCPC_DatIni" style="cursor:pointer;"></td>'.
			  '<td width="77px">'.
			   '<input id="in_RelCPC_DatIni" name="Fil_DataIni" type="text" maxlength="10" onchange="return Car_'.$sNomeAcesso.'1.Atualiza();" value="" style="font-size:12px; width:99%;">'.
			  '</td>'.
			  '<td align="center" width="10px">'.
			   '-'.
			  '</td>'.
			  '<td width="28px" align="center"><img onclick="'."sIdHasFocus='in_RelCPC_DatFim';".'" src="images/bimg_calendario.png" border="0" id="bt_RelCPC_DatFim" style="cursor:pointer;"></td>'.
			  '<td width="77px">'.
			   '<input id="in_RelCPC_DatFim" name="Fil_DataFim" type="text" maxlength="10" onchange="return Car_'.$sNomeAcesso.'1.Atualiza();" value="'.ConvertDataUSBR(DATE("Y-m-d")).'" style="font-size:12px; width:99%;">'.
			  '</td>'.
			 '</tr></table>'.
            '</td>'.
            '<td width="4px" height="20px">&nbsp;</td>'.
		   '</tr>'.
		  '</table>'.
		  // 2º linha
		  '<table width="100%" border="0">'.
		   '<tr>'.
            '<td width="4px" height="20px">&nbsp;</td>'.
            '<td width="108px" align="right" valign="middle">'.
	           'Fornecedor:&nbsp;'.
            '</td>'.
            '<td align="center" valign="middle" width="76px">'.
		     '<input id="in_RelCPC_CodFor" name="Fil_Cod_For" type="text" maxlength="30" value="" onchange="return Car_'.$sNomeAcesso.'1.Atualiza();" style="font-size:12px; width:99%;">'.
            '</td>'.
			'<td valign="top" align="right" width="28px">'.
           	 	 HTML_Botao( 3, 'CxaRec_BT_Psq' , "document.getElementById('in_RelCPC_CodFor').value='/';".
			                                      'return Car_'.$sNomeAcesso.'1.Atualiza();'
                              , ''              ,'images/btimg_lupa.png',20).
    	  	'</td>'.   
            '<td align="left" valign="middle">'.
			 '<span id="sp_RelCPC_NomCli" style="font-weight:bold;"></span>'.
            '</td>'.
		   '</tr>'.
		  '</table>'.
		  // 3º linha
		  '<table width="100%" border="0">'.
           '<tr>'.
            '<td width="4px" height="20px">&nbsp;</td>'.
            '<td width="108px" align="right" valign="middle">'.
             'Opção:'.
            '</td>'.
            '<td align="left" valign="middle">'.
		   	 '<select id="sl_RelCPC_Opcao_" name="Fil_Opcao_R" style="width:120px;">'.
		   	  '<option value="1">Em aberto</option>'.
		   	  '<option value="2">Pagas</option>'.
		   	  '<option value="0">Em aberto e pagas</option>'.
		   	  '<option value="9">Inativos</option>'.
		   	 '</select>'.
            '</td>'.
            '<td width="108px" align="right" valign="middle">'.
             'Largura do relatório:'.
            '</td>'.
            '<td align="left" valign="middle" width="160px">'.
		   	 '<select id="sl_RelCPC_OpcaoC" name="Fil_Opcao_C" style="width:100px;">'.
		   	  '<option value="0">80 colunas</option>'.
		   	 '</select>'.
            '</td>'.
		   '</tr>'.
		  '</table>'.
		  // 
		  '<table width="100%" border="0">'.
           '<tr>'.
            '<td width="4px" height="20px">&nbsp;</td>'.
            '<td width="108px" align="right" valign="middle">'.
             'Conta:'.
            '</td>'.
            '<td width="300px" align="left" valign="middle">'.
		   	 '<select id="sl_RelCPC_Cod_Cta" name="Fil_Cod_Cta" style="width:99%;" onchange="Car_'.$sNomeAcesso.'1.Atualiza();">'.
			  $sHTML_Combo_CodCTA.
		   	 '</select>'.
			'</td>'.
            '<td>&nbsp;'.
			//'<span style="font-size:14px;color:#FF0000;">'.
			//   '&nbsp;&nbsp;'.
	    	//   '* Opção Pagas'.
		    //   '</span>'.
			'</td>'.
		   '</tr>'.
		  '</table>'.
		  // 
		  '<table width="100%" border="0">'.
           '<tr>'.
            '<td width="4px" height="20px">&nbsp;</td>'.
            '<td width="108px" align="right" valign="middle">'.
             'Custo:'.
            '</td>'.
            '<td width="300px" align="left" valign="middle">'.
		   	 '<select id="sl_RelCPC_Cod_Cus" name="Fil_Cod_Cus" style="width:99%;" onchange="Car_'.$sNomeAcesso.'1.Atualiza();">'.
			  $sHTML_Combo_CodCUS.
		   	 '</select>'.
			'</td>'.
            '<td>&nbsp;'.
			//'<span style="font-size:14px;color:#FF0000;">'.
			//   '&nbsp;&nbsp;'.
	    	//   '* Opção Pagas'.
		    //   '</span>'.
			'</td>'.
			'</td>'.
		   '</tr>'.
		  '</table>'.
		  //
		  
		  
		  '</form>'.
		  // 4º linha (ultima dos botões)
          '<table width="100%" style="background-color:'.$sCorBarraInf.';">'.
		   '</tr>'.
            '<td width="4px" height="40px">&nbsp;</td>'.
            '<td align="left">'.
             HTML_Botao( 3, 'objRelCpc_BT_Abr', 'Car_'.$sNomeAcesso.'1.Relatorio();'
                          , 'Visualizar (F8)' ,'images/btimg_docs.png',120).		    
		    '</td>'.
            '<td align="right">'.
             HTML_Botao( 3, 'objRelCpc_BT_Fch', $oJanelaPrinc->sJavOnClickF
                          , 'Sair (ESC)' ,'images/btimg_fechar.png').		    
		    '</td>'.
            '<td width="4px">&nbsp;</td>'.
		   '</tr>'.
		  '</table>'.		   
    	  $oJanelaPrinc->MontaJanHTML(False);
	   // Java anterior
       $sRet_Javs .=
	     'parent.document.getElementById("dv_MenuL_Barra").style.visibility="hidden";'.
		 //
	     "function Atualiza() {".
		    "var vFm = parent.document.forms.".$s_Formulario.";".
		    "sAntTarget = vFm.target;".
		    "vFm.target='car_".$sNomeAcesso."3';".
	        "vFm.acao.value='ATUALIZA'; ".
            "vFm.submit(); ".
		    "vFm.target = sAntTarget;".
		 "}".
		 //
	     "function Relatorio() {".
		    "var vFm = parent.document.forms.".$s_Formulario.";".
		    "sAntTarget = vFm.target;".
		    "vFm.target='car_".$sNomeAcesso."5';".
	        "vFm.acao.value=''; ".
	        "vFm.submod.value='RELATORIO'; ".
            "vFm.submit(); ".
	        "vFm.submod.value='".$sSubModulo."'; ".
		    "vFm.target = sAntTarget;".
			$sJavaTravarJ.
		 "}".
		 //
         "function Teclas_F( Objeto, Evento ) { ".
           "vNumTecla = parent.Tecla_Apertada(Evento); ".
		   "sAntFocus = parent.sIdHasFocus;".
           "if ( vNumTecla==119) { ".         // ** [F8] **
               "if (parent.document.getElementById('objRelCpc_BT_Abr').style.display!='none') {".           // (Visualizar)
                  "parent.".$sJava_Desfoca_Input.
                  "setTimeout( parent.document.getElementById('objRelCpc_BT_Abr').onclick , 10);".
         	  "}".
		   "} else if ( vNumTecla==116) { ".  // ** [F5] **     Não atualizar
               //
           "} else if ( vNumTecla==27 ) { ".  // ** [ESC] **    Fechar da janela
               "setTimeout( parent.document.getElementById('objRelCpc_BT_Fch').onclick , 10);".
		   "} else if ( vNumTecla==13) { ".   // ** [ENTER] **
		      "while (true) {".
		   	     "sTempId = parent.Proximo_TabObj(parent.document.getElementById('".$oJanelaPrinc->sIdObj."'),sAntFocus);".
		   	     "if ( sTempId.length>0 ) {".
		   	         "parent.document.getElementById(sTempId).focus();".
		   		     "if (sTempId == parent.sIdHasFocus ) {".
		   		         'parent.document.getElementById(sTempId).select();'.
		   		  	     "break;".
		   		     "}".
		   		     "sAntFocus=sTempId;".
		   	     "} else {".
	                 "parent.document.getElementById('in_RelCPC_DatIni').focus();".
	   	             'break;'.
		   	     "}".
		   	  "}".
		   "} else {".
		      "return true;".
		   "} ".
	       "return false;".
		 "}".
		 "";
       // Java posterior
       $sRet_JavsPos .=
	     "parent.document.getElementById('in_RelCPC_DatIni').focus();".
		 "Atualiza(); ".
		 //
         'parent.Calendar.setup({ '.
           'inputField : "in_RelCPC_DatIni", '.
           'trigger    : "bt_RelCPC_DatIni", '.
           'onSelect   : function() { this.hide(); parent.sIdHasFocus=""; Atualiza(); }, '.
           'showTime   : 0, '.
           'dateFormat : "%d/%m/%Y" '.
         '});'.
         'parent.Calendar.setup({ '.
           'inputField : "in_RelCPC_DatFim", '.
           'trigger    : "bt_RelCPC_DatFim", '.
           'onSelect   : function() { this.hide(); parent.sIdHasFocus=""; Atualiza(); }, '.
           'showTime   : 0, '.
           'dateFormat : "%d/%m/%Y" '.
         '});'.
		 "";
	   //
    //
    // >> Fechar janela
    } ElseIf ( $sAcao=="FECHAR" ) {
       $sRet_Javs .=
	       'parent.document.getElementById("dv_MenuL_Barra").style.visibility="visible";'.
	       "parent.RmElem('".$oJanelaPrinc->sIdObj."');".
	       "parent.Car_".$sNomeAcesso."2.location.href='about:blank';".
	       "parent.Car_".$sNomeAcesso."1.location.href='about:blank';".
		   "";
	   UNSET( $aSessaoLocal );
	   //
    //
    // >> Atualiza e valida campos
    } ElseIf ( $sAcao=="ATUALIZA" ) {
	   $s_Fil_DataIni = @$_POST['Fil_DataIni'];
	   $s_Fil_DataFim = @$_POST['Fil_DataFim'];
	   $s_Fil_Cod_For = @$_POST['Fil_Cod_For'];
	   $n_Fil_Cod_Cta = Somente_Numeros(@$_POST['Fil_Cod_Cta'])+0;
	   $n_Fil_Cod_Cus = Somente_Numeros(@$_POST['Fil_Cod_Cus'])+0;
	   
	   
	   $s_Nome_Cp_For = '';
	   $n_Fil_DataIni = ConvertDataSTR(ConvertDataBRUS(Somente_Numeros($s_Fil_DataIni,"/-")));
	   $n_Fil_DataFim = ConvertDataSTR(ConvertDataBRUS(Somente_Numeros($s_Fil_DataFim,"/-")));
	   If ( $n_Fil_DataIni<MKTIME(0,0,0,1,1,1996) ) {
	      $s_Fil_DataIni = '';
		  $n_Fil_DataIni = 0;
	   } Else {
	      $s_Fil_DataIni = DATE("d/m/Y",$n_Fil_DataIni);
	   }
	   If ( $n_Fil_DataFim<MKTIME(0,0,0,1,1,1996) ) {
	      $s_Fil_DataFim = '';
		  $n_Fil_DataFim = 0;
	   } Else {
	      $s_Fil_DataFim = DATE("d/m/Y",$n_Fil_DataFim);
	   }
	   //
	   If ( SUBSTR($s_Fil_Cod_For,0,1)=="/" ) {
		  $aSessao['Pesq_Chave'] = STR_REPLACE( '/' , '', $s_Fil_Cod_For );
		  $s_Fil_Cod_For = '';
		  $s_Nome_Cp_For = "(Consulta)";
          $sRet_Javs .= 
		       "setTimeout( function () { ".
			      "var fm = parent.document.forms.".$s_Formulario.";".
			      "TargetAnt = fm.target;".
			      "fm.target='car_".$sNomeAcesso."10';".
		          "fm.acao.value=''; ".
		          "fm.submod.value='CSL_PSQFOR'; ".
		          "fm.submit();".
			      "fm.target = TargetAnt;".
		          "fm.submod.value='".$sSubModulo."'; ".
	              $sJavaTravarJ.
		       "} , 10);".
		       "";
	      $aSessao[$sNomeAcesso.'_Vars']['Ant_Jan_Id'] = $oJanelaPrinc->sIdObj;
	      $aSessao[$sNomeAcesso.'_Vars']['Ant_Inp_Id'] = $oJanelaPrinc->aIdsObjList[2];
	      $aSessao[$sNomeAcesso.'_Vars']['JavaExec_P'] =
               "parent.Car_".$sNomeAcesso."1.Atualiza();".
               "";
		  //
	   } Else {
	       If ( ! EMPTY($s_Fil_Cod_For) ) {
	          $Row_CadFor = MYSQL_QUERY("SELECT * FROM cad_fornecedor WHERE FOR_CODIGO='".$s_Fil_Cod_For."' AND FOR_ATIVO_;") or die(MYSQL_ERROR());
		      If ( $Row_CadFor = MYSQL_FETCH_OBJECT($Row_CadFor) ) {
		         $s_Nome_Cp_For = $Row_CadFor->FOR_FANTAS;
		    	 $s_Fil_Cod_For = Str_Zero($Row_CadFor->FOR_CODIGO,6);
	             $aDadosS['PESQ_CODFOR'] = $Row_CadFor->FOR_CODIGO;
		      } Else {      // Fornecedor não encontrado
                 $sSQLQueryA =
			       "SELECT TEL_NUMERO,TEL_TRAREG,TEL_CODCAD FROM cad_telefones ".
	               "WHERE ".
		  	       "TEL_NUMERO='".STR_REPLACE("-","",$s_Fil_Cod_For)."' 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_Fil_Cod_For = $RowT->TEL_CODCAD;
				    $sSQLQueryC = "SELECT FOR_CODIGO, FOR_FANTAS FROM cad_fornecedor WHERE FOR_CODIGO='".$RowT->TEL_CODCAD."' AND FOR_ATIVO_;"; 
			        $Row_CadFor = MYSQL_QUERY($sSQLQueryC) Or Die(MYSQL_ERROR().'<br>'.$sSQLQueryC);
			        If ( $Row_CadFor = MYSQL_FETCH_OBJECT($Row_CadFor) ) {
	                   $s_Fil_Cod_For = Str_Zero($s_Fil_Cod_For,6);
	                   $s_Nome_Cp_For = $Row_CadFor->FOR_FANTAS;
					   $aDadosS['PESQ_CODFOR']=$Row_CadFor->FOR_CODIGO;
				    } Else {
				       $s_Fil_Cod_For = '';
	                   $s_Nome_Cp_For = '(Fornecedor não encontrado)';
		            }
				 } Else {
				    $s_Fil_Cod_For = '';
	                $s_Nome_Cp_For = '(Fornecedor não encontrado)';
				 }
		      }		 
	       } Else {         // Codigo vazio
		      $s_Fil_Cod_For = '';
	          $s_Nome_Cp_For = '(Todos)';
	       }
	   }
       // Java
       $sRet_Javs .=
	        'parent.document.getElementById("in_RelCPC_CodFor").value = "'.$s_Fil_Cod_For.'";'.
			'parent.document.getElementById("sp_RelCPC_NomCli").innerHTML = '.JAVA_CharCode_Mini($s_Nome_Cp_For).';'.
			'parent.document.getElementById("in_RelCPC_DatIni").value = "'.$s_Fil_DataIni.'";'.
			'parent.document.getElementById("in_RelCPC_DatFim").value = "'.$s_Fil_DataFim.'";'.
			"";
	   //
	}
	//
//
//
//  ** TELA QUE MONTA O RELATÓRIO **
} ElseIf ( $sSubModulo=="RELATORIO" ) {
    $s_Formulario = "fmPRelCP_I";     // Nome principal dos formulários HTML
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJan2; 
    $oJanelaPrinc->nTop    = 2;
    $oJanelaPrinc->nLeft   = @$aSessaoLocal['Jan_nLeft' ];
    $oJanelaPrinc->nWidth  = @$aSessaoLocal['Jan_nWidth'];   // Largura
    $oJanelaPrinc->nHeight = 0;                              // Altura
    $oJanelaPrinc->sTitulo = 'Relatório';
	$oJanelaPrinc->sJavOnClick  = "parent.document.getElementById('in_RelCPCV_Tecla').focus();";
	//
	$sJavaTravarJ = "parent.document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible';";
	$oJanelaPrinc->sJavOnClickF =
        $sJavaTravarJ.
	    "parent.document.forms.".$s_Formulario.".acao.value='FECHAR'; ".
        "parent.document.forms.".$s_Formulario.".submit();";
    $oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."5.Teclas_F(this,event);";
	//
	// >> Janela Principal
    If ( EMPTY($sAcao) ) {
	   $aSessaoLocal['Fil_DataIni'] = @$_POST['Fil_DataIni'];      // Data inicial
	   $aSessaoLocal['Fil_DataFim'] = @$_POST['Fil_DataFim'];      // Data final
	   $aSessaoLocal['Fil_Cod_For'] = @$_POST['Fil_Cod_For'];      // Código do cliente
	   $aSessaoLocal['Fil_Opcao_R'] = @$_POST['Fil_Opcao_R'];      // Opcao do estado da duplicata
	   $aSessaoLocal['Fil_Opcao_C'] = @$_POST['Fil_Opcao_C'];      // Opcao da largura do relatorio
	   $aSessaoLocal['Fil_Cod_Cta'] = @$_POST['Fil_Cod_Cta'];      // Conta
	   $aSessaoLocal['Fil_Cod_Cus'] = @$_POST['Fil_Cod_Cus'];      // C.Custo
	   
	   
	   //
	   If ( ($aSessaoLocal['Fil_Opcao_C']+0)==0 ) { // 80 Colunas
	      $oJanelaPrinc->nWidth = 750;
	      $oJanelaPrinc->nLeft  = 5+(($nTela_W/2)-($oJanelaPrinc->nWidth/2));
		  $aSessaoLocal['Jan_nLeft' ] = $oJanelaPrinc->nLeft;
		  $aSessaoLocal['Jan_nWidth'] = $oJanelaPrinc->nWidth;
	   }
       // Tela HTML
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
		  // Teclas
		  '<input id="in_RelCPCV_Tecla" style="position:absolute; top:-600; left:-600; width:1px; height:1px;">'.
		  //
		  '<iframe name="VisCPCR_Print"></iframe>'.
          '<form name="'.$s_Formulario.'" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'6">'.
           '<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.'">'.
          '</form>'.
		  '<div id="dv_RelCPCR_Txt" style="width:100%; height:480px; 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.';"></tr>'.
           '<td width="4px" height="40px">&nbsp;</td>'.
           //'<td align="left">'. // usar somente com 40 colunas 
           // HTML_Botao( 3, 'objRelCPCR_BT_Abr',
		//	                                 "parent.JanEspera(true, 'Imprimindo relatório... aguarde...');".
		//									 "setTimeout( function () { ".
		 //                                       "document.forms.".$s_Formulario.".acao.value='IMP'; ".
          //                                      "document.forms.".$s_Formulario.".submit();".
		//									 "}, 500);"
         //                , 'Atalho (F9)'   ,'images/btimg_imp.png',120).		    
		 //  '</td>'.
		   '<td width="150px" align="left">'.
              HTML_Botao( 3, 'objRelCPCR_BT_Imp',  'Car_'.$sNomeAcesso.'5.processPrint();'
                           , 'Imprimir (F2)'   ,'images/btimg_imp.png',130).		    
		   '</td>'.
		   '<td align="left">'.
              HTML_Botao( 3, 'objRelCPCR_BT_Dwn',  'Car_'.$sNomeAcesso.'5.SalvarTexto();'
                           , 'Salvar (F9)'   ,'images/btimg_baixar_texto.png',100).		    
		   '</td>'.
           '<td align="right">'.
            HTML_Botao( 3, 'objRelCPCR_BT_Fch', $oJanelaPrinc->sJavOnClickF
                         , 'Sair (ESC)' ,'images/btimg_fechar.png').		    
		   '</td>'.
           '<td width="4px">&nbsp;</td>'.
		  '</tr></table>'.
		  //
    	  $oJanelaPrinc->MontaJanHTML(False);
       //
	   // Java anterior
       $sRet_Javs .=
	      "function processPrint( ) {".
			"var sdivElements = parent.document.getElementById('dv_RelCPCR_Txt').innerHTML;".
            "var Quadro = parent.frames['VisCPCR_Print'];".
            "Quadro.window.location='about:blank';". 
			"Quadro.document.write('<html><head><title>Contas a Pagar</title></head><body>');".
			"Quadro.document.write(sdivElements);".
			"Quadro.document.write('</body></html>');".
			"Quadro.window.print();".
		  "}".
		  //
		  "function SalvarTexto() {".
	        "parent.document.forms.".$s_Formulario.".acao.value='GERAR_TEXTO';".
            "parent.document.forms.".$s_Formulario.".submit();".
		  "}".
		  //
	      "function Teclas_F( Objeto, Evento ) {".
             "vNumTecla = parent.Tecla_Apertada(Evento);".
             "if ( vNumTecla==120) { ".        //  ** [F9] **          // (Salvar em texto)
                 "setTimeout( parent.document.getElementById('objRelCPCR_BT_Dwn').onclick , 50);".
		     "} else if ( vNumTecla==116) { ". //  ** [F5] **     Não atualizar
			 
			 "} else if ( vNumTecla==113) { ". //  ** [F2] **          // (Imprimir)
                 "setTimeout( parent.document.getElementById('objRelCPCR_BT_Imp').onclick , 50);".
			     //
		     "} else if ( vNumTecla==27) { ".  //  ** [ESC] **         // (SAIR)
                 "setTimeout( parent.document.getElementById('objRelCPCR_BT_Fch').onclick , 50);".
			 "} else {".
			     "return true;".
			 "}".
			 "return false;".
          '}'.
		  //
	      "";
       // Java posterior
       $sRet_JavsPos .=
	     "parent.document.getElementById('in_RelCPCV_Tecla').focus(); ".
	     "setTimeout( function () { ".
	        "parent.document.forms.".$s_Formulario.".acao.value='MONTAR';".
            "parent.document.forms.".$s_Formulario.".submit();".
		 "} , 300); ".
         "";
	   //
    //
	// >> Montar o relatório
    } ElseIf ( $sAcao=="MONTAR" ) {
	   $sFil_DataIni = $aSessaoLocal['Fil_DataIni'];
	   $sFil_DataFim = $aSessaoLocal['Fil_DataFim'];
	   $nFil_Cod_For = $aSessaoLocal['Fil_Cod_For']+0;
	   $nFil_Opcao_R = $aSessaoLocal['Fil_Opcao_R']+0;
	   $nFil_Opcao_C = $aSessaoLocal['Fil_Opcao_C']+0;
	   $n_Fil_Cod_Cta = Somente_Numeros($aSessaoLocal['Fil_Cod_Cta'])+0;
	   $n_Fil_Cod_Cus = Somente_Numeros($aSessaoLocal['Fil_Cod_Cus'])+0;
	   
	   $sTxt_Rel = '';
	   $sTxt_Cab = '';
	   //
	   $sExibFornecedor = "** Todos **";
	   $sExibCta = "";
	   $sExibCus = "";
	   If ( $nFil_Cod_For>0 ) {
		  $sSQLQuery = "SELECT * FROM cad_fornecedor WHERE FOR_CODIGO=".$nFil_Cod_For." AND FOR_ATIVO_;";
		  $Row_CadFor = MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().'<br>'.$sSQLQuery);
          If ( $Row_CadFor = MYSQL_FETCH_OBJECT($Row_CadFor) ) {
		     $sExibFornecedor = Str_Zero($Row_CadFor->FOR_CODIGO,8).' - '.$Row_CadFor->FOR_FANTAS;
		  } Else {
	         $sExibFornecedor = "** Fornecedor não encontrado **";
		  }
	   }
	   
	   //
	   $sExibConta = "** Todas **";
	   If ( $n_Fil_Cod_Cta>0 ) {
		  $sSQLQuery = "SELECT * FROM cad_contas WHERE CTA_CODIGO=".$n_Fil_Cod_Cta." AND CTA_ATIVO_;";
		  $Row_CadCta = MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().'<br>'.$sSQLQuery);
          If ( $Row_CadCta = MYSQL_FETCH_OBJECT($Row_CadCta) ) {
		     $sExibConta = $Row_CadCta->CTA_CODIGO.' - '.$Row_CadCta->CTA_DESCRI;
		  } Else {
	         $sExibConta = "** Conta não encontrada **";
		  }
	   }
	   //
	   $sExibCCusto = "** Todos **";
	   If ( $n_Fil_Cod_Cus>0 ) {
		  $sSQLQuery = "SELECT * FROM cad_centro_custo WHERE CUS_CODIGOI=".$n_Fil_Cod_Cus." AND CUS_ATIVO_;";
		  $Row_CadCus = MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().'<br>'.$sSQLQuery);
          If ( $Row_CadCus = MYSQL_FETCH_OBJECT($Row_CadCus) ) {
		     $sExibCCusto = $Row_CadCus->CUS_CODIGO.' - '.$Row_CadCus->CUS_DESCRI;
		  } Else {
	         $sExibCCusto = "** C.Custo não encontrado **";
		  }
	   }
	   
	   //
	   If ( $nFil_Opcao_C==0 ) {  // 80 Colunas
	      //$sTxt_Rel .= alteração 4307
		  $sTxt_Cab .=
	         //AlinhaStr($Dados_Empresa['EMP_FANTAS'],0,48).AlinhaStr('Emissão: '.DATE('d/m/Y H:i:s'),2,32).$sPulaLinha.
		     //"RELATÓRIO DE CONTA A PAGAR".$sPulaLinha.
	           AlinhaStr('Empresa.....: '.$Dados_Empresa['EMP_FANTAS'],0,80).$sPulaLinha.
			   AlinhaStr('Relatorio...: CONTA A PAGAR',0,80).$sPulaLinha.
			   AlinhaStr('Emissao.....: '.DATE('d/m/Y H:i:s'),0,40).
		       AlinhaStr('Operador....: '.$R_CadFuncionario->FUN_NOMECP,2,40).$sPulaLinha.
			             'Periodo.....: '.$sFil_DataIni.' '.$sFil_DataFim.$sPulaLinha.
			 //'Filtros: '.
		      ( $nFil_Opcao_R==0 ? 'Todas as duplicatas'  : '').
			  ( $nFil_Opcao_R==1 ? 'Duplicatas em aberto' : '').
			  ( $nFil_Opcao_R==2 ? 'Duplicatas pagas'     : '').
			  ( $nFil_Opcao_R==9 ? 'Duplicatas inativas'  : '').
			  $sPulaLinha.
		     //', período: '.$sFil_DataIni.' '.$sFil_DataFim.$sPulaLinha.
			  AlinhaStr('Conta..: '.$sExibConta,0,80).$sPulaLinha.
			  AlinhaStr('C.Custo: '.$sExibCCusto,0,80).$sPulaLinha.
             STR_REPEAT("=",80).$sPulaLinha.
	         "Nº e parc.     |Lançamento|Vencimento| Historico                      | Valor R$".$sPulaLinha.
             STR_REPEAT("-",80).$sPulaLinha.
	         '';
	   }
	   // Puxar do banco de dados
	   $sSQLParm = ' AND CTP_CODEMP='.$Dados_Empresa['EMP_CODIGOI'];
	   //
	   $sDta_RecPag = 'CTP_DTAVEN';
	   If ( $nFil_Opcao_R==2 ) {    // Duplicatas pagas
	      $sDta_RecPag = 'CTP_DTAPAG';
	   }
	   If ( STRLEN($sFil_DataIni)==10 ) {
	      $sSQLParm .= ' AND '.$sDta_RecPag.'>="'.ConvertDataBRUS($sFil_DataIni).'"';
	   }
	   If ( STRLEN($sFil_DataFim)==10 ) {
          $sSQLParm .= ' AND '.$sDta_RecPag.'<="'.ConvertDataBRUS($sFil_DataFim).' 23:59:59"';
	   }
	   If ( $nFil_Cod_For>0 ) {
	      $sSQLParm .= ' AND CTP_CODFOR='.$nFil_Cod_For;
	   }
	   If ( $nFil_Opcao_R==9 ) {    // Duplicatas inativas
	      $sSQLParm .= ' AND CTP_DTACAN>0';
	   } Else {
	      $sSQLParm .= ' AND CTP_DTACAN=0';
	   }
	   //
	   $sSQLQuery = "SELECT * FROM cad_centro_custo;";
       $RowsT = MYSQL_QUERY($sSQLQuery) Or Die($sSQLQuery.'<br>'.MYSQL_ERROR());
       $aGrupoCustos = ARRAY();
       $aItensCustos = ARRAY();
       While ($RowT = MYSQL_FETCH_ARRAY($RowsT, MYSQL_ASSOC)) {
		  If ( SUBSTR($RowT['CUS_CODIGO'],4,3)=="000" ) {
             $aGrupoCustos[$RowT['CUS_CODIGO']] = $RowT;
		  }
		  $aItensCustos[$RowT['CUS_CODIGOI']] = $RowT;
       }
       UNSET( $RowsT ); UNSET( $RowT );
	   //
	   
	   If ( $n_Fil_Cod_Cus>0 ) { //  
		  If ( SUBSTR($aItensCustos[$n_Fil_Cod_Cus]['CUS_CODIGO'],4,3)=="000" ) {
			 $sSQLParm .=
			   ' AND SubString(CUS_CODIGO,1,3)="'.SUBSTR($aItensCustos[$n_Fil_Cod_Cus]['CUS_CODIGO'],0,3).'" ';
		  } Else {
			 $sSQLParm .=
        	   " AND cus.CUS_CODIGOI=".$n_Fil_Cod_Cus." ";
		  }
	   }
	   
	   If ( $n_Fil_Cod_Cta ) { // 
          $sSQLParm .= 
		     " AND CTP_CODCTA=".$n_Fil_Cod_Cta." ";
       }  	
	   
	   
	   If ( $nFil_Opcao_R==1 ) {          // Duplicatas em aberto
	      $sSQLQuery = 
		     "SELECT * ".
			 "FROM fin_contas_pagar ".
			 "LEFT JOIN cad_contas       AS cta  ON  CTP_CODCTA = cta.CTA_CODIGO ".
			 "LEFT JOIN cad_centro_custo AS cus  ON  CTP_CODCUS = cus.CUS_CODIGOI ".
			 "WHERE CTP_DTAPAG=0".$sSQLParm." ORDER BY CTP_CODFOR ASC, CTP_DTAVEN ASC, CTP_ID_MOV ASC;";
		  
		  
	   } ElseIf ( $nFil_Opcao_R==2 ) {    // Duplicatas pagas
	      $sSQLQuery = 
		     "SELECT * ".
			 "FROM fin_contas_pagar ".
			 "LEFT JOIN cad_contas       AS cta  ON  CTP_CODCTA = cta.CTA_CODIGO ".
			 "LEFT JOIN cad_centro_custo AS cus  ON  CTP_CODCUS = cus.CUS_CODIGOI ".
			 "WHERE CTP_DTAPAG>0".$sSQLParm." ORDER BY CTP_CODFOR ASC, CTP_DTAPAG ASC, CTP_ID_MOV ASC;";
            
	  } Else {                           // Todas
	      $sSQLQuery = 
		     "SELECT * ".
			 "FROM fin_contas_pagar ".
			 "LEFT JOIN cad_contas       AS cta  ON  CTP_CODCTA = cta.CTA_CODIGO ".
			 "LEFT JOIN cad_centro_custo AS cus  ON  CTP_CODCUS = cus.CUS_CODIGOI ".
			 "WHERE CTP_ID_MOV>0".$sSQLParm." ORDER BY CTP_CODFOR ASC, CTP_DTAVEN ASC, CTP_ID_MOV ASC;";
	   
	  
	   }
	   
	   $Rows_FinCtp = MYSQL_QUERY($sSQLQuery) Or Die(MYSQL_ERROR().'<br>'.$sSQLQuery);
	   //
	   $n_UltCodFor = 0;
	   $n_Total_Val = 0;
	   $n_Total_Rec = 0;
	   $n_Total_Qtd = 0;
	   $n_TotGe_Val = 0;
	   $n_TotGe_Rec = 0;
	   $n_TotGe_Qtd = 0;
	   $n_UltCodCta = 0; //alteração 4307 mostrar conta
	   $n_UltCodCCu = 0; //alteração 4307 mostrar centro de custo
       While (True) {
	      $bFimdoWhile = ( ! $Row_FinCtp = MYSQL_FETCH_OBJECT($Rows_FinCtp) );
	      If ($bFimdoWhile OR (@$Row_FinCtp->CTP_CODFOR)<>$n_UltCodFor) {
             If ( $n_Total_Qtd>0 ) {
                If ( $nFil_Opcao_C==0 ) {  // 80 Colunas
	               $sTxt_Rel .=
                      STR_REPEAT("-",80).$sPulaLinha.
			          ( $nFil_Opcao_R==1 ?
			            AlinhaStr("Qtd de duplicatas: ".$n_Total_Qtd,0,24)." | ".
			            AlinhaStr("Total devedor: ".FormatoMoeda($n_Total_Val),2,53)
			          : "").
			          ( $nFil_Opcao_R==2 ?
			            AlinhaStr("Qtd de duplicatas: ".$n_Total_Qtd,0,24)." | ".
			            AlinhaStr("Total pago: ".FormatoMoeda($n_Total_Rec),2,53)
			          : "").
			          ( $nFil_Opcao_R==0 ?
			            AlinhaStr("Qtd de duplicatas: ".$n_Total_Qtd,0,24)." | ".
			            AlinhaStr("Total pago: ".FormatoMoeda($n_Total_Rec),2,24)." | ".
			            AlinhaStr("Total devedor: ".FormatoMoeda($n_Total_Val),2,26)
			          : "").
			          ( $nFil_Opcao_R==9 ?
			            AlinhaStr("Qtd de duplicatas: ".$n_Total_Qtd,0,24)." | ".
			            AlinhaStr("Total inativos: ".FormatoMoeda($n_Total_Val),2,53)
			          : "").
		              $sPulaLinha.
		              $sPulaLinha.
			       	  "";
				   //
			    }
			 }
			 $n_TotGe_Val += $n_Total_Val;
			 $n_TotGe_Rec += $n_Total_Rec;
			 $n_TotGe_Qtd += $n_Total_Qtd;
		     If ( $bFimdoWhile ) { Break; }
	         $n_Total_Val  = 0;
			 $n_Total_Rec  = 0;
	         $n_Total_Qtd  = 0;
		     //
			 $n_UltCodFor = $Row_FinCtp->CTP_CODFOR;
		     $sSQLQuery = "SELECT * FROM cad_fornecedor WHERE FOR_CODIGO=".$n_UltCodFor." AND FOR_ATIVO_;";
		     $Row_CadFor = MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().'<br>'.$sSQLQuery);
             If ( $Row_CadFor = MYSQL_FETCH_OBJECT($Row_CadFor) ) {
		        $sExibFornecedor = Str_Zero($Row_CadFor->FOR_CODIGO,8).' - '.$Row_CadFor->FOR_FANTAS;
		     } Else {
	            $sExibFornecedor = "** Fornecedor não encontrado **";
		     }
			 
			 //
             If ( $nFil_Opcao_C==0 ) {  // 80 Colunas
	            $sTxt_Rel .=
				   $sTxt_Cab.
		           $sPulaLinha.
	               AlinhaStr('Fornecedor.:'.$sExibFornecedor,0,80).$sPulaLinha.
                   $sPulaLinha.
			       "";
		     }
		  }
		  $n_Total_Qtd++;
		  $n_Total_Val += $Row_FinCtp->CTP_VALDUP;
		  $n_Total_Rec += $Row_FinCtp->CTP_VALPAG;
	      //
          If ( $nFil_Opcao_C==0 ) {  // 80 Colunas
            
			//CONTA alteração 4307
			$n_UltCodCta = ($Row_FinCtp->CTP_CODCTA+0);
		    $sSQLQuery = "SELECT * FROM cad_contas WHERE CTA_CODIGO=".$n_UltCodCta." AND CTA_ATIVO_;";
		    $Row_CadCta = MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().'<br>'.$sSQLQuery);
            
			If ( $Row_CadCta = MYSQL_FETCH_OBJECT($Row_CadCta) ) {
		       $sExibCta = $Row_CadCta->CTA_CODIGO.' - '.$Row_CadCta->CTA_DESCRI;
		    } Else {
			   $sExibCta = "** Conta não encontrada **";
		    }
			//CENTRO DE CUSTO alteração 4307
			$n_UltCodCcu = ($Row_FinCtp->CTP_CODCUS+0);
		    $sSQLQuery = "SELECT * FROM cad_centro_custo WHERE CUS_CODIGOI=".$n_UltCodCcu." AND CUS_ATIVO_;";
		    $Row_CadCcu = MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().'<br>'.$sSQLQuery);
            
			If ( $Row_CadCcu = MYSQL_FETCH_OBJECT($Row_CadCcu) ) {
		       $sExibCcu = $Row_CadCcu->CUS_CODIGO.' - '.$Row_CadCcu->CUS_DESCRI;
		    } Else {
	           $sExibCcu = "** Centro de Custo não encontrado **";
		    }
			
			$sTxt_Rel .=
		        SUBSTR(Str_Zero($Row_FinCtp->CTP_NUMDUP,8),0,8)." ".Str_Zero($Row_FinCtp->CTP_NUMPAR,2)."/".Str_Zero($Row_FinCtp->CTP_TOTPAR,2)."  ".
		        ConvertDataUSBR($Row_FinCtp->CTP_DTAFIC)." ".ConvertDataUSBR($Row_FinCtp->CTP_DTAVEN)." ".
		        AlinhaStr( $Row_FinCtp->CTP_HISTOR,0,30).
		        AlinhaStr( FormatoMoeda( ($Row_FinCtp->CTP_VALDUP==0 ? $Row_FinCtp->CTP_VALPAG : $Row_FinCtp->CTP_VALDUP)),2,12).
				$sPulaLinha.
		        //( STRLEN($Row_FinCtp->CTP_HISTOR)>0 ? $Row_FinCtp->CTP_HISTOR.$sPulaLinha : "").
		        //ALTERAÇÃO 4307
			    ( $Row_FinCtp->CTA_CODIGO>0 ?
				   AlinhaStr('Conta...........: '.$sExibCta,0,80).
                   $sPulaLinha
                 :  
				  ""
				 ). 
				( $Row_FinCtp->CUS_CODIGOI>0 ?
				   AlinhaStr('Centro de Custo.: '.$sExibCcu,0,80).
				   $sPulaLinha
				 :  
				  ""
				 ).
				( $Row_FinCtp->CTP_VALPAG>0 ?
		          " - Pago ".DATE("d/m/Y H:i:s",ConvertDtHrSTR($Row_FinCtp->CTP_DTAPAG)).$sPulaLinha
		        : "").
		        ( STRLEN($Row_FinCtp->CTP_HISPAG)>0 ? $Row_FinCtp->CTP_HISPAG.$sPulaLinha : "").
		        "";
		  }
		  //
	   }
       If ( $n_TotGe_Qtd>0 ) {
          If ( $nFil_Opcao_C==0 ) {  // 80 Colunas
             $sTxt_Rel .=
               $sPulaLinha.
               AlinhaStr("** TOTAIS GERAIS DO RELATORIO **",1,80).$sPulaLinha.
                STR_REPEAT("-",80).$sPulaLinha.
       	        ( $nFil_Opcao_R==1 ?
                  AlinhaStr("Qtd de duplicatas: ".$n_TotGe_Qtd,0,24)." | ".
                  AlinhaStr("Total devedor: ".FormatoMoeda($n_TotGe_Val),2,53)
       	        : "").
       	        ( $nFil_Opcao_R==2 ?
                  AlinhaStr("Qtd de duplicatas: ".$n_TotGe_Qtd,0,24)." | ".
                  AlinhaStr("Total pago: ".FormatoMoeda($n_TotGe_Rec),2,53)
       	        : "").
       	        ( $nFil_Opcao_R==0 ?
                  AlinhaStr("Qtd de duplicatas: ".$n_TotGe_Qtd,0,24)." | ".
                  AlinhaStr("Total pago: ".FormatoMoeda($n_TotGe_Rec),2,24)." | ".
                  AlinhaStr("Total devedor: ".FormatoMoeda($n_TotGe_Val),2,26)
       	        : "").
       	        ( $nFil_Opcao_R==9 ?
                  AlinhaStr("Qtd de duplicatas: ".$n_TotGe_Qtd,0,24)." | ".
                  AlinhaStr("Total inativos: ".FormatoMoeda($n_TotGe_Val),2,53)
       	        : "").
                $sPulaLinha.
                $sPulaLinha.
                "";
       	    //
          }
	   }
	   //
	   $sTxt_Rel = RemoveAcentos($sTxt_Rel);
	   $aSessaoLocal['TXT_REL'] = $sTxt_Rel;
       $sHTML_Rel = $sTxt_Rel;
       $sHTML_Rel = STR_REPLACE(CHR(10),"",$sHTML_Rel);
       $sHTML_Rel = STR_REPLACE(CHR(13),"<br>",$sHTML_Rel);
       $sHTML_Rel = STR_REPLACE(CHR(32),"&nbsp;",$sHTML_Rel);
       $sHTML_Rel =
          '<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_Rel.
           '</td></tr></table>'.
          '</div>';
	   //
       $sRet_Javs .= 
          ( STRLEN( $sTxt_Rel )> 0 ?
		     "parent.document.getElementById('dv_RelCPCR_Txt').innerHTML = ".JAVA_CharCode($sHTML_Rel).";"
          :
		     Info_Evento('Não há conteúdo para imprimir.').
			 $oJanelaPrinc->sJavOnClickF
	      ).
		  "";
	   //
    //
	// >> Gerar texto para download
    } ElseIf ( $sAcao=="GERAR_TEXTO" ) {
	   $sArquivo = "Relatorio_Contas_a_Pagar_".DATE("d-m-Y_H-i-s").".txt";
       $sTxt_Cupom = @$aSessaoLocal['TXT_REL'];
	   HEADER("Content-Type: text/plain");
	   HEADER("Content-Length: ".STRLEN($sTxt_Cupom));
	   HEADER("Content-Disposition: attachment; filename=".$sArquivo);
	   ECHO $sTxt_Cupom;
	   EXIT;
    //
    // IMPRIMIR Relatório pronto
    } ElseIf ( $sAcao=="IMP" ) {
       $sRet_Javs .= "parent.JanEspera(false); ";
       $sCfg_ClpExp2 = SQLVarConfig('GARCOM_CLIPPER_ARQ_EXPORTA2');
       If ( STRLEN($sCfg_ClpExp2)>3 ) {
	      $sTxt_Cupom = @$aSessaoLocal['TXT_REL'];
          If (STRLEN($sTxt_Cupom)>0) {
		     // Gravar o relatório Texto
             $sNomArqExpT = $sCfg_ClpExp2.$R_CadFuncionario->FUN_CODIGO.'_'.DATE("d-m-Y_h-i-s").'_RCP.TMP';
             $sIP_NomeArq = STR_REPLACE(".","_",ObterIPdoCliente());
             $sNomArqExpR = $sCfg_ClpExp2.$R_CadFuncionario->FUN_CODIGO.'_'.DATE("d-m-Y_h-i-s").'_RCP_'.$sIP_NomeArq.'.REL';
			 //
			 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 do relatório para impressão.',1,"Impressão de relatório");
			 }
			 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.').
                 '';
          }
       } Else {       // Sem caminho para impressão
          $sRet_Javs .=
             Info_Evento('Parametros do caminho inválido.').
             $sJavaFechaEr;
       }
    //
    // >> FECHAR Janela
    } ElseIf ( $sAcao=="FECHAR" ) {
       $sRet_Javs .=
	       "if (parent.document.getElementById('".$oJanelaPrinc->sIdObj."') != null) { parent.RmElem('".$oJanelaPrinc->sIdObj."'); }".
		   "parent.document.getElementById('".$sNomeIdJan1."_Travar').style.visibility='hidden';".
		   "parent.Disabled_In_Elems('".$sNomeIdJan1."',false);".
	       "parent.document.getElementById('in_RelCPC_DatIni').focus();".
		   "";
	}
    //
//
//  ** CONSULTA AO CADASTRO DE FORNECEDORES **
} ElseIf ( $sSubModulo=="CSL_PSQFOR" ) {
   $bDir_Consult = True;
   $nQdrNomeAcs  = 10;
   $sNomeIdJ_Ant = $aSessao[$sNomeAcesso.'_Vars']['Ant_Jan_Id'];
   $sNomeIdCampo = $aSessao[$sNomeAcesso.'_Vars']['Ant_Inp_Id'];
   $sJavaExePos  = $aSessao[$sNomeAcesso.'_Vars']['JavaExec_P'];
   REQUIRE "./modulos/consulta_fornecedor.inc";
   //
}
//
// Tratamento da variável de sessão
If ( ISSET($aSessaoLocal) ) {
   $aSessao[$sNomeAcesso.'_S'] = $aSessaoLocal;
} Else {
   UNSET( $aSessao[$sNomeAcesso.'_S'] );
}
//
?>