01. DADOS GERAIS
Produto: | TOTVS Prestadores de Serviços Terceirização |
---|---|
Linha de Produto: | Linha Protheus |
Segmento: | Serviços |
Módulo: | Terceirização (SIGATEC) |
Função: | SIGACFG |
País: | Brasil |
Ticket: | Não há |
Requisito/Story/Issue (informe o requisito relacionado) : | DSERSGS-13145 |
02. SITUAÇÃO/REQUISITO
Inclusão de Campos facilitadores CNA e TFL. Em alguns casos quando há necessidade de realizar alguma revisão no contrato estes campos facilitam a localização do registro conforme necessidade do cliente.
03. SOLUÇÃO
Siga a documentação abaixo sobre como criar os campos facilitadores.
1 -) Acesse o Configurador → base de dados
2 -) Acesse a Tabela CNA → Cabeçalho Planilhas de Contratos
3 -) Clique em Editar e aperte incluir
4 -) No exemplo a seguir vou incluir o Código do local de atendimento (TFL) na planilha do contrato (CNA)
Foi criado um campo VIRTUAL para receber o Local de Atendimento (CNA_LOCAL) que exibirá o conteúdo do campo TFL_LOCAL
Tipo : Caractere | Propriedade : Visualizar
5-) Incluir uma User Function no campo Inic. Padrao conforme exemplo abaixo:
Conteúdo:
U_TECTFLCN(CNA->CNA_FILIAL,CNA->CNA_CONTRA,CNA->CNA_REVISA,CNA->CNA_NUMERO,'TFL_LOCAL')
Para exibição do dado foi utilizada uma User function conforme modelo abaixo:
#INCLUDE "PROTHEUS.CH" User Function TECTFLCN(cFil,cContrato,cRevis,cPlanilha,cCampo) Local cQry := "" Local cRetorno := "" Local cAliasTFL := GetNextAlias() cQry := " SELECT "+cCampo+" AS CAMPO " cQry += " FROM "+RetSqlName("TFL")+" TFL " cQry += " WHERE TFL_CONTRT = '"+cContrato+"' cQry += " AND TFL_CONREV = '"+cRevis+"' cQry += " AND TFL_PLAN = '"+cPlanilha+"' cQry += " AND TFL_FILIAL = '"+cFil+"' cQry += " AND TFL.D_E_L_E_T_ = '' " cQry := ChangeQuery(cQry) dbUseArea(.T.,"TOPCONN",TcGenQry(,,cQry),cAliasTFL,.T.,.T.) cRetorno := (cAliasTFL)->CAMPO (cAliasTFL)->(dbCloseArea()) Return cRetorno
5 -) Após o preenchimento do campos clique Salvar.
6 -) Clique no disquete e confirme as alterações
7-) Acesse a Rotina Gestão dos Contratos (TECA870) e visualize o contrato.
8 - Verifique que foi criado o campo e replicado a informação da TFL (Local de Atendimento)
Atenção
Para que o processo funcione corretamente, é necessário que a user function esteja compilada no ambiente.
A User Function só vai ter efeito para campos que são criados no banco de dados, campos que são virtuais como a descrição do local devem ter outro tratamento, por exemplo utilizando um Posicione.
04. DEMAIS INFORMAÇÕES
Gestão dos Contratos - TECA870 - Gestão de Serviços - P12