mirror of
https://github.com/KeymonSoft/Durakelo.git
synced 2026-04-17 19:36:12 +00:00
Jose Alberto Guerra Ugalde
eb76cd60b7
# Conflicts: # B4A/B4XMainPage.bas # B4A/C_Cliente.bas # B4A/C_Clientes.bas # B4A/C_Historico.bas # B4A/C_NoVenta.bas # B4A/C_Nota.bas # B4A/C_Principal.bas # B4A/C_Productos.bas # B4A/C_TicketsDia.bas # B4A/CameraExClass.bas # B4A/DBRequestManager.bas # B4A/Durakelo.b4a # B4A/Durakelo.b4a.meta # B4A/Files/cliente.bal # B4A/Files/clientes.bal # B4A/Files/detalle_promo.bal # B4A/Files/foto.bal # B4A/Files/guardagestion.bal # B4A/Files/historico.bal # B4A/Files/kelloggs.png # B4A/Files/kmt.db # B4A/Files/login.bal # B4A/Files/mapa.bal # B4A/Files/mapa_rutas.bal # B4A/Files/noventa.bal # B4A/Files/nuevocliente.bal # B4A/Files/palomita_verde.png # B4A/Files/pedido.bal # B4A/Files/principal.bal # B4A/Files/productos.bal # B4A/Files/tache_rojo.png # B4A/Starter.bas # B4A/Tracker.bas
1202 lines
41 KiB
QBasic
1202 lines
41 KiB
QBasic
B4A=true
|
|
Group=Default Group
|
|
ModulesStructureVersion=1
|
|
Type=Class
|
|
Version=11.5
|
|
@EndOfDesignText@
|
|
Sub Class_Globals
|
|
Private Root As B4XView 'ignore
|
|
Private xui As XUI 'ignore
|
|
'These global variables will be declared once when the application starts.
|
|
'These variables can be accessed from all modules.
|
|
Dim g As GPS
|
|
Dim ruta As String
|
|
Dim clie_id As String
|
|
Dim sDate,sTime As String
|
|
Dim usuario As String
|
|
Dim total_cliente As String
|
|
Dim m_lat As String
|
|
Dim 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 tipov As String
|
|
Dim Printer1 As EscPosPrinter
|
|
' Dim MAC_IMPRESORA As String
|
|
'These global variables will be redeclared each time the activity is created.
|
|
'These variables can only be accessed from this module.
|
|
|
|
Dim c As Cursor
|
|
Dim s As Cursor
|
|
Dim c2 As Cursor
|
|
Dim E1 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 Tels As Button
|
|
Dim Label10 As Label
|
|
Dim Label11 As Label
|
|
|
|
Dim Tar As Button
|
|
|
|
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
|
|
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 sc As Zxing_scanner
|
|
Dim CODIGO As String
|
|
|
|
Private b_mapa As Button
|
|
Dim CUANTOS As String
|
|
Private B_IMP As Button
|
|
' Dim Toggla As Toggle
|
|
Private B_VENTA As Button
|
|
Dim PASA_IMP As String
|
|
Dim sucursal As String
|
|
Dim FACTURA As String
|
|
Dim CREDITO As String
|
|
Private b_factura As Button
|
|
Dim perfil As String
|
|
Private CH_TA As CheckBox
|
|
Private CH_TC As CheckBox
|
|
Private CH_TB As CheckBox
|
|
Private CH_TD As CheckBox
|
|
Private E_CUANTOS_E As EditText
|
|
Private B_GUARDAR As Button
|
|
Private TIPOEX As String
|
|
Private B_EXIBI As Button
|
|
Private Panel1 As Panel
|
|
|
|
Dim t3 As Timer
|
|
Private B_INV As Button
|
|
Private B_IMP2 As Button
|
|
|
|
Dim id_encuesta As String
|
|
Dim LLAMAR_FOTO As String
|
|
Dim CURSOR_FOTO As Int
|
|
Dim TOMAR_FOTO As String
|
|
Private Panel10 As Panel
|
|
Private l_chk_e As Label
|
|
Private Chk_1 As CheckBox
|
|
Private chk_2 As CheckBox
|
|
Private chk_3 As CheckBox
|
|
Private b_chk_e As Button
|
|
|
|
Private chk_1_valor As String
|
|
Private chk_2_valor As String
|
|
Private chk_3_valor As String
|
|
Private t_tenc As Label
|
|
Private E_RES_E As EditText
|
|
Private B_E_NEXT As Button
|
|
Private Panel9 As Panel
|
|
Private Label26 As Label
|
|
Dim impresoraConectada As Boolean = False
|
|
Dim printer As TextWriter
|
|
End Sub
|
|
|
|
Sub initialize
|
|
|
|
End Sub
|
|
|
|
Private Sub B4XPage_Created (Root1 As B4XView)
|
|
'Do not forget to load the layout file created with the visual designer. For example:
|
|
'Activity.LoadLayout("Layout1")
|
|
Root = Root1
|
|
Root.RemoveAllViews
|
|
Root.LoadLayout("Cliente")
|
|
c=Starter.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_BFACTURA,CAT_CL_BCREDITO from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
|
|
s=Starter.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)")
|
|
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")
|
|
MONTO_COMPRA = c.GetString("CAT_CL_MTOCOMPRA")
|
|
FACTURA = c.GetString("CAT_CL_BFACTURA")
|
|
CREDITO = c.GetString("CAT_CL_BCREDITO")
|
|
End If
|
|
If s.RowCount > 0 Then
|
|
s.Position = 0
|
|
l_total.Text = s.GetString("TOTAL_CLIE")
|
|
total_cliente = s.GetString("TOTAL_CLIE")
|
|
End If
|
|
c = Starter.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")
|
|
|
|
TOMAR_FOTO = 0
|
|
g.Initialize("GPS")
|
|
Panel1.Top = La_nombre.Top + La_nombre.Height + 5 : Panel1.left = 0
|
|
Panel9.Top = La_nombre.Top + La_nombre.Height + 5 : Panel9.left = 0
|
|
Panel10.Top = La_nombre.Top + La_nombre.Height + 5 : Panel10.left = 0
|
|
End Sub
|
|
|
|
Sub B4XPage_Appear
|
|
BT_QR.Enabled = False
|
|
b_factura.Visible = False
|
|
FACTURA =0
|
|
If g.GPSEnabled=False Then
|
|
ToastMessageShow("Habilitar el GPS", True)
|
|
StartActivity(g.LocationSettingsIntent)
|
|
Else
|
|
g.Start(0,0)
|
|
End If
|
|
c=Starter.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,CAT_CL_BFACTURA,CAT_CL_BCREDITO from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
|
|
s=Starter.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)")
|
|
s.Position=0
|
|
|
|
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")
|
|
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")
|
|
m_lat =c.GetString("CAT_CL_LAT")
|
|
m_lon =c.GetString("CAT_CL_LONG")
|
|
FACTURA = c.GetString("CAT_CL_BFACTURA")
|
|
CREDITO = c.GetString("CAT_CL_BCREDITO")
|
|
|
|
If l_total.Text <> Null Then
|
|
|
|
If la_cuenta.Text.Contains("N") = True Then
|
|
FACTURA = 0
|
|
End If
|
|
|
|
If FACTURA = "1" Then
|
|
b_factura.Visible = True
|
|
|
|
End If
|
|
End If
|
|
|
|
If CREDITO = "1" Then
|
|
Msgbox("ALTO","Este cliente no se le puede vender ya que tienen adeudo en su crédito")
|
|
B_VENTA.Visible = False
|
|
gest.Visible = False
|
|
Else
|
|
B_VENTA.Visible = True
|
|
gest.Visible = True
|
|
|
|
End If
|
|
|
|
If c.GetString("CAT_CL_NUM_SERIEFISICO") = "0" Then
|
|
L_QR.Visible = True
|
|
Else
|
|
L_QR.Visible = False
|
|
End If
|
|
S2=Starter.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=Starter.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
|
|
|
|
If Printer1.IsConnected = False Then
|
|
Printer1.Connect
|
|
Else
|
|
Printer1.DisConnect
|
|
Printer1.Connect
|
|
End If
|
|
If PASA_IMP = "1" Then
|
|
B_IMP.Enabled = True
|
|
End If
|
|
'''''''''Agregar la parte de si tiene credito o no tiene credito
|
|
If la_cuenta.Text="0" Then
|
|
B_VENTA.Visible = False
|
|
gest.Visible = False
|
|
Else
|
|
B_VENTA.Visible = True
|
|
gest.Visible = True
|
|
End If
|
|
End Sub
|
|
|
|
Sub GPS_LocationChanged (Location1 As Location)
|
|
'lat_gps=Location1.Latitude
|
|
'lon_gps=Location1.Longitude
|
|
' BT_QR.Enabled = True
|
|
Dim sDate,sTime As String
|
|
DateTime.DateFormat = "MM/dd/yyyy"
|
|
sDate=DateTime.Date(DateTime.Now)
|
|
sTime=DateTime.Time(DateTime.Now)
|
|
Starter.skmt.ExecNonQuery("DELETE FROM HIST_GPS")
|
|
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_GPS (HGDATE, HGLAT, HGLON) VALUES(?,?,?) ", Array As Object (sDate & sTime, Starter.lat_gps, Starter.lon_gps))
|
|
End Sub
|
|
|
|
Sub ListView1_ItemLongClick (Position As Int, Value As Object)
|
|
|
|
End Sub
|
|
|
|
Sub gest_Click
|
|
Starter.tipov = "PREVENTA"
|
|
' StartActivity(colonia2)
|
|
cuestionario
|
|
End Sub
|
|
|
|
Sub Tels_Click
|
|
' skmt.ExecNonQuery("delete from PEDIDO")
|
|
' StartActivity(nopago)
|
|
B4XPages.ShowPage("NoVenta")
|
|
End Sub
|
|
|
|
Sub Activity_KeyPress (key As Int) As Boolean
|
|
' BACK key pressed
|
|
If key=KeyCodes.KEYCODE_BACK Then
|
|
' I want to capture the key here so I return True
|
|
' StartActivity(colonia)
|
|
'Return True
|
|
End If
|
|
' Returning False signals the system to handle the key
|
|
Return False
|
|
End Sub
|
|
|
|
Sub Tar_Click
|
|
' StartActivity(tarjeta)
|
|
B4XPages.ShowPage("Nota")
|
|
End Sub
|
|
|
|
Sub DATOS_Click
|
|
' StartActivity(telefonos)
|
|
End Sub
|
|
|
|
Sub Guardar_Click
|
|
DateTime.DateFormat = "MM/dd/yyyy"
|
|
sDate=DateTime.Date(DateTime.Now)
|
|
sTime=DateTime.Time(DateTime.Now)
|
|
c=Starter.skmt.ExecQuery("Select CUENTA from cuentaa")
|
|
c.Position=0
|
|
clie_id = c.GetString("CUENTA")
|
|
c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
|
|
c.Position=0
|
|
usuario = c.GetString("USUARIO")
|
|
|
|
c=Starter.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
|
c.Position=0
|
|
If c.GetString("CUANTOS") > 0 Then
|
|
Starter.skmt.ExecNonQuery("delete from NOVENTA where NV_CLIENTE In (select cuenta from cuentaa)")
|
|
Starter.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
|
|
Starter.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT) VALUES (?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), Starter.lon_gps, Starter.lat_gps))
|
|
Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
|
End If
|
|
c.Close
|
|
|
|
Starter.skmt.ExecNonQuery("delete from pedido3")
|
|
Starter.skmt.ExecNonQuery("INSERT INTO PEDIDO3 SELECT PE_PRECIO2, PE_TIPO, PE_FOLIO, PE_DESC, PE_COSTO_SIN, PE_RUTA, PE_CEDIS, SUM(PE_COSTO_TOT) AS PE_COSTO_TOT, PE_COSTOU, SUM(PE_CANT) As PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, 1 As PE_FECHA, PE_USUARIO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) GROUP BY PE_PRECIO2, PE_TIPO, PE_FOLIO, PE_DESC, PE_COSTO_SIN, PE_RUTA, PE_CEDIS, PE_COSTOU, PE_PRONOMBRE, PE_PROID, PE_CLIENTE ")
|
|
c=Starter.skmt.ExecQuery("select PE_PRECIO2,PE_TIPO,PE_FOLIO,PE_DESC,PE_COSTO_SIN,PE_RUTA,PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE, PE_FECHA,PE_USUARIO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
|
|
|
If c.RowCount>0 Then
|
|
For i=0 To c.RowCount -1
|
|
c.Position=i
|
|
Starter.skmt.ExecNonQuery2("UPDATE PEDIDO3 SET PE_FECHA= ? WHERE PE_CLIENTE = ? AND PE_PRONOMBRE = ? AND PE_PROID = ? AND PE_CEDIS = ?", Array As Object(c.GetString("PE_FECHA"), c.GetString("PE_CLIENTE"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CEDIS")))
|
|
Next
|
|
End If
|
|
Starter.skmt.ExecNonQuery("delete from pedido WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) ")
|
|
Starter.skmt.ExecNonQuery("INSERT INTO PEDIDO SELECT * FROM PEDIDO3")
|
|
|
|
B4XPages.ShowPage("Principal")
|
|
' StartActivity(seleccion)
|
|
End Sub
|
|
|
|
Sub NUEVO_Click
|
|
' StartActivity(nuevocliente)
|
|
End Sub
|
|
|
|
Sub HIST_Click
|
|
' StartActivity(Historico)
|
|
B4XPages.ShowPage("Historico")
|
|
End Sub
|
|
|
|
Sub BT_QR_Click
|
|
'StartActivity(QR_MODULE)
|
|
Dim scan_width As Int
|
|
Dim scan_height As Int
|
|
scan_width = 400
|
|
scan_height = 400
|
|
sc.BeginScan("sc","CODIGO CLIENTE",scan_width,scan_height)
|
|
End Sub
|
|
|
|
Sub sc_result(atype As String,Values As String)
|
|
CODIGO = Values
|
|
Starter.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, Starter.lon_gps, Starter.lat_gps))
|
|
End Sub
|
|
|
|
Sub sc_noScan
|
|
Log("nothing returned from the scan !!!!!")
|
|
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
|
|
' StartActivity(mapas)
|
|
End Sub
|
|
|
|
Sub B_IMP_Click
|
|
c=Starter.skmt.ExecQuery2("select count(*) AS CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL"))
|
|
c.Position =0
|
|
perfil = c.GetString("CUANTOS")
|
|
c.Close
|
|
|
|
If perfil > 0 Then
|
|
c=Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL"))
|
|
c.Position =0
|
|
perfil = c.GetString("CAT_VA_VALOR")
|
|
c.Close
|
|
End If
|
|
|
|
c=Starter.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 = 7 Then Printer1.Connect 'Tratamos de reconectar
|
|
If cont > 15 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 > 4 Then impresoraConectada = True
|
|
Loop
|
|
Sleep(500)
|
|
impresoraConectada = False
|
|
End If
|
|
|
|
TAMANO = 0
|
|
ESPACIO = 21
|
|
BLANCO = " "
|
|
Dim bmp As Bitmap
|
|
bmp.InitializeResize(File.DirAssets, "durakelo1.png", 376, 129, 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("DURAKELO S.A. de C.V." & CRLF)
|
|
Printer1.WriteString("RFC: DUR-011025-T12" & 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)
|
|
|
|
If perfil = "V-ESPECIAL" Then 'Or perfil = "V-SUPER"
|
|
Printer1.WriteString("-----------PREVENTA-----------" & 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=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_PRECIO2 as PE_COSTOU, length(PE_PRECIO2) as L_COSTOU,PE_CANT * PE_PRECIO2 AS PE_COSTO_TOT, length(PE_CANT * PE_PRECIO2) as L_COSTO_TOT,PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PROID ", Array As String("PREVENTA"))
|
|
If S.RowCount>0 Then
|
|
For i=0 To S.RowCount -1
|
|
S.Position=i
|
|
If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
|
|
Printer1.WriteString(s.GetString("PE_PRONOMBRE") & CRLF)
|
|
|
|
Else
|
|
|
|
Printer1.WriteString(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & CRLF)
|
|
TAMANO = s.GetLong("L_CANT") + TAMANO
|
|
TAMANO = s.GetLong("L_COSTOU") + TAMANO
|
|
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
|
|
|
|
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 )
|
|
TAMANO = 0
|
|
ESPACIO = 21
|
|
BLANCO = " "
|
|
End If
|
|
Next
|
|
End If
|
|
s.Close
|
|
s=Starter.skmt.ExecQuery2("select SUM(PE_COSTO_TOT) AS TOTAL, SUM(PE_PRECIO2 * PE_CANT) AS TOTAL2 FROM PEDIDO WHERE PE_TIPO = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", 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")) & CRLF)
|
|
End If
|
|
Printer1.WriteString("Total Preventa: $" & s.GetString("TOTAL") & CRLF)
|
|
s.Close
|
|
|
|
Else
|
|
Printer1.WriteString("-----------PREVENTA-----------" & 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=Starter.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_TIPO = ? AND LENGTH(PE_CEDIS) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PROID", Array As String("PREVENTA"))
|
|
If S.RowCount>0 Then
|
|
For i=0 To S.RowCount -1
|
|
S.Position=i
|
|
If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
|
|
Printer1.WriteString(s.GetString("PE_PRONOMBRE") & CRLF)
|
|
|
|
Else
|
|
|
|
Printer1.WriteString(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & CRLF)
|
|
TAMANO = s.GetLong("L_CANT") + TAMANO
|
|
TAMANO = s.GetLong("L_COSTOU") + TAMANO
|
|
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
|
|
|
|
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 )
|
|
TAMANO = 0
|
|
ESPACIO = 21
|
|
BLANCO = " "
|
|
End If
|
|
Next
|
|
End If
|
|
s.Close
|
|
s=Starter.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_TIPO = ? 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----" & CRLF)
|
|
For i=0 To S.RowCount -1
|
|
S.Position=i
|
|
If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
|
|
Printer1.WriteString(s.GetString("PE_PRONOMBRE") & CRLF)
|
|
|
|
Else
|
|
|
|
Printer1.WriteString(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & CRLF)
|
|
TAMANO = s.GetLong("L_CANT") + TAMANO
|
|
TAMANO = s.GetLong("L_COSTOU") + TAMANO
|
|
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
|
|
|
|
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 )
|
|
TAMANO = 0
|
|
ESPACIO = 21
|
|
BLANCO = " "
|
|
End If
|
|
Next
|
|
Printer1.WriteString("--FIN PROMOS----" & CRLF)
|
|
End If
|
|
s.Close
|
|
|
|
s=Starter.skmt.ExecQuery2("select SUM(PE_COSTO_TOT) AS TOTAL, SUM(PE_PRECIO2 * PE_CANT) AS TOTAL2 FROM PEDIDO WHERE PE_TIPO = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("PREVENTA"))
|
|
s.Position =0
|
|
' If s.GetString("TOTAL") - s.GetString("TOTAL2") <> 0 Then
|
|
' Printer1.WriteString("Descuento: $" & (s.GetString("TOTAL2") - s.GetString("TOTAL")))
|
|
' End If
|
|
Printer1.WriteString("Total Preventa: $" & s.GetString("TOTAL") & CRLF)
|
|
s.Close
|
|
|
|
End If
|
|
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)
|
|
|
|
Sleep(1000)
|
|
Printer1.DisConnect
|
|
|
|
ProgressDialogHide
|
|
' printer.Flush
|
|
' printer.Close
|
|
|
|
End Sub
|
|
|
|
Sub B_IMP2_Click
|
|
c=Starter.skmt.ExecQuery2("select count(*) AS CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL"))
|
|
c.Position =0
|
|
perfil = c.GetString("CUANTOS")
|
|
c.Close
|
|
|
|
If perfil > 0 Then
|
|
c=Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL"))
|
|
c.Position =0
|
|
perfil = c.GetString("CAT_VA_VALOR")
|
|
c.Close
|
|
End If
|
|
|
|
c=Starter.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 1")
|
|
Printer1.Connect
|
|
Private cont As Int = 0
|
|
Do While Not(impresoraConectada)
|
|
' Log("conectando ...")
|
|
Sleep(1000)
|
|
cont = cont + 1
|
|
If cont = 3 Then Printer1.Connect 'Tratamos de reconectar
|
|
If cont > 15 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)
|
|
' Log("conectando ...")
|
|
Sleep(1000)
|
|
cont = cont + 1
|
|
If cont = 2 Then Printer1.Connect
|
|
If cont > 4 Then impresoraConectada = True
|
|
Loop
|
|
Sleep(500)
|
|
impresoraConectada = False
|
|
End If
|
|
Log("Iniciamos ...")
|
|
TAMANO = 0
|
|
ESPACIO = 21
|
|
BLANCO = " "
|
|
Dim bmp As Bitmap
|
|
bmp.InitializeResize(File.DirAssets, "durakelo1.png", 376, 129, True) 'ignore
|
|
Dim myimage As AnImage = Printer1.ImageToBWIMage(bmp)
|
|
|
|
myimage = Printer1.DitherImage2D(myimage, 128)
|
|
|
|
myimage= Printer1.PackImage(myimage)
|
|
Log("Iniciamos 2 ...")
|
|
Printer1.WriteString(CRLF) ' nudge the printer to show the user something is happening
|
|
Printer1.WriteString(Printer1.REVERSE)
|
|
|
|
Printer1.PrintImage(myimage)
|
|
Printer1.WriteString(Printer1.UNREVERSE)
|
|
|
|
' printer.Initialize(cmp20.OutputStream)
|
|
Printer1.WriteString("DURAKELO S.A. de C.V." & CRLF)
|
|
Printer1.WriteString("RFC: DUR-011025-T12" & 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("-----------ENTREGA------------" & CRLF)
|
|
|
|
s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? AND LENGTH(PE_CEDIS) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PRONOMBRE", Array As String("VENTA"))
|
|
If S.RowCount>0 Then
|
|
For i=0 To S.RowCount -1
|
|
S.Position=i
|
|
If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
|
|
Printer1.WriteString(s.GetString("PE_PRONOMBRE") & CRLF)
|
|
|
|
Else
|
|
|
|
Printer1.WriteString(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & CRLF)
|
|
TAMANO = s.GetLong("L_CANT") + TAMANO
|
|
TAMANO = s.GetLong("L_COSTOU") + TAMANO
|
|
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
|
|
|
|
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 )
|
|
TAMANO = 0
|
|
ESPACIO = 21
|
|
BLANCO = " "
|
|
End If
|
|
Next
|
|
End If
|
|
s.Close
|
|
|
|
s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? 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----" & CRLF)
|
|
|
|
For i=0 To S.RowCount -1
|
|
S.Position=i
|
|
If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
|
|
Printer1.WriteString(s.GetString("PE_PRONOMBRE") & CRLF)
|
|
|
|
Else
|
|
|
|
Printer1.WriteString(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & CRLF)
|
|
TAMANO = s.GetLong("L_CANT") + TAMANO
|
|
TAMANO = s.GetLong("L_COSTOU") + TAMANO
|
|
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
|
|
|
|
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 )
|
|
TAMANO = 0
|
|
ESPACIO = 21
|
|
BLANCO = " "
|
|
End If
|
|
|
|
Next
|
|
Printer1.WriteString("--FIN PROMOS----" & CRLF)
|
|
|
|
End If
|
|
s.Close
|
|
|
|
Printer1.WriteString(" " & CRLF)
|
|
s=Starter.skmt.ExecQuery2("select SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_TIPO = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA"))
|
|
s.Position =0
|
|
Printer1.WriteString("Total entrega: $" & s.GetString("TOTAL") & CRLF)
|
|
s.Close
|
|
' Printer1.WriteString("------------VENTA-------------")
|
|
' Printer1.WriteString("TOTAL COMPRA: $:" & total_cliente)
|
|
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)
|
|
|
|
Sleep(1000)
|
|
Printer1.DisConnect
|
|
ProgressDialogHide
|
|
'printer.Flush
|
|
' printer.Close
|
|
End Sub
|
|
|
|
Sub B_INV_Click
|
|
c=Starter.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
|
|
|
|
TAMANO = 5
|
|
ESPACIO = 21
|
|
BLANCO = " "
|
|
' printer.Initialize(cmp20.OutputStream)
|
|
Printer1.WriteString("DURAKELO S.A. de C.V." & CRLF)
|
|
Printer1.WriteString("RESUMEN DIA A LA HORA" & CRLF)
|
|
Printer1.WriteString(sDate & " " & sTime & CRLF)
|
|
Printer1.WriteString("Vendedor:" & usuario & CRLF )
|
|
Printer1.WriteString("-------------VENTA-------------" & CRLF)
|
|
|
|
E1=Starter.skmt.ExecQuery2("Select count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("VENTA"))
|
|
E1.Position = 0
|
|
If E1.GetString("CUANTOS") > 0 Then
|
|
c=Starter.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_TIPO = ?", Array As String("VENTA"))
|
|
c.Position = 0
|
|
Printer1.WriteString("VENTA: " & c.GetString("MONTO_DIA") & CRLF)
|
|
c.Close
|
|
Else
|
|
Printer1.WriteString("VENTA: " & "0" & CRLF)
|
|
End If
|
|
E1.Close
|
|
|
|
E1=Starter.skmt.ExecQuery2("Select count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("PREVENTA"))
|
|
E1.Position = 0
|
|
If E1.GetString("CUANTOS") > 0 Then
|
|
c=Starter.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_TIPO = ?", Array As String("PREVENTA"))
|
|
c.Position = 0
|
|
Printer1.WriteString("PREVENTA: " & c.GetString("MONTO_DIA") & CRLF)
|
|
c.Close
|
|
Else
|
|
Printer1.WriteString("PREVENTA: " & "0" & CRLF)
|
|
End If
|
|
E1.Close
|
|
|
|
E1=Starter.skmt.ExecQuery2("Select count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("ABORDO"))
|
|
E1.Position = 0
|
|
If E1.GetString("CUANTOS") > 0 Then
|
|
c=Starter.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_TIPO = ?", Array As String("ABORDO"))
|
|
c.Position = 0
|
|
Printer1.WriteString("ABORDO: " & c.GetString("MONTO_DIA") & CRLF)
|
|
c.Close
|
|
Else
|
|
Printer1.WriteString("ABORDO: " & "0" & CRLF)
|
|
End If
|
|
E1.Close
|
|
|
|
Printer1.WriteString("-----------INVENTARIO-----------" & 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=Starter.skmt.ExecQuery2 ("select CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_ALMACEN from cat_gunaprod2 where CAT_GP_CLASIF <> ? ORDER BY CAT_GP_NOMBRE ", Array As String("PROMOS"))
|
|
|
|
If S.RowCount>0 Then
|
|
For i=0 To S.RowCount -1
|
|
S.Position=i
|
|
Printer1.WriteString(s.GetString("CAT_GP_NOMBRE") & CRLF)
|
|
Printer1.WriteString("CANTIDAD: " & s.GetString("CAT_GP_ALMACEN") & CRLF)
|
|
TAMANO = TAMANO + 1
|
|
If TAMANO > 40 Then
|
|
t3.Initialize("T3", 4000) ' 1000 = 1 second
|
|
t3.Enabled = True
|
|
Wait For t3_tick
|
|
TAMANO = 0
|
|
End If
|
|
Next
|
|
End If
|
|
s.Close
|
|
|
|
Printer1.WriteString(" " & CRLF)
|
|
Printer1.WriteString("-----------RMI----------------" & CRLF)
|
|
Printer1.WriteString(" " & CRLF)
|
|
'c=Starter.skmt.ExecQuery2("select count(*) as CUANTOS from pedido where substr(pe_pronombre,1,6) = ? GROUP BY PE_PRONOMBRE", Array As String("CAMBIO"))
|
|
'c.Position =0
|
|
'Cuantos = c.GETSTRING("CUANTOS")
|
|
'c.Close
|
|
'If Cuantos >0 Then
|
|
c=Starter.skmt.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD,PE_PRONOMBRE from pedido where substr(pe_pronombre,1,6) = ? GROUP BY PE_PRONOMBRE", Array As String("CAMBIO"))
|
|
If C.RowCount>0 Then
|
|
For i=0 To C.RowCount -1
|
|
C.Position=i
|
|
Printer1.WriteString(C.GetString("CANTIDAD") & " " & C.GetString("PE_PRONOMBRE") & CRLF )
|
|
Next
|
|
End If
|
|
c.Close
|
|
'End If
|
|
|
|
Printer1.WriteString("------------------------------" & CRLF)
|
|
Printer1.WriteString("Nombre y Firma" & 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(" " & CRLF)
|
|
' printer.Flush
|
|
End Sub
|
|
|
|
Sub B_VENTA_Click
|
|
Starter.tipov = "VENTA"
|
|
'StartActivity(colonia2)
|
|
cuestionario
|
|
End Sub
|
|
|
|
Sub b_factura_Click
|
|
|
|
End Sub
|
|
|
|
Sub CH_TA_CheckedChange(Checked As Boolean)
|
|
|
|
End Sub
|
|
|
|
Sub CH_TC_CheckedChange(Checked As Boolean)
|
|
|
|
End Sub
|
|
|
|
Sub CH_TB_CheckedChange(Checked As Boolean)
|
|
|
|
End Sub
|
|
|
|
Sub CH_TD_CheckedChange(Checked As Boolean)
|
|
|
|
End Sub
|
|
|
|
Sub B_GUARDAR_Click
|
|
If CH_TA.Checked = True Then
|
|
TIPOEX = CH_TA.Text
|
|
ELSE If CH_TB.Checked = True Then
|
|
TIPOEX = CH_TB.Text
|
|
ELSE If CH_TC.Checked = True Then
|
|
TIPOEX = CH_TC.Text
|
|
ELSE If CH_TD.Checked = True Then
|
|
TIPOEX = CH_TD.Text
|
|
End If
|
|
|
|
Panel1.Visible = False
|
|
B_EXIBI.Visible = True
|
|
b_factura.Visible = True
|
|
HIST.Visible = True
|
|
Tar.VISIBLE = True
|
|
B_IMP.Visible = True
|
|
Tels.Visible = True
|
|
B_VENTA.Visible = True
|
|
B_IMP2.Visible = True
|
|
gest.Visible = True
|
|
Guardar.Visible = True
|
|
B_INV.Visible = True
|
|
|
|
c=Starter.skmt.ExecQuery("select CUENTA from cuentaa")
|
|
c.Position = 0
|
|
cuenta = c.GetString("CUENTA")
|
|
|
|
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_EXIBIDORES(CAT_CL_CLIENTE,CAT_CL_EXHIBIDOR,CAT_CL_BEXHIBIDOR) VALUES(?,?,?)", Array As Object(cuenta,TIPOEX,E_CUANTOS_E.Text))
|
|
|
|
End Sub
|
|
|
|
Sub B_EXIBI_Click
|
|
s=Starter.skmt.ExecQuery("select CAT_EX_ID, CAT_EX_TIPO, CAT_EX_VALOR FROM CAT_EXHIBIDORES")
|
|
|
|
If s.RowCount>0 Then
|
|
For i=0 To s.RowCount -1
|
|
s.Position=i
|
|
If s.GetString("CAT_EX_ID") = "1" Then
|
|
CH_TA.Text = s.GetString("CAT_EX_VALOR")
|
|
End If
|
|
If s.GetString("CAT_EX_ID") = "2" Then
|
|
CH_TB.Text = s.GetString("CAT_EX_VALOR")
|
|
End If
|
|
If s.GetString("CAT_EX_ID") = "3" Then
|
|
CH_TC.Text = s.GetString("CAT_EX_VALOR")
|
|
End If
|
|
If s.GetString("CAT_EX_ID") = "4" Then
|
|
CH_TD.Text = s.GetString("CAT_EX_VALOR")
|
|
End If
|
|
|
|
Next
|
|
End If
|
|
|
|
E_CUANTOS_E.Text = ""
|
|
CH_TA.Checked = False
|
|
CH_TB.Checked = False
|
|
CH_TC.Checked = False
|
|
CH_TD.Checked = False
|
|
Panel1.Visible = True
|
|
B_EXIBI.Visible = False
|
|
b_factura.Visible = False
|
|
HIST.Visible = False
|
|
Tar.VISIBLE = False
|
|
B_IMP.Visible = False
|
|
Tels.Visible = False
|
|
B_VENTA.Visible = False
|
|
B_IMP2.Visible = False
|
|
gest.Visible = False
|
|
Guardar.Visible = False
|
|
B_INV.Visible = False
|
|
|
|
End Sub
|
|
|
|
Sub Printer1_Connected (Success As Boolean)
|
|
Log("Impresora conectada.")
|
|
If Success Then
|
|
ToastMessageShow("Connected successfully", False)
|
|
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("MACIMP"))
|
|
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("MACIMP", Starter.mac_impresora))
|
|
B_IMP.Enabled = True
|
|
impresoraConectada = True
|
|
Else
|
|
' Msgbox(Printer1.ConnectedErrorMsg, "Error connecting.")
|
|
' 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.Connect(PairedDevices.Get(PairedDevices.GetKeyAt(0)))
|
|
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 cuestionario
|
|
DateTime.DateFormat = "MM/dd/yyyy"
|
|
sDate=DateTime.Date(DateTime.Now)
|
|
sTime=DateTime.Time(DateTime.Now)
|
|
|
|
If TOMAR_FOTO = 0 Then
|
|
s=Starter.skmt.ExecQuery("select COUNT(*) AS CUANTOS from HIST_ENCUESTA where HE_CLIE In (Select cuenta from cuentaa)")
|
|
s.Position= 0
|
|
CUANTOS = s.GetString("CUANTOS")
|
|
Else
|
|
CUANTOS = 0
|
|
End If
|
|
If CUANTOS = 0 Then
|
|
c=Starter.skmt.ExecQuery("SELECT CAT_EP_ID ,CAT_EP_IDTIPOPREGUNTA ,CAT_CE_DESCRIPCION ,CAT_EP_PREGUNTA ,CAT_EP_RES1_PRED ,CAT_EP_RES2_PRED ,CAT_EP_RES3_PRED ,CAT_EP_ORDEN_PREGUNTA FROM CAT_ENCUESTA_PREGUNTA ORDER BY CAT_CE_DESCRIPCION, CAST(CAT_EP_ORDEN_PREGUNTA AS DECIMAL)")
|
|
If c.RowCount>0 Then
|
|
For i=0 To c.RowCount -1
|
|
If TOMAR_FOTO = 1 Then
|
|
If CURSOR_FOTO + 1 > c.RowCount -1 Then
|
|
TOMAR_FOTO = 0
|
|
Exit
|
|
Else
|
|
i = CURSOR_FOTO +1
|
|
End If
|
|
'Msgbox(i,"a")
|
|
TOMAR_FOTO = 0
|
|
End If
|
|
c.Position=i
|
|
' Msgbox("paso1","a")
|
|
If c.GetString("CAT_EP_IDTIPOPREGUNTA") = 5 Then
|
|
id_encuesta = c.GetString("CAT_EP_ID")
|
|
TOMAR_FOTO = 1
|
|
CURSOR_FOTO = i
|
|
' StartActivity(foto)
|
|
' Msgbox("paso2","a")
|
|
Exit
|
|
ELSE IF c.GetString("CAT_EP_IDTIPOPREGUNTA") = 3 Then
|
|
res = Msgbox2(c.GetString("CAT_EP_PREGUNTA"),c.GetString("CAT_CE_DESCRIPCION"), "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))
|
|
If res = DialogResponse.POSITIVE Then
|
|
Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, "SI",sDate & sTime,c.GetString("CAT_EP_ID")))
|
|
Else IF res = DialogResponse.NEGATIVE Then
|
|
Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, "NO",sDate & sTime,c.GetString("CAT_EP_ID")))
|
|
Else IF res = DialogResponse.CANCEL Then
|
|
i = i -1
|
|
End If
|
|
ELSE IF c.GetString("CAT_EP_IDTIPOPREGUNTA") = 4 Then
|
|
res = Msgbox2(c.GetString("CAT_EP_PREGUNTA"),c.GetString("CAT_CE_DESCRIPCION"), "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))
|
|
If res = DialogResponse.POSITIVE Then
|
|
Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, "SI",sDate & sTime,c.GetString("CAT_EP_ID")))
|
|
'i = c.GetString("CAT_EP_RES1_PRED") -1
|
|
Else IF res = DialogResponse.NEGATIVE Then
|
|
Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, "NO",sDate & sTime,c.GetString("CAT_EP_ID")))
|
|
i = c.GetInt("CAT_EP_RES2_PRED") -2
|
|
Else IF res = DialogResponse.CANCEL Then
|
|
i = i -1
|
|
End If
|
|
' Msgbox("paso3","a")
|
|
ELSE If c.GetString("CAT_EP_IDTIPOPREGUNTA") = 2 Then
|
|
res = Msgbox2(c.GetString("CAT_EP_PREGUNTA"),c.GetString("CAT_CE_DESCRIPCION"), c.GetString("CAT_EP_RES1_PRED"), c.GetString("CAT_EP_RES2_PRED"),c.GetString("CAT_EP_RES3_PRED"),LoadBitmap(File.DirAssets,"alert2.png"))
|
|
If res = DialogResponse.POSITIVE Then
|
|
Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, c.GetString("CAT_EP_RES1_PRED"),sDate & sTime,c.GetString("CAT_EP_ID")))
|
|
Else IF res = DialogResponse.NEGATIVE Then
|
|
Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, c.GetString("CAT_EP_RES3_PRED"),sDate & sTime,c.GetString("CAT_EP_ID")))
|
|
Else IF res = DialogResponse.CANCEL Then
|
|
Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, c.GetString("CAT_EP_RES2_PRED"),sDate & sTime,c.GetString("CAT_EP_ID")))
|
|
End If
|
|
' Msgbox("paso4","a")
|
|
ELSE If c.GetString("CAT_EP_IDTIPOPREGUNTA") = 6 Then
|
|
Panel10.Visible = True
|
|
l_chk_e.Text = c.GetString("CAT_EP_PREGUNTA")
|
|
Chk_1.Checked = False
|
|
chk_2.Checked = False
|
|
chk_3.Checked = False
|
|
Chk_1.Text = c.GetString("CAT_EP_RES1_PRED")
|
|
chk_2.Text = c.GetString("CAT_EP_RES2_PRED")
|
|
chk_3.Text = c.GetString("CAT_EP_RES3_PRED")
|
|
chk_1_valor = c.GetString("CAT_EP_RES1_PRED")
|
|
chk_2_valor = c.GetString("CAT_EP_RES2_PRED")
|
|
chk_3_valor = c.GetString("CAT_EP_RES3_PRED")
|
|
TOMAR_FOTO = 1
|
|
CURSOR_FOTO = i
|
|
' Msgbox("paso5","a")
|
|
Exit
|
|
ELSE If c.GetString("CAT_EP_IDTIPOPREGUNTA") = 1 Then
|
|
Panel9.Visible = True
|
|
t_tenc.Text = c.GetString("CAT_EP_PREGUNTA")
|
|
Label26.Text = c.GetString("CAT_CE_DESCRIPCION")
|
|
E_RES_E.Text = ""
|
|
TOMAR_FOTO = 1
|
|
CURSOR_FOTO = i
|
|
Exit
|
|
Else
|
|
' Main.tipov = "VENTA"
|
|
' StartActivity(colonia2)
|
|
End If
|
|
Next
|
|
Else
|
|
' Main.tipov = "VENTA"
|
|
' StartActivity(colonia2)
|
|
End If
|
|
Else
|
|
' Main.tipov = "VENTA"
|
|
' StartActivity(colonia2)
|
|
End If
|
|
End Sub
|
|
|
|
Sub B_E_NEXT_Click
|
|
Panel9.Visible = False
|
|
Starter.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,c.GetString("CAT_EP_ID")))
|
|
Starter.tipov = "VENTA"
|
|
'TOMAR_FOTO = 1
|
|
cuestionario
|
|
'StartActivity(colonia2)
|
|
|
|
End Sub
|
|
|
|
Sub b_chk_e_Click
|
|
Panel10.Visible = False
|
|
|
|
If Chk_1.Checked = True Then
|
|
Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, chk_1_valor,sDate & sTime,c.GetString("CAT_EP_ID")))
|
|
else if chk_2.Checked = True Then
|
|
Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, chk_2_valor,sDate & sTime,c.GetString("CAT_EP_ID")))
|
|
else if chk_3.Checked = True Then
|
|
Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, chk_3_valor,sDate & sTime,c.GetString("CAT_EP_ID")))
|
|
End If
|
|
Starter.tipov = "VENTA"
|
|
'TOMAR_FOTO = 1
|
|
cuestionario
|
|
End Sub |