cheveguerra/SoporteKeymonsoft
1
0
Fork 0
mirror of https://github.com/KeymonSoft/SoporteKeymonsoft.git synced 2026-04-17 20:56:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 4.11.18

Browse Source 
- Se agregó que cuando se revisa una venta de Kelloggs, también revise si hay duplicados en la venta y si los hay, da la opción de borrarlos.
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-11-18 15:01:09 -06:00
parent bcae7477c8
commit 79fda54144
4 changed files with 42 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
Files/layout1.bal
View File

Binary file not shown.

2
Subs.bas
View File

@@ -185,8 +185,8 @@ End Sub
'Muestra en el Log los campos y valores que regresan en el JobDone.
Sub logJobDoneResultados(resultado As DBResult)
LogColor($"====== ${resultado.Tag} - REGISTROS = ${resultado.Rows.Size}"$, Colors.RGB(215,37,0))
For Each records() As Object In resultado.Rows
LogColor($"====== ${resultado.Tag} - REGISTROS = ${resultado.Rows.Size}"$, Colors.RGB(215,37,0))
For Each k As String In resultado.Columns.Keys
LogColor(k & " = " & records(resultado.Columns.Get(k)), Colors.RGB(215,37,0))
Next

41
soporteKMS.b4a
View File

@@ -34,7 +34,7 @@ Version=12.8
@EndOfDesignText@
#Region Project Attributes
#ApplicationLabel: Soporte Keymonsoft
#VersionName: 4.08.11
#VersionName: 4.11.18
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
@@ -197,6 +197,7 @@ Sub Globals
Private p_resVenta As Panel
Private p_resVentaTransparente As Panel
Private l_version1 As Label
Private b_resDuplicadosKell As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
@@ -1191,6 +1192,23 @@ Sub JobDone(Job As HttpJob)
' p_resVentaTransparente.BringToFront
' p_resVentaTransparente.Visible = True
End If
If result.Tag = "revisaDuplicados_Kelloggs" Then
' Subs.logJobDoneResultados(result)
If result.Rows.Size > 0 Then
Log("=====> Hay Duplicados <======")
b_resDuplicadosKell.Enabled = True
b_resDuplicadosKell.Text = "HAY DUPLICADOS"& CRLF &"=> QUITARLOS <="
Else
Log("=====> NO Hay Duplicados <======")
b_resDuplicadosKell.Enabled = False
b_resDuplicadosKell.Text = "Sin duplicados"
End If
End If
If result.Tag = "quitarDuplicados_Kelloggs" Then
Subs.logJobDoneResultados(result)
End If
End If
Job.Release
End If
@@ -1288,6 +1306,16 @@ Private Sub b_revisaVenta2_Click
Log($"mandamos: ruta=${rut}, almacen=${almacenKelloggs}"$)
reqManager.ExecuteQuery(cmd, 0 , "select_ventaXrutaKelloggs_soporte", 0)
reqManager.Initialize(Me, DBRS_1781)
cmd.Name = "revisaDuplicados_Kelloggs"
cmd.Parameters = Array As Object(almacenKelloggs, rut)
b_resDuplicadosKell.Enabled = False
b_resDuplicadosKell.Text = "Buscando duplicados ..."
Log($"mandamos: ruta=${rut}, almacen=${almacenKelloggs}"$)
reqManager.ExecuteQuery(cmd, 0 , "revisaDuplicados_Kelloggs", 0)
Log($"################ REVISAMOS DUPLICADOS ${almacenKelloggs}, ${rut} ########################"$)
reqManager.Initialize(Me, DBRS_1781)
cmd.Name = "revisaArqueoYLiquidacion_Kelloggs"
cmd.Parameters = Array As Object(almacenKelloggs, rut, almacenKelloggs, rut)
@@ -1582,4 +1610,15 @@ End Sub
Private Sub p_resVentaTransparente_Click
p_resVentaTransparente.Visible = False
End Sub
Private Sub b_resDuplicadosKell_Click
reqManager.Initialize(Me, DBRS_1781)
cmd.Name = "quitarDuplicados_Kelloggs"
cmd.Parameters = Array As Object(almacenKelloggs, et_ruta2.text.Trim, "appSoporte")
b_resDuplicadosKell.Enabled = False
b_resDuplicadosKell.Text = "Sin Duplicados"
Log($"mandamos: ruta=${et_ruta2.text.Trim}, almacen=${almacenKelloggs}"$)
reqManager.ExecuteCommand(cmd, "quitarDuplicados_Kelloggs")
Log($"################ QUITAMOS DUPLICADOS ${almacenKelloggs}, ${et_ruta2.text.Trim} ########################"$)
End Sub

2
soporteKMS.b4a.meta
View File

@@ -10,6 +10,6 @@ ModuleClosedNodes0=2
ModuleClosedNodes1=
ModuleClosedNodes2=1
ModuleClosedNodes3=1,9,11
NavigationStack=Main,Activity_Create,256,6,Main,b_revisaVenta2_Click,1257,6,Visual Designer,layout1.bal,-100,6,Main,Process_Globals,33,0,Main,b_revisaVenta_Click,1236,0,Main,b_cerrar_Click,1538,0,Main,p_resVentaTransparente_Click,1542,0,Main,b_pasarInfoMovilDurakeloRep_Click,1523,0,Main,Globals,123,0,Main,JobDone,934,6
NavigationStack=Main,b_forzarVenta1_Click,530,0,Main,b_forzarVenta2_Click,549,0,Main,borrarVentaForzadaKelloggs,560,0,Main,p_resVentaTransparente_Click,1573,0,Subs,generaSaludo,171,0,Main,b_borrarVenta2_Click,535,0,Visual Designer,layout1.bal,-100,6,Main,b_revisaVenta2_Click,1275,6,Main,b_resDuplicadosKell_Click,1581,4,Main,JobDone,1173,6
SelectedBuild=0
VisibleModules=2,3,1