mirror of
https://github.com/KeymonSoft/Intmex_Multiventa.git
synced 2026-04-17 21:06:08 +00:00
...
This commit is contained in:
Javier
@@ -163,6 +163,11 @@ Sub Class_Globals
|
||||
Private lv_pedidoExistente As ListView
|
||||
Private b_cerrar As Button
|
||||
Private l_pedidoExistente As Label
|
||||
Private l_telefono As Label
|
||||
Private p_telefono As Panel
|
||||
Private et_telefono As EditText
|
||||
Private b_canceltelefono As Button
|
||||
Private b_aceptelefono As Button
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -285,6 +290,7 @@ Sub B4XPage_Appear
|
||||
l_atiende.Text = c.GetString("CAT_CL_ATIENDE1")
|
||||
l_atiende2.Text = c.GetString("CAT_CL_ATIENTE2")
|
||||
TELEFONO = c.GetString("CAT_CL_TELEFONO")
|
||||
l_telefono.Text = c.GetString("CAT_CL_TELEFONO")
|
||||
l_total.Text = "$" & NumberFormat2(s.GetString("TOTAL_CLIE"), 1, 2, 2, True)
|
||||
total_cliente = s.GetString("TOTAL_CLIE")
|
||||
Private factura As String = 0
|
||||
@@ -1211,23 +1217,66 @@ Sub mandaPendientes
|
||||
' 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 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_INTMEX"
|
||||
' 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
|
||||
|
||||
|
||||
c=Starter.skmt.ExecQuery("SELECT CN_ID, CN_FECHA , CN_USER, CN_LAT, CN_LON, CN_NOMBRE, CN_DIRECCION, CN_FOTO, CN_ALMACEN, CN_RUTA, CN_GIRO, CN_SOLICITA, CN_COLONIA, CN_TELEFONO, CN_CP FROM CLIENTES_NUEVOS")
|
||||
If c.RowCount>0 Then
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position = i
|
||||
Dim dia As Int = DateTime.GetDayOfWeek(DateTime.Now)
|
||||
If dia = 2 Then
|
||||
Dim dialetra As String = "LUNES"
|
||||
Else If dia = 3 Then
|
||||
Dim dialetra As String = "MARTES"
|
||||
Else If dia = 4 Then
|
||||
Dim dialetra As String = "MIERCOLES"
|
||||
Else If dia = 5 Then
|
||||
Dim dialetra As String = "JUEVES"
|
||||
Else If dia = 6 Then
|
||||
Dim dialetra As String = "VIERNES"
|
||||
Else If dia = 7 Then
|
||||
Dim dialetra As String = "SABADO"
|
||||
End If
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_cliente_INTMEX"
|
||||
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")}"$)
|
||||
cmd.Name = "insert_cliente_INTMEX2"
|
||||
Log(c.GetString("CN_ID")&" ,"& c.GetString("CN_FECHA")&" ,"& c.GetString("CN_USER")&" ,"& c.GetString("CN_LAT")&" ,"& c.GetString("CN_LON")&" ,"& c.GetString("CN_NOMBRE")&" ,"& c.GetString("CN_DIRECCION")&" ,"&ALMACEN& c.GetString("CN_RUTA")&" ,"& "En espera"&c.GetString("CN_GIRO")&" ,"&dialetra& c.GetString("CN_SOLICITA")&" ,"& c.GetString("CN_COLONIA")&" ,"& c.GetString("CN_TELEFONO"))
|
||||
cmd.Parameters = Array As Object(c.GetString("CN_ID"), c.GetString("CN_NOMBRE"), c.GetString("CN_RUTA"),ALMACEN, c.GetString("CN_LAT"), c.GetString("CN_LON"), "En espera", c.GetString("CN_FECHA"), c.GetString("CN_USER"), c.GetString("CN_DIRECCION"), c.GetString("CN_GIRO"),dialetra, c.GetString("CN_TELEFONO"), c.GetString("CN_SOLICITA"), c.GetString("CN_COLONIA"), c.GetString("CN_CP"))
|
||||
reqManager.ExecuteCommand(cmd , $"insert_cliente_${C.GetString("CN_ID")}"$)
|
||||
Next
|
||||
Log("si lo hice")
|
||||
End If
|
||||
bb.Close
|
||||
cb.Close
|
||||
c.Close
|
||||
|
||||
' Cambio atiende
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("Select CAT_CL_TELEFONO, CAT_CL_CODIGO from kmt_info where CAT_CL_CODIGO IN (SELECT CLIENTE FROM TELEFONO)")
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "update_atiende_INTMEX"
|
||||
cmd.Parameters = Array As Object(C.GetString("CAT_CL_TELEFONO"),C.GetString("CAT_CL_CODIGO"),ALMACEN,Subs.traeRuta2(C.GetString("CAT_CL_CODIGO")))
|
||||
reqManager.ExecuteCommand(cmd , "up_coordenadas")
|
||||
Next
|
||||
End If
|
||||
c.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)")
|
||||
@@ -1405,7 +1454,7 @@ Sub JobDone(Job As HttpJob)
|
||||
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}'"$)
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"UPDATE CLIENTES_NUEVOS set CN_ENVIO = 1 where CN_ID = '${cliente}'"$)
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -1643,4 +1692,55 @@ End Sub
|
||||
|
||||
Private Sub b_pedidoExistente_Click
|
||||
p_pedidoExistente.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub l_telefono_LongClick
|
||||
p_telefono.Height = Root.Height
|
||||
p_telefono.Width = Root.Width
|
||||
p_telefono.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub b_aceptelefono_Click
|
||||
If et_telefono.Text <> "" Then
|
||||
|
||||
Private coord As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT * from TELEFONO where CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
|
||||
If coord.RowCount = 0 Then
|
||||
skmt.ExecNonQuery2("INSERT INTO TELEFONO(TEL,CLIENTE) VALUES (?,?)", Array As String (et_telefono.Text,Subs.traeCliente))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"UPDATE kmt_info set CAT_CL_TELEFONO = '${et_telefono.Text}' where CAT_CL_CODIGO In (select cuenta from cuentaa)"$)
|
||||
MsgboxAsync("Datos actualizados.","Atención")
|
||||
l_telefono.Text = et_telefono.Text
|
||||
ime.HideKeyboard
|
||||
p_telefono.Visible = False
|
||||
et_telefono.Text = ""
|
||||
Else
|
||||
skmt.ExecNonQuery2("UPDATE TELEFONO SET TEL = ? where CLIENTE IN (SELECT CUENTA FROM CUENTAA)", Array As String (et_telefono.Text))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"UPDATE kmt_info set CAT_CL_TELEFONO = '${et_telefono.Text}' where CAT_CL_CODIGO In (select cuenta from cuentaa)"$)
|
||||
MsgboxAsync("Datos actualizados.","Atención")
|
||||
l_telefono.Text = et_telefono.Text
|
||||
ime.HideKeyboard
|
||||
p_telefono.Visible = False
|
||||
et_telefono.Text = ""
|
||||
End If
|
||||
|
||||
|
||||
Else
|
||||
MsgboxAsync("Por favor captura un telefono valido.","Atención")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub b_canceltelefono_Click
|
||||
p_telefono.Visible = False
|
||||
et_telefono.Text = ""
|
||||
ime.HideKeyboard
|
||||
End Sub
|
||||
|
||||
Private Sub p_telefono_Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Label16_LongClick
|
||||
p_telefono.Height = Root.Height
|
||||
p_telefono.Width = Root.Width
|
||||
p_telefono.Visible = True
|
||||
End Sub
|
||||
Reference in New Issue
Block a user