mirror of
https://github.com/KeymonSoft/Guna_Preventa.git
synced 2026-04-19 21:59:15 +00:00
Version 4.08.18.EP_d
Se agregaron las funciones de Bitacora GPS Se agrego el boton de Inicio / Fin Venta La bitacora GPS guarda La hora de cargar dia, al darle fin dia tambien guarda su venta.
This commit is contained in:
IsR0d
@@ -416,7 +416,13 @@ Sub Class_Globals
|
||||
Private teclado As IME
|
||||
Dim fototomada As String
|
||||
Private b_foto As Button
|
||||
Dim precision As String
|
||||
Private b_Inicio_Fin_venta As Button
|
||||
|
||||
Dim dentroDeGeocerca As Boolean = False
|
||||
Dim motivoNoVenta, motivoNoVisita As String
|
||||
Dim contadorIniciarVenta As Int = 0
|
||||
Dim IniVenNO As Boolean = False
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -474,8 +480,11 @@ End Sub
|
||||
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
|
||||
|
||||
Sub B4XPage_Appear
|
||||
|
||||
que_modulo = 1
|
||||
|
||||
|
||||
dentroDeGeocerca = False
|
||||
|
||||
indicePregunta = 0
|
||||
If TOMAR_FOTO <> 0 Then Cuestionario
|
||||
|
||||
@@ -654,9 +663,18 @@ Sub B4XPage_Appear
|
||||
End If
|
||||
' Log(distance)
|
||||
|
||||
b_Inicio_Fin_venta.Text = "INICIAR VENTA"
|
||||
b_Inicio_Fin_venta.BringToFront
|
||||
|
||||
|
||||
'
|
||||
' LogColor(">>>>>> EN VENTA: " & Starter.enVenta, Colors.red)
|
||||
If Not(Starter.enVenta) And la_cuenta.Text <> "0" Then
|
||||
b_Inicio_Fin_venta.Visible = True
|
||||
Log("EnVenta Visible")
|
||||
Else
|
||||
Log("EnVenta NO Visible")
|
||||
b_Inicio_Fin_venta.Visible = False
|
||||
End If
|
||||
' LogColor(">>>>>> EN VENTA: " & Starter.enVenta, Colors.red)
|
||||
|
||||
|
||||
' Log(Subs.InvSuficientePromoEsp)
|
||||
@@ -719,19 +737,67 @@ Sub B4XPage_Appear
|
||||
Private cantres As Float = des + rec
|
||||
Log( NumberFormat2(cantres,0,2,2,False))
|
||||
|
||||
Private c4 As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT * FROM PEDIDO JOIN CAT_PROMO_ESP ON CAT_PE_ID = PE_PROID WHERE PE_CLIENTE IN (Select CUENTA FROM CUENTAA) AND PE_COSTOU >= ?",Array As String(NumberFormat2(cantres,0,2,2,False)))
|
||||
If c4.RowCount > 0 Then
|
||||
For i = 0 To c4.RowCount -1
|
||||
c4.Position = i
|
||||
Private recalculo As Float = c4.GetString("PE_COSTOU") - NumberFormat2(cantres,0,2,2,False)
|
||||
LogColor(recalculo,Colors.Blue)
|
||||
Private recalculototal As Float = c4.GetString("PE_CANT") * NumberFormat2(recalculo,0,2,2,False)
|
||||
|
||||
Private c5 As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT Ifnull(SUM(PE_CANT),0) AS PE_CANT FROM PEDIDO JOIN CAT_PROMO_ESP ON CAT_PE_ID = PE_PROID WHERE PE_CLIENTE IN (Select CUENTA FROM CUENTAA) AND PE_COSTOU > ? and PE_COSTOU < ?",Array As String(des, cantres))
|
||||
If c5.RowCount > 0 Then
|
||||
c5.Position = 0
|
||||
Log(c5.GetString("PE_CANT"))
|
||||
|
||||
If c5.GetString("PE_CANT") = "0" Then
|
||||
|
||||
|
||||
Private c4 As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT * FROM PEDIDO JOIN CAT_PROMO_ESP ON CAT_PE_ID = PE_PROID WHERE PE_CLIENTE IN (Select CUENTA FROM CUENTAA) AND PE_COSTOU >= ?",Array As String(NumberFormat2(cantres,0,2,2,False)))
|
||||
If c4.RowCount > 0 Then
|
||||
For i = 0 To c4.RowCount -1
|
||||
c4.Position = i
|
||||
Private recalculo As Float = c4.GetString("PE_COSTOU") - NumberFormat2(cantres,0,2,2,False)
|
||||
LogColor(recalculo,Colors.Blue)
|
||||
Private recalculototal As Float = c4.GetString("PE_CANT") * NumberFormat2(recalculo,0,2,2,False)
|
||||
|
||||
' Log(recalculo&"|||||"&recalculototal)
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PEDIDO set PE_RECALCULO = ?, PE_RECALCULOTOT = ? WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_PROID = ? ",Array As String(NumberFormat2(recalculo,0,2,2,False) ,NumberFormat2(recalculototal,0,2,2,False), c4.GetString("PE_PROID")))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PEDIDO set PE_RECALCULO = ?, PE_RECALCULOTOT = ? WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_PROID = ? ",Array As String(NumberFormat2(recalculo,0,2,2,False) ,NumberFormat2(recalculototal,0,2,2,False), c4.GetString("PE_PROID")))
|
||||
|
||||
Next
|
||||
Next
|
||||
End If
|
||||
|
||||
c4.Close
|
||||
Else
|
||||
|
||||
|
||||
Private c6 As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT SUM(PE_CANT) AS PE_CANT FROM PEDIDO JOIN CAT_PROMO_ESP ON CAT_PE_ID = PE_PROID WHERE PE_CLIENTE IN (Select CUENTA FROM CUENTAA) AND PE_COSTOU >= ?",Array As String(cantres))
|
||||
If c6.RowCount > 0 Then
|
||||
c6.Position = 0
|
||||
Log(c6.GetString("PE_CANT"))
|
||||
Private rec1 As Float = (cantres * c5.GetString("PE_CANT"))/c6.GetString("PE_CANT")
|
||||
Log( NumberFormat2(rec1,0,2,2,False))
|
||||
Private cantres1 As Float = cantres + rec1
|
||||
Log( NumberFormat2(cantres1,0,2,2,False))
|
||||
|
||||
|
||||
Private c4 As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT * FROM PEDIDO JOIN CAT_PROMO_ESP ON CAT_PE_ID = PE_PROID WHERE PE_CLIENTE IN (Select CUENTA FROM CUENTAA) AND PE_COSTOU >= ?",Array As String(NumberFormat2(cantres1,0,2,2,False)))
|
||||
If c4.RowCount > 0 Then
|
||||
For i = 0 To c4.RowCount -1
|
||||
c4.Position = i
|
||||
Private recalculo As Float = c4.GetString("PE_COSTOU") - NumberFormat2(cantres1,0,2,2,False)
|
||||
LogColor(recalculo,Colors.Blue)
|
||||
Private recalculototal As Float = c4.GetString("PE_CANT") * NumberFormat2(recalculo,0,2,2,False)
|
||||
|
||||
' Log(recalculo&"|||||"&recalculototal)
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PEDIDO set PE_RECALCULO = ?, PE_RECALCULOTOT = ? WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_PROID = ? ",Array As String(NumberFormat2(recalculo,0,2,2,False) ,NumberFormat2(recalculototal,0,2,2,False), c4.GetString("PE_PROID")))
|
||||
|
||||
Next
|
||||
End If
|
||||
|
||||
c4.Close
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -739,7 +805,7 @@ Sub B4XPage_Appear
|
||||
c.Close
|
||||
c2.Close
|
||||
c3.Close
|
||||
c4.Close
|
||||
|
||||
End If
|
||||
|
||||
If Not(Subs.traemontoprod) Then
|
||||
@@ -788,7 +854,7 @@ Sub B4XPage_Appear
|
||||
If s.GetString("TOTAL_CLIE") = Null Then
|
||||
l_total.Text = 0
|
||||
Else
|
||||
l_total.Text =NumberFormat2((s.GetString("TOTAL_CLIE") + s5.GetString("TOTAL_CLIE")),0,2,2,False)
|
||||
l_total.Text =NumberFormat2((s.GetString("TOTAL_CLIE") + s5.GetString("TOTAL_CLIE")),0,2,2,False)
|
||||
End If
|
||||
total_cliente = s.GetString("TOTAL_CLIE") + s5.GetString("TOTAL_CLIE")
|
||||
m_lat = "0"
|
||||
@@ -834,8 +900,8 @@ Sub B4XPage_Appear
|
||||
Log(s.GetString("TOTAL_CLIE"))
|
||||
If s.GetString("TOTAL_CLIE") = Null Then
|
||||
l_total.Text = 0
|
||||
Else
|
||||
l_total.Text =NumberFormat2(s.GetString("TOTAL_CLIE"),0,2,2,False)
|
||||
Else
|
||||
l_total.Text =NumberFormat2(s.GetString("TOTAL_CLIE"),0,2,2,False)
|
||||
End If
|
||||
total_cliente = s.GetString("TOTAL_CLIE")
|
||||
m_lat = "0"
|
||||
@@ -873,10 +939,13 @@ Sub B4XPage_Appear
|
||||
If geo = "0" Then
|
||||
gest.Visible = True
|
||||
Tels.Visible = True
|
||||
Log("AQUI")
|
||||
' b_Inicio_Fin_venta.Visible = True
|
||||
precision = "1"
|
||||
' Log("Hacemos visible el boton de Inicio Venta")
|
||||
Else If geo = "1" And distance > 100 Then
|
||||
gest.Visible = False
|
||||
Tels.Visible = False
|
||||
b_Inicio_Fin_venta.Visible = False
|
||||
' ToastMessageShow("aaa", False)
|
||||
End If
|
||||
|
||||
@@ -890,13 +959,11 @@ Sub GPS_LocationChanged (Location1 As Location)
|
||||
B4XPages.MainPage.lon_gps = Tracker.FLP.GetLastKnownLocation.Longitude
|
||||
' Log("Coords set to: " & B4XPages.MainPage.lat_gps & " and " & B4XPages.MainPage.lon_gps)
|
||||
End If
|
||||
|
||||
If m_lat.Length > 0 And B4XPages.MainPage.lat_gps <> "0" Then
|
||||
Dim l1, l2 As Location
|
||||
l1.Initialize2(B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps)
|
||||
' Log($"Coordenadas de la tienda - lat:${m_lat}, lon:${m_lon}"$)
|
||||
l2.Initialize2(m_lat, m_lon)
|
||||
|
||||
BT_QR.Enabled = True
|
||||
LA_GPS.TextColor = Colors.Blue
|
||||
LA_GPS.Text = "CON UBICACION GPS"
|
||||
@@ -917,124 +984,128 @@ Sub GPS_LocationChanged (Location1 As Location)
|
||||
End If
|
||||
c.Close
|
||||
If gest.IsInitialized And Tels.IsInitialized Then
|
||||
|
||||
If geo = "0" Then
|
||||
gest.Visible = True
|
||||
Tels.Visible = True
|
||||
Else If geo = "1" Then
|
||||
gest.Visible = False
|
||||
Tels.Visible = False
|
||||
If geo = "0" Then
|
||||
gest.Visible = True
|
||||
Tels.Visible = True
|
||||
iniciofin
|
||||
Else If geo = "1" Then
|
||||
gest.Visible = False
|
||||
Tels.Visible = False
|
||||
b_Inicio_Fin_venta.Visible = False
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
If geo = "1" Then
|
||||
If distance < 100 Then
|
||||
LA_GEO.TextColor = Colors.Blue
|
||||
Tels.Visible = True
|
||||
gest.Visible = True
|
||||
iniciofin
|
||||
precision = "1"
|
||||
ToastMessageShow("DENTRO de rango GPS", False)
|
||||
Else If habi = "1" Then
|
||||
|
||||
c = skmt.ExecQuery2("SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LATITUD"))
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
Dim al_latitud As String = c.GetString("CAT_VA_VALOR")
|
||||
End If
|
||||
c.Close
|
||||
|
||||
c = skmt.ExecQuery2("SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LONGITUD"))
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
Dim al_longitud As String = c.GetString("CAT_VA_VALOR")
|
||||
End If
|
||||
c.Close
|
||||
|
||||
Dim ubi1, ubi2 As Location
|
||||
ubi1.Initialize2(B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps)
|
||||
ubi2.Initialize2(al_latitud, al_longitud)
|
||||
|
||||
Dim distancealm As Long
|
||||
distancealm = ubi1.DistanceTo(ubi2)
|
||||
|
||||
If distancealm < 50 Then
|
||||
precision = "0"
|
||||
LA_GEO.TextColor = Colors.Blue
|
||||
Tels.Visible = True
|
||||
gest.Visible = True
|
||||
iniciofin
|
||||
ToastMessageShow("DENTRO de rango GPS", False)
|
||||
Else If distancealm > 50 Then
|
||||
Tels.Visible = False
|
||||
gest.Visible = False
|
||||
|
||||
c = skmt.ExecQuery("SELECT PC_CLIENTE FROM PEDIDO_CLIENTE WHERE PC_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
b_Inicio_Fin_venta.Visible = False
|
||||
c = skmt.ExecQuery("SELECT PC_CLIENTE FROM PEDIDO_CLIENTE WHERE PC_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
If c.RowCount > 0 Then
|
||||
precision = "0"
|
||||
Tels.Visible = True
|
||||
gest.Visible = True
|
||||
|
||||
iniciofin
|
||||
Else If c.RowCount = 0 Then
|
||||
c = skmt.ExecQuery("SELECT NV_CLIENTE FROM NOVENTA CLIENTE WHERE NV_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
If c.RowCount > 0 Then
|
||||
Tels.Visible = True
|
||||
gest.Visible = True
|
||||
precision = "0"
|
||||
iniciofin
|
||||
Else If c.RowCount = 0 Then
|
||||
Tels.Visible = False
|
||||
gest.Visible = False
|
||||
b_Inicio_Fin_venta.Visible = False
|
||||
LA_GEO.TextColor = Colors.Red
|
||||
If ALMACEN = "1" Then
|
||||
Tels.Visible = False
|
||||
gest.Visible = True
|
||||
iniciofin
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
LA_GEO.TextColor = Colors.Red
|
||||
If ALMACEN = "1" Then
|
||||
Tels.Visible = False
|
||||
gest.Visible = True
|
||||
iniciofin
|
||||
End If
|
||||
End If
|
||||
Else If habi = 0 Then
|
||||
|
||||
c = skmt.ExecQuery("SELECT PC_CLIENTE FROM PEDIDO_CLIENTE WHERE PC_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
If c.RowCount > 0 Then
|
||||
Tels.Visible = True
|
||||
gest.Visible = True
|
||||
|
||||
iniciofin
|
||||
Else If c.RowCount = 0 Then
|
||||
Tels.Visible = False
|
||||
gest.Visible = False
|
||||
b_Inicio_Fin_venta.Visible = False
|
||||
c = skmt.ExecQuery("SELECT NV_CLIENTE FROM NOVENTA CLIENTE WHERE NV_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
If c.RowCount > 0 Then
|
||||
Tels.Visible = True
|
||||
gest.Visible = True
|
||||
iniciofin
|
||||
Else If c.RowCount = 0 Then
|
||||
Tels.Visible = False
|
||||
gest.Visible = False
|
||||
b_Inicio_Fin_venta.Visible = False
|
||||
LA_GEO.TextColor = Colors.Red
|
||||
If ALMACEN = "1" Then
|
||||
Tels.Visible = False
|
||||
gest.Visible = True
|
||||
iniciofin
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
LA_GEO.TextColor = Colors.Red
|
||||
If ALMACEN = "1" Then
|
||||
Tels.Visible = False
|
||||
gest.Visible = True
|
||||
iniciofin
|
||||
End If
|
||||
|
||||
End If
|
||||
Else
|
||||
Tels.Visible = False
|
||||
gest.Visible = False
|
||||
b_Inicio_Fin_venta.Visible = False
|
||||
LA_GEO.TextColor = Colors.Red
|
||||
If ALMACEN = "1" Then
|
||||
Tels.Visible = False
|
||||
gest.Visible = True
|
||||
iniciofin
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
@@ -1051,7 +1122,20 @@ Sub GPS_LocationChanged (Location1 As Location)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub p_pideGeoPass_Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub iniciofin
|
||||
If Starter.VarX = 0 Then
|
||||
b_Inicio_Fin_venta.Visible = True
|
||||
Log("Hacemos visible el boton de Inicio Venta2")
|
||||
Else
|
||||
|
||||
b_Inicio_Fin_venta.Visible = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub b_geopass_Click
|
||||
@@ -1877,6 +1961,13 @@ Sub DATOS_Click
|
||||
End Sub
|
||||
|
||||
Sub Guardar_Click
|
||||
Guardar.SendToBack
|
||||
b_Inicio_Fin_venta.Visible = True
|
||||
b_Inicio_Fin_venta.Text = "TERMINAR VENTA"
|
||||
Log("Hacemos visible el boton de Terminar Venta3")
|
||||
End Sub
|
||||
|
||||
Sub guardadoventa
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
@@ -1896,21 +1987,15 @@ Sub Guardar_Click
|
||||
LogColor(s3.RowCount,Colors.Yellow)
|
||||
If s3.RowCount > 0 Then
|
||||
|
||||
|
||||
Private s As Cursor=B4XPages.MainPage.skmt.ExecQuery2("select iFNULL(sum(pe_costo_tot),0) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) and PE_RECALCULO = ? AND PE_RECALCULO = ? AND PE_RECALCULO = ?",Array As String("","null",Null))
|
||||
s.Position = 0
|
||||
Private s5 As Cursor = B4XPages.MainPage.skmt.ExecQuery2("select iFNULL(sum(PE_RECALCULOTOT),0) as TOTAL_CLIE FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) and PE_RECALCULO <> ? AND PE_RECALCULO <> ? AND PE_RECALCULO <> ?",Array As String("","null",Null))
|
||||
s5.Position = 0
|
||||
|
||||
|
||||
Private suma As Float = s.GetString("TOTAL_CLIE") + s5.GetString("TOTAL_CLIE")
|
||||
|
||||
|
||||
|
||||
|
||||
s.Close
|
||||
|
||||
|
||||
Else If s3.RowCount = 0 Then
|
||||
Private s As Cursor=B4XPages.MainPage.skmt.ExecQuery("select iFNULL(sum(pe_costo_tot),0) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
s.Position=0
|
||||
@@ -1951,6 +2036,20 @@ Sub Guardar_Click
|
||||
End Try
|
||||
DateTime.TimeFormat = "HH:mm:ss"
|
||||
B4XPages.ShowPage("Principal")
|
||||
|
||||
|
||||
|
||||
If la_cuenta.Text <> "0" Then 'Si es ABORDO, no mostramos el boton b_Inicio_Fin_venta y regresamos a Principal.
|
||||
b_Inicio_Fin_venta.Visible = True
|
||||
Log("Hacemos visible el boton de Inicio Venta3")
|
||||
Else
|
||||
b_Inicio_Fin_venta.Visible = False
|
||||
Starter.enVenta = False
|
||||
LogColor(">>>>>> ABORDO: " & Starter.enVenta, Colors.red)
|
||||
Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Subs.traeAlmacen, Subs.traeRuta, "Venta Abordo", "0", Subs.fechanormal(DateTime.Now), Subs.fechanormal(DateTime.Now), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, precision, "", "")
|
||||
Subs.iniciaActividad("principal")
|
||||
B4XPages.ShowPageAndRemovePreviousPages("Principal")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub NUEVO_Click
|
||||
@@ -2071,9 +2170,6 @@ Sub B_IMP_Click
|
||||
Impresion
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Sub Impresion2
|
||||
@@ -2151,7 +2247,6 @@ Sub Impresion2
|
||||
Printer1.WriteString("Entre calle1: " & l_entre1.Text & CRLF)
|
||||
Printer1.WriteString("Entre Calle2: " & l_entre2.Text & CRLF)
|
||||
|
||||
|
||||
Printer1.WriteString("-----------PREVENTA-----------" & CRLF)
|
||||
' aqui es donde esta el pedo de julieta de los descuentos quitar el precio2 pero meter un if para saber si es ruta especial o es normal o que show.
|
||||
s=skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU,PE_CANT * PE_COSTOU AS PE_COSTO_TOT, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT,PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_CEDIS <> ? AND LENGTH(PE_CEDIS) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PROID", Array As String("DUR"))
|
||||
@@ -2354,7 +2449,6 @@ Sub Impresion
|
||||
Printer1.WriteString("Entre calle1: " & l_entre1.Text & CRLF)
|
||||
Printer1.WriteString("Entre Calle2: " & l_entre2.Text & CRLF)
|
||||
|
||||
|
||||
Printer1.WriteString("-----------PREVENTA-----------" & CRLF)
|
||||
' aqui es donde esta el pedo de julieta de los descuentos quitar el precio2 pero meter un if para saber si es ruta especial o es normal o que show.
|
||||
s=skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU,PE_CANT * PE_COSTOU AS PE_COSTO_TOT, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT,PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_CEDIS <> ? AND LENGTH(PE_CEDIS) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PROID", Array As String("DUR"))
|
||||
@@ -2671,7 +2765,7 @@ Sub B_GPS_Click
|
||||
Dim result As Int
|
||||
result = Msgbox2("Esta seguro de cambiar las coordenadas de este cliente", "Aviso GPS", "SI", "", "NO", LoadBitmap(File.DirAssets, "alerta.jpg")) 'Ignore
|
||||
If result = DialogResponse.Positive Then
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE kmt_info2 SET CAT_CL_LAT = ?, CAT_CL_LONG = ? where CAT_CL_CODIGO In (Select cuenta from cuentaa)", Array As Object(B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE kmt_info2 SET CAT_CL_LAT = ?, CAT_CL_LONG = ? where CAT_CL_CODIGO In (Select cuenta from cuentaa)", Array As Object(B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
|
||||
B4XPage_Appear
|
||||
End If
|
||||
End Sub
|
||||
@@ -2680,7 +2774,6 @@ Private Sub p_cliente_Click
|
||||
'Nada aqui, solo esta para que los clics no se pasen hacia atras.
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Panel5_Click
|
||||
|
||||
End Sub
|
||||
@@ -2739,7 +2832,6 @@ Private Sub RadioButton15_CheckedChange(Checked As Boolean)
|
||||
End Sub
|
||||
' fin p2_1 m1
|
||||
|
||||
|
||||
'PREGUNTA 1 MODULO 1
|
||||
|
||||
Private Sub RadioButton1_CheckedChange(Checked As Boolean)
|
||||
@@ -4244,7 +4336,7 @@ Sub Cuestionario
|
||||
|
||||
enc.Position = i
|
||||
Log($"POSICION = ${enc.Position}"$)
|
||||
If enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 5 Then 'esto es para la foto
|
||||
If enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 5 Then 'esto es para la foto
|
||||
If logger Then Log("Pregunta tipo 5")
|
||||
id_encuesta = enc.GetString("CAT_EP_ID")
|
||||
idencuestaaguardar = enc.GetString("CAT_EP_ID")
|
||||
@@ -4665,3 +4757,39 @@ Private Sub StopCamera2
|
||||
camEx.Release
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub b_Inicio_Fin_venta_Click
|
||||
' b_Inicio_Fin_venta.Visible = False
|
||||
' Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Subs.traeAlmacen, Subs.traeRuta, "Pre-venta", "0", Subs.fechanormal(DateTime.Now), Subs.fechanormal(DateTime.Now), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, precision, "", "")
|
||||
contadorIniciarVenta = 0
|
||||
IniVenNO = False
|
||||
If dentroDeGeocerca Then precision = 1
|
||||
LogColor("-------> "&contadorIniciarVenta & " <-------", Colors.Red)
|
||||
motivoNoVenta = ""
|
||||
motivoNoVisita = ""
|
||||
If b_Inicio_Fin_venta.Text = "TERMINAR VENTA" Then
|
||||
Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "Termina Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, precision, motivoNoVenta, motivoNoVisita)
|
||||
Starter.enVenta = False
|
||||
' LogColor($">>>>>> TERMINA VENTA: ${Starter.enVenta} - ${Subs.traeCliente}"$, Colors.red)
|
||||
B4XPages.ShowPageAndRemovePreviousPages("Principal")
|
||||
Starter.VarX = 0
|
||||
guardadoventa
|
||||
Else if b_Inicio_Fin_venta.Text = "INICIAR VENTA" Then
|
||||
contadorIniciarVenta = 0
|
||||
IniVenNO = False
|
||||
contadorIniciarVenta = contadorIniciarVenta + 1
|
||||
If contadorIniciarVenta = 1 And IniVenNO = False Then
|
||||
IniVenNO = True
|
||||
Starter.VarX = 1
|
||||
Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "Inicia Venta", Subs.traeCliente, Subs.fechanormal(DateTime.Now), "", B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, precision, motivoNoVenta, "")
|
||||
Starter.enVenta = True
|
||||
' LogColor($">>>>>> INICIA VENTA: ${Starter.enVenta} - ${Subs.traeCliente}"$, Colors.red)
|
||||
Else If contadorIniciarVenta > 1 Then
|
||||
b_Inicio_Fin_venta.Visible = False
|
||||
End If
|
||||
End If
|
||||
|
||||
b_Inicio_Fin_venta.Visible = False
|
||||
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user