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

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

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

<% provas_cruzadas_edit.ShowMessage %>

<% If provas_cruzadas.ID.Visible Then ' ID %> > > ><%= provas_cruzadas.ID.EditValue %> "> <%= provas_cruzadas.ID.CustomMsg %> <% End If %> <% If provas_cruzadas.DATA.Visible Then ' DATA %> > > >  <%= Language.Phrase(" title="<%= Language.Phrase("PickDate") %>" style="cursor:pointer;cursor:hand;"> <%= provas_cruzadas.DATA.CustomMsg %> <% End If %> <% If provas_cruzadas.REGISTRO_GERAL.Visible Then ' REGISTRO_GERAL %> > > <% If provas_cruzadas.REGISTRO_GERAL.SessionValue <> "" Then %> ><%= provas_cruzadas.REGISTRO_GERAL.ViewValue %> <% Else %> <% End If %> <%= provas_cruzadas.REGISTRO_GERAL.CustomMsg %> <% End If %> <% If provas_cruzadas.ABO.Visible Then ' ABO %> > > <%= provas_cruzadas.ABO.CustomMsg %> <% End If %> <% If provas_cruzadas.RH_D.Visible Then ' RH_D %> > > <%= provas_cruzadas.RH_D.CustomMsg %> <% End If %> <% If provas_cruzadas.RH_C.Visible Then ' RH_C %> > > <%= provas_cruzadas.RH_C.CustomMsg %> <% End If %> <% If provas_cruzadas.REVERSA_A.Visible Then ' REVERSA_A %> > > <%= provas_cruzadas.REVERSA_A.CustomMsg %> <% End If %> <% If provas_cruzadas.REVERSA_B.Visible Then ' REVERSA_B %> > > <%= provas_cruzadas.REVERSA_B.CustomMsg %> <% End If %> <% If provas_cruzadas.TA_T1.Visible Then ' TA_T1 %> > > <%= provas_cruzadas.TA_T1.CustomMsg %> <% End If %> <% If provas_cruzadas.TA_T2.Visible Then ' TA_T2 %> > > <%= provas_cruzadas.TA_T2.CustomMsg %> <% End If %> <% If provas_cruzadas.AGH_T1.Visible Then ' AGH_T1 %> > > <%= provas_cruzadas.AGH_T1.CustomMsg %> <% End If %> <% If provas_cruzadas.AGH_T2.Visible Then ' AGH_T2 %> > > <%= provas_cruzadas.AGH_T2.CustomMsg %> <% End If %> <% If provas_cruzadas.TAD.Visible Then ' TAD %> > > <%= provas_cruzadas.TAD.CustomMsg %> <% End If %> <% If provas_cruzadas.AUTO_A2FC.Visible Then ' AUTO_A/C %> > > <%= provas_cruzadas.AUTO_A2FC.CustomMsg %> <% End If %> <% If provas_cruzadas.NUMERO_BOLSA.Visible Then ' NUMERO_BOLSA %> > > <%= provas_cruzadas.NUMERO_BOLSA.CustomMsg %> <% End If %> <% If provas_cruzadas.ABO_RH_BOLSA.Visible Then ' ABO_RH_BOLSA %> > > <%= provas_cruzadas.ABO_RH_BOLSA.CustomMsg %> <% End If %> <% If provas_cruzadas.PC_TA.Visible Then ' PC_TA %> > > <%= provas_cruzadas.PC_TA.CustomMsg %> <% End If %> <% If provas_cruzadas.PC_AGH.Visible Then ' PC_AGH %> > > <%= provas_cruzadas.PC_AGH.CustomMsg %> <% End If %> <% If provas_cruzadas.CONTROCEL_PC_T1.Visible Then ' CONTROCEL_PC_T1 %> > > > <%= provas_cruzadas.CONTROCEL_PC_T1.CustomMsg %> <% End If %> <% If provas_cruzadas.CONTROCEL_PC_T2.Visible Then ' CONTROCEL_PC_T2 %> > > > <%= provas_cruzadas.CONTROCEL_PC_T2.CustomMsg %> <% End If %> <% If provas_cruzadas.CONTROCEL_PC.Visible Then ' CONTROCEL_PC %> > > > <%= provas_cruzadas.CONTROCEL_PC.CustomMsg %> <% End If %> <% If provas_cruzadas.CONTROCEL_TAD.Visible Then ' CONTROCEL_TAD %> > > > <%= provas_cruzadas.CONTROCEL_TAD.CustomMsg %> <% End If %> <% If provas_cruzadas.TESTE_HEMOLISE.Visible Then ' TESTE_HEMOLISE %> > > > <%= provas_cruzadas.TESTE_HEMOLISE.CustomMsg %> <% End If %> <% If provas_cruzadas.HORA.Visible Then ' HORA %> > > > <%= provas_cruzadas.HORA.CustomMsg %> <% End If %> <% If provas_cruzadas.TECNICO.Visible Then ' TECNICO %> > > <%= provas_cruzadas.TECNICO.CustomMsg %> <% End If %> <% If provas_cruzadas.OBS.Visible Then ' OBS %> > > <%= provas_cruzadas.OBS.CustomMsg %> <% End If %>
<%= provas_cruzadas.ID.FldCaption %>
<%= provas_cruzadas.DATA.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= provas_cruzadas.REGISTRO_GERAL.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= provas_cruzadas.ABO.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= provas_cruzadas.RH_D.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= provas_cruzadas.RH_C.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= provas_cruzadas.REVERSA_A.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= provas_cruzadas.REVERSA_B.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= provas_cruzadas.TA_T1.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= provas_cruzadas.TA_T2.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= provas_cruzadas.AGH_T1.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= provas_cruzadas.AGH_T2.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= provas_cruzadas.TAD.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= provas_cruzadas.AUTO_A2FC.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= provas_cruzadas.NUMERO_BOLSA.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= provas_cruzadas.ABO_RH_BOLSA.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= provas_cruzadas.PC_TA.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= provas_cruzadas.PC_AGH.FldCaption %>
<%= provas_cruzadas.CONTROCEL_PC_T1.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= provas_cruzadas.CONTROCEL_PC_T2.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= provas_cruzadas.CONTROCEL_PC.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= provas_cruzadas.CONTROCEL_TAD.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= provas_cruzadas.TESTE_HEMOLISE.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= provas_cruzadas.HORA.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= provas_cruzadas.TECNICO.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %>
<%= provas_cruzadas.OBS.FldCaption %>

">

<% provas_cruzadas_edit.ShowPageFooter() If EW_DEBUG_ENABLED Then Response.Write ew_DebugMsg() %> <% ' Drop page object Set provas_cruzadas_edit = Nothing %> <% ' ----------------------------------------------------------------- ' Page Class ' Class cprovas_cruzadas_edit ' Page ID Public Property Get PageID() PageID = "edit" End Property ' Table Name Public Property Get TableName() TableName = "provas_cruzadas" End Property ' Page Object Name Public Property Get PageObjName() PageObjName = "provas_cruzadas_edit" End Property ' Page Name Public Property Get PageName() PageName = ew_CurrentPage() End Property ' Page Url Public Property Get PageUrl() PageUrl = ew_CurrentPage() & "?" If provas_cruzadas.UseTokenInUrl Then PageUrl = PageUrl & "t=" & provas_cruzadas.TableVar & "&" ' add page token End Property ' Message Public Property Get Message() Message = Session(EW_SESSION_MESSAGE) End Property Public Property Let Message(v) Dim msg msg = Session(EW_SESSION_MESSAGE) Call ew_AddMessage(msg, v) Session(EW_SESSION_MESSAGE) = msg End Property Public Property Get FailureMessage() FailureMessage = Session(EW_SESSION_FAILURE_MESSAGE) End Property Public Property Let FailureMessage(v) Dim msg msg = Session(EW_SESSION_FAILURE_MESSAGE) Call ew_AddMessage(msg, v) Session(EW_SESSION_FAILURE_MESSAGE) = msg End Property Public Property Get SuccessMessage() SuccessMessage = Session(EW_SESSION_SUCCESS_MESSAGE) End Property Public Property Let SuccessMessage(v) Dim msg msg = Session(EW_SESSION_SUCCESS_MESSAGE) Call ew_AddMessage(msg, v) Session(EW_SESSION_SUCCESS_MESSAGE) = msg End Property ' Show Message Public Sub ShowMessage() Dim sMessage sMessage = Message Call Message_Showing(sMessage, "") If sMessage <> "" Then Response.Write "

" & sMessage & "

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

" & sSuccessMessage & "

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

" & sErrorMessage & "

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

" & sHeader & "

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

" & sFooter & "

" End If End Sub ' ----------------------- ' Validate Page request ' Public Function IsPageRequest() If provas_cruzadas.UseTokenInUrl Then IsPageRequest = False If Not (ObjForm Is Nothing) Then IsPageRequest = (provas_cruzadas.TableVar = ObjForm.GetValue("t")) End If If Request.QueryString("t").Count > 0 Then IsPageRequest = (provas_cruzadas.TableVar = Request.QueryString("t")) End If Else IsPageRequest = True End If End Function ' ----------------------------------------------------------------- ' Class initialize ' - init objects ' - open ADO connection ' Private Sub Class_Initialize() If IsEmpty(StartTimer) Then StartTimer = Timer ' Init start time ' Initialize language object If IsEmpty(Language) Then Set Language = New cLanguage Call Language.LoadPhrases() End If ' Initialize table object If IsEmpty(provas_cruzadas) Then Set provas_cruzadas = New cprovas_cruzadas Set Table = provas_cruzadas ' Initialize urls ' Initialize other table object If IsEmpty(receptor) Then Set receptor = New creceptor ' Initialize form object Set ObjForm = Nothing ' Intialize page id (for backward compatibility) EW_PAGE_ID = "edit" ' Initialize table name (for backward compatibility) EW_TABLE_NAME = "provas_cruzadas" ' 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 provas_cruzadas = 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("ID").Count > 0 Then provas_cruzadas.ID.QueryStringValue = Request.QueryString("ID") End If ' Set up master detail parameters SetUpMasterParms() If ObjForm.GetValue("a_edit")&"" <> "" Then provas_cruzadas.CurrentAction = ObjForm.GetValue("a_edit") ' Get action code Call LoadFormValues() ' Get form values ' Validate Form If Not ValidateForm() Then provas_cruzadas.CurrentAction = "" ' Form error, reset action FailureMessage = gsFormError provas_cruzadas.EventCancelled = True ' Event cancelled Call LoadRow() ' Restore row Call RestoreFormValues() ' Restore form values if validate failed End If Else provas_cruzadas.CurrentAction = "I" ' Default action is display End If ' Check if valid key If provas_cruzadas.ID.CurrentValue = "" Then Call Page_Terminate("provas_cruzadaslist.asp") ' Invalid key, return to list Select Case provas_cruzadas.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("provas_cruzadaslist.asp") ' No matching record, return to list End If Case "U" ' Update provas_cruzadas.SendEmail = True ' Send email on update success If EditRow() Then ' Update Record based on key SuccessMessage = Language.Phrase("UpdateSuccess") ' Update success Dim sReturnUrl sReturnUrl = provas_cruzadas.ReturnUrl If ew_GetPageName(sReturnUrl) = "provas_cruzadasview.asp" Then sReturnUrl = provas_cruzadas.ViewUrl ' View paging, return to view page with keyurl directly Call Page_Terminate(sReturnUrl) ' Return to caller Else provas_cruzadas.EventCancelled = True ' Event cancelled Call LoadRow() ' Restore row Call RestoreFormValues() ' Restore form values if update failed End If End Select ' Render the record provas_cruzadas.RowType = EW_ROWTYPE_EDIT ' Render as edit ' Render row Call provas_cruzadas.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 provas_cruzadas.ID.FldIsDetailKey Then provas_cruzadas.ID.FormValue = ObjForm.GetValue("x_ID") If Not provas_cruzadas.DATA.FldIsDetailKey Then provas_cruzadas.DATA.FormValue = ObjForm.GetValue("x_DATA") If Not provas_cruzadas.DATA.FldIsDetailKey Then provas_cruzadas.DATA.CurrentValue = ew_UnFormatDateTime(provas_cruzadas.DATA.CurrentValue, 7) If Not provas_cruzadas.REGISTRO_GERAL.FldIsDetailKey Then provas_cruzadas.REGISTRO_GERAL.FormValue = ObjForm.GetValue("x_REGISTRO_GERAL") If Not provas_cruzadas.ABO.FldIsDetailKey Then provas_cruzadas.ABO.FormValue = ObjForm.GetValue("x_ABO") If Not provas_cruzadas.RH_D.FldIsDetailKey Then provas_cruzadas.RH_D.FormValue = ObjForm.GetValue("x_RH_D") If Not provas_cruzadas.RH_C.FldIsDetailKey Then provas_cruzadas.RH_C.FormValue = ObjForm.GetValue("x_RH_C") If Not provas_cruzadas.REVERSA_A.FldIsDetailKey Then provas_cruzadas.REVERSA_A.FormValue = ObjForm.GetValue("x_REVERSA_A") If Not provas_cruzadas.REVERSA_B.FldIsDetailKey Then provas_cruzadas.REVERSA_B.FormValue = ObjForm.GetValue("x_REVERSA_B") If Not provas_cruzadas.TA_T1.FldIsDetailKey Then provas_cruzadas.TA_T1.FormValue = ObjForm.GetValue("x_TA_T1") If Not provas_cruzadas.TA_T2.FldIsDetailKey Then provas_cruzadas.TA_T2.FormValue = ObjForm.GetValue("x_TA_T2") If Not provas_cruzadas.AGH_T1.FldIsDetailKey Then provas_cruzadas.AGH_T1.FormValue = ObjForm.GetValue("x_AGH_T1") If Not provas_cruzadas.AGH_T2.FldIsDetailKey Then provas_cruzadas.AGH_T2.FormValue = ObjForm.GetValue("x_AGH_T2") If Not provas_cruzadas.TAD.FldIsDetailKey Then provas_cruzadas.TAD.FormValue = ObjForm.GetValue("x_TAD") If Not provas_cruzadas.AUTO_A2FC.FldIsDetailKey Then provas_cruzadas.AUTO_A2FC.FormValue = ObjForm.GetValue("x_AUTO_A2FC") If Not provas_cruzadas.NUMERO_BOLSA.FldIsDetailKey Then provas_cruzadas.NUMERO_BOLSA.FormValue = ObjForm.GetValue("x_NUMERO_BOLSA") If Not provas_cruzadas.ABO_RH_BOLSA.FldIsDetailKey Then provas_cruzadas.ABO_RH_BOLSA.FormValue = ObjForm.GetValue("x_ABO_RH_BOLSA") If Not provas_cruzadas.PC_TA.FldIsDetailKey Then provas_cruzadas.PC_TA.FormValue = ObjForm.GetValue("x_PC_TA") If Not provas_cruzadas.PC_AGH.FldIsDetailKey Then provas_cruzadas.PC_AGH.FormValue = ObjForm.GetValue("x_PC_AGH") If Not provas_cruzadas.CONTROCEL_PC_T1.FldIsDetailKey Then provas_cruzadas.CONTROCEL_PC_T1.FormValue = ObjForm.GetValue("x_CONTROCEL_PC_T1") If Not provas_cruzadas.CONTROCEL_PC_T2.FldIsDetailKey Then provas_cruzadas.CONTROCEL_PC_T2.FormValue = ObjForm.GetValue("x_CONTROCEL_PC_T2") If Not provas_cruzadas.CONTROCEL_PC.FldIsDetailKey Then provas_cruzadas.CONTROCEL_PC.FormValue = ObjForm.GetValue("x_CONTROCEL_PC") If Not provas_cruzadas.CONTROCEL_TAD.FldIsDetailKey Then provas_cruzadas.CONTROCEL_TAD.FormValue = ObjForm.GetValue("x_CONTROCEL_TAD") If Not provas_cruzadas.TESTE_HEMOLISE.FldIsDetailKey Then provas_cruzadas.TESTE_HEMOLISE.FormValue = ObjForm.GetValue("x_TESTE_HEMOLISE") If Not provas_cruzadas.HORA.FldIsDetailKey Then provas_cruzadas.HORA.FormValue = ObjForm.GetValue("x_HORA") If Not provas_cruzadas.TECNICO.FldIsDetailKey Then provas_cruzadas.TECNICO.FormValue = ObjForm.GetValue("x_TECNICO") If Not provas_cruzadas.OBS.FldIsDetailKey Then provas_cruzadas.OBS.FormValue = ObjForm.GetValue("x_OBS") End Function ' ----------------------------------------------------------------- ' Restore form values ' Function RestoreFormValues() Call LoadRow() provas_cruzadas.ID.CurrentValue = provas_cruzadas.ID.FormValue provas_cruzadas.DATA.CurrentValue = provas_cruzadas.DATA.FormValue provas_cruzadas.DATA.CurrentValue = ew_UnFormatDateTime(provas_cruzadas.DATA.CurrentValue, 7) provas_cruzadas.REGISTRO_GERAL.CurrentValue = provas_cruzadas.REGISTRO_GERAL.FormValue provas_cruzadas.ABO.CurrentValue = provas_cruzadas.ABO.FormValue provas_cruzadas.RH_D.CurrentValue = provas_cruzadas.RH_D.FormValue provas_cruzadas.RH_C.CurrentValue = provas_cruzadas.RH_C.FormValue provas_cruzadas.REVERSA_A.CurrentValue = provas_cruzadas.REVERSA_A.FormValue provas_cruzadas.REVERSA_B.CurrentValue = provas_cruzadas.REVERSA_B.FormValue provas_cruzadas.TA_T1.CurrentValue = provas_cruzadas.TA_T1.FormValue provas_cruzadas.TA_T2.CurrentValue = provas_cruzadas.TA_T2.FormValue provas_cruzadas.AGH_T1.CurrentValue = provas_cruzadas.AGH_T1.FormValue provas_cruzadas.AGH_T2.CurrentValue = provas_cruzadas.AGH_T2.FormValue provas_cruzadas.TAD.CurrentValue = provas_cruzadas.TAD.FormValue provas_cruzadas.AUTO_A2FC.CurrentValue = provas_cruzadas.AUTO_A2FC.FormValue provas_cruzadas.NUMERO_BOLSA.CurrentValue = provas_cruzadas.NUMERO_BOLSA.FormValue provas_cruzadas.ABO_RH_BOLSA.CurrentValue = provas_cruzadas.ABO_RH_BOLSA.FormValue provas_cruzadas.PC_TA.CurrentValue = provas_cruzadas.PC_TA.FormValue provas_cruzadas.PC_AGH.CurrentValue = provas_cruzadas.PC_AGH.FormValue provas_cruzadas.CONTROCEL_PC_T1.CurrentValue = provas_cruzadas.CONTROCEL_PC_T1.FormValue provas_cruzadas.CONTROCEL_PC_T2.CurrentValue = provas_cruzadas.CONTROCEL_PC_T2.FormValue provas_cruzadas.CONTROCEL_PC.CurrentValue = provas_cruzadas.CONTROCEL_PC.FormValue provas_cruzadas.CONTROCEL_TAD.CurrentValue = provas_cruzadas.CONTROCEL_TAD.FormValue provas_cruzadas.TESTE_HEMOLISE.CurrentValue = provas_cruzadas.TESTE_HEMOLISE.FormValue provas_cruzadas.HORA.CurrentValue = provas_cruzadas.HORA.FormValue provas_cruzadas.TECNICO.CurrentValue = provas_cruzadas.TECNICO.FormValue provas_cruzadas.OBS.CurrentValue = provas_cruzadas.OBS.FormValue End Function ' ----------------------------------------------------------------- ' Load row based on key values ' Function LoadRow() Dim RsRow, sSql, sFilter sFilter = provas_cruzadas.KeyFilter ' Call Row Selecting event Call provas_cruzadas.Row_Selecting(sFilter) ' Load sql based on filter provas_cruzadas.CurrentFilter = sFilter sSql = provas_cruzadas.SQL Call ew_SetDebugMsg("LoadRow: " & sSql) ' Show SQL for debugging Set RsRow = ew_LoadRow(sSql) If RsRow.Eof Then LoadRow = False Else LoadRow = True RsRow.MoveFirst Call LoadRowValues(RsRow) ' Load row values End If RsRow.Close Set RsRow = Nothing End Function ' ----------------------------------------------------------------- ' Load row values from recordset ' Sub LoadRowValues(RsRow) Dim sDetailFilter If RsRow.Eof Then Exit Sub ' Call Row Selected event Call provas_cruzadas.Row_Selected(RsRow) provas_cruzadas.ID.DbValue = RsRow("ID") provas_cruzadas.DATA.DbValue = RsRow("DATA") provas_cruzadas.REGISTRO_GERAL.DbValue = RsRow("REGISTRO_GERAL") If ew_FieldExistInRs(RsRow, "EV__REGISTRO_GERAL") Then provas_cruzadas.REGISTRO_GERAL.VirtualValue = RsRow("EV__REGISTRO_GERAL") ' Set up virtual field value Else provas_cruzadas.REGISTRO_GERAL.VirtualValue = "" ' Clear value End If provas_cruzadas.ABO.DbValue = RsRow("ABO") provas_cruzadas.RH_D.DbValue = RsRow("RH_D") provas_cruzadas.RH_C.DbValue = RsRow("RH_C") provas_cruzadas.REVERSA_A.DbValue = RsRow("REVERSA_A") provas_cruzadas.REVERSA_B.DbValue = RsRow("REVERSA_B") provas_cruzadas.TA_T1.DbValue = RsRow("TA_T1") provas_cruzadas.TA_T2.DbValue = RsRow("TA_T2") provas_cruzadas.AGH_T1.DbValue = RsRow("AGH_T1") provas_cruzadas.AGH_T2.DbValue = RsRow("AGH_T2") provas_cruzadas.TAD.DbValue = RsRow("TAD") provas_cruzadas.AUTO_A2FC.DbValue = RsRow("AUTO_A/C") provas_cruzadas.NUMERO_BOLSA.DbValue = RsRow("NUMERO_BOLSA") If ew_FieldExistInRs(RsRow, "EV__NUMERO_BOLSA") Then provas_cruzadas.NUMERO_BOLSA.VirtualValue = RsRow("EV__NUMERO_BOLSA") ' Set up virtual field value Else provas_cruzadas.NUMERO_BOLSA.VirtualValue = "" ' Clear value End If provas_cruzadas.ABO_RH_BOLSA.DbValue = RsRow("ABO_RH_BOLSA") provas_cruzadas.PC_TA.DbValue = RsRow("PC_TA") provas_cruzadas.PC_AGH.DbValue = RsRow("PC_AGH") provas_cruzadas.CONTROCEL_PC_T1.DbValue = RsRow("CONTROCEL_PC_T1") provas_cruzadas.CONTROCEL_PC_T2.DbValue = RsRow("CONTROCEL_PC_T2") provas_cruzadas.CONTROCEL_PC.DbValue = RsRow("CONTROCEL_PC") provas_cruzadas.CONTROCEL_TAD.DbValue = RsRow("CONTROCEL_TAD") provas_cruzadas.TESTE_HEMOLISE.DbValue = RsRow("TESTE_HEMOLISE") provas_cruzadas.HORA.DbValue = RsRow("HORA") provas_cruzadas.TECNICO.DbValue = RsRow("TECNICO") If ew_FieldExistInRs(RsRow, "EV__TECNICO") Then provas_cruzadas.TECNICO.VirtualValue = RsRow("EV__TECNICO") ' Set up virtual field value Else provas_cruzadas.TECNICO.VirtualValue = "" ' Clear value End If provas_cruzadas.OBS.DbValue = RsRow("OBS") End Sub ' ----------------------------------------------------------------- ' Render row values based on field settings ' Sub RenderRow() ' Initialize urls ' Call Row Rendering event Call provas_cruzadas.Row_Rendering() ' --------------------------------------- ' Common render codes for all row types ' --------------------------------------- ' ID ' DATA ' REGISTRO_GERAL ' ABO ' RH_D ' RH_C ' REVERSA_A ' REVERSA_B ' TA_T1 ' TA_T2 ' AGH_T1 ' AGH_T2 ' TAD ' AUTO_A/C ' NUMERO_BOLSA ' ABO_RH_BOLSA ' PC_TA ' PC_AGH ' CONTROCEL_PC_T1 ' CONTROCEL_PC_T2 ' CONTROCEL_PC ' CONTROCEL_TAD ' TESTE_HEMOLISE ' HORA ' TECNICO ' OBS ' ----------- ' View Row ' ----------- If provas_cruzadas.RowType = EW_ROWTYPE_VIEW Then ' View row ' ID provas_cruzadas.ID.ViewValue = provas_cruzadas.ID.CurrentValue provas_cruzadas.ID.CssStyle = "text-align:center;" provas_cruzadas.ID.ViewCustomAttributes = "" ' DATA provas_cruzadas.DATA.ViewValue = provas_cruzadas.DATA.CurrentValue provas_cruzadas.DATA.ViewValue = ew_FormatDateTime(provas_cruzadas.DATA.ViewValue, 7) provas_cruzadas.DATA.CssStyle = "text-align:center;" provas_cruzadas.DATA.ViewCustomAttributes = "" ' REGISTRO_GERAL If provas_cruzadas.REGISTRO_GERAL.VirtualValue <> "" Then provas_cruzadas.REGISTRO_GERAL.ViewValue = provas_cruzadas.REGISTRO_GERAL.VirtualValue Else If provas_cruzadas.REGISTRO_GERAL.CurrentValue & "" <> "" Then sFilterWrk = "`REGISTRO_GERAL` = " & ew_AdjustSql(provas_cruzadas.REGISTRO_GERAL.CurrentValue) & "" sSqlWrk = "SELECT `REGISTRO_GERAL` FROM `receptor`" sWhereWrk = "" Call ew_AddFilter(sWhereWrk, sFilterWrk) If sWhereWrk <> "" Then sSqlWrk = sSqlWrk & " WHERE " & sWhereWrk sSqlWrk = sSqlWrk & " ORDER BY `REGISTRO_GERAL` Desc" Set RsWrk = Conn.Execute(sSqlWrk) If Not RsWrk.Eof Then provas_cruzadas.REGISTRO_GERAL.ViewValue = RsWrk("REGISTRO_GERAL") Else provas_cruzadas.REGISTRO_GERAL.ViewValue = provas_cruzadas.REGISTRO_GERAL.CurrentValue End If RsWrk.Close Set RsWrk = Nothing Else provas_cruzadas.REGISTRO_GERAL.ViewValue = Null End If End If provas_cruzadas.REGISTRO_GERAL.CssStyle = "text-align:center;" provas_cruzadas.REGISTRO_GERAL.ViewCustomAttributes = "" ' ABO If Not IsNull(provas_cruzadas.ABO.CurrentValue) Then Select Case provas_cruzadas.ABO.CurrentValue Case "A" provas_cruzadas.ABO.ViewValue = ew_IIf(provas_cruzadas.ABO.FldTagCaption(1) <> "", provas_cruzadas.ABO.FldTagCaption(1), "A") Case "B" provas_cruzadas.ABO.ViewValue = ew_IIf(provas_cruzadas.ABO.FldTagCaption(2) <> "", provas_cruzadas.ABO.FldTagCaption(2), "B") Case "AB" provas_cruzadas.ABO.ViewValue = ew_IIf(provas_cruzadas.ABO.FldTagCaption(3) <> "", provas_cruzadas.ABO.FldTagCaption(3), "AB") Case "O" provas_cruzadas.ABO.ViewValue = ew_IIf(provas_cruzadas.ABO.FldTagCaption(4) <> "", provas_cruzadas.ABO.FldTagCaption(4), "O") Case Else provas_cruzadas.ABO.ViewValue = provas_cruzadas.ABO.CurrentValue End Select Else provas_cruzadas.ABO.ViewValue = Null End If provas_cruzadas.ABO.CssStyle = "text-align:center;" provas_cruzadas.ABO.ViewCustomAttributes = "" ' RH_D If Not IsNull(provas_cruzadas.RH_D.CurrentValue) Then Select Case provas_cruzadas.RH_D.CurrentValue Case "NEG" provas_cruzadas.RH_D.ViewValue = ew_IIf(provas_cruzadas.RH_D.FldTagCaption(1) <> "", provas_cruzadas.RH_D.FldTagCaption(1), "NEG") Case "POS" provas_cruzadas.RH_D.ViewValue = ew_IIf(provas_cruzadas.RH_D.FldTagCaption(2) <> "", provas_cruzadas.RH_D.FldTagCaption(2), "POS") Case Else provas_cruzadas.RH_D.ViewValue = provas_cruzadas.RH_D.CurrentValue End Select Else provas_cruzadas.RH_D.ViewValue = Null End If provas_cruzadas.RH_D.CssStyle = "text-align:center;" provas_cruzadas.RH_D.ViewCustomAttributes = "" ' RH_C If Not IsNull(provas_cruzadas.RH_C.CurrentValue) Then Select Case provas_cruzadas.RH_C.CurrentValue Case "NEG" provas_cruzadas.RH_C.ViewValue = ew_IIf(provas_cruzadas.RH_C.FldTagCaption(1) <> "", provas_cruzadas.RH_C.FldTagCaption(1), "NEG") Case "POS" provas_cruzadas.RH_C.ViewValue = ew_IIf(provas_cruzadas.RH_C.FldTagCaption(2) <> "", provas_cruzadas.RH_C.FldTagCaption(2), "POS") Case Else provas_cruzadas.RH_C.ViewValue = provas_cruzadas.RH_C.CurrentValue End Select Else provas_cruzadas.RH_C.ViewValue = Null End If provas_cruzadas.RH_C.CssStyle = "text-align:center;" provas_cruzadas.RH_C.ViewCustomAttributes = "" ' REVERSA_A If Not IsNull(provas_cruzadas.REVERSA_A.CurrentValue) Then Select Case provas_cruzadas.REVERSA_A.CurrentValue Case "NEG" provas_cruzadas.REVERSA_A.ViewValue = ew_IIf(provas_cruzadas.REVERSA_A.FldTagCaption(1) <> "", provas_cruzadas.REVERSA_A.FldTagCaption(1), "NEG") Case "POS" provas_cruzadas.REVERSA_A.ViewValue = ew_IIf(provas_cruzadas.REVERSA_A.FldTagCaption(2) <> "", provas_cruzadas.REVERSA_A.FldTagCaption(2), "POS") Case Else provas_cruzadas.REVERSA_A.ViewValue = provas_cruzadas.REVERSA_A.CurrentValue End Select Else provas_cruzadas.REVERSA_A.ViewValue = Null End If provas_cruzadas.REVERSA_A.CssStyle = "text-align:center;" provas_cruzadas.REVERSA_A.ViewCustomAttributes = "" ' REVERSA_B If Not IsNull(provas_cruzadas.REVERSA_B.CurrentValue) Then Select Case provas_cruzadas.REVERSA_B.CurrentValue Case "NEG" provas_cruzadas.REVERSA_B.ViewValue = ew_IIf(provas_cruzadas.REVERSA_B.FldTagCaption(1) <> "", provas_cruzadas.REVERSA_B.FldTagCaption(1), "NEG") Case "POS" provas_cruzadas.REVERSA_B.ViewValue = ew_IIf(provas_cruzadas.REVERSA_B.FldTagCaption(2) <> "", provas_cruzadas.REVERSA_B.FldTagCaption(2), "POS") Case Else provas_cruzadas.REVERSA_B.ViewValue = provas_cruzadas.REVERSA_B.CurrentValue End Select Else provas_cruzadas.REVERSA_B.ViewValue = Null End If provas_cruzadas.REVERSA_B.CssStyle = "text-align:center;" provas_cruzadas.REVERSA_B.ViewCustomAttributes = "" ' TA_T1 If Not IsNull(provas_cruzadas.TA_T1.CurrentValue) Then Select Case provas_cruzadas.TA_T1.CurrentValue Case "NEG" provas_cruzadas.TA_T1.ViewValue = ew_IIf(provas_cruzadas.TA_T1.FldTagCaption(1) <> "", provas_cruzadas.TA_T1.FldTagCaption(1), "NEG") Case "POS" provas_cruzadas.TA_T1.ViewValue = ew_IIf(provas_cruzadas.TA_T1.FldTagCaption(2) <> "", provas_cruzadas.TA_T1.FldTagCaption(2), "POS") Case Else provas_cruzadas.TA_T1.ViewValue = provas_cruzadas.TA_T1.CurrentValue End Select Else provas_cruzadas.TA_T1.ViewValue = Null End If provas_cruzadas.TA_T1.CssStyle = "text-align:center;" provas_cruzadas.TA_T1.ViewCustomAttributes = "" ' TA_T2 If Not IsNull(provas_cruzadas.TA_T2.CurrentValue) Then Select Case provas_cruzadas.TA_T2.CurrentValue Case "NEG" provas_cruzadas.TA_T2.ViewValue = ew_IIf(provas_cruzadas.TA_T2.FldTagCaption(1) <> "", provas_cruzadas.TA_T2.FldTagCaption(1), "NEG") Case "POS" provas_cruzadas.TA_T2.ViewValue = ew_IIf(provas_cruzadas.TA_T2.FldTagCaption(2) <> "", provas_cruzadas.TA_T2.FldTagCaption(2), "POS") Case Else provas_cruzadas.TA_T2.ViewValue = provas_cruzadas.TA_T2.CurrentValue End Select Else provas_cruzadas.TA_T2.ViewValue = Null End If provas_cruzadas.TA_T2.CssStyle = "text-align:center;" provas_cruzadas.TA_T2.ViewCustomAttributes = "" ' AGH_T1 If Not IsNull(provas_cruzadas.AGH_T1.CurrentValue) Then Select Case provas_cruzadas.AGH_T1.CurrentValue Case "NEG" provas_cruzadas.AGH_T1.ViewValue = ew_IIf(provas_cruzadas.AGH_T1.FldTagCaption(1) <> "", provas_cruzadas.AGH_T1.FldTagCaption(1), "NEG") Case "POS" provas_cruzadas.AGH_T1.ViewValue = ew_IIf(provas_cruzadas.AGH_T1.FldTagCaption(2) <> "", provas_cruzadas.AGH_T1.FldTagCaption(2), "POS") Case Else provas_cruzadas.AGH_T1.ViewValue = provas_cruzadas.AGH_T1.CurrentValue End Select Else provas_cruzadas.AGH_T1.ViewValue = Null End If provas_cruzadas.AGH_T1.CssStyle = "text-align:center;" provas_cruzadas.AGH_T1.ViewCustomAttributes = "" ' AGH_T2 If Not IsNull(provas_cruzadas.AGH_T2.CurrentValue) Then Select Case provas_cruzadas.AGH_T2.CurrentValue Case "NEG" provas_cruzadas.AGH_T2.ViewValue = ew_IIf(provas_cruzadas.AGH_T2.FldTagCaption(1) <> "", provas_cruzadas.AGH_T2.FldTagCaption(1), "NEG") Case "POS" provas_cruzadas.AGH_T2.ViewValue = ew_IIf(provas_cruzadas.AGH_T2.FldTagCaption(2) <> "", provas_cruzadas.AGH_T2.FldTagCaption(2), "POS") Case Else provas_cruzadas.AGH_T2.ViewValue = provas_cruzadas.AGH_T2.CurrentValue End Select Else provas_cruzadas.AGH_T2.ViewValue = Null End If provas_cruzadas.AGH_T2.CssStyle = "text-align:center;" provas_cruzadas.AGH_T2.ViewCustomAttributes = "" ' TAD If Not IsNull(provas_cruzadas.TAD.CurrentValue) Then Select Case provas_cruzadas.TAD.CurrentValue Case "NEG" provas_cruzadas.TAD.ViewValue = ew_IIf(provas_cruzadas.TAD.FldTagCaption(1) <> "", provas_cruzadas.TAD.FldTagCaption(1), "NEG") Case "POS" provas_cruzadas.TAD.ViewValue = ew_IIf(provas_cruzadas.TAD.FldTagCaption(2) <> "", provas_cruzadas.TAD.FldTagCaption(2), "POS") Case Else provas_cruzadas.TAD.ViewValue = provas_cruzadas.TAD.CurrentValue End Select Else provas_cruzadas.TAD.ViewValue = Null End If provas_cruzadas.TAD.CssStyle = "text-align:center;" provas_cruzadas.TAD.ViewCustomAttributes = "" ' AUTO_A/C If Not IsNull(provas_cruzadas.AUTO_A2FC.CurrentValue) Then Select Case provas_cruzadas.AUTO_A2FC.CurrentValue Case "NEG" provas_cruzadas.AUTO_A2FC.ViewValue = ew_IIf(provas_cruzadas.AUTO_A2FC.FldTagCaption(1) <> "", provas_cruzadas.AUTO_A2FC.FldTagCaption(1), "NEG") Case "POS" provas_cruzadas.AUTO_A2FC.ViewValue = ew_IIf(provas_cruzadas.AUTO_A2FC.FldTagCaption(2) <> "", provas_cruzadas.AUTO_A2FC.FldTagCaption(2), "POS") Case Else provas_cruzadas.AUTO_A2FC.ViewValue = provas_cruzadas.AUTO_A2FC.CurrentValue End Select Else provas_cruzadas.AUTO_A2FC.ViewValue = Null End If provas_cruzadas.AUTO_A2FC.CssStyle = "text-align:center;" provas_cruzadas.AUTO_A2FC.ViewCustomAttributes = "" ' NUMERO_BOLSA If provas_cruzadas.NUMERO_BOLSA.VirtualValue <> "" Then provas_cruzadas.NUMERO_BOLSA.ViewValue = provas_cruzadas.NUMERO_BOLSA.VirtualValue Else If provas_cruzadas.NUMERO_BOLSA.CurrentValue & "" <> "" Then sFilterWrk = "`NUMERO_BOLSA` = " & ew_AdjustSql(provas_cruzadas.NUMERO_BOLSA.CurrentValue) & "" sSqlWrk = "SELECT `NUMERO_BOLSA` FROM `bolsas_recebidas`" sWhereWrk = "" Call ew_AddFilter(sWhereWrk, sFilterWrk) If sWhereWrk <> "" Then sSqlWrk = sSqlWrk & " WHERE " & sWhereWrk sSqlWrk = sSqlWrk & " ORDER BY `NUMERO_BOLSA` Desc" Set RsWrk = Conn.Execute(sSqlWrk) If Not RsWrk.Eof Then provas_cruzadas.NUMERO_BOLSA.ViewValue = RsWrk("NUMERO_BOLSA") Else provas_cruzadas.NUMERO_BOLSA.ViewValue = provas_cruzadas.NUMERO_BOLSA.CurrentValue End If RsWrk.Close Set RsWrk = Nothing Else provas_cruzadas.NUMERO_BOLSA.ViewValue = Null End If End If provas_cruzadas.NUMERO_BOLSA.CssStyle = "text-align:center;" provas_cruzadas.NUMERO_BOLSA.ViewCustomAttributes = "" ' ABO_RH_BOLSA If Not IsNull(provas_cruzadas.ABO_RH_BOLSA.CurrentValue) Then Select Case provas_cruzadas.ABO_RH_BOLSA.CurrentValue Case "A+" provas_cruzadas.ABO_RH_BOLSA.ViewValue = ew_IIf(provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(1) <> "", provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(1), "A+") Case "A-" provas_cruzadas.ABO_RH_BOLSA.ViewValue = ew_IIf(provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(2) <> "", provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(2), "A-") Case "B+" provas_cruzadas.ABO_RH_BOLSA.ViewValue = ew_IIf(provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(3) <> "", provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(3), "B+") Case "B-" provas_cruzadas.ABO_RH_BOLSA.ViewValue = ew_IIf(provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(4) <> "", provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(4), "B-") Case "AB+" provas_cruzadas.ABO_RH_BOLSA.ViewValue = ew_IIf(provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(5) <> "", provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(5), "AB+") Case "AB-" provas_cruzadas.ABO_RH_BOLSA.ViewValue = ew_IIf(provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(6) <> "", provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(6), "AB-") Case "O+" provas_cruzadas.ABO_RH_BOLSA.ViewValue = ew_IIf(provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(7) <> "", provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(7), "O+") Case "O-" provas_cruzadas.ABO_RH_BOLSA.ViewValue = ew_IIf(provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(8) <> "", provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(8), "O-") Case Else provas_cruzadas.ABO_RH_BOLSA.ViewValue = provas_cruzadas.ABO_RH_BOLSA.CurrentValue End Select Else provas_cruzadas.ABO_RH_BOLSA.ViewValue = Null End If provas_cruzadas.ABO_RH_BOLSA.CssStyle = "text-align:center;" provas_cruzadas.ABO_RH_BOLSA.ViewCustomAttributes = "" ' PC_TA If Not IsNull(provas_cruzadas.PC_TA.CurrentValue) Then Select Case provas_cruzadas.PC_TA.CurrentValue Case "NEG" provas_cruzadas.PC_TA.ViewValue = ew_IIf(provas_cruzadas.PC_TA.FldTagCaption(1) <> "", provas_cruzadas.PC_TA.FldTagCaption(1), "NEG") Case "POS" provas_cruzadas.PC_TA.ViewValue = ew_IIf(provas_cruzadas.PC_TA.FldTagCaption(2) <> "", provas_cruzadas.PC_TA.FldTagCaption(2), "POS") Case Else provas_cruzadas.PC_TA.ViewValue = provas_cruzadas.PC_TA.CurrentValue End Select Else provas_cruzadas.PC_TA.ViewValue = Null End If provas_cruzadas.PC_TA.CssStyle = "text-align:center;" provas_cruzadas.PC_TA.ViewCustomAttributes = "" ' PC_AGH If Not IsNull(provas_cruzadas.PC_AGH.CurrentValue) Then Select Case provas_cruzadas.PC_AGH.CurrentValue Case "NEG" provas_cruzadas.PC_AGH.ViewValue = ew_IIf(provas_cruzadas.PC_AGH.FldTagCaption(1) <> "", provas_cruzadas.PC_AGH.FldTagCaption(1), "NEG") Case "POS" provas_cruzadas.PC_AGH.ViewValue = ew_IIf(provas_cruzadas.PC_AGH.FldTagCaption(2) <> "", provas_cruzadas.PC_AGH.FldTagCaption(2), "POS") Case Else provas_cruzadas.PC_AGH.ViewValue = provas_cruzadas.PC_AGH.CurrentValue End Select Else provas_cruzadas.PC_AGH.ViewValue = Null End If provas_cruzadas.PC_AGH.CssStyle = "text-align:center;" provas_cruzadas.PC_AGH.ViewCustomAttributes = "" ' CONTROCEL_PC_T1 provas_cruzadas.CONTROCEL_PC_T1.ViewValue = provas_cruzadas.CONTROCEL_PC_T1.CurrentValue provas_cruzadas.CONTROCEL_PC_T1.CssStyle = "text-align:center;" provas_cruzadas.CONTROCEL_PC_T1.ViewCustomAttributes = "" ' CONTROCEL_PC_T2 provas_cruzadas.CONTROCEL_PC_T2.ViewValue = provas_cruzadas.CONTROCEL_PC_T2.CurrentValue provas_cruzadas.CONTROCEL_PC_T2.CssStyle = "text-align:center;" provas_cruzadas.CONTROCEL_PC_T2.ViewCustomAttributes = "" ' CONTROCEL_PC provas_cruzadas.CONTROCEL_PC.ViewValue = provas_cruzadas.CONTROCEL_PC.CurrentValue provas_cruzadas.CONTROCEL_PC.CssStyle = "text-align:center;" provas_cruzadas.CONTROCEL_PC.ViewCustomAttributes = "" ' CONTROCEL_TAD provas_cruzadas.CONTROCEL_TAD.ViewValue = provas_cruzadas.CONTROCEL_TAD.CurrentValue provas_cruzadas.CONTROCEL_TAD.CssStyle = "text-align:center;" provas_cruzadas.CONTROCEL_TAD.ViewCustomAttributes = "" ' TESTE_HEMOLISE provas_cruzadas.TESTE_HEMOLISE.ViewValue = provas_cruzadas.TESTE_HEMOLISE.CurrentValue provas_cruzadas.TESTE_HEMOLISE.CssStyle = "text-align:center;" provas_cruzadas.TESTE_HEMOLISE.ViewCustomAttributes = "" ' HORA provas_cruzadas.HORA.ViewValue = provas_cruzadas.HORA.CurrentValue provas_cruzadas.HORA.CssStyle = "text-align:center;" provas_cruzadas.HORA.ViewCustomAttributes = "" ' TECNICO If provas_cruzadas.TECNICO.VirtualValue <> "" Then provas_cruzadas.TECNICO.ViewValue = provas_cruzadas.TECNICO.VirtualValue Else If provas_cruzadas.TECNICO.CurrentValue & "" <> "" Then sFilterWrk = "`NOME` = '" & ew_AdjustSql(provas_cruzadas.TECNICO.CurrentValue) & "'" sSqlWrk = "SELECT `NOME` FROM `funcionarios`" sWhereWrk = "" Call ew_AddFilter(sWhereWrk, sFilterWrk) If sWhereWrk <> "" Then sSqlWrk = sSqlWrk & " WHERE " & sWhereWrk sSqlWrk = sSqlWrk & " ORDER BY `NOME` Asc" Set RsWrk = Conn.Execute(sSqlWrk) If Not RsWrk.Eof Then provas_cruzadas.TECNICO.ViewValue = RsWrk("NOME") Else provas_cruzadas.TECNICO.ViewValue = provas_cruzadas.TECNICO.CurrentValue End If RsWrk.Close Set RsWrk = Nothing Else provas_cruzadas.TECNICO.ViewValue = Null End If End If provas_cruzadas.TECNICO.CssStyle = "text-align:center;" provas_cruzadas.TECNICO.ViewCustomAttributes = "" ' OBS provas_cruzadas.OBS.ViewValue = provas_cruzadas.OBS.CurrentValue provas_cruzadas.OBS.ViewCustomAttributes = "" ' View refer script ' ID provas_cruzadas.ID.LinkCustomAttributes = "" provas_cruzadas.ID.HrefValue = "" provas_cruzadas.ID.TooltipValue = "" ' DATA provas_cruzadas.DATA.LinkCustomAttributes = "" provas_cruzadas.DATA.HrefValue = "" provas_cruzadas.DATA.TooltipValue = "" ' REGISTRO_GERAL provas_cruzadas.REGISTRO_GERAL.LinkCustomAttributes = "" provas_cruzadas.REGISTRO_GERAL.HrefValue = "" provas_cruzadas.REGISTRO_GERAL.TooltipValue = "" ' ABO provas_cruzadas.ABO.LinkCustomAttributes = "" provas_cruzadas.ABO.HrefValue = "" provas_cruzadas.ABO.TooltipValue = "" ' RH_D provas_cruzadas.RH_D.LinkCustomAttributes = "" provas_cruzadas.RH_D.HrefValue = "" provas_cruzadas.RH_D.TooltipValue = "" ' RH_C provas_cruzadas.RH_C.LinkCustomAttributes = "" provas_cruzadas.RH_C.HrefValue = "" provas_cruzadas.RH_C.TooltipValue = "" ' REVERSA_A provas_cruzadas.REVERSA_A.LinkCustomAttributes = "" provas_cruzadas.REVERSA_A.HrefValue = "" provas_cruzadas.REVERSA_A.TooltipValue = "" ' REVERSA_B provas_cruzadas.REVERSA_B.LinkCustomAttributes = "" provas_cruzadas.REVERSA_B.HrefValue = "" provas_cruzadas.REVERSA_B.TooltipValue = "" ' TA_T1 provas_cruzadas.TA_T1.LinkCustomAttributes = "" provas_cruzadas.TA_T1.HrefValue = "" provas_cruzadas.TA_T1.TooltipValue = "" ' TA_T2 provas_cruzadas.TA_T2.LinkCustomAttributes = "" provas_cruzadas.TA_T2.HrefValue = "" provas_cruzadas.TA_T2.TooltipValue = "" ' AGH_T1 provas_cruzadas.AGH_T1.LinkCustomAttributes = "" provas_cruzadas.AGH_T1.HrefValue = "" provas_cruzadas.AGH_T1.TooltipValue = "" ' AGH_T2 provas_cruzadas.AGH_T2.LinkCustomAttributes = "" provas_cruzadas.AGH_T2.HrefValue = "" provas_cruzadas.AGH_T2.TooltipValue = "" ' TAD provas_cruzadas.TAD.LinkCustomAttributes = "" provas_cruzadas.TAD.HrefValue = "" provas_cruzadas.TAD.TooltipValue = "" ' AUTO_A/C provas_cruzadas.AUTO_A2FC.LinkCustomAttributes = "" provas_cruzadas.AUTO_A2FC.HrefValue = "" provas_cruzadas.AUTO_A2FC.TooltipValue = "" ' NUMERO_BOLSA provas_cruzadas.NUMERO_BOLSA.LinkCustomAttributes = "" provas_cruzadas.NUMERO_BOLSA.HrefValue = "" provas_cruzadas.NUMERO_BOLSA.TooltipValue = "" ' ABO_RH_BOLSA provas_cruzadas.ABO_RH_BOLSA.LinkCustomAttributes = "" provas_cruzadas.ABO_RH_BOLSA.HrefValue = "" provas_cruzadas.ABO_RH_BOLSA.TooltipValue = "" ' PC_TA provas_cruzadas.PC_TA.LinkCustomAttributes = "" provas_cruzadas.PC_TA.HrefValue = "" provas_cruzadas.PC_TA.TooltipValue = "" ' PC_AGH provas_cruzadas.PC_AGH.LinkCustomAttributes = "" provas_cruzadas.PC_AGH.HrefValue = "" provas_cruzadas.PC_AGH.TooltipValue = "" ' CONTROCEL_PC_T1 provas_cruzadas.CONTROCEL_PC_T1.LinkCustomAttributes = "" provas_cruzadas.CONTROCEL_PC_T1.HrefValue = "" provas_cruzadas.CONTROCEL_PC_T1.TooltipValue = "" ' CONTROCEL_PC_T2 provas_cruzadas.CONTROCEL_PC_T2.LinkCustomAttributes = "" provas_cruzadas.CONTROCEL_PC_T2.HrefValue = "" provas_cruzadas.CONTROCEL_PC_T2.TooltipValue = "" ' CONTROCEL_PC provas_cruzadas.CONTROCEL_PC.LinkCustomAttributes = "" provas_cruzadas.CONTROCEL_PC.HrefValue = "" provas_cruzadas.CONTROCEL_PC.TooltipValue = "" ' CONTROCEL_TAD provas_cruzadas.CONTROCEL_TAD.LinkCustomAttributes = "" provas_cruzadas.CONTROCEL_TAD.HrefValue = "" provas_cruzadas.CONTROCEL_TAD.TooltipValue = "" ' TESTE_HEMOLISE provas_cruzadas.TESTE_HEMOLISE.LinkCustomAttributes = "" provas_cruzadas.TESTE_HEMOLISE.HrefValue = "" provas_cruzadas.TESTE_HEMOLISE.TooltipValue = "" ' HORA provas_cruzadas.HORA.LinkCustomAttributes = "" provas_cruzadas.HORA.HrefValue = "" provas_cruzadas.HORA.TooltipValue = "" ' TECNICO provas_cruzadas.TECNICO.LinkCustomAttributes = "" provas_cruzadas.TECNICO.HrefValue = "" provas_cruzadas.TECNICO.TooltipValue = "" ' OBS provas_cruzadas.OBS.LinkCustomAttributes = "" provas_cruzadas.OBS.HrefValue = "" provas_cruzadas.OBS.TooltipValue = "" ' ---------- ' Edit Row ' ---------- ElseIf provas_cruzadas.RowType = EW_ROWTYPE_EDIT Then ' Edit row ' ID provas_cruzadas.ID.EditCustomAttributes = "" provas_cruzadas.ID.EditValue = provas_cruzadas.ID.CurrentValue provas_cruzadas.ID.CssStyle = "text-align:center;" provas_cruzadas.ID.ViewCustomAttributes = "" ' DATA provas_cruzadas.DATA.EditCustomAttributes = "" provas_cruzadas.DATA.EditValue = ew_FormatDateTime(provas_cruzadas.DATA.CurrentValue, 7) ' REGISTRO_GERAL provas_cruzadas.REGISTRO_GERAL.EditCustomAttributes = "" If provas_cruzadas.REGISTRO_GERAL.SessionValue <> "" Then provas_cruzadas.REGISTRO_GERAL.CurrentValue = provas_cruzadas.REGISTRO_GERAL.SessionValue If provas_cruzadas.REGISTRO_GERAL.VirtualValue <> "" Then provas_cruzadas.REGISTRO_GERAL.ViewValue = provas_cruzadas.REGISTRO_GERAL.VirtualValue Else If provas_cruzadas.REGISTRO_GERAL.CurrentValue & "" <> "" Then sFilterWrk = "`REGISTRO_GERAL` = " & ew_AdjustSql(provas_cruzadas.REGISTRO_GERAL.CurrentValue) & "" sSqlWrk = "SELECT `REGISTRO_GERAL` FROM `receptor`" sWhereWrk = "" Call ew_AddFilter(sWhereWrk, sFilterWrk) If sWhereWrk <> "" Then sSqlWrk = sSqlWrk & " WHERE " & sWhereWrk sSqlWrk = sSqlWrk & " ORDER BY `REGISTRO_GERAL` Desc" Set RsWrk = Conn.Execute(sSqlWrk) If Not RsWrk.Eof Then provas_cruzadas.REGISTRO_GERAL.ViewValue = RsWrk("REGISTRO_GERAL") Else provas_cruzadas.REGISTRO_GERAL.ViewValue = provas_cruzadas.REGISTRO_GERAL.CurrentValue End If RsWrk.Close Set RsWrk = Nothing Else provas_cruzadas.REGISTRO_GERAL.ViewValue = Null End If End If provas_cruzadas.REGISTRO_GERAL.CssStyle = "text-align:center;" provas_cruzadas.REGISTRO_GERAL.ViewCustomAttributes = "" Else sFilterWrk = "" sSqlWrk = "SELECT `REGISTRO_GERAL`, `REGISTRO_GERAL` AS `DispFld`, '' AS `Disp2Fld`, '' AS `Disp3Fld`, '' AS `Disp4Fld`, '' AS `SelectFilterFld` FROM `receptor`" sWhereWrk = "" Call ew_AddFilter(sWhereWrk, sFilterWrk) If sWhereWrk <> "" Then sSqlWrk = sSqlWrk & " WHERE " & sWhereWrk sSqlWrk = sSqlWrk & " ORDER BY `REGISTRO_GERAL` Desc" Set RsWrk = Server.CreateObject("ADODB.Recordset") RsWrk.Open sSqlWrk, Conn If Not RsWrk.Eof Then arwrk = RsWrk.GetRows Else arwrk = "" End If RsWrk.Close Set RsWrk = Nothing arwrk = ew_AddItemToArray(arwrk, 0, Array("", Language.Phrase("PleaseSelect"))) provas_cruzadas.REGISTRO_GERAL.EditValue = arwrk End If ' ABO provas_cruzadas.ABO.EditCustomAttributes = "" Redim arwrk(1, 3) arwrk(0, 0) = "A" arwrk(1, 0) = ew_IIf(provas_cruzadas.ABO.FldTagCaption(1) <> "", provas_cruzadas.ABO.FldTagCaption(1), "A") arwrk(0, 1) = "B" arwrk(1, 1) = ew_IIf(provas_cruzadas.ABO.FldTagCaption(2) <> "", provas_cruzadas.ABO.FldTagCaption(2), "B") arwrk(0, 2) = "AB" arwrk(1, 2) = ew_IIf(provas_cruzadas.ABO.FldTagCaption(3) <> "", provas_cruzadas.ABO.FldTagCaption(3), "AB") arwrk(0, 3) = "O" arwrk(1, 3) = ew_IIf(provas_cruzadas.ABO.FldTagCaption(4) <> "", provas_cruzadas.ABO.FldTagCaption(4), "O") arwrk = ew_AddItemToArray(arwrk, 0, Array("", Language.Phrase("PleaseSelect"))) provas_cruzadas.ABO.EditValue = arwrk ' RH_D provas_cruzadas.RH_D.EditCustomAttributes = "" Redim arwrk(1, 1) arwrk(0, 0) = "NEG" arwrk(1, 0) = ew_IIf(provas_cruzadas.RH_D.FldTagCaption(1) <> "", provas_cruzadas.RH_D.FldTagCaption(1), "NEG") arwrk(0, 1) = "POS" arwrk(1, 1) = ew_IIf(provas_cruzadas.RH_D.FldTagCaption(2) <> "", provas_cruzadas.RH_D.FldTagCaption(2), "POS") arwrk = ew_AddItemToArray(arwrk, 0, Array("", Language.Phrase("PleaseSelect"))) provas_cruzadas.RH_D.EditValue = arwrk ' RH_C provas_cruzadas.RH_C.EditCustomAttributes = "" Redim arwrk(1, 1) arwrk(0, 0) = "NEG" arwrk(1, 0) = ew_IIf(provas_cruzadas.RH_C.FldTagCaption(1) <> "", provas_cruzadas.RH_C.FldTagCaption(1), "NEG") arwrk(0, 1) = "POS" arwrk(1, 1) = ew_IIf(provas_cruzadas.RH_C.FldTagCaption(2) <> "", provas_cruzadas.RH_C.FldTagCaption(2), "POS") arwrk = ew_AddItemToArray(arwrk, 0, Array("", Language.Phrase("PleaseSelect"))) provas_cruzadas.RH_C.EditValue = arwrk ' REVERSA_A provas_cruzadas.REVERSA_A.EditCustomAttributes = "" Redim arwrk(1, 1) arwrk(0, 0) = "NEG" arwrk(1, 0) = ew_IIf(provas_cruzadas.REVERSA_A.FldTagCaption(1) <> "", provas_cruzadas.REVERSA_A.FldTagCaption(1), "NEG") arwrk(0, 1) = "POS" arwrk(1, 1) = ew_IIf(provas_cruzadas.REVERSA_A.FldTagCaption(2) <> "", provas_cruzadas.REVERSA_A.FldTagCaption(2), "POS") arwrk = ew_AddItemToArray(arwrk, 0, Array("", Language.Phrase("PleaseSelect"))) provas_cruzadas.REVERSA_A.EditValue = arwrk ' REVERSA_B provas_cruzadas.REVERSA_B.EditCustomAttributes = "" Redim arwrk(1, 1) arwrk(0, 0) = "NEG" arwrk(1, 0) = ew_IIf(provas_cruzadas.REVERSA_B.FldTagCaption(1) <> "", provas_cruzadas.REVERSA_B.FldTagCaption(1), "NEG") arwrk(0, 1) = "POS" arwrk(1, 1) = ew_IIf(provas_cruzadas.REVERSA_B.FldTagCaption(2) <> "", provas_cruzadas.REVERSA_B.FldTagCaption(2), "POS") arwrk = ew_AddItemToArray(arwrk, 0, Array("", Language.Phrase("PleaseSelect"))) provas_cruzadas.REVERSA_B.EditValue = arwrk ' TA_T1 provas_cruzadas.TA_T1.EditCustomAttributes = "" Redim arwrk(1, 1) arwrk(0, 0) = "NEG" arwrk(1, 0) = ew_IIf(provas_cruzadas.TA_T1.FldTagCaption(1) <> "", provas_cruzadas.TA_T1.FldTagCaption(1), "NEG") arwrk(0, 1) = "POS" arwrk(1, 1) = ew_IIf(provas_cruzadas.TA_T1.FldTagCaption(2) <> "", provas_cruzadas.TA_T1.FldTagCaption(2), "POS") arwrk = ew_AddItemToArray(arwrk, 0, Array("", Language.Phrase("PleaseSelect"))) provas_cruzadas.TA_T1.EditValue = arwrk ' TA_T2 provas_cruzadas.TA_T2.EditCustomAttributes = "" Redim arwrk(1, 1) arwrk(0, 0) = "NEG" arwrk(1, 0) = ew_IIf(provas_cruzadas.TA_T2.FldTagCaption(1) <> "", provas_cruzadas.TA_T2.FldTagCaption(1), "NEG") arwrk(0, 1) = "POS" arwrk(1, 1) = ew_IIf(provas_cruzadas.TA_T2.FldTagCaption(2) <> "", provas_cruzadas.TA_T2.FldTagCaption(2), "POS") arwrk = ew_AddItemToArray(arwrk, 0, Array("", Language.Phrase("PleaseSelect"))) provas_cruzadas.TA_T2.EditValue = arwrk ' AGH_T1 provas_cruzadas.AGH_T1.EditCustomAttributes = "" Redim arwrk(1, 1) arwrk(0, 0) = "NEG" arwrk(1, 0) = ew_IIf(provas_cruzadas.AGH_T1.FldTagCaption(1) <> "", provas_cruzadas.AGH_T1.FldTagCaption(1), "NEG") arwrk(0, 1) = "POS" arwrk(1, 1) = ew_IIf(provas_cruzadas.AGH_T1.FldTagCaption(2) <> "", provas_cruzadas.AGH_T1.FldTagCaption(2), "POS") arwrk = ew_AddItemToArray(arwrk, 0, Array("", Language.Phrase("PleaseSelect"))) provas_cruzadas.AGH_T1.EditValue = arwrk ' AGH_T2 provas_cruzadas.AGH_T2.EditCustomAttributes = "" Redim arwrk(1, 1) arwrk(0, 0) = "NEG" arwrk(1, 0) = ew_IIf(provas_cruzadas.AGH_T2.FldTagCaption(1) <> "", provas_cruzadas.AGH_T2.FldTagCaption(1), "NEG") arwrk(0, 1) = "POS" arwrk(1, 1) = ew_IIf(provas_cruzadas.AGH_T2.FldTagCaption(2) <> "", provas_cruzadas.AGH_T2.FldTagCaption(2), "POS") arwrk = ew_AddItemToArray(arwrk, 0, Array("", Language.Phrase("PleaseSelect"))) provas_cruzadas.AGH_T2.EditValue = arwrk ' TAD provas_cruzadas.TAD.EditCustomAttributes = "" Redim arwrk(1, 1) arwrk(0, 0) = "NEG" arwrk(1, 0) = ew_IIf(provas_cruzadas.TAD.FldTagCaption(1) <> "", provas_cruzadas.TAD.FldTagCaption(1), "NEG") arwrk(0, 1) = "POS" arwrk(1, 1) = ew_IIf(provas_cruzadas.TAD.FldTagCaption(2) <> "", provas_cruzadas.TAD.FldTagCaption(2), "POS") arwrk = ew_AddItemToArray(arwrk, 0, Array("", Language.Phrase("PleaseSelect"))) provas_cruzadas.TAD.EditValue = arwrk ' AUTO_A/C provas_cruzadas.AUTO_A2FC.EditCustomAttributes = "" Redim arwrk(1, 1) arwrk(0, 0) = "NEG" arwrk(1, 0) = ew_IIf(provas_cruzadas.AUTO_A2FC.FldTagCaption(1) <> "", provas_cruzadas.AUTO_A2FC.FldTagCaption(1), "NEG") arwrk(0, 1) = "POS" arwrk(1, 1) = ew_IIf(provas_cruzadas.AUTO_A2FC.FldTagCaption(2) <> "", provas_cruzadas.AUTO_A2FC.FldTagCaption(2), "POS") arwrk = ew_AddItemToArray(arwrk, 0, Array("", Language.Phrase("PleaseSelect"))) provas_cruzadas.AUTO_A2FC.EditValue = arwrk ' NUMERO_BOLSA provas_cruzadas.NUMERO_BOLSA.EditCustomAttributes = "" sFilterWrk = "" sSqlWrk = "SELECT `NUMERO_BOLSA`, `NUMERO_BOLSA` AS `DispFld`, '' AS `Disp2Fld`, '' AS `Disp3Fld`, '' AS `Disp4Fld`, '' AS `SelectFilterFld` FROM `bolsas_recebidas`" sWhereWrk = "" Call ew_AddFilter(sWhereWrk, sFilterWrk) If sWhereWrk <> "" Then sSqlWrk = sSqlWrk & " WHERE " & sWhereWrk sSqlWrk = sSqlWrk & " ORDER BY `NUMERO_BOLSA` Desc" Set RsWrk = Server.CreateObject("ADODB.Recordset") RsWrk.Open sSqlWrk, Conn If Not RsWrk.Eof Then arwrk = RsWrk.GetRows Else arwrk = "" End If RsWrk.Close Set RsWrk = Nothing arwrk = ew_AddItemToArray(arwrk, 0, Array("", Language.Phrase("PleaseSelect"))) provas_cruzadas.NUMERO_BOLSA.EditValue = arwrk ' ABO_RH_BOLSA provas_cruzadas.ABO_RH_BOLSA.EditCustomAttributes = "" Redim arwrk(1, 7) arwrk(0, 0) = "A+" arwrk(1, 0) = ew_IIf(provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(1) <> "", provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(1), "A+") arwrk(0, 1) = "A-" arwrk(1, 1) = ew_IIf(provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(2) <> "", provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(2), "A-") arwrk(0, 2) = "B+" arwrk(1, 2) = ew_IIf(provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(3) <> "", provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(3), "B+") arwrk(0, 3) = "B-" arwrk(1, 3) = ew_IIf(provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(4) <> "", provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(4), "B-") arwrk(0, 4) = "AB+" arwrk(1, 4) = ew_IIf(provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(5) <> "", provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(5), "AB+") arwrk(0, 5) = "AB-" arwrk(1, 5) = ew_IIf(provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(6) <> "", provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(6), "AB-") arwrk(0, 6) = "O+" arwrk(1, 6) = ew_IIf(provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(7) <> "", provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(7), "O+") arwrk(0, 7) = "O-" arwrk(1, 7) = ew_IIf(provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(8) <> "", provas_cruzadas.ABO_RH_BOLSA.FldTagCaption(8), "O-") arwrk = ew_AddItemToArray(arwrk, 0, Array("", Language.Phrase("PleaseSelect"))) provas_cruzadas.ABO_RH_BOLSA.EditValue = arwrk ' PC_TA provas_cruzadas.PC_TA.EditCustomAttributes = "" Redim arwrk(1, 1) arwrk(0, 0) = "NEG" arwrk(1, 0) = ew_IIf(provas_cruzadas.PC_TA.FldTagCaption(1) <> "", provas_cruzadas.PC_TA.FldTagCaption(1), "NEG") arwrk(0, 1) = "POS" arwrk(1, 1) = ew_IIf(provas_cruzadas.PC_TA.FldTagCaption(2) <> "", provas_cruzadas.PC_TA.FldTagCaption(2), "POS") arwrk = ew_AddItemToArray(arwrk, 0, Array("", Language.Phrase("PleaseSelect"))) provas_cruzadas.PC_TA.EditValue = arwrk ' PC_AGH provas_cruzadas.PC_AGH.EditCustomAttributes = "" Redim arwrk(1, 1) arwrk(0, 0) = "NEG" arwrk(1, 0) = ew_IIf(provas_cruzadas.PC_AGH.FldTagCaption(1) <> "", provas_cruzadas.PC_AGH.FldTagCaption(1), "NEG") arwrk(0, 1) = "POS" arwrk(1, 1) = ew_IIf(provas_cruzadas.PC_AGH.FldTagCaption(2) <> "", provas_cruzadas.PC_AGH.FldTagCaption(2), "POS") arwrk = ew_AddItemToArray(arwrk, 0, Array("", Language.Phrase("PleaseSelect"))) provas_cruzadas.PC_AGH.EditValue = arwrk ' CONTROCEL_PC_T1 provas_cruzadas.CONTROCEL_PC_T1.EditCustomAttributes = "" provas_cruzadas.CONTROCEL_PC_T1.EditValue = ew_HtmlEncode(provas_cruzadas.CONTROCEL_PC_T1.CurrentValue) ' CONTROCEL_PC_T2 provas_cruzadas.CONTROCEL_PC_T2.EditCustomAttributes = "" provas_cruzadas.CONTROCEL_PC_T2.EditValue = ew_HtmlEncode(provas_cruzadas.CONTROCEL_PC_T2.CurrentValue) ' CONTROCEL_PC provas_cruzadas.CONTROCEL_PC.EditCustomAttributes = "" provas_cruzadas.CONTROCEL_PC.EditValue = ew_HtmlEncode(provas_cruzadas.CONTROCEL_PC.CurrentValue) ' CONTROCEL_TAD provas_cruzadas.CONTROCEL_TAD.EditCustomAttributes = "" provas_cruzadas.CONTROCEL_TAD.EditValue = ew_HtmlEncode(provas_cruzadas.CONTROCEL_TAD.CurrentValue) ' TESTE_HEMOLISE provas_cruzadas.TESTE_HEMOLISE.EditCustomAttributes = "" provas_cruzadas.TESTE_HEMOLISE.EditValue = ew_HtmlEncode(provas_cruzadas.TESTE_HEMOLISE.CurrentValue) ' HORA provas_cruzadas.HORA.EditCustomAttributes = "" provas_cruzadas.HORA.EditValue = ew_HtmlEncode(provas_cruzadas.HORA.CurrentValue) ' TECNICO provas_cruzadas.TECNICO.EditCustomAttributes = "" sFilterWrk = "" sSqlWrk = "SELECT `NOME`, `NOME` AS `DispFld`, '' AS `Disp2Fld`, '' AS `Disp3Fld`, '' AS `Disp4Fld`, '' AS `SelectFilterFld` FROM `funcionarios`" sWhereWrk = "" Call ew_AddFilter(sWhereWrk, sFilterWrk) If sWhereWrk <> "" Then sSqlWrk = sSqlWrk & " WHERE " & sWhereWrk sSqlWrk = sSqlWrk & " ORDER BY `NOME` Asc" Set RsWrk = Server.CreateObject("ADODB.Recordset") RsWrk.Open sSqlWrk, Conn If Not RsWrk.Eof Then arwrk = RsWrk.GetRows Else arwrk = "" End If RsWrk.Close Set RsWrk = Nothing arwrk = ew_AddItemToArray(arwrk, 0, Array("", Language.Phrase("PleaseSelect"))) provas_cruzadas.TECNICO.EditValue = arwrk ' OBS provas_cruzadas.OBS.EditCustomAttributes = "" provas_cruzadas.OBS.EditValue = ew_HtmlEncode(provas_cruzadas.OBS.CurrentValue) ' Edit refer script ' ID provas_cruzadas.ID.HrefValue = "" ' DATA provas_cruzadas.DATA.HrefValue = "" ' REGISTRO_GERAL provas_cruzadas.REGISTRO_GERAL.HrefValue = "" ' ABO provas_cruzadas.ABO.HrefValue = "" ' RH_D provas_cruzadas.RH_D.HrefValue = "" ' RH_C provas_cruzadas.RH_C.HrefValue = "" ' REVERSA_A provas_cruzadas.REVERSA_A.HrefValue = "" ' REVERSA_B provas_cruzadas.REVERSA_B.HrefValue = "" ' TA_T1 provas_cruzadas.TA_T1.HrefValue = "" ' TA_T2 provas_cruzadas.TA_T2.HrefValue = "" ' AGH_T1 provas_cruzadas.AGH_T1.HrefValue = "" ' AGH_T2 provas_cruzadas.AGH_T2.HrefValue = "" ' TAD provas_cruzadas.TAD.HrefValue = "" ' AUTO_A/C provas_cruzadas.AUTO_A2FC.HrefValue = "" ' NUMERO_BOLSA provas_cruzadas.NUMERO_BOLSA.HrefValue = "" ' ABO_RH_BOLSA provas_cruzadas.ABO_RH_BOLSA.HrefValue = "" ' PC_TA provas_cruzadas.PC_TA.HrefValue = "" ' PC_AGH provas_cruzadas.PC_AGH.HrefValue = "" ' CONTROCEL_PC_T1 provas_cruzadas.CONTROCEL_PC_T1.HrefValue = "" ' CONTROCEL_PC_T2 provas_cruzadas.CONTROCEL_PC_T2.HrefValue = "" ' CONTROCEL_PC provas_cruzadas.CONTROCEL_PC.HrefValue = "" ' CONTROCEL_TAD provas_cruzadas.CONTROCEL_TAD.HrefValue = "" ' TESTE_HEMOLISE provas_cruzadas.TESTE_HEMOLISE.HrefValue = "" ' HORA provas_cruzadas.HORA.HrefValue = "" ' TECNICO provas_cruzadas.TECNICO.HrefValue = "" ' OBS provas_cruzadas.OBS.HrefValue = "" End If If provas_cruzadas.RowType = EW_ROWTYPE_ADD Or provas_cruzadas.RowType = EW_ROWTYPE_EDIT Or provas_cruzadas.RowType = EW_ROWTYPE_SEARCH Then ' Add / Edit / Search row Call provas_cruzadas.SetupFieldTitles() End If ' Call Row Rendered event If provas_cruzadas.RowType <> EW_ROWTYPE_AGGREGATEINIT Then Call provas_cruzadas.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(provas_cruzadas.DATA.FormValue) And provas_cruzadas.DATA.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & provas_cruzadas.DATA.FldCaption) End If If Not ew_CheckEuroDate(provas_cruzadas.DATA.FormValue) Then Call ew_AddMessage(gsFormError, provas_cruzadas.DATA.FldErrMsg) End If If Not IsNull(provas_cruzadas.REGISTRO_GERAL.FormValue) And provas_cruzadas.REGISTRO_GERAL.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & provas_cruzadas.REGISTRO_GERAL.FldCaption) End If If Not IsNull(provas_cruzadas.ABO.FormValue) And provas_cruzadas.ABO.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & provas_cruzadas.ABO.FldCaption) End If If Not IsNull(provas_cruzadas.RH_D.FormValue) And provas_cruzadas.RH_D.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & provas_cruzadas.RH_D.FldCaption) End If If Not IsNull(provas_cruzadas.RH_C.FormValue) And provas_cruzadas.RH_C.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & provas_cruzadas.RH_C.FldCaption) End If If Not IsNull(provas_cruzadas.REVERSA_A.FormValue) And provas_cruzadas.REVERSA_A.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & provas_cruzadas.REVERSA_A.FldCaption) End If If Not IsNull(provas_cruzadas.REVERSA_B.FormValue) And provas_cruzadas.REVERSA_B.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & provas_cruzadas.REVERSA_B.FldCaption) End If If Not IsNull(provas_cruzadas.TA_T1.FormValue) And provas_cruzadas.TA_T1.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & provas_cruzadas.TA_T1.FldCaption) End If If Not IsNull(provas_cruzadas.TA_T2.FormValue) And provas_cruzadas.TA_T2.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & provas_cruzadas.TA_T2.FldCaption) End If If Not IsNull(provas_cruzadas.AGH_T1.FormValue) And provas_cruzadas.AGH_T1.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & provas_cruzadas.AGH_T1.FldCaption) End If If Not IsNull(provas_cruzadas.AGH_T2.FormValue) And provas_cruzadas.AGH_T2.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & provas_cruzadas.AGH_T2.FldCaption) End If If Not IsNull(provas_cruzadas.TAD.FormValue) And provas_cruzadas.TAD.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & provas_cruzadas.TAD.FldCaption) End If If Not IsNull(provas_cruzadas.AUTO_A2FC.FormValue) And provas_cruzadas.AUTO_A2FC.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & provas_cruzadas.AUTO_A2FC.FldCaption) End If If Not IsNull(provas_cruzadas.NUMERO_BOLSA.FormValue) And provas_cruzadas.NUMERO_BOLSA.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & provas_cruzadas.NUMERO_BOLSA.FldCaption) End If If Not IsNull(provas_cruzadas.ABO_RH_BOLSA.FormValue) And provas_cruzadas.ABO_RH_BOLSA.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & provas_cruzadas.ABO_RH_BOLSA.FldCaption) End If If Not IsNull(provas_cruzadas.PC_TA.FormValue) And provas_cruzadas.PC_TA.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & provas_cruzadas.PC_TA.FldCaption) End If If Not IsNull(provas_cruzadas.CONTROCEL_PC_T1.FormValue) And provas_cruzadas.CONTROCEL_PC_T1.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & provas_cruzadas.CONTROCEL_PC_T1.FldCaption) End If If Not IsNull(provas_cruzadas.CONTROCEL_PC_T2.FormValue) And provas_cruzadas.CONTROCEL_PC_T2.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & provas_cruzadas.CONTROCEL_PC_T2.FldCaption) End If If Not IsNull(provas_cruzadas.CONTROCEL_PC.FormValue) And provas_cruzadas.CONTROCEL_PC.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & provas_cruzadas.CONTROCEL_PC.FldCaption) End If If Not IsNull(provas_cruzadas.CONTROCEL_TAD.FormValue) And provas_cruzadas.CONTROCEL_TAD.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & provas_cruzadas.CONTROCEL_TAD.FldCaption) End If If Not IsNull(provas_cruzadas.TESTE_HEMOLISE.FormValue) And provas_cruzadas.TESTE_HEMOLISE.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & provas_cruzadas.TESTE_HEMOLISE.FldCaption) End If If Not IsNull(provas_cruzadas.HORA.FormValue) And provas_cruzadas.HORA.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & provas_cruzadas.HORA.FldCaption) End If If Not ew_CheckTime(provas_cruzadas.HORA.FormValue) Then Call ew_AddMessage(gsFormError, provas_cruzadas.HORA.FldErrMsg) End If If Not IsNull(provas_cruzadas.TECNICO.FormValue) And provas_cruzadas.TECNICO.FormValue&"" = "" Then Call ew_AddMessage(gsFormError, Language.Phrase("EnterRequiredField") & " - " & provas_cruzadas.TECNICO.FldCaption) 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 = provas_cruzadas.KeyFilter provas_cruzadas.CurrentFilter = sFilter sSql = provas_cruzadas.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 ID ' Field DATA Call provas_cruzadas.DATA.SetDbValue(Rs, ew_UnFormatDateTime(provas_cruzadas.DATA.CurrentValue, 7), Now, provas_cruzadas.DATA.ReadOnly) ' Field REGISTRO_GERAL Call provas_cruzadas.REGISTRO_GERAL.SetDbValue(Rs, provas_cruzadas.REGISTRO_GERAL.CurrentValue, 0, provas_cruzadas.REGISTRO_GERAL.ReadOnly) ' Field ABO Call provas_cruzadas.ABO.SetDbValue(Rs, provas_cruzadas.ABO.CurrentValue, "", provas_cruzadas.ABO.ReadOnly) ' Field RH_D Call provas_cruzadas.RH_D.SetDbValue(Rs, provas_cruzadas.RH_D.CurrentValue, "", provas_cruzadas.RH_D.ReadOnly) ' Field RH_C Call provas_cruzadas.RH_C.SetDbValue(Rs, provas_cruzadas.RH_C.CurrentValue, Null, provas_cruzadas.RH_C.ReadOnly) ' Field REVERSA_A Call provas_cruzadas.REVERSA_A.SetDbValue(Rs, provas_cruzadas.REVERSA_A.CurrentValue, "", provas_cruzadas.REVERSA_A.ReadOnly) ' Field REVERSA_B Call provas_cruzadas.REVERSA_B.SetDbValue(Rs, provas_cruzadas.REVERSA_B.CurrentValue, "", provas_cruzadas.REVERSA_B.ReadOnly) ' Field TA_T1 Call provas_cruzadas.TA_T1.SetDbValue(Rs, provas_cruzadas.TA_T1.CurrentValue, "", provas_cruzadas.TA_T1.ReadOnly) ' Field TA_T2 Call provas_cruzadas.TA_T2.SetDbValue(Rs, provas_cruzadas.TA_T2.CurrentValue, "", provas_cruzadas.TA_T2.ReadOnly) ' Field AGH_T1 Call provas_cruzadas.AGH_T1.SetDbValue(Rs, provas_cruzadas.AGH_T1.CurrentValue, "", provas_cruzadas.AGH_T1.ReadOnly) ' Field AGH_T2 Call provas_cruzadas.AGH_T2.SetDbValue(Rs, provas_cruzadas.AGH_T2.CurrentValue, "", provas_cruzadas.AGH_T2.ReadOnly) ' Field TAD Call provas_cruzadas.TAD.SetDbValue(Rs, provas_cruzadas.TAD.CurrentValue, "", provas_cruzadas.TAD.ReadOnly) ' Field AUTO_A/C Call provas_cruzadas.AUTO_A2FC.SetDbValue(Rs, provas_cruzadas.AUTO_A2FC.CurrentValue, "", provas_cruzadas.AUTO_A2FC.ReadOnly) ' Field NUMERO_BOLSA Call provas_cruzadas.NUMERO_BOLSA.SetDbValue(Rs, provas_cruzadas.NUMERO_BOLSA.CurrentValue, 0, provas_cruzadas.NUMERO_BOLSA.ReadOnly) ' Field ABO_RH_BOLSA Call provas_cruzadas.ABO_RH_BOLSA.SetDbValue(Rs, provas_cruzadas.ABO_RH_BOLSA.CurrentValue, "", provas_cruzadas.ABO_RH_BOLSA.ReadOnly) ' Field PC_TA Call provas_cruzadas.PC_TA.SetDbValue(Rs, provas_cruzadas.PC_TA.CurrentValue, "", provas_cruzadas.PC_TA.ReadOnly) ' Field PC_AGH Call provas_cruzadas.PC_AGH.SetDbValue(Rs, provas_cruzadas.PC_AGH.CurrentValue, Null, provas_cruzadas.PC_AGH.ReadOnly) ' Field CONTROCEL_PC_T1 Call provas_cruzadas.CONTROCEL_PC_T1.SetDbValue(Rs, provas_cruzadas.CONTROCEL_PC_T1.CurrentValue, "", provas_cruzadas.CONTROCEL_PC_T1.ReadOnly) ' Field CONTROCEL_PC_T2 Call provas_cruzadas.CONTROCEL_PC_T2.SetDbValue(Rs, provas_cruzadas.CONTROCEL_PC_T2.CurrentValue, "", provas_cruzadas.CONTROCEL_PC_T2.ReadOnly) ' Field CONTROCEL_PC Call provas_cruzadas.CONTROCEL_PC.SetDbValue(Rs, provas_cruzadas.CONTROCEL_PC.CurrentValue, "", provas_cruzadas.CONTROCEL_PC.ReadOnly) ' Field CONTROCEL_TAD Call provas_cruzadas.CONTROCEL_TAD.SetDbValue(Rs, provas_cruzadas.CONTROCEL_TAD.CurrentValue, "", provas_cruzadas.CONTROCEL_TAD.ReadOnly) ' Field TESTE_HEMOLISE Call provas_cruzadas.TESTE_HEMOLISE.SetDbValue(Rs, provas_cruzadas.TESTE_HEMOLISE.CurrentValue, "", provas_cruzadas.TESTE_HEMOLISE.ReadOnly) ' Field HORA Call provas_cruzadas.HORA.SetDbValue(Rs, provas_cruzadas.HORA.CurrentValue, "", provas_cruzadas.HORA.ReadOnly) ' Field TECNICO Call provas_cruzadas.TECNICO.SetDbValue(Rs, provas_cruzadas.TECNICO.CurrentValue, "", provas_cruzadas.TECNICO.ReadOnly) ' Field OBS Call provas_cruzadas.OBS.SetDbValue(Rs, provas_cruzadas.OBS.CurrentValue, Null, provas_cruzadas.OBS.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 = provas_cruzadas.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 provas_cruzadas.CancelMessage <> "" Then FailureMessage = provas_cruzadas.CancelMessage provas_cruzadas.CancelMessage = "" Else FailureMessage = Language.Phrase("UpdateCancelled") End If EditRow = False End If End If ' Call Row Updated event If EditRow Then Call provas_cruzadas.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 ' ----------------------------------------------------------------- ' Set up Master Detail based on querystring parameter ' Sub SetUpMasterParms() Dim bValidMaster, sMasterTblVar bValidMaster = False ' Get the keys for master table If Request.QueryString(EW_TABLE_SHOW_MASTER).Count > 0 Then sMasterTblVar = Request.QueryString(EW_TABLE_SHOW_MASTER) If sMasterTblVar = "" Then bValidMaster = True DbMasterFilter = "" DbDetailFilter = "" End If If sMasterTblVar = "receptor" Then bValidMaster = True If Request.QueryString("REGISTRO_GERAL").Count > 0 Then receptor.REGISTRO_GERAL.QueryStringValue = Request.QueryString("REGISTRO_GERAL") provas_cruzadas.REGISTRO_GERAL.QueryStringValue = receptor.REGISTRO_GERAL.QueryStringValue provas_cruzadas.REGISTRO_GERAL.SessionValue = provas_cruzadas.REGISTRO_GERAL.QueryStringValue If Not IsNumeric(receptor.REGISTRO_GERAL.QueryStringValue) Then bValidMaster = False Else bValidMaster = False End If End If End If If bValidMaster Then ' Save current master table provas_cruzadas.CurrentMasterTable = sMasterTblVar ' Reset start record counter (new master key) StartRec = 1 provas_cruzadas.StartRecordNumber = StartRec ' Clear previous master session values If sMasterTblVar <> "receptor" Then If provas_cruzadas.REGISTRO_GERAL.QueryStringValue = "" Then provas_cruzadas.REGISTRO_GERAL.SessionValue = "" End If End If DbMasterFilter = provas_cruzadas.MasterFilter ' Get master filter DbDetailFilter = provas_cruzadas.DetailFilter ' Get detail filter End Sub ' Page Load event Sub Page_Load() 'Response.Write "Page Load" End Sub ' Page Unload event Sub Page_Unload() 'Response.Write "Page Unload" End Sub ' Page Redirecting event Sub Page_Redirecting(url) 'url = newurl End Sub ' Message Showing event ' typ = ""|"success"|"failure" Sub Message_Showing(msg, typ) ' Example: 'If typ = "success" Then msg = "your success message" End Sub ' Page Data Rendering event Sub Page_DataRendering(header) ' Example: 'header = "your header" End Sub ' Page Data Rendered event Sub Page_DataRendered(footer) ' Example: 'footer = "your footer" End Sub ' Form Custom Validate event Function Form_CustomValidate(CustomError) 'Return error message in CustomError Form_CustomValidate = True End Function End Class %>