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

....

Browse Source
This commit is contained in:
Javier
2025-09-26 13:30:04 -06:00
parent 0088aa390c
commit a70fcc79dd
149 changed files with 2007 additions and 1967 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
B4A/C_Principal.bas
View File

@@ -1210,6 +1210,22 @@ Sub cargar_Click
cmd.Initialize
cmd.Name = "select_cliente_IZCA_re_REPG"
Dim diasemana As Int = DateTime.GetDayOfWeek(DateTime.Now)
If diasemana = 2 Then
Dim dialetra As String = "SABADO"
Else If diasemana = 3 Then
Dim dialetra As String = "LUNES"
Else If diasemana = 4 Then
Dim dialetra As String = "MARTES"
Else If diasemana = 5 Then
Dim dialetra As String = "MIERCOLES"
Else If diasemana = 6 Then
Dim dialetra As String = "JUEVES"
Else If diasemana = 7 Then
Dim dialetra As String = "VIERNES"
End If
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
Log($"Pedimos kmt_datos"$)
@@ -2081,7 +2097,7 @@ Sub connecta_Click
reqManager.ExecuteQuery(cmd , 0, "version")
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_re_REPG_IZCA2"
cmd.Name = "select_ruta_re_REPG_IZCA4"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, usuario)
Log($"${ALMACEN}, ${e_ruta.text}, ${usuario}"$)