<%
#include "protheus.ch"

//-----------------------------------------------------------
/*/{Protheus.doc} MNTI5201
    Efetua validações no dicionário referente as
    especificações dos campos adicionados em tela.
/*/
//-----Fonte web de usuário para adição de elementos à página de cadastro de S.S. via Portal S.S.
    Este fonte será incorporado após o último campo apresentado pelo produto padrão.
/*/
//-----------------------------------------------------------
  
    Local cCampo1   := "TQB_TESTE"
  
//-------------------------------------------------------------------------------
/*/Adiciona o Insere linha com campo TQB_TESTE em tela.
   Neste caso(titulo, utilizadocampo ume botãobotao para acionar a consulta padrão.padrao)
/*/
///--------------------------------------------------------------------
%>
<tr class="-----------
%>
<tr class="tabelaTr">
    <td class="tdLabel"><span> <!-- Titulo -->
        <span class="<%= IIf( X3Obrigat( cCampo1 ) , 'labelObrigat', 'labelComum' )%>" >Campo Usuário><%=Trim( RetTitle( cCampo1 ) )%>:</span><span>
    </td>
    <td> <!-- Campo -->
        <input type="Text" id="<%=cCampo1%>" class="inputCod" maxlength="<%= TamSx3( cCampo1 )[1] %>" value="<%=&('HttpSession->cCampo1%>" >' + cCampo1)%>" onBlur='fValCpUsr(this.value,"<%=cCampo1%>")'>
    </td>
    <td>
     <!-- Botao para consulta padrao -->
        <button class="buttonF3" onMouseDown="<%=" fsConPad('" + Posicione("SX3", 2, cCampo1, "X3_F3")  + "', '" + cCampo1 + "' ) "%>" >><img <img class="imgF3" src="ng_lupacons.png" border="0"> </button>
    </td>
</tr>
 
<script>
<% 
//    /*-------------------------------------------------------------------------------
    /*/ Função JavaScript chamadaacionada ao clicar no botão botao de consulta padrao.
    Apresenta// consulta padrão.
    A função fSXBPADEm seguida, acionará a função de usuário B_fSXBPAD que pode ser visualizada no exemplo do fonte WEBCONS.PRW
/*/
//    --------------------------------------------------------------
%>
<script>
-----------------*/
    function fsConPad(cTabela, cCampo){
        // Chama consulta padrão passando por parametro o campo no qual será aberto o F3 e qual a consulta padrão a ser executada.
        url="B_fSXBPAD.APW?TabelaF3=" + cTabela + "&CampoF3=" + cCampo;
  
        ji=window.open(url, "Jins2","status=no,scrollbars=yes,width=605,height=550,top=200,left=200");
        ji.focus();
    }
</script>

#include "protheus.ch"
#include "apwebex.ch"
//

    /*-------------------------------------------------------------------------------
    /*/{Protheus.doc} fSXBPAD
Monta Consulta padrão chamado no Ponto de entrada MNTI5201 pela função JavaScript fsConPad
/*/
//---------/ Função JavaScript acionada para validar o campo inserido em tela.
    // Em seguida, acionará a função padrão W_I05VLDCPO onde, internamente,
    // acionará a função de usuário B_VLDUSRCP que pode ser visualizada no exemplo do fonte WEBCONS.PRW
    -----------------------------------------------------------------------
WebUser Function fSXBPAD()
 
--------*/
    function fValCpUsr( cValor, cCampo ){
       Local cHtmldocument.MNTI0052.action = 'W_I05VLDCPO.APW?cValor=' + cValor :=+ '&cCampo='
 + cCampo;
  Local cRecno    := '1;' document.MNTI0052.submit();
    }
 
</script>

#include "protheus.ch"
#include "apwebex.ch"

