Histórico da Página

Tempo aproximado para leitura: 02 min

1. DADOS GERAIS

Linha de Produto:	Microsiga Protheus
Segmento:	RH
Módulo:	SIGAGPE
Função:	GPEA010
Issue:	DRHGCH-12068
Pacote:	12.1.17:https://suporte.totvs.com/portal/p/10098/download?e=767198 ; 12.1.25:https://suporte.totvs.com/portal/p/10098/download?e=767200 ; 12.1.23:https://suporte.totvs.com/portal/p/10098/download?e=767199 ;

02. SITUAÇÃO/REQUISITO

Quando o cadastro não foi efetivado devido a queda inesperada do serviço appserver, rotina de Cadastro de Funcionário sugere matrícula incorreta;

03. SOLUÇÃO

Após queda inesperada do serviço appserver, na camada advpl não será possível fazer uma nova execução, um novo comando. Ao cair o serviço, o sistema não faz novas transações.
Para solucionar lacunas que venham a acontecer devido a essa situação, é recomendado a atualização da numeração através da rotina "APCCFG110 - Atualizar SXE / SXF", consequentemente a sequencia da numeração automática ficará correta.
Foi implementado o ponto de entrada CRIASXE() na rotina GPEA010. Este por sua vez não realiza a contagem e não altera a SXE/SXF, mas ele permite que o usuário insira o valor da próxima matricula. Caso não informado, o sistema prossegue com a contagem existente.
Para que o P.E funcione é necessário compilar o fonte que contém a user function CRIASXE(), vide exemplo abaixo.

04. DEMAIS INFORMAÇÕES

Numeração automática : http://tdn.totvs.com/pages/releaseview.action?pageId=30941114
Criar Ponto de Entrada: CRIASXE(): http://tdn.totvs.com/pages/releaseview.action?pageId=6815179
Adicionar submenu : Personalização de menus

Bloco de código

language	vb
theme	Eclipse
title	Exemplo de utilização:
linenumbers	true
collapse	true

User Function CRIASXE()
    Local cNum      := ""
    Local aArea     := GetArea()
    Local aArea2    := {}
    Local cAlias    := paramixb[1]
    Local cCpoSx8   := paramixb[2]
    Local cAliasSx8 := paramixb[3]
    Local nOrdSX8   := paramixb[4]
    
    Local cUsa := "SRA"
    
    If cAlias $ cUsa .And. !( Empty(cAlias) .And. Empty(cCpoSx8) .And. Empty(cAliasSx8) )
    
        Dbselectarea(cAlias)
        aArea2 := Getarea()
        
        Dbsetorder(nOrdSX8)
        Dbseek(xfilial()+"Z")
        Dbskip(-1)
        cNum := &(cCpoSx8)
        
        cNum := "80020999999" //Fazer o tratamento aqui para a numeracao
        MsgGet2( "Indique o numero correto para a tabela:" + calias, "Campo: "+ "Matrícula", @cNum, , , )
        
        Restarea(aArea2)
        Restarea(aArea)
    EndIf
Return cNum

05. ASSUNTOS RELACIONADOS

Não há.

Templatedocumentos

HTML

<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;
}
</style>

Árvore de páginas

Versões comparadas

Versão antiga 13

Nova versão Atual

Chave

02. SITUAÇÃO/REQUISITO

03. SOLUÇÃO

04. DEMAIS INFORMAÇÕES

05. ASSUNTOS RELACIONADOS