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

se agrega que tengan que visitar todos los clientes

Browse Source
This commit is contained in:
Javier
2025-10-30 16:17:55 -06:00
parent 0d1472d1e9
commit 3b0b5da7da
7 changed files with 38 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
B4A/C_Cliente.bas
View File

@@ -212,6 +212,33 @@ Sub B4XPage_Appear
ToastMessageShow("Es necesario tener el GPS encendido", True)
StartActivity(Starter.gps.LocationSettingsIntent)
End If
' DateTime.DateFormat = "MM/dd/yyyy"
' sDate=DateTime.Date(DateTime.Now)
' sTime=DateTime.Time(DateTime.Now)
' c=skmt.ExecQuery("Select CUENTA from cuentaa")
' c.Position=0
' clie_id = c.GetString("CUENTA")
' c.Close
' c=skmt.ExecQuery("select USUARIO from usuarioa")
' c.Position=0
' usuario = c.GetString("USUARIO")
' c.Close
'
' c = 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
' Private cbFactura As Int = 0
' If cb_factura.Checked Then cbFactura = 1
' 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)")
' 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, 0, cbFactura, et_Solicita.Text))
' LogColor("------------!!!!"&et_Solicita.Text, Colors.Gray)
' skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
'
' End If
cb_factura.Checked = False
p_abono.Visible = False
Subs.centraPanel(p_abono, Root.Width)
@@ -364,6 +391,8 @@ Sub B4XPage_Appear
cSol.Close
End If
End Sub
Sub GPS_LocationChanged (Location1 As Location)
@@ -388,7 +417,7 @@ Sub GPS_LocationChanged (Location1 As Location)
distance = l1.DistanceTo(l2) 'the result is in meter
gest.Visible = True
' Log(distance)
If distance < 3000000000000000000000000000000000000 Then
If distance < 3000000000000000000000000000000000 Then
' If distance < 30 Then
Tels.Visible = True
gest.Visible = True