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

corecciones generales

Browse Source
This commit is contained in:
cvaldes1201
2024-01-23 13:33:10 -06:00
parent deded905a7
commit 2235c6157a
6 changed files with 162 additions and 180 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)) Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("SERVER",Starter.skmt))
End If 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_ENCUESTA (HE_CLIE TEXT, HE_RES TEXT, HE_FECHA TEXT, HE_TIPO TEXT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_ENCUESTA4 (HE_CLIE TEXT, HE_RES TEXT, HE_FECHA TEXT, HE_TIPO TEXT, HE_ORDEN)")
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_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 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_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)")

284
B4A/C_Cliente.bas
View File

@@ -205,7 +205,6 @@ Private Sub B4XPage_Created (Root1 As B4XView)
End Sub End Sub
Sub B4XPage_Appear Sub B4XPage_Appear
c = Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MACIMP")) c = Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MACIMP"))
If c.RowCount > 0 Then If c.RowCount > 0 Then
c.Position = 0 c.Position = 0
@@ -301,11 +300,14 @@ Sub B4XPage_Appear
End If End If
If Printer1.IsConnected = False Then If Printer1.IsConnected = False Then
Printer1.Connect ' Printer1.Connect
Log("1")
Else Else
Printer1.DisConnect Printer1.DisConnect
Printer1.Connect Printer1.Connect
Log("2")
End If End If
' Printer1.DisConnect
If PASA_IMP = "1" Then If PASA_IMP = "1" Then
B_IMP.Enabled = True B_IMP.Enabled = True
End If End If
@@ -360,7 +362,6 @@ End If
Next Next
End If End If
End If End If
Printer1.DisConnect
End Sub End Sub
Sub GPS_LocationChanged (Location1 As Location) Sub GPS_LocationChanged (Location1 As Location)
@@ -380,66 +381,66 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
End Sub End Sub
Sub gest_Click Sub gest_Click
If la_cuenta.Text <> "0" Then ' If la_cuenta.Text <> "0" Then
' 1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local '' 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")) ' 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 ' If c2.RowCount = 0 Then
' 2=2 ----> si no esta en el historico local mostrar encuesta '' 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)") ' c = Starter.skmt.ExecQuery("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA4 WHERE HE_CLIE IN(SELECT CUENTA FROM CUENTAA)")
If c.RowCount = 0 Then ' If c.RowCount = 0 Then
b_factura.Visible = False ' b_factura.Visible = False
B_EXIBI.Visible = False ' B_EXIBI.Visible = False
HIST.Visible = False ' HIST.Visible = False
Tar.Visible = False ' Tar.Visible = False
Tels.Visible = False ' Tels.Visible = False
B_VENTA.Visible = False ' B_VENTA.Visible = False
B_IMP.Visible = False ' B_IMP.Visible = False
gest.Visible = False ' gest.Visible = False
B_IMP2.Visible = False ' B_IMP2.Visible = False
B_INV.Visible = False ' B_INV.Visible = False
Guardar.Visible = False ' Guardar.Visible = False
sv_encuesta.Visible = True ' sv_encuesta.Visible = True
sv_encuesta.Height = Root.Height ' sv_encuesta.Height = Root.Height
sv_encuesta.Width = Root.Width ' sv_encuesta.Width = Root.Width
sv_encuesta.Panel.LoadLayout("encuesta") ' sv_encuesta.Panel.LoadLayout("encuesta")
sv_encuesta.Panel.Height = p_encuestas.Height ' sv_encuesta.Panel.Height = p_encuestas.Height
p_encuestas.Width = Root.Width ' p_encuestas.Width = Root.Width
'
Dim items As List ' Dim items As List
items.Initialize ' items.Initialize
items.Add("Selecciona una opción") ' items.Add("Selecciona una opción")
items.Add("ESQUINA") ' items.Add("ESQUINA")
items.Add("CALLE") ' items.Add("CALLE")
items.Add("AVENIDA") ' items.Add("AVENIDA")
cb_pregunta1.SetItems(items) ' cb_pregunta1.SetItems(items)
itemselect = "Selecciona una opción" ' itemselect = "Selecciona una opción"
'
Dim items2 As List ' Dim items2 As List
items2.Initialize ' items2.Initialize
items2.Add("Selecciona una opción") ' items2.Add("Selecciona una opción")
items2.Add("1 persona") ' items2.Add("1 persona")
items2.Add("2 personas") ' items2.Add("2 personas")
items2.Add("Mas de 2 personas") ' items2.Add("Mas de 2 personas")
cb_pregunta8.SetItems(items2) ' cb_pregunta8.SetItems(items2)
itemselect2 = "Selecciona una opción" ' itemselect2 = "Selecciona una opción"
'
bandera = 2 ' bandera = 2
Else ' Else
Starter.tipov = "PREVENTA" ' Starter.tipov = "PREVENTA"
B4XPages.ShowPage("Productos") ' B4XPages.ShowPage("Productos")
End If ' End If
Else ' Else
Starter.tipov = "PREVENTA" ' Starter.tipov = "PREVENTA"
B4XPages.ShowPage("Productos") ' B4XPages.ShowPage("Productos")
End If ' End If
Else If la_cuenta.Text = "0" Then ' Else If la_cuenta.Text = "0" Then
Starter.tipov = "PREVENTA" ' Starter.tipov = "PREVENTA"
B4XPages.ShowPage("Productos") ' B4XPages.ShowPage("Productos")
End If ' End If
' Starter.tipov = "PREVENTA" Starter.tipov = "PREVENTA"
' B4XPages.ShowPage("Productos") B4XPages.ShowPage("Productos")
'' StartActivity(colonia2) ' StartActivity(colonia2)
' cuestionario cuestionario
End Sub End Sub
Sub Tels_Click Sub Tels_Click
@@ -595,8 +596,8 @@ Sub B_IMP_Click
Sleep(1000) Sleep(1000)
Log("++++++ " & cont) Log("++++++ " & cont)
cont = cont + 1 cont = cont + 1
If cont = 7 Then Printer1.Connect 'Tratamos de reconectar If cont = 2 Then Printer1.Connect 'Tratamos de reconectar
If cont > 15 Then impresoraConectada = True If cont > 3 Then impresoraConectada = True
Loop Loop
Sleep(500) Sleep(500)
impresoraConectada = False impresoraConectada = False
@@ -609,7 +610,7 @@ Sub B_IMP_Click
Log("****** " & cont) Log("****** " & cont)
cont = cont + 1 cont = cont + 1
If cont = 2 Then Printer1.Connect If cont = 2 Then Printer1.Connect
If cont > 4 Then impresoraConectada = True If cont > 3 Then impresoraConectada = True
Loop Loop
Sleep(500) Sleep(500)
impresoraConectada = False impresoraConectada = False
@@ -788,7 +789,7 @@ Sub B_IMP_Click
' End If ' End If
Printer1.WriteString("Total Preventa: $" & s.GetString("TOTAL") & CRLF) Printer1.WriteString("Total Preventa: $" & s.GetString("TOTAL") & CRLF)
s.Close 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=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 ) and PE_TIPO = 'PREVENTA'")
C.Position=0 C.Position=0
Printer1.WriteString("Total Articulos: " & c.GetString("PC_NOART") & CRLF) Printer1.WriteString("Total Articulos: " & c.GetString("PC_NOART") & CRLF)
c.Close c.Close
@@ -850,8 +851,8 @@ Sub B_IMP2_Click
' Log("conectando ...") ' Log("conectando ...")
Sleep(1000) Sleep(1000)
cont = cont + 1 cont = cont + 1
If cont = 3 Then Printer1.Connect 'Tratamos de reconectar If cont = 2 Then Printer1.Connect 'Tratamos de reconectar
If cont > 15 Then impresoraConectada = True If cont > 3 Then impresoraConectada = True
Loop Loop
Sleep(500) Sleep(500)
impresoraConectada = False impresoraConectada = False
@@ -864,7 +865,7 @@ Sub B_IMP2_Click
Sleep(1000) Sleep(1000)
cont = cont + 1 cont = cont + 1
If cont = 2 Then Printer1.Connect If cont = 2 Then Printer1.Connect
If cont > 4 Then impresoraConectada = True If cont > 3 Then impresoraConectada = True
Loop Loop
Sleep(500) Sleep(500)
impresoraConectada = False impresoraConectada = False
@@ -1009,7 +1010,7 @@ Sub B_IMP2_Click
s.Position =0 s.Position =0
Printer1.WriteString("Total entrega: $" & s.GetString("TOTAL") & CRLF) Printer1.WriteString("Total entrega: $" & s.GetString("TOTAL") & CRLF)
s.Close 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=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 ) and PE_TIPO = 'PREVENTA' ")
C.Position=0 C.Position=0
Printer1.WriteString("Total Articulos: " & c.GetString("PC_NOART") & CRLF) Printer1.WriteString("Total Articulos: " & c.GetString("PC_NOART") & CRLF)
c.Close c.Close
@@ -1171,66 +1172,67 @@ Sub B_INV_Click
End Sub End Sub
Sub B_VENTA_Click Sub B_VENTA_Click
If la_cuenta.Text <> "0" Then ' If la_cuenta.Text <> "0" Then
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")) '' 1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local
If c.RowCount = 0 Then ' 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"))
' 2=2 ----> si no esta en el historico local mostrar encuesta ' If c2.RowCount = 0 Then
c = Starter.skmt.ExecQuery("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA WHERE HE_CLIE IN(SELECT CUENTA FROM CUENTAA)") '' 2=2 ----> si no esta en el historico local mostrar encuesta
If c.RowCount = 0 Then ' c = Starter.skmt.ExecQuery("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA4 WHERE HE_CLIE IN(SELECT CUENTA FROM CUENTAA)")
b_factura.Visible = False ' If c.RowCount = 0 Then
B_EXIBI.Visible = False ' b_factura.Visible = False
HIST.Visible = False ' B_EXIBI.Visible = False
Tar.Visible = False ' HIST.Visible = False
Tels.Visible = False ' Tar.Visible = False
B_VENTA.Visible = False ' Tels.Visible = False
B_IMP.Visible = False ' B_VENTA.Visible = False
gest.Visible = False ' B_IMP.Visible = False
B_IMP2.Visible = False ' gest.Visible = False
B_INV.Visible = False ' B_IMP2.Visible = False
Guardar.Visible = False ' B_INV.Visible = False
sv_encuesta.Visible = True ' Guardar.Visible = False
sv_encuesta.Height = Root.Height ' sv_encuesta.Visible = True
sv_encuesta.Width = Root.Width ' sv_encuesta.Height = Root.Height
sv_encuesta.Panel.LoadLayout("encuesta") ' sv_encuesta.Width = Root.Width
sv_encuesta.Panel.Height = p_encuestas.Height ' sv_encuesta.Panel.LoadLayout("encuesta")
p_encuestas.Width = Root.Width ' sv_encuesta.Panel.Height = p_encuestas.Height
' p_encuestas.Width = Root.Width
Dim items As List '
items.Initialize ' Dim items As List
items.Add("Selecciona una opción") ' items.Initialize
items.Add("ESQUINA") ' items.Add("Selecciona una opción")
items.Add("CALLE") ' items.Add("ESQUINA")
items.Add("AVENIDA") ' items.Add("CALLE")
cb_pregunta1.SetItems(items) ' items.Add("AVENIDA")
itemselect = "Selecciona una opción" ' cb_pregunta1.SetItems(items)
' itemselect = "Selecciona una opción"
Dim items2 As List '
items2.Initialize ' Dim items2 As List
items2.Add("Selecciona una opción") ' items2.Initialize
items2.Add("1 persona") ' items2.Add("Selecciona una opción")
items2.Add("2 personas") ' items2.Add("1 persona")
items2.Add("Mas de 2 personas") ' items2.Add("2 personas")
cb_pregunta8.SetItems(items2) ' items2.Add("Mas de 2 personas")
itemselect2 = "Selecciona una opción" ' cb_pregunta8.SetItems(items2)
' itemselect2 = "Selecciona una opción"
bandera = 1 '
Else ' bandera = 1
Starter.tipov = "VENTA" ' Else
B4XPages.ShowPage("Productos") ' Starter.tipov = "VENTA"
End If ' B4XPages.ShowPage("Productos")
Else ' End If
Starter.tipov = "VENTA" ' Else
B4XPages.ShowPage("Productos") ' Starter.tipov = "VENTA"
End If ' B4XPages.ShowPage("Productos")
Else If la_cuenta.Text = "0" Then ' End If
Starter.tipov = "VENTA" ' Else If la_cuenta.Text = "0" Then
B4XPages.ShowPage("Productos") ' Starter.tipov = "VENTA"
End If ' B4XPages.ShowPage("Productos")
' End If
' Starter.tipov = "VENTA" '
' 'StartActivity(colonia2) Starter.tipov = "VENTA"
' B4XPages.ShowPage("Productos") 'StartActivity(colonia2)
' cuestionario B4XPages.ShowPage("Productos")
cuestionario
End Sub End Sub
Sub b_factura_Click Sub b_factura_Click
@@ -1330,11 +1332,13 @@ End Sub
Sub Printer1_Connected (Success As Boolean) Sub Printer1_Connected (Success As Boolean)
Log("Impresora conectada.") Log("Impresora conectada.")
If Success Then If Success Then
Log("aqui estoy 1")
ToastMessageShow("Connected successfully", False) ToastMessageShow("Connected successfully", False)
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("MACIMP")) Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("MACIMP"))
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("MACIMP", Starter.mac_impresora)) Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("MACIMP", Starter.mac_impresora))
B_IMP.Enabled = True B_IMP.Enabled = True
impresoraConectada = True impresoraConectada = False
' Printer1.DisConnect
Else Else
' Msgbox(Printer1.ConnectedErrorMsg, "Error connecting.") ' Msgbox(Printer1.ConnectedErrorMsg, "Error connecting.")
' If Msgbox2("", "Printer Error","Reprint","Cancel","",Null) = DialogResponse.POSITIVE Then 'ignore ' If Msgbox2("", "Printer Error","Reprint","Cancel","",Null) = DialogResponse.POSITIVE Then 'ignore
@@ -1529,7 +1533,7 @@ Private Sub b_guadaenc_Click
sTime=DateTime.Time(DateTime.Now) sTime=DateTime.Time(DateTime.Now)
c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA") c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
c.Position = 0 c.Position = 0
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),itemselect,sDate&" "&sTime,2 )) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA4 VALUES(?,?,?,?,?) ",Array As String(c.GetString("CUENTA"),itemselect,sDate&" "&sTime,2,1 ))
c.Close c.Close
If et_pregunta2.Text <> "" Then If et_pregunta2.Text <> "" Then
DateTime.DateFormat = "MM/dd/yyyy" DateTime.DateFormat = "MM/dd/yyyy"
@@ -1538,7 +1542,7 @@ Private Sub b_guadaenc_Click
sTime=DateTime.Time(DateTime.Now) sTime=DateTime.Time(DateTime.Now)
c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA") c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
c.Position = 0 c.Position = 0
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta2.Text,sDate&" "&sTime,1 )) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA4 VALUES(?,?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta2.Text,sDate&" "&sTime,1,2 ))
c.Close c.Close
If et_pregunta3.Text <> "" Then If et_pregunta3.Text <> "" Then
DateTime.DateFormat = "MM/dd/yyyy" DateTime.DateFormat = "MM/dd/yyyy"
@@ -1547,7 +1551,7 @@ Private Sub b_guadaenc_Click
sTime=DateTime.Time(DateTime.Now) sTime=DateTime.Time(DateTime.Now)
c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA") c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
c.Position = 0 c.Position = 0
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta3.Text,sDate&" "&sTime,1 )) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA4 VALUES(?,?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta3.Text,sDate&" "&sTime,1 ,3))
c.Close c.Close
If et_pregunta4.Text <> "" Then If et_pregunta4.Text <> "" Then
DateTime.DateFormat = "MM/dd/yyyy" DateTime.DateFormat = "MM/dd/yyyy"
@@ -1556,7 +1560,7 @@ Private Sub b_guadaenc_Click
sTime=DateTime.Time(DateTime.Now) sTime=DateTime.Time(DateTime.Now)
c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA") c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
c.Position = 0 c.Position = 0
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta4.Text,sDate&" "&sTime,1 )) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA4 VALUES(?,?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta4.Text,sDate&" "&sTime,1,4 ))
c.Close c.Close
If et_pregunta5.Text <> "" Then If et_pregunta5.Text <> "" Then
DateTime.DateFormat = "MM/dd/yyyy" DateTime.DateFormat = "MM/dd/yyyy"
@@ -1565,7 +1569,7 @@ Private Sub b_guadaenc_Click
sTime=DateTime.Time(DateTime.Now) sTime=DateTime.Time(DateTime.Now)
c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA") c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
c.Position = 0 c.Position = 0
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta5.Text,sDate&" "&sTime,1 )) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA4 VALUES(?,?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta5.Text,sDate&" "&sTime,1,5 ))
c.Close c.Close
If et_pregunta6.Text <> "" Then If et_pregunta6.Text <> "" Then
DateTime.DateFormat = "MM/dd/yyyy" DateTime.DateFormat = "MM/dd/yyyy"
@@ -1574,7 +1578,7 @@ Private Sub b_guadaenc_Click
sTime=DateTime.Time(DateTime.Now) sTime=DateTime.Time(DateTime.Now)
c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA") c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
c.Position = 0 c.Position = 0
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta6.Text,sDate&" "&sTime,1 )) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA4 VALUES(?,?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta6.Text,sDate&" "&sTime,1 ,6))
c.Close c.Close
If rb_p7no.Checked = True Or rb_p7si.Checked = True Then If rb_p7no.Checked = True Or rb_p7si.Checked = True Then
DateTime.DateFormat = "MM/dd/yyyy" DateTime.DateFormat = "MM/dd/yyyy"
@@ -1583,7 +1587,7 @@ Private Sub b_guadaenc_Click
sTime=DateTime.Time(DateTime.Now) sTime=DateTime.Time(DateTime.Now)
c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA") c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
c.Position = 0 c.Position = 0
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),pregunta7,sDate&" "&sTime,1 )) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA4 VALUES(?,?,?,?,?) ",Array As String(c.GetString("CUENTA"),pregunta7,sDate&" "&sTime,3,7 ))
c.Close c.Close
If itemselect2 <> "Selecciona una opción" Then If itemselect2 <> "Selecciona una opción" Then
DateTime.DateFormat = "MM/dd/yyyy" DateTime.DateFormat = "MM/dd/yyyy"
@@ -1592,7 +1596,7 @@ Private Sub b_guadaenc_Click
sTime=DateTime.Time(DateTime.Now) sTime=DateTime.Time(DateTime.Now)
c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA") c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
c.Position = 0 c.Position = 0
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),itemselect2,sDate&" "&sTime,2 )) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA4 VALUES(?,?,?,?,?) ",Array As String(c.GetString("CUENTA"),itemselect2,sDate&" "&sTime,2,8 ))
c.Close c.Close
If bandera = 1 Then If bandera = 1 Then

