[AJUDA] WEB BROWSER VB6
Olá , estou com um problema com o web browser no VB6 e estava precisando uma ajuda ,
Entao , ontem iniciei minha jornada por esse componente até que bem sucedida , porem na minha segunda tentativa ... em outro site diferente do primeiro encontrei alguns problemas ... nao consigo pegar o id dos campos em que preciso inserir algumas informaçoes
o site em questao e o [Ô]www.sefaz.rs.gov.br/NFE/NFE-CCC.aspx[Ô] - nao sei se posso postar esses link aqui , se nao... peço desculpas -
Minha duvida entao é , sera que alguem pode me ajudar a apenas pegar os campos em questao ? - e algumas dicas de como inserir textos nos mesmos -
No caso eu preciso inserir o CNPJ no campo e em seguida Realizar a pesquisa no botao.
sendo bem sucedida a busca , pegar o numero de IE que aparece logo abaixo.
Andei buscando pelo google e por aqui mesmo mas nao entendi muito bem , acho que foi isso
Entao , ontem iniciei minha jornada por esse componente até que bem sucedida , porem na minha segunda tentativa ... em outro site diferente do primeiro encontrei alguns problemas ... nao consigo pegar o id dos campos em que preciso inserir algumas informaçoes
o site em questao e o [Ô]www.sefaz.rs.gov.br/NFE/NFE-CCC.aspx[Ô] - nao sei se posso postar esses link aqui , se nao... peço desculpas -
Minha duvida entao é , sera que alguem pode me ajudar a apenas pegar os campos em questao ? - e algumas dicas de como inserir textos nos mesmos -
No caso eu preciso inserir o CNPJ no campo e em seguida Realizar a pesquisa no botao.
sendo bem sucedida a busca , pegar o numero de IE que aparece logo abaixo.
Andei buscando pelo google e por aqui mesmo mas nao entendi muito bem , acho que foi isso
Não sei se você manha de Web porem abre o fonte desta pagina nesta parte aparentemente ele faz a consulta e a pagina retorna deve ser algum webservice , você pode fazer parecido .
so que muda aqui
url: [Ô]https://www.sefaz.rs.gov.br/NFE/NFE-CCC_DO.aspx[Ô],
////////////////////////////////////////////////////////////////////////////////
function preencheParametros(filtro)
{
if (!validaDados()) {
return;
}
var iCodUf = $([ô][id=ctl00_cphConteudo_cmbUF][ô]).val();
var lCnpj = $.trim($([ô][id=tbxCNPJContrib][ô]).val());
var pAmbiente = $([ô][name=rdoAmbiente]:checked[ô]).val();
var lIe = $.trim($([Ô]#tbxIeContrib[Ô]).val());
var dadosPOST = [Ô][Ô];
dadosPOST += [Ô]iCodUf=[Ô] + iCodUf;
if (filtro.toUpperCase() == [Ô]IE[Ô]) {
if (lIe.length < 2)
{
alert([Ô]IE com tamanho inválido.[Ô]);
return;
}
if (iCodUf < 1)
{
alert([Ô]Selecione uma UF.[Ô]);
return;
}
if (ieEmAnalise)
{
// alert([ô]Aguarde, o IE está sendo validado.[ô]);
enviarAposValidacaoIE = true;
return;
}
if (!ieValido)
{
alert([Ô]O IE é inválido para a UF selecionada.[Ô]);
return;
}
dadosPOST += [Ô]&lIe=[Ô] + lIe;
$([ô][id=tbxCNPJContrib][ô]).css([Ô]color[Ô], [Ô]#CCC[Ô]);
$([ô]#tbxIeContrib[ô]).css([Ô]color[Ô], [Ô]#000[Ô]);
}
else {
if (lCnpj.length == 0)
{
alert([Ô]Informe um CNPJ.[Ô]);
return;
}
if (!trataValidacaoCNPJ())
{
return;
}
dadosPOST += [Ô]&lCnpj=[Ô] + lCnpj;
$([Ô]#tbxIeContrib[Ô]).css([Ô]color[Ô], [Ô]#CCC[Ô]);
$([ô]#tbxCNPJContrib[ô]).css([Ô]color[Ô], [Ô]#000[Ô]);
}
dadosPOST += [Ô]&pAmbiente=[Ô] + pAmbiente;
MostraAreaProcessando();
jQuery.ajax({
type: [Ô]POST[Ô],
url: [Ô]NFE-CCC_DO.aspx[Ô],
data: dadosPOST,
dataType: [Ô]html[Ô],
success: ResultadoSuccess,
error: ResultadoError
});
}
// Função executada quando o ajax da consulta é processado sem erros
function ResultadoSuccess(dados) {
//var DadosRetorno = dados.getElementsByTagName([ô]DadosRetorno[ô])[0].firstChild.data;
jQuery([Ô]#conteudoResult[Ô]).html(dados);
exibeResultado();
}
// Função executada quando o ajax da consulta é processado com pelo menos um erro
function ResultadoError(jqXHR, textStatus, errorThrown) {
alert([Ô]Ocorreu um erro inesperado. Não foi possÃvel executar a transação.
Status:[Ô] + textStatus + [Ô]
Descrição:[Ô] + errorThrown);
ocultaResultado();
ocultaAreaProcessando();
}
so que muda aqui
url: [Ô]https://www.sefaz.rs.gov.br/NFE/NFE-CCC_DO.aspx[Ô],
////////////////////////////////////////////////////////////////////////////////
function preencheParametros(filtro)
{
if (!validaDados()) {
return;
}
var iCodUf = $([ô][id=ctl00_cphConteudo_cmbUF][ô]).val();
var lCnpj = $.trim($([ô][id=tbxCNPJContrib][ô]).val());
var pAmbiente = $([ô][name=rdoAmbiente]:checked[ô]).val();
var lIe = $.trim($([Ô]#tbxIeContrib[Ô]).val());
var dadosPOST = [Ô][Ô];
dadosPOST += [Ô]iCodUf=[Ô] + iCodUf;
if (filtro.toUpperCase() == [Ô]IE[Ô]) {
if (lIe.length < 2)
{
alert([Ô]IE com tamanho inválido.[Ô]);
return;
}
if (iCodUf < 1)
{
alert([Ô]Selecione uma UF.[Ô]);
return;
}
if (ieEmAnalise)
{
// alert([ô]Aguarde, o IE está sendo validado.[ô]);
enviarAposValidacaoIE = true;
return;
}
if (!ieValido)
{
alert([Ô]O IE é inválido para a UF selecionada.[Ô]);
return;
}
dadosPOST += [Ô]&lIe=[Ô] + lIe;
$([ô][id=tbxCNPJContrib][ô]).css([Ô]color[Ô], [Ô]#CCC[Ô]);
$([ô]#tbxIeContrib[ô]).css([Ô]color[Ô], [Ô]#000[Ô]);
}
else {
if (lCnpj.length == 0)
{
alert([Ô]Informe um CNPJ.[Ô]);
return;
}
if (!trataValidacaoCNPJ())
{
return;
}
dadosPOST += [Ô]&lCnpj=[Ô] + lCnpj;
$([Ô]#tbxIeContrib[Ô]).css([Ô]color[Ô], [Ô]#CCC[Ô]);
$([ô]#tbxCNPJContrib[ô]).css([Ô]color[Ô], [Ô]#000[Ô]);
}
dadosPOST += [Ô]&pAmbiente=[Ô] + pAmbiente;
MostraAreaProcessando();
jQuery.ajax({
type: [Ô]POST[Ô],
url: [Ô]NFE-CCC_DO.aspx[Ô],
data: dadosPOST,
dataType: [Ô]html[Ô],
success: ResultadoSuccess,
error: ResultadoError
});
}
// Função executada quando o ajax da consulta é processado sem erros
function ResultadoSuccess(dados) {
//var DadosRetorno = dados.getElementsByTagName([ô]DadosRetorno[ô])[0].firstChild.data;
jQuery([Ô]#conteudoResult[Ô]).html(dados);
exibeResultado();
}
// Função executada quando o ajax da consulta é processado com pelo menos um erro
function ResultadoError(jqXHR, textStatus, errorThrown) {
alert([Ô]Ocorreu um erro inesperado. Não foi possÃvel executar a transação.
Status:[Ô] + textStatus + [Ô]
Descrição:[Ô] + errorThrown);
ocultaResultado();
ocultaAreaProcessando();
}
é amigo este e o problema eu nao manjo nada de WEB =(
Eu sou meio novo nesse lance , to nessa vida tem uns 4 meses na real.
Para falar a verdade o modulo que eu fiz que deu certo segue bem essa logica ai . mas em vb...
Só nao sei mesmo o por que de eu nao conseguir nesse site.
[Ô] id=tbxCNPJContrib
tbxIeContrib [Ô]
Usei essas mesmas variaveis pra dizer a verdade e nao pegou nada e nem consegui lançar o cnpj no campo la
Eu sou meio novo nesse lance , to nessa vida tem uns 4 meses na real.
Para falar a verdade o modulo que eu fiz que deu certo segue bem essa logica ai . mas em vb...
Só nao sei mesmo o por que de eu nao conseguir nesse site.
[Ô] id=tbxCNPJContrib
tbxIeContrib [Ô]
Usei essas mesmas variaveis pra dizer a verdade e nao pegou nada e nem consegui lançar o cnpj no campo la
Ola, entre em contato que te auxilio com seu projeto...
Skype: suporte-hcsi
Skype: suporte-hcsi
OK! já esta adicionado
Blz parceiro...
Tópico encerrado , respostas não são mais permitidas