fahledu

Boas pessoal SQL não é meu forte, mas fiz uma query para identificar cadastros que possuem vínculos com outros cadastros e possuem a mesma base. Está funcionando (aparentemente ^^) porem acredito ter feito de uma forma menos pratica, então como eu poderia melhorar esse script? select distinct SUBSTRING(B1.STCD1KNA1,1,8) [Base CNPJ] ,B2.KUNNR [Cliente] ,VKORG [Sales Org] ,KUNN2 [Payer] from B2 INNER JOIN B1 ON B2.KUNNR = B1.KUNNR WHERE PARVW = 'RG' AND B2.KUNNR <> KUNN2 and B1.STCD1KNA1 <> '' and LAND1KNA1 = 'BR' and SUBSTRING(B1.STCD1KNA1,1,8) in ( select a.[Base CNPJ] from ( select distinct SUBSTRING(B1.STCD1KNA1,1,8) [Base CNPJ] ,count(SUBSTRING(B1.STCD1KNA1,1,8)) as [qtde A] from B2 INNER JOIN B1 ON B2.KUNNR = B1.KUNNR WHERE PARVW = 'RG' AND B2.KUNNR <> KUNN2 and B1.STCD1KNA1 <> '' and LAND1KNA1 = 'BR' group by SUBSTRING(B1.STCD1KNA1,1,8) having count(SUBSTRING(B1.STCD1KNA1,1,8)) > 1 ) as a join ( select distinct (SUBSTRING(B1.STCD1KNA1,1,8)+kunn2) [Base CNPJ] ,count(SUBSTRING(B1.STCD1KNA1,1,8)+kunn2) [qtde B] from B2 INNER JOIN B1 ON B2.KUNNR = B1.KUNNR WHERE PARVW = 'RG' AND B2.KUNNR <> KUNN2 and B1.STCD1KNA1 <> '' and LAND1KNA1 = 'BR' group by (SUBSTRING(B1.STCD1KNA1,1,8)+kunn2) having count(SUBSTRING(B1.STCD1KNA1,1,8)+kunn2) > 1) B on a.[Base CNPJ] = substring(B.[Base CNPJ],1,8) where [qtde A] <> [qtde B] ) group by SUBSTRING(B1.STCD1KNA1,1,8), B2.KUNNR, B2.VKORG, B2.KUNN2 order by [Base CNPJ], Payer Abrax

um ex. Sub teste() Dim i, x As Integer i = 1 x = 1 Do Range("B" & x).Value = Range("A" & i).Value i = i + 1 Range("C" & x).Value = Range("A" & i).Value i = i + 1 Range("D" & x).Value = Range("A" & i).Value i = i + 1 Range("E" & x).Value = Range("A" & i).Value i = i + 1 x = x + 1 Loop While Range("A" & i).Value <> "" End Sub

Acho que é a forma que você está copiando...

você pode por ex usar o evento onclick e imprimir esse texto onde quer...

Não sei se entendi direito... ve se isso aqui ajuda: http://scriptbrasil.com.br/forum/index.php...1&hl=INDICE

Da uma olhada na seção de javascripts (se não me engano em repositorio de scripts) tem código pronto que faz isso

Da uma olhada nesse post ve se ajuda http://scriptbrasil.com.br/forum/index.php?showtopic=44172

Da uma olhada na seção de JS, la tem código pronto que faz isso...

Ahhh tá, essa imagem, estranho que no IE no trampo ela não aparece... deve ser frescura... Bom, voltando ao que interessa... vê se esse link te ajuda: http://vbadud.blogspot.com/2007/06/visual-...mon-dialog.html

como você está gravando? Posta o código

Que erro?

Ve se esse código ajuda Sub Subst() Dim Rg As Integer Rg = 1 Do If Range("A" & Rg).Value = "N/A" Then Range("A" & Rg).Value = Range("A" & Rg - 1).Text Rg = Rg + 1 Else Rg = Rg + 1 End If Loop While Range("A" & Rg).Value <> "" End Sub

Esse seria o algoritmo, meio genérico, mas não deixa de ser um algoritmo... Se você fizer o passo a passo desse calculo você terá o algoritmo que deseja, depois se necessário é só converter em algum linguagem... Tenta ai e posta pra gente ir te ajudando. Abrax

Você como é feito o calculo? Passa ai pra gente

Cara... o ruim de desenvolver pra web é isso... sempre tem que pensar e testar em todo tipo de navegador... e não adianta pensar em atualização de navegador... Um usuário não vai fazer isso só pra ver seu site (a não ser que ele queira muito) e corporativo pior ainda... O que ocorre bastante nesses caso é criar um script pra cada navegador... Tvz o pessoal que trabalhe com isso tenha alguma sugestão mais pratica usando CSS e tals...

Só htm não teria como... (ou pelo menos eu não sei como ^^) Mas, e esse jogo? ele é instalado no PC? como chama o html? Se não tiver suporte a JS e tals, você conseguiria editar o fonte do jogo para chamar um htm diferente por lá?

Se não me engano setando ID da...

Essas paginas seriam o index? Nesse caso você pode usar linguagem dinâmica.... Se for uma parte da pagina, da pra fazer com JS E dependendo do que vai ter nesses arquivos, nem precisa fazer 3 paginas, da pra deixar num arquivo só... Da mais detalhes...

Hum... sem linguagem dinâmica não creio que de...

Qual o intuito disso? Vai rodar numa intranet? Baixar algo ao clicar num link sem avisar seria uma falta de segurança e upar pior ainda... Então acho que com JS não rola...

você já tentou colocando o caminho todo?

Pra mim rodou normal (IE7) em que navegador você está rodando?

Imprime o valor da variável que contem a idade document.write (variavel) Nussa, faz tempo que não uso JS :unsure:

Boas... Abrir e fechar a tabela resolve... Não é uma forma limpa... mas ta indo... Vlw

Pessoal, Obrigado pelas respostas... Acho que não fui claro na minha necessidade... Para reduzir erros humanos, eu criei um form que preenche o maximo com o minimo de informação do usuário, gerando um template. Esse template tem uma vida util curta, ou seja, a partir do momento que o template foi criado e encaminhado ele não serve mais pra nada (pra quem preencheu)... Partindo desse principio toda vez que o form é carregado ele limpa todos os campo da tabela, até ai td ok. Porem o Access de alguma forma cria em algum lugar um numero do registro (q não existe na minha tabela), com isso, quando o form carrega ele iniciar no registro um que esta vazio e da erro devido as formulas de validação... Pra resolver ( não da forma necessaria) basta clicar em criar novo registro (opção gerada pelo access) e com isso vai para o registro N (o ultimo criado) Minha intenção é evitar isso e quando o formulario abrir sempre inicie do regitro 1... De qualquer forma vlw...