5
B4A/C_Principal.bas
View File

@@ -621,7 +621,7 @@ Sub Subir_Click
c.Close c.Close
End If End If
c=skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA") c=skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO, HE_ORDEN FROM HIST_ENCUESTA4")
' S_CP.Text = "Envio Encuesta" ' S_CP.Text = "Envio Encuesta"
PB2.Progress = 1 PB2.Progress = 1
If c.RowCount>0 Then If c.RowCount>0 Then
@@ -630,7 +630,7 @@ Sub Subir_Click
Dim cmd As DBCommand Dim cmd As DBCommand
cmd.Initialize cmd.Initialize
cmd.Name = "INSERT_ENCUESTA_K001DUR" cmd.Name = "INSERT_ENCUESTA_K001DUR"
cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"),"1",ALMACEN,l_ruta.text,"1", C.GetString("HE_TIPO")) cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"),C.GetString("HE_ORDEN"),ALMACEN,l_ruta.text,"1", C.GetString("HE_TIPO"))
reqManager.ExecuteQuery(cmd , 0,"INS_K001") reqManager.ExecuteQuery(cmd , 0,"INS_K001")
Next Next
@@ -2020,6 +2020,7 @@ Sub e_ruta_EnterPressed
skmt.ExecNonQuery("delete from HIST_VENTAS") skmt.ExecNonQuery("delete from HIST_VENTAS")
skmt.ExecNonQuery("delete from HIST_VERIFICACION") skmt.ExecNonQuery("delete from HIST_VERIFICACION")
skmt.ExecNonQuery("delete from HIST_ENCUESTA") skmt.ExecNonQuery("delete from HIST_ENCUESTA")
skmt.ExecNonQuery("delete from HIST_ENCUESTA4")
skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("NUMERO_PEDIDO")) skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("NUMERO_PEDIDO"))
skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("NUMERO_PEDIDO",0)) skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("NUMERO_PEDIDO",0))

