<?php
REQUIRE_ONCE "./global/est_funcoes.inc";
//
$sNomeIdJan1 = 'iJan_RelLis_Princ';
$sNomeIdJan2 = 'iJan_RelLis_TxtVs';
$sCorBarraInf = '#E8E3CE';
//
$sPulaLinha = CHR(13).CHR(10);
$sEmpresaFan = SQLVarConfig('EMPRESA_NOME_FANTASIA');
//
//
//  ** 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_RelLisV_Tecla').focus();";
	//
	$sJavaTravarJ = "document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; ";
	$oJanelaPrinc->sJavOnClickF =
        $sJavaTravarJ.
	    "document.forms.fmPRelLis_P.acao.value='FECHAR'; ".
        "document.forms.fmPRelLis_P.submit();";
	//
	$aV_Sessao = @$aSessao[$sNomeAcesso.'_S'];
   //
   //
   // Montar o relatório
   If ( $sAcao=="MONTAR" ) {
	   //
	   $sTxt_Rel    = '';
	   //$nFil_CodFor = $aV_Sessao['Fil_CodFor'];
	   $nFil_CodGru = $aV_Sessao['Fil_CodGru'];
	   //$sFil_Unidad = $aV_Sessao['Fil_Unidad'];
	   //$nFil_NcmPro = $aV_Sessao['Fil_NcmPro'];
		$nFil_Ordena = $aV_Sessao['Fil_Ordena'];
	   //$bFil_Situac = $aV_Sessao['Fil_Situac'];
	   $nFil_Opcao    = $aV_Sessao['Fil_Opcao'];
	   
		
	   // Montar matriz de grupo de produtos
	   $sSQLQuery = 'SELECT GRU_CODIGO,GRU_DESCRI, GRU_ACTSAB, GRU_ACTMEI FROM cad_grupo_produtos;';
	   $RowsT = MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().'<br>'.$sSQLRequest);
	   $aCad_PrGrupoC = ARRAY();
	   While ( $RowT = MYSQL_FETCH_ARRAY($RowsT) ) {
	       $aCad_PrGrupoC[ $RowT['GRU_CODIGO'] ] = $RowT;
	   }
	   
	   
	   
	   $sSQLParm = '';
	   If( $nFil_Ordena==0) {
          $sSQLParm = "ORDER BY GRU_DESCRI,ITE_DESCRIC;"; 
       } Else{
          $sSQLParm = "ORDER BY GRU_CODIGO,ITE_CODIGOL;";
       }		
	   // Montar matriz de produtos
	   //$sSQLQuery = 'SELECT ITE_CODIGOI,ITE_DESCRIC,ITE_ITEM_ATIVO_ FROM cad_produto ORDER BY ITE_DESCRIC ASC;';
	   $sSQLQuery = 
	      "SELECT ITE_CODIGOI,ITE_CODIGOL,ITE_DESCRIC, ".
		  "ITE_PRE_BAL_NOR, ITE_PRE_BAL_MEI, ITE_PRE_BAL_001, ITE_PRE_BAL_002, ITE_PRE_BAL_003, ITE_PRE_BAL_004, ".
		  "ITE_PRE_MES_NOR, ITE_PRE_MES_MEI, ITE_PRE_MES_001, ITE_PRE_MES_002, ITE_PRE_MES_003, ITE_PRE_MES_004, ".
		  "ITE_PRE_ENT_NOR, ITE_PRE_ENT_MEI, ITE_PRE_ENT_001, ITE_PRE_ENT_002, ITE_PRE_ENT_003, ITE_PRE_ENT_004, ".
		  "ITE_COD_GRU    ,ITE_ITEM_ATIVO_ ,".
		  "GRU_DESCRI     , GRU_ACTSAB, GRU_ACTMEI ".
          "FROM cad_produto ".
          "LEFT JOIN        cad_grupo_produtos on ITE_COD_GRU = GRU_CODIGO ". 
          $sSQLParm;
		  //"ORDER BY GRU_DESCRI,ITE_DESCRIC;";
		
	   $RowsT = MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().'<br>'.$sSQLRequest);
	   $aCad_ProdutoC = ARRAY();
	   While ( $RowT = MYSQL_FETCH_ARRAY($RowsT) ) {
	       $aCad_ProdutoC[ $RowT['ITE_CODIGOI'] ] = $RowT;
	   }
		
		//
	   $sTxt_Rel .=
          //AlinhaStr($sEmpresaFan,1,80).$sPulaLinha.
		  //AlinhaStr("** RELATORIO SIMPLES DE CADASTRO DE PRODUTO **",1,80).$sPulaLinha.
          //AlinhaStr('Emissao.....: '.DATE('d/m/Y H:i:s'),0,40).
		  //AlinhaStr('Operador....: '.$R_CadFuncionario->FUN_NOMECP,2,40).$sPulaLinha.
		  AlinhaStr('Empresa.....: '.$Dados_Empresa['EMP_FANTAS'],0,80).$sPulaLinha.
		  AlinhaStr('Relatorio...: SIMPLES DE CADASTRO DE PRODUTO',0,80).$sPulaLinha.
		  AlinhaStr('Emissao.....: '.DATE('d/m/Y H:i:s'),0,40).
		  AlinhaStr('Operador....: '.$R_CadFuncionario->FUN_NOMECP,2,40).$sPulaLinha.
		  "";
	   //
	   
	   If ( $nFil_CodGru>0 ) {
	      $sTxt_Rel .= "Grupo.......: ".Str_Zero($nFil_CodGru,3).' - '.$aCad_PrGrupoC[$nFil_CodGru]['GRU_DESCRI'].$sPulaLinha;
	   }
	   		
	   $sTxt_Rel .= "Ordenacao...: ";
	   If ( $nFil_Ordena==0 ) {
	      $sTxt_Rel .= "Grupo + Descrição".$sPulaLinha;
	   } ElseIf ( $nFil_Ordena==1 ) {
	      $sTxt_Rel .= "Código Livre".$sPulaLinha;
	   }
	   //
	   
	                 
	   $sTxt_Rel .= "Opção.......: ";
	   If ( $nFil_Opcao==0 ) {
	      $sTxt_Rel .= "Sem Preço".$sPulaLinha;
	   } ElseIf ( $nFil_Opcao==1 ) {
	      $sTxt_Rel .= "Com Preço".$sPulaLinha;
	   }
	   //
	   
	   
	   //
	   $sTxt_Rel .=
		  STR_REPEAT("=", 80).$sPulaLinha.
		  "";
	   
		//
		// Ordenação dos produtos
		$aCad_Produtos = ARRAY();
	    $aCad_Produtos = $aCad_ProdutoC;
		//
		 
		$n_UltCodGru = 0;
		$n_Reg_Qtd=0;
		
		If ( $nFil_Opcao==0 ) { //Sem Preço
		   $sTxt_Rel .=
		      '| CODIGO     '.
			  '| DESCRICAO                                                     '.
			  '  |'.
			  $sPulaLinha.
		      STR_REPEAT("=", 80).$sPulaLinha.
			  ''.
			  '';
		} Else {
           $sTxt_Rel .=
		      '| CODIGO     '.
			  '| DESCRICAO                         | BALCAO  |  MESA   |  DISK '.
			  '  |'.
			  $sPulaLinha.
		      STR_REPEAT("=", 80).$sPulaLinha.
			  ''.
			  '';
		
		}			
		
		ForEach ( $aCad_Produtos as $nIte_Codigo => $aProduto ) {
	      
		   $bIncluiRel = (@$aCad_ProdutoC[$nIte_Codigo]['ITE_ITEM_ATIVO_']+0);
			
		   $bActVariosSabores = @$aProduto['GRU_ACTSAB']+0;
		   $bActPrMeia_Porcao = @$aProduto['GRU_ACTMEI']+0;
			
		   // Verifica se é do mesmo grupo especificado
		   If ( $bIncluiRel && $nFil_CodGru>0 ) {
			  $bIncluiRel = ($aProduto['ITE_COD_GRU']==$nFil_CodGru);
		   }
			//
		   If ($bIncluiRel) {
			 
			  If($aProduto['ITE_COD_GRU']<>$n_UltCodGru) {
				 $n_UltCodGru = $aProduto['ITE_COD_GRU'];
		         $sSQLQuery = "SELECT GRU_CODIGO,GRU_DESCRI, GRU_TRAREG FROM cad_grupo_produtos WHERE GRU_CODIGO=".$n_UltCodGru." AND GRU_TRAREG=0;";
		         $Row_CadGru = MYSQL_QUERY($sSQLQuery) or die(MYSQL_ERROR().'<br>'.$sSQLQuery);
                 $sExibGru = "** Todos **";
				 
			     If ( $Row_CadGru = MYSQL_FETCH_OBJECT($Row_CadGru) ) {
	       
					$sExibGru= Str_Zero($Row_CadGru->GRU_CODIGO,3).' - '.$Row_CadGru->GRU_DESCRI;
		         } Else {
	                $sExibGru = "** Grupo nao encontrado **";
				 }
			     
				 $sTxt_Rel .=
		           '| '.
				      AlinhaStr(STR_REPEAT(" ", 80),0,77).
				   '| '.
				      $sPulaLinha.
	               '| '.
				      AlinhaStr('Grupo....:'.$sExibGru,0,76).
				   ' |'.
				      $sPulaLinha.
                   '| '.
				      AlinhaStr(STR_REPEAT(" ", 80),0,77).
				   '| '.
				      $sPulaLinha.
			       "";
		      }
			  
			  
			  If ( $nFil_Opcao==0 ) { //Sem Preço 
			     $sTxt_Rel .=
			  	    '| '.
			  	    AlinhaStr( $aProduto['ITE_CODIGOL']     ,0 , 10).
			  	    ' | '.
			  	    AlinhaStr( $aProduto['ITE_DESCRIC']     ,0 , 60).
			  	    AlinhaStr( '' ,0 ,  3).
			  	    ' |'.
			  	    $sPulaLinha.
			  	    '';
			  	 
					
			  } Else {

                 $sTxt_Rel .=
			        '| '.
			        AlinhaStr( $aProduto['ITE_CODIGOL']     ,0 , 10).
			        ' | '.
			        
					( ($bActVariosSabores ) ||  ($bActPrMeia_Porcao ) ?
					   AlinhaStr( $aProduto['ITE_DESCRIC']     ,0 , 60).
					   AlinhaStr( '' ,0 ,  3).
			  	       ' |'.
			  	       $sPulaLinha
			  	   
					:
					   AlinhaStr( $aProduto['ITE_DESCRIC'] ,0 , 33).' | '
			        ).
					
					( $bActVariosSabores ?
					   '| '.
					   AlinhaStr( '' ,0 ,  36).
					   AlinhaStr( SQLVarConfig('DESCRI_PROPRECO1'),0 , 10).
					   ' | '.
					   AlinhaStr( FormatoMoeda($aProduto['ITE_PRE_BAL_001']) ,0 , 7).
					   ' | '.
					   AlinhaStr( FormatoMoeda($aProduto['ITE_PRE_MES_001']) ,0 , 7).
					   ' | '.
					   AlinhaStr( FormatoMoeda($aProduto['ITE_PRE_ENT_001']) ,0 , 7).
					   //AlinhaStr( '' ,0 ,  3).
			  	       ' |'.
			  	       $sPulaLinha.
					   //
					   '| '.
					   AlinhaStr( '' ,0 ,  36).
					   AlinhaStr(SQLVarConfig('DESCRI_PROPRECO2'),0 , 10).
					   ' | '.
					   AlinhaStr( FormatoMoeda($aProduto['ITE_PRE_BAL_002']) ,0 , 7).
					   ' | '.
					   AlinhaStr( FormatoMoeda($aProduto['ITE_PRE_MES_002']) ,0 , 7).
					   ' | '.
					   AlinhaStr( FormatoMoeda($aProduto['ITE_PRE_ENT_002']) ,0 , 7).
					   //AlinhaStr( '' ,0 ,  3).
			  	       ' |'.
			  	       $sPulaLinha.
					   //
					   '| '.
					   AlinhaStr( '' ,0 ,  36).
					   AlinhaStr(SQLVarConfig('DESCRI_PROPRECO3'),0 , 10).
					   ' | '.
					   AlinhaStr( FormatoMoeda($aProduto['ITE_PRE_BAL_003']) ,0 , 7).
					   ' | '.
					   AlinhaStr( FormatoMoeda($aProduto['ITE_PRE_MES_003']) ,0 , 7).
					   ' | '.
					   AlinhaStr( FormatoMoeda($aProduto['ITE_PRE_ENT_003']) ,0 , 7).
					   //AlinhaStr( '' ,0 ,  3).
			  	       ' |'.
			  	       $sPulaLinha.
					   //
					   '| '.
					   AlinhaStr( '' ,0 ,  36).
					   AlinhaStr(SQLVarConfig('DESCRI_PROPRECO4'),0 , 10).
					   ' | '.
					   AlinhaStr( FormatoMoeda($aProduto['ITE_PRE_BAL_004']) ,0 , 7).
					   ' | '.
					   AlinhaStr( FormatoMoeda($aProduto['ITE_PRE_MES_004']) ,0 , 7).
					   ' | '.
					   AlinhaStr( FormatoMoeda($aProduto['ITE_PRE_ENT_004']) ,0 , 7).
					   //AlinhaStr( '' ,0 ,  3).
			  	       ' |'.
			  	       $sPulaLinha
					   //
					   
					:
					   (  $bActPrMeia_Porcao ?
                             '| '.
					         AlinhaStr( '' ,0 ,  33).					      
						     ' | '.
						     AlinhaStr( SQLVarConfig('DESCRI_PROPRECON'),0,10 ).
						     ' | '.
					         AlinhaStr( FormatoMoeda($aProduto['ITE_PRE_BAL_NOR']),0 , 7).
							 ' | '.
					         AlinhaStr( FormatoMoeda($aProduto['ITE_PRE_MES_NOR']),0 , 7).
							 ' | '.
					         AlinhaStr( FormatoMoeda($aProduto['ITE_PRE_ENT_NOR']),0 , 7).
						     //AlinhaStr( '' ,0 ,  3).
			  	             ' |'.
			  	             $sPulaLinha.
					   	     '| '.
					         AlinhaStr( '' ,0 ,  33).					      
						     ' | '.
						     AlinhaStr(SQLVarConfig('DESCRI_PROPRECOM'),0,10 ).
							   ' | '.
					         AlinhaStr( FormatoMoeda($aProduto['ITE_PRE_BAL_MEI']),0 , 7).
							 ' | '.
					         AlinhaStr( FormatoMoeda($aProduto['ITE_PRE_MES_MEI']),0 , 7).
							 ' | '.
					         AlinhaStr( FormatoMoeda($aProduto['ITE_PRE_ENT_MEI']),0 , 7).
						     //AlinhaStr( '' ,0 ,  3).
			  	             ' |'.
			  	             $sPulaLinha
							 
						 
					   :
					  
					       AlinhaStr( FormatoMoeda($aProduto['ITE_PRE_BAL_NOR']) ,0 , 7).
					       ' | '.
					       AlinhaStr( FormatoMoeda($aProduto['ITE_PRE_MES_NOR']) ,0 , 7).
					       ' | '.
					       AlinhaStr( FormatoMoeda($aProduto['ITE_PRE_ENT_NOR']) ,0 , 7).
						   ' |'.
			               $sPulaLinha
						   
					   )	 
				      
					).
					'';
			  	 
			  }			  
			  $n_Reg_Qtd++;
				
				
			}
			
		}
		
      If ( $n_Reg_Qtd>0 ) {
         $sTxt_Rel .=
		       STR_REPEAT("-",80).$sPulaLinha.
             AlinhaStr('Registros impressos: '.Str_Zero($n_Reg_Qtd,6),0).$sPulaLinha.
		     $sPulaLinha.$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_RelLisR_Txt').innerHTML = ".JAVA_CharCode($sHTML_Rel).";".
            "".
            "";
	      //
	      $aSessao[$sNomeAcesso.'_S'] = $aV_Sessao;
      } Else {
	        $aV_Sessao['TXT_REL'] = '';
            $sRet_Javs .= 
		     "parent.sIdHasFocus='sl_RelLis_CodGru';".
             Info_Evento('Não há movimento para gerar este relatório.',0).
             "setTimeout( function () { ".
	            "parent.document.forms.fmPRelLis_P.acao.value='FECHAR'; ".
                "parent.document.forms.fmPRelLis_P.submit();".
			 "}, 500);".
			 "";
	   }
	 
    // 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").'_CON.TMP';
             $sIP_NomeArq = STR_REPLACE(".","_",ObterIPdoCliente());
             $sNomArqExpR = $sCfg_ClpExp2.$R_CadFuncionario->FUN_CODIGO.'_'.DATE("d-m-Y_h-i-s").'_CON_'.$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" ) {
	   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('sl_RelLis_CodGru').focus();".
		   "";
    //
    // Janela
	} Else {
	   $aV_Sessao = ARRAY();
	   $aV_Sessao['Fil_CodGru'] = (@$_POST['CodGru']+0);      // Codigo do grupo
	   $aV_Sessao['Fil_Ordena'] = (@$_POST['Ordena']+0);      // Ordena: 0=Descrição,   1=Saldo
	   $aV_Sessao['Fil_Opcao'] = (@$_POST['Opcao']+0);      // Ordena: 0=Sem Preço Com Preço
	   $aSessao[$sNomeAcesso.'_S'] = $aV_Sessao;
	   //
	   $oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."2.Teclas_F(this,event);";
	   //
       // Tela HTML
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
		  // Teclas
		  '<input id="in_RelLisV_Tecla" style="position:absolute; top:-600; left:-600; width:1px; height:1px;">'.
		  //
		  '<iframe name="VisLisS_Print"></iframe>'.
          '<form name="fmPRelLis_P" 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_RelLisR_Txt" style="width:100%; height:400px; 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">'.
           // HTML_Botao( 3, 'objRelLisR_BT_Abr',
			//                                 "parent.JanEspera(true, 'Imprimindo relatório... aguarde...');".
			//								 "setTimeout( function () { ".
		    //                                    "document.forms.fmPRelLis_P.acao.value='IMP'; ".
            //                                    "document.forms.fmPRelLis_P.submit();".
			//								 "}, 500);"
            //             , 'Atalho (F9)'   ,'images/btimg_imp.png',120).		    
		   '</td>'.
		   '<td align="left">'.
               HTML_Botao( 3, 'objRelLisR_BT_Pdf',  'Car_'.$sNomeAcesso.'2.processPrint();'
                            , 'Imprimir (F2)'   ,'images/btimg_imp.png',130).		    
		   '</td>'.
		   
           '<td align="right">'.
            HTML_Botao( 3, 'objRelLisR_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_RelLisR_Txt').innerHTML;".
            "var Quadro = parent.frames['VisLisS_Print'];".
            "Quadro.window.location='about:blank';". 
			"Quadro.document.write('<html><head><title>Lista Simples</title></head><body>');".
			"Quadro.document.write(sdivElements);".
			"Quadro.document.write('</body></html>');".
			"Quadro.window.print();".
	     "}".
		  "function Teclas_F( Objeto, Evento ) {".
             "vNumTecla = parent.Tecla_Apertada(Evento);".
             "if ( vNumTecla==120) { ".        //  ** [F9] **          // (Imprimir)
                 "setTimeout( parent.document.getElementById('objRelLisR_BT_Abr').onclick , 50);".
			 "} else if ( vNumTecla==113) { ".        //  ** [F2] **          // (PDF)
                 "setTimeout( parent.document.getElementById('objRelLisR_BT_Pdf').onclick , 50);".
		     "} else if ( vNumTecla==116) { ". //  ** [F5] **     Não atualizar
			     //
		     "} else if ( vNumTecla==27) { ".  //  ** [ESC] **         // (SAIR)
                 "setTimeout( parent.document.getElementById('objRelLisR_BT_Fch').onclick , 50);".
			 "} else {".
			     "return true;".
			 "}".
			 "return false;".
          '}'.
		  //
	      "";
       // Java posterior
       $sRet_JavsPos .=
	     "parent.document.getElementById('in_RelLisV_Tecla').focus(); ".
	     "setTimeout( function () { ".
	        "parent.document.forms.fmPRelLis_P.acao.value='MONTAR';".
            "parent.document.forms.fmPRelLis_P.submit();".
		 "} , 300); ".
         "";
	   //
	   //
	}
   //

