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

10
B4A/C_Principal.bas
View File

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

2
B4A/KelloggsV4.b4a
View File

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

4
B4A/KelloggsV4.b4a.meta
View File

@@ -88,6 +88,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= 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 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