cheveguerra/Salma_Venta
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Salma_Venta.git synced 2026-04-20 06:09:25 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.07.05

Browse Source 
- Se copiaron y adaptaron queries de Guna.
- Se agregaron tablas y columnas faltantes.
- Se puso logo de Salma.
- PARECE QUE YA ESTA FUNCIONANDO (DEDOS CRUZADOS)!!
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-07-05 18:49:31 -06:00
parent d53f98b098
commit fee8a83516
6 changed files with 28 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
B4A/C_Cliente.bas
View File

@@ -528,6 +528,18 @@ Private Sub B4XPage_Created (Root1 As B4XView)
cuest.Initialize(Me, "cuest", Root, B4XPages.MainPage.skmt)
bitacora.Initialize("bitacora", "bitacora", Root, B4XPages.MainPage.skmt, reqManager)
l_version.Left = Root.Width - l_version.Width
p_encuesta.Top = 0 : p_encuesta.Left = 0
Panel10.Top = 0 : Panel10.Left = 0
p_transparentePDF.Top = 0 : p_transparentePDF.Left = 0
pnlPlanLealtad.Top = 0 : pnlPlanLealtad.Left = 0
p_transparenteTicketImpreso.Top = 0 : p_transparenteTicketImpreso.Left = 0
p_comentario.Top = 0 : p_comentario.Left = 0
p_camara.Top = 0 : p_camara.Left = 0
Panel2.Top = 0 : Panel2.Left = 0
p_pregunta1.Top = 0 : p_pregunta1.Left = 0
P_gallina.Top = 0 : P_gallina.Left = 0
SV_ENCUESTA.Top = 0 : SV_ENCUESTA.Left = 0
' bitacora.cargamosPanel
End Sub
@@ -555,7 +567,7 @@ Sub B4XPage_Appear
' Log(Subs.traeCliente)
If Subs.traeCliente = "0" Then
tipo_venta = "ABORDO"
Log(1)
' Log(1)
Log("ABORDO")
Else
tipo_venta = Subs.traeTipoVentaDeBD
@@ -1566,7 +1578,6 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
End Sub
Sub gest_Click
Dim pagarepen As Cursor = B4XPages.MainPage.skmt.ExecQuery("select FECHA, SALDO_PENDIENTE FROM ABONOSP WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
If pagarepen.RowCount > 0 Then
pagarepen.Position = 0
@@ -1596,11 +1607,8 @@ Sub gest_Click
Else If DiferenciaDias > 7 Then
MsgboxAsync($"No se puede realizar venta por que presenta ${(DiferenciaDias-7)} días de atraso en el credito, por un monto de $${pagarepen.GetString("SALDO_PENDIENTE")}"$, "Atención")
End If
Else
gestionar
End If
End Sub
@@ -1613,12 +1621,12 @@ Sub gestionar
Dim Intent1 As Intent
Dim enviorutas As String = "" 'guna://tienda360/config?clienteId="&la_cuenta.Text&"&almacen="&ALMACEN&"&ruta="&Subs.traeRuta
Log(enviorutas)
Intent1.Initialize(Intent1.ACTION_VIEW, enviorutas)
' Intent1.Initialize(Intent1.ACTION_VIEW, enviorutas)
Try
Starter.encuesta = 1
Dim cmd As DBCommand
skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(1))
StartActivity(Intent1)
' StartActivity(Intent1)
compra
Catch
Starter.encuesta = 0
@@ -1641,15 +1649,15 @@ Sub gestionar
c=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(encuesta,0) AS encuesta from kmt_info3 where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
c.Position = 0
If c.GetString("encuesta") = "0" Then
Dim Intent1 As Intent
Dim enviorutas As String = "" 'guna://tienda360/config?clienteId="&la_cuenta.Text&"&almacen="&ALMACEN&"&ruta="&Subs.traeRuta
Log(enviorutas)
Intent1.Initialize(Intent1.ACTION_VIEW, enviorutas)
' Dim Intent1 As Intent
' Dim enviorutas As String = "" 'guna://tienda360/config?clienteId="&la_cuenta.Text&"&almacen="&ALMACEN&"&ruta="&Subs.traeRuta
' Log(enviorutas)
' Intent1.Initialize(Intent1.ACTION_VIEW, enviorutas)
Try
Starter.encuesta = 1
Dim cmd As DBCommand
skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(1))
StartActivity(Intent1)
' StartActivity(Intent1)
compra
Catch
Starter.encuesta = 0