//
//  ** TELA PRINCIPAL DE simples**
} 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 = 'Lista Simples de Produto';
	$oJanelaPrinc->aIdsObjList =
	      ARRAY(
		    //'sl_RelLis_TipLst',
		    //'sl_RelLis_CodFor',
		    'sl_RelLis_CodGru',
		    //'sl_RelLis_CodEmp',
			//'in_RelLis_Unidad',
			//'in_RelLis_NcmPro',
			//'sl_RelLis_SalTip',
		    'sl_RelLis_Ordena',
			'sl_RelLis_Opcao'
		    //'sl_RelLis_Situac'
		  );
    //    
	$sJavaTravarJ = "document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);";
 	$oJanelaPrinc->sJavOnClickF =
         $sJavaTravarJ.
		 "document.forms.fmPRelLis.acao.value='FECHAR'; ".
         "document.forms.fmPRelLis.submod.value=''; ".
         "document.forms.fmPRelLis.submit();";
    //
    // FECHAR
    If ( $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);";
	   //
	   // Combo de fornecedores
	   $sSQLRequest = 'SELECT FOR_CODIGO,FOR_FANTAS,FOR_ATIVO_,FOR_RAZAOS FROM cad_fornecedor WHERE FOR_ATIVO_ ORDER BY FOR_RAZAOS ASC;';
	   $RowsT = MYSQL_QUERY($sSQLRequest) or die(MYSQL_ERROR().'<br>'.$sSQLRequest);
	   $sLstForHtml = '<option value="0">** Todos os fornecedores **</option>';
	   While ( $RowT = MYSQL_FETCH_OBJECT($RowsT) ) {
	        $sLstForHtml .=
			  '<option value="'.$RowT->FOR_CODIGO.'">'.
			   Str_Zero($RowT->FOR_CODIGO,8).' - '.$RowT->FOR_FANTAS.
			  '</option>';
       }
	   //
	   // Combo de grupo de produtos
	   $sSQLRequest = 'SELECT GRU_CODIGO,GRU_TRAREG,GRU_DESCRI FROM cad_grupo_produtos WHERE GRU_TRAREG=0 ORDER BY GRU_DESCRI ASC;';
	   $RowsT = MYSQL_QUERY($sSQLRequest) or die(MYSQL_ERROR().'<br>'.$sSQLRequest);
	   $sLstGruHtml = '<option value="0">** Todos **</option>';
	   While ( $RowT = MYSQL_FETCH_OBJECT($RowsT) ) {
	        $sLstGruHtml .=
			  '<option value="'.$RowT->GRU_CODIGO.'">'.
			   Str_Zero($RowT->GRU_CODIGO,3).' - '.$RowT->GRU_DESCRI.
			  '</option>';
       }
	   //
	   // Combo de empresas
	   //$sSQLRequest = 'SELECT EMP_CODIGOI,EMP_RAZAOS FROM cad_empresa ORDER BY EMP_RAZAOS ASC;';
	   //$RowsT = MYSQL_QUERY($sSQLRequest) or die(MYSQL_ERROR().'<br>'.$sSQLRequest);
	   //$sLstEmpHtml = '';
	   //While ( $RowT = MYSQL_FETCH_OBJECT($RowsT) ) {
	   //     $sLstEmpHtml .=
		//	  '<option value="'.$RowT->EMP_CODIGOI.'" '.($RowT->EMP_CODIGOI==$aSessao['CODIGO_EMPRESA'] ? 'selected' : '').'>'.
		//	   Str_Zero($RowT->EMP_CODIGO+0,8).' - '.$RowT->EMP_RAZAOS.
		//	  '</option>';
      // }
	   //
       // Tela HTML
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
          '<form name="fmPRelLis" 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="100px" align="right">'.
             'Tipo de listagem:'.
            '</td>'.
            '<td align="left">'.
			 '<select id="sl_RelLis_TipLst" name="TipLst" style="width:360px; font-size:11px; font-family:Courier New,Courier,mono;">'.
			  '<option value="0">Contagem de estoque</option>'.
			 '</select>'.
            '</td>'.
            '<td width="4px" height="20px">&nbsp;</td>'.
		   '</tr>'.
			
		  '</table>'.*/
		  //'<table width="100%" border="0">'.
          // '<tr>'.
           // '<td width="4px" height="20px">&nbsp;</td>'.
            //'<td width="100px" align="right">'.
            // 'Fornecedor:'.
            //'</td>'.
            //'<td align="left">'.
			// '<select id="sl_RelLis_CodFor" name="CodFor" style="width:360px; font-size:11px; font-family:Courier New,Courier,mono;">'.
			//  $sLstForHtml.
			// '</select>'.
            //'</td>'.
            //'<td width="4px" height="20px">&nbsp;</td>'.
		   //'</tr>'.
		  //'</table>'.
		  '<table width="100%" border="0">'.
           '<tr>'.
            '<td width="4px" height="20px">&nbsp;</td>'.
            '<td width="100px" align="right">'.
             'Grupo de produtos:'.
            '</td>'.
            '<td align="left">'.
			 '<select id="sl_RelLis_CodGru" name="CodGru" style="width:360px; font-size:11px; font-family:Courier New,Courier,mono;">'.
			  $sLstGruHtml.
			 '</select>'.
            '</td>'.
            '<td width="4px" height="20px">&nbsp;</td>'.
		   '</tr>'.
		  '</table>'.
		  /*'<table width="100%" border="0">'.
           '<tr>'.
            '<td width="4px" height="20px">&nbsp;</td>'.
            '<td width="100px" align="right">'.
             'Loja:'.
            '</td>'.
            '<td align="left">'.
			 '<select id="sl_RelLis_CodEmp" name="CodEmp" style="width:360px; font-size:11px; font-family:Courier New,Courier,mono;">'.
			  $sLstEmpHtml.
			 '</select>'.
            '</td>'.
            '<td width="4px" height="20px">&nbsp;</td>'.
		   '</tr>'.
		  '</table>'.*/
		  
		  //'<table width="100%" border="0">'.
          // '<tr>'.
          //    '<td width="4px" height="20px">&nbsp;</td>'.
          //    '<td width="100px" align="right">'.
          //      'Unidade:'.
          //    '</td>'.
          //    '<td align="left" width="40px">'.
		//	       '<input id="in_RelLis_Unidad" name="Unidad" type="text" maxlength="2" value="" style="font-size:11px; width:30px;">'.
         //     '</td>'.
              
		//		  '<td width="172px" align="right">'.
        //       'NCM:'.
        //      '</td>'.
        //    '<td align="left">'.
	//		      '<input id="in_RelLis_NcmPro" name="NcmPro" type="text" maxlength="10" value="" style="font-size:11px; width:70px;">'.
	//			'</td>'.
     //       '<td width="4px" height="20px">&nbsp;</td>'.