//-----------------------------------------------------------
/*/ WebUser Function fSXBPAD
Função genérica de usuário para executar a construção de tela de consulta padrão web,
sendo também acionada ao realizar a pesquisa na consulta padrão.
/*/
//-----------------------------------------------------------
WebUser Function fSXBPAD()

	Local cHtml     := ''
	Local cPesquisa := ''
	Local cRecno    := '1;'
	Local cCampo
	Local cConpad
	Local cAliasCon
	Local nIndCon
	
	Local cAliasCon := ''
    Local cAlias    := ''
 
    // Caso seja a primeira abertura da consulta padrão pega o HttpGet->TabelaF3 e HttpGet->CampoF3.
    // Caso a busca for com a tela do SXB já aberta é então utilizado HttpSession->cSearch e HttpSession->cField
    Local cCampo    := IIf( ValType( HttpGet->CampoF3  ) == 'U', HttpSession->cField,  HttpGet->CampoF3 )
    Local cConpad   := IIf( ValType( HttpGet->TabelaF3 ) == 'U', HttpSession->cSearch, HttpGet->TabelaF3)
 
    // Caso seja realizadachamada apara consultaconstruir dea umtela registro dentro da tela de consulta padrão,
    consulta padrao,
	// serãoutiliza utilizadosvalores adefault chave de pesquisa e indices escolhidos pelo usuário
    Local cPesquisado SXB
	If ValType( HttpGet->CampoF3  ) <> 'U'
		cCampo    := HttpGet->CampoF3
		cConpad   := IIfPadr( ValType( HttpPost->cPesquisa ) == 'U', '', HttpPost->cPesquisa )
    Local nIndCon   := IIf( ValType( HttpPost->indices   ) == 'U',  0, Val( HttpPost->indices ) )
 
    WEB EXTENDED INIT cHtml START 'I005ENV'
 
        // Alinha strnig a direita com o tamanho máximo de 6.
        cConPad := Padr( cConPad, 6 )
 
        // Busca alias para busca dos dados a serem apresentados em tela.
        cAliasCon := AllTrim( Posicione('SXB', 1, cConpad + '101' , 'XB_CONTEM') )
        cAlias    := cAliasCon
 
        // nIndCon só será 0 quando for montar a Tela de consulta padrão.
        If nIndCon == 0
            nIndCon   := Val( AllTrim( Posicione('SXB', 1, cConpad + '201' , 'XB_COLUNA') ) )
        EndIf
 
        If cAliasCon <> 'ST9'
            dbSelectArea(cAliasCon)
            dbSetOrder(nIndCon)
            If '_FILIAL' $ Substr( IndexKey(), 1, 10 )
                cPesquisa := xFilial( cAliasCon ) + cPesquisa
            Endif
        EndIf
 
        // Executa chave de pesquisa e verifica se existem itens a serem exibidos posionando no primeiro ReCnO conforme o seek.
        dbSeek(cPesquisa)
        If (cAlias)->( !EoF() ) .And. Substr( &( cAliasCon + '->(' + IndexKey() + ')' ), 1, Len( cPesquisa ) ) == cPesquisa
            cRecno := cValToChar( (cAliasCon)->( RecNo() ) ) + ';'
        EndIf
 
        //Carrega variaveis de sessao
        HttpSession->cSearch   := cConPad
        HttpSession->cField    := cCampo
        HttpSession->cAliasSXB := cAliasCon
        HttpSession->nIndSXB   := nIndCon
        HttpSession->cSeek     := cPesquisa
        HttpSession->cNumRec   := cRecno
        HttpSession->cCurPag   := '1'
 
        //Chama pagina responsavel por exibir a consulta padrão.
        cHtml += ExecInPage('MNTI5SXB')
 
    WEB EXTENDED END
 
