Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Possibilita inclusão de campos no portal de

Permite a adição de elementos na tela de cadastro de Solicitação de Serviço no Portal SS

Informações
titleAtenção!
  • Este ponto de entrada está disponível a partir da versão do release 12.1.17 - Set/2018.
  • Este ponto de entrada é dependente dos demais pontos de entrada citados em "Pontos de Entrada Envolvidos".

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas

Rotina:

Rotina

Nome Técnico

MNTI0052

Portal SS - Tela de inclusão de SS

Ponto(s) de Entrada Envolvido(s)

Descrição

MNTCAMUSMNTI5201Permite incluir campos a adição de elementos na tela inclusão de SS, quando aberto pelo portal SS

MNTI5SXB

Monta tela consulta padrão (F3).

MNTPORSS

Manipulação dos campos inclusos pelo usuário na tela de inclusão de SS, quando aberto pelo portal de SS
de cadastro de Solicitação de Serviço no Portal SS

MNTI5006

Pós gravação de uma solicitacão de serviço via Portal SSMNTSAVSSSalva informações dos campos adicionados em tela pelo usuário.

Issues Relacionadas

DNG-357

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:Possibilita ao usuário incluir campos em tela, onde poderá ser utilizado campos que contenham consulta padrão

Permite a adição de elementos na tela de cadastro de Solicitação de Serviço no Portal de S.S.

Localização:

Portal de SS.

Eventos:

Inclusão Tela de SS (MNTI0052)

Programa Fonte:

MNTCAMUSMNTI5201.prwAHU

Observações:
  • O exemplo abaixo mostra a inclusão de campos na tela de SS, onde um campo é padrão do sistema(TQB_ORIGEM) e outro, é um campo incluído pelo usuário(TQB_TESTE) via configurador.
 



Bloco de código
languagesql
themeEclipse
titleMNTI5201.AHU | Fonte exemplo para adição de elementos em tela
linenumberstrueExemplo
<%
#include "protheus.ch"

//-----------------------------------------------------------
/*/{Protheus.doc} MNTCAMUS MNTI5201
    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.
/*/
//-----------------------------------------------------------
	// Procura no
 SX3 pelo campo TQB_TESTELocal ondecCampo1 o retorno será a Consulta padrão do campo.
	Local cSXBTest := Posicione('SX3', 2, '"TQB_TESTE', 'X3_F3')

	// Procura no SX3 pelo campo TQB_TESTE onde o retorno será o tamanho do campo.
	Local nTamTest := Posicione('SX3', 2, 'TQB_TESTE', 'X3_TAMANHO')
	Local nTamOrig := Posicione('SX3', 2, 'TQB_ORIGEM', 'X3_TAMANHO')

	%>
<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();
	}

	function fValCpUsr( cValor, cCampo ){
	
		<% /*Chama validação do campo passando por parametro o campo no qual será validado e qual o valor inserido no campo.*/ %>
		document.MNTI0052.action = 'W_I05VLDCPO.APW?cValor=' + cValor + '&cCampo=' + cCampo;
		document.MNTI0052.submit();
	}
	
</script>
<tr class="tabelaTr">
	<td class="tdLabel"><span class="labelObrigat">Campo Usuário:</span></td>
	<td>
		<input name='TQB_TESTE' type='Text' id='TQB_TESTE' class="inputCod" maxlength='<%=nTamTest%>' value='<%=HttpSession->TQB_TESTE%>' onBlur='fValCpUsr(this.value,"TQB_TESTE")' >
	</td>
	<td>
		<button id='F3USER' class='buttonF3' onMouseDown='<%='fsConPad("' + cSXBTest + '","TQB_TESTE")'%>' > <img class="imgF3" src="ng_lupacons.png" border="0"> </button>
	</td>
