<% Session.Timeout = 20 %> <% ' Define page object Dim provas_cruzadas_grid Set provas_cruzadas_grid = New cprovas_cruzadas_grid Set MasterPage = Page Set Page = provas_cruzadas_grid ' Page init processing Call provas_cruzadas_grid.Page_Init() ' Page main processing Call provas_cruzadas_grid.Page_Main() %> <% If provas_cruzadas.Export = "" Then %> <% End If %> <% provas_cruzadas_grid.ShowPageHeader() %> <% If provas_cruzadas.CurrentAction = "gridadd" Then If provas_cruzadas.CurrentMode <> "copy" Then provas_cruzadas.CurrentFilter = "0=1" End If ' Load recordset Set provas_cruzadas_grid.Recordset = provas_cruzadas_grid.LoadRecordset() If provas_cruzadas.CurrentAction = "gridadd" Then If provas_cruzadas.CurrentMode = "copy" Then provas_cruzadas_grid.TotalRecs = provas_cruzadas_grid.Recordset.RecordCount provas_cruzadas_grid.StartRec = 1 provas_cruzadas_grid.DisplayRecs = provas_cruzadas_grid.TotalRecs Else provas_cruzadas_grid.StartRec = 1 provas_cruzadas_grid.DisplayRecs = provas_cruzadas.GridAddRowCount End If provas_cruzadas_grid.TotalRecs = provas_cruzadas_grid.DisplayRecs provas_cruzadas_grid.StopRec = provas_cruzadas_grid.DisplayRecs Else provas_cruzadas_grid.TotalRecs = provas_cruzadas_grid.Recordset.RecordCount provas_cruzadas_grid.StartRec = 1 provas_cruzadas_grid.DisplayRecs = provas_cruzadas_grid.TotalRecs ' Display all records End If %>

<% If provas_cruzadas.CurrentMode = "add" Or provas_cruzadas.CurrentMode = "copy" Then %><%= Language.Phrase("Add") %><% ElseIf provas_cruzadas.CurrentMode = "edit" Then %><%= Language.Phrase("Edit") %><% End If %> <%= Language.Phrase("TblTypeTABLE") %><%= provas_cruzadas.TableCaption %>

