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

SE AGREGA LA VALIDACIÓN QUE UNA VEZ CARGADA YA NO PUEDA REALIZAR UNA NUEVA

Browse Source 
SE AGREGA LA VALIDACIÓN QUE NO PUEDA CARGAR DE OTRO DIA
This commit is contained in:
jalarakmt
2026-03-12 17:05:58 -06:00
parent 0c0e863e78
commit c93d41387c
5 changed files with 197 additions and 144 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
B4A/Subs.bas
View File

@@ -1034,4 +1034,14 @@ Sub CreateBitmapWithNumber(OriginalBitmap As Bitmap, Number As Int) As Bitmap 'i
' Dibujar el número en el centro del Bitmap y configurar el estilo del texto
Canvas.DrawText(Number, (OriginalBitmap.Width / 2), (OriginalBitmap.Height / 2.4), Typeface.DEFAULT, 20, Colors.White, "CENTER")
Return NewBitmap
End Sub
'Muestra en el Log los campos y valores que regresan en el JobDone.
Sub logJobDoneResultados(resultado As DBResult)
For Each records() As Object In resultado.Rows
LogColor($"====== ${resultado.Tag} - REGISTROS = ${resultado.Rows.Size}"$, Colors.RGB(215,37,0))
For Each k As String In resultado.Columns.Keys
LogColor(k & " = " & records(resultado.Columns.Get(k)), Colors.RGB(215,37,0))
Next
Next
End Sub