Public Sub DBRF(ScanHere As B4XView, CallRoot As B4XView)
Public ThirdDialog As B4XDialog
ThirdDialog.Initialize(CallRoot)
ThirdDialog.BorderCornersRadius = 44
ThirdDialog.Title = "Debug Options"
Dim input3 As B4XInputTemplate
input3.Initialize
input3.lblTitle.Text = "Πληκτρολογίστε Barcode εδώ."
Wait For (ThirdDialog.ShowTemplate(input3, "RF", "Barcode", "")) complete (result As Int)
Log(input3.Text)
If result = xui.DialogResponse_Positive Then
MsgboxAsync(ScanHere.Text, "Κείμενο στο Πεδίο Scan:")
ScanHere.Text = ""
ScanHere.RequestFocus()
Else If result = xui.DialogResponse_Negative Then
ScanHere.Text = input3.Text
Log($"Scan Here text: ${input3.Text}"$)
End If
End Sub