From 4d2cac32ba72ffefcb06d24096db8572796462f6 Mon Sep 17 00:00:00 2001 From: cvaldes1201 Date: Thu, 7 Sep 2023 15:19:17 -0600 Subject: [PATCH] 07/09/23 Envio de giro --- B4A/C_Principal.bas | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index fb8430e..5c2d900 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -629,7 +629,7 @@ Sub Subir_Click Dim Dir2 As String Dir = "/promotoriakmts" - c=B4XPages.MainPage.skmt.ExecQuery("SELECT CN_ID, CN_FECHA , CN_USER, CN_LAT, CN_LON, CN_NOMBRE, CN_DIRECCION, CN_FOTO, CN_ALMACEN, CN_RUTA FROM CLIENTES_NUEVOS") + c=B4XPages.MainPage.skmt.ExecQuery("SELECT CN_ID, CN_FECHA , CN_USER, CN_LAT, CN_LON, CN_NOMBRE, CN_DIRECCION, CN_FOTO, CN_ALMACEN, CN_RUTA, CN_GIRO FROM CLIENTES_NUEVOS") If c.RowCount>0 Then For i = 0 To c.RowCount - 1 c.Position = i @@ -638,12 +638,11 @@ Sub Subir_Click Dim cmd As DBCommand cmd.Initialize cmd.Name = "insert_clientesnuevos_MARDS" - cmd.Parameters = Array As Object(c.GetString("CN_ID"), c.GetString("CN_FECHA"), c.GetString("CN_USER"), c.GetString("CN_LAT"), c.GetString("CN_LON"), c.GetString("CN_NOMBRE"), c.GetString("CN_DIRECCION"),c.GetString("CN_ALMACEN"), c.GetString("CN_RUTA"), fotocn) + cmd.Parameters = Array As Object(c.GetString("CN_ID"), c.GetString("CN_FECHA"), c.GetString("CN_USER"), c.GetString("CN_LAT"), c.GetString("CN_LON"), c.GetString("CN_NOMBRE"), c.GetString("CN_DIRECCION"),c.GetString("CN_ALMACEN"), c.GetString("CN_RUTA"), fotocn, "EN ESPERA",c.GetString("CN_GIRO")) B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_clientesn") Next End If c.Close - ' GEO CERCA c=B4XPages.MainPage.skmt.ExecQuery("Select HGCLIENTE, HGDATE, HGLAT, HGLON from HIST_GEOCERCA")