cheveguerra/Guna_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa.git synced 2026-04-17 21:06:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

v final de encuestas

Browse Source
This commit is contained in:
cvaldes1201
2024-01-23 11:05:49 -06:00
parent 770e01144a
commit a32149d755
7 changed files with 89 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

87
B4A/C_Cliente.bas
View File

@@ -798,30 +798,41 @@ Private Sub b_preguntag_Click
If ALMACEN = "35" Or ALMACEN = "43" Or ALMACEN = "54" Or ALMACEN = "73" Or ALMACEN = "56" Then 'ALMACEN = "7" Then '
''Or ALMACEN = "56" ATIZAPAN PEDIGRI
p_pregunta1.Visible = False
SV_ENCUESTA.Visible = True
SV_ENCUESTA.Panel.LoadLayout("ENCUESTA_PED")
SV_ENCUESTA.Panel.Height = Panel4.Height
Panel4.Visible = True
b_like.Visible = False
BT_QR.Visible = False
B_GALLINA.Visible = False
Tar.Visible = False
Tels.Visible = False
gest.Visible = False
b_venta.Visible = False
Guardar.Visible = False
HIST.Visible = False
Else
' If ALMACEN = "35" Or ALMACEN = "43" Or ALMACEN = "54" Or ALMACEN = "73" Or ALMACEN = "56" Then 'ALMACEN = "7" Then '
' ''Or ALMACEN = "56" ATIZAPAN PEDIGRI
' p_pregunta1.Visible = False
' SV_ENCUESTA.Visible = True
' SV_ENCUESTA.Panel.LoadLayout("ENCUESTA_PED")
' SV_ENCUESTA.Panel.Height = Panel4.Height
' Panel4.Visible = True
' b_like.Visible = False
' BT_QR.Visible = False
' B_GALLINA.Visible = False
' Tar.Visible = False
' Tels.Visible = False
' gest.Visible = False
' b_venta.Visible = False
' Guardar.Visible = False
' HIST.Visible = False
'
'
' Else
If que_modulo = Null Or que_modulo = " " Then que_modulo = "1"
' Msgbox(que_modulo,"ALO")
If que_modulo < = ENCUESTA Then
If que_modulo = "1" Then
If p_m2.IsInitialized And p_m2.Visible Then
p_m2.Visible = False
Else If p_m3.IsInitialized And p_m3.Visible Then
p_m3.Visible = False
Else If p_m4.IsInitialized And p_m4.Visible Then
p_m4.Visible = False
Else If p_modulo5.IsInitialized And p_modulo5.Visible Then
p_modulo5.Visible = False
Else
End If
' esto para la primera encuesta m1
p_pregunta1.Visible = False
p_cliente.Visible = False
@@ -955,7 +966,7 @@ Private Sub b_preguntag_Click
End If
End If
' End IF
Case DialogResponse.NEGATIVE
@@ -2152,8 +2163,8 @@ Private Sub B_guardaencuesta_m3_Click
Private P9_M3 As String = ""
If et_p1_m3.Text = "" Then PASA = "0"
If et_p2_m3.Text = "" Then PASA = "0"
' If et_p1_m3.Text = "" Then PASA = "0"
' If et_p2_m3.Text = "" Then PASA = "0"
If rd1_p5_m3.Checked Then P5_M3 = "SI"
If rd2_p5_m3.Checked Then P5_M3 = "NO"
@@ -2213,7 +2224,7 @@ Private Sub B_guardaencuesta_m3_Click
' skmt.ExecNonQuery2("INSERT INTO ENCUESTA_MODULO2 (CLIENTE, ALMACEN,P1, P2, P3, P4, P5, P6) VALUES (?,?,?,?,?,?,?,?)", Array As Object(Subs.traeCliente, ALMACEN,et_p1_m2.Text,et_p2_m2.Text,P3_M2,P4_M2,et_p5_m2.Text,"MODULO_3" ))
skmt.ExecNonQuery2("INSERT INTO ENCUESTA_MODULO3 (CLIENTE, ALMACEN,P1, P2, P3, P4, P5, P6,P7,P8,P9,P10,P11) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object(Subs.traeCliente, ALMACEN,et_p1_m3.Text,et_p2_m3.Text,P3_M3,P4_M3,textemp4,textemp5,P5_M3,textemp6,textemp7, textemp8, P9_M3))
skmt.ExecNonQuery2("INSERT INTO ENCUESTA_MODULO3 (CLIENTE, ALMACEN,P1, P2, P3, P4, P5, P6,P7,P8,P9,P10,P11) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object(Subs.traeCliente, ALMACEN,"x","x",P3_M3,P4_M3,textemp4,textemp5,P5_M3,textemp6,textemp7, textemp8, P9_M3))
SV_ENCUESTA.Visible = False
p_cliente.Visible = True
' B4XPages.MainPage.tipo_venta = "PREVENTA"
@@ -2514,22 +2525,22 @@ End Sub
' FIN P7 M1
''aqui
Private Sub et_p1_m3_TextChanged (Old As String, New As String)
If et_p1_m3.Text.Length > 2 Or et_p1_m3.Text = 0 Then
Msgbox("Valida tu respuesta, dato no valido","Aviso")
et_p1_m3.Text = ""
End If
End Sub
'Private Sub et_p1_m3_TextChanged (Old As String, New As String)
' If et_p1_m3.Text.Length > 2 Or et_p1_m3.Text = 0 Then
'
' Msgbox("Valida tu respuesta, dato no valido","Aviso")
' et_p1_m3.Text = ""
' End If
'End Sub
Private Sub et_p2_m3_TextChanged (Old As String, New As String)
If et_p2_m3.Text.Length > 2 Or et_p2_m3.Text = 0 Then
Msgbox("Valida tu respuesta, dato no valido","Aviso")
et_p2_m3.Text = ""
End If
End Sub
'Private Sub et_p2_m3_TextChanged (Old As String, New As String)
' If et_p2_m3.Text.Length > 2 Or et_p2_m3.Text = 0 Then
'
' Msgbox("Valida tu respuesta, dato no valido","Aviso")
' et_p2_m3.Text = ""
'
' End If
'End Sub
Private Sub et_p1_m2_TextChanged (Old As String, New As String)
If et_p1_m2.Text.Length > 2 Or et_p1_m2.Text = 0 Then