<%@ CodePage="1252" LCID="1046" %> <% Response.Buffer = EW_RESPONSE_BUFFER %> <% Session.Timeout = 20 %> <% Call ew_Header(False, EW_CHARSET) %> <% ' Define page object Dim bolsas_recebidas_delete Set bolsas_recebidas_delete = New cbolsas_recebidas_delete Set Page = bolsas_recebidas_delete ' Page init processing Call bolsas_recebidas_delete.Page_Init() ' Page main processing Call bolsas_recebidas_delete.Page_Main() %> <% bolsas_recebidas_delete.ShowPageHeader() %> <% ' Load records for display Set bolsas_recebidas_delete.Recordset = bolsas_recebidas_delete.LoadRecordset() bolsas_recebidas_delete.TotalRecs = bolsas_recebidas_delete.Recordset.RecordCount ' Get record count If bolsas_recebidas_delete.TotalRecs <= 0 Then ' No record found, exit bolsas_recebidas_delete.Recordset.Close Set bolsas_recebidas_delete.Recordset = Nothing Call bolsas_recebidas_delete.Page_Terminate("bolsas_recebidaslist.asp") ' Return to list End If %>

<%= Language.Phrase("Delete") %> <%= Language.Phrase("TblTypeTABLE") %><%= bolsas_recebidas.TableCaption %>

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

<% bolsas_recebidas_delete.ShowMessage %>

<% For i = 0 to UBound(bolsas_recebidas_delete.RecKeys) %> <% Next %>
<%= bolsas_recebidas.TableCustomInnerHTML %> <% bolsas_recebidas_delete.RecCnt = 0 i = 0 Do While (Not bolsas_recebidas_delete.Recordset.Eof) bolsas_recebidas_delete.RecCnt = bolsas_recebidas_delete.RecCnt + 1 ' Set row properties Call bolsas_recebidas.ResetAttrs() bolsas_recebidas.RowType = EW_ROWTYPE_VIEW ' view ' Get the field contents Call bolsas_recebidas_delete.LoadRowValues(bolsas_recebidas_delete.Recordset) ' Render row Call bolsas_recebidas_delete.RenderRow() %> > > ><%= bolsas_recebidas.NUMERO_BOLSA.ListViewValue %> > ><%= bolsas_recebidas.DATA_COLETA.ListViewValue %> > ><%= bolsas_recebidas.DATA_REGISTRO.ListViewValue %> > ><%= bolsas_recebidas.DATA_VENCIMENTO.ListViewValue %> > ><%= bolsas_recebidas.NUMERO_HEMOCENTRO.ListViewValue %> > ><%= bolsas_recebidas.ESPECIE.ListViewValue %> > ><%= bolsas_recebidas.VOLUME.ListViewValue %> > ><%= bolsas_recebidas.ABO.ListViewValue %> > ><%= bolsas_recebidas.RH.ListViewValue %> > ><%= bolsas_recebidas.HVI_1_2.ListViewValue %> > ><%= bolsas_recebidas.HTLV.ListViewValue %> > ><%= bolsas_recebidas.SIFILIS.ListViewValue %> > ><%= bolsas_recebidas.CHAGAS.ListViewValue %> > ><%= bolsas_recebidas.HEPATITE_B_C.ListViewValue %> > ><%= bolsas_recebidas.DEST.ListViewValue %> > ><%= bolsas_recebidas.DATA_UTILI.ListViewValue %> <% bolsas_recebidas_delete.Recordset.MoveNext Loop bolsas_recebidas_delete.Recordset.Close Set bolsas_recebidas_delete.Recordset = Nothing %>
<%= bolsas_recebidas.NUMERO_BOLSA.FldCaption %> <%= bolsas_recebidas.DATA_COLETA.FldCaption %> <%= bolsas_recebidas.DATA_REGISTRO.FldCaption %> <%= bolsas_recebidas.DATA_VENCIMENTO.FldCaption %> <%= bolsas_recebidas.NUMERO_HEMOCENTRO.FldCaption %> <%= bolsas_recebidas.ESPECIE.FldCaption %> <%= bolsas_recebidas.VOLUME.FldCaption %> <%= bolsas_recebidas.ABO.FldCaption %> <%= bolsas_recebidas.RH.FldCaption %> <%= bolsas_recebidas.HVI_1_2.FldCaption %> <%= bolsas_recebidas.HTLV.FldCaption %> <%= bolsas_recebidas.SIFILIS.FldCaption %> <%= bolsas_recebidas.CHAGAS.FldCaption %> <%= bolsas_recebidas.HEPATITE_B_C.FldCaption %> <%= bolsas_recebidas.DEST.FldCaption %> <%= bolsas_recebidas.DATA_UTILI.FldCaption %>

