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

encuestas, tickets, arreglo de carga día, preventa de V-ESPECIAL se hace venta

Browse Source 
4_01_18_2
This commit is contained in:
cvaldes1201
2024-01-18 16:37:42 -06:00
parent 745adb86ca
commit bb11a55157
7 changed files with 543 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
B4A/B4XMainPage.bas
View File

@@ -154,6 +154,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("SERVER",Starter.skmt))
End If
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_ENCUESTA (HE_CLIE TEXT, HE_RES TEXT, HE_FECHA TEXT, HE_TIPO TEXT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_ENCUESTA3 (HE_CLIE TEXT, HE_TIPO TEXT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_ENCUESTA2 (HE_CLIE TEXT, HE_RES TEXT, HE_FECHA TEXT, HE_TIPO TEXT, HE_PRECIO TEXT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_ENCUESTA_PREGUNTA (CAT_EP_ID TEXT,CAT_EP_IDTIPOPREGUNTA TEXT,CAT_CE_DESCRIPCION TEXT,CAT_EP_PREGUNTA TEXT,CAT_EP_RES1_PRED TEXT,CAT_EP_RES2_PRED TEXT,CAT_EP_RES3_PRED TEXT,CAT_EP_ORDEN_PREGUNTA TEXT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_ENCUESTA_PREGUNTA5P (CAT_EP_ID TEXT,CAT_EP_IDTIPOPREGUNTA TEXT,CAT_CE_DESCRIPCION TEXT,CAT_EP_PREGUNTA TEXT,CAT_EP_RES1_PRED TEXT,CAT_EP_RES2_PRED TEXT,CAT_EP_RES3_PRED TEXT,CAT_EP_ORDEN_PREGUNTA TEXT)")

436
B4A/C_Cliente.bas
View File

@@ -143,6 +143,12 @@ Sub Class_Globals
Private et_pregunta2 As EditText
Private cb_pregunta1 As B4XComboBox
Private Label1 As Label
Private sv_encuesta As ScrollView
Private p_encuestas As Panel
Dim itemselect As String
Dim itemselect2 As String
Dim pregunta7 As String
Dim bandera As Int
End Sub
Sub initialize
@@ -312,6 +318,48 @@ Sub B4XPage_Appear
gest.Visible = True
End If
' Log(">>>>>>>>>>>> "&Starter.tipov)
If sv_encuesta.Visible = False Then
b_factura.Visible = False
B_EXIBI.Visible = True
HIST.Visible = True
Tar.Visible = True
Tels.Visible = True
B_VENTA.Visible = True
B_IMP.Visible = True
gest.Visible = True
B_IMP2.Visible = True
B_INV.Visible = True
Guardar.Visible = True
Else if sv_encuesta.Visible = True Then
b_factura.Visible = False
B_EXIBI.Visible = False
HIST.Visible = False
Tar.Visible = False
Tels.Visible = False
B_VENTA.Visible = False
B_IMP.Visible = False
gest.Visible = False
B_IMP2.Visible = False
B_INV.Visible = False
Guardar.Visible = False
End If
c=Starter.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
Log(perfil&"-------------------------")
If perfil = "V-ESPECIAL" Then
c= Starter.skmt.ExecQuery("SELECT CAT_GP_PRECIO, CAT_GP_ID FROM CAT_PRECIOS")
If c.RowCount > 0 Then
For i = 0 To c.RowCount -1
c.Position = i
Starter.skmt.ExecNonQuery2("Update PEDIDO SET PE_PRECIO2 = ? WHERE PE_PROID = ? AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)",Array As String(c.GetString("CAT_GP_PRECIO"),c.GetString("CAT_GP_ID")))
Starter.skmt.ExecNonQuery("Update PEDIDO SET PE_TIPO = 'VENTA' WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
Next
End If
End If
End Sub
Sub GPS_LocationChanged (Location1 As Location)
@@ -331,20 +379,61 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
End Sub
Sub gest_Click
'' 1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local
' If 1 = 1 Then
' '2=2 ----> si no esta en el historico local mostrar encuesta
' c = Starter.skmt.ExecQuery2("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA WHERE HE_CLIE IN(SELECT CUENTA FROM CUENTAA) ",Array As String())
' If Then
'
' End If
' Else
'
'' End If
Starter.tipov = "PREVENTA"
B4XPages.ShowPage("Productos")
' StartActivity(colonia2)
cuestionario
' 1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local
c2 = Starter.skmt.ExecQuery2("SELECT HE_CLIE FROM HIST_ENCUESTA3 WHERE HE_TIPO = ? AND HE_CLIE IN (SELECT CUENTA FROM CUENTAA) ",Array As String("K001"))
If c2.RowCount = 0 Then
' 2=2 ----> si no esta en el historico local mostrar encuesta
c = Starter.skmt.ExecQuery("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA WHERE HE_CLIE IN(SELECT CUENTA FROM CUENTAA)")
If c.RowCount = 0 Then
b_factura.Visible = False
B_EXIBI.Visible = False
HIST.Visible = False
Tar.Visible = False
Tels.Visible = False
B_VENTA.Visible = False
B_IMP.Visible = False
gest.Visible = False
B_IMP2.Visible = False
B_INV.Visible = False
Guardar.Visible = False
sv_encuesta.Visible = True
sv_encuesta.Height = Root.Height
sv_encuesta.Width = Root.Width
sv_encuesta.Panel.LoadLayout("encuesta")
sv_encuesta.Panel.Height = p_encuestas.Height
p_encuestas.Width = Root.Width
Dim items As List
items.Initialize
items.Add("Selecciona una opción")
items.Add("ESQUINA")
items.Add("CALLE")
items.Add("AVENIDA")
cb_pregunta1.SetItems(items)
itemselect = "Selecciona una opción"
Dim items2 As List
items2.Initialize
items2.Add("Selecciona una opción")
items2.Add("1 persona")
items2.Add("2 personas")
items2.Add("Mas de 2 personas")
cb_pregunta8.SetItems(items2)
itemselect2 = "Selecciona una opción"
bandera = 2
Else
Starter.tipov = "PREVENTA"
B4XPages.ShowPage("Productos")
End If
Else
Starter.tipov = "PREVENTA"
B4XPages.ShowPage("Productos")
End If
' Starter.tipov = "PREVENTA"
' B4XPages.ShowPage("Productos")
'' StartActivity(colonia2)
' cuestionario
End Sub
Sub Tels_Click
@@ -354,7 +443,9 @@ Sub Tels_Click
End Sub
Private Sub B4XPage_CloseRequest As ResumableSub
If Subs.hayPedido Then
If sv_encuesta.Visible = True Then
Return False
Else If Subs.hayPedido Then
ToastMessageShow("Hay VENTA, por favor presiona GUARDAR para continuar.", True)
Return False
Else
@@ -464,12 +555,17 @@ Sub B_IMP_Click
perfil = c.GetString("CUANTOS")
c.Close
If perfil > 0 Then
' If perfil > 0 Then
c=Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL"))
If c.RowCount > 0 Then
c.Position =0
perfil = c.GetString("CAT_VA_VALOR")
c.Close
End If
End If
LogColor(perfil,Colors.Magenta)
' End If
c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
c.Position=0
@@ -578,15 +674,20 @@ Sub B_IMP_Click
s=Starter.skmt.ExecQuery2("select SUM(PE_COSTO_TOT) AS TOTAL, SUM(PE_PRECIO2 * PE_CANT) AS TOTAL2 FROM PEDIDO WHERE PE_TIPO = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("PREVENTA"))
s.Position =0
If s.GetString("TOTAL") - s.GetString("TOTAL2") <> 0 Then
Printer1.WriteString("Descuento: $" & (s.GetString("TOTAL2") - s.GetString("TOTAL")) & CRLF)
Dim totaltotaltoal As Float = s.GetString("TOTAL2") - s.GetString("TOTAL")
Printer1.WriteString("Descuento: $" & NumberFormat2(totaltotaltoal, 1, 3, 2, False) & CRLF)
End If
Printer1.WriteString("Total Preventa: $" & s.GetString("TOTAL") & CRLF)
s.Close
c=Starter.skmt.ExecQuery("select sum(PE_CANT) as PC_NOART from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP )")
C.Position=0
Printer1.WriteString("Total Articulos: " & c.GetString("PC_NOART") & CRLF)
c.Close
Printer1.WriteString(" " & CRLF)
Else
Printer1.WriteString("-----------PREVENTA-----------" & CRLF)
' aqui es donde esta el pedo de julieta de los descuentos quitar el precio2 pero meter un if para saber si es ruta especial o es normal o que show.
s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU,PE_CANT * PE_COSTOU AS PE_COSTO_TOT, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT,PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? AND LENGTH(PE_CEDIS) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PROID", Array As String("PREVENTA"))
s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU,PE_CANT * PE_COSTOU AS PE_COSTO_TOT, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT,PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? AND PE_CEDIS <> ? AND LENGTH(PE_CEDIS) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PROID", Array As String("PREVENTA","DUR"))
If S.RowCount>0 Then
For i=0 To S.RowCount -1
S.Position=i
@@ -613,6 +714,7 @@ Sub B_IMP_Click
Next
End If
s.Close
Printer1.WriteString(" " & CRLF)
s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU,PE_CANT * PE_COSTOU AS PE_COSTO_TOT, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT,PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? and LENGTH(PE_CEDIS) > 3 AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS, PE_COSTOU", Array As String("PREVENTA"))
If S.RowCount>0 Then
Printer1.WriteString("----PROMOS----" & CRLF)
@@ -639,7 +741,37 @@ Sub B_IMP_Click
BLANCO = " "
End If
Next
Printer1.WriteString("--FIN PROMOS----" & CRLF)
Printer1.WriteString(" " & CRLF)
End If
s.Close
Printer1.WriteString("-------------RMI..-----------" & CRLF)
' aqui es donde esta el pedo de julieta de los descuentos quitar el precio2 pero meter un if para saber si es ruta especial o es normal o que show.
s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU,PE_CANT * PE_COSTOU AS PE_COSTO_TOT, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT,PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? AND PE_CEDIS = ? AND LENGTH(PE_CEDIS) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PROID", Array As String("PREVENTA","DUR"))
If S.RowCount>0 Then
For i=0 To S.RowCount -1
S.Position=i
If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
Printer1.WriteString(s.GetString("PE_PRONOMBRE") & CRLF)
Else
Printer1.WriteString(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & CRLF)
TAMANO = s.GetLong("L_CANT") + TAMANO
TAMANO = s.GetLong("L_COSTOU") + TAMANO
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
ESPACIO = ESPACIO - TAMANO
For E=0 To ESPACIO -1
BLANCO = " " & BLANCO
Next
Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & " $" & s.GETSTRING("PE_COSTO_TOT") & CRLF )
TAMANO = 0
ESPACIO = 21
BLANCO = " "
End If
Next
End If
s.Close
@@ -650,6 +782,10 @@ Sub B_IMP_Click
' End If
Printer1.WriteString("Total Preventa: $" & s.GetString("TOTAL") & CRLF)
s.Close
c=Starter.skmt.ExecQuery("select sum(PE_CANT) as PC_NOART from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP )")
C.Position=0
Printer1.WriteString("Total Articulos: " & c.GetString("PC_NOART") & CRLF)
c.Close
End If
Printer1.WriteString(" " & CRLF)
@@ -678,12 +814,13 @@ Sub B_IMP2_Click
perfil = c.GetString("CUANTOS")
c.Close
If perfil > 0 Then
c=Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL"))
c=Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL"))
If c.RowCount > 0 Then
c.Position =0
perfil = c.GetString("CAT_VA_VALOR")
c.Close
End If
LogColor(perfil,Colors.Magenta)
c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
c.Position=0
@@ -758,10 +895,10 @@ Sub B_IMP2_Click
Printer1.WriteString("C.P.: " & la_cp.Text & CRLF)
Printer1.WriteString("Entre calle1: " & l_entre1.Text & CRLF)
Printer1.WriteString("Entre Calle2: " & l_entre2.Text & CRLF)
Printer1.WriteString(" " & CRLF)
Printer1.WriteString("-----------ENTREGA------------" & CRLF)
s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? AND LENGTH(PE_CEDIS) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PRONOMBRE", Array As String("VENTA"))
s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? AND PE_CEDIS <> ? AND LENGTH(PE_CEDIS) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PRONOMBRE", Array As String("VENTA","DUR"))
If S.RowCount>0 Then
For i=0 To S.RowCount -1
S.Position=i
@@ -788,10 +925,10 @@ Sub B_IMP2_Click
Next
End If
s.Close
Printer1.WriteString(" " & CRLF)
s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? AND LENGTH(PE_CEDIS) > 3 AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS, PE_COSTOU", Array As String("VENTA"))
If S.RowCount>0 Then
Printer1.WriteString("----PROMOS----" & CRLF)
Printer1.WriteString("-----------PROMOS-------------" & CRLF)
For i=0 To S.RowCount -1
S.Position=i
@@ -817,16 +954,59 @@ Sub B_IMP2_Click
End If
Next
Printer1.WriteString("--FIN PROMOS----" & CRLF)
Printer1.WriteString(" " & CRLF)
End If
s.Close
Printer1.WriteString("-------------RMI--------------" & CRLF)
s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? AND PE_CEDIS = ? AND LENGTH(PE_CEDIS) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PRONOMBRE", Array As String("VENTA","DUR"))
If S.RowCount>0 Then
For i=0 To S.RowCount -1
S.Position=i
If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
Printer1.WriteString(s.GetString("PE_PRONOMBRE") & CRLF)
Else
Printer1.WriteString(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & CRLF)
TAMANO = s.GetLong("L_CANT") + TAMANO
TAMANO = s.GetLong("L_COSTOU") + TAMANO
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
ESPACIO = ESPACIO - TAMANO
For E=0 To ESPACIO -1
BLANCO = " " & BLANCO
Next
Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & " $" & s.GETSTRING("PE_COSTO_TOT") & CRLF )
TAMANO = 0
ESPACIO = 21
BLANCO = " "
End If
Next
End If
s.Close
Printer1.WriteString(" " & CRLF)
s=Starter.skmt.ExecQuery2("select SUM(PE_COSTO_TOT) AS TOTAL, SUM(PE_PRECIO2 * PE_CANT) AS TOTAL2 FROM PEDIDO WHERE PE_TIPO = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA"))
s.Position =0
If perfil = "V-ESPECIAL" Then
If s.GetString("TOTAL") - s.GetString("TOTAL2") <> 0 Then
Dim totaltotaltoal As Float = s.GetString("TOTAL2") - s.GetString("TOTAL")
Printer1.WriteString("Descuento: $" & NumberFormat2(totaltotaltoal, 1, 3, 2, False) & CRLF)
End If
End If
s.Close
s=Starter.skmt.ExecQuery2("select SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_TIPO = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA"))
s.Position =0
Printer1.WriteString("Total entrega: $" & s.GetString("TOTAL") & CRLF)
s.Close
c=Starter.skmt.ExecQuery("select sum(PE_CANT) as PC_NOART from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP )")
C.Position=0
Printer1.WriteString("Total Articulos: " & c.GetString("PC_NOART") & CRLF)
c.Close
' Printer1.WriteString("------------VENTA-------------")
' Printer1.WriteString("TOTAL COMPRA: $:" & total_cliente)
Printer1.WriteString(" " & CRLF)
@@ -985,10 +1165,62 @@ Sub B_INV_Click
End Sub
Sub B_VENTA_Click
Starter.tipov = "VENTA"
'StartActivity(colonia2)
B4XPages.ShowPage("Productos")
cuestionario
c2 = Starter.skmt.ExecQuery2("SELECT HE_CLIE FROM HIST_ENCUESTA3 WHERE HE_TIPO = ? AND HE_CLIE IN (SELECT CUENTA FROM CUENTAA) ",Array As String("K001"))
If c.RowCount = 0 Then
' 2=2 ----> si no esta en el historico local mostrar encuesta
c = Starter.skmt.ExecQuery("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA WHERE HE_CLIE IN(SELECT CUENTA FROM CUENTAA)")
If c.RowCount = 0 Then
b_factura.Visible = False
B_EXIBI.Visible = False
HIST.Visible = False
Tar.Visible = False
Tels.Visible = False
B_VENTA.Visible = False
B_IMP.Visible = False
gest.Visible = False
B_IMP2.Visible = False
B_INV.Visible = False
Guardar.Visible = False
sv_encuesta.Visible = True
sv_encuesta.Height = Root.Height
sv_encuesta.Width = Root.Width
sv_encuesta.Panel.LoadLayout("encuesta")
sv_encuesta.Panel.Height = p_encuestas.Height
p_encuestas.Width = Root.Width
Dim items As List
items.Initialize
items.Add("Selecciona una opción")
items.Add("ESQUINA")
items.Add("CALLE")
items.Add("AVENIDA")
cb_pregunta1.SetItems(items)
itemselect = "Selecciona una opción"
Dim items2 As List
items2.Initialize
items2.Add("Selecciona una opción")
items2.Add("1 persona")
items2.Add("2 personas")
items2.Add("Mas de 2 personas")
cb_pregunta8.SetItems(items2)
itemselect2 = "Selecciona una opción"
bandera = 1
Else
Starter.tipov = "VENTA"
B4XPages.ShowPage("Productos")
End If
Else
Starter.tipov = "VENTA"
B4XPages.ShowPage("Productos")
End If
' Starter.tipov = "VENTA"
' 'StartActivity(colonia2)
' B4XPages.ShowPage("Productos")
' cuestionario
End Sub
Sub b_factura_Click
@@ -1271,9 +1503,145 @@ Sub b_chk_e_Click
End Sub
Private Sub cb_pregunta1_SelectedIndexChanged (Index As Int)
itemselect = cb_pregunta1.SelectedItem
End Sub
Private Sub cb_pregunta8_SelectedIndexChanged (Index As Int)
itemselect2 = cb_pregunta8.SelectedItem
End Sub
Private Sub b_guadaenc_Click
Starter.skmt.ExecNonQuery("Delete from HIST_ENCUESTA WHERE HE_CLIE IN (SELECT CUENTA FROM CUENTAA)")
If itemselect <> "Selecciona una opción" Then
DateTime.DateFormat = "MM/dd/yyyy"
DateTime.TimeFormat = "HH:mm:ss"
sDate=DateTime.Date(DateTime.Now)
sTime=DateTime.Time(DateTime.Now)
c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
c.Position = 0
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),itemselect,sDate&" "&sTime,2 ))
c.Close
If et_pregunta2.Text <> "" Then
DateTime.DateFormat = "MM/dd/yyyy"
DateTime.TimeFormat = "HH:mm:ss"
sDate=DateTime.Date(DateTime.Now)
sTime=DateTime.Time(DateTime.Now)
c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
c.Position = 0
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta2.Text,sDate&" "&sTime,1 ))
c.Close
If et_pregunta3.Text <> "" Then
DateTime.DateFormat = "MM/dd/yyyy"
DateTime.TimeFormat = "HH:mm:ss"
sDate=DateTime.Date(DateTime.Now)
sTime=DateTime.Time(DateTime.Now)
c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
c.Position = 0
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta3.Text,sDate&" "&sTime,1 ))
c.Close
If et_pregunta4.Text <> "" Then
DateTime.DateFormat = "MM/dd/yyyy"
DateTime.TimeFormat = "HH:mm:ss"
sDate=DateTime.Date(DateTime.Now)
sTime=DateTime.Time(DateTime.Now)
c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
c.Position = 0
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta4.Text,sDate&" "&sTime,1 ))
c.Close
If et_pregunta5.Text <> "" Then
DateTime.DateFormat = "MM/dd/yyyy"
DateTime.TimeFormat = "HH:mm:ss"
sDate=DateTime.Date(DateTime.Now)
sTime=DateTime.Time(DateTime.Now)
c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
c.Position = 0
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta5.Text,sDate&" "&sTime,1 ))
c.Close
If et_pregunta6.Text <> "" Then
DateTime.DateFormat = "MM/dd/yyyy"
DateTime.TimeFormat = "HH:mm:ss"
sDate=DateTime.Date(DateTime.Now)
sTime=DateTime.Time(DateTime.Now)
c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
c.Position = 0
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta6.Text,sDate&" "&sTime,1 ))
c.Close
If rb_p7no.Checked = True Or rb_p7si.Checked = True Then
DateTime.DateFormat = "MM/dd/yyyy"
DateTime.TimeFormat = "HH:mm:ss"
sDate=DateTime.Date(DateTime.Now)
sTime=DateTime.Time(DateTime.Now)
c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
c.Position = 0
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),pregunta7,sDate&" "&sTime,1 ))
c.Close
If itemselect2 <> "Selecciona una opción" Then
DateTime.DateFormat = "MM/dd/yyyy"
DateTime.TimeFormat = "HH:mm:ss"
sDate=DateTime.Date(DateTime.Now)
sTime=DateTime.Time(DateTime.Now)
c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
c.Position = 0
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),itemselect2,sDate&" "&sTime,2 ))
c.Close
If bandera = 1 Then
rb_p7si.Checked = False
rb_p7no.Checked = False
et_pregunta2.Text = ""
et_pregunta3.Text = ""
et_pregunta4.Text = ""
et_pregunta5.Text = ""
et_pregunta6.Text = ""
itemselect2 = "Selecciona una opción"
itemselect = "Selecciona una opción"
sv_encuesta.Visible =False
Starter.tipov = "VENTA"
B4XPages.ShowPage("Productos")
Else If bandera = 2 Then
rb_p7si.Checked = False
rb_p7no.Checked = False
et_pregunta2.Text = ""
et_pregunta3.Text = ""
et_pregunta4.Text = ""
et_pregunta5.Text = ""
et_pregunta6.Text = ""
itemselect2 = "Selecciona una opción"
itemselect = "Selecciona una opción"
sv_encuesta.Visible =False
Starter.tipov = "PREVENTA"
B4XPages.ShowPage("Productos")
End If
Else
MsgboxAsync("Por favor completa la encuesta","Atención")
End If
Else
MsgboxAsync("Por favor completa la encuesta","Atención")
End If
Else
MsgboxAsync("Por favor completa la encuesta","Atención")
End If
Else
MsgboxAsync("Por favor completa la encuesta","Atención")
End If
Else
MsgboxAsync("Por favor completa la encuesta","Atención")
End If
Else
MsgboxAsync("Por favor completa la encuesta","Atención")
End If
Else
MsgboxAsync("Por favor completa la encuesta","Atención")
End If
Else
MsgboxAsync("Por favor completa la encuesta","Atención")
End If
End Sub
Private Sub rb_p7si_CheckedChange(Checked As Boolean)
pregunta7 = "Si"
End Sub
Private Sub rb_p7no_CheckedChange(Checked As Boolean)
pregunta7 = "No"
End Sub

