Postar, capturar dados com Idhttp, Webbrowser

Delphi

30/09/2007

Vi um post do massuda que fala diversas coisas a respeito de postar dados em site que no caso foi para consulta ao http://www.sintegra.sefaz.pe.gov.br/ que um membro do forum podtou aqui...

no meu caso preciso logar neste site:
http://www010.dataprev.gov.br/cws/contexto/hiscre/index.html

com o webbrowser ja consigo fazer postando os dados e fazendo o login normalmente digitando os caracteres no edit e executando o javascript...

Gostaria de saber se e possivel fazer isto com idhttp da indy ja que o mesmo tem que digitar os caracteres de uma imagem, justamente para evitar as pesquisas automaticas...


outra coisa que gostaria de saber qual seria a melhor abordagem para copiar os campos que preciso no script abaix:


<script language=JavaScript>parent.erroconfere = ´´;parent.exibeErro = ´´;</script><script language=´JavaScript´> // ------------------------------------------------------------------ // TITULO : BPVT0122 // DESCRICAO : CONSULTA DO ÚLTIMO HISTÓRICO DE CRÉDITOS - DETALHAMENTO DE CRÉDITO - INTERNET // CRIACAO : 05/06/06 // ALTERACAO : 12/07/06 // ORIGENS : HISCRENET2.ASP // DESTINOS : HISCRENET2.ASP // CONTEXTOS : HISCRE // -------------------------------------------------------------------- //CAMPOS DA TELA - SADS var tlatrs = ´BPV03&11´; // campo origem: TLATRS(8) var tladthc = ´30/09/2007 19:06:04´; // campo origem: TLADTHC(20) var nb = ´999.999.999-9´; // campo origem: BENNU(999.999.999-9) var nbf = ´´; nbf = nb.replace(/&/g,´.´); var nome= ´FULANO DE TAL DA SILVA ´; // campo origem: RECNM(28) var especie = ´ 42´; // campo origem: BENCSESPEC(3) var descespecie = ´APOSENTADORIA POR TEMPO DE CONTRIBUICAO ´; // campo origem: BENCSESPEC-1(40) var pal= ´ ´; //campo origem: PALCS(9) var competencia= ´09/2007´; //campo origem: CRED2COMPET(99/9999) var periodoinicial= ´01/09/2007´; //campo origem: PERD2INI(99/99/9999) var periodofinal= ´30/09/2007´; //campo origem: PERD2FIM(99/99/9999) var meiopagto= ´CCF´; //campo origem: MPGCS(3) var oml= ´21.0.25.010´; //campo origem: OLSIDMANUT(99.9.99.999) var datadispinicial= ´04/10/2007´; //campo origem: CRED2INIVAL(99/99/9999) var datadispfinal= ´04/12/2007´; //campo origem: CRED2FIMVAL(99/99/9999) var dataCalcCredito= ´10/09/2007´; //campo origem: CRED2MOVIM(99/99/9999) var origem= ´MACICA ´; //campo origem: CRECSORIGEM(11) var datapagto= ´ ´; //campo origem: PAGD2CRED(99/99/9999) var contacorrente= ´0002811970´; //campo origem: BCCNUCTACOR(10) var retorno1= ´CREDITO SEM RETORNO ´ //campo origem: PAGCSOCORR(27) var retorno2= ´Arq:´; //campo origem: TRACO-2(4) var retorno3= ´000093 ´; //campo origem: CRENUSERFIT(7) var retorno4= ´Seq:´; //campo origem: TRACO-1(4) var retorno5= ´2869410´; //campo origem: CRENUSEQARQ(7) var banco= ´CAIXA ´; //campo origem: BANID(15) var codbanco= ´261603´; //campo origem: OPGID(6) var agencia= ´GUARULHOS EST. UNIF. ´;//campo origem: OPGID-1(40) var enderecobanco= ´AV. TIRADENTES, 1624 ´; //campo origem: OPGID-2(55) if (enderecobanco == ´ ´) enderecobanco = ´NÃO INFORMADO.´; function Trim(valor) { var novoValor = ´´; for( i = 0; i < valor.length; i++) { if (valor.substring(i, i+1) != ´ ´) novoValor += valor.substring(i, i+1); } return novoValor; } function TraduzEspecie(meiopagto) { if (meiopagto == ´CMG´) return ´CARTAO MAGNETICO´; else if (meiopagto == ´APB´) return ´CUPOM´; else if (meiopagto == ´CCF´) return ´CONTA CORRENTE´; else if (meiopagto == ´CCL´) return ´CONTA CORRENTE´; else if (meiopagto == ´PAB´) return ´ALTERNATIVO´; else if (meiopagto == ´CPB´) return ´CHEQUE´; else if (meiopagto == ´OPB´) return ´ORDEM DE PAGTO´; else if (meiopagto == ´RPB´) return ´RECIBO DE PAGTO´; else if (meiopagto == ´AP ´) return ´AUTORIZACAO´; } { document.write(´<html>´); document.write(´<head>´); document.write(´<title> Detalhamento de Crédito </title>´); document.write(´</head>´); document.write(´<body alink=´#0000ff´ background=´´ + parent.RAIZ_HTML_GATEWAY + ´/CONTEXTO/HISCRE/IMAGENS/fnada.gif´ bgcolor=´ffffff´ link=´004080´´); document.write(´text=´#000000´ vlink=´ff0000´ topMargin=0 marginheight=´0´ marginwidth=´0´ >´); document.write(´<!-- topo azul MPAS -->´); document.write(´<TABLE border=0 cellPadding=0 cellSpacing=0 height=70 width=´100¬´ name=´topo´><TBODY>´); document.write(´ <TR bgColor=065ca5>´); document.write(´ <TD align=left vAlign=top>´); document.write(´ <TABLE border=0 cellPadding=0 cellSpacing=0>´); document.write(´ <TBODY>´); document.write(´ <TR>´); document.write(´ <TD align=left vAlign=top><A href=´http://www.mpas.gov.br/´><IMG ´); document.write(´ border=0 height=70 ´); document.write(´ src=´´ + parent.RAIZ_HTML_GATEWAY + ´/CONTEXTO/HISCRE/IMAGENS/KO.gif´ ´); document.write(´ width=94></A></TD>´); document.write(´ <TD align=left vAlign=top><BR><A href=´http://www.mpas.gov.br/´><IMG ´); document.write(´ border=0 height=41 ´); document.write(´ src=´´ + parent.RAIZ_HTML_GATEWAY + ´/CONTEXTO/HISCRE/IMAGENS/previdencia.gif´ ´); document.write(´ width=290></A></TD></TR></TBODY></TABLE></TD>´); document.write(´ <TD align=right vAlign=top><A href=´http://www.redegoverno.gov.br/´><IMG ´); document.write(´ border=0 height=70 hspace=0 ´); document.write(´ src=´´ + parent.RAIZ_HTML_GATEWAY + ´/CONTEXTO/HISCRE/IMAGENS/prevnet.gif´ ´); document.write(´ width=139></A></TD></TR></TBODY></TABLE>´); document.write(´<center><font face=´Trebuchet MS´ color=#065ca5><h2 align=´center´>Detalhamento de Crédito</h2>´); document.write(´<table border=´1´ width=´69¬´ height=´1´>´); document.write(´ <tr>´); document.write(´ <td width=´30¬´ align=´center´ bgcolor=´#C0C0C0´ height=´1´ valign=´top´><p align=´left´><small><small><font´); document.write(´ face=´Trebuchet MS´>Número do Benefício</font></small></small></td>´); document.write(´ <td width=´70¬´ align=´center´ bgcolor=´C0C0C0´ height=´1´ valign=´top´><p align=´left´><small><small><font´); document.write(´ face=´Trebuchet MS´>Nome do Segurado</font></small></small></td>´); document.write(´ </tr>´); document.write(´</table>´); document.write(´<table border=´1´ width=´69¬´>´); document.write(´ <tr>´); document.write(´ <td width=´30¬´ align=´center´ height=´24´><p align=´center´><strong><font´); document.write(´ face=´Trebuchet MS´>´ + nbf + ´</font></strong></td>´); document.write(´ <td width=´70¬´ align=´center´ height=´24´><p align=´left´><strong><font´); document.write(´ face=´Trebuchet MS´>´ + nome + ´</font></strong></td>´); document.write(´ </tr>´); document.write(´</table>´); document.write(´<table border=´1´ width=´69¬´ height=´1´>´); document.write(´ <tr>´); document.write(´ <td width=´16¬´ bgcolor=´#C0C0C0´ height=´1´ valign=´top´><small><small><font´); document.write(´ face=´Trebuchet MS´>Competência</font></small></small></td>´); document.write(´ <td width=´42¬´ bgcolor=´C0C0C0´ height=´1´ valign=´top´><small><small><font´); document.write(´ face=´Trebuchet MS´>Período a que se refere o crédito :</font></small></small></td>´); document.write(´ <td width=´38¬´ bgcolor=´#C0C0C0´ height=´1´ valign=´top´><small><small><font´); document.write(´ face=´Trebuchet MS´>Pagamento através de :</font></small></small></td>´); document.write(´ </tr>´); document.write(´</table>´); document.write(´<table border=´1´ width=´69¬´>´); document.write(´ <tr>´); document.write(´ <td width=´16¬´ height=´22´><p align=´center´><strong><font face=´Trebuchet MS´>´ + competencia + ´</font></strong></td>´); document.write(´ <td width=´18¬´ height=´22´><p align=´center´><strong><font face=´Trebuchet MS´>´ + periodoinicial + ´</font></strong></td>´); document.write(´ <td width=´5¬´ height=´22´><p align=´center´><font face=´Trebuchet MS´>a</font></td>´); document.write(´ <td width=´20¬´ height=´22´><p align=´center´><strong><font face=´Trebuchet MS´>´ + periodofinal + ´</font></strong></td>´); document.write(´ <td width=´42¬´ height=´22´ valign=´top´><p align=´left´><strong><font face=´Trebuchet MS´>´ + TraduzEspecie(meiopagto) + ´</font></strong></td>´); document.write(´ </tr>´); document.write(´</table>´); // Inclusão do Campo Espécie document.write(´<table border=´1´ width=´69¬´ height=´23´>´); document.write(´ <tr>´); document.write(´ <td width=´100¬´ bgcolor=´#C0C0C0´ height=´6´ valign=´top´ align=´left´ checked=´false´><small><font´); document.write(´ face=´Trebuchet MS´><small>Espécie</small></font></small></td>´); document.write(´ </tr>´); document.write(´</table>´); document.write(´<table border=´1´ width=´69¬´>´); document.write(´ <tr>´); document.write(´ <td width=´10¬´ height=´9´><p align=´left´><strong><font face=´Trebuchet MS´>´ + especie + ´</font></strong></td>´); document.write(´ <td width=´70¬´ height=´9´><strong><font face=´Trebuchet MS´>´ + descespecie + ´</font></strong></td>´); document.write(´ <td width=´20¬´ height=´9´><p align=´center´><strong><font face=´Trebuchet MS´>´ + pal + ´</font></strong></td>´); document.write(´ </tr>´); document.write(´</table>´); document.write(´<table border=´1´ width=´69¬´ height=´14´>´); document.write(´ <tr>´); document.write(´ <td width=´21¬´ bgcolor=´#C0C0C0´ height=´2´ valign=´top´><p align=´left´><small><small><font´); document.write(´ face=´Trebuchet MS´>Banco</font></small></small></td>´); document.write(´ <td width=´54¬´ bgcolor=´C0C0C0´ height=´2´ valign=´top´><small><small><font´); document.write(´ face=´Trebuchet MS´>Agência bancária</font></small></small></td>´); document.write(´ <td width=´25¬´ bgcolor=´C0C0C0´ height=´2´ valign=´top´><p align=´center´><small><small><font´); document.write(´ face=´Trebuchet MS´>Código do Banco</font></small></small></td>´); document.write(´ </tr>´); document.write(´</table>´); document.write(´<table border=´1´ width=´69¬´>´); document.write(´ <tr>´); document.write(´ <td width=´21¬´ height=´9´><p align=´left´><strong><font face=´Trebuchet MS´>´ + banco + ´</font></strong></td>´); document.write(´ <td width=´54¬´ height=´9´><strong><font face=´Trebuchet MS´>´ + agencia + ´</font></strong></td>´); document.write(´ <td width=´25¬´ height=´9´><p align=´center´><strong><font face=´Trebuchet MS´>´ + codbanco + ´</font></strong></td>´); document.write(´ </tr>´); document.write(´</table>´); document.write(´<table border=´1´ width=´69¬´ height=´23´>´); document.write(´ <tr>´); document.write(´ <td width=´64¬´ bgcolor=´#C0C0C0´ height=´6´ valign=´top´ align=´left´ checked=´false´><small><font´); document.write(´ face=´Trebuchet MS´><small>Endereço do banco</small></font></small></td>´); document.write(´ <td width=´36¬´ bgcolor=´#C0C0C0´ height=´6´ valign=´top´ align=´left´ checked=´false´><small><font´); document.write(´ face=´Trebuchet MS´><small>Disponível para recebimento de :</small></font></small></td>´); document.write(´ </tr>´); document.write(´</table>´); document.write(´<table border=´1´ width=´69¬´>´); document.write(´ <tr>´); document.write(´ <td width=´65¬´ height=´5´><small><strong><font face=´Trebuchet MS´>´ + enderecobanco + ´</font></strong></small></td>´); document.write(´ <td width=´15¬´ height=´5´ style=´border: 1px solid´><p align=´center´><strong><font´); document.write(´ face=´Trebuchet MS´>´ + datadispinicial + ´ </font></strong></td>´); document.write(´ <td width=´5¬´ height=´5´ style=´border: 1px solid´><font face=´Trebuchet MS´><p´); document.write(´ align=´center´>a</font></td>´); document.write(´ <td width=´17¬´ height=´5´ style=´border: 1px solid´><font face=´Trebuchet MS´><p´); document.write(´ align=´center´><strong>´ + datadispfinal + ´</strong></font></td>´); document.write(´ </tr>´); document.write(´</table>´); document.write(´<small><font face=´Trebuchet MS´>´); document.write(´<table border=´1´ width=´69¬´>´); document.write(´ <tr>´); document.write(´ <td height=´18´ bgcolor=´#C0C0C0´ colspan=´2´><p align=´center´><small><strong><font´); document.write(´ face=´Trebuchet MS´>C R É D I T O S </font></strong></small></td>´); document.write(´ </tr>´); document.write(´ <tr>´); document.write(´ <td width=´366´ height=´18´><p align=´center´><font face=´Trebuchet MS´><strong>Descrição das Rubricas</strong></font></td>´); document.write(´ <td width=´145´ height=´18´><p align=´center´><font face=´Trebuchet MS´><strong>Valor</font></strong></td>´); document.write(´ </tr>´); } var rubrica, linha; var CabecDebito = true; //imprime 1ª Rubrica rubrica = ´101´; //campo origem: RUBCS(3) descrub = ´Mens. reajustada´; //campo origem: DESCRUB(16) vlrub= ´ 1.422,81´; //campo origem: RUBVL(9999999.999,99) sinal= ´+´; //campo origem: SINAL(1) if (rubrica != ´ ´) { if (parseInt(rubrica) < 300 && parseInt(rubrica) > 199 && CabecDebito) { document.write (´<tr><td height=18 bgcolor=#C0C0C0 colspan=2><p align=center><strong><font face=´Trebuchet MS´><small>D É B I T O S</small></strong></td></tr>´); CabecDebito = false; } linha = ´<tr>´; linha = linha + ´<td><small>´ + descrub +´</small></td>´; linha = linha + ´<td align=right><small>´+ vlrub + ´</small></td> </tr>´; document.write (linha); } //imprime 2ª Rubrica rubrica = ´ ´; //campo origem: RUBCS(3) descrub = ´ ´; //campo origem: DESCRUB(16) vlrub= ´ ´; //campo origem: RUBVL(9999999.999,99) sinal= ´ ´; //campo origem: SINAL(1) if (rubrica != ´ ´) { if (parseInt(rubrica) < 300 && parseInt(rubrica) > 199 && CabecDebito) { document.write (´<tr><td height=18 bgcolor=#C0C0C0 colspan=2><p align=center><strong><font face=´Trebuchet MS´><small>D É B I T O S</small></strong></td></tr>´); CabecDebito = false; } linha = ´<tr>´; linha = linha + ´<td><small>´ + descrub +´</small></td>´; linha = linha + ´<td align=right><small>´+ vlrub + ´</small></td> </tr>´; document.write (linha); } //imprime 3ª Rubrica rubrica = ´121´; //campo origem: RUBCS(3) descrub = ´Compl. de CPMF.´; //campo origem: DESCRUB(16) vlrub= ´ 4,01´; //campo origem: RUBVL(9999999.999,99) sinal= ´+´; //campo origem: SINAL(1) if (rubrica != ´ ´) { if (parseInt(rubrica) < 300 && parseInt(rubrica) > 199 && CabecDebito) { document.write (´<tr><td height=18 bgcolor=#C0C0C0 colspan=2><p align=center><strong><font face=´Trebuchet MS´><small>D É B I T O S</small></strong></td></tr>´); CabecDebito = false; } linha = ´<tr>´; linha = linha + ´<td><small>´ + descrub +´</small></td>´; linha = linha + ´<td align=right><small>´+ vlrub + ´</small></td> </tr>´; document.write (linha); } //imprime 4ª Rubrica rubrica = ´ ´; //campo origem: RUBCS(3) descrub = ´ ´; //campo origem: DESCRUB(16) vlrub= ´ ´; //campo origem: RUBVL(9999999.999,99) sinal= ´ ´; //campo origem: SINAL(1) if (rubrica != ´ ´) { if (parseInt(rubrica) < 300 && parseInt(rubrica) > 199 && CabecDebito) { document.write (´<tr><td height=18 bgcolor=#C0C0C0 colspan=2><p align=center><strong><font face=´Trebuchet MS´><small>D É B I T O S</small></strong></td></tr>´); CabecDebito = false; } linha = ´<tr>´; linha = linha + ´<td><small>´ + descrub +´</small></td>´; linha = linha + ´<td align=right><small>´+ vlrub + ´</small></td> </tr>´; document.write (linha); } //imprime 5ª Rubrica rubrica = ´216´; //campo origem: RUBCS(3) descrub = ´Consig. Emprest.´; //campo origem: DESCRUB(16) vlrub= ´ 88,96´; //campo origem: RUBVL(9999999.999,99) sinal= ´-´; //campo origem: SINAL(1) if (rubrica != ´ ´) { if (parseInt(rubrica) < 300 && parseInt(rubrica) > 199 && CabecDebito) { document.write (´<tr><td height=18 bgcolor=#C0C0C0 colspan=2><p align=center><strong><font face=´Trebuchet MS´><small>D É B I T O S</small></strong></td></tr>´); CabecDebito = false; } linha = ´<tr>´; linha = linha + ´<td><small>´ + descrub +´</small></td>´; linha = linha + ´<td align=right><small>´+ vlrub + ´</small></td> </tr>´; document.write (linha); } //imprime 6ª Rubrica rubrica = ´ ´; //campo origem: RUBCS(3) descrub = ´ ´; //campo origem: DESCRUB(16) vlrub= ´ ´; //campo origem: RUBVL(9999999.999,99) sinal= ´ ´; //campo origem: SINAL(1) if (rubrica != ´ ´) { if (parseInt(rubrica) < 300 && parseInt(rubrica) > 199 && CabecDebito) { document.write (´<tr><td height=18 bgcolor=#C0C0C0 colspan=2><p align=center><strong><font face=´Trebuchet MS´><small>D É B I T O S</small></strong></td></tr>´); CabecDebito = false; } linha = ´<tr>´; linha = linha + ´<td><small>´ + descrub +´</small></td>´; linha = linha + ´<td align=right><small>´+ vlrub + ´</small></td> </tr>´; document.write (linha); } //imprime 7ª Rubrica rubrica = ´216´; //campo origem: RUBCS(3) descrub = ´Consig. Emprest.´; //campo origem: DESCRUB(16) vlrub= ´ 18,56´; //campo origem: RUBVL(9999999.999,99) sinal= ´-´; //campo origem: SINAL(1) if (rubrica != ´ ´) { if (parseInt(rubrica) < 300 && parseInt(rubrica) > 199 && CabecDebito) { document.write (´<tr><td height=18 bgcolor=#C0C0C0 colspan=2><p align=center><strong><font face=´Trebuchet MS´><small>D É B I T O S</small></strong></td></tr>´); CabecDebito = false; } linha = ´<tr>´; linha = linha + ´<td><small>´ + descrub +´</small></td>´; linha = linha + ´<td align=right><small>´+ vlrub + ´</small></td> </tr>´; document.write (linha); } //imprime 8ª Rubrica rubrica = ´ ´; //campo origem: RUBCS(3) descrub = ´ ´; //campo origem: DESCRUB(16) vlrub= ´ ´; //campo origem: RUBVL(9999999.999,99) sinal= ´ ´; //campo origem: SINAL(1) if (rubrica != ´ ´) { if (parseInt(rubrica) < 300 && parseInt(rubrica) > 199 && CabecDebito) { document.write (´<tr><td height=18 bgcolor=#C0C0C0 colspan=2><p align=center><strong><font face=´Trebuchet MS´><small>D É B I T O S</small></strong></td></tr>´); CabecDebito = false; } linha = ´<tr>´; linha = linha + ´<td><small>´ + descrub +´</small></td>´; linha = linha + ´<td align=right><small>´+ vlrub + ´</small></td> </tr>´; document.write (linha); } //imprime 9ª Rubrica rubrica = ´216´; //campo origem: RUBCS(3) descrub = ´Consig. Emprest.´; //campo origem: DESCRUB(16) vlrub= ´ 80,36´; //campo origem: RUBVL(9999999.999,99) sinal= ´-´; //campo origem: SINAL(1) if (rubrica != ´ ´) { if (parseInt(rubrica) < 300 && parseInt(rubrica) > 199 && CabecDebito) { document.write (´<tr><td height=18 bgcolor=#C0C0C0 colspan=2><p align=center><strong><font face=´Trebuchet MS´><small>D É B I T O S</small></strong></td></tr>´); CabecDebito = false; } linha = ´<tr>´; linha = linha + ´<td><small>´ + descrub +´</small></td>´; linha = linha + ´<td align=right><small>´+ vlrub + ´</small></td> </tr>´; document.write (linha); } //imprime 10ª Rubrica rubrica = ´ ´; //campo origem: RUBCS(3) descrub = ´ ´; //campo origem: DESCRUB(16) vlrub= ´ ´; //campo origem: RUBVL(9999999.999,99) sinal= ´ ´; //campo origem: SINAL(1) if (rubrica != ´ ´) { if (parseInt(rubrica) < 300 && parseInt(rubrica) > 199 && CabecDebito) { document.write (´<tr><td height=18 bgcolor=#C0C0C0 colspan=2><p align=center><strong><font face=´Trebuchet MS´><small>D É B I T O S</small></strong></td></tr>´); CabecDebito = false; } linha = ´<tr>´; linha = linha + ´<td><small>´ + descrub +´</small></td>´; linha = linha + ´<td align=right><small>´+ vlrub + ´</small></td> </tr>´; document.write (linha); } //imprime 11ª Rubrica rubrica = ´216´; //campo origem: RUBCS(3) descrub = ´Consig. Emprest.´; //campo origem: DESCRUB(16) vlrub= ´ 119,56´; //campo origem: RUBVL(9999999.999,99) sinal= ´-´; //campo origem: SINAL(1) if (rubrica != ´ ´) { if (parseInt(rubrica) < 300 && parseInt(rubrica) > 199 && CabecDebito) { document.write (´<tr><td height=18 bgcolor=#C0C0C0 colspan=2><p align=center><strong><font face=´Trebuchet MS´><small>D É B I T O S</small></strong></td></tr>´); CabecDebito = false; } linha = ´<tr>´; linha = linha + ´<td><small>´ + descrub +´</small></td>´; linha = linha + ´<td align=right><small>´+ vlrub + ´</small></td> </tr>´; document.write (linha); } //imprime 12ª Rubrica rubrica = ´ ´; //campo origem: RUBCS(3) descrub = ´ ´; //campo origem: DESCRUB(16) vlrub= ´ ´; //campo origem: RUBVL(9999999.999,99) sinal= ´ ´; //campo origem: SINAL(1) if (rubrica != ´ ´) { if (parseInt(rubrica) < 300 && parseInt(rubrica) > 199 && CabecDebito) { document.write (´<tr><td height=18 bgcolor=#C0C0C0 colspan=2><p align=center><strong><font face=´Trebuchet MS´><small>D É B I T O S</small></strong></td></tr>´); CabecDebito = false; } linha = ´<tr>´; linha = linha + ´<td><small>´ + descrub +´</small></td>´; linha = linha + ´<td align=right><small>´+ vlrub + ´</small></td> </tr>´; document.write (linha); } //imprime 13ª Rubrica rubrica = ´217´; //campo origem: RUBCS(3) descrub = ´Emprestimo RMC ´; //campo origem: DESCRUB(16) vlrub= ´ 61,57´; //campo origem: RUBVL(9999999.999,99) sinal= ´-´; //campo origem: SINAL(1) if (rubrica != ´ ´) { if (parseInt(rubrica) < 300 && parseInt(rubrica) > 199 && CabecDebito) { document.write (´<tr><td height=18 bgcolor=#C0C0C0 colspan=2><p align=center><strong><font face=´Trebuchet MS´><small>D É B I T O S</small></strong></td></tr>´); CabecDebito = false; } linha = ´<tr>´; linha = linha + ´<td><small>´ + descrub +´</small></td>´; linha = linha + ´<td align=right><small>´+ vlrub + ´</small></td> </tr>´; document.write (linha); } //imprime 14ª Rubrica rubrica = ´ ´; //campo origem: RUBCS(3) descrub = ´ ´; //campo origem: DESCRUB(16) vlrub= ´ ´; //campo origem: RUBVL(9999999.999,99) sinal= ´ ´; //campo origem: SINAL(1) if (rubrica != ´ ´) { if (parseInt(rubrica) < 300 && parseInt(rubrica) > 199 && CabecDebito) { document.write (´<tr><td height=18 bgcolor=#C0C0C0 colspan=2><p align=center><strong><font face=´Trebuchet MS´><small>D É B I T O S</small></strong></td></tr>´); CabecDebito = false; } linha = ´<tr>´; linha = linha + ´<td><small>´ + descrub +´</small></td>´; linha = linha + ´<td align=right><small>´+ vlrub + ´</small></td> </tr>´; document.write (linha); } //imprime 15ª Rubrica rubrica = ´ ´; //campo origem: RUBCS(3) descrub = ´ ´; //campo origem: DESCRUB(16) vlrub= ´ ´; //campo origem: RUBVL(9999999.999,99) sinal= ´ ´; //campo origem: SINAL(1) if (rubrica != ´ ´) { if (parseInt(rubrica) < 300 && parseInt(rubrica) > 199 && CabecDebito) { document.write (´<tr><td height=18 bgcolor=#C0C0C0 colspan=2><p align=center><strong><font face=´Trebuchet MS´><small>D É B I T O S</small></strong></td></tr>´); CabecDebito = false; } linha = ´<tr>´; linha = linha + ´<td><small>´ + descrub +´</small></td>´; linha = linha + ´<td align=right><small>´+ vlrub + ´</small></td> </tr>´; document.write (linha); } //imprime 16ª Rubrica rubrica = ´ ´; //campo origem: RUBCS(3) descrub = ´ ´; //campo origem: DESCRUB(16) vlrub= ´ ´; //campo origem: RUBVL(9999999.999,99) sinal= ´ ´; //campo origem: SINAL(1) if (rubrica != ´ ´) { if (parseInt(rubrica) < 300 && parseInt(rubrica) > 199 && CabecDebito) { document.write (´<tr><td height=18 bgcolor=#C0C0C0 colspan=2><p align=center><strong><font face=´Trebuchet MS´><small>D É B I T O S</small></strong></td></tr>´); CabecDebito = false; } linha = ´<tr>´; linha = linha + ´<td><small>´ + descrub +´</small></td>´; linha = linha + ´<td align=right><small>´+ vlrub + ´</small></td> </tr>´; document.write (linha); } //imprime 17ª Rubrica rubrica = ´ ´; //campo origem: RUBCS(3) descrub = ´ ´; //campo origem: DESCRUB(16) vlrub= ´ ´; //campo origem: RUBVL(9999999.999,99) sinal= ´ ´; //campo origem: SINAL(1) if (rubrica != ´ ´) { if (parseInt(rubrica) < 300 && parseInt(rubrica) > 199 && CabecDebito) { document.write (´<tr><td height=18 bgcolor=#C0C0C0 colspan=2><p align=center><strong><font face=´Trebuchet MS´><small>D É B I T O S</small></strong></td></tr>´); CabecDebito = false; } linha = ´<tr>´; linha = linha + ´<td><small>´ + descrub +´</small></td>´; linha = linha + ´<td align=right><small>´+ vlrub + ´</small></td> </tr>´; document.write (linha); } //imprime 18ª Rubrica rubrica = ´ ´; //campo origem: RUBCS(3) descrub = ´ ´; //campo origem: DESCRUB(16) vlrub= ´ ´; //campo origem: RUBVL(9999999.999,99) sinal= ´ ´; //campo origem: SINAL(1) if (rubrica != ´ ´) { if (parseInt(rubrica) < 300 && parseInt(rubrica) > 199 && CabecDebito) { document.write (´<tr><td height=18 bgcolor=#C0C0C0 colspan=2><p align=center><strong><font face=´Trebuchet MS´><small>D É B I T O S</small></strong></td></tr>´); CabecDebito = false; } linha = ´<tr>´; linha = linha + ´<td><small>´ + descrub +´</small></td>´; linha = linha + ´<td align=right><small>´+ vlrub + ´</small></td> </tr>´; document.write (linha); } var valorbruto = ´ 1.426,82´; //campo origem: VALBRUTO(99.999.999.999,99) var valordesconto= ´ 369,01´; //campo origem: VALDESC(99.999.999.999,99) var valorliquido= ´ 1.057,81´; //campo origem: VALLIQ(99.999.999.999,99) { document.write(´</table>´); document.write(´</font></small>´); document.write(´<table border=´1´ width=´69¬´ cellpadding=´2´>´); document.write(´ <tr>´); document.write(´ <td width=´33¬´ align=´center´ bgcolor=´#C0C0C0´ style=´font-family: Trebuchet MS´><strong>Valor Bruto </strong></td>´); document.write(´ <td width=´33¬´ align=´center´ bgcolor=´C0C0C0´ style=´font-family: Trebuchet MS´><strong>Valor&nbsp; dos´); document.write(´ Descontos</strong></td>´); document.write(´ <td width=´34¬´ align=´center´ bgcolor=´C0C0C0´ style=´font-family: Trebuchet MS´><strong>Valor Líquido</strong></td>´); document.write(´ </tr>´); document.write(´ <tr>´); document.write(´ <td width=´33¬´ align=´right´><strong><font face=´Trebuchet MS´>´ + valorbruto + ´</font></strong></td>´); document.write(´ <td width=´33¬´ align=´right´><strong><font face=´Trebuchet MS´>´ + valordesconto + ´</font></strong></td>´); document.write(´ <td width=´34¬´ align=´right´><strong><font face=´Trebuchet MS´>´ + valorliquido + ´</font></strong></td>´); document.write(´ </tr>´); document.write(´</table>´); document.write(´<table border=´0´ width=´69¬´>´); document.write(´ <tr>´); document.write(´ <td width=´100¬´><p align=´center´><u><strong><font face=´Trebuchet MS´ color=#065ca5>Este´); document.write(´ extrato vale para simples conferência</font></strong></u></td>´); document.write(´ </tr>´); document.write(´</table>´); document.write(´´); document.write(´<a href=´JavaScript:history.back()´><img border=´0´ height=´38´ src=´´ + parent.RAIZ_HTML_GATEWAY + ´/CONTEXTO/HISCRE/IMAGENS/ante.gif´ width=´120´></a>´); document.write(´</center>´); document.write(´<TABLE bgColor=#065ca5 border=0 cellPadding=0 cellSpacing=0 height=35 width=´100¬´>´); document.write(´ <TBODY>´); document.write(´ <TR>´); document.write(´ <TD align=left vAlign=top width=´1¬´><IMG border=0 height=62 ´); document.write(´ src=´´ + parent.RAIZ_HTML_GATEWAY + ´/CONTEXTO/HISCRE/IMAGENS/esquerda3b.gif´ ´); document.write(´ width=70></TD>´); document.write(´ <TD align=left width=´60¬´><IMG border=0 height=34 ´); document.write(´ src=´´ + parent.RAIZ_HTML_GATEWAY + ´/CONTEXTO/HISCRE/IMAGENS/rodape_dtp.gif´ ´); document.write(´ width=93><BR><IMG alt=´bluebottom2.gif (971 bytes)´ height=10 ´); document.write(´ src=´´ + parent.RAIZ_HTML_GATEWAY + ´/CONTEXTO/HISCRE/IMAGENS/bluebottom2.gif´ ´); document.write(´ width=42><IMG border=0 ´); document.write(´ src=´´ + parent.RAIZ_HTML_GATEWAY + ´/CONTEXTO/HISCRE/IMAGENS/dtpextenso2d.gif´><BR></TD>´); document.write(´ <TD align=right width=´40¬´><A ´); document.write(´ href=´mailto:webmaster.dtp@rjo.dataprev.gov.br´ ´); document.write(´ title=´Fale com a DATAPREV´><IMG border=0 height=25 ´); document.write(´ src=´´ + parent.RAIZ_HTML_GATEWAY + ´/CONTEXTO/HISCRE/IMAGENS/mailslot.gif´ ´); document.write(´ width=36></A></TD>´); document.write(´ <TD align=right vAlign=top width=´1¬´><IMG border=0 height=62 ´); document.write(´ src=´´ + parent.RAIZ_HTML_GATEWAY + ´/CONTEXTO/HISCRE/IMAGENS/padrao1girado.gif´ ´); document.write(´ width=70></TD></TR>´); document.write(´ </TBODY>´); document.write(´</TABLE>´); document.write(´</body>´); document.write(´</html>´); } </script>



