cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-21 03:49:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

- Se agregó el logo de cacahuates al ticket de compra.

Browse Source 
- Se agrego el evento de No Venta y ya guarda en motivo y el comentario
- Se corrigio que en el ticket de inventario redondeaba los centavos.
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-05-08 16:55:43 -06:00
parent 7cc0c8bcff
commit 2e200ecf62
6 changed files with 451 additions and 415 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
B4A/C_Cliente.bas
View File

@@ -280,7 +280,7 @@ Sub Class_Globals
Dim errorImpresora As Int = 0 Dim errorImpresora As Int = 0
Private b_inicioFinVenta As Button Private b_inicioFinVenta As Button
Dim dentroDeGeocerca As Boolean = False Dim dentroDeGeocerca As Boolean = False
Dim motivoNoVenta As String = "" Dim motivoNoVenta, motivoNoVisita As String
Private motivo As String Private motivo As String
Dim precision As Int = 0 Dim precision As Int = 0
Dim clienteDeudor As Boolean = False Dim clienteDeudor As Boolean = False
@@ -1196,7 +1196,15 @@ Sub Imprime_ticket
Printer1.WriteString(Printer1.REVERSE) Printer1.WriteString(Printer1.REVERSE)
Printer1.PrintImage(myimage) Printer1.PrintImage(myimage)
Printer1.WriteString(Printer1.UNREVERSE) Printer1.WriteString(Printer1.UNREVERSE)
'' Printer1.Justify = 1
Dim bmp As Bitmap
bmp.InitializeResize(File.DirAssets, "cacahuates_original2.jpg", 376, 129, True) 'ignore
Dim myimage As AnImage = Printer1.ImageToBWIMage(bmp)
myimage = Printer1.DitherImage2D(myimage, 128)
myimage= Printer1.PackImage(myimage)
Printer1.PrintImage(myimage)
If la_cuenta.Text = "0" Then If la_cuenta.Text = "0" Then
Try Try
Printer1.WriteString("KELLOGG COMPANY MEXICO" & CRLF) Printer1.WriteString("KELLOGG COMPANY MEXICO" & CRLF)
@@ -1560,14 +1568,22 @@ Sub Imprime_ticket
Printer1.WriteString(CRLF) Printer1.WriteString(CRLF)
Printer1.WriteString(CRLF) Printer1.WriteString(CRLF)
Printer1.WriteString(CRLF) Printer1.WriteString(CRLF)
' Printer1.WriteString(Printer1.DEFAULTS) Printer1.WriteString(Printer1.DEFAULTS)
' Printer1.WriteString(Printer1.SINGLE) Printer1.WriteString(Printer1.SINGLE)
Printer1.WriteString("__________" & CRLF) Printer1.WriteString("__________" & CRLF)
Printer1.WriteString("------------------------------" & CRLF) Printer1.WriteString("------------------------------" & CRLF)
Printer1.WriteString("----ESTE TICKET NO ES UN -----" & CRLF) Printer1.WriteString("----ESTE TICKET NO ES UN -----" & CRLF)
Printer1.WriteString("--COMPROBANTE FISCAL, SOLO ES-" & CRLF) Printer1.WriteString("--COMPROBANTE FISCAL, SOLO ES-" & CRLF)
Printer1.WriteString("--------INFORMATIVO-----------" & CRLF) Printer1.WriteString("--------INFORMATIVO-----------" & CRLF)
Printer1.WriteString("------------------------------" & CRLF) Printer1.WriteString("------------------------------" & CRLF)
Dim bmp As Bitmap
bmp.InitializeResize(File.DirAssets, "cacahuates_original2.jpg", 376, 129, True) 'ignore
Dim myimage As AnImage = Printer1.ImageToBWIMage(bmp)
myimage = Printer1.DitherImage2D(myimage, 128)
myimage= Printer1.PackImage(myimage)
Printer1.PrintImage(myimage)
Printer1.WriteString(CRLF) Printer1.WriteString(CRLF)
Printer1.WriteString(CRLF) Printer1.WriteString(CRLF)
Printer1.WriteString(CRLF) Printer1.WriteString(CRLF)
@@ -3603,15 +3619,14 @@ Sub B_IMP_INV_Click
S1.Close S1.Close
ABORDO = 0 ABORDO = 0
C3 = Starter.skmt.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD, SUM(PE_COSTO_TOT) AS PE_TOTAL from pedido where pe_proid <> pe_cedis and substr(pe_pronombre,1,6) <> ? AND PE_CLIENTE <> ?", Array As String("CAMBIO", "0")) C3 = Starter.skmt.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD, SUM(PE_COSTO_TOT) AS PE_TOTAL from pedido where pe_proid <> pe_cedis and substr(pe_pronombre,1,6) <> ? AND PE_CLIENTE <> ?", Array As String("CAMBIO", "0"))
C8 = Starter.skmt.ExecQuery2("select SUM(PE_COSTO_TOT) AS PE_TOTAL from pedido where pe_proid <> pe_cedis AND PE_CLIENTE <> ?", Array As String( "0")) ' C8 = Starter.skmt.ExecQuery("select sum(pc_monto) as PE_TOTAL, count(pc_cliente) AS CLIENTES_DIA from pedido_cliente ")
C8.Position=0 ' C8.Position=0
If C3.RowCount > 0 Then If C3.RowCount > 0 Then
C3.Position = 0 C3.Position = 0
a_venta = C3.GetString("CANTIDAD") a_venta = C3.GetString("CANTIDAD")
Else Else
a_venta = 0 a_venta = 0
End If End If
If a_venta = Null Then a_venta = 0 If a_venta = Null Then a_venta = 0
If CUANTOS <> CUANTOS1 Then If CUANTOS <> CUANTOS1 Then
C1 = Starter.skmt.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD, SUM(PE_COSTO_TOT) AS TOTAL from pedido where substr(pe_pronombre,1,6) = ? ", Array As String("CAMBIO")) C1 = Starter.skmt.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD, SUM(PE_COSTO_TOT) AS TOTAL from pedido where substr(pe_pronombre,1,6) = ? ", Array As String("CAMBIO"))
@@ -3627,12 +3642,10 @@ Sub B_IMP_INV_Click
a_final = a_total - a_venta a_final = a_total - a_venta
Printer1.WriteString(Printer1.BOLD & "Piezas en RMI : " & RMI & CRLF) Printer1.WriteString(Printer1.BOLD & "Piezas en RMI : " & RMI & CRLF)
Printer1.WriteString(Printer1.BOLD & "TOTAL RMI : " & RMI_VALOR & CRLF) Printer1.WriteString(Printer1.BOLD & "TOTAL RMI : " & RMI_VALOR & CRLF)
Printer1.WriteString(Printer1.BOLD & "----RESUMEN TOTAL---- " & CRLF) Printer1.WriteString(Printer1.BOLD & "----RESUMEN TOTAL---- " & CRLF)
'' se cambia por lo del rmi Printer1.WriteString("---" & a_inicial & "..." & ABORDO & "..." & a_total & "..." & a_venta & "..." & a_final & "..." & RMI & CRLF) '' se cambia por lo del rmi Printer1.WriteString("---" & a_inicial & "..." & ABORDO & "..." & a_total & "..." & a_venta & "..." & a_final & "..." & RMI & CRLF)
Printer1.WriteString("---" & a_inicial & "..." & ABORDO & "..." & a_total & "..." & a_venta & "..." & a_final & "..." & CRLF) Printer1.WriteString("---" & a_inicial & "..." & ABORDO & "..." & a_total & "..." & a_venta & "..." & a_final & "..." & CRLF)
Printer1.WriteString(Printer1.BOLD & "TOTAL VENTA " & Subs.sumaPedido(Subs.traeCliente) & CRLF)
Printer1.WriteString(Printer1.BOLD & "TOTAL VENTA " & C8.GetString("PE_TOTAL") & CRLF)
Printer1.WriteString("------------------------------" & CRLF) Printer1.WriteString("------------------------------" & CRLF)
Printer1.WriteString("Nombre y Firma" & CRLF) Printer1.WriteString("Nombre y Firma" & CRLF)
Printer1.WriteString(CRLF) Printer1.WriteString(CRLF)
@@ -4204,8 +4217,9 @@ End Sub
Private Sub b_inicioFinVenta_Click Private Sub b_inicioFinVenta_Click
If dentroDeGeocerca Then precision = 1 If dentroDeGeocerca Then precision = 1
motivoNoVenta = "" motivoNoVenta = ""
motivoNoVisita = ""
If Starter.enVenta Then If Starter.enVenta Then
Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Id_Almacen, ruta_tienda, "Termina Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, precision, motivoNoVenta, "") Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Id_Almacen, ruta_tienda, "Termina Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, precision, motivoNoVenta, motivoNoVisita)
Starter.enVenta = False Starter.enVenta = False
LogColor($">>>>>> TERMINA VENTA: ${Starter.enVenta} - ${Subs.traeCliente}"$, Colors.red) LogColor($">>>>>> TERMINA VENTA: ${Starter.enVenta} - ${Subs.traeCliente}"$, Colors.red)
Subs.iniciaActividad("principal") Subs.iniciaActividad("principal")

