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

moficiacion de venta y preventa y abordo.

Browse Source
This commit is contained in:
cvaldes1201
2024-05-02 13:54:47 -06:00
parent ac0a633bd2
commit 41a60af142
14 changed files with 221 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
B4A/C_Nota.bas
View File

@@ -83,11 +83,20 @@ Sub B4XPage_Appear
Dim label1 As Label
label1 = ListView1.TwoLinesLayout.Label
label1.TextSize = 15
label1.TextColor = Colors.Black
label1.TextColor = Colors.Black
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
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"))) 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.
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.
End If
Dim label2 As Label
label2 = ListView1.TwoLinesLayout.SecondLabel
label2.TextSize = 10