cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-17 18:26:11 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 4.06.28

Browse Source 
- Se corrigió que cuando la ruta esta cerrada por Motivo de no visita, no se podia entra a la calculadora.
- Se agtego la fecha de inicio al evento de "Venta abordo"
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-06-29 18:39:59 -06:00
parent c05d8282f9
commit cfe2113e70
4 changed files with 35 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

59
B4A/C_Cliente.bas
View File

@@ -403,10 +403,6 @@ End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
Sub B4XPage_Appear
If kh.motivoNoVisitaActivo Then
ToastMessageShow("Ruta CERRADA por NO VISITA", True)
Subs.iniciaActividad("Principal")
End If
indicePregunta = 0
b_noVenta.Enabled = False
' Log(kh.traeTotalCliente)
@@ -456,7 +452,14 @@ Sub B4XPage_Appear
Starter.GPS.Start(0, 0)
If Starter.ubicacionActual.IsInitialized And Starter.ubicacionActual.Latitude <> 0 Then GPS_LocationChanged(Starter.ubicacionActual)
End If
If muestraBoleta Then LLAMA_BOLETA
If muestraBoleta Then
LLAMA_BOLETA
Else
If kh.motivoNoVisitaActivo Then
ToastMessageShow("Ruta CERRADA por NO VISITA", True)
Subs.iniciaActividad("Principal")
End If
End If
BT_QR.Enabled = False
' b_factura.Visible = False
Panel_INV_A.Visible = False
@@ -641,8 +644,10 @@ Sub B4XPage_Appear
Else
Guardar.Visible = True
End If
If Not(l_total.Text > 0) And Not(kh.traeTotalClienteDOE > 0) Then Guardar.Visible = True
If l_total.Text = "" Or l_total.Text = "null" Then l_total.Text = "0"
If Not(l_total.Text > 0) Then Guardar.Visible = True ' And Not(kh.traeTotalClienteDOE > 0
' If la_cuenta.text = "0" Then Guardar.Visible = True 'Abordo
Log($"L_TOTAL = ${l_total.text}"$)
If l_total.Text = Null Or l_total.Text = "null" Or l_total.text = "0" Then Guardar.Visible = True 'Si no hay venta entonces "Guardar" es visible.
'Promo Especial
@@ -703,30 +708,32 @@ Sub B4XPage_Appear
gps_boton_doe = "0"
C1=Starter.skmt.ExecQuery("select IMPRESION FROM kmt_info where CAT_CL_CODIGO In (select cuenta from cuentaa)")
C1.Position = 0
If C1.GetString("IMPRESION") <> "1" Then
S=Starter.skmt.ExecQuery2("select COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) AND PE_PROID = ?", Array As String("PROMODOE") )
s.Position = 0
If s.GetString("CUANTOS") = 0 Then
c=Starter.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_CLIENTE_CANT_PROMOS WHERE HCCP_CLIENTE IN (Select cuenta from cuentaa) AND HCCP_PROMO = ?", Array As String("PROMODOE"))
c.Position =0
If c.GetString("CUANTOS") > 0 Then
C3=Starter.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM CAT_GUNAPROD2 WHERE CAT_GP_ID = ? ", Array As String("1008094223"))
C3.Position = 0
If C3.GetString("CUANTOS") > 0 Then
c2=Starter.skmt.ExecQuery2("SELECT CAT_GP_ALMACEN FROM CAT_GUNAPROD2 WHERE CAT_GP_ID = ? ", Array As String("1008094223"))
c2.Position = 0
If c2.GetString("CAT_GP_ALMACEN") > 0 Then
b_whats.Visible = False
If C1.RowCount > 0 Then
C1.Position = 0
If C1.GetString("IMPRESION") <> "1" Then
S=Starter.skmt.ExecQuery2("select COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) AND PE_PROID = ?", Array As String("PROMODOE") )
s.Position = 0
If s.GetString("CUANTOS") = 0 Then
c=Starter.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_CLIENTE_CANT_PROMOS WHERE HCCP_CLIENTE IN (Select cuenta from cuentaa) AND HCCP_PROMO = ?", Array As String("PROMODOE"))
c.Position =0
If c.GetString("CUANTOS") > 0 Then
C3=Starter.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM CAT_GUNAPROD2 WHERE CAT_GP_ID = ? ", Array As String("1008094223"))
C3.Position = 0
If C3.GetString("CUANTOS") > 0 Then
c2=Starter.skmt.ExecQuery2("SELECT CAT_GP_ALMACEN FROM CAT_GUNAPROD2 WHERE CAT_GP_ID = ? ", Array As String("1008094223"))
c2.Position = 0
If c2.GetString("CAT_GP_ALMACEN") > 0 Then
b_whats.Visible = False
' gps_boton_doe = "1"
End If
c2.Close
End If
c2.Close
C3.Close
End If
C3.Close
c.Close
End If
c.Close
s.Close
End If
s.Close
End If
C1.Close
gps_boton_doe = "0"
@@ -977,7 +984,7 @@ Sub Guardar_Click
b_inicioFinVenta.Visible = False
Starter.enVenta = False
LogColor(">>>>>> ABORDO: " & Starter.enVenta, Colors.red)
Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Id_Almacen, ruta_tienda, "Venta Abordo", "0", "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, precision, "", "")
Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Id_Almacen, ruta_tienda, "Venta Abordo", "0", Subs.fechanormal(DateTime.Now), Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, precision, "", "")
Subs.iniciaActividad("principal")
B4XPages.ShowPageAndRemovePreviousPages("Principal")
End If