From f884e7986c61302b12097456c5cc8163eecdb1d0 Mon Sep 17 00:00:00 2001 From: cvaldes1201 Date: Wed, 12 Jun 2024 17:10:30 -0600 Subject: [PATCH] cambio de ticket que solo imprima venta y validacion de usuario si no esta activo --- B4A/C_Cliente.bas | 176 +++++++++++++++++++++--------------------- B4A/C_Principal.bas | 72 +++++++++++++---- B4A/Files/cliente.bal | Bin 35459 -> 35459 bytes B4A/INTMEX.b4a | 2 +- B4A/INTMEX.b4a.meta | 2 +- 5 files changed, 146 insertions(+), 106 deletions(-) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 508c9c0..2fbf0ce 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -742,82 +742,82 @@ Sub B_IMP_Click Printer1.WriteString("Entre calle1: " & l_entre1.Text & CRLF) Printer1.WriteString("Entre Calle2: " & l_entre2.Text & CRLF) - c = skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_FOLIO = ?",Array As String("PREVENTA")) - If c.RowCount > 0 Then - Printer1.WriteString("-----------PREVENTA-----------" & CRLF) - ' aqui es donde esta el pedo de julieta de los descuentos quitar el precio2 pero meter un if para saber si es ruta especial o es normal o que show. - s=skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU,PE_CANT * PE_COSTOU AS PE_COSTO_TOT, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT,PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_FOLIO = ? AND LENGTH(PE_CEDIS) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PROID", Array As String("PREVENTA")) - If S.RowCount>0 Then - For i=0 To S.RowCount -1 - S.Position=i - If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then - Printer1.WriteString(s.GetString("PE_PRONOMBRE") & CRLF) - - Else - - Printer1.WriteString(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & CRLF) - TAMANO = s.GetLong("L_CANT") + TAMANO - TAMANO = s.GetLong("L_COSTOU") + TAMANO - TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO - - ESPACIO = ESPACIO - TAMANO - - For E=0 To ESPACIO -1 - BLANCO = " " & BLANCO - Next - Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & " $" & s.GETSTRING("PE_COSTO_TOT") & CRLF ) - TAMANO = 0 - ESPACIO = 21 - BLANCO = " " - End If - Next - End If - s.Close - Printer1.WriteString(" " & CRLF) - s=skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU,PE_CANT * PE_COSTOU AS PE_COSTO_TOT, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT,PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_FOLIO = ? AND LENGTH(PE_CEDIS) > 3 AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP ) AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS, PE_COSTOU", Array As String("PREVENTA")) - If S.RowCount>0 Then - Printer1.WriteString("-------PROMOS PREVENTA--------" & CRLF) - For i=0 To S.RowCount -1 - S.Position=i - If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then - Printer1.WriteString(s.GetString("PE_PRONOMBRE") & CRLF) - - Else - - Printer1.WriteString(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & CRLF) - TAMANO = s.GetLong("L_CANT") + TAMANO - TAMANO = s.GetLong("L_COSTOU") + TAMANO - TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO - - ESPACIO = ESPACIO - TAMANO - - For E=0 To ESPACIO -1 - BLANCO = " " & BLANCO - Next - Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & " $" & s.GETSTRING("PE_COSTO_TOT") & CRLF ) - TAMANO = 0 - ESPACIO = 21 - BLANCO = " " - End If - Next - Printer1.WriteString(" " & CRLF) - End If - s.Close - - s=skmt.ExecQuery2("select SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) AND PE_FOLIO = ?", Array As String("PREVENTA")) - s.Position =0 - ' If s.GetString("TOTAL") - s.GetString("TOTAL2") <> 0 Then - ' Printer1.WriteString("Descuento: $" & (s.GetString("TOTAL2") - s.GetString("TOTAL"))) - ' End If - Printer1.WriteString("Total preventa: $" & s.GetString("TOTAL") & CRLF) - s.Close - c= skmt.ExecQuery2("select sum(PE_CANT) as PC_NOART from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP ) AND PE_FOLIO = ?", Array As String("PREVENTA")) - C.Position=0 - Printer1.WriteString("Total articulos preventa: " & c.GetString("PC_NOART") & CRLF) - c.Close - - Printer1.WriteString(" " & CRLF) - End If +' c = skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_FOLIO = ?",Array As String("PREVENTA")) +' If c.RowCount > 0 Then +' Printer1.WriteString("-----------PREVENTA-----------" & CRLF) +' ' aqui es donde esta el pedo de julieta de los descuentos quitar el precio2 pero meter un if para saber si es ruta especial o es normal o que show. +' s=skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU,PE_CANT * PE_COSTOU AS PE_COSTO_TOT, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT,PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_FOLIO = ? AND LENGTH(PE_CEDIS) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PROID", Array As String("PREVENTA")) +' If S.RowCount>0 Then +' For i=0 To S.RowCount -1 +' S.Position=i +' If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then +' Printer1.WriteString(s.GetString("PE_PRONOMBRE") & CRLF) +' +' Else +' +' Printer1.WriteString(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & CRLF) +' TAMANO = s.GetLong("L_CANT") + TAMANO +' TAMANO = s.GetLong("L_COSTOU") + TAMANO +' TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO +' +' ESPACIO = ESPACIO - TAMANO +' +' For E=0 To ESPACIO -1 +' BLANCO = " " & BLANCO +' Next +' Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & " $" & s.GETSTRING("PE_COSTO_TOT") & CRLF ) +' TAMANO = 0 +' ESPACIO = 21 +' BLANCO = " " +' End If +' Next +' End If +' s.Close +' Printer1.WriteString(" " & CRLF) +' s=skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU,PE_CANT * PE_COSTOU AS PE_COSTO_TOT, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT,PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_FOLIO = ? AND LENGTH(PE_CEDIS) > 3 AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP ) AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS, PE_COSTOU", Array As String("PREVENTA")) +' If S.RowCount>0 Then +' Printer1.WriteString("-------PROMOS PREVENTA--------" & CRLF) +' For i=0 To S.RowCount -1 +' S.Position=i +' If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then +' Printer1.WriteString(s.GetString("PE_PRONOMBRE") & CRLF) +' +' Else +' +' Printer1.WriteString(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & CRLF) +' TAMANO = s.GetLong("L_CANT") + TAMANO +' TAMANO = s.GetLong("L_COSTOU") + TAMANO +' TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO +' +' ESPACIO = ESPACIO - TAMANO +' +' For E=0 To ESPACIO -1 +' BLANCO = " " & BLANCO +' Next +' Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & " $" & s.GETSTRING("PE_COSTO_TOT") & CRLF ) +' TAMANO = 0 +' ESPACIO = 21 +' BLANCO = " " +' End If +' Next +' Printer1.WriteString(" " & CRLF) +' End If +' s.Close +' +' s=skmt.ExecQuery2("select SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) AND PE_FOLIO = ?", Array As String("PREVENTA")) +' s.Position =0 +' ' If s.GetString("TOTAL") - s.GetString("TOTAL2") <> 0 Then +' ' Printer1.WriteString("Descuento: $" & (s.GetString("TOTAL2") - s.GetString("TOTAL"))) +' ' End If +' Printer1.WriteString("Total preventa: $" & s.GetString("TOTAL") & CRLF) +' s.Close +' c= skmt.ExecQuery2("select sum(PE_CANT) as PC_NOART from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP ) AND PE_FOLIO = ?", Array As String("PREVENTA")) +' C.Position=0 +' Printer1.WriteString("Total articulos preventa: " & c.GetString("PC_NOART") & CRLF) +' c.Close +' +' Printer1.WriteString(" " & CRLF) +' End If c = skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_FOLIO = ?",Array As String("VENTA")) If c.RowCount > 0 Then @@ -894,19 +894,19 @@ Sub B_IMP_Click c.Close End If Printer1.WriteString(" " & CRLF) - Printer1.WriteString("------------------------------" & CRLF) +' Printer1.WriteString("------------------------------" & CRLF) - s=skmt.ExecQuery("select SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") - s.Position =0 - ' If s.GetString("TOTAL") - s.GetString("TOTAL2") <> 0 Then - ' Printer1.WriteString("Descuento: $" & (s.GetString("TOTAL2") - s.GetString("TOTAL"))) - ' End If - Printer1.WriteString("Total: $" & s.GetString("TOTAL") & CRLF) - s.Close - c= skmt.ExecQuery("select sum(PE_CANT) as PC_NOART from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP )") - C.Position=0 - Printer1.WriteString("Total Articulos: " & c.GetString("PC_NOART") & CRLF) - c.Close +' s=skmt.ExecQuery("select SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") +' s.Position =0 +' ' If s.GetString("TOTAL") - s.GetString("TOTAL2") <> 0 Then +' ' Printer1.WriteString("Descuento: $" & (s.GetString("TOTAL2") - s.GetString("TOTAL"))) +' ' End If +' Printer1.WriteString("Total: $" & s.GetString("TOTAL") & CRLF) +' s.Close +' c= skmt.ExecQuery("select sum(PE_CANT) as PC_NOART from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP )") +' C.Position=0 +' Printer1.WriteString("Total Articulos: " & c.GetString("PC_NOART") & CRLF) +' c.Close Printer1.WriteString(" " & CRLF) Printer1.WriteString("------------------------------" & CRLF) diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index f3e34cb..cece7fa 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -1076,25 +1076,50 @@ Sub JobDone(Job As HttpJob) Next Next End If +' If RESULT.Tag = "usuarioA" Then 'query tag +' Private n As String = "Sin Usuario" +' For Each records() As Object In RESULT.Rows +' n = records(RESULT.Columns.Get("USUARIO")) +' Next +' LogColor("**************************"&n, Colors.Green) +' If n = "OKActivo" Then +' Log("Usuario guardado en BD es 'Valido'") +' Else If n = "OKExpirado" Then +' Msgbox("Usuario Expirado llamar al administrador","") 'ignore +' B4XPages.ShowPage("B4XMainPage") +' Else If n = "OKCancelado" Then +' Msgbox("Usuario Cancelado llamar al administrador","") 'ignore +' B4XPages.ShowPage("B4XMainPage") +' Else +' Msgbox("Usuario o password No validos","") 'ignore +' B4XPages.ShowPage("B4XMainPage") +' End If +' Log("***************** "&n) +' End If + + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "usuarioA" Then 'query tag Private n As String = "Sin Usuario" For Each records() As Object In RESULT.Rows n = records(RESULT.Columns.Get("USUARIO")) Next - LogColor("**************************"&n, Colors.Green) + Log(n) + 'Logcolor("**************************"&n, Colors.Green) If n = "OKActivo" Then - Log("Usuario guardado en BD es 'Valido'") - Else If n = "OKExpirado" Then - Msgbox("Usuario Expirado llamar al administrador","") 'ignore - B4XPages.ShowPage("B4XMainPage") - Else If n = "OKCancelado" Then - Msgbox("Usuario Cancelado llamar al administrador","") 'ignore - B4XPages.ShowPage("B4XMainPage") + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "select_ruta_DUR3" 'Se cambio de "select_ruta_DUR2_2" el 28/5/2024 para poder deshabilitar el query de las versiones anteriores. + cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei) + Log($"${ALMACEN},${e_ruta.text},${imei}"$) + reqManager.ExecuteQuery(cmd , 0, "ruta") Else Msgbox("Usuario o password No validos","") 'ignore - B4XPages.ShowPage("B4XMainPage") + B4XPages.MainPage.skmt.ExecNonQuery("delete from USUARIOA") + ExitApplication End If - Log("***************** "&n) + 'Log("***************** "&n) End If End If @@ -1870,6 +1895,7 @@ Sub JobDone(Job As HttpJob) Next End If End If + End If Job.Release End Sub @@ -1915,12 +1941,26 @@ Sub connecta_Click ' End If ' c.Close - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "select_ruta_INTMEX_7" - cmd.Parameters = Array As Object(ALMACEN, e_ruta.text) -' Log($"${ALMACEN},${e_ruta.text},${imei}"$) - reqManager.ExecuteQuery(cmd , 0, "ruta") + c=Starter.skmt.ExecQuery("select USUARIO, PASS from usuarioa") + c.Position=0 + If c.RowCount > 0 And c.GetString("USUARIO") <> "KMTS1" Then + Private usrT As String = c.GetString("USUARIO") + Private passT As String = c.GetString("PASS") + Log(usrT) + Log(passT) + cmd.Initialize + cmd.Name = "select_usuario_INTMEX_10" + cmd.Parameters = Array As Object(usrT, passT) + reqManager.ExecuteQuery(cmd , 0, "usuarioA") + End If + c.Close + +' Dim cmd As DBCommand +' cmd.Initialize +' cmd.Name = "select_ruta_INTMEX_7" +' cmd.Parameters = Array As Object(ALMACEN, e_ruta.text) +'' Log($"${ALMACEN},${e_ruta.text},${imei}"$) +' reqManager.ExecuteQuery(cmd , 0, "ruta") If e_ruta.Text = "KMTS1" Then cargar.Visible = True diff --git a/B4A/Files/cliente.bal b/B4A/Files/cliente.bal index f7dec358b82a5d219298e533dfa2aca2130cda8e..790fc97ae490698ac9c2f20f05f5710aa87f7b27 100644 GIT binary patch delta 39 xcmV+?0NDS7l>&p60