Linha Microsiga Protheus

Árvore de páginas


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:

Exemplo
#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

05. ASSUNTOS RELACIONADOS