4
B4A/Durakelo.b4a
View File

@@ -765,7 +765,7 @@ Library6=camera
Library7=compressstrings Library7=compressstrings
Library8=contentresolver Library8=contentresolver
Library9=core Library9=core
ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: https://www.b4x.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk android:minSdkVersion="21" android:targetSdkVersion="33"/>~\n~<supports-screens android:largeScreens="true" ~\n~ android:normalScreens="true" ~\n~ android:smallScreens="true" ~\n~ android:anyDensity="true"/>)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~CreateResourceFromFile(Macro, Themes.LightTheme)~\n~'End of default text.~\n~~\n~AddApplicationText(~\n~<meta-data android:name="com.google.android.geo.API_KEY" android:value="AIzaSyBlBnx3O-DncOSv3oFIp-12wgujOYYcl-U"/>~\n~<meta-data android:name="com.google.android.gms.version" android:value="@integer/google_play_services_version" />~\n~)~\n~AddManifestText(<uses-permission android:name="android.permission.ACCESS_FINE_LOCATION" android:maxSdkVersion="33" />)~\n~AddManifestText(<uses-permission android:name="android.permission.BLUETOOTH_ADMIN" />)~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~~\n~~\n~'/////////////// FLP y FBMessageing MOD Inicia /////////////////////~\n~CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)~\n~CreateResourceFromFile(Macro, FirebaseAnalytics.Firebase)~\n~CreateResourceFromFile(Macro, FirebaseAnalytics.FirebaseAnalytics)~\n~CreateResourceFromFile(Macro, FirebaseNotifications.FirebaseNotifications)~\n~'CreateResourceFromFile(Macro, FirebaseAnalytics.Crashlytics)~\n~SetServiceAttribute(Tracker, android:foregroundServiceType, "location")~\n~'/////////////// FLP y FBMessageing MOD Termina /////////////////////~\n~~\n~'Si al cargar un mapa de google manda este error "java.lang.NoClassDefFoundError: Failed resolution of: Lorg/apache/http/ProtocolVersion". agregar la siguiente linea:~\n~AddApplicationText(<uses-library android:name="org.apache.http.legacy" android:required="false"/>)~\n~SetApplicationAttribute(android:allowBackup, "false")~\n~SetApplicationAttribute(android:exported, "true")~\n~AddManifestText(<queries><package android:name="com.google.android.apps.maps" /></queries>)~\n~~\n~'Para provider (Envio de base de datos por whatsapp)~\n~AddApplicationText(~\n~ <provider android:name="android.support.v4.content.FileProvider" android:authorities="$PACKAGE$.provider" android:exported="false" android:grantUriPermissions="true">~\n~ <meta-data android:name="android.support.FILE_PROVIDER_PATHS" android:resource="@xml/provider_paths"/>~\n~ </provider>~\n~ )~\n~CreateResource(xml, provider_paths,~\n~ <paths>~\n~ <external-files-path name="name" path="" />~\n~ <files-path name="name" path="" />~\n~ <files-path name="name" path="shared" />~\n~ </paths>~\n~ )~\n~ ~\n~ AddManifestText(<uses-permission~\n~ android:name="android.permission.WRITE_EXTERNAL_STORAGE"~\n~ android:maxSdkVersion="18" />~\n~ )~\n~ AddApplicationText(~\n~ <provider~\n~ android:name="android.support.v4.content.FileProvider"~\n~ android:authorities="$PACKAGE$.provider"~\n~ android:exported="false"~\n~ android:grantUriPermissions="true">~\n~ <meta-data~\n~ android:name="android.support.FILE_PROVIDER_PATHS"~\n~ android:resource="@xml/provider_paths"/>~\n~ </provider>~\n~ )~\n~ CreateResource(xml, provider_paths,~\n~ <paths>~\n~ <external-files-path name="name" path="" />~\n~ <files-path name="name" path="" />~\n~ <files-path name="name" path="shared" />~\n~ </paths>~\n~ )~\n~ AddPermission(android.permission.REQUEST_INSTALL_PACKAGES)~\n~ AddPermission(android.permission.INTERNET)~\n~ AddPermission(android.permission.INSTALL_PACKAGES)~\n~ AddPermission(android.permission.READ_EXTERNAL_STORAGE)~\n~ AddPermission(android.permission.WRITE_EXTERNAL_STORAGE)~\n~ AddPermission(android.permission.READ_PHONE_STATE)~\n~ AddPermission(android.permission.WAKE_LOCK)~\n~ ~\n~ ~\n~ AddPermission(android.permission.ACCESS_FINE_LOCATION)~\n~AddPermission(android.permission.BLUETOOTH_ADVERTISE)~\n~AddPermission(android.permission.BLUETOOTH_CONNECT)~\n~AddPermission(android.permission.BLUETOOTH_SCAN) ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: https://www.b4x.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk android:minSdkVersion="21" android:targetSdkVersion="33"/>~\n~<supports-screens android:largeScreens="true" ~\n~ android:normalScreens="true" ~\n~ android:smallScreens="true" ~\n~ android:anyDensity="true"/>)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~CreateResourceFromFile(Macro, Themes.LightTheme)~\n~'End of default text.~\n~~\n~AddApplicationText(~\n~<meta-data android:name="com.google.android.geo.API_KEY" android:value="AIzaSyBlBnx3O-DncOSv3oFIp-12wgujOYYcl-U"/>~\n~<meta-data android:name="com.google.android.gms.version" android:value="@integer/google_play_services_version" />~\n~)~\n~AddManifestText(<uses-permission android:name="android.permission.ACCESS_FINE_LOCATION" android:maxSdkVersion="33" />)~\n~AddManifestText(<uses-permission android:name="android.permission.BLUETOOTH_ADMIN" />)~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~~\n~AddPermission(android.permission.ACCESS_FINE_LOCATION)~\n~AddPermission(android.permission.BLUETOOTH_ADVERTISE)~\n~AddPermission(android.permission.BLUETOOTH_CONNECT)~\n~AddPermission(android.permission.BLUETOOTH_SCAN)~\n~~\n~'/////////////// FLP y FBMessageing MOD Inicia /////////////////////~\n~CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)~\n~CreateResourceFromFile(Macro, FirebaseAnalytics.Firebase)~\n~CreateResourceFromFile(Macro, FirebaseAnalytics.FirebaseAnalytics)~\n~CreateResourceFromFile(Macro, FirebaseNotifications.FirebaseNotifications)~\n~'CreateResourceFromFile(Macro, FirebaseAnalytics.Crashlytics)~\n~SetServiceAttribute(Tracker, android:foregroundServiceType, "location")~\n~'/////////////// FLP y FBMessageing MOD Termina /////////////////////~\n~~\n~'Si al cargar un mapa de google manda este error "java.lang.NoClassDefFoundError: Failed resolution of: Lorg/apache/http/ProtocolVersion". agregar la siguiente linea:~\n~AddApplicationText(<uses-library android:name="org.apache.http.legacy" android:required="false"/>)~\n~SetApplicationAttribute(android:allowBackup, "false")~\n~SetApplicationAttribute(android:exported, "true")~\n~AddManifestText(<queries><package android:name="com.google.android.apps.maps" /></queries>)~\n~~\n~'Para provider (Envio de base de datos por whatsapp)~\n~AddApplicationText(~\n~ <provider android:name="android.support.v4.content.FileProvider" android:authorities="$PACKAGE$.provider" android:exported="false" android:grantUriPermissions="true">~\n~ <meta-data android:name="android.support.FILE_PROVIDER_PATHS" android:resource="@xml/provider_paths"/>~\n~ </provider>~\n~ )~\n~CreateResource(xml, provider_paths,~\n~ <paths>~\n~ <external-files-path name="name" path="" />~\n~ <files-path name="name" path="" />~\n~ <files-path name="name" path="shared" />~\n~ </paths>~\n~ )~\n~ ~\n~ AddManifestText(<uses-permission~\n~ android:name="android.permission.WRITE_EXTERNAL_STORAGE"~\n~ android:maxSdkVersion="18" />~\n~ )~\n~ AddApplicationText(~\n~ <provider~\n~ android:name="android.support.v4.content.FileProvider"~\n~ android:authorities="$PACKAGE$.provider"~\n~ android:exported="false"~\n~ android:grantUriPermissions="true">~\n~ <meta-data~\n~ android:name="android.support.FILE_PROVIDER_PATHS"~\n~ android:resource="@xml/provider_paths"/>~\n~ </provider>~\n~ )~\n~ CreateResource(xml, provider_paths,~\n~ <paths>~\n~ <external-files-path name="name" path="" />~\n~ <files-path name="name" path="" />~\n~ <files-path name="name" path="shared" />~\n~ </paths>~\n~ )~\n~ AddPermission(android.permission.REQUEST_INSTALL_PACKAGES)~\n~ AddPermission(android.permission.INTERNET)~\n~ AddPermission(android.permission.INSTALL_PACKAGES)~\n~ AddPermission(android.permission.READ_EXTERNAL_STORAGE)~\n~ AddPermission(android.permission.WRITE_EXTERNAL_STORAGE)~\n~ AddPermission(android.permission.READ_PHONE_STATE)~\n~ AddPermission(android.permission.WAKE_LOCK)~\n~ ~\n~ ~\n~
Module1=appUpdater Module1=appUpdater
Module10=C_Productos Module10=C_Productos
Module11=C_Promos Module11=C_Promos
@@ -797,7 +797,7 @@ Version=12.5
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Durakelo #ApplicationLabel: Durakelo
#VersionCode: 1 #VersionCode: 1
#VersionName: 4.01.18_5 #VersionName: 4.01.23_1
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