2
B4A/C_NoVenta.bas
View File

@@ -89,7 +89,7 @@ Sub GUARDA_Click
usuario = Subs.traeUsuarioDeBD usuario = Subs.traeUsuarioDeBD
If B4XPages.MainPage.cliente.IsInitialized Then If B4XPages.MainPage.cliente.IsInitialized Then
B4XPages.MainPage.cliente.motivoNoVenta = motivo B4XPages.MainPage.cliente.motivoNoVenta = motivo
Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Subs.traeAlmacen, Subs.traeRuta, "Termina Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, B4XPages.MainPage.cliente.precision, motivo, "") Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Subs.traeAlmacen, Subs.traeRuta, "No Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, B4XPages.MainPage.cliente.precision, motivo, e_comm.text)
Starter.enVenta = False Starter.enVenta = False
End If End If
DateTime.DateFormat = "MM/dd/yyyy" DateTime.DateFormat = "MM/dd/yyyy"

6
B4A/C_Principal.bas
View File

@@ -2490,7 +2490,7 @@ Sub Resumen_Click
'where pc_fecha = ?", Array As String(fecha) 'where pc_fecha = ?", Array As String(fecha)
c.Position = 0 c.Position = 0
b.Position = 0 b.Position = 0
L_MONTOD.Text = c.GetString("MONTO_DIA") ' L_MONTOD.Text = c.GetString("MONTO_DIA")
L_MONTOD.Text = Subs.sumaPedido(Subs.traeCliente) 'Trae el monto sin el redondeo que a veces hace el SUM(). L_MONTOD.Text = Subs.sumaPedido(Subs.traeCliente) 'Trae el monto sin el redondeo que a veces hace el SUM().
' Log(Subs.sumaPedido(Subs.traeCliente) & " - " & L_MONTOD.Text) ' Log(Subs.sumaPedido(Subs.traeCliente) & " - " & L_MONTOD.Text)
' Subs.sumaPedido(Subs.traeCliente) ' Subs.sumaPedido(Subs.traeCliente)
@@ -2846,11 +2846,13 @@ Sub SUBIR_INFO_PEDIDO
Do While h.nextrow Do While h.nextrow
cmd.Initialize cmd.Initialize
If h.GetString("eventob") <> "Termina Venta" Then If h.GetString("eventob") <> "Termina Venta" Then
Private nombreCliente As String = Subs.traeNombreCliente(h.GetString("usuariob"))
If h.GetString("eventob") = "Llega a almacen" Then nombreCliente = "BOLETA"
cmd.Name = "mandaBitacora3" cmd.Name = "mandaBitacora3"
Log("BITACORA2") Log("BITACORA2")
' Log($"'${almacenb}', '${usuariob}', '${rutab}', '${eventob}', '${clienteb}', '${traeNombreCliente(clienteb)}','${ iniciob}', '${finb}','${ latitudb}','${ longitudb}', '${precision}', '${motivonoventa}', '${motivonovisita}', '${fechab}'"$) ' Log($"'${almacenb}', '${usuariob}', '${rutab}', '${eventob}', '${clienteb}', '${traeNombreCliente(clienteb)}','${ iniciob}', '${finb}','${ latitudb}','${ longitudb}', '${precision}', '${motivonoventa}', '${motivonovisita}', '${fechab}'"$)
' TMP_ALMACEN, TMP_USUARIO, TMP_RUTA, TMP_EVENTO, TMP_ID_CLIENTE, TMP_NOMBRE_CLIENTE, TMP_INICIO, TMP_FINAL, TMP_LATITUD, TMP_LONGITUD, TMP_PRESICION, TMP_MOTIVO_NO_VENTA, TMP_MOTIVO_NO_VISITA, TMP_FECHA_SINC ' TMP_ALMACEN, TMP_USUARIO, TMP_RUTA, TMP_EVENTO, TMP_ID_CLIENTE, TMP_NOMBRE_CLIENTE, TMP_INICIO, TMP_FINAL, TMP_LATITUD, TMP_LONGITUD, TMP_PRESICION, TMP_MOTIVO_NO_VENTA, TMP_MOTIVO_NO_VISITA, TMP_FECHA_SINC
cmd.Parameters = Array As Object(h.GetString("almacenb"), h.GetString("usuariob"), h.GetString("rutab"), h.GetString("eventob"), h.GetString("clienteb"), Subs.traeNombreCliente(h.GetString("clienteb")), h.GetString("iniciob"), h.GetString("finb"), h.GetString("latitudb"), h.GetString("longitudb"), h.GetString("precision"), h.GetString("motivonoventa"), h.GetString("motivonovisita"), h.GetString("fechab")) cmd.Parameters = Array As Object(h.GetString("almacenb"), h.GetString("usuariob"), h.GetString("rutab"), h.GetString("eventob"), h.GetString("clienteb"), nombreCliente, h.GetString("iniciob"), h.GetString("finb"), h.GetString("latitudb"), h.GetString("longitudb"), h.GetString("precision"), h.GetString("motivonoventa"), h.GetString("motivonovisita"), h.GetString("fechab"))
Starter.reqManager.ExecuteCommand(cmd , "mandaBitacora") Starter.reqManager.ExecuteCommand(cmd , "mandaBitacora")
Else Else
Private e As Cursor = Starter.skmt.ExecQuery($"select fechab from BITACORAGPS where usuariob = '${h.GetString("usuariob")}' and almacenb = '${h.GetString("almacenb")}' and rutab = '${h.GetString("rutab")}' and clienteb = '${h.GetString("clienteb")}' and eventob = 'Inicia Venta' order by fechab desc"$) Private e As Cursor = Starter.skmt.ExecQuery($"select fechab from BITACORAGPS where usuariob = '${h.GetString("usuariob")}' and almacenb = '${h.GetString("almacenb")}' and rutab = '${h.GetString("rutab")}' and clienteb = '${h.GetString("clienteb")}' and eventob = 'Inicia Venta' order by fechab desc"$)

