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

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

<% mapa_transfusional_grid.ShowMessage %>
<% If (mapa_transfusional.CurrentMode = "add" Or mapa_transfusional.CurrentMode = "copy" Or mapa_transfusional.CurrentMode = "edit") And mapa_transfusional.CurrentAction <> "F" Then ' add/copy/edit mode %>
<% If mapa_transfusional.AllowAddDeleteRow Then %> <%= Language.Phrase("AddBlankRow") %>   <% End If %>
<% End If %>
<%= mapa_transfusional.TableCustomInnerHTML %> <% Call mapa_transfusional_grid.RenderListOptions() ' Render list options (header, left) mapa_transfusional_grid.ListOptions.Render "header", "left" %> <% If mapa_transfusional.ID.Visible Then ' ID %> <% If mapa_transfusional.SortUrl(mapa_transfusional.ID) = "" Then %> <% Else %> <% End If %> <% End If %> <% If mapa_transfusional.DATA.Visible Then ' DATA %> <% If mapa_transfusional.SortUrl(mapa_transfusional.DATA) = "" Then %> <% Else %> <% End If %> <% End If %> <% If mapa_transfusional.REGISTRO_GERAL.Visible Then ' REGISTRO_GERAL %> <% If mapa_transfusional.SortUrl(mapa_transfusional.REGISTRO_GERAL) = "" Then %> <% Else %> <% End If %> <% End If %> <% If mapa_transfusional.ESPECIE.Visible Then ' ESPECIE %> <% If mapa_transfusional.SortUrl(mapa_transfusional.ESPECIE) = "" Then %> <% Else %> <% End If %> <% End If %> <% If mapa_transfusional.NUMERO_BOLSA.Visible Then ' NUMERO_BOLSA %> <% If mapa_transfusional.SortUrl(mapa_transfusional.NUMERO_BOLSA) = "" Then %> <% Else %> <% End If %> <% End If %> <% If mapa_transfusional.HORA_INICIAL.Visible Then ' HORA_INICIAL %> <% If mapa_transfusional.SortUrl(mapa_transfusional.HORA_INICIAL) = "" Then %> <% Else %> <% End If %> <% End If %> <% If mapa_transfusional.RESPONSAVEL1.Visible Then ' RESPONSAVEL1 %> <% If mapa_transfusional.SortUrl(mapa_transfusional.RESPONSAVEL1) = "" Then %> <% Else %> <% End If %> <% End If %> <% If mapa_transfusional.REVISAO_130.Visible Then ' REVISAO_130 %> <% If mapa_transfusional.SortUrl(mapa_transfusional.REVISAO_130) = "" Then %> <% Else %> <% End If %> <% End If %> <% If mapa_transfusional.RESPONSAVEL2.Visible Then ' RESPONSAVEL2 %> <% If mapa_transfusional.SortUrl(mapa_transfusional.RESPONSAVEL2) = "" Then %> <% Else %> <% End If %> <% End If %> <% If mapa_transfusional.HORA_FINAL.Visible Then ' HORA_FINAL %> <% If mapa_transfusional.SortUrl(mapa_transfusional.HORA_FINAL) = "" Then %> <% Else %> <% End If %> <% End If %> <% If mapa_transfusional.RESPONSAVEL3.Visible Then ' RESPONSAVEL3 %> <% If mapa_transfusional.SortUrl(mapa_transfusional.RESPONSAVEL3) = "" Then %> <% Else %> <% End If %> <% End If %> <% If mapa_transfusional.PA_INICIAL.Visible Then ' PA_INICIAL %> <% If mapa_transfusional.SortUrl(mapa_transfusional.PA_INICIAL) = "" Then %> <% Else %> <% End If %> <% End If %> <% If mapa_transfusional.PA_FINAL.Visible Then ' PA_FINAL %> <% If mapa_transfusional.SortUrl(mapa_transfusional.PA_FINAL) = "" Then %> <% Else %> <% End If %> <% End If %> <% If mapa_transfusional.TEMP_INICIAL.Visible Then ' TEMP_INICIAL %> <% If mapa_transfusional.SortUrl(mapa_transfusional.TEMP_INICIAL) = "" Then %> <% Else %> <% End If %> <% End If %> <% If mapa_transfusional.TEMP_FINAL.Visible Then ' TEMP_FINAL %> <% If mapa_transfusional.SortUrl(mapa_transfusional.TEMP_FINAL) = "" Then %> <% Else %> <% End If %> <% End If %> <% If mapa_transfusional.PULSO_ART_INICIAL.Visible Then ' PULSO_ART_INICIAL %> <% If mapa_transfusional.SortUrl(mapa_transfusional.PULSO_ART_INICIAL) = "" Then %> <% Else %> <% End If %> <% End If %> <% If mapa_transfusional.PULSO_ART_FINAL.Visible Then ' PULSO_ART_FINAL %> <% If mapa_transfusional.SortUrl(mapa_transfusional.PULSO_ART_FINAL) = "" Then %> <% Else %> <% End If %> <% End If %> <% ' Render list options (header, right) mapa_transfusional_grid.ListOptions.Render "header", "right" %> <% mapa_transfusional_grid.StartRec = 1 mapa_transfusional_grid.StopRec = mapa_transfusional_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 (mapa_transfusional.CurrentAction = "gridadd" Or mapa_transfusional.CurrentAction = "gridedit" Or mapa_transfusional.CurrentAction = "F") Then mapa_transfusional_grid.KeyCount = ObjForm.GetValue("key_count") mapa_transfusional_grid.StopRec = mapa_transfusional_grid.KeyCount End If End If ' Move to first record mapa_transfusional_grid.RecCnt = mapa_transfusional_grid.StartRec - 1 If Not mapa_transfusional_grid.Recordset.Eof Then mapa_transfusional_grid.Recordset.MoveFirst If mapa_transfusional_grid.StartRec > 1 Then mapa_transfusional_grid.Recordset.Move mapa_transfusional_grid.StartRec - 1 ElseIf Not mapa_transfusional.AllowAddDeleteRow And mapa_transfusional_grid.StopRec = 0 Then mapa_transfusional_grid.StopRec = mapa_transfusional.GridAddRowCount End If ' Initialize Aggregate mapa_transfusional.RowType = EW_ROWTYPE_AGGREGATEINIT Call mapa_transfusional.ResetAttrs() Call mapa_transfusional_grid.RenderRow() mapa_transfusional_grid.RowCnt = 0 If mapa_transfusional.CurrentAction = "gridadd" Then mapa_transfusional_grid.RowIndex = 0 If mapa_transfusional.CurrentAction = "gridedit" Then mapa_transfusional_grid.RowIndex = 0 ' Output date rows Do While CLng(mapa_transfusional_grid.RecCnt) < CLng(mapa_transfusional_grid.StopRec) mapa_transfusional_grid.RecCnt = mapa_transfusional_grid.RecCnt + 1 If CLng(mapa_transfusional_grid.RecCnt) >= CLng(mapa_transfusional_grid.StartRec) Then mapa_transfusional_grid.RowCnt = mapa_transfusional_grid.RowCnt + 1 If mapa_transfusional.CurrentAction = "gridadd" Or mapa_transfusional.CurrentAction = "gridedit" Or mapa_transfusional.CurrentAction = "F" Then mapa_transfusional_grid.RowIndex = mapa_transfusional_grid.RowIndex + 1 ObjForm.Index = mapa_transfusional_grid.RowIndex If ObjForm.HasValue("k_action") Then mapa_transfusional_grid.RowAction = ObjForm.GetValue("k_action") & "" ElseIf mapa_transfusional.CurrentAction = "gridadd" Then mapa_transfusional_grid.RowAction = "insert" Else mapa_transfusional_grid.RowAction = "" End If End If ' Set up key count mapa_transfusional_grid.KeyCount = mapa_transfusional_grid.RowIndex Call mapa_transfusional.ResetAttrs() mapa_transfusional.CssClass = "" If mapa_transfusional.CurrentAction = "gridadd" Then If mapa_transfusional.CurrentMode = "copy" Then Call mapa_transfusional_grid.LoadRowValues(mapa_transfusional_grid.Recordset) ' Load row values mapa_transfusional_grid.RowOldKey = mapa_transfusional_grid.SetRecordKey(mapa_transfusional_grid.Recordset) ' Set old record key Else Call mapa_transfusional_grid.LoadDefaultValues() ' Load default values mapa_transfusional_grid.RowOldKey = "" ' Clear old key value End If Else Call mapa_transfusional_grid.LoadRowValues(mapa_transfusional_grid.Recordset) ' Load row values End If mapa_transfusional.RowType = EW_ROWTYPE_VIEW ' Render view If mapa_transfusional.CurrentAction = "gridadd" Then ' Grid add mapa_transfusional.RowType = EW_ROWTYPE_ADD ' Render add End If If mapa_transfusional.CurrentAction = "gridadd" And mapa_transfusional.EventCancelled Then ' Insert failed Call mapa_transfusional_grid.RestoreCurrentRowFormValues(mapa_transfusional_grid.RowIndex) ' Restore form values End If If mapa_transfusional.CurrentAction = "gridedit" Then ' Grid edit If mapa_transfusional.EventCancelled Then ' Update failed Call mapa_transfusional_grid.RestoreCurrentRowFormValues(mapa_transfusional_grid.RowIndex) ' Restore form values End If If mapa_transfusional_grid.RowAction = "insert" Then mapa_transfusional.RowType = EW_ROWTYPE_ADD ' Render add Else mapa_transfusional.RowType = EW_ROWTYPE_EDIT ' Render edit End If End If If mapa_transfusional.RowType = EW_ROWTYPE_EDIT Then ' Edit row mapa_transfusional_grid.EditRowCnt = mapa_transfusional_grid.EditRowCnt + 1 End If If mapa_transfusional.CurrentAction = "F" Then ' Confirm row Call mapa_transfusional_grid.RestoreCurrentRowFormValues(mapa_transfusional_grid.RowIndex) ' Restore form values End If If mapa_transfusional.RowType = EW_ROWTYPE_ADD Or mapa_transfusional.RowType = EW_ROWTYPE_EDIT Then ' Add / Edit row If mapa_transfusional.CurrentAction = "edit" Then mapa_transfusional.RowAttrs.AddAttributes Array() mapa_transfusional.CssClass = "ewTableEditRow" Else mapa_transfusional.RowAttrs.AddAttributes Array() End If If Not IsEmpty(mapa_transfusional_grid.RowIndex) Then mapa_transfusional.RowAttrs.AddAttributes Array(Array("data-rowindex", mapa_transfusional_grid.RowIndex), Array("id", "r" & mapa_transfusional_grid.RowIndex & "_mapa_transfusional")) End If Else mapa_transfusional.RowAttrs.AddAttributes Array() End If ' Render row Call mapa_transfusional_grid.RenderRow() ' Render list options Call mapa_transfusional_grid.RenderListOptions() ' Skip delete row / empty row for confirm page If mapa_transfusional_grid.RowAction <> "delete" And mapa_transfusional_grid.RowAction <> "insertdelete" And Not (mapa_transfusional_grid.RowAction = "insert" And mapa_transfusional.CurrentAction = "F" And mapa_transfusional_grid.EmptyRow()) Then %> > <% ' Render list options (body, left) mapa_transfusional_grid.ListOptions.Render "body", "left" %> <% If mapa_transfusional.ID.Visible Then ' ID %> > <% If mapa_transfusional.RowType = EW_ROWTYPE_ADD Then ' Add Record %> "> <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> ><%= mapa_transfusional.ID.EditValue %> "> <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= mapa_transfusional.ID.ListViewValue %> "> "> <% End If %> " id="<%= mapa_transfusional_grid.PageObjName & "_row_" & mapa_transfusional_grid.RowCnt %>"> <% End If %> <% If mapa_transfusional.DATA.Visible Then ' DATA %> > <% If mapa_transfusional.RowType = EW_ROWTYPE_ADD Then ' Add Record %> >  <%= Language.Phrase(" title="<%= Language.Phrase("PickDate") %>" style="cursor:pointer;cursor:hand;"> "> "> <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> >  <%= Language.Phrase(" title="<%= Language.Phrase("PickDate") %>" style="cursor:pointer;cursor:hand;"> <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= mapa_transfusional.DATA.ListViewValue %> "> "> <% End If %> <% End If %> <% If mapa_transfusional.REGISTRO_GERAL.Visible Then ' REGISTRO_GERAL %> > <% If mapa_transfusional.RowType = EW_ROWTYPE_ADD Then ' Add Record %> <% If mapa_transfusional.REGISTRO_GERAL.SessionValue <> "" Then %> ><%= mapa_transfusional.REGISTRO_GERAL.ListViewValue %> <% Else %> <% End If %> "> <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> <% If mapa_transfusional.REGISTRO_GERAL.SessionValue <> "" Then %> ><%= mapa_transfusional.REGISTRO_GERAL.ListViewValue %> <% Else %> <% End If %> <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= mapa_transfusional.REGISTRO_GERAL.ListViewValue %> "> "> <% End If %> <% End If %> <% If mapa_transfusional.ESPECIE.Visible Then ' ESPECIE %> > <% If mapa_transfusional.RowType = EW_ROWTYPE_ADD Then ' Add Record %> "> <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= mapa_transfusional.ESPECIE.ListViewValue %> "> "> <% End If %> <% End If %> <% If mapa_transfusional.NUMERO_BOLSA.Visible Then ' NUMERO_BOLSA %> > <% If mapa_transfusional.RowType = EW_ROWTYPE_ADD Then ' Add Record %> "> <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= mapa_transfusional.NUMERO_BOLSA.ListViewValue %> "> "> <% End If %> <% End If %> <% If mapa_transfusional.HORA_INICIAL.Visible Then ' HORA_INICIAL %> > <% If mapa_transfusional.RowType = EW_ROWTYPE_ADD Then ' Add Record %> > "> <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> > <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= mapa_transfusional.HORA_INICIAL.ListViewValue %> "> "> <% End If %> <% End If %> <% If mapa_transfusional.RESPONSAVEL1.Visible Then ' RESPONSAVEL1 %> > <% If mapa_transfusional.RowType = EW_ROWTYPE_ADD Then ' Add Record %> "> <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= mapa_transfusional.RESPONSAVEL1.ListViewValue %> "> "> <% End If %> <% End If %> <% If mapa_transfusional.REVISAO_130.Visible Then ' REVISAO_130 %> > <% If mapa_transfusional.RowType = EW_ROWTYPE_ADD Then ' Add Record %> > "> <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> > <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= mapa_transfusional.REVISAO_130.ListViewValue %> "> "> <% End If %> <% End If %> <% If mapa_transfusional.RESPONSAVEL2.Visible Then ' RESPONSAVEL2 %> > <% If mapa_transfusional.RowType = EW_ROWTYPE_ADD Then ' Add Record %> "> <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= mapa_transfusional.RESPONSAVEL2.ListViewValue %> "> "> <% End If %> <% End If %> <% If mapa_transfusional.HORA_FINAL.Visible Then ' HORA_FINAL %> > <% If mapa_transfusional.RowType = EW_ROWTYPE_ADD Then ' Add Record %> > "> <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> > <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= mapa_transfusional.HORA_FINAL.ListViewValue %> "> "> <% End If %> <% End If %> <% If mapa_transfusional.RESPONSAVEL3.Visible Then ' RESPONSAVEL3 %> > <% If mapa_transfusional.RowType = EW_ROWTYPE_ADD Then ' Add Record %> "> <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= mapa_transfusional.RESPONSAVEL3.ListViewValue %> "> "> <% End If %> <% End If %> <% If mapa_transfusional.PA_INICIAL.Visible Then ' PA_INICIAL %> > <% If mapa_transfusional.RowType = EW_ROWTYPE_ADD Then ' Add Record %> > "> <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> > <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= mapa_transfusional.PA_INICIAL.ListViewValue %> "> "> <% End If %> <% End If %> <% If mapa_transfusional.PA_FINAL.Visible Then ' PA_FINAL %> > <% If mapa_transfusional.RowType = EW_ROWTYPE_ADD Then ' Add Record %> > "> <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> > <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= mapa_transfusional.PA_FINAL.ListViewValue %> "> "> <% End If %> <% End If %> <% If mapa_transfusional.TEMP_INICIAL.Visible Then ' TEMP_INICIAL %> > <% If mapa_transfusional.RowType = EW_ROWTYPE_ADD Then ' Add Record %> > "> <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> > <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= mapa_transfusional.TEMP_INICIAL.ListViewValue %> "> "> <% End If %> <% End If %> <% If mapa_transfusional.TEMP_FINAL.Visible Then ' TEMP_FINAL %> > <% If mapa_transfusional.RowType = EW_ROWTYPE_ADD Then ' Add Record %> > "> <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> > <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= mapa_transfusional.TEMP_FINAL.ListViewValue %> "> "> <% End If %> <% End If %> <% If mapa_transfusional.PULSO_ART_INICIAL.Visible Then ' PULSO_ART_INICIAL %> > <% If mapa_transfusional.RowType = EW_ROWTYPE_ADD Then ' Add Record %> > "> <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> > <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= mapa_transfusional.PULSO_ART_INICIAL.ListViewValue %> "> "> <% End If %> <% End If %> <% If mapa_transfusional.PULSO_ART_FINAL.Visible Then ' PULSO_ART_FINAL %> > <% If mapa_transfusional.RowType = EW_ROWTYPE_ADD Then ' Add Record %> > "> <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_EDIT Then ' Edit Record %> > <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_VIEW Then ' View Record %> ><%= mapa_transfusional.PULSO_ART_FINAL.ListViewValue %> "> "> <% End If %> <% End If %> <% ' Render list options (body, right) mapa_transfusional_grid.ListOptions.Render "body", "right" %> <% If mapa_transfusional.RowType = EW_ROWTYPE_ADD Then %> <% End If %> <% If mapa_transfusional.RowType = EW_ROWTYPE_EDIT Then %> <% End If %> <% End If End If ' End delete row checking If mapa_transfusional.CurrentAction <> "gridadd" Or mapa_transfusional.CurrentMode = "copy" Then If Not mapa_transfusional_grid.Recordset.Eof Then mapa_transfusional_grid.Recordset.MoveNext() End If Loop %> <% If mapa_transfusional.CurrentMode = "add" Or mapa_transfusional.CurrentMode = "copy" Or mapa_transfusional.CurrentMode = "edit" Then mapa_transfusional_grid.RowIndex = "$rowindex$" mapa_transfusional_grid.LoadDefaultValues() ' Set row properties Call mapa_transfusional.ResetAttrs() mapa_transfusional.RowAttrs.AddAttributes Array() If Not IsEmpty(mapa_transfusional_grid.RowIndex) Then mapa_transfusional.RowAttrs.AddAttributes Array(Array("data-rowindex", mapa_transfusional_grid.RowIndex), Array("id", "r" & mapa_transfusional_grid.RowIndex & "_mapa_transfusional")) End If mapa_transfusional.RowType = EW_ROWTYPE_ADD ' Render row Call mapa_transfusional_grid.RenderRow() ' Render list options Call mapa_transfusional_grid.RenderListOptions() ' Add id and class to the template row mapa_transfusional.RowAttrs.UpdateAttribute "id", "r0_mapa_transfusional" mapa_transfusional.RowAttrs.AddAttribute "class", "ewTemplate", True %> > <% ' Render list options (body, left) mapa_transfusional_grid.ListOptions.Render "body", "left" %> <% If mapa_transfusional.ID.Visible Then ' ID %> >  <% End If %> <% If mapa_transfusional.DATA.Visible Then ' DATA %> > <% If mapa_transfusional.CurrentAction <> "F" Then %> >  <%= Language.Phrase(" title="<%= Language.Phrase("PickDate") %>" style="cursor:pointer;cursor:hand;"> <% Else %> ><%= mapa_transfusional.DATA.ViewValue %> "> <% End If %> "> <% End If %> <% If mapa_transfusional.REGISTRO_GERAL.Visible Then ' REGISTRO_GERAL %> > <% If mapa_transfusional.CurrentAction <> "F" Then %> <% If mapa_transfusional.REGISTRO_GERAL.SessionValue <> "" Then %> ><%= mapa_transfusional.REGISTRO_GERAL.ListViewValue %> <% Else %> <% End If %> <% Else %> ><%= mapa_transfusional.REGISTRO_GERAL.ViewValue %> "> <% End If %> "> <% End If %> <% If mapa_transfusional.ESPECIE.Visible Then ' ESPECIE %> > <% If mapa_transfusional.CurrentAction <> "F" Then %> <% Else %> ><%= mapa_transfusional.ESPECIE.ViewValue %> "> <% End If %> "> <% End If %> <% If mapa_transfusional.NUMERO_BOLSA.Visible Then ' NUMERO_BOLSA %> > <% If mapa_transfusional.CurrentAction <> "F" Then %> <% Else %> ><%= mapa_transfusional.NUMERO_BOLSA.ViewValue %> "> <% End If %> "> <% End If %> <% If mapa_transfusional.HORA_INICIAL.Visible Then ' HORA_INICIAL %> > <% If mapa_transfusional.CurrentAction <> "F" Then %> > <% Else %> ><%= mapa_transfusional.HORA_INICIAL.ViewValue %> "> <% End If %> "> <% End If %> <% If mapa_transfusional.RESPONSAVEL1.Visible Then ' RESPONSAVEL1 %> > <% If mapa_transfusional.CurrentAction <> "F" Then %> <% Else %> ><%= mapa_transfusional.RESPONSAVEL1.ViewValue %> "> <% End If %> "> <% End If %> <% If mapa_transfusional.REVISAO_130.Visible Then ' REVISAO_130 %> > <% If mapa_transfusional.CurrentAction <> "F" Then %> > <% Else %> ><%= mapa_transfusional.REVISAO_130.ViewValue %> "> <% End If %> "> <% End If %> <% If mapa_transfusional.RESPONSAVEL2.Visible Then ' RESPONSAVEL2 %> > <% If mapa_transfusional.CurrentAction <> "F" Then %> <% Else %> ><%= mapa_transfusional.RESPONSAVEL2.ViewValue %> "> <% End If %> "> <% End If %> <% If mapa_transfusional.HORA_FINAL.Visible Then ' HORA_FINAL %> > <% If mapa_transfusional.CurrentAction <> "F" Then %> > <% Else %> ><%= mapa_transfusional.HORA_FINAL.ViewValue %> "> <% End If %> "> <% End If %> <% If mapa_transfusional.RESPONSAVEL3.Visible Then ' RESPONSAVEL3 %> > <% If mapa_transfusional.CurrentAction <> "F" Then %> <% Else %> ><%= mapa_transfusional.RESPONSAVEL3.ViewValue %> "> <% End If %> "> <% End If %> <% If mapa_transfusional.PA_INICIAL.Visible Then ' PA_INICIAL %> > <% If mapa_transfusional.CurrentAction <> "F" Then %> > <% Else %> ><%= mapa_transfusional.PA_INICIAL.ViewValue %> "> <% End If %> "> <% End If %> <% If mapa_transfusional.PA_FINAL.Visible Then ' PA_FINAL %> > <% If mapa_transfusional.CurrentAction <> "F" Then %> > <% Else %> ><%= mapa_transfusional.PA_FINAL.ViewValue %> "> <% End If %> "> <% End If %> <% If mapa_transfusional.TEMP_INICIAL.Visible Then ' TEMP_INICIAL %> > <% If mapa_transfusional.CurrentAction <> "F" Then %> > <% Else %> ><%= mapa_transfusional.TEMP_INICIAL.ViewValue %> "> <% End If %> "> <% End If %> <% If mapa_transfusional.TEMP_FINAL.Visible Then ' TEMP_FINAL %> > <% If mapa_transfusional.CurrentAction <> "F" Then %> > <% Else %> ><%= mapa_transfusional.TEMP_FINAL.ViewValue %> "> <% End If %> "> <% End If %> <% If mapa_transfusional.PULSO_ART_INICIAL.Visible Then ' PULSO_ART_INICIAL %> > <% If mapa_transfusional.CurrentAction <> "F" Then %> > <% Else %> ><%= mapa_transfusional.PULSO_ART_INICIAL.ViewValue %> "> <% End If %> "> <% End If %> <% If mapa_transfusional.PULSO_ART_FINAL.Visible Then ' PULSO_ART_FINAL %> > <% If mapa_transfusional.CurrentAction <> "F" Then %> > <% Else %> ><%= mapa_transfusional.PULSO_ART_FINAL.ViewValue %> "> <% End If %> "> <% End If %> <% ' Render list options (body, right) mapa_transfusional_grid.ListOptions.Render "body", "right" %> <% End If %>
<%= mapa_transfusional.ID.FldCaption %>
<%= mapa_transfusional.ID.FldCaption %><% If mapa_transfusional.ID.Sort = "ASC" Then %><% ElseIf mapa_transfusional.ID.Sort = "DESC" Then %><% End If %>
<%= mapa_transfusional.DATA.FldCaption %>
<%= mapa_transfusional.DATA.FldCaption %><% If mapa_transfusional.DATA.Sort = "ASC" Then %><% ElseIf mapa_transfusional.DATA.Sort = "DESC" Then %><% End If %>
<%= mapa_transfusional.REGISTRO_GERAL.FldCaption %>
<%= mapa_transfusional.REGISTRO_GERAL.FldCaption %><% If mapa_transfusional.REGISTRO_GERAL.Sort = "ASC" Then %><% ElseIf mapa_transfusional.REGISTRO_GERAL.Sort = "DESC" Then %><% End If %>
<%= mapa_transfusional.ESPECIE.FldCaption %>
<%= mapa_transfusional.ESPECIE.FldCaption %><% If mapa_transfusional.ESPECIE.Sort = "ASC" Then %><% ElseIf mapa_transfusional.ESPECIE.Sort = "DESC" Then %><% End If %>
<%= mapa_transfusional.NUMERO_BOLSA.FldCaption %>
<%= mapa_transfusional.NUMERO_BOLSA.FldCaption %><% If mapa_transfusional.NUMERO_BOLSA.Sort = "ASC" Then %><% ElseIf mapa_transfusional.NUMERO_BOLSA.Sort = "DESC" Then %><% End If %>
<%= mapa_transfusional.HORA_INICIAL.FldCaption %>
<%= mapa_transfusional.HORA_INICIAL.FldCaption %><% If mapa_transfusional.HORA_INICIAL.Sort = "ASC" Then %><% ElseIf mapa_transfusional.HORA_INICIAL.Sort = "DESC" Then %><% End If %>
<%= mapa_transfusional.RESPONSAVEL1.FldCaption %>
<%= mapa_transfusional.RESPONSAVEL1.FldCaption %><% If mapa_transfusional.RESPONSAVEL1.Sort = "ASC" Then %><% ElseIf mapa_transfusional.RESPONSAVEL1.Sort = "DESC" Then %><% End If %>
<%= mapa_transfusional.REVISAO_130.FldCaption %>
<%= mapa_transfusional.REVISAO_130.FldCaption %><% If mapa_transfusional.REVISAO_130.Sort = "ASC" Then %><% ElseIf mapa_transfusional.REVISAO_130.Sort = "DESC" Then %><% End If %>
<%= mapa_transfusional.RESPONSAVEL2.FldCaption %>
<%= mapa_transfusional.RESPONSAVEL2.FldCaption %><% If mapa_transfusional.RESPONSAVEL2.Sort = "ASC" Then %><% ElseIf mapa_transfusional.RESPONSAVEL2.Sort = "DESC" Then %><% End If %>
<%= mapa_transfusional.HORA_FINAL.FldCaption %>
<%= mapa_transfusional.HORA_FINAL.FldCaption %><% If mapa_transfusional.HORA_FINAL.Sort = "ASC" Then %><% ElseIf mapa_transfusional.HORA_FINAL.Sort = "DESC" Then %><% End If %>
<%= mapa_transfusional.RESPONSAVEL3.FldCaption %>
<%= mapa_transfusional.RESPONSAVEL3.FldCaption %><% If mapa_transfusional.RESPONSAVEL3.Sort = "ASC" Then %><% ElseIf mapa_transfusional.RESPONSAVEL3.Sort = "DESC" Then %><% End If %>
<%= mapa_transfusional.PA_INICIAL.FldCaption %>
<%= mapa_transfusional.PA_INICIAL.FldCaption %><% If mapa_transfusional.PA_INICIAL.Sort = "ASC" Then %><% ElseIf mapa_transfusional.PA_INICIAL.Sort = "DESC" Then %><% End If %>
<%= mapa_transfusional.PA_FINAL.FldCaption %>
<%= mapa_transfusional.PA_FINAL.FldCaption %><% If mapa_transfusional.PA_FINAL.Sort = "ASC" Then %><% ElseIf mapa_transfusional.PA_FINAL.Sort = "DESC" Then %><% End If %>
<%= mapa_transfusional.TEMP_INICIAL.FldCaption %>
<%= mapa_transfusional.TEMP_INICIAL.FldCaption %><% If mapa_transfusional.TEMP_INICIAL.Sort = "ASC" Then %><% ElseIf mapa_transfusional.TEMP_INICIAL.Sort = "DESC" Then %><% End If %>
<%= mapa_transfusional.TEMP_FINAL.FldCaption %>
<%= mapa_transfusional.TEMP_FINAL.FldCaption %><% If mapa_transfusional.TEMP_FINAL.Sort = "ASC" Then %><% ElseIf mapa_transfusional.TEMP_FINAL.Sort = "DESC" Then %><% End If %>
<%= mapa_transfusional.PULSO_ART_INICIAL.FldCaption %>
<%= mapa_transfusional.PULSO_ART_INICIAL.FldCaption %><% If mapa_transfusional.PULSO_ART_INICIAL.Sort = "ASC" Then %><% ElseIf mapa_transfusional.PULSO_ART_INICIAL.Sort = "DESC" Then %><% End If %>
<%= mapa_transfusional.PULSO_ART_FINAL.FldCaption %>
<%= mapa_transfusional.PULSO_ART_FINAL.FldCaption %><% If mapa_transfusional.PULSO_ART_FINAL.Sort = "ASC" Then %><% ElseIf mapa_transfusional.PULSO_ART_FINAL.Sort = "DESC" Then %><% End If %>
<% If mapa_transfusional.CurrentMode = "add" Or mapa_transfusional.CurrentMode = "copy" Then %> <%= mapa_transfusional_grid.MultiSelectKey %> <% End If %> <% If mapa_transfusional.CurrentMode = "edit" Then %> <%= mapa_transfusional_grid.MultiSelectKey %> <% End If %>
<% ' Close recordset and connection mapa_transfusional_grid.Recordset.Close Set mapa_transfusional_grid.Recordset = Nothing %> <% If (mapa_transfusional.CurrentMode = "add" Or mapa_transfusional.CurrentMode = "copy" Or mapa_transfusional.CurrentMode = "edit") And mapa_transfusional.CurrentAction <> "F" Then ' add/copy/edit mode %>
<% If mapa_transfusional.AllowAddDeleteRow Then %> <%= Language.Phrase("AddBlankRow") %>   <% End If %>
<% End If %>
<% If mapa_transfusional.Export = "" And mapa_transfusional.CurrentAction = "" Then %> <% End If %> <% mapa_transfusional_grid.ShowPageFooter() If EW_DEBUG_ENABLED Then Response.Write ew_DebugMsg() %> <% ' Drop page object Set mapa_transfusional_grid = Nothing Set Page = MasterPage %>