6
B4A/Durakelo.b4a.meta
View File

@@ -48,7 +48,7 @@ ModuleBreakpoints8=
ModuleBreakpoints9= ModuleBreakpoints9=
ModuleClosedNodes0= ModuleClosedNodes0=
ModuleClosedNodes1= ModuleClosedNodes1=
ModuleClosedNodes10=1,3,7,35,36,37,38,39,40,41,42 ModuleClosedNodes10=1,7,35,36,37,38,39,40,41,42
ModuleClosedNodes11= ModuleClosedNodes11=
ModuleClosedNodes12= ModuleClosedNodes12=
ModuleClosedNodes13= ModuleClosedNodes13=
@@ -70,6 +70,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=1,3 ModuleClosedNodes7=1,3
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=Main,Globals,24,0,Diseñador Visual,Cliente.bal,-100,1,kms_helperSubs,Class_Globals,0,0,C_Cliente,B_INV_Click,1154,0,C_Cliente,B_VENTA_Click,1218,6,C_Principal,t1_tick,2092,0,C_Principal,cargar_Click,868,0,C_Principal,SUBIR_P_Click,2640,0,B4XMainPage,B4XPage_Created,150,0,C_Principal,Subir_Click,589,0 NavigationStack=C_Productos,B4XPage_Appear,267,0,C_Principal,Class_Globals,0,0,C_Nota,Class_Globals,0,0,C_Principal,cargar_Click,958,0,C_Cliente,Class_Globals,0,0,Diseñador Visual,Cliente.bal,-100,1,C_Cliente,B_INV_Click,1117,0,C_Cliente,GPS_LocationChanged,362,0,C_Cliente,gest_Click,434,0,C_Cliente,B_VENTA_Click,1226,0,C_Cliente,B4XPage_Appear,296,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=21,2,9,18,7,4,10,22,11,23 VisibleModules=21,2,9,18,7,10,22,11,23,4

