Morpheus#2005

Bom Pessoal, a duvida parece ser simples...rs Voces ja precisaram usar CASE dentro do WHERE ? BOM EU TENHO UM SELECT que precisava CONSULTAR SE a DATA CAI na segunda feira ou NÃO. Sendo assim eu montaria a consulta a partir dessa informação. select dado1,dado2,data from teste where (case to_char(MANIX.MANI_MANI_DH_ABERTURA, 'D') = '2' THEN MANIX.MANI_MANI_DH_ABERTURA >=current_date -3 ELSE MANIX.MANI_MANI_DH_ABERTURA=current_date END) A logica seria : se a data for segunda feira, eu considero a data -3 dias....entao faria a extração de sexta ate a segunda... caso a data seja diferente de segunda seria o dia atual -1. Alguem ja precisou usar assim??

PUTZ! TO CANSADO... Problema resolvido: MANI_MANI_DH_ABERTURA >= ( CASE WHEN to_char(current_date, 'D') = '2' THEN current_date -3 ELSE current_date END )

Bom dia a todos... Ta osssoooo resolver isso aqui.. alguem consegue me ajudar? Eu tenho um base com SEGUNDOS de uma atendimento... eu precisava SOMAR esses segundos por ATENDENTE... Exemplo : Fernando : 150 segundos ao converter isso ficaria : Fernando : 00:02:30 Mas eu nao tenho somente o FERNANDO.... Eu tenho uma base com 10000 funcionários. Alguem me ajuda ??? abraços

//conecta no banco $connection = mysqli_connect("localhost", "admin", "admin", "des_arcamel", "3306"); //ou 3307 //executa o store procedure $result = mysqli_query($connection, "CALL sp_se_lista();") or die("Erro na query da procedure: " . mysqli_error()); //lista os resultados while ($row = mysqli_fetch_array($result)) { echo $row[0] . "<br>\n" . $row[1] . "<br>\n"; }

Opa! bão com vcs ? estou quebrando a cabeça para extrair todos os emails do outlook em VBA... tem como alguem me ajudar? to meio enferrujadoooo...rs Ele ate roda, mais nao pega todos os emails com a palavra REPORT no cabeçalho..... ta ossadaaaaaa... abraços aii Sub lerEmails() ' Criando a aplicação do Outlook Dim objOutlook As Object Set objOutlook = CreateObject("Outlook.Application") ' Criando um Namespace, que seria uma sessão no Outlook Dim objNSpace As Object Set objNSpace = objOutlook.GetNamespace("MAPI") Dim Pasta_Destino As Outlook.MAPIFolder Dim Pasta_Raiz As Outlook.MAPIFolder Set Pasta_Destino = objNSpace.Folders("email@email.com").Folders("Inbox").Folders("Marcia") Set Pasta_Raiz = objNSpace.Folders("femail@email.com").Folders("Inbox").Folders("Marcia") ' Cria um objeto com a pasta Inbox do Outlook Dim minhaPasta As Object Set minhaPasta = objNSpace.GetDefaultFolder(olFolderInbox) Dim i As Long Dim itemPasta As Object Dim testCheck As String Selection.End(xlDown).Select Linha = Sheets("Planilha1").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).row i = Sheets("Planilha1").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).row 'Linha que vai começar preenchendo na planilha ' Percorrer todos os itens dentro da pasta For Each itemPasta In minhaPasta.Items testCheck = Trim(UCase(Left(itemPasta, 6))) If testCheck = "REPORT" Then If itemPasta.Class = olMail Then Dim objEmail As Outlook.MailItem Set objEmail = itemPasta Set Pasta_Destino = objNSpace.Folders("email@email.com").Folders("Inbox").Folders("Marcia") If objEmail.SenderName = "Relatorios_BI" Then GoTo fim: Cells(i, 1).Value = objEmail.SenderName Cells(i, 2).Value = objEmail.Subject Cells(i, 3).Value = objEmail.ReceivedTime 'Set minhaPasta = objNSpace.GetDefaultFolder(olFolderInbox) objEmail.Move Pasta_Destino Set Pasta_Raiz = objNSpace.Folders("email@email.com").Folders("Inbox") End If i = i + 1 Set Pasta_Raiz = objNSpace.Folders("email@email.com").Folders("Inbox") End If fim: Set Pasta_Destino = objNSpace.Folders("email@email.com").Folders("Inbox") Next MsgBox ("FIM") Set objEmail = Nothing Set objOutlook = Nothing Set objNSpace = Nothing Set minhaPasta = Nothing Set Pasta_Destino = Nothing Set itemPasta = Nothing End Sub

O cara matuto chegou na cidade e logo disse: hj eu tenho que comer alguém. Foi no puteiro e olhou na porta e perguntou para uma moça linda. Quanto custa a f0d4? ela respondeu vc quer prazer ou diversão ? Ele: Eu quero prazer. Ela : ok, são 300 reais, vá direto e entre na 3º porta a direita . Ele: Pagou e seguiu conforme ela falou, chegando lá ao abrir a porta tinha um loira linda, só de calcinha e sutia esperando ele. O sujeito afoito , já foi tirando a roupa e partindo pra cima daquela maravilhosa mulher, nunca tinha visto tão bela. bem foram 45 minutos de muita selvageria e a mulher não falou um "AI", quietinha estava quietinha ficou. Ele então perguntou : - Minha filha, eu estou aqui me acabando e vc ainda nada, nem conversar quer, nem gemer quer, nada, nada... Ela: Eu tenho um problema, só sinto tesão quando se fantasiam. Ele: Fantasia, mas fantasia de que? Ela: Eu tenho um espanador aqui, vc pode colocar ele no c* e fingir ser um Pavão ? Ele: tá louca ? quer ganhar umas porradas, sou macho minha filha. E continuo a fazer amor com ela....mas aquilo te intrigou...pq ela continuou igual uma pedra. Passado 10 minutos ele chega ao ouvido dela e diz: Voce promete que não conta pra ninguém se eu fizer o que pediu ? Ela: Prometo. O malandro entao se vestiu de pavão com aquele espanador e foi com tudo...ai a mulher se soltou e foi aquela loucura. 1 semana depois, ele volta no mesmo lugar , e a mulher pergunta: Vc quer prazer ou diversão ? Ele pensa e diz hj eu quero diversão. Ela: Então o senhor sobe até o 10º andar. Ele: pegou elevador e foi até o 10º andar, chegando lá viu um monte de homens rindo e olhando para baixo. Ele tbm foi olhar e começou a rir desesperadamente , porque viu um cara fazendo amor vestido de PATATI PATATA,... Nisso que ele nao parava de rir, o cara ao lado falou pra ele: Pô vc esta rindo disso, tinha que ver na semama passada o cara vestido de Pavão, ninguém se aguentava. rs...............é um pouco grande mas é boa.

Infelizmente...a solução dada pelo Mário seria....a mudança do forum para o servidor MORPHEUS.NET. Mas o pessoal do servidor esta irredutivel pois o Imasters mudou para a UOL . Lamentável....

Manda uma cerva bem gelada com um steinhaeger no fundo para a mesa 2005 por gentileza.. Thanks...o dia hj vai ser daqueles...