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

- Cambios para que el abordo en Resumen Dia se actualice automaticamente.

Browse Source 
- Cambio para ue los botones de Cliente Nuevo y Abordo no aparezcan si no esta cargada la ruta.
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-04-30 22:33:32 -06:00
parent 1c96c5fc7f
commit aa1b409451
4 changed files with 14 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
B4A/C_Cliente.bas
View File

@@ -1087,21 +1087,16 @@ Sub B_IMP2_Click
Msgbox2Async("No tienes venta suficiente","Atención", "Modificar pedido", "", "Borrar pedido",LoadBitmap(File.DirAssets,"alert2.png"),False)
Wait For Msgbox_Result (result As Int)
If result = DialogResponse.POSITIVE Then
ToastMessageShow("Positivo",True)
' ToastMessageShow("Positivo",True)
B4XPages.ShowPage("Productos")
Else If result = DialogResponse.NEGATIVE Then
ToastMessageShow("Negativo",True)
' ToastMessageShow("Negativo",True)
B4XPages.MainPage.nota.borra_Click
B4XPage_Appear
End If
Else If kh.traeDisponibleAbordo >= 0 Then
Imprime_ticket
End If
End Sub
Sub Imprime_ticket

10
B4A/C_Principal.bas
View File

@@ -2353,9 +2353,17 @@ Sub B_OK_RES_Click
connecta.Visible=True
Resumen.Visible= True
P_RESUMEN.Visible=False
If l_ruta.Text = "0" Then
NUEVO.Visible = False
B_PROXIMA.Visible = False
Else
NUEVO.Visible = True
B_PROXIMA.Visible = True
End If
End Sub
Sub Resumen_Click
L_ABORDO.Text = "0"
P_RESUMEN.Visible = True
P_RESUMEN.BringToFront
trabajar.Visible = False
@@ -2597,7 +2605,7 @@ Sub horaentrada As Boolean
Log(DateUtils.TicksToString(newDate))
Dim p2 As Period
p2.Hours = 0
p2.Minutes = 20
p2.Minutes = 0
DateTime.DateFormat = "MM/dd/yyyy HH:mm"
Dim fecha2 As String = DateTime.Date(DateTime.Now)
Dim pr2() As String = Regex.Split(" ",fecha2)

2
B4A/KelloggsV4.b4a
View File

@@ -864,7 +864,7 @@ Module9=C_NuevoCliente
NumberOfFiles=401
NumberOfLibraries=29
NumberOfModules=29
Version=12.5
Version=12.8
@EndOfDesignText@
#Region Project Attributes
#ApplicationLabel: Kelloggs Venta

4
B4A/KelloggsV4.b4a.meta
View File

@@ -88,6 +88,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=Diseñador Visual,nota.bal,-100,1,C_NoVenta,Class_Globals,0,0,C_Nota,Class_Globals,0,0,C_Nota,B4XPage_CloseRequest,246,0,C_Nota,borra_Click,246,0,C_Cliente,B_IMP2_Click,1090,6,C_Productos,lv_catalogos_ItemClick,315,0,C_Productos,LlenaProdsLL,1270,2,C_Productos,Busca_TextChanged,1205,0,B4XMainPage,Class_Globals,23,0
NavigationStack=C_Productos,LlenaProdsLL,1270,2,C_Productos,Busca_TextChanged,1205,0,C_Principal,Class_Globals,0,0,C_Principal,Resumen_Click,2359,0,C_Principal,horaentrada,2601,0,C_Principal,B_PROXIMA_Click,2590,0,C_Cliente,B_IMP2_Click,1088,6,C_Principal,B4XPage_CloseRequest,1963,0,C_Principal,B_OK_RES_Click,2341,0,B4XMainPage,Class_Globals,23,0
SelectedBuild=0
VisibleModules=1,27,11,3,12,4,28,17,23,29,8,7
VisibleModules=1,27,11,3,12,4,28,17,23,29