810
B4A/KelloggsV4.b4a
View File

@@ -1,405 +1,414 @@
Build1=Default,kelloggsV2.keymon.lat,HU2_PUBLIC Build1=Default,kelloggsV2.keymon.lat,HU2_PUBLIC
File1=alcancia.png File1=alcancia.png
File10=checks.bal File10=cacahuates_blanco2.png
File100=marker-azul-46.png File100=marker-azul-38.png
File101=marker-azul-47.png File101=marker-azul-39.png
File102=marker-azul-48.png File102=marker-azul-4.png
File103=marker-azul-49.png File103=marker-azul-40.png
File104=marker-azul-5.png File104=marker-azul-41.png
File105=marker-azul-50.png File105=marker-azul-42.png
File106=marker-azul-51.png File106=marker-azul-43.png
File107=marker-azul-52.png File107=marker-azul-44.png
File108=marker-azul-53.png File108=marker-azul-45.png
File109=marker-azul-54.png File109=marker-azul-46.png
File11=cliente.bal File11=cacahuates_blanco3.png
File110=marker-azul-55.png File110=marker-azul-47.png
File111=marker-azul-56.png File111=marker-azul-48.png
File112=marker-azul-57.png File112=marker-azul-49.png
File113=marker-azul-58.png File113=marker-azul-5.png
File114=marker-azul-59.png File114=marker-azul-50.png
File115=marker-azul-6.png File115=marker-azul-51.png
File116=marker-azul-60.png File116=marker-azul-52.png
File117=marker-azul-61.png File117=marker-azul-53.png
File118=marker-azul-62.png File118=marker-azul-54.png
File119=marker-azul-63.png File119=marker-azul-55.png
File12=cliente.bal.bak File12=cacahuates_chico.png
File120=marker-azul-64.png File120=marker-azul-56.png
File121=marker-azul-65.png File121=marker-azul-57.png
File122=marker-azul-66.png File122=marker-azul-58.png
File123=marker-azul-67.png File123=marker-azul-59.png
File124=marker-azul-68.png File124=marker-azul-6.png
File125=marker-azul-69.png File125=marker-azul-60.png
File126=marker-azul-7.png File126=marker-azul-61.png
File127=marker-azul-70.png File127=marker-azul-62.png
File128=marker-azul-71.png File128=marker-azul-63.png
File129=marker-azul-72.png File129=marker-azul-64.png
File13=clientes.bal File13=cacahuates_original.jpeg
File130=marker-azul-73.png File130=marker-azul-65.png
File131=marker-azul-74.png File131=marker-azul-66.png
File132=marker-azul-75.png File132=marker-azul-67.png
File133=marker-azul-76.png File133=marker-azul-68.png
File134=marker-azul-77.png File134=marker-azul-69.png
File135=marker-azul-78.png File135=marker-azul-7.png
File136=marker-azul-79.png File136=marker-azul-70.png
File137=marker-azul-8.png File137=marker-azul-71.png
File138=marker-azul-80.png File138=marker-azul-72.png
File139=marker-azul-81.png File139=marker-azul-73.png
File14=detalle_promo.bal File14=cacahuates_original2.bmp
File140=marker-azul-82.png File140=marker-azul-74.png
File141=marker-azul-83.png File141=marker-azul-75.png
File142=marker-azul-84.png File142=marker-azul-76.png
File143=marker-azul-85.png File143=marker-azul-77.png
File144=marker-azul-86.png File144=marker-azul-78.png
File145=marker-azul-87.png File145=marker-azul-79.png
File146=marker-azul-88.png File146=marker-azul-8.png
File147=marker-azul-89.png File147=marker-azul-80.png
File148=marker-azul-9.png File148=marker-azul-81.png
File149=marker-azul-90.png File149=marker-azul-82.png
File15=durakelo.png File15=cacahuates_original2.jpg
File150=marker-azul-91.png File150=marker-azul-83.png
File151=marker-azul-92.png File151=marker-azul-84.png
File152=marker-azul-93.png File152=marker-azul-85.png
File153=marker-azul-94.png File153=marker-azul-86.png
File154=marker-azul-95.png File154=marker-azul-87.png
File155=marker-azul-96.png File155=marker-azul-88.png
File156=marker-azul-97.png File156=marker-azul-89.png
File157=marker-azul-98.png File157=marker-azul-9.png
File158=marker-azul-99.png File158=marker-azul-90.png
File159=marker-rojo-0.png File159=marker-azul-91.png
File16=durakelo1.png File16=cacahuates_original3.bmp
File160=marker-rojo-1.png File160=marker-azul-92.png
File161=marker-rojo-10.png File161=marker-azul-93.png
File162=marker-rojo-100.png File162=marker-azul-94.png
File163=marker-rojo-11.png File163=marker-azul-95.png
File164=marker-rojo-12.png File164=marker-azul-96.png
File165=marker-rojo-13.png File165=marker-azul-97.png
File166=marker-rojo-14.png File166=marker-azul-98.png
File167=marker-rojo-15.png File167=marker-azul-99.png
File168=marker-rojo-16.png File168=marker-rojo-0.png
File169=marker-rojo-17.png File169=marker-rojo-1.png
File17=engrane.jpg File17=carrito.png
File170=marker-rojo-18.png File170=marker-rojo-10.png
File171=marker-rojo-19.png File171=marker-rojo-100.png
File172=marker-rojo-2.png File172=marker-rojo-11.png
File173=marker-rojo-20.png File173=marker-rojo-12.png
File174=marker-rojo-21.png File174=marker-rojo-13.png
File175=marker-rojo-22.png File175=marker-rojo-14.png
File176=marker-rojo-23.png File176=marker-rojo-15.png
File177=marker-rojo-24.png File177=marker-rojo-16.png
File178=marker-rojo-25.png File178=marker-rojo-17.png
File179=marker-rojo-26.png File179=marker-rojo-18.png
File18=engrane.png File18=checklist.bal
File180=marker-rojo-27.png File180=marker-rojo-19.png
File181=marker-rojo-28.png File181=marker-rojo-2.png
File182=marker-rojo-29.png File182=marker-rojo-20.png
File183=marker-rojo-3.png File183=marker-rojo-21.png
File184=marker-rojo-30.png File184=marker-rojo-22.png
File185=marker-rojo-31.png File185=marker-rojo-23.png
File186=marker-rojo-32.png File186=marker-rojo-24.png
File187=marker-rojo-33.png File187=marker-rojo-25.png
File188=marker-rojo-34.png File188=marker-rojo-26.png
File189=marker-rojo-35.png File189=marker-rojo-27.png
File19=engranes.png File19=checks.bal
File190=marker-rojo-36.png File190=marker-rojo-28.png
File191=marker-rojo-37.png File191=marker-rojo-29.png
File192=marker-rojo-38.png File192=marker-rojo-3.png
File193=marker-rojo-39.png File193=marker-rojo-30.png
File194=marker-rojo-4.png File194=marker-rojo-31.png
File195=marker-rojo-40.png File195=marker-rojo-32.png
File196=marker-rojo-41.png File196=marker-rojo-33.png
File197=marker-rojo-42.png File197=marker-rojo-34.png
File198=marker-rojo-43.png File198=marker-rojo-35.png
File199=marker-rojo-44.png File199=marker-rojo-36.png
File2=alert2.png File2=alert2.png
File20=errormanager.bal File20=cliente.bal
File200=marker-rojo-45.png File200=marker-rojo-37.png
File201=marker-rojo-46.png File201=marker-rojo-38.png
File202=marker-rojo-47.png File202=marker-rojo-39.png
File203=marker-rojo-48.png File203=marker-rojo-4.png
File204=marker-rojo-49.png File204=marker-rojo-40.png
File205=marker-rojo-5.png File205=marker-rojo-41.png
File206=marker-rojo-50.png File206=marker-rojo-42.png
File207=marker-rojo-51.png File207=marker-rojo-43.png
File208=marker-rojo-52.png File208=marker-rojo-44.png
File209=marker-rojo-53.png File209=marker-rojo-45.png
File21=fondo_kmt.jpg File21=cliente.bal.bak
File210=marker-rojo-54.png File210=marker-rojo-46.png
File211=marker-rojo-55.png File211=marker-rojo-47.png
File212=marker-rojo-56.png File212=marker-rojo-48.png
File213=marker-rojo-57.png File213=marker-rojo-49.png
File214=marker-rojo-58.png File214=marker-rojo-5.png
File215=marker-rojo-59.png File215=marker-rojo-50.png
File216=marker-rojo-6.png File216=marker-rojo-51.png
File217=marker-rojo-60.png File217=marker-rojo-52.png
File218=marker-rojo-61.png File218=marker-rojo-53.png
File219=marker-rojo-62.png File219=marker-rojo-54.png
File22=foto.bal File22=clientes.bal
File220=marker-rojo-63.png File220=marker-rojo-55.png
File221=marker-rojo-64.png File221=marker-rojo-56.png
File222=marker-rojo-65.png File222=marker-rojo-57.png
File223=marker-rojo-66.png File223=marker-rojo-58.png
File224=marker-rojo-67.png File224=marker-rojo-59.png
File225=marker-rojo-68.png File225=marker-rojo-6.png
File226=marker-rojo-69.png File226=marker-rojo-60.png
File227=marker-rojo-7.png File227=marker-rojo-61.png
File228=marker-rojo-70.png File228=marker-rojo-62.png
File229=marker-rojo-71.png File229=marker-rojo-63.png
File23=foto1.jpg File23=detalle_promo.bal
File230=marker-rojo-72.png File230=marker-rojo-64.png
File231=marker-rojo-73.png File231=marker-rojo-65.png
File232=marker-rojo-74.png File232=marker-rojo-66.png
File233=marker-rojo-75.png File233=marker-rojo-67.png
File234=marker-rojo-76.png File234=marker-rojo-68.png
File235=marker-rojo-77.png File235=marker-rojo-69.png
File236=marker-rojo-78.png File236=marker-rojo-7.png
File237=marker-rojo-79.png File237=marker-rojo-70.png
File238=marker-rojo-8.png File238=marker-rojo-71.png
File239=marker-rojo-80.png File239=marker-rojo-72.png
File24=foto2.jpg File24=durakelo.png
File240=marker-rojo-81.png File240=marker-rojo-73.png
File241=marker-rojo-82.png File241=marker-rojo-74.png
File242=marker-rojo-83.png File242=marker-rojo-75.png
File243=marker-rojo-84.png File243=marker-rojo-76.png
File244=marker-rojo-85.png File244=marker-rojo-77.png
File245=marker-rojo-86.png File245=marker-rojo-78.png
File246=marker-rojo-87.png File246=marker-rojo-79.png
File247=marker-rojo-88.png File247=marker-rojo-8.png
File248=marker-rojo-89.png File248=marker-rojo-80.png
File249=marker-rojo-9.png File249=marker-rojo-81.png
File25=foto3.jpg File25=durakelo1.png
File250=marker-rojo-90.png File250=marker-rojo-82.png
File251=marker-rojo-91.png File251=marker-rojo-83.png
File252=marker-rojo-92.png File252=marker-rojo-84.png
File253=marker-rojo-93.png File253=marker-rojo-85.png
File254=marker-rojo-94.png File254=marker-rojo-86.png
File255=marker-rojo-95.png File255=marker-rojo-87.png
File256=marker-rojo-96.png File256=marker-rojo-88.png
File257=marker-rojo-97.png File257=marker-rojo-89.png
File258=marker-rojo-98.png File258=marker-rojo-9.png
File259=marker-rojo-99.png File259=marker-rojo-90.png
File26=foto4.jpg File26=engrane.jpg
File260=marker-verde-0.png File260=marker-rojo-91.png
File261=marker-verde-1.png File261=marker-rojo-92.png
File262=marker-verde-10.png File262=marker-rojo-93.png
File263=marker-verde-100.png File263=marker-rojo-94.png
File264=marker-verde-11.png File264=marker-rojo-95.png
File265=marker-verde-12.png File265=marker-rojo-96.png
File266=marker-verde-13.png File266=marker-rojo-97.png
File267=marker-verde-14.png File267=marker-rojo-98.png
File268=marker-verde-15.png File268=marker-rojo-99.png
File269=marker-verde-16.png File269=marker-verde-0.png
File27=guardagestion.bal File27=engrane.png
File270=marker-verde-17.png File270=marker-verde-1.png
File271=marker-verde-18.png File271=marker-verde-10.png
File272=marker-verde-19.png File272=marker-verde-100.png
File273=marker-verde-2.png File273=marker-verde-11.png
File274=marker-verde-20.png File274=marker-verde-12.png
File275=marker-verde-21.png File275=marker-verde-13.png
File276=marker-verde-22.png File276=marker-verde-14.png
File277=marker-verde-23.png File277=marker-verde-15.png
File278=marker-verde-24.png File278=marker-verde-16.png
File279=marker-verde-25.png File279=marker-verde-17.png
File28=guna_viejo.png File28=engranes.png
File280=marker-verde-26.png File280=marker-verde-18.png
File281=marker-verde-27.png File281=marker-verde-19.png
File282=marker-verde-28.png File282=marker-verde-2.png
File283=marker-verde-29.png File283=marker-verde-20.png
File284=marker-verde-3.png File284=marker-verde-21.png
File285=marker-verde-30.png File285=marker-verde-22.png
File286=marker-verde-31.png File286=marker-verde-23.png
File287=marker-verde-32.png File287=marker-verde-24.png
File288=marker-verde-33.png File288=marker-verde-25.png
File289=marker-verde-34.png File289=marker-verde-26.png
File29=historico.bal File29=errormanager.bal
File290=marker-verde-35.png File290=marker-verde-27.png
File291=marker-verde-36.png File291=marker-verde-28.png
File292=marker-verde-37.png File292=marker-verde-29.png
File293=marker-verde-38.png File293=marker-verde-3.png
File294=marker-verde-39.png File294=marker-verde-30.png
File295=marker-verde-4.png File295=marker-verde-31.png
File296=marker-verde-40.png File296=marker-verde-32.png
File297=marker-verde-41.png File297=marker-verde-33.png
File298=marker-verde-42.png File298=marker-verde-34.png
File299=marker-verde-43.png File299=marker-verde-35.png
File3=alerta.jpg File3=alerta.jpg
File30=info_gral.resp File30=fondo_kmt.jpg
File300=marker-verde-44.png File300=marker-verde-36.png
File301=marker-verde-45.png File301=marker-verde-37.png
File302=marker-verde-46.png File302=marker-verde-38.png
File303=marker-verde-47.png File303=marker-verde-39.png
File304=marker-verde-48.png File304=marker-verde-4.png
File305=marker-verde-49.png File305=marker-verde-40.png
File306=marker-verde-5.png File306=marker-verde-41.png
File307=marker-verde-50.png File307=marker-verde-42.png
File308=marker-verde-51.png File308=marker-verde-43.png
File309=marker-verde-52.png File309=marker-verde-44.png
File31=infonavit1.jpg File31=foto.bal
File310=marker-verde-53.png File310=marker-verde-45.png
File311=marker-verde-54.png File311=marker-verde-46.png
File312=marker-verde-55.png File312=marker-verde-47.png
File313=marker-verde-56.png File313=marker-verde-48.png
File314=marker-verde-57.png File314=marker-verde-49.png
File315=marker-verde-58.png File315=marker-verde-5.png
File316=marker-verde-59.png File316=marker-verde-50.png
File317=marker-verde-6.png File317=marker-verde-51.png
File318=marker-verde-60.png File318=marker-verde-52.png
File319=marker-verde-61.png File319=marker-verde-53.png
File32=INVENTARIO (1).jpg File32=foto1.jpg
File320=marker-verde-62.png File320=marker-verde-54.png
File321=marker-verde-63.png File321=marker-verde-55.png
File322=marker-verde-64.png File322=marker-verde-56.png
File323=marker-verde-65.png File323=marker-verde-57.png
File324=marker-verde-66.png File324=marker-verde-58.png
File325=marker-verde-67.png File325=marker-verde-59.png
File326=marker-verde-68.png File326=marker-verde-6.png
File327=marker-verde-69.png File327=marker-verde-60.png
File328=marker-verde-7.png File328=marker-verde-61.png
File329=marker-verde-70.png File329=marker-verde-62.png
File33=INVENTARIO.jpg File33=foto2.jpg
File330=marker-verde-71.png File330=marker-verde-63.png
File331=marker-verde-72.png File331=marker-verde-64.png
File332=marker-verde-73.png File332=marker-verde-65.png
File333=marker-verde-74.png File333=marker-verde-66.png
File334=marker-verde-75.png File334=marker-verde-67.png
File335=marker-verde-76.png File335=marker-verde-68.png
File336=marker-verde-77.png File336=marker-verde-69.png
File337=marker-verde-78.png File337=marker-verde-7.png
File338=marker-verde-79.png File338=marker-verde-70.png
File339=marker-verde-8.png File339=marker-verde-71.png
File34=inventario.PNG File34=foto3.jpg
File340=marker-verde-80.png File340=marker-verde-72.png
File341=marker-verde-81.png File341=marker-verde-73.png
File342=marker-verde-82.png File342=marker-verde-74.png
File343=marker-verde-83.png File343=marker-verde-75.png
File344=marker-verde-84.png File344=marker-verde-76.png
File345=marker-verde-85.png File345=marker-verde-77.png
File346=marker-verde-86.png File346=marker-verde-78.png
File347=marker-verde-87.png File347=marker-verde-79.png
File348=marker-verde-88.png File348=marker-verde-8.png
File349=marker-verde-89.png File349=marker-verde-80.png
File35=itembuttonblue.png File35=foto4.jpg
File350=marker-verde-9.png File350=marker-verde-81.png
File351=marker-verde-90.png File351=marker-verde-82.png
File352=marker-verde-91.png File352=marker-verde-83.png
File353=marker-verde-92.png File353=marker-verde-84.png
File354=marker-verde-93.png File354=marker-verde-85.png
File355=marker-verde-94.png File355=marker-verde-86.png
File356=marker-verde-95.png File356=marker-verde-87.png
File357=marker-verde-96.png File357=marker-verde-88.png
File358=marker-verde-97.png File358=marker-verde-89.png
File359=marker-verde-98.png File359=marker-verde-9.png
File36=itembuttonred.png File36=guardagestion.bal
File360=marker-verde-99.png File360=marker-verde-90.png
File361=nota.bal File361=marker-verde-91.png
File362=noventa.bal File362=marker-verde-92.png
File363=nuevocliente.bal File363=marker-verde-93.png
File364=palomita_verde.png File364=marker-verde-94.png
File365=palomita_verde_original.png File365=marker-verde-95.png
File366=pedido.bal File366=marker-verde-96.png
File367=pedidoItem.bal File367=marker-verde-97.png
File368=planfia_logo.png File368=marker-verde-98.png
File369=planfia_logo_old.png File369=marker-verde-99.png
File37=kellanova.png File37=guna_viejo.png
File370=planfia_logo_old2.png File370=nota.bal
File371=principal.bal File371=noventa.bal
File372=proditem.bal File372=nuevocliente.bal
File373=productos.bal File373=palomita_verde.png
File374=productos2.bal File374=palomita_verde_original.png
File375=profina.jpg File375=pedido.bal
File376=profina.png File376=pedidoItem.bal
File377=promociones.bal File377=planfia_logo.png
File378=qr.bal File378=planfia_logo_old.png
File379=rechazo.jpg File379=planfia_logo_old2.png
File38=kellanova_borde.png File38=historico.bal
File380=rojo.png File380=principal.bal
File381=salma.jpg File381=proditem.bal
File382=salma.png File382=productos.bal
File383=senial.jpg File383=productos2.bal
File384=sync.png File384=profina.jpg
File385=tache_rojo.png File385=profina.png
File386=tache_rojo_original.png File386=promociones.bal
File387=telefonos.bal File387=qr.bal
File388=ticketsDia.bal File388=rechazo.jpg
File389=Tiendita.jpg File389=rojo.png
File39=kelloggs.png File39=info_gral.resp
File390=transporte.png File390=salma.jpg
File391=verde.png File391=salma.png
File392=vista1.png File392=senial.jpg
File393=vista2.png File393=sync.png
File394=vista3.png File394=tache_rojo.png
File395=vista4.png File395=tache_rojo_original.png
File396=WhatsApp Image 2022-11-17 at 11.50.59 AM.jpeg File396=telefonos.bal
File397=WhatsApp Image 2022-11-17 at 11.50.59 AM.jpg File397=ticketsDia.bal
File398=whatsapp.png File398=Tiendita.jpg
File399=whatsapp_original.png File399=transporte.png
File4=alerta_amarilla.png File4=alerta_amarilla.png
File40=kelloggs_chico.png File40=infonavit1.jpg
File400=WHATSTEL.jpeg File400=verde.png
File401=WHATSTEL.png File401=vista1.png
File41=kelloggs_original.png File402=vista2.png
File42=kelloggs2.jpg File403=vista3.png
File43=kelloggs2.png File404=vista4.png
File44=keymon_logo.png File405=WhatsApp Image 2022-11-17 at 11.50.59 AM.jpeg
File45=kmt.db File406=WhatsApp Image 2022-11-17 at 11.50.59 AM.jpg
File46=knv_logo_white.png File407=whatsapp.png
File47=login.bal File408=whatsapp_original.png
File48=logo sanfer.jpg File409=WHATSTEL.jpeg
File49=logo_192x192.png File41=INVENTARIO (1).jpg
File410=WHATSTEL.png
File42=INVENTARIO.jpg
File43=inventario.PNG
File44=itembuttonblue.png
File45=itembuttonred.png
File46=kellanova.png
File47=kellanova_borde.png
File48=kelloggs.png
File49=kelloggs_chico.png
File5=amarillo.png File5=amarillo.png
File50=logo_exitus1.jpg File50=kelloggs_original.png
File51=logo2.png File51=kelloggs2.jpg
File52=logo2_192x192.png File52=kelloggs2.png
File53=MainPage.bal File53=keymon_logo.png
File54=Malo.jpg File54=kmt.db
File55=mapa.bal File55=knv_logo_white.png
File56=mapa_rutas.bal File56=login.bal
File57=mapas.bal File57=logo sanfer.jpg
File58=marker-azul-0.png File58=logo_192x192.png
File59=marker-azul-1.png File59=logo_exitus1.jpg
File6=anterior.jpg File6=anterior.jpg
File60=marker-azul-10.png File60=logo2.png
File61=marker-azul-100.png File61=logo2_192x192.png
File62=marker-azul-11.png File62=MainPage.bal
File63=marker-azul-12.png File63=Malo.jpg
File64=marker-azul-13.png File64=mapa.bal
File65=marker-azul-14.png File65=mapa_rutas.bal
File66=marker-azul-15.png File66=mapas.bal
File67=marker-azul-16.png File67=marker-azul-0.png
File68=marker-azul-17.png File68=marker-azul-1.png
File69=marker-azul-18.png File69=marker-azul-10.png
File7=BLACNCO.jpg File7=BLACNCO.jpg
File70=marker-azul-19.png File70=marker-azul-100.png
File71=marker-azul-2.png File71=marker-azul-11.png
File72=marker-azul-20.png File72=marker-azul-12.png
File73=marker-azul-21.png File73=marker-azul-13.png
File74=marker-azul-22.png File74=marker-azul-14.png
File75=marker-azul-23.png File75=marker-azul-15.png
File76=marker-azul-24.png File76=marker-azul-16.png
File77=marker-azul-25.png File77=marker-azul-17.png
File78=marker-azul-26.png File78=marker-azul-18.png
File79=marker-azul-27.png File79=marker-azul-19.png
File8=carrito.png File8=cacahuates.png
File80=marker-azul-28.png File80=marker-azul-2.png
File81=marker-azul-29.png File81=marker-azul-20.png
File82=marker-azul-3.png File82=marker-azul-21.png
File83=marker-azul-30.png File83=marker-azul-22.png
File84=marker-azul-31.png File84=marker-azul-23.png
File85=marker-azul-32.png File85=marker-azul-24.png
File86=marker-azul-33.png File86=marker-azul-25.png
File87=marker-azul-34.png File87=marker-azul-26.png
File88=marker-azul-35.png File88=marker-azul-27.png
File89=marker-azul-36.png File89=marker-azul-28.png
File9=checklist.bal File9=cacahuates_blanco.png
File90=marker-azul-37.png File90=marker-azul-29.png
File91=marker-azul-38.png File91=marker-azul-3.png
File92=marker-azul-39.png File92=marker-azul-30.png
File93=marker-azul-4.png File93=marker-azul-31.png
File94=marker-azul-40.png File94=marker-azul-32.png
File95=marker-azul-41.png File95=marker-azul-33.png
File96=marker-azul-42.png File96=marker-azul-34.png
File97=marker-azul-43.png File97=marker-azul-35.png
File98=marker-azul-44.png File98=marker-azul-36.png
File99=marker-azul-45.png File99=marker-azul-37.png
FileGroup1=Default Group FileGroup1=Default Group
FileGroup10=Default Group FileGroup10=Default Group
FileGroup100=Default Group FileGroup100=Default Group
@@ -737,7 +746,16 @@ FileGroup4=Default Group
FileGroup40=Default Group FileGroup40=Default Group
FileGroup400=Default Group FileGroup400=Default Group
FileGroup401=Default Group FileGroup401=Default Group
FileGroup402=Default Group
FileGroup403=Default Group
FileGroup404=Default Group
FileGroup405=Default Group
FileGroup406=Default Group
FileGroup407=Default Group
FileGroup408=Default Group
FileGroup409=Default Group
FileGroup41=Default Group FileGroup41=Default Group
FileGroup410=Default Group
FileGroup42=Default Group FileGroup42=Default Group
FileGroup43=Default Group FileGroup43=Default Group
FileGroup44=Default Group FileGroup44=Default Group
@@ -861,7 +879,7 @@ Module6=C_Mapas
Module7=C_Nota Module7=C_Nota
Module8=C_NoVenta Module8=C_NoVenta
Module9=C_NuevoCliente Module9=C_NuevoCliente
NumberOfFiles=401 NumberOfFiles=410
NumberOfLibraries=29 NumberOfLibraries=29
NumberOfModules=29 NumberOfModules=29
Version=12.8 Version=12.8
@@ -869,7 +887,7 @@ Version=12.8
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Kelloggs Venta #ApplicationLabel: Kelloggs Venta
#VersionCode: 3000 #VersionCode: 3000
#VersionName: 4.05.05 #VersionName: 4.05.08
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False
#BridgeLogger:true #BridgeLogger:true

