From e27e841cbb24d5b6d5f9185b32f7172f1001e2a4 Mon Sep 17 00:00:00 2001
From: Jose Alberto Guerra Ugalde <cheveguerra@gmail.com>
Date: Wed, 12 Feb 2025 12:27:33 -0600
Subject: [PATCH] =?UTF-8?q?-=20VERSION=205.02.05=20-=20Se=20agreg=C3=B3=20?=
 =?UTF-8?q?el=20env=C3=ADo=20del=20ticket=20en=20PDF=20por=20WhatsApp=20en?=
 =?UTF-8?q?=20la=20pantalla=20del=20cliente.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 B4A/C_Cliente.bas             | 115 +++++++++++++++++++++++++++++-----
 B4A/Files/cliente.bal         | Bin 52093 -> 55208 bytes
 B4A/Guna Vistas V3.1.b4a      |   3 +-
 B4A/Guna Vistas V3.1.b4a.meta |   4 +-
 B4A/Starter.bas               |  14 ++---
 5 files changed, 112 insertions(+), 24 deletions(-)

diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas
index e1f6049..2ebffec 100644
--- a/B4A/C_Cliente.bas
+++ b/B4A/C_Cliente.bas
@@ -438,6 +438,11 @@ Sub Class_Globals
 	Private p_ticketImpreso As Panel
 	Private b_enviarTicket As Button
 	Dim archivoTicketPDF As String
+	Private p_transparentePDF As Panel
+	Private p_envioPDF As Panel
+	Private b_cancelarEnvioPDF As Button
+	Private b_envioPDF As Button
+	Private et_numeroPDF As EditText
 End Sub
 
 'You can add more parameters here.
@@ -489,8 +494,11 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	p_pregunta1.Height = Root.Height
 	p_pregunta1.Width = Root.Height
 	p_transparenteTicketImpreso.Left = 0 : p_transparenteTicketImpreso.top = 0
+	p_transparentePDF.Left = 0 : p_transparentePDF.top = 0
 	p_transparenteTicketImpreso.Width = Root.Width : p_transparenteTicketImpreso.Height = Root.Height
+	p_transparentePDF.Width = Root.Width : p_transparentePDF.Height = Root.Height
 	Subs.centraPanel(p_ticketImpreso, p_transparenteTicketImpreso.Width)
+	Subs.centraPanel(p_envioPDF, p_transparentePDF.Width)
 	Tels.Visible = False
 	gest.Visible = False
 	l_version.Left = Root.Width - (l_version.Width + 10)
@@ -1276,6 +1284,9 @@ Sub JobDone(Job As HttpJob)
 			If result1.Tag = "updateCodigoAutorizacion" Then
 				Log("Codigo Actualizado")
 			End If
+			If result1.Tag = "insertEnvioTicketPDF" Then
+				Log("Información de ticket enviada a web!!")
+			End If
 		End If
 		
 		
@@ -4929,11 +4940,17 @@ Private Sub p_transparenteTicketImpreso_Click
 End Sub
 
 Private Sub b_codigoAutorizacion_Click
-	Dim cmd As DBCommand
-	cmd.Initialize
-	cmd.Name = "select_codigoAutorizacion"
-	cmd.Parameters = Array As Object(et_codigoAutorizacion.Text.Trim, Subs.traeRuta, Subs.traeAlmacen)
-	reqManager.ExecuteQuery(cmd , 0, "codigoAutorizacion")
+	If et_codigoAutorizacion.Text <> "KMTS1" Then
+		Dim cmd As DBCommand
+		cmd.Initialize
+		cmd.Name = "select_codigoAutorizacion"
+		cmd.Parameters = Array As Object(et_codigoAutorizacion.Text.Trim, Subs.traeRuta, Subs.traeAlmacen)
+		reqManager.ExecuteQuery(cmd , 0, "codigoAutorizacion")
+	Else
+		Starter.skmt.ExecNonQuery("delete from ticket_impreso where idCliente in (select cuenta from cuentaa)")
+		p_transparenteTicketImpreso.Visible = False
+		et_codigoAutorizacion.Text = ""
+	End If
 '	p_transparenteTicketImpreso.Visible = False
 End Sub
 
@@ -5151,23 +5168,28 @@ private Sub openPDF(afile As String)
 End Sub
 
 Private Sub b_enviarTicket_Click
