Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Vitor Kwon

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Usuário desconhecido (mateus.barbosa)

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.


01. DADOS GERAIS

Produto:

Solucoes_totvs
SolucaoTOTVS Prestadores de Serviços Terceirização

Linha de Produto:

Linhas_totvs
LinhaLinha Protheus

Segmento:

Segmentos_totvs
SegmentoServiç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.

...

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

Image Added

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')

Image Added


Para exibição do dado foi utilizada a função POSICIONE()

Image Removed

Image Removed

uma User function conforme modelo abaixo:

Bloco de código
titleExemplo
#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


Image AddedImage Removed



5 -) Após o preenchimento do campos clique Salvar. 

...

7-) Acesse a Rotina Gestão dos Contratos (TECA870) e visualize o contrato.


Image RemovedImage Added


8 - Verifique que foi criado o campo e replicado a informação da TFL (Local de Atendimento)


Image Added

Aviso
titleAtençã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