diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index ea13ec8..40119ff 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -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)") diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 00596e6..e61d75e 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -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 \ No newline at end of file diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 766cd53..023c1fe 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -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") diff --git a/B4A/C_Productos.bas b/B4A/C_Productos.bas index 66c858c..7236a45 100644 --- a/B4A/C_Productos.bas +++ b/B4A/C_Productos.bas @@ -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 diff --git a/B4A/Durakelo.b4a b/B4A/Durakelo.b4a index 4f4922e..f300a7f 100644 --- a/B4A/Durakelo.b4a +++ b/B4A/Durakelo.b4a @@ -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 diff --git a/B4A/Durakelo.b4a.meta b/B4A/Durakelo.b4a.meta index bb9ce4f..300536d 100644 --- a/B4A/Durakelo.b4a.meta +++ b/B4A/Durakelo.b4a.meta @@ -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 diff --git a/B4A/Files/cliente.bal b/B4A/Files/cliente.bal index f352e1e..69c8777 100644 Binary files a/B4A/Files/cliente.bal and b/B4A/Files/cliente.bal differ