Rodrigo Rodriguez (Pragmatismo)
5d21bba1e1
- Add KB Statistics keywords for Qdrant vector database monitoring: KB STATISTICS, KB COLLECTION STATS, KB DOCUMENTS COUNT, KB DOCUMENTS ADDED SINCE, KB LIST COLLECTIONS, KB STORAGE SIZE - Add comprehensive infrastructure documentation: - Scaling and load balancing with LXC containers - Infrastructure design with encryption, sharding strategies - Observ
78 lines
1.7 KiB
QBasic
78 lines
1.7 KiB
QBasic
SET SCHEDULE "0 0 0 */2 * *"
|
|
|
|
pageVariable = "pagina"
|
|
limitVariable = "limite"
|
|
syncLimit = 100
|
|
|
|
' Contas a Receber
|
|
SEND EMAIL admin, "Syncing Accounts Receivable..."
|
|
|
|
page = 1
|
|
totalReceber = 0
|
|
|
|
DO WHILE page > 0 AND page <= pages
|
|
url = host + "/contas/receber?" + pageVariable + "=" + page + "&" + limitVariable + "=" + syncLimit
|
|
res = GET url
|
|
WAIT 0.33
|
|
|
|
IF res.data THEN
|
|
items = res.data
|
|
itemCount = UBOUND(items)
|
|
|
|
IF itemCount > 0 THEN
|
|
MERGE "maria.ContasAReceber" WITH items BY "Id"
|
|
totalReceber = totalReceber + itemCount
|
|
page = page + 1
|
|
|
|
IF itemCount < syncLimit THEN
|
|
page = 0
|
|
END IF
|
|
ELSE
|
|
page = 0
|
|
END IF
|
|
ELSE
|
|
page = 0
|
|
END IF
|
|
|
|
res = null
|
|
items = null
|
|
LOOP
|
|
|
|
SEND EMAIL admin, "Accounts Receivable: " + totalReceber + " records."
|
|
|
|
' Contas a Pagar
|
|
SEND EMAIL admin, "Syncing Accounts Payable..."
|
|
|
|
page = 1
|
|
totalPagar = 0
|
|
|
|
DO WHILE page > 0 AND page <= pages
|
|
url = host + "/contas/pagar?" + pageVariable + "=" + page + "&" + limitVariable + "=" + syncLimit
|
|
res = GET url
|
|
WAIT 0.33
|
|
|
|
IF res.data THEN
|
|
items = res.data
|
|
itemCount = UBOUND(items)
|
|
|
|
IF itemCount > 0 THEN
|
|
MERGE "maria.ContasAPagar" WITH items BY "Id"
|
|
totalPagar = totalPagar + itemCount
|
|
page = page + 1
|
|
|
|
IF itemCount < syncLimit THEN
|
|
page = 0
|
|
END IF
|
|
ELSE
|
|
page = 0
|
|
END IF
|
|
ELSE
|
|
page = 0
|
|
END IF
|
|
|
|
res = null
|
|
items = null
|
|
LOOP
|
|
|
|
SEND EMAIL admin, "Accounts Payable: " + totalPagar + " records."
|
|
SEND EMAIL admin, "Accounts sync completed. Total: " + (totalReceber + totalPagar) + " records."
|