<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% set conexao=server.createobject ("ADODB.Connection") conexao.Open MM_simuladoronline9_STRING %> <% Dim tabelas_promocoes__MMColParam tabelas_promocoes__MMColParam = "1" If (Request.QueryString("ID_Cliente") <> "") Then tabelas_promocoes__MMColParam = Request.QueryString("ID_Cliente") End If %> <% Dim tabelas_promocoes Dim tabelas_promocoes_cmd Dim tabelas_promocoes_numRows Set tabelas_promocoes_cmd = Server.CreateObject ("ADODB.Command") tabelas_promocoes_cmd.ActiveConnection = conexao tabelas_promocoes_cmd.CommandText = "SELECT * FROM tabelas_promocoes WHERE ID_Cliente = ?" tabelas_promocoes_cmd.Prepared = true tabelas_promocoes_cmd.Parameters.Append tabelas_promocoes_cmd.CreateParameter("param1", 5, 1, -1, tabelas_promocoes__MMColParam) ' adDouble Set tabelas_promocoes = tabelas_promocoes_cmd.Execute tabelas_promocoes_numRows = 0 %> <% Dim autenticar_logo__MMColParam autenticar_logo__MMColParam = "1" If (Request.QueryString("ID_Usuario") <> "") Then autenticar_logo__MMColParam = Request.QueryString("ID_Usuario") End If %> <% Dim autenticar_logo__corretora autenticar_logo__corretora = "1" If (Request.QueryString("ID_Cliente") <> "") Then autenticar_logo__corretora = Request.QueryString("ID_Cliente") End If %> <% set autenticar_logo = Server.CreateObject("ADODB.Recordset") autenticar_logo.ActiveConnection = conexao autenticar_logo.Source = "SELECT * FROM usuarios_adicionais, administrador WHERE ID_Usuario = " + Replace(autenticar_logo__MMColParam, "'", "''") + " AND ID_Cliente = " + Replace(autenticar_logo__corretora, "'", "''") + " AND ativo = 'S'" autenticar_logo.CursorType = 0 autenticar_logo.CursorLocation = 2 autenticar_logo.LockType = 3 autenticar_logo.Open() autenticar_logo_numRows = 0 %> <% Dim notas_pessoais__MMColParam notas_pessoais__MMColParam = "1" If (Request.QueryString("ID_Usuario") <> "") Then notas_pessoais__MMColParam = Request.QueryString("ID_Usuario") End If %> <% Dim notas_pessoais Dim notas_pessoais_numRows Set notas_pessoais = Server.CreateObject("ADODB.Recordset") notas_pessoais.ActiveConnection = conexao notas_pessoais.Source = "SELECT * FROM informacoes_fisica WHERE ID_Cliente = " + Replace(notas_pessoais__MMColParam, "'", "''") + " AND ID_Operadora = 50" notas_pessoais.CursorType = 0 notas_pessoais.CursorLocation = 2 notas_pessoais.LockType = 1 notas_pessoais.Open() notas_pessoais_numRows = 0 %> <% set medicol = Server.CreateObject("ADODB.Recordset") medicol.ActiveConnection = conexao medicol.Source = "SELECT * FROM medicol_ind, medicol_inform_fisica WHERE medicol_inform_fisica.codigo_medicol = 50 ORDER BY CodMedicol ASC" medicol.CursorType = 0 medicol.CursorLocation = 2 medicol.LockType = 3 medicol.Open() medicol_numRows = 0 %> <% set medicol_fam = Server.CreateObject("ADODB.Recordset") medicol_fam.ActiveConnection = conexao medicol_fam.Source = "SELECT * FROM medicol_fam1, medicol_inform_fisica WHERE medicol_inform_fisica.codigo_medicol = 50 ORDER BY CodMedicol ASC" medicol_fam.CursorType = 0 medicol_fam.CursorLocation = 2 medicol_fam.LockType = 3 medicol_fam.Open() medicol_fam_numRows = 0 %> <% Dim medicol_fam_grupo_II Dim medicol_fam_grupo_II_numRows Set medicol_fam_grupo_II = Server.CreateObject("ADODB.Recordset") medicol_fam_grupo_II.ActiveConnection = conexao medicol_fam_grupo_II.Source = "SELECT * FROM medicol_fam2, medicol_inform_fisica WHERE medicol_inform_fisica.codigo_medicol = 50 ORDER BY CodMedicol ASC" medicol_fam_grupo_II.CursorType = 0 medicol_fam_grupo_II.CursorLocation = 2 medicol_fam_grupo_II.LockType = 1 medicol_fam_grupo_II.Open() medicol_fam_grupo_II_numRows = 0 %> <% Dim medicol_fam3 Dim medicol_fam3_cmd Dim medicol_fam3_numRows Set medicol_fam3_cmd = Server.CreateObject ("ADODB.Command") medicol_fam3_cmd.ActiveConnection = conexao medicol_fam3_cmd.CommandText = "SELECT * FROM medicol_fam3, medicol_inform_fisica WHERE medicol_inform_fisica.codigo_medicol = 50 ORDER BY CodMedicol ASC" medicol_fam3_cmd.Prepared = true Set medicol_fam3 = medicol_fam3_cmd.Execute medicol_fam3_numRows = 0 %> <% Dim Repeat13__numRows Repeat13__numRows = -1 Dim Repeat13__index Repeat13__index = 0 medicol_numRows = medicol_numRows + Repeat13__numRows %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 medicol_fam_numRows = medicol_fam_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 medicol_fam_grupo_II_numRows = medicol_fam_grupo_II_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 medicol_fam3_numRows = medicol_fam3_numRows + Repeat3__numRows %> <%=(autenticar_logo.Fields.Item("nome_corretora").Value)%> <% If Not topo_tabelas.EOF Or Not topo_tabelas.BOF Then %>
MEDICOL
 <% If Not tabelas_promocoes.EOF Or Not tabelas_promocoes.BOF Then %>
