- VERSION 4.07.24

- Se escondió el boton de Whatsapp.
- Se escondió el boton de "Motivo de no venta" si todavia no se hace el "Checklist"

B4A/kms_helperSubs.bas

@@ -198,6 +198,7 @@ Sub RD_restaura_cat_gunaprod
 			ToastMessageShow($"No hay respaldo GP para la fecha"$, True)
 		End If
 	End If
+	c.Close
 	Log("R-GP: " & ((DateTime.Now - inicio)/1000) & " segs")
 End Sub
 
@@ -241,7 +242,7 @@ Sub RD_restaura_cat_gunaprod2
 			ToastMessageShow($"No hay respaldo GP2 para la fecha"$, True)
 		End If
 	End If
-
+	c.Close
 	'Agregamos al inventario las cantidades del abordo
 	Private sqlAbordo As String = ""
 	Private sqlfechaAbordo As String = ""
@@ -307,6 +308,7 @@ Sub RD_restaura_cat_detalle_paq
 			ToastMessageShow($"No hay respaldo DP para la fecha"$, True)
 		End If
 	End If
+	c.Close
 	Log("R-DP: " & ((DateTime.Now - inicio)/1000) & " segs")
 End Sub
 
@@ -356,6 +358,7 @@ Sub RD_restaura_kmt_info
 			ToastMessageShow($"No hay respaldo KMTI para la fecha"$, True)
 		End If
 	End If
+	c.Close
 	Log("R-KMT: " & ((DateTime.Now - inicio)/1000) & " segs")
 End Sub
 
@@ -398,6 +401,7 @@ Sub RD_restaura_promos_comp
 			ToastMessageShow($"No hay respaldo PC para la fecha"$, True)
 		End If
 	End If
+	c.Close
 	Log("R-KMT: " & ((DateTime.Now - inicio)/1000) & " segs")
 End Sub
 
@@ -440,6 +444,7 @@ Sub RD_restaura_cat_rmi
 			ToastMessageShow($"No hay respaldo RMI para la fecha"$, True)
 		End If
 	End If
+	c.Close
 	Log("R-RMI: " & ((DateTime.Now - inicio)/1000) & " segs")
 End Sub
 
@@ -501,6 +506,7 @@ Sub agregaColumna(db As SQL, tabla As String, columna As String, tipo As String)
 			db.ExecNonQuery($"ALTER TABLE ${tabla} ADD COLUMN ${columna} ${tipo}"$)
 			Log($"Columna "${columna} ${tipo}", agregada a "${tabla}"."$)
 		End If
+		c.Close
 	Catch 'Si no funciona "pragma_table_info" lo hacemos con try/catch
 		Try
 			db.ExecNonQuery($"ALTER TABLE ${tabla} ADD COLUMN ${columna} ${tipo}"$)
@@ -526,10 +532,10 @@ Sub getTableColumnList(db As SQL, table As String) As String 'ignore
 				End If
 			Next
 		End If
+		c.Close
 	Else
 		Return "No existe la tabla."
 	End If
-	c.Close
 	Return l
 End Sub
 
@@ -548,10 +554,10 @@ Sub getTableColumnListName(db As SQL, table As String) As String 'ignore
 				End If
 			Next
 		End If
+		c.Close
 	Else
 		Return "No existe la tabla."
 	End If
-	c.Close
 	Return l
 End Sub
 
@@ -1112,6 +1118,7 @@ Sub traeDescXTipo(clienteId As String, tipo As String) As String 'ignore
 		If tipo = "RTEC" Then desc = c.GetString("CAT_CL_DESCUENTO_RTEC")
 		If tipo = "SALTY SNACKS" Then desc = c.GetString("CAT_CL_DESCUENTO_SS")
 	End If
+	c.Close
 	Return desc
 End Sub
 
@@ -1160,10 +1167,10 @@ Sub traeLimiteCredito(idCliente As String) As Double
 	Private limite As Double = 10000000
 	Private c As ResultSet = khdb.ExecQuery($"select ifnull(CAT_CL_BFACTURA,10000000) as CAT_CL_BFACTURA from kmt_info where CAT_CL_CODIGO = '${idCliente}' and CAT_CL_BCREDITO = 0"$)
 	Do While c.NextRow
-		Log($"|${c.GetString("CAT_CL_BFACTURA")}|"$)
-		limite = c.GetString("CAT_CL_BFACTURA")
+'		Log($"-${c.GetDouble("CAT_CL_BFACTURA")}-"$)
+		limite = c.GetDouble("CAT_CL_BFACTURA")
 	Loop
-	Log($"Limite: ${NumberFormat2(limite, 1, 0, 0, True)}"$)
+'	Log($"Limite: ${NumberFormat2(limite, 1, 0, 0, True)}"$)
 	Return limite
 End Sub
 
@@ -1178,7 +1185,7 @@ Sub totalPedido As Long 'ignore
 '		Log("|"&cT.GetLong("total")&"|"&pTotal)
 		Private tempT As String = cT.GetLong("total")
 		If tempT <> "null" And tempT <> Null Then
-			Log("|"&cT.GetLong("total")&"|")
+'			Log("|"&cT.GetLong("total")&"|")
 			pTotal = tempT
 		End If
 '		Log($"Cliente actual=${traeCliente}, hayPedido=${hay}"$)