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

Cambio doe

Browse Source
This commit is contained in:
cvaldes1201
2023-11-14 11:25:22 -06:00
parent b6ee21ec5f
commit a1c4dc0bcd
5 changed files with 135 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
B4A/C_TicketsDia.bas
View File

@@ -13,6 +13,7 @@ Sub Class_Globals
Dim b_noventa As Button
Dim nombre_boton As String
Dim cursorprueba As Cursor
End Sub
'You can add more parameters here.
@@ -60,24 +61,30 @@ Sub B4XPage_Appear
label1.TextColor = Colors.Black
Dim label2 As Label
label2 = ListView1.TwoLinesLayout.SecondLabel
label2.TextSize = 13
label2.TextSize = 10
label2.TextColor = Colors.Black
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
For x= 0 To cursorprueba.RowCount -1
cursorprueba.Position = x
' 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))
' Log("estoy aqui")
Next
cursorprueba.Close
ListView1.AddTwoLines(c.GetString("PC_CLIENTE"),c.GetString("NOMBRE") &" Cant. #"& c.GetString("PC_NOART")& " SubTotal $"& sumatotal)
ListView1.AddTwoLines(c.GetString("PC_CLIENTE"),c.GetString("NOMBRE") &" Cantidad #"& c.GetString("PC_NOART")& " SubTotal $"& c.GetString("PC_MONTO"))
' LogColor(i, Colors.Red)
Next
End If
c.Close
Log("Sali")
c.Close
End Sub
Sub Regresar_Click
@@ -122,6 +129,7 @@ Sub b_noventa_Click
Next
End If
Else
Dim sumatotal As Double = 0
nombre_boton = "NOVENTA"
b_noventa.Text ="NO VENTA"
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")
@@ -137,7 +145,21 @@ Sub b_noventa_Click
label2 = ListView1.TwoLinesLayout.SecondLabel
label2.TextSize = 10
label2.TextColor = Colors.Black
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 x= 0 To cursorprueba.RowCount -1
cursorprueba.Position = x
' 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))
' Log("estoy aqui")
Next
cursorprueba.Close
ListView1.AddTwoLines(c.GetString("PC_CLIENTE"),c.GetString("NOMBRE") &" Cantidad #"& c.GetString("PC_NOART")& " SubTotal $"& c.GetString("PC_MONTO"))
' LogColor(i, Colors.Red)
Next
End If
c.Close