- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- VALIDAÇÃO DA DATA DE ADMINSSÃO
×
Linguagem de Programação ADVPL
Perguntas VALIDAÇÃO DA DATA DE ADMINSSÃO
- kenazfs
- Autor do Tópico
- Desconectado
- Membro Sénior
Menos
Mais
- Postagens: 43
- Obrigados Recebidos: 0
10 anos 9 meses atrás #21657
por kenazfs
VALIDAÇÃO DA DATA DE ADMINSSÃO foi criado por kenazfs
CRIEI UMA VALIDAÇÃO E GOSTARIA DE COMPARTILHAR COM A GALERA, QUEM QUISER, É SO COPIAR O CÓDIGO E COMPILAR;
RECOMENDO VALIDAR EM BASE DE TESTES ANTES;
/*
+
+
! FICHA TECNICA DO PROGRAMA !
+
+
! DADOS DO PROGRAMA !
+
+
+
!TIPO ! PONTO DE ENTRADA !
+
+
+
!MODULO ! GESTAO DE PESSOAL | PONTO ELETRONICO !
+
+
+
!NOME ! DTFUN.PRW !
+
+
+
!TABELAS UTILIZADAS ! SRA !
+
+
+
! DESCRICAO DO FUNCIONAMENTO !
+
+
+
! 1 - VALIDA DATA DE ADMISSAO DO FUNCIONARIO, NAO PERMITINDO DIFERENTE DA DATA BASE DO SISTEMA !
! 2 - SETADO O CAMPO X3_USADO DO CAMPO RA_ADMISSA COMO €€€€€€€€€€€€€€° AFIM DE BLOQUEAR ALTERAÇÕES !
+
+
!
!AUTOR ! KENAZ !
+
+
+
!DATA DE CRIACAO ! 21/03/2014 !
+
+
+
*/
#include "rwmake.ch"
User Function DTFUN() // CHAMADA REALIZADA NO CAMPO RA_ADMISSA
Local _aArea := GetArea() // AREA DE TRABALHO ATUAL
Local _lRet := .T.
Local _cData := DTOS (M->RA_ADMISSA) // PEGA A DATA DE ADMISSÃO DIGITADA NO CAMPO
Local _dData := DTOS (dDATABASE) // PEGA A DATA BASE DO SISTEMA
If _cData <> _dData // DATA DIGITADA NÃO PODE SER DIFERENTE DA DATA BASE DO SISTEMA
MsgStop("A data de Admissao deve ser igual a data base do sistema")
Return .F.
EndIf
RestArea(_aArea)
RETURN _lRet
RECOMENDO VALIDAR EM BASE DE TESTES ANTES;
/*
+
+
! FICHA TECNICA DO PROGRAMA !
+
+
! DADOS DO PROGRAMA !
+
+
+
!TIPO ! PONTO DE ENTRADA !
+
+
+
!MODULO ! GESTAO DE PESSOAL | PONTO ELETRONICO !
+
+
+
!NOME ! DTFUN.PRW !
+
+
+
!TABELAS UTILIZADAS ! SRA !
+
+
+
! DESCRICAO DO FUNCIONAMENTO !
+
+
+
! 1 - VALIDA DATA DE ADMISSAO DO FUNCIONARIO, NAO PERMITINDO DIFERENTE DA DATA BASE DO SISTEMA !
! 2 - SETADO O CAMPO X3_USADO DO CAMPO RA_ADMISSA COMO €€€€€€€€€€€€€€° AFIM DE BLOQUEAR ALTERAÇÕES !
+
+
!
!AUTOR ! KENAZ !
+
+
+
!DATA DE CRIACAO ! 21/03/2014 !
+
+
+
*/
#include "rwmake.ch"
User Function DTFUN() // CHAMADA REALIZADA NO CAMPO RA_ADMISSA
Local _aArea := GetArea() // AREA DE TRABALHO ATUAL
Local _lRet := .T.
Local _cData := DTOS (M->RA_ADMISSA) // PEGA A DATA DE ADMISSÃO DIGITADA NO CAMPO
Local _dData := DTOS (dDATABASE) // PEGA A DATA BASE DO SISTEMA
If _cData <> _dData // DATA DIGITADA NÃO PODE SER DIFERENTE DA DATA BASE DO SISTEMA
MsgStop("A data de Admissao deve ser igual a data base do sistema")
Return .F.
EndIf
RestArea(_aArea)
RETURN _lRet
Por favor Acessar ou Registrar para participar da conversa.
- Sombra
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 593
- Obrigados Recebidos: 1
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- VALIDAÇÃO DA DATA DE ADMINSSÃO
Tempo para a criação da página:0.104 segundos