mirror of
https://github.com/KeymonSoft/Kelloggs_v4.git
synced 2026-04-21 11:59:13 +00:00
VERSION 6.03.24
- Se agrego codigo para que cuando envie un pedido o modificacipn deun pedido, borre antes de web todo lo que encuentre de ese cliente y luego mande el nuevo.
This commit is contained in:
@@ -86,9 +86,9 @@ Sub Service_Create
|
||||
reqManager.Initialize(Me, DBReqServer) 'Inicializamos reqManager.
|
||||
If Logger Then Log($"Starter reqManager server: ${DBReqServer}"$)
|
||||
'Para los Logs
|
||||
#if RELEASE
|
||||
' #if RELEASE
|
||||
logcat.LogCatStart(Array As String("-v","raw","*:F","B4A:v"), "logcat")
|
||||
#end if
|
||||
' #end if
|
||||
logs.Initialize
|
||||
sesion.Initialize
|
||||
End Sub
|
||||
@@ -124,7 +124,7 @@ Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
|
||||
logs.Append(StackTrace)
|
||||
Subs.revisaBD
|
||||
LogColor(logs, Colors.blue)
|
||||
errorLog.ExecNonQuery($"INSERT INTO errores(fecha, error) VALUES ('${Subs.fechaKMT(DateTime.now)}', '${logs}')"$)
|
||||
skmt.ExecNonQuery($"INSERT INTO errores(fecha, error) VALUES ('${Subs.fechaKMT(DateTime.now)}', '${logs}')"$)
|
||||
LogColor("insertamos Error", Colors.red)
|
||||
StartActivity(errorManager)
|
||||
Return True
|
||||
|
||||
Reference in New Issue
Block a user