Veja como ficou agora e mesmo assim está dando pau. Parece que na renderização da página, a função está sendo lida antes de carregar os includes do jquery, é o que dá a entender.
<%@ LANGUAGE="VBSCRIPT"%>
<%
Option Explicit
dim txt_usuario, txt_senha, txt_ip, txt_modulo, txt_sistema, txt_msg
dim rsPesqBenef, txt_subtitulo, txtXML, qtdIni, qtdFim, sBgColor
dim data_atendimento_ini, data_atendimento_fim, data_atual
dim txt_situacao, txt_origem_atendimento
txt_usuario
= Session("ace_usuario")
txt_senha
= Session("ace_senha")
txt_ip
= Session("ace_ip")
txt_sistema
= Session("ace_sistema")
txt_msg
= Session("txt_msg")
txt_subtitulo
= request("pt")
'OBS.: A session("ace_modulo") só é atualizada no refresh da tela.
if request("pcf") = "ATB0084" then
Session("ace_modulo") = "40"
elseif request("pcf") = "ATC0007" then
Session("ace_modulo") = "47"
end if
txt_modulo
= Session("ace_modulo")
Session("txt_msg")
= ""
session("pgm_retorno") = Request.ServerVariables("SCRIPT_NAME") & "?" & Request.ServerVariables("QUERY_STRING")
recuperaDataAtual()
if data_atendimento_ini = "" or data_atendimento_fim = "" then
call recuperaDateDiffporparmetro("7")
end if
%>
<html>
<head>
<title><%=Application("app")%></title>
<link rel="stylesheet" type="text/css" href="\gen\css\css002.css">
<script type="text/javascript" src="http://code.jquery.com/jquery-1.11.1.min.js"></script>
<script type="text/javascript" src="http://code.jquery.com/ui/1.11.1/jquery-ui.min.js"></script>
<link rel="stylesheet" href="https://code.jquery.com/ui/1.11.1/themes/smoothness/jquery-ui.css" />
<script type="text/javascript" src="\cal\asp\cal0087.js"></script>
<script type="text/javascript" src="\cal\asp\cal0088.js"></script>
<script src="../../gen/js/cpaint2.inc.compressed.js" type="text/javascript"></script>
<script type="text/javascript">
$(document).ready(function(){
$(function () {
$("#dialog1").dialog({
autoOpen: false
});
$("#opener").click(function () {
$("#dialog1").dialog('open');
});
});
})
</script>
</head>
<!--#include file="..\..\cal\asp\cal0088inc.asp"-->
<!--#include file="..\..\gen\inc\inc0077a.asp"-->
<!--#include file=..\..\gen\inc\inc0000_new.asp-->
<!--#include file=..\..\gen\inc\inc0001.asp-->
<!--#include file=..\..\gen\inc\inc0002.asp-->
<!--#include file=..\..\gen\asp\gen0146a.asp-->
<!--#include file=..\..\gen\asp\gen0146b.asp-->
<body>
<%AbreTable()%>
<font class="subtitulos"><%=txt_subtitulo%></font>
<%FechaTable()%>
<form method="post" name="form01">
<%AbreTable()%>
<div id="txt_msg" class="msg" align="center"><%=txt_msg%></div>
<button id="opener">Abrir Diálogo Modal</button>
<div id="dialog1" title="Diálogo Modal" hidden="hidden">Este é um teste de Dialogo Modal usando JQuery-UI</div>
<table border="0" width="100%">
<%
montaOpSucInspetoria()
montaContrato()
if txt_modulo = "40" then
montaNumBeneficiario()
end if
montaNumAtendimento("S")
montaDataAtendimento()
montaUsuarioAtendimento()
montaCboMotivoAtd()
montaCboSituacao()
%>
</table>
<%FechaTable()%>
<table border="0" width="100%">
<tr id="trResultConsAtdBeneficiario" style="display:''">
<td>
<div id="dvResultConsAtdBeneficiario"></div>
</td>
</tr>
</table>
<input type="hidden" name="p_versao" value="1.10">
<input type="hidden" name="qtd_de" value="">
<input type="hidden" name="qtd_ate" value="">
<input type="hidden" name="txt_subtitulo" value="<%=txt_subtitulo%>">
<input type="hidden" name="cod_modulo" value="<%=txt_modulo%>">
<script language="javascript">
function acao_continuar(){
if (validaForm()){
document.getElementById('txt_msg').innerHTML = '';
document.getElementById('txt_msg').style.display = 'none';
buscaAtendimentos();
}
}
function selecionarAtendimento(pNumAtendimentoTs, pCodTs, pCodEntidadeTs, pIndSituacao, pnumcpfbenefevent, pnom_benef_event) {
var strChamada = '../../cal/asp/cal0088b.asp?pt=<%=txt_subtitulo%>';
strChamada +='&num_atendimento_ts='+pNumAtendimentoTs;
strChamada +='&cod_entidade_ts='+pCodEntidadeTs;
strChamada += '&num_cpf_benef_event=' + pnumcpfbenefevent;
strChamada += '&nom_benef_event=' + pnom_benef_event;
if ( form01.cod_modulo.value == '40' ){
strChamada +='&cod_ts='+pCodTs;
}else if ( form01.cod_modulo.value == '47' ) {
strChamada +='&cod_ts_contrato='+pCodTs;
}
document.form01.action = strChamada;
document.form01.submit();
}
</script>
</form>
<%
'VOLTAR/CONTINUAR/LIMPAR/INCLUIR/ALTERAR/EXCLUIR/EXECUTAR/POPUP
call MontaToolbar("N","S","S","N","N","N","N","N")
%>
</body>
</html>
<%
sub MontaCalendario(pCampo)
%>
<img src="/gen/img/img.gif" id="img_<%=pCampo%>"
style="cursor: pointer; border: 1px solid red;"
title="Selecionar data" onmouseover="this.style.background='red';"
onmouseout="this.style.background=''" />
<script>
Calendar.setup({
inputField : "<%=pCampo%>",
ifFormat : "%d/%m/%Y",
button : "img_<%=pCampo%>",
align : "Tl",
singleClick : true
});
</script>
<%
end sub
%>
