<%@ CodePage="1252" LCID="1046" %> <% Response.Buffer = EW_RESPONSE_BUFFER %> <% Session.Timeout = 20 %> <% Call ew_Header(False, EW_CHARSET) %> <% ' Define page object Dim provas_cruzadas_list Set provas_cruzadas_list = New cprovas_cruzadas_list Set Page = provas_cruzadas_list ' Page init processing Call provas_cruzadas_list.Page_Init() ' Page main processing Call provas_cruzadas_list.Page_Main() %> <% If provas_cruzadas.Export = "" Then %> <% End If %> <% If (provas_cruzadas.Export = "") Or (EW_EXPORT_MASTER_RECORD And provas_cruzadas.Export = "print") Then %> <% gsMasterReturnUrl = "receptorlist.asp" If provas_cruzadas_list.DbMasterFilter <> "" And provas_cruzadas.CurrentMasterTable = "receptor" Then If provas_cruzadas_list.MasterRecordExists Then If provas_cruzadas.CurrentMasterTable = provas_cruzadas.TableVar Then gsMasterReturnUrl = gsMasterReturnUrl & "?" & EW_TABLE_SHOW_MASTER & "=" %>

<%= Language.Phrase("MasterRecord") %><%= receptor.TableCaption %>   <% provas_cruzadas_list.ExportOptions.Render "body", "" %>

<% If provas_cruzadas.Export = "" Then %>

<%= Language.Phrase("BackToMasterPage") %>

<% End If %> <% End If End If %> <% End If %> <% provas_cruzadas_list.ShowPageHeader() %> <% ' Load recordset Set provas_cruzadas_list.Recordset = provas_cruzadas_list.LoadRecordset() provas_cruzadas_list.TotalRecs = provas_cruzadas_list.Recordset.RecordCount provas_cruzadas_list.StartRec = 1 If provas_cruzadas_list.DisplayRecs <= 0 Then ' Display all records provas_cruzadas_list.DisplayRecs = provas_cruzadas_list.TotalRecs End If If Not (provas_cruzadas.ExportAll And provas_cruzadas.Export <> "") Then provas_cruzadas_list.SetUpStartRec() ' Set up start record position End If %>

<%= Language.Phrase("TblTypeTABLE") %><%= provas_cruzadas.TableCaption %> <% If provas_cruzadas.CurrentMasterTable = "" Then %>   <% provas_cruzadas_list.ExportOptions.Render "body", "" %> <% End If %>

<% If provas_cruzadas.Export = "" And provas_cruzadas.CurrentAction = "" Then %>  <%= Language.Phrase("Search") %>
    