4
B4A/KelloggsV4.b4a.meta
View File

@@ -88,6 +88,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=kms_helperSubs,etiquetaCentrada,574,0,Main,Process_Globals,22,0,Visual Designer,cliente.bal,-100,1,Visual Designer,pedidoItem.bal,-100,1,C_Productos,clv_prods_ll_VisibleRangeChanged,1170,6,C_Productos,cuentaProds,809,6,C_Productos,et_pCant_TextChanged,755,0,C_Cliente,B_IMP2_Click,1087,0,C_Productos,b_prodMas_Click,670,6,C_Productos,LlenaProdsLL,1295,6,C_Principal,B_OK_PAS_Click,2223,0 NavigationStack=C_Cliente,B_IMP2_Click,1101,0,C_Cliente,Imprime_ticket,1565,6,C_Cliente,Bt_GuardarBoleta_Click,3674,0,C_Principal,SUBIR_INFO_PEDIDO,2841,1,C_Cliente,b_inicioFinVenta_Click,4212,3,C_NoVenta,Class_Globals,1,0,Visual Designer,principal.bal,-100,3,Visual Designer,noventa.bal,-100,1,C_NoVenta,GUARDA_Click,85,1,Subs,bitacora,1704,6
SelectedBuild=0 SelectedBuild=0
VisibleModules=1,27,11,3,12,4,28,17,23,29,7 VisibleModules=1,27,11,3,12,4,28,29,8

