mirror of
https://github.com/KeymonSoft/Guna_Reparto_Imp.git
synced 2026-04-20 22:29:16 +00:00
5.08.29
This commit is contained in:
Javier
@@ -110,6 +110,32 @@ Sub Class_Globals
|
||||
Private b_multiAlmacen As Button
|
||||
Private multiAlmacen As Boolean = False
|
||||
Private idAlmacenExtra As String = ""
|
||||
|
||||
|
||||
Dim btAdmin As BluetoothAdmin
|
||||
Dim cmp20 As Serial
|
||||
' Dim printer As TextWriter
|
||||
Dim TAMANO As Int
|
||||
Dim ESPACIO As Int
|
||||
Dim BLANCO As String
|
||||
Dim Printer1 As EscPosPrinter
|
||||
Dim impresoraConectada As Boolean = False
|
||||
Dim errorImpresora As Int = 0
|
||||
Private inventario As ImageView
|
||||
Dim PASA_IMP As String
|
||||
' Private printer As EscPosPrinter
|
||||
Private impresoraConectada As Boolean = False
|
||||
Dim printer As TextWriter
|
||||
|
||||
''para la carga --- mover a los demas clientes
|
||||
Dim t8 As Timer
|
||||
Private B_carga As Button
|
||||
Private P_carga As Panel
|
||||
Private L_carga As Label
|
||||
Private PB_carga As ProgressBar
|
||||
Private PB_carga2 As ProgressBar
|
||||
Private l_carga2 As Label
|
||||
'fin carga
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -178,6 +204,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
reqManager.ExecuteQuery(cmd , 0, "coords_almacen")
|
||||
End If
|
||||
B4XPages.MainPage.usuario=Subs.dameUsuarioDeDB
|
||||
btAdmin.Initialize("BlueTeeth")
|
||||
cmp20.Initialize("Printer")
|
||||
End Sub
|
||||
|
||||
Sub B4XPage_Appear
|
||||
@@ -659,7 +687,7 @@ Sub B4XPage_Appear
|
||||
l_rechazo.text = NumberFormat2((rescant + rescant2),0,2,2,False)
|
||||
B4XPages.MainPage.piezas_entregdas = NumberFormat2((pztotal + pztotal2 + pztotal3 ),0,2,2,False)
|
||||
B4XPages.MainPage.monto_entregadoactual= NumberFormat2((rescant10 + rescant11 + rescant12 ),0,2,2,False)
|
||||
'
|
||||
'
|
||||
' B4XPages.MainPage.piezas_entregdas = "0"
|
||||
' B4XPages.MainPage.monto_entregadoactual= "0"
|
||||
|
||||
@@ -672,7 +700,7 @@ Sub B4XPage_Appear
|
||||
l_pagarescobrados.Text = NumberFormat2(pagarescobrados.GetDouble("a_abono"),0,2,2,False)
|
||||
pagarescobrados.Close
|
||||
|
||||
Dim pagaresnuevos As Cursor = Starter.skmt.ExecQuery("SELECT IfNULL(SUM(distinct(PA_MONTO)),0) as PA_MONTO FROM PAGARES")
|
||||
Dim pagaresnuevos As Cursor = Starter.skmt.ExecQuery("SELECT IfNULL(SUM(PA_MONTO),0) as PA_MONTO FROM PAGARES")
|
||||
pagaresnuevos.Position = 0
|
||||
l_pagaresnuevos.Text = NumberFormat2(pagaresnuevos.GetDouble("PA_MONTO"),0,2,2,False)
|
||||
pagaresnuevos.Close
|
||||
@@ -721,7 +749,24 @@ Sub B4XPage_Appear
|
||||
' StartActivity(MAPA_RUTAS)
|
||||
' End If
|
||||
' checachek
|
||||
'cuanto
|
||||
'cuanto
|
||||
|
||||
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")
|
||||
If Printer1.IsConnected = False Then
|
||||
' Printer1.Connect
|
||||
' Log("1")
|
||||
Else
|
||||
Printer1.DisConnect
|
||||
Printer1.Connect
|
||||
Log("2")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub checachek
|
||||
@@ -791,23 +836,23 @@ Sub Subir_Click
|
||||
End Sub
|
||||
|
||||
Sub envia_reparto
|
||||
c = Starter.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO, NV_REPROGRAMAR FROM NOVENTA")
|
||||
D=Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
foto1 = c.GetBlob("NV_FOTO")
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_reparto_REPG_GUNA_VN"
|
||||
cmd.Parameters = Array As Object(C.GetString("NV_CLIENTE"),C.GetString("NV_FECHA"),C.GetString("NV_USER"),C.GetString("NV_MOTIVO"),C.GetString("NV_COMM"),C.GetString("NV_LAT"),C.GetString("NV_LON"), ALMACEN, l_ruta.Text, C.GetString("NV_REPROGRAMAR"))
|
||||
reqManager.ExecuteCommand(cmd , "inst_noventa_")
|
||||
Next
|
||||
c.Close
|
||||
End If
|
||||
d.Position=0
|
||||
cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
|
||||
d.Close
|
||||
' c = Starter.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO, NV_REPROGRAMAR FROM NOVENTA")
|
||||
' D=Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
|
||||
' If c.RowCount>0 Then
|
||||
' For i=0 To c.RowCount -1
|
||||
' c.Position=i
|
||||
' foto1 = c.GetBlob("NV_FOTO")
|
||||
' Dim cmd As DBCommand
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "insert_reparto_REPG_GUNA_VN"
|
||||
' cmd.Parameters = Array As Object(C.GetString("NV_CLIENTE"),C.GetString("NV_FECHA"),C.GetString("NV_USER"),C.GetString("NV_MOTIVO"),C.GetString("NV_COMM"),C.GetString("NV_LAT"),C.GetString("NV_LON"), ALMACEN, l_ruta.Text, C.GetString("NV_REPROGRAMAR"))
|
||||
' reqManager.ExecuteCommand(cmd , "inst_noventa_")
|
||||
' Next
|
||||
' c.Close
|
||||
' End If
|
||||
' d.Position=0
|
||||
' cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
|
||||
' d.Close
|
||||
End Sub
|
||||
|
||||
Sub envioinfo
|
||||
@@ -863,18 +908,19 @@ Sub envioinfo
|
||||
'ABONOS
|
||||
d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
|
||||
d.Position = 0
|
||||
Dim ab As Cursor = Starter.skmt.ExecQuery($"SELECT * from ABONOS where a_enviado is null"$)
|
||||
Dim ab As Cursor = Starter.skmt.ExecQuery($"SELECT * from ABONOS where a_enviado is null and a_tipoabono IS NULL"$)
|
||||
Log(ab.RowCount)
|
||||
If ab.RowCount > 0 Then
|
||||
For i=0 To ab.RowCount -1
|
||||
ab.Position = i
|
||||
Dim ab1 As Cursor = Starter.skmt.ExecQuery($"SELECT SUM(a_abono) AS a_abono from ABONOS where a_cliente = '${ab.GetString("a_cliente")}' and a_tipoabono IS NULL"$)
|
||||
' Dim ab1 As Cursor = Starter.skmt.ExecQuery($"SELECT SUM(a_abono) AS a_abono from ABONOS where a_cliente = '${ab.GetString("a_cliente")}' and a_tipoabono IS NULL"$)
|
||||
Dim ab1 As Cursor = Starter.skmt.ExecQuery($"SELECT a_abono from ABONOS where a_cliente = '${ab.GetString("a_cliente")}' and a_tipoabono IS NULL"$)
|
||||
ab1.Position = 0
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_abono_REP_GUNA_VN"
|
||||
cmd.Parameters = Array As Object( ab.GetString("a_usuario"), ab.GetString("a_ruta"), ab.GetString("a_cliente"), ab1.GetString("a_abono"), ab.GetString("a_fecha"),ALMACEN,"REPARTO",d.GetString("RUTAA") )
|
||||
cmd.Name = "insert_abono_REP_GUNA_VN2"
|
||||
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,"REPARTO",d.GetString("RUTAA"), "", ab.GetString("TIPO_PAGO"),ab.GetString("a_ticket"),ab.GetString("a_numpago"))
|
||||
reqManager.ExecuteCommand(cmd , $"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
|
||||
ab1.Close
|
||||
Log($"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
|
||||
@@ -887,18 +933,19 @@ Sub envioinfo
|
||||
'ABONOS NUEVOS
|
||||
d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
|
||||
d.Position = 0
|
||||
Dim ab As Cursor = Starter.skmt.ExecQuery($"SELECT * from ABONOS where a_enviado is null"$)
|
||||
Dim ab As Cursor = Starter.skmt.ExecQuery($"SELECT * from ABONOS where a_enviado is null and a_tipoabono IS NOT NULL"$)
|
||||
Log(ab.RowCount)
|
||||
If ab.RowCount > 0 Then
|
||||
For i=0 To ab.RowCount -1
|
||||
ab.Position = i
|
||||
Dim ab1 As Cursor = Starter.skmt.ExecQuery($"SELECT SUM(a_abono) AS a_abono from ABONOS where a_cliente = '${ab.GetString("a_cliente")}' and a_tipoabono IS NOT NULL"$)
|
||||
' Dim ab1 As Cursor = Starter.skmt.ExecQuery($"SELECT SUM(a_abono) AS a_abono from ABONOS where a_cliente = '${ab.GetString("a_cliente")}' and a_tipoabono IS NOT NULL"$)
|
||||
Dim ab1 As Cursor = Starter.skmt.ExecQuery($"SELECT a_abono from ABONOS where a_cliente = '${ab.GetString("a_cliente")}' and a_tipoabono IS NOT NULL"$)
|
||||
ab1.Position = 0
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_abono_REP_GUNA_VN"
|
||||
cmd.Parameters = Array As Object( ab.GetString("a_usuario"), ab.GetString("a_ruta"), ab.GetString("a_cliente"), ab1.GetString("a_abono"), ab.GetString("a_fecha"),ALMACEN,"REPARTO",d.GetString("RUTAA") )
|
||||
cmd.Name = "insert_abono_REP_GUNA_VN2"
|
||||
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,"REPARTO",d.GetString("RUTAA"), "1", ab.GetString("TIPO_PAGO"),ab.GetString("a_ticket"),ab.GetString("a_numpago") )
|
||||
reqManager.ExecuteCommand(cmd , $"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
|
||||
ab1.Close
|
||||
Log($"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
|
||||
@@ -971,6 +1018,8 @@ Sub envioinfo
|
||||
End If
|
||||
'FIN TABULADOR
|
||||
|
||||
|
||||
|
||||
c = Starter.skmt.ExecQuery("SELECT IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_CLIENTE, HVD_PROID, HVD_FECHA, HVD_CODPROMO, HVD_NUM_TICKET, HVD_CANT, CONSECUTIVO, BCAJAS, CANTC FROM HIST_VENTAS where HVD_PRONOMBRE <> 'Cobranza Pendiente'")
|
||||
If c.RowCount > 0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
@@ -1045,6 +1094,13 @@ Sub cargar_Click
|
||||
End If
|
||||
End If
|
||||
If Not (pedidodiaanterior) Then
|
||||
' P_carga.Visible = True
|
||||
P_carga.Width = Root.Width
|
||||
P_carga.Height = Root.Height
|
||||
l_carga2.Text = "CARGANDO"
|
||||
L_carga.Text = "CARGANDO"
|
||||
PB_carga2.Progress = 0
|
||||
PB_carga.Progress = 0
|
||||
Log("CUMPLE")
|
||||
EJECUTANDO = 1
|
||||
reqs.Initialize
|
||||
@@ -1168,10 +1224,18 @@ Sub cargaGeneral
|
||||
Log($"Pedimos gunaprod - ${ALMACEN}, ${e_ruta.text}"$)
|
||||
reqs.Add("gunaprod")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_abonosp_REP_GUNA_VN"
|
||||
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "select_abonosp")
|
||||
If ALMACEN = "81" Then
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_abonosp_REP_GUNA_VN2"
|
||||
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
|
||||
reqManager.ExecuteQuery(cmd , 0, "select_abonosp")
|
||||
Else
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_abonosp_REP_GUNA_VN"
|
||||
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "select_abonosp")
|
||||
End If
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cliente_re_REPG_GUNA_VN"
|
||||
@@ -1179,6 +1243,14 @@ Sub cargaGeneral
|
||||
reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
|
||||
Log($"Pedimos kmt_datos - ruta: ${e_ruta.text}, almacen: ${ALMACEN}"$)
|
||||
reqs.Add("kmt_datos")
|
||||
|
||||
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "select_cliente_fotos_re_REPG_GUNA_VN"
|
||||
' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,e_ruta.text, ALMACEN,e_ruta.Text,ALMACEN,ALMACEN)',e_ruta.Text,ALMACEN
|
||||
' reqManager.ExecuteQuery(cmd , 0, "kmt_datos_fotos")
|
||||
'' Log($"Pedimos kmt_datos_fotos - ruta: ${e_ruta.text}, almacen: ${ALMACEN}"$)
|
||||
'' reqs.Add("kmt_datos_fotos")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_ventad2_re_REPG_GUNA_VN"
|
||||
@@ -1230,9 +1302,11 @@ Sub JobDone(Job As HttpJob)
|
||||
Dim CAT_CL_LAT As String = records(result.Columns.Get("CAT_CL_LAT"))
|
||||
Dim CAT_CL_BCREDITO As String = records(result.Columns.Get("CAT_CL_BCREDITO"))
|
||||
Dim CAT_CL_LIMITECREDITO As String = records(result.Columns.Get("CAT_CL_LIMITECREDITO"))
|
||||
Dim CAT_CL_SALDODISPONIBLE As String = records(result.Columns.Get("CAT_CL_SALDODISPONIBLE"))
|
||||
Dim CAT_CL_DIASCREDITO As String = records(result.Columns.Get("CAT_CL_DIASCREDITO"))
|
||||
' Dim CAT_CL_SECUENCIA As String = records(result.Columns.Get("CAT_CL_SECUENCIA"))
|
||||
Log(" ++ insert into kmt_info: "&ALMACEN&","&CAT_CL_CODIGO&","&CAT_CL_RUTA&","&CAT_CL_NOMBRE)
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info(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_BCREDITO, gestion,CAT_CL_LIMITECREDITO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,?)", Array As Object (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_BCREDITO,CAT_CL_LIMITECREDITO))
|
||||
' Log(" ++ insert into kmt_info: "&ALMACEN&","&CAT_CL_CODIGO&","&CAT_CL_RUTA&","&CAT_CL_NOMBRE)
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info(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_BCREDITO, gestion,CAT_CL_LIMITECREDITO,CAT_CL_SALDODISPONIBLE,CAT_CL_DIASCREDITO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?)", Array As Object (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_BCREDITO,CAT_CL_LIMITECREDITO,CAT_CL_SALDODISPONIBLE,CAT_CL_DIASCREDITO))
|
||||
Next
|
||||
' Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info(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_BCREDITO, gestion,SECUENCIA) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,?)", Array As Object (63403,1000, "VENTA RECHAZO","","","","","","","","","","","","","","-98.8357694","19.6906052","0","1"))
|
||||
' End If
|
||||
@@ -1257,8 +1331,22 @@ Sub JobDone(Job As HttpJob)
|
||||
Dim CLIENTE As String = records(result.Columns.Get("CLIENTE"))
|
||||
Dim SALDO_PENDIENTE As String = records(result.Columns.Get("SALDO_PENDIENTE"))
|
||||
Dim NOMBRE As String = records(result.Columns.Get("NOMBRE"))
|
||||
Dim FECHAPREVENTA As String = records(result.Columns.Get("FECHA_PREVENTA"))
|
||||
' Dim DIA_VENCIMIENTO As String = records(result.Columns.Get("DIA_VENCIMIENTO"))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO ABONOSP(NOTA,CLIENTE,SALDO_PENDIENTE,NOMBRE) VALUES (?,?,?,?)", Array As Object (NOTA, CLIENTE,SALDO_PENDIENTE,NOMBRE))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO ABONOSP(NOTA,CLIENTE,SALDO_PENDIENTE,NOMBRE,FECHA_PREVENTA) VALUES (?,?,?,?,?)", Array As Object (NOTA, CLIENTE,SALDO_PENDIENTE,NOMBRE,FECHAPREVENTA))
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||
If result.Tag = "kmt_datos_fotos" Then 'query tag
|
||||
Starter.skmt.ExecNonQuery("DELETE FROM FOTOS")
|
||||
For Each records() As Object In result.Rows
|
||||
Dim CAT_CL_FOTO() As Byte = records(result.Columns.Get("CAT_CL_FOTO"))
|
||||
Dim CLIENTE1 As String = records(result.Columns.Get("CAT_CL_CODIGO"))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO FOTOS(foto,CLIENTE) VALUES (?,?)", Array As Object (CAT_CL_FOTO, CLIENTE1))
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
@@ -1487,12 +1575,12 @@ Sub JobDone(Job As HttpJob)
|
||||
' Log(" ++ insert into HIST_VENTAS: "&HVD_CLIENTE&","&HVD_PRONOMBRE&","&HVD_CANT)
|
||||
consecutivo = consecutivo +1
|
||||
If l_ruta.Text = "0" Then 'Si no hay ruta cargada, guardamos todos los clientes
|
||||
Log("No hay ruta, guardamos todos")
|
||||
' Log("No hay ruta, guardamos todos")
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE, HVD_PRONOMBRE, HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL, BCAJAS,CANTC,CONSECUTIVO,BCAJAS_OR,CANTC_OR) VALUES (?,?,?,?,?,?,?,?,?,?,0,0,?,?,?,?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, bcajas,cantc,consecutivo,bcajas,cantc))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS2(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL) VALUES (?,?,?,?,?,?,?,?,?,?,0,0)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO))
|
||||
Else 'Si ya hay ruta cargada, solo guardamos los clientes nuevos.
|
||||
' Log("Hay ruta, guardamos los nuevos")
|
||||
Private tc As Cursor = Starter.skmt.ExecQuery($"select HVD_CLIENTE from HIST_VENTAS where HVD_CLIENTE = '${HVD_CLIENTE}' and HVD_PROID = '${HVD_PROID}'"$)
|
||||
Private tc As Cursor = Starter.skmt.ExecQuery($"select HVD_CLIENTE from HIST_VENTAS where HVD_CLIENTE = '${HVD_CLIENTE}' and HVD_PROID = '${HVD_PROID}' AND HVD_CANT = '${HVD_CANT}' AND HVD_CODPROMO = '${HVD_CODPROMO}'"$)
|
||||
If tc.RowCount = 0 Then
|
||||
' Log($"Guardamos ${HVD_CLIENTE}"$)
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL, BCAJAS,CANTC,CONSECUTIVO,BCAJAS_OR,CANTC_OR) VALUES (?,?,?,?,?,?,?,?,?,?,0,0,?,?,?,?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, bcajas,cantc,consecutivo,bcajas,cantc))
|
||||
@@ -1523,6 +1611,46 @@ Sub JobDone(Job As HttpJob)
|
||||
img2.Visible = False
|
||||
EJECUTANDO = 0
|
||||
End If
|
||||
''para la carga --- mover a los demas clientes
|
||||
t8.Initialize("t8", 15000) ' 1000 = 1 second
|
||||
t8.Enabled = True
|
||||
'fin carga
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||
If result.Tag = "CONTEO_DATOS" Then 'query tag
|
||||
For Each records() As Object In result.Rows
|
||||
Dim DETALLE As String = records(result.Columns.Get("REGISTROS"))
|
||||
Dim CLIENTES1 As String = records(result.Columns.Get("CLIENTES"))
|
||||
|
||||
|
||||
Next
|
||||
|
||||
Dim CLIENTES As Cursor = Starter.skmt.ExecQuery("select count(*) as clientes from kmt_info")
|
||||
CLIENTES.Position = 0
|
||||
|
||||
Dim detalleventa As Cursor = Starter.skmt.ExecQuery("select count(*) as detalle from hist_ventas")
|
||||
detalleventa.Position = 0
|
||||
|
||||
If CLIENTES.GetString("clientes") = CLIENTES1 Then
|
||||
PB_carga2.Progress = 100
|
||||
l_carga2.Text = "LISTO"
|
||||
Else
|
||||
' cargar_Click
|
||||
End If
|
||||
|
||||
If detalleventa.GetString("detalle") = DETALLE Then
|
||||
PB_carga.Progress = 100
|
||||
L_carga.Text = "LISTO"
|
||||
Else
|
||||
' cargar_Click
|
||||
End If
|
||||
|
||||
CLIENTES.Close
|
||||
detalleventa.Close
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -1743,6 +1871,61 @@ Sub JobDone(Job As HttpJob)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
''para la carga --- mover a los demas clientes
|
||||
Sub t8_tick
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_conteo_GUNA"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "CONTEO_DATOS")
|
||||
l_carga2.Text = "VALIDANDO"
|
||||
L_carga.Text = "VALIDANDO"
|
||||
PB_carga2.Progress = 50
|
||||
PB_carga.Progress = 50
|
||||
t8.Enabled = False
|
||||
End Sub
|
||||
|
||||
Private Sub P_carga_Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub B_carga_Click
|
||||
If L_carga.Text = "LISTO" And l_carga2.Text = "LISTO" Then
|
||||
P_carga.Visible = False
|
||||
Else
|
||||
Dim checagestion As Cursor = Starter.skmt.ExecQuery("SELECT * FROM kmt_info WHERE gestion <> 0")
|
||||
If checagestion.RowCount = 0 Then
|
||||
P_carga.Visible = False
|
||||
e_ruta.Text = ""
|
||||
Starter.skmt.ExecNonQuery("delete from PICK_CIEGO")
|
||||
Starter.skmt.ExecNonQuery("delete from pedido_cliente")
|
||||
Starter.skmt.ExecNonQuery("delete from PAGARES")
|
||||
Starter.skmt.ExecNonQuery("delete from CHECADO_CHECK")
|
||||
Starter.skmt.ExecNonQuery("delete from CHECKLIST2")
|
||||
Starter.skmt.ExecNonQuery("delete from pedido")
|
||||
Starter.skmt.ExecNonQuery("delete from noventa")
|
||||
Starter.skmt.ExecNonQuery("delete from clie_act")
|
||||
Starter.skmt.ExecNonQuery("delete from kmt_info")
|
||||
Starter.skmt.ExecNonQuery("delete from cat_gunaprod")
|
||||
Starter.skmt.ExecNonQuery("delete from cat_gunaprod3")
|
||||
Starter.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
|
||||
Starter.skmt.ExecNonQuery("delete from HIST_VENTAS")
|
||||
Starter.skmt.ExecNonQuery("delete from REPARTO")
|
||||
Starter.skmt.ExecNonQuery("DELETE FROM TABULADOR_MONEDAS")
|
||||
Starter.skmt.ExecNonQuery("DELETE FROM TABULADOR_BILLETES")
|
||||
Starter.skmt.ExecNonQuery("DELETE FROM RUTAA")
|
||||
Starter.skmt.ExecNonQuery("DELETE FROM ABONOSP")
|
||||
Starter.skmt.ExecNonQuery("DELETE FROM ABONOS")
|
||||
Starter.skmt.ExecNonQuery("DELETE FROM BLOCKENVIO")
|
||||
B4XPage_Appear
|
||||
MsgboxAsync("No se cargo bien la informacion, favor de cargar día nuevamente","Atención")
|
||||
Else
|
||||
MsgboxAsync("No se cargo bien la informacion, favor de cargar día nuevamente","Atención")
|
||||
P_carga.Visible = False
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
'fin carga
|
||||
|
||||
Private Sub B4XPage_CloseRequest As ResumableSub
|
||||
' BACK key pressed
|
||||
If Panel1.visible Then
|
||||
@@ -2110,6 +2293,7 @@ End Sub
|
||||
|
||||
Private Sub ListView1_ItemClick (Position As Int, Value As Object)
|
||||
' Log(Value)
|
||||
B_REGRESA_Click
|
||||
Dim clieasing() As String = Regex.Split(" ", Value)
|
||||
Log(clieasing(0))
|
||||
Starter.skmt.ExecNonQuery("delete from CUENTAA")
|
||||
@@ -2218,7 +2402,7 @@ Private Sub B_PAGARES_Click
|
||||
Subs.SetDivider(ListView2, Colors.LightGray, 5)
|
||||
Private g5 As Cursor = Starter.skmt.ExecQuery("SELECT SUM(SALDO_PENDIENTE) as SALDO_PENDIENTE FROM ABONOSP")
|
||||
If g5.RowCount > 0 Then
|
||||
g5.Position = 0
|
||||
g5.Position = 0
|
||||
Log(NumberFormat2( g5.GetDouble("SALDO_PENDIENTE"),0,2,2,False))
|
||||
l_montopagares.Text = NumberFormat2( g5.GetDouble("SALDO_PENDIENTE"),0,2,2,False)
|
||||
Else
|
||||
@@ -2243,7 +2427,7 @@ Private Sub B_PAGARES_Click
|
||||
label1 = ListView2.TwoLinesLayout.Label
|
||||
label1.TextSize = 16
|
||||
label1.Height = 45dip
|
||||
' label1.
|
||||
' label1.
|
||||
label1.Typeface = Typeface.CreateNew(Typeface.DEFAULT_BOLD, Typeface.STYLE_BOLD)
|
||||
label1.TextColor = Colors.White
|
||||
Dim label2 As Label
|
||||
@@ -2262,7 +2446,7 @@ Private Sub B_PAGARES_Click
|
||||
' ListView2.AddSingleLine(itemText)
|
||||
Next
|
||||
' Else
|
||||
'' ListView2.AddSingleLine("No hay datos disponibles.")
|
||||
'' ListView2.AddSingleLine("No hay datos disponibles.")
|
||||
' ListView2.AddTwoLines("No hay datos disponibles.","")
|
||||
End If
|
||||
g6.Close
|
||||
@@ -2454,4 +2638,227 @@ Sub cargaAlmacen2
|
||||
s_almacen2.SelectedIndex = 0
|
||||
et_ruta2.Text = ""
|
||||
cargar.Enabled = True
|
||||
End Sub
|
||||
|
||||
Private Sub inventario_Click
|
||||
|
||||
' 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
|
||||
|
||||
ProgressDialogShow("Imprimiendo, un momento ...")
|
||||
Printer1.DisConnect
|
||||
If Not(Printer1.IsConnected) Then
|
||||
' If logger Then Log("conectando 1")
|
||||
Printer1.Connect
|
||||
Private cont As Int = 0
|
||||
Do While Not(impresoraConectada)
|
||||
Sleep(1000)
|
||||
cont = cont + 1
|
||||
If cont = 7 Then Printer1.Connect 'Tratamos de reconectar
|
||||
If cont > 15 Then impresoraConectada = True
|
||||
Loop
|
||||
Sleep(500)
|
||||
impresoraConectada = False
|
||||
Else
|
||||
' If logger Then Log("conectando 2")
|
||||
Printer1.Connect
|
||||
Private cont As Int = 0
|
||||
Do While Not(impresoraConectada) Or Not(Printer1.IsConnected)
|
||||
Sleep(1000)
|
||||
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 = 28
|
||||
BLANCO = " "
|
||||
Dim bmp As Bitmap
|
||||
Printer1.Justify= 1
|
||||
bmp.InitializeResize(File.DirAssets, "inventarios.jpg", 92, 92, 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(CRLF) ' nudge the printer to show the user something is happening
|
||||
Printer1.WriteString(Printer1.REVERSE)
|
||||
Printer1.PrintImage(myimage)
|
||||
Printer1.WriteString(Printer1.UNREVERSE)
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Private c As Cursor = Starter.skmt.ExecQuery("select HVD_PRONOMBRE, IFNULL(SUM(HVD_CANT), 0) AS HVD_CANT, HVD_PROID from HIST_VENTAS WHERE HVD_PRONOMBRE <> 'Cobranza Pendiente' and HVD_PROID <> HVD_CODPROMO GROUP BY HVD_PROID order by HVD_PRONOMBRE asc")
|
||||
lv_prod_Prin.SingleLineLayout.Label.TextColor = Colors.White
|
||||
lv_prod_Prin.Clear
|
||||
Printer1.Justify = 0
|
||||
Dim sDate, sTime As String
|
||||
DateTime.DateFormat = "dd/MM/yyyy"
|
||||
DateTime.TimeFormat = "HH:mm:ss"
|
||||
sDate = DateTime.Date(DateTime.Now)
|
||||
sTime = DateTime.Time(DateTime.Now)
|
||||
Printer1.WriteString("Fecha: " &sDate & CRLF)
|
||||
Printer1.WriteString("Hora: " &sTime & CRLF)
|
||||
Printer1.WriteString("Ruta: " & l_ruta.Text & CRLF)
|
||||
Printer1.WriteString("Usuario: " & Subs.dameUsuarioDeDB & CRLF)
|
||||
' Printer1.WriteString("----------INVENTARIO----------" & CRLF)
|
||||
Printer1.WriteString("--------------------------------" & CRLF)
|
||||
If c.RowCount > 0 Then
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position = i
|
||||
|
||||
Printer1.WriteString("-----------INVENTARIO-----------" & CRLF)
|
||||
Printer1.WriteString("--------------------------------" & CRLF)
|
||||
Printer1.WriteString("Cant. Producto" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
|
||||
|
||||
Printer1.Justify = 0
|
||||
Printer1.WriteString( (c.GetString("HVD_CANT"))&"- ")
|
||||
Printer1.Justify = 0
|
||||
Dim firstChar As String = c.GetString("HVD_PRONOMBRE").SubString2(0, 1) ' Obtiene el primer carácter
|
||||
Dim productoinven As String
|
||||
|
||||
' Verificar si el primer carácter es un número
|
||||
If Asc(firstChar) >= Asc("0") And Asc(firstChar) <= Asc("9") Then
|
||||
' Es un número - tomar a partir del 4to carácter
|
||||
productoinven = c.GetString("HVD_PRONOMBRE").SubString(4)
|
||||
Else
|
||||
' Es una letra u otro carácter - tomar completo
|
||||
productoinven = c.GetString("HVD_PRONOMBRE")
|
||||
End If
|
||||
|
||||
Log(productoinven)
|
||||
Printer1.WriteString(productoinven)
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
|
||||
|
||||
Next
|
||||
|
||||
Next
|
||||
End If
|
||||
c.Close
|
||||
|
||||
Dim sumainv As Cursor = Starter.skmt.ExecQuery("SELECT SUM(HVD_CANT) AS CANTIDAD FROM HIST_VENTAS WHERE HVD_CODPROMO <> HVD_PROID")
|
||||
sumainv.Position = 0
|
||||
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("Total piezas: " & sumainv.GetString("CANTIDAD")& CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.Justify = 0
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Sleep(1000)
|
||||
Printer1.DisConnect
|
||||
ProgressDialogHide
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Sub Printer1_Connected (Success As Boolean)
|
||||
' If Logger Then Log("Printer1_Connected")
|
||||
If Success Then
|
||||
ToastMessageShow("Impresora conectada", 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))
|
||||
' If logger Then 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 Printer1_Error
|
||||
Log("error printer")
|
||||
End Sub
|
||||
|
||||
Sub Printer_Connected (Success As Boolean)
|
||||
If Success Then
|
||||
' B_IMP.Enabled = True
|
||||
PASA_IMP = "1"
|
||||
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 L1 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
|
||||
L1.Initialize
|
||||
For i = 0 To PairedDevices.Size - 1
|
||||
L1.Add(PairedDevices.GetKeyAt(i))
|
||||
Next
|
||||
resimp = InputList(L1, "Choose device", -1) 'ignore
|
||||
If resimp <> DialogResponse.CANCEL Then
|
||||
cmp20.Connect(PairedDevices.Get(L1.Get(resimp)))
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Reference in New Issue
Block a user