| Linha de Produto: | Microsiga Protheus |
|---|---|
| Segmento: | Recursos Humanos |
| Módulo: | SIGAPON |
| Função: | PONA160 PONA161 |
| Ticket: | 8716400 |
| Requisito/Story/Issue: | DRHPAG-36149 |
Ao realizar a Transferência de turno em lote o sistema apenas inclui novos registros, não realizando a transferência caso já exista algum registro com a data informada.
Criado o ponto de entrada PONAP161 para permitir a manipulação da tabela SPF, Transferência de Turno, antes do sistema realizar a inclusão das informações.
O ponto de entrada é chamado para cada funcionário selecionado para a transferência, a tabela SRA, cadastro do funcionário, estará posicionada na matricula; A data informada para a transferência é passada como parâmetro.
Não é esperado nenhum retorno.
Exemplo de uso do Ponto de entrada PONAO161
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} User Function PONAP161
Ponto de entrada chamado na Transferência de Turno em lote
@type User Function
@author user
@since 28/04/2020
@version 12.1.XX
@see https://tdn.totvs.com/x/kQ_eI
/*/
User Function PONAP161()
Local dDataInfo := ParamIXB[1]
Local aArea := GetArea()
dbSelectArea("SPF")
dbSetOrder(1) // PF_FILIAL + PF_MAT + DTOS(PF_DATA)
If SPF->(dbSeek(SRA->RA_FILIAL + SRA->(RA_MAT + DtoS(dDataInfo))))
RecLock("SPF", .F.)
SPF->(dbDelete())
SPF->(MsUnlock())
EndIf
RestArea(aArea)
Return |
<style>
div.theme-default .ia-splitter #main {
margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
display: none;
}
#main {
padding-left: 10px;
padding-right: 10px;
overflow-x: hidden;
}
.aui-header-primary .aui-nav, .aui-page-panel {
margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
margin-left: 0px !important;
}
.aui-tabs.horizontal-tabs>.tabs-menu>.menu-item.active-tab a::after {
background: #FF9900; !important
}
.menu-item.active-tab {
border-bottom: none !important;
}
</style>
|