mirror of
https://github.com/KeymonSoft/Marquez.git
synced 2026-04-17 21:06:15 +00:00
d8844799a3
Se hizo una pequeña modificacion en el ticket en el apartado de cajas para optener el precio por unidad para que al multiplicarlo por la catidad de el importe correcto.
2777 lines
110 KiB
QBasic
2777 lines
110 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 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, m_lon 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
|
|
|
|
Dim k1,k2,k3 As String
|
|
Private b_ubicar As Button
|
|
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")
|
|
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
|
|
|
|
s.Position=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
|
|
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
|
|
' banderaimp = 0
|
|
Guardar.Enabled = True
|
|
gest.Enabled = True
|
|
b_cxc.Enabled = True
|
|
Tar.Enabled = True
|
|
Tels.Enabled = True
|
|
b_ventaabordo.Enabled = True
|
|
HIST.Enabled = True
|
|
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
|
|
' 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
|
|
|
|
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
|
|
|
|
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 = True
|
|
End If
|
|
|
|
|
|
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
|
|
Log("2")
|
|
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
|
|
|
|
Dim total As String = 0
|
|
For i = 0 To credi2.RowCount - 1
|
|
credi2.Position = i
|
|
|
|
|
|
Log(credi2.GetString("SALDO_PENDIENTE"))
|
|
total = total + credi2.GetString("SALDO_PENDIENTE")
|
|
Log(total)
|
|
Next
|
|
|
|
|
|
|
|
If NumberFormat2(total,1,2,2,False) <> NumberFormat2(credi3.GetString ("a_abono"),1,2,2,False) Then
|
|
MsgboxAsync("La venta sera en efectivo porque el pago del pagare es 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
|
|
|
|
Dim total As String = 0
|
|
For i = 0 To credi2.RowCount - 1
|
|
credi2.Position = i
|
|
|
|
|
|
Log(credi2.GetString("SALDO_PENDIENTE"))
|
|
total = total + credi2.GetString("SALDO_PENDIENTE")
|
|
Log(total)
|
|
Next
|
|
If NumberFormat2(total,1,2,2,False) <> NumberFormat2(credi3.GetString ("a_abono"),1,2,2,False) Then
|
|
MsgboxAsync("La venta sera en efectivo porque el pago del pagare es 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 banderaimp = 1 Then
|
|
' Guardar_Click
|
|
' End If
|
|
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
|
|
|
|
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)
|
|
|
|
BT_QR.Enabled = True
|
|
LA_GPS.TextColor = Colors.Blue
|
|
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 < 100 Then
|
|
LA_GEO.TextColor = Colors.Blue
|
|
Tels.Visible = True
|
|
gest.Visible = True
|
|
' Else
|
|
' LA_GEO.TextColor = Colors.Red
|
|
' End If
|
|
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
|
|
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 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 l_total.Text <> "null" 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 l_total.Text = "null" 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
|
|
|
|
Dim total As String = 0
|
|
For i = 0 To credi2.RowCount - 1
|
|
credi2.Position = i
|
|
|
|
|
|
Log(credi2.GetString("SALDO_PENDIENTE"))
|
|
total = total + credi2.GetString("SALDO_PENDIENTE")
|
|
Log(total)
|
|
Next
|
|
|
|
If credi2.GetString ("CAT_CL_BCREDITO") = "1" And credi2.GetString ("a_abono")=total Then
|
|
If l_total.Text <> "null" 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 l_total.Text = "null" Then
|
|
GuardaVenta
|
|
End If
|
|
Else
|
|
GuardaVenta
|
|
End If
|
|
Else
|
|
GuardaVenta
|
|
End If
|
|
End If
|
|
' Credi.Close
|
|
Else If la_cuenta.Text = 0 Then
|
|
GuardaVenta
|
|
End If
|
|
Else If c.GetString("CUANTOS") = 0 Then
|
|
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
|
|
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
|
|
If banderaimp = 1 Then
|
|
B_IMP_Click
|
|
Else
|
|
GUADAVENTA2
|
|
End If
|
|
|
|
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")
|
|
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("Marquez Distribuciones" & 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"))
|
|
|
|
Dim siesacredi As Cursor = skmt.ExecQuery("SELECT * FROM PAGARES WHERE PA_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
|
If siesacredi.RowCount > 0 Then
|
|
Printer1.WriteString("------PREVENTA A CREDITO------" & CRLF)
|
|
End If
|
|
|
|
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_BCAJAS,PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, 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
|
|
|
|
If s.GetString("PE_BCAJAS") = 0 Then
|
|
|
|
|
|
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 )
|
|
k1 = NumberFormat(s.GETSTRING("PE_COSTOU"),0,2)
|
|
k2 = NumberFormat(s.GETSTRING("PE_COSTO_TOT"),0,2)
|
|
|
|
TAMANO = s.GetLong("L_CANT") + k1.Length + k2.Length
|
|
ESPACIO = 30
|
|
BLANCO = " "
|
|
ESPACIO = ESPACIO - TAMANO
|
|
ESPACIO = ESPACIO / 2
|
|
For E=0 To ESPACIO -1
|
|
BLANCO = " " & BLANCO
|
|
Next
|
|
|
|
Printer1.WriteString(s.GETSTRING("PE_CANT") & BLANCO & k1 & BLANCO & k2& CRLF )
|
|
|
|
TAMANO = 0
|
|
ESPACIO = 30
|
|
BLANCO = " "
|
|
' Printer1.Justify = 0
|
|
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.Justify = 0
|
|
' Printer1.WriteString( s.GETSTRING("PE_CANT")& BLANCO)
|
|
' Printer1.Justify = 1
|
|
' Printer1.WriteString((s.GETSTRING("PE_COSTOU")/s.GETSTRING("PE_CANT"))& BLANCO)
|
|
' Printer1.Justify = 2
|
|
' Printer1.WriteString(s.GETSTRING("PE_COSTO_TOT") & CRLF )
|
|
' TAMANO = 0
|
|
' ESPACIO = 22
|
|
' BLANCO = " "
|
|
|
|
|
|
k1 = NumberFormat((s.GETSTRING("PE_COSTO_TOT")/s.GETSTRING("PE_CANT")),0,2)
|
|
k2 = NumberFormat(s.GETSTRING("PE_COSTO_TOT"),0,2)
|
|
|
|
TAMANO = s.GetLong("L_CANT") + k1.Length + k2.Length
|
|
ESPACIO = 30
|
|
BLANCO = " "
|
|
ESPACIO = ESPACIO - TAMANO
|
|
ESPACIO = ESPACIO / 2
|
|
For E=0 To ESPACIO -1
|
|
BLANCO = " " & BLANCO
|
|
Next
|
|
|
|
Printer1.WriteString(s.GETSTRING("PE_CANT") & BLANCO & k1 & BLANCO & k2& CRLF )
|
|
|
|
TAMANO = 0
|
|
ESPACIO = 30
|
|
BLANCO = " "
|
|
' Printer1.Justify = 0
|
|
|
|
|
|
End If
|
|
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_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)
|
|
Log("promo")
|
|
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(s.GETSTRING("PE_COSTOU")& BLANCO)
|
|
' Printer1.Justify = 2
|
|
' Printer1.WriteString(s.GETSTRING("PE_COSTO_TOT") & CRLF )
|
|
' TAMANO = 0
|
|
' ESPACIO = 22
|
|
' BLANCO = " "
|
|
|
|
k1 = NumberFormat(s.GETSTRING("PE_COSTOU"),0,2)
|
|
k2 = NumberFormat(s.GETSTRING("PE_COSTO_TOT"),0,2)
|
|
|
|
TAMANO = s.GetLong("L_CANT") + k1.Length + k2.Length
|
|
ESPACIO = 30
|
|
BLANCO = " "
|
|
ESPACIO = ESPACIO - TAMANO
|
|
ESPACIO = ESPACIO / 2
|
|
For E=0 To ESPACIO -1
|
|
BLANCO = " " & BLANCO
|
|
Next
|
|
|
|
Printer1.WriteString(s.GETSTRING("PE_CANT") & BLANCO & k1 & BLANCO & k2& CRLF )
|
|
|
|
TAMANO = 0
|
|
ESPACIO = 30
|
|
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: $" & NumberFormat( s.GetString("TOTAL"),0,2) & 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 art. preventa: " &NumberFormat( c.GetString("PC_NOART"),0,0) & CRLF)
|
|
|
|
c.Close
|
|
|
|
' Printer1.WriteString(" " & CRLF)
|
|
End If
|
|
|
|
Dim siesacredi As Cursor = skmt.ExecQuery("SELECT * FROM PAGARES WHERE PA_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
|
If siesacredi.RowCount > 0 Then
|
|
siesacredi.Position = 0
|
|
Printer1.WriteString("Total a credito: $" & NumberFormat( siesacredi.GetString("PA_MONTO"),0,2) & CRLF)
|
|
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: $" & NumberFormat( s.GetString("TOTAL"),0,2) & CRLF)
|
|
If s.GetString("TOTAL") > siesacredi.GetString("PA_MONTO") Then
|
|
Printer1.WriteString("Total a contado: $" & NumberFormat( (s.GetString("TOTAL")-siesacredi.GetString("PA_MONTO")),0,2) & CRLF)
|
|
End If
|
|
|
|
s.Close
|
|
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
|
|
|
|
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("Marquez Distribuciones" & 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_BCAJAS, PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, 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
|
|
|
|
If s.GetString("PE_BCAJAS") = 0 Then
|
|
|
|
|
|
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 )
|
|
|
|
k1 = NumberFormat(s.GETSTRING("PE_COSTOU"),0,2)
|
|
k2 = NumberFormat(s.GETSTRING("PE_COSTO_TOT"),0,2)
|
|
|
|
TAMANO = s.GetLong("L_CANT") + k1.Length + k2.Length
|
|
ESPACIO = 30
|
|
BLANCO = " "
|
|
ESPACIO = ESPACIO - TAMANO
|
|
ESPACIO = ESPACIO / 2
|
|
For E=0 To ESPACIO -1
|
|
BLANCO = " " & BLANCO
|
|
Next
|
|
|
|
Printer1.WriteString(s.GETSTRING("PE_CANT") & BLANCO & k1 & BLANCO & k2& CRLF )
|
|
|
|
TAMANO = 0
|
|
ESPACIO = 30
|
|
BLANCO = " "
|
|
' Printer1.Justify = 0
|
|
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.Justify = 0
|
|
' Printer1.WriteString( s.GETSTRING("PE_CANT")& BLANCO)
|
|
' Printer1.Justify = 1
|
|
' Printer1.WriteString((s.GETSTRING("PE_COSTOU")/s.GETSTRING("PE_CANT"))& BLANCO)
|
|
' Printer1.Justify = 2
|
|
' Printer1.WriteString(s.GETSTRING("PE_COSTO_TOT") & CRLF )
|
|
' TAMANO = 0
|
|
' ESPACIO = 22
|
|
' BLANCO = " "
|
|
|
|
|
|
|
|
k1 = NumberFormat((s.GETSTRING("PE_COSTO_TOT")/s.GETSTRING("PE_CANT")),0,2)
|
|
k2 = NumberFormat(s.GETSTRING("PE_COSTO_TOT"),0,2)
|
|
|
|
TAMANO = s.GetLong("L_CANT") + k1.Length + k2.Length
|
|
ESPACIO = 30
|
|
BLANCO = " "
|
|
ESPACIO = ESPACIO - TAMANO
|
|
ESPACIO = ESPACIO / 2
|
|
For E=0 To ESPACIO -1
|
|
BLANCO = " " & BLANCO
|
|
Next
|
|
|
|
Printer1.WriteString(s.GETSTRING("PE_CANT") & BLANCO & k1 & BLANCO & k2& CRLF )
|
|
|
|
TAMANO = 0
|
|
ESPACIO = 30
|
|
BLANCO = " "
|
|
' Printer1.Justify = 0
|
|
End If
|
|
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_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)
|
|
Log("promo")
|
|
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(s.GETSTRING("PE_COSTOU")& BLANCO)
|
|
' Printer1.Justify = 2
|
|
' Printer1.WriteString(s.GETSTRING("PE_COSTO_TOT") & CRLF )
|
|
' TAMANO = 0
|
|
' ESPACIO = 22
|
|
' BLANCO = " "
|
|
|
|
k1 = NumberFormat(s.GETSTRING("PE_COSTOU"),0,2)
|
|
k2 = NumberFormat(s.GETSTRING("PE_COSTO_TOT"),0,2)
|
|
|
|
TAMANO = s.GetLong("L_CANT") + k1.Length + k2.Length
|
|
ESPACIO = 30
|
|
BLANCO = " "
|
|
ESPACIO = ESPACIO - TAMANO
|
|
ESPACIO = ESPACIO / 2
|
|
For E=0 To ESPACIO -1
|
|
BLANCO = " " & BLANCO
|
|
Next
|
|
|
|
Printer1.WriteString(s.GETSTRING("PE_CANT") & BLANCO & k1 & BLANCO & k2& CRLF )
|
|
|
|
TAMANO = 0
|
|
ESPACIO = 30
|
|
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("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: $" & NumberFormat( s.GetString("TOTAL"),0,2) & 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 art. venta: " &NumberFormat( c.GetString("PC_NOART"),0,0) & 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_MARQUEZ"
|
|
' 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 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_MARQUEZP3"
|
|
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"),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"),C.GetString("PE_CANTC"),c.GetString("PE_BCAJAS"))
|
|
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_MARQUEZ"
|
|
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_MARQUEZ"
|
|
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_MARQUEZ"
|
|
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_MARQUEZ"
|
|
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_MARQUEZ"
|
|
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_MARQUEZ"
|
|
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_MARQUEZ"
|
|
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_MARQUEZ"
|
|
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_MARQUEZ"
|
|
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_MARQUEZ"
|
|
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
|
|
|
|
Dim k As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT CUENTA from CUENTAA")
|
|
k.Position = 0
|
|
Log(k.GetString("CUENTA"))
|
|
Dim y As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT a_abono FROM ABONOS WHERE a_cliente = ?", Array As String(k.GetString("CUENTA")))
|
|
y.position = 0
|
|
|
|
If y.RowCount = 0 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
|
|
imprime_pagare
|
|
End If
|
|
Else If et_abono.Text > y.GetString("a_abono") 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
|
|
imprime_pagare
|
|
End If
|
|
Else If et_abono.Text = y.GetString("a_abono") Then
|
|
p_abono.Visible = False
|
|
et_abono.Text = ""
|
|
Else If et_abono.Text < y.GetString("a_abono") Then
|
|
p_abono.Visible = False
|
|
MsgboxAsync("El pago no puede ser menor al monto capturado.","Atención")
|
|
et_abono.Text = ""
|
|
End If
|
|
|
|
|
|
|
|
End If
|
|
End If
|
|
|
|
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 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
|
|
p_abono.Visible = True
|
|
et_abono.text = j.GetString("a_abono")
|
|
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
|
|
' 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.traeCliente)}', '${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
|
|
|
|
Sub imprime_pagare
|
|
|
|
|
|
c=skmt.ExecQuery("select USUARIO from usuarioa")
|
|
c.Position=0
|
|
usuario = c.GetString("USUARIO")
|
|
DateTime.DateFormat = "MM/dd/yyyy"
|
|
DateTime.TimeFormat = "HH:mm:ss"
|
|
sDate=DateTime.Date(DateTime.Now)
|
|
sTime=DateTime.Time(DateTime.Now)
|
|
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 = " "
|
|
|
|
Printer1.WriteString("Marquez Distribuciones" & 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(" " & CRLF)
|
|
Dim notaabono As String
|
|
Dim saldopendiente As String
|
|
c = Starter.skmt.ExecQuery("SELECT NOTA, DIA_VENCIMIENTO, SALDO_PENDIENTE FROM ABONOSP WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
|
If c.RowCount > 0 Then
|
|
c.Position = 0
|
|
|
|
Dim fechatabulador() As String = Regex.Split(" ", c.GetString("DIA_VENCIMIENTO"))
|
|
Dim fechatabulador2() As String = Regex.Split("-", fechatabulador(0))
|
|
Dim fechatabulador3 As String = fechatabulador2(2)&"/"&fechatabulador2(1)&"/"&fechatabulador2(0)
|
|
|
|
notaabono = c.GetString("NOTA")
|
|
saldopendiente = c.GetString("SALDO_PENDIENTE")
|
|
End If
|
|
c.Close
|
|
|
|
' c = Starter.skmt.ExecQuery("SELECT NOTA FROM ABONOSP WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
|
' If c.RowCount > 0 Then
|
|
' c.Position = 0
|
|
' notaabono = c.GetString("NOTA")
|
|
' End If
|
|
Log(notaabono)
|
|
Log(et_abono.Text)
|
|
Printer1.WriteString("Comprobante de pago del pagare" & CRLF)
|
|
|
|
Printer1.WriteString("Folio: " & notaabono & CRLF)
|
|
|
|
Printer1.WriteString("Monto deuda: " & (NumberFormat(saldopendiente,0,2)) & CRLF)
|
|
|
|
Printer1.WriteString("Monto abono: " & (NumberFormat(et_abono.Text,0,2)) & CRLF)
|
|
|
|
Printer1.WriteString("Restante: " &(NumberFormat(saldopendiente-et_abono.Text,0,2)) & CRLF)
|
|
|
|
Printer1.WriteString("Fecha Abono: " & sDate & CRLF)
|
|
|
|
Printer1.WriteString("Fecha vencimiento: " & fechatabulador3 & CRLF)
|
|
|
|
Printer1.WriteString(" " & CRLF)
|
|
Printer1.WriteString(" " & CRLF)
|
|
Printer1.WriteString(" " & CRLF)
|
|
Printer1.WriteString(" " & CRLF)
|
|
Printer1.WriteString(" " & CRLF)
|
|
Printer1.WriteString(" " & CRLF)
|
|
Printer1.WriteString(" " & CRLF)
|
|
|
|
Printer1.WriteString("------------------------------" & CRLF)
|
|
Printer1.WriteString("-------------FIRMA------------" & 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
|
|
imprime_pagare
|
|
Else
|
|
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
|
|
If j.RowCount = 0 Then
|
|
p_abono.Visible = False
|
|
|
|
skmt.ExecNonQuery($"INSERT INTO ABONOS(a_usuario, a_ruta, a_cliente, a_abono, a_fecha) VALUES ('${Subs.traeUsuarioDeBD}', '${Subs.traeRuta(Subs.traeCliente)}', '${Subs.traeCliente}' ,'${et_abono.text}', '${Subs.fechaKMT(DateTime.now)}')"$)
|
|
ToastMessageShow("Abono guardado", False)
|
|
et_abono.Text = ""
|
|
Else
|
|
p_abono.Visible = False
|
|
|
|
' skmt.ExecNonQuery($"INSERT INTO ABONOS(a_usuario, a_ruta, a_cliente, a_abono, a_fecha) VALUES ('${Subs.traeUsuarioDeBD}', '${Subs.traeRuta(Subs.traeCliente)}', '${Subs.traeCliente}' ,'${et_abono.text}', '${Subs.fechaKMT(DateTime.now)}')"$)
|
|
skmt.ExecNonQuery($"UPDATE ABONOS set a_abono = '${et_abono.text}' where a_usuario = '${Subs.traeUsuarioDeBD}' and a_ruta = '${Subs.traeRuta(Subs.traeCliente)}' and a_cliente In (select cuenta from cuentaa)"$)
|
|
ToastMessageShow("Abono guardado", False)
|
|
et_abono.Text = ""
|
|
End If
|
|
|
|
End If
|
|
|
|
' printer.Flush
|
|
' printer.Close
|
|
End Sub
|
|
|
|
Private Sub b_cxc_LongClick
|
|
' imprime_pagare
|
|
End Sub
|
|
|
|
Private Sub b_ubicar_Click
|
|
StartActivity(MAPA_CLIENTE)
|
|
End Sub |