Sub Process_Globals
'These global variables will be declared once when the application starts.
'Public variables can be accessed from all modules.
Private pg As Page
Dim xui As XUI
Dim audio3 As MediaPlayer
Dim evento_electrico As String
Dim evento_telefonico As String
Dim evento_internet As String
Dim evento_informacion As String
Dim archivo As String
Public capturado As Boolean
evento_electrico = Inicio.resultado
Private Botfoto As Button
Private Botenviar As Button
Private Editobs As TextView
Private Editsuministro As TextView
'Private Label1 As Label
Private label6 As Label
Private CheckBox_suministrook As Label
Private Label_main As Label
Private Label_reclamo As Label
Private Panel1 As Panel
Private Label4 As Label
Private ImageView1 As ImageView
Private ImageView_imagen As ImageView
Private Toast As clsToastMsg
Dim smsc As MessageComposer
Dim mailc As MailComposer
Private AnimatedCheckBoxmail As Switch
Private AnimatedCheckBoxsms As Switch
Dim suministro_validacion As Boolean
Private label_acepta As Label
Private cam As Camera
Private vv As VideoView
Private timer1 As Timer
Private TextView_mail As TextView
Private TextView_sms As TextView
End Sub
Public Sub Show
If pg.IsInitialized = False Then
pg.Initialize("pg")
pg.RootPanel.LoadLayout("Datos_envio")
pg.HideBackButton = False
End If
Main.NavControl.ShowPage(pg)
Main.NavControl.NavigationBarVisible = False
'Label_main.Text = Main.main_seleccion
Label_main.TextColor = Colors.Black
Label_reclamo.Text = Inicio.opcion
Label_reclamo.TextColor = Colors.Black
CheckBox_suministrook.Visible = False
ImageView_imagen.Color = Colors.Transparent
Botenviar.Enabled =True
If File.Exists(File.DirDocuments, "editsuministro.txt") = True Then
Editsuministro.Text =File.ReadString(File.DirDocuments, "editsuministro.txt")
End If
If Editsuministro.Text.Length = 6 Then
CheckBox_suministrook.Visible = True
CheckBox_suministrook.Visible = True
Editsuministro.TextColor = Colors.ARGB(255,88,171,54)
Else
CheckBox_suministrook.Visible = False
CheckBox_suministrook.Visible = False
Editsuministro.TextColor = Colors.ARGB(255,75,69,20)
End If
If (Inicio.resultado = "ALUMBRADO" Or Inicio.resultado = "DENUNCIA" Or Inicio.resultado = "SEGURIDAD") Then
Botfoto.Visible = False
Editobs.Visible=True
'label_acepta.Visible = True
AnimatedCheckBoxsms.Visible = True
AnimatedCheckBoxsms.Value = True
AnimatedCheckBoxsms.Enabled = True
AnimatedCheckBoxmail.Visible = True
AnimatedCheckBoxmail.Value = False
AnimatedCheckBoxmail.Enabled = True
TextView_mail.Visible = True
Botenviar.RequestFocus
Else
If (Inicio.resultado = "TE_OTROS" Or Inicio.resultado = "IN_OTROS") Then
Botfoto.Visible = False
Editobs.Visible = True
label_acepta.Visible = True
Botenviar.RequestFocus
' Label1.Visible= True
AnimatedCheckBoxsms.Visible = True
AnimatedCheckBoxsms.Value = True
AnimatedCheckBoxsms.Enabled = False
AnimatedCheckBoxmail.Visible = False
AnimatedCheckBoxmail.Value = False
AnimatedCheckBoxmail.Enabled = False
TextView_mail.Visible = False
Editobs.RequestFocus
Else
Botfoto.Visible = False
Editobs.Visible = False
' Label1.Visible= False
AnimatedCheckBoxsms.Visible = True
AnimatedCheckBoxsms.Value = True
AnimatedCheckBoxsms.Enabled = False
AnimatedCheckBoxmail.Visible = False
AnimatedCheckBoxmail.Value = False
AnimatedCheckBoxmail.Enabled = False
TextView_mail.Visible = False
End If
End If
'Panel1.SetLayout(0%x,0%y,100%X,10%y)
Panel1.Color = Colors.White
Editsuministro.TextColor = Colors.Black
Toast.Initialize(pg, 17, True)
Botfoto.Enabled = cam.IsSupported
vv.Initialize("vv")
vv.View.Visible = False
timer1.Initialize("timer1", 500)
End Sub
Sub Botfoto_Click
cam.Initialize("cam",pg)
'cam.SelectFromSavedPhotos(Sender, cam.TYPE_ALL)
cam.TakePicture
End Sub
Public Sub ImageToBytes(Image As Bitmap) As Byte()
Dim out As OutputStream
out.InitializeToBytesArray(0)
Image.WriteToStream(out, 100, "JPEG")
out.Close
Return out.ToBytesArray
End Sub
Sub cam_Complete (Success As Boolean, Image As Bitmap, VideoPath As String)
Dim p As Phone
If Success Then
If Image.IsInitialized Then
vv.View.Visible = False
ImageView_imagen.Bitmap = Image
p.AddImageToAlbum(Image)
ImageView_imagen.Visible = True
Dim b() As Byte = ImageToBytes(Image)
File.WriteBytes(File.DirDocuments, "foto_test.jpeg", b)
capturado = True
Else
vv.View.Visible = True
vv.LoadVideo(VideoPath, "")
Log(p.AddVideoToAlbum(VideoPath, ""))
End If
Else
capturado = False
End If
End Sub
Sub Timer1_Tick
Dim no As NativeObject = vv
no = no.GetField("player").GetField("naturalSize")
End Sub
Sub Botenviar_Click
If AnimatedCheckBoxsms.Value=True Then
Botenviar.Enabled= smsc.CanSendText
If smsc.CanSendText = False Then
Toast.ShowToastMessage("Su dispositivo no esta preparado para enviar SMS",3000)
Else
enviar
End If
Else
If AnimatedCheckBoxmail.Value = True Then
Botenviar.Enabled= mailc.CanSendMail
If mailc.CanSendMail = False Then
Toast.ShowToastMessage("Primero debe configurar una cuenta de mail en su dispositivo",3000)
Else
enviar
End If
End If
End If
End Sub
Sub enviar
If Editsuministro.Text.Length = 6 Then
CheckBox_suministrook.Visible = True
File.WriteString(File.DirDocuments,"editsuministro.txt",Editsuministro.Text)
Else
CheckBox_suministrook.Visible = False
Editsuministro.RequestFocus
End If
suministro_validacion = CheckBox_suministrook.Visible
If (suministro_validacion= True And AnimatedCheckBoxmail.value = True And ( Inicio.resultado = "ALUMBRADO" Or Inicio.resultado = "DENUNCIA" Or Inicio.resultado = "SEGURIDAD"))Then
enviar_mail
'audio3.Initialize2("audio3")
'audio3.Load(File.DirAssets,"AUD3.mp3")
'audio3.SetVolume(1,1)
'audio3.Play
Botenviar.Enabled = False
Editobs.Text = ""
Main.NavControl.ShowPage(pg)
Else if (suministro_validacion =True And AnimatedCheckBoxmail.Value = False And (Inicio.resultado = "ALUMBRADO" Or Inicio.resultado = "DENUNCIA" Or Inicio.resultado = "SEGURIDAD"))Then
enviar_sms
Dim audio3 As MediaPlayer
audio3.Initialize(File.DirAssets,"cepral confirmar consulta.mp3","aud")
audio3.Play
Botenviar.Enabled = False
Editobs.Text = ""
Main.NavControl.ShowPage(pg)
Else if (suministro_validacion = False And AnimatedCheckBoxmail.Value = True And (Inicio.resultado = "ALUMBRADO" Or Inicio.resultado = "DENUNCIA" Or Inicio.resultado = "SEGURIDAD"))Then
Toast.ShowToastMessage("El código de unidad debe tener 6 dígitos, incluye el dígito verificado, se encuentra en el margen superior derecho de su factura",3000)
Editsuministro.RequestFocus
Else if (suministro_validacion = False And AnimatedCheckBoxmail.Value = False And (Inicio.resultado = "ALUMBRADO" Or Inicio.resultado = "DENUNCIA" Or Inicio.resultado = "SEGURIDAD"))Then
Toast.ShowToastMessage("El código de unidad debe tener 6 dígitos, se encuentra en el margen superior izquierdo de su factura",3000)
Editsuministro.RequestFocus
Else if (suministro_validacion = True And AnimatedCheckBoxsms.Value = True And (Inicio.resultado = "ALUMBRADO" Or Inicio.resultado = "DENUNCIA" Or Inicio.resultado = "SEGURIDAD"))Then
enviar_sms
Dim audio3 As MediaPlayer
audio3.Initialize(File.DirAssets,"cepral confirmar consulta.mp3","aud")
audio3.Play
Botenviar.Enabled = False
Editobs.Text = ""
'Activity.Finish
Else if (suministro_validacion = False And AnimatedCheckBoxsms.Value= True And (Inicio.resultado = "ALUMBRADO" Or Inicio.resultado = "DENUNCIA" Or Inicio.resultado = "SEGURIDAD"))Then
enviar_sms
Dim audio3 As MediaPlayer
audio3.Initialize(File.DirAssets,"cepral confirmar consulta.mp3","aud")
audio3.Play
Botenviar.Enabled = False
Editobs.Text = ""
'Activity.Finish
Else if (suministro_validacion = False And AnimatedCheckBoxmail.Value = False And Inicio.resultado <> "ALUMBRADO" And Inicio.resultado <> "DENUNCIA" And Inicio.resultado <> "SEGURIDAD") Then
Toast.ShowToastMessage("El código de unidad debe tener 6 dígitos, se encuentra en el margen superior izquierdo de su factura",3000)
Editsuministro.RequestFocus
Else if (suministro_validacion = True And AnimatedCheckBoxmail.Value= False And Inicio.resultado <> "ALUMBRADO" And Inicio.resultado <> "DENUNCIA" And Inicio.resultado <> "SEGURIDAD") Then
enviar_sms
Dim audio3 As MediaPlayer
audio3.Initialize(File.DirAssets,"cepral confirmar consulta.mp3","aud")
audio3.Play
Botenviar.Enabled = False
Editobs.Text = ""
Main.NavControl.ShowPage(pg)
End If
End Sub
Sub AnimatedCheckBoxsms_check_changed
End Sub
Sub animatedcheckboxmail_check_changed
End Sub
Sub enviar_sms()
Dim PhoneNumber As String = "123456789"
Dim Message As String = Inicio.resultado & " " & Editsuministro.Text & " " & Editobs.Text
Dim recibido As Boolean = True
Dim enviado As Boolean = True
smsc.Initialize("smsc")
smsc.SetRecipients(Array As String(PhoneNumber))
smsc.Body = Message
smsc.Show(pg)
End Sub
Sub smsc_Complete (Result As Int)
If Result = smsc.RESULT_SENT Then
Toast.ShowToastMessage("Mensaje enviado", 2000)
Else
Toast.ShowToastMessage("El mensaje no pudo enviarse, intente nuevamente", 2000)
End If
pg.ResignFocus
Sleep(3000)
Inicio.back
End Sub
Sub enviar_mail ()
Dim mailc As MailComposer
Dim subject As String = Inicio.resultado & " " & Editsuministro.Text
Dim body As String = Editobs.Text
mailc.Initialize("mailc")
mailc.SetToRecipients(Array("[email protected]"))
mailc.SetSubject(subject)
mailc.SetBody(body, True)
If capturado = True Then
mailc.AddAttachment(File.DirDocuments,"foto_test.jpeg","octet-stream")
End If
mailc.Show(pg)
End Sub
Sub Mailc_Complete (Result As Int)
If Result = mailc.RESULT_SENT Then
Toast.ShowToastMessage("Correo enviado", 3000)
Else
Toast.ShowToastMessage("El correo no pudo ser enviado, intente nuevamente", 3000)
End If
pg.ResignFocus
Sleep(3000)
Inicio.back
End Sub
Sub editsuministro_FocusChanged (HasFocus As Boolean)
If Editsuministro.Text.Length = 6 Then
CheckBox_suministrook.Visible = True
File.WriteString(File.DirDocuments,"editsuministro.txt",Editsuministro.Text)
If File.Exists(File.DirDocuments,"editsuministro.txt") Then
Else
Toast.ShowToastMessage("Excelente! el código de unidad quedará grabado en su dispositivo y no tendrá que volver a cargarlo",3000)
End If
If Inicio.resultado ="SEGURIDAD" Or Inicio.resultado = "DENUNCIA" Or Inicio.resultado="ALUMBRADO" Then
CheckBox_suministrook.Visible = False
Else
CheckBox_suministrook.Visible = False
Editsuministro.RequestFocus
End If
End If
End Sub
Sub editobs_FocusChanged (HasFocus As Boolean)
suministro_validacion = CheckBox_suministrook.Visible
If suministro_validacion = False Then
If Inicio.resultado ="SEGURIDAD" Or Inicio.resultado = "DENUNCIA" Or Inicio.resultado="ALUMBRADO" Then
Else
Editsuministro.RequestFocus
End If
End If
End Sub
Sub editobs_TextChanged(Old As String, New As String)
If New.Length >= 159 Then
Toast.ShowToastMessage("Ha alcanzado el límite de caracteres que puede enviar", 3000)
Editobs.Text = Old
End If
End Sub
Sub editsuministro_TextChanged(Old As String, New As String)
If New.Length = 6 Then
Log(Editsuministro.Text.Length)
CheckBox_suministrook.Visible = True
Editsuministro.TextColor = Colors.ARGB(255,88,171,54)
File.WriteString(File.DirDocuments,"editsuministro.txt",Editsuministro.Text)
Toast.ShowToastMessage("el código de unidad quedará grabado en su dispositivo, si desea modificarlo deberá hacerlo aqui",3000)
If (Inicio.resultado = "ALUMBRADO" Or Inicio.resultado = "DENUNCIA" Or Inicio.resultado = "SEGURIDAD") Then
Editobs.RequestFocus
label_acepta.Visible = True
Else
Editsuministro.ResignFocus
Botenviar.RequestFocus
End If
Else
If New.Length > 6 Then
CheckBox_suministrook.Visible = False
Editsuministro.TextColor = Colors.ARGB(255,75,69,20)
Toast.ShowToastMessage("El código de unidad tiene 6 dígitos, vuelve a intentarlo",3000)
Editsuministro.Text = ""
Editsuministro.Text = ""
Else
CheckBox_suministrook.Visible = False
Editsuministro.TextColor = Colors.ARGB(255,75,69,20)
End If
End If
End Sub
Sub Editobs_EndEdit
Editobs.ResignFocus
End Sub
Sub Editobs_Click
Editobs.RequestFocus
label_acepta.Visible = True
End Sub
Sub Pg_Click
pg.ResignFocus
End Sub
Sub AnimatedCheckBoxmail_ValueChanged (Value As Boolean)
If AnimatedCheckBoxmail.Value=True Then
If mailc.CanSendMail = False Then
Botenviar.Enabled = mailc.CanSendMail
Toast.ShowToastMessage("Para enviar un mail debe configurar una cuenta en su dispositivo primero", 3000)
End If
If (Inicio.resultado = "ALUMBRADO" Or Inicio.resultado = "DENUNCIA" Or Inicio.resultado = "SEGURIDAD") Then
Botfoto.Visible = True
Editobs.Visible = True
AnimatedCheckBoxsms.Visible = True
AnimatedCheckBoxsms.Value = False
AnimatedCheckBoxsms.Enabled = True
AnimatedCheckBoxmail.Visible = True
AnimatedCheckBoxmail.Value = True
AnimatedCheckBoxmail.Enabled = True
Else
Botfoto.Visible = False
Editobs.Visible = False
AnimatedCheckBoxsms.Visible = True
AnimatedCheckBoxsms.Value = False
AnimatedCheckBoxsms.Enabled = True
AnimatedCheckBoxmail.Visible = False
AnimatedCheckBoxmail.Value = False
AnimatedCheckBoxmail.Enabled = False
End If
Else
If (Inicio.resultado = "ALUMBRADO" Or Inicio.resultado = "DENUNCIA" Or Inicio.resultado = "SEGURIDAD") Then
Botfoto.Visible = False
Editobs.Visible = True
AnimatedCheckBoxsms.Visible = True
AnimatedCheckBoxsms.Value = True
AnimatedCheckBoxsms.Enabled = True
AnimatedCheckBoxmail.Visible = True
AnimatedCheckBoxmail.Value = False
AnimatedCheckBoxmail.Enabled = True
Else
Botfoto.Visible = False
Editobs.Visible = False
AnimatedCheckBoxsms.Visible = True
AnimatedCheckBoxsms.Value = True
AnimatedCheckBoxsms.Enabled = True
AnimatedCheckBoxmail.Visible = False
AnimatedCheckBoxmail.Value = False
AnimatedCheckBoxmail.Enabled = False
End If
End If
End Sub
Sub AnimatedCheckBoxsms_ValueChanged (Value As Boolean)
If AnimatedCheckBoxsms.Value=True Then
Botenviar.Enabled = smsc.CanSendText
If (Inicio.resultado = "ALUMBRADO" Or Inicio.resultado = "DENUNCIA" Or Inicio.resultado = "SEGURIDAD") Then
Botfoto.Visible = False
Editobs.Visible = True
ImageView_imagen.Visible = False
AnimatedCheckBoxsms.Visible = True
AnimatedCheckBoxsms.Value = True
AnimatedCheckBoxsms.Enabled = True
AnimatedCheckBoxmail.Visible = True
AnimatedCheckBoxmail.Value = False
AnimatedCheckBoxmail.Enabled = True
Else
Botfoto.Visible = False
Editobs.Visible = False
ImageView_imagen.Visible = False
AnimatedCheckBoxsms.Visible = True
AnimatedCheckBoxsms.Value= True
AnimatedCheckBoxsms.Enabled = True
AnimatedCheckBoxmail.Visible = False
AnimatedCheckBoxmail.Value = False
AnimatedCheckBoxmail.Enabled = False
End If
Else
If (Inicio.resultado = "ALUMBRADO" Or Inicio.resultado = "DENUNCIA" Or Inicio.resultado = "SEGURIDAD") Then
Botfoto.Visible = True
Editobs.Visible = True
ImageView_imagen.Visible = True
AnimatedCheckBoxsms.Visible = True
AnimatedCheckBoxsms.Value = False
AnimatedCheckBoxsms.Enabled = True
AnimatedCheckBoxmail.Visible = True
AnimatedCheckBoxmail.Value = True
AnimatedCheckBoxmail.Enabled = True
Else
Botfoto.Visible = False
Editobs.Visible = False
AnimatedCheckBoxsms.Visible = True
AnimatedCheckBoxsms.Value = False
AnimatedCheckBoxsms.Enabled = True
AnimatedCheckBoxmail.Visible = False
AnimatedCheckBoxmail.Value = False
AnimatedCheckBoxmail.Enabled = False
End If
End If
End Sub
Sub label_acepta_Click
Editobs.ResignFocus
label_acepta.Visible = False
End Sub