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

6/11/23 - Codigo para validar venta en servidor con panel de resultados

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-11-06 15:12:24 -06:00
parent 5bcd9b45f4
commit ffbdf7deaa
5 changed files with 40 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/C_Envios.bas
View File

@@ -55,7 +55,7 @@ Sub envioMariana 'ignore
d.Position=0
' Dim cuantos_pedidosc As String = D.GetString("CUANTOS_PEDIDOSC")
d.Close
' ENVIO DE LOS CODIGOS QR
c = B4XPages.MainPage.skmt.ExecQuery("SELECT CODIGOKMTS, CODIGOB, LAT, LON FROM HIST_CODIGO_BARRAS" )
If c.RowCount>0 Then
@@ -69,7 +69,7 @@ Sub envioMariana 'ignore
Next
End If
c.Close
c = B4XPages.MainPage.skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA")
If c.RowCount>0 Then
For i=0 To c.RowCount -1
@@ -157,7 +157,7 @@ Sub envioMariana 'ignore
' cmd.Name ="insert_drop_MARDS_2"
' cmd.Parameters = Array As Object(usuario,ruta,sDate & sTime, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO",almacen)
' reqManager.ExecuteCommand(cmd , "inst_noventa")
ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& ruta , True)
ToastMessageShow("Se actualizaran los datos, este proceso podria tardar hasta un minuto, gracias "& ruta , True)
End If
End Sub