MDTA9201 - Ponto de entrada ao concluir a inclusão da Licença Maternidade

Descrição

MDTA9201

Observações

Ponto de entrada criado ao concluir a inclusão da Licença Maternidade, tendo a função de realizar uma gravação personalizada na rotina de Afastamentos.

Exemplos

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.

Idioma

Português(Brasil)

Versões

Microsiga_Protheus12

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Retorno

Lógico

Programa Fonte

MDTA920