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

...

Browse Source
This commit is contained in:
cvaldes1201
2024-02-26 11:04:11 -06:00
parent ddb3d5dbe7
commit cbad6dc151
8 changed files with 1034 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
B4A/C_Principal.bas
View File

@@ -13,7 +13,7 @@ Sub Class_Globals
Dim t2 As Timer
Private t3 As Timer
Dim inicioContador As String
Dim kh As kms_helperSubs
'//Globals
Dim trabajar As Button
Dim Cursor_check As Cursor
@@ -262,6 +262,9 @@ Private Sub B4XPage_Created (Root1 As B4XView)
'l_porvisitar.Text = e.GetString("POR_VISITAR")
End If
kh.Initialize(Me, "kh", Starter.skmt)
kh.RD_Init
Starter.Skmt.ExecNonQuery($"create table if not exists PEDIDO_RESPALDO (${getTableColumnList(Starter.skmt, "PEDIDO")})"$)
Starter.Skmt.ExecNonQuery($"create table if not exists CAT_DETALLES_PAQ_RESPALDO (${getTableColumnList(Starter.skmt, "CAT_DETALLES_PAQ")})"$)
Starter.Skmt.ExecNonQuery($"create table if not exists CAT_GUNAPROD_RESPALDO (${getTableColumnList(Starter.skmt, "CAT_GUNAPROD")})"$)
@@ -326,6 +329,7 @@ End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
Sub B4XPage_Appear
If Starter.ultima_back_productos = 1 Then
Subs.iniciaActividad("productos")
Else
@@ -2087,30 +2091,10 @@ Sub e_ruta_EnterPressed
End If
c.Close
End If
' If e_ruta.Text = "VALIDA" Then
' c=Starter.skmt.ExecQuery("SELECT PC_CLIENTE, PC_ENTREGA FROM PEDIDOS_DOE_ENTREGA")
' Msgbox("PASA","1")
' If c.RowCount>0 Then
' Msgbox("PASA 2","1")
' For i=0 To c.RowCount -1
' c.Position=i
' Dim cmd As DBCommand
' cmd.Initialize
' cmd.Name = "UPDATE_PEDIDOS_DOE_ENTREGA"
' cmd.Parameters = Array As Object(C.GetString("PC_CLIENTE"),C.GetString("PC_ENTREGA"), ALMACEN, l_ruta.Text)
' Log("ALO " & C.GetString("PC_CLIENTE")& "|" & C.GetString("PC_ENTREGA") & "|" & ALMACEN & "|" & l_ruta.Text )
'
' reqManager.ExecuteCommand(cmd , "INSERT_PEDIDOS_DOE_ENTREGA")
' PB2.Progress = PB2.Progress + 1
' contador_env = contador_env + 1
' Next
' c.Close
' End If
' End If
If e_ruta.Text = "FIN DIA" And adelanteFinDia Then
res = Msgbox2("Seguro que desea hacer el cierre? ... todos los datos se borraran","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
If res = DialogResponse.POSITIVE Then
kh.RD_respaldoBatch
'ESTO ES PARA EL RESPALDO DE LAS TABLAS
Starter.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ_RESPALDO ")