7889972 DRHGCH-16402 DT Conteúdo de campos MEMO gravados na SYP

01. DADOS GERAIS

Linha de Produto:	Microsiga Protheus
Segmento:	Recursos Humanos
Módulo:	SIGAGPE
Função:	RSPA010.PRW
Ticket:	7889972
Issue:	DRHGCH-16402

02. SITUAÇÃO/REQUISITO

Sistema continua gravando campos 'memo' indevidamente na tabela SYP mesmo após atualização de release - cadastro de Currículo (RSPA010).

03. SOLUÇÃO

Efetuado ajuste para que os novos registros da tabela ref. a Currículos (SQG/SQL/SQR) tenha os dados dos campos do tipo MEMO sendo gravados na tabela RDY (utilizada exclusivamente pelo módulos de Recursos Humanos) - disponibilizada na Expedição Contínua - Recursos Humanos

Efetuado ajuste no dicionário de dados, sendo alterado o inicializador padrão dos campos 'Análise' (QG_MEMO1) , 'Experiência (QG_MEMO2), 'Atividade' (QL_ATIVIDA) e 'Respostas' (QR_MRESPOS) - 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 31/01/2020.

Campo (X3_CAMPO)	Inicializador Padrão (X3_RELACAO)
QG_MEMO1	IF(INCLUI,"",MSMM(SQG->QG_ANALISE,80,,,,,,,,"RDY"))
QG_MEMO2	IF(INCLUI,"",MSMM(SQG->QG_EXPER,80,,,,,,,,"RDY"))
QL_MEMO1	IF(INCLUI,"",MSMM(SQL->QL_ATIVIDA,80,,,,,,,,"RDY"))
QR_MEMO1	IF(INCLUI,"",MSMM(SQR->QR_MRESPOS,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  := "%('QG_ANALISE','QG_EXPER','QL_ATIVIDA','QR_MRESPOS')%"
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.

Árvore de páginas