cheveguerra/Durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Durakelo.git synced 2026-04-17 19:36:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.02.08

Browse Source 
- Se agregó Conagra al resumen dia.
- Se puso la versión en el titulo de Principal y Cliente
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-02-10 12:29:52 -06:00
parent e72dabb069
commit 814bfb136c
7 changed files with 78 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
B4A/C_Cliente.bas
View File

@@ -178,6 +178,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.RemoveAllViews
Root.LoadLayout("Cliente")
B4XPages.SetTitle(Me, "Cliente - " & Application.VersionName)
cuest.Initialize(Me, "cuest", Root, Starter.skmt)
c= Starter.skmt.ExecQuery("select 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_MTOCOMPRA,CAT_CL_BFACTURA,CAT_CL_BCREDITO from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
s = Starter.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
@@ -1861,7 +1862,7 @@ Sub Cuestionario
' Log("--------------------------------")
' Log(gruposPermitidos)
' Log("--------------------------------")
Log(gr.GetString("CAT_EP_RUTAS"))
' Log(gr.GetString("CAT_EP_RUTAS"))
' Private enc As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_EP_ID, CAT_EP_IDTIPOPREGUNTA, CAT_CE_DESCRIPCION, CAT_EP_PREGUNTA, CAT_EP_RES1_PRED, CAT_EP_RES2_PRED, CAT_EP_RES3_PRED, CAT_EP_ORDEN_PREGUNTA FROM CAT_ENCUESTA_PREGUNTA where CAT_EP_IDGRUPO in(${gruposPermitidos}) ORDER BY CAT_CE_DESCRIPCION, CAST(CAT_EP_ORDEN_PREGUNTA AS DECIMAL)"$)
' Log(enc.RowCount)
gr.Close
@@ -1876,10 +1877,14 @@ Sub Cuestionario
CUANTOS = 0
If logger Then Log($"Tomar_Foto = ${TOMAR_FOTO}"$)
If TOMAR_FOTO = 0 Then
s = Starter.skmt.ExecQuery("select COUNT(*) AS CUANTOS from HIST_ENCUESTA3 where HE_CLIE In (Select cuenta from cuentaa)")
s = Starter.skmt.ExecQuery("select COUNT(*) AS CUANTOS from HIST_ENCUESTA where HE_CLIE In (Select cuenta from cuentaa)")
s.Position= 0
CUANTOS = s.GetString("CUANTOS")
Private CUANTOS2 As Int = 0
s = Starter.skmt.ExecQuery("select COUNT(*) AS CUANTOS from HIST_ENCUESTA3 where HE_CLIE In (Select cuenta from cuentaa)")
s.Position= 0
CUANTOS2 = s.GetString("CUANTOS")
' Private CUANTOS2 As Int = 0
End If
If logger Then Log(CUANTOS & "|" & CUANTOS2)
If CUANTOS = 0 And CUANTOS2 = 0 Then