BAIXANDO DADOS DE PRODUTOS DE UM WEBSERVICE SOAP E FAZENDO DOWNLOAD DAS IMAGENS DE UMA URL

//EXECUTANDO O WEBSERVICE E PEGANDO O BLOCO CSV E CHAMANDO A PROC QUE VAI INTERPRETAR O CSV

Resultado is string = ws_sel_prodsite_app()

InterpretaPlotaResulta(Resultado)

------------------------------------------------------------------------------------


PROCEDURE InterpretaBlocoCsv(Resultado)

HourGlass(True)
L is int = 0
X is int = 1
Linha is string
QtdLinhas is int = StringCount(Resultado,"§",IgnoreCase)

HDeleteAll(view_prodsiteapp)

LOOP(QtdLinhas)

L++

Linha = ExtractString(Resultado,L,"§",FromBeginning)

TestaCODWEB is string = NoSpace(ExtractString(Linha,2,";",FromBeginning))

HReset(view_prodsiteapp) //a1 excel poneiro

IF HReadSeek(view_prodsiteapp, CODWEB, TestaCODWEB, hIdentical) = False //nao achou

view_prodsiteapp.NOMEWEB = ExtractString(Linha,1,";",FromBeginning)
view_prodsiteapp.CODWEB = ExtractString(Linha,2,";",FromBeginning)
view_prodsiteapp.NOMMARC = ExtractString(Linha,3,";",FromBeginning)
view_prodsiteapp.REFERENCIA = ExtractString(Linha,4,";",FromBeginning)
view_prodsiteapp.PRECO_A = ExtractString(Linha,5,";",FromBeginning)
view_prodsiteapp.PRECO_B = ExtractString(Linha,6,";",FromBeginning)
view_prodsiteapp.DESCUENTO = ExtractString(Linha,7,";",FromBeginning)
view_prodsiteapp.STOCK = ExtractString(Linha,8,";",FromBeginning)
view_prodsiteapp.FOTOS_PATH = "https://www.fastrax.com.py/documentos/"+NoSpace(view_prodsiteapp.CODWEB)+".png"

IF HAdd(view_prodsiteapp) = True

Thread_BuscaGravaFoto(view_prodsiteapp.CODWEB, view_prodsiteapp.FOTOS_PATH )

LooperAdd(LOOP_Compra_Rapida,view_prodsiteapp.CODWEB +TAB+ view_prodsiteapp.NOMEWEB +TAB+ view_prodsiteapp.NOMMARC +TAB+ view_prodsiteapp.REFERENCIA +TAB+ view_prodsiteapp.PRECO_A +TAB+ view_prodsiteapp.PRECO_B +TAB+ view_prodsiteapp.DESCUENTO +TAB+ view_prodsiteapp.STOCK)

END

END

END

LooperDisplay(LOOP_Compra_Rapida,taInit) //refresh

HourGlass(False)

------------------------------------------------------------------------

PROCEDURE Thread_BuscaGravaFoto(codwebx, pathfoto)

NaoExiste is boolean = False

HReset(view_prodsiteapp_fotos)

IF HReadSeek(view_prodsiteapp_fotos,CODWEB,codwebx,hIdentical)= False THEN

NaoExiste = True

END

IF HNbRec(view_prodsiteapp) > 0 and NaoExiste = True


HTTPRequest(pathfoto)

imagemProduto is Image = HTTPGetResult()

view_prodsiteapp_fotos.CODWEB = codwebx
view_prodsiteapp_fotos.FOTOBIN = imagemProduto
view_prodsiteapp_fotos.FOTOTHUMB = dResize(imagemProduto,60,30,drStretched)

IF imagemProduto..BitPerPixel > 0 THEN


HAdd(view_prodsiteapp_fotos)

ELSE



END



END