</tr>
<tr class="tabelaTr">
	<td class="tdLabel"><span class="labelComum">Origem:</span></td>
	<td>
		<input name='TQB_ORIGEM' type='Text' id='TQB_ORIGEM' class="inputCod" maxlength='<%=nTamOrig%>' value='<%=HttpSession->TQB_ORIGEM%>' onBlur='fValCpUsr(this.value,"TQB_ORIGEM")' >
	</td>
</tr>"
  
//-------------------------------------------------------------------------------
// Insere linha com campo TQB_TESTE (titulo, campo e botao para acionar a consulta padrao)
//-------------------------------------------------------------------------------
%>
<tr class="tabelaTr">
    <td class="tdLabel"> <!-- Titulo -->
        <span class="<%= IIf( X3Obrigat( cCampo1 ) , 'labelObrigat', 'labelComum' )%>" ><%=Trim( RetTitle( cCampo1 ) )%>:</span>
    </td>
    <td> <!-- Campo -->
        <input type="Text" id="<%=cCampo1%>" class="inputCod" maxlength="<%= TamSx3( cCampo1 )[1] %>" value="<%=&('HttpSession->' + 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 class="imgF3" src="ng_lupacons.png" border="0"> </button>
    </td>
</tr>
 
<script>
 
    /*-------------------------------------------------------------------------------
    // Função JavaScript acionada ao clicar no botao de consulta padrao.
    // Em seguida, acionará a função de usuário B_fSXBPAD que pode ser visualizada no exemplo do fonte WEBCONS.PRW
    -------------------------------------------------------------------------------*/
    function fsConPad(cTabela, cCampo){
         
        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();
    }


    /*-------------------------------------------------------------------------------
    // 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
    -------------------------------------------------------------------------------*/
    function fValCpUsr( cValor, cCampo ){
        document.MNTI0052.action = 'W_I05VLDCPO.APW?cValor=' + cValor + '&cCampo=' + cCampo;
        document.MNTI0052.submit();
    }
 
