quinta-feira, 16 de dezembro de 2010

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

sexta-feira, 10 de dezembro de 2010

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