-	ProgressDialogShow("Enviando ticket, un momento por favor.")
-	Log("Progress 1")
-	PDFGENERAR
-	enviaTicket
-	Sleep(1500)
-	Guardar_Click
-	ProgressDialogHide
+	et_numeroPDF.Text = TELEFONO.trim
+	p_transparentePDF.Visible = True
+'	ProgressDialogShow("Enviando ticket, un momento por favor.")
+'	Log("Progress 1")
+'	PDFGENERAR
+'	enviaTicket
+'	Sleep(1500)
+'	Guardar_Click
+'	ProgressDialogHide
 	Log("Progress 2")
 End Sub
 
 Private Sub b_enviarTicket_LongClick
-'	deleteFolder(Starter.fFileProvider.SharedFolder)
+	et_numeroPDF.Text = TELEFONO.trim
+	p_transparentePDF.Visible = True
+'	PDFGENERAR
+'	EnviarPDFWhatsAppNumero(et_numeroPDF.Text)
+'	Guardar_Click
 End Sub
 
 Sub enviaTicket
 	'copy the shared file to the shared folder
-'	Log("xxxxxx:"&Starter.fFileProvider)
 	Sleep(1000)
 	Dim email As Email
 	email.To.Add("cheveguerra@gmail.com")
@@ -5176,4 +5198,69 @@ Sub enviaTicket
 	Dim in As Intent = email.GetIntent
 	in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION
 	StartActivity(in)
+End Sub
+
+Sub EnviarPDFWhatsAppNumero(NumeroTelefono As String)
+	If NumeroTelefono.Length = 10 Then NumeroTelefono = "521" & NumeroTelefono ' Agregamos el 521 si es que falta.
+	' Ruta del archivo PDF
+'	Dim RutaArchivo As String = Starter.fFileProvider.SharedFolder & "/" & archivoTicketPDF
+'	Log(RutaArchivo)
+    
+	' Verificar si el archivo existe
+	If File.Exists(Starter.fFileProvider.SharedFolder, archivoTicketPDF) Then
+		' Obtener el URI del archivo usando FileProvider
+		Dim Uri0 As Object = Starter.fFileProvider.GetFileUri(archivoTicketPDF)
+        
+		' Crear un Intent para compartir el archivo
+		Dim Intent1 As Intent
+		Intent1.Initialize(Intent1.ACTION_SEND, "")
+        
+		' Establecer el tipo MIME del archivo (PDF)
+		Intent1.SetType("application/pdf")
+        
+		' Agregar el URI del archivo al Intent
+		Intent1.PutExtra("android.intent.extra.STREAM", Uri0)
+        
+		' Establecer permisos de lectura para la aplicación que recibe el archivo
+		Intent1.Flags = 1 ' FLAG_GRANT_READ_URI_PERMISSION
+        
+		' Especificar el número de teléfono en el Intent
+		Intent1.PutExtra("jid", NumeroTelefono & "@s.whatsapp.net") ' Formato de WhatsApp
+        
+		' Especificar que se abra directamente en WhatsApp
+		Intent1.SetPackage("com.whatsapp")
+        
+		' Iniciar el Intent para compartir el archivo
+		Log("Intent para compartir archivo")
+		StartActivity(Intent1)
+	Else
+		ToastMessageShow("El archivo PDF no existe.", True)
+	End If
+End Sub
+
+Private Sub b_envioPDF_Click
+	PDFGENERAR
+	EnviarPDFWhatsAppNumero(et_numeroPDF.Text)
+	
+	DateTime.DateFormat = "YYYY/MM/dd HH:mm:ss"
+	Dim cmd As DBCommand
+	cmd.Initialize
+	cmd.Name = "insertEnvioTicketPDF"
+	Log(DateTime.Date(DateTime.Now))
+	cmd.Parameters = Array As Object(Subs.traeCliente, Subs.traeUsuarioDeBD, et_numeroPDF.text, DateTime.Date(DateTime.Now))
+	reqManager.ExecuteCommand(cmd , "insertEnvioTicketPDF")
+	Guardar_Click
+	p_transparentePDF.Visible = False
+End Sub
+
+Private Sub b_cancelarEnvioPDF_Click
+	p_transparentePDF.Visible = False
+End Sub
+
+Private Sub p_transparentePDF_Click
+	
+End Sub
+
+Private Sub et_numeroPDF_TextChanged (Old As String, New As String)
+	If New.Length = 10 Then b_envioPDF.Enabled = True Else b_envioPDF.Enabled = False
 End Sub
