cheveguerra/Profina_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Profina_Preventa.git synced 2026-04-20 14:19:35 +00:00
Code Issues Packages Projects Releases Wiki Activity

Se agrego la validacion de usuarios, el apartado de solicita en cliente y se hace la insercion en la base de datos.

Browse Source 
**Saludos Cordiales.**
This commit is contained in:
IsR0d
2024-07-12 14:26:47 -06:00
parent ba244e1c6f
commit 5027129b4a
7 changed files with 116 additions and 67 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
B4A/B4XMainPage.bas
View File

@@ -217,6 +217,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Log(LastException) Log(LastException)
End Try End Try
End Try End Try
Subs.agregaColumna("PEDIDO_CLIENTE", "PC_SOLICITA", "TEXT")
c=Starter.skmt.ExecQuery("select COUNT(*) AS CUANTOS from HIST_STAY_OUT ") c=Starter.skmt.ExecQuery("select COUNT(*) AS CUANTOS from HIST_STAY_OUT ")
C.Position = 0 C.Position = 0
If c.GetString("CUANTOS") = 0 Then If c.GetString("CUANTOS") = 0 Then

145
B4A/C_Cliente.bas
View File

@@ -141,6 +141,10 @@ Sub Class_Globals
Private l_calle1 As Label Private l_calle1 As Label
Private l_ubicacion2 As Label Private l_ubicacion2 As Label
Private l_version As Label Private l_version As Label
Private L_Solicita As Label
Private et_Solicita As EditText
Dim cSol As Cursor
Dim Solicita As String
End Sub End Sub
'You can add more parameters here. 'You can add more parameters here.
@@ -340,6 +344,26 @@ Sub B4XPage_Appear
' Tels.Visible = False ' Tels.Visible = False
' gest.Visible = False ' gest.Visible = False
' End If ' End If
' Verificar si et_Solicita ya tiene un valor
If et_Solicita.Text = Null Or et_Solicita.Text = "" Then
' Ejecutar la consulta solo si et_Solicita está vacío
cSol = skmt.ExecQuery("SELECT * FROM PEDIDO_CLIENTE WHERE PC_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
If cSol.RowCount > 0 Then
cSol.Position = 0
Dim pcSolicita As String = cSol.GetString("PC_SOLICITA")
If pcSolicita <> Null And pcSolicita <> "null" Then
et_Solicita.Text = pcSolicita
Else
et_Solicita.Text = ""
End If
Else
et_Solicita.Text = Solicita
End If
cSol.Close
End If
End Sub End Sub
Sub GPS_LocationChanged (Location1 As Location) Sub GPS_LocationChanged (Location1 As Location)
@@ -363,8 +387,8 @@ Sub GPS_LocationChanged (Location1 As Location)
Dim distance As Long Dim distance As Long
distance = l1.DistanceTo(l2) 'the result is in meter distance = l1.DistanceTo(l2) 'the result is in meter
gest.Visible = True gest.Visible = True
Log(distance) ' Log(distance)
If distance < 30 Then If distance < 3000000000000000000000000000000000000000000000000000 Then
Tels.Visible = True Tels.Visible = True
gest.Visible = True gest.Visible = True
LA_GEO.TextColor = Colors.Blue LA_GEO.TextColor = Colors.Blue
@@ -443,78 +467,101 @@ Sub DATOS_Click
B4XPages.ShowPage("telefonos") B4XPages.ShowPage("telefonos")
End Sub End Sub
Sub Guardar_Click Sub Guardar_Click
If l_total.Text = Null Or l_total.Text = "null" Then If l_total.Text = Null Or l_total.Text = "null" Then
et_Solicita.Text=""
Solicita=""
B4XPages.ShowPage("Principal") B4XPages.ShowPage("Principal")
Log("aqui no guarde nada") Log("aqui no guarde nada")
Else If l_total.Text < 150 Then Else If l_total.Text < 150 Then
Private resu As Int = Msgbox2("El pedido es menor a 150 y se borrara, desea continuar ?","Atención", "Continuar", "", "Cancelar",LoadBitmap(File.DirAssets,"alert2.png")) Private resu As Int = Msgbox2("El pedido es menor a 150 y se borrara, desea continuar ?","Atención", "Continuar", "", "Cancelar",LoadBitmap(File.DirAssets,"alert2.png"))
If resu = DialogResponse.POSITIVE Then If resu = DialogResponse.POSITIVE Then
Subs.borraPedidoClienteActual Subs.borraPedidoClienteActual
ToastMessageShow("Venta Borrada", False) ToastMessageShow("Venta Borrada", False)
et_Solicita.Text=""
Solicita=""
B4XPage_Appear B4XPage_Appear
End If End If
Else Else
DateTime.DateFormat = "MM/dd/yyyy" If et_Solicita.Text <> "" Then
sDate=DateTime.Date(DateTime.Now)
sTime=DateTime.Time(DateTime.Now) DateTime.DateFormat = "MM/dd/yyyy"
c=skmt.ExecQuery("Select CUENTA from cuentaa") sDate=DateTime.Date(DateTime.Now)
c.Position=0 sTime=DateTime.Time(DateTime.Now)
clie_id = c.GetString("CUENTA") c=skmt.ExecQuery("Select CUENTA from cuentaa")
c.Close c.Position=0
c=skmt.ExecQuery("select USUARIO from usuarioa") clie_id = c.GetString("CUENTA")
c.Position=0 c.Close
usuario = c.GetString("USUARIO") c=skmt.ExecQuery("select USUARIO from usuarioa")
c.Close c.Position=0
c = skmt.ExecQuery("Select sum(pe_costo_tot) As TOTAL_CLIE, SUM(PE_CANT) As CANT_CLIE, COUNT(*) As CUANTOS, PC_ENVIO_OK FROM PEDIDO left join PEDIDO_CLIENTE Where pc_cliente = pe_cliente And PE_CLIENTE IN (Select cuenta from cuentaa)") usuario = c.GetString("USUARIO")
c.Position=0 c.Close
If c.GetString("CUANTOS") > 0 Then
Private cbFactura As Int = 0 c = skmt.ExecQuery("Select sum(pe_costo_tot) As TOTAL_CLIE, SUM(PE_CANT) As CANT_CLIE, COUNT(*) As CUANTOS, PC_ENVIO_OK FROM PEDIDO left join PEDIDO_CLIENTE Where pc_cliente = pe_cliente And PE_CLIENTE IN (Select cuenta from cuentaa)")
If cb_factura.Checked Then cbFactura = 1 c.Position=0
skmt.ExecNonQuery("delete from NOVENTA where NV_CLIENTE In (select cuenta from cuentaa)")
skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") If c.GetString("CUANTOS") > 0 Then
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, c.GetString("PC_ENVIO_OK"), cbFactura)) Private cbFactura As Int = 0
skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)") If cb_factura.Checked Then cbFactura = 1
End If skmt.ExecNonQuery("delete from NOVENTA where NV_CLIENTE In (select cuenta from cuentaa)")
c.Close skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
DateTime.TimeFormat = "HHmmss" 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, PC_SOLICITA) 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, c.GetString("PC_ENVIO_OK"), cbFactura, et_Solicita.Text))
sTime=DateTime.Time(DateTime.Now) LogColor("------------!!!!"&et_Solicita.Text, Colors.Gray)
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)) skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
' skmt.ExecNonQuery("UPDATE HIST_STAY_STORE set HSS_TOT = HSS_OUT - HSS_IN where HSS_CODIGO In (select cuenta from cuentaa)")
Try End If
c=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, " & _
c.Close
DateTime.TimeFormat = "HHmmss"
sTime=DateTime.Time(DateTime.Now)
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))
' skmt.ExecNonQuery("UPDATE HIST_STAY_STORE set HSS_TOT = HSS_OUT - HSS_IN where HSS_CODIGO In (select cuenta from cuentaa)")
Try
c=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)) " & _ "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, " & _ " 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)) " & _ "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 " & _ " 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) ") " from HIST_STAY_STORE where HSS_CODIGO In (Select cuenta from cuentaa) ")
c.Position = 0 c.Position = 0
stay_hh = c.GetString("HORAS_TOTALES") * 60 * 60 stay_hh = c.GetString("HORAS_TOTALES") * 60 * 60
stay_mi = c.GetString("MINUTOS_TOTALES") * 60 stay_mi = c.GetString("MINUTOS_TOTALES") * 60
stay_ss = c.GetString("SEGUNDOS_TOTALES") stay_ss = c.GetString("SEGUNDOS_TOTALES")
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)) 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))
skmt.ExecNonQuery2("UPDATE HIST_STAY_OUT set HSO_FIN = ? ", Array As Object(sTime)) skmt.ExecNonQuery2("UPDATE HIST_STAY_OUT set HSO_FIN = ? ", Array As Object(sTime))
c.Close c.Close
Catch Catch
ToastMessageShow(".",True) ToastMessageShow(".",True)
End Try 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)) 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) ' LogColor($"actualizamos "${la_cuenta.text}, hora_final=${DateTime.now}"$,Colors.Red)
Subs.actualizaTET(la_cuenta.text) Subs.actualizaTET(la_cuenta.text)
DateTime.TimeFormat = "HH:mm:ss" DateTime.TimeFormat = "HH:mm:ss"
' mandaPendientes 'LO COMENTAMOS PARA PRUEBAS, ACTIVAR AL FINAL!!! ' mandaPendientes 'LO COMENTAMOS PARA PRUEBAS, ACTIVAR AL FINAL!!!
B4XPages.MainPage.productos.reiniciarlistaProds = True B4XPages.MainPage.productos.reiniciarlistaProds = True
B4XPages.MainPage.productos.prodsMap.Initialize B4XPages.MainPage.productos.prodsMap.Initialize
B4XPages.MainPage.promos.promosMap.Initialize B4XPages.MainPage.promos.promosMap.Initialize
B4XPages.ShowPage("Principal") et_Solicita.Text=""
Solicita=""
B4XPages.ShowPage("Principal")
Else
MsgboxAsync("El campo de 'Solicita', no puede quedar vacio.","ATENCION")
End If
End If End If
End Sub
Private Sub et_Solicita_TextChanged (Old As String, New As String)
Solicita = New
End Sub End Sub
Sub NUEVO_Click Sub NUEVO_Click

