Ocorrência
GPEA010 - type mismatch on + on FINTADMISS(GPEM026A.PRW) 05/07/2018 17:03:49 line : 971
Causa
THREAD ERROR ([6248], ritajuliana, DRH011) 31/07/2018 09:32:15
type mismatch on + on FINTADMISS(GPEM026A.PRW) 05/07/2018 17:03:49 line : 971
[build: 7.00.131227A-20180712 NG]
* SVN Revision: 10969 - 19787 - 2049
[platform: x86]
[environment: NOVO]
[thread: 6248]
[dbthread: 4460]
[rpodb: TOP]
[localfiles: CTREE]
[remark: Emp :01/01 Logged :Rita Juliana SIGAGPE Obj :GPEA010 - Funcionários]
[threadtype: RmtSockThread]
on FINTADMISS(GPEM026A.PRW) 05/07/2018 17:03:49 line : 971
Called from FINTADMISS(GPEM026A.PRW) 05/07/2018 17:03:49 line : 971
Called from FGP10TAF(GPEA010.PRX) 25/06/2018 11:22:49 line : 10923
Called from { || If( ( ( nOpc == 3 ) .Or. ( nOpc == 4 ) .Or. (nOpc == 7) ) .And. fValTermCt(nOpc) .AND. If(( nOpc == 3 ) .Or. ( nOpc == 7 ),Gpea010RunValid(), .T. ) .And. Obrigatorio( oEnchSra:aGets , oEnchSra:aTela ) .And. fGP10ValBlq() .and. fAjusCLVL() .And. fGrinrai() .and. If(cPaisLoc=="BRA" .anD. nOpc == 4,fvldADM(), .t. ) .And. If(lIntegDef .And. lErpLogi,Gp010VldDepto(), .T. ) .and. If(cPaisLoc=="DOM" .And. (nOpc == 3 .Or. nOpc == 7), If( Empty(M->RA_CIC), .T. , ValidId(M->RA_CIC) ), .T. ) .And. If(cPaisLoc=="BRA", fTemRHK(), .T. ) .And. IF( ( nOpc == 4 ) , Gp010AltSal() , .T. ) .and. fGP10eSoci(nOpc,lGp010Auto) .And. fGP10ResEx() .And. Gpea010SeqVld() .And. If(nOpc == 3 .And. Empty(cPosto), ORGXPosto(oEnchSra), .T. ) .And. Gpea010ValPE(nOpc) .And. Eval(bGP010Add) .And. If( ( nOpc == 3 ) , PcoVldLan("000084","01","GPEA010") , IIF( nOpc == 4,PcoVldLan("000084","03","GPEA010"), .T. ) ) .And. If(cPaisLoc=="MEX", Gpea010InfVal(), .T. ) .And. If(cPaisLoc=="PER", Gpea010PDT(), .T. ) .And. If(cPaisLoc=="COS", fSalario_Cos(), .T. ) .And. If(cPaisLoc=="ARG", fAliquARG("4"), .T. ) .And. If((cPaisLoc $ "PTG/COL/PER/ANG") .And. (nOpc == 3 .Or. nOpc == 7), Gpea010VlCtr(), .T. ) .And. If((cPaisLoc=="COL" ) .And. (nOpc == 3 .Or. nOpc == 4 .Or. nOpc == 7), Gp010EstVLD() .And. Gp010ValSal() .And. Gp010AfpVld(), .T. ) .And. If((cPaisLoc=="CHI" ) .And. (nOpc == 3 .OR. nOpc == 4 .OR. nOpc == 7), ValidRUT(nOpc) , .T. ) .ANd. If( ( nOpc == 4 ) , Gp010AltSal() .And. Gp010ValSit() .And. Gp010Transf() .And. If(cPaisLoc=="PTG",Gp010AltCAT(), .T. ) .And. If(cPaisLoc$"MEX|COS|DOM|COL",Gp010Adm( .F. ), .T. ) , .T. ) .And. If( cValToChar( nOpc ) $ "3|4|7" , fGp10Taf(nOpc,,), .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) 25/06/2018 11:22:49 line : 10923
Called from SAFEEVAL(MSLIB.PRW) 13/07/2018 17:01:02 line : 7926
Called from {|| ( lOkOk:=If(lMessageDel,Iif(FindFunction("APMsgYesNo"), APMsgYesNo(OemtoAnsi(FWI18NLang("MSLIB","STR0014",14)), OemToAnsi(FWI18NLang("MSLIB","STR0015",15))), (cMsgYesNo:="MsgYesNo", &cMsgYesNo.(OemtoAnsi(FWI18NLang("MSLIB","STR0014",14)), OemToAnsi(FWI18NLang("MSLIB","STR0015",15))))), .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) 13/07/2018 17:01:02 line : 7926
Called from {|| Eval(bOk) }(FWFORMBAR.PRW) 13/07/2018 17:01:02 line : 7926
Called from ::MSDIALOG:ACTIVATE line : 7926
Called from GPEA010MNT(GPEA010.PRX) 25/06/2018 11:22:49 line : 1400
Called from GPEA010ALT(GPEA010.PRX) 25/06/2018 11:22:49 line : 573
Called from FWMBROWSE:EXECUTE(FWFORMBROWSE.PRW) 13/07/2018 17:01:02 line : 1098
Called from { || OSELF:EXECUTE("GPEA010ALT", 4, 82,"ALTERAR", 4,"","ALTERAR","", 4) }(FWFORMBROWSE.PRW) 13/07/2018 17:01:02 line : 1098
Called from ::MSDIALOG:ACTIVATE line : 1098
Called from FWMBROWSE:ACTIVATE(FWMBROWSE.PRW) 13/07/2018 17:01:02 line : 700
Called from GPEA010(GPEA010.PRX) 25/06/2018 11:22:49 line : 452
Called from __EXECUTE(APLIB090.PRW) 13/07/2018 17:01:01 line : 603
Called from FWPREEXECUTE(FWPREEXECUTE.PRW) 13/07/2018 17:01:04 line : 82
Called from {|| FWPreExecute('Funcionários', 'GPEA010()', 1, '07', 'xxxxxxxxxx') }(FWUIMENUL.PRW) 13/07/2018 17:01:04 line : 82
Called from ::TWINDOW:ACTIVATE line : 82
Called from MSAPP:ACTIVATE(FWAPP.PRW) 13/07/2018 17:01:04 line : 714
Called from SIGAADV(APLIB000.PRW) 13/07/2018 17:01:01 line : 48
Called from STATICCALL(APLIB000.PRW) 13/07/2018 17:01:01 line : 48
Ambiente
Protheus – Gestão de Pessoal – A partir da versão 12.1.17
Solução
Através do Configurador, busque na tabela SRA o campo RA_EMAIL.
Na aba Uso, verifique se o campo Usado está selecionado.
Na aba Módulos, verifique se esta selecionado Utilizados por todos os módulos.
