<%@ CodePage="1252" LCID="1046" %> <% Response.Buffer = EW_RESPONSE_BUFFER %> <% Session.Timeout = 20 %> <% Call ew_Header(False, EW_CHARSET) %> <% ' Define page object Dim bolsas_recebidas_edit Set bolsas_recebidas_edit = New cbolsas_recebidas_edit Set Page = bolsas_recebidas_edit ' Page init processing Call bolsas_recebidas_edit.Page_Init() ' Page main processing Call bolsas_recebidas_edit.Page_Main() %> <% bolsas_recebidas_edit.ShowPageHeader() %>

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

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

<% bolsas_recebidas_edit.ShowMessage %>

<% If bolsas_recebidas.NUMERO_BOLSA.Visible Then ' NUMERO_BOLSA %> > > ><%= bolsas_recebidas.NUMERO_BOLSA.EditValue %> "> <%= bolsas_recebidas.NUMERO_BOLSA.CustomMsg %> <% End If %> <% If bolsas_recebidas.DATA_COLETA.Visible Then ' DATA_COLETA %> > > >  <%= Language.Phrase(" title="<%= Language.Phrase("PickDate") %>" style="cursor:pointer;cursor:hand;"> <%= bolsas_recebidas.DATA_COLETA.CustomMsg %> <% End If %> <% If bolsas_recebidas.DATA_VENCIMENTO.Visible Then ' DATA_VENCIMENTO %> > > >  <%= Language.Phrase(" title="<%= Language.Phrase("PickDate") %>" style="cursor:pointer;cursor:hand;"> <%= bolsas_recebidas.DATA_VENCIMENTO.CustomMsg %> <% End If %> <% If bolsas_recebidas.NUMERO_HEMOCENTRO.Visible Then ' NUMERO_HEMOCENTRO %> > > > <%= bolsas_recebidas.NUMERO_HEMOCENTRO.CustomMsg %> <% End If %> <% If bolsas_recebidas.ESPECIE.Visible Then ' ESPECIE %> > > <%= bolsas_recebidas.ESPECIE.CustomMsg %> <% End If %> <% If bolsas_recebidas.VOLUME.Visible Then ' VOLUME %> > > > <%= bolsas_recebidas.VOLUME.CustomMsg %> <% End If %> <% If bolsas_recebidas.ABO.Visible Then ' ABO %> > > <%= bolsas_recebidas.ABO.CustomMsg %> <% End If %> <% If bolsas_recebidas.RH.Visible Then ' RH %> > > <%= bolsas_recebidas.RH.CustomMsg %> <% End If %> <% If bolsas_recebidas.HVI_1_2.Visible Then ' HVI_1_2 %> > > > <%= bolsas_recebidas.HVI_1_2.CustomMsg %> <% End If %> <% If bolsas_recebidas.HTLV.Visible Then ' HTLV %> > > > <%= bolsas_recebidas.HTLV.CustomMsg %> <% End If %> <% If bolsas_recebidas.SIFILIS.Visible Then ' SIFILIS %> > > > <%= bolsas_recebidas.SIFILIS.CustomMsg %> <% End If %> <% If bolsas_recebidas.CHAGAS.Visible Then ' CHAGAS %> > > > <%= bolsas_recebidas.CHAGAS.CustomMsg %> <% End If %> <% If bolsas_recebidas.HEPATITE_B_C.Visible Then ' HEPATITE_B_C %> > > > <%= bolsas_recebidas.HEPATITE_B_C.CustomMsg %> <% End If %> <% If bolsas_recebidas.DEST.Visible Then ' DEST %> > > > <%= bolsas_recebidas.DEST.CustomMsg %> <% End If %> <% If bolsas_recebidas.DATA_UTILI.Visible Then ' DATA_UTILI %> > > > <%= bolsas_recebidas.DATA_UTILI.CustomMsg %> <% End If %>
<%= bolsas_recebidas.NUMERO_BOLSA.FldCaption %>
<%= bolsas_recebidas.DATA_COLETA.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= bolsas_recebidas.DATA_VENCIMENTO.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= bolsas_recebidas.NUMERO_HEMOCENTRO.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= bolsas_recebidas.ESPECIE.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= bolsas_recebidas.VOLUME.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= bolsas_recebidas.ABO.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= bolsas_recebidas.RH.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= bolsas_recebidas.HVI_1_2.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= bolsas_recebidas.HTLV.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= bolsas_recebidas.SIFILIS.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= bolsas_recebidas.CHAGAS.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= bolsas_recebidas.HEPATITE_B_C.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= bolsas_recebidas.DEST.FldCaption %>
<%= bolsas_recebidas.DATA_UTILI.FldCaption %>

">

<% bolsas_recebidas_edit.ShowPageFooter() If EW_DEBUG_ENABLED Then Response.Write ew_DebugMsg() %> <% ' Drop page object Set bolsas_recebidas_edit = Nothing %> <% ' ----------------------------------------------------------------- ' Page Class ' Class cbolsas_recebidas_edit ' Page ID Public Property Get PageID() PageID = "edit" End Property ' Table Name Public Property Get TableName() TableName = "bolsas_recebidas" End Property ' Page Object Name Public Property Get PageObjName() PageObjName = "bolsas_recebidas_edit" 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 = "edit" ' 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() ' Create form object Set ObjForm = New cFormObj ' 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 DbMasterFilter, DbDetailFilter ' ----------------------------------------------------------------- ' Page main processing ' Sub Page_Main() ' Load key from QueryString If Request.QueryString("NUMERO_BOLSA").Count > 0 Then bolsas_recebidas.NUMERO_BOLSA.QueryStringValue = Request.QueryString("NUMERO_BOLSA") End If If ObjForm.GetValue("a_edit")&"" <> "" Then bolsas_recebidas.CurrentAction = ObjForm.GetValue("a_edit") ' Get action code Call LoadFormValues() ' Get form values ' Validate Form If Not ValidateForm() Then bolsas_recebidas.CurrentAction = "" ' Form error, reset action FailureMessage = gsFormError bolsas_recebidas.EventCancelled = True ' Event cancelled Call LoadRow() ' Restore row Call RestoreFormValues() ' Restore form values if validate failed End If Else bolsas_recebidas.CurrentAction = "I" ' Default action is display End If ' Check if valid key If bolsas_recebidas.NUMERO_BOLSA.CurrentValue = "" Then Call Page_Terminate("bolsas_recebidaslist.asp") ' Invalid key, return to list Select Case bolsas_recebidas.CurrentAction Case "I" ' Get a record to display If Not LoadRow() Then ' Load Record based on key FailureMessage = Language.Phrase("NoRecord") ' No record found Call Page_Terminate("bolsas_recebidaslist.asp") ' No matching record, return to list End If Case "U" ' Update bolsas_recebidas.SendEmail = True ' Send email on update success If EditRow() Then ' Update Record based on key SuccessMessage = Language.Phrase("UpdateSuccess") ' Update success Dim sReturnUrl sReturnUrl = bolsas_recebidas.ReturnUrl If ew_GetPageName(sReturnUrl) = "bolsas_recebidasview.asp" Then sReturnUrl = bolsas_recebidas.ViewUrl ' View paging, return to view page with keyurl directly Call Page_Terminate(sReturnUrl) ' Return to caller Else bolsas_recebidas.EventCancelled = True ' Event cancelled Call LoadRow() ' Restore row Call RestoreFormValues() ' Restore form values if update failed End If End Select ' Render the record bolsas_recebidas.RowType = EW_ROWTYPE_EDIT ' Render as edit ' Render row Call bolsas_recebidas.ResetAttrs() Call RenderRow() End Sub ' ----------------------------------------------------------------- ' Function Get upload files ' Function GetUploadFiles() ' Get upload data Dim index, confirmPage index = ObjForm.Index ' Save form index ObjForm.Index = 0 confirmPage = (ObjForm.GetValue("a_confirm") & "" <> "") ObjForm.Index = index ' Restore form index End Function ' ----------------------------------------------------------------- ' Load form values ' Function LoadFormValues() ' Load values from form If Not bolsas_recebidas.NUMERO_BOLSA.FldIsDetailKey Then bolsas_recebidas.NUMERO_BOLSA.FormValue = ObjForm.GetValue("x_NUMERO_BOLSA") If Not bolsas_recebidas.DATA_COLETA.FldIsDetailKey Then bolsas_recebidas.DATA_COLETA.FormValue = ObjForm.GetValue("x_DATA_COLETA") If Not bolsas_recebidas.DATA_COLETA.FldIsDetailKey Then bolsas_recebidas.DATA_COLETA.CurrentValue = ew_UnFormatDateTime(bolsas_recebidas.DATA_COLETA.CurrentValue, 7) If Not bolsas_recebidas.DATA_REGISTRO.FldIsDetailKey Then bolsas_recebidas.DATA_REGISTRO.FormValue = ObjForm.GetValue("x_DATA_REGISTRO") If Not bolsas_recebidas.DATA_REGISTRO.FldIsDetailKey Then bolsas_recebidas.DATA_REGISTRO.CurrentValue = ew_UnFormatDateTime(bolsas_recebidas.DATA_REGISTRO.CurrentValue, 7) If Not bolsas_recebidas.DATA_VENCIMENTO.FldIsDetailKey Then bolsas_recebidas.DATA_VENCIMENTO.FormValue = ObjForm.GetValue("x_DATA_VENCIMENTO") If Not bolsas_recebidas.DATA_VENCIMENTO.FldIsDetailKey Then bolsas_recebidas.DATA_VENCIMENTO.CurrentValue = ew_UnFormatDateTime(bolsas_recebidas.DATA_VENCIMENTO.CurrentValue, 7) If Not bolsas_recebidas.NUMERO_HEMOCENTRO.FldIsDetailKey Then bolsas_recebidas.NUMERO_HEMOCENTRO.FormValue = ObjForm.GetValue("x_NUMERO_HEMOCENTRO") If Not bolsas_recebidas.ESPECIE.FldIsDetailKey Then bolsas_recebidas.ESPECIE.FormValue = ObjForm.GetValue("x_ESPECIE") If Not bolsas_recebidas.VOLUME.FldIsDetailKey Then bolsas_recebidas.VOLUME.FormValue = ObjForm.GetValue("x_VOLUME") If Not bolsas_recebidas.ABO.FldIsDetailKey Then bolsas_recebidas.ABO.FormValue = ObjForm.GetValue("x_ABO") If Not bolsas_recebidas.RH.FldIsDetailKey Then bolsas_recebidas.RH.FormValue = ObjForm.GetValue("x_RH") If Not bolsas_recebidas.HVI_1_2.FldIsDetailKey Then bolsas_recebidas.HVI_1_2.FormValue = ObjForm.GetValue("x_HVI_1_2") If Not bolsas_recebidas.HTLV.FldIsDetailKey Then bolsas_recebidas.HTLV.FormValue = ObjForm.GetValue("x_HTLV") If Not bolsas_recebidas.SIFILIS.FldIsDetailKey Then bolsas_recebidas.SIFILIS.FormValue = ObjForm.GetValue("x_SIFILIS") If Not bolsas_recebidas.CHAGAS.FldIsDetailKey Then bolsas_recebidas.CHAGAS.FormValue = ObjForm.GetValue("x_CHAGAS") If Not bolsas_recebidas.HEPATITE_B_C.FldIsDetailKey Then bolsas_recebidas.HEPATITE_B_C.FormValue = ObjForm.GetValue("x_HEPATITE_B_C") If Not bolsas_recebidas.DEST.FldIsDetailKey Then bolsas_recebidas.DEST.FormValue = ObjForm.GetValue("x_DEST") If Not bolsas_recebidas.DATA_UTILI.FldIsDetailKey Then bolsas_recebidas.DATA_UTILI.FormValue = ObjForm.GetValue("x_DATA_UTILI") If Not bolsas_recebidas.DATA_UTILI.FldIsDetailKey Then bolsas_recebidas.DATA_UTILI.CurrentValue = ew_UnFormatDateTime(bolsas_recebidas.DATA_UTILI.CurrentValue, 7) End Function ' ----------------------------------------------------------------- ' Restore form values ' Function RestoreFormValues() Call LoadRow() bolsas_recebidas.NUMERO_BOLSA.CurrentValue = bolsas_recebidas.NUMERO_BOLSA.FormValue bolsas_recebidas.DATA_COLETA.CurrentValue = bolsas_recebidas.DATA_COLETA.FormValue bolsas_recebidas.DATA_COLETA.CurrentValue = ew_UnFormatDateTime(bolsas_recebidas.DATA_COLETA.CurrentValue, 7) bolsas_recebidas.DATA_REGISTRO.CurrentValue = bolsas_recebidas.DATA_REGISTRO.FormValue bolsas_recebidas.DATA_REGISTRO.CurrentValue = ew_UnFormatDateTime(bolsas_recebidas.DATA_REGISTRO.CurrentValue, 7) bolsas_recebidas.DATA_VENCIMENTO.CurrentValue = bolsas_recebidas.DATA_VENCIMENTO.FormValue bolsas_recebidas.DATA_VENCIMENTO.CurrentValue = ew_UnFormatDateTime(bolsas_recebidas.DATA_VENCIMENTO.CurrentValue, 7) bolsas_recebidas.NUMERO_HEMOCENTRO.CurrentValue = bolsas_recebidas.NUMERO_HEMOCENTRO.FormValue bolsas_recebidas.ESPECIE.CurrentValue = bolsas_recebidas.ESPECIE.FormValue bolsas_recebidas.VOLUME.CurrentValue = bolsas_recebidas.VOLUME.FormValue bolsas_recebidas.ABO.CurrentValue = bolsas_recebidas.ABO.FormValue bolsas_recebidas.RH.CurrentValue = bolsas_recebidas.RH.FormValue bolsas_recebidas.HVI_1_2.CurrentValue = bolsas_recebidas.HVI_1_2.FormValue bolsas_recebidas.HTLV.CurrentValue = bolsas_recebidas.HTLV.FormValue bolsas_recebidas.SIFILIS.CurrentValue = bolsas_recebidas.SIFILIS.FormValue bolsas_recebidas.CHAGAS.CurrentValue = bolsas_recebidas.CHAGAS.FormValue bolsas_recebidas.HEPATITE_B_C.CurrentValue = bolsas_recebidas.HEPATITE_B_C.FormValue bolsas_recebidas.DEST.CurrentValue = bolsas_recebidas.DEST.FormValue bolsas_recebidas.DATA_UTILI.CurrentValue = bolsas_recebidas.DATA_UTILI.FormValue bolsas_recebidas.DATA_UTILI.CurrentValue = ew_UnFormatDateTime(bolsas_recebidas.DATA_UTILI.CurrentValue, 7) 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 = "" ' ---------- ' Edit Row ' ---------- ElseIf bolsas_recebidas.RowType = EW_ROWTYPE_EDIT Then ' Edit row ' NUMERO_BOLSA bolsas_recebidas.NUMERO_BOLSA.EditCustomAttributes = "" bolsas_recebidas.NUMERO_BOLSA.EditValue = bolsas_recebidas.NUMERO_BOLSA.CurrentValue bolsas_recebidas.NUMERO_BOLSA.CssStyle = "text-align:center;" bolsas_recebidas.NUMERO_BOLSA.ViewCustomAttributes = "" ' DATA_COLETA bolsas_recebidas.DATA_COLETA.EditCustomAttributes = "" bolsas_recebidas.DATA_COLETA.EditValue = ew_FormatDateTime(bolsas_recebidas.DATA_COLETA.CurrentValue, 7) ' DATA_REGISTRO ' DATA_VENCIMENTO bolsas_recebidas.DATA_VENCIMENTO.EditCustomAttributes = "" bolsas_recebidas.DATA_VENCIMENTO.EditValue = ew_FormatDateTime(bolsas_recebidas.DATA_VENCIMENTO.CurrentValue, 7) ' NUMERO_HEMOCENTRO bolsas_recebidas.NUMERO_HEMOCENTRO.EditCustomAttributes = "" bolsas_recebidas.NUMERO_HEMOCENTRO.EditValue = ew_HtmlEncode(bolsas_recebidas.NUMERO_HEMOCENTRO.CurrentValue) ' ESPECIE bolsas_recebidas.ESPECIE.EditCustomAttributes = "" Redim arwrk(1, 6) arwrk(0, 0) = "CH" arwrk(1, 0) = ew_IIf(bolsas_recebidas.ESPECIE.FldTagCaption(1) <> "", bolsas_recebidas.ESPECIE.FldTagCaption(1), "CH") arwrk(0, 1) = "CHI" arwrk(1, 1) = ew_IIf(bolsas_recebidas.ESPECIE.FldTagCaption(2) <> "", bolsas_recebidas.ESPECIE.FldTagCaption(2), "CHI") arwrk(0, 2) = "CHFI" arwrk(1, 2) = ew_IIf(bolsas_recebidas.ESPECIE.FldTagCaption(3) <> "", bolsas_recebidas.ESPECIE.FldTagCaption(3), "CHFI") arwrk(0, 3) = "PFC" arwrk(1, 3) = ew_IIf(bolsas_recebidas.ESPECIE.FldTagCaption(4) <> "", bolsas_recebidas.ESPECIE.FldTagCaption(4), "PFC") arwrk(0, 4) = "CRIO" arwrk(1, 4) = ew_IIf(bolsas_recebidas.ESPECIE.FldTagCaption(5) <> "", bolsas_recebidas.ESPECIE.FldTagCaption(5), "CRIO") arwrk(0, 5) = "CP" arwrk(1, 5) = ew_IIf(bolsas_recebidas.ESPECIE.FldTagCaption(6) <> "", bolsas_recebidas.ESPECIE.FldTagCaption(6), "CP") arwrk(0, 6) = "CPI" arwrk(1, 6) = ew_IIf(bolsas_recebidas.ESPECIE.FldTagCaption(7) <> "", bolsas_recebidas.ESPECIE.FldTagCaption(7), "CP") arwrk = ew_AddItemToArray(arwrk, 0, Array("", Language.Phrase("PleaseSelect"))) bolsas_recebidas.ESPECIE.EditValue = arwrk ' VOLUME bolsas_recebidas.VOLUME.EditCustomAttributes = "" bolsas_recebidas.VOLUME.EditValue = ew_HtmlEncode(bolsas_recebidas.VOLUME.CurrentValue) ' ABO bolsas_recebidas.ABO.EditCustomAttributes = "" Redim arwrk(1, 3) arwrk(0, 0) = "A" arwrk(1, 0) = ew_IIf(bolsas_recebidas.ABO.FldTagCaption(1) <> "", bolsas_recebidas.ABO.FldTagCaption(1), "A") arwrk(0, 1) = "B" arwrk(1, 1) = ew_IIf(bolsas_recebidas.ABO.FldTagCaption(2) <> "", bolsas_recebidas.ABO.FldTagCaption(2), "B") arwrk(0, 2) = "AB" arwrk(1, 2) = ew_IIf(bolsas_recebidas.ABO.FldTagCaption(3) <> "", bolsas_recebidas.ABO.FldTagCaption(3), "AB") arwrk(0, 3) = "O" arwrk(1, 3) = ew_IIf(bolsas_recebidas.ABO.FldTagCaption(4) <> "", bolsas_recebidas.ABO.FldTagCaption(4), "O") arwrk = ew_AddItemToArray(arwrk, 0, Array("", Language.Phrase("PleaseSelect"))) bolsas_recebidas.ABO.EditValue = arwrk ' RH bolsas_recebidas.RH.EditCustomAttributes = "" Redim arwrk(1, 1) arwrk(0, 0) = "NEG" arwrk(1, 0) = ew_IIf(bolsas_recebidas.RH.FldTagCaption(1) <> "", bolsas_recebidas.RH.FldTagCaption(1), "NEG") arwrk(0, 1) = "POS" arwrk(1, 1) = ew_IIf(bolsas_recebidas.RH.FldTagCaption(2) <> "", bolsas_recebidas.RH.FldTagCaption(2), "POS") arwrk = ew_AddItemToArray(arwrk, 0, Array("", Language.Phrase("PleaseSelect"))) bolsas_recebidas.RH.EditValue = arwrk ' HVI_1_2 bolsas_recebidas.HVI_1_2.EditCustomAttributes = "" bolsas_recebidas.HVI_1_2.EditValue = ew_HtmlEncode(bolsas_recebidas.HVI_1_2.CurrentValue) ' HTLV bolsas_recebidas.HTLV.EditCustomAttributes = "" bolsas_recebidas.HTLV.EditValue = ew_HtmlEncode(bolsas_recebidas.HTLV.CurrentValue) ' SIFILIS bolsas_recebidas.SIFILIS.EditCustomAttributes = "" bolsas_recebidas.SIFILIS.EditValue = ew_HtmlEncode(bolsas_recebidas.SIFILIS.CurrentValue) ' CHAGAS bolsas_recebidas.CHAGAS.EditCustomAttributes = "" bolsas_recebidas.CHAGAS.EditValue = ew_HtmlEncode(bolsas_recebidas.CHAGAS.CurrentValue) ' HEPATITE_B_C bolsas_recebidas.HEPATITE_B_C.EditCustomAttributes = "" bolsas_recebidas.HEPATITE_B_C.EditValue = ew_HtmlEncode(bolsas_recebidas.HEPATITE_B_C.CurrentValue) ' DEST bolsas_recebidas.DEST.EditCustomAttributes = "" bolsas_recebidas.DEST.EditValue = ew_HtmlEncode(bolsas_recebidas.DEST.CurrentValue) ' DATA_UTILI bolsas_recebidas.DATA_UTILI.EditCustomAttributes = "" bolsas_recebidas.DATA_UTILI.EditValue = ew_FormatDateTime(bolsas_recebidas.DATA_UTILI.CurrentValue, 7) ' Edit refer script ' NUMERO_BOLSA bolsas_recebidas.NUMERO_BOLSA.HrefValue = "" ' DATA_COLETA bolsas_recebidas.DATA_COLETA.HrefValue = "" ' DATA_REGISTRO bolsas_recebidas.DATA_REGISTRO.HrefValue = "" ' DATA_VENCIMENTO bolsas_recebidas.DATA_VENCIMENTO.HrefValue = "" ' NUMERO_HEMOCENTRO bolsas_recebidas.NUMERO_HEMOCENTRO.HrefValue = "" ' ESPECIE bolsas_recebidas.ESPECIE.HrefValue = "" ' VOLUME bolsas_recebidas.VOLUME.HrefValue = "" ' ABO bolsas_recebidas.ABO.HrefValue = "" ' RH bolsas_recebidas.RH.HrefValue = "" ' HVI_1_2 bolsas_recebidas.HVI_1_2.HrefValue = "" ' HTLV bolsas_recebidas.HTLV.HrefValue = "" ' SIFILIS bolsas_recebidas.SIFILIS.HrefValue = "" ' CHAGAS bolsas_recebidas.CHAGAS.HrefValue = "" ' HEPATITE_B_C bolsas_recebidas.HEPATITE_B_C.HrefValue = "" ' DEST bolsas_recebidas.DEST.HrefValue = "" ' DATA_UTILI bolsas_recebidas.DATA_UTILI.HrefValue = "" End If If bolsas_recebidas.RowType = EW_ROWTYPE_ADD Or bolsas_recebidas.RowType = EW_ROWTYPE_EDIT Or bolsas_recebidas.RowType = EW_ROWTYPE_SEARCH Then ' Add / Edit / Search row Call bolsas_recebidas.SetupFieldTitles() End If ' Call Row Rendered event If bolsas_recebidas.RowType <> EW_ROWTYPE_AGGREGATEINIT Then Call bolsas_recebidas.Row_Rendered() End If End Sub ' ----------------------------------------------------------------- ' Validate form ' Function ValidateForm() ' Initialize gsFormError = "" ' Check if validation required If Not EW_SERVER_VALIDATE Then ValidateForm = (gsFormError = "") Exit Function End If If Not IsNull(bolsas_recebidas.DATA_COLETA.FormValue) And bolsas_recebidas.DATA_COLETA.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & bolsas_recebidas.DATA_COLETA.FldCaption) End If If Not ew_CheckEuroDate(bolsas_recebidas.DATA_COLETA.FormValue) Then Call ew_AddMessage(gsFormError, bolsas_recebidas.DATA_COLETA.FldErrMsg) End If If Not IsNull(bolsas_recebidas.DATA_VENCIMENTO.FormValue) And bolsas_recebidas.DATA_VENCIMENTO.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & bolsas_recebidas.DATA_VENCIMENTO.FldCaption) End If If Not ew_CheckEuroDate(bolsas_recebidas.DATA_VENCIMENTO.FormValue) Then Call ew_AddMessage(gsFormError, bolsas_recebidas.DATA_VENCIMENTO.FldErrMsg) End If If Not IsNull(bolsas_recebidas.NUMERO_HEMOCENTRO.FormValue) And bolsas_recebidas.NUMERO_HEMOCENTRO.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & bolsas_recebidas.NUMERO_HEMOCENTRO.FldCaption) End If If Not ew_CheckInteger(bolsas_recebidas.NUMERO_HEMOCENTRO.FormValue) Then Call ew_AddMessage(gsFormError, bolsas_recebidas.NUMERO_HEMOCENTRO.FldErrMsg) End If If Not IsNull(bolsas_recebidas.ESPECIE.FormValue) And bolsas_recebidas.ESPECIE.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & bolsas_recebidas.ESPECIE.FldCaption) End If If Not IsNull(bolsas_recebidas.VOLUME.FormValue) And bolsas_recebidas.VOLUME.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & bolsas_recebidas.VOLUME.FldCaption) End If If Not IsNull(bolsas_recebidas.ABO.FormValue) And bolsas_recebidas.ABO.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & bolsas_recebidas.ABO.FldCaption) End If If Not IsNull(bolsas_recebidas.RH.FormValue) And bolsas_recebidas.RH.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & bolsas_recebidas.RH.FldCaption) End If If Not IsNull(bolsas_recebidas.HVI_1_2.FormValue) And bolsas_recebidas.HVI_1_2.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & bolsas_recebidas.HVI_1_2.FldCaption) End If If Not IsNull(bolsas_recebidas.HTLV.FormValue) And bolsas_recebidas.HTLV.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & bolsas_recebidas.HTLV.FldCaption) End If If Not IsNull(bolsas_recebidas.SIFILIS.FormValue) And bolsas_recebidas.SIFILIS.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & bolsas_recebidas.SIFILIS.FldCaption) End If If Not IsNull(bolsas_recebidas.CHAGAS.FormValue) And bolsas_recebidas.CHAGAS.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & bolsas_recebidas.CHAGAS.FldCaption) End If If Not IsNull(bolsas_recebidas.HEPATITE_B_C.FormValue) And bolsas_recebidas.HEPATITE_B_C.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & bolsas_recebidas.HEPATITE_B_C.FldCaption) End If If Not ew_CheckEuroDate(bolsas_recebidas.DATA_UTILI.FormValue) Then Call ew_AddMessage(gsFormError, bolsas_recebidas.DATA_UTILI.FldErrMsg) End If ' Return validate result ValidateForm = (gsFormError = "") ' Call Form Custom Validate event Dim sFormCustomError sFormCustomError = "" ValidateForm = ValidateForm And Form_CustomValidate(sFormCustomError) If sFormCustomError <> "" Then Call ew_AddMessage(gsFormError, sFormCustomError) End If End Function ' ----------------------------------------------------------------- ' Update record based on key values ' Function EditRow() If Not EW_DEBUG_ENABLED Then On Error Resume Next Dim Rs, sSql, sFilter Dim RsChk, sSqlChk, sFilterChk Dim bUpdateRow Dim RsOld, RsNew Dim sIdxErrMsg ' Clear any previous errors Err.Clear sFilter = bolsas_recebidas.KeyFilter bolsas_recebidas.CurrentFilter = sFilter sSql = bolsas_recebidas.SQL Set Rs = Server.CreateObject("ADODB.Recordset") Rs.CursorLocation = EW_CURSORLOCATION Rs.Open sSql, Conn, 1, EW_RECORDSET_LOCKTYPE If Err.Number <> 0 Then Message = Err.Description Rs.Close Set Rs = Nothing EditRow = False Exit Function End If ' Clone old recordset object Set RsOld = ew_CloneRs(Rs) If Rs.Eof Then EditRow = False ' Update Failed Else ' Field NUMERO_BOLSA ' Field DATA_COLETA Call bolsas_recebidas.DATA_COLETA.SetDbValue(Rs, ew_UnFormatDateTime(bolsas_recebidas.DATA_COLETA.CurrentValue, 7), Now, bolsas_recebidas.DATA_COLETA.ReadOnly) ' Field DATA_REGISTRO bolsas_recebidas.DATA_REGISTRO.DbValue = ew_CurrentDate Rs("DATA_REGISTRO") = bolsas_recebidas.DATA_REGISTRO.DbValue ' Field DATA_VENCIMENTO Call bolsas_recebidas.DATA_VENCIMENTO.SetDbValue(Rs, ew_UnFormatDateTime(bolsas_recebidas.DATA_VENCIMENTO.CurrentValue, 7), Now, bolsas_recebidas.DATA_VENCIMENTO.ReadOnly) ' Field NUMERO_HEMOCENTRO Call bolsas_recebidas.NUMERO_HEMOCENTRO.SetDbValue(Rs, bolsas_recebidas.NUMERO_HEMOCENTRO.CurrentValue, 0, bolsas_recebidas.NUMERO_HEMOCENTRO.ReadOnly) ' Field ESPECIE Call bolsas_recebidas.ESPECIE.SetDbValue(Rs, bolsas_recebidas.ESPECIE.CurrentValue, "", bolsas_recebidas.ESPECIE.ReadOnly) ' Field VOLUME Call bolsas_recebidas.VOLUME.SetDbValue(Rs, bolsas_recebidas.VOLUME.CurrentValue, "", bolsas_recebidas.VOLUME.ReadOnly) ' Field ABO Call bolsas_recebidas.ABO.SetDbValue(Rs, bolsas_recebidas.ABO.CurrentValue, "", bolsas_recebidas.ABO.ReadOnly) ' Field RH Call bolsas_recebidas.RH.SetDbValue(Rs, bolsas_recebidas.RH.CurrentValue, "", bolsas_recebidas.RH.ReadOnly) ' Field HVI_1_2 Call bolsas_recebidas.HVI_1_2.SetDbValue(Rs, bolsas_recebidas.HVI_1_2.CurrentValue, "", bolsas_recebidas.HVI_1_2.ReadOnly) ' Field HTLV Call bolsas_recebidas.HTLV.SetDbValue(Rs, bolsas_recebidas.HTLV.CurrentValue, "", bolsas_recebidas.HTLV.ReadOnly) ' Field SIFILIS Call bolsas_recebidas.SIFILIS.SetDbValue(Rs, bolsas_recebidas.SIFILIS.CurrentValue, "", bolsas_recebidas.SIFILIS.ReadOnly) ' Field CHAGAS Call bolsas_recebidas.CHAGAS.SetDbValue(Rs, bolsas_recebidas.CHAGAS.CurrentValue, "", bolsas_recebidas.CHAGAS.ReadOnly) ' Field HEPATITE_B_C Call bolsas_recebidas.HEPATITE_B_C.SetDbValue(Rs, bolsas_recebidas.HEPATITE_B_C.CurrentValue, "", bolsas_recebidas.HEPATITE_B_C.ReadOnly) ' Field DEST Call bolsas_recebidas.DEST.SetDbValue(Rs, bolsas_recebidas.DEST.CurrentValue, Null, bolsas_recebidas.DEST.ReadOnly) ' Field DATA_UTILI Call bolsas_recebidas.DATA_UTILI.SetDbValue(Rs, ew_UnFormatDateTime(bolsas_recebidas.DATA_UTILI.CurrentValue, 7), Null, bolsas_recebidas.DATA_UTILI.ReadOnly) ' Check recordset update error If Err.Number <> 0 Then FailureMessage = Err.Description Rs.Close Set Rs = Nothing EditRow = False Exit Function End If ' Call Row Updating event bUpdateRow = bolsas_recebidas.Row_Updating(RsOld, Rs) If bUpdateRow Then ' Clone new recordset object Set RsNew = ew_CloneRs(Rs) Rs.Update If Err.Number <> 0 Then FailureMessage = Err.Description EditRow = False Else EditRow = True End If Else Rs.CancelUpdate If bolsas_recebidas.CancelMessage <> "" Then FailureMessage = bolsas_recebidas.CancelMessage bolsas_recebidas.CancelMessage = "" Else FailureMessage = Language.Phrase("UpdateCancelled") End If EditRow = False End If End If ' Call Row Updated event If EditRow Then Call bolsas_recebidas.Row_Updated(RsOld, RsNew) End If Rs.Close Set Rs = Nothing If IsObject(RsOld) Then RsOld.Close Set RsOld = Nothing End If If IsObject(RsNew) Then RsNew.Close Set RsNew = Nothing End If 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 ' Form Custom Validate event Function Form_CustomValidate(CustomError) 'Return error message in CustomError Form_CustomValidate = True End Function End Class %>