Na rotina GPEA010 é apresentado o erro abaixo:
THREAD ERROR
type mismatch on .AND. on { || IF( ( ( NOPC == 3 ) .OR. ( NOPC == 4 ) .OR. (NOPC == 7) ) .AND. IF(( NOPC == 3 ) .OR. ( NOPC == 7 ),GPEA010RUNVALID(), .T. ) .AND. OBRIGATORIO( OENCHSRA:AGETS , OENCHSRA:ATELA ) .AND. IIF( LINTTAF, FGP10ESOCI(NOPC), NIL ) .AND. FGP10VALBLQ(NOPC) .AND. FGP10RESEX() .AND. IF(NOPC == 3 .OR. NOPC == 4, FGP10TAF(NOPC,,), .T. ) .AND. IF(LINTEGDEF .AND. LERPLOGI,GP010VLDDEPTO(), .T. ) .AND. GPEA010SEQVLD() .AND. IF(NOPC == 3 .AND. EMPTY(CPOSTO), ORGXPOSTO(OENCHSRA), .T. ) .AND. GPEA010VALPE(NOPC) .AND. EVAL(BGPE010BADD1) .AND. VLDCATEG( NOPC ) .AND. IF( ( NOPC == 3 ) , PCOVLDLAN("000084","01","GPEA010") , IIF( NOPC == 4,PCOVLDLAN("000084","03","GPEA010"), .T. ) ) .AND. IF( ( NOPC == 4 ) , GP010ALTSAL() , .T. ) .AND. NGATUAST1() .AND. IF(LINTERESER .AND. LEXPCAD, EVAL(BFINA673OBR), .T. ), ( NOPCA := 1 , RESTKEYS( ASVKEYS , .T. ), ODLG:END() ), IF( ( ( NOPC == 3 ) .OR. ( NOPC == 4 ) .OR. (NOPC == 7) ) , ( NOPCA := 0 , .F. ), ( NOPCA := IF( NOPC == 2 , 0 , 1 ) , RESTKEYS( ASVKEYS , .T. ), ODLG:END() ) ) ) }(GPEA010.PRX) 29/06/2017 14:27:20 line : 1591
[TOTVS build: 7.00.131227A-20170626]
Called from eval line : 7761
Called from SAFEEVAL(MSLIB.PRW) 22/03/2017 14:59:07 line : 7761
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) 22/03/2017 14:59:07 line : 1571
Called from eval line : 374
Called from {|| EVAL(BOK) }(FWFORMBAR.PRW) 09/12/2016 09:22:17 line : 374
Called from ::MSDIALOG:ACTIVATE
Called from GPEA010MNT(GPEA010.PRX) 29/06/2017 14:27:20 line : 1699
Called from GPEA010INC(GPEA010.PRX) 29/06/2017 14:27:20 line : 901
Called from { |A,B,C,D,E,F,G| GPEA010INC(A,B,C,D,E,F,G) } line : 768
Called from eval line : 768
Called from GPEA010(GPEA010.PRX) 29/06/2017 14:27:20 line : 768
Called from CALLA010(GPEA011.PRX) 11/07/2016 16:02:11 line : 256
Called from FWMBROWSE:EXECUTE(FWFORMBROWSE.PRW) 11/05/2017 11:45:30 line : 1064
Called from { || OSELF:EXECUTE("CALLA010", 3,0,"INCLUIR", 2,"","","", 2 ) } line : 615
Called from ::MSDIALOG:ACTIVATE
Called from FWMBROWSE:ACTIVATE(FWMBROWSE.PRW) 05/05/2017 18:12:47 line : 674
Called from FWMBROWSE(MSLIB.PRW) 22/03/2017 14:59:07 line : 12667
Called from MBROWSE(MSLIB.PRW) 22/03/2017 14:59:07 line : 170
Called from GPEA011(GPEA011.PRX) 11/07/2016 16:02:11 line : 237
Called from __EXECUTE(APLIB090.PRW) 20/01/2017 10:25:35 line : 581
Called from FWPREEXECUTE(FWPREEXECUTE.PRW) 12/05/2017 11:52:37 line : 82
Called from {|| FWPREEXECUTE('GESTãO FUNCIONáRIO', 'GPEA011()', 1, '07', 'XXXXXXXXXX') } line : 183
Called from ::TWINDOW:ACTIVATE
Called from MSAPP:ACTIVATE(FWAPP.PRW) 28/03/2017 18:36:59 line : 635
Called from SIGAADV(APLIB000.PRW) 15/12/2016 16:43:54 line : 55
Publicas
Public 1: CPAISLOC(C) :BRA
Public 2: LWSISPORTAL(L) :.F.
Public 3: OAPP(O) :O
Public 4: HELP(L) :.F.
Public 5: USIGAADV(L) :.T.
SOLUÇÃO:
A Release Oficial foi expedida e publicada na Central de Downloads.
O pacote pode ser acessado no endereço:
11.80: https://suporte.totvs.com/portal/p/10098/download?e=598560
É necessário que antes de fazer a atualização, faça o backup de seu RPO.
Observação: Caso esteja com o RPO muito desatualizado, além de aplicar o pacote pontual acima, será necessário atualizar também o pacote acumulado da sua versão conforme a faq: PSIGABD0086 - Qual o link direto para pesquisar e baixar o pacote acumulado do Portal do Cliente?
Aceitar apenas fontes atualizados.