27
B4A/C_Principal.bas
View File

@@ -559,15 +559,17 @@ Sub Subir_Click
c.Close c.Close
' PEDIO_CLIENTE ' PEDIO_CLIENTE
c=Starter.skmt.ExecQuery("SELECT PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT, PC_COSTO_SIN, PC_RUTA, PC_ALMACEN, PC_FACTURA FROM PEDIDO_CLIENTE ") c=Starter.skmt.ExecQuery("SELECT PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT, PC_COSTO_SIN, PC_RUTA, PC_ALMACEN, PC_FACTURA, PC_SOLICITA FROM PEDIDO_CLIENTE ")
d=Starter.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE ") d=Starter.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE ")
If c.RowCount>0 Then If c.RowCount>0 Then
For i=0 To c.RowCount -1 For i=0 To c.RowCount -1
c.Position=i c.Position=i
Dim cmd As DBCommand Dim cmd As DBCommand
cmd.Initialize cmd.Initialize
cmd.Name = "insert_pedidos_PRO" cmd.Name = "insert_pedidos_pro2"
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"), ALMACEN, l_ruta.text, c.GetString("PC_COSTO_SIN"), c.GetString("PC_FACTURA")) LogColor(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")&","& ALMACEN&","& l_ruta.text&","& c.GetString("PC_COSTO_SIN")&","& c.GetString("PC_FACTURA")&","& c.GetString("PC_SOLICITA"),Colors.Magenta)
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"), ALMACEN, l_ruta.text, c.GetString("PC_COSTO_SIN"), c.GetString("PC_SOLICITA"))
reqManager.ExecuteCommand(cmd , "ins_pedidos") reqManager.ExecuteCommand(cmd , "ins_pedidos")
Next Next
End If End If
@@ -1012,7 +1014,7 @@ Sub JobDone(Job As HttpJob)
End If End If
If RESULT.Tag = "ins_pedidos" Then If RESULT.Tag = "ins_pedidos" Then
For Each records() As Object In RESULT.Rows For Each records() As Object In RESULT.Rows
Log("==========================REGISTROS="&RESULT.Rows) ' Log("==========================REGISTROS="&RESULT.Rows)
For Each k As String In RESULT.Columns.Keys For Each k As String In RESULT.Columns.Keys
Log(RESULT.Tag & ": " & k & ": " & records(RESULT.Columns.Get(k))) Log(RESULT.Tag & ": " & k & ": " & records(RESULT.Columns.Get(k)))
Next Next
@@ -1025,6 +1027,11 @@ Sub JobDone(Job As HttpJob)
Next Next
LogColor("**************************"&n, Colors.Green) LogColor("**************************"&n, Colors.Green)
If n = "OKActivo" Then If n = "OKActivo" Then
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_PRO2_224_2"
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text)
reqManager.ExecuteQuery(cmd , 0, "ruta")
Log("Usuario guardado en BD es 'Valido'") Log("Usuario guardado en BD es 'Valido'")
Else If n = "OKExpirado" Then Else If n = "OKExpirado" Then
Msgbox("Usuario Expirado llamar al administrador","") 'ignore Msgbox("Usuario Expirado llamar al administrador","") 'ignore
@@ -1803,19 +1810,12 @@ Sub connecta_Click
Private usrT As String = c.GetString("USUARIO") Private usrT As String = c.GetString("USUARIO")
Private passT As String = c.GetString("PASS") Private passT As String = c.GetString("PASS")
cmd.Initialize cmd.Initialize
cmd.Name = "select_usuario_guna_PRO_1" cmd.Name = "select_usuario_guna_PRO"
cmd.Parameters = Array As Object(usrT, passT) cmd.Parameters = Array As Object(usrT, passT)
reqManager.ExecuteQuery(cmd , 0, "usuarioA") reqManager.ExecuteQuery(cmd , 0, "usuarioA")
End If End If
c.Close c.Close
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_PRO2_224_2"
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text)
reqManager.ExecuteQuery(cmd , 0, "ruta")
If e_ruta.Text = "KMTS1" Then If e_ruta.Text = "KMTS1" Then
cargar.Visible = True cargar.Visible = True
Subir.Visible = True Subir.Visible = True
@@ -2456,4 +2456,5 @@ Sub checaPedido
If c.RowCount > 0 Then If c.RowCount > 0 Then
Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 3 WHERE CAT_CL_CODIGO IN (SELECT NV_CLIENTE FROM NOVENTA)") Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 3 WHERE CAT_CL_CODIGO IN (SELECT NV_CLIENTE FROM NOVENTA)")
End If End If
End Sub End Sub