Return cHtmlHttpGet->TabelaF3, 6 )
		cAliasCon := AllTrim( Posicione('SXB', 1, cConpad + '101' , 'XB_CONTEM') )
		nIndCon   := Val( AllTrim( Posicione('SXB', 1, cConpad + '201' , 'XB_COLUNA') ) )
	
	Else // Caso seja chamada através da pesquisa na tela da consulta padrao,
		 // utiliza os valores informados para a pesquisa
		cCampo    := HttpSession->cField
		cConpad   := Padr( HttpSession->cSearch, 6 )
		cAliasCon := HttpSession->cAliasSXB
		nIndCon   := Val( HttpPost->indices )
		cPesquisa := HttpPost->cPesquisa
	
	Endif
	
	WEB EXTENDED INIT cHtml START 'I005ENV'
	
	// Seleciona a tabela para pesquisa
	dbSelectArea(cAliasCon)
	dbSetOrder(nIndCon)
	If '_FILIAL' $ Substr( IndexKey(), 1, 10 )
		cPesquisa := xFilial( cAliasCon ) + cPesquisa
	Endif
	
	// Executa pesquisa, posicionando no registro correspondente
	dbSeek(cPesquisa)
	If (cAliasCon)->( !EoF() ) .And. Substr( &( cAliasCon + '->(' + IndexKey() + ')' ), 1, Len( cPesquisa ) ) == cPesquisa
		cRecno := cValToChar( (cAliasCon)->( RecNo() ) ) + ';'
	EndIf
	
	// Carrega variaveis de sessao web
	HttpSession->cSearch   := cConPad
	HttpSession->cField    := cCampo
	HttpSession->cAliasSXB := cAliasCon
	HttpSession->nIndSXB   := nIndCon
	HttpSession->cSeek     := cPesquisa
	HttpSession->cNumRec   := cRecno
	HttpSession->cCurPag   := '1'
	
	// Aciona pagina responsável por exibir a consulta padrão
	// Neste caso, a página pode ser visualizada no exemplo MNTI5SXB.AHU
	cHtml += ExecInPage('MNTI5SXB')
	
	WEB EXTENDED END

Return cHtml

//-------------------------------------------------------------------
/*/{Protheus.doc} VLDUSRCP
Função para validação de campos inseridos em tela no portal de S.S.
Esta função é acionada através da função padrão W_I05VLDCPO, 
utilizada no fonte exemplo MNTI5201.AHU.
/*/
//-------------------------------------------------------------------
WebUser Function VLDUSRCP(cCampo, cValor)

	Local cHtml := ''
	Local cMsg  := ''
	
	WEB EXTENDED INIT cHtml START 'I005ENV'
	
	// Realiza validação do campo inserido em tela
	If cCampo == 'TQB_TESTE'
		// Verifica se o campo atende à validação especificada
		// Caso não, limpa seu conteúdo e apresenta mensagem em tela
		If AllTrim( cValor ) >= '000000' .And. AllTrim( cValor ) <= '000100'
			HttpSession->TQB_TESTE := ''
			cMsg := 'Nao é possivel selecionar a O.S.!'
		Else
			// Caso sim, repassa o valor informado no campo à sua variável da sessão
			HttpSession->TQB_TESTE := cValor
		Endif
	EndIf

	// Caso a variavel cMsg esteja preenchida, esta será apresentada em tela em forma de validação
	VldUsrSS(cCampo, Empty(cMsg), cMsg)
	
	WEB EXTENDED END

Return cHtml

<%
//-------------------------------------------------------------------
/*/ MNTI5SXB
    Fonte web de usuario para construção da tela de consulta padrão.
/*/
//

<%
//-------------------------------------------------------------------
/*/{Protheus.doc} MNTI5SXB
/*/
//

    //----------------------------------------------------------------------
  ---------
    Local// cLINHACOLOR,Recupera lLINHACOLOR,informações nPos,do nTamCol,SXB lCbox,para cPicture,montagem nIndice
