[AJUDA] WEB BROWSER VB6

BADJECO 16/10/2014 17:10:52
#441983
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


LENDAURBANA 16/10/2014 17:32:45
#441987
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();
}
BADJECO 16/10/2014 17:41:34
#441988
é 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
HENDELLCARDOSO 16/10/2014 19:38:22
#441991
Ola, entre em contato que te auxilio com seu projeto...

Skype: suporte-hcsi
BADJECO 17/10/2014 09:27:25
#441994
OK! já esta adicionado
HENDELLCARDOSO 17/10/2014 16:28:09
#442009
Resposta escolhida
Blz parceiro...
Tópico encerrado , respostas não são mais permitidas