From de3828ea8f78c01175b465e4058f847090036d33 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Thu, 22 Feb 2024 21:21:26 -0600 Subject: [PATCH] =?UTF-8?q?-=20Se=20agrega=20codigo=20para=20que=20si=20ha?= =?UTF-8?q?y=20venta,=20el=20boton=20de=20"NO=20VENTA"=20se=20deshabilite.?= =?UTF-8?q?=20-=20Se=20agrega=20codigo=20para=20que=20cuando=20se=20muestr?= =?UTF-8?q?e=20la=20panatalla=20de=20login=20se=20atualice=20la=20fecha=20?= =?UTF-8?q?en=20CAT=5FVARIABLES,=20porque=20a=20veces=20se=20quedaba=20la?= =?UTF-8?q?=20fecha=20del=20dia=20anterior=20y=20no=20dejaba=20hacer=20FIN?= =?UTF-8?q?=20DIA,=20era=20necesario=20cargar=20d=C3=ADa=20y=20luego=20ya?= =?UTF-8?q?=20dejaba=20hacer=20FIN=20DIA.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/B4XMainPage.bas | 24 +++++++++++++++--------- B4A/C_Cliente.bas | 5 ++++- B4A/C_TicketsDia.bas | 4 ++++ B4A/Files/cliente.bal | Bin 104418 -> 104418 bytes B4A/Files/ticketsdia.bal | Bin 4363 -> 4800 bytes B4A/KelloggsV4.b4a | 2 +- B4A/KelloggsV4.b4a.meta | 10 +++++----- 7 files changed, 29 insertions(+), 16 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 0f313fc..8442114 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -192,10 +192,8 @@ Private Sub B4XPage_Created (Root1 As B4XView) ruta = Starter.ruta Starter.tiempos.Initialize - - kh.guardaAppInfo - + ' Try 'Intentamos usar "pragma_table_info" para revisar si existe la columna "IMPRESION" en la tabla ' c=Starter.skmt.ExecQuery("SELECT COUNT(*) AS fCol FROM pragma_table_info('kmt_info') WHERE name='IMPRESION'") ' c.Position = 0 @@ -423,6 +421,11 @@ Sub B4XPage_Appear End If c.Close End If +' Log(">>>>>> FECHA") + cmd.Initialize + cmd.Name = "select_fecha" + cmd.Parameters = Array As Object("", "") + reqManager.ExecuteQuery(cmd , 0, "fecha") End Sub 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. @@ -482,18 +485,14 @@ Sub JobDone(Job As HttpJob) Starter.skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object (CAT_VE_VERSION)) Next End If - End If - If Job.JobName = "DBRequest" Then Dim result As DBResult = reqManager.HandleJob(Job) If result.Tag = "agencia" Then 'query tag For Each records() As Object In result.Rows Dim ID_ALMACEN As String = records(result.Columns.Get("ID_ALMACEN")) Next End If - End If - If Job.JobName = "DBRequest" Then Dim result As DBResult = reqManager.HandleJob(Job) If result.Tag = "fecha" Then 'query tag For Each records() As Object In result.Rows @@ -502,9 +501,7 @@ Sub JobDone(Job As HttpJob) Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FECHA", Starter.FECHA_HOY)) Next End If - End If - If Job.JobName = "DBRequest" Then Dim result As DBResult = reqManager.HandleJob(Job) If result.Tag = "usuario" Then 'query tag For Each records() As Object In result.Rows @@ -515,6 +512,15 @@ Sub JobDone(Job As HttpJob) Next paso1 = 1 End If + + Dim result As DBResult = reqManager.HandleJob(Job) + If result.Tag = "fecha" Then 'query tag + For Each records() As Object In result.Rows + Starter.FECHA_HOY = records(result.Columns.Get("FECHA")) + Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FECHA")) + Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FECHA",Starter.FECHA_HOY)) + Next + End If End If Job.Release End If diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index ed0c73a..3e0457d 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -329,7 +329,7 @@ Private Sub B4XPage_Created (Root1 As B4XView) La_nombre.Text = c.GetString("CAT_CL_NOMBRE") NOMBRE = c.GetString("CAT_CL_NOMBRE") la_Calle.Text = "N/A" - Log("|"&c.GetString("CAT_CL_CALLE")&"|") +' Log("|"&c.GetString("CAT_CL_CALLE")&"|") If c.GetString("CAT_CL_CALLE") <> Null Then la_Calle.Text = c.GetString("CAT_CL_CALLE") & c.GetString("CAT_CL_NOEXT") la_col.Text = "N/A" If c.GetString("CAT_CL_COLONIA") <> Null Then la_col.Text = c.GetString("CAT_CL_COLONIA") @@ -398,6 +398,9 @@ End Sub 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. Sub B4XPage_Appear + b_noVenta.Enabled = False + Log(kh.traeTotalCliente) + If kh.traeTotalCliente = 0 Then b_noVenta.Enabled = True clienteId = kh.traeCliente P_DOE.Visible = False dentroDeGeocerca = False diff --git a/B4A/C_TicketsDia.bas b/B4A/C_TicketsDia.bas index 16d9dff..72c4c88 100644 --- a/B4A/C_TicketsDia.bas +++ b/B4A/C_TicketsDia.bas @@ -12,6 +12,7 @@ Sub Class_Globals Dim ListView1 As ListView Dim b_noventa As Button Dim nombre_boton As String + Private l_titulo As Label End Sub 'You can add more parameters here. @@ -41,6 +42,7 @@ Private Sub B4XPage_Created (Root1 As B4XView) ListView1.AddTwoLines(c.GetString("PC_CLIENTE"),"Cantidad #"& c.GetString("PC_NOART")& " SubTotal $"& NumberFormat2(c.GetString("PC_MONTO"), 1, 2, 2, True)) Next End If + Subs.centraEtiqueta(l_titulo, Root.Width) End Sub 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. @@ -95,6 +97,7 @@ End Sub Sub b_noventa_Click If nombre_boton = "NOVENTA" Then + l_titulo.Text = "TICKETS NO VENTA" nombre_boton = "VENTA" b_noventa.Text ="VENTA" c=Starter.skmt.ExecQuery("select NV_CLIENTE,NV_MOTIVO,NV_COMM, (select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = NV_CLIENTE ) as NOMBRE FROM NOVENTA ORDER BY NV_CLIENTE asc") @@ -114,6 +117,7 @@ Sub b_noventa_Click Next End If Else + l_titulo.Text = "TICKETS VENTA" nombre_boton = "NOVENTA" b_noventa.Text ="NO VENTA" c=Starter.skmt.ExecQuery("select PC_CLIENTE,PC_MONTO,PC_NOART,(select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = pc_cliente ) as NOMBRE FROM PEDIDO_CLIENTE ORDER BY PC_FECHA asc") diff --git a/B4A/Files/cliente.bal b/B4A/Files/cliente.bal index 97f5676407337b8ff592d94a831e6ab0b1dddcce..2edfc18c153158ed36b04d0094494a0d1b63b551 100644 GIT binary patch delta 33 pcmaE~p6$_kwuUW?wx!JV_4U&e)fp!+MfXp3bT!z{RL1x~5di9T46FbE delta 21 dcmaE~p6$_kwuUW?wx!c1GalW}RL1x~5ddy#2{r%# diff --git a/B4A/Files/ticketsdia.bal b/B4A/Files/ticketsdia.bal index fdae84de19006efbcfc5228738820e62559c94dd..e841610bb351cf431fa997680f499d6a34dd735b 100644 GIT binary patch delta 536 zcmZ8eOD{t~6rQ29x9xpYJxU}>g6kRa+z4r?coetoZR?dt(S^97X^1o|*hwU!&d%D_ zs(TSXz=j`SB@sVC8os&GL`?FX`OY`zF*E0~?Xg|1VvJo>Fy_YYFUY3@E)Z+;aQE=Y zI*`HpBk8S-mCB{F*-TDE+kSPK3>WUx+(jxM>yn^}GG0JrDu4=TfDfoC^WrwI<9wr- zugE*9IMhMX9096z)(`&gZq7|Dgw1#`8D26&PJ~W}XF`dHDf%1f{fsqQ>~^{w{F+Ki zfR;6>XnLM_?GBC`0a2Va33A10QE3!u%rQ@v(nn`1qq_pjowB>bZRh{Awp^7rl9uW&^G*jf2?j-a+hkIz6i`^rg8eChu{B9^_uwPr1aS z^r0AP6oH+9SA33Sph2)X208&$e`DEoN8nA0fH*yRf^?_GhfKH_7n2e&VjPtKlaesD noB~-9$|}qnz>n$N>*wnQ35?b%4{Ab&5C*KU3Q-85XG delta 341 zcmXw#K}*9x5QTSYYTPE-CZ$>%vDjMattU|sJc~snS~Yr%kXzAG5D^7`fEVMO1^GD-DK8O&->y$o$$ovaH=~GBq9>bhT