cheveguerra/Guna_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa.git synced 2026-04-19 13:49:20 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.03.23

Browse Source 
- Se puso codigo para envio de WhatsApp del ticket PDF
- Se puso codigo para el envio de mensaje de WhatsApp cuando la venta es a credito
- Se puso codigo para descragar los datos de las promos segmentadas paltinum, oro y bronze
- Se puso codigo para que se guarde en web el telefono al que se  manda el ticketPdf
- Se puso codigo para que cuando se carga dia, si ya hay venta, se reste de cat_gunaprod y cat_gunaprod2 lo que haya en pedido.
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-03-26 16:31:09 -06:00
parent d4346a65e5
commit 0596d33b74
6 changed files with 200 additions and 105 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
B4A/B4XMainPage.bas
View File

@@ -188,6 +188,12 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Subs.agregaColumna("PEDIDO", "PE_RECALCULOTOT", "TEXT")
Subs.agregaColumna("HIST_ENCUESTA", "HE_LON", "TEXT")
Subs.agregaColumna("kmt_info3", "encuesta", "TEXT")
Subs.agregaColumna("kmt_info3", "CAT_CL_TIPOCLIENTE", "TEXT")
Subs.agregaColumna("kmt_info3", "CAT_CL_BCREDITO", "TEXT") '########################## CODIGO PARA CREDITOS ####################
Subs.agregaColumna("CAT_GUNAPROD", "CAT_PA_BSEGMENTA", "TEXT")
Subs.agregaColumna("CAT_GUNAPROD", "CAT_PA_SEGMENTAV", "TEXT")
Subs.agregaColumna("CAT_GUNAPROD2", "CAT_PA_BSEGMENTA", "TEXT")
Subs.agregaColumna("CAT_GUNAPROD2", "CAT_PA_SEGMENTAV", "TEXT")
Try 'Intentamos usar "pragma_table_info" para revisar si existe la columna "P10" en la tabla
c=skmt.ExecQuery("SELECT COUNT(*) AS fCol FROM pragma_table_info('ENCUESTA_MODULO3') WHERE name='P10'")
c.Position = 0
@@ -1064,42 +1070,3 @@ 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