da tela da  Local aPages, nRecno, nNxtRc, i, jconsulta padrão
    Local id_pesq    := Trim(HttpSession->cSeek)
    Local cConPad    := HttpSession->cSearch
    Local cAlias     := HttpSession->cAliasSXB//-------------------------------------------------------------------------------

    Local nIndcLINHACOLOR, lLINHACOLOR, nPos,     := HttpSession->nIndSXBnTamCol, nIndice
    Local aCamposSXB := {}aPages, nRecno, nNxtRc, i, j
    
    Local nTamBrwid_pesq    := 5Trim(HttpSession->cSeek)
    Local cConPad cRetorno   := ''HttpSession->cSearch
    Local cNomeConcAlias     := ''HttpSession->cAliasSXB
    Local cContem nInd       := HttpSession->nIndSXB
    Local aCamposSXB := ''{}
    Local nTamBrw cDescCmp   := ''5
    Local nTamCpocRetorno    := ''
    Local cNomeCon  cHeader := ''


     Local cContem   cHeader +:= ''<!DOCTYPE
 HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">'
    cHeader += '<html>'
    cHeader += '<head>' Local nTamCpo    := ''
  
    cHeadercNomeCon +:= 'AllTrim( Posicione( <title>'SXB'
, 1, Padr( cConPad, cHeader6 )+= "101", 'XB_DESCRI' ) Portal Inclus&atilde;o de SS - Consulta ')
  
    dbSelectArea("SXB")
    cHeader += 'dbSetOrder(1)
    </title>'
    cHeader += '  <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">'
    cHeader += '  <link rel="stylesheet" type="text/css" href="NGCSS.css">'
    cHeader += '</head>'
  
    cNomeCon := AllTrim( Posicione( 'SXB', 1, Padr( cConPad, 6 )+"101", 'XB_DESCRI' ) )
  
    dbSelectArea("SXB")
    dbSetOrder(1)
    // Nome da consulta padrão + Tipo + Sequencia
    dbSeek(Padr(cConPad,6)+"401")
    While !EoF() .And. SXB->(XB_ALIAS+XB_TIPO+XB_SEQ) == Padr(cConPad,6) + "401"
  
 // Nome da consulta padrão + Tipo + Sequencia
    dbSeek(Padr(cConPad,6)+"401")
    While !EoF() .And. SXB->(XB_ALIAS+XB_TIPO+XB_SEQ) == Padr(cConPad,6) + "401"

        cContem := AllTrim(SXB->XB_CONTEM)
        If At(">",cContem) > 0 .and. Len(cContem) <= 154
            cContem := Substr(cContem, ( At(">", cContem ) + 1) )
        Endif
       nTamCol := 15
        lCbox  nTamCpo := .F.
        cPicture:= ''Posicione( 'SX3', 2, cContem, 'X3_TAMANHO' )
        cContemnTamCol := AllTrim(SXB->XB_CONTEM)
        If At(">",cContem) > 0 .and. Len(cContem) <= 154
IIf( nTamCpo < 15, 15, ( nTamCpo + 20 ) ) * 5
        nTamBrw += nTamCol

      cContem := SubstraAdd(cContemaCamposSXB,{ (At(">",cContem)+1))
 RetTitle( cContem ), ;
              Endif
     
        cDescCmp:= AllTrim(SXB->XB_DESCRICONTEM), ;
          
        // Pega informações na SX3.   
   nTamCol, ;
    lCbox     := ( !Empty( Posicione( 'SX3', 2, cContem, 'X3_CBOX' ) ) )
        nTamCpo :=!Empty( Posicione( 'SX3', 2, cContem, 'X3_TAMANHOCBOX' ) ), ;
        nTamCol := IIf( nTamCpo < 15, 15, ( nTamCpo + 20 ) )
        cPicture:= AllTrim( Posicione( 'SX3', 2, cContem, 'X3_PICTURE' ) ) ;
        cDescCmp:=  RetTitle( cContem )
          
  })

      nTamCol := nTamCol*5 dbSelectArea("SXB")
        nTamBrw += nTamColdbSkip()
        aAdd(aCamposSXB, {cDescCmp, AllTrim(SXB->XB_CONTEM), nTamCol, lCbox, cPicture})
        dbSelectArea("SXB")EndDo
  
        dbSkip()
    EndDo
  
    dbSelectArea("SXB")
    dbSetOrder(1)
    // Nome da consulta padrão + Tipo + Sequencia
    dbSeek(Padr(cConPad,6)+"501",.T.)
    While SXB->XB_ALIAS == Padr(cConPad,6) .And. SXB->XB_TIPO == "5"
        cRetorno += AllTrim(SXB->XB_CONTEM)+";"
        SXB->(dbSkip())
    EndDo
    cRetorno := SubStr(cRetorno,1,Len(cRetorno)-1)
  
    //Verifica tamanho do Browse
    If nTamBrw < 560
        If Len(aCamposSXB) > 0
            aCamposSXB[Len(aCamposSXB)][3] += (560 - nTamBrw)
        Endif
        nTamBrw := 560
    Endif