">

<% bolsas_recebidas_delete.ShowPageFooter() If EW_DEBUG_ENABLED Then Response.Write ew_DebugMsg() %> <% ' Drop page object Set bolsas_recebidas_delete = Nothing %> <% ' ----------------------------------------------------------------- ' Page Class ' Class cbolsas_recebidas_delete ' Page ID Public Property Get PageID() PageID = "delete" End Property ' Table Name Public Property Get TableName() TableName = "bolsas_recebidas" End Property ' Page Object Name Public Property Get PageObjName() PageObjName = "bolsas_recebidas_delete" End Property ' Page Name Public Property Get PageName() PageName = ew_CurrentPage() End Property ' Page Url Public Property Get PageUrl() PageUrl = ew_CurrentPage() & "?" If bolsas_recebidas.UseTokenInUrl Then PageUrl = PageUrl & "t=" & bolsas_recebidas.TableVar & "&" ' add page token End Property ' 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 bolsas_recebidas.UseTokenInUrl Then IsPageRequest = False If Not (ObjForm Is Nothing) Then IsPageRequest = (bolsas_recebidas.TableVar = ObjForm.GetValue("t")) End If If Request.QueryString("t").Count > 0 Then IsPageRequest = (bolsas_recebidas.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(bolsas_recebidas) Then Set bolsas_recebidas = New cbolsas_recebidas Set Table = bolsas_recebidas ' Initialize urls ' Initialize form object Set ObjForm = Nothing ' Intialize page id (for backward compatibility) EW_PAGE_ID = "delete" ' Initialize table name (for backward compatibility) EW_TABLE_NAME = "bolsas_recebidas" ' Open connection to the database If IsEmpty(Conn) Then Call ew_Connect() End Sub ' ----------------------------------------------------------------- ' Subroutine Page_Init ' - called before page main ' - check Security ' - set up response header ' - call page load events ' Sub Page_Init() ' 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 bolsas_recebidas = 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 TotalRecs Dim RecCnt Dim RecKeys Dim Recordset ' Page main processing Sub Page_Main() Dim sFilter ' Load Key Parameters RecKeys = bolsas_recebidas.GetRecordKeys() ' Load record keys sFilter = bolsas_recebidas.GetKeyFilter() If sFilter = "" Then Call Page_Terminate("bolsas_recebidaslist.asp") ' Prevent SQL injection, return to list End If ' Set up filter (Sql Where Clause) and get Return Sql ' Sql constructor in bolsas_recebidas class, bolsas_recebidasinfo.asp bolsas_recebidas.CurrentFilter = sFilter ' Get action If Request.Form("a_delete").Count > 0 Then bolsas_recebidas.CurrentAction = Request.Form("a_delete") Else bolsas_recebidas.CurrentAction = "D" ' Delete record directly End If Select Case bolsas_recebidas.CurrentAction Case "D" ' Delete bolsas_recebidas.SendEmail = True ' Send email on delete success If DeleteRows() Then ' delete rows SuccessMessage = Language.Phrase("DeleteSuccess") ' Set up success message Call Page_Terminate(bolsas_recebidas.ReturnUrl) ' Return to caller End If End Select End Sub ' ----------------------------------------------------------------- ' Load recordset ' Function LoadRecordset() ' Call Recordset Selecting event Dim sFilter sFilter = bolsas_recebidas.CurrentFilter Call bolsas_recebidas.Recordset_Selecting(sFilter) bolsas_recebidas.CurrentFilter = sFilter ' Load list page sql Dim sSql sSql = bolsas_recebidas.ListSQL Call ew_SetDebugMsg("LoadRecordset: " & sSql) ' Show SQL for debugging ' Load recordset Dim RsRecordset Set RsRecordset = ew_LoadRecordset(sSql) ' Call Recordset Selected event Call bolsas_recebidas.Recordset_Selected(RsRecordset) Set LoadRecordset = RsRecordset End Function ' ----------------------------------------------------------------- ' Load row based on key values ' Function LoadRow() Dim RsRow, sSql, sFilter sFilter = bolsas_recebidas.KeyFilter ' Call Row Selecting event Call bolsas_recebidas.Row_Selecting(sFilter) ' Load sql based on filter bolsas_recebidas.CurrentFilter = sFilter sSql = bolsas_recebidas.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 bolsas_recebidas.Row_Selected(RsRow) bolsas_recebidas.NUMERO_BOLSA.DbValue = RsRow("NUMERO_BOLSA") bolsas_recebidas.DATA_COLETA.DbValue = RsRow("DATA_COLETA") bolsas_recebidas.DATA_REGISTRO.DbValue = RsRow("DATA_REGISTRO") bolsas_recebidas.DATA_VENCIMENTO.DbValue = RsRow("DATA_VENCIMENTO") bolsas_recebidas.NUMERO_HEMOCENTRO.DbValue = RsRow("NUMERO_HEMOCENTRO") bolsas_recebidas.ESPECIE.DbValue = RsRow("ESPECIE") bolsas_recebidas.VOLUME.DbValue = RsRow("VOLUME") bolsas_recebidas.ABO.DbValue = RsRow("ABO") bolsas_recebidas.RH.DbValue = RsRow("RH") bolsas_recebidas.HVI_1_2.DbValue = RsRow("HVI_1_2") bolsas_recebidas.HTLV.DbValue = RsRow("HTLV") bolsas_recebidas.SIFILIS.DbValue = RsRow("SIFILIS") bolsas_recebidas.CHAGAS.DbValue = RsRow("CHAGAS") bolsas_recebidas.HEPATITE_B_C.DbValue = RsRow("HEPATITE_B_C") bolsas_recebidas.DEST.DbValue = RsRow("DEST") bolsas_recebidas.DATA_UTILI.DbValue = RsRow("DATA_UTILI") End Sub ' ----------------------------------------------------------------- ' Render row values based on field settings ' Sub RenderRow() ' Initialize urls ' Call Row Rendering event Call bolsas_recebidas.Row_Rendering() ' --------------------------------------- ' Common render codes for all row types ' --------------------------------------- ' NUMERO_BOLSA ' DATA_COLETA ' DATA_REGISTRO ' DATA_VENCIMENTO ' NUMERO_HEMOCENTRO ' ESPECIE ' VOLUME ' ABO ' RH ' HVI_1_2 ' HTLV ' SIFILIS ' CHAGAS ' HEPATITE_B_C ' DEST ' DATA_UTILI ' ----------- ' View Row ' ----------- If bolsas_recebidas.RowType = EW_ROWTYPE_VIEW Then ' View row ' NUMERO_BOLSA bolsas_recebidas.NUMERO_BOLSA.ViewValue = bolsas_recebidas.NUMERO_BOLSA.CurrentValue bolsas_recebidas.NUMERO_BOLSA.CssStyle = "text-align:center;" bolsas_recebidas.NUMERO_BOLSA.ViewCustomAttributes = "" ' DATA_COLETA bolsas_recebidas.DATA_COLETA.ViewValue = bolsas_recebidas.DATA_COLETA.CurrentValue bolsas_recebidas.DATA_COLETA.ViewValue = ew_FormatDateTime(bolsas_recebidas.DATA_COLETA.ViewValue, 7) bolsas_recebidas.DATA_COLETA.CssStyle = "text-align:center;" bolsas_recebidas.DATA_COLETA.ViewCustomAttributes = "" ' DATA_REGISTRO bolsas_recebidas.DATA_REGISTRO.ViewValue = bolsas_recebidas.DATA_REGISTRO.CurrentValue bolsas_recebidas.DATA_REGISTRO.ViewValue = ew_FormatDateTime(bolsas_recebidas.DATA_REGISTRO.ViewValue, 7) bolsas_recebidas.DATA_REGISTRO.CssStyle = "text-align:center;" bolsas_recebidas.DATA_REGISTRO.ViewCustomAttributes = "" ' DATA_VENCIMENTO bolsas_recebidas.DATA_VENCIMENTO.ViewValue = bolsas_recebidas.DATA_VENCIMENTO.CurrentValue bolsas_recebidas.DATA_VENCIMENTO.ViewValue = ew_FormatDateTime(bolsas_recebidas.DATA_VENCIMENTO.ViewValue, 7) bolsas_recebidas.DATA_VENCIMENTO.CssStyle = "text-align:center;" bolsas_recebidas.DATA_VENCIMENTO.ViewCustomAttributes = "" ' NUMERO_HEMOCENTRO bolsas_recebidas.NUMERO_HEMOCENTRO.ViewValue = bolsas_recebidas.NUMERO_HEMOCENTRO.CurrentValue bolsas_recebidas.NUMERO_HEMOCENTRO.CssStyle = "text-align:center;" bolsas_recebidas.NUMERO_HEMOCENTRO.ViewCustomAttributes = "" ' ESPECIE If Not IsNull(bolsas_recebidas.ESPECIE.CurrentValue) Then Select Case bolsas_recebidas.ESPECIE.CurrentValue Case "CH" bolsas_recebidas.ESPECIE.ViewValue = ew_IIf(bolsas_recebidas.ESPECIE.FldTagCaption(1) <> "", bolsas_recebidas.ESPECIE.FldTagCaption(1), "CH") Case "CHI" bolsas_recebidas.ESPECIE.ViewValue = ew_IIf(bolsas_recebidas.ESPECIE.FldTagCaption(2) <> "", bolsas_recebidas.ESPECIE.FldTagCaption(2), "CHI") Case "CHFI" bolsas_recebidas.ESPECIE.ViewValue = ew_IIf(bolsas_recebidas.ESPECIE.FldTagCaption(3) <> "", bolsas_recebidas.ESPECIE.FldTagCaption(3), "CHFI") Case "PFC" bolsas_recebidas.ESPECIE.ViewValue = ew_IIf(bolsas_recebidas.ESPECIE.FldTagCaption(4) <> "", bolsas_recebidas.ESPECIE.FldTagCaption(4), "PFC") Case "CRIO" bolsas_recebidas.ESPECIE.ViewValue = ew_IIf(bolsas_recebidas.ESPECIE.FldTagCaption(5) <> "", bolsas_recebidas.ESPECIE.FldTagCaption(5), "CRIO") Case "CP" bolsas_recebidas.ESPECIE.ViewValue = ew_IIf(bolsas_recebidas.ESPECIE.FldTagCaption(6) <> "", bolsas_recebidas.ESPECIE.FldTagCaption(6), "CP") Case "CPI" bolsas_recebidas.ESPECIE.ViewValue = ew_IIf(bolsas_recebidas.ESPECIE.FldTagCaption(7) <> "", bolsas_recebidas.ESPECIE.FldTagCaption(7), "CP") Case Else bolsas_recebidas.ESPECIE.ViewValue = bolsas_recebidas.ESPECIE.CurrentValue End Select Else bolsas_recebidas.ESPECIE.ViewValue = Null End If bolsas_recebidas.ESPECIE.CssStyle = "text-align:center;" bolsas_recebidas.ESPECIE.ViewCustomAttributes = "" ' VOLUME bolsas_recebidas.VOLUME.ViewValue = bolsas_recebidas.VOLUME.CurrentValue bolsas_recebidas.VOLUME.CssStyle = "text-align:center;" bolsas_recebidas.VOLUME.ViewCustomAttributes = "" ' ABO If Not IsNull(bolsas_recebidas.ABO.CurrentValue) Then Select Case bolsas_recebidas.ABO.CurrentValue Case "A" bolsas_recebidas.ABO.ViewValue = ew_IIf(bolsas_recebidas.ABO.FldTagCaption(1) <> "", bolsas_recebidas.ABO.FldTagCaption(1), "A") Case "B" bolsas_recebidas.ABO.ViewValue = ew_IIf(bolsas_recebidas.ABO.FldTagCaption(2) <> "", bolsas_recebidas.ABO.FldTagCaption(2), "B") Case "AB" bolsas_recebidas.ABO.ViewValue = ew_IIf(bolsas_recebidas.ABO.FldTagCaption(3) <> "", bolsas_recebidas.ABO.FldTagCaption(3), "AB") Case "O" bolsas_recebidas.ABO.ViewValue = ew_IIf(bolsas_recebidas.ABO.FldTagCaption(4) <> "", bolsas_recebidas.ABO.FldTagCaption(4), "O") Case Else bolsas_recebidas.ABO.ViewValue = bolsas_recebidas.ABO.CurrentValue End Select Else bolsas_recebidas.ABO.ViewValue = Null End If bolsas_recebidas.ABO.CssStyle = "text-align:center;" bolsas_recebidas.ABO.ViewCustomAttributes = "" ' RH If Not IsNull(bolsas_recebidas.RH.CurrentValue) Then Select Case bolsas_recebidas.RH.CurrentValue Case "NEG" bolsas_recebidas.RH.ViewValue = ew_IIf(bolsas_recebidas.RH.FldTagCaption(1) <> "", bolsas_recebidas.RH.FldTagCaption(1), "NEG") Case "POS" bolsas_recebidas.RH.ViewValue = ew_IIf(bolsas_recebidas.RH.FldTagCaption(2) <> "", bolsas_recebidas.RH.FldTagCaption(2), "POS") Case Else bolsas_recebidas.RH.ViewValue = bolsas_recebidas.RH.CurrentValue End Select Else bolsas_recebidas.RH.ViewValue = Null End If bolsas_recebidas.RH.CssStyle = "text-align:center;" bolsas_recebidas.RH.ViewCustomAttributes = "" ' HVI_1_2 bolsas_recebidas.HVI_1_2.ViewValue = bolsas_recebidas.HVI_1_2.CurrentValue bolsas_recebidas.HVI_1_2.CssStyle = "text-align:center;" bolsas_recebidas.HVI_1_2.ViewCustomAttributes = "" ' HTLV bolsas_recebidas.HTLV.ViewValue = bolsas_recebidas.HTLV.CurrentValue bolsas_recebidas.HTLV.CssStyle = "text-align:center;" bolsas_recebidas.HTLV.ViewCustomAttributes = "" ' SIFILIS bolsas_recebidas.SIFILIS.ViewValue = bolsas_recebidas.SIFILIS.CurrentValue bolsas_recebidas.SIFILIS.CssStyle = "text-align:center;" bolsas_recebidas.SIFILIS.ViewCustomAttributes = "" ' CHAGAS bolsas_recebidas.CHAGAS.ViewValue = bolsas_recebidas.CHAGAS.CurrentValue bolsas_recebidas.CHAGAS.CssStyle = "text-align:center;" bolsas_recebidas.CHAGAS.ViewCustomAttributes = "" ' HEPATITE_B_C bolsas_recebidas.HEPATITE_B_C.ViewValue = bolsas_recebidas.HEPATITE_B_C.CurrentValue bolsas_recebidas.HEPATITE_B_C.CssStyle = "text-align:center;" bolsas_recebidas.HEPATITE_B_C.ViewCustomAttributes = "" ' DEST bolsas_recebidas.DEST.ViewValue = bolsas_recebidas.DEST.CurrentValue bolsas_recebidas.DEST.CssStyle = "text-align:center;" bolsas_recebidas.DEST.ViewCustomAttributes = "" ' DATA_UTILI bolsas_recebidas.DATA_UTILI.ViewValue = bolsas_recebidas.DATA_UTILI.CurrentValue bolsas_recebidas.DATA_UTILI.ViewValue = ew_FormatDateTime(bolsas_recebidas.DATA_UTILI.ViewValue, 7) bolsas_recebidas.DATA_UTILI.CssStyle = "text-align:center;" bolsas_recebidas.DATA_UTILI.ViewCustomAttributes = "" ' View refer script ' NUMERO_BOLSA bolsas_recebidas.NUMERO_BOLSA.LinkCustomAttributes = "" bolsas_recebidas.NUMERO_BOLSA.HrefValue = "" bolsas_recebidas.NUMERO_BOLSA.TooltipValue = "" ' DATA_COLETA bolsas_recebidas.DATA_COLETA.LinkCustomAttributes = "" bolsas_recebidas.DATA_COLETA.HrefValue = "" bolsas_recebidas.DATA_COLETA.TooltipValue = "" ' DATA_REGISTRO bolsas_recebidas.DATA_REGISTRO.LinkCustomAttributes = "" bolsas_recebidas.DATA_REGISTRO.HrefValue = "" bolsas_recebidas.DATA_REGISTRO.TooltipValue = "" ' DATA_VENCIMENTO bolsas_recebidas.DATA_VENCIMENTO.LinkCustomAttributes = "" bolsas_recebidas.DATA_VENCIMENTO.HrefValue = "" bolsas_recebidas.DATA_VENCIMENTO.TooltipValue = "" ' NUMERO_HEMOCENTRO bolsas_recebidas.NUMERO_HEMOCENTRO.LinkCustomAttributes = "" bolsas_recebidas.NUMERO_HEMOCENTRO.HrefValue = "" bolsas_recebidas.NUMERO_HEMOCENTRO.TooltipValue = "" ' ESPECIE bolsas_recebidas.ESPECIE.LinkCustomAttributes = "" bolsas_recebidas.ESPECIE.HrefValue = "" bolsas_recebidas.ESPECIE.TooltipValue = "" ' VOLUME bolsas_recebidas.VOLUME.LinkCustomAttributes = "" bolsas_recebidas.VOLUME.HrefValue = "" bolsas_recebidas.VOLUME.TooltipValue = "" ' ABO bolsas_recebidas.ABO.LinkCustomAttributes = "" bolsas_recebidas.ABO.HrefValue = "" bolsas_recebidas.ABO.TooltipValue = "" ' RH bolsas_recebidas.RH.LinkCustomAttributes = "" bolsas_recebidas.RH.HrefValue = "" bolsas_recebidas.RH.TooltipValue = "" ' HVI_1_2 bolsas_recebidas.HVI_1_2.LinkCustomAttributes = "" bolsas_recebidas.HVI_1_2.HrefValue = "" bolsas_recebidas.HVI_1_2.TooltipValue = "" ' HTLV bolsas_recebidas.HTLV.LinkCustomAttributes = "" bolsas_recebidas.HTLV.HrefValue = "" bolsas_recebidas.HTLV.TooltipValue = "" ' SIFILIS bolsas_recebidas.SIFILIS.LinkCustomAttributes = "" bolsas_recebidas.SIFILIS.HrefValue = "" bolsas_recebidas.SIFILIS.TooltipValue = "" ' CHAGAS bolsas_recebidas.CHAGAS.LinkCustomAttributes = "" bolsas_recebidas.CHAGAS.HrefValue = "" bolsas_recebidas.CHAGAS.TooltipValue = "" ' HEPATITE_B_C bolsas_recebidas.HEPATITE_B_C.LinkCustomAttributes = "" bolsas_recebidas.HEPATITE_B_C.HrefValue = "" bolsas_recebidas.HEPATITE_B_C.TooltipValue = "" ' DEST bolsas_recebidas.DEST.LinkCustomAttributes = "" bolsas_recebidas.DEST.HrefValue = "" bolsas_recebidas.DEST.TooltipValue = "" ' DATA_UTILI bolsas_recebidas.DATA_UTILI.LinkCustomAttributes = "" bolsas_recebidas.DATA_UTILI.HrefValue = "" bolsas_recebidas.DATA_UTILI.TooltipValue = "" End If ' Call Row Rendered event If bolsas_recebidas.RowType <> EW_ROWTYPE_AGGREGATEINIT Then Call bolsas_recebidas.Row_Rendered() End If End Sub ' ' Delete records based on current filter ' Function DeleteRows() If Not EW_DEBUG_ENABLED Then On Error Resume Next Dim sKey, sThisKey, sKeyFld, arKeyFlds Dim sSql, RsDelete Dim RsOld DeleteRows = True sSql = bolsas_recebidas.SQL Set RsDelete = Server.CreateObject("ADODB.Recordset") RsDelete.CursorLocation = EW_CURSORLOCATION RsDelete.Open sSql, Conn, 1, EW_RECORDSET_LOCKTYPE If Err.Number <> 0 Then FailureMessage = Err.Description RsDelete.Close Set RsDelete = Nothing DeleteRows = False Exit Function ElseIf RsDelete.Eof Then FailureMessage = Language.Phrase("NoRecord") ' No record found RsDelete.Close Set RsDelete = Nothing DeleteRows = False Exit Function End If Conn.BeginTrans ' Clone old recordset object Set RsOld = ew_CloneRs(RsDelete) ' Call row deleting event If DeleteRows Then RsDelete.MoveFirst Do While Not RsDelete.Eof DeleteRows = bolsas_recebidas.Row_Deleting(RsDelete) If Not DeleteRows Then Exit Do RsDelete.MoveNext Loop RsDelete.MoveFirst End If If DeleteRows Then sKey = "" RsDelete.MoveFirst Do While Not RsDelete.Eof sThisKey = "" If sThisKey <> "" Then sThisKey = sThisKey & EW_COMPOSITE_KEY_SEPARATOR sThisKey = sThisKey & RsDelete("NUMERO_BOLSA") RsDelete.Delete If Err.Number <> 0 Then FailureMessage = Err.Description ' Set up error message DeleteRows = False Exit Do End If If sKey <> "" Then sKey = sKey & ", " sKey = sKey & sThisKey RsDelete.MoveNext Loop Else ' Set up error message If bolsas_recebidas.CancelMessage <> "" Then FailureMessage = bolsas_recebidas.CancelMessage bolsas_recebidas.CancelMessage = "" Else FailureMessage = Language.Phrase("DeleteCancelled") End If End If If DeleteRows Then Conn.CommitTrans ' Commit the changes If Err.Number <> 0 Then FailureMessage = Err.Description DeleteRows = False ' Delete failed End If Else Conn.RollbackTrans ' Rollback changes End If RsDelete.Close Set RsDelete = Nothing ' Call row deleting event If DeleteRows Then If Not RsOld.Eof Then RsOld.MoveFirst Do While Not RsOld.Eof Call bolsas_recebidas.Row_Deleted(RsOld) RsOld.MoveNext Loop End If RsOld.Close Set RsOld = Nothing End Function ' 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 End Class %>