Windev21 Aulas,Estudos e Desenvolvimento: HttpRequest

Mostrando postagens com marcador HttpRequest. Mostrar todas as postagens

quinta-feira, 1 de agosto de 2019

DICAS 2226 WINDEV WEBDEV MOBILE 24 NOVIDADES 26 WEBSERVICE 29 HTTPREQUES...

ErpMatos - TgsSistemas

skype:amarildo.matos.informatica

email: amarildo.matos@gmail.com

whats: 51984197742

Youtube: Amarildo Matos

http://www.amarildomatos.com.br

https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com

https://www.pcsoft.fr/webinaires.htm?p=forumpcs

https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp

https://www.windev.com/windev/WD-Express.htm

https://www.windev.com/windevmobile/WM-Express.htm

http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html

https://doc.windev.com/en-US/?3043007&name=HTTPRequest

https://youtu.be/nc1Metp1ROQ

BOM DIA,SEJA BEM VINDOS A MAIS UMA VIDEO AULA. ESSA AULA ESTA SENDO GRAVADA NO DIA 31 07 2019.
DICA 2226. VOU MOSTRAR PROPRIEDADE DESTINATION - EVITA CONSUMO MEMORIA - HTTPREQUEST NOVIDADE VERSAO 24 BUSCA CNPJ

DICAS 2226 - WINDEV WEBDEV MOBILE - 24 NOVIDADES 26 - WEBSERVICE 29 - HTTPREQUEST DESTINATION BUSCA CNPJ

// BTN_BUSCA_CNPJ_HTTPREQUEST
SURL is string="HTTPS://WWW.receitaws.com.br/v1/cnpj/"+EDT_CNPJ
PEDIDO_REQUEST is httpRequest
PEDIDO_REQUEST.URL=SURL
IF INT_GRAVAR_Hd=True // AQUI VEM A NOVIDADE 24 THEN
PEDIDO_REQUEST.Destination="E:\TEMP\HTTPREQUEST\CNPJ_"+EDT_CNPJ+".TXT"
END
RESPOSTA is httpResponse
RESPOSTA=HTTPSend(PEDIDO_REQUEST)
IF INT_GRAVAR_Hd=True THEN
ShellExecute("E:\TEMP\HTTPREQUEST\CNPJ_"+EDT_CNPJ+".TXT")
EDT_RETORNO="O RETORNO ESTA NO DIRETORIO"
ELSE
EDT_RETORNO=UTF8ToAnsi(RESPOSTA.Content)
END

terça-feira, 19 de março de 2019

DICAS 2049 - WINDEV MOBILE - AULA 110 - WaitWindowStart

ErpMatos - TgsSistemas
skype:amarildo.matos.informatica
email: amarildo.matos@gmail.com
whats: 51984197742
Youtube: Amarildo Matos
http://www.amarildomatos.com.br

www.windev.com
https://www.pcsoft.fr/webinaires.htm?p=forumpcs
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp
https://www.windev.com/windev/WD-Express.htm
https://www.windev.com/windevmobile/WM-Express.htm
https://groups.google.com/forum/#!forum/amarildowindev
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html

bom dia

https://youtu.be/Iu7dCX2qfqk

https://windevdesenvolvimento.blogspot.com/2019/03/dicas-2049-windev-mobile-aula-110.html

https://help.windev.com/?1000023416&name=waitwindowstart_function

=====================================================

BOM DIA,SEJA BEM VINDOS A MAIS UMA VIDEO AULA. ESSA AULA ESTA SENDO GRAVADA NO DIA 19 03 2019. DICA 2049 . Vou Mostrar como Abrir uma janela de espera do aplicativo.

GOOD MORNING, WELCOME TO MORE VIDEO AULA. THIS CLASS IS BEING RECORDED ON THE DAY 19 03 2019. TIP 2049. I will show you how to open an application window.

Buenos días, es bienvenido a otro vídeo AULA. ESTA CLASE ESTA SENDO GRABADA EN EL DÍA 19 03 2019. DICA 2049. Voy a mostrar cómo abrir una ventana de espera de la aplicación.