102
B4A/C_Principal.bas
View File

@@ -193,6 +193,9 @@ Private Sub B4XPage_Created (Root1 As B4XView)
b.Position=0
Cuantos = b.GetString("CUANTOS")
d=skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0")
If d.RowCount >0 Then
D.Position=0
b.Close
e=skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info")
@@ -236,7 +239,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
l_ctast.Text = d.GetString("TOTAL_VISITAR")
l_porvisitar.Text = e.GetString("POR_VISITAR")
End If
End If
c = skmt.ExecQuery2("select count(CAT_VA_DESCRIPCION) as HoraIngreso from cat_variables where CAT_VA_DESCRIPCION = ? ", Array As String("HoraIngreso"))
c.Position = 0
DateTime.TimeFormat = "HHmmss"
@@ -285,6 +288,7 @@ Sub B4XPage_Appear
reqManager.Initialize(Me, SERVER)
Log(SERVER)
If PASO = 2 Then
Dim result As Int
result = Msgbox2("El proceso de enviar información no a terminado, Continuar", "", "Si", "", "No", LoadBitmap(File.DirAssets, "alert2.png"))
@@ -361,7 +365,15 @@ Sub B4XPage_Appear
ALMACEN = C.GetString("ID_ALMACEN")
C.Close
'ALMACEN = 1
d=skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0")
If d.RowCount >0 Then
e=skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info")
e.Position=0
If e.RowCount >0 Then
D.Position=0
b=skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente where pc_cliente <> 0")
b.Position=0
Cuantos = b.GetString("CUANTOS")
@@ -390,8 +402,8 @@ Sub B4XPage_Appear
L_CUANTOST.Text = l_cuantosc.Text + l_cuantosn.Text
End If
End If
End If
c=Starter.skmt.ExecQuery("select usuario from usuarioa")
c.Position = 0
usuario = c.GetString("USUARIO")
@@ -429,16 +441,50 @@ End Sub
'End Sub
Sub trabajar_Click
'CallSubDelayed(gestion,"gestion")
c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MARCAS"))
c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL"))
c.Position =0
MARCASQ = c.GetString("CAT_VA_VALOR")
PERFIL = c.GetString("CAT_VA_VALOR")
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)")
Log(PERFIL&"-------------------------")
If PERFIL = "V-MINI" Then
c= Starter.skmt.ExecQuery("SELECT CAT_GP_PRECIO1, CAT_GP_ID FROM CAT_PRECIOS")
If c.RowCount > 0 Then
For i = 0 To c.RowCount -1
c.Position = i
Starter.skmt.ExecNonQuery2("Update CAT_GUNAPROD SET CAT_GP_PRECIO = ? WHERE CAT_GP_ID = ?",Array As String(c.GetString("CAT_GP_PRECIO1"),c.GetString("CAT_GP_ID")))
Next
'CallSubDelayed(gestion,"gestion")
c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MARCAS"))
c.Position =0
MARCASQ = c.GetString("CAT_VA_VALOR")
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")
B4XPages.ShowPage("Clientes")
End If
Else
c= Starter.skmt.ExecQuery("SELECT CAT_GP_PRECIO, CAT_GP_ID FROM CAT_PRECIOS")
If c.RowCount > 0 Then
For i = 0 To c.RowCount -1
c.Position = i
Starter.skmt.ExecNonQuery2("Update CAT_GUNAPROD SET CAT_GP_PRECIO = ? WHERE CAT_GP_ID = ?",Array As String(c.GetString("CAT_GP_PRECIO"),c.GetString("CAT_GP_ID")))
Next
'CallSubDelayed(gestion,"gestion")
c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MARCAS"))
c.Position =0
MARCASQ = c.GetString("CAT_VA_VALOR")
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
@@ -574,6 +620,21 @@ Sub Subir_Click
c.Close
End If
c=skmt.ExecQuery("SELECT * FROM HIST_ENCUESTA")
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_K001DUR"
cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"),"K001",ALMACEN,l_ruta.text,"1", C.GetString("TIPO"))
reqManager.ExecuteQuery(cmd , 0,"INS_K001")
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
@@ -770,6 +831,8 @@ Sub Subir_Click
' End If
' c.Close
' DROP
t1.Initialize("T1", 20000) ' 1000 = 1 second
t1.Enabled = True
@@ -860,6 +923,11 @@ Sub cargar_Click
cmd.Name = "select_codigo_exhibidor"
'cmd.Parameters = Array As Object(ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "catalogo_exhibidor")
cmd.Initialize
cmd.Name = "SELECT_HISTENCUESTA_DUR"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.Text)
reqManager.ExecuteQuery(cmd , 0, "hist_encuesta")
cmd.Initialize
cmd.Name = "select_cat_gunaprod_DUR"
@@ -1167,6 +1235,18 @@ Sub JobDone(Job As HttpJob)
' ToastMessageShow(" Historico Clientes Promociones Actualizado." , True)
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "hist_encuesta" Then 'query tag
For Each records() As Object In RESULT.Rows
Dim HE_CLIENTE As String = records(RESULT.Columns.Get("HE_CLIENTE"))
Dim HE_TIPO As String = records(RESULT.Columns.Get("HE_TIPO"))
skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA3(HE_CLIE, HE_TIPO ) VALUES (?,?)", Array As Object (HE_CLIENTE, HE_TIPO))
Next
' ToastMessageShow(" Historico Clientes Promociones Actualizado." , True)
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = reqManager.HandleJob(Job)
@@ -1933,7 +2013,7 @@ Sub e_ruta_EnterPressed
skmt.ExecNonQuery("delete from kmt_info")
skmt.ExecNonQuery("delete from cat_gunaprod")
skmt.ExecNonQuery("delete from cat_gunaprod2")
skmt.ExecNonQuery("delete from LISTA_PRECIOS")
skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
skmt.ExecNonQuery("delete from HIST_VENTAS")
skmt.ExecNonQuery("delete from HIST_VERIFICACION")

