mirror of
https://github.com/KeymonSoft/ADM2.git
synced 2026-04-17 11:26:26 +00:00
Jose Alberto Guerra Ugalde
eebc8a81c1
- Se agrego un "mandaPendientes" en bitacora para cuando por problemas de red no se puede enviar el evento.
3207 lines
131 KiB
QBasic
3207 lines
131 KiB
QBasic
B4A=true
|
|
Group=Default Group
|
|
ModulesStructureVersion=1
|
|
Type=Class
|
|
Version=11.5
|
|
@EndOfDesignText@
|
|
Sub MODS 'ignore
|
|
'V3.04.10 - Se agregó código para el registro de abonos, en B4XMainPage se genera la tabla y aquí se agregó el panel p_abonos para ralizar el abono, y el codigo en el sub "mandaPendientes" para cambiar la bandera de enviado en el abono.
|
|
End Sub
|
|
|
|
Sub Class_Globals
|
|
Private Root As B4XView 'ignore
|
|
Private xui As XUI 'ignore
|
|
Private p_cliente As Panel
|
|
Dim reqManager As DBRequestManager
|
|
Dim cmd As DBCommand
|
|
Dim ime As IME
|
|
Dim Provider As FileProvider
|
|
Dim g As GPS
|
|
Dim ruta As String
|
|
Dim skmt As SQL
|
|
Dim clie_id As String
|
|
Dim sDate,sTime As String
|
|
Dim usuario As String
|
|
Dim total_cliente As String
|
|
Dim m_lat = 0, m_lon = 0 As String
|
|
Dim btAdmin As BluetoothAdmin
|
|
Dim cmp20 As Serial
|
|
Dim printer As TextWriter
|
|
Dim PairedDevices As Map
|
|
Dim L As List
|
|
Dim TAMANO As Int
|
|
Dim ESPACIO As Int
|
|
Dim BLANCO As String
|
|
Dim cuenta As String
|
|
Dim tipo_venta As String = "PREVENTA"
|
|
Dim MAC_IMPRESORA As String
|
|
Dim Printer1 As EscPosPrinter
|
|
Dim c As Cursor
|
|
Dim s As Cursor
|
|
Dim DD As Cursor
|
|
Dim c2 As Cursor
|
|
Dim ListView1 As ListView
|
|
Dim la_cuenta As Label
|
|
Dim La_nombre As Label
|
|
Dim la_Calle As Label
|
|
Dim la_numero As Label
|
|
Dim la_nint As Label
|
|
Dim la_edo As Label
|
|
Dim la_pob As Label
|
|
Dim la_col As Label
|
|
Dim la_cp As Label
|
|
Dim la_zona As Label
|
|
Dim gest As Button
|
|
Dim la_saldotot As Label
|
|
Dim la_saldooper As Label
|
|
Dim impresoraConectada As Boolean = False
|
|
Dim Tels As Button
|
|
Dim Label10 As Label
|
|
Dim Label11 As Label
|
|
Dim btAdmin As BluetoothAdmin
|
|
Dim Tar As Button
|
|
Dim errorImpresora As Int = 0
|
|
Dim la_comm As Label
|
|
Dim la_actdte As Label
|
|
Dim la_usuario As Label
|
|
Dim la_resultado As Label
|
|
Dim l_entre1 As Label
|
|
Dim l_entre2 As Label
|
|
Dim l_atiende As Label
|
|
Dim l_atiende2 As Label
|
|
Dim DATOS As Button
|
|
Dim Guardar As Button
|
|
Dim NUEVO As Button
|
|
' Dim lat_gps, lon_gps As String
|
|
|
|
Dim l_total As Label
|
|
Dim c2 As Cursor
|
|
Dim S2 As Cursor
|
|
Private s As Cursor
|
|
Dim res As String
|
|
Dim Credi As Cursor
|
|
Private HIST As Button
|
|
Private MONTO_COMPRA As String
|
|
Private META As String
|
|
Private META2 As String
|
|
Private VERIFICA As String
|
|
Private L_QR As Label
|
|
Private BT_QR As Button
|
|
'Private qr As QRCode
|
|
Dim CODIGO As String
|
|
|
|
Private b_mapa As Button
|
|
Dim CUANTOS As String
|
|
Private B_IMP As Button
|
|
Dim Toggla As Toggle
|
|
Dim tgl As Toggle
|
|
Dim pre_act As Float
|
|
|
|
Private Panel1 As Panel
|
|
Private I_COMPRA As EditText
|
|
Private B_GUARDA_C As Button
|
|
Private b_venta As Button
|
|
Dim ALMACEN As String
|
|
Private LA_GPS As Label
|
|
Private B_E_NEXT As Button
|
|
Private E_RES_E As EditText
|
|
Private t_tenc As Label
|
|
Private Panel2 As Panel
|
|
Private CONTADOR_E As String
|
|
Private HR_RES1 As String
|
|
Private HR_RES2 As String
|
|
Private HR_RES3 As String
|
|
Private EXISTE As String
|
|
Private TELEFONO As String
|
|
Dim t1 As Timer
|
|
Private RB1 As RadioButton
|
|
Private RB2 As RadioButton
|
|
Private RB3 As RadioButton
|
|
Private RB4 As RadioButton
|
|
Private RB5 As RadioButton
|
|
|
|
Private stay_hh As String
|
|
Private stay_mi As String
|
|
Private stay_ss As String
|
|
|
|
Private LA_GEO As Label
|
|
Dim result As Int
|
|
Private cercavalor As String
|
|
Private LA_RUTA As String
|
|
|
|
Private b_like As Button
|
|
Private B_GPS As Button
|
|
' Dim sc As JhsIceZxing1
|
|
Dim CODIGO As String
|
|
Private cb_factura As CheckBox
|
|
Private p_cbFactura As Panel
|
|
Dim venimosDeTicketsDia As Boolean = False
|
|
Private p_abono As Panel
|
|
Private et_abono As EditText
|
|
Private b_abono As Button
|
|
Private b_cancelar As Button
|
|
Private b_abono1 As Button
|
|
Dim b As Cursor
|
|
Private b_cxc As Button
|
|
Private clv_abonos As CustomListView
|
|
Private l_folio As Label
|
|
Private l_saldo As Label
|
|
Dim d As Cursor
|
|
Dim f As Cursor
|
|
Private l_montoabonostotal As Label
|
|
Dim j As Cursor
|
|
Dim h As Cursor
|
|
Dim distance As Long
|
|
Dim cuest As C_Cuestionario
|
|
Private b_ventaabordo As Button
|
|
Private l_factura As Label
|
|
Private l_limite As Label
|
|
Private et_montoacredito As EditText
|
|
Private b_cancred As Button
|
|
Private b_acred As Button
|
|
Private p_credito As Panel
|
|
Dim banderaimp As Int = 0
|
|
Private p_camara As Panel
|
|
Private p_cam As Panel
|
|
|
|
'' Foto
|
|
Private b_foto_inci As Button
|
|
Private camEx As CameraExClass
|
|
Private frontCamera As Boolean = False
|
|
Dim fototomada As String = "0"
|
|
Private p_tipopago As Panel
|
|
Private rb_efectivo As RadioButton
|
|
Private rb_tranfe As RadioButton
|
|
Private rb_tarjetadebito As RadioButton
|
|
Private rb_tarjetacredito As RadioButton
|
|
Private et_com_tp As EditText
|
|
Private b_cancel_tp As Button
|
|
Private b_acept_tp As Button
|
|
Private chb_impreso As CheckBox
|
|
Dim nombrepdf As String
|
|
Dim bitacora As C_BItacora
|
|
Private l_version As Label
|
|
End Sub
|
|
|
|
'You can add more parameters here.
|
|
Public Sub Initialize As Object
|
|
Return Me
|
|
End Sub
|
|
|
|
'This event will be called once, before the page becomes visible.
|
|
Private Sub B4XPage_Created (Root1 As B4XView)
|
|
Root = Root1
|
|
'load the layout to Root
|
|
' Activity.RemoveAllViews
|
|
Root.LoadLayout("cliente")
|
|
l_version.Text = Application.VersionName
|
|
cuest.Initialize(Me, "cuest", Root, Starter.skmt)
|
|
ruta = File.DirInternal
|
|
If File.Exists(ruta, "kmt.db") = False Then
|
|
File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
|
|
End If
|
|
|
|
skmt.Initialize(ruta,"kmt.db", True)
|
|
c = skmt.ExecQuery("select CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
|
|
s = skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
|
b = skmt.ExecQuery("select COUNT(*) AS CLIENTE FROM ABONOSP WHERE CLIENTE IN (Select CUENTA from cuentaa)")
|
|
b.Position = 0
|
|
Dim cabonos As String = b.GetString("CLIENTE")
|
|
If cabonos = 0 Then
|
|
b_cxc.Visible = False
|
|
Else
|
|
b_cxc.Visible = True
|
|
End If
|
|
xui.SetDataFolder("B4Xpdf")
|
|
File.Copy(File.DirAssets,"intmex_logo_192x192.jpg",xui.DefaultFolder,"intmex_logo_192x192.jpg")
|
|
File.Copy(File.DirAssets,"mariana1.jpg",xui.DefaultFolder,"mariana1.jpg")
|
|
Provider.Initialize
|
|
s.Position=0
|
|
p_tipopago.Top = 0 : p_tipopago.Left = 0
|
|
p_camara.Top = 0 : p_camara.Left = 0
|
|
If c.RowCount>0 Then
|
|
c.Position=0
|
|
la_cuenta.Text = c.GetString("CAT_CL_CODIGO")
|
|
cuenta = c.GetString("CAT_CL_CODIGO")
|
|
La_nombre.Text = c.GetString("CAT_CL_NOMBRE")
|
|
la_Calle.Text = c.GetString("CAT_CL_CALLE") & c.GetString("CAT_CL_NOEXT")
|
|
la_col.Text = c.GetString("CAT_CL_COLONIA")
|
|
la_edo.Text = c.GetString("CAT_CL_EDO")
|
|
' la_cp.Text = c.GetString("CAT_CL_CP")
|
|
l_entre1.Text = c.GetString("CAT_CL_CALLE1")
|
|
l_entre2.Text = c.GetString("CAT_CL_CALLE2")
|
|
l_atiende.Text = c.GetString("CAT_CL_ATIENDE1")
|
|
l_atiende2.Text = c.GetString("CAT_CL_ATIENTE2")
|
|
la_saldotot.Text = c.GetString("CAT_CL_TELEFONO")
|
|
la_saldooper.Text = c.GetString("CAT_CL_EMAIL")
|
|
l_total.Text = s.GetString("TOTAL_CLIE")
|
|
total_cliente = s.GetString("TOTAL_CLIE")
|
|
MONTO_COMPRA = c.GetString("CAT_CL_MTOCOMPRA")
|
|
End If
|
|
c.Close
|
|
s.Close
|
|
bitacora.Initialize("bitacora", "bitacora", Root, Starter.skmt, Starter.DBReqServer)
|
|
btAdmin.Initialize("BlueTeeth")
|
|
cmp20.Initialize("Printer")
|
|
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA)
|
|
Wait For B4XPage_PermissionResult (Permission As String, resultC As Boolean)
|
|
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
|
|
Wait For B4XPage_PermissionResult (Permission As String, resultC As Boolean)
|
|
|
|
' h = B4XPages.MainPage.skmt.ExecQuery("SELECT CUENTA from CUENTAA")
|
|
' h.Position = 0
|
|
' Log(h.GetString("CUENTA"))
|
|
' j = B4XPages.MainPage.skmt.ExecQuery2("SELECT a_abono FROM ABONOS WHERE a_cliente = ?", Array As String(h.GetString("CUENTA")))
|
|
' j.position = 0
|
|
' Log(j.RowCount)
|
|
' If j.RowCount = 0 Then
|
|
' b_cxc.Enabled = True
|
|
' Else If j.RowCount > 0 Then
|
|
' b_cxc.Enabled = False
|
|
' End If
|
|
' h.Close
|
|
' j.Close
|
|
End Sub
|
|
|
|
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
|
|
|
|
Sub B4XPage_Appear
|
|
Tels.Visible = False
|
|
gest.Visible = False
|
|
b_ventaabordo.Visible = False
|
|
p_camara.Height = Root.Height
|
|
p_camara.Width = Root.Width
|
|
p_tipopago.Height = Root.Height
|
|
p_tipopago.Width = Root.Width
|
|
banderaimp = 0
|
|
reqManager.Initialize(Me, Starter.DBReqServer)
|
|
LA_GPS.TextColor = Colors.Red
|
|
LA_GPS.Text = "SIN UBICACION GPS"
|
|
cercavalor = 0
|
|
If Not(Starter.gps.GPSEnabled) Then
|
|
ToastMessageShow("Es necesario tener el GPS encendido", True)
|
|
StartActivity(Starter.gps.LocationSettingsIntent)
|
|
End If
|
|
bitacora.inicioFin
|
|
' Log("appear")
|
|
cb_factura.Checked = False
|
|
p_abono.Visible = False
|
|
Subs.centraPanel(p_abono, Root.Width)
|
|
Subs.centraPanel(p_credito, Root.Width)
|
|
skmt.Initialize(ruta,"kmt.db", True)
|
|
c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa) UNION ALL select CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO from kmt_info2 where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
|
|
s=B4XPages.MainPage.skmt.ExecQuery("Select SUM(PE_COSTO_TOT) As TOTAL_CLIE, SUM(PE_CANT) As CANT_CLIE, PC_FACTURA FROM PEDIDO_CLIENTE INNER JOIN PEDIDO ON PEDIDO_CLIENTE.PC_CLIENTE = PEDIDO.PE_CLIENTE WHERE (PE_CLIENTE IN (Select cuenta from cuentaa))")
|
|
b = B4XPages.MainPage.skmt.ExecQuery("select COUNT(*) AS CLIENTE FROM ABONOSP WHERE CLIENTE IN (Select CUENTA from cuentaa)")
|
|
b.Position = 0
|
|
Dim cabonos As String = b.GetString("CLIENTE")
|
|
If cabonos = 0 Then
|
|
b_cxc.Visible = False
|
|
Else
|
|
b_cxc.Visible = True
|
|
End If
|
|
If la_cuenta.Text = "0" Or la_cuenta.Text = "1" Then
|
|
p_cbFactura.Visible = False
|
|
l_factura.Visible = False
|
|
b_ventaabordo.Visible = False
|
|
Else
|
|
p_cbFactura.Visible = False
|
|
l_factura.Visible = False
|
|
b_ventaabordo.Visible = False
|
|
End If
|
|
chb_impreso.Checked = False
|
|
s.Position=0
|
|
If c.RowCount > 0 Then
|
|
c.Position=0
|
|
la_cuenta.Text = c.GetString("CAT_CL_CODIGO")
|
|
La_nombre.Text = c.GetString("CAT_CL_NOMBRE")
|
|
la_Calle.Text = c.GetString("CAT_CL_CALLE") & " " & c.GetString("CAT_CL_NOEXT")
|
|
la_col.Text = c.GetString("CAT_CL_COLONIA")
|
|
la_edo.Text = c.GetString("CAT_CL_EDO")
|
|
l_entre1.Text = c.GetString("CAT_CL_CALLE1")
|
|
l_entre2.Text = c.GetString("CAT_CL_CALLE2")
|
|
l_atiende.Text = c.GetString("CAT_CL_ATIENDE1")
|
|
l_atiende2.Text = c.GetString("CAT_CL_ATIENTE2")
|
|
TELEFONO = c.GetString("CAT_CL_TELEFONO")
|
|
l_total.Text = s.GetString("TOTAL_CLIE")
|
|
total_cliente = s.GetString("TOTAL_CLIE")
|
|
Private factura As String = 0
|
|
If s.GetString("PC_FACTURA") <> Null And IsNumber(s.GetString("PC_FACTURA")) Then factura = s.GetString("PC_FACTURA")
|
|
If factura = "1" Then cb_factura.Checked = True
|
|
m_lat = "0"
|
|
If c.GetString("CAT_CL_LAT") <> "" Then m_lat =c.GetString("CAT_CL_LAT")
|
|
If m_lat.Length < 5 Then m_lat = "0"
|
|
m_lon = "0"
|
|
If c.GetString("CAT_CL_LONG") <> "" Then m_lon =c.GetString("CAT_CL_LONG")
|
|
If m_lon.Length < 5 Then m_lon = "0"
|
|
LA_RUTA = c.GetString("CAT_CL_RUTA")
|
|
' ESTO ES PARA FORZAR A PEDIR LA FOTO Y EL GPS
|
|
If c.GetString("CAT_CL_NUM_SERIEFISICO") = "0" Then
|
|
L_QR.TEXT = "SIN CODIGO"
|
|
L_QR.TextColor = Colors.Red
|
|
gest.VISIBLE = False
|
|
BT_QR.Visible = True
|
|
Else
|
|
L_QR.TEXT = c.GetString("CAT_CL_NUM_SERIEFISICO")
|
|
L_QR.TextColor = Colors.Blue
|
|
BT_QR.Visible = False
|
|
End If
|
|
End If
|
|
c.Close
|
|
s.Close
|
|
S2=B4XPages.MainPage.skmt.ExecQuery("select count(*) AS CUANTOS from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa)")
|
|
S2.Position =0
|
|
CUANTOS = S2.GetString("CUANTOS")
|
|
S2.Close
|
|
If CUANTOS > 0 Then
|
|
c2=B4XPages.MainPage.skmt.ExecQuery("select sum(HVD_COSTO_TOT) AS TOTAL from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa)")
|
|
c2.Position =0
|
|
MONTO_COMPRA = c2.GetString("TOTAL")
|
|
c2.Close
|
|
Else
|
|
MONTO_COMPRA = "0"
|
|
End If
|
|
|
|
la_saldotot.Text = MONTO_COMPRA
|
|
If MONTO_COMPRA <> "0" Then
|
|
META2 = 300 - MONTO_COMPRA
|
|
Else
|
|
META2 = 300
|
|
End If
|
|
If META2 < 1 Then
|
|
META2 = "CUBIERTO"
|
|
End If
|
|
la_saldooper.Text = META2
|
|
c=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
|
|
If c.RowCount>0 Then
|
|
C.Position=0
|
|
ALMACEN = C.GetString("ID_ALMACEN")
|
|
End If
|
|
c.Close
|
|
' If ALMACEN = "1" Then
|
|
' Tels.Visible = False
|
|
' gest.Visible = False
|
|
'' B_GPS.Visible = False
|
|
' End If
|
|
If ALMACEN = "4" Then
|
|
' b_like.Visible = True
|
|
DD=B4XPages.MainPage.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_VENTAS WHERE HVD_CLIENTE IN (Select cuenta from cuentaa) AND HVD_PRONOMBRE =?", Array As String("KNORR RINDE MAS 70 GR"))
|
|
DD.Position =0
|
|
If DD.GetString("CUANTOS") = 0 Then
|
|
c=B4XPages.MainPage.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) AND PE_PRONOMBRE =?", Array As String("KNORR RINDE MAS 70 GR"))
|
|
c.Position =0
|
|
' If c.GetString("CUANTOS") = 0 Then
|
|
' b_like.Visible = True
|
|
' Else
|
|
' b_like.Visible = False
|
|
' End If
|
|
c.Close
|
|
Else
|
|
' b_like.Visible = False
|
|
End If
|
|
DD.Close
|
|
Else
|
|
' b_like.Visible = False
|
|
End If
|
|
' If ALMACEN = "16" Or ALMACEN = "13" Then
|
|
' Tels.Visible = True
|
|
' gest.Visible = True
|
|
' End If
|
|
CallSubDelayed(Tracker, "Track")
|
|
CallSubDelayed(Tracker, "StartFLPSmall")
|
|
If Tracker.FLP.IsInitialized And Tracker.FLP.GetLastKnownLocation.IsInitialized Then 'Si tenemos "UltimaUbicaccionConocida" la usamos.
|
|
' B4XPages.MainPage.lat_gps = Tracker.FLP.GetLastKnownLocation.Latitude
|
|
' B4XPages.MainPage.lon_gps = Tracker.FLP.GetLastKnownLocation.Longitude
|
|
' Log($"Tenemos UUC: ${Tracker.FLP.GetLastKnownLocation.Latitude},${Tracker.FLP.GetLastKnownLocation.Longitude}"$)
|
|
GPS_LocationChanged(Tracker.FLP.GetLastKnownLocation)
|
|
End If
|
|
' Tels.Visible = True
|
|
' gest.Visible = True
|
|
|
|
' h = B4XPages.MainPage.skmt.ExecQuery("SELECT CUENTA from CUENTAA")
|
|
' h.Position = 0
|
|
' Log(h.GetString("CUENTA"))
|
|
' j = B4XPages.MainPage.skmt.ExecQuery2("SELECT a_abono AS CUANTOS FROM ABONOS WHERE a_cliente = ?", Array As String(h.GetString("CUENTA")))
|
|
' j.position = 0
|
|
' Log(j.RowCount)
|
|
' If j.RowCount = 0 Then
|
|
' b_cxc.Enabled = True
|
|
' Else If j.RowCount > 0 Then
|
|
' b_cxc.Enabled = False
|
|
' End If
|
|
' h.Close
|
|
' j.Close
|
|
|
|
'
|
|
' Tels.Visible = False
|
|
' gest.Visible = False
|
|
' b_ventaabordo.Visible = False
|
|
|
|
c = skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MACIMP"))
|
|
If c.RowCount > 0 Then
|
|
c.Position = 0
|
|
Starter.MAC_IMPRESORA = c.GetString("CAT_VA_VALOR")
|
|
End If
|
|
If Starter.MAC_IMPRESORA = "" Then Starter.MAC_IMPRESORA = "0"
|
|
' Log("|" & Starter.MAC_IMPRESORA & "|")
|
|
Printer1.Initialize(Me, "Printer1")
|
|
|
|
If Printer1.IsConnected = False Then
|
|
' Printer1.Connect
|
|
' Log("1")
|
|
Else
|
|
Printer1.DisConnect
|
|
Printer1.Connect
|
|
End If
|
|
|
|
pre_act = Subs.traeTotalClientepreventaparacredito
|
|
|
|
'SELECT CAT_CL_BCREDITO, CAT_CL_CODIGO, Ifnull(SALDO_PENDIENTE,0) FROM KMT_INFO INNER JOIN ABONOSP ON CAT_CL_CODIGO = CLIENTE WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)
|
|
|
|
Private credi2 As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_BCREDITO, CAT_CL_CODIGO, Ifnull(SALDO_PENDIENTE,0) As SALDO_PENDIENTE FROM KMT_INFO INNER JOIN ABONOSP ON CAT_CL_CODIGO = CLIENTE WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION SELECT CAT_CL_BCREDITO, CAT_CL_CODIGO, Ifnull(SALDO_PENDIENTE,0) As SALDO_PENDIENTE FROM KMT_INFO2 INNER JOIN ABONOSP ON CAT_CL_CODIGO = CLIENTE WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
|
If credi2.RowCount > 0 Then
|
|
credi2.Position = 0
|
|
If credi2.GetString ("CAT_CL_BCREDITO") = "1" Then
|
|
Log(2)
|
|
Private credi3 As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT a_abono, CAT_CL_CODIGO FROM KMT_INFO INNER JOIN ABONOS ON CAT_CL_CODIGO = a_cliente WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION SELECT a_abono, CAT_CL_CODIGO FROM KMT_INFO2 INNER JOIN ABONOS ON CAT_CL_CODIGO = a_cliente WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
|
If credi3.RowCount > 0 Then
|
|
credi3.Position = 0
|
|
If credi2.GetString ("SALDO_PENDIENTE") <> credi3.GetString ("a_abono") Then
|
|
MsgboxAsync("La venta sera en efectivo porque el pago del pagare en menor al total de la deuda.","Atención")
|
|
Else If credi2.GetString ("SALDO_PENDIENTE") = credi3.GetString ("a_abono") Then
|
|
End If
|
|
Else
|
|
MsgboxAsync("La venta sera en efectivo por que hay un pagare pendiente de pago","Atención")
|
|
End If
|
|
credi3.Close
|
|
Else
|
|
Log(1)
|
|
Private credi3 As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT a_abono, CAT_CL_CODIGO FROM KMT_INFO INNER JOIN ABONOS ON CAT_CL_CODIGO = a_cliente WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION SELECT a_abono, CAT_CL_CODIGO FROM KMT_INFO2 INNER JOIN ABONOS ON CAT_CL_CODIGO = a_cliente WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
|
If credi3.RowCount > 0 Then
|
|
credi3.Position = 0
|
|
If credi2.GetString ("SALDO_PENDIENTE") <> credi3.GetString ("a_abono") Then
|
|
MsgboxAsync("La venta sera en efectivo porque el pago del pagare en menor al total de la deuda.","Atención")
|
|
Else If credi2.GetString ("SALDO_PENDIENTE") = credi3.GetString ("a_abono") Then
|
|
End If
|
|
Else
|
|
MsgboxAsync("La venta sera en efectivo por que hay un pagare pendiente de pago","Atención")
|
|
End If
|
|
credi3.Close
|
|
End If
|
|
End If
|
|
credi2.Close
|
|
If la_cuenta.Text = "0" Then
|
|
gest.Text = "Abordo"
|
|
B4XPages.MainPage.recarga = "0"
|
|
Else If la_cuenta.Text = "1" Then
|
|
gest.Text = "Recarga"
|
|
B4XPages.MainPage.recarga = "1"
|
|
Else
|
|
gest.Text = "Pre-venta"
|
|
B4XPages.MainPage.recarga = "0"
|
|
End If
|
|
LogColor(B4XPages.MainPage.recarga,Colors.Blue)
|
|
|
|
If camEx.IsInitialized Then
|
|
camEx.Release
|
|
End If
|
|
InitializeCamera
|
|
End Sub
|
|
|
|
Sub GPS_LocationChanged (Location1 As Location)
|
|
' LogColor($"Entrando a Cliente.GPS_LocationChanged"$, Colors.red)
|
|
' If Tracker.FLP.GetLastKnownLocation.IsInitialized And Tracker.FLP.GetLastKnownLocation.Latitude <> 0 Then
|
|
' B4XPages.MainPage.lat_gps = Tracker.FLP.GetLastKnownLocation.Latitude
|
|
' B4XPages.MainPage.lon_gps = Tracker.FLP.GetLastKnownLocation.Longitude
|
|
'' Log("Coords set to: " & B4XPages.MainPage.lat_gps & " and " & B4XPages.MainPage.lon_gps)
|
|
' End If
|
|
|
|
B4XPages.MainPage.lat_gps = Location1.Latitude
|
|
B4XPages.MainPage.lon_gps = Location1.Longitude
|
|
|
|
' ToastMessageShow(B4XPages.MainPage.lat_gps,False)
|
|
|
|
Dim l1, l2 As Location
|
|
l1.Initialize2(B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps)
|
|
' Log($"Coordenadas de la tienda - lat:${m_lat}, lon:${m_lon}"$)
|
|
l2.Initialize2(m_lat, m_lon)
|
|
|
|
If BT_QR.IsInitialized Then BT_QR.Enabled = True
|
|
If LA_GPS.IsInitialized Then LA_GPS.TextColor = Colors.Blue
|
|
Log("CON UBICACION: " & Location1.Latitude & "," & Location1.Longitude)
|
|
If LA_GPS.IsInitialized Then LA_GPS.Text = "CON UBICACION GPS"
|
|
' B_GPS.Enabled = True
|
|
'now we need the distance between our location and the target location
|
|
distance = l1.DistanceTo(l2) 'the result is in meter
|
|
' gest.Visible = True
|
|
If distance < 100000000000000000000000000000000 Then
|
|
If LA_GEO.IsInitialized Then LA_GEO.TextColor = Colors.Blue
|
|
Tels.Visible = True
|
|
gest.Visible = True
|
|
' b_ventaabordo.Visible = True
|
|
bitacora.banderaGeoCerca = "1"
|
|
Else
|
|
Tels.Visible = False
|
|
gest.Visible = False
|
|
b_ventaabordo.Visible = False
|
|
If LA_GEO.IsInitialized Then LA_GEO.TextColor = Colors.Red
|
|
bitacora.banderaGeoCerca = "0"
|
|
End If
|
|
If LA_GPS.IsInitialized Then LA_GEO.Text= $"$1.2{distance/1000} kms"$
|
|
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_GPS")
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_GPS (HGDATE, HGLAT, HGLON) VALUES(?,?,?) ", Array As Object (sDate & sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
|
|
CallSubDelayed(Tracker, "CreateLocationRequest")
|
|
End Sub
|
|
|
|
Sub ListView1_ItemLongClick (Position As Int, Value As Object)
|
|
|
|
End Sub
|
|
|
|
Sub gest_Click
|
|
Private hayFotoinicial As Boolean = False
|
|
c = Starter.skmt.ExecQuery("SELECT CAT_VA_VALOR FROM CAT_VARIABLES where CAT_VA_DESCRIPCION = 'FOTO_INICIAL'")
|
|
If c.RowCount > 0 Then
|
|
c.Position = 0
|
|
If c.GetString("CAT_VA_VALOR") = "ENVIADA" Then hayFotoinicial = True
|
|
End If
|
|
If hayFotoinicial = False Then
|
|
p_camara.Visible = True
|
|
InitializeCamera
|
|
Subs.panelVisible(p_camara, 0, 0)
|
|
b_foto_inci.Text = "Foto tienda"
|
|
Else
|
|
If la_cuenta.Text = "0" Then
|
|
B4XPages.MainPage.tipo_venta = "ABORDO"
|
|
Else If la_cuenta.Text = "1" Then
|
|
B4XPages.MainPage.tipo_venta = "RECARGA"
|
|
Else
|
|
B4XPages.MainPage.tipo_venta = "PREVENTA"
|
|
End If
|
|
|
|
'Buscamos en el historial de cuestionarios si el cliente ya tiene cuestionario contestado.
|
|
' Private hc As Cursor = Starter.skmt.ExecQuery($"select count(HC_CLIENTE) as cuantos from HIST_CUESTIONARIO where HC_CLIENTE = '${Subs.traeCliente}'"$)
|
|
' hc.Position = 0
|
|
' Log($"${cuest.encuestaIniciada} - ${hc.GetString("cuantos")} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
|
|
'
|
|
' If la_cuenta.Text <> "0" And Not(cuest.encuestaIniciada) And hc.GetString("cuantos") = 0 And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then
|
|
' cuest.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder"))
|
|
' Return False
|
|
' End If
|
|
' Private x As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select tienda_id from COORDENADAS_GPS where tienda_id = '${la_cuenta.text}'"$)
|
|
' Log("+++++++++++++ " & x.RowCount)
|
|
' If la_cuenta.Text<> "0" And distance > 50 And x.RowCount = 0 Then
|
|
' Private res As String = Msgbox2("¿Estas en la tienda, para guardar la nueva ubicación?", "AVISO", "Si","" ,"No", Null) 'ignore
|
|
' If res = DialogResponse.POSITIVE Then
|
|
' DateTime.DateFormat = "MM/dd/yyyy"
|
|
' sDate=DateTime.Date(DateTime.Now)
|
|
' sTime=DateTime.Time(DateTime.Now)
|
|
' B4XPages.MainPage.skmt.ExecNonQuery($"insert into COORDENADAS_GPS (tienda_id, ruta, almacen, latitud, longitud, fecha) values ('${la_cuenta.Text}', '${Subs.traeRuta}', '${Subs.traeAlmacen}', '${B4XPages.MainPage.lat_gps}', '${B4XPages.MainPage.lon_gps}', '${sDate} ${sTime}')"$)
|
|
'
|
|
' Dim cmd As DBCommand
|
|
' cmd.Initialize
|
|
' cmd.Name = "insert_coords_nuevas_INTMEX"
|
|
' cmd.Parameters = Array As Object(la_cuenta.text, Subs.traeRuta, Subs.traeAlmacen, sDate & " " & sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, usuario)
|
|
'' Log($"${la_cuenta.text}, ${Subs.traeRuta}, ${Subs.traeAlmacen}, ${sDate} ${sTime}, ${m_lat}, ${m_lon}"$)
|
|
' reqManager.ExecuteCommand(cmd , "ins_coords_nuevas")
|
|
' End If
|
|
' End If
|
|
'Si hay mapa de productos es que hay venta en proceso, entonces borramos la actual para meter la nueva.
|
|
' If B4XPages.MainPage.productos.prodsMap.IsInitialized And B4XPages.MainPage.productos.prodsMap.Size > 0 Then Subs.borraPedidoClienteActual
|
|
B4XPages.ShowPage("productos")
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
Sub Tels_Click
|
|
B4XPages.ShowPage("NoVenta")
|
|
End Sub
|
|
|
|
Private Sub B4XPage_CloseRequest As ResumableSub
|
|
' BACK key pressed
|
|
' Return True To close, False To cancel
|
|
' Log($"venimosDeTicketsDia=${venimosDeTicketsDia}"$)
|
|
If Starter.pre_viejo = pre_act Then
|
|
If (la_cuenta.Text <> "0" And la_cuenta.Text <> "1") Then
|
|
If banderaimp = 1 Then
|
|
Else
|
|
cuest.encuestaIniciada = False
|
|
cuest.ocultPanelPregunta
|
|
If IsNumber(l_total.text) And Not(Subs.pedidoGuardado) Then
|
|
LogColor("Hay Venta", Colors.Red)
|
|
Private resultado1 As Int = Msgbox2($"Va salir sin haber guardado la venta, si continua, la venta se BORRARA.${CRLF}${CRLF}¿Esta seguro que desea continuar?"$, "SE VA A BORRAR LA VENTA", "Borrar Venta", "Guardar Venta", "", LoadBitmap(File.DirAssets,"alert2.png"))
|
|
If resultado1 = DialogResponse.POSITIVE Then
|
|
Log("Borrra venta")
|
|
Subs.borraPedidoClienteActual
|
|
ToastMessageShow("Venta Borrada", False)
|
|
' venimosDeTicketsDia = False
|
|
B4XPages.ShowPage("Principal")
|
|
else if resultado1=DialogResponse.CANCEL Then
|
|
Log("Pedido guardado")
|
|
Guardar_Click
|
|
ToastMessageShow("Venta Guardada", False)
|
|
End If
|
|
End If
|
|
' venimosDeTicketsDia = False
|
|
B4XPages.ShowPage("Clientes")
|
|
End If
|
|
' Else If la_cuenta.Text = "1" Then
|
|
' If B4XPages.MainPage.recarga = "1" Then
|
|
' B4XPages.ShowPage("login")
|
|
' End If
|
|
Else
|
|
End If
|
|
Else
|
|
If B4XPages.MainPage.recarga = "1" Then
|
|
B4XPages.ShowPage("login")
|
|
End If
|
|
|
|
End If
|
|
' Return True
|
|
Return False
|
|
End Sub
|
|
|
|
Sub Tar_Click
|
|
B4XPages.ShowPage("Nota")
|
|
End Sub
|
|
|
|
'Sub Tar_LongClick
|
|
' p_abono.Visible = True
|
|
'End Sub
|
|
|
|
Sub DATOS_Click
|
|
B4XPages.ShowPage("telefonos")
|
|
End Sub
|
|
|
|
Sub Guardar_Click
|
|
c = B4XPages.MainPage.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) and PE_FOLIO = ?", Array As String("PREVENTA"))
|
|
c.Position = 0
|
|
If c.GetString("CUANTOS") > 0 Then
|
|
If la_cuenta.Text <> 0 Then
|
|
Credi = B4XPages.MainPage.skmt.ExecQuery("Select IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO FROM kmt_info Where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) and CAT_CL_CODIGO NOT IN (SELECT CLIENTE FROM ABONOSP) UNION Select IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO FROM kmt_info2 Where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) and CAT_CL_CODIGO NOT IN (SELECT CLIENTE FROM ABONOSP)")
|
|
'INNER JOIN KMT_INFO2 ON CAT_CL_CODIGO = CL_CUENTA
|
|
If Credi.RowCount > 0 Then
|
|
Credi.Position = 0
|
|
If Credi.GetString("CAT_CL_BCREDITO") = "1" Then
|
|
If pre_act <> Starter.pre_viejo Then
|
|
Msgbox2Async("La venta es a credito?", "ATENCION","SI","", "NO",LoadBitmap(File.DirAssets,"alert2.png"), False)
|
|
Wait For Msgbox_Result (resultado As Int)
|
|
If resultado = DialogResponse.POSITIVE Then
|
|
p_credito.Visible = True
|
|
Dim limitcred As Cursor
|
|
limitcred = B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_LIMITECREDITO FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION SELECT CAT_CL_LIMITECREDITO FROM kmt_info2 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
|
limitcred.Position = 0
|
|
l_limite.Text = "Limite de credito: $" & limitcred.GetString("CAT_CL_LIMITECREDITO")
|
|
If Subs.traeTotalClientepreventaparacredito >= limitcred.GetString("CAT_CL_LIMITECREDITO") Then
|
|
et_montoacredito.Text = limitcred.GetString("CAT_CL_LIMITECREDITO")
|
|
Else
|
|
et_montoacredito.Text = Subs.traeTotalClientepreventaparacredito
|
|
End If
|
|
limitcred.Close
|
|
Else
|
|
GuardaVenta
|
|
End If
|
|
Else If pre_act = Starter.pre_viejo Then
|
|
GuardaVenta
|
|
End If
|
|
Else If Credi.GetString("CAT_CL_BCREDITO") = "0" Then
|
|
GuardaVenta
|
|
End If
|
|
Else
|
|
Private credi2 As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_BCREDITO, a_abono, SALDO_PENDIENTE FROM KMT_INFO INNER JOIN ABONOSP ON CAT_CL_CODIGO = CLIENTE INNER JOIN ABONOS ON CAT_CL_CODIGO = a_cliente WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION SELECT CAT_CL_BCREDITO, a_abono, SALDO_PENDIENTE FROM KMT_INFO2 INNER JOIN ABONOSP ON CAT_CL_CODIGO = CLIENTE INNER JOIN ABONOS ON CAT_CL_CODIGO = a_cliente WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
|
If credi2.RowCount > 0 Then
|
|
credi2.Position = 0
|
|
If credi2.GetString ("CAT_CL_BCREDITO") = "1" And credi2.GetString ("a_abono")=credi2.GetString ("SALDO_PENDIENTE") Then
|
|
If pre_act <> Starter.pre_viejo Then
|
|
Msgbox2Async("La venta es a credito?", "ATENCION","SI","", "NO",LoadBitmap(File.DirAssets,"alert2.png"), False)
|
|
Wait For Msgbox_Result (resultado As Int)
|
|
If resultado = DialogResponse.POSITIVE Then
|
|
p_credito.Visible = True
|
|
Dim limitcred As Cursor
|
|
limitcred = B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_LIMITECREDITO FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION SELECT CAT_CL_LIMITECREDITO FROM kmt_info2 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
|
limitcred.Position = 0
|
|
l_limite.Text = "Limite de credito: $" & limitcred.GetString("CAT_CL_LIMITECREDITO")
|
|
If Subs.traeTotalClientepreventaparacredito >= limitcred.GetString("CAT_CL_LIMITECREDITO") Then
|
|
et_montoacredito.Text = limitcred.GetString("CAT_CL_LIMITECREDITO")
|
|
Else
|
|
et_montoacredito.Text = Subs.traeTotalClientepreventaparacredito
|
|
End If
|
|
limitcred.Close
|
|
Else
|
|
GuardaVenta
|
|
End If
|
|
|
|
Else If pre_act = Starter.pre_viejo Then
|
|
GuardaVenta
|
|
End If
|
|
Else
|
|
GuardaVenta
|
|
End If
|
|
End If
|
|
End If
|
|
' Credi.Close
|
|
Else If la_cuenta.Text = 0 Then
|
|
GuardaVenta
|
|
End If
|
|
Else If c.GetString("CUANTOS") = 0 Then
|
|
Log("-- Z")
|
|
GuardaVenta
|
|
End If
|
|
' c.Close
|
|
End Sub
|
|
|
|
Private Sub b_acred_Click
|
|
c2=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa")
|
|
c2.Position=0
|
|
usuario = c2.GetString("USUARIO")
|
|
c2.Close
|
|
Dim limitcred As Cursor
|
|
DateTime.DateFormat = "MM/dd/yyyy"
|
|
DateTime.TimeFormat = "HH:mm:ss"
|
|
sDate = DateTime.Date(DateTime.Now)
|
|
sTime = DateTime.Time(DateTime.Now)
|
|
limitcred = B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_LIMITECREDITO FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION SELECT CAT_CL_LIMITECREDITO FROM kmt_info2 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
|
limitcred.Position = 0
|
|
l_limite.Text = "Limite de credito: $" & limitcred.GetString("CAT_CL_LIMITECREDITO")
|
|
If Subs.traeTotalClientepreventaparacredito >= limitcred.GetString("CAT_CL_LIMITECREDITO") Then
|
|
|
|
If et_montoacredito.Text > limitcred.GetString("CAT_CL_LIMITECREDITO") Then
|
|
MsgboxAsync("El monto del pagare no puede ser mayor al limite del credito","Atención")
|
|
et_montoacredito.Text = limitcred.GetString("CAT_CL_LIMITECREDITO")
|
|
Else
|
|
c = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) As REGISTRADO FROM PAGARES WHERE PA_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
|
c.Position = 0
|
|
If c.GetString("REGISTRADO") = 0 Then
|
|
' MsgboxAsync("SI ENTRAMOS 3","Atención")
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PAGARES (PA_ALMACEN, PA_RUTA, PA_FECHA, PA_CAPTURA, PA_MONTO, PA_USUARIO, PA_CLIENTE) VALUES(?,?,?,?,?,?,?) ", Array As Object (ALMACEN, LA_RUTA, (sDate &" "& sTime),(sDate &" "& sTime), et_montoacredito.Text, usuario, la_cuenta.Text))
|
|
GuardaVenta
|
|
p_credito.Visible = False
|
|
Else
|
|
' MsgboxAsync("SI ENTRAMOS4","Atención")
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PAGARES set PA_FECHA = ?, PA_CAPTURA = ?, PA_MONTO = ? where PA_CLIENTE In (select cuenta from cuentaa)", Array As Object ((sDate &" "& sTime),(sDate &" "& sTime), et_montoacredito.Text))
|
|
GuardaVenta
|
|
p_credito.Visible = False
|
|
End If
|
|
End If
|
|
Else If Subs.traeTotalClientepreventaparacredito < limitcred.GetString("CAT_CL_LIMITECREDITO") Then
|
|
If et_montoacredito.Text > Subs.traeTotalClientepreventaparacredito Then
|
|
MsgboxAsync("El monto del pagare no puede ser mayor a la preventa registrada","Atención")
|
|
et_montoacredito.Text = Subs.traeTotalClientepreventaparacredito
|
|
Else
|
|
c = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) As REGISTRADO FROM PAGARES WHERE PA_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
|
c.Position = 0
|
|
If c.GetString("REGISTRADO") = 0 Then
|
|
' MsgboxAsync("SI ENTRAMOS","Atención")
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PAGARES (PA_ALMACEN, PA_RUTA, PA_FECHA, PA_CAPTURA, PA_MONTO, PA_USUARIO, PA_CLIENTE) VALUES(?,?,?,?,?,?,?) ", Array As Object (ALMACEN, LA_RUTA, (sDate &" "& sTime),(sDate &" "& sTime), et_montoacredito.Text, usuario, la_cuenta.Text))
|
|
GuardaVenta
|
|
p_credito.Visible = False
|
|
Else
|
|
' MsgboxAsync("SI ENTRAMOS 2","Atención")
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PAGARES set PA_FECHA = ?, PA_CAPTURA = ?, PA_MONTO = ? where PA_CLIENTE In (select cuenta from cuentaa)", Array As Object ((sDate &" "& sTime),(sDate &" "& sTime), et_montoacredito.Text))
|
|
GuardaVenta
|
|
p_credito.Visible = False
|
|
End If
|
|
End If
|
|
End If
|
|
limitcred.Close
|
|
End Sub
|
|
|
|
Private Sub b_cancred_Click
|
|
p_credito.Visible = False
|
|
End Sub
|
|
|
|
Sub GuardaVenta
|
|
If pre_act <> Starter.pre_viejo Then
|
|
p_tipopago.Visible = True
|
|
rb_efectivo.Checked = True
|
|
rb_tranfe.Checked = False
|
|
rb_tarjetadebito.Checked = False
|
|
rb_tarjetacredito.Checked = False
|
|
et_com_tp.Text = ""
|
|
' B_IMP_Click
|
|
' Guardar.Enabled = False
|
|
' gest.Enabled = False
|
|
' b_cxc.Enabled = False
|
|
' Tar.Enabled = False
|
|
' Tels.Enabled = False
|
|
' b_ventaabordo.Enabled = False
|
|
' HIST.Enabled = False
|
|
' banderaimp = 1
|
|
Else If pre_act = Starter.pre_viejo Then
|
|
GUADAVENTA2
|
|
End If
|
|
End Sub
|
|
|
|
Sub GUADAVENTA2
|
|
Log(B4XPages.MainPage.recarga)
|
|
If B4XPages.MainPage.recarga = "0" Then
|
|
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.Close
|
|
c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa")
|
|
c.Position=0
|
|
usuario = c.GetString("USUARIO")
|
|
c.Close
|
|
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
|
|
' Log("xxxxxxxxxxxxxxx " & c.GetString("CUANTOS"))
|
|
If c.GetString("CUANTOS") > 0 Then
|
|
Private cbFactura As Int = 0
|
|
If cb_factura.Checked Then cbFactura = 1
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from NOVENTA where NV_CLIENTE In (select cuenta from cuentaa)")
|
|
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, PC_ENVIO_OK, PC_FACTURA) 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, 0, cbFactura))
|
|
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info2 set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
|
End If
|
|
c.Close
|
|
DateTime.TimeFormat = "HHmmss"
|
|
sTime=DateTime.Time(DateTime.Now)
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_OUT = ? where HSS_OUT = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(sTime))
|
|
' B4XPages.MainPage.skmt.ExecNonQuery("UPDATE HIST_STAY_STORE set HSS_TOT = HSS_OUT - HSS_IN where HSS_CODIGO In (select cuenta from cuentaa)")
|
|
Try
|
|
c=B4XPages.MainPage.skmt.ExecQuery(" Select (substr(HSS_OUT,1,2) - substr(HSS_IN,1,2)) - Case when (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) < 0 Then 1 Else 0 end HORAS_TOTALES, " & _
|
|
"Case when (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) < 0 Then (substr(HSS_OUT,3,2) + 60 - substr(HSS_IN,3,2)) " & _
|
|
" Else (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) End - Case when (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) < 0 Then 1 Else 0 end MINUTOS_TOTALES, " & _
|
|
"Case when (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) < 0 Then (substr(HSS_OUT,5,2) + 60 - substr(HSS_IN,5,2)) " & _
|
|
" Else (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) end SEGUNDOS_TOTALES " & _
|
|
" from HIST_STAY_STORE where HSS_CODIGO In (Select cuenta from cuentaa) ")
|
|
c.Position = 0
|
|
stay_hh = c.GetString("HORAS_TOTALES") * 60 * 60
|
|
stay_mi = c.GetString("MINUTOS_TOTALES") * 60
|
|
stay_ss = c.GetString("SEGUNDOS_TOTALES")
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_TOT = ? where HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(stay_hh + stay_mi + stay_ss))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_OUT set HSO_FIN = ? ", Array As Object(sTime))
|
|
c.Close
|
|
Catch
|
|
ToastMessageShow(".",True)
|
|
End Try
|
|
|
|
skmt.ExecNonQuery2("update PEDIDO_INICIO_FINAL set PIF_HORA_FINAL = ? where PIF_CLIENTE = ? and PIF_HORA_FINAL = 0", Array As Object (DateTime.Now, la_cuenta.Text))
|
|
' LogColor($"actualizamos "${la_cuenta.text}, hora_final=${DateTime.now}"$,Colors.Red)
|
|
Subs.actualizaTET(la_cuenta.text)
|
|
DateTime.TimeFormat = "HH:mm:ss"
|
|
|
|
mandaPendientes 'LO COMENTAMOS PARA PRUEBAS, ACTIVAR AL FINAL!!!
|
|
mandapiezas
|
|
B4XPages.MainPage.productos.reiniciarlistaProds = True
|
|
B4XPages.MainPage.productos.prodsMap.Initialize
|
|
B4XPages.MainPage.promos.promosMap.Initialize
|
|
Guardar.Enabled = True
|
|
gest.Enabled = True
|
|
b_cxc.Enabled = True
|
|
Tar.Enabled = True
|
|
Tels.Enabled = True
|
|
' b_ventaabordo.Enabled = True
|
|
HIST.Enabled = True
|
|
banderaimp = 0
|
|
' B4XPages.ShowPage("Principal")
|
|
bitacora.b_Inicio_Fin_venta2.Text = "TERMINAR VENTA"
|
|
bitacora.enVenta = False
|
|
bitacora.inicioFin
|
|
Else If B4XPages.MainPage.recarga = "1" Then
|
|
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.Close
|
|
c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa")
|
|
c.Position=0
|
|
usuario = c.GetString("USUARIO")
|
|
c.Close
|
|
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
|
|
' Log("xxxxxxxxxxxxxxx " & c.GetString("CUANTOS"))
|
|
If c.GetString("CUANTOS") > 0 Then
|
|
Private cbFactura As Int = 0
|
|
If cb_factura.Checked Then cbFactura = 1
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from NOVENTA where NV_CLIENTE In (select cuenta from cuentaa)")
|
|
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, PC_ENVIO_OK, PC_FACTURA) 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, 0, cbFactura))
|
|
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
|
End If
|
|
c.Close
|
|
DateTime.TimeFormat = "HHmmss"
|
|
sTime=DateTime.Time(DateTime.Now)
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_OUT = ? where HSS_OUT = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(sTime))
|
|
' B4XPages.MainPage.skmt.ExecNonQuery("UPDATE HIST_STAY_STORE set HSS_TOT = HSS_OUT - HSS_IN where HSS_CODIGO In (select cuenta from cuentaa)")
|
|
' Try
|
|
' c=B4XPages.MainPage.skmt.ExecQuery(" Select (substr(HSS_OUT,1,2) - substr(HSS_IN,1,2)) - Case when (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) < 0 Then 1 Else 0 end HORAS_TOTALES, " & _
|
|
' "Case when (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) < 0 Then (substr(HSS_OUT,3,2) + 60 - substr(HSS_IN,3,2)) " & _
|
|
' " Else (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) End - Case when (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) < 0 Then 1 Else 0 end MINUTOS_TOTALES, " & _
|
|
' "Case when (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) < 0 Then (substr(HSS_OUT,5,2) + 60 - substr(HSS_IN,5,2)) " & _
|
|
' " Else (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) end SEGUNDOS_TOTALES " & _
|
|
' " from HIST_STAY_STORE where HSS_CODIGO In (Select cuenta from cuentaa) ")
|
|
' c.Position = 0
|
|
' stay_hh = c.GetString("HORAS_TOTALES") * 60 * 60
|
|
' stay_mi = c.GetString("MINUTOS_TOTALES") * 60
|
|
' stay_ss = c.GetString("SEGUNDOS_TOTALES")
|
|
' B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_TOT = ? where HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(stay_hh + stay_mi + stay_ss))
|
|
' B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_OUT set HSO_FIN = ? ", Array As Object(sTime))
|
|
' c.Close
|
|
' Catch
|
|
' ToastMessageShow(".",True)
|
|
' End Try
|
|
|
|
skmt.ExecNonQuery2("update PEDIDO_INICIO_FINAL set PIF_HORA_FINAL = ? where PIF_CLIENTE = ? and PIF_HORA_FINAL = 0", Array As Object (DateTime.Now, la_cuenta.Text))
|
|
' LogColor($"actualizamos "${la_cuenta.text}, hora_final=${DateTime.now}"$,Colors.Red)
|
|
Subs.actualizaTET(la_cuenta.text)
|
|
DateTime.TimeFormat = "HH:mm:ss"
|
|
|
|
' mandaPendientes 'LO COMENTAMOS PARA PRUEBAS, ACTIVAR AL FINAL!!!
|
|
' mandapiezas
|
|
mandaPendientesrecarga
|
|
mandapiezasrecarga
|
|
B4XPages.MainPage.productos.reiniciarlistaProds = True
|
|
B4XPages.MainPage.productos.prodsMap.Initialize
|
|
B4XPages.MainPage.promos.promosMap.Initialize
|
|
B4XPages.ShowPage("login")
|
|
B4XPages.MainPage.recarga = "0"
|
|
End If
|
|
End Sub
|
|
|
|
Sub NUEVO_Click
|
|
B4XPages.ShowPage("NuevoCliente")
|
|
End Sub
|
|
|
|
Sub HIST_Click
|
|
B4XPages.ShowPage("Historico")
|
|
End Sub
|
|
|
|
Sub BT_QR_Click
|
|
' sc.isportrait = True
|
|
' sc.timeoutDuration = 45
|
|
' sc.theViewFinderXfactor = 0.7
|
|
' sc.theViewFinderYfactor = 0.5
|
|
' sc.theResultColor = Colors.Green
|
|
' sc.mustVibrate = True
|
|
' sc.BeginScan("sc")
|
|
End Sub
|
|
|
|
Sub sc_result(atype As String,Values As String, image As Bitmap)
|
|
'Log("Type : " & atype)
|
|
'Log("Value : " & Values)
|
|
CODIGO = Values
|
|
DD=B4XPages.MainPage.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM kmt_info WHERE CAT_CL_NUM_SERIEFISICO = ?", Array As String(CODIGO))
|
|
DD.Position =0
|
|
If DD.GetString("CUANTOS") > 0 Then
|
|
MsgboxAsync("Código ya asignado", "AVISO")
|
|
Else
|
|
If CODIGO.Length = 7 Then
|
|
Msgbox2Async("El código "& CODIGO & " es correcto?" , "Title", "Yes", "Cancel", "No", Null, False)
|
|
Wait For Msgbox_Result (resultado As Int)
|
|
If resultado = DialogResponse.POSITIVE Then
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE kmt_info set CAT_CL_NUM_SERIEFISICO = ?, CAT_CL_LONG = ?, CAT_CL_LAT =? where CAT_CL_CODIGO In (select cuenta from cuentaa)", Array As Object(CODIGO, B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps))
|
|
L_QR.TEXT =CODIGO
|
|
L_QR.TextColor = Colors.Blue
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("insert into HIST_CODIGO_BARRAS(CODIGOKMTS, CODIGOB, LAT, LON) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text,CODIGO, B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps))
|
|
End If
|
|
Else
|
|
MsgboxAsync("Código No Valido", "AVISO")
|
|
End If
|
|
End If
|
|
DD.Close
|
|
End Sub
|
|
|
|
Sub sc_timedout(timedOut As Boolean)
|
|
Log("timedOut " & timedOut)
|
|
End Sub
|
|
|
|
Sub sc_usercancelled(userCancelled As Boolean)
|
|
Log("userCancelled " & userCancelled)
|
|
End Sub
|
|
|
|
Sub calc_ean_checksum(number As String) As String 'this has now become redundant as I am only interested in QR Codes
|
|
Dim i As Int
|
|
Dim cO As Char
|
|
Dim soma As Int
|
|
Dim n As Int
|
|
Dim digit As Float
|
|
soma = 0
|
|
For i=0 To number.Length - 1
|
|
digit = number.SubString2(i,i+1)
|
|
n= digit * ((i Mod 2) * 2 + 1)
|
|
soma=soma+n
|
|
Next
|
|
Return number & ( ( 10 - ( soma Mod 10 )) Mod 10 )
|
|
End Sub
|
|
|
|
Sub b_mapa_Click
|
|
B4XPages.ShowPage("mapas")
|
|
End Sub
|
|
|
|
Sub B_IMP_Click
|
|
|
|
c = skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_FOLIO = ? AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)",Array As String("VENTA"))
|
|
If c.RowCount > 0 Then
|
|
imprime_venta
|
|
t1.Initialize("T1", 5000) ' 1000 = 1 second
|
|
t1.Enabled = True
|
|
Else If c.RowCount = 0 Then
|
|
s = skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_FOLIO = ? AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)",Array As String("PREVENTA"))
|
|
If s.RowCount > 0 Then
|
|
imprime_preventa
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Sub t1_tick
|
|
s = skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_FOLIO = ? AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)",Array As String("PREVENTA"))
|
|
If s.RowCount > 0 Then
|
|
imprime_preventa
|
|
End If
|
|
t1.Enabled = False
|
|
End Sub
|
|
|
|
Sub imprime_preventa
|
|
c=skmt.ExecQuery("select USUARIO from usuarioa")
|
|
c.Position=0
|
|
usuario = c.GetString("USUARIO")
|
|
DateTime.DateFormat = "MM/dd/yyyy"
|
|
sDate=DateTime.Date(DateTime.Now)
|
|
sTime=DateTime.Time(DateTime.Now)
|
|
c.Close
|
|
' c=Starter.skmt.ExecQuery2("SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION =?", Array As String ("SUCURSAL"))
|
|
' c.Position = 0
|
|
' sucursal = c.GetString("CAT_VA_VALOR")
|
|
' c.Close
|
|
|
|
ProgressDialogShow("Imprimiendo, un momento ...")
|
|
Printer1.DisConnect
|
|
If Not(Printer1.IsConnected) Then
|
|
Log("Conectando a impresora ...")
|
|
Printer1.Connect
|
|
Private cont As Int = 0
|
|
Do While Not(impresoraConectada)
|
|
Sleep(1000)
|
|
Log("++++++ " & cont)
|
|
cont = cont + 1
|
|
If cont = 2 Then Printer1.Connect 'Tratamos de reconectar
|
|
If cont > 3 Then impresoraConectada = True
|
|
Loop
|
|
Sleep(500)
|
|
impresoraConectada = False
|
|
Else
|
|
Log("conectando 2")
|
|
Printer1.Connect
|
|
Private cont As Int = 0
|
|
Do While Not(impresoraConectada) Or Not(Printer1.IsConnected)
|
|
Sleep(1000)
|
|
Log("****** " & cont)
|
|
cont = cont + 1
|
|
If cont = 2 Then Printer1.Connect
|
|
If cont > 3 Then impresoraConectada = True
|
|
Loop
|
|
Sleep(500)
|
|
impresoraConectada = False
|
|
End If
|
|
|
|
TAMANO = 0
|
|
ESPACIO = 22
|
|
BLANCO = " "
|
|
' Dim bmp As Bitmap
|
|
' bmp.InitializeResize(File.DirAssets, "mariana.jpg", 192, 250, True) 'ignore
|
|
' Dim myimage As AnImage = Printer1.ImageToBWIMage(bmp)
|
|
|
|
' myimage = Printer1.DitherImage2D(myimage, 128)
|
|
|
|
' myimage= Printer1.PackImage(myimage)
|
|
' Printer1.WriteString(CRLF) ' nudge the printer to show the user something is happening
|
|
' Printer1.WriteString(Printer1.REVERSE)
|
|
' Printer1.PrintImage(myimage)
|
|
' Printer1.WriteString(Printer1.UNREVERSE)
|
|
' Printer1.Justify = 1
|
|
'printer.Initialize(cmp20.OutputStream)
|
|
' Printer1.WriteString("DISTRIBUIDORA ROCHA TULA PACHUCA" & CRLF)
|
|
Printer1.WriteString("ADM" & CRLF)
|
|
' Printer1.WriteString(sucursal & CRLF)
|
|
Printer1.WriteString(sDate & CRLF)
|
|
Printer1.WriteString(sTime & CRLF)
|
|
Printer1.WriteString("Vendedor:" & usuario & CRLF)
|
|
Printer1.WriteString("Tienda: " & La_nombre.Text & CRLF)
|
|
Printer1.WriteString("ID.Cliente: " & la_cuenta.Text & CRLF)
|
|
Printer1.WriteString("Calle: " & la_Calle.Text & CRLF)
|
|
Printer1.WriteString("Colonia: " & la_col.Text & CRLF)
|
|
' Printer1.WriteString("C.P.: " & la_cp.Text & CRLF)
|
|
' Printer1.WriteString("Entre calle1: " & l_entre1.Text & CRLF)
|
|
' Printer1.WriteString("Entre Calle2: " & l_entre2.Text & CRLF)
|
|
Printer1.WriteString(" " & CRLF)
|
|
c = skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_FOLIO = ?",Array As String("PREVENTA"))
|
|
If c.RowCount > 0 Then
|
|
Printer1.WriteString("-----------PREVENTA-----------" & CRLF)
|
|
|
|
' Printer1.WriteString("--------------------------------" & CRLF)
|
|
Printer1.WriteString("Cant. Precio Importe" & CRLF)
|
|
|
|
Printer1.WriteString("------------------------------" & CRLF)
|
|
' aqui es donde esta el pedo de julieta de los descuentos quitar el precio2 pero meter un if para saber si es ruta especial o es normal o que show.
|
|
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
|
|
Printer1.WriteString(s.GetString("PE_PRONOMBRE") & CRLF)
|
|
Else
|
|
Printer1.WriteString(s.GetString("PE_PRONOMBRE") & CRLF)
|
|
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") + TAMANO
|
|
|
|
If s.GetLong("L_COSTOU") = 1 Then
|
|
TAMANO = s.GetLong("L_COSTOU") + TAMANO + 4
|
|
Else If s.GetLong("L_COSTOU") = 2 Then
|
|
TAMANO = s.GetLong("L_COSTOU") + TAMANO + 3
|
|
Else If s.GetLong("L_COSTOU") = 3 Then
|
|
TAMANO = s.GetLong("L_COSTOU") + TAMANO + 2
|
|
Else If s.GetLong("L_COSTOU") = 4 Then
|
|
TAMANO = s.GetLong("L_COSTOU") + TAMANO + 1
|
|
Else
|
|
TAMANO = s.GetLong("L_COSTOU") + TAMANO
|
|
End If
|
|
|
|
' If s.GetLong("L_COSTOU") = 1 Then
|
|
' TAMANO = s.GetLong("L_COSTOU") + TAMANO + 3
|
|
' Else If s.GetLong("L_COSTOU") = 2 Then
|
|
' TAMANO = s.GetLong("L_COSTOU") + TAMANO + 2
|
|
' Else If s.GetLong("L_COSTOU") = 3 Then
|
|
' TAMANO = s.GetLong("L_COSTOU") + TAMANO + 1
|
|
' Else
|
|
' TAMANO = s.GetLong("L_COSTOU") + TAMANO
|
|
' End If
|
|
|
|
' If s.GetLong("L_COSTO_TOT") = 1 Then
|
|
' TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO + 5
|
|
' Else If s.GetLong("L_COSTO_TOT") = 2 Then
|
|
' TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO + 4
|
|
' Else If s.GetLong("L_COSTO_TOT") = 3 Then
|
|
' TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO + 3
|
|
' Else If s.GetLong("L_COSTO_TOT") = 4 Then
|
|
' TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO + 2
|
|
' Else If s.GetLong("L_COSTO_TOT") = 5 Then
|
|
' TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO + 1
|
|
' Else
|
|
' TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
|
|
' End If
|
|
|
|
If s.GetLong("L_COSTO_TOT") = 1 Then
|
|
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO + 4
|
|
Else If s.GetLong("L_COSTO_TOT") = 2 Then
|
|
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO + 3
|
|
Else If s.GetLong("L_COSTO_TOT") = 3 Then
|
|
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO + 2
|
|
Else If s.GetLong("L_COSTO_TOT") = 4 Then
|
|
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO + 1
|
|
Else
|
|
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
|
|
End If
|
|
|
|
ESPACIO = ESPACIO - TAMANO
|
|
|
|
For E=0 To ESPACIO -1
|
|
BLANCO = " " & BLANCO
|
|
Next
|
|
Printer1.Justify = 0
|
|
Printer1.WriteString(s.GETSTRING("PE_CANT")& BLANCO)
|
|
Printer1.Justify = 1
|
|
Printer1.WriteString(NumberFormat2(s.GETSTRING("PE_COSTOU"),1,2,2,True) & BLANCO)
|
|
Printer1.Justify = 2
|
|
Printer1.WriteString(NumberFormat2(s.GETSTRING("PE_COSTO_TOT"),1,2,2,True) & CRLF )
|
|
TAMANO = 0
|
|
ESPACIO = 22
|
|
BLANCO = " "
|
|
Printer1.Justify = 0
|
|
End If
|
|
Next
|
|
End If
|
|
Printer1.Justify = 0
|
|
s.Close
|
|
Printer1.WriteString(" " & CRLF)
|
|
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_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP ) AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS, PE_COSTOU", Array As String("PREVENTA"))
|
|
If S.RowCount>0 Then
|
|
Printer1.WriteString("-------PROMOS PREVENTA--------" & CRLF)
|
|
Printer1.WriteString("Cant. Precio Importe" & CRLF)
|
|
Printer1.WriteString("------------------------------" & CRLF)
|
|
For i=0 To S.RowCount -1
|
|
S.Position=i
|
|
If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
|
|
Printer1.WriteString(s.GetString("PE_PRONOMBRE") & CRLF)
|
|
Else
|
|
TAMANO = 0
|
|
Printer1.WriteString(s.GetString("PE_PRONOMBRE") & CRLF)
|
|
TAMANO = s.GetLong("L_CANT") + TAMANO
|
|
If s.GetLong("L_COSTOU") = 1 Then
|
|
TAMANO = s.GetLong("L_COSTOU") + TAMANO + 3
|
|
Else If s.GetLong("L_COSTOU") = 2 Then
|
|
TAMANO = s.GetLong("L_COSTOU") + TAMANO + 3
|
|
Else If s.GetLong("L_COSTOU") = 3 Then
|
|
TAMANO = s.GetLong("L_COSTOU") + TAMANO + 2
|
|
Else If s.GetLong("L_COSTOU") = 4 Then
|
|
TAMANO = s.GetLong("L_COSTOU") + TAMANO + 1
|
|
Else
|
|
TAMANO = s.GetLong("L_COSTOU") + TAMANO
|
|
End If
|
|
|
|
If s.GetLong("L_COSTO_TOT") = 1 Then
|
|
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO + 3
|
|
Else If s.GetLong("L_COSTO_TOT") = 2 Then
|
|
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO + 3
|
|
Else If s.GetLong("L_COSTO_TOT") = 3 Then
|
|
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO + 2
|
|
Else If s.GetLong("L_COSTO_TOT") = 4 Then
|
|
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO + 1
|
|
Else
|
|
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
|
|
End If
|
|
|
|
ESPACIO = ESPACIO - TAMANO
|
|
|
|
For E=0 To ESPACIO -1
|
|
BLANCO = " " & BLANCO
|
|
Next
|
|
' Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & " $" & s.GETSTRING("PE_COSTO_TOT") & CRLF )
|
|
Printer1.Justify = 0
|
|
Printer1.WriteString( s.GETSTRING("PE_CANT")& BLANCO)
|
|
Printer1.Justify = 1
|
|
Printer1.WriteString(NumberFormat2(s.GETSTRING("PE_COSTOU"),1,2,2,True) & BLANCO)
|
|
Printer1.Justify = 2
|
|
Printer1.WriteString(NumberFormat2(s.GETSTRING("PE_COSTO_TOT"),1,2,2,True) & CRLF )
|
|
TAMANO = 0
|
|
ESPACIO = 22
|
|
BLANCO = " "
|
|
Printer1.Justify = 0
|
|
End If
|
|
Next
|
|
Printer1.WriteString(" " & CRLF)
|
|
End If
|
|
s.Close
|
|
Printer1.Justify = 0
|
|
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
|
|
' If s.GetString("TOTAL") - s.GetString("TOTAL2") <> 0 Then
|
|
' Printer1.WriteString("Descuento: $" & (s.GetString("TOTAL2") - s.GetString("TOTAL")))
|
|
' End If
|
|
Printer1.WriteString("Total preventa: $" & s.GetString("TOTAL") & CRLF)
|
|
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
|
|
Printer1.WriteString("Total articulos preventa: " & c.GetString("PC_NOART") & CRLF)
|
|
c.Close
|
|
|
|
' Printer1.WriteString(" " & CRLF)
|
|
End If
|
|
|
|
|
|
' Printer1.WriteString(" " & CRLF)
|
|
' Printer1.WriteString("------------------------------" & CRLF)
|
|
'
|
|
' s=skmt.ExecQuery("select SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
|
' s.Position =0
|
|
' ' If s.GetString("TOTAL") - s.GetString("TOTAL2") <> 0 Then
|
|
' ' Printer1.WriteString("Descuento: $" & (s.GetString("TOTAL2") - s.GetString("TOTAL")))
|
|
' ' End If
|
|
' Printer1.WriteString("Total: $" & s.GetString("TOTAL") & CRLF)
|
|
' s.Close
|
|
' c= 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.Position=0
|
|
' Printer1.WriteString("Total Articulos: " & c.GetString("PC_NOART") & CRLF)
|
|
' c.Close
|
|
|
|
Printer1.WriteString(" " & CRLF)
|
|
Printer1.WriteString("------------------------------" & CRLF)
|
|
' Printer1.WriteString("ENTREGA EN :" & CRLF)
|
|
' Printer1.WriteString(la_Calle.Text & CRLF)
|
|
Printer1.WriteString("----ESTE TICKET NO ES UN -----" & CRLF)
|
|
Printer1.WriteString("--COMPROBANTE FISCAL, SOLO ES-" & CRLF)
|
|
Printer1.WriteString("--------INFORMATIVO-----------" & CRLF)
|
|
Printer1.WriteString("------------------------------" & CRLF)
|
|
Printer1.WriteString(" " & CRLF)
|
|
Printer1.WriteString(" " & CRLF)
|
|
Printer1.WriteString(" " & CRLF)
|
|
Sleep(1000)
|
|
Printer1.DisConnect
|
|
|
|
ProgressDialogHide
|
|
|
|
|
|
Msgbox2Async("Deseas imprimir de nuevo el ticket?", "ATENCION","SI","", "NO",LoadBitmap(File.DirAssets,"alert2.png"), False)
|
|
Wait For Msgbox_Result (resultado As Int)
|
|
If resultado = DialogResponse.POSITIVE Then
|
|
B_IMP_Click
|
|
Else
|
|
GUADAVENTA2
|
|
End If
|
|
|
|
' printer.Flush
|
|
' printer.Close
|
|
End Sub
|
|
|
|
Private Sub Label20_LongClick
|
|
xui.SetDataFolder("B4Xpdf")
|
|
File.Copy(File.DirAssets,"intmex_logo_192x192.jpg",xui.DefaultFolder,"intmex_logo_192x192.jpg")
|
|
File.Copy(File.DirAssets,"mariana1.jpg",xui.DefaultFolder,"mariana1.jpg")
|
|
File.Copy(File.DirAssets,"guna-fondo.jpg",xui.DefaultFolder,"guna-fondo.jpg")
|
|
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")
|
|
|
|
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"))
|
|
|
|
'add a page
|
|
Dim pagina As Double = ((18 + (s56.RowCount*2) + (s57.RowCount*2) +2) * (6)) + 22
|
|
Dim multiplicador As Int = 0
|
|
|
|
PDF.pageAdd(-300,pagina)
|
|
|
|
PDF.sFont(PDF.fontHelvetica,0,10,PDF.colorBlack)
|
|
|
|
PDF.outImage(xui.DefaultFolder,"mariana1.jpg",1,pagina-55,70,0)
|
|
multiplicador = multiplicador +1
|
|
PDF.outtext(1,pagina-multiplicador*6,"ADM")
|
|
|
|
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
|
|
|
|
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
|
|
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,"-----------------------------------------------------------------------------------------")
|
|
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") + NumberFormat2(s.GetLong("L_COSTOU"), 1,2,2,True) + NumberFormat2(s.GetLong("L_COSTO_TOT"), 1,2,2,True)
|
|
ESPACIO = 92
|
|
BLANCO = " "
|
|
ESPACIO = ESPACIO - (TAMANO + 6)
|
|
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 & NumberFormat2(s.GETSTRING("PE_COSTOU"),1,2,2,True) & BLANCO & NumberFormat2(s.GETSTRING("PE_COSTO_TOT"),1,2,2,True))
|
|
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") + NumberFormat2(s.GetLong("L_COSTOU"), 1,2,2,True) + NumberFormat2(s.GetLong("L_COSTO_TOT"), 1,2,2,True)
|
|
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 & NumberFormat2(s.GETSTRING("PE_COSTOU"), 1,2,2,True) & BLANCO & NumberFormat2(s.GETSTRING("PE_COSTO_TOT"), 1,2,2,True))
|
|
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,"-----------------------------------------------------------------------------------------")
|
|
|
|
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,"--------------------------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," " )
|
|
|
|
DateTime.DateFormat = "ddmmyyyy"
|
|
DateTime.TimeFormat = "HHmmss"
|
|
sDate=DateTime.Date(DateTime.Now)
|
|
sTime=DateTime.Time(DateTime.Now)
|
|
'save to file with compression if data compressed are smaller
|
|
savePDF(PDF,sDate&sTime&".pdf",PDF.CompressAlways)
|
|
|
|
'open with default viewer
|
|
openPDF(sDate&sTime&".pdf")
|
|
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,"mariana1.jpg",1,pagina-55,70,0)
|
|
multiplicador = multiplicador +1
|
|
PDF.outtext(1,pagina-multiplicador*6,"ADM")
|
|
|
|
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") + NumberFormat2(s.GetLong("L_COSTOU"),1,2,2,True) + NumberFormat2(s.GetLong("L_COSTO_TOT"),1,2,2,True)
|
|
ESPACIO = 92
|
|
BLANCO = " "
|
|
ESPACIO = ESPACIO - (TAMANO + 6)
|
|
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 & NumberFormat2(s.GETSTRING("PE_COSTOU"),1,2,2,True) & BLANCO & NumberFormat2(s.GETSTRING("PE_COSTO_TOT"),1,2,2,True))
|
|
|
|
' 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") + NumberFormat2(s.GetLong("L_COSTOU"),1,2,2,True) + NumberFormat2(s.GetLong("L_COSTO_TOT"),1,2,2,True)
|
|
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 & NumberFormat2(s.GETSTRING("PE_COSTOU"),1,2,2,True) & BLANCO & NumberFormat2(s.GETSTRING("PE_COSTO_TOT"),1,2,2,True))
|
|
|
|
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: $" & NumberFormat2(s.GetString("TOTAL"),1,2,2,True))
|
|
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," " )
|
|
|
|
|
|
' '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)
|
|
'save to file with compression if data compressed are smaller
|
|
savePDF(PDF,sDate&sTime&".pdf",PDF.CompressAlways)
|
|
|
|
'open with default viewer
|
|
If chb_impreso.Checked = False Then
|
|
openPDF(sDate&sTime&".pdf")
|
|
End If
|
|
nombrepdf =sDate&sTime&".pdf"
|
|
GUADAVENTA2
|
|
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
|
|
' apdf.saveToFile(folder,afile,acompress)
|
|
|
|
Dim folder As String
|
|
#if B4J
|
|
folder = xui.DefaultFolder
|
|
#End If
|
|
#if B4A
|
|
folder = Starter.fFileProvider.SharedFolder
|
|
#End If
|
|
#if B4I
|
|
folder = File.DirDocuments
|
|
#End If
|
|
|
|
' Guardar el PDF
|
|
apdf.saveToFile(folder, afile, acompress)
|
|
|
|
' Mostrar mensaje de éxito
|
|
Log($"PDF guardado en: ${File.Combine(folder, afile)}"$)
|
|
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
|
|
|
|
Sub imprime_venta
|
|
c=skmt.ExecQuery("select USUARIO from usuarioa")
|
|
c.Position=0
|
|
usuario = c.GetString("USUARIO")
|
|
DateTime.DateFormat = "MM/dd/yyyy"
|
|
sDate=DateTime.Date(DateTime.Now)
|
|
sTime=DateTime.Time(DateTime.Now)
|
|
c.Close
|
|
' c=Starter.skmt.ExecQuery2("SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION =?", Array As String ("SUCURSAL"))
|
|
' c.Position = 0
|
|
' sucursal = c.GetString("CAT_VA_VALOR")
|
|
' c.Close
|
|
|
|
ProgressDialogShow("Imprimiendo, un momento ...")
|
|
Printer1.DisConnect
|
|
If Not(Printer1.IsConnected) Then
|
|
Log("Conectando a impresora ...")
|
|
Printer1.Connect
|
|
Private cont As Int = 0
|
|
Do While Not(impresoraConectada)
|
|
Sleep(1000)
|
|
Log("++++++ " & cont)
|
|
cont = cont + 1
|
|
If cont = 2 Then Printer1.Connect 'Tratamos de reconectar
|
|
If cont > 3 Then impresoraConectada = True
|
|
Loop
|
|
Sleep(500)
|
|
impresoraConectada = False
|
|
Else
|
|
Log("conectando 2")
|
|
Printer1.Connect
|
|
Private cont As Int = 0
|
|
Do While Not(impresoraConectada) Or Not(Printer1.IsConnected)
|
|
Sleep(1000)
|
|
Log("****** " & cont)
|
|
cont = cont + 1
|
|
If cont = 2 Then Printer1.Connect
|
|
If cont > 3 Then impresoraConectada = True
|
|
Loop
|
|
Sleep(500)
|
|
impresoraConectada = False
|
|
End If
|
|
|
|
TAMANO = 0
|
|
ESPACIO = 22
|
|
BLANCO = " "
|
|
' Dim bmp As Bitmap
|
|
' bmp.InitializeResize(File.DirAssets, "mariana.jpg", 192, 250, True) 'ignore
|
|
' Dim myimage As AnImage = Printer1.ImageToBWIMage(bmp)
|
|
|
|
' myimage = Printer1.DitherImage2D(myimage, 128)
|
|
'
|
|
' myimage= Printer1.PackImage(myimage)
|
|
' Printer1.WriteString(CRLF) ' nudge the printer to show the user something is happening
|
|
' Printer1.WriteString(Printer1.REVERSE)
|
|
'
|
|
' Printer1.PrintImage(myimage)
|
|
' Printer1.WriteString(Printer1.UNREVERSE)
|
|
|
|
' Printer1.Justify = 1
|
|
'printer.Initialize(cmp20.OutputStream)
|
|
' Printer1.WriteString("DISTRIBUIDORA ROCHA TULA PACHUCA" & CRLF)
|
|
Printer1.WriteString("ADM" & CRLF)
|
|
' Printer1.WriteString(sucursal & CRLF)
|
|
Printer1.WriteString(sDate & CRLF)
|
|
Printer1.WriteString(sTime & CRLF)
|
|
Printer1.WriteString("Vendedor:" & usuario & CRLF)
|
|
Printer1.WriteString("Tienda: " & La_nombre.Text & CRLF)
|
|
Printer1.WriteString("ID.Cliente: " & la_cuenta.Text & CRLF)
|
|
Printer1.WriteString("Calle: " & la_Calle.Text & CRLF)
|
|
Printer1.WriteString("Colonia: " & la_col.Text & CRLF)
|
|
' Printer1.WriteString("C.P.: " & la_cp.Text & CRLF)
|
|
' Printer1.WriteString("Entre calle1: " & l_entre1.Text & CRLF)
|
|
' Printer1.WriteString("Entre Calle2: " & l_entre2.Text & CRLF)
|
|
Printer1.WriteString(" " & CRLF)
|
|
c = skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_FOLIO = ?",Array As String("VENTA"))
|
|
If c.RowCount > 0 Then
|
|
Printer1.WriteString("-----------VENTA-----------" & CRLF)
|
|
|
|
' Printer1.WriteString("--------------------------------" & CRLF)
|
|
Printer1.WriteString("Cant. Precio Importe" & CRLF)
|
|
|
|
Printer1.WriteString("------------------------------" & CRLF)
|
|
' aqui es donde esta el pedo de julieta de los descuentos quitar el precio2 pero meter un if para saber si es ruta especial o es normal o que show.
|
|
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("VENTA"))
|
|
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
|
|
Printer1.WriteString(s.GetString("PE_PRONOMBRE") & CRLF)
|
|
|
|
Else
|
|
|
|
Printer1.WriteString(s.GetString("PE_PRONOMBRE") & CRLF)
|
|
TAMANO = s.GetLong("L_CANT") + TAMANO
|
|
If s.GetLong("L_COSTOU") = 1 Then
|
|
TAMANO = s.GetLong("L_COSTOU") + TAMANO + 4
|
|
Else If s.GetLong("L_COSTOU") = 2 Then
|
|
TAMANO = s.GetLong("L_COSTOU") + TAMANO + 3
|
|
Else If s.GetLong("L_COSTOU") = 3 Then
|
|
TAMANO = s.GetLong("L_COSTOU") + TAMANO + 2
|
|
Else If s.GetLong("L_COSTOU") = 4 Then
|
|
TAMANO = s.GetLong("L_COSTOU") + TAMANO + 1
|
|
Else
|
|
TAMANO = s.GetLong("L_COSTOU") + TAMANO
|
|
End If
|
|
|
|
If s.GetLong("L_COSTO_TOT") = 1 Then
|
|
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO + 4
|
|
Else If s.GetLong("L_COSTO_TOT") = 2 Then
|
|
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO + 3
|
|
Else If s.GetLong("L_COSTO_TOT") = 3 Then
|
|
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO + 2
|
|
Else If s.GetLong("L_COSTO_TOT") = 4 Then
|
|
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO + 1
|
|
Else
|
|
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
|
|
End If
|
|
|
|
ESPACIO = ESPACIO - TAMANO
|
|
|
|
For E=0 To ESPACIO -1
|
|
BLANCO = " " & BLANCO
|
|
Next
|
|
Printer1.Justify = 0
|
|
Printer1.WriteString( s.GETSTRING("PE_CANT")& BLANCO)
|
|
Printer1.Justify = 1
|
|
Printer1.WriteString(s.GETSTRING("PE_COSTOU")& BLANCO)
|
|
Printer1.Justify = 2
|
|
Printer1.WriteString(s.GETSTRING("PE_COSTO_TOT") & CRLF )
|
|
TAMANO = 0
|
|
ESPACIO = 22
|
|
BLANCO = " "
|
|
End If
|
|
Next
|
|
End If
|
|
Printer1.Justify = 0
|
|
s.Close
|
|
Printer1.WriteString(" " & CRLF)
|
|
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_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP ) AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS, PE_COSTOU", Array As String("VENTA"))
|
|
If S.RowCount>0 Then
|
|
Printer1.WriteString("-------PROMOS VENTA--------" & CRLF)
|
|
Printer1.WriteString("Cant. Precio Importe" & CRLF)
|
|
Printer1.WriteString("------------------------------" & CRLF)
|
|
For i=0 To S.RowCount -1
|
|
S.Position=i
|
|
If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
|
|
Printer1.WriteString(s.GetString("PE_PRONOMBRE") & CRLF)
|
|
|
|
Else
|
|
|
|
Printer1.WriteString(s.GetString("PE_PRONOMBRE") & CRLF)
|
|
TAMANO = s.GetLong("L_CANT") + TAMANO
|
|
If s.GetLong("L_COSTOU") = 1 Then
|
|
TAMANO = s.GetLong("L_COSTOU") + TAMANO + 3
|
|
Else If s.GetLong("L_COSTOU") = 2 Then
|
|
TAMANO = s.GetLong("L_COSTOU") + TAMANO + 3
|
|
Else If s.GetLong("L_COSTOU") = 3 Then
|
|
TAMANO = s.GetLong("L_COSTOU") + TAMANO + 2
|
|
Else If s.GetLong("L_COSTOU") = 4 Then
|
|
TAMANO = s.GetLong("L_COSTOU") + TAMANO + 1
|
|
Else
|
|
TAMANO = s.GetLong("L_COSTOU") + TAMANO
|
|
End If
|
|
|
|
If s.GetLong("L_COSTO_TOT") = 1 Then
|
|
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO + 3
|
|
Else If s.GetLong("L_COSTO_TOT") = 2 Then
|
|
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO + 3
|
|
Else If s.GetLong("L_COSTO_TOT") = 3 Then
|
|
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO + 2
|
|
Else If s.GetLong("L_COSTO_TOT") = 4 Then
|
|
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO + 1
|
|
Else
|
|
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
|
|
End If
|
|
|
|
ESPACIO = ESPACIO - TAMANO
|
|
|
|
For E=0 To ESPACIO -1
|
|
BLANCO = " " & BLANCO
|
|
Next
|
|
' Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & " $" & s.GETSTRING("PE_COSTO_TOT") & CRLF )
|
|
Printer1.Justify = 0
|
|
Printer1.WriteString( s.GETSTRING("PE_CANT")& BLANCO)
|
|
Printer1.Justify = 1
|
|
Printer1.WriteString(s.GETSTRING("PE_COSTOU")& BLANCO)
|
|
Printer1.Justify = 2
|
|
Printer1.WriteString(s.GETSTRING("PE_COSTO_TOT") & CRLF )
|
|
TAMANO = 0
|
|
ESPACIO = 22
|
|
BLANCO = " "
|
|
End If
|
|
Next
|
|
Printer1.WriteString(" " & CRLF)
|
|
End If
|
|
s.Close
|
|
Printer1.Justify = 0
|
|
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("VENTA"))
|
|
s.Position =0
|
|
' If s.GetString("TOTAL") - s.GetString("TOTAL2") <> 0 Then
|
|
' Printer1.WriteString("Descuento: $" & (s.GetString("TOTAL2") - s.GetString("TOTAL")))
|
|
' End If
|
|
Printer1.WriteString("Total venta: $" & s.GetString("TOTAL") & CRLF)
|
|
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("VENTA"))
|
|
C.Position=0
|
|
Printer1.WriteString("Total articulos venta: " & c.GetString("PC_NOART") & CRLF)
|
|
c.Close
|
|
|
|
' Printer1.WriteString(" " & CRLF)
|
|
End If
|
|
|
|
|
|
' Printer1.WriteString(" " & CRLF)
|
|
' Printer1.WriteString("------------------------------" & CRLF)
|
|
'
|
|
' s=skmt.ExecQuery("select SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
|
' s.Position =0
|
|
' ' If s.GetString("TOTAL") - s.GetString("TOTAL2") <> 0 Then
|
|
' ' Printer1.WriteString("Descuento: $" & (s.GetString("TOTAL2") - s.GetString("TOTAL")))
|
|
' ' End If
|
|
' Printer1.WriteString("Total: $" & s.GetString("TOTAL") & CRLF)
|
|
' s.Close
|
|
' c= 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.Position=0
|
|
' Printer1.WriteString("Total Articulos: " & c.GetString("PC_NOART") & CRLF)
|
|
' c.Close
|
|
|
|
Printer1.WriteString(" " & CRLF)
|
|
Printer1.WriteString("------------------------------" & CRLF)
|
|
' Printer1.WriteString("ENTREGA EN :" & CRLF)
|
|
' Printer1.WriteString(la_Calle.Text & CRLF)
|
|
Printer1.WriteString("----ESTE TICKET NO ES UN -----" & CRLF)
|
|
Printer1.WriteString("--COMPROBANTE FISCAL, SOLO ES-" & CRLF)
|
|
Printer1.WriteString("--------INFORMATIVO-----------" & CRLF)
|
|
Printer1.WriteString("------------------------------" & CRLF)
|
|
Printer1.WriteString(" " & CRLF)
|
|
Printer1.WriteString(" " & CRLF)
|
|
Printer1.WriteString(" " & CRLF)
|
|
Sleep(1000)
|
|
Printer1.DisConnect
|
|
|
|
ProgressDialogHide
|
|
|
|
s = skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_FOLIO = ? AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)",Array As String("PREVENTA"))
|
|
If s.RowCount = 0 Then
|
|
Msgbox2Async("Deseas imprimir de nuevo el ticket?", "ATENCION","SI","", "NO",LoadBitmap(File.DirAssets,"alert2.png"), False)
|
|
Wait For Msgbox_Result (resultado As Int)
|
|
If resultado = DialogResponse.POSITIVE Then
|
|
B_IMP_Click
|
|
Else
|
|
GUADAVENTA2
|
|
End If
|
|
End If
|
|
|
|
' printer.Flush
|
|
' printer.Close
|
|
End Sub
|
|
|
|
Sub Printer1_Connected (Success As Boolean)
|
|
' If Logger Then Log("Printer1_Connected")
|
|
If Success Then
|
|
ToastMessageShow("Impresora conectada", False)
|
|
skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("MACIMP"))
|
|
skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("MACIMP",Starter.mac_impresora))
|
|
LogColor("Impresora conectada", Colors.Green)
|
|
' B_IMP2.Enabled = True
|
|
impresoraConectada = True
|
|
Else
|
|
' Msgbox(Printer1.ConnectedErrorMsg, "Error connecting.") 'ignore
|
|
' ToastMessageShow("Error conectando la impresora", False)
|
|
LogColor("Error conectando la impresora", Colors.Red)
|
|
errorImpresora = errorImpresora + 1
|
|
If errorImpresora > 1 Then
|
|
Starter.MAC_IMPRESORA = "0"
|
|
errorImpresora = 0
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Sub Printer_Connected (Success As Boolean)
|
|
If Success Then
|
|
B_IMP.Enabled = True
|
|
Else
|
|
B_IMP.Enabled = False
|
|
If Msgbox2("", "Printer Error","Reprint","Cancel","",Null) = DialogResponse.POSITIVE Then 'Ignore
|
|
StartPrinter
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Sub StartPrinter
|
|
Dim PairedDevices As Map
|
|
Dim L As List
|
|
Dim resimp As Int
|
|
ToastMessageShow("Printing.....",True)
|
|
PairedDevices.Initialize
|
|
Try
|
|
PairedDevices = cmp20.GetPairedDevices
|
|
Catch
|
|
Msgbox("Getting Paired Devices","Printer Error") 'Ignore
|
|
printer.Close
|
|
cmp20.Disconnect
|
|
End Try
|
|
If PairedDevices.Size = 0 Then
|
|
Msgbox("Error Connecting to Printer - Printer Not Found","") 'Ignore
|
|
Return
|
|
End If
|
|
If PairedDevices.Size = 1 Then
|
|
Try
|
|
cmp20.ConnectInsecure(btAdmin,PairedDevices.Get(PairedDevices.GetKeyAt(0)),1)
|
|
Catch
|
|
Msgbox("Connecting","Printer Error") 'Ignore
|
|
printer.Close
|
|
cmp20.Disconnect
|
|
End Try
|
|
Else
|
|
L.Initialize
|
|
For i = 0 To PairedDevices.Size - 1
|
|
L.Add(PairedDevices.GetKeyAt(i))
|
|
Next
|
|
resimp = InputList(L, "Choose device", -1) 'Ignore
|
|
If resimp <> DialogResponse.CANCEL Then
|
|
cmp20.Connect(PairedDevices.Get(L.Get(resimp)))
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Sub B_GUARDA_C_Click
|
|
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.Close
|
|
c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa")
|
|
c.Position=0
|
|
usuario = c.GetString("USUARIO")
|
|
c.Close
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA) VALUES(?,?,?,?,?,?,?,?,?,?) ", Array As Object ("4",.01 , .01, 2, "KNORR RINDE MAS 70 GR", "GUNA2",la_cuenta.TEXT, sDate & sTime, usuario,LA_RUTA))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_FACE(HFCLIENTE, HFALIAS,HFRUTA,HFALMACEN) VALUES (?,?,?,?) ", Array As Object(la_cuenta.Text, I_COMPRA.Text,LA_RUTA,ALMACEN))
|
|
Panel1.Visible = False
|
|
' b_like.Visible = True
|
|
Tar.Visible = True
|
|
' Tels.Visible = True
|
|
' gest.Visible = True
|
|
' b_like.Visible = False
|
|
Guardar.Visible = True
|
|
End Sub
|
|
|
|
Sub b_venta_Click
|
|
DateTime.DateFormat = "MM/dd/yyyy"
|
|
sDate=DateTime.Date(DateTime.Now)
|
|
sTime=DateTime.Time(DateTime.Now)
|
|
' s=B4XPages.MainPage.skmt.ExecQuery("select COUNT(*) AS CUANTOS from HIST_ENCUESTA where HE_CLIE In (Select cuenta from cuentaa)")
|
|
' s.Position= 0
|
|
' If s.GetString("CUANTOS") = 0 Then
|
|
' c=B4XPages.MainPage.skmt.ExecQuery2("SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String("CUESTIONARIO"))
|
|
' c.Position =0
|
|
' If c.GetString("CAT_VA_VALOR") = "2" Then
|
|
' res = Msgbox2("El cliente maneja CAZARES ?","CAZARES", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'Ignore
|
|
' If res = DialogResponse.POSITIVE Then
|
|
' B4XPages.MainPage.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, "SI",sDate & sTime,"TIENE"))
|
|
' Panel1.Visible =True
|
|
' I_COMPRA.Text = ""
|
|
' BT_QR.Visible= False
|
|
' Else
|
|
' B4XPages.MainPage.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, "NO",sDate & sTime,"TIENE"))
|
|
' B4XPages.MainPage.tipo_venta = "VENTA"
|
|
' B4XPages.ShowPage("Productos")
|
|
' End If
|
|
' Else
|
|
' B4XPages.MainPage.tipo_venta = "VENTA"
|
|
' B4XPages.ShowPage("Productos")
|
|
' End If
|
|
' c.Close
|
|
' Else
|
|
' B4XPages.MainPage.tipo_venta = "VENTA"
|
|
' B4XPages.ShowPage("Productos")
|
|
' End If
|
|
' s.Close
|
|
End Sub
|
|
|
|
Sub B_E_NEXT_Click
|
|
If E_RES_E.Text <> "" Then
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, E_RES_E.Text,sDate & sTime,"DONDE"))
|
|
Panel2.Visible = False
|
|
B4XPages.ShowPage("Productos")
|
|
Else
|
|
Msgbox("SIN RESPUESTA","AVISO") 'Ignore
|
|
End If
|
|
End Sub
|
|
|
|
Sub RB1_CheckedChange(Checked As Boolean)
|
|
If RB1.Checked = True Then
|
|
E_RES_E.Text = "CENTRAL DE ABASTOS"
|
|
End If
|
|
End Sub
|
|
|
|
Sub RB2_CheckedChange(Checked As Boolean)
|
|
If RB2.Checked = True Then
|
|
E_RES_E.Text = "AUTOSERVICIO"
|
|
End If
|
|
End Sub
|
|
|
|
Sub RB3_CheckedChange(Checked As Boolean)
|
|
If RB3.Checked = True Then
|
|
E_RES_E.Text = "CLUB DE PRECIO"
|
|
End If
|
|
End Sub
|
|
|
|
Sub RB4_CheckedChange(Checked As Boolean)
|
|
If RB4.Checked = True Then
|
|
E_RES_E.Text = "DIRECTO PEDEGREE"
|
|
End If
|
|
End Sub
|
|
|
|
'Sub b_like_Click
|
|
' Panel1.Visible = True
|
|
' b_like.Visible = False
|
|
' Tar.Visible = False
|
|
' Tels.Visible = False
|
|
' gest.Visible = False
|
|
' b_venta.Visible = False
|
|
' Guardar.Visible = False
|
|
'End Sub
|
|
|
|
'Sub B_GPS_Click
|
|
' Dim result As Int
|
|
' result = Msgbox2("Esta seguro de cambiar las coordenadas de este cliente", "Aviso GPS", "SI", "", "NO", LoadBitmap(File.DirAssets, "alerta.jpg")) 'Ignore
|
|
' If result = DialogResponse.Positive Then
|
|
' B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE kmt_info SET CAT_CL_LAT = ?, CAT_CL_LONG = ? where CAT_CL_CODIGO In (Select cuenta from cuentaa)", Array As Object(B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
|
|
' B4XPage_Appear
|
|
' End If
|
|
'End Sub
|
|
|
|
Private Sub p_cliente_Click
|
|
'Nada aqui, solo esta para que los clics no se pasen hacia atras.
|
|
End Sub
|
|
|
|
Private Sub cb_factura_CheckedChange(Checked As Boolean)
|
|
' Log(Checked)
|
|
If Checked Then p_cbFactura.Color = Colors.Green Else p_cbFactura.Color = Colors.red
|
|
End Sub
|
|
|
|
Sub mandaPendientes
|
|
' PEDIDO_CLIENTE (Pendientes)
|
|
Log(">>>>>>> MANDA PENDIENTES")
|
|
Dim PCNoArts As String
|
|
Dim PCMonto As String
|
|
If usuario <> "KMTS1" Then
|
|
c = skmt.ExecQuery("SELECT * FROM PEDIDO_CLIENTE where PC_ENVIO_OK = 0")
|
|
Log($"Pedido_Cliente PENDIENTE: ${c.RowCount}"$)
|
|
If c.RowCount > 0 Then
|
|
For i = 0 To c.RowCount - 1
|
|
c.Position = i
|
|
Log($"${c.GetString("PC_CLIENTE")}|${c.GetString("PC_FECHA")}|${c.GetString("PC_ENVIO_OK")}|"$)
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "insert_pedidos_ADM3"
|
|
cmd.Parameters = Array As Object(c.GetString("PC_CLIENTE"), c.GetString("PC_FECHA"), c.GetString("PC_USER"), c.GetString("PC_NOART"), c.GetString("PC_MONTO"), c.GetString("PC_LON"), c.GetString("PC_LAT"), Subs.traeAlmacen, B4XPages.MainPage.principal.l_ruta.text, c.GetString("PC_COSTO_SIN"), c.GetString("PC_FACTURA"))
|
|
PCNoArts = c.GetString("PC_NOART")
|
|
PCMonto = c.GetString("PC_MONTO")
|
|
' sql.insert_pedidos_INTMEX=INSERT INTO INTMEX.PEDIDO_CLIENTE(PC_FECHA_SINC,PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT,PC_IDALMACEN, PC_RUTA, PC_COSTO_SIN, PC_FACTURA) VALUES (SYSDATE,(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?))
|
|
reqManager.ExecuteCommand(cmd , $"ins_pedidosPendientes_head_${c.GetString("PC_CLIENTE")}"$)
|
|
Next
|
|
End If
|
|
|
|
'PEDIDO (Pendientes)
|
|
c = skmt.ExecQuery($"SELECT PE_ENVIO_OK, PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO, PE_CANTC, PE_BCAJAS, PE_TIPOPAGO, PE_COMENTARIO FROM PEDIDO where PE_ENVIO_OK <> 1"$)
|
|
Log($"Pedido PENDIENTE: ${c.RowCount}"$)
|
|
If c.RowCount>0 Then
|
|
For i=0 To c.RowCount -1
|
|
c.Position=i
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "insert_pedido2_ADM3"
|
|
cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),c.GetString("PE_CEDIS"),ALMACEN,c.GetString("PE_COSTO_TOT"),c.GetString("PE_COSTOU"),c.GetString("PE_CANT"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CLIENTE"),c.GetString("PE_FECHA"),c.GetString("PE_USUARIO"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),c.GetString("PE_FOLIO"),c.GetString("PE_CANTC"),c.GetString("PE_BCAJAS"),c.GetString("PE_TIPOPAGO"),c.GetString("PE_COMENTARIO"))
|
|
reqManager.ExecuteCommand(cmd , $"ins_pedidosPendientes_prods_${c.GetString("PE_CLIENTE")}_${c.GetString("PE_PROID")}"$)
|
|
Log($">>>> INS_PEDIDO= ${C.GetString("PE_CEDIS")},${ALMACEN},${C.GetString("PE_COSTO_TOT")},${C.GetString("PE_COSTOU")},${C.GetString("PE_CANT")}, ${C.GetString("PE_PRONOMBRE")}, ${C.GetString("PE_PROID")}, ${C.GetString("PE_CLIENTE")}, ${C.GetString("PE_FECHA")}, ${C.GetString("PE_USUARIO")}, ${C.GetString("PE_RUTA")}, ${C.GetString("PE_COSTO_SIN")}, ${C.GetString("PE_DESC")}, ${c.GetString("PE_FOLIO")}, ${PCNoArts}, ${PCMonto}"$)
|
|
' sql.insert_pedido_INTMEX=INSERT INTO INTMEX.PEDIDO (PE_CODPROMO,PE_FECHA_SINC,PE_IDALMACEN,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN, PE_DESCUENTO, PE_TIPO) VALUES ((?),SYSDATE,(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),nvl((?),0),(?))
|
|
' sql.insert_pedido2_INTMEX=INSERT INTO INTMEX.PEDIDO (PE_CODPROMO,PE_FECHA_SINC,PE_IDALMACEN,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN, PE_DESCUENTO, PE_TIPO, PE_CANT_TOTAL, PE_VENTA_TOTAL) VALUES ((?),SYSDATE,(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),nvl((?),0),(?),(?),(?))
|
|
Next
|
|
End If
|
|
|
|
'ABONOS
|
|
Dim ab As Cursor = B4XPages.MainPage.skmt.ExecQuery($"SELECT * from ABONOS where a_enviado is null"$)
|
|
Log(ab.RowCount)
|
|
If ab.RowCount > 0 Then
|
|
For i=0 To ab.RowCount -1
|
|
ab.Position = i
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "insert_abono_ADM3"
|
|
cmd.Parameters = Array As Object( ab.GetString("a_usuario"), ab.GetString("a_ruta"), ab.GetString("a_cliente"), ab.GetString("a_abono"), ab.GetString("a_fecha"),ALMACEN )
|
|
reqManager.ExecuteCommand(cmd , $"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
|
|
Log($"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
|
|
Next
|
|
End If
|
|
ab.Close
|
|
|
|
'CLIENTES NUEVOS
|
|
Dim bb As Cursor = B4XPages.MainPage.skmt.ExecQuery($"SELECT * from CLIENTE_NUEVO where CN_enviado is null"$)
|
|
Dim cb As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT ID_ALMACEN from CAT_ALMACEN")
|
|
cb.Position = 0
|
|
If bb.RowCount > 0 Then
|
|
For i=0 To bb.RowCount -1
|
|
bb.Position = i
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "insert_cliente_ADM3"
|
|
cmd.Parameters = Array As Object( bb.GetString("CN_ID_CLIENTE"), bb.GetString("CN_NOMBRE"),B4XPages.MainPage.principal.l_ruta.Text,cb.GetString("ID_ALMACEN"))
|
|
reqManager.ExecuteCommand(cmd , $"insert_cliente_${bb.GetString("CN_ID_CLIENTE")}"$)
|
|
Log($"insert_cliente_${bb.GetString("CN_ID_CLIENTE")}"$)
|
|
Next
|
|
Log("si lo hice")
|
|
End If
|
|
bb.Close
|
|
cb.Close
|
|
|
|
' BANDERA FACTURA (Pendientes)
|
|
' c=B4XPages.MainPage.skmt.ExecQuery("SELECT PC_FACTURA, PC_CLIENTE FROM pedido_cliente where PC_CLIENTE IN (Select CUENTA from cuentaa)")
|
|
' Log($"BANDERA FACTURA PENDIENTE: ${c.RowCount}"$)
|
|
' If c.RowCount>0 Then
|
|
' For i=0 To c.RowCount -1
|
|
' c.Position=i
|
|
' Dim cmd As DBCommand
|
|
' cmd.Initialize
|
|
' cmd.Name = "update_factura_INTMEX"
|
|
' cmd.Parameters = Array As Object(C.GetString("PC_FACTURA"), C.GetString("PC_CLIENTE"), ALMACEN)
|
|
' reqManager.ExecuteCommand(cmd , "upd_facturasPendientes")
|
|
' Next
|
|
' ' sql.update_factura_INTMEX=UPDATE INTMEX.HIST_VENTAS SET HV_FACTURA = (?) WHERE HV_CLIENTE = (?) And HV_ALMACEN = (?)
|
|
' End If
|
|
' c.Close
|
|
|
|
'' CUESTIONARIO (Pendientes)
|
|
' c = B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM CUESTIONARIO where ifnull(Q_ENVIO_OK, 0) = 0 order by Q_IDCLIENTE, Q_IDPREGUNTA; Q_IDRESPUESTA")
|
|
' Private rutaActual As String = Subs.traeRuta
|
|
' Log("CUEST PENDIENTES: " & c.RowCount)
|
|
' If c.RowCount > 0 Then
|
|
' For x = 0 To c.RowCount - 1
|
|
' c.Position = x
|
|
' Log($"insert_cuestionario_${c.GetString("Q_IDCLIENTE")}_${c.GetString("Q_IDPREGUNTA")}_${c.GetString("Q_IDRESPUESTA")}"$)
|
|
' Dim cmd As DBCommand
|
|
' cmd.Initialize
|
|
' cmd.Name = "insert_CUESTIONARIO_INTMEX"
|
|
' cmd.Parameters = Array As Object(c.GetString("Q_IDCLIENTE"), rutaActual, ALMACEN, c.GetString("Q_FECHA"), c.GetString("Q_IDPREGUNTA"), c.GetString("Q_PREGUNTA"), c.GetString("Q_IDRESPUESTA"), C.GetString("Q_RESPUESTA"))
|
|
' reqManager.ExecuteCommand(cmd , $"insert_cuestionario_${c.GetString("Q_IDCLIENTE")}_${c.GetString("Q_IDPREGUNTA")}_${c.GetString("Q_IDRESPUESTA")}"$)
|
|
' Next
|
|
' End If
|
|
' c.Close
|
|
End If
|
|
End Sub
|
|
|
|
Sub mandaPendientesrecarga
|
|
' PEDIDO_CLIENTE (Pendientes)
|
|
Log(">>>>>>> MANDA PENDIENTES")
|
|
Dim PCNoArts As String
|
|
Dim PCMonto As String
|
|
If usuario <> "KMTS1" Then
|
|
f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info")
|
|
f.Position=0
|
|
d = skmt.ExecQuery("SELECT * FROM PEDIDO_CLIENTE where PC_ENVIO_OK = 0 AND PC_CLIENTE = 1")
|
|
c = skmt.ExecQuery("SELECT * FROM PEDIDO_CLIENTE where PC_ENVIO_OK = 0 AND PC_CLIENTE = 1")
|
|
Log($"Pedido_Cliente PENDIENTE: ${c.RowCount}"$)
|
|
If c.RowCount > 0 Then
|
|
For i = 0 To c.RowCount - 1
|
|
c.Position = i
|
|
Log($"${c.GetString("PC_CLIENTE")}|${c.GetString("PC_FECHA")}|${c.GetString("PC_ENVIO_OK")}|"$)
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "insert_pedidos_ADM3"
|
|
cmd.Parameters = Array As Object("0", c.GetString("PC_FECHA"), c.GetString("PC_USER"), c.GetString("PC_NOART"), c.GetString("PC_MONTO"), c.GetString("PC_LON"), c.GetString("PC_LAT"), Subs.traeAlmacen, f.GetString("CAT_CL_RUTA"), c.GetString("PC_COSTO_SIN"), c.GetString("PC_FACTURA"))
|
|
PCNoArts = c.GetString("PC_NOART")
|
|
PCMonto = c.GetString("PC_MONTO")
|
|
'' sql.insert_pedidos_INTMEX=INSERT INTO INTMEX.PEDIDO_CLIENTE(PC_FECHA_SINC,PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT,PC_IDALMACEN, PC_RUTA, PC_COSTO_SIN, PC_FACTURA) VALUES (SYSDATE,(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?))
|
|
reqManager.ExecuteCommand(cmd , $"ins_pedidosPendientes_head_${c.GetString("PC_CLIENTE")}"$)
|
|
Next
|
|
End If
|
|
f.Close
|
|
'PEDIDO (Pendientes)
|
|
c = skmt.ExecQuery($"SELECT PE_ENVIO_OK, PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO, PE_CANTC, PE_BCAJAS FROM PEDIDO where PE_ENVIO_OK <> 1 AND PE_FOLIO = 'RECARGA'"$)
|
|
Log($"Pedido PENDIENTE: ${c.RowCount}"$)
|
|
If c.RowCount>0 Then
|
|
For i=0 To c.RowCount -1
|
|
c.Position=i
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "insert_pedido3_ADM3"
|
|
cmd.Parameters = Array As Object(C.GetString("PE_CEDIS"),ALMACEN,C.GetString("PE_COSTO_TOT"),C.GetString("PE_COSTOU"),C.GetString("PE_CANT"),C.GetString("PE_PRONOMBRE"),C.GetString("PE_PROID"),"0",C.GetString("PE_FECHA"),C.GetString("PE_USUARIO"),C.GetString("PE_RUTA"), C.GetString("PE_COSTO_SIN"),C.GetString("PE_DESC"),"ABORDO",C.GetString("PE_CANTC"),c.GetString("PE_BCAJAS"),"RECARGA")
|
|
reqManager.ExecuteCommand(cmd , $"ins_pedidosPendientes_prods_${c.GetString("PE_CLIENTE")}_${c.GetString("PE_PROID")}"$)
|
|
Log($">>>> INS_PEDIDO= ${C.GetString("PE_CEDIS")},${ALMACEN},${C.GetString("PE_COSTO_TOT")},${C.GetString("PE_COSTOU")},${C.GetString("PE_CANT")}, ${C.GetString("PE_PRONOMBRE")}, ${C.GetString("PE_PROID")}, ${C.GetString("PE_CLIENTE")}, ${C.GetString("PE_FECHA")}, ${C.GetString("PE_USUARIO")}, ${C.GetString("PE_RUTA")}, ${C.GetString("PE_COSTO_SIN")}, ${C.GetString("PE_DESC")}, ${c.GetString("PE_FOLIO")}, ${PCNoArts}, ${PCMonto}"$)
|
|
' sql.insert_pedido_INTMEX=INSERT INTO INTMEX.PEDIDO (PE_CODPROMO,PE_FECHA_SINC,PE_IDALMACEN,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN, PE_DESCUENTO, PE_TIPO) VALUES ((?),SYSDATE,(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),nvl((?),0),(?))
|
|
' sql.insert_pedido2_INTMEX=INSERT INTO INTMEX.PEDIDO (PE_CODPROMO,PE_FECHA_SINC,PE_IDALMACEN,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN, PE_DESCUENTO, PE_TIPO, PE_CANT_TOTAL, PE_VENTA_TOTAL) VALUES ((?),SYSDATE,(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),nvl((?),0),(?),(?),(?))
|
|
Next
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Sub mandapiezasrecarga
|
|
If l_total.Text <> Null Or l_total.Text <> "null" Then
|
|
Dim PCNoArts As String
|
|
Dim PCMonto As String
|
|
c = skmt.ExecQuery2("SELECT * FROM PEDIDO_CLIENTE WHERE PC_CLIENTE = ?", Array As String("1"))
|
|
If c.RowCount > 0 Then
|
|
c.Position = 0
|
|
Log(la_cuenta.Text&", "& ALMACEN&", "& LA_RUTA)
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "select_piezas_ADM3"
|
|
cmd.Parameters = Array As Object(la_cuenta.Text, ALMACEN, LA_RUTA)
|
|
reqManager.ExecuteQuery(cmd , 0, "piezasrecarga")
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Sub mandapiezas
|
|
If l_total.Text <> Null Or l_total.Text <> "null" Then
|
|
Dim PCNoArts As String
|
|
Dim PCMonto As String
|
|
c = skmt.ExecQuery2("SELECT * FROM PEDIDO_CLIENTE WHERE PC_CLIENTE = ?", Array As String(la_cuenta.Text))
|
|
If c.RowCount > 0 Then
|
|
c.Position = 0
|
|
Log(la_cuenta.Text&", "& ALMACEN&", "& LA_RUTA)
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "select_piezas_ADM3"
|
|
cmd.Parameters = Array As Object(la_cuenta.Text, ALMACEN, LA_RUTA)
|
|
reqManager.ExecuteQuery(cmd , 0, "piezas")
|
|
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Sub JobDone(Job As HttpJob)
|
|
' Log(Job.Success)
|
|
If Job.Success = False Then
|
|
' ToastMessageShow("Error: " & Job.ErrorMessage, True)
|
|
Else
|
|
LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211027
|
|
If Job.JobName = "DBRequest" Then
|
|
Dim resultado As DBResult = reqManager.HandleJob(Job)
|
|
If resultado.Tag.As(String).IndexOf("ins_pedidosPendientes_head_") > -1 Then
|
|
Subs.logJobDoneResultados(resultado)
|
|
Private cliente As String= resultado.Tag
|
|
cliente = cliente.SubString(cliente.IndexOf("_")+24)
|
|
' Log($"Cliente1:${cliente}"$)
|
|
For Each records() As Object In resultado.Rows
|
|
If records(resultado.Columns.Get("AffectedRows")).As(Int) = 1 Then
|
|
' Log(">>>>>>>> GUARDADO")
|
|
Private pars() As String = Regex.Split("_", resultado.tag)
|
|
B4XPages.MainPage.skmt.ExecNonQuery($"update PEDIDO_CLIENTE set PC_ENVIO_OK = 1 where PC_CLIENTE = '${pars(3)}'"$)
|
|
' Log($"update PEDIDO_CLIENTE set PC_ENVIO_OK = 1 where PC_CLIENTE = '${pars(3)}'"$)
|
|
End If
|
|
' For Each k As String In resultado.Columns.Keys
|
|
' Log(resultado.Tag & ": " & k & ": " & records(resultado.Columns.Get(k)))
|
|
' Next
|
|
Next
|
|
End If
|
|
End If
|
|
|
|
If Job.JobName = "DBRequest" Then
|
|
Dim resultado As DBResult = reqManager.HandleJob(Job)
|
|
If resultado.Tag = "piezas" Then 'query tag
|
|
' B4XPages.MainPage.picking.cl_picking.Clear
|
|
Dim piezasexiste As Int
|
|
|
|
For Each records() As Object In resultado.Rows
|
|
|
|
piezasexiste = records(resultado.Columns.Get("COUNT(*)"))
|
|
Log(piezasexiste)
|
|
DateTime.DateFormat = "MM/dd/yyyy"
|
|
DateTime.TimeFormat = "HH:mm:ss"
|
|
sDate=DateTime.Date(DateTime.Now)
|
|
sTime=DateTime.Time(DateTime.Now)
|
|
If piezasexiste = 0 Then
|
|
|
|
Dim PCNoArts As String
|
|
Dim PCMonto As String
|
|
c = skmt.ExecQuery2("SELECT * FROM PEDIDO_CLIENTE WHERE PC_CLIENTE = ?", Array As String(la_cuenta.Text))
|
|
|
|
If c.RowCount > 0 Then
|
|
c.Position = 0
|
|
PCNoArts = c.GetString("PC_NOART")
|
|
PCMonto = c.GetString("PC_MONTO")
|
|
End If
|
|
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "insert_HVC_ADM3"
|
|
cmd.Parameters = Array As Object((sDate & " " & sTime), la_cuenta.Text, PCNoArts, PCMonto, ALMACEN, LA_RUTA)
|
|
reqManager.ExecuteCommand(cmd , "insert_hvc")
|
|
' reqManager.ExecuteCommand(cmd , $"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
|
|
|
|
Else If piezasexiste = 1 Then
|
|
Dim PCNoArts As String
|
|
Dim PCMonto As String
|
|
c = skmt.ExecQuery2("SELECT * FROM PEDIDO_CLIENTE WHERE PC_CLIENTE = ?", Array As String(la_cuenta.Text))
|
|
|
|
If c.RowCount > 0 Then
|
|
c.Position = 0
|
|
PCNoArts = c.GetString("PC_NOART")
|
|
PCMonto = c.GetString("PC_MONTO")
|
|
End If
|
|
cmd.Initialize
|
|
cmd.Name = "update_HVC_ADM3"
|
|
cmd.Parameters = Array As Object((sDate & " " & sTime), la_cuenta.Text, PCNoArts, PCMonto, ALMACEN, LA_RUTA, la_cuenta.Text, ALMACEN, LA_RUTA)
|
|
reqManager.ExecuteCommand(cmd, "update_hvc")
|
|
|
|
End If
|
|
Next
|
|
|
|
|
|
End If
|
|
End If
|
|
|
|
If Job.JobName = "DBRequest" Then
|
|
Dim resultado As DBResult = reqManager.HandleJob(Job)
|
|
If resultado.Tag = "piezasrecarga" Then 'query tag
|
|
' B4XPages.MainPage.picking.cl_picking.Clear
|
|
Dim piezasexiste As Int
|
|
For Each records() As Object In resultado.Rows
|
|
piezasexiste = records(resultado.Columns.Get("COUNT(*)"))
|
|
Log(piezasexiste)
|
|
DateTime.DateFormat = "MM/dd/yyyy"
|
|
DateTime.TimeFormat = "HH:mm:ss"
|
|
sDate=DateTime.Date(DateTime.Now)
|
|
sTime=DateTime.Time(DateTime.Now)
|
|
If piezasexiste = 0 Then
|
|
Dim PCNoArts As String
|
|
Dim PCMonto As String
|
|
c = skmt.ExecQuery2("SELECT * FROM PEDIDO_CLIENTE WHERE PC_CLIENTE = ?", Array As String("1"))
|
|
If c.RowCount > 0 Then
|
|
c.Position = 0
|
|
PCNoArts = c.GetString("PC_NOART")
|
|
PCMonto = c.GetString("PC_MONTO")
|
|
End If
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "insert_HVC_ADM3"
|
|
cmd.Parameters = Array As Object((sDate & " " & sTime), "0", PCNoArts, PCMonto, ALMACEN, LA_RUTA)
|
|
reqManager.ExecuteCommand(cmd , "insert_hvc")
|
|
' reqManager.ExecuteCommand(cmd , $"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
|
|
Else If piezasexiste = 1 Then
|
|
Dim PCNoArts As String
|
|
Dim PCMonto As String
|
|
c = skmt.ExecQuery2("SELECT * FROM PEDIDO_CLIENTE WHERE PC_CLIENTE = ?", Array As String("1"))
|
|
If c.RowCount > 0 Then
|
|
c.Position = 0
|
|
PCNoArts = c.GetString("PC_NOART")
|
|
PCMonto = c.GetString("PC_MONTO")
|
|
End If
|
|
cmd.Initialize
|
|
cmd.Name = "update_HVC_ADM3"
|
|
cmd.Parameters = Array As Object((sDate & " " & sTime), "0", PCNoArts, PCMonto, ALMACEN, LA_RUTA, la_cuenta.Text, ALMACEN, LA_RUTA)
|
|
reqManager.ExecuteCommand(cmd, "update_hvc")
|
|
End If
|
|
Next
|
|
End If
|
|
End If
|
|
|
|
If Job.JobName = "DBRequest" Then
|
|
Dim resultado As DBResult = reqManager.HandleJob(Job)
|
|
If resultado.Tag.As(String).IndexOf("ins_pedidosPendientes_prods_") > -1 Then
|
|
Subs.logJobDoneResultados(resultado)
|
|
Private cliente As String= resultado.Tag
|
|
cliente = cliente.SubString(cliente.IndexOf("_")+25)
|
|
Log($"Cliente2:${cliente}"$)
|
|
For Each records() As Object In resultado.Rows
|
|
' If records(resultado.Columns.Get("AffectedRows")).As(Int) = 1 Then Log(">>>>>>>> GUARDADO")
|
|
Private pars() As String = Regex.Split("_", resultado.tag)
|
|
B4XPages.MainPage.skmt.ExecNonQuery($"update PEDIDO set PE_ENVIO_OK = 1 where PE_CLIENTE = '${pars(3)}' and PE_PROID = '${pars(4)}' and PE_ENVIO_OK = 0"$)
|
|
' Log($"update PEDIDO set PE_ENVIO_OK = 1 where PE_CLIENTE = '${pars(3)}' and PE_PROID = '${pars(4)}' and PE_ENVIO_OK = 0"$)
|
|
' For Each k As String In resultado.Columns.Keys
|
|
' Log(resultado.Tag & ": " & k & ": " & records(resultado.Columns.Get(k)))
|
|
' Next
|
|
Next
|
|
End If
|
|
End If
|
|
|
|
'ABONOS PENDIENTES
|
|
If Job.JobName = "DBRequest" Then
|
|
Dim resultado As DBResult = reqManager.HandleJob(Job)
|
|
If resultado.Tag.As(String).IndexOf("ins_abonosPendientes_") > -1 Then
|
|
Private cliente As String= resultado.Tag
|
|
cliente = cliente.SubString(cliente.IndexOf("_")+18)
|
|
Log($"Cliente2:${cliente}"$)
|
|
For Each records() As Object In resultado.Rows
|
|
For Each k As String In resultado.Columns.Keys
|
|
Log(resultado.Tag & ": " & k & ": " & records(resultado.Columns.Get(k)))
|
|
Next
|
|
Next
|
|
B4XPages.MainPage.skmt.ExecNonQuery($"UPDATE ABONOS set a_enviado = 1 where a_cliente = '${cliente}'"$)
|
|
End If
|
|
End If
|
|
|
|
'CLIENTES NUEVOS
|
|
If Job.JobName = "DBRequest" Then
|
|
Dim resultado As DBResult = reqManager.HandleJob(Job)
|
|
If resultado.Tag.As(String).IndexOf("insert_cliente_") > -1 Then
|
|
Private cliente As String= resultado.Tag
|
|
cliente = cliente.SubString(cliente.IndexOf("_")+9)
|
|
Log($"Cliente2:${cliente}"$)
|
|
For Each records() As Object In resultado.Rows
|
|
For Each k As String In resultado.Columns.Keys
|
|
Log(resultado.Tag & ": " & k & ": " & records(resultado.Columns.Get(k)))
|
|
Next
|
|
Next
|
|
B4XPages.MainPage.skmt.ExecNonQuery($"UPDATE CLIENTE_NUEVO set CN_enviado = 1 where CN_ID_CLIENTE = '${cliente}'"$)
|
|
End If
|
|
End If
|
|
|
|
'CUESTIONARIO
|
|
If Job.JobName = "DBRequest" Then
|
|
Dim resultado As DBResult = reqManager.HandleJob(Job)
|
|
If resultado.Tag.As(String).IndexOf("insert_cuestionario_") > -1 Then
|
|
Private pars() As String = Regex.Split("_", resultado.Tag.As(String))
|
|
Log($"${resultado.tag}|${pars(0)}"$)
|
|
Log($"${pars(1)}"$)
|
|
Log($"${pars(2)}"$)
|
|
Log($"${pars(3)}"$)
|
|
Log($"${pars(4)}"$)
|
|
Private cliente As String = pars(2)
|
|
Private idPreg As String = pars(3)
|
|
Private idResp As String = pars(4)
|
|
Log($"Cliente2:${cliente}, preg:${idPreg}, res:${idResp}"$)
|
|
For Each records() As Object In resultado.Rows
|
|
For Each k As String In resultado.Columns.Keys
|
|
Log(resultado.Tag & ": " & k & ": " & records(resultado.Columns.Get(k)))
|
|
Next
|
|
Next
|
|
B4XPages.MainPage.skmt.ExecNonQuery($"UPDATE CUESTIONARIO set Q_ENVIO_OK = 1 where Q_IDCLIENTE = '${cliente}' and Q_IDPREGUNTA='${idPreg}' and Q_IDRESPUESTA='${idResp}'"$)
|
|
End If
|
|
End If
|
|
|
|
Job.Release
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub p_abono_Click
|
|
|
|
End Sub
|
|
|
|
Private Sub b_abono_Click
|
|
p_abono.Visible = False
|
|
If et_abono.text > l_montoabonostotal.text Then
|
|
MsgboxAsync("El monto a abonar no puede ser mayor que el monto total","Atención" )
|
|
Else
|
|
If et_abono.Text <> "" Then
|
|
Msgbox2Async($"¿Seguro que quieres realizar un abono de $${et_abono.text} para este cliente?"$, "Guardar Abono", "Guardar", "Cancelar", "", Null, True)
|
|
Wait For Msgbox_Result (resultado As Int)
|
|
If resultado = DialogResponse.POSITIVE Then
|
|
skmt.ExecNonQuery($"INSERT INTO ABONOS(a_usuario, a_ruta, a_cliente, a_abono, a_fecha) VALUES ('${Subs.traeUsuarioDeBD}', '${Subs.traeRuta}', '${Subs.traeCliente}' ,'${et_abono.text}', '${Subs.fechaKMT(DateTime.now)}')"$)
|
|
ToastMessageShow("Abono guardado", False)
|
|
End If
|
|
End If
|
|
End If
|
|
et_abono.Text = ""
|
|
ime.HideKeyboard
|
|
End Sub
|
|
|
|
Private Sub b_cancelar_Click
|
|
et_abono.Text = ""
|
|
p_abono.Visible = False
|
|
ime.HideKeyboard
|
|
End Sub
|
|
|
|
Private Sub b_abono1_Click
|
|
p_abono.Visible = True
|
|
End Sub
|
|
|
|
Private Sub b_cxc_Click
|
|
|
|
h = B4XPages.MainPage.skmt.ExecQuery("SELECT CUENTA from CUENTAA")
|
|
h.Position = 0
|
|
Log(h.GetString("CUENTA"))
|
|
j = B4XPages.MainPage.skmt.ExecQuery2("SELECT a_abono AS CUANTOS FROM ABONOS WHERE a_cliente = ?", Array As String(h.GetString("CUENTA")))
|
|
j.position = 0
|
|
Log(j.RowCount)
|
|
If j.RowCount = 0 Then
|
|
|
|
p_abono.Visible = True
|
|
Dim total As String = 0
|
|
f = B4XPages.MainPage.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
|
|
f.Position = 0
|
|
|
|
d = B4XPages.MainPage.skmt.ExecQuery2("SELECT NOTA, SALDO_PENDIENTE FROM ABONOSP WHERE CLIENTE = ? ", Array As String (f.GetString("CUENTA")))
|
|
clv_abonos.Clear
|
|
For i = 0 To d.RowCount - 1
|
|
d.Position = i
|
|
clv_abonos.Add(CreateListItem(d.GetString("NOTA"),"$ " & d.GetString("SALDO_PENDIENTE")),i)
|
|
Log(d.GetString("NOTA"))
|
|
Log(d.GetString("SALDO_PENDIENTE"))
|
|
total = total + d.GetString("SALDO_PENDIENTE")
|
|
Log(total)
|
|
Next
|
|
l_montoabonostotal.Text = total
|
|
d.Close
|
|
f.Close
|
|
|
|
Else If j.RowCount > 0 Then
|
|
MsgboxAsync("Este cliente ya tiene un pago capturado","Atención")
|
|
End If
|
|
h.Close
|
|
j.Close
|
|
|
|
|
|
End Sub
|
|
|
|
Sub CreateListItem(mostrar As String, mostrar1 As String) As Panel
|
|
Dim p As B4XView = xui.CreatePanel("")
|
|
p.SetLayoutAnimated(0, 0, 0, 1, 10)
|
|
p.LoadLayout("folioabono")
|
|
p.Height= 32dip
|
|
p.Width = 80dip
|
|
' p.Width = clv_orden.GetBase.Width
|
|
l_folio.Text = mostrar
|
|
l_saldo.Text = mostrar1
|
|
' cxc.Text = mostrar3
|
|
' Log(p.Width)
|
|
Return p
|
|
End Sub
|
|
|
|
Sub cuest_preguntaContestada(m As Map)
|
|
' Recibimos el id de la pregunta, el id de la respuesta, el texto de la respuesta y el objeto del panelSombra para poder ocultarlo.
|
|
Log(m)
|
|
' If q.IsInitialized Then Log($"${q.encuestaIniciada}|${q.preguntaActual}"$)
|
|
' m.Get("panel").As(Panel).Visible = False 'Ocultamos el panel de la pregunta.
|
|
m.Get("panel").As(Panel).RemoveView 'Quitamos le panel de la pregunta
|
|
DateTime.DateFormat = "dd/MM/yyyy"
|
|
DateTime.TimeFormat = "HH:mm:ss"
|
|
Starter.skmt.ExecNonQuery($"delete from CUESTIONARIO where Q_IDCLIENTE = '${Subs.traeCliente}' and Q_IDPREGUNTA = '${m.Get("idPregunta")}'"$)
|
|
Starter.skmt.ExecNonQuery($"insert into CUESTIONARIO (Q_RUTA, Q_ALMACEN, Q_IDCLIENTE, Q_IDPREGUNTA, Q_PREGUNTA, Q_IDRESPUESTA, Q_RESPUESTA, Q_FECHA) values ('${Subs.traeRuta}', '${Subs.traeAlmacen}', '${Subs.traeCliente}', '${m.Get("idPregunta")}', '${m.Get("pregunta")}', '${m.Get("idRespuesta")}', '${m.Get("respuesta")}', '${DateTime.Date(DateTime.now)} ${DateTime.time(DateTime.now)}')"$)
|
|
Select Case m.Get("idPregunta")
|
|
Case "1"
|
|
If m.Get("respuesta") = "No, está enrejado o no se tiene acceso" Then
|
|
Log("Tiendajon / Ventana / Kiosko")
|
|
ToastMessageShow("Tiendajon / Ventana / Kiosko", False)
|
|
cuest.agregaPregunta("6", "¿Cuenta con caja de salida para cobro con sistema de computo?", Array As String("Si, tiene sistema de computo para cobro", "No"))
|
|
Else if m.Get("respuesta") = "Si se pude acceder" Then
|
|
cuest.agregaPregunta("2", "¿Tiene al menos 2 pasillos con acceso directo a la mercancía?", Array As String("Si tiene al menos 2 pasillos con acceso directo a la mercancía", "No tiene pasillos o solo uno central"))
|
|
End If
|
|
Case "2"
|
|
If m.Get("respuesta") = "Si tiene al menos 2 pasillos con acceso directo a la mercancía" Then
|
|
Log("Mini-Super")
|
|
ToastMessageShow("Mini-Super", False)
|
|
cuest.agregaPregunta("6", "¿Cuenta con caja de salida para cobro con sistema de computo?", Array As String("Si, tiene sistema de computo para cobro", "No"))
|
|
else If m.Get("respuesta") = "No tiene pasillos o solo uno central" Then
|
|
cuest.agregaPregunta("3", "¿Cuenta con enfriador horizontal para venta de perecederos como queso, jamon, crema, etc.?", Array As String("Si", "No tiene enfriador horizontal."))
|
|
End If
|
|
Case "3"
|
|
Log("|"&m.Get("respuesta")&"|")
|
|
If m.Get("respuesta") = "Si" Then
|
|
Log("Miscelanea")
|
|
ToastMessageShow("Miscelanea", False)
|
|
cuest.agregaPregunta("6", "¿Cuenta con caja de salida para cobro con sistema de computo?", Array As String("Si, tiene sistema de computo para cobro", "No"))
|
|
else If m.Get("respuesta") = "No tiene enfriador horizontal." Then
|
|
cuest.agregaPregunta("4", "¿El local esta enfocado a venta especializada?", Array As String("No", "Si"))
|
|
End If
|
|
Case "4"
|
|
If m.Get("respuesta") = "No" Then
|
|
Log("Abarrotera")
|
|
ToastMessageShow("Abarrotera", False)
|
|
cuest.agregaPregunta("6", "¿Cuenta con caja de salida para cobro con sistema de computo?", Array As String("Si, tiene sistema de computo para cobro", "No"))
|
|
else If m.Get("respuesta") = "Si" Then
|
|
cuest.agregaPregunta("5", "¿Cual venta especializada?", Array As String("Carnicería / Pollería", "Cremería", "Depósito / Vinateria", "Dulcería", "Farmacia", "Fonda / Restaurante / Cafetería", "Verdulería"))
|
|
End If
|
|
Case "5"
|
|
Log(m.Get("respuesta"))
|
|
ToastMessageShow(m.Get("respuesta"), False)
|
|
' If m.Get("respuesta") = "No" Then
|
|
' Log("Abarrotera")
|
|
' q.agregaPregunta("5", "¿Cuenta con caja de salida para cobro con sistema de computo?", Array As String("Si, tiene sistema de computo para cobro", "No"))
|
|
' else If m.Get("respuesta") = "Si" Then
|
|
cuest.agregaPregunta("6", "¿Cuenta con caja de salida para cobro con sistema de computo?", Array As String("Si, tiene sistema de computo para cobro", "No"))
|
|
' End If
|
|
Case "6"
|
|
Log(m.Get("respuesta"))
|
|
ToastMessageShow(m.Get("respuesta"), False)
|
|
Log(">>>>>>>>>> " & cuest.encuestaIniciada)
|
|
cuest.encuestaIniciada = False
|
|
Log(">>>>>>>>>> " & cuest.encuestaIniciada)
|
|
' refrescarCliente = True
|
|
' Log($"#### REFRESCAR CLIENTE -> ${refrescarCliente}"$)
|
|
B4XPage_Appear
|
|
' Case 6
|
|
End Select
|
|
End Sub
|
|
|
|
|
|
Private Sub b_ventaabordo_Click
|
|
' c=B4XPages.MainPage.skmt.ExecQuery("Select * From CAT_GUNAPROD2")
|
|
c=B4XPages.MainPage.skmt.ExecQuery2("Select * From CAT_GUNAPROD2 where cat_gp_tipo <> ? " , Array As String ("PROMOS"))
|
|
If c.RowCount > 0 Then
|
|
|
|
|
|
|
|
B4XPages.MainPage.tipo_venta = "VENTA"
|
|
' If B4XPages.MainPage.productos.clv_prods_ll.Size = 0 Then
|
|
' B4XPages.MainPage.productos.LlenaProdsLL(Null)
|
|
' Else
|
|
'
|
|
' B4XPages.MainPage.productos.clv_prods_ll.Clear
|
|
' End If
|
|
'Buscamos en el historial de cuestionarios si el cliente ya tiene cuestionario contestado.
|
|
' Private hc As Cursor = Starter.skmt.ExecQuery($"select count(HC_CLIENTE) as cuantos from HIST_CUESTIONARIO where HC_CLIENTE = '${Subs.traeCliente}'"$)
|
|
' hc.Position = 0
|
|
' Log($"${cuest.encuestaIniciada} - ${hc.GetString("cuantos")} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
|
|
' If Not(cuest.encuestaIniciada) And hc.GetString("cuantos") = 0 And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then
|
|
' cuest.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder"))
|
|
' Return False
|
|
' End If
|
|
' Private x As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select tienda_id from COORDENADAS_GPS where tienda_id = '${la_cuenta.text}'"$)
|
|
'' Log("+++++++++++++ " & x.RowCount)
|
|
' If distance > 50 And x.RowCount = 0 Then
|
|
' Private res As String = Msgbox2("¿Estas en la tienda, para guardar la nueva ubicación?", "AVISO", "Si","" ,"No", Null) 'ignore
|
|
' If res = DialogResponse.POSITIVE Then
|
|
' DateTime.DateFormat = "MM/dd/yyyy"
|
|
' sDate=DateTime.Date(DateTime.Now)
|
|
' sTime=DateTime.Time(DateTime.Now)
|
|
' B4XPages.MainPage.skmt.ExecNonQuery($"insert into COORDENADAS_GPS (tienda_id, ruta, almacen, latitud, longitud, fecha) values ('${la_cuenta.Text}', '${Subs.traeRuta}', '${Subs.traeAlmacen}', '${B4XPages.MainPage.lat_gps}', '${B4XPages.MainPage.lon_gps}', '${sDate} ${sTime}')"$)
|
|
'
|
|
' Dim cmd As DBCommand
|
|
' cmd.Initialize
|
|
' cmd.Name = "insert_coords_nuevas_INTMEX"
|
|
' cmd.Parameters = Array As Object(la_cuenta.text, Subs.traeRuta, Subs.traeAlmacen, sDate & " " & sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, usuario)
|
|
'' Log($"${la_cuenta.text}, ${Subs.traeRuta}, ${Subs.traeAlmacen}, ${sDate} ${sTime}, ${m_lat}, ${m_lon}"$)
|
|
' reqManager.ExecuteCommand(cmd , "ins_coords_nuevas")
|
|
' End If
|
|
' End If
|
|
'Si hay mapa de productos es que hay venta en proceso, entonces borramos la actual para meter la nueva.
|
|
' If B4XPages.MainPage.productos.prodsMap.IsInitialized And B4XPages.MainPage.productos.prodsMap.Size > 0 Then Subs.borraPedidoClienteActual
|
|
B4XPages.ShowPage("productos")
|
|
|
|
|
|
Else If c.RowCount = 0 Then
|
|
|
|
MsgboxAsync("No puedes hacer venta porque no tienes inventario abordo","Atención")
|
|
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub b_foto_inci_Click
|
|
camEx.TakePicture
|
|
End Sub
|
|
|
|
Private Sub InitializeCamera
|
|
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA)
|
|
Wait For B4XPage_PermissionResult (Permission As String, resulta As Boolean)
|
|
If resulta Then
|
|
camEx.Initialize(p_cam, frontCamera, Me, "Camera1")
|
|
frontCamera = camEx.Front
|
|
Else
|
|
ToastMessageShow("No permission!!!", True)
|
|
End If
|
|
End Sub
|
|
|
|
Sub Camera1_Ready (Success As Boolean)
|
|
If Success Then
|
|
camEx.SetJpegQuality(90)
|
|
camEx.SetContinuousAutoFocus
|
|
camEx.CommitParameters
|
|
camEx.StartPreview
|
|
' Log(camEx.GetPreviewSize)
|
|
Else
|
|
ToastMessageShow("Cannot open camera.", True)
|
|
End If
|
|
End Sub
|
|
|
|
Sub Camera1_PictureTaken (Data() As Byte)
|
|
Private cliente As String = Subs.traeCliente
|
|
If b_foto_inci.Text = "Foto tienda" Then
|
|
DateTime.DateFormat="ddMMyyyyHHmmss"
|
|
fototomada = cliente & "_" & DateTime.Now & "_tienda.jpg"
|
|
Dim filename As String = fototomada
|
|
Dim dir As String = File.DirInternal
|
|
camEx.SavePictureToFile(Data, dir, filename)
|
|
camEx.StartPreview 'restart preview
|
|
ToastMessageShow("Picture saved." & CRLF & "File size: " & File.Size(dir, filename), True)
|
|
|
|
Dim Dirp As String = File.DirInternal
|
|
Dim dir As String
|
|
Dim Dir2 As String
|
|
Try
|
|
File.MakeDir(Dirp,"/adm")
|
|
dir = "/adm"
|
|
Log("creado en promotoria " & Dirp & dir)
|
|
Catch
|
|
dir = ""
|
|
Log("creado en raiz")
|
|
End Try
|
|
|
|
Try
|
|
File.MakeDir(Dirp & dir,"/reduccion")
|
|
Dir2 = "/reduccion"
|
|
Log("creado en promotoria " & Dirp & dir & Dir2)
|
|
Catch
|
|
dir = ""
|
|
Log("creado en raiz")
|
|
End Try
|
|
|
|
DateTime.DateFormat = "MM/dd/yyyy"
|
|
DateTime.TimeFormat = "HH:mm:ss"
|
|
sDate = DateTime.Date(DateTime.Now)
|
|
sTime = DateTime.Time(DateTime.Now)
|
|
|
|
camEx.SavePictureToFile(Data, Dirp&dir, filename)
|
|
camEx.StartPreview 'restart preview
|
|
ToastMessageShow("Picture saved." & CRLF & "File size: " & File.Size(dir, filename) & dir &"," & filename, True)
|
|
Log("Picture saved." & CRLF & "File size: " & File.Size(dir, filename) & dir &"," & filename)
|
|
|
|
Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirInternal & dir, filename, 450, 600, True)
|
|
Dim out As OutputStream = File.OpenOutput(File.DirInternal & dir & Dir2, filename, False)
|
|
img.WriteToStream(out, 100, "PNG")
|
|
out.Close
|
|
|
|
LogColor("Mandamos foto tienda: " & fototomada, Colors.red)
|
|
Log(dir)
|
|
Log(Dir2)
|
|
Log($"${Subs.traeAlmacen}, ${Subs.traeRuta}, ${cliente}, ${dir & Dir2 & "/" & fototomada}"$)
|
|
Starter.mandaForma(Subs.traeAlmacen, Subs.traeRuta, cliente, dir & Dir2 & "/" & fototomada)
|
|
|
|
' Starter.skmt.ExecNonQuery2("INSERT INTO FOTOINICIAL (RUTAA, ALMACEN, LATITUD, LONGITUD, FECHAHORA, FOTO, USUARIO) VALUES (?,?,?,?,?,?,?)",Array As Object(LA_RUTA, ALMACEN, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, sDate & " " & sTime, File.ReadBytes(File.DirInternal & dir & Dir2, fototomada), Subs.traeUsuarioDeBD))
|
|
b_foto_inci.Text = "Foto usuario"
|
|
ChangeCamera_Click
|
|
Else If b_foto_inci.Text = "Foto usuario" Then
|
|
DateTime.DateFormat="ddMMyyyyHHmmss"
|
|
fototomada = cliente & "_" & DateTime.Now & "_cliente.jpg"
|
|
Dim filename As String = fototomada
|
|
Dim dir As String = File.DirInternal
|
|
camEx.SavePictureToFile(Data, dir, filename)
|
|
camEx.StartPreview 'restart preview
|
|
ToastMessageShow("Picture saved." & CRLF & "File size: " & File.Size(dir, filename), True)
|
|
|
|
Dim Dirp As String = File.DirInternal
|
|
Dim dir As String
|
|
Dim Dir2 As String
|
|
Try
|
|
File.MakeDir(Dirp,"/adm")
|
|
dir = "/amd"
|
|
Log("creado en promotoria " & Dirp & dir)
|
|
Catch
|
|
dir = ""
|
|
Log("creado en raiz")
|
|
End Try
|
|
|
|
Try
|
|
File.MakeDir(Dirp & dir,"/reduccion")
|
|
Dir2 = "/reduccion"
|
|
Log("creado en promotoria " & Dirp & dir & Dir2)
|
|
Catch
|
|
dir = ""
|
|
Log("creado en raiz")
|
|
End Try
|
|
|
|
DateTime.DateFormat = "MM/dd/yyyy"
|
|
DateTime.TimeFormat = "HH:mm:ss"
|
|
sDate = DateTime.Date(DateTime.Now)
|
|
sTime = DateTime.Time(DateTime.Now)
|
|
|
|
camEx.SavePictureToFile(Data, Dirp&dir, filename)
|
|
camEx.StartPreview 'restart preview
|
|
ToastMessageShow("Picture saved." & CRLF & "File size: " & File.Size(dir, filename) & dir &"," & filename, True)
|
|
Log("Picture saved." & CRLF & "File size: " & File.Size(dir, filename) & dir &"," & filename)
|
|
|
|
Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirInternal & dir, filename, 450, 600, True)
|
|
Dim out As OutputStream = File.OpenOutput(File.DirInternal & dir & Dir2, filename, False)
|
|
img.WriteToStream(out, 100, "PNG")
|
|
out.Close
|
|
|
|
LogColor("Mandamos foto usuario: " & fototomada, Colors.red)
|
|
Log($"${Subs.traeAlmacen}, ${Subs.traeRuta}, ${cliente}, ${dir & Dir2 & "/" & fototomada}"$)
|
|
Starter.mandaForma(Subs.traeAlmacen, Subs.traeRuta, cliente, dir & Dir2 & "/" & fototomada)
|
|
|
|
' B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE FOTOINICIAL set FOTO2 = ? where USUARIO = ? and RUTAA = ? and ALMACEN = ? ", Array As Object (File.ReadBytes(File.DirInternal & dir & Dir2, fototomada), Subs.traeUsuarioDeBD,LA_RUTA, ALMACEN ))
|
|
b_foto_inci.Text = "Foto tienda"
|
|
ChangeCamera_Click
|
|
p_camara.Visible = False
|
|
StopCamera
|
|
If la_cuenta.Text = "0" Then
|
|
B4XPages.MainPage.tipo_venta = "ABORDO"
|
|
Else If la_cuenta.Text = "1" Then
|
|
B4XPages.MainPage.tipo_venta = "RECARGA"
|
|
Else
|
|
B4XPages.MainPage.tipo_venta = "PREVENTA"
|
|
End If
|
|
B4XPages.ShowPage("productos")
|
|
End If
|
|
End Sub
|
|
|
|
Sub ChangeCamera_Click
|
|
camEx.Release
|
|
frontCamera = Not(frontCamera)
|
|
InitializeCamera
|
|
End Sub
|
|
|
|
Private Sub StopCamera
|
|
' Capturing = False
|
|
If camEx.IsInitialized Then
|
|
camEx.Release
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub p_camara_Click
|
|
|
|
End Sub
|
|
|
|
Private Sub p_tipopago_Click
|
|
|
|
End Sub
|
|
|
|
Private Sub b_cancel_tp_Click
|
|
p_tipopago.Visible = False
|
|
rb_efectivo.Checked = False
|
|
rb_tranfe.Checked = False
|
|
rb_tarjetadebito.Checked = False
|
|
rb_tarjetacredito.Checked = False
|
|
et_com_tp.Text = ""
|
|
End Sub
|
|
|
|
'Private Sub b_acept_tp_Click
|
|
'' If rb_efectivo.Checked Or rb_tranfe.Checked Or rb_tarjetacredito.Checked Or rb_tarjetadebito.Checked Then
|
|
''
|
|
'' Dim metopago As String
|
|
'' If rb_efectivo.Checked Then
|
|
'' metopago = "EFECTIVO"
|
|
'' Else If rb_tranfe.Checked Then
|
|
'' metopago = "TRANSFERENCIA"
|
|
'' Else If rb_tarjetadebito.Checked Then
|
|
'' metopago = "TARJETA DE DEBITO"
|
|
'' Else If rb_tarjetacredito.Checked Then
|
|
'' metopago = "TARJETA DE CREDITO"
|
|
'' End If
|
|
''
|
|
''
|
|
''
|
|
'' Guardar.Enabled = True
|
|
'' gest.Enabled = True
|
|
'' b_cxc.Enabled = True
|
|
'' Tar.Enabled = True
|
|
'' Tels.Enabled = True
|
|
'' b_ventaabordo.Enabled = True
|
|
'' HIST.Enabled = True
|
|
'' banderaimp = 1
|
|
'' If chb_impreso.Checked Then
|
|
'' Log("aqui estoy")
|
|
'' B4XPages.MainPage.skmt.ExecNonQuery2("update PEDIDO set PE_TIPOPAGO = ?, PE_COMENTARIO = ?, PE_TICKET = ? where PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) ", Array As String(metopago,et_com_tp.Text,"CORREO"))
|
|
'' PDFGENERAR
|
|
''
|
|
'' Else
|
|
'' B4XPages.MainPage.skmt.ExecNonQuery2("update PEDIDO set PE_TIPOPAGO = ?, PE_COMENTARIO = ?, PE_TICKET = ? where PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) ", Array As String(metopago,et_com_tp.Text,"IMPRESO"))
|
|
'' Log("aqui estoy1")
|
|
'' PDFGENERAR
|
|
'' End If
|
|
'' rb_efectivo.Checked = False
|
|
'' rb_tranfe.Checked = False
|
|
'' rb_tarjetadebito.Checked = False
|
|
'' rb_tarjetacredito.Checked = False
|
|
'' et_com_tp.Text = ""
|
|
'' p_tipopago.Visible = False
|
|
'' Else
|
|
'' MsgboxAsync("Selecciona un metodo de pago.","Atención")
|
|
'' End If
|
|
'
|
|
'
|
|
' If rb_efectivo.Checked Or rb_tranfe.Checked Or rb_tarjetacredito.Checked Or rb_tarjetadebito.Checked Then
|
|
'
|
|
' Dim metopago As String
|
|
' If rb_efectivo.Checked Then
|
|
' metopago = "EFECTIVO"
|
|
' Else If rb_tranfe.Checked Then
|
|
' metopago = "TRANSFERENCIA"
|
|
' Else If rb_tarjetadebito.Checked Then
|
|
' metopago = "TARJETA DE DEBITO"
|
|
' Else If rb_tarjetacredito.Checked Then
|
|
' metopago = "TARJETA DE CREDITO"
|
|
' End If
|
|
'
|
|
' Guardar.Enabled = True
|
|
' gest.Enabled = True
|
|
' b_cxc.Enabled = True
|
|
' Tar.Enabled = True
|
|
' Tels.Enabled = True
|
|
' b_ventaabordo.Enabled = True
|
|
' HIST.Enabled = True
|
|
' banderaimp = 1
|
|
'
|
|
' If chb_impreso.Checked Then
|
|
' ' Guardar en BD que se enviará por correo
|
|
' B4XPages.MainPage.skmt.ExecNonQuery2("update PEDIDO set PE_TIPOPAGO = ?, PE_COMENTARIO = ?, PE_TICKET = ? where PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) ", _
|
|
' Array As String(metopago, et_com_tp.Text, "CORREO"))
|
|
'
|
|
' ' Generar el PDF primero
|
|
' PDFGENERAR
|
|
'
|
|
' ' Esperar un momento para que se genere el PDF
|
|
' Sleep(500)
|
|
'
|
|
' ' Obtener el nombre del archivo PDF recién generado
|
|
' DateTime.DateFormat = "ddmmyyyy"
|
|
' DateTime.TimeFormat = "HHmmss"
|
|
' Dim pdfFileName As String = DateTime.Date(DateTime.Now) & DateTime.Time(DateTime.Now) & ".pdf"
|
|
'
|
|
' ' Verificar si el archivo existe
|
|
' If File.Exists(xui.DefaultFolder, pdfFileName) Then
|
|
' ' Crear intent para enviar por correo
|
|
' Dim emailIntent As Intent
|
|
' emailIntent.Initialize(emailIntent.ACTION_SEND, "")
|
|
' emailIntent.SetType("application/pdf")
|
|
'
|
|
' ' Adjuntar el archivo PDF
|
|
' Dim uri As Object
|
|
' #If B4A
|
|
' Dim provider As String = Application.PackageName & ".provider"
|
|
' Dim FileProvidera As FileProvider
|
|
' FileProvidera.Initialize("FileProvider")
|
|
' uri = FileProvidera.GetFileUri(xui.DefaultFolder, pdfFileName)
|
|
' emailIntent.Flags = 1 ' FLAG_GRANT_READ_URI_PERMISSION
|
|
'' #Else If B4I
|
|
'' uri = File.GetUri(xui.DefaultFolder, pdfFileName)
|
|
'' #End If
|
|
'
|
|
' emailIntent.PutExtra("android.intent.extra.STREAM", uri)
|
|
' emailIntent.PutExtra("android.intent.extra.SUBJECT", "Ticket de venta - " & La_nombre.Text)
|
|
' emailIntent.PutExtra("android.intent.extra.TEXT", "Adjunto encontrará el ticket de venta")
|
|
'
|
|
' ' Especificar solo aplicaciones de correo
|
|
' emailIntent.SetComponent("com.google.android.gm/com.google.android.gm.ComposeActivityGmail")
|
|
'
|
|
' ' Verificar si hay aplicaciones que puedan manejar este intent
|
|
' Dim pm As PackageManager
|
|
' StartActivity(emailIntent)
|
|
' Else
|
|
' ToastMessageShow("No se encontró el archivo PDF para enviar", True)
|
|
' End If
|
|
' Else
|
|
' ' Caso normal (impresión)
|
|
' B4XPages.MainPage.skmt.ExecNonQuery2("update PEDIDO set PE_TIPOPAGO = ?, PE_COMENTARIO = ?, PE_TICKET = ? where PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) ", _
|
|
' Array As String(metopago, et_com_tp.Text, "IMPRESO"))
|
|
' PDFGENERAR
|
|
' End If
|
|
'
|
|
' ' Limpiar controles
|
|
' rb_efectivo.Checked = False
|
|
' rb_tranfe.Checked = False
|
|
' rb_tarjetadebito.Checked = False
|
|
' rb_tarjetacredito.Checked = False
|
|
' et_com_tp.Text = ""
|
|
' p_tipopago.Visible = False
|
|
' Else
|
|
' MsgboxAsync("Selecciona un metodo de pago.", "Atención")
|
|
' End If
|
|
'End Sub
|
|
|
|
Private Sub b_acept_tp_Click
|
|
Log("---- b_acept_tp_Click")
|
|
If rb_efectivo.Checked Or rb_tranfe.Checked Or rb_tarjetacredito.Checked Or rb_tarjetadebito.Checked Then
|
|
Dim metopago As String
|
|
If rb_efectivo.Checked Then
|
|
metopago = "EFECTIVO"
|
|
Else If rb_tranfe.Checked Then
|
|
metopago = "TRANSFERENCIA"
|
|
Else If rb_tarjetadebito.Checked Then
|
|
metopago = "TARJETA DE DEBITO"
|
|
Else If rb_tarjetacredito.Checked Then
|
|
metopago = "TARJETA DE CREDITO"
|
|
End If
|
|
Guardar.Enabled = True
|
|
gest.Enabled = True
|
|
b_cxc.Enabled = True
|
|
Tar.Enabled = True
|
|
Tels.Enabled = True
|
|
' b_ventaabordo.Enabled = True
|
|
HIST.Enabled = True
|
|
banderaimp = 1
|
|
|
|
If chb_impreso.Checked Then
|
|
Log("X")
|
|
' Guardar en BD que se enviará por correo
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("update PEDIDO set PE_TIPOPAGO = ?, PE_COMENTARIO = ?, PE_TICKET = ? where PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) ", _
|
|
Array As String(metopago, et_com_tp.Text, "CORREO"))
|
|
' Generar el PDF primero
|
|
PDFGENERAR
|
|
' Esperar un momento para que se genere el PDF
|
|
Sleep(500)
|
|
' Obtener el nombre del archivo PDF recién generado
|
|
Dim pdfFileName As String =nombrepdf
|
|
' /data/user/0/adm.keymon.com.mx/files/shared/22142025121454.pdf
|
|
' Verificar si el archivo existe
|
|
Log(xui.DefaultFolder)
|
|
Log(nombrepdf)
|
|
If File.Exists(Starter.fFileProvider.SharedFolder, pdfFileName) Then
|
|
Dim email As Email
|
|
' email.To.Add("soporte@keymonsoft.com")
|
|
email.Subject = "Adjunto encontrará el ticket de venta"
|
|
email.Attachments.Add(Provider.GetFileUri(pdfFileName))
|
|
'email.Attachments.Add(Provider.GetFileUri(FileName)) 'second attachment
|
|
Dim in As Intent = email.GetIntent
|
|
in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION
|
|
StartActivity(in)
|
|
Else
|
|
ToastMessageShow("No se encontró el archivo PDF para enviar", True)
|
|
End If
|
|
Else
|
|
Log("Y")
|
|
' Caso normal (impresión)
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("update PEDIDO set PE_TIPOPAGO = ?, PE_COMENTARIO = ?, PE_TICKET = ? where PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) ", _
|
|
Array As String(metopago, et_com_tp.Text, "IMPRESO"))
|
|
PDFGENERAR
|
|
End If
|
|
' Limpiar controles
|
|
rb_efectivo.Checked = False
|
|
rb_tranfe.Checked = False
|
|
rb_tarjetadebito.Checked = False
|
|
rb_tarjetacredito.Checked = False
|
|
et_com_tp.Text = ""
|
|
p_tipopago.Visible = False
|
|
Else
|
|
MsgboxAsync("Selecciona un metodo de pago.", "Atención")
|
|
End If
|
|
bitacora.b_Inicio_Fin_venta2.Text = "TERMINAR VENTA"
|
|
bitacora.enVenta = False
|
|
bitacora.inicioFin
|
|
End Sub |