cheveguerra/Guna_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa.git synced 2026-04-17 21:06:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.03.22

Browse Source 
- Se regresaron cambios para la ruta de suplencia (VERSION 5.03.10)
- Se regresaron cambios para nota y promo especial (VERSION 5.02.22)
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-03-24 15:57:22 -06:00
parent 005ffd00b0
commit d4346a65e5
5 changed files with 82 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
B4A/B4XMainPage.bas
View File

@@ -1064,3 +1064,42 @@ Private Sub i_engrane_LongClick
ToastMessageShow("La aplicación Tienda 360 no está instalada o no puede manejar la URL.", True)
End Try
End Sub
Sub l_version_longClick
DateTime.DateFormat="MM/dd/yyyy HH:mm:ss"
Private Fecha As String=DateTime.Date(DateTime.now)
Private telefono As String = "5215554192439"
Private monto As String = "1500"
Private idCliente As String = "10748"
Private ruta As String = "333"
Private almacen As String = "1"
' CON POST
Private link As String = "http://keymon.lat:9000/v1/messages"
Private elJSON As String = $"{
"number":"${telefono}",
"message":"Tu compra de Guna va ser a *crédito* por el monto de $${NumberFormat2(monto, 1, 2, 2, True)}\n\nManda *1* para confirmar\nManda *0* para rechazar\n\n*Nota:* Si este mensaje no se contesta, se considerará que el pago es en *EFECTIVO*.\n\n(Solo el *número* por favor)",
"monto":"${monto}",
"idcliente":"${idCliente}",
"almacen":"${almacen}",
"ruta": "${ruta}",
"fecha":"${Fecha}"
}"$
Private job As HttpJob
job.Initialize("", Me)
job.PostString(link, elJSON)
job.GetRequest.SetContentType("application/json")
Wait For (job) JobDone(job As HttpJob)
' CON GET
' Private retorno As String = "%0D%0A"
' Private link As String = $"http://keymon.lat:9000/v1/messages?number=${telefono}&message=Tu compra de Guna va ser a crédito por el monto de $${NumberFormat2(monto, 1, 2, 2, True)}${retorno}${retorno}Manda *1* para confirmar${retorno}Manda *0* para rechazar${retorno}${retorno}*Nota: Si este mensaje no se contesta, se considerará que el pago es en EFECTIVO*${retorno}${retorno}(Solo el *número* por favor)&monto=${monto}&idcliente=${idCliente}&almacen=1&ruta=333&fecha=${Fecha}"$
' Private job As HttpJob
' job.Initialize("", Me)
'' job.PostString(link, elJSON)
' job.Download(link)
'' job.GetRequest.SetContentType("application/json")
' Wait For (job) JobDone(job As HttpJob)
Log("Whatsapp enviado con exito: " & job.Success)
End Sub

1
B4A/C_Principal.bas
View File

@@ -1098,7 +1098,6 @@ Sub cargar_Click
'SUPLENCIA
If E_RUTA2.text <> "" Then
Starter.skmt.ExecNonQuery("DELETE from RUTA_SUPLENCIA")
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO RUTA_SUPLENCIA(RS_RUTA) VALUES(?)",Array As String(E_RUTA2.Text))
E_RUTA2.Visible = False
p_ruta2.Visible = False

4
B4A/Guna Vistas V3.1.b4a
View File

@@ -256,12 +256,12 @@ Module9=C_Mapas
NumberOfFiles=96
NumberOfLibraries=33
NumberOfModules=27
Version=13.1
Version=12.8
@EndOfDesignText@
#Region Project Attributes
#ApplicationLabel: Guna Preventa
#VersionCode: 1
#VersionName: 5.03.10
#VersionName: 5.03.22
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

2
B4A/Guna Vistas V3.1.b4a.meta
View File

@@ -82,6 +82,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=5,6,8,9,10,11
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=C_NoVenta,Class_Globals,0,0,C_NoVenta,GUARDA_Click,114,0,Subs,traePromo,798,0,Subs,traeMaxPromos,934,0,Subs,procesaPromocion,982,1,C_Principal,Class_Globals,0,0,Diseñador Visual,resdia.bal,-100,4,C_Principal,resdia_Click,2604,0,B4XMainPage,B4XPage_Created,174,0,C_Principal,cargar_Click,1082,6
NavigationStack=Subs,centraEditText,579,0,Subs,centraProgressBar,573,0,Subs,panelVisible,556,0,B4XMainPage,b_envioBD_Click,855,0,Diseñador Visual,login.bal,-100,6,Subs,fechaKMT,70,0,Subs,deleteFolder,1787,0,Subs,enviaWhatsappMsg,1788,6,B4XMainPage,l_version_longClick,1074,6,B4XMainPage,i_engrane_LongClick,1060,0
SelectedBuild=0
VisibleModules=25,2,14,26,5,10,15,11

37
B4A/Subs.bas
View File

@@ -1790,3 +1790,40 @@ Sub deleteFolder(folder As String)
File.Delete(folder, f)
Next
End Sub
Sub enviaWhatsappMsg()
' DateTime.DateFormat="MM/dd/yyyy HH:mm:ss"
' Private Fecha As String=DateTime.Date(DateTime.now)
' Private telefono As String = "5215554192439"
' Private monto As String = "1500"
' Private idCliente As String = "10748"
'
'' CON POST
' Dim link As String = "http://keymon.lat:9000/v1/messages"
' Dim elJSON As String = $"{
' "number":"${telefono}",
' "message":"Tu compra de Guna va ser a crédito por el monto de $${NumberFormat2(monto, 1, 2, 2, True)}${retorno}${retorno}Manda *1* para confirmar${retorno}Manda *0* para rechazar${retorno}${retorno}(Solo el *número* por favor),
' "monto":${monto},
' "idcliente":${idCliente},
' "almacen":"1",
' "ruta": "333",
' "fecha":${Fecha}
' }"$
' Dim job As HttpJob
' job.Initialize("", Me)
' job.PostString(link, elJSON)
' job.GetRequest.SetContentType("application/json")
' Wait For (job) JobDone(job As HttpJob)
'
'' CON GET
' Dim retorno As String = "%0D%0A"
' Dim link As String = $"http://keymon.lat:9000/v1/messages?number=${telefono}&message=Tu compra de Guna va ser a crédito por el monto de $${NumberFormat2(monto, 1, 2, 2, True)}${retorno}${retorno}Manda *1* para confirmar${retorno}Manda *0* para rechazar${retorno}${retorno}(Solo el *número* por favor)&monto=${monto}&idcliente=${idCliente}&almacen=1&ruta=333&fecha=${Fecha}"$
' Dim job As HttpJob
' job.Initialize("", Me)
'' job.PostString(link, elJSON)
' job.Download(link)
'' job.GetRequest.SetContentType("application/json")
' Wait For (job) JobDone(job As HttpJob)
'
' Log("Whatsapp enviado con exito: " & job.Success)
End Sub