74 lines
1.7 KiB
QBasic
74 lines
1.7 KiB
QBasic
|
REM Geral
|
||
|
|
REM Produto Fornecedor
|
||
|
|
|
||
|
|
FUNCTION SyncProdutoFornecedor(idProduto)
|
||
|
|
REM Sincroniza ProdutoFornecedor.
|
||
|
|
DELETE "maria.ProdutoFornecedor", "Produto_id=" + idProduto
|
||
|
|
|
||
|
|
i1 = 1
|
||
|
|
DO WHILE i1 > 0 AND i1 < pages
|
||
|
|
res = GET host + "/produtos/fornecedores?pagina=${i1}&limite=${limit}&idProduto=${idProduto}"
|
||
|
|
list1 = res.data
|
||
|
|
res = null
|
||
|
|
WAIT 0.33
|
||
|
|
|
||
|
|
REM Sincroniza itens
|
||
|
|
let j1 = 0
|
||
|
|
items1 = NEW ARRAY
|
||
|
|
|
||
|
|
DO WHILE j1 < ubound(list1)
|
||
|
|
produtoFornecedor_id = list1[j1].id
|
||
|
|
res = GET host + "/produtos/fornecedores/${produtoFornecedor_id}"
|
||
|
|
items1[j1] = res.data
|
||
|
|
res = null
|
||
|
|
WAIT 0.33
|
||
|
|
j1 = j1 + 1
|
||
|
|
LOOP
|
||
|
|
|
||
|
|
SAVE "maria.ProdutoFornecedor", items1
|
||
|
|
items1= null
|
||
|
|
i1 = i1 + 1
|
||
|
|
|
||
|
|
IF list1?.length < limit THEN
|
||
|
|
i1 = 0
|
||
|
|
END IF
|
||
|
|
res=null
|
||
|
|
list1=null
|
||
|
|
LOOP
|
||
|
|
END FUNCTION
|
||
|
|
|
||
|
|
i = 1
|
||
|
|
SEND EMAIL admin, "Sincronismo Fornecedores iniciado..."
|
||
|
|
|
||
|
|
fullList = FIND "maria.Produtos"
|
||
|
|
|
||
|
|
REM Initialize chunk parameters
|
||
|
|
chunkSize = 100
|
||
|
|
startIndex = 0
|
||
|
|
|
||
|
|
REM ubound(fullList)
|
||
|
|
DO WHILE startIndex < ubound(fullList)
|
||
|
|
list = mid( fullList, startIndex, chunkSize)
|
||
|
|
|
||
|
|
REM Sincroniza itens de Produto
|
||
|
|
prd1 = ""
|
||
|
|
j = 0
|
||
|
|
items = NEW ARRAY
|
||
|
|
|
||
|
|
DO WHILE j < ubound(list)
|
||
|
|
produto_id = list[j].id
|
||
|
|
prd1 = prd1 + "&idsProdutos%5B%5D=" + produto_id
|
||
|
|
CALL SyncProdutoFornecedor(produto_id)
|
||
|
|
j = j +1
|
||
|
|
LOOP
|
||
|
|
|
||
|
|
list = null
|
||
|
|
|
||
|
|
REM Update startIndex for the next chunk
|
||
|
|
startIndex = startIndex + chunkSize
|
||
|
|
items = null
|
||
|
|
LOOP
|
||
|
|
|
||
|
|
fullList = null
|
||
|
|
SEND EMAIL admin, "Fornecedores concluído."
|