DRHGFP-2793 - Sistêmico - Editor de Modelos de Atos/Portarias

Tempo aproximado para leitura: 02 min

01. DADOS GERAIS

02. SITUAÇÃO/REQUISITO

O sistema exibe error.log na tela do editor de Modelos de Atos/Portarias.

Steps:

1. No módulo VDF, menu Miscelanea → Atos/Portarias → Editor Modelos Atos/portarias.
   
   

Erro:

THREAD ERROR ([25361], manoela.gonzaga, SPON010113628) 21/01/2019 10:28:59
: Error : 1 (42803) (RC=-1) - ERROR: column "rcct10.rcc_conteu" must appear in the GROUP BY clause or be used in an aggregate function;
Error while executing the query
( From tPostgresConnection::GetQueryFile )
Thread ID [32099] User [MANOELA.GONZAGA] IO [3677] Tables [22] MaxTables [22] Comment [VDFM220 - TCPIP - ThreadID(25361)] SP [ ] Traced [No] SQLReplay [No] InTran [No] DBEnv [POSTGRES/BRTS1217PV2] DBThread [(ID 32170)] Started [21/01/2019 11:28:09] IP [10.171.67.120:60610] IDLE [ ] InTransact [ ] Memory [1434976] Running [ROP_QUERY] RCV [143116] SND [648323] TCBuild [20181212-20190117] TCVersion [18.2.1.0_RC2] ARCH [64] OS [LINUX] BUILD [RELEASE] 
SELECT CAST(SUBSTR(RCC_CONTEU,1,2)::BPCHAR AS VARCHAR(2)) AS RCC_CODIGO,CAST(SUBSTR(RCC_CONTEU,3,30)::BPCHAR AS VARCHAR(30)) AS RCC_DESCRI FROM RCCT10 RCC WHERE D_E_L_E_T= ' ' AND RCC_FILIAL = 'D MG ' AND RCC_CODIGO = 'S101' AND R_E_C_N_O_ IN (SELECT MAX(RCCR.R_E_C_N_O_) FROM RCCT10 RCCR JOIN (SELECT RCC_CODIGO AS COLUNA1,CASE WHEN RCC_FIL = ' ' THEN 'D MG 01 ' ELSE RCC_FIL END AS COLUNA2,CAST(SUBSTR(RCC_CONTEU,1 + 0,2)::BPCHAR AS VARCHAR(2)) AS RCC_CONTE1,CAST(SUBSTR(RCC_CONTEU,1 + 2,30)::BPCHAR AS VARCHAR(30)) AS RCC_CONTE2,MAX(CASE WHEN RCC_CHAVE = ' ' THEN '201901' ELSE RCC_CHAVE END) AS RCC_CHAVE FROM RCCT10 WHERE D_E_L_E_T_ = ' ' AND RCC_FILIAL = 'D MG ' GROUP BY RCC_CODIGO, CASE WHEN RCC_FIL = ' ' THEN 'D MG 01 ' ELSE RCC_FIL END, SUBSTRING(RCC_CONTEU, 1 + 0, 2)::bpchar , SUBSTRING(RCC_CONTEU, 1 + 2, 30)::bpchar ) RCCM ON RCCM.COLUNA1 = RCCR.RCC_CODIGO AND RCCM.COLUNA2 = CASE WHEN RCCR.RCC_FIL = ' ' THEN 'D MG 01 ' ELSE RCCR.RCC_FIL END AND RCCM.RCC_CHAVE = CASE WHEN RCCR.RCC_CHAVE = ' ' THEN '201901' ELSE RCCR.RCC_CHAVE END AND RCCM.RCC_CONTE1 = SUBSTRING(RCC_CONTEU , 1 + 0 , 2)::bpchar AND RCCM.RCC_CONTE2 = SUBSTRING(RCC_CONTEU , 1 + 2 , 30)::bpchar WHERE RCCR.D_E_L_E_T_ = ' ' AND RCCR.RCC_FILIAL = 'D MG ' AND RCCR.RCC_CODIGO = RCC.RCC_CODIGO AND CASE WHEN RCC_FIL = ' ' THEN 'D MG 01 ' ELSE RCC_FIL END = CASE WHEN RCC.RCC_FIL = ' ' TH on _EXECSQL(APLIB300.PRW) 18/01/2019 16:26:58 line : 134

[TOTVS build: 7.00.170117A-20190118]
Called from LOADDATA(VDFM220.PRW) 17/01/2019 10:40:43 line : 99
Called from { || LOADDATA(ACOLS) }(VDFM220.PRW) 17/01/2019 10:40:43 line : 38

03. SOLUÇÃO