-VERSION 5.07.05.1

- Se cambo el tipoVenta de DISTRIBUCION a PREVENTA.
- Se corrigio codigo de promos.

B4A/C_Historico.bas

@@ -72,13 +72,14 @@ Sub B4XPage_Appear
 	C.Close
 	c=B4XPages.MainPage.skmt.ExecQuery("select HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa) order by HVD_PRONOMBRE asc")
 	ListView1.Clear
+	Log("--->>> HISTORIAL: " & c.RowCount)
 	If c.RowCount>0 Then
 		For i=0 To c.RowCount -1
 			c.Position=i
 			Dim label1 As Label
 			label1 = ListView1.TwoLinesLayout.Label
 			label1.TextSize = 15
-			label1.TextColor = Colors.Black
+			label1.TextColor = Colors.White
 			Dim label2 As Label
 			label2 = ListView1.TwoLinesLayout.SecondLabel
 			label2.TextSize = 10