Se agrega los colores paras que no se confundan y se corrige que si no tienen venta y entran al res dia no truene

B4A/C_Principal.bas

@@ -2848,6 +2848,7 @@ Sub resdia_Click
 '	s3.Close
 
 	Private s3 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select distinct(pe_cliente) FROM PEDIDO")
+	
 	If s3.RowCount > 0 Then
 		Private total1 As String = 0
 		For i = 0 To s3.RowCount - 1
@@ -2858,6 +2859,8 @@ Sub resdia_Click
 '			LogColor($"Total despues ${total1}"$, Colors.blue)
 		Next
 		L_REAL.Text = total1
+	Else
+		L_REAL.Text = 0
 	End If
 
 	'Prueba0
@@ -2919,6 +2922,8 @@ Sub resdia_Click
 		c.Close
 	End If
 '	L_REAL.Text = l_monto_ks.Text
+	Log(L_NES.Text)
+	Log(L_REAL.Text)
 	L_ALCANCE.Text = Round2((L_NES.Text / L_REAL.Text + 1),2)
 	L_VPLAN.Text = l_porvisitar.Text
 	L_VREAL.Text = L_CUANTOST.text