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...