<% End If %> <% provas_cruzadas_list.ShowMessage %>
<% If provas_cruzadas.Export = "" Then %>
<% If provas_cruzadas.CurrentAction <> "gridadd" And provas_cruzadas.CurrentAction <> "gridedit" Then %>
<% If Not IsObject(provas_cruzadas_list.Pager) Then Set provas_cruzadas_list.Pager = ew_NewPrevNextPager(provas_cruzadas_list.StartRec, provas_cruzadas_list.DisplayRecs, provas_cruzadas_list.TotalRecs) %> <% If provas_cruzadas_list.Pager.RecordCount > 0 Then %> <% If provas_cruzadas_list.Pager.FirstButton.Enabled Then %> <% Else %> <% End If %> <% If provas_cruzadas_list.Pager.PrevButton.Enabled Then %> <% Else %> <% End If %> <% If provas_cruzadas_list.Pager.NextButton.Enabled Then %> <% Else %> <% End If %> <% If provas_cruzadas_list.Pager.LastButton.Enabled Then %> <% Else %> <% End If %>
<%= Language.Phrase("Page") %>  <%= Language.Phrase(" width="16" height="16" border="0"><%= Language.Phrase(" width="16" height="16" border="0"><%= Language.Phrase(" width="16" height="16" border="0"><%= Language.Phrase(" width="16" height="16" border="0"> <%= Language.Phrase(" width="16" height="16" border="0"><%= Language.Phrase(" width="16" height="16" border="0"><%= Language.Phrase(" width="16" height="16" border="0"><%= Language.Phrase(" width="16" height="16" border="0"> <%= Language.Phrase("Of") %> <%= provas_cruzadas_list.Pager.PageCount %>
     <%= Language.Phrase("Record") %> <%= provas_cruzadas_list.Pager.FromIndex %> <%= Language.Phrase("To") %> <%= provas_cruzadas_list.Pager.ToIndex %> <%= Language.Phrase("Of") %> <%= provas_cruzadas_list.Pager.RecordCount %> <% Else %> <% If provas_cruzadas_list.SearchWhere = "0=101" Then %> <%= Language.Phrase("EnterSearchCriteria") %> <% Else %> <%= Language.Phrase("NoRecord") %> <% End If %> <% End If %>
<% End If %> <%= Language.Phrase("AddLink") %>   <% If provas_cruzadas_list.TotalRecs > 0 Then %> <%= Language.Phrase("DeleteSelectedLink") %>   <% End If %>
<% End If %>
<% If provas_cruzadas_list.TotalRecs > 0 Then %> <%= provas_cruzadas.TableCustomInnerHTML %> <% Call provas_cruzadas_list.RenderListOptions() ' Render list options (header, left) provas_cruzadas_list.ListOptions.Render "header", "left" %> <% If provas_cruzadas.ID.Visible Then ' ID %> <% If provas_cruzadas.SortUrl(provas_cruzadas.ID) = "" Then %> <% Else %> <% End If %> <% End If %> <% If provas_cruzadas.DATA.Visible Then ' DATA %> <% If provas_cruzadas.SortUrl(provas_cruzadas.DATA) = "" Then %> <% Else %> <% End If %> <% End If %> <% If provas_cruzadas.REGISTRO_GERAL.Visible Then ' REGISTRO_GERAL %> <% If provas_cruzadas.SortUrl(provas_cruzadas.REGISTRO_GERAL) = "" Then %> <% Else %> <% End If %> <% End If %> <% If provas_cruzadas.ABO.Visible Then ' ABO %> <% If provas_cruzadas.SortUrl(provas_cruzadas.ABO) = "" Then %> <% Else %> <% End If %> <% End If %> <% If provas_cruzadas.RH_D.Visible Then ' RH_D %> <% If provas_cruzadas.SortUrl(provas_cruzadas.RH_D) = "" Then %> <% Else %> <% End If %> <% End If %> <% If provas_cruzadas.RH_C.Visible Then ' RH_C %> <% If provas_cruzadas.SortUrl(provas_cruzadas.RH_C) = "" Then %> <% Else %> <% End If %> <% End If %> <% If provas_cruzadas.REVERSA_A.Visible Then ' REVERSA_A %> <% If provas_cruzadas.SortUrl(provas_cruzadas.REVERSA_A) = "" Then %> <% Else %> <% End If %> <% End If %> <% If provas_cruzadas.REVERSA_B.Visible Then ' REVERSA_B %> <% If provas_cruzadas.SortUrl(provas_cruzadas.REVERSA_B) = "" Then %> <% Else %> <% End If %> <% End If %> <% If provas_cruzadas.TA_T1.Visible Then ' TA_T1 %> <% If provas_cruzadas.SortUrl(provas_cruzadas.TA_T1) = "" Then %> <% Else %> <% End If %> <% End If %> <% If provas_cruzadas.TA_T2.Visible Then ' TA_T2 %> <% If provas_cruzadas.SortUrl(provas_cruzadas.TA_T2) = "" Then %> <% Else %> <% End If %> <% End If %> <% If provas_cruzadas.AGH_T1.Visible Then ' AGH_T1 %> <% If provas_cruzadas.SortUrl(provas_cruzadas.AGH_T1) = "" Then %> <% Else %> <% End If %> <% End If %> <% If provas_cruzadas.AGH_T2.Visible Then ' AGH_T2 %> <% If provas_cruzadas.SortUrl(provas_cruzadas.AGH_T2) = "" Then %> <% Else %> <% End If %> <% End If %> <% If provas_cruzadas.TAD.Visible Then ' TAD %> <% If provas_cruzadas.SortUrl(provas_cruzadas.TAD) = "" Then %> <% Else %> <% End If %> <% End If %> <% If provas_cruzadas.AUTO_A2FC.Visible Then ' AUTO_A/C %> <% If provas_cruzadas.SortUrl(provas_cruzadas.AUTO_A2FC) = "" Then %> <% Else %> <% End If %> <% End If %> <% If provas_cruzadas.NUMERO_BOLSA.Visible Then ' NUMERO_BOLSA %> <% If provas_cruzadas.SortUrl(provas_cruzadas.NUMERO_BOLSA) = "" Then %> <% Else %> <% End If %> <% End If %> <% If provas_cruzadas.ABO_RH_BOLSA.Visible Then ' ABO_RH_BOLSA %> <% If provas_cruzadas.SortUrl(provas_cruzadas.ABO_RH_BOLSA) = "" Then %> <% Else %> <% End If %> <% End If %> <% If provas_cruzadas.PC_TA.Visible Then ' PC_TA %> <% If provas_cruzadas.SortUrl(provas_cruzadas.PC_TA) = "" Then %> <% Else %> <% End If %> <% End If %> <% If provas_cruzadas.PC_AGH.Visible Then ' PC_AGH %> <% If provas_cruzadas.SortUrl(provas_cruzadas.PC_AGH) = "" Then %> <% Else %> <% End If %> <% End If %> <% If provas_cruzadas.CONTROCEL_PC_T1.Visible Then ' CONTROCEL_PC_T1 %> <% If provas_cruzadas.SortUrl(provas_cruzadas.CONTROCEL_PC_T1) = "" Then %> <% Else %> <% End If %> <% End If %> <% If provas_cruzadas.CONTROCEL_PC_T2.Visible Then ' CONTROCEL_PC_T2 %> <% If provas_cruzadas.SortUrl(provas_cruzadas.CONTROCEL_PC_T2) = "" Then %> <% Else %> <% End If %> <% End If %> <% If provas_cruzadas.CONTROCEL_PC.Visible Then ' CONTROCEL_PC %> <% If provas_cruzadas.SortUrl(provas_cruzadas.CONTROCEL_PC) = "" Then %> <% Else %> <% End If %> <% End If %> <% If provas_cruzadas.CONTROCEL_TAD.Visible Then ' CONTROCEL_TAD %> <% If provas_cruzadas.SortUrl(provas_cruzadas.CONTROCEL_TAD) = "" Then %> <% Else %> <% End If %> <% End If %> <% If provas_cruzadas.TESTE_HEMOLISE.Visible Then ' TESTE_HEMOLISE %> <% If provas_cruzadas.SortUrl(provas_cruzadas.TESTE_HEMOLISE) = "" Then %> <% Else %> <% End If %> <% End If %> <% If provas_cruzadas.HORA.Visible Then ' HORA %> <% If provas_cruzadas.SortUrl(provas_cruzadas.HORA) = "" Then %> <% Else %> <% End If %> <% End If %> <% If provas_cruzadas.TECNICO.Visible Then ' TECNICO %> <% If provas_cruzadas.SortUrl(provas_cruzadas.TECNICO) = "" Then %> <% Else %> <% End If %> <% End If %> <% ' Render list options (header, right) provas_cruzadas_list.ListOptions.Render "header", "right" %> <% If (provas_cruzadas.ExportAll And provas_cruzadas.Export <> "") Then provas_cruzadas_list.StopRec = provas_cruzadas_list.TotalRecs Else ' Set the last record to display If provas_cruzadas_list.TotalRecs > provas_cruzadas_list.StartRec + provas_cruzadas_list.DisplayRecs - 1 Then provas_cruzadas_list.StopRec = provas_cruzadas_list.StartRec + provas_cruzadas_list.DisplayRecs - 1 Else provas_cruzadas_list.StopRec = provas_cruzadas_list.TotalRecs End If End If ' Move to first record provas_cruzadas_list.RecCnt = provas_cruzadas_list.StartRec - 1 If Not provas_cruzadas_list.Recordset.Eof Then provas_cruzadas_list.Recordset.MoveFirst If provas_cruzadas_list.StartRec > 1 Then provas_cruzadas_list.Recordset.Move provas_cruzadas_list.StartRec - 1 ElseIf Not provas_cruzadas.AllowAddDeleteRow And provas_cruzadas_list.StopRec = 0 Then provas_cruzadas_list.StopRec = provas_cruzadas.GridAddRowCount End If ' Initialize Aggregate provas_cruzadas.RowType = EW_ROWTYPE_AGGREGATEINIT Call provas_cruzadas.ResetAttrs() Call provas_cruzadas_list.RenderRow() provas_cruzadas_list.RowCnt = 0 ' Output date rows Do While CLng(provas_cruzadas_list.RecCnt) < CLng(provas_cruzadas_list.StopRec) provas_cruzadas_list.RecCnt = provas_cruzadas_list.RecCnt + 1 If CLng(provas_cruzadas_list.RecCnt) >= CLng(provas_cruzadas_list.StartRec) Then provas_cruzadas_list.RowCnt = provas_cruzadas_list.RowCnt + 1 ' Set up key count provas_cruzadas_list.KeyCount = provas_cruzadas_list.RowIndex Call provas_cruzadas.ResetAttrs() provas_cruzadas.CssClass = "" If provas_cruzadas.CurrentAction = "gridadd" Then Else Call provas_cruzadas_list.LoadRowValues(provas_cruzadas_list.Recordset) ' Load row values End If provas_cruzadas.RowType = EW_ROWTYPE_VIEW ' Render view provas_cruzadas.RowAttrs.AddAttributes Array(Array("onmouseover", "ew_MouseOver(event, this);"), Array("onmouseout", "ew_MouseOut(event, this);"), Array("onclick", "ew_Click(event, this);")) ' Render row Call provas_cruzadas_list.RenderRow() ' Render list options Call provas_cruzadas_list.RenderListOptions() %> > <% ' Render list options (body, left) provas_cruzadas_list.ListOptions.Render "body", "left" %> <% If provas_cruzadas.ID.Visible Then ' ID %> > ><%= provas_cruzadas.ID.ListViewValue %> " id="<%= provas_cruzadas_list.PageObjName & "_row_" & provas_cruzadas_list.RowCnt %>"> <% End If %> <% If provas_cruzadas.DATA.Visible Then ' DATA %> > ><%= provas_cruzadas.DATA.ListViewValue %> <% End If %> <% If provas_cruzadas.REGISTRO_GERAL.Visible Then ' REGISTRO_GERAL %> > ><%= provas_cruzadas.REGISTRO_GERAL.ListViewValue %> <% End If %> <% If provas_cruzadas.ABO.Visible Then ' ABO %> > ><%= provas_cruzadas.ABO.ListViewValue %> <% End If %> <% If provas_cruzadas.RH_D.Visible Then ' RH_D %> > ><%= provas_cruzadas.RH_D.ListViewValue %> <% End If %> <% If provas_cruzadas.RH_C.Visible Then ' RH_C %> > ><%= provas_cruzadas.RH_C.ListViewValue %> <% End If %> <% If provas_cruzadas.REVERSA_A.Visible Then ' REVERSA_A %> > ><%= provas_cruzadas.REVERSA_A.ListViewValue %> <% End If %> <% If provas_cruzadas.REVERSA_B.Visible Then ' REVERSA_B %> > ><%= provas_cruzadas.REVERSA_B.ListViewValue %> <% End If %> <% If provas_cruzadas.TA_T1.Visible Then ' TA_T1 %> > ><%= provas_cruzadas.TA_T1.ListViewValue %> <% End If %> <% If provas_cruzadas.TA_T2.Visible Then ' TA_T2 %> > ><%= provas_cruzadas.TA_T2.ListViewValue %> <% End If %> <% If provas_cruzadas.AGH_T1.Visible Then ' AGH_T1 %> > ><%= provas_cruzadas.AGH_T1.ListViewValue %> <% End If %> <% If provas_cruzadas.AGH_T2.Visible Then ' AGH_T2 %> > ><%= provas_cruzadas.AGH_T2.ListViewValue %> <% End If %> <% If provas_cruzadas.TAD.Visible Then ' TAD %> > ><%= provas_cruzadas.TAD.ListViewValue %> <% End If %> <% If provas_cruzadas.AUTO_A2FC.Visible Then ' AUTO_A/C %> > ><%= provas_cruzadas.AUTO_A2FC.ListViewValue %> <% End If %> <% If provas_cruzadas.NUMERO_BOLSA.Visible Then ' NUMERO_BOLSA %> > ><%= provas_cruzadas.NUMERO_BOLSA.ListViewValue %> <% End If %> <% If provas_cruzadas.ABO_RH_BOLSA.Visible Then ' ABO_RH_BOLSA %> > ><%= provas_cruzadas.ABO_RH_BOLSA.ListViewValue %> <% End If %> <% If provas_cruzadas.PC_TA.Visible Then ' PC_TA %> > ><%= provas_cruzadas.PC_TA.ListViewValue %> <% End If %> <% If provas_cruzadas.PC_AGH.Visible Then ' PC_AGH %> > ><%= provas_cruzadas.PC_AGH.ListViewValue %> <% End If %> <% If provas_cruzadas.CONTROCEL_PC_T1.Visible Then ' CONTROCEL_PC_T1 %> > ><%= provas_cruzadas.CONTROCEL_PC_T1.ListViewValue %> <% End If %> <% If provas_cruzadas.CONTROCEL_PC_T2.Visible Then ' CONTROCEL_PC_T2 %> > ><%= provas_cruzadas.CONTROCEL_PC_T2.ListViewValue %> <% End If %> <% If provas_cruzadas.CONTROCEL_PC.Visible Then ' CONTROCEL_PC %> > ><%= provas_cruzadas.CONTROCEL_PC.ListViewValue %> <% End If %> <% If provas_cruzadas.CONTROCEL_TAD.Visible Then ' CONTROCEL_TAD %> > ><%= provas_cruzadas.CONTROCEL_TAD.ListViewValue %> <% End If %> <% If provas_cruzadas.TESTE_HEMOLISE.Visible Then ' TESTE_HEMOLISE %> > ><%= provas_cruzadas.TESTE_HEMOLISE.ListViewValue %> <% End If %> <% If provas_cruzadas.HORA.Visible Then ' HORA %> > ><%= provas_cruzadas.HORA.ListViewValue %> <% End If %> <% If provas_cruzadas.TECNICO.Visible Then ' TECNICO %> > ><%= provas_cruzadas.TECNICO.ListViewValue %> <% End If %> <% ' Render list options (body, right) provas_cruzadas_list.ListOptions.Render "body", "right" %> <% End If If provas_cruzadas.CurrentAction <> "gridadd" Then provas_cruzadas_list.Recordset.MoveNext() End If Loop %>
<%= provas_cruzadas.ID.FldCaption %>
<%= provas_cruzadas.ID.FldCaption %><% If provas_cruzadas.ID.Sort = "ASC" Then %><% ElseIf provas_cruzadas.ID.Sort = "DESC" Then %><% End If %>
<%= provas_cruzadas.DATA.FldCaption %>
<%= provas_cruzadas.DATA.FldCaption %><% If provas_cruzadas.DATA.Sort = "ASC" Then %><% ElseIf provas_cruzadas.DATA.Sort = "DESC" Then %><% End If %>
<%= provas_cruzadas.REGISTRO_GERAL.FldCaption %>
<%= provas_cruzadas.REGISTRO_GERAL.FldCaption %><% If provas_cruzadas.REGISTRO_GERAL.Sort = "ASC" Then %><% ElseIf provas_cruzadas.REGISTRO_GERAL.Sort = "DESC" Then %><% End If %>
<%= provas_cruzadas.ABO.FldCaption %>
<%= provas_cruzadas.ABO.FldCaption %><% If provas_cruzadas.ABO.Sort = "ASC" Then %><% ElseIf provas_cruzadas.ABO.Sort = "DESC" Then %><% End If %>
<%= provas_cruzadas.RH_D.FldCaption %>
<%= provas_cruzadas.RH_D.FldCaption %><% If provas_cruzadas.RH_D.Sort = "ASC" Then %><% ElseIf provas_cruzadas.RH_D.Sort = "DESC" Then %><% End If %>
<%= provas_cruzadas.RH_C.FldCaption %>
<%= provas_cruzadas.RH_C.FldCaption %><% If provas_cruzadas.RH_C.Sort = "ASC" Then %><% ElseIf provas_cruzadas.RH_C.Sort = "DESC" Then %><% End If %>
<%= provas_cruzadas.REVERSA_A.FldCaption %>
<%= provas_cruzadas.REVERSA_A.FldCaption %><% If provas_cruzadas.REVERSA_A.Sort = "ASC" Then %><% ElseIf provas_cruzadas.REVERSA_A.Sort = "DESC" Then %><% End If %>
<%= provas_cruzadas.REVERSA_B.FldCaption %>
<%= provas_cruzadas.REVERSA_B.FldCaption %><% If provas_cruzadas.REVERSA_B.Sort = "ASC" Then %><% ElseIf provas_cruzadas.REVERSA_B.Sort = "DESC" Then %><% End If %>
<%= provas_cruzadas.TA_T1.FldCaption %>
<%= provas_cruzadas.TA_T1.FldCaption %><% If provas_cruzadas.TA_T1.Sort = "ASC" Then %><% ElseIf provas_cruzadas.TA_T1.Sort = "DESC" Then %><% End If %>
<%= provas_cruzadas.TA_T2.FldCaption %>
<%= provas_cruzadas.TA_T2.FldCaption %><% If provas_cruzadas.TA_T2.Sort = "ASC" Then %><% ElseIf provas_cruzadas.TA_T2.Sort = "DESC" Then %><% End If %>
<%= provas_cruzadas.AGH_T1.FldCaption %>
<%= provas_cruzadas.AGH_T1.FldCaption %><% If provas_cruzadas.AGH_T1.Sort = "ASC" Then %><% ElseIf provas_cruzadas.AGH_T1.Sort = "DESC" Then %><% End If %>
<%= provas_cruzadas.AGH_T2.FldCaption %>
<%= provas_cruzadas.AGH_T2.FldCaption %><% If provas_cruzadas.AGH_T2.Sort = "ASC" Then %><% ElseIf provas_cruzadas.AGH_T2.Sort = "DESC" Then %><% End If %>
<%= provas_cruzadas.TAD.FldCaption %>
<%= provas_cruzadas.TAD.FldCaption %><% If provas_cruzadas.TAD.Sort = "ASC" Then %><% ElseIf provas_cruzadas.TAD.Sort = "DESC" Then %><% End If %>
<%= provas_cruzadas.AUTO_A2FC.FldCaption %>
<%= provas_cruzadas.AUTO_A2FC.FldCaption %><% If provas_cruzadas.AUTO_A2FC.Sort = "ASC" Then %><% ElseIf provas_cruzadas.AUTO_A2FC.Sort = "DESC" Then %><% End If %>
<%= provas_cruzadas.NUMERO_BOLSA.FldCaption %>
<%= provas_cruzadas.NUMERO_BOLSA.FldCaption %><% If provas_cruzadas.NUMERO_BOLSA.Sort = "ASC" Then %><% ElseIf provas_cruzadas.NUMERO_BOLSA.Sort = "DESC" Then %><% End If %>
<%= provas_cruzadas.ABO_RH_BOLSA.FldCaption %>
<%= provas_cruzadas.ABO_RH_BOLSA.FldCaption %><% If provas_cruzadas.ABO_RH_BOLSA.Sort = "ASC" Then %><% ElseIf provas_cruzadas.ABO_RH_BOLSA.Sort = "DESC" Then %><% End If %>
<%= provas_cruzadas.PC_TA.FldCaption %>
<%= provas_cruzadas.PC_TA.FldCaption %><% If provas_cruzadas.PC_TA.Sort = "ASC" Then %><% ElseIf provas_cruzadas.PC_TA.Sort = "DESC" Then %><% End If %>
<%= provas_cruzadas.PC_AGH.FldCaption %>
<%= provas_cruzadas.PC_AGH.FldCaption %><% If provas_cruzadas.PC_AGH.Sort = "ASC" Then %><% ElseIf provas_cruzadas.PC_AGH.Sort = "DESC" Then %><% End If %>
<%= provas_cruzadas.CONTROCEL_PC_T1.FldCaption %>
<%= provas_cruzadas.CONTROCEL_PC_T1.FldCaption %><%= Language.Phrase("SrchLegend") %><% If provas_cruzadas.CONTROCEL_PC_T1.Sort = "ASC" Then %><% ElseIf provas_cruzadas.CONTROCEL_PC_T1.Sort = "DESC" Then %><% End If %>
<%= provas_cruzadas.CONTROCEL_PC_T2.FldCaption %>
<%= provas_cruzadas.CONTROCEL_PC_T2.FldCaption %><%= Language.Phrase("SrchLegend") %><% If provas_cruzadas.CONTROCEL_PC_T2.Sort = "ASC" Then %><% ElseIf provas_cruzadas.CONTROCEL_PC_T2.Sort = "DESC" Then %><% End If %>
<%= provas_cruzadas.CONTROCEL_PC.FldCaption %>
<%= provas_cruzadas.CONTROCEL_PC.FldCaption %><%= Language.Phrase("SrchLegend") %><% If provas_cruzadas.CONTROCEL_PC.Sort = "ASC" Then %><% ElseIf provas_cruzadas.CONTROCEL_PC.Sort = "DESC" Then %><% End If %>
<%= provas_cruzadas.CONTROCEL_TAD.FldCaption %>
<%= provas_cruzadas.CONTROCEL_TAD.FldCaption %><%= Language.Phrase("SrchLegend") %><% If provas_cruzadas.CONTROCEL_TAD.Sort = "ASC" Then %><% ElseIf provas_cruzadas.CONTROCEL_TAD.Sort = "DESC" Then %><% End If %>
<%= provas_cruzadas.TESTE_HEMOLISE.FldCaption %>
<%= provas_cruzadas.TESTE_HEMOLISE.FldCaption %><%= Language.Phrase("SrchLegend") %><% If provas_cruzadas.TESTE_HEMOLISE.Sort = "ASC" Then %><% ElseIf provas_cruzadas.TESTE_HEMOLISE.Sort = "DESC" Then %><% End If %>
<%= provas_cruzadas.HORA.FldCaption %>
<%= provas_cruzadas.HORA.FldCaption %><%= Language.Phrase("SrchLegend") %><% If provas_cruzadas.HORA.Sort = "ASC" Then %><% ElseIf provas_cruzadas.HORA.Sort = "DESC" Then %><% End If %>
<%= provas_cruzadas.TECNICO.FldCaption %>
<%= provas_cruzadas.TECNICO.FldCaption %><% If provas_cruzadas.TECNICO.Sort = "ASC" Then %><% ElseIf provas_cruzadas.TECNICO.Sort = "DESC" Then %><% End If %>
<% End If %>
<% ' Close recordset and connection provas_cruzadas_list.Recordset.Close Set provas_cruzadas_list.Recordset = Nothing %> <% If provas_cruzadas_list.TotalRecs > 0 Then %> <% If provas_cruzadas.Export = "" Then %>
<% If provas_cruzadas.CurrentAction <> "gridadd" And provas_cruzadas.CurrentAction <> "gridedit" Then %>
<% If Not IsObject(provas_cruzadas_list.Pager) Then Set provas_cruzadas_list.Pager = ew_NewPrevNextPager(provas_cruzadas_list.StartRec, provas_cruzadas_list.DisplayRecs, provas_cruzadas_list.TotalRecs) %> <% If provas_cruzadas_list.Pager.RecordCount > 0 Then %> <% If provas_cruzadas_list.Pager.FirstButton.Enabled Then %> <% Else %> <% End If %> <% If provas_cruzadas_list.Pager.PrevButton.Enabled Then %> <% Else %> <% End If %> <% If provas_cruzadas_list.Pager.NextButton.Enabled Then %> <% Else %> <% End If %> <% If provas_cruzadas_list.Pager.LastButton.Enabled Then %> <% Else %> <% End If %>
<%= Language.Phrase("Page") %>  <%= Language.Phrase(" width="16" height="16" border="0"><%= Language.Phrase(" width="16" height="16" border="0"><%= Language.Phrase(" width="16" height="16" border="0"><%= Language.Phrase(" width="16" height="16" border="0"> <%= Language.Phrase(" width="16" height="16" border="0"><%= Language.Phrase(" width="16" height="16" border="0"><%= Language.Phrase(" width="16" height="16" border="0"><%= Language.Phrase(" width="16" height="16" border="0"> <%= Language.Phrase("Of") %> <%= provas_cruzadas_list.Pager.PageCount %>
     <%= Language.Phrase("Record") %> <%= provas_cruzadas_list.Pager.FromIndex %> <%= Language.Phrase("To") %> <%= provas_cruzadas_list.Pager.ToIndex %> <%= Language.Phrase("Of") %> <%= provas_cruzadas_list.Pager.RecordCount %> <% Else %> <% If provas_cruzadas_list.SearchWhere = "0=101" Then %> <%= Language.Phrase("EnterSearchCriteria") %> <% Else %> <%= Language.Phrase("NoRecord") %> <% End If %> <% End If %>
<% End If %> <%= Language.Phrase("AddLink") %>   <% If provas_cruzadas_list.TotalRecs > 0 Then %> <%= Language.Phrase("DeleteSelectedLink") %>   <% End If %>
<% End If %> <% End If %>
<% If provas_cruzadas.Export = "" And provas_cruzadas.CurrentAction = "" Then %> <% End If %> <% provas_cruzadas_list.ShowPageFooter() If EW_DEBUG_ENABLED Then Response.Write ew_DebugMsg() %> <% If provas_cruzadas.Export = "" Then %> <% End If %> <% ' Drop page object Set provas_cruzadas_list = Nothing %> <% ' ----------------------------------------------------------------- ' Page Class ' Class cprovas_cruzadas_list ' Page ID Public Property Get PageID() PageID = "list" End Property ' Table Name Public Property Get TableName() TableName = "provas_cruzadas" End Property ' Page Object Name Public Property Get PageObjName() PageObjName = "provas_cruzadas_list" End Property ' Page Name Public Property Get PageName() PageName = ew_CurrentPage() End Property ' Page Url Public Property Get PageUrl() PageUrl = ew_CurrentPage() & "?" If provas_cruzadas.UseTokenInUrl Then PageUrl = PageUrl & "t=" & provas_cruzadas.TableVar & "&" ' add page token End Property ' Common urls Dim AddUrl Dim EditUrl Dim CopyUrl Dim DeleteUrl Dim ViewUrl Dim ListUrl ' Export urls Dim ExportPrintUrl Dim ExportHtmlUrl Dim ExportExcelUrl Dim ExportWordUrl Dim ExportXmlUrl Dim ExportCsvUrl ' Inline urls Dim InlineAddUrl Dim InlineCopyUrl Dim InlineEditUrl Dim GridAddUrl Dim GridEditUrl Dim MultiDeleteUrl Dim MultiUpdateUrl ' Message Public Property Get Message() Message = Session(EW_SESSION_MESSAGE) End Property Public Property Let Message(v) Dim msg msg = Session(EW_SESSION_MESSAGE) Call ew_AddMessage(msg, v) Session(EW_SESSION_MESSAGE) = msg End Property Public Property Get FailureMessage() FailureMessage = Session(EW_SESSION_FAILURE_MESSAGE) End Property Public Property Let FailureMessage(v) Dim msg msg = Session(EW_SESSION_FAILURE_MESSAGE) Call ew_AddMessage(msg, v) Session(EW_SESSION_FAILURE_MESSAGE) = msg End Property Public Property Get SuccessMessage() SuccessMessage = Session(EW_SESSION_SUCCESS_MESSAGE) End Property Public Property Let SuccessMessage(v) Dim msg msg = Session(EW_SESSION_SUCCESS_MESSAGE) Call ew_AddMessage(msg, v) Session(EW_SESSION_SUCCESS_MESSAGE) = msg End Property ' Show Message Public Sub ShowMessage() Dim sMessage sMessage = Message Call Message_Showing(sMessage, "") If sMessage <> "" Then Response.Write "

" & sMessage & "

" Session(EW_SESSION_MESSAGE) = "" ' Clear message in Session ' Success message Dim sSuccessMessage sSuccessMessage = SuccessMessage Call Message_Showing(sSuccessMessage, "success") If sSuccessMessage <> "" Then Response.Write "

" & sSuccessMessage & "

" Session(EW_SESSION_SUCCESS_MESSAGE) = "" ' Clear message in Session ' Failure message Dim sErrorMessage sErrorMessage = FailureMessage Call Message_Showing(sErrorMessage, "failure") If sErrorMessage <> "" Then Response.Write "

" & sErrorMessage & "

" Session(EW_SESSION_FAILURE_MESSAGE) = "" ' Clear message in Session End Sub Dim PageHeader Dim PageFooter ' Show Page Header Public Sub ShowPageHeader() Dim sHeader sHeader = PageHeader Call Page_DataRendering(sHeader) If sHeader <> "" Then ' Header exists, display Response.Write "

" & sHeader & "

" End If End Sub ' Show Page Footer Public Sub ShowPageFooter() Dim sFooter sFooter = PageFooter Call Page_DataRendered(sFooter) If sFooter <> "" Then ' Footer exists, display Response.Write "

" & sFooter & "

" End If End Sub ' ----------------------- ' Validate Page request ' Public Function IsPageRequest() If provas_cruzadas.UseTokenInUrl Then IsPageRequest = False If Not (ObjForm Is Nothing) Then IsPageRequest = (provas_cruzadas.TableVar = ObjForm.GetValue("t")) End If If Request.QueryString("t").Count > 0 Then IsPageRequest = (provas_cruzadas.TableVar = Request.QueryString("t")) End If Else IsPageRequest = True End If End Function ' ----------------------------------------------------------------- ' Class initialize ' - init objects ' - open ADO connection ' Private Sub Class_Initialize() If IsEmpty(StartTimer) Then StartTimer = Timer ' Init start time ' Initialize language object If IsEmpty(Language) Then Set Language = New cLanguage Call Language.LoadPhrases() End If ' Initialize table object If IsEmpty(provas_cruzadas) Then Set provas_cruzadas = New cprovas_cruzadas Set Table = provas_cruzadas ' Initialize urls ExportPrintUrl = PageUrl & "export=print" ExportExcelUrl = PageUrl & "export=excel" ExportWordUrl = PageUrl & "export=word" ExportHtmlUrl = PageUrl & "export=html" ExportXmlUrl = PageUrl & "export=xml" ExportCsvUrl = PageUrl & "export=csv" AddUrl = "provas_cruzadasadd.asp" InlineAddUrl = PageUrl & "a=add" GridAddUrl = PageUrl & "a=gridadd" GridEditUrl = PageUrl & "a=gridedit" MultiDeleteUrl = "provas_cruzadasdelete.asp" MultiUpdateUrl = "provas_cruzadasupdate.asp" ' Initialize other table object If IsEmpty(receptor) Then Set receptor = New creceptor ' Initialize form object Set ObjForm = Nothing ' Intialize page id (for backward compatibility) EW_PAGE_ID = "list" ' Initialize table name (for backward compatibility) EW_TABLE_NAME = "provas_cruzadas" ' Open connection to the database If IsEmpty(Conn) Then Call ew_Connect() ' Initialize list options Set ListOptions = New cListOptions ' Export options Set ExportOptions = New cListOptions ExportOptions.Tag = "span" ExportOptions.Separator = "  " End Sub ' ----------------------------------------------------------------- ' Subroutine Page_Init ' - called before page main ' - check Security ' - set up response header ' - call page load events ' Sub Page_Init() ' Get export parameters If Request.QueryString("export").Count > 0 Then provas_cruzadas.Export = Request.QueryString("export") ElseIf Request.ServerVariables("HTTP_CONTENT_TYPE") = "application/x-www-form-urlencoded" Then If Request.Form("exporttype").Count > 0 Then provas_cruzadas.Export = Request.Form("exporttype") End If Else provas_cruzadas.ExportReturnUrl = ew_CurrentUrl() End If gsExport = provas_cruzadas.Export ' Get export parameter, used in header gsExportFile = provas_cruzadas.TableVar ' Get export file, used in header Dim Charset ' Charset used in header If EW_CHARSET <> "" Then Charset = ";charset=" & EW_CHARSET Else Charset = "" End If If provas_cruzadas.Export = "excel" Then Response.ContentType = "application/vnd.ms-excel" & Charset Response.AddHeader "Content-Disposition", "attachment; filename=" & gsExportFile & ".xls" End If If provas_cruzadas.Export = "csv" Then Response.ContentType = "application/csv" & Charset Response.AddHeader "Content-Disposition:", "attachment; filename=" & gsExportFile & ".csv" End If ' Get grid add count Dim gridaddcnt gridaddcnt = Request.QueryString(EW_TABLE_GRID_ADD_ROW_COUNT) If IsNumeric(gridaddcnt) Then If gridaddcnt > 0 Then provas_cruzadas.GridAddRowCount = gridaddcnt End If End If ' Set up list options SetupListOptions() ' Setup export options SetupExportOptions() ' Global page loading event (in userfn7.asp) Call Page_Loading() ' Page load event, used in current page Call Page_Load() End Sub ' ----------------------------------------------------------------- ' Class terminate ' - clean up page object ' Private Sub Class_Terminate() Call Page_Terminate("") End Sub ' ----------------------------------------------------------------- ' Subroutine Page_Terminate ' - called when exit page ' - clean up ADO connection and objects ' - if url specified, redirect to url ' Sub Page_Terminate(url) ' Page unload event, used in current page Call Page_Unload() ' Global page unloaded event (in userfn60.asp) Call Page_Unloaded() Dim sRedirectUrl sReDirectUrl = url Call Page_Redirecting(sReDirectUrl) If Not (Conn Is Nothing) Then Conn.Close ' Close Connection Set Conn = Nothing Set provas_cruzadas = Nothing Set ListOptions = Nothing Set ObjForm = Nothing ' Go to url if specified If sReDirectUrl <> "" Then If Response.Buffer Then Response.Clear Response.Redirect sReDirectUrl End If End Sub ' ' Subroutine Page_Terminate (End) ' ---------------------------------------- Dim DisplayRecs ' Number of display records Dim StartRec, StopRec, TotalRecs, RecRange Dim SearchWhere Dim RecCnt Dim EditRowCnt Dim RowCnt, RowIndex Dim RecPerRow, ColCnt Dim KeyCount Dim RowAction Dim RowOldKey ' Row old key (for copy) Dim DbMasterFilter, DbDetailFilter Dim MasterRecordExists Dim ListOptions Dim ExportOptions Dim MultiSelectKey Dim RestoreSearch Dim Recordset, OldRecordset ' ----------------------------------------------------------------- ' Page main processing ' Sub Page_Main() DisplayRecs = 20 RecRange = 10 RecCnt = 0 ' Record count KeyCount = 0 ' Key count ' Search filters Dim sSrchAdvanced, sSrchBasic, sFilter sSrchAdvanced = "" ' Advanced search filter sSrchBasic = "" ' Basic search filter SearchWhere = "" ' Search where clause sFilter = "" ' Master/Detail DbMasterFilter = "" ' Master filter DbDetailFilter = "" ' Detail filter If IsPageRequest Then ' Validate request ' Handle reset command ResetCmd() ' Set up master detail parameters SetUpMasterParms() ' Hide all options If provas_cruzadas.Export <> "" Or provas_cruzadas.CurrentAction = "gridadd" Or provas_cruzadas.CurrentAction = "gridedit" Then ListOptions.HideAllOptions() ExportOptions.HideAllOptions() End If ' Get basic search values Call LoadBasicSearchValues() ' Restore search parms from Session Call RestoreSearchParms() ' Call Recordset SearchValidated event Call provas_cruzadas.Recordset_SearchValidated() ' Set Up Sorting Order SetUpSortOrder() ' Get basic search criteria If gsSearchError = "" Then sSrchBasic = BasicSearchWhere() End If End If ' End Validate Request ' Restore display records If provas_cruzadas.RecordsPerPage <> "" Then DisplayRecs = provas_cruzadas.RecordsPerPage ' Restore from Session Else DisplayRecs = 20 ' Load default End If ' Load Sorting Order LoadSortOrder() ' Build search criteria Call ew_AddFilter(SearchWhere, sSrchAdvanced) Call ew_AddFilter(SearchWhere, sSrchBasic) ' Call Recordset Searching event Call provas_cruzadas.Recordset_Searching(SearchWhere) ' Save search criteria If SearchWhere <> "" Then If sSrchBasic = "" Then Call ResetBasicSearchParms() provas_cruzadas.SearchWhere = SearchWhere ' Save to Session If Not RestoreSearch Then StartRec = 1 ' Reset start record counter provas_cruzadas.StartRecordNumber = StartRec End If Else SearchWhere = provas_cruzadas.SearchWhere End If sFilter = "" ' Restore master/detail filter DbMasterFilter = provas_cruzadas.MasterFilter ' Restore master filter DbDetailFilter = provas_cruzadas.DetailFilter ' Restore detail filter Call ew_AddFilter(sFilter, DbDetailFilter) Call ew_AddFilter(sFilter, SearchWhere) Dim RsMaster ' Load master record If provas_cruzadas.MasterFilter <> "" And provas_cruzadas.CurrentMasterTable = "receptor" Then Set RsMaster = receptor.LoadRs(DbMasterFilter) MasterRecordExists = Not (RsMaster Is Nothing) If Not MasterRecordExists Then FailureMessage = Language.Phrase("NoRecord") ' Set no record found Call Page_Terminate(provas_cruzadas.ReturnUrl) ' Return to caller Else Call receptor.LoadListRowValues(RsMaster) receptor.RowType = EW_ROWTYPE_MASTER ' Master row Call receptor.RenderListRow() RsMaster.Close Set RsMaster = Nothing End If End If ' Set up filter in Session provas_cruzadas.SessionWhere = sFilter provas_cruzadas.CurrentFilter = "" ' Export Data only If provas_cruzadas.Export = "html" Or provas_cruzadas.Export = "csv" Or provas_cruzadas.Export = "word" Or provas_cruzadas.Export = "excel" Or provas_cruzadas.Export = "xml" Then Call ExportData() Call Page_Terminate("") ' Clean up Response.End ' Terminate response ElseIf provas_cruzadas.Export = "email" Then Call ExportData() Response.End End If End Sub ' ----------------------------------------------------------------- ' Return Basic Search sql ' Function BasicSearchSQL(Keyword) Dim sWhere sWhere = "" Call BuildBasicSearchSQL(sWhere, provas_cruzadas.ABO, Keyword) Call BuildBasicSearchSQL(sWhere, provas_cruzadas.RH_D, Keyword) Call BuildBasicSearchSQL(sWhere, provas_cruzadas.RH_C, Keyword) Call BuildBasicSearchSQL(sWhere, provas_cruzadas.REVERSA_A, Keyword) Call BuildBasicSearchSQL(sWhere, provas_cruzadas.REVERSA_B, Keyword) Call BuildBasicSearchSQL(sWhere, provas_cruzadas.TA_T1, Keyword) Call BuildBasicSearchSQL(sWhere, provas_cruzadas.TA_T2, Keyword) Call BuildBasicSearchSQL(sWhere, provas_cruzadas.AGH_T1, Keyword) Call BuildBasicSearchSQL(sWhere, provas_cruzadas.AGH_T2, Keyword) Call BuildBasicSearchSQL(sWhere, provas_cruzadas.TAD, Keyword) Call BuildBasicSearchSQL(sWhere, provas_cruzadas.AUTO_A2FC, Keyword) Call BuildBasicSearchSQL(sWhere, provas_cruzadas.ABO_RH_BOLSA, Keyword) Call BuildBasicSearchSQL(sWhere, provas_cruzadas.PC_TA, Keyword) Call BuildBasicSearchSQL(sWhere, provas_cruzadas.PC_AGH, Keyword) Call BuildBasicSearchSQL(sWhere, provas_cruzadas.CONTROCEL_PC_T1, Keyword) Call BuildBasicSearchSQL(sWhere, provas_cruzadas.CONTROCEL_PC_T2, Keyword) Call BuildBasicSearchSQL(sWhere, provas_cruzadas.CONTROCEL_PC, Keyword) Call BuildBasicSearchSQL(sWhere, provas_cruzadas.CONTROCEL_TAD, Keyword) Call BuildBasicSearchSQL(sWhere, provas_cruzadas.TESTE_HEMOLISE, Keyword) Call BuildBasicSearchSQL(sWhere, provas_cruzadas.HORA, Keyword) Call BuildBasicSearchSQL(sWhere, provas_cruzadas.TECNICO, Keyword) Call BuildBasicSearchSQL(sWhere, provas_cruzadas.OBS, Keyword) BasicSearchSQL = sWhere End Function ' ----------------------------------------------------------------- ' Build basic search sql ' Sub BuildBasicSearchSql(Where, Fld, Keyword) Dim sFldExpression, lFldDataType Dim sWrk If Fld.FldVirtualExpression <> "" Then sFldExpression = Fld.FldVirtualExpression Else sFldExpression = Fld.FldExpression End If lFldDataType = Fld.FldDataType If Fld.FldIsVirtual Then lFldDataType = EW_DATATYPE_STRING If lFldDataType = EW_DATATYPE_NUMBER Then sWrk = sFldExpression & " = " & ew_QuotedValue(Keyword, lFldDataType) Else sWrk = sFldExpression & ew_Like(ew_QuotedValue("%" & Keyword & "%", lFldDataType)) End If If Where <> "" Then Where = Where & " OR " Where = Where & sWrk End Sub ' ----------------------------------------------------------------- ' Return Basic Search Where based on search keyword and type ' Function BasicSearchWhere() Dim sSearchStr, sSearchKeyword, sSearchType Dim sSearch, arKeyword, sKeyword sSearchStr = "" sSearchKeyword = provas_cruzadas.BasicSearchKeyword sSearchType = provas_cruzadas.BasicSearchType If sSearchKeyword <> "" Then sSearch = Trim(sSearchKeyword) If sSearchType <> "" Then While InStr(sSearch, " ") > 0 sSearch = Replace(sSearch, " ", " ") Wend arKeyword = Split(Trim(sSearch), " ") For Each sKeyword In arKeyword If sSearchStr <> "" Then sSearchStr = sSearchStr & " " & sSearchType & " " sSearchStr = sSearchStr & "(" & BasicSearchSQL(sKeyword) & ")" Next Else sSearchStr = BasicSearchSQL(sSearch) End If End If If sSearchKeyword <> "" then provas_cruzadas.SessionBasicSearchKeyword = sSearchKeyword provas_cruzadas.SessionBasicSearchType = sSearchType End If BasicSearchWhere = sSearchStr End Function ' ----------------------------------------------------------------- ' Clear all search parameters ' Sub ResetSearchParms() ' Clear search where SearchWhere = "" provas_cruzadas.SearchWhere = SearchWhere ' Clear basic search parameters Call ResetBasicSearchParms() End Sub ' ----------------------------------------------------------------- ' Clear all basic search parameters ' Sub ResetBasicSearchParms() ' Clear basic search parameters provas_cruzadas.SessionBasicSearchKeyword = "" provas_cruzadas.SessionBasicSearchType = "" End Sub ' ----------------------------------------------------------------- ' Restore all search parameters ' Sub RestoreSearchParms() Dim bRestore bRestore = True If provas_cruzadas.BasicSearchKeyword & "" <> "" Then bRestore = False RestoreSearch = bRestore If bRestore Then ' Restore basic search values provas_cruzadas.BasicSearchKeyword = provas_cruzadas.SessionBasicSearchKeyword provas_cruzadas.BasicSearchType = provas_cruzadas.SessionBasicSearchType End If End Sub ' ----------------------------------------------------------------- ' Set up Sort parameters based on Sort Links clicked ' Sub SetUpSortOrder() Dim sOrderBy Dim sSortField, sLastSort, sThisSort Dim bCtrl ' Check for an Order parameter If Request.QueryString("order").Count > 0 Then provas_cruzadas.CurrentOrder = Request.QueryString("order") provas_cruzadas.CurrentOrderType = Request.QueryString("ordertype") ' Field ID Call provas_cruzadas.UpdateSort(provas_cruzadas.ID) ' Field DATA Call provas_cruzadas.UpdateSort(provas_cruzadas.DATA) ' Field REGISTRO_GERAL Call provas_cruzadas.UpdateSort(provas_cruzadas.REGISTRO_GERAL) ' Field ABO Call provas_cruzadas.UpdateSort(provas_cruzadas.ABO) ' Field RH_D Call provas_cruzadas.UpdateSort(provas_cruzadas.RH_D) ' Field RH_C Call provas_cruzadas.UpdateSort(provas_cruzadas.RH_C) ' Field REVERSA_A Call provas_cruzadas.UpdateSort(provas_cruzadas.REVERSA_A) ' Field REVERSA_B Call provas_cruzadas.UpdateSort(provas_cruzadas.REVERSA_B) ' Field TA_T1 Call provas_cruzadas.UpdateSort(provas_cruzadas.TA_T1) ' Field TA_T2 Call provas_cruzadas.UpdateSort(provas_cruzadas.TA_T2) ' Field AGH_T1 Call provas_cruzadas.UpdateSort(provas_cruzadas.AGH_T1) ' Field AGH_T2 Call provas_cruzadas.UpdateSort(provas_cruzadas.AGH_T2) ' Field TAD Call provas_cruzadas.UpdateSort(provas_cruzadas.TAD) ' Field AUTO_A/C Call provas_cruzadas.UpdateSort(provas_cruzadas.AUTO_A2FC) ' Field NUMERO_BOLSA Call provas_cruzadas.UpdateSort(provas_cruzadas.NUMERO_BOLSA) ' Field ABO_RH_BOLSA Call provas_cruzadas.UpdateSort(provas_cruzadas.ABO_RH_BOLSA) ' Field PC_TA Call provas_cruzadas.UpdateSort(provas_cruzadas.PC_TA) ' Field PC_AGH Call provas_cruzadas.UpdateSort(provas_cruzadas.PC_AGH) ' Field CONTROCEL_PC_T1 Call provas_cruzadas.UpdateSort(provas_cruzadas.CONTROCEL_PC_T1) ' Field CONTROCEL_PC_T2 Call provas_cruzadas.UpdateSort(provas_cruzadas.CONTROCEL_PC_T2) ' Field CONTROCEL_PC Call provas_cruzadas.UpdateSort(provas_cruzadas.CONTROCEL_PC) ' Field CONTROCEL_TAD Call provas_cruzadas.UpdateSort(provas_cruzadas.CONTROCEL_TAD) ' Field TESTE_HEMOLISE Call provas_cruzadas.UpdateSort(provas_cruzadas.TESTE_HEMOLISE) ' Field HORA Call provas_cruzadas.UpdateSort(provas_cruzadas.HORA) ' Field TECNICO Call provas_cruzadas.UpdateSort(provas_cruzadas.TECNICO) provas_cruzadas.StartRecordNumber = 1 ' Reset start position End If End Sub ' ----------------------------------------------------------------- ' Load Sort Order parameters ' Sub LoadSortOrder() Dim sOrderBy sOrderBy = provas_cruzadas.SessionOrderBy ' Get order by from Session If sOrderBy = "" Then If provas_cruzadas.SqlOrderBy <> "" Then sOrderBy = provas_cruzadas.SqlOrderBy provas_cruzadas.SessionOrderBy = sOrderBy provas_cruzadas.DATA.Sort = "DESC" End If End If End Sub ' ----------------------------------------------------------------- ' Reset command based on querystring parameter cmd= ' - RESET: reset search parameters ' - RESETALL: reset search & master/detail parameters ' - RESETSORT: reset sort parameters ' Sub ResetCmd() Dim sCmd ' Get reset cmd If Request.QueryString("cmd").Count > 0 Then sCmd = Request.QueryString("cmd") ' Reset search criteria If LCase(sCmd) = "reset" Or LCase(sCmd) = "resetall" Then Call ResetSearchParms() End If ' Reset master/detail keys If LCase(sCmd) = "resetall" Then provas_cruzadas.CurrentMasterTable = "" ' Clear master table DbMasterFilter = "" DbDetailFilter = "" provas_cruzadas.REGISTRO_GERAL.SessionValue = "" End If ' Reset Sort Criteria If LCase(sCmd) = "resetsort" Then Dim sOrderBy sOrderBy = "" provas_cruzadas.SessionOrderBy = sOrderBy provas_cruzadas.SessionOrderByList = sOrderBy provas_cruzadas.ID.Sort = "" provas_cruzadas.DATA.Sort = "" provas_cruzadas.REGISTRO_GERAL.Sort = "" provas_cruzadas.ABO.Sort = "" provas_cruzadas.RH_D.Sort = "" provas_cruzadas.RH_C.Sort = "" provas_cruzadas.REVERSA_A.Sort = "" provas_cruzadas.REVERSA_B.Sort = "" provas_cruzadas.TA_T1.Sort = "" provas_cruzadas.TA_T2.Sort = "" provas_cruzadas.AGH_T1.Sort = "" provas_cruzadas.AGH_T2.Sort = "" provas_cruzadas.TAD.Sort = "" provas_cruzadas.AUTO_A2FC.Sort = "" provas_cruzadas.NUMERO_BOLSA.Sort = "" provas_cruzadas.ABO_RH_BOLSA.Sort = "" provas_cruzadas.PC_TA.Sort = "" provas_cruzadas.PC_AGH.Sort = "" provas_cruzadas.CONTROCEL_PC_T1.Sort = "" provas_cruzadas.CONTROCEL_PC_T2.Sort = "" provas_cruzadas.CONTROCEL_PC.Sort = "" provas_cruzadas.CONTROCEL_TAD.Sort = "" provas_cruzadas.TESTE_HEMOLISE.Sort = "" provas_cruzadas.HORA.Sort = "" provas_cruzadas.TECNICO.Sort = "" End If ' Reset start position StartRec = 1 provas_cruzadas.StartRecordNumber = StartRec End If End Sub ' Set up list options Sub SetupListOptions() Dim item ListOptions.Add("edit") ListOptions.GetItem("edit").CssStyle = "white-space: nowrap;" ListOptions.GetItem("edit").Visible = True ListOptions.GetItem("edit").OnLeft = True ListOptions.Add("checkbox") ListOptions.GetItem("checkbox").CssStyle = "white-space: nowrap;" ListOptions.GetItem("checkbox").Visible = True ListOptions.GetItem("checkbox").OnLeft = True ListOptions.MoveItem "checkbox", 0 ' Move to first column ListOptions.GetItem("checkbox").Header = "" Call ListOptions_Load() End Sub ' Render list options Sub RenderListOptions() Dim item, links ListOptions.LoadDefault() If ListOptions.GetItem("edit").Visible Then Set item = ListOptions.GetItem("edit") item.Body = "" & Language.Phrase("EditLink") & "" End If If ListOptions.GetItem("checkbox").Visible Then ListOptions.GetItem("checkbox").Body = "" End If Call RenderListOptionsExt() Call ListOptions_Rendered() End Sub Function RenderListOptionsExt() End Function Dim Pager ' ----------------------------------------------------------------- ' Set up Starting Record parameters based on Pager Navigation ' Sub SetUpStartRec() Dim PageNo ' Exit if DisplayRecs = 0 If DisplayRecs = 0 Then Exit Sub If IsPageRequest Then ' Validate request ' Check for a START parameter If Request.QueryString(EW_TABLE_START_REC).Count > 0 Then StartRec = Request.QueryString(EW_TABLE_START_REC) provas_cruzadas.StartRecordNumber = StartRec ElseIf Request.QueryString(EW_TABLE_PAGE_NO).Count > 0 Then PageNo = Request.QueryString(EW_TABLE_PAGE_NO) If IsNumeric(PageNo) Then StartRec = (PageNo-1)*DisplayRecs+1 If StartRec <= 0 Then StartRec = 1 ElseIf StartRec >= ((TotalRecs-1)\DisplayRecs)*DisplayRecs+1 Then StartRec = ((TotalRecs-1)\DisplayRecs)*DisplayRecs+1 End If provas_cruzadas.StartRecordNumber = StartRec End If End If End If StartRec = provas_cruzadas.StartRecordNumber ' Check if correct start record counter If Not IsNumeric(StartRec) Or StartRec = "" Then ' Avoid invalid start record counter StartRec = 1 ' Reset start record counter provas_cruzadas.StartRecordNumber = StartRec ElseIf CLng(StartRec) > CLng(TotalRecs) Then ' Avoid starting record > total records StartRec = ((TotalRecs-1)\DisplayRecs)*DisplayRecs+1 ' Point to last page first record provas_cruzadas.StartRecordNumber = StartRec ElseIf (StartRec-1) Mod DisplayRecs <> 0 Then StartRec = ((StartRec-1)\DisplayRecs)*DisplayRecs+1 ' Point to page boundary provas_cruzadas.StartRecordNumber = StartRec End If End Sub ' ----------------------------------------------------------------- ' Load basic search values ' Function LoadBasicSearchValues() provas_cruzadas.BasicSearchKeyword = Request.QueryString(EW_TABLE_BASIC_SEARCH) provas_cruzadas.BasicSearchType = Request.QueryString(EW_TABLE_BASIC_SEARCH_TYPE) End Function ' ----------------------------------------------------------------- ' Load recordset ' Function LoadRecordset() ' Call Recordset Selecting event Dim sFilter sFilter = provas_cruzadas.CurrentFilter Call provas_cruzadas.Recordset_Selecting(sFilter) provas_cruzadas.CurrentFilter = sFilter ' Load list page sql Dim sSql sSql = provas_cruzadas.ListSQL Call ew_SetDebugMsg("LoadRecordset: " & sSql) ' Show SQL for debugging ' Load recordset Dim RsRecordset Set RsRecordset = ew_LoadRecordset(sSql) ' Call Recordset Selected event Call provas_cruzadas.Recordset_Selected(RsRecordset) Set LoadRecordset = RsRecordset End Function ' ----------------------------------------------------------------- ' Load row based on key values ' Function LoadRow() Dim RsRow, sSql, sFilter sFilter = provas_cruzadas.KeyFilter ' Call Row Selecting event Call provas_cruzadas.Row_Selecting(sFilter) ' Load sql based on filter provas_cruzadas.CurrentFilter = sFilter sSql = provas_cruzadas.SQL Call ew_SetDebugMsg("LoadRow: " & sSql) ' Show SQL for debugging Set RsRow = ew_LoadRow(sSql) If RsRow.Eof Then LoadRow = False Else LoadRow = True RsRow.MoveFirst Call LoadRowValues(RsRow) ' Load row values End If RsRow.Close Set RsRow = Nothing End Function ' ----------------------------------------------------------------- ' Load row values from recordset ' Sub LoadRowValues(RsRow) Dim sDetailFilter If RsRow.Eof Then Exit Sub ' Call Row Selected event Call provas_cruzadas.Row_Selected(RsRow) provas_cruzadas.ID.DbValue = RsRow("ID") provas_cruzadas.DATA.DbValue = RsRow("DATA") provas_cruzadas.REGISTRO_GERAL.DbValue = RsRow("REGISTRO_GERAL") If ew_FieldExistInRs(RsRow, "EV__REGISTRO_GERAL") Then provas_cruzadas.REGISTRO_GERAL.VirtualValue = RsRow("EV__REGISTRO_GERAL") ' Set up virtual field value Else provas_cruzadas.REGISTRO_GERAL.VirtualValue = "" ' Clear value End If provas_cruzadas.ABO.DbValue = RsRow("ABO") provas_cruzadas.RH_D.DbValue = RsRow("RH_D") provas_cruzadas.RH_C.DbValue = RsRow("RH_C") provas_cruzadas.REVERSA_A.DbValue = RsRow("REVERSA_A") provas_cruzadas.REVERSA_B.DbValue = RsRow("REVERSA_B") provas_cruzadas.TA_T1.DbValue = RsRow("TA_T1") provas_cruzadas.TA_T2.DbValue = RsRow("TA_T2") provas_cruzadas.AGH_T1.DbValue = RsRow("AGH_T1") provas_cruzadas.AGH_T2.DbValue = RsRow("AGH_T2") provas_cruzadas.TAD.DbValue = RsRow("TAD") provas_cruzadas.AUTO_A2FC.DbValue = RsRow("AUTO_A/C") provas_cruzadas.NUMERO_BOLSA.DbValue = RsRow("NUMERO_BOLSA") If ew_FieldExistInRs(RsRow, "EV__NUMERO_BOLSA") Then provas_cruzadas.NUMERO_BOLSA.VirtualValue = RsRow("EV__NUMERO_BOLSA") ' Set up virtual field value Else provas_cruzadas.NUMERO_BOLSA.VirtualValue = "" ' Clear value End If provas_cruzadas.ABO_RH_BOLSA.DbValue = RsRow("ABO_RH_BOLSA") provas_cruzadas.PC_TA.DbValue = RsRow("PC_TA") provas_cruzadas.PC_AGH.DbValue = RsRow("PC_AGH") provas_cruzadas.CONTROCEL_PC_T1.DbValue = RsRow("CONTROCEL_PC_T1") provas_cruzadas.CONTROCEL_PC_T2.DbValue = RsRow("CONTROCEL_PC_T2") provas_cruzadas.CONTROCEL_PC.DbValue = RsRow("CONTROCEL_PC") provas_cruzadas.CONTROCEL_TAD.DbValue = RsRow("CONTROCEL_TAD") provas_cruzadas.TESTE_HEMOLISE.DbValue = RsRow("TESTE_HEMOLISE") provas_cruzadas.HORA.DbValue = RsRow("HORA") provas_cruzadas.TECNICO.DbValue = RsRow("TECNICO") If ew_FieldExistInRs(RsRow, "EV__TECNICO") Then provas_cruzadas.TECNICO.VirtualValue = RsRow("EV__TECNICO") ' Set up virtual field value Else provas_cruzadas.TECNICO.VirtualValue = "" ' Clear value End If provas_cruzadas.OBS.DbValue = RsRow("OBS") End Sub ' Load old record Function LoadOldRecord() ' Load key values from Session Dim bValidKey bValidKey = True If provas_cruzadas.GetKey("ID")&"" <> "" Then provas_cruzadas.ID.CurrentValue = provas_cruzadas.GetKey("ID") ' ID Else bValidKey = False End If ' Load old recordset If bValidKey Then provas_cruzadas.CurrentFilter = provas_cruzadas.KeyFilter Dim sSql sSql = provas_cruzadas.SQL Set OldRecordset = ew_LoadRecordset(sSql) Call LoadRowValues(OldRecordset) ' Load row values Else OldRecordset = Null End If LoadOldRecord = bValidKey End Function ' ----------------------------------------------------------------- ' Render row values based on field settings ' Sub RenderRow() ' Initialize urls ViewUrl = provas_cruzadas.ViewUrl EditUrl = provas_cruzadas.EditUrl("") InlineEditUrl = provas_cruzadas.InlineEditUrl CopyUrl = provas_cruzadas.CopyUrl("") InlineCopyUrl = provas_cruzadas.InlineCopyUrl DeleteUrl = provas_cruzadas.DeleteUrl ' Call Row Rendering event Call provas_cruzadas.Row_Rendering() ' --------------------------------------- ' Common render codes for all row types ' --------------------------------------- ' ID ' DATA ' REGISTRO_GERAL ' ABO ' RH_D ' RH_C ' REVERSA_A ' REVERSA_B ' TA_T1 ' TA_T2 ' AGH_T1 ' AGH_T2 ' TAD ' AUTO_A/C ' NUMERO_BOLSA ' ABO_RH_BOLSA ' PC_TA ' PC_AGH ' CONTROCEL_PC_T1 ' CONTROCEL_PC_T2 ' CONTROCEL_PC ' CONTROCEL_TAD ' TESTE_HEMOLISE ' HORA ' TECNICO ' OBS ' ----------- ' View Row ' ----------- If provas_cruzadas.RowType = EW_ROWTYPE_VIEW Then ' View row ' ID provas_cruzadas.ID.ViewValue = provas_cruzadas.ID.CurrentValue provas_cruzadas.ID.CssStyle = "text-align:center;" provas_cruzadas.ID.ViewCustomAttributes = "" ' DATA provas_cruzadas.DATA.ViewValue = provas_cruzadas.DATA.CurrentValue provas_cruzadas.DATA.ViewValue = ew_FormatDateTime(provas_cruzadas.DATA.ViewValue, 7) provas_cruzadas.DATA.CssStyle = "text-align:center;" provas_cruzadas.DATA.ViewCustomAttributes = "" ' REGISTRO_GERAL If provas_cruzadas.REGISTRO_GERAL.VirtualValue <> "" Then provas_cruzadas.REGISTRO_GERAL.ViewValue = provas_cruzadas.REGISTRO_GERAL.VirtualValue Else If provas_cruzadas.REGISTRO_GERAL.CurrentValue & "" <> "" Then sFilterWrk = "`REGISTRO_GERAL` = " & ew_AdjustSql(provas_cruzadas.REGISTRO_GERAL.CurrentValue) & "" sSqlWrk = "SELECT `REGISTRO_GERAL` FROM `receptor`" sWhereWrk = "" Call ew_AddFilter(sWhereWrk, sFilterWrk) If sWhereWrk <> "" Then sSqlWrk = sSqlWrk & " WHERE " & sWhereWrk sSqlWrk = sSqlWrk & " ORDER BY `REGISTRO_GERAL` Desc" Set RsWrk = Conn.Execute(sSqlWrk) If Not RsWrk.Eof Then provas_cruzadas.REGISTRO_GERAL.ViewValue = RsWrk("REGISTRO_GERAL") Else provas_cruzadas.REGISTRO_GERAL.ViewValue = provas_cruzadas.REGISTRO_GERAL.CurrentValue End If RsWrk.Close Set RsWrk = Nothing Else provas_cruzadas.REGISTRO_GERAL.ViewValue = Null End If End If provas_cruzadas.REGISTRO_GERAL.CssStyle = "text-align:center;" provas_cruzadas.REGISTRO_GERAL.ViewCustomAttributes = "" ' ABO If Not IsNull(provas_cruzadas.ABO.CurrentValue) Then Select Case provas_cruzadas.ABO.CurrentValue Case "A" provas_cruzadas.ABO.ViewValue = ew_IIf(provas_cruzadas.ABO.FldTagCaption(1) <> "", provas_cruzadas.ABO.FldTagCaption(1), "A") Case "B" provas_cruzadas.ABO.ViewValue = ew_IIf(provas_cruzadas.ABO.FldTagCaption(2) <> "", provas_cruzadas.ABO.FldTagCaption(2), "B") Case "AB" provas_cruzadas.ABO.ViewValue = ew_IIf(provas_cruzadas.ABO.FldTagCaption(3) <> "", provas_cruzadas.ABO.FldTagCaption(3), "AB") Case "O" provas_cruzadas.ABO.ViewValue = ew_IIf(provas_cruzadas.ABO.FldTagCaption(4) <> "", provas_cruzadas.ABO.FldTagCaption(4), "O") Case Else provas_cruzadas.ABO.ViewValue = provas_cruzadas.ABO.CurrentValue End Select Else provas_cruzadas.ABO.ViewValue = Null End If provas_cruzadas.ABO.CssStyle = "text-align:center;" provas_cruzadas.ABO.ViewCustomAttributes = "" ' RH_D If Not IsNull(provas_cruzadas.RH_D.CurrentValue) Then Select Case provas_cruzadas.RH_D.CurrentValue Case "NEG" provas_cruzadas.RH_D.ViewValue = ew_IIf(provas_cruzadas.RH_D.FldTagCaption(1) <> "", provas_cruzadas.RH_D.FldTagCaption(1), "NEG") Case "POS" provas_cruzadas.RH_D.ViewValue = ew_IIf(provas_cruzadas.RH_D.FldTagCaption(2) <> "", provas_cruzadas.RH_D.FldTagCaption(2), "POS") Case Else provas_cruzadas.RH_D.ViewValue = provas_cruzadas.RH_D.CurrentValue End Select Else provas_cruzadas.RH_D.ViewValue = Null End If provas_cruzadas.RH_D.CssStyle = "text-align:center;" provas_cruzadas.RH_D.ViewCustomAttributes = "" ' RH_C If Not IsNull(provas_cruzadas.RH_C.CurrentValue) Then Select Case provas_cruzadas.RH_C.CurrentValue Case "NEG" provas_cruzadas.RH_C.ViewValue = ew_IIf(provas_cruzadas.RH_C.FldTagCaption(1) <> "", provas_cruzadas.RH_C.FldTagCaption(1), "NEG") Case "POS" provas_cruzadas.RH_C.ViewValue = ew_IIf(provas_cruzadas.RH_C.FldTagCaption(2) <> "", provas_cruzadas.RH_C.FldTagCaption(2), "POS") Case Else provas_cruzadas.RH_C.ViewValue = provas_cruzadas.RH_C.CurrentValue End Select Else provas_cruzadas.RH_C.ViewValue = Null End If provas_cruzadas.RH_C.CssStyle = "text-align:center;" provas_cruzadas.RH_C.ViewCustomAttributes = "" ' REVERSA_A If Not IsNull(provas_cruzadas.REVERSA_A.CurrentValue) Then Select Case provas_cruzadas.REVERSA_A.CurrentValue Case "NEG" provas_cruzadas.REVERSA_A.ViewValue = ew_IIf(provas_cruzadas.REVERSA_A.FldTagCaption(1) <> "", provas_cruzadas.REVERSA_A.FldTagCaption(1), "NEG") Case "POS" provas_cruzadas.REVERSA_A.ViewValue = ew_IIf(provas_cruzadas.REVERSA_A.FldTagCaption(2) <> "", provas_cruzadas.REVERSA_A.FldTagCaption(2), "POS") Case Else provas_cruzadas.REVERSA_A.ViewValue = provas_cruzadas.REVERSA_A.CurrentValue End Select Else provas_cruzadas.REVERSA_A.ViewValue = Null End If provas_cruzadas.REVERSA_A.CssStyle = "text-align:center;" provas_cruzadas.REVERSA_A.ViewCustomAttributes = "" ' REVERSA_B If Not IsNull(provas_cruzadas.REVERSA_B.CurrentValue) Then Select Case provas_cruzadas.REVERSA_B.CurrentValue Case "NEG" provas_cruzadas.REVERSA_B.ViewValue = ew_IIf(provas_cruzadas.REVERSA_B.FldTagCaption(1) <> "", provas_cruzadas.REVERSA_B.FldTagCaption(1), "NEG") Case "POS" provas_cruzadas.REVERSA_B.ViewValue = ew_IIf(provas_cruzadas.REVERSA_B.FldTagCaption(2) <> "", provas_cruzadas.REVERSA_B.FldTagCaption(2), "POS") Case Else provas_cruzadas.REVERSA_B.ViewValue = provas_cruzadas.REVERSA_B.CurrentValue End Select Else provas_cruzadas.REVERSA_B.ViewValue = Null End If provas_cruzadas.REVERSA_B.CssStyle = "text-align:center;" provas_cruzadas.REVERSA_B.ViewCustomAttributes = "" ' TA_T1 If Not IsNull(provas_cruzadas.TA_T1.CurrentValue) Then Select Case provas_cruzadas.TA_T1.CurrentValue Case "NEG" provas_cruzadas.TA_T1.ViewValue = ew_IIf(provas_cruzadas.TA_T1.FldTagCaption(1) <> "", provas_cruzadas.TA_T1.FldTagCaption(1), "NEG") Case "POS" provas_cruzadas.TA_T1.ViewValue = ew_IIf(provas_cruzadas.TA_T1.FldTagCaption(2) <> "", provas_cruzadas.TA_T1.FldTagCaption(2), "POS") Case Else provas_cruzadas.TA_T1.ViewValue = provas_cruzadas.TA_T1.CurrentValue End Select Else provas_cruzadas.TA_T1.ViewValue = Null End If provas_cruzadas.TA_T1.CssStyle = "text-align:center;" provas_cruzadas.TA_T1.ViewCustomAttributes = "" ' TA_T2 If Not IsNull(provas_cruzadas.TA_T2.CurrentValue) Then Select Case provas_cruzadas.TA_T2.CurrentValue Case "NEG" provas_cruzadas.TA_T2.ViewValue = ew_IIf(provas_cruzadas.TA_T2.FldTagCaption(1) <> "", provas_cruzadas.TA_T2.FldTagCaption(1), "NEG") Case "POS" provas_cruzadas.TA_T2.ViewValue = ew_IIf(provas_cruzadas.TA_T2.FldTagCaption(2) <> "", provas_cruzadas.TA_T2.FldTagCaption(2), "POS") Case Else provas_cruzadas.TA_T2.ViewValue = provas_cruzadas.TA_T2.CurrentValue End Select Else provas_cruzadas.TA_T2.ViewValue = Null End If provas_cruzadas.TA_T2.CssStyle = "text-align:center;" provas_cruzadas.TA_T2.ViewCustomAttributes = "" ' AGH_T1 If Not IsNull(provas_cruzadas.AGH_T1.CurrentValue) Then Select Case provas_cruzadas.AGH_T1.CurrentValue Case "NEG" provas_cruzadas.AGH_T1.ViewValue = ew_IIf(provas_cruzadas.AGH_T1.FldTagCaption(1) <> "", provas_cruzadas.AGH_T1.FldTagCaption(1), "NEG") Case "POS" provas_cruzadas.AGH_T1.ViewValue = ew_IIf(provas_cruzadas.AGH_T1.FldTagCaption(2) <> "", provas_cruzadas.AGH_T1.FldTagCaption(2), "POS") Case Else provas_cruzadas.AGH_T1.ViewValue = provas_cruzadas.AGH_T1.CurrentValue End Select Else provas_cruzadas.AGH_T1.ViewValue = Null End If provas_cruzadas.AGH_T1.CssStyle = "text-align:center;" provas_cruzadas.AGH_T1.ViewCustomAttributes = "" ' AGH_T2 If Not IsNull(provas_cruzadas.AGH_T2.CurrentValue) Then Select Case provas_cruzadas.AGH_T2.CurrentValue Case "NEG" provas_cruzadas.AGH_T2.ViewValue = ew_IIf(provas_cruzadas.AGH_T2.FldTagCaption(1) <> "", provas_cruzadas.AGH_T2.FldTagCaption(1), "NEG") Case "POS" provas_cruzadas.AGH_T2.ViewValue = ew_IIf(provas_cruzadas.AGH_T2.FldTagCaption(2) <> "", provas_cruzadas.AGH_T2.FldTagCaption(2), "POS") Case Else provas_cruzadas.AGH_T2.ViewValue = provas_cruzadas.AGH_T2.CurrentValue End Select Else provas_cruzadas.AGH_T2.ViewValue = Null End If provas_cruzadas.AGH_T2.CssStyle = "text-align:center;" provas_cruzadas.AGH_T2.ViewCustomAttributes = "" ' TAD If Not IsNull(provas_cruzadas.TAD.CurrentValue) Then Select Case provas_cruzadas.TAD.CurrentValue Case "NEG" provas_cruzadas.TAD.ViewValue = ew_IIf(provas_cruzadas.TAD.FldTagCaption(1) <> "", provas_cruzadas.TAD.FldTagCaption(1), "NEG") Case "POS" provas_cruzadas.TAD.ViewValue = ew_IIf(provas_cruzadas.TAD.FldTagCaption(2) <> "", provas_cruzadas.TAD.FldTagCaption(2), "POS") Case Else provas_cruzadas.TAD.ViewValue = provas_cruzadas.TAD.CurrentValue End Select Else provas_cruzadas.TAD.ViewValue = Null End If provas_cruzadas.TAD.CssStyle = "text-align:center;" provas_cruzadas.TAD.ViewCustomAttributes = "" ' AUTO_A/C If Not IsNull(provas_cruzadas.AUTO_A2FC.CurrentValue) Then Select Case provas_cruzadas.AUTO_A2FC.CurrentValue Case "NEG" provas_cruzadas.AUTO_A2FC.ViewValue = ew_IIf(provas_cruzadas.AUTO_A2FC.FldTagCaption(1) <> "", provas_cruzadas.AUTO_A2FC.FldTagCaption(1), "NEG") Case "POS" provas_cruzadas.AUTO_A2FC.ViewValue = ew_IIf(provas_cruzadas.AUTO_A2FC.FldTagCaption(2) <> "", provas_cruzadas.AUTO_A2FC.FldTagCaption(2), "POS") Case Else provas_cruzadas.AUTO_A2FC.ViewValue = provas_cruzadas.AUTO_A2FC.CurrentValue End Select Else provas_cruzadas.AUTO_A2FC.ViewValue = Null End If provas_cruzadas.AUTO_A2FC.CssStyle = "text-align:center;" provas_cruzadas.AUTO_A2FC.ViewCustomAttributes = "" ' NUMERO_BOLSA If provas_cruzadas.NUMERO_BOLSA.VirtualValue <> "" Then provas_cruzadas.NUMERO_BOLSA.ViewValue = provas_cruzadas.NUMERO_BOLSA.VirtualValue Else If provas_cruzadas.NUMERO_BOLSA.CurrentValue & "" <> "" Then sFilterWrk = "`NUMERO_BOLSA` = " & ew_AdjustSql(provas_cruzadas.NUMERO_BOLSA.CurrentValue) & "" sSqlWrk = "SELECT `NUMERO_BOLSA` FROM `bolsas_recebidas`" sWhereWrk = "" Call ew_AddFilter(sWhereWrk, sFilterWrk) If sWhereWrk <> "" Then sSqlWrk = sSqlWrk & " WHERE " & sWhereWrk sSqlWrk = sSqlWrk & " ORDER BY `NUMERO_BOLSA` Desc" Set RsWrk = Conn.Execute(sSqlWrk) If Not RsWrk.Eof Then provas_cruzadas.NUMERO_BOLSA.ViewValue = RsWrk("NUMERO_BOLSA") Else provas_cruzadas.NUMERO_BOLSA.ViewValue = provas_cruzadas.NUMERO_BOLSA.CurrentValue End If RsWrk.Close Set RsWrk = Nothing Else provas_cruzadas.NUMERO_BOLSA.ViewValue = Null End If End If provas_cruzadas.NUMERO_BOLSA.CssStyle = "text-align:center;" provas_cruzadas.NUMERO_BOLSA.ViewCustomAttributes = "" ' ABO_RH_BOLSA If Not IsNull(provas_cruzadas.ABO_RH_BOLSA.CurrentValue) Then Select Case provas_cruzadas.ABO_RH_BOLSA.CurrentValue Case "A+" provas_cruzadas.ABO_RH_BOLSA.ViewValue = ew_IIf(provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(1) <> "", provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(1), "A+") Case "A-" provas_cruzadas.ABO_RH_BOLSA.ViewValue = ew_IIf(provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(2) <> "", provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(2), "A-") Case "B+" provas_cruzadas.ABO_RH_BOLSA.ViewValue = ew_IIf(provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(3) <> "", provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(3), "B+") Case "B-" provas_cruzadas.ABO_RH_BOLSA.ViewValue = ew_IIf(provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(4) <> "", provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(4), "B-") Case "AB+" provas_cruzadas.ABO_RH_BOLSA.ViewValue = ew_IIf(provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(5) <> "", provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(5), "AB+") Case "AB-" provas_cruzadas.ABO_RH_BOLSA.ViewValue = ew_IIf(provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(6) <> "", provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(6), "AB-") Case "O+" provas_cruzadas.ABO_RH_BOLSA.ViewValue = ew_IIf(provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(7) <> "", provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(7), "O+") Case "O-" provas_cruzadas.ABO_RH_BOLSA.ViewValue = ew_IIf(provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(8) <> "", provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(8), "O-") Case Else provas_cruzadas.ABO_RH_BOLSA.ViewValue = provas_cruzadas.ABO_RH_BOLSA.CurrentValue End Select Else provas_cruzadas.ABO_RH_BOLSA.ViewValue = Null End If provas_cruzadas.ABO_RH_BOLSA.CssStyle = "text-align:center;" provas_cruzadas.ABO_RH_BOLSA.ViewCustomAttributes = "" ' PC_TA If Not IsNull(provas_cruzadas.PC_TA.CurrentValue) Then Select Case provas_cruzadas.PC_TA.CurrentValue Case "NEG" provas_cruzadas.PC_TA.ViewValue = ew_IIf(provas_cruzadas.PC_TA.FldTagCaption(1) <> "", provas_cruzadas.PC_TA.FldTagCaption(1), "NEG") Case "POS" provas_cruzadas.PC_TA.ViewValue = ew_IIf(provas_cruzadas.PC_TA.FldTagCaption(2) <> "", provas_cruzadas.PC_TA.FldTagCaption(2), "POS") Case Else provas_cruzadas.PC_TA.ViewValue = provas_cruzadas.PC_TA.CurrentValue End Select Else provas_cruzadas.PC_TA.ViewValue = Null End If provas_cruzadas.PC_TA.CssStyle = "text-align:center;" provas_cruzadas.PC_TA.ViewCustomAttributes = "" ' PC_AGH If Not IsNull(provas_cruzadas.PC_AGH.CurrentValue) Then Select Case provas_cruzadas.PC_AGH.CurrentValue Case "NEG" provas_cruzadas.PC_AGH.ViewValue = ew_IIf(provas_cruzadas.PC_AGH.FldTagCaption(1) <> "", provas_cruzadas.PC_AGH.FldTagCaption(1), "NEG") Case "POS" provas_cruzadas.PC_AGH.ViewValue = ew_IIf(provas_cruzadas.PC_AGH.FldTagCaption(2) <> "", provas_cruzadas.PC_AGH.FldTagCaption(2), "POS") Case Else provas_cruzadas.PC_AGH.ViewValue = provas_cruzadas.PC_AGH.CurrentValue End Select Else provas_cruzadas.PC_AGH.ViewValue = Null End If provas_cruzadas.PC_AGH.CssStyle = "text-align:center;" provas_cruzadas.PC_AGH.ViewCustomAttributes = "" ' CONTROCEL_PC_T1 provas_cruzadas.CONTROCEL_PC_T1.ViewValue = provas_cruzadas.CONTROCEL_PC_T1.CurrentValue provas_cruzadas.CONTROCEL_PC_T1.CssStyle = "text-align:center;" provas_cruzadas.CONTROCEL_PC_T1.ViewCustomAttributes = "" ' CONTROCEL_PC_T2 provas_cruzadas.CONTROCEL_PC_T2.ViewValue = provas_cruzadas.CONTROCEL_PC_T2.CurrentValue provas_cruzadas.CONTROCEL_PC_T2.CssStyle = "text-align:center;" provas_cruzadas.CONTROCEL_PC_T2.ViewCustomAttributes = "" ' CONTROCEL_PC provas_cruzadas.CONTROCEL_PC.ViewValue = provas_cruzadas.CONTROCEL_PC.CurrentValue provas_cruzadas.CONTROCEL_PC.CssStyle = "text-align:center;" provas_cruzadas.CONTROCEL_PC.ViewCustomAttributes = "" ' CONTROCEL_TAD provas_cruzadas.CONTROCEL_TAD.ViewValue = provas_cruzadas.CONTROCEL_TAD.CurrentValue provas_cruzadas.CONTROCEL_TAD.CssStyle = "text-align:center;" provas_cruzadas.CONTROCEL_TAD.ViewCustomAttributes = "" ' TESTE_HEMOLISE provas_cruzadas.TESTE_HEMOLISE.ViewValue = provas_cruzadas.TESTE_HEMOLISE.CurrentValue provas_cruzadas.TESTE_HEMOLISE.CssStyle = "text-align:center;" provas_cruzadas.TESTE_HEMOLISE.ViewCustomAttributes = "" ' HORA provas_cruzadas.HORA.ViewValue = provas_cruzadas.HORA.CurrentValue provas_cruzadas.HORA.CssStyle = "text-align:center;" provas_cruzadas.HORA.ViewCustomAttributes = "" ' TECNICO If provas_cruzadas.TECNICO.VirtualValue <> "" Then provas_cruzadas.TECNICO.ViewValue = provas_cruzadas.TECNICO.VirtualValue Else If provas_cruzadas.TECNICO.CurrentValue & "" <> "" Then sFilterWrk = "`NOME` = '" & ew_AdjustSql(provas_cruzadas.TECNICO.CurrentValue) & "'" sSqlWrk = "SELECT `NOME` FROM `funcionarios`" sWhereWrk = "" Call ew_AddFilter(sWhereWrk, sFilterWrk) If sWhereWrk <> "" Then sSqlWrk = sSqlWrk & " WHERE " & sWhereWrk sSqlWrk = sSqlWrk & " ORDER BY `NOME` Asc" Set RsWrk = Conn.Execute(sSqlWrk) If Not RsWrk.Eof Then provas_cruzadas.TECNICO.ViewValue = RsWrk("NOME") Else provas_cruzadas.TECNICO.ViewValue = provas_cruzadas.TECNICO.CurrentValue End If RsWrk.Close Set RsWrk = Nothing Else provas_cruzadas.TECNICO.ViewValue = Null End If End If provas_cruzadas.TECNICO.CssStyle = "text-align:center;" provas_cruzadas.TECNICO.ViewCustomAttributes = "" ' View refer script ' ID provas_cruzadas.ID.LinkCustomAttributes = "" provas_cruzadas.ID.HrefValue = "" provas_cruzadas.ID.TooltipValue = "" ' DATA provas_cruzadas.DATA.LinkCustomAttributes = "" provas_cruzadas.DATA.HrefValue = "" provas_cruzadas.DATA.TooltipValue = "" ' REGISTRO_GERAL provas_cruzadas.REGISTRO_GERAL.LinkCustomAttributes = "" provas_cruzadas.REGISTRO_GERAL.HrefValue = "" provas_cruzadas.REGISTRO_GERAL.TooltipValue = "" ' ABO provas_cruzadas.ABO.LinkCustomAttributes = "" provas_cruzadas.ABO.HrefValue = "" provas_cruzadas.ABO.TooltipValue = "" ' RH_D provas_cruzadas.RH_D.LinkCustomAttributes = "" provas_cruzadas.RH_D.HrefValue = "" provas_cruzadas.RH_D.TooltipValue = "" ' RH_C provas_cruzadas.RH_C.LinkCustomAttributes = "" provas_cruzadas.RH_C.HrefValue = "" provas_cruzadas.RH_C.TooltipValue = "" ' REVERSA_A provas_cruzadas.REVERSA_A.LinkCustomAttributes = "" provas_cruzadas.REVERSA_A.HrefValue = "" provas_cruzadas.REVERSA_A.TooltipValue = "" ' REVERSA_B provas_cruzadas.REVERSA_B.LinkCustomAttributes = "" provas_cruzadas.REVERSA_B.HrefValue = "" provas_cruzadas.REVERSA_B.TooltipValue = "" ' TA_T1 provas_cruzadas.TA_T1.LinkCustomAttributes = "" provas_cruzadas.TA_T1.HrefValue = "" provas_cruzadas.TA_T1.TooltipValue = "" ' TA_T2 provas_cruzadas.TA_T2.LinkCustomAttributes = "" provas_cruzadas.TA_T2.HrefValue = "" provas_cruzadas.TA_T2.TooltipValue = "" ' AGH_T1 provas_cruzadas.AGH_T1.LinkCustomAttributes = "" provas_cruzadas.AGH_T1.HrefValue = "" provas_cruzadas.AGH_T1.TooltipValue = "" ' AGH_T2 provas_cruzadas.AGH_T2.LinkCustomAttributes = "" provas_cruzadas.AGH_T2.HrefValue = "" provas_cruzadas.AGH_T2.TooltipValue = "" ' TAD provas_cruzadas.TAD.LinkCustomAttributes = "" provas_cruzadas.TAD.HrefValue = "" provas_cruzadas.TAD.TooltipValue = "" ' AUTO_A/C provas_cruzadas.AUTO_A2FC.LinkCustomAttributes = "" provas_cruzadas.AUTO_A2FC.HrefValue = "" provas_cruzadas.AUTO_A2FC.TooltipValue = "" ' NUMERO_BOLSA provas_cruzadas.NUMERO_BOLSA.LinkCustomAttributes = "" provas_cruzadas.NUMERO_BOLSA.HrefValue = "" provas_cruzadas.NUMERO_BOLSA.TooltipValue = "" ' ABO_RH_BOLSA provas_cruzadas.ABO_RH_BOLSA.LinkCustomAttributes = "" provas_cruzadas.ABO_RH_BOLSA.HrefValue = "" provas_cruzadas.ABO_RH_BOLSA.TooltipValue = "" ' PC_TA provas_cruzadas.PC_TA.LinkCustomAttributes = "" provas_cruzadas.PC_TA.HrefValue = "" provas_cruzadas.PC_TA.TooltipValue = "" ' PC_AGH provas_cruzadas.PC_AGH.LinkCustomAttributes = "" provas_cruzadas.PC_AGH.HrefValue = "" provas_cruzadas.PC_AGH.TooltipValue = "" ' CONTROCEL_PC_T1 provas_cruzadas.CONTROCEL_PC_T1.LinkCustomAttributes = "" provas_cruzadas.CONTROCEL_PC_T1.HrefValue = "" provas_cruzadas.CONTROCEL_PC_T1.TooltipValue = "" ' CONTROCEL_PC_T2 provas_cruzadas.CONTROCEL_PC_T2.LinkCustomAttributes = "" provas_cruzadas.CONTROCEL_PC_T2.HrefValue = "" provas_cruzadas.CONTROCEL_PC_T2.TooltipValue = "" ' CONTROCEL_PC provas_cruzadas.CONTROCEL_PC.LinkCustomAttributes = "" provas_cruzadas.CONTROCEL_PC.HrefValue = "" provas_cruzadas.CONTROCEL_PC.TooltipValue = "" ' CONTROCEL_TAD provas_cruzadas.CONTROCEL_TAD.LinkCustomAttributes = "" provas_cruzadas.CONTROCEL_TAD.HrefValue = "" provas_cruzadas.CONTROCEL_TAD.TooltipValue = "" ' TESTE_HEMOLISE provas_cruzadas.TESTE_HEMOLISE.LinkCustomAttributes = "" provas_cruzadas.TESTE_HEMOLISE.HrefValue = "" provas_cruzadas.TESTE_HEMOLISE.TooltipValue = "" ' HORA provas_cruzadas.HORA.LinkCustomAttributes = "" provas_cruzadas.HORA.HrefValue = "" provas_cruzadas.HORA.TooltipValue = "" ' TECNICO provas_cruzadas.TECNICO.LinkCustomAttributes = "" provas_cruzadas.TECNICO.HrefValue = "" provas_cruzadas.TECNICO.TooltipValue = "" End If ' Call Row Rendered event If provas_cruzadas.RowType <> EW_ROWTYPE_AGGREGATEINIT Then Call provas_cruzadas.Row_Rendered() End If End Sub ' Set up export options Sub SetupExportOptions() Dim item ' Printer friendly ExportOptions.Add("print") Set item = ExportOptions.GetItem("print") item.Body = "" & Language.Phrase("PrinterFriendly") & "" item.Visible = True ' Export to Excel ExportOptions.Add("excel") Set item = ExportOptions.GetItem("excel") item.Body = "" & Language.Phrase("ExportToExcel") & "" item.Visible = True ' Export to Word ExportOptions.Add("word") Set item = ExportOptions.GetItem("word") item.Body = "" & Language.Phrase("ExportToWord") & "" item.Visible = False ' Export to Html ExportOptions.Add("html") Set item = ExportOptions.GetItem("html") item.Body = "" & Language.Phrase("ExportToHtml") & "" item.Visible = False ' Export to Xml ExportOptions.Add("xml") Set item = ExportOptions.GetItem("xml") item.Body = "" & Language.Phrase("ExportToXml") & "" item.Visible = False ' Export to Csv ExportOptions.Add("csv") Set item = ExportOptions.GetItem("csv") item.Body = "" & Language.Phrase("ExportToCsv") & "" item.Visible = True ' Export to Email ExportOptions.Add("email") Set item = ExportOptions.GetItem("email") item.Body = "" & Language.Phrase("ExportToEmail") & "" item.Visible = False ' Hide options for export/action If provas_cruzadas.Export <> "" Or provas_cruzadas.CurrentAction <> "" Then ExportOptions.HideAllOptions() End If End Sub ' ----------------------------------------------------------------- ' Export data in HTML/CSV/Word/Excel/XML/Email format ' Sub ExportData() Dim XmlDoc Dim ExportDoc Dim ExportStyle ' Default export style ExportStyle = "h" ' Load recordset Set Rs = LoadRecordset() TotalRecs = Rs.RecordCount StartRec = 1 ' Export all If provas_cruzadas.ExportAll Then StopRec = TotalRecs ' Export 1 page only Else SetUpStartRec() ' Set Up Start Record Position ' Set the last record to display If DisplayRecs < 0 Then StopRec = TotalRecs Else StopRec = StartRec + DisplayRecs - 1 End If End If If provas_cruzadas.Export = "xml" Then Set XmlDoc = New cXMLDocument Else Set ExportDoc = New cExportDocument Set ExportDoc.Table = provas_cruzadas Call ExportDoc.ChangeStyle("h") End If Dim ParentTable ParentTable = "" Dim rsmaster ' Export master record If EW_EXPORT_MASTER_RECORD And provas_cruzadas.MasterFilter <> "" And provas_cruzadas.CurrentMasterTable = "receptor" Then Set rsmaster = receptor.LoadRs(DbMasterFilter) ' Load master record If Not rsmaster.Eof Then If provas_cruzadas.Export = "xml" Then ParentTable = "receptor" Call receptor.ExportXmlDocument(XmlDoc, False, rsmaster, 1, 1, "") Else If provas_cruzadas.Export <> "csv" Or EW_EXPORT_MASTER_RECORD_FOR_CSV Then Call receptor.ExportDocument(ExportDoc, rsmaster, 1, 1, "") Call ExportDoc.ExportEmptyLine() End If End If rsmaster.Close() End If Set rsmaster = Nothing End If If provas_cruzadas.Export = "xml" Then Call provas_cruzadas.ExportXmlDocument(XmlDoc, (ParentTable <> ""), rs, StartRec, StopRec, "") Else Dim sHeader sHeader = PageHeader Call Page_DataRendering(sHeader) ExportDoc.Text = ExportDoc.Text & sHeader Call provas_cruzadas.ExportDocument(ExportDoc, rs, StartRec, StopRec, "") Dim sFooter sFooter = PageFooter Call Page_DataRendered(sFooter) ExportDoc.Text = ExportDoc.Text & sFooter End If ' Close recordset and connection Rs.Close Set Rs = Nothing ' Export header and footer If provas_cruzadas.Export <> "xml" Then Call ExportDoc.ExportHeaderAndFooter() End If If provas_cruzadas.Export = "xml" Then XmlDoc.Output Set XmlDoc = Nothing Else If provas_cruzadas.Export = "email" Then Call ExportEmail(ExportDoc.Text) Call Page_Terminate(provas_cruzadas.ExportReturnUrl) Else Response.Write ExportDoc.Text End If Set ExportDoc = Nothing End If End Sub ' ----------------------------------------------------------------- ' Set up Master Detail based on querystring parameter ' Sub SetUpMasterParms() Dim bValidMaster, sMasterTblVar bValidMaster = False ' Get the keys for master table If Request.QueryString(EW_TABLE_SHOW_MASTER).Count > 0 Then sMasterTblVar = Request.QueryString(EW_TABLE_SHOW_MASTER) If sMasterTblVar = "" Then bValidMaster = True DbMasterFilter = "" DbDetailFilter = "" End If If sMasterTblVar = "receptor" Then bValidMaster = True If Request.QueryString("REGISTRO_GERAL").Count > 0 Then receptor.REGISTRO_GERAL.QueryStringValue = Request.QueryString("REGISTRO_GERAL") provas_cruzadas.REGISTRO_GERAL.QueryStringValue = receptor.REGISTRO_GERAL.QueryStringValue provas_cruzadas.REGISTRO_GERAL.SessionValue = provas_cruzadas.REGISTRO_GERAL.QueryStringValue If Not IsNumeric(receptor.REGISTRO_GERAL.QueryStringValue) Then bValidMaster = False Else bValidMaster = False End If End If End If If bValidMaster Then ' Save current master table provas_cruzadas.CurrentMasterTable = sMasterTblVar ' Reset start record counter (new master key) StartRec = 1 provas_cruzadas.StartRecordNumber = StartRec ' Clear previous master session values If sMasterTblVar <> "receptor" Then If provas_cruzadas.REGISTRO_GERAL.QueryStringValue = "" Then provas_cruzadas.REGISTRO_GERAL.SessionValue = "" End If End If DbMasterFilter = provas_cruzadas.MasterFilter ' Get master filter DbDetailFilter = provas_cruzadas.DetailFilter ' Get detail filter End Sub ' Page Load event Sub Page_Load() 'Response.Write "Page Load" End Sub ' Page Unload event Sub Page_Unload() 'Response.Write "Page Unload" End Sub ' Page Redirecting event Sub Page_Redirecting(url) 'url = newurl End Sub ' Message Showing event ' typ = ""|"success"|"failure" Sub Message_Showing(msg, typ) ' Example: 'If typ = "success" Then msg = "your success message" End Sub ' Page Data Rendering event Sub Page_DataRendering(header) ' Example: 'header = "your header" End Sub ' Page Data Rendered event Sub Page_DataRendered(footer) ' Example: 'footer = "your footer" End Sub ' Form Custom Validate event Function Form_CustomValidate(CustomError) 'Return error message in CustomError Form_CustomValidate = True End Function ' ListOptions Load event Sub ListOptions_Load() 'Example: ' Dim opt ' Set opt = ListOptions.Add("new") ' opt.OnLeft = True ' Link on left ' opt.MoveTo 0 ' Move to first column End Sub ' ListOptions Rendered event Sub ListOptions_Rendered() 'Example: 'ListOptions.GetItem("new").Body = "xxx" End Sub End Class %>