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

cambio de ticket que solo imprima venta y validacion de usuario si no esta activo

Browse Source
This commit is contained in:
cvaldes1201
2024-06-12 17:10:30 -06:00
parent d10a9d324d
commit f884e7986c
5 changed files with 146 additions and 106 deletions
Download Patch File Download Diff File Expand all files Collapse all files

176
B4A/C_Cliente.bas
View File

@@ -742,82 +742,82 @@ Sub B_IMP_Click
Printer1.WriteString("Entre calle1: " & l_entre1.Text & CRLF) Printer1.WriteString("Entre calle1: " & l_entre1.Text & CRLF)
Printer1.WriteString("Entre Calle2: " & l_entre2.Text & CRLF) Printer1.WriteString("Entre Calle2: " & l_entre2.Text & CRLF)
c = skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_FOLIO = ?",Array As String("PREVENTA")) ' c = skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_FOLIO = ?",Array As String("PREVENTA"))
If c.RowCount > 0 Then ' If c.RowCount > 0 Then
Printer1.WriteString("-----------PREVENTA-----------" & CRLF) ' 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. ' ' 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")) ' 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 ' If S.RowCount>0 Then
For i=0 To S.RowCount -1 ' For i=0 To S.RowCount -1
S.Position=i ' S.Position=i
If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then ' If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
Printer1.WriteString(s.GetString("PE_PRONOMBRE") & CRLF) ' Printer1.WriteString(s.GetString("PE_PRONOMBRE") & CRLF)
'
Else ' Else
'
Printer1.WriteString(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & CRLF) ' Printer1.WriteString(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & CRLF)
TAMANO = s.GetLong("L_CANT") + TAMANO ' TAMANO = s.GetLong("L_CANT") + TAMANO
TAMANO = s.GetLong("L_COSTOU") + TAMANO ' TAMANO = s.GetLong("L_COSTOU") + TAMANO
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO ' TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
'
ESPACIO = ESPACIO - TAMANO ' ESPACIO = ESPACIO - TAMANO
'
For E=0 To ESPACIO -1 ' For E=0 To ESPACIO -1
BLANCO = " " & BLANCO ' BLANCO = " " & BLANCO
Next ' Next
Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & " $" & s.GETSTRING("PE_COSTO_TOT") & CRLF ) ' Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & " $" & s.GETSTRING("PE_COSTO_TOT") & CRLF )
TAMANO = 0 ' TAMANO = 0
ESPACIO = 21 ' ESPACIO = 21
BLANCO = " " ' BLANCO = " "
End If ' End If
Next ' Next
End If ' End If
s.Close ' s.Close
Printer1.WriteString(" " & CRLF) ' 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")) ' 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 ' If S.RowCount>0 Then
Printer1.WriteString("-------PROMOS PREVENTA--------" & CRLF) ' Printer1.WriteString("-------PROMOS PREVENTA--------" & CRLF)
For i=0 To S.RowCount -1 ' For i=0 To S.RowCount -1
S.Position=i ' S.Position=i
If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then ' If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
Printer1.WriteString(s.GetString("PE_PRONOMBRE") & CRLF) ' Printer1.WriteString(s.GetString("PE_PRONOMBRE") & CRLF)
'
Else ' Else
'
Printer1.WriteString(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & CRLF) ' Printer1.WriteString(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & CRLF)
TAMANO = s.GetLong("L_CANT") + TAMANO ' TAMANO = s.GetLong("L_CANT") + TAMANO
TAMANO = s.GetLong("L_COSTOU") + TAMANO ' TAMANO = s.GetLong("L_COSTOU") + TAMANO
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO ' TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
'
ESPACIO = ESPACIO - TAMANO ' ESPACIO = ESPACIO - TAMANO
'
For E=0 To ESPACIO -1 ' For E=0 To ESPACIO -1
BLANCO = " " & BLANCO ' BLANCO = " " & BLANCO
Next ' Next
Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & " $" & s.GETSTRING("PE_COSTO_TOT") & CRLF ) ' Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & " $" & s.GETSTRING("PE_COSTO_TOT") & CRLF )
TAMANO = 0 ' TAMANO = 0
ESPACIO = 21 ' ESPACIO = 21
BLANCO = " " ' BLANCO = " "
End If ' End If
Next ' Next
Printer1.WriteString(" " & CRLF) ' Printer1.WriteString(" " & CRLF)
End If ' End If
s.Close ' 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=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 ' s.Position =0
' If s.GetString("TOTAL") - s.GetString("TOTAL2") <> 0 Then ' ' If s.GetString("TOTAL") - s.GetString("TOTAL2") <> 0 Then
' Printer1.WriteString("Descuento: $" & (s.GetString("TOTAL2") - s.GetString("TOTAL"))) ' ' Printer1.WriteString("Descuento: $" & (s.GetString("TOTAL2") - s.GetString("TOTAL")))
' End If ' ' End If
Printer1.WriteString("Total preventa: $" & s.GetString("TOTAL") & CRLF) ' Printer1.WriteString("Total preventa: $" & s.GetString("TOTAL") & CRLF)
s.Close ' 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= 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 ' C.Position=0
Printer1.WriteString("Total articulos preventa: " & c.GetString("PC_NOART") & CRLF) ' Printer1.WriteString("Total articulos preventa: " & c.GetString("PC_NOART") & CRLF)
c.Close ' c.Close
'
Printer1.WriteString(" " & CRLF) ' Printer1.WriteString(" " & CRLF)
End If ' End If
c = skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_FOLIO = ?",Array As String("VENTA")) c = skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_FOLIO = ?",Array As String("VENTA"))
If c.RowCount > 0 Then If c.RowCount > 0 Then
@@ -894,19 +894,19 @@ Sub B_IMP_Click
c.Close c.Close
End If End If
Printer1.WriteString(" " & CRLF) 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=skmt.ExecQuery("select SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
s.Position =0 ' s.Position =0
' If s.GetString("TOTAL") - s.GetString("TOTAL2") <> 0 Then ' ' If s.GetString("TOTAL") - s.GetString("TOTAL2") <> 0 Then
' Printer1.WriteString("Descuento: $" & (s.GetString("TOTAL2") - s.GetString("TOTAL"))) ' ' Printer1.WriteString("Descuento: $" & (s.GetString("TOTAL2") - s.GetString("TOTAL")))
' End If ' ' End If
Printer1.WriteString("Total: $" & s.GetString("TOTAL") & CRLF) ' Printer1.WriteString("Total: $" & s.GetString("TOTAL") & CRLF)
s.Close ' 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= 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 ' C.Position=0
Printer1.WriteString("Total Articulos: " & c.GetString("PC_NOART") & CRLF) ' Printer1.WriteString("Total Articulos: " & c.GetString("PC_NOART") & CRLF)
c.Close ' c.Close
Printer1.WriteString(" " & CRLF) Printer1.WriteString(" " & CRLF)
Printer1.WriteString("------------------------------" & CRLF) Printer1.WriteString("------------------------------" & CRLF)

72
B4A/C_Principal.bas
View File

@@ -1076,25 +1076,50 @@ Sub JobDone(Job As HttpJob)
Next Next
Next Next
End If 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 If RESULT.Tag = "usuarioA" Then 'query tag
Private n As String = "Sin Usuario" Private n As String = "Sin Usuario"
For Each records() As Object In RESULT.Rows For Each records() As Object In RESULT.Rows
n = records(RESULT.Columns.Get("USUARIO")) n = records(RESULT.Columns.Get("USUARIO"))
Next Next
LogColor("**************************"&n, Colors.Green) Log(n)
'Logcolor("**************************"&n, Colors.Green)
If n = "OKActivo" Then If n = "OKActivo" Then
Log("Usuario guardado en BD es 'Valido'") Dim cmd As DBCommand
Else If n = "OKExpirado" Then cmd.Initialize
Msgbox("Usuario Expirado llamar al administrador","") 'ignore 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.
B4XPages.ShowPage("B4XMainPage") cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei)
Else If n = "OKCancelado" Then Log($"${ALMACEN},${e_ruta.text},${imei}"$)
Msgbox("Usuario Cancelado llamar al administrador","") 'ignore reqManager.ExecuteQuery(cmd , 0, "ruta")
B4XPages.ShowPage("B4XMainPage")
Else Else
Msgbox("Usuario o password No validos","") 'ignore Msgbox("Usuario o password No validos","") 'ignore
B4XPages.ShowPage("B4XMainPage") B4XPages.MainPage.skmt.ExecNonQuery("delete from USUARIOA")
ExitApplication
End If End If
Log("***************** "&n) 'Log("***************** "&n)
End If End If
End If End If
@@ -1870,6 +1895,7 @@ Sub JobDone(Job As HttpJob)
Next Next
End If End If
End If End If
End If
Job.Release Job.Release
End Sub End Sub
@@ -1915,12 +1941,26 @@ Sub connecta_Click
' End If ' End If
' c.Close ' c.Close
Dim cmd As DBCommand c=Starter.skmt.ExecQuery("select USUARIO, PASS from usuarioa")
cmd.Initialize c.Position=0
cmd.Name = "select_ruta_INTMEX_7" If c.RowCount > 0 And c.GetString("USUARIO") <> "KMTS1" Then
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text) Private usrT As String = c.GetString("USUARIO")
' Log($"${ALMACEN},${e_ruta.text},${imei}"$) Private passT As String = c.GetString("PASS")
reqManager.ExecuteQuery(cmd , 0, "ruta") 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 If e_ruta.Text = "KMTS1" Then
cargar.Visible = True cargar.Visible = True