</script>
Bloco de código
languagesql
themeEclipse
titleWEBCONS.PRW | Fonte exemplo para intermediar as ações entre a página do Portal SS e o Protheus
linenumberstrue
collapsetrue
#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
	
	// Caso seja chamada para construir a tela da consulta padrao,
	// utiliza valores default do SXB
	If ValType( HttpGet->CampoF3  ) <> 'U'
		cCampo    := HttpGet->CampoF3
		cConpad   := Padr( HttpGet->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
Bloco de código
languagesql
themeEclipse
titleMNTI5SXB.AHU | Fonte exemplo responsável pela construção da tela de consulta padrão WEB
linenumberstrue
collapsetrue
<%
//-------------------------------------------------------------------
/*/ MNTI5SXB
    Fonte web de usuario para construção da tela de consulta padrão.
/*/
//-------------------------------------------------------------------

    //-------------------------------------------------------------------------------
    // Recupera informações do SXB para montagem da tela da consulta padrão
    //-------------------------------------------------------------------------------

    Local cLINHACOLOR, lLINHACOLOR, nPos, nTamCol, nIndice
    Local aPages, nRecno, nNxtRc, i, j
    
    Local id_pesq    := Trim(HttpSession->cSeek)
    Local cConPad    := HttpSession->cSearch
    Local cAlias     := HttpSession->cAliasSXB
    Local nInd       := HttpSession->nIndSXB
    Local aCamposSXB := {}
    Local nTamBrw    := 5
    Local cRetorno   := ''
    Local cNomeCon   := ''
    Local cContem    := ''
    Local nTamCpo    := ''
  
    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"

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

        aAdd(aCamposSXB,{  RetTitle( cContem ), ;
                            AllTrim(SXB->XB_CONTEM), ;
                            nTamCol, ;
                            !Empty( Posicione( 'SX3', 2, cContem, 'X3_CBOX' ) ), ;
                            AllTrim( Posicione( 'SX3', 2, cContem, 'X3_PICTURE' ) ) ;
                        })

        dbSelectArea("SXB")
        dbSkip()
    EndDo
  
    dbSelectArea("SXB")
    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

%>

<%
//-------------------------------------------------------------------------------
// Cabeçalho da página HTML
//-------------------------------------------------------------------------------
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
    <title>'  Portal Inclus&atilde;o de SS - Consulta '</title>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    <link rel="stylesheet" type="text/css" href="NGCSS.css">
</head>

<%
//-------------------------------------------------------------------------------
// Estilização da tela/página da consulta padrão
//-------------------------------------------------------------------------------
%>
<style type="text/css">
  
    body {
        margin: 5px;
    }
     
    a{
        text-decoration: none;
        color: #253453;
        font-weight: bold;
    }
     
    a:link, a:visited{
        color: #253453;
        font-weight: bold;
    }
     
    a:hover{
        background-color:#8ca0c7;
        color: #FFFFFF;
        font-weight: bold;
    }
    a:active{
        color: #253453;
        font-weight: bold;
    }
     
    a.pagina{
        text-decoration: none;
        color: #FFFFFF;
        font-weight: none;
    }
     
    a.pagina:link, a.pagina:visited{
        color: #FFFFFF;
        font-weight: none;
    }
     
    a.pagina:hover{
        color: #FFFFFF;
        font-weight: bold;
    }
    a.pagina:active{
        color: #FFFFFF;
        font-weight: bold;
    }
     
    .divrolagem {
        overflow: auto; /* define barra de rolagem automatica quando o conteudo ultrapassar o limite em x ou y*/
        height: 300px;  /* define o limite maximo da autura 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>

<%
//-------------------------------------------------------------------------------
// Funções Javascript referentes às ações na tela de consulta padrão
//-------------------------------------------------------------------------------
%>

<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;
}


/* 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();
}

</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;">
        <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="bordaDirAzul4"></b><b class="bordaDirAzul3"></b><b class="bordaDirAzul2"></b><b class="bordaDirAzul1"></b>
        </div>
    </div>
    
    <div id="divIndices" style="width: 580px; background-color: #FFFFFF; padding-bottom: 10pt">

    <table>
        <tr width="100%">
            <td colspan="2"><span class="txtTitulo" style="padding: 0pt 0pt 0pt 10pt;">Consulta <%=cNomeCon%></span></td>
        </tr>
        <tr>
            <td width="290px" align="left" style='padding: 0pt 0pt 0pt 10pt'>
                <input name="f_nome"  type="text"  id="f_nome" size="50" onChange='fcPesquisar();' style="width:270px;">
            </td>
            <td>
                <input type="button" name="Submit" value="Pesquisar" onclick="fcPesquisar();" onmouseover="this.style.cursor='pointer'"/>
            </td>
        </tr>
        <tr width="100%">
            <td colspan="2" width="290px" align="left" style='padding: 0pt 0pt 0pt 10pt'>
                <select size="1" name="indices" style="width:275px;">
                <%//Monta ComboBox com Indices da Pesquisa
                    dbSelectArea("SIX")
                    dbSetOrder(1)
                    dbSeek(cAlias)
                    While !Eof() .and. SIX->INDICE == cAlias
                        If Val(SIX->ORDEM) > 0
                            nIndice := Val(SIX->ORDEM)
                        Else
                            nIndice++
                        Endif
                        If nIndice == nInd%>
                            <option selected value="<%=nIndice%>"><%=SixDescricao()%></option>
                        <%Else%>
                            <option value="<%=nIndice%>"><%=SixDescricao()%></option>
            <%           Endif
                        dbSelectArea("SIX")
                        dbSkip()
                    EndDo
                %>
                </select>
            </td>
        </tr>
        </tr>
    </table>
</div>

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

    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 )

    
    //-------------------------------------------------------------------------------
    // Área de seleção dos registros
    //-------------------------------------------------------------------------------
%>

<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>

<%
//-------------------------------------------------------------------------------
// Á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>