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

Version 5.11.25

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2026-03-18 10:53:45 -06:00
parent 257ab5018a
commit 831bec62fc
22 changed files with 7642 additions and 115 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
B4A/C_Envios.bas
View File

@@ -11,6 +11,7 @@ Sub Class_Globals
Private usuario As String 'ignore
Private almacen As String
Private ruta As String
Dim reqManager As DBRequestManager
End Sub
'You can add more parameters here.
@@ -234,7 +235,7 @@ Sub envioGuna 'ignore
c.Position = i
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_pedido_GV2"
cmd.Name = "insert_pedido_GV2_06"
cmd.Parameters = Array As Object(C.GetString("PE_CEDIS"), almacen, C.GetString("PE_COSTO_TOT"), C.GetString("PE_COSTOU"), C.GetString("PE_CANT"), C.GetString("PE_PRONOMBRE"), C.GetString("PE_PROID"), C.GetString("PE_CLIENTE"),C.GetString("PE_FECHA"),C.GetString("PE_USUARIO"),C.GetString("PE_RUTA"), C.GetString("PE_COSTO_SIN"),C.GetString("PE_DESC"),c.GetString("PE_FOLIO"))
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_pedido")
Next
@@ -382,4 +383,11 @@ Sub envioGuna 'ignore
Next
End If
x.Close
End Sub
' Nuevo método para inicializar el manager con el Target correcto
Public Sub ConfigurarYEnviar(ServidorURL As String)
' 'Me' aquí es C_Intmex, asegurando que C_Intmex.JobDone sea llamado.
reqManager.Initialize(Me, ServidorURL)
' envia ' Llama a la función de envío original de C_Intmex
End Sub