BON MATIN, BIENVENUE À PLUS DE VIDÉO AULA. CETTE CLASSE EST ENREGISTREE LE JOUR 19 03 2019. CONSEIL 2049. Je vais vous montrer comment ouvrir une fenêtre d'application.

DICAS 2049 - WINDEV MOBILE - AULA 110 - WaitWindowStart
=====================

// BTN_WAITWINDOWSSTART
WaitWindowStart("Baixando uma Imagen")
ThreadExecute("MinhaThread",threadNormal,procedure_baixa_imagen)
INTERNAL PROCEDURE procedure_baixa_imagen()
IF HTTPRequest("http://www.matosinformatica.com.br/Arquivos/amarildo.png") THEN
bufFer_imagen is Buffer=HTTPGetResult()
ExecuteMainThread(procedureBxIm)
INTERNAL PROCEDURE procedureBxIm()

IMG_IMAGEN= bufFer_imagen

END

WaitWindowEnd()

END
END

DICAS 1849- PUBLICA - WINDEV_MOBILE 23 - CURSO MOBILE 1 - INICIO
LOGIN MANUAL / LAYOUT -1851- PUBLICA - WINDEV_MOBILE 23 - CURSO MOBILE 2

DICAS 1853- PUBLICA - WINDEV_MOBILE 23 - CURSO MOBILE 3 - LOGIN - acesso

ACTION BAR - DICAS 1855- PUBLICA - WINDEV_MOBILE 23 - CURSO MOBILE 4 -

PLANOS - DICAS 1860- PUBLICA - WINDEV_MOBILE 23 - CURSO MOBILE 5 -

TOTALIZAR TABELA - DICAS 1911 - PUBLICA - WINDEV MOBILE 23 - 6 -
Looper com Query - DICAS 1912 - PUBLICA - WINDEV MOBILE 23 - 7 -
PROCURA NOME Looper com Query - DICAS 1913 - PRIVADA - WINDEV MOBILE 23 - 8 -
CRIAR DIRETORIO - DICAS 1925 - PUBLICO - WINDEV MOBILE 9 -
DIRETORIO DADOS - DICAS 1926 - PUBLICO - WINDEV MOBILE 10 - FCACHEDIR -
INSTALAR WIFI NO CELULAR-DICAS 1927-PUBLICO - WINDEV MOBILE 11 - BROTHER -
Dashboard 1 - DICAS 1941 - PUBLICA - WINDEV MOBILE - 12-
DICAS 1967 - PUBLICA - WINDEV MOBILE - 13 - The HTML control
DICAS 1987 - WINDEV MOBILE - DICAS 14 - gpsgetposition - pegar posição atual
DICAS 1988 - WINDEV MOBILE - DICAS 108 - geoAzimuth - DIREÇÃO
DICAS 2028 - WINDEV MOBILE - AULA 109 - ENVIAR EMAIL - EmailRunApp
DICAS 2049 - WINDEV MOBILE - AULA 110 - WaitWindowStart Ampuleta
DICAS 2061 - WINDEV MOBILE - AULA 110 - APK NO GOOGLE PLAY
instalacao java-adriano boller
DICAS 2189 - HANGOUT VIVO - 09 07 2019 08:00 INSTALANDO WINDEV
DICAS 2190 WINDEV WEBDEV MOBILE MOBILLE 113 INSTALANDO ATUALIZAR dONGLE

segunda-feira, 4 de março de 2019

DICAS 2033 - WINDEV - WEBSERVICE 23 - HTTPRequest - HTTPGetResult - fSaveBuffer - BAIXAR ARQUIVO

https://doc.windev.com/en-US/?3043007
https://doc.windev.com/en-US/?3043001&name=httpgetresult_function
https://doc.windev.com/en-US/?1000019412&name=fSaveBuffer

ErpMatos - TgsSistemas
skype:amarildo.matos.informatica
email: amarildo.matos@gmail.com
whats: 51984197742
Youtube: Amarildo Matos
http://www.amarildomatos.com.br

www.windev.com
https://www.pcsoft.fr/webinaires.htm?p=forumpcs
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp
https://www.windev.com/windev/WD-Express.htm
https://www.windev.com/windevmobile/WM-Express.htm
https://groups.google.com/forum/#!forum/amarildowindev
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html

