mirror of
https://github.com/KeymonSoft/Kelloggs_v4.git
synced 2026-04-17 18:26:11 +00:00
VERSION 6.01.28
- Cambio en e manifiesto para corregir el "teclado" fantasma.
This commit is contained in:
@@ -1220,7 +1220,7 @@ Sub B_IMP_Click
|
||||
a_VENTA_F = 0
|
||||
End If
|
||||
C4.Close
|
||||
|
||||
|
||||
C4=Starter.skmt.ExecQuery2("select count(*) as CUANTOS from pedido where substr(pe_pronombre,1,6) = ? AND PE_PROID = ? ", Array As String("CAMBIO", s.GetString("CAT_GP_ID")))
|
||||
C4.Position=0
|
||||
If C4.GetString("CUANTOS") > 0 Then
|
||||
|
||||
@@ -309,6 +309,10 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
kh.centraPanel(Panel2, Root.Width)
|
||||
kh.centraPanel(Panel1, Root.Width)
|
||||
kh.centraPanel(p_botonesResumen, Root.Width)
|
||||
p_transparente.Top = 0 : p_transparente.left = 0
|
||||
p_transparente.Height = Root.Height : p_transparente.Width = Root.Width
|
||||
' PNL_ACCESO.Top = 0 : PNL_ACCESO.left = 0
|
||||
' PNL_ACCESO.Height = Root.Height : PNL_ACCESO.Width = Root.Width
|
||||
' kh.centraPanel(Panel7, Root.Width)
|
||||
' kh.centraPanel(PNL_ACCESO, Root.Width)
|
||||
|
||||
@@ -565,7 +569,7 @@ Sub B4XPage_Appear
|
||||
NUEVO.Enabled = True
|
||||
B_PROXIMA.Enabled = True
|
||||
End If
|
||||
|
||||
|
||||
'############# Deshabilitamos botones para validacion de ruta y vinculo #########
|
||||
c = Starter.skmt.ExecQuery("select count(*) as cuantos from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = 'LIGADO' and CAT_VA_VALOR = 1")
|
||||
c.Position = 0
|
||||
@@ -2522,6 +2526,7 @@ Private Sub connecta_LongClick
|
||||
'' End If
|
||||
' Log("MANDAMOS BITACORA")
|
||||
If e_ruta.Text = "KMTKLL1" Then Subs.deshabilitaValidaciones
|
||||
' B4XPages.MainPage.recordatorio.agregaPanelRecordatorio(Root)
|
||||
End Sub
|
||||
|
||||
Sub BUSCA_Click
|
||||
|
||||
Binary file not shown.
File diff suppressed because one or more lines are too long
@@ -69,40 +69,40 @@ ModuleBreakpoints7=
|
||||
ModuleBreakpoints8=
|
||||
ModuleBreakpoints9=
|
||||
ModuleClosedNodes0=
|
||||
ModuleClosedNodes1=3,4,6,10,11,12,13,14,15,16,18,19,20,21,22,23,24,25,26,27,28,29,31,33,34,35,37,38,39,40,41,42,43,45,46,47
|
||||
ModuleClosedNodes1=
|
||||
ModuleClosedNodes10=
|
||||
ModuleClosedNodes11=
|
||||
ModuleClosedNodes12=
|
||||
ModuleClosedNodes13=1,3
|
||||
ModuleClosedNodes14=3,8,9,11,12
|
||||
ModuleClosedNodes15=1,2
|
||||
ModuleClosedNodes16=3
|
||||
ModuleClosedNodes17=3,8,17
|
||||
ModuleClosedNodes13=
|
||||
ModuleClosedNodes14=
|
||||
ModuleClosedNodes15=
|
||||
ModuleClosedNodes16=
|
||||
ModuleClosedNodes17=
|
||||
ModuleClosedNodes18=
|
||||
ModuleClosedNodes19=
|
||||
ModuleClosedNodes2=
|
||||
ModuleClosedNodes20=7,8,9,10,11,12,13,14
|
||||
ModuleClosedNodes21=3,4
|
||||
ModuleClosedNodes20=
|
||||
ModuleClosedNodes21=
|
||||
ModuleClosedNodes22=
|
||||
ModuleClosedNodes23=
|
||||
ModuleClosedNodes24=
|
||||
ModuleClosedNodes25=
|
||||
ModuleClosedNodes26=
|
||||
ModuleClosedNodes27=24,26,31,32,33,35
|
||||
ModuleClosedNodes27=
|
||||
ModuleClosedNodes28=
|
||||
ModuleClosedNodes29=3,4
|
||||
ModuleClosedNodes29=3
|
||||
ModuleClosedNodes3=
|
||||
ModuleClosedNodes30=
|
||||
ModuleClosedNodes31=
|
||||
ModuleClosedNodes32=
|
||||
ModuleClosedNodes33=116
|
||||
ModuleClosedNodes33=
|
||||
ModuleClosedNodes34=
|
||||
ModuleClosedNodes4=
|
||||
ModuleClosedNodes5=
|
||||
ModuleClosedNodes6=
|
||||
ModuleClosedNodes7=
|
||||
ModuleClosedNodes8=
|
||||
ModuleClosedNodes9=3
|
||||
NavigationStack=C_Auditoria,traeCliente,67,6,C_Auditoria,traeRuta,46,0,C_Auditoria,traeUsuarioDeBD,60,4,C_Auditoria,traeAlmacen,36,6,C_Auditoria,Class_Globals,0,0,C_Auditoria,B4XPage_Created,15,0,C_Auditoria,Initialize,12,0,B4XMainPage,B4XPage_Appear,409,0,B4XMainPage,Class_Globals,120,0,Starter,Process_Globals,55,0
|
||||
ModuleClosedNodes9=
|
||||
NavigationStack=B4XMainPage,B4XPage_Appear,484,0,B4XMainPage,B4XPage_Created,392,0,B4XMainPage,Initialize,123,0,C_Principal,B4XPage_Appear,333,0,C_Principal,connecta_LongClick,2504,0,C_Principal,connecta3,2503,0,C_Principal,connecta2,2488,0,C_Principal,b_motivoNoVisita_Click,4075,0,Diseñador Visual,principal.bal,-100,6,C_Principal,B4XPage_Created,311,0
|
||||
SelectedBuild=0
|
||||
VisibleModules=32,1,13,4,33,15,34,2,20,14,16,8,7,9,10,11,12,29,5
|
||||
VisibleModules=32,1,13,4,33,15,34,14,29
|
||||
|
||||
57
B4A/Subs.bas
57
B4A/Subs.bas
@@ -2498,32 +2498,51 @@ Public Sub RecalcularInventario
|
||||
' 3. FILTRA (Ignora) los RMIs usando PE_CEDIS <> 'DUR' y el nombre '%CAMBIO%'.
|
||||
' 4. Actualiza CAT_GUNAPROD2 masivamente.
|
||||
|
||||
' Dim sql As String = _
|
||||
' "UPDATE CAT_GUNAPROD2 " & _
|
||||
' "SET CAT_GP_ALMACEN = ( " & _
|
||||
' " SELECT (IFNULL(T5.CAT_GP_ALMACEN, 0) - IFNULL(Ventas.CantidadVendida, 0)) " & _
|
||||
' " FROM CAT_GUNAPROD5 T5 " & _
|
||||
' " LEFT JOIN ( " & _
|
||||
' " SELECT PE_PROID, SUM(PE_CANT) AS CantidadVendida " & _
|
||||
' " FROM PEDIDO " & _
|
||||
' " WHERE PE_CLIENTE <> '0' " & _
|
||||
' " AND PE_CEDIS <> 'DUR' " & _
|
||||
' " AND PE_PRONOMBRE NOT LIKE '%CAMBIO%' " & _
|
||||
' " GROUP BY PE_PROID " & _
|
||||
' " ) Ventas ON T5.CAT_GP_ID = Ventas.PE_PROID " & _
|
||||
' " WHERE T5.CAT_GP_ID = CAT_GUNAPROD2.CAT_GP_ID " & _
|
||||
' ") " & _
|
||||
' "WHERE EXISTS ( " & _ '<-- ESTA ES LA CLAVE QUE EVITA LOS NULLS
|
||||
' " SELECT 1 FROM CAT_GUNAPROD5 T5 " & _
|
||||
' " WHERE T5.CAT_GP_ID = CAT_GUNAPROD2.CAT_GP_ID " & _
|
||||
' ")"
|
||||
|
||||
Dim sql As String = _
|
||||
"UPDATE CAT_GUNAPROD2 " & _
|
||||
"SET CAT_GP_ALMACEN = ( " & _
|
||||
" SELECT (IFNULL(T5.CAT_GP_ALMACEN, 0) - IFNULL(Ventas.CantidadVendida, 0)) " & _
|
||||
" FROM CAT_GUNAPROD5 T5 " & _
|
||||
" LEFT JOIN ( " & _
|
||||
" SELECT PE_PROID, SUM(PE_CANT) AS CantidadVendida " & _
|
||||
" FROM PEDIDO " & _
|
||||
" WHERE PE_CLIENTE <> '0' " & _
|
||||
" AND PE_CEDIS <> 'DUR' " & _
|
||||
" AND PE_PRONOMBRE NOT LIKE '%CAMBIO%' " & _
|
||||
" GROUP BY PE_PROID " & _
|
||||
" ) Ventas ON T5.CAT_GP_ID = Ventas.PE_PROID " & _
|
||||
" WHERE T5.CAT_GP_ID = CAT_GUNAPROD2.CAT_GP_ID " & _
|
||||
") " & _
|
||||
"WHERE EXISTS ( " & _ '<-- ESTA ES LA CLAVE QUE EVITA LOS NULLS
|
||||
" SELECT 1 FROM CAT_GUNAPROD5 T5 " & _
|
||||
" WHERE T5.CAT_GP_ID = CAT_GUNAPROD2.CAT_GP_ID " & _
|
||||
")"
|
||||
"UPDATE CAT_GUNAPROD2 " & _
|
||||
"SET CAT_GP_ALMACEN = ( " & _
|
||||
" SELECT (IFNULL(INV.CI_INVENTARIO, 0) - IFNULL(Ventas.CantidadVendida, 0)) " & _
|
||||
" FROM CAT_INVENTARIO INV " & _
|
||||
" LEFT JOIN ( " & _
|
||||
" SELECT PE_PROID, SUM(PE_CANT) AS CantidadVendida " & _
|
||||
" FROM PEDIDO " & _
|
||||
" WHERE PE_CLIENTE <> '0' " & _
|
||||
" AND PE_CEDIS <> 'DUR' " & _
|
||||
" AND PE_PRONOMBRE NOT LIKE '%CAMBIO%' " & _
|
||||
" GROUP BY PE_PROID " & _
|
||||
" ) Ventas ON INV.CI_IDPROD = Ventas.PE_PROID " & _
|
||||
" WHERE INV.CI_IDPROD = CAT_GUNAPROD2.CAT_GP_ID " & _
|
||||
") " & _
|
||||
"WHERE EXISTS ( " & _
|
||||
" SELECT 1 FROM CAT_INVENTARIO INV " & _
|
||||
" WHERE INV.CI_IDPROD = CAT_GUNAPROD2.CAT_GP_ID " & _
|
||||
")"
|
||||
|
||||
' Ejecutamos el cálculo masivo
|
||||
Starter.skmt.ExecNonQuery(sql)
|
||||
|
||||
Starter.skmt.TransactionSuccessful
|
||||
If Starter.Logger Then Log("Inventario Sincronizado (Excluyendo RMIs)")
|
||||
|
||||
Catch
|
||||
Log("Error al recalcular inventario: " & LastException)
|
||||
End Try
|
||||
|
||||
Reference in New Issue
Block a user