Primeiras Letras Maiusculas

Função CAPITAL()


Função para avaliar uma string passada como parâmetro alterando a primeira letra de cada palavra para maiúscula e as demais letras para minúsculas.


Sintaxe: CAPITAL(cTexto)


Parâmetros:
cTexto-> String a ser avaliada


Retorno:
String Contendo a string original com as modificações necessárias para atender a
condição da função.


Ex:


ALERT(CAPITAL("LUIZ INACIO LULA DA SILVA"))

Erro nos Icones do Office 2007

Já me pediram para fazer a desistalação do Office, já fiz reparação mas nada adiantou, pesquisando no pai dos burros (Google.com) encontrei uma solução util e talvez complicada, mas que funciona.

Basta seguir os passos abaixo e vai ficar tudo bem.


1) Baixe o programa chamado FileTypesMan (filetypesman.zip) e execute-o. Ele permite alterar a configuração das extenções, tal como programa que executará o arquivo e icone.

2) Procure pela extensão .doc e dê duplo clique sobre.

3) Ao lado de Default icon clique no botão que tem reticencias [...], e procure pelo executavel do Word (no meu pc está em: C:\Program Files\Microsoft Office\Office12\WINWORD.EXE) clique em OK

4) Abaixo aparecerão todos os icones possiveis. Escolha o que mais lhe agrada.

5) Repetir o procedimento a partir da etapa 2 para todos as extenções (.docx, .dot, .dotx...)

Fazer o mesmo procedimento para Excel, Powerpoint, Access.. Etc..

Detalhes comuns:

Word
Executavel: WINWORD.exe
Extensões: .doc .dot .docx .dotx

Excel
Executavel: EXCEL.exe
Extensões: .xls .xlt .xlsx .xltx

Powerpoint
Executavel: POWERPNT.exe
Extensões: .ppt .pps .pptx .ppsx

Access
Executavel: MSACCESS.exe
Extensões: .mdb

Daniel S. Menezes

Analista de Sistemas
Programador ADVPL

Dia util (DataValida - ADVPL)

Esta função retorna uma data válida a partir de uma data informada.

DataValida(dData, lNext)

onde dData = Data a ser validada
e       lNext = é um parametro (.T. - para avançar para próxima data válida e .F. para retroceder para data válida anterior)

A função irá considerar as datas encontradas na tabela 63 do SX5 (Tabela de Feriados), os sábados (caso o parâmetro MV_SABFERI seja igual a "S") e os domingos como sendo feriados, retornando assim a data válida.


Exemplo:

#include "protheus.ch"

User Function DataValida()
Local dData := CTOD("14/11/09") // Converte uma string em data.
Local lNext := .T.
Local dNewData := DataValida(dData, lNext)

ApMsgAlert("Proxima data válida será: "+ Dtoc(dNewData))

Return

Daniel S. Menezes

Analista de Sistemas
Programador ADVPL

Resolvendo erro Msvcp71.dll e Msvcr71.dll no Windows 7

Você já executou um programa e encontrou um erro pela ausência das dlls Msvcp71.dll e Msvcr71.dll no Windows 7?
Ambos são arquivos do Microsoft C Runtime Library, e parece como se a Microsoft esqueceu-se de adicioná-los ao Windows 7. Alguns programas exigem que você tenha os dois arquivos para que ele funcione com êxito.

 Para baixar as dlls acesse o link: Msvcp71.dll e Msvcr71.dll

Daniel S. Menezes

Analista de Sistemas

Consultar Operadora Movel

Para consultar um número de celular de qual operadora ele pertençe use o site abaixo:

http://consultanumero.abr.net.br:8080/consultanumero/consulta/consultaSituacaoAtual!carregar.action

Daniel S. Menezes

Analista de Sistemas

Campo MEMO (Protheus)

Depois de muitas pesquisas e de ficar um pouco contrariado por não encontrar uma solução satisfatória, busquei uma ajuda dos universitários e consegui uma solução interessante para ler um campo MEMO e passar esse campo para uma variavel.

Abaixo segue a ideia do que foi utilizado:

    cLinha := ""

    For nX := 1 to MlCount(SZG->ZG_DESCATIV,150)

        cLinha += Alltrim(MemoLine(SZG->ZG_DESCATI,150,nX)) + " "

    Next nX

Houve também a idéia de criar um Array e gravar as informações, ficaria assim:

    cLinha := {}

    For nX := 1 to MlCount(SZG->ZG_DESCATIV,150)

        AADD(cLinha, MemoLine(AllTrim(SZG->ZG_DESCATI),150,nX))

    Next nX

Simples assim,

Utilizei uma das duas formas para não precisar usar soluções do Banco de Dados.

Daniel S. Menezes

Analista de Sistemas

Informações de conexão ativa (Protheus)

GetVersao() // Retorna a versão, base de dados e ambiente que está em uso no momento.

GetClientDir() // Retorna o path completo de onde está sendo executado o Remote. Ex.: C:\Protheus10\Bin\Remote\

GetEnvServer() // Retorna o nome do Environment que está sendo utilizado no momento.

GetSrvProfString ("STARTPATH","") // Retorna o StartPath definido no ini do server

GetSrvProfString ("ROOTPATH","") // Retorna o RootPath definido no ini do server

FunName() // Retorna o nome da função do menu

FunDesc() // Retorna a descrição do menu

cArqMnu    // Nome do arquivo de menu

GetComputerName () // Nome da estação

Daniel S. Menezes

Analista de Sistemas