=====================================================

BOM DIA,SEJA BEM VINDOS A MAIS UMA VIDEO AULA. ESSA AULA ESTA SENDO GRAVADA NO DIA 04 03 2019. DICA 2033. HOJE VOU MOSTRAR COMO BAIXAR ARQUIVO UTILIZANDO , HTTPRequest , HTTPGetResult , fSaveBuffer.

GOOD MORNING, WELCOME TO MORE VIDEO AULA. THAT CLASS IS BEING RECORDED ON 04 03 2019. TIP 2033. TODAY I WILL SHOW HOW TO DOWNLOAD FILE USING, HTTPRequest, HTTPGetResult, fSaveBuffer.

Buenos días, es bienvenido a otro vídeo AULA. ESTA CLASE ESTA SENDO GRABADA EN EL DÍA 04 03 2019. SUGERÍA 2033. HOY VUELVE MOSTRAR COMO BAJAR ARCHIVO UTILIZANDO, HTTPRequest, HTTPGetResult, fSaveBuffer.

BON MATIN, BIENVENUE À PLUS DE VIDÉO AULA. CETTE CLASSE EST ENREGISTRÉE LE 04 03 2019. CONSEIL 2033. AUJOURD'HUI, JE MONTRERAI À TÉLÉCHARGER LE FICHIER EN UTILISANT, HTTPRequest, HTTPGetResult, fSaveBuffer.

DICAS 2033 - WINDEV - WEBSERVICE 23 - HTTPRequest - HTTPGetResult - fSaveBuffer - BAIXAR ARQUIVO

// https://doc.windev.com/en-US/?3043007
// https://doc.windev.com/en-US/?3043001&name=httpgetresult_function
// https://doc.windev.com/en-US/?1000019412&name=fSaveBuffer
// BTN BAIXAR ARQUIVO HTTPRESQUEST

HTTPRequest("http://www.NOMESERVIDOR.com.br/estudos/teste.rar")

bufFer_retorno is Buffer= HTTPGetResult()
sBaixar_arquivo is string="c:\temp\teste.rar"

bRetorno is boolean=fSaveBuffer(sBaixar_arquivo,bufFer_retorno)
IF bRetorno=True THEN
Info("arquivo baixado com sucesso ")
ELSE
Info(ErrorInfo(errFullDetails))

END

Criar Projeto WebService - Lista Site - - WebService - 001/...
Deploy - Gerando WebService/Levando Servidor/Instalar/Mostrar - WebService - 002/...
Instalando SoapUI - Testar WebService - Aula 1040 - WebService - 003/...
Ajustando Xml Lista Site WebService - WebService - 004/...
Consumir WebService - WebService - 005
Xml - Consumir Ler Xml e colocar Tabela - WebService - 006
Dolar - Consumir WebService - Cotação Dolar - 007
Cnpj Receita - Consumir WebService - 008/...
Cep Buscar WebService Correio - WebService - 009/...
CONSULTA CADASTRO SEFAZ P-1 - DICAS 1871 - WINDEV_23 - WEBSERVICE 010 -
CONSULTA CADASTRO SEFAZ P-2 - 1872 - PUBLICA - WINDEV_23 - WEBSERVICE 011 -
CONSULTA CADASTRO SEFAZ P-3 - 1873 - PUBLICA - WINDEV_23 - WEBSERVICE 012 -
DICAS 1877 - WINDEV_23 - WEBSERVICE 014 - CNPJ BUSCA CADASTRO ACBR
DICAS 2019 - WINDEV - WEBSERVICE - 015 - APRENDER A FAZER REST WEBSERVICE
DICAS 2020 - WINDEV - WEBSERVICE - 016 - CRIANDO TABELAS
DICAS 2021 - WINDEV - WEBSERVICE - 017 - WDTESTREST
DICAS 2022 - WINDEV MOBILE - WEBSERVICE - 018 - LER WEBSERVICE RESTSend
DICAS 2023 - WINDEV MOBILE - WEBSERVICE - 019 - LER WEBSERVICE RESTSend SOMENTE 1 REGISTRO
DICAS 2024 - WINDEV MOBILE - WEBSERVICE - 020 - WEBSERVICE RESTSend CRIA NOVO REGISTRO - httpPost
DICAS 2025 - WINDEV MOBILE - WEBSERVICE - 021 - WEBSERVICE RESTSend ALTERA REGISTRO - httpPut
DICAS 2026 - WINDEV MOBILE - WEBSERVICE - 022 - WEBSERVICE httpRequest httpDelete
DICAS 2033 - WINDEV - WEBSERVICE 23 - HTTPRequest - HTTPGetResult - fSaveBuffer - BAIXAR ARQUIVO
AO VIVO - SOAP - DICA 2095 - WINDEV MOBILE WEBDEV - WEBSERVICE COM MOBILE -