BIN
B4A/Files/cliente.bal
View File

Binary file not shown.

2
B4A/INTMEX.b4a
View File

@@ -164,7 +164,7 @@ Version=12.8
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Intmex #ApplicationLabel: Intmex
#VersionCode: 1 #VersionCode: 1
#VersionName: 4.06.07 #VersionName: 4.06.09
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

2
B4A/INTMEX.b4a.meta
View File

@@ -88,6 +88,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=Starter,Process_Globals,30,0,Starter,ENVIA_ULTIMA_GPS,90,0,Starter,reinicializaReqManager,118,0,C_Cliente,StartPrinter,890,0,C_Cliente,B_IMP_Click,911,0,C_Cliente,B4XPage_Appear,233,0,C_Principal,Class_Globals,0,0,C_Principal,B4XPage_Appear,524,0,C_Principal,JobDone,1122,0,Diseñador Visual,principal.bal,-100,2,Diseñador Visual,cliente.bal,-100,1 NavigationStack=C_Cliente,Class_Globals,5,0,C_Principal,Class_Globals,0,0,Diseñador Visual,principal.bal,-100,4,Diseñador Visual,cliente.bal,-100,3,C_Nota,Class_Globals,0,0,C_Cliente,B_IMP_Click,899,0,C_Principal,B4XPage_Appear,525,0,B4XMainPage,Entrar_Click,396,0,C_Principal,JobDone,1891,1,C_Principal,connecta_Click,1946,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=2,27,13,16,14,4,28,15,9,6 VisibleModules=2,27,13,16,14,4,28,15,9,6