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

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