DICAS 2049 - WINDEV MOBILE - AULA 110 - WaitWindowStart - Ampuleta Mobile

sábado, 13 de janeiro de 2018

API SMS,API PAGSEGURO INTEGRACAO WINDEV

WX - Trabalhando com Httprequest com os exemplos que usam CURL - API Pagseguro - API SMS - entre outras finalidades de integração.

http://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/754-trabalhando-com-httprequest-com-exemplos-que-usam-curl/read.awp

WX - Trabalhando com Httprequest com os exemplos que usam CURL -
API Pagseguro -
API SMS -
entre outras finalidades de integração.

quinta-feira, 4 de agosto de 2016

WX - Json X httprequest + httpgetresult

http://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/1569-json-httprequest-httpgetresult/read.awp

Publicado em agosto, 04 2016 - 9:39 AM

Bonjour,

Endereço: http: // server / ao ar livre / Serviço / api / login

Conteúdo do JSON contendo o usuário e a senha: { "username", "user", "password", "*****"}

A função, em seguida, retorna uma permissão de sessão que será usado para autenticar futuro consultas.

O ticket token é: TICKET_b1ea7f2a00253859999dc27be19faccf6c3c89f7

Para qualquer pedido futuro, você deve então fazer algo parecido com isto:

//Example
CommandeAlfresco est un HTTPRequête
ReponseAlfresco est un httpRéponse
CommandeAlfresco.Utilisateur="ROLE_TICKET"
CommandeAlfresco.MotDePasse="TICKET_b1ea7f2a00253859999dc27be19faccf6c3c89f7"
CommandeAlfresco.ContentType="application/json"
CommandeAlfresco.Méthode=httpPost
CommandeAlfresco.URL="http://serveur/alfresco/service/api/sites" //pour lister les sites présent
ReponseAlfresco = HTTPEnvoie(CommandeAlfresco)

sexta-feira, 15 de janeiro de 2016

HTTPREQUEST EM CONSULTAS COMPLEXAS

http://189.113.6.131/ww_forum/PAGE_Forum/BA4AAHOoj4lQVXlsWldSVFROAQA

http://www.pedrosoinformatica.com.br/

Dependendo da consulta a ser executada, pode funcionar corretamente no navegador, mas retornar um resultado errado com a função HTTPRequest da WLanguage. Normalmente isso ocorre devido à uma má codificação da requisição, e o servidor WEB não tem como explorar adequadamente o recurso. Neste caso é necessário codificar adequadamente a consulta com a função URLEncode da WLanguage e em seguida passar a sequência codificada para a função HTTPRequest.

sminhaconsulta is string = "http://..."

//codifica a consulta via URLEncode

//substitui os espaços por %20, por exemplo

sminhaconsulta = URLEncode(sminhaconsulta)

//executa a consulta codificada

HTTPRequest(sminhaconsulta)

quarta-feira, 13 de janeiro de 2016

HttpRequest + Envelope Soap

http://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/121-httprequest-envelope-soap/read.awp

Assistir Video Windev Mobile - Webservice Revisando o codigo SOAP
Assistir Video Windev Mobile - Criando um Webservice usando SOAP medodo "Post"
Assistir Video Windev Mobile - Webservice Detalhes como consumir dados envio e retorno
Assistir Video Windev - Webservice Outro Exemplo e Testes em Querys
Assistir Video Windev - Webservice
Assistir Video Webdev - Webservice Configuração e Deploy
Assistir Video Webdev - Exemplo de aplicação Web by Paulo Viana
Webservice com SoapUi - Instalação e Exemplo de Uso
Windev Mobile - Criando um Webservice usando SOAP medodo "Post" (Envelope Xml)

