Árvore de páginas

Produto:

SIGAGPE

Versões:

P11

Ocorrência:

Ao rodar o RHUPDMOD sistema gera error log Work area not in use on MSCOPYFILE

Error log

THREAD ERROR ([28140], renato.rezende, LBPAR053023) 19/03/2018 12:15:09
Stack :
Work area not in use on MSCOPYFILE(APLIB070.PRW) 21/03/2016 16:32:28 line : 614

[build: 7.00.131227A-20150508]
[environment: P11_27]
[thread: 28140]
[dbthread: 10528]
[rpodb: SQL]
[localfiles: ADS]
[remark: |Emp :IM/01 Logged : SIGAFAT Obj :|Emp :IM/01 Logged : SIGAFAT Obj :]
[threadtype: RmtSockThread]
Called from FINSX45TIPPON(GPEA150.PRW) 20/12/2017 10:02:36 line : 6222
Called from LOADUPDGPE(RHUPDGPE.PRW) 05/02/2018 11:57:32 line : 5806
Called from FLOADLIST(RHUPDMOD.PRW) 14/01/2016 11:51:18 line : 464
Called from CMPPROC(RHUPDMOD.PRW) 14/01/2016 11:51:18 line : 811
Called from {|| CMPPROC()}(RHUPDMOD.PRW) 14/01/2016 11:51:18 line : 572
Called from eval line : 132
Called from { || EVAL( BACTION, @LEND ),LEND := .T. , ODLG:END() }(GPPROCES.PRW) 17/06/2011 10:59:54 line : 132
Called from ::MSDIALOG:ACTIVATE
Called from PROCGPE(GPPROCES.PRW) 17/06/2011 10:59:54 line : 135
Called from {|| NOPCA := 1 , {PROCGPE({|| CMPPROC()}, OEMTOANSI(IF( CPAISLOC $ "ANG|PTG", "A PROCESSAR", "PROCESSANDO" )), OEMTOANSI(IF( CPAISLOC $ "ANG|PTG", "AGUARDE, A PROCESSAR A PREPARAçãO DOS FICHEIROS.", "AGUARDE, PROCESSANDO PREPARAçãO DOS ARQUIVOS" )), .F. ), ODLG:END()} }(RHUPDMOD.PRW) 14/01/2016 11:51:18 line : 572
Called from eval line : 573
Called from {|| LLOOP:=LVOLTA,LOK:=EVAL(BOK)}(RHUPDMOD.PRW) 14/01/2016 11:51:18 line : 573
Called from eval line : 7746
Called from SAFEEVAL(MSLIB.PRW) 03/03/2016 17:18:26 line : 7746
Called from {|| ( LOKOK:=IF(LMESSAGEDEL,IIF(FINDFUNCTION("APMSGYESNO"), APMSGYESNO(OEMTOANSI(IF( CPAISLOC $ "ANG|PTG", "CONFIRMAR A EXCLUSãO ?", "CONFIRMA A EXCLUSAO ?" )), OEMTOANSI("ATENçãO")), (CMSGYESNO:="MSGYESNO", &CMSGYESNO.(OEMTOANSI(IF( CPAISLOC $ "ANG|PTG", "CONFIRMAR A EXCLUSãO ?", "CONFIRMA A EXCLUSAO ?" )), OEMTOANSI("ATENçãO")))), .T. ),LOK:=IF(LOKOK,(REGOTO(NREG,CALIAS),SAFEEVAL(BOK)), .F. ),EVALRETOK(LOK,NBAR),IF(TYPE("INCLUI") = "L" .AND. __NNIVELBAR == 0 .AND. (VALTYPE(LOK) <> "L" .OR. LOK),__LLOOP := INCLUI,)) }(MSLIB.PRW) 03/03/2016 17:18:26 line : 1561
Called from eval line : 372
Called from {|| EVAL(BOK) }(FWFORMBAR.PRW) 03/03/2016 11:32:52 line : 372
Called from ::MSDIALOG:ACTIVATE
Called from FRECUPDATE(RHUPDMOD.PRW) 14/01/2016 11:51:18 line : 591
Called from RHUPDMOD(RHUPDMOD.PRW) 14/01/2016 11:51:18 line : 300


Fonte analisado GPEA150 data de 20/12/2017

//-- Verifica se a estrutura para o grupo "X45" ainda nao foi modificada
If SR5->( !dbSeek(RhTamFilial(cFilial)+"X450119") )
RecLock("SR5",.T.,.T.)
SR5->R5_ARQUIVO := "X45"
SR5->R5_CAMPO := "X45_TIPPON"
SR5->R5_ORDEM := "19"
SR5->R5_POSICAO := "16"
SR5->R5_TIPO := "C"
SR5->R5_TAMANHO := 2
SR5->R5_DECIMAL := 0
SR5->R5_REG := "01"
SR5->R5_DEONDE := "RX_TXT"
SR5->R5_DE := 59
SR5->R5_QUANTOS := 2
SR5->R5_TITULO := "Tipo Ponto"
SR5->R5_DESCRIC := "Tipo Registro do Ponto"
SR5->R5_PICTURE := "99"
SR5->R5_VALID := "NaoVazio() .OR. Pertence('00|01|02|03|04|05|06')"
SR5->R5_USADO := "X"
SR5->R5_RELACAO := ""
SR5->R5_F3 := "PON"
SR5->R5_NIVEL := "0"
SR5->R5_RESERV := ""
SR5->R5_CHECK := ""
SR5->R5_CHAVE := ""
MsUnlock()
lOk := .T.


Ambiente:

Tdoso

Passo a passo:

Para a correção deste erro, deverá verificar se existe o campo X45_TIPPON na base, caso não exista deverá realizar substituição, ou seja, a importação do SIGAGPE.DBF que tenha o conteúdo deste campo.

O SIGAGPE.DBF esta disponivel no portal do cliente.


Observações: