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

...

Browse Source
This commit is contained in:
cvaldes1201
2023-11-12 20:00:14 -06:00
parent d13c5f3b64
commit decbeadbdf
6 changed files with 19 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
B4A/C_Cliente.bas
View File

@@ -571,14 +571,15 @@ Sub B4XPage_Appear
Else
Cuestionario
End If
Log(YA_IMPRIMIO2)
If YA_IMPRIMIO2 = 0 Then
Guardar.Visible = False
Else
Guardar.Visible = True
End If
' If la_cuenta.text = "0" Then Guardar.Visible = True 'Abordo
If l_total.Text = Null Or l_total.Text = "null" Or l_total.text = "0" Then Guardar.Visible = True 'Si no hay venta entonces "Guardar" es visible.
If sumatotal = 0 Then Guardar.Visible = True 'Si no hay venta entonces "Guardar" es visible.
'l_total.Text = Null Or l_total.Text = "null" Or l_total.text = "0"
'Promo Especial
' If Logger Then LogColor($"Ultima actividad BD=${Subs.traeUltimaActividadBD}"$, Colors.Magenta)
Dim mPromoEspecial As Map = revisaPromoEspecial
@@ -1360,8 +1361,16 @@ Sub B_IMP2_Click
' Else
' sTotal2 = 0
' End If
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_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA","CAMBIO"))
s.Position = 0
Private sTotal3 As Double
If s.GetString("TOTAL") <> Null And IsNumber(s.GetString("TOTAL")) Then
sTotal3 = s.GetString("TOTAL")
Else
sTotal3 = 0
End If
Printer1.WriteString(Printer1.REVERSE & "===============================" & CRLF)
Printer1.WriteString( Printer1.UNREVERSE & Printer1.BOLD & $"Sub Total Venta: $${NumberFormat2(sTotal2, 1, 2, 2, False)}"$ & CRLF)
Printer1.WriteString( Printer1.UNREVERSE & Printer1.BOLD & $"Sub Total Venta: $${NumberFormat2((sTotal2+sTotal3), 1, 2, 2, False)}"$ & CRLF)
Private cantidad1 As String = "0"
If s.GetString("CANTIDAD") <> Null And IsNumber(s.GetString("CANTIDAD")) Then cantidad1 = s.GetString("CANTIDAD")
Printer1.WriteString( Printer1.UNREVERSE & Printer1.BOLD & "No. Productos: " & cantidad1 & CRLF)
@@ -1399,14 +1408,6 @@ Sub B_IMP2_Click
End If
s.Close
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_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA","CAMBIO"))
s.Position = 0
Private sTotal3 As Double
If s.GetString("TOTAL") <> Null And IsNumber(s.GetString("TOTAL")) Then
sTotal3 = s.GetString("TOTAL")
Else
sTotal3 = 0
End If
Printer1.WriteString(Printer1.REVERSE & "===============================" & CRLF)
Printer1.WriteString(Printer1.UNREVERSE & Printer1.BOLD & "Sub Total CAMBIOS: $" & NumberFormat2(sTotal3, 1, 2, 2, False) & CRLF)
Private cantidad2 As String = "0"
@@ -3096,7 +3097,7 @@ Private Sub b_geopass_Click
Log(Starter.server)
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_geoPass"
cmd.Name = "select_geoPass2"
cmd.Parameters = Array As Object(et_geopass.Text, Subs.traeAlmacen, Subs.traeRuta)
reqManager.ExecuteQuery(cmd , 0, "traeGeoPass")
Log($"${Starter.server}, ${et_geopass.Text}, ${Subs.traeAlmacen}, ${Subs.traeRuta}"$)