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

Se agrego la validacion de usuarios, el apartado de solicita en cliente y se hace la insercion en la base de datos.

Browse Source 
**Saludos Cordiales.**
This commit is contained in:
IsR0d
2024-07-12 14:26:47 -06:00
parent ba244e1c6f
commit 5027129b4a
7 changed files with 116 additions and 67 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
B4A/C_Principal.bas
View File

@@ -559,15 +559,17 @@ Sub Subir_Click
c.Close
' PEDIO_CLIENTE
c=Starter.skmt.ExecQuery("SELECT PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT, PC_COSTO_SIN, PC_RUTA, PC_ALMACEN, PC_FACTURA FROM PEDIDO_CLIENTE ")
c=Starter.skmt.ExecQuery("SELECT PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT, PC_COSTO_SIN, PC_RUTA, PC_ALMACEN, PC_FACTURA, PC_SOLICITA FROM PEDIDO_CLIENTE ")
d=Starter.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE ")
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_pedidos_PRO"
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, l_ruta.text, c.GetString("PC_COSTO_SIN"), c.GetString("PC_FACTURA"))
cmd.Name = "insert_pedidos_pro2"
LogColor(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&","& l_ruta.text&","& c.GetString("PC_COSTO_SIN")&","& c.GetString("PC_FACTURA")&","& c.GetString("PC_SOLICITA"),Colors.Magenta)
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, l_ruta.text, c.GetString("PC_COSTO_SIN"), c.GetString("PC_SOLICITA"))
reqManager.ExecuteCommand(cmd , "ins_pedidos")
Next
End If
@@ -1012,7 +1014,7 @@ Sub JobDone(Job As HttpJob)
End If
If RESULT.Tag = "ins_pedidos" Then
For Each records() As Object In RESULT.Rows
Log("==========================REGISTROS="&RESULT.Rows)
' Log("==========================REGISTROS="&RESULT.Rows)
For Each k As String In RESULT.Columns.Keys
Log(RESULT.Tag & ": " & k & ": " & records(RESULT.Columns.Get(k)))
Next
@@ -1025,6 +1027,11 @@ Sub JobDone(Job As HttpJob)
Next
LogColor("**************************"&n, Colors.Green)
If n = "OKActivo" Then
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_PRO2_224_2"
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text)
reqManager.ExecuteQuery(cmd , 0, "ruta")
Log("Usuario guardado en BD es 'Valido'")
Else If n = "OKExpirado" Then
Msgbox("Usuario Expirado llamar al administrador","") 'ignore
@@ -1803,19 +1810,12 @@ Sub connecta_Click
Private usrT As String = c.GetString("USUARIO")
Private passT As String = c.GetString("PASS")
cmd.Initialize
cmd.Name = "select_usuario_guna_PRO_1"
cmd.Name = "select_usuario_guna_PRO"
cmd.Parameters = Array As Object(usrT, passT)
reqManager.ExecuteQuery(cmd , 0, "usuarioA")
End If
c.Close
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_PRO2_224_2"
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text)
reqManager.ExecuteQuery(cmd , 0, "ruta")
If e_ruta.Text = "KMTS1" Then
cargar.Visible = True
Subir.Visible = True
@@ -2456,4 +2456,5 @@ Sub checaPedido
If c.RowCount > 0 Then
Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 3 WHERE CAT_CL_CODIGO IN (SELECT NV_CLIENTE FROM NOVENTA)")
End If
End Sub
End Sub