//		   '</tr>'.
	//	  '</table>'.
		  
		  '<table width="100%" border="0">'.
             '<tr>'.
                '<td width="4px" height="20px">&nbsp;</td>'.
                '<td width="70px" align="right">'.
                   'Ordenação:'.
                '</td>'.
                '<td align="left" width="300px;">'.
			       '<select id="sl_RelLis_Ordena" name="Ordena" style="width:140px; font-size:11px; font-family:Courier New,Courier,mono;">'.
			          '<option value="0">Grupo+Descrição</option>'.
			          '<option value="1">Código Livre</option>'.
			       '</select>'.
                '</td>'.
                '<td width="4px" height="20px">&nbsp;</td>'.
		     '</tr>'.
		  '</table>'.
    	  '<table width="100%" border="0">'.	  
			 '<tr>'.
			    '<td width="4px" height="20px">&nbsp;</td>'.
			    '<td width="70px" align="right">'.
                   'Opção:'.
                '</td>'.
                '<td align="left" width="300px;">'.
			        '<select id="sl_RelLis_Opcao" name="Opcao" style="width:140px; font-size:11px; font-family:Courier New,Courier,mono;">'.
			           '<option value="0">Sem preço</option>'.
			           '<option value="1">Com preço</option>'.
				   '</select>'.
                '</td>'.
				'<td width="4px" height="20px">&nbsp;</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, 'objRelLis_BT_Abr',
			                                 "var vff = document.forms.fmPRelLis;".
		                                     "vff.acao.value=''; ".
                                             "vff.submod.value='RELATORIO'; ".
                                             "vff.submit();".
											 $sJavaTravarJ
                         , 'Visualizar (F8)' ,'images/btimg_docs.png',120).		    
		   '</td>'.
           
		   
		   
		   '<td align="right">'.
            HTML_Botao( 3, 'objRelLis_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); ".
           "if ( vNumTecla==119) { ".         // ** [F8] **
               "if (parent.document.getElementById('objRelLis_BT_Abr').style.display!='none') {".           // (Visualizar)
                  "parent.".$sJava_Desfoca_Input.
                  "setTimeout( parent.document.getElementById('objRelLis_BT_Abr').onclick , 10);".
         	  "}".
		   "} else if ( vNumTecla==116) { ".  // ** [F5] **     Não atualizar
               //
           "} else if ( vNumTecla==27 ) { ".  // [ESC]
               "parent.".$sJava_Desfoca_Input.
               "setTimeout( parent.document.getElementById('objRelLis_BT_Fch').onclick , 10);".
		   "} else {".
		     "return true;".
		   "} ".
	       "return false;".
		 '}'.
	     "";
       // Java posterior
       $sRet_JavsPos .=
	     "parent.document.getElementById('sl_RelLis_CodGru').focus();".
         "";
	}
}

?>