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

version final 4_01_18_2

Browse Source
This commit is contained in:
cvaldes1201
2024-01-18 19:38:57 -06:00
parent bb11a55157
commit deded905a7
4 changed files with 116 additions and 104 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
B4A/C_Principal.bas
View File

@@ -526,6 +526,7 @@ Sub Subir_Click
PASO = 1
'End If
If PASO =1 Then
E1=skmt.ExecQuery2("Select count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("ABORDO"))
E1.Position = 0
@@ -620,41 +621,42 @@ Sub Subir_Click
c.Close
End If
c=skmt.ExecQuery("SELECT * FROM HIST_ENCUESTA")
c=skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA")
' S_CP.Text = "Envio Encuesta"
PB2.Progress = 1
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
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"),"K001",ALMACEN,l_ruta.text,"1", C.GetString("TIPO"))
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"))
reqManager.ExecuteQuery(cmd , 0,"INS_K001")
Next
c.Close
End If
c=skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA")
' S_CP.Text = "Envio Encuesta"
' PB2.Progress = 1
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_encuesta_DUR"
cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"), c.GetString("HE_TIPO"),l_ruta.Text )
reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
Next
End If
c.Close
' PEDIO
' c=skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA")
' ' S_CP.Text = "Envio Encuesta"
' ' PB2.Progress = 1
'
' If c.RowCount>0 Then
' For i=0 To c.RowCount -1
' c.Position=i
'
' Dim cmd As DBCommand
' cmd.Initialize
' cmd.Name = "insert_encuesta_DUR"
' cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"), c.GetString("HE_TIPO"),l_ruta.Text )
' reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
'
'
' Next
'
' End If
' c.Close
' ' PEDIO
skmt.ExecNonQuery("update PEDIDO set PE_FOLIO = rowid ")