mirror of
https://github.com/KeymonSoft/Tortillas_Guerreras.git
synced 2026-04-20 14:19:24 +00:00
VERSION 5.10.12
- Se agrego la bitacora.
This commit is contained in:
@@ -183,6 +183,9 @@ Sub Class_Globals
|
||||
Private et_folio As EditText
|
||||
Private c_acep_folio As Button
|
||||
Private c_cancelfolio As Button
|
||||
Private b_inicioFinVenta As Button
|
||||
Dim precision As Int = 0
|
||||
Dim dentroDeGeocerca As Boolean = False
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -256,13 +259,27 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
' End If
|
||||
' h.Close
|
||||
' j.Close
|
||||
|
||||
End Sub
|
||||
|
||||
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
|
||||
|
||||
Sub B4XPage_Appear
|
||||
b_inicioFinVenta.Left = 1
|
||||
b_inicioFinVenta.Width = Root.Width - 2dip
|
||||
b_inicioFinVenta.BringToFront
|
||||
' banderaimp = 0
|
||||
dentroDeGeocerca = True
|
||||
b_inicioFinVenta.Text = "INICIAR VENTA"
|
||||
b_inicioFinVenta.BringToFront
|
||||
LogColor(">>>>>> EN VENTA: " & Starter.enVenta, Colors.red)
|
||||
If Not(Starter.enVenta) And la_cuenta.Text <> "0" Then
|
||||
b_inicioFinVenta.Visible = True
|
||||
Log("EnVenta Visible")
|
||||
Else
|
||||
b_inicioFinVenta.Visible = False
|
||||
Log("EnVenta NO Visible")
|
||||
End If
|
||||
|
||||
Guardar.Enabled = True
|
||||
gest.Enabled = True
|
||||
b_cxc.Enabled = True
|
||||
@@ -474,11 +491,11 @@ Sub B4XPage_Appear
|
||||
'SELECT CAT_CL_BCREDITO, CAT_CL_CODIGO, Ifnull(SALDO_PENDIENTE,0) FROM KMT_INFO INNER JOIN ABONOSP ON CAT_CL_CODIGO = CLIENTE WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)
|
||||
|
||||
Private credi2 As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO, CAT_CL_CODIGO, Ifnull(SALDO_PENDIENTE,0) As SALDO_PENDIENTE, Ifnull(CAT_CL_LIMITECREDITO,0) As CAT_CL_LIMITECREDITO FROM KMT_INFO LEFT JOIN ABONOSP ON CAT_CL_CODIGO = CLIENTE WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION SELECT CAT_CL_BCREDITO, CAT_CL_CODIGO, Ifnull(SALDO_PENDIENTE,0) As SALDO_PENDIENTE, Ifnull(CAT_CL_LIMITECREDITO,0) As CAT_CL_LIMITECREDITO FROM KMT_INFO2 LEFT JOIN ABONOSP ON CAT_CL_CODIGO = CLIENTE WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
Log(credi2.RowCount)
|
||||
' Log(credi2.RowCount)
|
||||
If credi2.RowCount > 0 Then
|
||||
credi2.Position = 0
|
||||
credito_diponible = credi2.GetString ("CAT_CL_LIMITECREDITO")
|
||||
Log(credi2.GetString ("CAT_CL_BCREDITO"))
|
||||
' Log(credi2.GetString ("CAT_CL_BCREDITO"))
|
||||
If credi2.GetString ("CAT_CL_BCREDITO") = "1" Then
|
||||
Log(credi2.GetString("SALDO_PENDIENTE"))
|
||||
If credi2.GetString("SALDO_PENDIENTE") > 0 Then
|
||||
@@ -510,7 +527,7 @@ Sub B4XPage_Appear
|
||||
End If
|
||||
|
||||
Else
|
||||
Log(1)
|
||||
' Log(1)
|
||||
b_venta_credito.Visible = False
|
||||
If credi2.GetString("SALDO_PENDIENTE") > 0 Then
|
||||
Private credi3 As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT a_abono, CAT_CL_CODIGO FROM KMT_INFO INNER JOIN ABONOS ON CAT_CL_CODIGO = a_cliente WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION SELECT a_abono, CAT_CL_CODIGO FROM KMT_INFO2 INNER JOIN ABONOS ON CAT_CL_CODIGO = a_cliente WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
@@ -549,7 +566,7 @@ Sub B4XPage_Appear
|
||||
gest.Text = "Preventa"
|
||||
B4XPages.MainPage.recarga = "0"
|
||||
End If
|
||||
LogColor(B4XPages.MainPage.recarga,Colors.Blue)
|
||||
' LogColor(B4XPages.MainPage.recarga,Colors.Blue)
|
||||
' If banderaimp = 1 Then
|
||||
' Guardar_Click
|
||||
' End If
|
||||
@@ -603,6 +620,15 @@ Sub GPS_LocationChanged (Location1 As Location)
|
||||
End If
|
||||
End If
|
||||
|
||||
' If distance > 50 Then
|
||||
'' l_ubicacion2.TextColor = Colors.Red
|
||||
' dentroDeGeocerca = False
|
||||
' Else
|
||||
'' l_ubicacion2.TextColor = Colors.Black
|
||||
' dentroDeGeocerca = True
|
||||
'' Log("dentro de geocerca")
|
||||
' End If
|
||||
|
||||
LA_GEO.Text= $"$1.2{distance/1000} kms"$
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_GPS")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_GPS (HGDATE, HGLAT, HGLON) VALUES(?,?,?) ", Array As Object (sDate & sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
|
||||
@@ -857,6 +883,42 @@ Sub Guardar_Click
|
||||
' GuardaVenta
|
||||
' End If
|
||||
' c.Close
|
||||
b_inicioFinVenta.Text = "TERMINAR VENTA"
|
||||
If la_cuenta.Text <> "0" Then 'Si es ABORDO, no mostramos el boton b_inicioFinVenta y regresamos a Principal.
|
||||
b_inicioFinVenta.Visible = True
|
||||
b_inicioFinVenta.BringToFront
|
||||
Guardar.SendToBack
|
||||
Log("InicioFinVenta VISIBLE")
|
||||
Else
|
||||
b_inicioFinVenta.Visible = False
|
||||
Log("InicioFinVenta NO VISIBLE")
|
||||
Starter.enVenta = False
|
||||
LogColor(">>>>>> ABORDO: " & Starter.enVenta, Colors.red)
|
||||
Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, ALMACEN, Subs.traeRuta(Subs.traeCliente), "Venta Abordo", "0", Subs.fechanormal(DateTime.Now), Subs.fechanormal(DateTime.Now), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, precision, "", "")
|
||||
B4XPages.ShowPageAndRemovePreviousPages("Principal")
|
||||
End If
|
||||
' Log((Subs.traeTotalCliente > 0 And b_inicioFinVenta.Text <> "TERMINAR VENTA"))
|
||||
If Subs.traeTotalCliente > 0 And b_inicioFinVenta.Text <> "TERMINAR VENTA" Then ' Si ya hay venta no aparece el boton
|
||||
Log("InicioFinVenta NO VISIBLE")
|
||||
b_inicioFinVenta.Visible = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub b_inicioFinVenta_Click
|
||||
If dentroDeGeocerca Then precision = 1
|
||||
Private motivoNoVenta As String = ""
|
||||
Private motivoNoVisita As String = ""
|
||||
If Starter.enVenta Then
|
||||
Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, ALMACEN, Subs.traeRuta(Subs.traeCliente), "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")
|
||||
Else
|
||||
Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, ALMACEN, Subs.traeRuta(Subs.traeCliente), "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)
|
||||
End If
|
||||
b_inicioFinVenta.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub b_acred_Click
|
||||
@@ -946,19 +1008,11 @@ End Sub
|
||||
Sub GUADAVENTA2
|
||||
Log(B4XPages.MainPage.recarga)
|
||||
If B4XPages.MainPage.recarga = "0" Then
|
||||
|
||||
|
||||
|
||||
Dim foliofac2 As Cursor=B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) and PE_DESCRAGA = 1 AND PE_FOLIOFAC IS NULL")
|
||||
If foliofac2.RowCount > 0 Then
|
||||
|
||||
|
||||
|
||||
Dim foliofac As Cursor=B4XPages.MainPage.skmt.ExecQuery("SELECT sum(IFNULL(PE_DESCRAGA,0)) AS PE_DESCRAGA FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
foliofac.Position = 0
|
||||
If foliofac.GetInt("PE_DESCRAGA") = 0 Then
|
||||
|
||||
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
@@ -1004,7 +1058,6 @@ Sub GUADAVENTA2
|
||||
Catch
|
||||
ToastMessageShow(".",True)
|
||||
End Try
|
||||
|
||||
skmt.ExecNonQuery2("update PEDIDO_INICIO_FINAL set PIF_HORA_FINAL = ? where PIF_CLIENTE = ? and PIF_HORA_FINAL = 0", Array As Object (DateTime.Now, la_cuenta.Text))
|
||||
' LogColor($"actualizamos "${la_cuenta.text}, hora_final=${DateTime.now}"$,Colors.Red)
|
||||
Subs.actualizaTET(la_cuenta.text)
|
||||
@@ -1024,15 +1077,13 @@ Sub GUADAVENTA2
|
||||
HIST.Enabled = True
|
||||
banderaimp = 0
|
||||
mandaPendientePagare
|
||||
B4XPages.ShowPage("Principal")
|
||||
' B4XPages.ShowPage("Principal") 'Lo hace Boton inicioFinVenta
|
||||
Else
|
||||
p_folio.Visible = True
|
||||
p_folio.Width = Root.Width
|
||||
p_folio.Height = Root.Height
|
||||
|
||||
End If
|
||||
Else
|
||||
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
@@ -1098,7 +1149,7 @@ Sub GUADAVENTA2
|
||||
HIST.Enabled = True
|
||||
banderaimp = 0
|
||||
mandaPendientePagare
|
||||
B4XPages.ShowPage("Principal")
|
||||
' B4XPages.ShowPage("Principal") 'Lo hace Boton inicioFinVenta
|
||||
End If
|
||||
Else If B4XPages.MainPage.recarga = "1" Then
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
@@ -1161,7 +1212,6 @@ Sub GUADAVENTA2
|
||||
B4XPages.ShowPage("login")
|
||||
B4XPages.MainPage.recarga = "0"
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Sub NUEVO_Click
|
||||
|
||||
Reference in New Issue
Block a user