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

- Se activó el código para enviar las encuestas al final del día.

Browse Source 
- Se corrigio la declaracion del tipo de venta (Starter.tipov) porque no se veian los productos.
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-05-25 01:26:15 -06:00
parent f42c1aa809
commit f3a9cac35a
7 changed files with 32 additions and 102 deletions
Download Patch File Download Diff File Expand all files Collapse all files

105
B4A/C_Principal.bas
View File

@@ -481,18 +481,12 @@ Sub trabajar_Click
c.Close
skmt.ExecNonQuery("delete from CAT_GUNAPROD WHERE CAT_GP_CLASIF NOT IN (" & MARCASQ &")" )
' skmt.ExecNonQuery("delete from CAT_GUNAPROD2 WHERE CAT_GP_ID IN (SELECT CAT_DP_ID FROM CAT_DETALLES_PAQ WHERE CAT_DP_IDPROD NOT IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD2) and CAT_DP_TIPO = 0)")
' StartActivity(colonia)
B4XPages.ShowPage("Clientes")
End If
End If
End Sub
Sub Subir_Click
Awake.KeepAlive(True)
CARGA = "SUBIR"
@@ -534,7 +528,6 @@ Sub Subir_Click
E1=skmt.ExecQuery2("Select count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("ABORDO"))
E1.Position = 0
If E1.GetString("CUANTOS") > 0 Then
c=skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_TIPO = ?", Array As String("ABORDO"))
c.Position = 0
L_ABORDO.Text = c.GetString("MONTO_DIA")
@@ -543,19 +536,16 @@ Sub Subir_Click
L_ABORDO.Text = 0
End If
E1.Close
c=skmt.ExecQuery2("select count(*) AS CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL"))
c.Position =0
PERFIL = c.GetString("CUANTOS")
c.Close
If PERFIL > 0 Then
c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL"))
c.Position =0
PERFIL = c.GetString("CAT_VA_VALOR")
c.Close
End If
c=skmt.ExecQuery2("select count(*) AS CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("NUMERO_PEDIDO"))
c.Position =0
Cuantos = c.GetString("CUANTOS")
@@ -569,7 +559,6 @@ Sub Subir_Click
NUMERO_PEDIDO = 0
End If
skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE not In (select PE_CLIENTE from pedido)")
c=skmt.ExecQuery("select usuario from usuarioa")
c.Position = 0
usuario = c.GetString("USUARIO")
@@ -635,23 +624,24 @@ Sub Subir_Click
Next
c.Close
End If
' c=skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA")
' ' S_CP.Text = "Envio Encuesta"
' ' PB2.Progress = 1
' If c.RowCount>0 Then
' For i=0 To c.RowCount -1
' c.Position=i
' Dim cmd As DBCommand
' cmd.Initialize
' cmd.Name = "insert_encuesta_DUR"
' cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"), c.GetString("HE_TIPO"),l_ruta.Text )
' reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
' Next
' End If
' c.Close
' ' PEDIO
'ENCUESTAS
c=skmt.ExecQuery("SELECT * FROM HIST_ENCUESTA")
' S_CP.Text = "Envio Encuesta"
' PB2.Progress = 1
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_encuesta_DUR"
cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"), c.GetString("HE_TIPO"),l_ruta.Text )
reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
Next
End If
c.Close
' ' PEDIDO
skmt.ExecNonQuery("update PEDIDO set PE_FOLIO = rowid ")
If PERFIL = "V-ESPECIAL" Then
@@ -916,6 +906,7 @@ Sub cargar_Click
cmd.Initialize
cmd.Name = "select_cat_gunaprod2_DUR"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.Text)
log(ALMACEN & "|" & e_ruta.Text)
reqManager.ExecuteQuery(cmd , 0, "gunaprod2")
cmd.Initialize
@@ -2321,7 +2312,6 @@ Sub Resumen_Click
trabajar.Visible = False
B_PROXIMA.Visible =False
Btn_UbicarR.Visible=False
NUEVO.Visible =False
BUSCA.Visible=False
connecta.Visible=False
@@ -2329,19 +2319,16 @@ Sub Resumen_Click
SUBIR_P.Visible = False
cargar.Visible=False
Resumen.Visible= False
Private r As ResultSet = Starter.skmt.ExecQuery($"Select CAT_GP_CLASIF, PEDIDO.* from pedido join cat_gunaprod on PE_PROID = CAT_GP_ID where CAT_GP_CLASIF = 'COLGATE'"$)
Private cRes As String = 0
Do While r.NextRow
cRes = cRes + r.GetString("PE_COSTO_TOT")
Loop
l_montoColgateResumen.Text = NumberFormat2(cRes, 1, 2, 2, True)
b=skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente where pc_cliente <> 0")
b.Position=0
Cuantos = b.GetString("CUANTOS")
ToastMessageShow(Cuantos , True)
d=skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0 and cat_cl_codigo <> 0")
D.Position=0
b.Close
@@ -2404,29 +2391,23 @@ Sub Resumen_Click
l_monto_kc.Text = c.GetString("MONTO_DIA")
c.Close
Log("Cereal=" & l_monto_kc.text)
Else
ImageView12.Bitmap = LoadBitmap(File.DirAssets, "unilever.jpg")
c=skmt.ExecQuery2("select sum(pe_cant) as CAMBIOS from pedido where substr(pe_pronombre,1,6) = ?", Array As String("CAMBIO"))
c.Position = 0
l_cambios.Text = c.GetString("CAMBIOS")
c.Close
c=skmt.ExecQuery("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod where CAT_GP_CLASIF = 'UNILEVER' union Select CAT_GP_ID from cat_gunaprod2 where CAT_GP_CLASIF = 'UNILEVER')")
c.Position = 0
l_monto_k.Text = c.GetString("MONTO_DIA")
c.Close
l_monto_kp.Text = "0"
l_monto_ks.Text = "0"
End If
Log($"${l_monto_k.text}, ${l_monto_kp.text}, ${l_monto_ks.text}"$)
E1=skmt.ExecQuery2("Select count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("VENTA"))
E1.Position = 0
If E1.GetString("CUANTOS") > 0 Then
c=skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_TIPO = ?", Array As String("VENTA"))
c.Position = 0
L_VENTA.Text = c.GetString("MONTO_DIA")
@@ -2435,11 +2416,9 @@ Sub Resumen_Click
L_VENTA.Text = 0
End If
E1.Close
E1=skmt.ExecQuery2("Select count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("PREVENTA"))
E1.Position = 0
If E1.GetString("CUANTOS") > 0 Then
c=skmt.ExecQuery2("Select ifnull(sum(PE_COSTO_TOT), 0) As MONTO_DIA from pedido where PE_TIPO = ?", Array As String("PREVENTA"))
c.Position = 0
L_PREVENTA.Text = NumberFormat2(c.GetString("MONTO_DIA"), 1, 2, 2, True)
@@ -2448,8 +2427,6 @@ Sub Resumen_Click
L_PREVENTA.Text = 0
End If
E1.Close
E1=skmt.ExecQuery2("Select count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("ABORDO"))
E1.Position = 0
If E1.GetString("CUANTOS") > 0 Then
@@ -2462,12 +2439,10 @@ Sub Resumen_Click
L_ABORDO.Text = 0
End If
E1.Close
' c=skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod where (CAT_GP_CLASIF = ? Or CAT_GP_CLASIF = ?) And CAT_GP_TIPO = ?)", Array As String("KELLOGGS", "KELLOGGS 2","SNACK"))
' c.Position = 0
' l_monto_ks.Text = c.GetString("MONTO_DIA")
' c.Close
c=skmt.ExecQuery("select sum(pc_monto) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA from pedido_cliente where pc_cliente <> 0")
b=skmt.ExecQuery("select count(*) as CUANTOS from noventa")
'where pc_fecha = ?", Array As String(fecha)
@@ -2498,12 +2473,9 @@ Sub Resumen_Click
Else
ImageView5.Bitmap = LoadBitmap(File.DirAssets, "palomita_verde.png")
End If
c.Close
b.Close
End If
End Sub
Sub B_PROXIMA_Click
@@ -2514,8 +2486,6 @@ Sub B_PROXIMA_Click
' StartActivity(colonia2)
End Sub
Sub Timer_GIF1_Tick
Timer_GIF1.Enabled = False
Frame1 = Frame1 + 1
@@ -2528,36 +2498,23 @@ Sub Timer_GIF1_Tick
End Sub
Sub load_gif
gif1.DisposeFrames
gif1.Load(ruta, "espera.gif")
Frame1 = 0
Timer_GIF1.Interval = gif1.Delay(Frame1)
i_gif.Bitmap = gif1.Frame(Frame1)
Timer_GIF1.Initialize("TG", 40) ' 1000 = 1 second
Timer_GIF1.Enabled = True
gif1.SaveFrame(0, ruta, "frame1.png", "P", 85)
gif1.SaveFrame(0, ruta, "frame1.jpg", "J", 85)
End Sub
Sub VALIDA_INFO
cmd.Initialize
cmd.Name = "select_datos_enviados_pe"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.Text)
reqManager.ExecuteQuery(cmd , 0, "pedido_env")
PASO_info = 0
For I = 0 To 2
T3.Initialize("T3", 8000) ' 1000 = 1 second
T3.Enabled = True
@@ -2566,7 +2523,6 @@ Sub VALIDA_INFO
I = 0
End If
Next
End Sub
@@ -2578,16 +2534,15 @@ Sub B_MARCAS_Click
pnlTitle.LoadLayout("CellTitle")
c=skmt.ExecQuery("Select CAT_GP_CLASIF, SUM(TOTAL) AS TOTAL FROM TOTAL_MARCAS GROUP BY CAT_GP_CLASIF")
CLV1.Clear
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
AddTitle(c.GetString("CAT_GP_CLASIF"))
CLV1.AddTextItem("TOTAL VENTA Y PREVENTA = $" & c.GetString("TOTAL"),"1")
Next
End If
End Sub
Sub AddTitle (Title As String)
Dim p_MARCAS As B4XView = xui.CreatePanel("")
p_MARCAS.SetLayoutAnimated(0, 0, 0, CLV1.AsView.Width, TitleHeight)
@@ -2598,10 +2553,8 @@ Sub AddTitle (Title As String)
CLV1.Add(p_MARCAS, td)
End Sub
Sub B_OK_PANEL5_Click
Panel5.Visible = False
End Sub
Sub e_ruta_TextChanged (Old As String, New As String)
@@ -2633,13 +2586,11 @@ Sub SUBIR_P_Click
trabajar.Visible = False
B_PROXIMA.Visible =False
Btn_UbicarR.Visible=False
NUEVO.Visible =False
BUSCA.Visible=False
connecta.Visible=False
Subir.Visible=False
SUBIR_P.Visible = False
cargar.Visible=False
L_P_1.Visible = False
S_CC.Visible = False
@@ -2647,7 +2598,6 @@ Sub SUBIR_P_Click
S_CH.Visible = False
PB1.Visible = False
Resumen.Visible= False
L_P_2.Text = "Envio de Pedidos"
L_P_3.Text = "Envio de Pedidos"
S_CH.Text = "EN PROCESO"
@@ -2658,14 +2608,12 @@ Sub SUBIR_P_Click
conteo = 0
'i_gif.Visible = True
' load_gif
PASO = 1
'End If
If PASO =1 Then
E1=skmt.ExecQuery2("Select count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("ABORDO"))
E1.Position = 0
If E1.GetString("CUANTOS") > 0 Then
c=skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_TIPO = ?", Array As String("ABORDO"))
c.Position = 0
L_ABORDO.Text = c.GetString("MONTO_DIA")
@@ -2674,10 +2622,7 @@ Sub SUBIR_P_Click
L_ABORDO.Text = 0
End If
E1.Close
skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE not In (select PE_CLIENTE from pedido)")
c=skmt.ExecQuery("select usuario from usuarioa")
c.Position = 0
usuario = c.GetString("USUARIO")
@@ -2696,12 +2641,8 @@ Sub SUBIR_P_Click
reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
d3.Close
cuantos_pedidosc = 0
' PEDIO
skmt.ExecNonQuery("update PEDIDO set PE_FOLIO = rowid ")
'
' c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FOLIO"))
' c.Position =0
@@ -2730,8 +2671,6 @@ Sub SUBIR_P_Click
' cmd.Parameters = Array As Object(armafolio,l_ruta.Text , "1")
' reqManager.ExecuteQuery(cmd , 0, "folio")
c=skmt.ExecQuery("SELECT PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO,PE_TIPO FROM PEDIDO WHERE PE_CLIENTE = 0")
d=skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO WHERE PE_CLIENTE = 0")
d.Position=0
@@ -2740,7 +2679,6 @@ Sub SUBIR_P_Click
For i=0 To c.RowCount -1
c.Position=i
TIEMPO = TIEMPO + 1
If TIEMPO > 20 Then
If L_P_2.Text = "Envio de Pedidos" Then
L_P_2.Text = "Envio de Pedidos --"
@@ -2757,7 +2695,6 @@ Sub SUBIR_P_Click
T3.Enabled = True
Wait For t3_tick
TIEMPO = 0
End If
conteo = conteo + 1
cuantos_ped = D.GetString("CUANTOS_PEDIDO")
@@ -2767,7 +2704,6 @@ Sub SUBIR_P_Click
cmd.Name = "insert_pedido_DUR"
cmd.Parameters = Array As Object(C.GetString("PE_CEDIS"),ALMACEN,C.GetString("PE_COSTO_TOT"),C.GetString("PE_COSTOU"),C.GetString("PE_CANT"),C.GetString("PE_PRONOMBRE"),C.GetString("PE_PROID"),C.GetString("PE_CLIENTE"),C.GetString("PE_FECHA"),C.GetString("PE_USUARIO"),C.GetString("PE_RUTA"), C.GetString("PE_COSTO_SIN"),C.GetString("PE_DESC"),c.GetString("PE_FOLIO"), c.GetString("PE_TIPO"))
reqManager.ExecuteQuery(cmd , 0, "ins_pedido")
Next
c.Close
End If
@@ -2791,7 +2727,6 @@ Sub b_e_resumen_Click
' reqManager.ExecuteCommand(cmd,"inst_visitas")
End Sub
'Revisa si el cliente tiene venta o No venta y si es así modifica gestion en kmt_info
Sub checaPedido
Private c As Cursor = Starter.skmt.ExecQuery("SELECT PC_CLIENTE FROM PEDIDO_CLIENTE")