8
B4A/Subs.bas
View File

@@ -1694,9 +1694,11 @@ Sub bitacora(fechab As String, usuariob As String, almacenb As String, rutab As
If eventob <> "Termina Venta" Then If eventob <> "Termina Venta" Then
cmd.Name = "mandaBitacora3" cmd.Name = "mandaBitacora3"
Log("BITACORA3") Log("BITACORA3")
Log($"'${almacenb}', '${usuariob}', '${rutab}', '${eventob}', '${clienteb}', '${traeNombreCliente(clienteb)}','${ iniciob}', '${finb}','${ latitudb}','${ longitudb}', '${precision}', '${motivonoventa}', '${motivonovisita}', '${fechab}'"$) Private nombreCliente As String = traeNombreCliente(clienteb)
' TMP_ALMACEN, TMP_USUARIO, TMP_RUTA, TMP_EVENTO, TMP_ID_CLIENTE, TMP_NOMBRE_CLIENTE, TMP_INICIO, TMP_FINAL, TMP_LATITUD, TMP_LONGITUD, TMP_PRESICION, TMP_MOTIVO_NO_VENTA, TMP_MOTIVO_NO_VISITA, TMP_FECHA_SINC If eventob = "Llega a almacen" Then nombreCliente = "BOLETA"
cmd.Parameters = Array As Object(almacenb, usuariob, rutab, eventob, clienteb, traeNombreCliente(clienteb), iniciob, finb, latitudb, longitudb, precision, motivonoventa, motivonovisita, fechab) Log($"'${almacenb}', '${usuariob}', '${rutab}', '${eventob}', '${clienteb}', '${nombreCliente}','${ iniciob}', '${finb}','${ latitudb}','${ longitudb}', '${precision}', '${motivonoventa}', '${motivonovisita}', '${fechab}'"$)
' TMP_ALMACEN, TMP_USUARIO, TMP_RUTA, TMP_EVENTO, TMP_ID_CLIENTE, TMP_NOMBRE_CLIENTE, TMP_INICIO, TMP_FINAL, TMP_LATITUD, TMP_LONGITUD, TMP_PRESICION, TMP_MOTIVO_NO_VENTA, TMP_MOTIVO_NO_VISITA, TMP_FECHA_SINC, TMP_FECHA_MOVIL
cmd.Parameters = Array As Object(almacenb, usuariob, rutab, eventob, clienteb, nombreCliente, iniciob, finb, latitudb, longitudb, precision, motivonoventa, motivonovisita, fechab)
Starter.reqManager.ExecuteCommand(cmd , "mandaBitacora") Starter.reqManager.ExecuteCommand(cmd , "mandaBitacora")
Else Else
Private e As Cursor = Starter.skmt.ExecQuery($"select fechab from BITACORAGPS where usuariob = '${usuariob}' and almacenb = '${almacenb}' and rutab = '${rutab}' and clienteb = '${clienteb}' and eventob = 'Inicia Venta' order by fechab desc"$) Private e As Cursor = Starter.skmt.ExecQuery($"select fechab from BITACORAGPS where usuariob = '${usuariob}' and almacenb = '${almacenb}' and rutab = '${rutab}' and clienteb = '${clienteb}' and eventob = 'Inicia Venta' order by fechab desc"$)