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

- VERSION 5.02.05

Browse Source 
- Se agregó que una vez impresa la venta, ya no se pueda modificar, y si se quiere modificar, es necesario pedir al supervisor una clave de autorización.
- Se agregó a "Cliente" un boton de "Enviar Ticket", que genera un PDF con el ticket y lo envia por WhatsApp o correo
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-02-06 22:24:11 -06:00
parent af1491b254
commit 0904b9b121
13 changed files with 1494 additions and 159 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
B4A/Subs.bas
View File

@@ -674,17 +674,17 @@ Sub traeRuta As String 'ignore
idCliente = elCc.GetString("CUENTA")
Log("|"&elCc.GetString("CUENTA")&"|")
End If
Log($"#########################${CRLF}HAY USUARIO EN CUENTAA: ${elCc.RowCount}${CRLF}#########################"$)
' Log($"#########################${CRLF}HAY USUARIO EN CUENTAA: ${elCc.RowCount}${CRLF}#########################"$)
If idCliente <> "" Then
Log(1)
' Log(1)
c = B4XPages.MainPage.skmt.ExecQuery($"select distinct CAT_CL_RUTA from kmt_info2 where CAT_CL_CODIGO = '${idCliente}'"$)
Else
Log(2)
' Log(2)
c = B4XPages.MainPage.skmt.ExecQuery("select distinct CAT_CL_RUTA from kmt_info2 where CAT_CL_RUTA not in (select * from ruta_suplencia)")
End If
Log($"#########################${CRLF}ENCONTRAMOS RUTA EN KMT_INFO2: ${c.RowCount}${CRLF}#########################"$)
' Log($"#########################${CRLF}ENCONTRAMOS RUTA EN KMT_INFO2: ${c.RowCount}${CRLF}#########################"$)
If c.RowCount > 0 Then
Log(3)
' Log(3)
c.Position=0
r = c.GetString("CAT_CL_RUTA")
End If
@@ -692,7 +692,7 @@ Sub traeRuta As String 'ignore
Catch
Log(LastException)
End Try
Log($"#########################${CRLF}RUTA ENCONTRADA: |${r}|${CRLF}#########################"$)
' Log($"#########################${CRLF}RUTA ENCONTRADA: |${r}|${CRLF}#########################"$)
Return r
End Sub
@@ -1739,4 +1739,23 @@ Sub traeVariable(nombre As String) As String
valor = laVc.GetString("CAT_VA_VALOR")
End If
Return valor
End Sub
Sub revisaImpreso As Boolean 'ignore
Private impreso As Boolean = False
Private c As Cursor = Starter.skmt.ExecQuery("select idCliente from ticket_impreso where idCliente in (select cuenta from cuentaa)")
If c.RowCount > 0 Then impreso = True
Return impreso
End Sub
Sub deleteFolder(folder As String)
Log("Borrando " & folder)
For Each f As String In File.ListFiles(folder)
Log(f)
If File.IsDirectory(folder, f) Then
deleteFolder(File.Combine(folder, f))
Log($"Borramos ${File.Combine(folder, f)}"$)
End If
File.Delete(folder, f)
Next
End Sub