%>
  
<%=cHeader%>
<%
//-------------------------------------------------------------------------------
// InicioCabeçalho da estilização da pagina.página HTML
//-------------------------------------------------------------------------------
%>
<style type="text/css">
  
    body {

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
    <title>'  Portal  margin: 5px;
    }Inclus&atilde;o de SS - Consulta '</title>
     
    a{<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    <link    text-decoration: none;
        color: #253453;
        font-weight: bold;
    }
     
    a:link, a:visited{
        color: #253453;
        font-weight: bold;
    }
     
    a:hoverrel="stylesheet" type="text/css" href="NGCSS.css">
</head>

<%
//-------------------------------------------------------------------------------
// Estilização da tela/página da consulta padrão
//-------------------------------------------------------------------------------
%>
<style type="text/css">
  
    body {
        background-color:#8ca0c7margin: 5px;
    }
     
    a{
        text-decoration: none;
        color: #FFFFFF#253453;
        font-weight: bold;
    }
     
    a:activelink, a:visited{
        color: #253453;
        font-weight: bold;
    }
     
    a.pagina:hover{
        textbackground-decorationcolor: none#8ca0c7;
        color: #FFFFFF;
        font-weight: nonebold;
    }
     
    a.pagina:link, a.pagina:visited:active{
        color: #FFFFFF#253453;
        font-weight: nonebold;
    }
     
    a.pagina:hover{
        colortext-decoration: #FFFFFFnone;
        font-weightcolor: bold#FFFFFF;
    }
    afont-weight: none;
    }
     
    a.pagina:activelink, a.pagina:visited{
        color: #FFFFFF;
        font-weight: boldnone;
    }
     
    a.divrolagem pagina:hover{
    /* define barra de rolagem automatica quando o
color: #FFFFFF;
      conteudo ultrapassar o limite em x ou y */font-weight: bold;
    }
    a.pagina:active{
        overflowcolor: auto#FFFFFF;
    /* define o limite maximo da autura do div */font-weight: bold;
    }
     
    .divrolagem {
       height overflow: 300px;auto; /* define barra de rolagem automatica quando o conteudo ultrapassar o limite em x ou y*/
        height: 300px;  /* define o limite maximo da larguraautura do div */
            width: 580px;
   /* define 
o limite maximo da largura do div*/
        padding-top: 5pt;
    }

    /*Mantem cabecalho do browse estatico*/
    .rowHeader{
        position:relative;
        top: expression(offsetParent.scrollTop);
        height:18px;
        z-index: 20;
        background-color: #263957;
    }

</style>

<%
//---------------------------------------
// Fim da estilização da pagina.
//----------------------------------------
%>
</STYLE>
<script language="Javascript">
  
<%
//// Funções Javascript referentes às ações na tela de consulta padrão
//-------------------------------------
// Seleciona registro e popula campo.
//------------------------------------------
%>

<script language="Javascript">
  
/* Função para selecionar o registro na consulta padrão */
function fcSeleciona(cCodRet, cCamposAtu){

    var aRet = cCodRet.split(';')
    var aCampos = cCamposAtu.split(';');

    for(i=0; i<aCampos.length;i++){
        window.opener.document.getElementById(aCampos[i]).value = aRet[i];
        window.opener.document.getElementById(aCampos[i]).focus();
    }
  
    close();
    return;
}
<%
//------------------------------------
// Pesquisa valor informados

