Mais uma vez o REP foi adiado

Como de costume mais uma vez o REP foi adiado, é a quinta vez que isso acontece, vamos esperar o que vai ser dessa vez, abaixo as datas "Provaveis" para a obrigatoriedade:

A implantação do novo ponto eletrônico deverá ser a partir de 2 de abril de 2012 para as empresas que exploram atividades na indústria, no comércio em geral, no setor de serviços, incluindo, entre outros, os setores financeiro, de transportes, de construção, de comunicações, de energia, de saúde e de educação; a partir de 1º de junho de 2012, para as empresas que exploram atividade agroeconômica nos termos da Lei n.º 5.889, de 8 de julho de 1973; e a partir de 3 de setembro de 2012 para as microempresas e empresas de pequeno porte, definidas na forma da Lei Complementar nº 126/2006.

Fonte: G1

Função PHP para iniciais maiúsculas (CAPITALIZE)

Bom dia a todos,

Iniciei uma nova caminhada, agora estou estudando também PHP e pesquisando na internet sobre uma função para realizar um CAPITALIZE em frases descobri que o PHP não tem ainda nativo. Com um pouco mais de pesquisa encontrei a função abaixo que funcionou muito bem e pode ser útil para vocês.
Ela levam em consideração nosso idioma desconsiderando os verbetes: um, uma, o, a, de, do, da, em.


Chega de enrolação, vamos a função:

 <?php  
 function strCapital($str)  
   {  
     $noUp = array('um','uma','o','a','de','do','da','em');  
     $str = trim($str);  
     $str = strtoupper($str[0]) . strtolower(substr($str, 1));  
     for($i=1; $i<strlen($str)-1; ++$i) {  
       if($str[$i]==' ') {  
         for($j=$i+1; $j<strlen($str) && $str[$j]!=' '; ++$j); //find next space  
         $size = $j-$i-1;  
         $shortWord = false;  
         if($size<=3) {  
           $theWord = substr($str,$i+1,$size);  
           for($j=0; $j<count($noUp) && !$shortWord; ++$j)  
             if($theWord==$noUp[$j])  
               $shortWord = true;  
         }  
         if( !$shortWord )  
           $str = substr($str, 0, $i+1) . strtoupper($str[$i+1]) . substr($str, $i+2);  
       }    
       $i+=$size;  
     }  
     return $str;  
   }  
 ?>  

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