mirror of
https://github.com/KeymonSoft/Guna_Preventa.git
synced 2026-04-19 13:49:20 +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:
@@ -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
|
||||
Reference in New Issue
Block a user