cheveguerra/Intmex_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Intmex_Preventa.git synced 2026-04-19 05:39:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

Version final Con venta y Abordo 4.05.05

Browse Source
This commit is contained in:
IsR0d
2024-05-08 17:34:31 -06:00
parent 13dd986ec3
commit 1a654a5025
6 changed files with 49 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
B4A/C_Nota.bas
View File

@@ -90,15 +90,14 @@ Sub B4XPage_Appear
label1.color = Colors.White
Private textColor As Int = Colors.black
If c.GetString("PE_FOLIO") = "VENTA" Then
textColor = Colors.Black
Else If c.GetString("PE_FOLIO") = "PREVENTA" Then
textColor = Colors.Magenta
textColor = Colors.RGB(48,3,195)
Else If c.GetString("PE_FOLIO") = "PREVENTA" Or c.GetString("PE_FOLIO") = "ABORDO" Then
textColor = Colors.RGB(166,0,0)
End If
' If c.GetString("PE_CEDIS").Contains("PRO") Then textColor = Colors.RGB(210,105,30) 'Si es promo, cambiamos el color del texto.
If Not(IsNumber(c.GetString("PE_CEDIS"))) And c.GetString("PE_FOLIO") = "VENTA" Then
textColor = Colors.RGB(210,105,30) 'Si es promo, cambiamos el color del texto.
textColor = Colors.RGB(154,131,231) 'Si es promo, cambiamos el color del texto.
Else If Not(IsNumber(c.GetString("PE_CEDIS"))) And c.GetString("PE_FOLIO") = "PREVENTA" Then
textColor = Colors.Green 'Si es promo, cambiamos el color del texto.
textColor = Colors.RGB(255,111,111) 'Si es promo, cambiamos el color del texto.
End If
Dim label2 As Label
label2 = ListView1.TwoLinesLayout.SecondLabel