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

ultima sin encuestas

Browse Source
This commit is contained in:
cvaldes1201
2024-02-01 18:27:37 -06:00
parent 766f2e0f6d
commit e6cea606e6
914 changed files with 1032 additions and 385 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/C_Productos.bas
View File

@@ -832,6 +832,7 @@ Sub b_terminar1_Click
Subs.agrupador
lv_prodsPedido.Clear
list_prodsPedido.Initialize
Subs.revisaRMIs(Subs.traeCliente)
Private c_prods As Cursor=Starter.skmt.ExecQuery("select PE_PRONOMBRE,PE_COSTO_TOT, ifnull(PE_COSTOU, 0) as PE_COSTOU, PE_CANT, PE_FOLIO, PE_CEDIS, PE_PROID, PE_TIPO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_TIPO desc, PE_CEDIS, PE_COSTO_TOT, PE_PRONOMBRE")
' Log(c_prods.RowCount)
If c_prods.RowCount > 0 Then
@@ -1068,7 +1069,7 @@ Private Sub lv_prodsPedido_ItemLongClick (Position As Int, Value As Object)
c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
c.Position = 0
usuario = c.GetString("USUARIO")
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=Starter.skmt.ExecQuery("select sum(pe_cant) 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")}"$)
@@ -1083,6 +1084,9 @@ Private Sub lv_prodsPedido_ItemLongClick (Position As Int, Value As Object)
Starter.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
End If
Log("xxx")
Subs.revisaRMIs(Subs.traeCliente)
b_terminar1_Click
End If
Else