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

6.02.20

Browse Source 
Se agrega opcion para deshabilitar descuentos
Se modifica para que en mayoreo no les de el codigo de credito
Se cambia el querie del conecta_click
This commit is contained in:
cvaldes1201
2026-03-10 20:31:43 -06:00
parent 50cd0d6425
commit f483dbb26c
276 changed files with 6911 additions and 6725 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
B4A/C_Principal.bas
View File

@@ -587,7 +587,7 @@ End Sub
Sub recalculoXcant
' Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT* FROM PEDIDO JOIN CAT_PROMOS_DESCUENTOS ON CAT_PD_PRODUCTO = PE_PROID WHERE PE_CLIENTE IN (Select CUENTA FROM CUENTAA) AND PE_CEDIS = ? AND PE_CANT >= CAT_PD_RANGO AND CAT_PD_RANGO2 <= PE_CANT", Array As String(Subs.traeAlmacen))
Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_CEDIS = ? and PE_RECCEDIS IS NOT NULL AND PE_RECALCULADO IS NULL ", Array As String(Subs.traeAlmacen))
Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_CEDIS = ? and PE_RECCEDIS IS NOT NULL AND PE_RECALCULADO IS NULL AND PE_DESC = '0'", Array As String(Subs.traeAlmacen))
If c.RowCount > 0 Then
For promespdes = 0 To c.RowCount -1
c.Position = promespdes
@@ -1629,7 +1629,7 @@ Sub JobDone(Job As HttpJob)
If n = "OKActivo" Then
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_GV2_70_15"
cmd.Name = "select_ruta_GV2_70_16"
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text, usuario)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ruta")
'Log("Usuario guardado en BD es 'Valido'")