<% provas_cruzadas_grid.ShowMessage %>
<% If (provas_cruzadas.CurrentMode = "add" Or provas_cruzadas.CurrentMode = "copy" Or provas_cruzadas.CurrentMode = "edit") And provas_cruzadas.CurrentAction <> "F" Then ' add/copy/edit mode %>
<% If provas_cruzadas.AllowAddDeleteRow Then %> <%= Language.Phrase("AddBlankRow") %>   <% End If %>
<% End If %>
<%= provas_cruzadas.TableCustomInnerHTML %> <% Call provas_cruzadas_grid.RenderListOptions() ' Render list options (header, left) provas_cruzadas_grid.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_grid.ListOptions.Render "header", "right" %> <% provas_cruzadas_grid.StartRec = 1 provas_cruzadas_grid.StopRec = provas_cruzadas_grid.TotalRecs ' Show all records ' Restore number of post back records If IsObject(ObjForm) And Not (ObjForm Is Nothing) Then ObjForm.Index = 0 If ObjForm.HasValue("key_count") And (provas_cruzadas.CurrentAction = "gridadd" Or provas_cruzadas.CurrentAction = "gridedit" Or provas_cruzadas.CurrentAction = "F") Then provas_cruzadas_grid.KeyCount = ObjForm.GetValue("key_count") provas_cruzadas_grid.StopRec = provas_cruzadas_grid.KeyCount End If End If ' Move to first record provas_cruzadas_grid.RecCnt = provas_cruzadas_grid.StartRec - 1 If Not provas_cruzadas_grid.Recordset.Eof Then provas_cruzadas_grid.Recordset.MoveFirst If provas_cruzadas_grid.StartRec > 1 Then provas_cruzadas_grid.Recordset.Move provas_cruzadas_grid.StartRec - 1 ElseIf Not provas_cruzadas.AllowAddDeleteRow And provas_cruzadas_grid.StopRec = 0 Then provas_cruzadas_grid.StopRec = provas_cruzadas.GridAddRowCount End If ' Initialize Aggregate provas_cruzadas.RowType = EW_ROWTYPE_AGGREGATEINIT Call provas_cruzadas.ResetAttrs() Call provas_cruzadas_grid.RenderRow() provas_cruzadas_grid.RowCnt = 0 If provas_cruzadas.CurrentAction = "gridadd" Then provas_cruzadas_grid.RowIndex = 0 If provas_cruzadas.CurrentAction = "gridedit" Then provas_cruzadas_grid.RowIndex = 0 ' Output date rows Do While CLng(provas_cruzadas_grid.RecCnt) < CLng(provas_cruzadas_grid.StopRec) provas_cruzadas_grid.RecCnt = provas_cruzadas_grid.RecCnt + 1 If CLng(provas_cruzadas_grid.RecCnt) >= CLng(provas_cruzadas_grid.StartRec) Then provas_cruzadas_grid.RowCnt = provas_cruzadas_grid.RowCnt + 1 If provas_cruzadas.CurrentAction = "gridadd" Or provas_cruzadas.CurrentAction = "gridedit" Or provas_cruzadas.CurrentAction = "F" Then provas_cruzadas_grid.RowIndex = provas_cruzadas_grid.RowIndex + 1 ObjForm.Index = provas_cruzadas_grid.RowIndex If ObjForm.HasValue("k_action") Then provas_cruzadas_grid.RowAction = ObjForm.GetValue("k_action") & "" ElseIf provas_cruzadas.CurrentAction = "gridadd" Then provas_cruzadas_grid.RowAction = "insert" Else provas_cruzadas_grid.RowAction = "" End If End If ' Set up key count provas_cruzadas_grid.KeyCount = provas_cruzadas_grid.RowIndex Call provas_cruzadas.ResetAttrs() provas_cruzadas.CssClass = "" If provas_cruzadas.CurrentAction = "gridadd" Then If provas_cruzadas.CurrentMode = "copy" Then Call provas_cruzadas_grid.LoadRowValues(provas_cruzadas_grid.Recordset) ' Load row values provas_cruzadas_grid.RowOldKey = provas_cruzadas_grid.SetRecordKey(provas_cruzadas_grid.Recordset) ' Set old record key Else Call provas_cruzadas_grid.LoadDefaultValues() ' Load default values provas_cruzadas_grid.RowOldKey = "" ' Clear old key value End If Else Call provas_cruzadas_grid.LoadRowValues(provas_cruzadas_grid.Recordset) ' Load row values End If provas_cruzadas.RowType = EW_ROWTYPE_VIEW ' Render view If provas_cruzadas.CurrentAction = "gridadd" Then ' Grid add provas_cruzadas.RowType = EW_ROWTYPE_ADD ' Render add End If If provas_cruzadas.CurrentAction = "gridadd" And provas_cruzadas.EventCancelled Then ' Insert failed Call provas_cruzadas_grid.RestoreCurrentRowFormValues(provas_cruzadas_grid.RowIndex) ' Restore form values End If If provas_cruzadas.CurrentAction = "gridedit" Then ' Grid edit If provas_cruzadas.EventCancelled Then ' Update failed Call provas_cruzadas_grid.RestoreCurrentRowFormValues(provas_cruzadas_grid.RowIndex) ' Restore form values End If If provas_cruzadas_grid.RowAction = "insert" Then provas_cruzadas.RowType = EW_ROWTYPE_ADD ' Render add Else provas_cruzadas.RowType = EW_ROWTYPE_EDIT ' Render edit End If End If If provas_cruzadas.RowType = EW_ROWTYPE_EDIT Then ' Edit row provas_cruzadas_grid.EditRowCnt = provas_cruzadas_grid.EditRowCnt + 1 End If If provas_cruzadas.CurrentAction = "F" Then ' Confirm row Call provas_cruzadas_grid.RestoreCurrentRowFormValues(provas_cruzadas_grid.RowIndex) ' Restore form values End If If provas_cruzadas.RowType = EW_ROWTYPE_ADD Or provas_cruzadas.RowType = EW_ROWTYPE_EDIT Then ' Add / Edit row If provas_cruzadas.CurrentAction = "edit" Then provas_cruzadas.RowAttrs.AddAttributes Array() provas_cruzadas.CssClass = "ewTableEditRow" Else provas_cruzadas.RowAttrs.AddAttributes Array() End If If Not IsEmpty(provas_cruzadas_grid.RowIndex) Then provas_cruzadas.RowAttrs.AddAttributes Array(Array("data-rowindex", provas_cruzadas_grid.RowIndex), Array("id", "r" & provas_cruzadas_grid.RowIndex & "_provas_cruzadas")) End If Else provas_cruzadas.RowAttrs.AddAttributes Array() End If ' Render row Call provas_cruzadas_grid.RenderRow() ' Render list options Call provas_cruzadas_grid.RenderListOptions() ' Skip delete row / empty row for confirm page If provas_cruzadas_grid.RowAction <> "delete" And provas_cruzadas_grid.RowAction <> "insertdelete" And Not (provas_cruzadas_grid.RowAction = "insert" And provas_cruzadas.CurrentAction = "F" And provas_cruzadas_grid.EmptyRow()) Then %> > <% ' Render list options (body, left) provas_cruzadas_grid.ListOptions.Render "body", "left" %> <% If provas_cruzadas.ID.Visible Then ' ID %> > <% If provas_cruzadas.RowType = EW_ROWTYPE_ADD Then ' Add Record %> "> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> ><%= provas_cruzadas.ID.EditValue %> "> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= provas_cruzadas.ID.ListViewValue %> "> "> <% End If %> " id="<%= provas_cruzadas_grid.PageObjName & "_row_" & provas_cruzadas_grid.RowCnt %>"> <% End If %> <% If provas_cruzadas.DATA.Visible Then ' DATA %> > <% If provas_cruzadas.RowType = EW_ROWTYPE_ADD Then ' Add Record %> >  <%= Language.Phrase(" title="<%= Language.Phrase("PickDate") %>" style="cursor:pointer;cursor:hand;"> "> "> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> >  <%= Language.Phrase(" title="<%= Language.Phrase("PickDate") %>" style="cursor:pointer;cursor:hand;"> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= provas_cruzadas.DATA.ListViewValue %> "> "> <% End If %> <% End If %> <% If provas_cruzadas.REGISTRO_GERAL.Visible Then ' REGISTRO_GERAL %> > <% If provas_cruzadas.RowType = EW_ROWTYPE_ADD Then ' Add Record %> <% If provas_cruzadas.REGISTRO_GERAL.SessionValue <> "" Then %> ><%= provas_cruzadas.REGISTRO_GERAL.ListViewValue %> <% Else %> <% End If %> "> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> <% If provas_cruzadas.REGISTRO_GERAL.SessionValue <> "" Then %> ><%= provas_cruzadas.REGISTRO_GERAL.ListViewValue %> <% Else %> <% End If %> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= provas_cruzadas.REGISTRO_GERAL.ListViewValue %> "> "> <% End If %> <% End If %> <% If provas_cruzadas.ABO.Visible Then ' ABO %> > <% If provas_cruzadas.RowType = EW_ROWTYPE_ADD Then ' Add Record %> "> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= provas_cruzadas.ABO.ListViewValue %> "> "> <% End If %> <% End If %> <% If provas_cruzadas.RH_D.Visible Then ' RH_D %> > <% If provas_cruzadas.RowType = EW_ROWTYPE_ADD Then ' Add Record %> "> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= provas_cruzadas.RH_D.ListViewValue %> "> "> <% End If %> <% End If %> <% If provas_cruzadas.RH_C.Visible Then ' RH_C %> > <% If provas_cruzadas.RowType = EW_ROWTYPE_ADD Then ' Add Record %> "> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= provas_cruzadas.RH_C.ListViewValue %> "> "> <% End If %> <% End If %> <% If provas_cruzadas.REVERSA_A.Visible Then ' REVERSA_A %> > <% If provas_cruzadas.RowType = EW_ROWTYPE_ADD Then ' Add Record %> "> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= provas_cruzadas.REVERSA_A.ListViewValue %> "> "> <% End If %> <% End If %> <% If provas_cruzadas.REVERSA_B.Visible Then ' REVERSA_B %> > <% If provas_cruzadas.RowType = EW_ROWTYPE_ADD Then ' Add Record %> "> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= provas_cruzadas.REVERSA_B.ListViewValue %> "> "> <% End If %> <% End If %> <% If provas_cruzadas.TA_T1.Visible Then ' TA_T1 %> > <% If provas_cruzadas.RowType = EW_ROWTYPE_ADD Then ' Add Record %> "> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= provas_cruzadas.TA_T1.ListViewValue %> "> "> <% End If %> <% End If %> <% If provas_cruzadas.TA_T2.Visible Then ' TA_T2 %> > <% If provas_cruzadas.RowType = EW_ROWTYPE_ADD Then ' Add Record %> "> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= provas_cruzadas.TA_T2.ListViewValue %> "> "> <% End If %> <% End If %> <% If provas_cruzadas.AGH_T1.Visible Then ' AGH_T1 %> > <% If provas_cruzadas.RowType = EW_ROWTYPE_ADD Then ' Add Record %> "> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= provas_cruzadas.AGH_T1.ListViewValue %> "> "> <% End If %> <% End If %> <% If provas_cruzadas.AGH_T2.Visible Then ' AGH_T2 %> > <% If provas_cruzadas.RowType = EW_ROWTYPE_ADD Then ' Add Record %> "> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= provas_cruzadas.AGH_T2.ListViewValue %> "> "> <% End If %> <% End If %> <% If provas_cruzadas.TAD.Visible Then ' TAD %> > <% If provas_cruzadas.RowType = EW_ROWTYPE_ADD Then ' Add Record %> "> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= provas_cruzadas.TAD.ListViewValue %> "> "> <% End If %> <% End If %> <% If provas_cruzadas.AUTO_A2FC.Visible Then ' AUTO_A/C %> > <% If provas_cruzadas.RowType = EW_ROWTYPE_ADD Then ' Add Record %> "> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= provas_cruzadas.AUTO_A2FC.ListViewValue %> "> "> <% End If %> <% End If %> <% If provas_cruzadas.NUMERO_BOLSA.Visible Then ' NUMERO_BOLSA %> > <% If provas_cruzadas.RowType = EW_ROWTYPE_ADD Then ' Add Record %> "> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= provas_cruzadas.NUMERO_BOLSA.ListViewValue %> "> "> <% End If %> <% End If %> <% If provas_cruzadas.ABO_RH_BOLSA.Visible Then ' ABO_RH_BOLSA %> > <% If provas_cruzadas.RowType = EW_ROWTYPE_ADD Then ' Add Record %> "> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= provas_cruzadas.ABO_RH_BOLSA.ListViewValue %> "> "> <% End If %> <% End If %> <% If provas_cruzadas.PC_TA.Visible Then ' PC_TA %> > <% If provas_cruzadas.RowType = EW_ROWTYPE_ADD Then ' Add Record %> "> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= provas_cruzadas.PC_TA.ListViewValue %> "> "> <% End If %> <% End If %> <% If provas_cruzadas.PC_AGH.Visible Then ' PC_AGH %> > <% If provas_cruzadas.RowType = EW_ROWTYPE_ADD Then ' Add Record %> "> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= provas_cruzadas.PC_AGH.ListViewValue %> "> "> <% End If %> <% End If %> <% If provas_cruzadas.CONTROCEL_PC_T1.Visible Then ' CONTROCEL_PC_T1 %> > <% If provas_cruzadas.RowType = EW_ROWTYPE_ADD Then ' Add Record %> > "> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> > <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= provas_cruzadas.CONTROCEL_PC_T1.ListViewValue %> "> "> <% End If %> <% End If %> <% If provas_cruzadas.CONTROCEL_PC_T2.Visible Then ' CONTROCEL_PC_T2 %> > <% If provas_cruzadas.RowType = EW_ROWTYPE_ADD Then ' Add Record %> > "> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> > <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= provas_cruzadas.CONTROCEL_PC_T2.ListViewValue %> "> "> <% End If %> <% End If %> <% If provas_cruzadas.CONTROCEL_PC.Visible Then ' CONTROCEL_PC %> > <% If provas_cruzadas.RowType = EW_ROWTYPE_ADD Then ' Add Record %> > "> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> > <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= provas_cruzadas.CONTROCEL_PC.ListViewValue %> "> "> <% End If %> <% End If %> <% If provas_cruzadas.CONTROCEL_TAD.Visible Then ' CONTROCEL_TAD %> > <% If provas_cruzadas.RowType = EW_ROWTYPE_ADD Then ' Add Record %> > "> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> > <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= provas_cruzadas.CONTROCEL_TAD.ListViewValue %> "> "> <% End If %> <% End If %> <% If provas_cruzadas.TESTE_HEMOLISE.Visible Then ' TESTE_HEMOLISE %> > <% If provas_cruzadas.RowType = EW_ROWTYPE_ADD Then ' Add Record %> > "> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> > <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= provas_cruzadas.TESTE_HEMOLISE.ListViewValue %> "> "> <% End If %> <% End If %> <% If provas_cruzadas.HORA.Visible Then ' HORA %> > <% If provas_cruzadas.RowType = EW_ROWTYPE_ADD Then ' Add Record %> > "> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> > <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= provas_cruzadas.HORA.ListViewValue %> "> "> <% End If %> <% End If %> <% If provas_cruzadas.TECNICO.Visible Then ' TECNICO %> > <% If provas_cruzadas.RowType = EW_ROWTYPE_ADD Then ' Add Record %> "> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= provas_cruzadas.TECNICO.ListViewValue %> "> "> <% End If %> <% End If %> <% ' Render list options (body, right) provas_cruzadas_grid.ListOptions.Render "body", "right" %> <% If provas_cruzadas.RowType = EW_ROWTYPE_ADD Then %> <% End If %> <% If provas_cruzadas.RowType = EW_ROWTYPE_EDIT Then %> <% End If %> <% End If End If ' End delete row checking If provas_cruzadas.CurrentAction <> "gridadd" Or provas_cruzadas.CurrentMode = "copy" Then If Not provas_cruzadas_grid.Recordset.Eof Then provas_cruzadas_grid.Recordset.MoveNext() End If Loop %> <% If provas_cruzadas.CurrentMode = "add" Or provas_cruzadas.CurrentMode = "copy" Or provas_cruzadas.CurrentMode = "edit" Then provas_cruzadas_grid.RowIndex = "$rowindex$" provas_cruzadas_grid.LoadDefaultValues() ' Set row properties Call provas_cruzadas.ResetAttrs() provas_cruzadas.RowAttrs.AddAttributes Array() If Not IsEmpty(provas_cruzadas_grid.RowIndex) Then provas_cruzadas.RowAttrs.AddAttributes Array(Array("data-rowindex", provas_cruzadas_grid.RowIndex), Array("id", "r" & provas_cruzadas_grid.RowIndex & "_provas_cruzadas")) End If provas_cruzadas.RowType = EW_ROWTYPE_ADD ' Render row Call provas_cruzadas_grid.RenderRow() ' Render list options Call provas_cruzadas_grid.RenderListOptions() ' Add id and class to the template row provas_cruzadas.RowAttrs.UpdateAttribute "id", "r0_provas_cruzadas" provas_cruzadas.RowAttrs.AddAttribute "class", "ewTemplate", True %> > <% ' Render list options (body, left) provas_cruzadas_grid.ListOptions.Render "body", "left" %> <% If provas_cruzadas.ID.Visible Then ' ID %> >  <% End If %> <% If provas_cruzadas.DATA.Visible Then ' DATA %> > <% If provas_cruzadas.CurrentAction <> "F" Then %> >  <%= Language.Phrase(" title="<%= Language.Phrase("PickDate") %>" style="cursor:pointer;cursor:hand;"> <% Else %> ><%= provas_cruzadas.DATA.ViewValue %> "> <% End If %> "> <% End If %> <% If provas_cruzadas.REGISTRO_GERAL.Visible Then ' REGISTRO_GERAL %> > <% If provas_cruzadas.CurrentAction <> "F" Then %> <% If provas_cruzadas.REGISTRO_GERAL.SessionValue <> "" Then %> ><%= provas_cruzadas.REGISTRO_GERAL.ListViewValue %> <% Else %> <% End If %> <% Else %> ><%= provas_cruzadas.REGISTRO_GERAL.ViewValue %> "> <% End If %> "> <% End If %> <% If provas_cruzadas.ABO.Visible Then ' ABO %> > <% If provas_cruzadas.CurrentAction <> "F" Then %> <% Else %> ><%= provas_cruzadas.ABO.ViewValue %> "> <% End If %> "> <% End If %> <% If provas_cruzadas.RH_D.Visible Then ' RH_D %> > <% If provas_cruzadas.CurrentAction <> "F" Then %> <% Else %> ><%= provas_cruzadas.RH_D.ViewValue %> "> <% End If %> "> <% End If %> <% If provas_cruzadas.RH_C.Visible Then ' RH_C %> > <% If provas_cruzadas.CurrentAction <> "F" Then %> <% Else %> ><%= provas_cruzadas.RH_C.ViewValue %> "> <% End If %> "> <% End If %> <% If provas_cruzadas.REVERSA_A.Visible Then ' REVERSA_A %> > <% If provas_cruzadas.CurrentAction <> "F" Then %> <% Else %> ><%= provas_cruzadas.REVERSA_A.ViewValue %> "> <% End If %> "> <% End If %> <% If provas_cruzadas.REVERSA_B.Visible Then ' REVERSA_B %> > <% If provas_cruzadas.CurrentAction <> "F" Then %> <% Else %> ><%= provas_cruzadas.REVERSA_B.ViewValue %> "> <% End If %> "> <% End If %> <% If provas_cruzadas.TA_T1.Visible Then ' TA_T1 %> > <% If provas_cruzadas.CurrentAction <> "F" Then %> <% Else %> ><%= provas_cruzadas.TA_T1.ViewValue %> "> <% End If %> "> <% End If %> <% If provas_cruzadas.TA_T2.Visible Then ' TA_T2 %> > <% If provas_cruzadas.CurrentAction <> "F" Then %> <% Else %> ><%= provas_cruzadas.TA_T2.ViewValue %> "> <% End If %> "> <% End If %> <% If provas_cruzadas.AGH_T1.Visible Then ' AGH_T1 %> > <% If provas_cruzadas.CurrentAction <> "F" Then %> <% Else %> ><%= provas_cruzadas.AGH_T1.ViewValue %> "> <% End If %> "> <% End If %> <% If provas_cruzadas.AGH_T2.Visible Then ' AGH_T2 %> > <% If provas_cruzadas.CurrentAction <> "F" Then %> <% Else %> ><%= provas_cruzadas.AGH_T2.ViewValue %> "> <% End If %> "> <% End If %> <% If provas_cruzadas.TAD.Visible Then ' TAD %> > <% If provas_cruzadas.CurrentAction <> "F" Then %> <% Else %> ><%= provas_cruzadas.TAD.ViewValue %> "> <% End If %> "> <% End If %> <% If provas_cruzadas.AUTO_A2FC.Visible Then ' AUTO_A/C %> > <% If provas_cruzadas.CurrentAction <> "F" Then %> <% Else %> ><%= provas_cruzadas.AUTO_A2FC.ViewValue %> "> <% End If %> "> <% End If %> <% If provas_cruzadas.NUMERO_BOLSA.Visible Then ' NUMERO_BOLSA %> > <% If provas_cruzadas.CurrentAction <> "F" Then %> <% Else %> ><%= provas_cruzadas.NUMERO_BOLSA.ViewValue %> "> <% End If %> "> <% End If %> <% If provas_cruzadas.ABO_RH_BOLSA.Visible Then ' ABO_RH_BOLSA %> > <% If provas_cruzadas.CurrentAction <> "F" Then %> <% Else %> ><%= provas_cruzadas.ABO_RH_BOLSA.ViewValue %> "> <% End If %> "> <% End If %> <% If provas_cruzadas.PC_TA.Visible Then ' PC_TA %> > <% If provas_cruzadas.CurrentAction <> "F" Then %> <% Else %> ><%= provas_cruzadas.PC_TA.ViewValue %> "> <% End If %> "> <% End If %> <% If provas_cruzadas.PC_AGH.Visible Then ' PC_AGH %> > <% If provas_cruzadas.CurrentAction <> "F" Then %> <% Else %> ><%= provas_cruzadas.PC_AGH.ViewValue %> "> <% End If %> "> <% End If %> <% If provas_cruzadas.CONTROCEL_PC_T1.Visible Then ' CONTROCEL_PC_T1 %> > <% If provas_cruzadas.CurrentAction <> "F" Then %> > <% Else %> ><%= provas_cruzadas.CONTROCEL_PC_T1.ViewValue %> "> <% End If %> "> <% End If %> <% If provas_cruzadas.CONTROCEL_PC_T2.Visible Then ' CONTROCEL_PC_T2 %> > <% If provas_cruzadas.CurrentAction <> "F" Then %> > <% Else %> ><%= provas_cruzadas.CONTROCEL_PC_T2.ViewValue %> "> <% End If %> "> <% End If %> <% If provas_cruzadas.CONTROCEL_PC.Visible Then ' CONTROCEL_PC %> > <% If provas_cruzadas.CurrentAction <> "F" Then %> > <% Else %> ><%= provas_cruzadas.CONTROCEL_PC.ViewValue %> "> <% End If %> "> <% End If %> <% If provas_cruzadas.CONTROCEL_TAD.Visible Then ' CONTROCEL_TAD %> > <% If provas_cruzadas.CurrentAction <> "F" Then %> > <% Else %> ><%= provas_cruzadas.CONTROCEL_TAD.ViewValue %> "> <% End If %> "> <% End If %> <% If provas_cruzadas.TESTE_HEMOLISE.Visible Then ' TESTE_HEMOLISE %> > <% If provas_cruzadas.CurrentAction <> "F" Then %> > <% Else %> ><%= provas_cruzadas.TESTE_HEMOLISE.ViewValue %> "> <% End If %> "> <% End If %> <% If provas_cruzadas.HORA.Visible Then ' HORA %> > <% If provas_cruzadas.CurrentAction <> "F" Then %> > <% Else %> ><%= provas_cruzadas.HORA.ViewValue %> "> <% End If %> "> <% End If %> <% If provas_cruzadas.TECNICO.Visible Then ' TECNICO %> > <% If provas_cruzadas.CurrentAction <> "F" Then %> <% Else %> ><%= provas_cruzadas.TECNICO.ViewValue %> "> <% End If %> "> <% End If %> <% ' Render list options (body, right) provas_cruzadas_grid.ListOptions.Render "body", "right" %> <% End If %>
<%= 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 %><% 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 %><% 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 %><% 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 %><% 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 %><% 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 %><% 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 %>
<% If provas_cruzadas.CurrentMode = "add" Or provas_cruzadas.CurrentMode = "copy" Then %> <%= provas_cruzadas_grid.MultiSelectKey %> <% End If %> <% If provas_cruzadas.CurrentMode = "edit" Then %> <%= provas_cruzadas_grid.MultiSelectKey %> <% End If %>
<% ' Close recordset and connection provas_cruzadas_grid.Recordset.Close Set provas_cruzadas_grid.Recordset = Nothing %> <% If (provas_cruzadas.CurrentMode = "add" Or provas_cruzadas.CurrentMode = "copy" Or provas_cruzadas.CurrentMode = "edit") And provas_cruzadas.CurrentAction <> "F" Then ' add/copy/edit mode %>
<% If provas_cruzadas.AllowAddDeleteRow Then %> <%= Language.Phrase("AddBlankRow") %>   <% End If %>
<% End If %>
<% If provas_cruzadas.Export = "" And provas_cruzadas.CurrentAction = "" Then %> <% End If %> <% provas_cruzadas_grid.ShowPageFooter() If EW_DEBUG_ENABLED Then Response.Write ew_DebugMsg() %> <% ' Drop page object Set provas_cruzadas_grid = Nothing Set Page = MasterPage %>