http://zbra.com.br/2011/03/30/consumindo-web-service-em-aplicacoes-android/

http://windevdesenvolvimento.blogspot.com.br/2014/12/windev-webservice-soap.html

http://windevdesenvolvimento.blogspot.com.br/2015/01/windev-mobile-webservice-revisando-o.html

Ex07: Envelope SOAP
#####################################################
Code Button:
Procedure WS_Taxi_AtualizarCartoes(LOCAL DebugSN)

IF GloDebugSN = "S" THEN
Info("WS_Taxi_AtualizarCartoes")
DebugSN = "S"
END

ok is boolean = False

Contador is int = 0

bAtualizar is boolean = False

IpSaladaFruta01 is string = Morango_01 +"."+ Abacaxi_02 +"."+ Limao_03 +"."+ Melancia_04 +":"+ Laranja_05
IpSaladaFruta02 is string = Morango_01 +"."+ Abacaxi_02 +"."+ Limao_03 +"."+ Melancia_04 +":"+ Manga_06

ChangeCharset(charsetOccidental) // SEM ACENTO

//Busca Cliente
HReadSeekFirst(t001_cliente,t001_cliente.t001_seq_cliente,1)
IF HFound(t001_cliente) = True THEN

erro is int = 0
CodClienteCelula, nRetornoCodigo is int = 0
bRet is boolean = False
XML_Retorno, NumProces is string = ""

//Busca Cliente
HReadSeekFirst(t001_cliente,t001_cliente.t001_seq_cliente,1)
IF HFound(t001_cliente) = True THEN

//NumProcess

NumProces = WS_Taxi_ValidaRequisicao(t001_cliente.t001_ddd_telefone,...
t001_cliente.t001_num_telefone,...
0,...
0,...
"N")

//Envio
IF CodClienteCelula = "" OR CodClienteCelula = 0 THEN
CodClienteCelula = t001_cliente.t001_cod_clientecelula
END

//Envelope
Xml_SEND is string = [
<soapenv:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:urn="urn:act297_RtPlusSSDM-IRtPlusSSDM#AtualizarCartoes">
<soapenv:Header/>
<soapenv:Body>
<urn:AtualizarCartoes soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
<cod_client_celula xsi:type="xsd:int">v001</cod_client_celula>
<dat_hora_proces xsi:type="xsd:string">v002</dat_hora_proces>
<num_proces xsi:type="xsd:int">v003</num_proces>
</urn:AtualizarCartoes>
</soapenv:Body>
</soapenv:Envelope>
]

//Replace
Xml_SEND = Replace(Xml_SEND,"v001",CodClienteCelula,IgnoreCase)
Xml_SEND = Replace(Xml_SEND,"v002",GloDataHora,IgnoreCase)
Xml_SEND = Replace(Xml_SEND,"v003",NumProces,IgnoreCase)

IF DebugSN = "S" THEN
Info("/mnt/sdcard/TaxiFv/Arquivos/EnvioCartoes.TXT", Xml_SEND)
IF InAndroidMode() = True
IF InSimulatorMode() = False
fSaveBuffer("/mnt/sdcard/TaxiFv/Arquivos/EnvioCartoes.TXT", Xml_SEND)
ELSE
fSaveBuffer("c:\EnvioCartoes.TXT", Xml_SEND)
END
END
END

HTTPTimeOut(GloHTTPTimeOut)

//BASE REAL

ok = HTTPRequest("http://"+IpSaladaFruta01+"/soap/IRtPlusSSDM","", "", Xml_SEND, "text/xml","","")

XML_Retorno = WS_Android_IOS_HTTPGetResult()

//Retorno Completo do webservice sem Tratamento
IF DebugSN = "S" THEN
Info("/mnt/sdcard/TaxiFv/Arquivos/RetornoCartoesSemTratamento.TXT", XML_Retorno)
IF InAndroidMode() = True
IF InSimulatorMode() = False
fSaveBuffer("/mnt/sdcard/TaxiFv/Arquivos/RetornoCartoesSemTratamento.TXT", XML_Retorno)
ELSE
fSaveBuffer("c:\RetornoCartoes.TXT", XML_Retorno)
END
END
END