57
B4A/C_Productos.bas
View File

@@ -261,7 +261,7 @@ Sub B4XPage_Appear
End If
c.Close
If PERFIL = "V-COSTO" Then
skmt.ExecNonQuery("DELETE FROM CAT_GUNAPROD WHERE CAT_GP_ID IN (SELECT CAT_GP_ID FROM LISTA_PRECIOS WHERE NLISTA = '9' AND PRECIO = '0')")
Starter.skmt.ExecNonQuery("DELETE FROM CAT_GUNAPROD WHERE CAT_GP_ID IN (SELECT CAT_GP_ID FROM LISTA_PRECIOS WHERE NLISTA = '9' AND PRECIO = '0')")
End If
' Log("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from " & query & " where CAT_GP_ALMACEN > 0 AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO ='PROMOS' AND CAT_GP_TIPOPROD <> 1 and (length(CAT_GP_CODPROMO) = 1 OR CAT_GP_CODPROMO = CAT_GP_ID)")
@@ -348,7 +348,7 @@ Sub lv_catalogos_ItemClick (Position As Int, Value As Object)
If c2.RowCount > 0 Then
For i=0 To c2.RowCount -1
c2.Position=i
Logcolor(c2.GetString("CAT_GP_ID"),Colors.Green)
LogColor(c2.GetString("CAT_GP_ID"),Colors.Green)
Private tm As Map = Subs.procesaPromocion(c2.GetString("CAT_GP_ID"), clienteId)
If tm.Get("status") = "ok" Then 'Solo muestrala si hay producto.
Log(c2.GetString("CAT_GP_NOMBRE"))
@@ -1150,10 +1150,10 @@ Private Sub l_prodX_LongClick
t.Position = 0
Private ventaT As String = t.GetString("cuantosProds")
If ventaT = Null Then ventaT = 0
If Starter.tipov = "PREVENTA" Then
ToastMessageShow("¡¡En preventa NO hay cambios!!", True)
Return
End If
' If Starter.tipov = "PREVENTA" Then
' ToastMessageShow("¡¡En preventa NO hay cambios!!", True)
' Return
' End If
If ventaT > 0 Then
t = Starter.skmt.ExecQuery($"select sum(PE_CANT) as totalRMI from pedido where PE_PROID = '${pId}' and PE_CEDIS = 'DUR' and PE_CLIENTE in (Select CUENTA from cuentaa)"$)
t.Position = 0
@@ -1497,20 +1497,55 @@ Sub traeListaPrecios (almacenX As String, rutaX As String, idX As String, perfil
Private listaPrecios As List
listaPrecios.Initialize
listaPrecios.Add("-= Seleccione Precio =-")
If almacenX = "6" And rutaX = "16" Then
' Log("POR ALMACEN Y RUTA")
' If almacenX = "6" And rutaX = "16" Then
'' Log("POR ALMACEN Y RUTA")
' Starter.hayListaPreciosAlt = True
' c = Starter.skmt.ExecQuery($"select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('1','10') AND CAT_GP_ID = '${idX}' ORDER BY NLISTA ASC"$)
' If c.RowCount > 0 Then
' For i = 0 To c.RowCount - 1
' c.Position = i
' listaPrecios.Add($"${c.GetString("NLISTA")} - ${c.GetString("PRECIO")}"$)
' Next
' End If
' Else
' If perfilX = "V-MINI" Then
'' Log($"POR PERFIL: V-ESPECIAL"$)
' Starter.hayListaPreciosAlt = True
' c = Starter.skmt.ExecQuery($"select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('1','2') AND CAT_GP_ID = '${idX}' ORDER BY NLISTA ASC"$)
'' Log(c.RowCount)
' If c.RowCount > 0 Then
' For i = 0 To c.RowCount - 1
' c.Position = i
' listaPrecios.Add($"${c.GetString("NLISTA")} - ${NumberFormat2(c.GetDouble("PRECIO"), 1, 2, 2, False)}"$)
' Next
' End If
' Else
If perfilX = "V-COSTO" Then
' Log($"POR PERFIL: V-ESPECIAL"$)
Starter.hayListaPreciosAlt = True
c = Starter.skmt.ExecQuery($"select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('1','10') AND CAT_GP_ID = '${idX}' ORDER BY NLISTA ASC"$)
c = Starter.skmt.ExecQuery($"select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('1','9') AND CAT_GP_ID = '${idX}' ORDER BY NLISTA ASC"$)
' Log(c.RowCount)
If c.RowCount > 0 Then
For i = 0 To c.RowCount - 1
c.Position = i
listaPrecios.Add($"${c.GetString("NLISTA")} - ${c.GetString("PRECIO")}"$)
listaPrecios.Add($"${c.GetString("NLISTA")} - ${NumberFormat2(c.GetDouble("PRECIO"), 1, 2, 2, False)}"$)
Next
End If
ELSE IF perfilX = "V-SUPER" Then
' Log($"POR PERFIL: V-ESPECIAL"$)
Starter.hayListaPreciosAlt = True
c = Starter.skmt.ExecQuery($"select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('1','11') AND CAT_GP_ID = '${idX}' ORDER BY NLISTA ASC"$)
' Log(c.RowCount)
If c.RowCount > 0 Then
For i = 0 To c.RowCount - 1
c.Position = i
listaPrecios.Add($"${c.GetString("NLISTA")} - ${NumberFormat2(c.GetDouble("PRECIO"), 1, 2, 2, False)}"$)
Next
End If
ELSE IF perfilX = "V-ESPECIAL" Then
' Log($"POR PERFIL: V-ESPECIAL"$)
Starter.hayListaPreciosAlt = True
c = Starter.skmt.ExecQuery($"select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('5','6','7','8','10') AND CAT_GP_ID = '${idX}' ORDER BY NLISTA ASC"$)
c = Starter.skmt.ExecQuery($"select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('1','5','6','7','8','10') AND CAT_GP_ID = '${idX}' ORDER BY NLISTA ASC"$)
' Log(c.RowCount)
If c.RowCount > 0 Then
For i = 0 To c.RowCount - 1

2
B4A/Durakelo.b4a
View File

@@ -797,7 +797,7 @@ Version=12.5
#Region Project Attributes
#ApplicationLabel: Durakelo
#VersionCode: 1
#VersionName: 4.01.17_2
#VersionName: 4.01.18_2 ENC
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

4
B4A/Durakelo.b4a.meta
View File

@@ -70,6 +70,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=1,3
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=kms_helperSubs,traeRMIdePedido,548,0,C_Productos,B4XPage_Appear,148,0,C_Productos,b_prodMas_Click,714,0,C_Productos,l_prodX_Click,1093,0,C_Productos,l_prodX_LongClick,1142,0,C_Principal,B4XPage_Appear,409,0,C_Principal,trabajar_Click,431,3,Diseñador Visual,encuesta.bal,-100,4,Diseñador Visual,Cliente.bal,-100,6,C_Cliente,gest_Click,334,6
NavigationStack=C_Productos,l_prodX_LongClick,1134,0,C_Cliente,B_IMP2_Click,859,6,C_Principal,Subir_Click,624,0,C_Principal,cargar_Click,923,3,C_Principal,JobDone,1240,6,C_Cliente,B_IMP_Click,787,6,C_Cliente,GPS_LocationChanged,363,0,C_Cliente,B_VENTA_Click,1162,0,Diseñador Visual,Cliente.bal,-100,2,C_Cliente,gest_Click,377,6
SelectedBuild=0
VisibleModules=21,2,9,18,7,4,10,22,11,23,15,1,13
VisibleModules=21,2,9,18,7,4,10,22,11,23

BIN
B4A/Files/cliente.bal
View File

Binary file not shown.