01. DADOS GERAIS
Linha de Produto: | Microsiga Protheus |
---|---|
Segmento: | Recursos Humanos |
Módulo: | SIGATRM |
Função: | WSTRMA050.PRW |
Ticket: | 8244140 |
Issue: | DRHGCH-17438 |
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.
Importante
Os ajustes informados neste documento técnico serão incluídos somente na próxima expedição a partir da data .
Campo (X3_CAMPO) | Inicializador Padrão (X3_RELACAO) |
---|---|
RAI_MEMO1 | IF(INCLUI,"",MSMM(RAI->RAI_MRESPO,80,,,,,,,,"RDY")) |
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.