mirror of
https://github.com/KeymonSoft/Guna_Preventa.git
synced 2026-04-17 21:06:32 +00:00
..
This commit is contained in:
Jose Alberto Guerra Ugalde
@@ -236,6 +236,8 @@ Sub Class_Globals
|
||||
Dim p_transparenteActualizacion As Panel
|
||||
Private p_forzarActualizacion As Panel
|
||||
Dim l_forzarActualizacion As Label
|
||||
Dim tipo_venta As String = Subs.traeTipoVentaDeBD
|
||||
Private b_abordo As Button
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -274,6 +276,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
f.Position=0
|
||||
l_ruta.Text = f.GetString("CAT_CL_RUTA")
|
||||
f.Close
|
||||
b_abordo.Left = (Root.Width / 2) - (b_abordo.Width / 2)
|
||||
p_principal.Width = Root.Width : p_principal.Height = Root.Height
|
||||
' ro = B4XPages.MainPage.skmt.ExecQuery("select count(*) as CAT_CL_RUTA from kmt_info2")
|
||||
' ro.Position = 0
|
||||
@@ -343,6 +346,8 @@ End Sub
|
||||
Sub B4XPage_Appear
|
||||
' LogColor($"########## ${Subs.traeRuta} ##########"$, Colors.red)
|
||||
p_principal.Visible = True
|
||||
' Log($"|${Subs.traeTipoVentaDeBD}|"$)
|
||||
If Subs.traeTipoVentaDeBD = "VENTA" Or Subs.traeTipoVentaDeBD = "ABORDO" Then b_abordo.Visible = True Else b_abordo.Visible = False
|
||||
E_RUTA2.Text = ""
|
||||
p_ruta2.Visible = False
|
||||
Subs.validaPromoProcterPRO3009
|
||||
@@ -932,11 +937,21 @@ Sub cargar_Click
|
||||
cmd.Parameters = Array As Object(usuario,e_ruta.text,sDate,imei,sTime,"","","","","CARGA",ALMACEN,Application.VersionName)
|
||||
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_drop")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_TipoVenta"
|
||||
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "tipoVenta")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_gunaprod_GV2"
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "gunaprod")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_gunaprod2_GV2"
|
||||
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "gunaprod2")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_HIST_ESPECIAL_GUNA"
|
||||
' cmd.Parameters = Array As Object(ALMACEN)
|
||||
@@ -1213,6 +1228,7 @@ Sub JobDone(Job As HttpJob)
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info2(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) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0)", Array As Object (CAT_CL_CODIGO,e_ruta.Text,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))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO))
|
||||
Next
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info2(CAT_CL_CODIGO, CAT_CL_RUTA, CAT_CL_NOMBRE, CAT_CL_LONG, CAT_CL_LAT, CAT_CL_NUM_SERIEFISICO) VALUES (?,?,?,0,0,0)", Array As Object ("0", e_ruta.Text, "ABORDO"))
|
||||
Listo1 = 1
|
||||
S_CC.Text = "LISTO"
|
||||
' If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Clientes Actualizados." , True)
|
||||
@@ -1591,6 +1607,49 @@ 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 = "gunaprod2" Then 'query tag
|
||||
If PB2.Progress < 30 Then S_CP.Text = "CARGANDO" 'Mod por CHV - 20211028 Agregue el "If PB2.Progress < 30 then"
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID"))
|
||||
Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_GP_NOMBRE"))
|
||||
Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_GP_IMP1"))
|
||||
Dim CAT_GP_IMP2 As String = records(RESULT.Columns.Get("CAT_GP_IMP2"))
|
||||
Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_GP_PRECIO"))
|
||||
Dim CAT_GP_CLASIF As String = records(RESULT.Columns.Get("CAT_GP_CLASIF"))
|
||||
Dim CAT_GP_STS As String = records(RESULT.Columns.Get("CAT_GP_STS"))
|
||||
Dim CAT_GP_TIPO As String = records(RESULT.Columns.Get("CAT_GP_TIPO"))
|
||||
Dim CAT_GP_SUBTIPO As String = records(RESULT.Columns.Get("CAT_GP_SUBTIPO"))
|
||||
Dim CAT_GP_IMG() As Byte = records(RESULT.Columns.Get("CAT_GP_IMG"))
|
||||
Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_GP_ALMACEN"))
|
||||
' Dim CAT_GP_DEV As String = records(RESULT.Columns.Get("CAT_GP_DEV"))
|
||||
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_GP_CODPROMO As String = records(RESULT.Columns.Get("CAT_GP_CODPROMO"))
|
||||
' 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_GUNAPROD2(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_GP_CODPROMO) 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_GP_CODPROMO))
|
||||
Next
|
||||
Listo2=1
|
||||
If PB2.Progress = 0 Then
|
||||
PB2.Progress = 30
|
||||
S_CP.Text = "CARGANDO"
|
||||
ELSE If PB2.Progress = 30 Then
|
||||
PB2.Progress = 60
|
||||
ELSE IF PB2.Progress = 60 Then
|
||||
PB2.Progress = 100
|
||||
S_CP.Text = "LISTO"
|
||||
End If
|
||||
' If Starter.marcaCel <> "Sony" Then ToastMessageShow("Productos Actualizados." , True)
|
||||
If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then
|
||||
B4XPage_Appear
|
||||
img2.Visible=False
|
||||
EJECUTANDO=0
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "gunaprodp" Then 'query tag
|
||||
@@ -1958,6 +2017,14 @@ Sub JobDone(Job As HttpJob)
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FORZAR_ACTUALIZACION", actualizarAplicacion))
|
||||
Log($">>>> GUARDAMOS NUEVA VERSION: ${version}, ${actualizarAplicacion}"$)
|
||||
End If
|
||||
If RESULT.Tag = "tipoVenta" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Private tipoVenta As String = records(RESULT.Columns.Get("CAT_RU_CATEGORIA"))
|
||||
Next
|
||||
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("TIPO_VENTA"))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("TIPO_VENTA", tipoVenta))
|
||||
Log($">>>> GUARDAMOS TIPO_VENTA: ${tipoVenta}"$)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -2077,6 +2144,7 @@ Sub t2_tick
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from clie_act")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info2")
|
||||
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")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_VENTAS")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_VERIFICACION")
|
||||
@@ -2150,6 +2218,7 @@ Sub inv_Click
|
||||
EJECUTANDO = 1
|
||||
inve = 1
|
||||
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")
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("select usuario from usuarioa")
|
||||
c.Position = 0
|
||||
@@ -2160,6 +2229,10 @@ Sub inv_Click
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "gunaprod")
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_gunaprod2_GV2"
|
||||
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "gunaprod2")
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_paquetes_GV2"
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "gunaprodp")
|
||||
@@ -2358,7 +2431,7 @@ Sub resdia_Click
|
||||
End If
|
||||
d.Close
|
||||
|
||||
c=B4XPages.MainPage.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_TIPO = ? )", Array As String("RTEC"))
|
||||
c=B4XPages.MainPage.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 ${Subs.traeTablaProds(tipo_venta)} where CAT_GP_TIPO = ? )"$, Array As String("RTEC"))
|
||||
c.Position = 0
|
||||
l_monto_k.Text = c.GetString("MONTO_DIA")
|
||||
If l_monto_k.Text = "null" Then
|
||||
@@ -2366,7 +2439,7 @@ Sub resdia_Click
|
||||
End If
|
||||
c.Close
|
||||
|
||||
c=B4XPages.MainPage.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_TIPO = ? )", Array As String("PING"))
|
||||
c=B4XPages.MainPage.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 ${Subs.traeTablaProds(tipo_venta)} where CAT_GP_TIPO = ? )"$, Array As String("PING"))
|
||||
c.Position = 0
|
||||
l_monto_kp.Text = c.GetString("MONTO_DIA")
|
||||
If l_monto_kp.Text = "null" Then
|
||||
@@ -2477,7 +2550,7 @@ Sub resdia_Click
|
||||
c.Position = 0
|
||||
L_CTE_PROMO.Text = c.GetString("CUANTOS")
|
||||
c.Close
|
||||
d=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) AS MONTO_DIA FROM PEDIDO WHERE PE_PROID IN (select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPOPROD = ?) ", Array As String("PRIORITARIO"))
|
||||
d=B4XPages.MainPage.skmt.ExecQuery2($"Select sum(PE_COSTO_TOT) AS MONTO_DIA FROM PEDIDO WHERE PE_PROID IN (select CAT_GP_ID from ${Subs.traeTablaProds(tipo_venta)} where CAT_GP_TIPOPROD = ?) "$, Array As String("PRIORITARIO"))
|
||||
d.Position = 0
|
||||
'///////////////////////////////////////////////////////////////////////////////
|
||||
'//////////////////////////// ULTIMA LINEA ANTES DEL ERROR //////////////////
|
||||
@@ -2490,12 +2563,12 @@ Sub resdia_Click
|
||||
L_PRIO.Text = d.GetString("MONTO_DIA")
|
||||
d.Close
|
||||
|
||||
d=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) AS MONTO_DIA FROM PEDIDO WHERE PE_PROID IN (select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPOPROD = ?) ", Array As String("ESTRATEGICO"))
|
||||
d=B4XPages.MainPage.skmt.ExecQuery2($"Select sum(PE_COSTO_TOT) AS MONTO_DIA FROM PEDIDO WHERE PE_PROID IN (select CAT_GP_ID from ${Subs.traeTablaProds(tipo_venta)} where CAT_GP_TIPOPROD = ?) "$, Array As String("ESTRATEGICO"))
|
||||
d.Position = 0
|
||||
L_SECUND.Text =d.GetString("MONTO_DIA")
|
||||
d.Close
|
||||
|
||||
d=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) AS MONTO_DIA FROM PEDIDO WHERE PE_PROID IN (select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPOPROD = ?) ", Array As String("COMPLEMENTARIO"))
|
||||
d=B4XPages.MainPage.skmt.ExecQuery2($"Select sum(PE_COSTO_TOT) AS MONTO_DIA FROM PEDIDO WHERE PE_PROID IN (select CAT_GP_ID from ${Subs.traeTablaProds(tipo_venta)} where CAT_GP_TIPOPROD = ?) "$, Array As String("COMPLEMENTARIO"))
|
||||
d.Position = 0
|
||||
L_COMP.Text =d.GetString("MONTO_DIA")
|
||||
d.Close
|
||||
@@ -2580,7 +2653,7 @@ End Sub
|
||||
Sub e_ruta2_TextChanged (Old As String, New As String)
|
||||
' Dim validChars As String ="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 "
|
||||
' 'Log("Antes: " & Old & " | " & New)
|
||||
If New = e_ruta.text and new <> "" Then
|
||||
If New = e_ruta.text And New <> "" Then
|
||||
cargar.Enabled = False
|
||||
ToastMessageShow("Las rutas NO PUEDEN ser iguales!!", False)
|
||||
Else
|
||||
@@ -2633,6 +2706,8 @@ Sub B_OK_COMISS_Click
|
||||
Panel_C.Visible = False
|
||||
SCROLL_RESDIA.Visible = False
|
||||
Btn_Ubicar.Visible=True
|
||||
p_principal.Visible = True
|
||||
SCROLL_RESDIA.Panel.RemoveAllViews
|
||||
End Sub
|
||||
|
||||
Sub B_MARCAS_Click
|
||||
@@ -2652,7 +2727,7 @@ Sub B_MARCAS_Click
|
||||
c=B4XPages.MainPage.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
|
||||
For i=0 To c.RowCount - 1
|
||||
c.Position=i
|
||||
AddTitle(c.GetString("CAT_GP_CLASIF"))
|
||||
If c.GetString("CAT_GP_CLASIF") = "PROMOS" Then
|
||||
@@ -2666,17 +2741,17 @@ Sub B_MARCAS_Click
|
||||
If f.GetString("CUANTOS") > 0 Then
|
||||
e=B4XPages.MainPage.skmt.ExecQuery2("select HMC_MARCA, HMC_TOTAL from HIST_MARCAS_CUOTAS where HMC_MARCA = ?", Array As String(c.GetString("CAT_GP_CLASIF")))
|
||||
e.Position=0
|
||||
d=B4XPages.MainPage.skmt.ExecQuery2("SELECT count(distinct(PE_CLIENTE)) AS CUANTOS FROM PEDIDO WHERE PE_PROID in (select CAT_GP_ID from cat_gunaprod WHERE CAT_GP_CLASIF =?)", Array As String (c.GetString("CAT_GP_CLASIF")))
|
||||
d=B4XPages.MainPage.skmt.ExecQuery2($"SELECT count(distinct(PE_CLIENTE)) AS CUANTOS FROM PEDIDO WHERE PE_PROID in (select CAT_GP_ID from ${Subs.traeTablaProds(tipo_venta)} WHERE CAT_GP_CLASIF =?)"$, Array As String (c.GetString("CAT_GP_CLASIF")))
|
||||
d.Position=0
|
||||
CLV1.AddTextItem("TOTAL PREVENTA = $" & c.GetString("TOTAL"),"1")
|
||||
CLV1.AddTextItem("M E T A MES= $" & e.GetString("HMC_TOTAL"),"1")
|
||||
CLV1.AddTextItem("M E T A D I A= $" & Round(e.GetString("HMC_TOTAL") / 25),"1")
|
||||
CLV1.AddTextItem("FALTA DIA= $" & Round((e.GetString("HMC_TOTAL") / 25) - c.GetString("TOTAL")) ,"1")
|
||||
CLV1.AddTextItem("META MES= $" & e.GetString("HMC_TOTAL"),"1")
|
||||
CLV1.AddTextItem("META DIA= $" & Round(e.GetString("HMC_TOTAL") / 25),"1")
|
||||
CLV1.AddTextItem("FALTA DIA= $" & Round((e.GetString("HMC_TOTAL") / 25) - c.GetString("TOTAL")) ,"1")
|
||||
CLV1.AddTextItem("CLIENTES = " & d.GetString("CUANTOS"),"1")
|
||||
d.Close
|
||||
e.Close
|
||||
Else
|
||||
d=B4XPages.MainPage.skmt.ExecQuery2("SELECT count(distinct(pe_cliente)) AS CUANTOS FROM PEDIDO WHERE PE_PROID in (select CAT_GP_ID from cat_gunaprod WHERE CAT_GP_CLASIF =?)", Array As String (c.GetString("CAT_GP_CLASIF")))
|
||||
d=B4XPages.MainPage.skmt.ExecQuery2($"SELECT count(distinct(pe_cliente)) AS CUANTOS FROM PEDIDO WHERE PE_PROID in (select CAT_GP_ID from ${Subs.traeTablaProds(tipo_venta)} WHERE CAT_GP_CLASIF =?)"$, Array As String (c.GetString("CAT_GP_CLASIF")))
|
||||
d.Position=0
|
||||
CLV1.AddTextItem("TOTAL PREVENTA = $" & c.GetString("TOTAL"),"1")
|
||||
CLV1.AddTextItem("M E T A = $" & "1000","1")
|
||||
@@ -2750,4 +2825,9 @@ End Sub
|
||||
|
||||
Private Sub p_transparenteActualizacion_Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub b_abordo_Click
|
||||
Starter.skmt.ExecNonQuery($"update cuentaa set cuenta = '0'"$)
|
||||
B4XPages.ShowPage("Cliente")
|
||||
End Sub
|
||||
Reference in New Issue
Block a user