cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-20 03:29:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

- Se comentaron logs inecesarios

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-12-15 05:26:47 -06:00
parent 166b6a56b0
commit 3efdd92ffa
8 changed files with 32 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/C_Nota.bas
View File

@@ -85,7 +85,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
' Next
' End If
list_prodsPedido.Initialize
Log("list_prodsPedido.Initialize")
' Log("list_prodsPedido.Initialize")
If Existe <> 0 Then
c = Starter.skmt.ExecQuery("select pc_noart, pc_monto from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
C.Position = 0
@@ -145,7 +145,7 @@ Sub B4XPage_Appear
End If
c=Starter.skmt.ExecQuery("select count(*) as CUANTOS from kmt_info where (impresion = 1 or cat_cl_codigo in (select ci_cuenta from cliente_impreso)) and CAT_CL_CODIGO in (Select CUENTA from cuentaa)")
c.Position = 0
If logger Then Log($"Impreso: ${c.GetString("CUANTOS")}"$)
' If logger Then Log($"Impreso: ${c.GetString("CUANTOS")}"$)
If c.GetString("CUANTOS") > 0 Then
borra.Visible = False
Else
@@ -485,7 +485,7 @@ Private Sub clv_pedidos_ItemLongClick (position As Int, Value As Object)
c = Starter.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
c.Position = 0
If c.GetString("CUANTOS") > 0 Then
Log($"============== TOTAL = ${c.GetString("TOTAL_CLIE")}"$)
' Log($"============== TOTAL = ${c.GetString("TOTAL_CLIE")}"$)
If c.GetString("TOTAL_CLIE") < 1 Then
Starter.skmt.ExecNonQuery("delete from pedido where PE_PRONOMBRE like 'CAMBIO%' and PE_CLIENTE In (select cuenta from cuentaa)"$)
End If