cheveguerra/Medicomed-V2
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Medicomed-V2.git synced 2026-04-20 22:29:21 +00:00
Code Issues Packages Projects Releases Wiki Activity

Version: 5.04.18_V2

Browse Source 
Se corigue Query del JobDone del tag "marcas_rutas"
This commit is contained in:
IsR0d
2025-04-22 13:10:58 -06:00
parent d94b5462ce
commit f0b4a1d395
495 changed files with 1878 additions and 1869 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
B4A/C_Principal.bas
View File

@@ -1130,7 +1130,7 @@ Sub cargar_Click
cmd.Initialize
cmd.Name = "select_marcas_rutas_MEDI_V2"
cmd.Parameters = Array As Object( ALMACEN, e_ruta.text )
reqManager.ExecuteQuery(cmd , 0, "COMISIONES")
reqManager.ExecuteQuery(cmd , 0, "marcas_rutas")
' cmd.Initialize
' cmd.Name = "select_hist_avance_MEDI" 'select * from HIST_AVANCE_MESACTUAL where HIST_AM_RUTA = ? and HIST_AM_IDALMACEN order by HIST_AM_MARCA
@@ -1888,7 +1888,9 @@ Sub JobDone(Job As HttpJob)
datos_iguales = "ok"
S_CP.Text = "INFO OK"
Else
If Starter.marcaCel <> "Sony" Then ToastMessageShow("No se cargo bien la info P. Sync Nuevamente" & CUANTOSP & " " & cuantos_pedido, True)
If Starter.marcaCel <> "Sony" Then
' ToastMessageShow("No se cargo bien la info P. Sync Nuevamente" & CUANTOSP & " " & cuantos_pedido, True)
End If
S_CP.Text = "ENVIAR DATOS (K-2)"
End If
Next
@@ -1904,7 +1906,9 @@ Sub JobDone(Job As HttpJob)
' ToastMessageShow("rojo val ok 1 cuantosp." , True)
datos_iguales = "ok"
Else
If Starter.marcaCel <> "Sony" Then ToastMessageShow("No se cargo bien la info C. Sync Nuevamente" & CUANTOSC & " " & cuantos_pedidosc, True)
If Starter.marcaCel <> "Sony" Then
' ToastMessageShow("No se cargo bien la info C. Sync Nuevamente" & CUANTOSC & " " & cuantos_pedidosc, True)
End If
End If
Next
End If
@@ -1919,7 +1923,9 @@ Sub JobDone(Job As HttpJob)
' ToastMessageShow("rojo val ok 1 cuantosp." , True)
datos_iguales = "ok"
Else
If Starter.marcaCel <> "Sony" Then ToastMessageShow("No se cargo bien la info N. Sync Nuevamente" & CUANTOSN & " " & cuantos_noventa, True)
If Starter.marcaCel <> "Sony" Then
' ToastMessageShow("No se cargo bien la info N. Sync Nuevamente" & CUANTOSN & " " & cuantos_noventa, True)
End If
End If
Next
End If