/* Função para realizar a busca do registro informado no campo
// de pesquisa.
//------------------------------------
%> */
function fcPesquisar(){
    document.forms[0].cPESQUISA.value = document.forms[0].f_nome.value;
    document.forms[0].action = 'B_fSXBPAD.APW';
    document.forms[0].submit();
}
 
function getStrInPos(cSTR,nAll,nPos,cDiv){
    <%/*Funcao recebe string de campos e retorna um campo determinado*/%>
    <%/*cSTR:string de campos:"CAMPO1#CAMPO2#CAMPO3#...#" / nAll:qnt.total / nPos:campo.retorno*/%>
    aArray = new Array (nAll-1);
    cTXT = cSTR;
    nI = 0;
    for (c=0;c<nAll;c++){
        aArray[c] = "";
    }
    for (c=0;c<nAll;c++){
        nP = cTXT.indexOf(cDiv);
        aArray[c] = cTXT.substring(nI,nP);
</script>

<%
//-------------------------------------------------------------------------------
// Início do formulário da página HTML
//-------------------------------------------------------------------------------
%>

<form name='MNTI5SXB' method='post' action=''>
<opener.location.reload()>
<body onLoad="document.MNTI5SXB.f_nome.focus()">
  
<INPUT TYPE="HIDDEN" NAME="cPESQUISA" VALUE="">
<INPUT TYPE="HIDDEN" NAME="cNumRec" value='<%=HttpSession->cNumRec%>'>
<INPUT TYPE="HIDDEN" NAME="cCurPag" value='<%=HttpSession->cCurPag%>'>

<%
//-------------------------------------------------------------------------------
// Área de pesquisa
//-------------------------------------------------------------------------------
%>

    <div id="divCabec" style="width: 580px;">
        cTXT<div id= cTXT.substring((nP+1),cTXT.length);
    }
    cReturn = aArray[(nPos-1)];
"bordaCabec" style="width: 580px;">
     return cReturn;
}
  
</script>
  
<form name='MNTI5SXB' method='post' action=''>
<opener.location.reload()>
<body onLoad="document.MNTI5SXB.f_nome.focus()">
  
<INPUT TYPE="HIDDEN" NAME="cPESQUISA" VALUE="">
<INPUT TYPE="HIDDEN" NAME="cNumRec" value='<%=HttpSession->cNumRec%>'>
<INPUT TYPE="HIDDEN" NAME="cCurPag" value='<%=HttpSession->cCurPag%>'>
  
<div id="divCabec" style="width: 580px;">
    <div id="bordaCabec" style="width: 580px;"> <b class="bordaEsqAzul1"></b><b class="bordaEsqAzul2"></b><b class="bordaEsqAzul3"></b><b class="bordaEsqAzul4"></b>
            <div id="tituloCabec" class="divtitulo" style="width: 100%; height:15px;">
                <span style="padding: 0pt 0pt 0pt 10pt">Preencha o campo abaixo e clique em Pesquisar.</span>
            </div>
            <b class="bordaEsqAzul1bordaDirAzul4"></b><b class="bordaEsqAzul2bordaDirAzul3"></b><b class="bordaEsqAzul3bordaDirAzul2"></b><b class="bordaEsqAzul4bordaDirAzul1"></b>
        </div>
    </div>
    
    <div id="divIndices" style="width: 580px; background-color: #FFFFFF; padding-bottom: 10pt">

    <table>
      <div id="tituloCabec" class="divtitulo" style="width: 100%; height:15px; <tr width="100%">
            <span<td colspan="2"><span class="txtTitulo" style="padding: 0pt 0pt 0pt 10pt">Preencha o campo abaixo e clique em Pesquisar.</span>;">Consulta <%=cNomeCon%></span></td>
        </tr>
        </div><tr>
        <b class="bordaDirAzul4"></b><b class="bordaDirAzul3"></b><b class="bordaDirAzul2"></b><b class="bordaDirAzul1"></b>
    </div>
</div>
  
