Version final Con venta y Abordo 4.05.05

B4A/C_Principal.bas

@@ -210,6 +210,9 @@ Sub Class_Globals
 	Private l_rutasuplencia As Label
 	Dim userpiezas As String
 	Private b_abordo As Button
+	Private L_ABORDO As Label
+	Private L_VENTA As Label
+	Private L_PREVENTA As Label
 End Sub
 
 'You can add more parameters here.
@@ -2246,6 +2249,33 @@ Sub resdia_Click
 		l_monto_ks.Text = "0"
 	End If
 	c.Close
+	c=B4XPages.MainPage.skmt.ExecQuery2("Select  sum(PE_COSTO_TOT) As PREVENTA from pedido where PE_FOLIO = ? AND PE_CLIENTE <> 0", Array As String ("PREVENTA"))
+	If c.RowCount > 0 Then
+		c.Position = 0
+		L_PREVENTA.Text = c.GetString ("PREVENTA")
+		If L_PREVENTA.TEXT = "null" Then
+			L_PREVENTA.Text = "0"
+		End If
+	End If
+	c.Close
+	c=B4XPages.MainPage.skmt.ExecQuery2("Select  sum(PE_COSTO_TOT) As VENTA from pedido where PE_FOLIO = ? AND PE_CLIENTE <> 0", Array As String ("VENTA"))
+	If c.RowCount > 0 Then
+		c.Position = 0
+		L_VENTA.Text = c.GetString ("VENTA")
+		If L_VENTA.TEXT = "null" Then
+			L_VENTA.Text = "0"
+		End If
+	End If
+	c.Close
+	c=B4XPages.MainPage.skmt.ExecQuery2("Select  sum(PE_COSTO_TOT) As ABORDO from pedido where PE_FOLIO = ? AND PE_CLIENTE = ?", Array As String ("ABORDO", "0"))
+	If c.RowCount > 0 Then
+		c.Position = 0
+		L_ABORDO.Text = c.GetString ("ABORDO")
+		If L_ABORDO.TEXT = "null" Then
+			L_ABORDO.Text = "0"
+		End If
+	End If
+	c.Close
 	Dim cuantos_obj As String
 	c=B4XPages.MainPage.skmt.ExecQuery("Select  count(*) AS TOTAL from HIST_MARCAS_CUOTAS   ")
 	c.Position = 0