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

5/11/32 - Seleccionar empresa, validar pedido e icono.

Browse Source 
- Código para seleccionar de que empresa es la BD, o si la BD trae la info, seleccionarla automáticamente.
- Código para validar si cayo bien la venta en el servidor.
- Icono de keymon
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-11-05 01:42:22 -06:00
parent 2caf7dbc38
commit 5bcd9b45f4
6 changed files with 117 additions and 77 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/C_Envios.bas
View File

@@ -33,7 +33,6 @@ End Sub
Sub envioMariana 'ignore
Dim resultado = Msgbox2("Se va a enviar la venta de la BD", "AVISO", "Continuar", "Cancelar", "", Null) 'ignore
If resultado = DialogResponse.POSITIVE Then
' B4XPages.MainPage.reqsPendientes.Initialize
B4XPages.MainPage.l_progressDialog.Text = " Enviando información ..."
B4XPages.MainPage.p_progressDialog.Visible = True
B4XPages.MainPage.p_progressDialog.BringToFront
@@ -50,7 +49,6 @@ Sub envioMariana 'ignore
cmd.Name = "insert_pedidos_MARDS"
cmd.Parameters = Array As Object(c.GetString("PC_CLIENTE"), c.GetString("PC_FECHA"), c.GetString("PC_USER"), c.GetString("PC_NOART"), c.GetString("PC_MONTO"), c.GetString("PC_LON"), c.GetString("PC_LAT"), almacen, ruta, c.GetString("PC_COSTO_SIN"), c.GetString("PC_FACTURA"))
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_pedidos_1")
' B4XPages.MainPage.reqsPendientes.Add("ins_pedidos_1")
Next
End If
c.Close
@@ -68,7 +66,6 @@ Sub envioMariana 'ignore
cmd.Name = "insert_QR_2_MARDS"
cmd.Parameters = Array As Object(C.GetString("CODIGOKMTS"),C.GetString("CODIGOB"),C.GetString("LON"),C.GetString("LAT"),almacen, ruta)
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_QR")
' B4XPages.MainPage.reqsPendientes.Add("ins_QR")
Next
End If
c.Close
@@ -82,7 +79,6 @@ Sub envioMariana 'ignore
cmd.Name = "insert_encuesta_MARDS"
cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"), c.GetString("HE_TIPO"))
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "hist_encuesta")
' B4XPages.MainPage.reqsPendientes.Add("hist_encuesta")
Next
End If
c.Close
@@ -97,7 +93,6 @@ Sub envioMariana 'ignore
cmd.Name = "insert_pedido_MARDS"
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_1")
' B4XPages.MainPage.reqsPendientes.Add("ins_pedido_1")
Next
End If
c.Close
@@ -115,7 +110,6 @@ Sub envioMariana 'ignore
cmd.Name = "insert_noventa_MARDS"
cmd.Parameters = Array As Object(C.GetString("NV_CLIENTE"),C.GetString("NV_FECHA"),C.GetString("NV_USER"),C.GetString("NV_MOTIVO"),C.GetString("NV_COMM"),C.GetString("NV_LAT"),C.GetString("NV_LON"), almacen, ruta,C.GetString("NV_NOMBRE"),C.GetString("NV_DIRECCION"))
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_noventa")
' B4XPages.MainPage.reqsPendientes.Add("inst_noventa")
Next
End If
c.Close