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

....

Browse Source
This commit is contained in:
cvaldes1201
2024-05-29 11:01:22 -06:00
parent 67195ae824
commit ba244e1c6f
6 changed files with 23 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
B4A/C_Cliente.bas
View File

@@ -199,8 +199,8 @@ Sub B4XPage_Appear
' Wait For B4XPage_PermissionResult (Permission As String, resultC As Boolean) ' Wait For B4XPage_PermissionResult (Permission As String, resultC As Boolean)
' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE) ' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
' Wait For B4XPage_PermissionResult (Permission As String, resultC As Boolean) ' Wait For B4XPage_PermissionResult (Permission As String, resultC As Boolean)
Tels.Visible = True ' Tels.Visible = True
gest.Visible = True ' gest.Visible = True
LA_GPS.TextColor = Colors.Red LA_GPS.TextColor = Colors.Red
LA_GPS.Text = "SIN UBICACION GPS" LA_GPS.Text = "SIN UBICACION GPS"
cercavalor = 0 cercavalor = 0
@@ -333,13 +333,13 @@ Sub B4XPage_Appear
' gest.Visible = True ' gest.Visible = True
'Si el cliente es nuevo, no aparece el boton de venta 'Si el cliente es nuevo, no aparece el boton de venta
If la_cuenta.text.SubString2(0,1) = "N" Then gest.Visible = False If la_cuenta.text.SubString2(0,1) = "N" Then gest.Visible = False
If LA_GPS.TextColor = Colors.Blue Then ' If LA_GPS.TextColor = Colors.Blue Then
Tels.Visible = True ' Tels.Visible = True
gest.Visible = True ' gest.Visible = True
Else ' Else
Tels.Visible = False ' Tels.Visible = False
gest.Visible = False ' gest.Visible = False
End If ' End If
End Sub End Sub
Sub GPS_LocationChanged (Location1 As Location) Sub GPS_LocationChanged (Location1 As Location)

2
B4A/C_NoVenta.bas
View File

@@ -40,7 +40,7 @@ End Sub
'This event will be called once, before the page becomes visible. 'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView) Private Sub B4XPage_Created (Root1 As B4XView)
B4XPages.SetTitle(Me, $"${subs.capitalizar(B4XPages.GetPageId(Me))} - ${Application.VersionName}"$) B4XPages.SetTitle(Me, $"${Subs.capitalizar(B4XPages.GetPageId(Me))} - ${Application.VersionName}"$)
Root = Root1 Root = Root1
'load the layout to Root 'load the layout to Root
Root.LoadLayout("noventa") Root.LoadLayout("noventa")

13
B4A/C_Principal.bas
View File

@@ -317,7 +317,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
End Sub End Sub
Sub B4XPage_Appear Sub B4XPage_Appear
Checapedido checaPedido
cpb = Starter.skmt.ExecQuery("SELECT PC_CLIENTE, PC_MONTO FROM PEDIDO_CLIENTE") cpb = Starter.skmt.ExecQuery("SELECT PC_CLIENTE, PC_MONTO FROM PEDIDO_CLIENTE")
If cpb.RowCount > 0 Then If cpb.RowCount > 0 Then
For i = 0 To cpb.RowCount-1 For i = 0 To cpb.RowCount-1
@@ -1998,7 +1998,7 @@ Sub B_OK_PAS_Click
Resumen.Visible= True Resumen.Visible= True
img2.Visible=False img2.Visible=False
Subs.panelVisible(p_principal, 0, 0) Subs.panelVisible(p_principal, 0, 0)
Checapedido checaPedido
Else if CARGA = "CARGAR" And (S_CP.Text <> "LISTO" Or S_CC.Text <> "LISTO" Or S_CH.Text <> "LISTO") Then Else if CARGA = "CARGAR" And (S_CP.Text <> "LISTO" Or S_CC.Text <> "LISTO" Or S_CH.Text <> "LISTO") Then
RES = Msgbox2("Seguro que desea abortar el proceso","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore RES = Msgbox2("Seguro que desea abortar el proceso","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
If RES = DialogResponse.POSITIVE Then If RES = DialogResponse.POSITIVE Then
@@ -2446,9 +2446,14 @@ Private Sub p_mandaInfo_Click
End Sub End Sub
Private Sub Checapedido 'Revisa si el cliente tiene venta o No venta y si es así modifica gestion en kmt_info
c = Starter.skmt.ExecQuery("SELECT PC_CLIENTE FROM PEDIDO_CLIENTE") Sub checaPedido
Private c As Cursor = Starter.skmt.ExecQuery("SELECT PC_CLIENTE FROM PEDIDO_CLIENTE")
If c.RowCount > 0 Then If c.RowCount > 0 Then
Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 2 WHERE CAT_CL_CODIGO IN (SELECT PC_CLIENTE FROM PEDIDO_CLIENTE)") Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 2 WHERE CAT_CL_CODIGO IN (SELECT PC_CLIENTE FROM PEDIDO_CLIENTE)")
End If End If
Private c As Cursor = Starter.skmt.ExecQuery("SELECT NV_CLIENTE FROM NOVENTA")
If c.RowCount > 0 Then
Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 3 WHERE CAT_CL_CODIGO IN (SELECT NV_CLIENTE FROM NOVENTA)")
End If
End Sub End Sub

BIN
B4A/Files/cliente.bal
View File

Binary file not shown.

2
B4A/Profina.b4a
View File

@@ -1069,7 +1069,7 @@ Version=12.5
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Profina #ApplicationLabel: Profina
#VersionCode: 1 #VersionCode: 1
#VersionName: 4.02.21 #VersionName: 4.04.21
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

4
B4A/Profina.b4a.meta
View File

@@ -82,6 +82,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=C_Productos,clv_prods_ll_VisibleRangeChanged,828,0,C_Productos,b_prodMenos_Click,491,0,Subs,actualizaProducto,778,0,C_Nota,Class_Globals,0,0,C_Nota,ListView1_ItemLongClick,147,0,Subs,pedidoGuardado,1254,0,C_Cliente,GPS_LocationChanged,360,0,C_Principal,Subir_Click,730,0,C_Principal,Checapedido,2442,6,C_Principal,B4XPage_Appear,313,6,C_Principal,B_OK_PAS_Click,1994,0 NavigationStack=C_Principal,B_OK_PAS_Click,1994,0,Diseñador Visual,cliente.bal,-100,2,C_Cliente,MODS,0,0,C_Cliente,B_GUARDA_C_Click,692,0,C_Cliente,B4XPage_Appear,329,0,C_NoVenta,Class_Globals,0,0,C_Principal,Subir_Click,730,0,C_Cliente,GPS_LocationChanged,359,0,C_Principal,Class_Globals,0,0,C_Principal,checaPedido,2450,6,MAPA_RUTAS,MapFragment1_Ready,191,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=1,2,3,12,4,5,6,7,8,9,10,13,26 VisibleModules=1,2,3,12,4,5,6,7,8,9,23