8244140 DRHGCH-17438 DT Campos Memo na Avaliação de Eficácia

01. DADOS GERAIS

02. SITUAÇÃO/REQUISITO

Sistema não exibe conteúdo de campos memo que representam as respostas de uma avaliação de eficácia (cujas questões são dissertativas) acerca de treinamento realizado na pasta de avaliações realizadas pelo funcionário no módulo SIGATRM - tabela RAI.

03. SOLUÇÃO

Efetuado ajuste para que o conteúdo do tipo MEMO seja gravado devidamente nas tabelas RAI e RDY - disponibilizada na Expedição Contínua - Recursos Humanos

Efetuado ajuste no dicionário de dados, sendo alterado o inicializador padrão do campo 'Resposta' (RAI_MRESPO) - este ajuste deverá ser realizado manualmente no módulo Configurador (SIGACFG) conforme abaixo.

04. DEMAIS INFORMAÇÕES

Para os demais registros, que já foram gravados na tabela SYP, aconselhamos realizar a migração dos dados através do rdmake abaixo:

#include "Totvs.Ch"
#define STR0001 "Atenção"
#define STR0002 "Este processo deverá ser executado por FILIAL."
#define STR0003 "Deseja transferir os registros de campo MEMO do cadastro de Curriculos gravados na tabela SYP para a tabela RDY?"
#define STR0004 "Transferência de registros realizada com sucesso!"
#define STR0005 "Transferindo registros para tabela RDY..."

User Function MyRSPA010()

Private lMsErroAuto := .F.

If MsgYesNo( OemToAnsi( STR0002 + CRLF +  CRLF + STR0003), OemToAnsi( STR0001 ) )

    MsAguarde({|| MSExecAuto( {|| u_TransfReg() }) },OemToAnsi( STR0005 ) ) 

    If lMsErroAuto
        MostraErro()
    Else
        MsgInfo(OemToAnsi( STR0004 ), OemToAnsi( STR0001 ))
    EndIf

EndIf

Return !lMsErroAuto

User Function TransfReg()
Local aArea         := GetArea()
Local cAliasSYP     := GetNextAlias()
Local cPesqCpo  := "%('RAI_MRESPO')%"
Local lRet          := .T.

    BeginSql alias cAliasSYP
        SELECT * 
        FROM %table:SYP% SYP 
        WHERE SYP.YP_CAMPO IN %exp:cPesqCpo%    
        AND SYP.%notDel%
    EndSql

    If ( cAliasSYP )->( !Eof() )
        While ( cAliasSYP )->( !Eof() )  

            // Inclui registro na RDY   
            MSMM((cAliasSYP)->YP_CHAVE,,,(cAliasSYP)->YP_TEXTO,,,,"SQG",(cAliasSYP)->YP_CAMPO,"RDY", .T.)

            // Exclui registro na SYP
            //MSMM((cAliasSYP)->YP_CHAVE,,,(cAliasSYP)->YP_TEXTO,2,,,"SQG",(cAliasSYP)->YP_CAMPO,"SYP")

            (cAliasSYP)->(DbSkip())
        EndDo
        lRet    := .T.
    EndIf
    
    (cAliasSYP)->( dbCloseArea() )   
    
    RestArea(aArea)

Return lRet

05. ASSUNTOS RELACIONADOS

Atualização de release (UPDDISTR) não atualiza inicializador padrão conforme documentação abaixo:

Regras para atualização do dicionário SX3 - UPDDISTR e migrador de versão.