Correccion de total que redondeaba (IMPRESION Y VISUALIZACION DEL CLIENTE)

B4A/C_Cliente.bas

@@ -294,6 +294,7 @@ Sub Class_Globals
 	Private R_5 As RadioButton
 	Private e_comm As EditText
 	Private motivo As String
+	Dim cursorprueba As Cursor
 End Sub
 
 'You can add more parameters here.
@@ -336,6 +337,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 			l_atiende2.Text = c.GetString("CAT_CL_ATIENTE2")
 			la_saldotot.Text = c.GetString("CAT_CL_TELEFONO")
 			''' ESTO SE AGREGA PARA QUE SE VEA LOS CLIENTES DOE
+			
 			If c.GetString("CAT_CL_EMAIL") = "1" Then
 				L_doe.Visible = True
 			Else
@@ -376,6 +378,7 @@ End Sub
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
 
 Sub B4XPage_Appear
+	Dim sumatotal As Double = 0
 	If Subs.traeUltimaActividadBD <> "Cliente" Then Subs.iniciaActividad(Subs.traeUltimaActividadBD)
 	If Not(muestraBoleta) Then P_INF_GENERAL.Visible = True
 	
@@ -428,6 +431,16 @@ Sub B4XPage_Appear
 			S1=Starter.skmt.ExecQuery("select count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
 			S1.Position=0
 			Log("hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh    "&c.RowCount)
+			cursorprueba = Starter.skmt.ExecQuery2("select PE_COSTO_TOT from  pedido where PE_CEDIS <> PE_PROID and pe_cliente in (Select CUENTA from cuentaa) AND PE_CEDIS <> ?", Array As String("DOE"))
+			For i= 0 To cursorprueba.RowCount -1
+				cursorprueba.Position = i
+				LogColor(cursorprueba.GetString("PE_COSTO_TOT"),Colors.Red)
+				sumatotal =  sumatotal +  cursorprueba.GetString("PE_COSTO_TOT")
+				sumatotal = NumberFormat2(sumatotal, 0, 2, 2, False)
+		
+				Log(NumberFormat2(sumatotal, 0, 2, 2, False))
+			Next
+			cursorprueba.Close
 			c.Position=0
 			la_cuenta.Text = c.GetString("CAT_CL_CODIGO")
 			La_nombre.Text = c.GetString("CAT_CL_NOMBRE")
@@ -439,8 +452,8 @@ Sub B4XPage_Appear
 			l_entre2.Text = c.GetString("CAT_CL_CALLE2")
 			l_atiende.Text = c.GetString("CAT_CL_ATIENDE1")
 			l_atiende2.Text = c.GetString("CAT_CL_ATIENTE2")
-			l_total.Text = s.GetString("TOTAL_CLIE")
+			l_total.Text = sumatotal
-			total_cliente = s.GetString("TOTAL_CLIE")
+			total_cliente = sumatotal
 			m_lat =c.GetString("CAT_CL_LAT")
 			m_lon =c.GetString("CAT_CL_LONG")
 			CREDITO_DISPONIBLE = c.GetString("CAT_CL_BFACTURA")
@@ -1285,11 +1298,24 @@ Sub B_IMP2_Click
 			s=Starter.skmt.ExecQuery2("select sum(PE_CANT) as CANTIDAD, SUM(PE_COSTO_TOT) AS TOTAL  FROM PEDIDO WHERE PE_CEDIS <> PE_PROID AND PE_TIPO = ? and substr(pe_pronombre,1,6) <> ? AND PE_CEDIS <> ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA","CAMBIO","DOE"))
 			s.Position = 0
 			Private sTotal2 As Double
-			If s.GetString("TOTAL") <> Null And IsNumber(s.GETSTRING("TOTAL")) Then
+			
-				sTotal2 = s.GetString("TOTAL")
+			cursorprueba = Starter.skmt.ExecQuery2("select PE_COSTO_TOT from  pedido where PE_CEDIS <> PE_PROID and pe_cliente in (Select CUENTA from cuentaa) AND PE_CEDIS <> ?", Array As String("DOE"))
-			Else
+			For i= 0 To cursorprueba.RowCount -1
-				sTotal2 = 0
+				cursorprueba.Position = i
-			End If
+				LogColor(cursorprueba.GetString("PE_COSTO_TOT"),Colors.Red)
+				sTotal2 =  sTotal2 +  cursorprueba.GetString("PE_COSTO_TOT")
+				sTotal2 = NumberFormat2(sTotal2, 0, 2, 2, False)
+		
+				Log(NumberFormat2(sTotal2, 0, 2, 2, False))
+			Next
+			cursorprueba.Close
+			Log(sTotal2)
+'			
+'			If s.GetString("TOTAL") <> Null And IsNumber(s.GETSTRING("TOTAL")) Then
+'				sTotal2 = s.GetString("TOTAL")
+'			Else
+'				sTotal2 = 0
+'			End If
 			Printer1.WriteString(Printer1.REVERSE & "==============================="  & CRLF)
 			Printer1.WriteString( Printer1.UNREVERSE & Printer1.BOLD & $"Sub Total Venta:   $${NumberFormat2(sTotal2, 1, 2, 2, False)}"$ & CRLF)
 			Private cantidad1 As String = "0"

B4A/C_Nota.bas

@@ -38,6 +38,7 @@ Sub Class_Globals
 	Private ListView3 As ListView
 	Private L_CANT_D As Label
 	Private L_TOTAL_D As Label
+	Dim cursorprueba As Cursor
 End Sub
 
 'You can add more parameters here.
@@ -87,6 +88,8 @@ End Sub
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
 
 Sub B4XPage_Appear
+	Dim sumatotal As Double = 0
+	
 	c=Starter.skmt.ExecQuery2("select count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) AND PE_CEDIS = ?", Array As String("DOE"))
 	c.Position = 0
 	ListView1.Visible = True
@@ -123,7 +126,9 @@ Sub B4XPage_Appear
 		C_DOE=Starter.skmt.ExecQuery2("select sum(pe_cant) AS CANTIDAD, sum(pe_costo_tot) AS MONTO from  pedido where PE_CEDIS <> PE_PROID and pe_cliente in (Select CUENTA from cuentaa)  AND PE_CEDIS = ?", Array As String("DOE"))
 		C_DOE.Position=0
 		L_CANT_D.Text = C_DOE.GetString("CANTIDAD")
+		
 		L_TOTAL_D.Text = C_DOE.GetString("MONTO")
+
 		c.Close
 	Else
 		B_PEDIDO_DOE.VISIBLE = False
@@ -168,8 +173,20 @@ Sub B4XPage_Appear
 	If Existe <> 0 Then
 		c=Starter.skmt.ExecQuery2("select sum(pe_cant) AS CANTIDAD, sum(pe_costo_tot) AS MONTO from  pedido where PE_CEDIS <> PE_PROID and pe_cliente in (Select CUENTA from cuentaa) AND PE_CEDIS <> ?", Array As String("DOE"))
 		C.Position=0
+		
+		cursorprueba = Starter.skmt.ExecQuery2("select PE_COSTO_TOT from  pedido where PE_CEDIS <> PE_PROID and pe_cliente in (Select CUENTA from cuentaa) AND PE_CEDIS <> ?", Array As String("DOE"))
+		For i= 0 To cursorprueba.RowCount -1
+			cursorprueba.Position = i
+			LogColor(cursorprueba.GetString("PE_COSTO_TOT"),Colors.Red)
+			sumatotal =  sumatotal +  cursorprueba.GetString("PE_COSTO_TOT")	
+			sumatotal = NumberFormat2(sumatotal, 0, 2, 2, False)
+		
+			Log(NumberFormat2(sumatotal, 0, 2, 2, False))
+		Next
+		cursorprueba.Close
 		L_CANT.Text = c.GetString("CANTIDAD")
-		L_TOTAL.Text = c.GetString("MONTO")
+		L_TOTAL.Text = sumatotal
+		Log(c.GetString("MONTO"))
 		c.Close
 		c=Starter.skmt.ExecQuery("select SUM(IFNULL(PE_DESC,0)) AS DESCUENTO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
 		c.Position=0

B4A/C_TicketsDia.bas

@@ -12,6 +12,7 @@ Sub Class_Globals
 	Dim ListView1 As ListView
 	Dim b_noventa As Button
 	Dim nombre_boton As String
+	Dim cursorprueba As Cursor
 End Sub
 
 'You can add more parameters here.
@@ -46,6 +47,7 @@ End Sub
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
 
 Sub B4XPage_Appear
+	Dim sumatotal As Double = 0
 	nombre_boton = "NOVENTA"
 	c=Starter.skmt.ExecQuery("select PC_CLIENTE,PC_MONTO,PC_NOART,(select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = pc_cliente ) as NOMBRE FROM PEDIDO_CLIENTE ORDER BY PC_FECHA asc")
 	ListView1.Clear
@@ -60,7 +62,19 @@ Sub B4XPage_Appear
 			label2 = ListView1.TwoLinesLayout.SecondLabel
 			label2.TextSize = 13
 			label2.TextColor = Colors.Black
-			ListView1.AddTwoLines(c.GetString("PC_CLIENTE"),c.GetString("NOMBRE") &"   Cant. #"& c.GetString("PC_NOART")& " SubTotal $"& c.GetString("PC_MONTO"))
+			
+			cursorprueba = Starter.skmt.ExecQuery2("select PE_COSTO_TOT from  pedido where PE_CEDIS <> PE_PROID and pe_cliente = ? AND PE_CEDIS <> ?", Array As String(c.GetString("PC_CLIENTE"),"DOE"))
+			For i= 0 To cursorprueba.RowCount -1
+				cursorprueba.Position = i
+				LogColor(cursorprueba.GetString("PE_COSTO_TOT"),Colors.Red)
+				sumatotal =  sumatotal +  cursorprueba.GetString("PE_COSTO_TOT")
+				sumatotal = NumberFormat2(sumatotal, 0, 2, 2, False)
+		
+				Log(NumberFormat2(sumatotal, 0, 2, 2, False))
+			Next
+			cursorprueba.Close
+			
+			ListView1.AddTwoLines(c.GetString("PC_CLIENTE"),c.GetString("NOMBRE") &"   Cant. #"& c.GetString("PC_NOART")& " SubTotal $"& sumatotal)
 		Next
 	End If
 	c.Close

B4A/KelloggsV3.b4a.meta

@@ -82,6 +82,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=Diseñador Visual,mapa_rutas.bal,-100,4,Diseñador Visual,detalle_promo.bal,-100,3,Diseñador Visual,checklist.bal,-100,2,Diseñador Visual,checks.bal,-100,2,MAPA_RUTAS,Activity_Create,72,0,Diseñador Visual,errormanager.bal,-100,3,Diseñador Visual,cliente.bal,-100,1,C_Cliente,GPS_LocationChanged,664,6,Diseñador Visual,principal.bal,-100,6,C_Cliente,B_IMP2_Click,1006,0,C_Productos,HACER_PEDIDO,621,0
+NavigationStack=Diseñador Visual,login.bal,-100,1,Diseñador Visual,principal.bal,-100,1,C_Principal,B4XPage_Created,242,0,C_NoVenta,Class_Globals,0,0,C_Clientes,Class_Globals,0,0,C_Cliente,Class_Globals,291,6,C_Nota,B4XPage_Appear,84,0,C_Nota,ListView1_ItemLongClick,320,0,C_Nota,b_desc_Click,353,0,C_Cliente,B4XPage_Appear,427,6,C_Cliente,B_IMP2_Click,1307,6
 SelectedBuild=0
-VisibleModules=1,2,3,4,5,6,7,8,9,10,12
+VisibleModules=1,2,3,4,5,6,7,8,9,10,14,11