4
B4A/C_Productos.bas
View File

@@ -832,9 +832,9 @@ Private Sub clv_prods_ll_VisibleRangeChanged (FirstIndex As Int, LastIndex As In
Pnl.LoadLayout("proditem") Pnl.LoadLayout("proditem")
p_prods.Width = Root.Width * 0.92 p_prods.Width = Root.Width * 0.92
p_botMasMen.Left = p_prods.Width - (p_botMasMen.Width + 5) p_botMasMen.Left = p_prods.Width - (p_botMasMen.Width + 5)
Log("1") ' Log("1")
p_prods.Height = 200dip p_prods.Height = 200dip
Log("2") ' Log("2")
Pnl.Height = 300dip Pnl.Height = 300dip
' p_prods.Height = 200dip ' p_prods.Height = 200dip
Private cs As CSBuilder Private cs As CSBuilder

BIN
B4A/Files/cliente.bal
View File

Binary file not shown.

2
B4A/Profina.b4a
View File

@@ -1064,7 +1064,7 @@ Module9=C_NoVenta
NumberOfFiles=499 NumberOfFiles=499
NumberOfLibraries=35 NumberOfLibraries=35
NumberOfModules=27 NumberOfModules=27
Version=12.5 Version=12.8
@EndOfDesignText@ @EndOfDesignText@
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Profina #ApplicationLabel: Profina

4
B4A/Profina.b4a.meta
View File

@@ -82,6 +82,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=C_Principal,B_OK_PAS_Click,1994,0,Diseñador Visual,cliente.bal,-100,2,C_Cliente,MODS,0,0,C_Cliente,B_GUARDA_C_Click,692,0,C_Cliente,B4XPage_Appear,329,0,C_NoVenta,Class_Globals,0,0,C_Principal,Subir_Click,730,0,C_Cliente,GPS_LocationChanged,359,0,C_Principal,Class_Globals,0,0,C_Principal,checaPedido,2450,6,MAPA_RUTAS,MapFragment1_Ready,191,0 NavigationStack=C_Productos,clv_prods_ll_VisibleRangeChanged,862,0,C_Principal,e_ruta_TextChanged,2247,0,C_Productos,Busca_TextChanged,863,0,C_Cliente,et_Solicita_TextChanged,551,3,C_Productos,et_pCant_TextChanged,524,0,C_Cliente,Class_Globals,140,0,C_Cliente,B4XPage_Appear,358,6,C_Cliente,b_mapa_Click,629,0,C_Cliente,B_IMP_Click,635,0,appUpdater,Service_Create,102,0,B4XMainPage,Class_Globals,22,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=1,2,3,12,4,5,6,7,8,9,23 VisibleModules=1,2,3,12,4,5,6,7,8,9,13