Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Medicina e Segurança do Trabalho

Linha de Produto:

Linha Protheus

Segmento:

RH

Módulo:

TOTVS RH (Linha Protheus) - Medicina e Segurança do Trabalho (SIGAMDT)

Função:Licen. Maternidade (MDTA920)
País:Brasil
Ticket:6012923
Issue:DNG-5866


02. DESCRIÇÃO

Ponto de Entrada MDTA9201 chamado ao concluir a inclusão da Licença Maternidade, com a função de realizar uma gravação personalizada na rotina de Afastamentos.


Ponto de EntradaMDTA9201
ChamadaNa gravação de uma licença maternidade.
Pré-RequisitoNão há.
EventoGravação personalizada na rotina de Afastamentos.
RetornoRetorna o afastamento personalizado na SR8 para a licença maternidade incluída.

03. DEMAIS INFORMAÇÕES

FunçãoMDTA9201()
Parâmetros

cSeq, Caracter, Grava a sequência da SR8.

lCpoDura, Lógico, se a variável retornar .T., a duração do afastamento é configurada para 120 dias (licença maternidade padrão).

RetornoLógico, É verdadeiro quando a gravação personalizada de um afastamento foi feita com sucesso.



Exemplo
#include "Protheus.ch"    

User Function MDTA9201()

	dbSelectArea("SR8")
	dbSetOrder(2)
	dbSeek(SRA->RA_FILIAL+SRA->RA_MAT+"ZZZ",.T.)
	dbSkip(-1)
	IF !Eof() .AND. SRA->RA_FILIAL+SRA->RA_MAT == SR8->R8_FILIAL+SR8->R8_MAT
		cSeq := SOMA1(SR8->R8_SEQ)
	Else
		cSeq := "001"
	Endif
	
	//Grava afastamento
	dbSelectArea("SR8")
	dbSetOrder(1)

	If !dbSeek(SRA->RA_FILIAL+SRA->RA_MAT+DTOS(TOF->TOF_DTSLIC)+"Q")
		Reclock("SR8",.t.)
	SR8->R8_FILIAL := SRA->RA_FILIAL
	SR8->R8_SEQ := cSeq
	SR8->R8_MAT := SRA->RA_MAT
	SR8->R8_DATA := dDataBase
	SR8->R8_DATAINI := TOF->TOF_DTSLIC
	SR8->R8_DATAFIM := TOF->TOF_DTRLIC-1
	SR8->R8_TIPO := "Q"
	SR8->R8_CONTINU := "2"

	If lCpoDura //A empresa deverá pagar o salário integralmente a funcionária
	SR8->R8_DURACAO := 120
	SR8->R8_DIASEMP := 120
	SR8->R8_DPAGAR := 120
	Endif
		MsUnlock("SR8")
	Endif

Return .T.


04. ASSUNTOS RELACIONADOS