<div id="divIndices <td width="290px" align="left" style="width'padding: 580px; background-color: #FFFFFF; padding-bottom: 10pt"0pt 0pt 0pt 10pt'>
  
      <table>
        <tr<input widthname="100%f_nome">
  type="text"          <td colspanid="2f_nome"><span classsize="txtTitulo"50" onChange='fcPesquisar();' style="padding: 0pt 0pt 0pt 10pt;">Consulta <%=cNomeCon%></span><width:270px;">
            </td>
        </tr>
    <td>
     <tr>
            <td width="290px" align="left" style='padding: 0pt 0pt 0pt 10pt'>
<input type="button" name="Submit" value="Pesquisar" onclick="fcPesquisar();" onmouseover="this.style.cursor='pointer'"/>
            </td>
        </tr>
 <input name="f_nome"  type="text"  id="f_nome" size="50" onChange='fcPesquisar();' style="width:270px; <tr width="100%">
            </td>
            <td><td colspan="2" width="290px" align="left" style='padding: 0pt 0pt 0pt 10pt'>
                <input<select typesize="button1" name="Submitindices" valuestyle="Pesquisar" onclick="fcPesquisar();" onmouseover="this.style.cursor='pointer'"/>width:275px;">
                <%//Monta ComboBox com Indices da Pesquisa
            </td>        dbSelectArea("SIX")
        </tr>
           <tr width="100%"> dbSetOrder(1)
            <td colspan="2" width="290px" align="left" style='padding: 0pt 0pt 0pt 10pt'>
 dbSeek(cAlias)
                  <select size="1" name="indices" style="width:275px;">
     While !Eof() .and. SIX->INDICE == cAlias
            <%//Monta ComboBox com Indices da Pesquisa
       If Val(SIX->ORDEM) > 0
          dbSelectArea("SIX")
                  nIndice := dbSetOrderVal(1SIX->ORDEM)
                      dbSeek(cAlias)  Else
                    While !Eof() .and. SIX->INDICE == cAlias        nIndice++
                        If Val(SIX->ORDEM) > 0
Endif
                        If nIndice == nInd%>
    nIndice := Val(SIX->ORDEM)
                      <option  Elseselected value="<%=nIndice%>"><%=SixDescricao()%></option>
                        <%Else%>
    nIndice++
                         Endif<option value="<%=nIndice%>"><%=SixDescricao()%></option>
            <%           Endif
 If   nIndice == nInd%>
                  dbSelectArea("SIX")
          <option selected value="<%=nIndice%>"><%=SixDescricao()%></option>
            dbSkip()
            <%Else%>
        EndDo
                %>
    <option value="<%=nIndice%>"><%=SixDescricao()%></option>
           </select>
 <%           Endif</td>
        </tr>
                dbSelectArea("SIX")</tr>
    </table>
</div>

