mirror of
https://github.com/KeymonSoft/Guna_Preventa.git
synced 2026-04-20 14:19:25 +00:00
- VERSION 5.02.05
- Se agregó que una vez impresa la venta, ya no se pueda modificar, y si se quiere modificar, es necesario pedir al supervisor una clave de autorización. - Se agregó a "Cliente" un boton de "Enviar Ticket", que genera un PDF con el ticket y lo envia por WhatsApp o correo
This commit is contained in:
@@ -179,7 +179,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_PRO3054(H_IDCLIENTE TEXT)")
|
||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_PRO3055(H_IDCLIENTE TEXT)")
|
||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTA_SUPLENCIA(RS_RUTA TEXT)")
|
||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_GUNAPROD2 (CAT_GP_INICIATIVA TEXT, CAT_GP_TIPOPROD TEXT, CAT_GP_DEV TEXT, CAT_GP_ALMACEN NUMERIC, CAT_GP_ID TEXT, CAT_GP_NOMBRE TEXT, CAT_GP_IMP1 TEXT, CAT_GP_IMP2 TEXT, CAT_GP_PRECIO TEXT, CAT_GP_CLASIF TEXT, CAT_GP_STS TEXT, CAT_GP_TIPO TEXT, CAT_GP_SUBTIPO TEXT, CAT_GP_IMG BLOB, CAT_GP_CODPROMO TEXT)")
|
||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTA_SUPLENCIA(RS_RUTA TEXT)")
|
||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS TICKET_IMPRESO (idCliente TEXT)")
|
||||
' skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_VARIABLES (CAT_VA_DESCRIPCION TEXT, CAT_VA_VALOR TEXT)")
|
||||
Subs.agregaColumna("HIST_ENCUESTA", "HE_LAT", "TEXT")
|
||||
Subs.agregaColumna("HIST_ENCUESTA", "HE_FOTO", "BLOB")
|
||||
|
||||
@@ -431,6 +431,13 @@ Sub Class_Globals
|
||||
|
||||
Private b_preventa As Button
|
||||
Dim bitacora As C_Bitacora
|
||||
Dim p_transparenteTicketImpreso As Panel
|
||||
Private et_codigoAutorizacion As EditText
|
||||
Private b_codigoAutorizacion As Button
|
||||
Private b_cancelarCodigoAutorizacion As Button
|
||||
Private p_ticketImpreso As Panel
|
||||
Private b_enviarTicket As Button
|
||||
Dim archivoTicketPDF As String
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -473,6 +480,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
End If
|
||||
c.Close
|
||||
s.Close
|
||||
File.Copy(File.DirAssets,"guna-fondo.jpg",xui.DefaultFolder,"guna-fondo.jpg")
|
||||
TOMAR_FOTO = 0
|
||||
btAdmin.Initialize("BlueTeeth")
|
||||
cmp20.Initialize("Printer")
|
||||
@@ -480,6 +488,9 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
SV_ENCUESTA.Width = Root.Height
|
||||
p_pregunta1.Height = Root.Height
|
||||
p_pregunta1.Width = Root.Height
|
||||
p_transparenteTicketImpreso.Left = 0 : p_transparenteTicketImpreso.top = 0
|
||||
p_transparenteTicketImpreso.Width = Root.Width : p_transparenteTicketImpreso.Height = Root.Height
|
||||
Subs.centraPanel(p_ticketImpreso, p_transparenteTicketImpreso.Width)
|
||||
Tels.Visible = False
|
||||
gest.Visible = False
|
||||
l_version.Left = Root.Width - (l_version.Width + 10)
|
||||
@@ -498,14 +509,14 @@ Sub B4XPage_Appear
|
||||
indicePregunta = 0
|
||||
If TOMAR_FOTO <> 0 Then Cuestionario
|
||||
Starter.idCliente = Subs.traeCliente
|
||||
Log(Subs.traeCliente)
|
||||
' Log(Subs.traeCliente)
|
||||
If Subs.traeCliente = "0" Then
|
||||
tipo_venta = "ABORDO"
|
||||
Log(1)
|
||||
Log("ABORDO")
|
||||
Else
|
||||
tipo_venta = Subs.traeTipoVentaDeBD
|
||||
Log(2)
|
||||
' Log(2)
|
||||
Log(Subs.traeTipoVentaDeBD)
|
||||
End If
|
||||
B4XPages.MainPage.tipo_venta = tipo_venta
|
||||
@@ -979,7 +990,7 @@ Sub GPS_LocationChanged (Location1 As Location)
|
||||
gest.Visible = False
|
||||
Tels.Visible = False
|
||||
' p_transparenteInicioFin.Visible = False
|
||||
Log(999)
|
||||
' Log(999)
|
||||
' b_Inicio_Fin_venta.Visible = False
|
||||
End If
|
||||
End If
|
||||
@@ -1230,8 +1241,45 @@ Sub JobDone(Job As HttpJob)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
If result1.Tag = "codigoAutorizacion" Then
|
||||
If result1.Rows.Size > 0 Then
|
||||
Log("Si hay codigo de autorizaion")
|
||||
For Each records() As Object In result1.Rows
|
||||
For Each k As String In result1.Columns.Keys
|
||||
Log(k & ": " & records(result1.Columns.Get(k)))
|
||||
Next
|
||||
Next
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "delete_codigoAutorizacion"
|
||||
cmd.Parameters = Array As Object(et_codigoAutorizacion.Text.Trim, Subs.traeRuta, Subs.traeAlmacen)
|
||||
reqManager.ExecuteCommand(cmd , "deleteCodigoAutorizacion")
|
||||
DateTime.DateFormat = "YYYY/MM/dd HH:mm:ss"
|
||||
cmd.Initialize
|
||||
cmd.Name = "update_codigoAutorizacion"
|
||||
' Log($"(${DateTime.Date(DateTime.Now)}, ${Subs.traeUsuarioDeBD}, ${et_codigoAutorizacion.Text.Trim}, ${Subs.traeRuta}, ${Subs.traeAlmacen}"$)
|
||||
cmd.Parameters = Array As Object(DateTime.Date(DateTime.Now), Subs.traeUsuarioDeBD, et_codigoAutorizacion.Text.Trim, Subs.traeRuta, Subs.traeAlmacen)
|
||||
reqManager.ExecuteCommand(cmd , "updateCodigoAutorizacion")
|
||||
Starter.skmt.ExecNonQuery("delete from ticket_impreso where idCliente in (select cuenta from cuentaa)")
|
||||
p_transparenteTicketImpreso.Visible = False
|
||||
et_codigoAutorizacion.Text = ""
|
||||
teclado.HideKeyboard
|
||||
ToastMessageShow("Listo, ya se puede modificar la venta.", True)
|
||||
Else
|
||||
ToastMessageShow("El codigo es incorrecto, por favor revise y vuelva a intentar!!", True)
|
||||
End If
|
||||
End If
|
||||
If result1.Tag = "delete_codigoAutorizacion" Then
|
||||
Log("Codigo Borrado!!")
|
||||
End If
|
||||
If result1.Tag = "updateCodigoAutorizacion" Then
|
||||
Log("Codigo Actualizado")
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
' If Job.JobName = "DBRequest" Then
|
||||
' Dim result1 As DBResult = reqManager.HandleJob(Job)
|
||||
' If result1.Tag = "CHECAENCUESTA" Then 'query tag
|
||||
@@ -1260,52 +1308,40 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
|
||||
End Sub
|
||||
|
||||
Sub gest_Click
|
||||
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(encuesta,0) AS encuesta from kmt_info2 where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
c.Position = 0
|
||||
If c.GetString("encuesta") = "0" Then
|
||||
Dim Intent1 As Intent
|
||||
Dim enviorutas As String = "guna://tienda360/config?clienteId="&la_cuenta.Text&"&almacen="&ALMACEN&"&ruta="&Subs.traeRuta
|
||||
Log(enviorutas)
|
||||
Intent1.Initialize(Intent1.ACTION_VIEW, enviorutas)
|
||||
Try
|
||||
Starter.encuesta = 1
|
||||
|
||||
Dim cmd As DBCommand
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
skmt.ExecNonQuery2("UPDATE kmt_info2 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(1))
|
||||
StartActivity(Intent1)
|
||||
If Not(Subs.revisaImpreso) Then
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(encuesta,0) AS encuesta from kmt_info2 where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
c.Position = 0
|
||||
If c.GetString("encuesta") = "0" Then
|
||||
Dim Intent1 As Intent
|
||||
Dim enviorutas As String = "guna://tienda360/config?clienteId="&la_cuenta.Text&"&almacen="&ALMACEN&"&ruta="&Subs.traeRuta
|
||||
Log(enviorutas)
|
||||
Intent1.Initialize(Intent1.ACTION_VIEW, enviorutas)
|
||||
Try
|
||||
Starter.encuesta = 1
|
||||
Dim cmd As DBCommand
|
||||
skmt.ExecNonQuery2("UPDATE kmt_info2 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(1))
|
||||
StartActivity(Intent1)
|
||||
compra
|
||||
Catch
|
||||
Starter.encuesta = 0
|
||||
Dim cmd As DBCommand
|
||||
skmt.ExecNonQuery2("UPDATE kmt_info2 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(2))
|
||||
ToastMessageShow("La aplicación Tienda 360 no está instalada o no puede manejar la URL.", True)
|
||||
compra
|
||||
End Try
|
||||
cmd.Initialize
|
||||
cmd.Name = "SELECT_TMP_DROP_ENCUESTA_GUNA"
|
||||
cmd.Parameters = Array As Object(usuario, B4XPages.MainPage.principal.e_ruta.text, ALMACEN, "ENCUESTA")
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "CHECAENCUESTA")
|
||||
Else
|
||||
compra
|
||||
Catch
|
||||
|
||||
|
||||
Starter.encuesta = 0
|
||||
Dim cmd As DBCommand
|
||||
|
||||
|
||||
|
||||
skmt.ExecNonQuery2("UPDATE kmt_info2 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(2))
|
||||
ToastMessageShow("La aplicación Tienda 360 no está instalada o no puede manejar la URL.", True)
|
||||
compra
|
||||
End Try
|
||||
cmd.Initialize
|
||||
cmd.Name = "SELECT_TMP_DROP_ENCUESTA_GUNA"
|
||||
cmd.Parameters = Array As Object(usuario, B4XPages.MainPage.principal.e_ruta.text, ALMACEN, "ENCUESTA")
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "CHECAENCUESTA")
|
||||
|
||||
End If
|
||||
Else
|
||||
compra
|
||||
p_transparenteTicketImpreso.Visible = True
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Sub compra
|
||||
|
||||
' If ALMACEN = "4" Or ALMACEN = "36" Then
|
||||
' Log(Subs.traeAlmacen)
|
||||
|
||||
@@ -1320,7 +1356,6 @@ Sub compra
|
||||
' IZTAPALAPA- 43--
|
||||
' CEDA- 54--
|
||||
' PACHUCA- 15--
|
||||
|
||||
Private rutasEncuesta As List
|
||||
rutasEncuesta.Initialize2(Array As Int(702, 703, 707, 718, 730, 732, 733, 734))
|
||||
Private alamcenesEncuesta As List
|
||||
@@ -2076,7 +2111,7 @@ Sub Guardar_Click
|
||||
|
||||
'AQUI CAMBIAR
|
||||
Private s3 As Cursor=B4XPages.MainPage.skmt.ExecQuery2("select * FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) and PE_RECALCULO <> ? AND PE_RECALCULO <> ? AND PE_RECALCULO <> ?",Array As String("","null",Null))
|
||||
LogColor(s3.RowCount,Colors.Yellow)
|
||||
' LogColor(s3.RowCount,Colors.Yellow)
|
||||
If s3.RowCount > 0 Then
|
||||
Private s As Cursor=B4XPages.MainPage.skmt.ExecQuery2("select iFNULL(sum(pe_costo_tot),0) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) and PE_RECALCULO = ? AND PE_RECALCULO = ? AND PE_RECALCULO = ?",Array As String("","null",Null))
|
||||
s.Position = 0
|
||||
@@ -2096,6 +2131,8 @@ Sub Guardar_Click
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT) VALUES (?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),NumberFormat2(suma,0,2,2,False), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info2 set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from TICKET_IMPRESO where idCliente In (select cuenta from cuentaa)")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"insert into TICKET_IMPRESO (idCliente) values ('${Subs.traeCliente}')"$)
|
||||
End If
|
||||
c.Close
|
||||
DateTime.TimeFormat = "HHmmss"
|
||||
@@ -4885,4 +4922,258 @@ End Sub
|
||||
|
||||
Private Sub b_preventa_Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub p_transparenteTicketImpreso_Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub b_codigoAutorizacion_Click
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_codigoAutorizacion"
|
||||
cmd.Parameters = Array As Object(et_codigoAutorizacion.Text.Trim, Subs.traeRuta, Subs.traeAlmacen)
|
||||
reqManager.ExecuteQuery(cmd , 0, "codigoAutorizacion")
|
||||
' p_transparenteTicketImpreso.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub b_cancelarCodigoAutorizacion_Click
|
||||
p_transparenteTicketImpreso.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub PDFGENERAR
|
||||
ESPACIO = 0
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
DateTime.TimeFormat = "HH:mm:ss"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
Dim PDF As cPDF
|
||||
'initialize with mm unit
|
||||
PDF.Initialize("mm")
|
||||
'set properties
|
||||
PDF.sProperty(PDF.PropertyAuthor,"Keymonsoft"). _
|
||||
sProperty(PDF.PropertyTitle,"Ticket"). _
|
||||
sProperty(PDF.PropertyKeywords,"B4X,PDF,Cross platform")
|
||||
'add a page
|
||||
|
||||
Dim s56 As Cursor=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_FOLIO = ? AND LENGTH(PE_CEDIS) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PROID", Array As String("PREVENTA"))
|
||||
Dim s57 As Cursor = 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_FOLIO = ? AND LENGTH(PE_CEDIS) > 3 AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS, PE_COSTOU", Array As String("PREVENTA"))
|
||||
|
||||
Dim pagina As Double = ((18 + (s56.RowCount*2) + (s57.RowCount*2)) * (6)) + 18
|
||||
' Dim pagina As Double = ((18 + s56.RowCount + s57.RowCount +2) * (6)) + 18
|
||||
Dim multiplicador As Int = 0
|
||||
PDF.pageAdd(-300,pagina)
|
||||
' pdf.pageAdd(-350,-1900)
|
||||
|
||||
PDF.sFont(PDF.fontHelvetica,0,10,PDF.colorBlack)
|
||||
|
||||
PDF.outImage(xui.DefaultFolder,"guna-fondo.jpg",1,pagina-45,45,0)
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6,"GUNA")
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6,sDate& " " & sTime)
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6,"Vendedor:" & Subs.traeUsuarioDeBD)
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6,"Tienda: " & La_nombre.Text)
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6,"ID.Cliente: " & la_cuenta.Text)
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6,"Calle: " & la_Calle.Text)
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6,"Colonia: " & la_col.Text)
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6," ")
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6," ")
|
||||
c = skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_FOLIO = ?",Array As String("PREVENTA"))
|
||||
If c.RowCount > 0 Then
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6,"------------------------------------PREVENTA-----------------------------------------")
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6,"Cant. Precio Importe")
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6,"-----------------------------------------------------------------------------------------")
|
||||
s=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_FOLIO = ? AND LENGTH(PE_CEDIS) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PROID", Array As String("PREVENTA"))
|
||||
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
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6,s.GetString("PE_PRONOMBRE") )
|
||||
Else
|
||||
PDF.sFont(PDF.fontHelvetica,0,7,PDF.colorBlack)
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6,s.GetString("PE_PRONOMBRE"))
|
||||
' LogColor(s.GetLong("L_CANT"),Colors.Magenta)
|
||||
' LogColor(s.GetLong("L_COSTOU"),Colors.Magenta)
|
||||
' LogColor(s.GetLong("L_COSTO_TOT"),Colors.Magenta)
|
||||
TAMANO = s.GetLong("L_CANT") + s.GetLong("L_COSTOU") + s.GetLong("L_COSTO_TOT")
|
||||
ESPACIO = 92
|
||||
BLANCO = " "
|
||||
ESPACIO = ESPACIO - TAMANO
|
||||
ESPACIO = ESPACIO / 2
|
||||
For E=0 To ESPACIO -1
|
||||
BLANCO = " " & BLANCO
|
||||
Next
|
||||
PDF.sFont(PDF.fontHelvetica,0,10,PDF.colorBlack)
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6, s.GETSTRING("PE_CANT") & BLANCO & s.GETSTRING("PE_COSTOU") & BLANCO & s.GETSTRING("PE_COSTO_TOT"))
|
||||
' pdf.outtext(1,108-9*6,s.GETSTRING("PE_COSTOU"))
|
||||
|
||||
' pdf.outtext(1,108-9*6,s.GETSTRING("PE_COSTO_TOT") )
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
s.Close
|
||||
PDF.outtext(1,108-9*6," " )
|
||||
s=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_FOLIO = ? 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
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6,"--------------------------PROMOS PREVENTA-------------------------------------")
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6,"Cant. Precio Importe")
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6,"-----------------------------------------------------------------------------------------")
|
||||
For i=0 To S.RowCount -1
|
||||
S.Position=i
|
||||
If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6,s.GetString("PE_PRONOMBRE") )
|
||||
Else
|
||||
PDF.sFont(PDF.fontHelvetica,0,7,PDF.colorBlack)
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6,s.GetString("PE_PRONOMBRE"))
|
||||
LogColor(s.GetLong("L_CANT"),Colors.Magenta)
|
||||
LogColor(s.GetLong("L_COSTOU"),Colors.Magenta)
|
||||
LogColor(s.GetLong("L_COSTO_TOT"),Colors.Magenta)
|
||||
TAMANO = s.GetLong("L_CANT") + s.GetLong("L_COSTOU") + s.GetLong("L_COSTO_TOT")
|
||||
ESPACIO = 92
|
||||
BLANCO = " "
|
||||
ESPACIO = ESPACIO - TAMANO
|
||||
ESPACIO = ESPACIO / 2
|
||||
For E=0 To ESPACIO -1
|
||||
BLANCO = " " & BLANCO
|
||||
Next
|
||||
PDF.sFont(PDF.fontHelvetica,0,10,PDF.colorBlack)
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6, s.GETSTRING("PE_CANT") & BLANCO & s.GETSTRING("PE_COSTOU") & BLANCO & s.GETSTRING("PE_COSTO_TOT"))
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
s.Close
|
||||
' multiplicador = multiplicador +1
|
||||
' pdf.outtext(1,pagina-multiplicador*6," " )
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6," " )
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6,"-----------------------------------------------------------------------------------------")
|
||||
s=skmt.ExecQuery2("select SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) AND PE_FOLIO = ?", Array As String("PREVENTA"))
|
||||
s.Position =0
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6,"Total preventa: $" & s.GetString("TOTAL") )
|
||||
s.Close
|
||||
c= skmt.ExecQuery2("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_FOLIO = ?", Array As String("PREVENTA"))
|
||||
C.Position=0
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6,"Total articulos preventa: " & c.GetString("PC_NOART") )
|
||||
c.Close
|
||||
End If
|
||||
' multiplicador = multiplicador +1
|
||||
' pdf.outtext(1,pagina-multiplicador*6," " )
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6,"-----------------------------------------------------------------------------------------" )
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6,"--------------------------ESTE TICKET NO ES UN ---------------------------" )
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6,"-------------------COMPROBANTE FISCAL, SOLO ES--------------------" )
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6,"---------------------------------INFORMATIVO-----------------------------------" )
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6,"-----------------------------------------------------------------------------------------" )
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6," " )
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6," " )
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6," " )
|
||||
multiplicador = multiplicador +1
|
||||
PDF.outtext(1,pagina-multiplicador*6,"-----------------------------------------------------------------------------------------" )
|
||||
' 'all combinations of font normal, bold,italic,underline and strikethrough
|
||||
' For i=0 To 15
|
||||
' 'select a font
|
||||
' pdf.sFont(pdf.fontHelvetica,s,30,pdf.colorBlack)
|
||||
' 'draw a text at position 20 (from left) and 277 (from bottom)
|
||||
' pdf.outtext(20,277-i*15,"Hello world!")
|
||||
' Next
|
||||
DateTime.DateFormat = "ddmmyyyy"
|
||||
DateTime.TimeFormat = "HHmmss"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
archivoTicketPDF = sDate&sTime&".pdf"
|
||||
'save to file with compression if data compressed are smaller
|
||||
savePDF(PDF, archivoTicketPDF, PDF.CompressAlways)
|
||||
'open with default viewer
|
||||
' openPDF(sDate&sTime&".pdf")
|
||||
End Sub
|
||||
|
||||
private Sub savePDF(apdf As cPDF,afile As String,acompress As Int)
|
||||
Dim folder As String
|
||||
#if B4J
|
||||
folder=xui.DefaultFolder
|
||||
#End If
|
||||
#if B4A
|
||||
folder = Starter.fFileProvider.SharedFolder
|
||||
#End If
|
||||
#if B4I
|
||||
'......
|
||||
#End If
|
||||
' Log("aaa:" & folder)
|
||||
' Log("bbb:" & B4XPages.MainPage.Provider.SharedFolder)
|
||||
apdf.saveToFile(folder, afile, acompress)
|
||||
End Sub
|
||||
|
||||
private Sub openPDF(afile As String)
|
||||
#if B4J
|
||||
fx.ShowExternalDocument(File.GetUri(xui.DefaultFolder,afile))
|
||||
#end if
|
||||
#if B4A
|
||||
Dim in As Intent
|
||||
in.Initialize(in.ACTION_VIEW, "")
|
||||
Starter.ffileProvider.SetFileUriAsIntentData(in, afile)
|
||||
in.SetComponent("android/com.android.internal.app.ResolverActivity")
|
||||
in.SetType("application/pdf")
|
||||
StartActivity(in)
|
||||
#end if
|
||||
#if B4I
|
||||
'......
|
||||
#End If
|
||||
End Sub
|
||||
|
||||
Private Sub b_enviarTicket_Click
|
||||
ProgressDialogShow("Enviando ticket, un momento por favor.")
|
||||
Log("Progress 1")
|
||||
PDFGENERAR
|
||||
enviaTicket
|
||||
Sleep(1500)
|
||||
Guardar_Click
|
||||
ProgressDialogHide
|
||||
Log("Progress 2")
|
||||
End Sub
|
||||
|
||||
Private Sub b_enviarTicket_LongClick
|
||||
' deleteFolder(Starter.fFileProvider.SharedFolder)
|
||||
End Sub
|
||||
|
||||
Sub enviaTicket
|
||||
'copy the shared file to the shared folder
|
||||
' Log("xxxxxx:"&Starter.fFileProvider)
|
||||
Sleep(1000)
|
||||
Dim email As Email
|
||||
email.To.Add("cheveguerra@gmail.com")
|
||||
email.Subject = "subject"
|
||||
email.Attachments.Add(Starter.fFileProvider.GetFileUri(archivoTicketPDF))
|
||||
Dim in As Intent = email.GetIntent
|
||||
in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION
|
||||
StartActivity(in)
|
||||
End Sub
|
||||
142
B4A/C_Nota.bas
142
B4A/C_Nota.bas
@@ -159,101 +159,113 @@ Private Sub B4XPage_CloseRequest As ResumableSub
|
||||
End Sub
|
||||
|
||||
Sub borra_Click
|
||||
If folio <> "" Then
|
||||
result = Msgbox2("Seguro que desa borrar el pedido?","Cancelar pedido", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
|
||||
If result = DialogResponse.POSITIVE Then
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("select PE_PROID,PE_CANT FROM PEDIDO where pe_cliente in (Select CUENTA from cuentaa) ")
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2($"update ${Subs.traeTablaProds(tipo_venta)} set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?"$, Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID")))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (almacen,c.GetString("PE_PROID"),c.GetString("PE_CANT")* -1))
|
||||
Next
|
||||
If Not(Subs.revisaImpreso) Then
|
||||
If folio <> "" Then
|
||||
result = Msgbox2("Seguro que desa borrar el pedido?","Cancelar pedido", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
|
||||
If result = DialogResponse.POSITIVE Then
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("select PE_PROID,PE_CANT FROM PEDIDO where pe_cliente in (Select CUENTA from cuentaa) ")
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2($"update ${Subs.traeTablaProds(tipo_venta)} set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?"$, Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID")))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (almacen,c.GetString("PE_PROID"),c.GetString("PE_CANT")* -1))
|
||||
Next
|
||||
End If
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info2 set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
||||
B4XPage_Appear
|
||||
End If
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info2 set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
||||
B4XPage_Appear
|
||||
Else
|
||||
Msgbox("CLIENTE YA SE TRANSMITIO, FAVOR DE LLAMAR A SOPORTE PARA ASISTENCIA","AVISO") 'ignore
|
||||
End If
|
||||
Else
|
||||
Msgbox("CLIENTE YA SE TRANSMITIO, FAVOR DE LLAMAR A SOPORTE PARA ASISTENCIA","AVISO") 'ignore
|
||||
ToastMessageShow("La venta ya esta impresa, no se puede modificar!!", True)
|
||||
B4XPages.MainPage.cliente.p_transparenteTicketImpreso.Visible = True
|
||||
B4XPages.ShowPage("cliente")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub ListView1_ItemLongClick (Position As Int, Value As Object)
|
||||
result = Msgbox2("Seguro que desea borrar este articulo?","Borrar Articulo", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
|
||||
If result = DialogResponse.POSITIVE Then
|
||||
Private X() As String = Regex.Split(" ", Value)
|
||||
Log(X)
|
||||
Log(X.Length)
|
||||
Private nom As String = ""
|
||||
For i = 0 To X.Length -1
|
||||
If Not(Subs.revisaImpreso) Then
|
||||
result = Msgbox2("Seguro que desea borrar este articulo?","Borrar Articulo", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
|
||||
If result = DialogResponse.POSITIVE Then
|
||||
Private X() As String = Regex.Split(" ", Value)
|
||||
Log(X)
|
||||
Log(X.Length)
|
||||
Private nom As String = ""
|
||||
For i = 0 To X.Length -1
|
||||
' Log(X(i))
|
||||
If X(i).Contains(CRLF) Then
|
||||
If X(i).Contains(CRLF) Then
|
||||
' Log("Retorno")
|
||||
End If
|
||||
If Not(X(i).Contains(CRLF)) Then
|
||||
nom = nom & " " & X(i)
|
||||
Else
|
||||
Exit
|
||||
End If
|
||||
End If
|
||||
If Not(X(i).Contains(CRLF)) Then
|
||||
nom = nom & " " & X(i)
|
||||
Else
|
||||
Exit
|
||||
End If
|
||||
' Log(nom)
|
||||
Next
|
||||
Next
|
||||
' Log(nom)
|
||||
nom = nom.Trim
|
||||
Private cedis As String = X(X.Length-1)
|
||||
c=B4XPages.MainPage.skmt.ExecQuery($"select PE_PROID,PE_CANT, PE_FOLIO, PE_CEDIS, PE_PRONOMBRE FROM PEDIDO where pe_pronombre = '${nom}' AND PE_CEDIS = '${cedis}' and pe_cliente in (Select CUENTA from cuentaa)"$)
|
||||
Log($"select PE_PROID,PE_CANT, PE_FOLIO, PE_CEDIS FROM PEDIDO where pe_pronombre = '${nom}' AND PE_CEDIS = '${cedis}' and pe_cliente in (Select CUENTA from cuentaa)"$)
|
||||
Log(c.RowCount)
|
||||
c.Position=0
|
||||
nom = nom.Trim
|
||||
Private cedis As String = X(X.Length-1)
|
||||
c=B4XPages.MainPage.skmt.ExecQuery($"select PE_PROID,PE_CANT, PE_FOLIO, PE_CEDIS, PE_PRONOMBRE FROM PEDIDO where pe_pronombre = '${nom}' AND PE_CEDIS = '${cedis}' and pe_cliente in (Select CUENTA from cuentaa)"$)
|
||||
Log($"select PE_PROID,PE_CANT, PE_FOLIO, PE_CEDIS FROM PEDIDO where pe_pronombre = '${nom}' AND PE_CEDIS = '${cedis}' and pe_cliente in (Select CUENTA from cuentaa)"$)
|
||||
Log(c.RowCount)
|
||||
c.Position=0
|
||||
' If c.RowCount > 0 Then
|
||||
' B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID")))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD) VALUES(?,?,?) ", Array As Object (almacen,c.GetString("PE_PROID"),c.GetString("PE_CANT")* -1))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD) VALUES(?,?,?) ", Array As Object (almacen,c.GetString("PE_PROID"),c.GetString("PE_CANT")* -1))
|
||||
' c2=B4XPages.MainPage.skmt.ExecQuery($"select count(*) AS CUANTOS from CAT_GUNAPROD where CAT_GP_ID in (select pe_cedis from pedido where pe_pronombre = '${nom}' and pe_cliente in (Select CUENTA from cuentaa)) and CAT_GP_CLASIF = 'PROMOS' AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO = 'PROMOS'"$)'Con esto revisamos si el nombre es de una promo
|
||||
' c2=B4XPages.MainPage.skmt.ExecQuery($"select ISNUMERIC(pe_cedis) AS noEsPromo from pedido where pe_pronombre = '${nom}' and pe_cliente in (Select CUENTA from cuentaa) and pe_cedis = '${cedis}'"$)'Con esto revisamos si el nombre es de una promo
|
||||
' Log($"select count(*) AS CUANTOS from CAT_GUNAPROD where CAT_GP_ID in (select pe_cedis from pedido where pe_pronombre = '${nom}' and pe_cliente in (Select CUENTA from cuentaa)) and CAT_GP_CLASIF = 'PROMOS' AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO = 'PROMOS'"$)
|
||||
' Log($"select ISNUMERIC(pe_cedis) AS noEsPromo from pedido where pe_pronombre = '${nom}' and pe_cliente in (Select CUENTA from cuentaa) and pe_cedis = '${cedis}'"$)
|
||||
' c2.Position=0
|
||||
' Log("Algo "&c2.GetString("noEsPromo"))
|
||||
If Not(IsNumber(cedis)) Then
|
||||
If Not(IsNumber(cedis)) Then
|
||||
' j3 = B4XPages.MainPage.skmt.ExecQuery2("SELECT PE_CEDIS, PE_CANT,PE_PROID, PE_PRONOMBRE FROM PEDIDO WHERE PE_CEDIS IN (SELECT PE_CEDIS FROM PEDIDO WHERE PE_PRONOMBRE = ?)",Array As String(nom))
|
||||
' Log(j3.RowCount)
|
||||
' If j3.RowCount > 0 Then
|
||||
Log("Soy promo")
|
||||
' For j = 0 To c.RowCount -1
|
||||
' Log("aqui tronare?")
|
||||
'' c.Position = j
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"update ${Subs.traeTablaProds(tipo_venta)} set cat_gp_almacen = cat_gp_almacen + ${c.GetString("PE_CANT")} where cat_gp_id = '${c.GetString("PE_PROID")}'"$)
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where pe_cedis= ? and pe_cliente in (Select CUENTA from cuentaa) AND PE_FOLIO = ?", Array As Object(cedis, c.GetString("PE_FOLIO")))
|
||||
'' c.Position = j
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"update ${Subs.traeTablaProds(tipo_venta)} set cat_gp_almacen = cat_gp_almacen + ${c.GetString("PE_CANT")} where cat_gp_id = '${c.GetString("PE_PROID")}'"$)
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where pe_cedis= ? and pe_cliente in (Select CUENTA from cuentaa) AND PE_FOLIO = ?", Array As Object(cedis, c.GetString("PE_FOLIO")))
|
||||
' Next
|
||||
' End If
|
||||
' j3.Close
|
||||
Else
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"update ${Subs.traeTablaProds(tipo_venta)} set cat_gp_almacen = cat_gp_almacen + ${c.GetString("PE_CANT")} where cat_gp_id = '${c.Getstring("PE_PROID")}'"$)
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where pe_pronombre = ? and pe_cedis = ? and pe_cliente in (Select CUENTA from cuentaa) AND PE_FOLIO = ?", Array As Object(nom, cedis, c.GetString("PE_FOLIO")))
|
||||
End If
|
||||
c.Close
|
||||
Else
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"update ${Subs.traeTablaProds(tipo_venta)} set cat_gp_almacen = cat_gp_almacen + ${c.GetString("PE_CANT")} where cat_gp_id = '${c.Getstring("PE_PROID")}'"$)
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where pe_pronombre = ? and pe_cedis = ? and pe_cliente in (Select CUENTA from cuentaa) AND PE_FOLIO = ?", Array As Object(nom, cedis, c.GetString("PE_FOLIO")))
|
||||
End If
|
||||
c.Close
|
||||
' c2.Close
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("Select CUENTA from cuentaa")
|
||||
c.Position=0
|
||||
clie_id = c.GetString("CUENTA")
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa")
|
||||
c.Position=0
|
||||
usuario = c.GetString("USUARIO")
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
c.Position=0
|
||||
If c.GetString("CUANTOS") > 0 Then
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT) VALUES (?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info2 set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
||||
Else
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info2 set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("Select CUENTA from cuentaa")
|
||||
c.Position=0
|
||||
clie_id = c.GetString("CUENTA")
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa")
|
||||
c.Position=0
|
||||
usuario = c.GetString("USUARIO")
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
c.Position=0
|
||||
If c.GetString("CUANTOS") > 0 Then
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT) VALUES (?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info2 set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
||||
Else
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info2 set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
||||
End If
|
||||
B4XPage_Appear
|
||||
End If
|
||||
B4XPage_Appear
|
||||
Else
|
||||
B4XPages.MainPage.cliente.p_transparenteTicketImpreso.Visible = True
|
||||
B4XPages.ShowPage("cliente")
|
||||
ToastMessageShow("La venta ya esta impresa, no se puede modificar!!", True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -2231,6 +2231,7 @@ Sub t2_tick
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENCUESTA_MODULO5")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM BITACORAGPS")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM RUTA_SUPLENCIA")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM TICKET_IMPRESO")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("CARGA_DIA"))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("pasword"))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LATITUD"))
|
||||
@@ -2239,6 +2240,7 @@ Sub t2_tick
|
||||
' B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("FORZAR_ACTUALIZACION"))
|
||||
' B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("VERSION_NUEVA"))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(0))
|
||||
Subs.deleteFolder(Starter.fFileProvider.SharedFolder)
|
||||
' B4XPage_Appear
|
||||
E_RUTA2.Visible = False
|
||||
E_RUTA2.Text = ""
|
||||
|
||||
Binary file not shown.
BIN
B4A/Files/guna-fondo.jpg
Normal file
BIN
B4A/Files/guna-fondo.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 53 KiB |
BIN
B4A/Files/guna_192x192.jpg
Normal file
BIN
B4A/Files/guna_192x192.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 11 KiB |
File diff suppressed because one or more lines are too long
@@ -18,6 +18,7 @@ ModuleBookmarks23=
|
||||
ModuleBookmarks24=
|
||||
ModuleBookmarks25=
|
||||
ModuleBookmarks26=
|
||||
ModuleBookmarks27=
|
||||
ModuleBookmarks3=
|
||||
ModuleBookmarks4=
|
||||
ModuleBookmarks5=
|
||||
@@ -45,6 +46,7 @@ ModuleBreakpoints23=
|
||||
ModuleBreakpoints24=
|
||||
ModuleBreakpoints25=
|
||||
ModuleBreakpoints26=
|
||||
ModuleBreakpoints27=
|
||||
ModuleBreakpoints3=
|
||||
ModuleBreakpoints4=
|
||||
ModuleBreakpoints5=
|
||||
@@ -68,17 +70,18 @@ ModuleClosedNodes2=
|
||||
ModuleClosedNodes20=
|
||||
ModuleClosedNodes21=
|
||||
ModuleClosedNodes22=
|
||||
ModuleClosedNodes23=3,4
|
||||
ModuleClosedNodes24=4,6,7,8,9
|
||||
ModuleClosedNodes25=
|
||||
ModuleClosedNodes23=
|
||||
ModuleClosedNodes24=3,4
|
||||
ModuleClosedNodes25=4,6,7,8,9
|
||||
ModuleClosedNodes26=
|
||||
ModuleClosedNodes27=
|
||||
ModuleClosedNodes3=
|
||||
ModuleClosedNodes4=5,6,7,8,9,10,11,12,13
|
||||
ModuleClosedNodes5=1,3
|
||||
ModuleClosedNodes4=5,8,9,10,11,12,13
|
||||
ModuleClosedNodes5=
|
||||
ModuleClosedNodes6=
|
||||
ModuleClosedNodes7=5,6,8,9,10,11
|
||||
ModuleClosedNodes8=
|
||||
ModuleClosedNodes9=
|
||||
NavigationStack=DBRequestManager,HandleJob,250,0,C_Principal,JobDone,1230,0,C_Principal,Class_Globals,44,0,C_Principal,B4XPage_Created,273,0,B4XMainPage,B4XPage_Created,100,2,B4XMainPage,JobDone,525,4,Starter,Process_Globals,34,0,C_Cliente,JobDone,1236,6,Starter,ENVIA_ULTIMA_GPS,107,0,C_Cliente,gest_Click,1261,6
|
||||
NavigationStack=C_Cliente,enviaTicket,5164,6,C_Cliente,savePDF,5124,5,C_Cliente,openPDF,5141,0,C_Cliente,b_enviarTicket_LongClick,5156,1,C_Cliente,Guardar_Click,2107,0,C_Cliente,B4XPage_Appear,512,0,C_Cliente,GPS_LocationChanged,989,0,C_Cliente,b_enviarTicket_Click,5146,6,C_Cliente,PDFGENERAR,4965,1,B4XMainPage,JobDone,484,0,Main,Process_Globals,21,0
|
||||
SelectedBuild=0
|
||||
VisibleModules=24,2,14,25,4,5,7,6,15,12,20
|
||||
VisibleModules=25,2,14,26,5,10,15,20,4
|
||||
|
||||
@@ -39,6 +39,7 @@ Sub Process_Globals
|
||||
Dim nuevoLink As String
|
||||
Dim idCliente As String = ""
|
||||
Dim encuesta As String = 0
|
||||
Public fFileProvider As FileProvider
|
||||
End Sub
|
||||
|
||||
Sub Service_Create
|
||||
@@ -54,6 +55,7 @@ Sub Service_Create
|
||||
logcat.LogCatStart(Array As String("-v","raw","*:F","B4A:v"), "logcat")
|
||||
#end if
|
||||
logs.Initialize
|
||||
fFileProvider.Initialize
|
||||
CallSubDelayed(FirebaseMessaging, "SubscribeToTopics") 'Para Push FirebaseMessaging
|
||||
ubicacionActual.Initialize
|
||||
If File.Exists(File.DirInternal, "kmt.db") = False Then
|
||||
|
||||
31
B4A/Subs.bas
31
B4A/Subs.bas
@@ -674,17 +674,17 @@ Sub traeRuta As String 'ignore
|
||||
idCliente = elCc.GetString("CUENTA")
|
||||
Log("|"&elCc.GetString("CUENTA")&"|")
|
||||
End If
|
||||
Log($"#########################${CRLF}HAY USUARIO EN CUENTAA: ${elCc.RowCount}${CRLF}#########################"$)
|
||||
' Log($"#########################${CRLF}HAY USUARIO EN CUENTAA: ${elCc.RowCount}${CRLF}#########################"$)
|
||||
If idCliente <> "" Then
|
||||
Log(1)
|
||||
' Log(1)
|
||||
c = B4XPages.MainPage.skmt.ExecQuery($"select distinct CAT_CL_RUTA from kmt_info2 where CAT_CL_CODIGO = '${idCliente}'"$)
|
||||
Else
|
||||
Log(2)
|
||||
' Log(2)
|
||||
c = B4XPages.MainPage.skmt.ExecQuery("select distinct CAT_CL_RUTA from kmt_info2 where CAT_CL_RUTA not in (select * from ruta_suplencia)")
|
||||
End If
|
||||
Log($"#########################${CRLF}ENCONTRAMOS RUTA EN KMT_INFO2: ${c.RowCount}${CRLF}#########################"$)
|
||||
' Log($"#########################${CRLF}ENCONTRAMOS RUTA EN KMT_INFO2: ${c.RowCount}${CRLF}#########################"$)
|
||||
If c.RowCount > 0 Then
|
||||
Log(3)
|
||||
' Log(3)
|
||||
c.Position=0
|
||||
r = c.GetString("CAT_CL_RUTA")
|
||||
End If
|
||||
@@ -692,7 +692,7 @@ Sub traeRuta As String 'ignore
|
||||
Catch
|
||||
Log(LastException)
|
||||
End Try
|
||||
Log($"#########################${CRLF}RUTA ENCONTRADA: |${r}|${CRLF}#########################"$)
|
||||
' Log($"#########################${CRLF}RUTA ENCONTRADA: |${r}|${CRLF}#########################"$)
|
||||
Return r
|
||||
End Sub
|
||||
|
||||
@@ -1739,4 +1739,23 @@ Sub traeVariable(nombre As String) As String
|
||||
valor = laVc.GetString("CAT_VA_VALOR")
|
||||
End If
|
||||
Return valor
|
||||
End Sub
|
||||
|
||||
Sub revisaImpreso As Boolean 'ignore
|
||||
Private impreso As Boolean = False
|
||||
Private c As Cursor = Starter.skmt.ExecQuery("select idCliente from ticket_impreso where idCliente in (select cuenta from cuentaa)")
|
||||
If c.RowCount > 0 Then impreso = True
|
||||
Return impreso
|
||||
End Sub
|
||||
|
||||
Sub deleteFolder(folder As String)
|
||||
Log("Borrando " & folder)
|
||||
For Each f As String In File.ListFiles(folder)
|
||||
Log(f)
|
||||
If File.IsDirectory(folder, f) Then
|
||||
deleteFolder(File.Combine(folder, f))
|
||||
Log($"Borramos ${File.Combine(folder, f)}"$)
|
||||
End If
|
||||
File.Delete(folder, f)
|
||||
Next
|
||||
End Sub
|
||||
1004
B4A/cPDF.bas
Normal file
1004
B4A/cPDF.bas
Normal file
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user