mirror of
https://github.com/KeymonSoft/Medicomed_Preventa.git
synced 2026-04-19 22:09:14 +00:00
Version: 4:11:02
Se arrglo el resumen dia, ahora puedes entrar sin necesidad de hacer algun pedido sin que truene, se muestra la cantidad de clientes visitados sin importar si tienen o no tienen venta y tambien se le agrego la cantidad de clientes que si tienen venta.
This commit is contained in:
IsR0d
@@ -219,7 +219,6 @@ Sub Class_Globals
|
||||
Private lblTitle As Label
|
||||
Private B_OK_PANEL5 As Button
|
||||
|
||||
|
||||
Private p_principal As Panel
|
||||
Private p_mandaInfo As Panel
|
||||
End Sub
|
||||
@@ -306,6 +305,7 @@ End Sub
|
||||
|
||||
Sub B4XPage_Appear
|
||||
'' LogColor("Revisa permisos Phone_State", Colors.Green)
|
||||
B4XPages.MainPage.reqManager.Initialize(Me, Starter.server)
|
||||
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
|
||||
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
|
||||
If Result Then
|
||||
@@ -537,7 +537,20 @@ Sub Subir_Click
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "UPDATE_MEDI_ACTUAL2_GPS"
|
||||
cmd.Parameters = Array As Object(L_MONTOD.Text, L_CUANTOST.Text, l_cuantosc.Text,l_porvisitar.TEXT,c.GetString("hglat"),c.GetString("hglon"),batterystatus(0),LPT, STEYIN, STEYOUT,ALMACEN,l_ruta.Text )
|
||||
' L_MONTOD= Suma monto
|
||||
'L_CUANTOST = conteo de todo venta y no venta
|
||||
' l_cuantosc = conteo que tiene mponto
|
||||
Private cursor As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT Sum(montoVentav) AS MONTO_VENTA FROM VENTA_NO_VENTA")
|
||||
cursor.Position = 0
|
||||
Private cursor2 As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT (*) AS CUENTA_TODO FROM VENTA_NO_VENTA")
|
||||
cursor2.Position = 0
|
||||
Private cursor3 As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT (*) AS CUENTA_VENTA FROM VENTA_NO_VENTA WHERE montoVentaV <> 0")
|
||||
cursor3.Position = 0
|
||||
|
||||
cmd.Parameters = Array As String(cursor.GetString("MONTO_VENTA"), cursor2.GetString("CUENTA_TODO"), cursor3.GetString("CUENTA_VENTA"),l_porvisitar.TEXT,c.GetString("hglat"),c.GetString("hglon"),batterystatus(0),LPT, STEYIN, STEYOUT,ALMACEN,l_ruta.Text )
|
||||
cursor.Close
|
||||
cursor2.Close
|
||||
cursor3.Close
|
||||
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "update_gps")
|
||||
Next
|
||||
End If
|
||||
@@ -600,32 +613,43 @@ Sub Subir_Click
|
||||
' Log($"'${almacenb}', '${usuariob}', '${rutab}', '${eventob}', '${clienteb}', '${nombreCliente}','${ iniciob}', '${finb}','${ latitudb}','${ longitudb}', '${precision}', '${motivonoventa}', '${motivonovisita}', '${fechab}'"$)
|
||||
' TMP_ALMACEN, TMP_USUARIO, TMP_RUTA, TMP_EVENTO, TMP_ID_CLIENTE, TMP_NOMBRE_CLIENTE, TMP_INICIO, TMP_FINAL, TMP_LATITUD, TMP_LONGITUD, TMP_PRESICION, TMP_MOTIVO_NO_VENTA, TMP_MOTIVO_NO_VISITA, TMP_FECHA_SINC, TMP_FECHA_MOVIL
|
||||
cmd.Parameters = Array As Object(h.GetString("almacenb"), h.GetString("usuariob"), h.GetString("rutab"), eventob, clienteb, nombreCliente, h.GetString("iniciob"), finb, h.GetString("latitudb"), h.GetString("longitudb"), h.GetString("precision"), h.GetString("motivonoventa"), h.GetString("motivonovisita"), h.GetString("fechab"))
|
||||
reqManager.ExecuteCommand(cmd , "mandaBitacora")
|
||||
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "mandaBitacora")
|
||||
Loop
|
||||
Log("MANDAMOS BITACORA")
|
||||
|
||||
|
||||
'BITACORA (PROYECTO GPS)
|
||||
|
||||
' Private h As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select * from VENTA_No_VENTA"$)
|
||||
' Do While h.nextrow
|
||||
' cmd.Initialize
|
||||
' Private eventov As String = h.GetString("eventov")
|
||||
' cmd.Name = "insert_venta_no_venta_MEDICOMED"
|
||||
' Private clientev As String = h.GetString("clientev")
|
||||
' Private nombreClientev As String =Subs. traeNombreCliente(h.GetString("clientev"))
|
||||
' If eventov = "Llega a almacen" Then
|
||||
' nombreClientev = "BOLETA"
|
||||
' clientev = ""
|
||||
' End If
|
||||
' If eventov = "Salida almacen" Then nombreClientev = "CHECKLIST"
|
||||
' If eventov = "Fin Día" Then nombreClientev = "FIN DIA"
|
||||
' If eventov = "Carga día" Then nombreClientev = "CARGA DIA"
|
||||
' cmd.Parameters = Array As Object(h.GetString("usuariov"), h.GetString("almacenv"), h.GetString("rutav"), eventov, clientev, h.GetString("iniciov"), h.GetString("latitudv"), h.GetString("longitudv"), nombreClientev)
|
||||
' B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ventaNoVenta")
|
||||
' Loop
|
||||
|
||||
Private h As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select * from VENTA_No_VENTA"$)
|
||||
Do While h.nextrow
|
||||
cmd.Initialize
|
||||
Private eventov As String = h.GetString("eventov")
|
||||
cmd.Name = "insert_venta_no_venta_MEDICOMED"
|
||||
Private clientev As String = h.GetString("clientev")
|
||||
Private nombreClientev As String =Subs. traeNombreCliente(h.GetString("clientev"))
|
||||
If eventov = "Llega a almacen" Then
|
||||
nombreClientev = "BOLETA"
|
||||
clientev = ""
|
||||
End If
|
||||
If eventov = "Salida almacen" Then nombreClientev = "CHECKLIST"
|
||||
If eventov = "Fin Día" Then nombreClientev = "FIN DIA"
|
||||
If eventov = "Carga día" Then nombreClientev = "CARGA DIA"
|
||||
cmd.Parameters = Array As Object(h.GetString("usuariov"), h.GetString("almacenv"), h.GetString("rutav"), eventov, clientev, h.GetString("iniciov"), finb, h.GetString("latitudv"), h.GetString("longitudv"), nombreClientev)
|
||||
reqManager.ExecuteCommand(cmd , "ventaNoVenta")
|
||||
Loop
|
||||
|
||||
|
||||
If h.RowCount > 0 Then
|
||||
For i = 0 To h.RowCount -1
|
||||
h.Position = i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_venta_no_venta_MEDICOMED"
|
||||
cmd.Parameters = Array As Object(h.GetString("usuariov"), h.GetString("almacenv"), h.GetString("rutav"),h.GetString("eventov"),h.GetString("clientev"),h.GetString("iniciov"),h.GetString("latitudv"),h.GetString("longitudv"),h.GetString("montoVentav"))
|
||||
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ventaNoVenta")
|
||||
Next
|
||||
End If
|
||||
h.Close
|
||||
|
||||
' c=B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_NUM_SERIEFISICO,CAT_CL_CODIGO ,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_FOTO FROM kmt_info where CAT_CL_NUM_SERIEFISICO IS NOT NULL")
|
||||
' If c.RowCount>0 Then
|
||||
@@ -1732,7 +1756,7 @@ Sub connecta_Click
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_ruta_MEDI_6"
|
||||
cmd.Name = "select_ruta_MEDI_7"
|
||||
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text)
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ruta")
|
||||
|
||||
@@ -2059,23 +2083,56 @@ Sub resdia_Click
|
||||
End If
|
||||
c.Close
|
||||
Dim cuantos_obj As String
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("Select count(*) AS TOTAL from HIST_MARCAS_CUOTAS ")
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("Select count(*) AS TOTAL from HIST_MARCAS_CUOTAS")
|
||||
c.Position = 0
|
||||
cuantos_obj = c.GetString("TOTAL")
|
||||
c.Close
|
||||
|
||||
If cuantos_obj > 0 Then
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("Select SUM( HMC_TOTAL) AS TOTAL from HIST_MARCAS_CUOTAS ")
|
||||
c.Position = 0
|
||||
L_NES.Text = c.GetString("TOTAL")
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("Select SUM(IFNULL(HMC_TOTAL),0) AS TOTAL from HIST_MARCAS_CUOTAS")
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
L_NES.Text = c.GetString("TOTAL")
|
||||
Else
|
||||
L_NES.Text = "0"
|
||||
End If
|
||||
c.Close
|
||||
End If
|
||||
L_REAL.Text = l_monto_ks.Text
|
||||
L_ALCANCE.Text = Round2((L_NES.Text / L_REAL.Text + 1),2)
|
||||
|
||||
Dim c As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT IFNULL(SUM(montoVentav), 0) AS MONTO_DIA FROM VENTA_No_VENTA WHERE clientev <> 0")
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
L_REAL.Text = c.GetString("MONTO_DIA")
|
||||
Else
|
||||
L_REAL.Text = "0"
|
||||
End If
|
||||
c.Close
|
||||
|
||||
If L_REAL.Text <> "0" And L_REAL.Text <> "" Then
|
||||
L_ALCANCE.Text = NumberFormat2(L_NES.Text / L_REAL.Text + 1, 0, 2, 2, False)
|
||||
Else
|
||||
L_ALCANCE.Text = "0" 'Esto evitara que se vaya a infinito al ividir un numero en 0
|
||||
End If
|
||||
L_VPLAN.Text = l_porvisitar.Text
|
||||
L_VREAL.Text = L_CUANTOST.text
|
||||
Private cvR As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) AS CUENTAV FROM VENTA_No_VENTA")
|
||||
If cvR.RowCount > 0 Then
|
||||
cvR.Position = 0
|
||||
L_VREAL.Text = cvR.GetString("CUENTAV")
|
||||
Else
|
||||
L_VREAL.Text = "0"
|
||||
End If
|
||||
cvR.Close
|
||||
' L_VREAL.Text = L_CUANTOST.text
|
||||
L_EFEC_VIS.Text = Round2(L_VREAL.text / L_VPLAN.Text,2)
|
||||
L_VISITCC.Text = l_cuantosc.text
|
||||
Private cv As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) AS CUENTAV FROM VENTA_No_VENTA WHERE montoVentav <> 0")
|
||||
If cv.RowCount > 0 Then
|
||||
cv.Position = 0
|
||||
L_VISITCC.Text = cv.GetString("CUENTAV")
|
||||
Else
|
||||
L_VISITCC.Text = "0"
|
||||
End If
|
||||
cv.Close
|
||||
' L_VISITCC.Text = l_cuantosc.text
|
||||
L_EFEC_PV.Text = Round2(L_VISITCC.Text / L_VREAL.Text,2)
|
||||
L_EFEC_PURA.Text = Round2(L_VISITCC.Text / L_VPLAN.Text,2)
|
||||
L_LIN_TICK.Text = LPT
|
||||
|
||||
Reference in New Issue
Block a user