fahledu

Veteranos
  • Content Count

    1327
  • Joined

  • Last visited

Community Reputation

0 Neutro

3 Followers

About fahledu

  • Rank
     
  • Birthday 09/29/1984

Contatos

  • Website URL
    http://

Perfil

  • Gender
    Male
  • Location
    São Paulo
  1. fahledu

    Melhorar código

    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
  2. 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
  3. Acho que é a forma que você está copiando...
  4. você pode por ex usar o evento onclick e imprimir esse texto onde quer...
  5. Não sei se entendi direito... ve se isso aqui ajuda: http://scriptbrasil.com.br/forum/index.php...1&hl=INDICE
  6. Da uma olhada na seção de javascripts (se não me engano em repositorio de scripts) tem código pronto que faz isso
  7. Da uma olhada nesse post ve se ajuda http://scriptbrasil.com.br/forum/index.php?showtopic=44172
  8. fahledu

    Fundo

    Da uma olhada na seção de JS, la tem código pronto que faz isso...
  9. 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
  10. como você está gravando? Posta o código
  11. 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
  12. 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
  13. Você como é feito o calculo? Passa ai pra gente
  14. 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...