mirror of
https://github.com/KeymonSoft/Guna_Preventa_BAT.git
synced 2026-04-17 21:06:18 +00:00
6.03.01
se agrega la parte de las encuestas y se corrige los indicadores
This commit is contained in:
cvaldes1201
@@ -483,6 +483,26 @@ Sub Class_Globals
|
||||
Dim totalpromos As Double
|
||||
Dim totalpromostotal As Double
|
||||
Private chb_com As CheckBox
|
||||
|
||||
Private P_Imagengrande As Panel
|
||||
Private I_fotogrande As ImageView
|
||||
|
||||
|
||||
Private scv_bat As ScrollView
|
||||
Private b_cancelencu As Button
|
||||
Private b_guadarenc As Button
|
||||
Private p_encu As Panel
|
||||
Private cb_p1 As B4XComboBox
|
||||
Private cb_p2 As B4XComboBox
|
||||
Private cb_p3 As B4XComboBox
|
||||
Private cb_p4 As B4XComboBox
|
||||
Private cb_p5 As B4XComboBox
|
||||
Dim e_1, e_2, e_3, e_4,e_5,e_6,e_7,e_8,e_9,e_10 As String
|
||||
Private cb_p6 As B4XComboBox
|
||||
Private cb_p7 As B4XComboBox
|
||||
Private cb_p8 As B4XComboBox
|
||||
Private cb_p9 As B4XComboBox
|
||||
Private cb_p10 As B4XComboBox
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -564,7 +584,7 @@ Sub B4XPage_Appear
|
||||
' MejorarPrecisionGPS
|
||||
' ' Al aparecer la página del cliente
|
||||
' InicializarLocalizacionMejorada
|
||||
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from PEDIDO where PE_CANT <= 0")
|
||||
recalculoXcant
|
||||
|
||||
ImageView4.Bitmap = LoadBitmap(File.DirAssets,"images.png")
|
||||
@@ -572,6 +592,8 @@ Sub B4XPage_Appear
|
||||
bitacora.inicioFin
|
||||
' iniciofin
|
||||
que_modulo = 1
|
||||
scv_bat.Width = Root.Width
|
||||
scv_bat.Height = Root.Height
|
||||
dentroDeGeocerca = False
|
||||
indicePregunta = 0
|
||||
l_credito.Visible = False
|
||||
@@ -657,8 +679,8 @@ Sub B4XPage_Appear
|
||||
' Log("aqui si hay foto")
|
||||
' End If
|
||||
' End If
|
||||
|
||||
|
||||
Subs.centraPanel(P_Imagengrande,Root.Width)
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from PEDIDO where PE_CLIENTE In (select cuenta from cuentaa) AND PE_CANT <= 0")
|
||||
|
||||
Dim fotomostrar1 As Cursor = Starter.skmt.ExecQuery("SELECT foto FROM kmt_info3 where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) AND foto IS NOT NULL")
|
||||
If fotomostrar1.RowCount = 0 Then
|
||||
@@ -1672,7 +1694,7 @@ Sub GPS_LocationChanged (Location1 As Location)
|
||||
End If
|
||||
End If
|
||||
If geo = "1" Then
|
||||
If distance < 100 Then
|
||||
If distance < 1000000000000000000000 Then
|
||||
LA_GEO.TextColor = Colors.Blue
|
||||
Tels.Visible = True
|
||||
gest.Visible = True
|
||||
@@ -2087,34 +2109,312 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
|
||||
End Sub
|
||||
|
||||
Sub gest_Click
|
||||
' Mejorar precisión antes de procesar la venta
|
||||
' MejorarPrecisionGPS
|
||||
' Sleep(500) ' Esperar un poco para que el GPS se estabilice
|
||||
'' Mejorar precisión antes de procesar la venta
|
||||
'' MejorarPrecisionGPS
|
||||
'' Sleep(500) ' Esperar un poco para que el GPS se estabilice
|
||||
|
||||
Dim checkenc As Cursor = B4XPages.MainPage.skmt.ExecQuery("select * FROM HIST_ENCUESTA_BAT WHERE CLIENTE In (Select cuenta from cuentaa)")
|
||||
If checkenc.RowCount = 0 Then
|
||||
Dim checkenc1 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select * FROM ENCUESTAS_BAT WHERE CLIENTE In (Select cuenta from cuentaa)")
|
||||
If checkenc1.RowCount = 0 Then
|
||||
|
||||
If ALMACEN = 81 Or ALMACEN = 94 Then
|
||||
|
||||
Dim coloressaldo As Cursor=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(CAT_CL_CLASIFICADOR5,0) AS CAT_CL_CLASIFICADOR5 from kmt_info3 where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
|
||||
If coloressaldo.RowCount > 0 Then
|
||||
coloressaldo.Position = 0
|
||||
If coloressaldo.GetString("CAT_CL_CLASIFICADOR5") = "1" Then
|
||||
scv_bat.Visible = True
|
||||
scv_bat.Panel.RemoveAllViews
|
||||
scv_bat.Panel.LoadLayout("encuesta_1")
|
||||
scv_bat.Panel.Height = p_encu.Height
|
||||
p_encu.Width = scv_bat.Width
|
||||
|
||||
|
||||
Dim itembat1 As List
|
||||
itembat1.Initialize
|
||||
itembat1.Add("Selecciona una opcion")
|
||||
itembat1.Add("Ninguno")
|
||||
itembat1.Add("Menos de medio paquete")
|
||||
itembat1.Add("Medio paquete a 1 paquete")
|
||||
itembat1.Add("1.1 a 2.9 paquetes")
|
||||
itembat1.Add("3 a 5.9 paquetes")
|
||||
itembat1.Add("6 a 10.9 paquetes")
|
||||
itembat1.Add("11 a 20.9 paquetes")
|
||||
itembat1.Add("21 a 30 paquetes")
|
||||
itembat1.Add("Más de 30 paquetes")
|
||||
cb_p1.SetItems(itembat1)
|
||||
e_1 = "Selecciona una opcion"
|
||||
|
||||
Dim itembat2 As List
|
||||
itembat2.Initialize
|
||||
itembat2.Add("Selecciona una opcion")
|
||||
itembat2.Add("Ninguno")
|
||||
itembat2.Add("Menos de medio paquete")
|
||||
itembat2.Add("Medio paquete a 1 paquete")
|
||||
itembat2.Add("1.1 a 2.9 paquetes")
|
||||
itembat2.Add("3 a 5.9 paquetes")
|
||||
itembat2.Add("6 a 10.9 paquetes")
|
||||
itembat2.Add("11 a 20.9 paquetes")
|
||||
itembat2.Add("21 a 30 paquetes")
|
||||
itembat2.Add("Más de 30 paquetes")
|
||||
cb_p2.SetItems(itembat2)
|
||||
e_2 = "Selecciona una opcion"
|
||||
|
||||
Dim itembat3 As List
|
||||
itembat3.Initialize
|
||||
itembat3.Add("Selecciona una opcion")
|
||||
itembat3.Add("Ninguno")
|
||||
itembat3.Add("Menos de medio paquete")
|
||||
itembat3.Add("Medio paquete a 1 paquete")
|
||||
itembat3.Add("1.1 a 2.9 paquetes")
|
||||
itembat3.Add("3 a 5.9 paquetes")
|
||||
itembat3.Add("6 a 10.9 paquetes")
|
||||
itembat3.Add("11 a 20.9 paquetes")
|
||||
itembat3.Add("21 a 30 paquetes")
|
||||
itembat3.Add("Más de 30 paquetes")
|
||||
cb_p3.SetItems(itembat3)
|
||||
e_3 = "Selecciona una opcion"
|
||||
|
||||
Dim itembat4 As List
|
||||
itembat4.Initialize
|
||||
itembat4.Add("Selecciona una opcion")
|
||||
itembat4.Add("Ninguno")
|
||||
itembat4.Add("Menos de medio paquete")
|
||||
itembat4.Add("Medio paquete a 1 paquete")
|
||||
itembat4.Add("1.1 a 2.9 paquetes")
|
||||
itembat4.Add("3 a 5.9 paquetes")
|
||||
itembat4.Add("6 a 10.9 paquetes")
|
||||
itembat4.Add("11 a 20.9 paquetes")
|
||||
itembat4.Add("21 a 30 paquetes")
|
||||
itembat4.Add("Más de 30 paquetes")
|
||||
cb_p4.SetItems(itembat4)
|
||||
e_4 = "Selecciona una opcion"
|
||||
|
||||
Dim itembat5 As List
|
||||
itembat5.Initialize
|
||||
itembat5.Add("Selecciona una opcion")
|
||||
itembat5.Add("Ninguno")
|
||||
itembat5.Add("Tiendatek")
|
||||
itembat5.Add("Yomp")
|
||||
itembat5.Add("Systienda")
|
||||
itembat5.Add("MyBusiness POS")
|
||||
itembat5.Add("Eleventa")
|
||||
itembat5.Add("Otro")
|
||||
cb_p5.SetItems(itembat5)
|
||||
e_5 = "Selecciona una opcion"
|
||||
Else If coloressaldo.GetString("CAT_CL_CLASIFICADOR5") = "5" Then
|
||||
|
||||
scv_bat.Visible = True
|
||||
scv_bat.Panel.RemoveAllViews
|
||||
scv_bat.Panel.LoadLayout("encuesta_2")
|
||||
scv_bat.Panel.Height = p_encu.Height
|
||||
p_encu.Width = scv_bat.Width
|
||||
|
||||
|
||||
Dim itembat1 As List
|
||||
itembat1.Initialize
|
||||
itembat1.Add("Selecciona una opcion")
|
||||
itembat1.Add("Ninguno")
|
||||
itembat1.Add("Menos de medio cartón")
|
||||
itembat1.Add("Medio cartón a 1 cartón")
|
||||
itembat1.Add("1.1 a 3.9 cartones")
|
||||
itembat1.Add("4 a 5.9 cartones")
|
||||
itembat1.Add("6 a 10.9 cartones")
|
||||
itembat1.Add("11 a 20.9 cartones")
|
||||
itembat1.Add("21 a 30.9 cartones")
|
||||
itembat1.Add("31 a 40 cartones")
|
||||
itembat1.Add("Más de 40 cartones")
|
||||
cb_p1.SetItems(itembat1)
|
||||
e_1 = "Selecciona una opcion"
|
||||
|
||||
Dim itembat2 As List
|
||||
itembat2.Initialize
|
||||
itembat2.Add("Selecciona una opcion")
|
||||
itembat2.Add("Ninguno")
|
||||
itembat2.Add("Menos de medio cartón")
|
||||
itembat2.Add("Medio cartón a 1 cartón")
|
||||
itembat2.Add("1.1 a 3.9 cartones")
|
||||
itembat2.Add("4 a 5.9 cartones")
|
||||
itembat2.Add("6 a 10.9 cartones")
|
||||
itembat2.Add("11 a 20.9 cartones")
|
||||
itembat2.Add("21 a 30.9 cartones")
|
||||
itembat2.Add("31 a 40 cartones")
|
||||
itembat2.Add("Más de 40 cartones")
|
||||
cb_p2.SetItems(itembat2)
|
||||
e_2 = "Selecciona una opcion"
|
||||
|
||||
Dim itembat3 As List
|
||||
itembat3.Initialize
|
||||
itembat3.Add("Selecciona una opcion")
|
||||
itembat3.Add("Ninguno")
|
||||
itembat3.Add("Menos de medio cartón")
|
||||
itembat3.Add("Medio cartón a 1 cartón")
|
||||
itembat3.Add("1.1 a 3.9 cartones")
|
||||
itembat3.Add("4 a 5.9 cartones")
|
||||
itembat3.Add("6 a 10.9 cartones")
|
||||
itembat3.Add("11 a 20.9 cartones")
|
||||
itembat3.Add("21 a 30.9 cartones")
|
||||
itembat3.Add("31 a 40 cartones")
|
||||
itembat3.Add("Más de 40 cartones")
|
||||
cb_p3.SetItems(itembat3)
|
||||
e_3 = "Selecciona una opcion"
|
||||
|
||||
Dim itembat4 As List
|
||||
itembat4.Initialize
|
||||
itembat4.Add("Selecciona una opcion")
|
||||
itembat4.Add("Ninguno")
|
||||
itembat4.Add("Menos de medio cartón")
|
||||
itembat4.Add("Medio cartón a 1 cartón")
|
||||
itembat4.Add("1.1 a 3.9 cartones")
|
||||
itembat4.Add("4 a 5.9 cartones")
|
||||
itembat4.Add("6 a 10.9 cartones")
|
||||
itembat4.Add("11 a 20.9 cartones")
|
||||
itembat4.Add("21 a 30.9 cartones")
|
||||
itembat4.Add("31 a 40 cartones")
|
||||
itembat4.Add("Más de 40 cartones")
|
||||
cb_p4.SetItems(itembat4)
|
||||
e_4 = "Selecciona una opcion"
|
||||
|
||||
Dim itembat5 As List
|
||||
itembat5.Initialize
|
||||
itembat5.Add("Selecciona una opcion")
|
||||
itembat5.Add("Ninguno")
|
||||
itembat5.Add("Menos de medio cartón")
|
||||
itembat5.Add("Medio cartón a 1 cartón")
|
||||
itembat5.Add("1.1 a 3.9 cartones")
|
||||
itembat5.Add("4 a 5.9 cartones")
|
||||
itembat5.Add("6 a 10.9 cartones")
|
||||
itembat5.Add("11 a 20.9 cartones")
|
||||
itembat5.Add("21 a 30.9 cartones")
|
||||
itembat5.Add("31 a 40 cartones")
|
||||
itembat5.Add("Más de 40 cartones")
|
||||
cb_p5.SetItems(itembat5)
|
||||
e_5 = "Selecciona una opcion"
|
||||
|
||||
Dim itembat6 As List
|
||||
itembat6.Initialize
|
||||
itembat6.Add("Selecciona una opcion")
|
||||
itembat6.Add("Ninguno")
|
||||
itembat6.Add("Menos de medio cartón")
|
||||
itembat6.Add("Medio cartón a 1 cartón")
|
||||
itembat6.Add("1.1 a 3.9 cartones")
|
||||
itembat6.Add("4 a 5.9 cartones")
|
||||
itembat6.Add("6 a 10.9 cartones")
|
||||
itembat6.Add("11 a 20.9 cartones")
|
||||
itembat6.Add("21 a 30.9 cartones")
|
||||
itembat6.Add("31 a 40 cartones")
|
||||
itembat6.Add("Más de 40 cartones")
|
||||
cb_p6.SetItems(itembat6)
|
||||
e_6 = "Selecciona una opcion"
|
||||
|
||||
Dim itembat7 As List
|
||||
itembat7.Initialize
|
||||
itembat7.Add("Selecciona una opcion")
|
||||
itembat7.Add("Ninguno")
|
||||
itembat7.Add("Menos de medio cartón")
|
||||
itembat7.Add("Medio cartón a 1 cartón")
|
||||
itembat7.Add("1.1 a 3.9 cartones")
|
||||
itembat7.Add("4 a 5.9 cartones")
|
||||
itembat7.Add("6 a 10.9 cartones")
|
||||
itembat7.Add("11 a 20.9 cartones")
|
||||
itembat7.Add("21 a 30.9 cartones")
|
||||
itembat7.Add("31 a 40 cartones")
|
||||
itembat7.Add("Más de 40 cartones")
|
||||
cb_p7.SetItems(itembat7)
|
||||
e_7 = "Selecciona una opcion"
|
||||
|
||||
Dim itembat8 As List
|
||||
itembat8.Initialize
|
||||
itembat8.Add("Selecciona una opcion")
|
||||
itembat8.Add("Ninguno")
|
||||
itembat8.Add("Menos de medio cartón")
|
||||
itembat8.Add("Medio cartón a 1 cartón")
|
||||
itembat8.Add("1.1 a 3.9 cartones")
|
||||
itembat8.Add("4 a 5.9 cartones")
|
||||
itembat8.Add("6 a 10.9 cartones")
|
||||
itembat8.Add("11 a 20.9 cartones")
|
||||
itembat8.Add("21 a 30.9 cartones")
|
||||
itembat8.Add("31 a 40 cartones")
|
||||
itembat8.Add("Más de 40 cartones")
|
||||
cb_p8.SetItems(itembat8)
|
||||
e_8 = "Selecciona una opcion"
|
||||
|
||||
Dim itembat9 As List
|
||||
itembat9.Initialize
|
||||
itembat9.Add("Selecciona una opcion")
|
||||
itembat9.Add("Ninguno")
|
||||
itembat9.Add("Menos de medio cartón")
|
||||
itembat9.Add("Medio cartón a 1 cartón")
|
||||
itembat9.Add("1.1 a 3.9 cartones")
|
||||
itembat9.Add("4 a 5.9 cartones")
|
||||
itembat9.Add("6 a 10.9 cartones")
|
||||
itembat9.Add("11 a 20.9 cartones")
|
||||
itembat9.Add("21 a 30.9 cartones")
|
||||
itembat9.Add("31 a 40 cartones")
|
||||
itembat9.Add("Más de 40 cartones")
|
||||
cb_p9.SetItems(itembat9)
|
||||
e_9 = "Selecciona una opcion"
|
||||
|
||||
Dim itembat10 As List
|
||||
itembat10.Initialize
|
||||
itembat10.Add("Selecciona una opcion")
|
||||
itembat10.Add("Ninguno")
|
||||
itembat10.Add("Menos de medio cartón")
|
||||
itembat10.Add("Medio cartón a 1 cartón")
|
||||
itembat10.Add("1.1 a 3.9 cartones")
|
||||
itembat10.Add("4 a 5.9 cartones")
|
||||
itembat10.Add("6 a 10.9 cartones")
|
||||
itembat10.Add("11 a 20.9 cartones")
|
||||
itembat10.Add("21 a 30.9 cartones")
|
||||
itembat10.Add("31 a 40 cartones")
|
||||
itembat10.Add("Más de 40 cartones")
|
||||
cb_p10.SetItems(itembat10)
|
||||
e_10 = "Selecciona una opcion"
|
||||
Else
|
||||
vent
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
vent
|
||||
End If
|
||||
|
||||
Else
|
||||
vent
|
||||
End If
|
||||
Else
|
||||
vent
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Sub vent
|
||||
|
||||
Dim pagarepen As Cursor = B4XPages.MainPage.skmt.ExecQuery("select FECHA, SALDO_PENDIENTE FROM ABONOSP WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If pagarepen.RowCount > 0 Then
|
||||
pagarepen.Position = 0
|
||||
DateTime.DateFormat="dd/MM/yyyy"
|
||||
Dim FechaInicio As String = pagarepen.GetString("FECHA") ' Formato: dd/MM/yyyy
|
||||
' Dim FechaHoy As String = DateTime.Date(DateTime.Now) ' Fecha actual en formato dd/MM/yyyy
|
||||
' Dim FechaHoy As String = DateTime.Date(DateTime.Now) ' Fecha actual en formato dd/MM/yyyy
|
||||
Log(pagarepen.GetString("FECHA"))
|
||||
|
||||
|
||||
' Convertir las fechas a milisegundos (desde 01/01/1970)
|
||||
Dim TicksInicio As Long = DateTime.DateParse(FechaInicio)
|
||||
Dim TicksHoy As Long = DateTime.DateParse(DateTime.Date(DateTime.Now))
|
||||
|
||||
|
||||
' Calcular diferencia en días
|
||||
Dim DiferenciaDias As Int = (TicksHoy - TicksInicio) / DateTime.TicksPerDay
|
||||
|
||||
|
||||
' Mostrar resultado
|
||||
Log($"Días transcurridos: ${DiferenciaDias}"$)
|
||||
|
||||
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(CAT_CL_DIASCREDITO,0) AS CAT_CL_DIASCREDITO from kmt_info3 where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
|
||||
c.Position = 0
|
||||
|
||||
|
||||
If ALMACEN = 81 Or ALMACEN = 94 Then
|
||||
If DiferenciaDias <= c.GetInt("CAT_CL_DIASCREDITO") + 8 Then
|
||||
' MsgboxAsync($"Favor de pagar su credito el día de mañana por un monto de $${pagarepen.GetString("SALDO_PENDIENTE")}"$, "Recordatorio")
|
||||
' MsgboxAsync($"Favor de pagar su credito el día de mañana por un monto de $${pagarepen.GetString("SALDO_PENDIENTE")}"$, "Recordatorio")
|
||||
Msgbox2Async($"Favor de pagar su credito el día de mañana por un monto de $${pagarepen.GetString("SALDO_PENDIENTE")}"$, "Recordatorio", "Ok", "", "", LoadBitmap(File.DirAssets,"alert2.png"), False)
|
||||
Wait For Msgbox_Result (resultado As Int)
|
||||
If resultado = DialogResponse.POSITIVE Then
|
||||
@@ -2125,7 +2425,7 @@ Sub gest_Click
|
||||
End If
|
||||
Else
|
||||
If DiferenciaDias <= c.GetInt("CAT_CL_DIASCREDITO") + 1 Then
|
||||
' MsgboxAsync($"Favor de pagar su credito el día de mañana por un monto de $${pagarepen.GetString("SALDO_PENDIENTE")}"$, "Recordatorio")
|
||||
' MsgboxAsync($"Favor de pagar su credito el día de mañana por un monto de $${pagarepen.GetString("SALDO_PENDIENTE")}"$, "Recordatorio")
|
||||
Msgbox2Async($"Favor de pagar su credito el día de mañana por un monto de $${pagarepen.GetString("SALDO_PENDIENTE")}"$, "Recordatorio", "Ok", "", "", LoadBitmap(File.DirAssets,"alert2.png"), False)
|
||||
Wait For Msgbox_Result (resultado As Int)
|
||||
If resultado = DialogResponse.POSITIVE Then
|
||||
@@ -2958,10 +3258,12 @@ Private Sub B4XPage_CloseRequest As ResumableSub
|
||||
Return False
|
||||
else If p_encuesta.Visible Then
|
||||
p_encuesta.Visible = False
|
||||
else If scv_bat.Visible Then
|
||||
scv_bat.Visible = False
|
||||
Else iF p_camara.Visible Then
|
||||
p_camara.Visible = False
|
||||
StopCamera2
|
||||
Return False
|
||||
' p_camara.Visible = False
|
||||
' StopCamera2
|
||||
else If p_pregunta1.Visible Then
|
||||
p_pregunta1.Visible = False
|
||||
Else if SV_ENCUESTA.Visible Then
|
||||
@@ -3240,7 +3542,7 @@ End Sub
|
||||
Sub Impresion4
|
||||
Dim pedinow As Cursor = skmt.ExecQuery("select * FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) AND PE_FUTURO = '0' ")
|
||||
If pedinow.RowCount > 0 Then
|
||||
Mandapedido
|
||||
' Mandapedido
|
||||
|
||||
c=skmt.ExecQuery("select USUARIO from usuarioa")
|
||||
c.Position=0
|
||||
@@ -3523,6 +3825,20 @@ Sub Impresion4
|
||||
Printer1.WriteString("----------COMPROBANTE FISCAL, SOLO ES-----------" & eLINEFEED)
|
||||
Printer1.WriteString("------------------INFORMATIVO-------------------" & eLINEFEED)
|
||||
Printer1.WriteString("------------------------------------------------" & eLINEFEED)
|
||||
If ALMACEN = 81 Then
|
||||
|
||||
Dim creditocod2 As Cursor = Starter.skmt.ExecQuery("SELECT BANDERA FROM CODIGOS_CREDITO WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If creditocod2.RowCount > 0 Then
|
||||
creditocod2.Position = 0
|
||||
If creditocod2.GetString("BANDERA") = "1" Then
|
||||
Dim creditocod As Cursor = Starter.skmt.ExecQuery("SELECT CODIGO FROM CODIGOS_CREDITO WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
creditocod.Position = 0
|
||||
Printer1.WriteString("------------------CODIGO: "& creditocod.GetString("CODIGO")& "------------------" & eLINEFEED)
|
||||
Printer1.WriteString("------------------------------------------------" & eLINEFEED)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Printer1.WriteString(" " & eLINEFEED)
|
||||
|
||||
Sleep(1000)
|
||||
@@ -3871,8 +4187,23 @@ Sub Impresion5
|
||||
Printer1.WriteString("----------COMPROBANTE FISCAL, SOLO ES-----------" & eLINEFEED)
|
||||
Printer1.WriteString("------------------INFORMATIVO-------------------" & eLINEFEED)
|
||||
Printer1.WriteString("------------------------------------------------" & eLINEFEED)
|
||||
|
||||
If ALMACEN = 81 Then
|
||||
|
||||
Dim creditocod2 As Cursor = Starter.skmt.ExecQuery("SELECT BANDERA FROM CODIGOS_CREDITO WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If creditocod2.RowCount > 0 Then
|
||||
creditocod2.Position = 0
|
||||
If creditocod2.GetString("BANDERA") = "1" Then
|
||||
Dim creditocod As Cursor = Starter.skmt.ExecQuery("SELECT CODIGO FROM CODIGOS_CREDITO WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
creditocod.Position = 0
|
||||
Printer1.WriteString("------------------CODIGO: "& creditocod.GetString("CODIGO")& "------------------" & eLINEFEED)
|
||||
Printer1.WriteString("------------------------------------------------" & eLINEFEED)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Printer1.WriteString(" " & eLINEFEED)
|
||||
|
||||
|
||||
Sleep(1000)
|
||||
Printer1.DisConnect
|
||||
|
||||
@@ -8058,4 +8389,126 @@ End Sub
|
||||
|
||||
Private Sub chb_com_CheckedChange(Checked As Boolean)
|
||||
|
||||
End Sub
|
||||
|
||||
Sub P_Imagengrande_click
|
||||
P_Imagengrande.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub ImageView4_LongClick
|
||||
Private fotomostrar As Cursor = Starter.skmt.ExecQuery("SELECT FOTO FROM FOTOS where CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If fotomostrar.RowCount > 0 Then
|
||||
|
||||
fotomostrar.Position = 0
|
||||
Private fotomostrarfinal() As Byte = fotomostrar.GetBlob("FOTO")
|
||||
Dim InputStream1 As InputStream
|
||||
InputStream1.InitializeFromBytesArray(fotomostrarfinal, 0, fotomostrarfinal.Length)
|
||||
Dim Bitmap1 As Bitmap
|
||||
Bitmap1.Initialize2(InputStream1)
|
||||
InputStream1.Close
|
||||
I_fotogrande.Bitmap = Bitmap1
|
||||
Log("aqui si hay foto")
|
||||
Else
|
||||
I_fotogrande.Bitmap = LoadBitmap(File.DirAssets,"images.png")
|
||||
Log("aqui no hay foto")
|
||||
End If
|
||||
P_Imagengrande.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub b_guadarenc_Click
|
||||
DateTime.DateFormat = "dd/MM/yyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
Dim coloressaldo As Cursor=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(CAT_CL_CLASIFICADOR5,0) AS CAT_CL_CLASIFICADOR5 from kmt_info3 where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
|
||||
If coloressaldo.RowCount > 0 Then
|
||||
coloressaldo.Position = 0
|
||||
If coloressaldo.GetString("CAT_CL_CLASIFICADOR5") = "1" Then
|
||||
If e_1 <> "Selecciona una opcion" And e_2 <> "Selecciona una opcion" And e_3<> "Selecciona una opcion" And e_4 <> "Selecciona una opcion" And e_5 <> "Selecciona una opcion" Then
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"insert into ENCUESTAS_BAT (CLIENTE, RUTA, ALMACEN, P1, P2, P3, P4, P5, P6, P7, P8, P9, P10,FECHA) values ('${Subs.traeCliente}', '${Subs.traeRuta}', '${Subs.traeAlmacen}', '${e_1}', '${e_2}', '${e_3}', '${e_4}', '${e_5}', 'N/A', 'N/A', 'N/A', 'N/A', 'N/A' , '${sDate}')"$)
|
||||
scv_bat.Visible = False
|
||||
|
||||
' ENCUESTAS BAT
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM ENCUESTAS_BAT WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_encuestas_bat_guna"
|
||||
cmd.Parameters = Array As Object(c.GetString("CLIENTE"),c.GetString("RUTA"),c.GetString("ALMACEN"),c.GetString("FECHA"),c.GetString("P1"),c.GetString("P2"),c.GetString("P3"),c.GetString("P4"),c.GetString("P5"),c.GetString("P6"),c.GetString("P7"),c.GetString("P8"),c.GetString("P9"),c.GetString("P10"))
|
||||
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "INSENCUESTAS")
|
||||
Next
|
||||
End If
|
||||
c.Close
|
||||
vent
|
||||
Else
|
||||
MsgboxAsync("Favor de responder todas las preguntas","Atención")
|
||||
End If
|
||||
Else If coloressaldo.GetString("CAT_CL_CLASIFICADOR5") = "5" Then
|
||||
If e_1 <> "Selecciona una opcion" And e_2 <> "Selecciona una opcion" And e_3<> "Selecciona una opcion" And e_4 <> "Selecciona una opcion" And e_5 <> "Selecciona una opcion" And e_6 <> "Selecciona una opcion" And e_7 <> "Selecciona una opcion" And e_8<> "Selecciona una opcion" And e_9 <> "Selecciona una opcion" And e_10 <> "Selecciona una opcion" Then
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"insert into ENCUESTAS_BAT (CLIENTE, RUTA, ALMACEN, P1, P2, P3, P4, P5, P6, P7, P8, P9, P10,FECHA) values ('${Subs.traeCliente}', '${Subs.traeRuta}', '${Subs.traeAlmacen}', '${e_1}', '${e_2}', '${e_3}', '${e_4}', '${e_5}', '${e_6}', '${e_7}', '${e_8}', '${e_9}', '${e_10}' , '${sDate}')"$)
|
||||
scv_bat.Visible = False
|
||||
|
||||
' ENCUESTAS BAT
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM ENCUESTAS_BAT WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_encuestas_bat_guna"
|
||||
cmd.Parameters = Array As Object(c.GetString("CLIENTE"),c.GetString("RUTA"),c.GetString("ALMACEN"),c.GetString("FECHA"),c.GetString("P1"),c.GetString("P2"),c.GetString("P3"),c.GetString("P4"),c.GetString("P5"),c.GetString("P6"),c.GetString("P7"),c.GetString("P8"),c.GetString("P9"),c.GetString("P10"))
|
||||
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "INSENCUESTAS")
|
||||
Next
|
||||
End If
|
||||
vent
|
||||
Else
|
||||
MsgboxAsync("Favor de responder todas las preguntas","Atención")
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub b_cancelencu_Click
|
||||
scv_bat.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub cb_p10_SelectedIndexChanged (Index As Int)
|
||||
e_10 = Sender.As(B4XComboBox).SelectedItem
|
||||
End Sub
|
||||
|
||||
Private Sub cb_p9_SelectedIndexChanged (Index As Int)
|
||||
e_9 = Sender.As(B4XComboBox).SelectedItem
|
||||
End Sub
|
||||
|
||||
Private Sub cb_p8_SelectedIndexChanged (Index As Int)
|
||||
e_8 = Sender.As(B4XComboBox).SelectedItem
|
||||
End Sub
|
||||
|
||||
Private Sub cb_p7_SelectedIndexChanged (Index As Int)
|
||||
e_7 = Sender.As(B4XComboBox).SelectedItem
|
||||
End Sub
|
||||
|
||||
Private Sub cb_p6_SelectedIndexChanged (Index As Int)
|
||||
e_6 = Sender.As(B4XComboBox).SelectedItem
|
||||
End Sub
|
||||
|
||||
Private Sub cb_p5_SelectedIndexChanged (Index As Int)
|
||||
e_5 = Sender.As(B4XComboBox).SelectedItem
|
||||
End Sub
|
||||
|
||||
Private Sub cb_p4_SelectedIndexChanged (Index As Int)
|
||||
e_4 = Sender.As(B4XComboBox).SelectedItem
|
||||
End Sub
|
||||
|
||||
Private Sub cb_p3_SelectedIndexChanged (Index As Int)
|
||||
e_3 = Sender.As(B4XComboBox).SelectedItem
|
||||
End Sub
|
||||
|
||||
Private Sub cb_p2_SelectedIndexChanged (Index As Int)
|
||||
e_2 = Sender.As(B4XComboBox).SelectedItem
|
||||
End Sub
|
||||
|
||||
Private Sub cb_p1_SelectedIndexChanged (Index As Int)
|
||||
e_1 = Sender.As(B4XComboBox).SelectedItem
|
||||
End Sub
|
||||
Reference in New Issue
Block a user