PS.: Se puderem me ajudar desde ja agradeço... desculpem o post do codigo tao longo...



bye


Johnny-walker

Johnny-walker

Curtidas 0

Respostas

Johnny-walker

Johnny-walker

30/09/2007

Ninguém pessoal???


Vi tantas pessoas reponderem sobre este assunto aqui que resolvi me cadastrar no forum e pensei que seria mais facil...


Uma pergunta:

Pq nao consegui editar minha mensagem? Qual tempo limite para isto? no faq isto nao é esclarecido...




bye


GOSTEI 0
Johnny-walker

Johnny-walker

30/09/2007

Olá amigo... pelo visto ninguém...


bem, obrigado a todos..



bye


GOSTEI 0
Marciojb

Marciojb

30/09/2007

Estou precisando desse codigo para acessar o Extrato de Pagamento do Dataprev. Esse usando o WebBrowser. pode me mandar por favor??


GOSTEI 0
Johnny-walker

Johnny-walker

30/09/2007

Amigo, se quiser entre em contato que podemos negociar uma solução... tenho como logar, pegar os dados, exportar e tb tiro um screenshot do contra-cheque...


Mande uma mensagem privada ou entao entre em contato no meu email que está em meus dados pessoais e ja que permiti ter acesso ao email vc nao tera problemas...

ou tb visite o site activedelphi que sou mais participativo la, assim será mais façil entrar em contato...



bye


GOSTEI 0
POSTAR