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

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

Browse Source
This commit is contained in:
cvaldes1201
2023-10-27 12:29:08 -06:00
parent 16981ec1bd
commit 67403c695f
6 changed files with 68 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
B4A/C_TicketsDia.bas
View File

@@ -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