<%=(tabelas_promocoes.Fields.Item("descricao_fisica").Value)%>
<% End If ' end Not tabelas_promocoes.EOF Or NOT tabelas_promocoes.BOF %>
" border="0">
<%=(autenticar_logo.Fields.Item("site_corretora").Value)%>
(<%=(autenticar_logo.Fields.Item("ddd").Value)%>) <%=(autenticar_logo.Fields.Item("fone").Value)%> -<%=(autenticar_logo.Fields.Item("fone_2").Value)%>

<% End If ' end Not topo_tabelas.EOF Or NOT topo_tabelas.BOF %>
MEDICOL (COM OBSTETRÍCIA) - NOVEMBRO 2010 - Taxa de Adesão: <%=(medicol.Fields.Item("taxa_inscricao").Value)%>
<% While ((Repeat13__numRows <> 0) AND (NOT medicol.EOF)) %> <% Repeat13__index=Repeat13__index+1 Repeat13__numRows=Repeat13__numRows-1 medicol.MoveNext() Wend %>
PLANO INDIVIDUAL
FAIXA ETÁRIA
<%=(medicol.Fields.Item("categoria1").Value)%>
<%=(medicol.Fields.Item("categoria2").Value)%>
<%=(medicol.Fields.Item("categoria3").Value)%>
<%=(medicol.Fields.Item("categoria4").Value)%>
<%=(medicol.Fields.Item("idade").Value)%>:
<%= FormatNumber((medicol.Fields.Item("valor").Value), 2, -2, -2, -2) %>
<%= FormatNumber((medicol.Fields.Item("valor_2").Value), 2, -2, -2, -2) %>
<%= FormatNumber((medicol.Fields.Item("valor_3").Value), 2, -2, -2, -2) %>
<%= FormatNumber((medicol.Fields.Item("valor_4").Value), 2, -2, -2, -2) %>

