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

corecciones generales

Browse Source
This commit is contained in:
cvaldes1201
2024-01-23 13:33:10 -06:00
parent deded905a7
commit 2235c6157a
6 changed files with 162 additions and 180 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
B4A/C_Principal.bas
View File

@@ -621,7 +621,7 @@ Sub Subir_Click
c.Close
End If
c=skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA")
c=skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO, HE_ORDEN FROM HIST_ENCUESTA4")
' S_CP.Text = "Envio Encuesta"
PB2.Progress = 1
If c.RowCount>0 Then
@@ -630,7 +630,7 @@ Sub Subir_Click
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "INSERT_ENCUESTA_K001DUR"
cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"),"1",ALMACEN,l_ruta.text,"1", C.GetString("HE_TIPO"))
cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"),C.GetString("HE_ORDEN"),ALMACEN,l_ruta.text,"1", C.GetString("HE_TIPO"))
reqManager.ExecuteQuery(cmd , 0,"INS_K001")
Next
@@ -2020,6 +2020,7 @@ Sub e_ruta_EnterPressed
skmt.ExecNonQuery("delete from HIST_VENTAS")
skmt.ExecNonQuery("delete from HIST_VERIFICACION")
skmt.ExecNonQuery("delete from HIST_ENCUESTA")
skmt.ExecNonQuery("delete from HIST_ENCUESTA4")
skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("NUMERO_PEDIDO"))
skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("NUMERO_PEDIDO",0))