\ No newline at end of file
diff --git a/B4A/Files/cliente.bal b/B4A/Files/cliente.bal
index 16836813fa71ba6c5a3962a7228acee9274a8a37..69cd75dad4bad5bbda977e3efce94a39493752ca 100644
GIT binary patch
delta 1957
zcmZwHT})GF7zgn49z;_tSgZIM;RvE44k*xC0R^?FI6$<Db8OaAI7+3IT3Y<JqHcaA
zMtyWyvYW9Ovn)%dIX7yu4Bcd5$y~O0xw-6iR~m1O@#}djZT~i0{BwTiywCHVbNcbT
z`XcMwAF^_@6-Bw4rzkmmJbO9!>?}LO@9WY-T}DukG=&BO{q3Ihm#>}6lO=wiF@D7?
z5MK$Km9H65UntgRL}Z<LM-8f0=M=u&qWg`Y!$tG6?<88osaATF-I+g~OTxZrL=O#w
z^@tIQ8r)75lb?y0Sv;j$#Iv|y5@!J?=>m2kN8>Ey6mg0<i@+t|#o#6E<UUK;rJQA)
zGVt=W<H`r=6Qvwn!A@>e33h<1puU=2!*Oz4;1ysucxA%zcMY|$PzSDOui~ucG=Lky
zYrt#4>%bmx6L>w}KXro*;EmvB@Fwtw;1+NzxDC7++&=EOe6uaEuodhDZv$@!cYt?*
zKLYOre+=$alz8gxKY@i$!Mngd@NTdU_Jg~?-C!eS{`~i(P84M?xQCtm0S4InIK7-8
zxDOlx_k+XW{oshS{Ql*p1F#SU$H0T&1K@+;L*T>UBkZG`W1QpQX88cgg%jW*@JaS5
z&S}nPoa8^^b9V9*I%BT0eknw~`FC!;JwD;sk&`Vwp3=k1IgJ+*BT(x$v}mBK*NCQ9
zUGi>TLmSjJU6W%`k7!14yo@hsd-@}NdbD5T!KUd!Z6L5W)*6tLP7D2fR}ReD%<(BV
zZ`<CwwrQ(ZK2v(yPCS*(Ioj{jXM86VrGTsX@NPPa4)eJq<eG6QxzMJLFYGoC_589!
zeXW`eBjr=Y3;M6oL)U*=tX2ssJW(bO!w%2X=UkuIu}!6y8_TG#Wg7k8SVjNz*lBcR
zfm$uAi{{EloXN3N^Np4<toibcH(A)dlr9eE(c^%HeE00)2?>2(Vw(%wbWuZ&(RN$S
zdriFMQz{frx;5HNqxWwJ7Y*H>N8#0Wy6IkIb7dCaD=ic&62%WUSSTE`sDCN+XXg_7
zw<L#FHO&!j?$4(m!)|q@xZ*6bxifbt-QP*!2gSlqS0B{TAHmu5=Ddf#ANxksa_e#$
z>9Ej~-ubrL%*Ll>B~)=>6IsVB>emVlm(QijvDu{QIn?m$D^d4ecilwYkACxF=Pqv!
MRSsllWRfbBx0A|8RsaA1

delta 1224
zcmYk+$xjne0LSt7rYw=95b(sIwuQ2aY%P>s*%U#l2!ia3C_7~pSqnEg5FsxyA;cqz
zi3t$qLc+~6obV6eA0Xjug76#LDZj%v^Lcr1@@8I}`FUu$`EIdB3L!46Ld4*@v19$Z
z^J`PDl6z9W(#AFAk33XaQJpH+Zda#Kf8?aT9qpC@8x}u8cH}@#ltfM@yT~c91x27#
zl!nq#204@bn4ATN?hS}1_XCkl&Y>G};XIU&+++{AfLuuSl8ea2aES;AQ3{m(9|T=a
zt{^`pKO<L?tH{;l8gec9Irhg>1UG&`t|PxB*OME_ugHyLANe);O~?V`?VD)gExDQ8
zLVibXCAX2^liSH1<W7O}H{ZUCCc4Qz<X&<gxt}~h{s5bQ(n0tm`h<qU#`zD22SSXH
zN6BO4aq<LtlI$l>k*CQshK=9fc%oUFn1kohXS6{6LS7^<k(c2Ww2Ib{dAi0v=1HuR
z^*HO6l==FP*s=tD-+3NyJCnf=0xrR?g7o~my>(z952R}HCaR;PIQ77np<lWm7TQkC
w<vuO6yvSVc)56P_GF|F=&Y`|7+VtJgyf)2YQS0@d<KKT{)b$x^iO{6D1B?lRQvd(}

diff --git a/B4A/Guna Vistas V3.1.b4a b/B4A/Guna Vistas V3.1.b4a
index 8c1b015..417b182 100644
--- a/B4A/Guna Vistas V3.1.b4a	
+++ b/B4A/Guna Vistas V3.1.b4a	
@@ -214,6 +214,7 @@ Library3=baqrcode
 Library30=xcustomlistview
 Library31=xui
 Library32=xui views
+Library33=contentresolver
 Library4=batteryprogressview
 Library5=bitmapcreator
 Library6=byteconverter
@@ -249,7 +250,7 @@ Module7=C_Cuestionario
 Module8=C_Historico
 Module9=C_Mapas
 NumberOfFiles=94
-NumberOfLibraries=32
+NumberOfLibraries=33
 NumberOfModules=27
 Version=12.8
 @EndOfDesignText@
diff --git a/B4A/Guna Vistas V3.1.b4a.meta b/B4A/Guna Vistas V3.1.b4a.meta
index 2cadfef..3b4e095 100644
--- a/B4A/Guna Vistas V3.1.b4a.meta	
+++ b/B4A/Guna Vistas V3.1.b4a.meta	
@@ -77,11 +77,11 @@ ModuleClosedNodes26=
 ModuleClosedNodes27=
 ModuleClosedNodes3=
 ModuleClosedNodes4=5,8,9,10,11,12,13
-ModuleClosedNodes5=
+ModuleClosedNodes5=175,176,177,180,181
 ModuleClosedNodes6=
 ModuleClosedNodes7=5,6,8,9,10,11
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_Cliente,enviaTicket,5164,6,C_Cliente,savePDF,5124,5,C_Cliente,openPDF,5141,0,C_Cliente,b_enviarTicket_LongClick,5156,1,C_Cliente,Guardar_Click,2107,0,C_Cliente,B4XPage_Appear,512,0,C_Cliente,GPS_LocationChanged,989,0,C_Cliente,b_enviarTicket_Click,5146,6,C_Cliente,PDFGENERAR,4965,1,B4XMainPage,JobDone,484,0,Main,Process_Globals,21,0
+NavigationStack=C_Cliente,Class_Globals,109,0,C_Cliente,b_enviarTicket_Click,5162,0,C_Cliente,b_geopass_Click,1188,0,C_Cliente,Guardar_Click,2140,0,C_Cliente,Impresion2,2299,0,C_Cliente,Impresion,2501,0,C_Cliente,B_GUARDA_C_Click,2784,0,C_Cliente,b_codigoAutorizacion_Click,4934,0,C_Cliente,b_envioPDF_Click,5242,6,C_Cliente,JobDone,1281,6
 SelectedBuild=0
 VisibleModules=25,2,14,26,5,10,15,20,4
diff --git a/B4A/Starter.bas b/B4A/Starter.bas
index 43834e5..de2e229 100644
--- a/B4A/Starter.bas
+++ b/B4A/Starter.bas
@@ -22,7 +22,7 @@ Sub Process_Globals
 	Dim server As String = "http://187.189.244.154:1782"
 '	Dim server As String = "http://10.0.0.205:1782"
 	Dim Timer1 As Timer
-	Dim Interval As Int = 30
+	Dim Interval As Int = 10
 	Dim ruta As String = File.DirInternal
 	'Para los Logs
 	Private logs As StringBuilder
@@ -145,15 +145,15 @@ End Sub
 
 Sub JobDone(Job As HttpJob)
 	Log("JOBDONE STARTER")
-	If Job.JobName = "DBRequest" Then
-		Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
-		Log($"Tag: ${RESULT.tag}, success=${Job.Success}"$)
-	End If
-	'Log(Job.Tag)
-	If Job.Success = False Then
+'	Log(Job.Tag)
+	If Job.Success = False Then ' Si hay unerror en el request...
 '		Log("JOBDONE ERROR")
 		LogColor("Error: " & Job.ErrorMessage, Colors.red)
 	Else 'If Job Success then ...
+		If Job.JobName = "DBRequest" Then
+			Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
+			Log($"Tag: ${RESULT.tag}, success=${Job.Success}"$)
+		End If
 '		Log("JOBDONE SUCCESS")
 	End If
 End Sub
\ No newline at end of file