42
B4A/EscPosPrinter.bas
View File

@@ -113,8 +113,11 @@ Public Sub Connect As Boolean
PairedDevices = Serial1.GetPairedDevices PairedDevices = Serial1.GetPairedDevices
Dim l As List Dim l As List
l.Initialize l.Initialize
Log("aqui 1")
For i = 0 To PairedDevices.Size - 1 For i = 0 To PairedDevices.Size - 1
l.Add(PairedDevices.GetKeyAt(i)) l.Add(PairedDevices.GetKeyAt(i))
Log("aqui 2")
DisConnect
Next Next
Dim Res As Int Dim Res As Int
Res = InputList(l, "Choose a printer", -1) 'show list with paired devices 'ignore Res = InputList(l, "Choose a printer", -1) 'show list with paired devices 'ignore
@@ -123,52 +126,25 @@ Public Sub Connect As Boolean
'Msgbox(PairedDevices.Get(l.Get(Res)),"mac") 'Msgbox(PairedDevices.Get(l.Get(Res)),"mac")
Starter.mac_impresora = PairedDevices.Get(l.Get(Res)) Starter.mac_impresora = PairedDevices.Get(l.Get(Res))
Return True Return True
DisConnect
Log("aqui 3")
End If End If
Log("aqui 4")
Return False Return False
Else Else
Serial1.Connect(Starter.mac_impresora) Serial1.Connect(Starter.mac_impresora)
' Starter.mac_impresora = colonia.MAC_IMPRESORA ' Starter.mac_impresora = colonia.MAC_IMPRESORA
Return True Return True
DisConnect
Log("aqui 5")
End If End If
Catch Catch
Log(LastException) Log(LastException)
Return False
End Try End Try
End Sub End Sub
'Public Sub Connect2 As Boolean
' 'leos
'' Serial1.Connect("88:6B:0F:3E:53:9E")
'' Return True
'' Try
'' If Starter.MAC_IMPRESORA = "0" Then
' Dim PairedDevices As Map
' PairedDevices = Serial1.GetPairedDevices
' Dim l As List
' l.Initialize
' For i = 0 To PairedDevices.Size - 1
' l.Add(PairedDevices.GetKeyAt(i))
' Next
' Dim Res As Int
' Res = InputList(l, "Choose a printer", -1) 'show list with paired devices 'ignore
' If Res <> DialogResponse.CANCEL Then
' Serial1.Connect(PairedDevices.Get(l.Get(Res))) 'convert the name to mac address
' 'Msgbox(PairedDevices.Get(l.Get(Res)),"mac")
' Starter.mac_impresora = PairedDevices.Get(l.Get(Res))
' Return True
' End If
' Return False
'' Else
'' Serial1.Connect(Starter.mac_impresora)
'' ' Starter.mac_impresora = colonia.MAC_IMPRESORA
'' Return True
'' End If
'' Catch
'' Log(LastException)
'' End Try
'End Sub
' Disconnect the printer ' Disconnect the printer
Public Sub DisConnect Public Sub DisConnect
Serial1.Disconnect Serial1.Disconnect