Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.



Tempo aproximado para leitura: 02 min

011DADOS GERAIS

Linha de Produto:Microsiga Protheus
Segmento:RH
Módulo:SIGAGPE
Função:

GPEA010

Issue:DRHGCH-12068
Pacote:



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 venha acontecer devido esse situação, é recomendado a utilização através da rotina APCCFG110 - Atualizar SXE / SXF, consequentemente a sequencia da numeração automática, ficará correta.
Foi implementada  o implementado o ponto de entrada, CRIASXE() . Este por sua vez, não realiza a contagem e não altera a SXE/SXF, ele permite que o usuário insira o valor da próxima matricula; caso não informado, o sistema prossegue com a contagem existente.

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
languageactionscript3
themeEclipse
titleExemplo de utilização:
linenumberstrue
collapsetrue
#include 'protheus.ch'

user function CRIASXE()

Local paramixb := {"SRA", "RA_MAT", "00057", 1}

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 := "00054" // 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>