Datas por extenso

Já precisou escrever datas por extenso? A pequena função fDatExt(), abaixo pode resolver o problema. O resultado pode ser visto nas imagens abaixo:

No fonte abaixo, substitua dDatabase, por sua variável (do tipo data):

 #include "protheus.ch"  
 user function fDataExt()  
   msgalert(u_fDatExt(dDataBase, .t.))  
   msgalert(u_fDatExt(dDataBase, .f.))  
 return  
 user function fDatExt(dParDat, lParAbr)  
   local cRetDat := ""  
   if lParAbr  
     cRetDat += cValToChar(day(dParDat))  
     cRetDat += " de "  
     cRetDat += mesextenso(dParDat)  
     cRetDat += " de "  
     cRetDat += cValToChar(year(dParDat))  
   else  
     cRetDat += capital(extenso(day(dParDat), .t.))  
     cRetDat += " de "  
     cRetDat += mesextenso(dParDat)  
     cRetDat += " de "  
     cRetDat += capital(extenso(year(dParDat), .t.))  
   endif  
 return cRetDat

Veja também: Extenso e Funções de Data

Comentários

Postagens mais visitadas deste blog

Status das tabelas: SPED050 e SPED052

STATUS DA TABELA SPED050: Status NFe (campo STATUS) : 1 = NFe Recebida. 2 = NFe Assinada. 3 = NFe com falha no schema XML. 4 = NFe transmitida. 5 = NFe com problemas. 6 = NFe autorizada. 7 = Cancelamento. Status Cancelamento/inutilização (campo STATUSCANC) : 1 = NFe Recebida. 2 = NFe Cancelada. 3 = NFe com falha de cancelamento/inutilização. Status Mail (campo STATUSMAIL) : 1 = A transmitir. 2 = Transmitido. 3 = Bloqueio de transmissão – cancelamento/inutilização. STATUS DO SPED052: 1 = Lote transmitido. 2 = Lote recebido com sucesso. 3 = Lote com erro.

Protheus integrado ao Active Directory (Single SignOn)

Usando a integração do usuário do Protheus com o Active Directory (AD): 1) O ambiente deve estar atualizado (RPO, Update, LIB e Binário). 2) Entre no Configurador / Usuários / Senhas / Política. 3) Na primeira aba, em Parâmetros, defina no como "Habilitar single sign-on" se a integração será obrigatória ou opcional. 4) No combo "Modalidade de Single Sign-on", defina como "Active Directory". Clique em Confirmar. 5) Agora vá ao cadastro do usuário (Usuário / Senhas / Usuários), clique sobre o usuário e clique em Alterar. Na primeira aba (Usuário), selecione a aba Active Directory. 6) Clique duas vezes sobre o campo abaixo de "Domínio", e preencha o domínio da rede. Clique duas vezes sobre o campo abaixo de "Usuário", e preencha o nome de usuário da rede que ficará vinculado a este usuário do Protheus. Clique em Confirmar. Ao entrar no Protheus, já irá aparecer por padrão o dom...

Impressão com imagens no Protheus

Muitas vezes é necessário incluir uma imagem num relatório (uma logomarca por exemplo). Uma das maneiras de se fazer isto, é usar a classe TMSPRINTER() . O programa exemplo abaixo, ilustra bem como fazer. Este usa também a classe TFONT() (o tamanho do fonte leva o sinal de menos) : # include "PROTHEUS.CH" # include "RWMAKE.CH" user function fImprimeG() local oFont08 := tfont():New( 'Courier new' ,, -8, .t.),,; oFont09 := tfont():New( 'Courier new' ,, -9, .t.),,; oFont10 := tfont():New( 'Courier new' ,,-10, .t.) oPrint:=tmsprinter():new( "Impressao Grafica" ) oPrint:setportrait() oPrint:SetpaperSize(9) // PAPEL A4 if .not. oPrint:Setup() // MOSTRA JANELA DE CONFIGURAÇÃO DE IMPRESSAO msgalert( "IMPRESSAO CANCELADA." ) return nil endif // ESTE BLOCO PODE FICAR EM LOOP (DO WHILE, FOR..., ETC.) oPrint:StartPage() // oPrint:sayBitmap(linha, coluna, "C:\SUAPASTA\SUAIMAGEM.BMP", largura, al...

Microsig@ ADVPL

Pesquisar este blog