//Retorno Completo do webservice com Tratamento
XML_Retorno = WS_RemoveAcentos(XML_Retorno)

//Ajuste do xml para ser lido
IF Length(XML_Retorno) > 0 THEN

Inicial is int = PositionOccurrence(XML_Retorno,"<NS2:TTipoFormaPagamentoVO",firstRank,FromBeginning)
Final is int = PositionOccurrence(XML_Retorno,"</NS2:TTipoFormaPagamentoVO>",lastRank,FromEnd) +Length("</NS2:TTipoFormaPagamentoVO>")
XML_Retorno = Middle(XML_Retorno,Inicial,Final - Inicial)
XML_Retorno = Replace(XML_Retorno,"NS2:TTipoFormaPagamentoVO","NoXml")
XML_Retorno = "<Xml><Recorte>"+XML_Retorno+"</Recorte></Xml>"

IF DebugSN = "S" THEN
Info("/mnt/sdcard/TaxiFv/Arquivos/RetornoCartoes.TXT", XML_Retorno)
IF InAndroidMode() = True
IF InSimulatorMode() = False
fSaveBuffer("/mnt/sdcard/TaxiFv/Arquivos/RetornoCartoes.TXT", XML_Retorno)
ELSE
fSaveBuffer("c:\RetornoCartoes.TXT", XML_Retorno)
END
END
END

IF Length(XML_Retorno) >0 THEN

HExecuteQuery(QRY_T004Cartoes_Del)
FOR EACH t004_cartoescreditos
HDelete(t004_cartoescreditos)
END

IF IniOSMode() = True THEN
/////////////////////////////////////////////////////////////

NoXml is string
i is int = 1

LOOP

NoXml = XMLExtractString(XML_Retorno,"NoXml",i)

IF NoXml = "" THEN
BREAK
END

DesFormaPagame is string = XMLExtractString(NoXml,"DesFormaPagame")
CodFormaPagame is string = XMLExtractString(NoXml,"CodFormaPagame")

IF DebugSN = "S"
Info("Cartao",CodFormaPagame,DesFormaPagame)
END

//Busca Cartao
HReadSeekFirst(t004_cartoescreditos,t004_cartoescreditos.NomeCartao004,DesFormaPagame)

IF HFound(t004_cartoescreditos) = False THEN

//Adicionando a leitura do xml no banco de dados
t004_cartoescreditos.CodigoCartao004 = CodFormaPagame
IF t004_cartoescreditos.CodigoCartao004 = 0 THEN
Contador += 1
t004_cartoescreditos.CodigoCartao004 = Contador
END
t004_cartoescreditos.NomeCartao004 = DesFormaPagame
t004_cartoescreditos.DataAtualizacao004 = DateSys()

IF DebugSN = "S" THEN
Info("tabela",t004_cartoescreditos.CodigoCartao004,t004_cartoescreditos.NomeCartao004)
END
//Arquiva resultado
ok = HAdd(t004_cartoescreditos)
IF ok = False THEN
//conta erros
erro += 1
ELSE
IF DebugSN = "S" THEN
Info("Adicionado com sucesso")
END
END

END
i++
END

ELSE IF InAndroidMode() = True
/////////////////////////////////////////////////////////////

XmlDoc is XMLDocument

XmlDoc = XMLOpen(XML_Retorno, fromString)

NoXml is xmlNode

//Leitura do xml em loop
FOR EACH NoXml OF XmlDoc.Xml.Recorte on NoXml

IF DebugSN = "S"
Info("Cartao",NoXml.CodFormaPagame,NoXml.DesFormaPagame)
END
//Busca Cartao
HReadSeekFirst(t004_cartoescreditos,t004_cartoescreditos.NomeCartao004,NoXml.DesFormaPagame)

IF HFound(t004_cartoescreditos) = False THEN

