cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-19 11:09:13 +00:00
Code Issues Packages Projects Releases Wiki Activity

Se quito codigo que cargaba el servidor DBRequest de la tabla CAT_CODIGOS

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-10-13 13:33:41 -06:00
parent d4d205e9d0
commit 39b92d3a73
3 changed files with 2 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
B4A/B4XMainPage.bas
View File

@@ -405,26 +405,7 @@ End Sub
Sub Entrar_Click
DateTime.DateFormat = "yyyyMMdd"
If user.Text = "ALTERNO" Then
c=Starter.skmt.ExecQuery2("select CAT_CO_CONFIGURACION, CAT_CO_RESULTADO from CAT_CODIGOS where CAT_CO_PONDERACION =1 AND CAT_CO_ACCION = ?", Array As String("SERVER"))
c.Position =0
Starter.DBReqServer = c.GetString("CAT_CO_CONFIGURACION")
alterno = c.GetString("CAT_CO_RESULTADO")
c.Close
If alterno = 1 Then
Starter.skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 1 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 2", Array As String ("SERVER"))
Starter.skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 0 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 1", Array As String ("SERVER"))
Else if alterno = 2 Then
Starter.skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 1 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 1", Array As String ("SERVER"))
Starter.skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 0 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 2", Array As String ("SERVER"))
End If
c=Starter.skmt.ExecQuery2("select CAT_CO_CONFIGURACION, CAT_CO_RESULTADO from CAT_CODIGOS where CAT_CO_PONDERACION =1 AND CAT_CO_ACCION = ?", Array As String("SERVER"))
c.Position =0
Starter.DBReqServer = c.GetString("CAT_CO_CONFIGURACION")
user.Text = Starter.DBReqServer
c.Close
' reqManager.Initialize(Me, Starter.DBReqServer)
else if user.Text = "KMTSKLL1" Then
If user.Text = "KMTSKLL1" Then
Starter.skmt.ExecNonQuery("delete from usuarioa")
Starter.skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?,?)", Array As Object(user.Text, pass.Text, DateTime.Date(DateTime.Now)))
Starter.skmt.ExecNonQuery("delete from cat_almacen")

4
B4A/C_Principal.bas
View File

@@ -208,10 +208,6 @@ Private Sub B4XPage_Created (Root1 As B4XView)
' ruta = File.DirInternal
DateTime.DateFormat = "MM/dd/yyyy"
fecha=DateTime.Date(DateTime.Now)
' c=Starter.skmt.ExecQuery2("select CAT_CO_CONFIGURACION from CAT_CODIGOS where CAT_CO_PONDERACION =1 AND CAT_CO_ACCION = ?", Array As String("SERVER"))
' c.Position =0
' Starter.DBReqServer = c.GetString("CAT_CO_CONFIGURACION")
' c.Close
b=Starter.skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente")
b.Position=0
Cuantos = b.GetString("CUANTOS")

2
B4A/KelloggsV4.b4a.meta
View File

@@ -94,6 +94,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=kms_helperSubs,dbInit,107,0,C_Principal,Class_Globals,0,0,B4XMainPage,Class_Globals,90,0,kms_helperSubs,RD_Init,50,0,kms_helperSubs,agregaColumna,286,3,kms_helperSubs,RD_vacuum,272,0,B4XMainPage,B4XPage_Created,171,6,B4XMainPage,ImageView4_Click,581,0,B4XMainPage,B4XPage_Appear,334,0,Visual Designer,login.bal,-100,3
NavigationStack=C_Principal,Class_Globals,0,0,kms_helperSubs,RD_Init,50,0,kms_helperSubs,agregaColumna,286,3,kms_helperSubs,RD_vacuum,272,0,B4XMainPage,B4XPage_Created,171,6,B4XMainPage,ImageView4_Click,581,0,B4XMainPage,B4XPage_Appear,334,0,Visual Designer,login.bal,-100,3,B4XMainPage,Class_Globals,25,0,B4XMainPage,Entrar_Click,400,0,C_Principal,B4XPage_Created,205,0
SelectedBuild=0
VisibleModules=1,29,11,23,30,14