<% While ((Repeat1__numRows <> 0) AND (NOT medicol_fam.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 medicol_fam.MoveNext() Wend %>
TITULAR + 01 DEPENDENTE
FAIXA ETÁRIA
<%=(medicol_fam.Fields.Item("categoria1").Value)%>
<%=(medicol_fam.Fields.Item("categoria2").Value)%>
<%=(medicol_fam.Fields.Item("categoria3").Value)%>
<%=(medicol_fam.Fields.Item("categoria4").Value)%>
<%=(medicol_fam.Fields.Item("idade").Value)%>:
<%= FormatNumber((medicol_fam.Fields.Item("valor").Value), 2, -2, -2, -2) %>
<%= FormatNumber((medicol_fam.Fields.Item("valor_2").Value), 2, -2, -2, -2) %>
<%= FormatNumber((medicol_fam.Fields.Item("valor_3").Value), 2, -2, -2, -2) %>
<%= FormatNumber((medicol_fam.Fields.Item("valor_4").Value), 2, -2, -2, -2) %>

<% While ((Repeat2__numRows <> 0) AND (NOT medicol_fam_grupo_II.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 medicol_fam_grupo_II.MoveNext() Wend %>
TITULAR + 02 DEPENDENTES
FAIXA ETÁRIA
<%=(medicol_fam_grupo_II.Fields.Item("categoria1").Value)%>
<%=(medicol_fam_grupo_II.Fields.Item("categoria2").Value)%>
<%=(medicol_fam_grupo_II.Fields.Item("categoria3").Value)%>
<%=(medicol_fam_grupo_II.Fields.Item("categoria4").Value)%>
<%=(medicol_fam_grupo_II.Fields.Item("idade").Value)%>:
<%= FormatNumber((medicol_fam_grupo_II.Fields.Item("valor").Value), 2, -2, -2, -2) %>
<%= FormatNumber((medicol_fam_grupo_II.Fields.Item("valor_2").Value), 2, -2, -2, -2) %>
<%= FormatNumber((medicol_fam_grupo_II.Fields.Item("valor_3").Value), 2, -2, -2, -2) %>
<%= FormatNumber((medicol_fam_grupo_II.Fields.Item("valor_4").Value), 2, -2, -2, -2) %>

<% While ((Repeat3__numRows <> 0) AND (NOT medicol_fam3.EOF)) %> <% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 medicol_fam3.MoveNext() Wend %>
TITULAR + 03 DEPENDENTES
FAIXA ETÁRIA
<%=(medicol_fam3.Fields.Item("categoria1").Value)%>
<%=(medicol_fam3.Fields.Item("categoria2").Value)%>
<%=(medicol_fam3.Fields.Item("categoria3").Value)%>
<%=(medicol_fam3.Fields.Item("categoria4").Value)%>
<%=(medicol_fam3.Fields.Item("idade").Value)%>:
<%= FormatNumber((medicol_fam3.Fields.Item("valor").Value), 2, -2, -2, -2) %>
<%= FormatNumber((medicol_fam3.Fields.Item("valor_2").Value), 2, -2, -2, -2) %>
<%= FormatNumber((medicol_fam3.Fields.Item("valor_3").Value), 2, -2, -2, -2) %>
<%= FormatNumber((medicol_fam3.Fields.Item("valor_4").Value), 2, -2, -2, -2) %>

 

MEDICOL (SEM OBSTETRÍCIA) - AGOSTO 2010
PLANO INDIVIDUAL
Faixa Etária
PLENO 350 E
PLENO 350 A
MASTER 550 E
MASTER 550 A
ENFERMARIA
APARTAMENTO
ENFERMARIA
APARTAMENTO
00 a 18
76,92
99,92
97.09
122,36
19 a 23
76,92
99,92
97.09
122.36
24 a 28
78,45
101,92
99,03
124,80
29 a 33
81,60
106,00
102.99
129.80
34 a 38
84,05
109,18
106,08
133.69
39 a 43
103,33
134,23
130,41
164,36
44 a 48
176,91
229,81
223,28
281.39
49 a 53
243,71
316,58
307,58
387.64
54 a 58
324.94
422,10
410,10
516.85;
59 a +
406,86
528,53
513,51
647.16
-
CONTRATAÇAO FAMILIAR - TITULAR + 1 BENEFICIÁRIO
Faixa Etária
PLENO 350 E
PLENO 350 A
MASTER 550 E
MASTER 550 A
ENFERMARIA
APARTAMENTO
ENFERMARIA
APARTAMENTO
00 a 18
73,08
94,92
92,24
116.24
19 a 23
73,08
94,92
92.24
116.24
24 a 28
74,53
96.82
94,08
118,56
29 a 33
77,52
100,70
97.84
123,31
34 a 38
79.85
103,72
100.78
127.00
39 a 43
98,16
127,51
123,89
156,14
44 a 48
168,07
218,32
212,12
267,32
49 a 53
231,53
300,75
292,20
368.26
54 a 58
308,69
401.00
389.60
491,01
59 a +
386,52
502,10
487,84
614,80
-
CONTRATAÇAO FAMILIAR - TITULAR + 2 BENEFICIÁRIOS
Faixa Etária
PLENO 350 E
PLENO 350 A
MASTER 550 E
MASTER 550 A
ENFERMARIA
APARTAMENTO
ENFERMARIA
APARTAMENTO
00 a 18
70,88
92.07
89.47
112.75
19 a 23
70,88
92,07
89,47
112,75
24 a 28
72,29
93,92
91,25
115,01
29 a 33
75,20
97,68
94.90
119.61
34 a 38
77,45
100,61
97.76
123.19
39 a 43
95,22
123,69
120,17
151.46
44 a 48
163,03
211,77
205.75
259.30
49 a 53
224,58
291,72
283,44
357,21
54 a 58
299,43
388,97
377.91
476.28
59 a +
374,92
487,04
473.20
596.36
-
CONTRATAÇAO FAMILIAR - TITULAR + 3 BENEFICIÁRIOS
Faixa Etária
PLENO 350 E
PLENO 350 A
MASTER 550 E
MASTER 550 A
ENFERMARIA
APARTAMENTO
ENFERMARIA
APARTAMENTO
00 a 18
67.34
87,47
85.00
107,11
19 a 23
67.34
87,47
85,00
107,11
24 a 28
68,68
89.22
86,69
109,26
29 a 33
71,44
92,80
90,16
113,63
34 a 38
73.58
95,58
92.87
117,03
39 a 43
90,46
117.50
114,16
143,88
44 a 48
154.87
201.18
195,47
246,34
49 a 53
213,35
277,14
269,27
339,35
54 a 58
284,46
369.52
359,01
452,47
59 a +
356.18
462,68
449.54
566.54

 

 

Última Alteraçao em 12/11/2010

<% medicol.Close() Set medicol = Nothing %> <% medicol_fam.Close() Set medicol_fam = Nothing %> <% medicol_fam_grupo_II.Close() Set medicol_fam_grupo_II = Nothing %> <% medicol_fam3.Close() Set medicol_fam3 = Nothing %> <% notas_pessoais.Close() Set notas_pessoais = Nothing %> <% tabelas_promocoes.Close() Set tabelas_promocoes = Nothing %> <% autenticar_logo.Close() Set autenticar_logo = Nothing %> <% conexao.close set conexao=nothing %>