//Adicionando a leitura do xml no banco de dados
t004_cartoescreditos.CodigoCartao004 = NoXml.CodFormaPagame
IF t004_cartoescreditos.CodigoCartao004 = 0 THEN
Contador += 1
t004_cartoescreditos.CodigoCartao004 = Contador
END
t004_cartoescreditos.NomeCartao004 = NoXml.DesFormaPagame
t004_cartoescreditos.DataAtualizacao004 = DateSys()

IF DebugSN = "S" THEN
Info("tabela",t004_cartoescreditos.CodigoCartao004,t004_cartoescreditos.NomeCartao004)
END
//Arquiva resultado
ok = HAdd(t004_cartoescreditos)
IF ok = False THEN
//conta erros
erro += 1
ELSE
IF DebugSN = "S" THEN
Info("Adicionado com sucesso")
END
END

END
END

END

//Verifica quantos erros ocorreram se for maior que zero é falso o retorno
IF erro > 0 THEN
ok = False
ELSE
ok = True
END
//

END

END

END//

END

RESULT(ok)

////LEITURA E GRAVACAO
////=========================================================
//FOR EACH t004_cartoescreditos
//IF t004_cartoescreditos.CodigoCartao004 > 0 THEN
//Contador += 1
//END
//END
//IF Contador = 0 THEN
//
//t004_cartoescreditos.CodigoCartao004 = 1
//t004_cartoescreditos.NomeCartao004 = "VISA"
//t004_cartoescreditos.DataAtualizacao004 = DateSys()
//HAdd(t004_cartoescreditos)
//
//t004_cartoescreditos.CodigoCartao004 = 2
//t004_cartoescreditos.NomeCartao004 = "MASTER"
//t004_cartoescreditos.DataAtualizacao004 = DateSys()
//HAdd(t004_cartoescreditos)
//
//t004_cartoescreditos.CodigoCartao004 = 4
//t004_cartoescreditos.NomeCartao004 = "HIPERCARD"
//t004_cartoescreditos.DataAtualizacao004 = DateSys()
//HAdd(t004_cartoescreditos)
//
//t004_cartoescreditos.CodigoCartao004 = 5
//t004_cartoescreditos.NomeCartao004 = "AMERICAN"
//t004_cartoescreditos.DataAtualizacao004 = DateSys()
//HAdd(t004_cartoescreditos)
//
//t004_cartoescreditos.CodigoCartao004 = 6
//t004_cartoescreditos.NomeCartao004 = "SENFF"
//t004_cartoescreditos.DataAtualizacao004 = DateSys()
//HAdd(t004_cartoescreditos)
//
//t004_cartoescreditos.CodigoCartao004 = 7
//t004_cartoescreditos.NomeCartao004 = "ELO"
//t004_cartoescreditos.DataAtualizacao004 = DateSys()
//HAdd(t004_cartoescreditos)
//END

Páginas

quinta-feira, 1 de agosto de 2019

DICAS 2226 WINDEV WEBDEV MOBILE 24 NOVIDADES 26 WEBSERVICE 29 HTTPREQUES...

terça-feira, 19 de março de 2019

DICAS 2049 - WINDEV MOBILE - AULA 110 - WaitWindowStart

DICAS 2049 - WINDEV MOBILE - AULA 110 - WaitWindowStart

segunda-feira, 4 de março de 2019

DICAS 2033 - WINDEV - WEBSERVICE 23 - HTTPRequest - HTTPGetResult - fSaveBuffer - BAIXAR ARQUIVO

DICAS 2033 - WINDEV - WEBSERVICE 23 - HTTPRequest - HTTPGetResult - fSaveBuffer - BAIXAR ARQUIVO

sábado, 13 de janeiro de 2018

API SMS,API PAGSEGURO INTEGRACAO WINDEV

quinta-feira, 4 de agosto de 2016

WX - Json X httprequest + httpgetresult

sexta-feira, 15 de janeiro de 2016

HTTPREQUEST EM CONSULTAS COMPLEXAS

http://189.113.6.131/ww_forum/PAGE_Forum/BA4AAHOoj4lQVXlsWldSVFROAQA

http://www.pedrosoinformatica.com.br/

quarta-feira, 13 de janeiro de 2016

HttpRequest + Envelope Soap

http://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/121-httprequest-envelope-soap/read.awp

Teste

Marcadores