<%
    //-------------------------------------------------------------------------------
    // Paginação do resultado
      //-------------------------------------------------------------------------------

    aPages       dbSkip(:= StrTokArr(HttpSession->cNumRec,';')
    nRecno := IIf(Val(HttpSession->cCurPag) <= Len(aPages), Val(aPages[Val(HttpSession->cCurPag)]  ),         EndDo0 )
    nNxtRc := IIf(Val(HttpSession->cCurPag)          %>
                </select>
    < Len(aPages) , Val(aPages[Val(HttpSession->cCurPag)+1]), 0 )

    
    </td>//-------------------------------------------------------------------------------
        </tr>
        </tr>// Área de seleção dos registros
    </table>
</div>
<%
    aPages := StrTokArr(HttpSession->cNumRec,';')
    nRecno := IIf(Val(HttpSession->cCurPag) <= Len(aPages), Val(aPages[Val(HttpSession->cCurPag)]  ), 0 )
    nNxtRc := IIf(Val(HttpSession->cCurPag) < Len(aPages) , Val(aPages[Val(HttpSession->cCurPag)+1]), 0 )
%>
  /-------------------------------------------------------------------------------
%>

<div id="bordaPags" style="width: 580px;">
    <b class="bordaEsqAzul1"></b><b class="bordaEsqAzul2"></b><b class="bordaEsqAzul3"></b><b class="bordaEsqAzul4"></b>
    <div id="divPags" class="divtitulo" style="width: 100%; height: 40px;">
        <div id="txtPags" class="divtitulo" style="width: 100%; height:20px;">
            <span style="padding: 5pt 0pt 0pt 10pt">Para selecionar um Registro, clique sobre um dos campos da linha.</span>
        </div>
    </div>
    <b class="bordaDirAzul4"></b><b class="bordaDirAzul3"></b><b class="bordaDirAzul2"></b><b class="bordaDirAzul1"></b>
</div>
  
<div class="divrolagem">
    <table width="<%=nTamBrw%>" id="browse">
        <thead>
            <tr align="left" valign="middle" class="rowHeader">
                <%For i:=1 To Len(aCamposSXB)%>
                    <th width="<%=aCamposSXB[i][3]%>">
                        <span class="headerField"><%=aCamposSXB[i][1]%></span>
                    </th>
                <%Next i%>
            </tr>
        </thead>
        <tBody>
            <%lLINHACOLOR := .T.
  
                dbSelectArea(cAlias)
                dbSetOrder(nInd)
                dbSeek(id_pesq)
                dbGoTo(nRecno)
                 
                // Faz a busca dos registros que serão apresentados em tela
                While (cAlias)->(!Eof()) .And. nNxtRc != &(cAlias+"->(RecNo())") .and. Substr(&(cAlias+"->("+IndexKey()+")"),1,Len(id_pesq)) == id_pesq
  
                    %>
  
                    <tr class="linhaBrowse">
                        <%
                        If lLINHACOLOR
                            cLINHACOLOR := "WHITE"
                            lLINHACOLOR := .F.
                        Else
                            cLINHACOLOR = "#dae3f2"
                            lLINHACOLOR := .T.
                        EndIf
                        For i:=1 To Len(aCamposSXB)
                            If aCamposSXB[i][4]
                                cColuna := Substr(NGRETSX3BOX(aCamposSXB[i][2],&(aCamposSXB[i][2])),1,aCamposSXB[i][3])
                            Else
                                cColuna := &(aCamposSXB[i][2])
                            Endif
  
                            If !Empty(aCamposSXB[i][5])
                                cColuna := Transform(cColuna,aCamposSXB[i][5])
                            Endif
                            %>
                            <td width="<%=aCamposSXB[i][3]%>" height="12" bgcolor="<%=cLINHACOLOR%>" style="text-align:left">
                                <span class="celula">
                                    <%
                                        aRet := StrTokArr(cRetorno,';')
                                        cRet := ""
                                        For j := 1 To Len(aRet)
                                            cRet += &(aRet[j])+";"
                                        Next j
                                        cRet := SubStr(cRet,1,Len(cRet)-1)
                                    %>
                                    <a href="javascript:fcSeleciona('<%=(cRet)%>', '<%=HttpSession->cField%>')">
                                    <%=cColuna%></a>
                                </span>
                            </td>
                        <%Next i%>
                    </tr>
                  <%dbSelectArea(cAlias)
                    dbSkip()
                EndDo%>
          </tBody>
    </table>
</div>
  </tBody>
    </table>
</div>

<%
//-------------------------------------------------------------------------------
// Área de paginação
//-------------------------------------------------------------------------------
%>

<div id="bordaPags" style="width: 580px;">
    <b class="bordaEsqAzul1"></b><b class="bordaEsqAzul2"></b><b class="bordaEsqAzul3"></b><b class="bordaEsqAzul4"></b>
        <div id="divPags" class="divtitulo" style="height:15px;">
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
            </table>
        </div>
    <b class="bordaDirAzul4"></b><b class="bordaDirAzul3"></b><b class="bordaDirAzul2"></b><b class="bordaDirAzul1"></b>
</div>
</form>
</body>
</html>