<?php
//
$sNomeIdJan1 = 'iJan_RelCRC_Princ';
$sNomeIdJan2 = 'iJan_RelCRC_TxtVs';
$sCorBarraInf = '#E8E3CE';
$sData_Trabalho = SQLVarConfig('DATA_DE_TRABALHO');
$sPulaLinha = CHR(13).CHR(10);
//
//
//  ** TELA QUE MONTA O RELATÓRIO **
If ( $sSubModulo=="RELATORIO" ) {
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJan2; 
    $oJanelaPrinc->nTop    = 2;
    $oJanelaPrinc->nLeft   = 5;
    $oJanelaPrinc->nWidth  = 750;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
	$oJanelaPrinc->nLeft   += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Relatório';
	$oJanelaPrinc->sJavOnClick  = "document.getElementById('in_RelCRCV_Tecla').focus();";
	//
	$sJavaTravarJ = "document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; ";
	$oJanelaPrinc->sJavOnClickF =
        $sJavaTravarJ.
	    "document.forms.fmPRelCRC_R.acao.value='FECHAR'; ".
        "document.forms.fmPRelCRC_R.submit();";
	//
	$aV_Sessao = @$aSessao[$sNomeAcesso.'_S'];
    //
	// Montar o relatório
    If ( $sAcao=="MONTAR" ) {
	   //
	   $sTxt_Rel = '';
	   $sFil_DataIni = $aV_Sessao['Fil_DataIni'];
	   $sFil_DataFim = $aV_Sessao['Fil_DataFim'];
	   $nFil_Cod_Cli = $aV_Sessao['Fil_Cod_Cli']+0;
	   $nFil_TipoR_R = $aV_Sessao['Fil_TipoR_R']+0;
	   $nFil_Opcao_R = $aV_Sessao['Fil_Opcao_R']+0;
	   $nFil_Opcao_C = $aV_Sessao['Fil_Opcao_C']+0;
	   $nFil_Cod_Cnv = $aV_Sessao['Fil_Cod_Cnv']+0;
	   //
	   $sExibCliente = "** Todos **";
	   $sExibConvenio = "** Todos **";
	   If ( $nFil_Cod_Cli>0 && $nFil_Cod_Cnv == 0) {
		  $sSQLQuery = 
		     "SELECT * ".
			 "FROM cad_cliente ".
			 "WHERE CLI_CODIGOI=".$nFil_Cod_Cli." AND CLI_TRAREG=0;";
		  $Row_CadCli = MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().'<br>'.$sSQLQuery);
          If ( $Row_CadCli = MYSQL_FETCH_OBJECT($Row_CadCli) ) {
		     $sExibCliente = Str_Zero($Row_CadCli->CLI_CODIGOI,8).' - '.$Row_CadCli->CLI_NOMECP;
		  } Else {
	         $sExibCliente = "** Cliente não encontrado **";
		  }
	   }
	   If ( $nFil_Cod_Cnv>0 && $nFil_Cod_Cli == 0 ) {
	      $sSQLQuery = 
		     "SELECT * ".
			 "FROM cad_convenio ".
			 "WHERE CNV_CODIGOI=".$nFil_Cod_Cnv." AND CNV_ATIVO_;";
		  $Row_CadCnv = MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().'<br>'.$sSQLQuery);
	      If ( $Row_CadCnv = MYSQL_FETCH_OBJECT($Row_CadCnv) ) {
		     $sExibConvenio = Str_Zero($Row_CadCnv->CNV_CODIGOI,8).' - '.$Row_CadCnv->CNV_TITULO;
		  } Else {
	         $sExibConvenio = "** Convênio não encontrado **";
		  }
	   
	   }
	   If ( $nFil_Opcao_C==0 ) {  // 40 Colunas
	      $sTxt_Rel .=
	         //AlinhaStr($Dados_Empresa['EMP_FANTAS'],0,20).AlinhaStr('Emissão: '.DATE('d/m/Y'),2,20).$sPulaLinha.
		     //"RELATÓRIO DE CONTA CORRENTE DE CLIENTES".$sPulaLinha.
		     AlinhaStr('Empresa..: '.$Dados_Empresa['EMP_FANTAS'],0,40).$sPulaLinha.
		     AlinhaStr('Relatorio: CONTA CORRENTE DE CLIENTES',0,40).$sPulaLinha.
		     AlinhaStr('Emissao..: '.DATE('d/m/Y H:i:s'),0,40).$sPulaLinha.
		     AlinhaStr('Operador.: '.$R_CadFuncionario->FUN_NOMECP,0,40).$sPulaLinha.
			           'Período..: '.$sFil_DataIni.' '.$sFil_DataFim.$sPulaLinha.
			 
			 
			 ( $nFil_Opcao_R==0 ? '* Todas as duplicatas'.$sPulaLinha : '').
			 ( $nFil_Opcao_R==1 ? '* Duplicatas em aberto'.$sPulaLinha : '').
			 ( $nFil_Opcao_R==2 ? '* Duplicatas pagas'.$sPulaLinha : '').
			 ( $nFil_Opcao_R==3 ? '* Movimento de creditos'.$sPulaLinha : '').
			 //( $nFil_Cod_Cnv > 0 ? '* Convênio'.$sExibConvenio.$sPulaLinha : '').
			 //'* Período: '.$sFil_DataIni.' '.$sFil_DataFim.$sPulaLinha.
             STR_REPEAT("=",40).$sPulaLinha.
		     //
			 ( $nFil_Opcao_R==3 ?
			//1234567890123456789012345678901234567890
			 "Lançamento |    Valor    |         Saldo".$sPulaLinha.
			 "Histórico".$sPulaLinha
			 :
	         "Nº e parcela |  Lançamento  | Vencimento".$sPulaLinha.
			 "Modalidade                  |   Valor R$".$sPulaLinha.
		     "Histórico".$sPulaLinha
			 ).
             STR_REPEAT("-",40).$sPulaLinha.
	         '';
	   } Else {                   // 80 Colunas
	      $sTxt_Rel .=
	         //AlinhaStr($Dados_Empresa['EMP_FANTAS'],0,60).AlinhaStr('Emissão: '.DATE('d/m/Y'),2,20).$sPulaLinha.
		     //"RELATÓRIO DE CONTA CORRENTE DE CLIENTES".$sPulaLinha.
	         //'Filtros: '.
		     AlinhaStr('Empresa.....: '.$Dados_Empresa['EMP_FANTAS'],0,80).$sPulaLinha.
			 AlinhaStr('Relatorio...: FICHA KARDEX',0,80).$sPulaLinha.
			 AlinhaStr('Emissao.....: '.DATE('d/m/Y H:i:s'),0,40).
		     AlinhaStr('Operador....: '.$R_CadFuncionario->FUN_NOMECP,2,40).$sPulaLinha.
			           'Período.....: '.$sFil_DataIni.' '.$sFil_DataFim.$sPulaLinha.
			 ( $nFil_Opcao_R==0 ? 'Todas as duplicatas' : '').
			 ( $nFil_Opcao_R==1 ? 'Duplicatas em aberto' : '').
			 ( $nFil_Opcao_R==2 ? 'Duplicatas pagas' : '').
			 ( $nFil_Opcao_R==3 ? 'Movimento de creditos' : '').
			 $sPulaLinha.
			  //( $nFil_Cod_Cnv > 0 && $nFil_Cod_Cli == 0 ? '* Convênio'.$sExibConvenio.$sPulaLinha : '').
		     //', período: '.$sFil_DataIni.' '.$sFil_DataFim.$sPulaLinha.
             STR_REPEAT("=",80).$sPulaLinha.
		     //
			 ( $nFil_Opcao_R==3 ?
			 "Lançamento |  Horário |  Crédito  |   Débito  |    Saldo    | Referência".$sPulaLinha.
			 "Histórico".$sPulaLinha
			 :
	         "Nº e parc.  | Lançamento | Vencimento | Modalidade                    | Valor R$".$sPulaLinha.
		     "Histórico".$sPulaLinha
			 ).
             //STR_REPEAT("-",80).$sPulaLinha.
	         '';
	   }
	   // -- Movimento de créditos
	   If ( $nFil_Opcao_R==3 ) {
	      $sSQLWhere = '';
	      If ( $nFil_Cod_Cli>0 ) {
	         $sSQLWhere .= 'FCC_COD_CLI='.$nFil_Cod_Cli;
	      }
		  If ( $nFil_Cod_Cnv>0 && $nFil_Cod_Cli == 0) {
	         $sSQLWhere .= 'CNV_CODIGOI='.$nFil_Cod_Cnv;
	      }
	      If ( STRLEN($sFil_DataIni)==10 ) {
	         $sSQLWhere .= (EMPTY($sSQLWhere) ? '' : ' AND ').'fcc.FCC_DTHRMOV>="'.ConvertDataBRUS($sFil_DataIni).'"';
	      }
	      If ( STRLEN($sFil_DataFim)==10 ) {
	         $sSQLWhere .= (EMPTY($sSQLWhere) ? '' : ' AND ').'fcc.FCC_DTHRMOV<="'.ConvertDataBRUS($sFil_DataFim).' 23:59:59"';
	      }
	      $sSQLQuery =
             "SELECT fcc.*, cnv.*, ".
                    "cli.CLI_NOMECP, cli.CLI_CODCNV ".
             "FROM      fin_conta_corrente_cliente AS fcc ".
             "LEFT JOIN cad_cliente                AS cli ON cli.CLI_CODIGOI = fcc.FCC_COD_CLI ".
			 "LEFT JOIN cad_convenio               AS cnv ON cli.CLI_CODCNV  = cnv.CNV_CODIGOI ".
			 (EMPTY($sSQLWhere) ? '' : 'WHERE '.$sSQLWhere.' ').
             "ORDER BY cli.CLI_NOMECP ASC, fcc.FCC_DTHRMOV ASC;";
	      $Rows_T = MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().'<br>'.$sSQLQuery);
		  $nFcc_Cod_Cli = 0;
		  $nQtd_Regs    = 0;
		  $bImp_Convenio = False;
          While ( $Row_T = MYSQL_FETCH_ARRAY($Rows_T) ) {
		     $sFcc_DataMov = ConvertDataUSBR($Row_T['FCC_DTHRMOV']);
		     $sFcc_HoraMov = DATE("H:i:s",ConvertDtHrSTR($Row_T['FCC_DTHRMOV']));
			 $sFcc_ValorCd = ( $Row_T['FCC_CREDITO'] ? FormatoMoeda($Row_T['FCC_VALORMV']) : '');
			 $sFcc_ValorDb = ( $Row_T['FCC_CREDITO'] ? '' :FormatoMoeda($Row_T['FCC_VALORMV']) );
			 $sFcc_SaldoMv = FormatoMoeda($Row_T['FCC_SALDOMV']);
			 $sFcc_Referen = '';
			 $sFcc_Descric = $Row_T['FCC_DESCRIC'];
			 If ( $Row_T['FCC_IDN_FAT']>0 ) {
			    $sFcc_Referen = "Venda ".Str_Zero($Row_T['FCC_IDN_FAT'],8);
		     }
			 //           1         2         3         4         5         6         7         8
			 //  12345678901234567890123456789012345678901234567890123456789012345678901234567890
			 //  10/10/2014   10:20:30     1500,00     1500,00      20000,00
			 //  Lançamento |  Horário |  Crédito  |   Débito  |    Saldo    | Referência
			 //  Histórico
			 //  1234567890123456789012345678901234567890
			 //  Lançamento |    Valor    |         Saldo
			 //  Histórico
			 //
			 // Convênio
			 If ( $nFil_Cod_Cnv>0 ) {
			    If(! $bImp_Convenio) {
				   $sTxt_Rel .=
			          "** Convenio: ".Str_Zero($Row_T['CNV_CODIGOI'],6)."-".PegarPorPausa($Row_T['CNV_TITULO'],2).$sPulaLinha.
			          $sPulaLinha;
				   $bImp_Convenio = True;
				}   
			 }
			 If ( $nFcc_Cod_Cli<>$Row_T['FCC_COD_CLI'] ) {
	            $sTxt_Rel .=
				   $sPulaLinha.
				   ( $nFcc_Cod_Cli==0 ? '' : STR_REPEAT("-",( $nFil_Opcao_C==0 ? 40 : 80)).$sPulaLinha).
				   "** Cliente: ".Str_Zero($Row_T['FCC_COD_CLI'],6)."-".PegarPorPausa($Row_T['CLI_NOMECP'],2).$sPulaLinha.
			       $sPulaLinha;
			    $nFcc_Cod_Cli = $Row_T['FCC_COD_CLI'];
			 }
			 //
	         $sTxt_Rel .=
	            ( $nFil_Opcao_C==0 ?  // 40 Colunas
			     AlinhaStr($sFcc_DataMov,1,10)." |".
			     AlinhaStr( ( $Row_T['FCC_CREDITO'] ? $sFcc_ValorCd : "-".$sFcc_ValorDb ),2, 12)." |".
			     AlinhaStr($sFcc_SaldoMv,2,14).
				 $sPulaLinha.$sFcc_Descric.
			     $sPulaLinha
				:                     // 80 Colunas
			     AlinhaStr($sFcc_DataMov,1,10)." |".
			     AlinhaStr($sFcc_HoraMov,1,10)." | ".
			     AlinhaStr($sFcc_ValorCd,2, 9)." | ".
			     AlinhaStr($sFcc_ValorDb,2, 9)." | ".
			     AlinhaStr($sFcc_SaldoMv,2,11)." | ".
			     AlinhaStr($sFcc_Referen,0,18).
				 $sPulaLinha.$sFcc_Descric.
			     $sPulaLinha
				);
		     $nQtd_Regs++;
		  }
          $sTxt_Rel .=
			$sPulaLinha.
			"Registros impressos: ".$nQtd_Regs.$sPulaLinha.
			STR_REPEAT("-", ( $nFil_Opcao_C==0 ? 40 : 80) ).$sPulaLinha.
			"";
		  //
		  //
	   //
	   // -- Movimento de duplicatas
	   } Else {
	      //
	      $sSQLQuery = "SELECT * FROM cad_modalidade_pag;";
	      $Rows_T = MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().'<br>'.$sSQLQuery);
	      $aCad_Modalidade = ARRAY();
          While ( $Row_T = MYSQL_FETCH_ARRAY($Rows_T) ) {
	         $aCad_Modalidade[$Row_T["MPG_CODIGOI"]] = $Row_T;
	      }
	      //
	      $sSQLParm = ' AND CTR_CODEMP='.$Dados_Empresa['EMP_CODIGOI'].' AND CTR_CANCEL=0';
	      //
	      $sDta_RecPag = 'CTR_DTAVEN';
	      If ( $nFil_Opcao_R==2 ) {    // Duplicatas pagas
	         $sDta_RecPag = 'CTR_DTAREC';
	      }
	      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_Cli>0 ) {
	         $sSQLParm .= ' AND CTR_CODCLI='.$nFil_Cod_Cli;
	      }
		  If ( $nFil_Cod_Cnv>0 ) {
	         $sSQLParm .= ' AND CNV_CODIGOI='.$nFil_Cod_Cnv;
	      }
		  
	      If ( $nFil_Opcao_R==1 ) {          // Duplicatas em aberto
	         $sSQLQuery = 
			    "SELECT * ".
				"FROM fin_contas_receber ".
				"LEFT JOIN cad_cliente   AS cli ON cli.CLI_CODIGOI = CTR_CODCLI ".
			    "LEFT JOIN cad_convenio  AS cnv ON cnv.CNV_CODIGOI = cli.CLI_CODCNV ".
				"WHERE CTR_DTAREC=0".$sSQLParm." ORDER BY CTR_CODCLI ASC, CTR_DTAVEN ASC, CTR_ID_MOV ASC;";
	      } ElseIf ( $nFil_Opcao_R==2 ) {    // Duplicatas pagas
	         $sSQLQuery = 
			    "SELECT * ".
				"FROM fin_contas_receber ".
				"LEFT JOIN cad_cliente   AS cli ON cli.CLI_CODIGOI = CTR_CODCLI ".
			    "LEFT JOIN cad_convenio  AS cnv ON cnv.CNV_CODIGOI = cli.CLI_CODCNV ".
				"WHERE CTR_DTAREC>0".$sSQLParm." ORDER BY CTR_CODCLI ASC, CTR_DTAREC ASC, CTR_ID_MOV ASC;";
	      } Else {                           // Todas
	         $sSQLQuery = 
			    "SELECT * ".
				"FROM fin_contas_receber ".
				"LEFT JOIN cad_cliente   AS cli ON cli.CLI_CODIGOI = CTR_CODCLI ".
			    "LEFT JOIN cad_convenio  AS cnv ON cnv.CNV_CODIGOI = cli.CLI_CODCNV ".
				"WHERE CTR_ID_MOV>0".$sSQLParm." ORDER BY CTR_CODCLI ASC, CTR_DTAVEN ASC, CTR_ID_MOV ASC;";
	      }
	      $Rows_FinCtr = MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().'<br>'.$sSQLQuery);
	      $n_UltCodCli = 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_UltCodCnv = 0;
		  $bImp_Convenio = False;
		  $bImp_FoiIte = False;
          While (True) {
	         $bFimdoWhile = ( ! $Row_FinCtr = MYSQL_FETCH_OBJECT($Rows_FinCtr) );
	         If ($bFimdoWhile OR (@$Row_FinCtr->CTR_CODCLI)<>$n_UltCodCli) {
                If ( $n_Total_Qtd>0 ) {
                   If ( $nFil_Opcao_C==0 ) {  // 40 Colunas
                      $sTxt_Rel .=
				         ( $bImp_FoiIte ? "" : STR_REPEAT("-",40).$sPulaLinha ).
                	      ( $nFil_Opcao_R==1 ?
                           "Qtd de duplicatas: ".$n_Total_Qtd.$sPulaLinha.
                           "Total devedor....: ".FormatoMoeda($n_Total_Val).$sPulaLinha
                	      : "").
                	      ( $nFil_Opcao_R==2 ?
                           "Qtd de duplicatas: ".$n_Total_Qtd.$sPulaLinha.
                           "Total pago.......: ".FormatoMoeda($n_Total_Rec).$sPulaLinha
                	      : "").
                	      ( $nFil_Opcao_R==0 ?
                           "Qtd de duplicatas: ".$n_Total_Qtd.$sPulaLinha.
                           "Total pago.......: ".FormatoMoeda($n_Total_Rec).$sPulaLinha.
                           "Total devedor....: ".FormatoMoeda($n_Total_Val).$sPulaLinha
                	      : "").
                         $sPulaLinha.
                         $sPulaLinha.
                      	"";
                   } Else {                   // 80 Colunas
	                  $sTxt_Rel .=
                         ( $bImp_FoiIte ? "" : 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)
				         : "").
		                 $sPulaLinha.
		                 $sPulaLinha.
			          	"";
			       }
			    }
			    $n_TotGe_Val += $n_Total_Val;
			    $n_TotGe_Rec += $n_Total_Rec;
			    $n_TotGe_Qtd += $n_Total_Qtd;
		        If ( $bFimdoWhile ) { Break; }
			    $bImp_FoiIte = False;
	            $n_Total_Val  = 0;
			    $n_Total_Rec  = 0;
	            $n_Total_Qtd  = 0;
				$n_UltCodCli = $Row_FinCtr->CTR_CODCLI;
		        //convenio
				If ( $nFil_Cod_Cnv>0 && $nFil_Cod_Cli == 0) {
				   If ( $n_UltCodCnv<>$Row_FinCtr->CLI_CODCNV ) {
					  If(! $bImp_Convenio) {
					     $sTxt_Rel .=
				            $sPulaLinha.
				            ( $n_UltCodCnv==0 ? '' : STR_REPEAT("-",( $nFil_Opcao_C==0 ? 40 : 80)).$sPulaLinha).
				            "** Convênio: ".Str_Zero($Row_FinCtr->CNV_CODIGOI,7).' - '.$Row_FinCtr->CNV_TITULO.$sPulaLinha.
			                $sPulaLinha;
			             
						 $n_UltCodCnv = $Row_FinCtr->CLI_CODCNV;
					     $bImp_Convenio = True;
					  }
			       }
				}
				// cliente
				$n_UltCodCli = $Row_FinCtr->CTR_CODCLI;
		        $sSQLQuery = 
				   "SELECT * ".
				   "FROM cad_cliente ".
				   "WHERE CLI_CODIGOI=".$n_UltCodCli." AND CLI_TRAREG=0;";
		        $Row_CadCli = MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().'<br>'.$sSQLQuery);
                If ( $Row_CadCli = MYSQL_FETCH_OBJECT($Row_CadCli) ) {
		           $sExibCliente = Str_Zero($Row_CadCli->CLI_CODIGOI,8).' - '.$Row_CadCli->CLI_NOMECP;
		           
				} Else {
	               $sExibCliente = "** Cliente não encontrado **";
		        }
				//
	            $sTxt_Rel .=
				  STR_REPEAT("=",( $nFil_Opcao_C==0 ? 40 : 80)).$sPulaLinha.
				  "";
				//
                If ( $nFil_Opcao_C==0 ) {  // 40 Colunas
	               $sTxt_Rel .=
		              $sPulaLinha.
	                  AlinhaStr('Cliente:'.$sExibCliente,0,40).$sPulaLinha.
                      $sPulaLinha.
					  "";
			    } Else {                   // 80 Colunas
	               $sTxt_Rel .=
		              $sPulaLinha.
	                  AlinhaStr('Cliente....:'.$sExibCliente,0,80).$sPulaLinha.
                      $sPulaLinha.
					  "";
		        }
		     }
			 // Analítico: Puxar produtos se houver
			 $sTxt_Rel_Prod = "";
			 If ( $nFil_TipoR_R==1 AND $Row_FinCtr->CTR_CODFAT>0 ) {
                $sSQLQuery = 
                   "SELECT ".
			 	     "fti.FAT_QTD_ITE, fti.FAT_PRE_TOT, fti.FAT_CODIGOI, ".
			 	     "ite1.ITE_CODIGOL AS ITE_CODIGOL1, ite1.ITE_DESCRIC AS ITE_DESCRIC1,".
			 	     "ite2.ITE_CODIGOL AS ITE_CODIGOL2, ite2.ITE_DESCRIC AS ITE_DESCRIC2,".
			 	     "ite3.ITE_CODIGOL AS ITE_CODIGOL3, ite3.ITE_DESCRIC AS ITE_DESCRIC3,".
			 	     "ite4.ITE_CODIGOL AS ITE_CODIGOL4, ite4.ITE_DESCRIC AS ITE_DESCRIC4 ".
                   "FROM fat_item           AS fti ".
                   "LEFT JOIN cad_produto   AS ite1 ON ite1.ITE_CODIGOI = fti.FAT_CODITE1 ".
                   "LEFT JOIN cad_produto   AS ite2 ON ite2.ITE_CODIGOI = fti.FAT_CODITE2 ".
                   "LEFT JOIN cad_produto   AS ite3 ON ite3.ITE_CODIGOI = fti.FAT_CODITE3 ".
                   "LEFT JOIN cad_produto   AS ite4 ON ite4.ITE_CODIGOI = fti.FAT_CODITE4 ".
                   "WHERE fti.FAT_CFATGER=".$Row_FinCtr->CTR_CODFAT." ".
			 	  "ORDER BY fti.FAT_CODIGOI ASC;";
	            $Rows_FatIte = MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().'<br>'.$sSQLQuery);
			    While ( $Row_FatIte = MYSQL_FETCH_ARRAY($Rows_FatIte, MYSQL_ASSOC) ) {
                  If ( $nFil_Opcao_C==0 ) {  // 40 Colunas
			 	    $sTxt_Rel_Prod .=
			 		  //"FTG = ".$Row_FinCtr->CTR_CODFAT.$sPulaLinha.
			 		  //"FTI = ".$Row_FatIte['FAT_CODIGOI'].$sPulaLinha.
			 		  "  ".
			 		  AlinhaStr(
			 		    $Row_FatIte['ITE_DESCRIC1'].
			 		    ( EMPTY($Row_FatIte['ITE_DESCRIC2']) ? "" : " / ".$Row_FatIte['ITE_DESCRIC2'] ).
			 		    ( EMPTY($Row_FatIte['ITE_DESCRIC3']) ? "" : " / ".$Row_FatIte['ITE_DESCRIC3'] ).
			 		    ( EMPTY($Row_FatIte['ITE_DESCRIC4']) ? "" : " / ".$Row_FatIte['ITE_DESCRIC4'] )
			 		  ,2,34).
		               $sPulaLinha.
			 		  "          ".
			 		  AlinhaStr($Row_FatIte['FAT_QTD_ITE'],2,6).
			 		  " x R$ ".
			 		  AlinhaStr(FormatoMoeda($Row_FatIte['FAT_PRE_TOT']/$Row_FatIte['FAT_QTD_ITE']),2,6).
			 		  " = R$ ".
			 		  AlinhaStr(FormatoMoeda($Row_FatIte['FAT_PRE_TOT']),2,6).
		               $sPulaLinha.
			 		  "";
			      } Else {                   // 80 Colunas
			 	    $sTxt_Rel_Prod .=
			 		  "  ".
			 		  AlinhaStr(
			 		    $Row_FatIte['ITE_DESCRIC1'].
			 		    ( EMPTY($Row_FatIte['ITE_DESCRIC2']) ? "" : " / ".$Row_FatIte['ITE_DESCRIC2'] ).
			 		    ( EMPTY($Row_FatIte['ITE_DESCRIC3']) ? "" : " / ".$Row_FatIte['ITE_DESCRIC3'] ).
			 		    ( EMPTY($Row_FatIte['ITE_DESCRIC4']) ? "" : " / ".$Row_FatIte['ITE_DESCRIC4'] )
			 		  ,0,47).
			 		  " ".
			 		  AlinhaStr($Row_FatIte['FAT_QTD_ITE'],2,6).
			 		  " x R$ ".
			 		  AlinhaStr(FormatoMoeda($Row_FatIte['FAT_PRE_TOT']/$Row_FatIte['FAT_QTD_ITE']),2,6).
			 		  " = R$ ".
			 		  AlinhaStr(FormatoMoeda($Row_FatIte['FAT_PRE_TOT']),2,6).
		               $sPulaLinha.
			 		  "";
			 	 }  
			    }
			 }
			 If ( ! EMPTY($sTxt_Rel_Prod) ) {
			    $bImp_FoiIte = True;
			    $sTxt_Rel_Prod =
			       " -- PRODUTOS --".
			 	  $sPulaLinha.
			       $sTxt_Rel_Prod.
			       ( $nFil_Opcao_C==0 ? // 40 Colunas
			 	    STR_REPEAT("-",40)
			 	  :                    // 80 Colunas
			 	    STR_REPEAT("-",80)
			 	  ).
			 	  $sPulaLinha.
			 	  $sPulaLinha.
			       "";
			 }
			 //
		     $n_Total_Qtd++;
		     $n_Total_Val += $Row_FinCtr->CTR_VALDUP;
		     $n_Total_Rec += $Row_FinCtr->CTR_VALREC;
             //
             $sMpg_Descric = @$aCad_Modalidade[$Row_FinCtr->CTR_CODMOD]['MPG_DESCRIC'];
             If ( EMPTY($sMpg_Descric) ) {
                $sMpg_Descric = "";
             }
             //
             If ( $nFil_Opcao_C==0 ) {  // 40 Colunas
	            $sTxt_Rel .=
		           Str_Zero($Row_FinCtr->CTR_NUMDUP,8)." ".Str_Zero($Row_FinCtr->CTR_NUMPAR,2)."/".Str_Zero($Row_FinCtr->CTR_TOTPAR,2)."  ".
		           ConvertDataUSBR($Row_FinCtr->CTR_DTAFIC)."    ".ConvertDataUSBR($Row_FinCtr->CTR_DTAVEN).$sPulaLinha.
		           AlinhaStr( $sMpg_Descric,0,28).
		           AlinhaStr( FormatoMoeda( ($Row_FinCtr->CTR_VALDUP==0 ? $Row_FinCtr->CTR_VALREC : $Row_FinCtr->CTR_VALDUP)),2,12).$sPulaLinha.
		           ( STRLEN($Row_FinCtr->CTR_HISTOR)>0 ? $Row_FinCtr->CTR_HISTOR.$sPulaLinha : "").
		           ( $Row_FinCtr->CTR_VALREC>0 ?
		             " - Recebido ".DATE("d/m/Y H:i:s",ConvertDtHrSTR($Row_FinCtr->CTR_DTAREC)).$sPulaLinha
		           : "").
		           ( STRLEN($Row_FinCtr->CTR_HISREC)>0 ? $Row_FinCtr->CTR_HISREC.$sPulaLinha : "").
				   $sTxt_Rel_Prod.
		           "";
			    //
		     } Else {                   // 80 Colunas
	            $sTxt_Rel .=
		           Str_Zero($Row_FinCtr->CTR_NUMDUP,8)." ".Str_Zero($Row_FinCtr->CTR_NUMPAR,2)."/".Str_Zero($Row_FinCtr->CTR_TOTPAR,2)."  ".
		           ConvertDataUSBR($Row_FinCtr->CTR_DTAFIC)."  ".ConvertDataUSBR($Row_FinCtr->CTR_DTAVEN)."  ".
		           AlinhaStr( $sMpg_Descric,0,28).
		           AlinhaStr( FormatoMoeda( ($Row_FinCtr->CTR_VALDUP==0 ? $Row_FinCtr->CTR_VALREC : $Row_FinCtr->CTR_VALDUP)),2,12).$sPulaLinha.
		           ( STRLEN($Row_FinCtr->CTR_HISTOR)>0 ? $Row_FinCtr->CTR_HISTOR.$sPulaLinha : "").
		           ( $Row_FinCtr->CTR_VALREC>0 ?
		             " - Recebido ".DATE("d/m/Y H:i:s",ConvertDtHrSTR($Row_FinCtr->CTR_DTAREC)).$sPulaLinha
		           : "").
		           ( STRLEN($Row_FinCtr->CTR_HISREC)>0 ? $Row_FinCtr->CTR_HISREC.$sPulaLinha : "").
				   $sTxt_Rel_Prod.
		           "";
			    //
		     }
	      }
          If ( $n_TotGe_Qtd>0 ) {
             If ( $nFil_Opcao_C==0 ) {  // 40 Colunas
                $sTxt_Rel .=
                  $sPulaLinha.
                  AlinhaStr("** TOTAIS GERAIS DO RELATORIO **",1,40).$sPulaLinha.
                   STR_REPEAT("-",40).
				   $sPulaLinha.
          	        ( $nFil_Opcao_R==1 ?
                     "Qtd de duplicatas: ".$n_TotGe_Qtd.$sPulaLinha.
                     "Total devedor....: ".FormatoMoeda($n_TotGe_Val).$sPulaLinha
          	        : "").
          	        ( $nFil_Opcao_R==2 ?
                     "Qtd de duplicatas: ".$n_TotGe_Qtd.$sPulaLinha.
                     "Total pago.......: ".FormatoMoeda($n_TotGe_Rec).$sPulaLinha
          	        : "").
          	        ( $nFil_Opcao_R==0 ?
                     "Qtd de duplicatas: ".$n_TotGe_Qtd.$sPulaLinha.
                     "Total pago.......: ".FormatoMoeda($n_TotGe_Rec).$sPulaLinha.
                     "Total devedor....: ".FormatoMoeda($n_TotGe_Val).$sPulaLinha
          	        : "").
                   $sPulaLinha.
                   $sPulaLinha.
                   "";
          	    //
             } Else {                   // 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)
          	        : "").
                   $sPulaLinha.
                   $sPulaLinha.
                   "";
          	    //
             }
	      }
       }
	   //
	   $sTxt_Rel = RemoveAcentos($sTxt_Rel);
	   $aV_Sessao['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 .= 
          "parent.document.getElementById('dv_RelCRCR_Txt').innerHTML = ".JAVA_CharCode($sHTML_Rel).";".
          "".
          "";
	   //
	   $aSessao[$sNomeAcesso.'_S'] = $aV_Sessao;
    //
    // IMPRIMIR Relatório pronto
    } ElseIf ( $sAcao=="IMP" ) {
       $sRet_Javs .= "parent.JanEspera(false); ";
	   $aV_Sessao = @$aSessao[$sNomeAcesso.'_S'];
       $sCfg_ClpExp2 = SQLVarConfig('GARCOM_CLIPPER_ARQ_EXPORTA2');
       If ( STRLEN($sCfg_ClpExp2)>3 ) {
	      $sTxt_Cupom = @$aV_Sessao['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").'_CRC.TMP';
             $sIP_NomeArq = STR_REPLACE(".","_",ObterIPdoCliente());
             $sNomArqExpR = $sCfg_ClpExp2.$R_CadFuncionario->FUN_CODIGO.'_'.DATE("d-m-Y_h-i-s").'_CRC_'.$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;
       }
    //
	// >> Gerar texto para download
    } ElseIf ( $sAcao=="GERAR_TEXTO" ) {
	   $sArquivo = "Relatorio_Contas_Correntes_Clientes_".DATE("d-m-Y_H-i-s").".txt";
       $sTxt_Cupom = @$aV_Sessao['TXT_REL'];
	   HEADER("Content-Type: text/plain");
	   HEADER("Content-Length: ".STRLEN($sTxt_Cupom));
	   HEADER("Content-Disposition: attachment; filename=".$sArquivo);
	   ECHO $sTxt_Cupom;
	   EXIT;
    //
    // FECHAR Janela
    } ElseIf ( $sAcao=="FECHAR" ) {
	   UNSET( $aSessao[$sNomeAcesso.'_S'] );
       $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_RelCRC_DatIni').focus();".
		   "";
    //
    // Janela
	} Else {
	   $aV_Sessao = ARRAY();
	   $aV_Sessao['Fil_DataIni'] = @$_POST['Fil_DataIni'];      // Data inicial
	   $aV_Sessao['Fil_DataFim'] = @$_POST['Fil_DataFim'];      // Data final
	   $aV_Sessao['Fil_Cod_Cli'] = @$_POST['Fil_Cod_Cli'];      // Código do cliente
	   $aV_Sessao['Fil_TipoR_R'] = @$_POST['Fil_TipoR_R'];      // Tipo do relatório: 0=Analítico, 1=Sintético
	   $aV_Sessao['Fil_Opcao_R'] = @$_POST['Fil_Opcao_R'];      // Opcao do estado da duplicata
	   $aV_Sessao['Fil_Opcao_C'] = @$_POST['Fil_Opcao_C'];      // Opcao da largura do relatorio
	   $aV_Sessao['Fil_Cod_Cnv'] = @$_POST['Fil_Cod_Cnv'];      // Código do convenio
	   $aSessao[$sNomeAcesso.'_S'] = $aV_Sessao;
	   If ( (@$_POST['Fil_Opcao_C']+0)==0 ) { // 40 Colunas
          $oJanelaPrinc->nLeft   = 5;
	      $oJanelaPrinc->nWidth  = 450;
	      $oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
	   }
	   //
	   $oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."2.Teclas_F(this,event);";
	   //
       // Tela HTML
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
		  // Teclas
		  '<input id="in_RelCRCV_Tecla" style="position:absolute; top:-600; left:-600; width:1px; height:1px;">'.
		  //
          '<form name="fmPRelCRC_R" 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.'">'.
          '</form>'.
		  '<div id="dv_RelCRCR_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 width="120px" align="left">'.
            HTML_Botao( 3, 'objRelCRCR_BT_Abr',
			                                 "parent.JanEspera(true, 'Imprimindo relatório... aguarde...');".
											 "setTimeout( function () { ".
		                                        "document.forms.fmPRelCRC_R.acao.value='IMP'; ".
                                                "document.forms.fmPRelCRC_R.submit();".
											 "}, 500);"
                         , 'Imprimir (F9)'   ,'images/btimg_imp.png',120).		    
		   '</td>'.
		   '<td align="left">'.
              HTML_Botao( 3, 'objRelCPCR_BT_Dwn',  'Car_'.$sNomeAcesso.'2.SalvarTexto();'
                           , 'Salvar (F9)'   ,'images/btimg_baixar_texto.png',100).		    
		   '</td>'.
           '<td align="right">'.
            HTML_Botao( 3, 'objRelCRCR_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 Teclas_F( Objeto, Evento ) {".
             "vNumTecla = parent.Tecla_Apertada(Evento);".
             "if ( vNumTecla==113) { ".        //  ** [F2] **          // (Imprimir)
                 "setTimeout( parent.document.getElementById('objRelCRCR_BT_Abr').onclick , 50);".
		     "} else if ( vNumTecla==116) { ". //  ** [F5] **     Não atualizar
			     //
             "} else if ( vNumTecla==120) { ". //  ** [F9] **          // (Salvar em arquivo texto)
                 "setTimeout( parent.document.getElementById('objRelCPCR_BT_Dwn').onclick , 50);".
			    //
		     "} else if ( vNumTecla==27) { ".  //  ** [ESC] **         // (SAIR)
                 "setTimeout( parent.document.getElementById('objRelCRCR_BT_Fch').onclick , 50);".
			 "} else {".
			     "return true;".
			 "}".
			 "return false;".
          '}'.
		  //
		  "function SalvarTexto() {".
	        "parent.document.forms.fmPRelCRC_R.acao.value='GERAR_TEXTO';".
            "parent.document.forms.fmPRelCRC_R.submit();".
		  "}".
		  //
	      "";
       // Java posterior
       $sRet_JavsPos .=
	     "parent.document.getElementById('in_RelCRCV_Tecla').focus(); ".
	     "setTimeout( function () { ".
	        "parent.document.forms.fmPRelCRC_R.acao.value='MONTAR';".
            "parent.document.forms.fmPRelCRC_R.submit();".
		 "} , 300); ".
         "";
	   //
	   //
	}
   //

//
//  ** CONSULTA AO CADASTRO DE CLIENTES **
} ElseIf ( $sSubModulo=="CLI" ) {
   $bDir_Consult = True;
   $sNomeIdJ_Ant = $sNomeIdJan1;
   $sNomeIdCampo = "in_RelCRC_CodCli";
   $sJavaExePos  = "parent.Car_".$sNomeAcesso."1.Atualiza();";
   REQUIRE "./modulos/consulta_cliente.inc";
//
//  ** CONSULTA AO CADASTRO DE CONVENIO **
} ElseIf ( $sSubModulo=="CNV" ) {
   $bDir_Consult = True;
   $sNomeIdJ_Ant = $sNomeIdJan1;
   $sNomeIdCampo = "in_RelCRC_CodCnv";
   $sJavaExePos  = "parent.Car_".$sNomeAcesso."1.Atualiza();";
   REQUIRE "./modulos/consulta_convenio.inc";



//
//  ** TELA PRINCIPAL DE RELATORIO DE ESTOQUE **
} Else {
    // 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 conta corrente de clientes';
	$oJanelaPrinc->aIdsObjList =
	      ARRAY(
		    'in_RelCRC_DatIni','in_RelCRC_DatFim','in_RelCRC_CodCli', 'in_RelCRC_CodCnv',
			'sl_RelCRC_TipoR_','sl_RelCRC_Opcao_','sl_RelCRC_OpcaoC'
		  );
    //    
	$sJavaTravarJ = "parent.document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);";
 	$oJanelaPrinc->sJavOnClickF =
         $sJavaTravarJ.
		 "parent.document.forms.fmPRelCRC.acao.value='FECHAR'; ".
         "parent.document.forms.fmPRelCRC.submod.value=''; ".
         "parent.document.forms.fmPRelCRC.submit();";
    //
    // ATUALIZA TELA: Sequencia de Caixa
    If ( $sAcao=="ATUALIZA" ) {
	   $s_Fil_DataIni = @$_POST['Fil_DataIni'];
	   $s_Fil_DataFim = @$_POST['Fil_DataFim'];
	   $s_Fil_Cod_Cli = @$_POST['Fil_Cod_Cli'];
	   $s_Fil_Cod_Cnv = @$_POST['Fil_Cod_Cnv'];
	   $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_Cli,0,1)=="/" ) {
		  $aSessao['Pesq_Chave'] = STR_REPLACE( '/' , '', $s_Fil_Cod_Cli );
		  $s_Fil_Cod_Cli = '';
		  $s_Lab_Nom_Cli = "(Consulta)";
          $sRet_Javs .= 
	           $sJavaTravarJ.
		       "setTimeout( function () { ".
			      "var fm = parent.document.forms.fmPRelCRC;".
			      "TargetAnt = fm.target;".
			      "fm.target='car_".$sNomeAcesso."10';".
		          "fm.acao.value=''; ".
		          "fm.submod.value='CLI'; ".
		          "fm.submit();".
			      "fm.target = TargetAnt;".
		          "fm.submod.value='".$sSubModulo."'; ".
		       "} , 100);".
		       "";
	   } Else {
	    
          $sSQLQuery = "SELECT CLI_CODIGOI, CLI_TRAREG, CLI_NOMECP FROM cad_cliente WHERE CLI_CODIGOI='".$s_Fil_Cod_Cli."' AND CLI_TRAREG=0;";
          $Row_CadCli = MYSQL_QUERY($sSQLQuery) Or Die(MYSQL_ERROR().'<br>'.$sSQLQuery);
	      $s_Lab_Nom_Cli = "";
          If ( $Row_CadCli = MYSQL_FETCH_OBJECT($Row_CadCli) ) {
	         $s_Fil_Cod_Cli = Str_Zero($s_Fil_Cod_Cli,8);
	         $s_Lab_Nom_Cli = $Row_CadCli->CLI_NOMECP;
	      } Else {
			$sSQLQueryA =
			    "SELECT TEL_NUMERO,TEL_TRAREG,TEL_CODCAD FROM cad_telefones ".
	            "WHERE ".
		  	    "(TEL_NUMERO+0)>9999999 AND TEL_NUMERO='".STR_REPLACE("-","",$s_Fil_Cod_Cli)."' AND ".
		  	    "(TEL_TRAREG=0 OR TEL_TRAREG=2) ".
		  	    ";";
			$RowsT = MYSQL_QUERY($sSQLQueryA) Or Die($sSQLQueryA.'<br>'.MYSQL_ERROR());
             If ($RowT = MYSQL_FETCH_OBJECT($RowsT)) {
			    $s_Fil_Cod_Cli = $RowT->TEL_CODCAD;
				$sSQLQueryC = "SELECT CLI_CODIGOI, CLI_TRAREG, CLI_NOMECP FROM cad_cliente WHERE CLI_CODIGOI='".$RowT->TEL_CODCAD."' AND CLI_TRAREG=0;"; 
			    $Row_CadCli = MYSQL_QUERY($sSQLQueryC) Or Die(MYSQL_ERROR().'<br>'.$sSQLQueryC);
			    If ( $Row_CadCli = MYSQL_FETCH_OBJECT($Row_CadCli) ) {
	               $s_Fil_Cod_Cli = Str_Zero($s_Fil_Cod_Cli,8);
	               $s_Lab_Nom_Cli = $Row_CadCli->CLI_NOMECP;
			    } Else {
				  $s_Fil_Cod_Cli = '';
	              $s_Lab_Nom_Cli = "** TODOS **";
				}
			 } Else {
			 //
			   $s_Fil_Cod_Cli = '';
	           $s_Lab_Nom_Cli = "** TODOS **";
			 }
	      }
	   }
	   //
	   If ( SUBSTR($s_Fil_Cod_Cnv,0,1)=="/" ) {
		  $aSessao['Pesq_Chave'] = STR_REPLACE( '/' , '', $s_Fil_Cod_Cnv );
		  $s_Fil_Cod_Cnv = '';
		  $s_Lab_Nom_Cnv = "(Consulta)";
          $sRet_Javs .= 
	           $sJavaTravarJ.
		       "setTimeout( function () { ".
			      "var fm = parent.document.forms.fmPRelCRC;".
			      "TargetAnt = fm.target;".
			      "fm.target='car_".$sNomeAcesso."3';".
		          "fm.acao.value=''; ".
		          "fm.submod.value='CNV'; ".
		          "fm.submit();".
			      "fm.target = TargetAnt;".
		          "fm.submod.value='".$sSubModulo."'; ".
		       "} , 100);".
		       "";
	   } Else {
	      //
          $sSQLQuery = "SELECT CNV_CODIGOI, CNV_TITULO, CNV_ATIVO_ FROM cad_convenio WHERE CNV_CODIGOI='".$s_Fil_Cod_Cnv."' AND CNV_ATIVO_;";
          $Row_CadCnv = MYSQL_QUERY($sSQLQuery) Or Die(MYSQL_ERROR().'<br>'.$sSQLQuery);
	      $s_Lab_Nom_Cnv = "";
          If ( $Row_CadCnv = MYSQL_FETCH_OBJECT($Row_CadCnv) ) {
	         $s_Fil_Cod_Cnv = Str_Zero($s_Fil_Cod_Cnv,8);
	         $s_Lab_Nom_Cnv = $Row_CadCnv->CNV_TITULO;
	      } Else {
             $s_Fil_Cod_Cnv = '';
	         $s_Lab_Nom_Cnv = "** TODOS **";
		  }
	   }
	   //
       $sRet_Javs .=
	       'parent.document.getElementById("in_RelCRC_DatIni").value = "'.$s_Fil_DataIni.'";'.
	       'parent.document.getElementById("in_RelCRC_DatFim").value = "'.$s_Fil_DataFim.'";'.
	       'parent.document.getElementById("in_RelCRC_CodCli").value = "'.$s_Fil_Cod_Cli.'";'.
		   'parent.document.getElementById("sp_RelCRC_NomCli").innerHTML = "'.$s_Lab_Nom_Cli.'";'.
		   'parent.document.getElementById("in_RelCRC_CodCnv").value = "'.$s_Fil_Cod_Cnv.'";'.
		   'parent.document.getElementById("sp_RelCRC_NomCnv").innerHTML = "'.$s_Lab_Nom_Cnv.'";'.
		   "";
    //
    // FECHAR
    } 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';";
    //
    // JANELA TELA PRINCIPAL
	} Else {
	   //
	   $oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."1.Teclas_F(this,event);";
	   //
       // Tela HTML
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
          '<style type="text/css">'.   
	          CSS_Estilos(1,$oJanelaPrinc->sIdObj."_Balao").
            '*{'.                         
             'font-family: Arial, sans-serif;'.
            '}'.                          
		  '</style>'.      
		  '<form name="fmPRelCRC" 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.'">'.
		   '&nbsp;'.
		  '<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_RelCRC_DatIni';".'" src="images/bimg_calendario.png" border="0" id="bt_RelCRC_DatIni" style="cursor:pointer;"></td>'.
			  '<td width="77px">'.
			   '<input id="in_RelCRC_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_RelCRC_DatFim';".'" src="images/bimg_calendario.png" border="0" id="bt_RelCRC_DatFim" style="cursor:pointer;"></td>'.
			  '<td width="77px">'.
			   '<input id="in_RelCRC_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>'.
		  '<table width="100%" border="0">'.
           
		   
		   '<tr>'.
            '<td width="4px" height="20px">&nbsp;</td>'.
            '<td id="td_cli_01" width="108px" align="right" valign="middle">'.
	           'Cliente:'.'&nbsp;&nbsp;'.
			   '<input type="image" style="position:relative; left:5px;" src="./images/interroga.png" width="23px" height="23px" onclick="'."parent.Car_".$sNomeAcesso."1.Interroga_Img('Q_RelRec_Balao_Mod');".'">'.
               '<span id="Q_RelRec_Balao_Mod" class="'.$oJanelaPrinc->sIdObj.'_Balao" style="display:none;">'.
    	          'Ex: <br>'.
				  'Código: 13 ou<br>'.
				  'Telefone: 998772190'.
               '</span>'.            
            '</td>'.
            '<td align="center" valign="middle" width="76px">'.
		     '<input id="in_RelCRC_CodCli" name="Fil_Cod_Cli" type="text" maxlength="30" value="00000000" onchange="return Car_'.$sNomeAcesso.'1.Atualiza();" style="font-size:12px; width:99%;">'.
            '</td>'.
			'<td id="td_cli_02" valign="top" align="right" width="28px">'.
           	 	 HTML_Botao( 3, 'CxaRec_BT_Psq' , "document.getElementById('in_RelCRC_CodCli').value='/';".
			                              'return Car_'.$sNomeAcesso.'1.Atualiza();'
                              , ''   ,'images/btimg_lupa.png',20).
    	  	'</td>'.   
            '<td id="td_cli_03" align="left" valign="middle">'.
			 '<span id="sp_RelCRC_NomCli" style="font-weight:bold;"></span>'.
            '</td>'.
		   '</tr>'.
		  '</table>'.
		  //
		  '<table width="100%" border="0">'.
             '<tr>'.
                '<td width="4px" height="20px">&nbsp;</td>'.
                '<td id="td_cnv_01" width="108px" align="right" valign="middle">'.
	               'Convênio:'.'&nbsp;&nbsp;'.
			    '</td>'.
                '<td align="center" valign="middle" width="76px">'.
		           '<input id="in_RelCRC_CodCnv" name="Fil_Cod_Cnv" type="text" maxlength="30" value="000000000" onchange="return Car_'.$sNomeAcesso.'1.Atualiza();" style="font-size:12px; width:99%;">'.
               '</td>'.
			    '<td id="td_cnv_02" valign="top" align="right" width="28px">'.
           	 	   HTML_Botao( 3, 'CxaRec_BT_Psq' , "document.getElementById('in_RelCRC_CodCnv').value='/';".
			                                        'return Car_'.$sNomeAcesso.'1.Atualiza();'
                                , ''   ,'images/btimg_lupa.png',20).
    	  	    '</td>'.   
                '<td id="td_cnv_03" align="left" valign="middle">'.
			       '<span id="sp_RelCRC_NomCnv" style="font-weight:bold;"></span>'.
                '</td>'.
		     '</tr>'.
		  '</table>'.
		  
		  '<table width="100%" border="0">'.
           '<tr>'.
            '<td height="20px"></td>'.
            '<td align="right" valign="middle">'.
			 'Tipo:'.
			'</td>'.
            '<td align="left" valign="middle">'.
		   	 '<select id="sl_RelCRC_TipoR_" name="Fil_TipoR_R" style="width:100px;">'.
		   	  '<option value="0">Sintético</option>'.
		   	  '<option value="1">Analítico</option>'.
		   	 '</select>'.
            '</td>'.
           '</tr>'.
           '<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_RelCRC_Opcao_" name="Fil_Opcao_R" style="width:100px;">'.
		   	  '<option value="1">Em aberto</option>'.
		   	  '<option value="2">Pagas</option>'.
		   	  '<option value="0">Em aberto e pagas</option>'.
		   	  '<option value="3">Créditos</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_RelCRC_OpcaoC" name="Fil_Opcao_C" style="width:100px;">'.
		   	  '<option value="0">40 colunas</option>'.
		   	  '<option value="1">80 colunas</option>'.
		   	 '</select>'.
            '</td>'.
		   '</tr>'.
		  '</table>'.
		  '</form>'.
		  //
          '<table width="100%" style="background-color:'.$sCorBarraInf.';"></tr>'.
           '<td width="4px" height="40px">&nbsp;</td>'.
           '<td align="left">'.
            HTML_Botao( 3, 'objRelCrc_BT_Abr',
			                                 "var vff = document.forms.fmPRelCRC;".
			                                 "vff.target='car_".$sNomeAcesso."2';".
		                                     "vff.acao.value=''; ".
                                             "vff.submod.value='RELATORIO'; ".
                                             "vff.submit();".
											 $sJavaTravarJ
                         , 'Visualizar (F8)' ,'images/btimg_docs.png',120).		    
		   '</td>'.
           '<td align="right">'.
            HTML_Botao( 3, 'objRelCrc_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 Teclas_F( Objeto, Evento ) { ".
           "vNumTecla = parent.Tecla_Apertada(Evento); ".
		   "sAntFocus = parent.sIdHasFocus;".
           "if ( vNumTecla==119) { ".         // ** [F8] **
               "if (parent.document.getElementById('objRelCrc_BT_Abr').style.display!='none') {".           // (Visualizar)
                  "parent.".$sJava_Desfoca_Input.
                  "setTimeout( parent.document.getElementById('objRelCrc_BT_Abr').onclick , 10);".
         	  "}".
		   "} else if ( vNumTecla==116) { ".  // ** [F5] **     Não atualizar
               //
           "} else if ( vNumTecla==27 ) { ".  // [ESC]
               "setTimeout( parent.document.getElementById('objRelCrc_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_RelCRC_DatIni').focus();".
	   	             'break;'.
		   	     "}".
		   	  "}".
		   "} else {".
		     "return true;".
		   "} ".
	       "return false;".
		 '}'.
	     "";
       // Java posterior
       $sRet_JavsPos .=
	     "parent.document.getElementById('in_RelCRC_CodCli').focus();".
	     "function Atualiza() {".
		    "var vff = parent.document.forms.fmPRelCRC;".
			"stmp = vff.target;".
			"var vCli_Cnv = vff.Fil_Cod_Cli.value;".
			"var vCli_Cli = vff.Fil_Cod_Cnv.value;".
			"vCli_Cli = vCli_Cli.length;".
			"vCli_Cnv = vCli_Cnv.length;".
			"if(vCli_Cli==9 && vCli_Cnv==9){ ".
			   "vff.Fil_Cod_Cli.style.visibility='visible';".
			   "vff.Fil_Cod_Cnv.style.visibility='visible';".
			"} else if (vCli_Cli==0 && vCli_Cnv==0 ) {".
			   "vff.Fil_Cod_Cli.style.visibility='visible';".
			   "vff.Fil_Cod_Cnv.style.visibility='visible';".
			   "parent.document.getElementById('td_cli_01').style.visibility='visible';".
			   "parent.document.getElementById('td_cli_02').style.visibility='visible';".
			   "parent.document.getElementById('td_cli_03').style.visibility='visible';".
			   "parent.document.getElementById('td_cnv_01').style.visibility='visible';".
			   "parent.document.getElementById('td_cnv_02').style.visibility='visible';".
			   "parent.document.getElementById('td_cnv_03').style.visibility='visible';".
			"} else if (vCli_Cli==0) {".
               "vff.Fil_Cod_Cnv.style.visibility='hidden';".
               "parent.document.getElementById('td_cnv_01').style.visibility='hidden';".
			   "parent.document.getElementById('td_cnv_02').style.visibility='hidden';".
			   "parent.document.getElementById('td_cnv_03').style.visibility='hidden';".
			"} else if (vCli_Cnv==0) {".
			   "vff.Fil_Cod_Cli.style.visibility='hidden';".
			   "parent.document.getElementById('td_cli_01').style.visibility='hidden';".
			   "parent.document.getElementById('td_cli_02').style.visibility='hidden';".
			   "parent.document.getElementById('td_cli_03').style.visibility='hidden';".
			"}".   
			"vff.target='car_".$sNomeAcesso."5';".
	        "vff.acao.value='ATUALIZA'; ".
	        "vff.submod.value=''; ".
            "vff.submit(); ".
			"vff.target = stmp;".
		 "}".
		 "Atualiza(); ".
 		 //
		 "function Interroga_Img(sObjeto) {".
            "if ( parent.document.getElementById(sObjeto).style.display == 'none') {".
              'parent.document.getElementById(sObjeto).style.display="inline";'. 
            "} else {".                   
              'parent.document.getElementById(sObjeto).style.display="none";'. 
            "}".                          
          "}".                            
		 //
         'parent.Calendar.setup({ '.
           'inputField : "in_RelCRC_DatIni", '.
           'trigger    : "bt_RelCRC_DatIni", '.
           'onSelect   : function() { this.hide(); parent.sIdHasFocus=""; Atualiza(); }, '.
           'showTime   : 0, '.
           'dateFormat : "%d/%m/%Y" '.
         '});'.
         'parent.Calendar.setup({ '.
           'inputField : "in_RelCRC_DatFim", '.
           'trigger    : "bt_RelCRC_DatFim", '.
           'onSelect   : function() { this.hide(); parent.sIdHasFocus=""; Atualiza(); }, '.
           'showTime   : 0, '.
           'dateFormat : "%d/%m/%Y" '.
         '});'.
         "";
	}
}

?>