cheveguerra/Durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Durakelo.git synced 2026-04-19 20:29:16 +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

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