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

Version: 5.03.31

Browse Source 
Se le agrego una vista al enviar informacion.
This commit is contained in:
IsR0d
2025-04-01 16:41:11 -06:00
parent c400659e06
commit c1df998ed6
489 changed files with 6317 additions and 4628 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
B4A/B4XMainPage.bas
View File

@@ -196,6 +196,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Subs.agregaColumna("HIST_VENTAS","CANTC","TEXT")
Subs.agregaColumna("HIST_VENTAS","BCAJAS_OR","TEXT")
Subs.agregaColumna("HIST_VENTAS","CANTC_OR","TEXT")
Subs.agregaColumna("HIST_VENTAS","HVD_RUTA","TEXT")
Subs.agregaColumna("CAT_GUNAPROD","CONVERSION","TEXT")
Subs.agregaColumna("CAT_GUNAPROD","PRECIOCONVER","TEXT")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTAA (RUTAA TEXT)")
@@ -251,6 +252,63 @@ Sub B4XPage_Appear
' If Result Then
' Log("Con permisos de escritura externa")
' End If
' Dim Dirp As String = File.DirInternal
' Dim Dir As String
' Dim Dir2 As String
' Try
' File.MakeDir(Dirp,"/md")
' Dir = "/md"
' Log("creado en promotoria " & Dirp & Dir)
' Catch
' Dir = ""
' Log("creado en raiz")
' End Try
'
' Try
' File.MakeDir(Dirp & Dir,"/reduccion")
' Dir2 = "/reduccion"
' Log("creado en promotoria " & Dirp & Dir & Dir2)
' Catch
' Dir = ""
' Log("creado en raiz")
' End Try
'
' For i = 0 To 150
' Log(Dirp)
' Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirAssets, i&"marker-azul5", 72, 115, True)
' Dim out As OutputStream = File.OpenOutput(File.DirInternal & Dir & Dir2, i&"marker-azul5", True)
' img.WriteToStream(out, 100, "PNG")
'
'' Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirAssets, i&"marker-azul7.png", 72, 115, True)
'' Dim out As OutputStream = File.OpenOutput(File.DirInternal & Dir & Dir2, i&"marker-azul7.png", True)
'' img.WriteToStream(out, 100, "PNG")
'
'' Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirAssets, i&"marker-azul8.png", 72, 115, True)
'' Dim out As OutputStream = File.OpenOutput(File.DirInternal & Dir & Dir2, i&"marker-azul8.png", True)
'' img.WriteToStream(out, 100, "PNG")
''
'' Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirAssets, i&"marker-azul3.png", 72, 115, True)
'' Dim out As OutputStream = File.OpenOutput(File.DirInternal & Dir & Dir2, i&"marker-azul3.png", True)
'' img.WriteToStream(out, 100, "PNG")
''
'' Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirAssets, i&"marker-azul4.png", 72, 115, True)
'' Dim out As OutputStream = File.OpenOutput(File.DirInternal & Dir & Dir2, i&"marker-azul4.png", True)
'' img.WriteToStream(out, 100, "PNG")
'
'' Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirAssets, i&"marker-rojo.png", 72, 115, True)
'' Dim out As OutputStream = File.OpenOutput(File.DirInternal & Dir & Dir2, i&"marker-rojo.png", True)
'' img.WriteToStream(out, 100, "PNG")
''
'' Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirAssets, i&"marker-verde.png", 72, 115, True)
'' Dim out As OutputStream = File.OpenOutput(File.DirInternal & Dir & Dir2, i&"marker-verde.png", True)
'' img.WriteToStream(out, 100, "PNG")
'
'' foto1 = File.ReadBytes(File.DirInternal & Dir & Dir2, nombrefoto)
'
' out.Close
'
' Next
End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.