mirror of
https://github.com/KeymonSoft/Guna_Preventa_BAT.git
synced 2026-04-20 22:29:30 +00:00
version 6.02.10
This commit is contained in:
cvaldes1201
@@ -251,6 +251,17 @@ Sub Class_Globals
|
||||
Private l_preventa As Label
|
||||
Private l_preacordada As Label
|
||||
Private l_prevtotal As Label
|
||||
Private Label13 As Label
|
||||
Private Label19 As Label
|
||||
Private Label21 As Label
|
||||
Private Label33 As Label
|
||||
Private Label35 As Label
|
||||
Private Label43 As Label
|
||||
Private Label51 As Label
|
||||
Private l_faltan As Label
|
||||
Private l_visitas As Label
|
||||
Private l_visitartotal As Label
|
||||
Private de As Label
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -439,11 +450,20 @@ Sub B4XPage_Appear
|
||||
f.Close
|
||||
If l_ruta.Text = 0 Then
|
||||
l_ruta.Text =0
|
||||
l_visitas.Text = 0
|
||||
l_faltan.Text = 0
|
||||
Else
|
||||
f=B4XPages.MainPage.skmt.ExecQuery("select distinct CAT_CL_RUTA from kmt_info3 where CAT_CL_RUTA not in (select * from ruta_suplencia)")
|
||||
f.Position=0
|
||||
l_ruta.Text = f.GetString("CAT_CL_RUTA")
|
||||
f.Close
|
||||
|
||||
Dim totalcisitas As Cursor = Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUENTA FROM KMT_INFO3 where cat_cl_codigo <> 0")
|
||||
totalcisitas.Position = 0
|
||||
l_visitas.Text = totalcisitas.GetInt("CUENTA")
|
||||
Dim visitasfaltantes As Cursor = Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUENTA FROM KMT_INFO3 WHERE gestion = 0 and cat_cl_codigo <> 0")
|
||||
visitasfaltantes.Position = 0
|
||||
l_faltan.Text = visitasfaltantes.GetInt("CUENTA")
|
||||
End If
|
||||
If Cuantos = 0 Then
|
||||
L_MONTOD.Text =0
|
||||
@@ -635,6 +655,10 @@ Sub Subir_Click
|
||||
S_CH.Visible = False
|
||||
PB1.Visible = False
|
||||
Resumen.Visible= False
|
||||
l_visitartotal.Visible = False
|
||||
de.Visible = False
|
||||
l_faltan.Visible = False
|
||||
l_visitas.Visible = False
|
||||
|
||||
p_principal.Visible = False
|
||||
Subs.panelVisible(P1, 0, 0)
|
||||
@@ -736,6 +760,34 @@ Sub Subir_Click
|
||||
End If
|
||||
c.Close
|
||||
|
||||
c=Starter.skmt.ExecQuery("SELECT CN_ID, CN_FECHA , CN_USER, CN_LAT, CN_LON, CN_NOMBRE, CN_DIRECCION, CN_FOTO, CN_ALMACEN, CN_RUTA, CN_GIRO, CN_SOLICITA, CN_COLONIA, CN_TELEFONO, CN_CP FROM CLIENTES_NUEVOS")
|
||||
If c.RowCount>0 Then
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position = i
|
||||
Dim dia As Int = DateTime.GetDayOfWeek(DateTime.Now)
|
||||
If dia = 2 Then
|
||||
Dim dialetra As String = "LUNES"
|
||||
Else If dia = 3 Then
|
||||
Dim dialetra As String = "MARTES"
|
||||
Else If dia = 4 Then
|
||||
Dim dialetra As String = "MIERCOLES"
|
||||
Else If dia = 5 Then
|
||||
Dim dialetra As String = "JUEVES"
|
||||
Else If dia = 6 Then
|
||||
Dim dialetra As String = "VIERNES"
|
||||
Else If dia = 7 Then
|
||||
Dim dialetra As String = "SABADO"
|
||||
End If
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_clientesnuevos_GUNA"
|
||||
Log(c.GetString("CN_ID")&" ,"& c.GetString("CN_FECHA")&" ,"& c.GetString("CN_USER")&" ,"& c.GetString("CN_LAT")&" ,"& c.GetString("CN_LON")&" ,"& c.GetString("CN_NOMBRE")&" ,"& c.GetString("CN_DIRECCION")&" ,"&ALMACEN& c.GetString("CN_RUTA")&" ,"& "En espera"&c.GetString("CN_GIRO")&" ,"&dialetra& c.GetString("CN_SOLICITA")&" ,"& c.GetString("CN_COLONIA")&" ,"& c.GetString("CN_TELEFONO"))
|
||||
cmd.Parameters = Array As Object(c.GetString("CN_ID"), c.GetString("CN_FECHA"), c.GetString("CN_USER"), c.GetString("CN_LAT"), c.GetString("CN_LON"), c.GetString("CN_NOMBRE"), c.GetString("CN_DIRECCION"),ALMACEN, c.GetString("CN_RUTA"), "En espera",c.GetString("CN_GIRO"),dialetra, c.GetString("CN_SOLICITA"), c.GetString("CN_COLONIA"), c.GetString("CN_TELEFONO"), c.GetString("CN_CP"))
|
||||
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_clientesn")
|
||||
Next
|
||||
End If
|
||||
c.Close
|
||||
|
||||
Dim fotomostrar1 As Cursor = Starter.skmt.ExecQuery("SELECT * FROM kmt_info3 where foto is not NULL")
|
||||
If fotomostrar1.RowCount>0 Then
|
||||
For i=0 To fotomostrar1.RowCount -1
|
||||
@@ -780,6 +832,21 @@ Sub Subir_Click
|
||||
End If
|
||||
c.Close
|
||||
|
||||
' UPDATE VENTA CREDITO
|
||||
'' UPDATE GUNA.CAT_CLIENTES SET CAT_CL_CTA = (?) WHERE cat_cl_codigo = (?) AND CAT_CL_IDALMACEN = (?) AND CAT_CL_RUTA = (?)
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("Select * from CODIGOS_CREDITO where BANDERA = 1")
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "update_ventacredito_guna"
|
||||
cmd.Parameters = Array As Object(C.GetString("BANDERA"),C.GetString("CLIENTE"),ALMACEN,Subs.traeRuta2(C.GetString("CLIENTE")))
|
||||
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "up_coordenadas")
|
||||
Next
|
||||
End If
|
||||
c.Close
|
||||
|
||||
' Cambio TELEFONO
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("Select CAT_CL_TELEFONO, CAT_CL_CODIGO from kmt_info3 where CAT_CL_CODIGO IN (SELECT CLIENTE FROM ATIENDE)")
|
||||
If c.RowCount>0 Then
|
||||
@@ -1081,10 +1148,31 @@ Sub cargar_Click
|
||||
cp.Position = 0
|
||||
Private fecha As String = cp.GetString("PE_FECHA")
|
||||
Dim fecha2() As String = Regex.Split("/",fecha)
|
||||
Dim dia As String = fecha2(1)
|
||||
Dim fecha5() As String = Regex.Split("\:",fecha2(2))
|
||||
Dim dia As String = fecha5(0).SubString2(0,4)&fecha2(0)&fecha2(1)
|
||||
Log(fecha5(0))
|
||||
Log(dia)
|
||||
Dim dia2 As String = DateTime.GetDayOfMonth(DateTime.Now)
|
||||
Dim mescom As String = DateTime.GetMonth(DateTime.Now)
|
||||
Dim mescom2 As String
|
||||
If mescom.Length = 1 Then
|
||||
mescom2 = "0"&DateTime.GetMonth(DateTime.Now)
|
||||
Else
|
||||
mescom2 = DateTime.GetMonth(DateTime.Now)
|
||||
End If
|
||||
|
||||
Dim diacom As String = DateTime.GetDayOfMonth(DateTime.Now)
|
||||
Log(DateTime.GetMonth(DateTime.Now))
|
||||
Dim diacom2 As String
|
||||
If diacom.Length = 1 Then
|
||||
diacom2 = "0"&DateTime.GetDayOfMonth(DateTime.Now)
|
||||
Else
|
||||
diacom2 = DateTime.GetDayOfMonth(DateTime.Now)
|
||||
End If
|
||||
|
||||
|
||||
Dim dia2 As String = DateTime.GetYear(DateTime.Now)&mescom2&diacom2
|
||||
Log(dia & " , " & dia2)
|
||||
Log("SI PASO")
|
||||
If dia < dia2 Then
|
||||
pedidodiaanterior = True
|
||||
End If
|
||||
@@ -1132,7 +1220,10 @@ Sub cargar_Click
|
||||
l_ruta.Visible = False
|
||||
Label22.Visible = False
|
||||
l_rutasuplencia.Visible = False
|
||||
|
||||
l_visitartotal.Visible = False
|
||||
de.Visible = False
|
||||
l_faltan.Visible = False
|
||||
l_visitas.Visible = False
|
||||
' trabajar.Visible = False
|
||||
NUEVO.Visible =False
|
||||
BUSCA.Visible=False
|
||||
@@ -1217,6 +1308,10 @@ Sub cargar_Click
|
||||
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "tipoVenta")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_GIRO_GUNA"
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "giro")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_coments_GUNA"
|
||||
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
|
||||
@@ -1226,11 +1321,17 @@ Sub cargar_Click
|
||||
' cmd.Name = "select_fotos_guna"
|
||||
' cmd.Parameters = Array As Object(e_ruta.text,ALMACEN)
|
||||
' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "FOTO")
|
||||
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "traeFechaFotosGuna"
|
||||
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "traeFechaFotosGuna")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "traecodigosGUNA"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "traecodigos")
|
||||
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_gunaprod_GV2"
|
||||
@@ -1293,22 +1394,22 @@ Sub cargar_Click
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "promoesp")
|
||||
|
||||
End If
|
||||
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_paquetess_GV2"
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "gunaprodp")
|
||||
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_detallepa_GV2"
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "detallepaq")
|
||||
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_clientes2_guna_GV2" '########################## CODIGO PARA CREDITOS ####################
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
|
||||
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_preventa_futura"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
||||
@@ -1318,7 +1419,7 @@ Sub cargar_Click
|
||||
cmd.Name = "select_hist_datos_GV2_3"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,e_ruta.text, ALMACEN)
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_datos")
|
||||
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_hist_promos_GV2"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
||||
@@ -1528,77 +1629,38 @@ Sub JobDone(Job As HttpJob)
|
||||
If RESULT.Tag = "FOTO" Then 'query tag
|
||||
' B4XPages.MainPage.skmt.ExecNonQuery("delete from ABONOSP")
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim CODIGO As String = records(RESULT.Columns.Get("CAT_CL_CODIGO"))
|
||||
Dim FOTO() As Byte = records(RESULT.Columns.Get("CAT_CL_FOTO"))
|
||||
|
||||
|
||||
Dim CODIGO As String = records(RESULT.Columns.Get("CAT_CL_FOTO"))
|
||||
Dim FOTOS As String = records(RESULT.Columns.Get("CAT_CL_CLIENTE"))
|
||||
Dim BANDERA As String = records(RESULT.Columns.Get("CAT_CL_BFOTO"))
|
||||
Dim FECHA1 As String = records(RESULT.Columns.Get("CAT_CL_FOTO_FECHA"))
|
||||
|
||||
Dim fot As Cursor = Starter.skmt.ExecQuery($"SELECT * FROM FOTOS WHERE CLIENTE = '${CODIGO}'"$)
|
||||
If fot.RowCount = 0 Then
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO FOTOS(CLIENTE,FOTO,MOVIMIENTO, FECHA) VALUES (?,?,?,?)", Array As Object (CODIGO, FOTO, BANDERA, FECHA1))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO FOTOS(CLIENTE,FOTO,MOVIMIENTO) VALUES (?,?,?)", Array As Object (CODIGO, FOTOS,BANDERA))
|
||||
Else
|
||||
fot.Position = 0
|
||||
If fot.GetString("MOVIMIENTO") > BANDERA Then
|
||||
Starter.skmt.ExecNonQuery2("UPDATE FOTOS SET FOTO = ?, MOVIMIENTO = ? IN (SELECT CUENTA FROM CUENTAA)",Array As Object(FOTO, BANDERA))
|
||||
Starter.skmt.ExecNonQuery2("UPDATE FOTOS SET FOTO = ?, MOVIMIENTO = ? IN (SELECT CUENTA FROM CUENTAA)",Array As Object(FOTOS, BANDERA))
|
||||
End If
|
||||
End If
|
||||
|
||||
'Si la fecha de la foto en web es diferente a la fecha de la foto en movil, la descargamos
|
||||
' Private tf As Cursor = Starter.skmt.ExecQuery($"select fecha from FOTOS where cliente = '${CODIGO}'"$)
|
||||
' Log($"FECHA FOTO WEB: ${FECHA1}"$)
|
||||
' If tf.RowCount > 0 Then
|
||||
' cmd.Initialize
|
||||
' Log(tf.GetString("FECHA"))
|
||||
' tf.Position = 0
|
||||
' cmd.Name = "traeFotoGuna"
|
||||
' cmd.Parameters = Array As Object(ALMACEN, Subs.traeRuta, CODIGO)
|
||||
'' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, $"traeFotoGuna_${CAT_CL_CODIGO}"$)
|
||||
' Log($"==>> traeFotoGuna_${CODIGO}"$)
|
||||
' Else
|
||||
' cmd.Name = "traeFotoGuna"
|
||||
' cmd.Parameters = Array As Object(ALMACEN, Subs.traeRuta, CODIGO)
|
||||
'' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, $"traeFotoGuna_${CAT_CL_CODIGO}"$)
|
||||
' Log($"==>> traeFotoGuna_${CODIGO}"$)
|
||||
' End If
|
||||
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "traeFechaFotosGuna" Then 'query tag
|
||||
Subs.logJobDoneResultados(RESULT)
|
||||
' B4XPages.MainPage.skmt.ExecNonQuery("delete from ABONOSP")
|
||||
If RESULT.Tag = "giro" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Private fecha As String = records(RESULT.Columns.Get("CAT_CL_FOTO_FECHA"))
|
||||
Private CLIENTE As String = records(RESULT.Columns.Get("CAT_CL_CODIGO"))
|
||||
Private f As Cursor = Starter.skmt.ExecQuery($"select * from fotos where cliente = '${CLIENTE}' and fecha = '${fecha}'"$)
|
||||
Log("==> EXISTE LA FOTO:" & f.RowCount)
|
||||
If f.RowCount = 0 Then
|
||||
cmd.Initialize
|
||||
cmd.Name = "traeFotoGuna"
|
||||
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, CLIENTE)
|
||||
Log("BUSCAMOS FOTO: " & ALMACEN &"|" & e_ruta.text & "|" & CLIENTE)
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, $"traeFotoGuna_${CLIENTE}"$)
|
||||
Log($"==>> traeFotoGuna_${CLIENTE}"$)
|
||||
End If
|
||||
Dim giro As String = records(RESULT.Columns.Get("CAT_GR_DESCRIPCION"))
|
||||
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_GIRO(GIRO) VALUES (?)", Array As Object (giro))
|
||||
Next
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag.As(String).Contains("traeFotoGuna_") Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Private FOTO() As Byte = records(RESULT.Columns.get("CAT_CL_FOTO"))
|
||||
Private CLIENTE As String = records(RESULT.Columns.Get("CAT_CL_CODIGO"))
|
||||
Private fecha As String = records(RESULT.Columns.Get("CAT_CL_FOTO_FECHA"))
|
||||
Starter.skmt.ExecNonQuery($"DELETE from FOTOS where CLIENTE = '${CLIENTE}'"$)
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO FOTOS(CLIENTE,FOTO,FECHA) VALUES (?,?,?)", Array As Object (CLIENTE,FOTO,fecha))
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "select_abonosp" Then 'query tag
|
||||
@@ -1634,6 +1696,102 @@ Sub JobDone(Job As HttpJob)
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "traeFechaFotosGuna" Then 'query tag
|
||||
Subs.logJobDoneResultados(RESULT)
|
||||
' B4XPages.MainPage.skmt.ExecNonQuery("delete from ABONOSP")
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Private fecha As String = records(RESULT.Columns.Get("CAT_CL_FOTO_FECHA"))
|
||||
Private CLIENTE As String = records(RESULT.Columns.Get("CAT_CL_CODIGO"))
|
||||
Private f As Cursor = Starter.skmt.ExecQuery($"select * from fotos where cliente = '${CLIENTE}' and fecha = '${fecha}'"$)
|
||||
Log("==> EXISTE LA FOTO:" & f.RowCount)
|
||||
If f.RowCount = 0 Then
|
||||
cmd.Initialize
|
||||
cmd.Name = "traeFotoGuna"
|
||||
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, CLIENTE)
|
||||
Log("BUSCAMOS FOTO: " & ALMACEN &"|" & e_ruta.text & "|" & CLIENTE)
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, $"traeFotoGuna_${CLIENTE}"$)
|
||||
Log($"==>> traeFotoGuna_${CLIENTE}"$)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
' CLIENTES NUEVOS
|
||||
' Dim fotocn() As Byte
|
||||
' Dim Dirp As String = File.DirInternal
|
||||
' Dim Dir As String
|
||||
' Dim Dir2 As String
|
||||
' Dir = "/promotoriakmts"
|
||||
|
||||
c=Starter.skmt.ExecQuery("SELECT CN_ID, CN_FECHA , CN_USER, CN_LAT, CN_LON, CN_NOMBRE, CN_DIRECCION, CN_FOTO, CN_ALMACEN, CN_RUTA, CN_GIRO, CN_SOLICITA, CN_COLONIA, CN_TELEFONO, CN_CP FROM CLIENTES_NUEVOS")
|
||||
If c.RowCount>0 Then
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position = i
|
||||
Dim dia As Int = DateTime.GetDayOfWeek(DateTime.Now)
|
||||
If dia = 2 Then
|
||||
Dim dialetra As String = "LUNES"
|
||||
Else If dia = 3 Then
|
||||
Dim dialetra As String = "MARTES"
|
||||
Else If dia = 4 Then
|
||||
Dim dialetra As String = "MIERCOLES"
|
||||
Else If dia = 5 Then
|
||||
Dim dialetra As String = "JUEVES"
|
||||
Else If dia = 6 Then
|
||||
Dim dialetra As String = "VIERNES"
|
||||
Else If dia = 7 Then
|
||||
Dim dialetra As String = "SABADO"
|
||||
End If
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_clientesnuevos_GUNA"
|
||||
Log(c.GetString("CN_ID")&" ,"& c.GetString("CN_FECHA")&" ,"& c.GetString("CN_USER")&" ,"& c.GetString("CN_LAT")&" ,"& c.GetString("CN_LON")&" ,"& c.GetString("CN_NOMBRE")&" ,"& c.GetString("CN_DIRECCION")&" ,"&ALMACEN& c.GetString("CN_RUTA")&" ,"& "En espera"&c.GetString("CN_GIRO")&" ,"&dialetra& c.GetString("CN_SOLICITA")&" ,"& c.GetString("CN_COLONIA")&" ,"& c.GetString("CN_TELEFONO"))
|
||||
cmd.Parameters = Array As Object(c.GetString("CN_ID"), c.GetString("CN_FECHA"), c.GetString("CN_USER"), c.GetString("CN_LAT"), c.GetString("CN_LON"), c.GetString("CN_NOMBRE"), c.GetString("CN_DIRECCION"),ALMACEN, c.GetString("CN_RUTA"), "En espera",c.GetString("CN_GIRO"),dialetra, c.GetString("CN_SOLICITA"), c.GetString("CN_COLONIA"), c.GetString("CN_TELEFONO"), c.GetString("CN_CP"))
|
||||
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_clientesn")
|
||||
Next
|
||||
End If
|
||||
c.Close
|
||||
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag.As(String).Contains("traeFotoGuna_") Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Private FOTO() As Byte = records(RESULT.Columns.get("CAT_CL_FOTO"))
|
||||
Private CLIENTE As String = records(RESULT.Columns.Get("CAT_CL_CODIGO"))
|
||||
Private fecha As String = records(RESULT.Columns.Get("CAT_CL_FOTO_FECHA"))
|
||||
Starter.skmt.ExecNonQuery($"DELETE from FOTOS where CLIENTE = '${CLIENTE}'"$)
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO FOTOS(CLIENTE,FOTO,FECHA) VALUES (?,?,?)", Array As Object (CLIENTE,FOTO,fecha))
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag.As(String).Contains("traecodigos") Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Private CODIGOCREDITO As String = records(RESULT.Columns.get("CAT_CL_CLABE"))
|
||||
Private BANDERACREDITO As String = records(RESULT.Columns.Get("CAT_CL_CTA"))
|
||||
Private CLIENTECREDITO As String = records(RESULT.Columns.Get("CAT_CL_CODIGO"))
|
||||
|
||||
If l_ruta.Text = "0" Then
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO CODIGOS_CREDITO(CODIGO,BANDERA,CLIENTE) VALUES (?,?,?)", Array As Object (CODIGOCREDITO,BANDERACREDITO,CLIENTECREDITO))
|
||||
Else
|
||||
Private hdsgf As Cursor = Starter.skmt.ExecQuery($"SELECT * FROM CODIGOS_CREDITO where CODIGO = '${CODIGOCREDITO}' and BANDERA = '${BANDERACREDITO}' and CLIENTE = '${CLIENTECREDITO}' "$$)
|
||||
If hdsgf.RowCount = 0 Then
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO CODIGOS_CREDITO(CODIGO,BANDERA,CLIENTE) VALUES (?,?)", Array As Object (CODIGOCREDITO,BANDERACREDITO,CLIENTECREDITO))
|
||||
Else
|
||||
Log("NO ENTRO")
|
||||
End If
|
||||
End If
|
||||
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "kmt_datos" Then 'query tag
|
||||
@@ -1666,7 +1824,7 @@ Sub JobDone(Job As HttpJob)
|
||||
Dim CAT_CL_CLASIFICADOR4 As String = records(RESULT.Columns.Get("CAT_CL_CLASIFICADOR4"))
|
||||
Dim CAT_CL_CLASIFICADOR3 As String = records(RESULT.Columns.Get("CAT_CL_CLASIFICADOR3"))
|
||||
Dim CAT_CL_CLASIFICADOR2 As String = records(RESULT.Columns.Get("CAT_CL_CLASIFICADOR2"))
|
||||
' Dim CAT_CL_FOTO_FECHA As String = records(RESULT.Columns.Get("CAT_CL_FOTO_FECHA"))
|
||||
|
||||
|
||||
'########################## INICIA CODIGO PARA CREDITOS ####################
|
||||
Dim CAT_CL_BCREDITO As String = records(RESULT.Columns.Get("CAT_CL_BCREDITO"))
|
||||
@@ -2065,10 +2223,12 @@ Sub JobDone(Job As HttpJob)
|
||||
Dim CAT_GP_TIPOPROD As Int = records(RESULT.Columns.Get("CAT_GP_TIPOPROD"))
|
||||
Dim CAT_GP_INICIATIVA As Int = records(RESULT.Columns.Get("CAT_GP_INICIATIVA"))
|
||||
Dim CAT_LISTAPRECIO As String = records(RESULT.Columns.Get("CAT_LISTAPRECIO"))
|
||||
Dim CAT_GP_CONVERSION3 As String = records(RESULT.Columns.Get("CAT_GP_CONVERSION3"))
|
||||
Dim CAT_GP_CONVERSION2 As String = records(RESULT.Columns.Get("CAT_GP_CONVERSION2"))
|
||||
' Dim CAT_LISTAPRECIO As Int = 10
|
||||
' CAT_GP_INICIATIVA = 5
|
||||
' skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_DEV) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_DEV))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD,CAT_GP_INICIATIVA,CAT_LISTAPRECIO, CAT_GP_DEV) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD, CAT_GP_INICIATIVA,CAT_LISTAPRECIO,CAT_GP_DEV))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD,CAT_GP_INICIATIVA,CAT_LISTAPRECIO, CAT_GP_DEV, CAT_GP_CONVERSION3,CAT_GP_CONVERSION2) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD, CAT_GP_INICIATIVA,CAT_LISTAPRECIO,CAT_GP_DEV,CAT_GP_CONVERSION3,CAT_GP_CONVERSION2))
|
||||
Next
|
||||
Listo2=1
|
||||
If PB2.Progress = 0 Then
|
||||
@@ -2553,6 +2713,43 @@ Sub JobDone(Job As HttpJob)
|
||||
Job.Release
|
||||
End Sub
|
||||
|
||||
Private Sub connecta_LongClick
|
||||
' CLIENTES NUEVOS
|
||||
' Dim fotocn() As Byte
|
||||
' Dim Dirp As String = File.DirInternal
|
||||
' Dim Dir As String
|
||||
' Dim Dir2 As String
|
||||
' Dir = "/promotoriakmts"
|
||||
|
||||
c=Starter.skmt.ExecQuery("SELECT CN_ID, CN_FECHA , CN_USER, CN_LAT, CN_LON, CN_NOMBRE, CN_DIRECCION, CN_FOTO, CN_ALMACEN, CN_RUTA, CN_GIRO, CN_SOLICITA, CN_COLONIA, CN_TELEFONO, CN_CP FROM CLIENTES_NUEVOS")
|
||||
If c.RowCount>0 Then
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position = i
|
||||
Dim dia As Int = DateTime.GetDayOfWeek(DateTime.Now)
|
||||
If dia = 2 Then
|
||||
Dim dialetra As String = "LUNES"
|
||||
Else If dia = 3 Then
|
||||
Dim dialetra As String = "MARTES"
|
||||
Else If dia = 4 Then
|
||||
Dim dialetra As String = "MIERCOLES"
|
||||
Else If dia = 5 Then
|
||||
Dim dialetra As String = "JUEVES"
|
||||
Else If dia = 6 Then
|
||||
Dim dialetra As String = "VIERNES"
|
||||
Else If dia = 7 Then
|
||||
Dim dialetra As String = "SABADO"
|
||||
End If
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_clientesnuevos_GUNA"
|
||||
Log(c.GetString("CN_ID")&" ,"& c.GetString("CN_FECHA")&" ,"& c.GetString("CN_USER")&" ,"& c.GetString("CN_LAT")&" ,"& c.GetString("CN_LON")&" ,"& c.GetString("CN_NOMBRE")&" ,"& c.GetString("CN_DIRECCION")&" ,"&ALMACEN& c.GetString("CN_RUTA")&" ,"& "En espera"&c.GetString("CN_GIRO")&" ,"&dialetra& c.GetString("CN_SOLICITA")&" ,"& c.GetString("CN_COLONIA")&" ,"& c.GetString("CN_TELEFONO"))
|
||||
cmd.Parameters = Array As Object(c.GetString("CN_ID"), c.GetString("CN_FECHA"), c.GetString("CN_USER"), c.GetString("CN_LAT"), c.GetString("CN_LON"), c.GetString("CN_NOMBRE"), c.GetString("CN_DIRECCION"),ALMACEN, c.GetString("CN_RUTA"), "En espera",c.GetString("CN_GIRO"),dialetra, c.GetString("CN_SOLICITA"), c.GetString("CN_COLONIA"), c.GetString("CN_TELEFONO"), c.GetString("CN_CP"))
|
||||
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_clientesn")
|
||||
Next
|
||||
End If
|
||||
c.Close
|
||||
End Sub
|
||||
|
||||
Private Sub B4XPage_CloseRequest As ResumableSub
|
||||
'Return True to close, False to cancel
|
||||
If SCROLL_RESDIA.Visible Then
|
||||
@@ -2681,6 +2878,8 @@ Log("--------> BORRAMOS")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from PLAN_LEALTAD")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from clie_act")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info3")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM CLIENTES_NUEVOS")
|
||||
Starter.skmt.ExecNonQuery("delete from CAT_GIRO")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod2")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
|
||||
@@ -2690,6 +2889,7 @@ Log("--------> BORRAMOS")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_ENCUESTA2")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_STAY_OUT")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_GPS")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("DELETE from CODIGOS_CREDITO")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_FACE")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("INSERT INTO HIST_STAY_OUT(HSO_INI, HSO_FIN) VALUES (0,0)")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_CODIGO_BARRAS")
|
||||
@@ -2859,6 +3059,10 @@ Sub B_OK_PAS_Click
|
||||
connecta.Visible=True
|
||||
Resumen.Visible= True
|
||||
img2.Visible=False
|
||||
l_visitartotal.Visible = True
|
||||
de.Visible = True
|
||||
l_faltan.Visible = True
|
||||
l_visitas.Visible = True
|
||||
' Subs.panelVisible(p_principal, 0, 0)
|
||||
ExitApplication
|
||||
End If
|
||||
@@ -2875,8 +3079,20 @@ Sub B_OK_PAS_Click
|
||||
|
||||
Label4.Visible = True
|
||||
l_ruta.Visible = True
|
||||
l_visitartotal.Visible = True
|
||||
de.Visible = True
|
||||
l_faltan.Visible = True
|
||||
l_visitas.Visible = True
|
||||
B4XPage_Appear
|
||||
' Subs.panelVisible(p_principal, 0, 0)
|
||||
Dim cn As Cursor = Starter.skmt.ExecQuery("SELECT * FROM CLIENTES_NUEVOS")
|
||||
If cn.RowCount > 0 Then
|
||||
For gh = 0 To cn.RowCount -1
|
||||
cn.Position = gh
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info3(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion, CAT_CL_GIRO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0,?) ", Array As Object (cn.GetString("CN_ID"),cn.GetString("CN_RUTA"), cn.GetString("CN_NOMBRE"),"null","null","null","null","null","null","null","null","null","null","null","null","null",cn.GetString("CN_LON"),cn.GetString("CN_LAT"), cn.GetString("CN_GIRO")))
|
||||
Next
|
||||
End If
|
||||
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String("CARGA_DIA"))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("CARGA_DIA",1))
|
||||
If E_RUTA2.Visible = True Then
|
||||
@@ -3272,6 +3488,152 @@ Sub resdia_Click
|
||||
l_monto_c3.Text = 1000
|
||||
End If
|
||||
d.Close
|
||||
|
||||
|
||||
''INICIO NUEVO RES DIA
|
||||
|
||||
Private s3 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select distinct(pe_cliente) FROM PEDIDO")
|
||||
|
||||
If s3.RowCount > 0 Then
|
||||
Private total1 As String = 0
|
||||
For i = 0 To s3.RowCount - 1
|
||||
s3.Position = i
|
||||
' LogColor($"Total antes ${total1}"$, Colors.blue)
|
||||
total1 = total1 + Subs.calculaTotalConPromoXRango(s3.GetString("PE_CLIENTE"))
|
||||
' LogColor(Subs.calculaTotalConPromoXRango(s3.GetString("PE_CLIENTE")), Colors.Magenta)
|
||||
' LogColor($"Total despues ${total1}"$, Colors.blue)
|
||||
Next
|
||||
L_REAL.Text = NumberFormat2( total1,0,2,2,False)
|
||||
Else
|
||||
L_REAL.Text = 0
|
||||
End If
|
||||
|
||||
|
||||
Private s5 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select distinct(pe_cliente) FROM PEDIDO")
|
||||
|
||||
If s5.RowCount > 0 Then
|
||||
Private total4 As String = 0
|
||||
For i = 0 To s5.RowCount - 1
|
||||
s5.Position = i
|
||||
' LogColor($"Total antes ${total1}"$, Colors.blue)
|
||||
total4 = total4 + Subs.calculaTotalConPromoXRango1(s5.GetString("PE_CLIENTE"))
|
||||
' LogColor(Subs.calculaTotalConPromoXRango(s5.GetString("PE_CLIENTE")), Colors.Magenta)
|
||||
' LogColor($"Total despues ${total1}"$, Colors.blue)
|
||||
Next
|
||||
l_preacordada.Text = NumberFormat2(total4,0,2,2,False)
|
||||
Else
|
||||
l_preacordada.Text = 0
|
||||
End If
|
||||
|
||||
Private s6 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select distinct(pe_cliente) FROM PEDIDO")
|
||||
|
||||
If s6.RowCount > 0 Then
|
||||
Private total3 As String = 0
|
||||
For i = 0 To s6.RowCount - 1
|
||||
s6.Position = i
|
||||
' LogColor($"Total antes ${total1}"$, Colors.blue)
|
||||
total3 = total3 + Subs.calculaTotalConPromoXRango2(s6.GetString("PE_CLIENTE"))
|
||||
' LogColor(Subs.calculaTotalConPromoXRango(s6.GetString("PE_CLIENTE")), Colors.Magenta)
|
||||
' LogColor($"Total despues ${total1}"$, Colors.blue)
|
||||
Next
|
||||
l_prevtotal.Text = NumberFormat2(total3,0,2,2,False)
|
||||
Else
|
||||
l_prevtotal.Text = 0
|
||||
End If
|
||||
|
||||
|
||||
Private s7 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select Ifnull(SUM(PE_CANT),0) AS PE_CANT, PE_PROID FROM PEDIDO WHERE PE_PROID IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD WHERE CAT_GP_TIPO = 'CIGARRO') GROUP BY PE_PROID")
|
||||
If s7.RowCount > 0 Then
|
||||
Dim totalstick As Int = 0
|
||||
For sfsdf = 0 To s7.RowCount -1
|
||||
s7.Position= sfsdf
|
||||
Log("ENTRE AQUI")
|
||||
Dim s8 As Cursor = B4XPages.MainPage.skmt.ExecQuery($"SELECT CAT_GP_CONVERSION3 FROM CAT_GUNAPROD WHERE CAT_GP_ID = '${s7.GetString("PE_PROID")}'"$)
|
||||
s8.Position = 0
|
||||
totalstick = totalstick + (s7.GetString("PE_CANT")* s8.GetString("CAT_GP_CONVERSION3"))
|
||||
Next
|
||||
Dim totaltotaltot As Int = totalstick/200
|
||||
l_ru_pri.Text = totaltotaltot
|
||||
Else
|
||||
l_ru_pri.Text = 0
|
||||
End If
|
||||
|
||||
Private s0 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select Ifnull(SUM(PE_CANT),0) AS PE_CANT FROM PEDIDO WHERE PE_PROID IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD WHERE CAT_GP_TIPO = 'PARTNERSHIP')")
|
||||
If s0.RowCount > 0 Then
|
||||
|
||||
s0.Position = 0
|
||||
Log(s0.GetString("PE_CANT"))
|
||||
L_REAL.Text = s0.GetString("PE_CANT")
|
||||
Else
|
||||
L_REAL.Text = 0
|
||||
End If
|
||||
|
||||
L_NES.Text = 0
|
||||
l_ru_sup.Text = 0
|
||||
L_ALCANCE.Text = 0
|
||||
L_VPLAN.Text = 0
|
||||
L_VREAL.Text = 0
|
||||
L_EFEC_VIS.Text = 0
|
||||
L_VISITCC.Text = 0
|
||||
L_EFEC_PV.Text = 0
|
||||
L_EFEC_PURA.Text = 0
|
||||
l_preventa.Text = 0
|
||||
l_futura.Text = 0
|
||||
Label13.Text = 0
|
||||
Label19.Text = 0
|
||||
Label21.Text = 0
|
||||
|
||||
|
||||
Private s0 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select count(distinct(PE_CLIENTE)) AS PE_CANT FROM PEDIDO WHERE PE_PROID IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD WHERE CAT_GP_TIPO = 'CIGARRO')")
|
||||
If s0.RowCount > 0 Then
|
||||
s0.Position = 0
|
||||
Log(s0.GetString("PE_CANT"))
|
||||
Label33.Text = s0.GetString("PE_CANT")
|
||||
Else
|
||||
Label33.Text = 0
|
||||
End If
|
||||
|
||||
Private s5 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select distinct(pe_cliente) FROM PEDIDO")
|
||||
|
||||
If s5.RowCount > 0 Then
|
||||
Private total4 As String = 0
|
||||
For i = 0 To s5.RowCount - 1
|
||||
s5.Position = i
|
||||
' LogColor($"Total antes ${total1}"$, Colors.blue)
|
||||
total4 = total4 + Subs.calculaTotalConPromoXRango5(s5.GetString("PE_CLIENTE"))
|
||||
' LogColor(Subs.calculaTotalConPromoXRango(s5.GetString("PE_CLIENTE")), Colors.Magenta)
|
||||
' LogColor($"Total despues ${total1}"$, Colors.blue)
|
||||
Next
|
||||
Label35.Text = NumberFormat2(total4,0,2,2,False)
|
||||
Else
|
||||
Label35.Text = 0
|
||||
End If
|
||||
|
||||
Private s0 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select count(distinct(PE_CLIENTE)) AS PE_CANT FROM PEDIDO WHERE PE_PROID IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD WHERE CAT_GP_TIPO = 'PARTNERSHIP')")
|
||||
If s0.RowCount > 0 Then
|
||||
s0.Position = 0
|
||||
Log(s0.GetString("PE_CANT"))
|
||||
Label43.Text = s0.GetString("PE_CANT")
|
||||
Else
|
||||
Label43.Text = 0
|
||||
End If
|
||||
|
||||
Private s5 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select distinct(pe_cliente) FROM PEDIDO")
|
||||
|
||||
If s5.RowCount > 0 Then
|
||||
Private total4 As String = 0
|
||||
For i = 0 To s5.RowCount - 1
|
||||
s5.Position = i
|
||||
' LogColor($"Total antes ${total1}"$, Colors.blue)
|
||||
total4 = total4 + Subs.calculaTotalConPromoXRango6(s5.GetString("PE_CLIENTE"))
|
||||
' LogColor(Subs.calculaTotalConPromoXRango(s5.GetString("PE_CLIENTE")), Colors.Magenta)
|
||||
' LogColor($"Total despues ${total1}"$, Colors.blue)
|
||||
Next
|
||||
Label51.Text = NumberFormat2(total4,0,2,2,False)
|
||||
Else
|
||||
Label51.Text = 0
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Sub hacer_ped_Click
|
||||
@@ -3550,4 +3912,21 @@ Sub checaPedido
|
||||
Next
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
|
||||
'Private Sub connecta_LongClick
|
||||
' ' UPDATE VENTA CREDITO
|
||||
' '' UPDATE GUNA.CAT_CLIENTES SET CAT_CL_CTA = (?) WHERE cat_cl_codigo = (?) AND CAT_CL_IDALMACEN = (?) AND CAT_CL_RUTA = (?)
|
||||
' c=B4XPages.MainPage.skmt.ExecQuery("Select * from CODIGOS_CREDITO where BANDERA = 1")
|
||||
' If c.RowCount>0 Then
|
||||
' For i=0 To c.RowCount -1
|
||||
' c.Position=i
|
||||
' Dim cmd As DBCommand
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "update_ventacredito_guna"
|
||||
' cmd.Parameters = Array As Object(C.GetString("BANDERA"),C.GetString("CLIENTE"),ALMACEN,Subs.traeRuta2(C.GetString("CLIENTE")))
|
||||
' B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "up_CREDITO")
|
||||
' Next
|
||||
' End If
|
||||
' c.Close
|
||||
'End Sub
|
||||
Reference in New Issue
Block a user